From 8d56c29317268b3b95ca2beeb48f10cec740ad12 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Jun 2018 06:50:03 +0800 Subject: [PATCH] expander: fix incorrect addition of shifts Commit 32b256886e adds shifts in one place where it shoouldn't; the "determinsitic-zo" test exposed the problem. Also, avoid adding shifts that will have no effect, which avoids accumulating useless shifts in some top-level contexts. --- racket/src/expander/expand/context.rkt | 1 + racket/src/expander/syntax/binding.rkt | 12 +- racket/src/racket/src/startup.inc | 17827 ++++++++++++----------- 3 files changed, 8929 insertions(+), 8911 deletions(-) diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index f250a21ffa..a0dd8792d4 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -122,6 +122,7 @@ [self-mpi #:parent root-expand-context (root-expand-context-self-mpi root-ctx)] [module-scopes #:parent root-expand-context (root-expand-context-module-scopes root-ctx)] [post-expansion-scope #:parent root-expand-context (root-expand-context-post-expansion-scope root-ctx)] + [post-expansion-shifts #:parent root-expand-context (root-expand-context-post-expansion-shifts root-ctx)] [top-level-bind-scope #:parent root-expand-context (root-expand-context-top-level-bind-scope root-ctx)] [all-scopes-stx #:parent root-expand-context (root-expand-context-all-scopes-stx root-ctx)] [use-site-scopes #:parent root-expand-context (root-expand-context-use-site-scopes root-ctx)] diff --git a/racket/src/expander/syntax/binding.rkt b/racket/src/expander/syntax/binding.rkt index 135d88524a..b02d97e5e1 100644 --- a/racket/src/expander/syntax/binding.rkt +++ b/racket/src/expander/syntax/binding.rkt @@ -159,18 +159,26 @@ (non-source-shift from-mpi to-mpi) (cons from-mpi to-mpi))) (struct-copy syntax s - [mpi-shifts (cons shift (syntax-mpi-shifts s))] + [mpi-shifts (shift-cons shift (syntax-mpi-shifts s))] [inspector (or (syntax-inspector s) inspector)] [scope-propagations+tamper (if (datum-has-elements? (syntax-content s)) (propagation-mpi-shift (syntax-scope-propagations+tamper s) - (lambda (s) (cons shift s)) + (lambda (s) (shift-cons shift s)) inspector (syntax-scopes s) (syntax-shifted-multi-scopes s) (syntax-mpi-shifts s)) (syntax-scope-propagations+tamper s))])])) +(define (shift-cons shift shifts) + (cond + [(and (pair? shifts) + (eq? (shift-from shift) (shift-from (car shifts)))) + ;; Adding `shift` is not useful + shifts] + [else (cons shift shifts)])) + ;; Use `resolve+shift` instead of `resolve` when the module of a ;; module binding is relevant or when `free-identifier=?` equivalences ;; (as installed by a binding to a rename transfomer) are relevant; diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index e9cb4c5295..ca6b8552d0 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -11197,7 +11197,7 @@ static const char *startup_source = "(cons from-mpi_1 to-mpi_1))))" "(let-values(((the-struct_31) s_19))" "(if(syntax?$1 the-struct_31)" -"(let-values(((mpi-shifts74_0)(cons shift_0(syntax-mpi-shifts s_19)))" +"(let-values(((mpi-shifts74_0)(shift-cons shift_0(syntax-mpi-shifts s_19)))" "((inspector75_1)" "(let-values(((or-part_130)(syntax-inspector s_19)))" "(if or-part_130 or-part_130 inspector_3)))" @@ -11205,7 +11205,7 @@ static const char *startup_source = "(if(datum-has-elements?(syntax-content s_19))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_19)" -"(lambda(s_157)(cons shift_0 s_157))" +"(lambda(s_157)(shift-cons shift_0 s_157))" " inspector_3" "(syntax-scopes s_19)" "(syntax-shifted-multi-scopes s_19)" @@ -11222,12 +11222,19 @@ static const char *startup_source = " inspector75_1))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_31)))))))))))))))" "(define-values" +"(shift-cons)" +"(lambda(shift_1 shifts_0)" +"(begin" +"(if(if(pair? shifts_0)(eq?(shift-from shift_1)(shift-from(car shifts_0))) #f)" +"(let-values() shifts_0)" +"(let-values()(cons shift_1 shifts_0))))))" +"(define-values" "(resolve+shift28.1)" "(lambda(ambiguous-value16_0 exactly?17_0 extra-shifts20_0 immediate?18_0 unbound-sym?19_0 s26_0 phase27_0)" "(begin" " 'resolve+shift28" "(let-values(((s_158) s26_0))" -"(let-values(((phase_8) phase27_0))" +"(let-values(((phase_23) phase27_0))" "(let-values(((ambiguous-value_1) ambiguous-value16_0))" "(let-values(((exactly?_1) exactly?17_0))" "(let-values(((immediate?_0)(if(eq? immediate?18_0 unsafe-undefined) exactly?_1 immediate?18_0)))" @@ -11236,14 +11243,14 @@ static const char *startup_source = "(let-values()" "(let-values(((can-cache?_0)" "(if(not exactly?_1)(if(not immediate?_0)(null? extra-shifts_4) #f) #f)))" -"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_158 phase_8) #f)))" +"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_158 phase_23) #f)))" "(if c1_23" "((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_158) #f) b_51))" " c1_23)" "(let-values()" "(let-values(((immediate-b_0)" "(let-values(((s77_0) s_158)" -"((phase78_0) phase_8)" +"((phase78_0) phase_23)" "((ambiguous-value79_0) ambiguous-value_1)" "((exactly?80_0) exactly?_1)" "((extra-shifts81_0) extra-shifts_4))" @@ -11259,7 +11266,7 @@ static const char *startup_source = "(if(not immediate?_0)(binding-free=id immediate-b_0) #f)" " #f)" "(let-values(((temp82_0)(binding-free=id immediate-b_0))" -"((phase83_0) phase_8)" +"((phase83_0) phase_23)" "((temp84_0)" "(append extra-shifts_4(syntax-mpi-shifts s_158)))" "((ambiguous-value85_0) ambiguous-value_1)" @@ -11377,7 +11384,7 @@ static const char *startup_source = "(begin" "(if can-cache?_0" "(let-values()" -"(resolve+shift-cache-set! s_158 phase_8 result-b_0))" +"(resolve+shift-cache-set! s_158 phase_23 result-b_0))" "(void))" " result-b_0))))))))))" "(let-values()" @@ -11386,33 +11393,33 @@ static const char *startup_source = "(let-values()" "(resolve+shift-cache-set!" " s_158" -" phase_8" +" phase_23" "(let-values(((or-part_131) b_52))(if or-part_131 or-part_131 '#:none))))" "(void))" -"(let-values(((or-part_56) b_52))" -"(if or-part_56" -" or-part_56" +"(let-values(((or-part_132) b_52))" +"(if or-part_132" +" or-part_132" "(if unbound-sym?_0(syntax-content s_158) #f)))))))))))))))))))))))" "(define-values" "(apply-syntax-shifts)" -"(lambda(mpi_12 shifts_0)" -"(begin" -"(if(null? shifts_0)" -"(let-values() mpi_12)" -"(let-values()" -"(let-values(((shifted-mpi_1)(apply-syntax-shifts mpi_12(cdr shifts_0))))" -"(let-values(((shift_1)(car shifts_0)))" -"(module-path-index-shift shifted-mpi_1(shift-from shift_1)(shift-to shift_1)))))))))" -"(define-values" -"(apply-syntax-shifts-to-binding)" -"(lambda(b_54 shifts_1)" +"(lambda(mpi_12 shifts_1)" "(begin" "(if(null? shifts_1)" +"(let-values() mpi_12)" +"(let-values()" +"(let-values(((shifted-mpi_1)(apply-syntax-shifts mpi_12(cdr shifts_1))))" +"(let-values(((shift_2)(car shifts_1)))" +"(module-path-index-shift shifted-mpi_1(shift-from shift_2)(shift-to shift_2)))))))))" +"(define-values" +"(apply-syntax-shifts-to-binding)" +"(lambda(b_54 shifts_2)" +"(begin" +"(if(null? shifts_2)" "(let-values() b_54)" "(let-values()" -"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_54(cdr shifts_1))))" -"(let-values(((shift_2)(car shifts_1)))" -"(binding-module-path-index-shift shifted-b_0(shift-from shift_2)(shift-to shift_2)))))))))" +"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_54(cdr shifts_2))))" +"(let-values(((shift_3)(car shifts_2)))" +"(binding-module-path-index-shift shifted-b_0(shift-from shift_3)(shift-to shift_3)))))))))" "(define-values" "(binding-module-path-index-shift)" "(lambda(b_55 from-mpi_2 to-mpi_2)" @@ -11488,14 +11495,14 @@ static const char *startup_source = "(begin" " 'syntax-add-shifts44" "(let-values(((to-s_1) to-s42_0))" -"(let-values(((shifts_2) shifts43_0))" +"(let-values(((shifts_3) shifts43_0))" "(let-values(((inspector_5) inspector41_0))" "(let-values(((non-source?_2) non-source?39_0))" "(let-values()" -"(if(if(null? shifts_2) inspector_5 #f)" +"(if(if(null? shifts_3) inspector_5 #f)" "(let-values()(syntax-set-inspector to-s_1 inspector_5))" "(let-values()" -"(let-values(((lst_54)(reverse$1 shifts_2))((start_12) 0))" +"(let-values(((lst_54)(reverse$1 shifts_3))((start_12) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -11504,22 +11511,22 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_75)" -"(lambda(s_101 lst_55 pos_10)" +"(lambda(s_159 lst_55 pos_10)" "(begin" " 'for-loop" "(if(if(pair? lst_55) #t #f)" -"(let-values(((shift_3)(unsafe-car lst_55))" +"(let-values(((shift_4)(unsafe-car lst_55))" "((rest_24)(unsafe-cdr lst_55))" "((i_81) pos_10))" -"(let-values(((s_159)" -"(let-values(((s_160) s_101))" -"(let-values(((s_161)" +"(let-values(((s_160)" +"(let-values(((s_103) s_159))" +"(let-values(((s_104)" "(let-values()" -"(let-values(((s103_0) s_160)" +"(let-values(((s103_0) s_103)" "((temp104_0)" -"(shift-from shift_3))" +"(shift-from shift_4))" "((temp105_0)" -"(shift-to shift_3))" +"(shift-to shift_4))" "((temp106_0)" "(if(zero? i_81)" " inspector_5" @@ -11532,31 +11539,31 @@ static const char *startup_source = " temp104_0" " temp105_0" " temp106_0)))))" -"(values s_161)))))" -"(if(not #f)(for-loop_75 s_159 rest_24(+ pos_10 1)) s_159)))" -" s_101)))))" +"(values s_104)))))" +"(if(not #f)(for-loop_75 s_160 rest_24(+ pos_10 1)) s_160)))" +" s_159)))))" " for-loop_75)" " to-s_1" " lst_54" " start_12)))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_162 insp_3)" +"(lambda(s_161 insp_3)" "(begin" -"(let-values(((the-struct_32) s_162))" +"(let-values(((the-struct_32) s_161))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector108_0)" -"(let-values(((or-part_132)(syntax-inspector s_162)))(if or-part_132 or-part_132 insp_3)))" +"(let-values(((or-part_133)(syntax-inspector s_161)))(if or-part_133 or-part_133 insp_3)))" "((scope-propagations+tamper109_0)" -"(if(datum-has-elements?(syntax-content s_162))" +"(if(datum-has-elements?(syntax-content s_161))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_162)" +"(syntax-scope-propagations+tamper s_161)" " #f" " insp_3" -"(syntax-scopes s_162)" -"(syntax-shifted-multi-scopes s_162)" -"(syntax-mpi-shifts s_162))" -"(syntax-scope-propagations+tamper s_162))))" +"(syntax-scopes s_161)" +"(syntax-shifted-multi-scopes s_161)" +"(syntax-mpi-shifts s_161))" +"(syntax-scope-propagations+tamper s_161))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11573,14 +11580,14 @@ static const char *startup_source = "(lambda(s48_0 source?47_0)" "(begin" " 'syntax-source-module49" -"(let-values(((s_163) s48_0))" +"(let-values(((s_162) s48_0))" "(let-values(((source?_0) source?47_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_163)" +"(if(syntax?$1 s_162)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_163)))" -"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_163))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_162)))" +"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -11590,11 +11597,11 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_57)" -"(let-values(((shift_4)(unsafe-car lst_57))" +"(let-values(((shift_5)(unsafe-car lst_57))" "((rest_25)(unsafe-cdr lst_57)))" "(let-values(((result_50)" "(let-values(((result_51) result_49))" -"(if(non-source-shift? shift_4)" +"(if(non-source-shift? shift_5)" " result_51" "(let-values()" "(let-values(((result_52)" @@ -11602,7 +11609,7 @@ static const char *startup_source = "(let-values()" "(let-values(((from-mpi_3)" "(car" -" shift_4)))" +" shift_5)))" "(let-values(((path_5" " base_14)" "(1/module-path-index-split" @@ -11614,7 +11621,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_163))))" +" s_162))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11624,7 +11631,7 @@ static const char *startup_source = " #f)" " #f)))))))" "(values result_52)))))))" -"(if(if(not((lambda x_37 result_50) shift_4))(not #f) #f)" +"(if(if(not((lambda x_37 result_50) shift_5))(not #f) #f)" "(for-loop_76 result_50 rest_25)" " result_50)))" " result_49)))))" @@ -11632,8 +11639,8 @@ static const char *startup_source = " #f" " lst_56)))))))))))" "(case-lambda" -"((s_164)(begin 'syntax-source-module(syntax-source-module49_0 s_164 #f)))" -"((s_165 source?47_1)(syntax-source-module49_0 s_165 source?47_1)))))" +"((s_163)(begin 'syntax-source-module(syntax-source-module49_0 s_163 #f)))" +"((s_164 source?47_1)(syntax-source-module49_0 s_164 source?47_1)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11773,9 +11780,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_57 mpi-shifts_3)" -"(let-values(((or-part_133)(bulk-binding-provides b_57)))" -"(if or-part_133" -" or-part_133" +"(let-values(((or-part_134)(bulk-binding-provides b_57)))" +"(if or-part_134" +" or-part_134" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_57) mpi-shifts_3))))" @@ -11812,9 +11819,9 @@ static const char *startup_source = "(let-values(((excepts_0)(bulk-binding-excepts b_57)))" "(let-values(((prefix_0)(bulk-binding-prefix b_57)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_134) prefix_0))" -"(if or-part_134" -" or-part_134" +"(if(let-values(((or-part_135) prefix_0))" +"(if or-part_135" +" or-part_135" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -12104,8 +12111,8 @@ static const char *startup_source = " post-expansion-scope_1" " null" "(new-scope 'module)" -"(let-values(((or-part_135) all-scopes-stx_1))" -"(if or-part_135 or-part_135(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_136) all-scopes-stx_1))" +"(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -12135,14 +12142,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_83" -"(let-values(((phase_23 ht_64)(hash-iterate-key+value ht_63 i_83)))" +"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_83)))" "(let-values(((table_92)" "(let-values(((table_93) table_91))" "(let-values(((table_94)" "(let-values()" "(let-values(((key_37 val_25)" "(let-values()" -"(values phase_23 ht_64))))" +"(values phase_24 ht_64))))" "(hash-set table_93 key_37 val_25)))))" "(values table_94)))))" "(if(not #f)(for-loop_78 table_92(hash-iterate-next ht_63 i_83)) table_92)))" @@ -12201,13 +12208,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_84" -"(let-values(((phase_24 ht-s_0)(hash-iterate-key+value ht_65 i_84)))" +"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_84)))" "(let-values(((result_54)" "(let-values()" "(let-values(((result_55)" "(let-values()" "(let-values()" -"(if(phase? phase_24)" +"(if(phase? phase_25)" "(if(hash?(syntax-e$1 ht-s_0))" "(let-values(((ht_66)(syntax-e$1 ht-s_0)))" "(begin" @@ -12258,7 +12265,7 @@ static const char *startup_source = " #f)" " #f)))))" "(values result_55)))))" -"(if(if(not((lambda x_38(not result_54)) phase_24 ht-s_0))(not #f) #f)" +"(if(if(not((lambda x_38(not result_54)) phase_25 ht-s_0))(not #f) #f)" "(for-loop_8 result_54(hash-iterate-next ht_65 i_84))" " result_54)))" " result_53)))))" @@ -12273,7 +12280,7 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_166)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_166))))))" +"(lambda(stx_11)(begin(let-values(((s_165)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_165))))))" "(define-values(extract-shifts)(lambda(stx_12)(begin(syntax-mpi-shifts stx_12))))" "(define-values" "(unpack-defined-syms)" @@ -12288,7 +12295,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_86" -"(let-values(((phase_25 ht-s_1)(hash-iterate-key+value ht_67 i_86)))" +"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_86)))" "(let-values(((table_96)" "(let-values(((table_97) table_95))" "(let-values(((table_98)" @@ -12296,7 +12303,7 @@ static const char *startup_source = "(let-values(((key_38 val_26)" "(let-values()" "(values" -" phase_25" +" phase_26" "(hash-copy" "(let-values(((ht_68)" "(syntax-e$1" @@ -12559,14 +12566,14 @@ static const char *startup_source = " root-expand-ctx3_0)))" "(let-values(((register?_0) register?4_0))" "(let-values()" -"(let-values(((phase_26)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))" +"(let-values(((phase_27)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))" "(let-values(((ns_1)" "(namespace1.1" " top-level-module-path-index" " #f" "(box root-expand-ctx_0)" -" phase_26" -" phase_26" +" phase_27" +" phase_27" "(make-small-hasheqv)" "(make-small-hasheqv)" "(if share-from-ns_0(namespace-module-registry$1 share-from-ns_0)(make-module-registry))" @@ -12575,8 +12582,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_135)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_135 or-part_135 share-from-ns_0))" +"(let-values(((or-part_136)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_136 or-part_136 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12586,7 +12593,7 @@ static const char *startup_source = "(if share-from-ns_0(namespace-module-instances share-from-ns_0)(make-hasheqv)))))" "(begin" "(if register?_0" -"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_26 ns_1))" +"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_27 ns_1))" "(void))" " ns_1))))))))))" "(define-values" @@ -12610,21 +12617,21 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_136)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_136" -" or-part_136" +"(let-values(((or-part_137)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_137" +" or-part_137" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" -"(lambda(ns_6 phase_27)" +"(lambda(ns_6 phase_28)" "(begin" -"(let-values(((or-part_137)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_27 #f)))" -"(if or-part_137" -" or-part_137" +"(let-values(((or-part_138)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_28 #f)))" +"(if or-part_138" +" or-part_138" "(let-values(((p-ns_0)" "(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" -"(let-values(((phase21_0) phase_27))" +"(let-values(((phase21_0) phase_28))" "(namespace1.1" "(namespace-mpi the-struct_34)" "(namespace-source-name the-struct_34)" @@ -12642,28 +12649,28 @@ static const char *startup_source = "(namespace-available-module-instances the-struct_34)" "(namespace-module-instances the-struct_34)))" " (raise-argument-error 'struct-copy \"namespace?\" the-struct_34)))))" -"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_27 p-ns_0) p-ns_0)))))))" +"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_28 p-ns_0) p-ns_0)))))))" "(define-values" "(namespace->name)" "(lambda(ns_7)" "(begin" "(let-values(((n_21)(namespace-source-name ns_7)))" -"(let-values(((s_167)" +"(let-values(((s_166)" "(if(not n_21)" "(let-values() 'top-level)" "(if(symbol? n_21)" " (let-values () (format \"'~s\" n_21))" " (let-values () (string-append \"\\\"\" (path->string n_21) \"\\\"\"))))))" "(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_167 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_167)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_166 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_166)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_138) d_8))" -"(if or-part_138" -" or-part_138" +"(let-values(((or-part_139) d_8))" +"(if or-part_139" +" or-part_139" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -13127,45 +13134,45 @@ static const char *startup_source = "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_139) given-name_12))" -"(if or-part_139" -" or-part_139" -"(let-values(((or-part_140)(extract-form-name expr_8)))" -"(if or-part_140 or-part_140 '?)))))))" +"(let-values(((or-part_140) given-name_12))" +"(if or-part_140" +" or-part_140" +"(let-values(((or-part_141)(extract-form-name expr_8)))" +"(if or-part_141 or-part_141 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_141)" +"(let-values(((or-part_142)" "(if sub-expr_6" "(if(error-print-source-location)" " (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))" " #f)" " #f)))" -" (if or-part_141 or-part_141 \"\"))))" +" (if or-part_142 or-part_142 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_134)" +"(let-values(((or-part_135)" "(if expr_8" "(if(error-print-source-location)" " (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))" " #f)" " #f)))" -" (if or-part_134 or-part_134 \"\"))))" +" (if or-part_135 or-part_135 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_142)" +"(let-values(((or-part_143)" "(if(error-print-source-location)" -"(let-values(((or-part_143)(extract-source-location sub-expr_6)))" -"(if or-part_143 or-part_143(extract-source-location expr_8)))" +"(let-values(((or-part_144)(extract-source-location sub-expr_6)))" +"(if or-part_144 or-part_144(extract-source-location expr_8)))" " #f)))" -" (if or-part_142 or-part_142 \"\"))))" +" (if or-part_143 or-part_143 \"\"))))" "(raise" "(exn:fail:syntax_0" " (string-append src-loc-str_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_144) sub-expr_6))(if or-part_144 or-part_144 expr_8))" +"(if(let-values(((or-part_145) sub-expr_6))(if or-part_145 or-part_145 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_135) sub-expr_6))(if or-part_135 or-part_135 expr_8)))" +"(let-values(((or-part_136) sub-expr_6))(if or-part_136 or-part_136 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" @@ -13435,7 +13442,7 @@ static const char *startup_source = "(let-values(((root-expand-ctx_1) root-expand-context44_0))" "(let-values(((for-submodule?_0) for-submodule?45_0))" "(let-values()" -"(let-values(((phase_28) 0))" +"(let-values(((phase_29) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" "(let-values(((the-struct_38)" @@ -13446,8 +13453,8 @@ static const char *startup_source = "(if(1/namespace? the-struct_38)" "(let-values(((mpi150_0) name-mpi_0)" "((source-name151_0)(resolved-module-path-root-name name_28))" -"((phase152_0) phase_28)" -"((0-phase153_0) phase_28)" +"((phase152_0) phase_29)" +"((0-phase153_0) phase_29)" "((submodule-declarations154_0)" "(if for-submodule?_0" "(namespace-submodule-declarations ns_20)" @@ -13474,11 +13481,11 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" "(let-values((()" "(begin" -"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_28 m-ns_1)" +"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_29 m-ns_1)" "(values))))" "(let-values(((at-phase_0)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances m-ns_1) phase_28 at-phase_0)" +"(hash-set!(namespace-module-instances m-ns_1) phase_29 at-phase_0)" "(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))" " m-ns_1))))))))))))))" "(define-values" @@ -13534,17 +13541,17 @@ static const char *startup_source = "(let-values()" "(let-values(((m-ns_2)(module-instance-namespace prior-mi_0)))" "(let-values(((states_0)(module-instance-phase-level-to-state prior-mi_0)))" -"(let-values(((phase_29)(namespace-phase ns_21)))" -"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_29) #f))))" -"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_29 #f))))" -"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_29)))" +"(let-values(((phase_30)(namespace-phase ns_21)))" +"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_30) #f))))" +"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_30 #f))))" +"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_30)))" "(begin" "(hash-set! at-phase_1 mod-name_4(make-module-instance m-ns_2 m_2))" "(if visit?_0" "(let-values()" "(let-values(((ns164_0) ns_21)" "((temp165_0)(namespace-mpi m-ns_2))" -"((phase166_0) phase_29))" +"((phase166_0) phase_30))" "(namespace-module-visit!104.1" " unsafe-undefined" " ns164_0" @@ -13555,7 +13562,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ns167_0) ns_21)" "((temp168_0)(namespace-mpi m-ns_2))" -"((phase169_0) phase_29))" +"((phase169_0) phase_30))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" @@ -13576,9 +13583,9 @@ static const char *startup_source = " (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))" "(void))" "(if(if prior-mi_1" -"(let-values(((or-part_145)(module-instance-attached? prior-mi_1)))" -"(if or-part_145" -" or-part_145" +"(let-values(((or-part_146)(module-instance-attached? prior-mi_1)))" +"(if or-part_146" +" or-part_146" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13615,21 +13622,21 @@ static const char *startup_source = "(if(eq? unavailable-callback63_0 unsafe-undefined) void unavailable-callback63_0)))" "(let-values()" "(let-values(((mi_0)" -"(let-values(((or-part_146)" +"(let-values(((or-part_147)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" " name_30" " #f)))" -"(if or-part_146" -" or-part_146" -"(let-values(((or-part_147)" -"(let-values(((c-ns_0)" -"(let-values(((or-part_148)" -"(namespace-root-namespace ns_23)))" -"(if or-part_148 or-part_148 ns_23))))" -"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" "(if or-part_147" " or-part_147" +"(let-values(((or-part_148)" +"(let-values(((c-ns_0)" +"(let-values(((or-part_149)" +"(namespace-root-namespace ns_23)))" +"(if or-part_149 or-part_149 ns_23))))" +"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" +"(if or-part_148" +" or-part_148" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13688,7 +13695,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_149)(namespace-root-namespace ns_24)))(if or-part_149 or-part_149 ns_24)))" +"(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13707,10 +13714,10 @@ static const char *startup_source = "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" "(values))))" "(let-values(((at-phase_2)" -"(let-values(((or-part_150)" +"(let-values(((or-part_151)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_150" -" or-part_150" +"(if or-part_151" +" or-part_151" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13725,9 +13732,9 @@ static const char *startup_source = "(if(1/namespace? the-struct_40)" "(let-values(((mpi179_0) mpi_15)" "((source-name180_0)" -"(let-values(((or-part_151)(module-source-name m_5)))" -"(if or-part_151" -" or-part_151" +"(let-values(((or-part_152)(module-source-name m_5)))" +"(if or-part_152" +" or-part_152" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" "((root-expand-ctx181_0)(box #f))" "((phase182_0) 0-phase_3)" @@ -13759,9 +13766,9 @@ static const char *startup_source = "(if(module-cross-phase-persistent? m_5)" "(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_152)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_152" -" or-part_152" +"(let-values(((or-part_153)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_153" +" or-part_153" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13819,10 +13826,10 @@ static const char *startup_source = "(if mi_4(module-instance-namespace mi_4) #f))))))))))))" "(define-values" "(namespace-record-module-instance-attached!)" -"(lambda(ns_27 mod-name_7 phase_30)" +"(lambda(ns_27 mod-name_7 phase_31)" "(begin" "(let-values(((mi_5)" -"(let-values(((ns194_0) ns_27)((mod-name195_0) mod-name_7)((phase196_0) phase_30))" +"(let-values(((ns194_0) ns_27)((mod-name195_0) mod-name_7)((phase196_0) phase_31))" "(namespace->module-instance70.1 #f #f unsafe-undefined ns194_0 mod-name195_0 phase196_0))))" "(set-module-instance-attached?! mi_5 #t)))))" "(define-values" @@ -13861,7 +13868,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_153)" +"(let-values(((or-part_154)" "(let-values(((ns203_0) ns_30)" "((name204_0) name_34)" "((instance-phase205_0)" @@ -13873,8 +13880,8 @@ static const char *startup_source = " ns203_0" " name204_0" " instance-phase205_0))))" -"(if or-part_153" -" or-part_153" +"(if or-part_154" +" or-part_154" "(namespace-create-module-instance!" " ns_30" " name_34" @@ -13899,8 +13906,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_154)(namespace-root-namespace ns_29)))" -"(if or-part_154 or-part_154 ns_29))))" +"(let-values(((or-part_155)(namespace-root-namespace ns_29)))" +"(if or-part_155 or-part_155 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13965,17 +13972,17 @@ static const char *startup_source = "(let-values(((m-ns_5)(module-instance-namespace mi_7)))" "(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))" "(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))" -"(if(if(let-values(((or-part_155) skip-run?_1))" -"(if or-part_155" -" or-part_155" +"(if(if(let-values(((or-part_156) skip-run?_1))" +"(if or-part_156" +" or-part_156" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_156)(not otherwise-available?_1)))" -"(if or-part_156 or-part_156(module-instance-made-available? mi_7)))" +"(let-values(((or-part_157)(not otherwise-available?_1)))" +"(if or-part_157 or-part_157(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -14208,14 +14215,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_31)" +"(let-values(((phase_32)" "(phase+" " phase-level_13" " phase-shift_3)))" "(if(if(not" " skip-run?_1)" "(eqv?" -" phase_31" +" phase_32" " run-phase_2)" " #f)" "(let-values()" @@ -14246,7 +14253,7 @@ static const char *startup_source = "(let-values(((p-ns_2)" "(namespace->namespace-at-phase" " m-ns_5" -" phase_31)))" +" phase_32)))" "(let-values(((insp_5)" "(module-inspector" " m_9)))" @@ -14292,7 +14299,7 @@ static const char *startup_source = "(hash-update!" "(namespace-available-module-instances" " ns_33)" -" phase_31" +" phase_32" "(lambda(l_47)" "(cons" " mi_7" @@ -14560,7 +14567,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_89" -"(let-values(((phase_32 at-phase_6)" +"(let-values(((phase_33 at-phase_6)" "(hash-iterate-key+value ht_71 i_89)))" "(let-values(((table_104)" "(let-values(((table_105) table_103))" @@ -14569,7 +14576,7 @@ static const char *startup_source = "(let-values(((key_40 val_33)" "(let-values()" "(values" -" phase_32" +" phase_33" "(let-values(((ht_72)" " at-phase_6))" "(begin" @@ -14640,9 +14647,9 @@ static const char *startup_source = "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" -"(lambda(b_42 ns_42 phase_33 id_11)" +"(lambda(b_42 ns_42 phase_34 id_11)" "(begin" -"(let-values(((at-phase_7)(phase- phase_33(module-binding-phase b_42))))" +"(let-values(((at-phase_7)(phase- phase_34(module-binding-phase b_42))))" "(let-values(((mi_11)" "(let-values(((ns1_0) ns_42)" "((temp2_0)(1/module-path-index-resolve(module-binding-module b_42)))" @@ -14680,7 +14687,7 @@ static const char *startup_source = " \" definition phase: ~a\\n\"" " \" for identifier: ~s\")" "(module-binding-module b_42)" -" phase_33" +" phase_34" "(module-binding-phase b_42)" " id_11)))" " mi_11))))))" @@ -14703,13 +14710,13 @@ static const char *startup_source = "(if or-part_10 or-part_10(eq? a_36 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_157)" +"(if(let-values(((or-part_158)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_12)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_157" -" or-part_157" +"(if or-part_158" +" or-part_158" "(if(module-binding-extra-inspector b_42)" "(inspector-superior?" "(module-binding-extra-inspector b_42)" @@ -14742,14 +14749,14 @@ static const char *startup_source = "(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" -"(lambda(id_13 phase_34 ns_43)" +"(lambda(id_13 phase_35 ns_43)" "(begin" "((letrec-values(((loop_80)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" "(let-values(((b_59)" -"(let-values(((id1_2) id_14)((phase2_0) phase_34)((temp3_0) #t))" +"(let-values(((id1_2) id_14)((phase2_0) phase_35)((temp3_0) #t))" "(resolve+shift28.1 #f #f null temp3_0 #f id1_2 phase2_0))))" "(let-values(((c1_24)(binding-free=id b_59)))" "(if c1_24" @@ -14765,7 +14772,7 @@ static const char *startup_source = "(binding->module-instance" " b_59" " ns_43" -" phase_34" +" phase_35" " id_14)))" " (check-access b_59 mi_14 id_14 in-s_1 \"provided binding\")))" "(void))" @@ -14894,7 +14901,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_99)((set!-transformer-value t_39) t_39)))" -"(if(procedure-arity-includes? v_99 1) v_99(lambda(s_168)(v_99 t_39 s_168)))))))" +"(if(procedure-arity-includes? v_99 1) v_99(lambda(s_167)(v_99 t_39 s_167)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14941,15 +14948,15 @@ static const char *startup_source = "(let-values(((or-part_32)(procedure? t_41)))" "(if or-part_32" " or-part_32" -"(let-values(((or-part_158)(1/set!-transformer? t_41)))" -"(if or-part_158 or-part_158(1/rename-transformer? t_41))))))))" +"(let-values(((or-part_159)(1/set!-transformer? t_41)))" +"(if or-part_159 or-part_159(1/rename-transformer? t_41))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_42)" "(begin" "(if(1/set!-transformer? t_42)" "(let-values()(1/set!-transformer-procedure t_42))" -"(if(1/rename-transformer? t_42)(let-values()(lambda(s_169) s_169))(let-values() t_42))))))" +"(if(1/rename-transformer? t_42)(let-values()(lambda(s_168) s_168))(let-values() t_42))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" @@ -14980,13 +14987,13 @@ static const char *startup_source = " 'add-binding!17" "(let-values(((id_15) id14_0))" "(let-values(((binding_8) binding15_0))" -"(let-values(((phase_35) phase16_0))" +"(let-values(((phase_36) phase16_0))" "(let-values(((in-s_2) in10_0))" "(let-values(((just-for-nominal?_2) just-for-nominal?11_0))" "(let-values()" "(begin" "(check-id-taint id_15 in-s_2)" -"(let-values(((temp55_0)(syntax-scope-set id_15 phase_35))" +"(let-values(((temp55_0)(syntax-scope-set id_15 phase_36))" "((temp56_1)(syntax-e$1 id_15))" "((binding57_0) binding_8)" "((just-for-nominal?58_0) just-for-nominal?_2))" @@ -14998,7 +15005,7 @@ static const char *startup_source = " 'add-bulk-binding!27" "(let-values(((s_70) s24_0))" "(let-values(((binding_9) binding25_0))" -"(let-values(((phase_36) phase26_1))" +"(let-values(((phase_37) phase26_1))" "(let-values(((in-s_3) in20_0))" "(let-values(((shadow-except_2) shadow-except21_0))" "(let-values()" @@ -15006,7 +15013,7 @@ static const char *startup_source = "(if(syntax-tainted?$1 s_70)" " (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_70))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_70 phase_36))" +"(let-values(((temp59_1)(syntax-scope-set s_70 phase_37))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 temp59_1 binding60_0))))))))))))" @@ -15016,7 +15023,7 @@ static const char *startup_source = "(begin" " 'add-local-binding!37" "(let-values(((id_16) id34_0))" -"(let-values(((phase_37) phase35_0))" +"(let-values(((phase_38) phase35_0))" "(let-values(((counter_1) counter36_0))" "(let-values(((frame-id_5) frame-id30_0))" "(let-values(((in-s_4) in31_0))" @@ -15026,7 +15033,7 @@ static const char *startup_source = "(let-values(((key_43)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_16) (unbox counter_1)))))" "(begin" -"(let-values(((temp62_1)(syntax-scope-set id_16 phase_37))" +"(let-values(((temp62_1)(syntax-scope-set id_16 phase_38))" "((temp63_1)(syntax-e$1 id_16))" "((temp64_1)" "(let-values(((key65_0) key_43)((frame-id66_0) frame-id_5))" @@ -15049,7 +15056,7 @@ static const char *startup_source = "(let-values(((env_1) env45_0))" "(let-values(((lift-envs_0) lift-envs46_0))" "(let-values(((ns_44) ns47_0))" -"(let-values(((phase_38) phase48_0))" +"(let-values(((phase_39) phase48_0))" "(let-values(((id_18) id49_0))" "(let-values(((in-s_6) in40_0))" "(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?41_0))" @@ -15059,7 +15066,7 @@ static const char *startup_source = "(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_60))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_60 ns_44 phase_38 id_18)" +"(binding->module-instance b_60 ns_44 phase_39 id_18)" " #f)))" "(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))" "(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))" @@ -15155,7 +15162,7 @@ static const char *startup_source = "(define-values(cons-ish)(lambda(a_37 b_61)(begin(if(null? b_61) a_37(cons a_37 b_61)))))" "(define-values" "(free-id-set)" -"(lambda(phase_39 ids_0)" +"(lambda(phase_40 ids_0)" "(begin" "(let-values(((lst_75) ids_0))" "(begin" @@ -15173,7 +15180,7 @@ static const char *startup_source = "(let-values(((sym_24)" "(identifier-binding-symbol$1" " id_10" -" phase_39)))" +" phase_40)))" "(hash-set" " ht_75" " sym_24" @@ -15190,11 +15197,11 @@ static const char *startup_source = "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" "(free-id-set-member?)" -"(lambda(fs_1 phase_40 given-id_0)" +"(lambda(fs_1 phase_41 given-id_0)" "(begin" "(if(free-id-set-empty? fs_1)" " #f" -"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_40) null)))" +"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))" "(begin" "(void)" "((letrec-values(((for-loop_96)" @@ -15212,8 +15219,8 @@ static const char *startup_source = "(free-identifier=?$1" " id_2" " given-id_0" -" phase_40" -" phase_40)))))" +" phase_41" +" phase_41)))))" "(values result_62)))))" "(if(if(not((lambda x_41 result_61) id_2))(not #f) #f)" "(for-loop_96 result_61 rest_36)" @@ -15348,7 +15355,7 @@ static const char *startup_source = " lift-key_1" " to-parsed?_0" " context_0" -" phase_41" +" phase_42" " namespace_0" " env_2" " post-expansion-scope-action_0" @@ -15388,7 +15395,7 @@ static const char *startup_source = " counter_2" " lift-key_1" " to-parsed?_0" -" phase_41" +" phase_42" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -15563,28 +15570,29 @@ static const char *startup_source = "(let-values(((the-struct_41) v_131))" "(if(expand-context/outer? the-struct_41)" "(let-values(((post-expansion-scope27_0)(root-expand-context-post-expansion-scope root-ctx_2))" -"((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" -"((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" -"((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" -"((inner31_0)" +"((post-expansion-shifts28_0)(root-expand-context-post-expansion-shifts root-ctx_2))" +"((use-site-scopes29_0)(root-expand-context-use-site-scopes root-ctx_2))" +"((frame-id30_1)(root-expand-context-frame-id root-ctx_2))" +"((binding-layer31_0)(root-expand-context-frame-id root-ctx_2))" +"((inner32_0)" "(let-values(((the-struct_42)(root-expand-context/outer-inner v_131)))" "(if(expand-context/inner? the-struct_42)" -"(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))" -"((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" -"((top-level-bind-scope34_0)" +"(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))" +"((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))" +"((top-level-bind-scope35_0)" "(root-expand-context-top-level-bind-scope root-ctx_2))" -"((all-scopes-stx35_0)(root-expand-context-all-scopes-stx root-ctx_2))" -"((defined-syms36_0)(root-expand-context-defined-syms root-ctx_2))" -"((counter37_0)(root-expand-context-counter root-ctx_2))" -"((lift-key38_0)(root-expand-context-lift-key root-ctx_2)))" +"((all-scopes-stx36_0)(root-expand-context-all-scopes-stx root-ctx_2))" +"((defined-syms37_0)(root-expand-context-defined-syms root-ctx_2))" +"((counter38_0)(root-expand-context-counter root-ctx_2))" +"((lift-key39_0)(root-expand-context-lift-key root-ctx_2)))" "(expand-context/inner2.1" -" self-mpi32_0" -" module-scopes33_0" -" top-level-bind-scope34_0" -" all-scopes-stx35_0" -" defined-syms36_0" -" counter37_0" -" lift-key38_0" +" self-mpi33_0" +" module-scopes34_0" +" top-level-bind-scope35_0" +" all-scopes-stx36_0" +" defined-syms37_0" +" counter38_0" +" lift-key39_0" "(expand-context/inner-to-parsed? the-struct_42)" "(expand-context/inner-phase the-struct_42)" "(expand-context/inner-namespace the-struct_42)" @@ -15606,17 +15614,17 @@ static const char *startup_source = "(expand-context/inner-should-not-encounter-macros? the-struct_42)))" " (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_42)))))" "(expand-context/outer1.1" -" inner31_0" +" inner32_0" " post-expansion-scope27_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_41)" -" use-site-scopes28_0" -" frame-id29_0" +" post-expansion-shifts28_0" +" use-site-scopes29_0" +" frame-id30_1" "(expand-context/outer-context the-struct_41)" "(expand-context/outer-env the-struct_41)" "(expand-context/outer-post-expansion-scope-action the-struct_41)" "(expand-context/outer-scopes the-struct_41)" "(expand-context/outer-def-ctx-scopes the-struct_41)" -" binding-layer30_0" +" binding-layer31_0" "(expand-context/outer-reference-records the-struct_41)" "(expand-context/outer-only-immediate? the-struct_41)" "(expand-context/outer-need-eventually-defined the-struct_41)" @@ -15633,9 +15641,9 @@ static const char *startup_source = "(let-values(((who_10) who15_0))" "(let-values(((fail-ok?_0) fail-ok?13_0))" "(let-values()" -"(let-values(((or-part_110)(force(current-expand-context))))" -"(if or-part_110" -" or-part_110" +"(let-values(((or-part_160)(force(current-expand-context))))" +"(if or-part_160" +" or-part_160" " (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" @@ -15643,8 +15651,8 @@ static const char *startup_source = " #f" "(lambda(v_132)" "(begin" -"(if(let-values(((or-part_94)(not v_132)))" -"(if or-part_94 or-part_94(if(procedure? v_132)(procedure-arity-includes? v_132 2) #f)))" +"(if(let-values(((or-part_161)(not v_132)))" +"(if or-part_161 or-part_161(if(procedure? v_132)(procedure-arity-includes? v_132 2) #f)))" "(void)" "(let-values()" " (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_132)))" @@ -15659,17 +15667,17 @@ static const char *startup_source = "(let-values(((v_133) ctx_2))" "(let-values(((the-struct_43) v_133))" "(if(expand-context/outer? the-struct_43)" -"(let-values(((context39_0) 'expression)" -"((name40_0) #f)" -"((post-expansion-scope41_0) #f)" -"((inner42_0)(root-expand-context/outer-inner v_133)))" +"(let-values(((context40_0) 'expression)" +"((name41_0) #f)" +"((post-expansion-scope42_0) #f)" +"((inner43_0)(root-expand-context/outer-inner v_133)))" "(expand-context/outer1.1" -" inner42_0" -" post-expansion-scope41_0" +" inner43_0" +" post-expansion-scope42_0" "(root-expand-context/outer-post-expansion-shifts the-struct_43)" "(root-expand-context/outer-use-site-scopes the-struct_43)" "(root-expand-context/outer-frame-id the-struct_43)" -" context39_0" +" context40_0" "(expand-context/outer-env the-struct_43)" "(expand-context/outer-post-expansion-scope-action the-struct_43)" "(expand-context/outer-scopes the-struct_43)" @@ -15680,7 +15688,7 @@ static const char *startup_source = "(expand-context/outer-need-eventually-defined the-struct_43)" "(expand-context/outer-current-introduction-scopes the-struct_43)" "(expand-context/outer-current-use-scopes the-struct_43)" -" name40_0))" +" name41_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))))" "(define-values" "(as-begin-expression-context)" @@ -15692,9 +15700,9 @@ static const char *startup_source = "(let-values(((v_134) ctx_3))" "(let-values(((the-struct_44) v_134))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_134)))" +"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_134)))" "(expand-context/outer1.1" -" inner44_0" +" inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_44)" "(root-expand-context/outer-post-expansion-shifts the-struct_44)" "(root-expand-context/outer-use-site-scopes the-struct_44)" @@ -15710,7 +15718,7 @@ static const char *startup_source = "(expand-context/outer-need-eventually-defined the-struct_44)" "(expand-context/outer-current-introduction-scopes the-struct_44)" "(expand-context/outer-current-use-scopes the-struct_44)" -" name43_0))" +" name44_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))))" "(define-values" "(as-tail-context22.1)" @@ -15723,12 +15731,42 @@ static const char *startup_source = "(if(expand-context-name wrt-ctx_0)" "(let-values()" "(let-values(((v_135) ctx_4))" -"(let-values(((the-struct_45) v_135))" -"(if(expand-context/outer? the-struct_45)" -"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" -"((inner46_0)(root-expand-context/outer-inner v_135)))" +"(let-values(((the-struct_19) v_135))" +"(if(expand-context/outer? the-struct_19)" +"(let-values(((name46_0)(expand-context-name wrt-ctx_0))" +"((inner47_0)(root-expand-context/outer-inner v_135)))" "(expand-context/outer1.1" -" inner46_0" +" inner47_0" +"(root-expand-context/outer-post-expansion-scope the-struct_19)" +"(root-expand-context/outer-post-expansion-shifts the-struct_19)" +"(root-expand-context/outer-use-site-scopes the-struct_19)" +"(root-expand-context/outer-frame-id the-struct_19)" +"(expand-context/outer-context the-struct_19)" +"(expand-context/outer-env the-struct_19)" +"(expand-context/outer-post-expansion-scope-action the-struct_19)" +"(expand-context/outer-scopes the-struct_19)" +"(expand-context/outer-def-ctx-scopes the-struct_19)" +"(expand-context/outer-binding-layer the-struct_19)" +"(expand-context/outer-reference-records the-struct_19)" +"(expand-context/outer-only-immediate? the-struct_19)" +"(expand-context/outer-need-eventually-defined the-struct_19)" +"(expand-context/outer-current-introduction-scopes the-struct_19)" +"(expand-context/outer-current-use-scopes the-struct_19)" +" name46_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_19)))))" +"(let-values() ctx_4))))))))" +"(define-values" +"(as-named-context)" +"(lambda(ctx_5 ids_1)" +"(begin" +"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" +"(let-values()" +"(let-values(((v_136) ctx_5))" +"(let-values(((the-struct_45) v_136))" +"(if(expand-context/outer? the-struct_45)" +"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_136)))" +"(expand-context/outer1.1" +" inner49_0" "(root-expand-context/outer-post-expansion-scope the-struct_45)" "(root-expand-context/outer-post-expansion-shifts the-struct_45)" "(root-expand-context/outer-use-site-scopes the-struct_45)" @@ -15744,21 +15782,52 @@ static const char *startup_source = "(expand-context/outer-need-eventually-defined the-struct_45)" "(expand-context/outer-current-introduction-scopes the-struct_45)" "(expand-context/outer-current-use-scopes the-struct_45)" -" name45_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" -"(let-values() ctx_4))))))))" +" name48_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" +"(let-values() ctx_5)))))" "(define-values" -"(as-named-context)" -"(lambda(ctx_5 ids_1)" +"(as-to-parsed-context)" +"(lambda(ctx_6)" "(begin" -"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" -"(let-values()" -"(let-values(((v_136) ctx_5))" -"(let-values(((the-struct_46) v_136))" +"(let-values(((v_137) ctx_6))" +"(let-values(((the-struct_46) v_137))" "(if(expand-context/outer? the-struct_46)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_136)))" +"(let-values(((inner50_0)" +"(let-values(((the-struct_47)(root-expand-context/outer-inner v_137)))" +"(if(expand-context/inner? the-struct_47)" +"(let-values(((to-parsed?51_0) #t)" +"((observer52_0) #f)" +"((should-not-encounter-macros?53_0) #t))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi the-struct_47)" +"(root-expand-context/inner-module-scopes the-struct_47)" +"(root-expand-context/inner-top-level-bind-scope the-struct_47)" +"(root-expand-context/inner-all-scopes-stx the-struct_47)" +"(root-expand-context/inner-defined-syms the-struct_47)" +"(root-expand-context/inner-counter the-struct_47)" +"(root-expand-context/inner-lift-key the-struct_47)" +" to-parsed?51_0" +"(expand-context/inner-phase the-struct_47)" +"(expand-context/inner-namespace the-struct_47)" +"(expand-context/inner-just-once? the-struct_47)" +"(expand-context/inner-module-begin-k the-struct_47)" +"(expand-context/inner-allow-unbound? the-struct_47)" +"(expand-context/inner-in-local-expand? the-struct_47)" +"(expand-context/inner-keep-#%expression? the-struct_47)" +"(expand-context/inner-stops the-struct_47)" +"(expand-context/inner-declared-submodule-names the-struct_47)" +"(expand-context/inner-lifts the-struct_47)" +"(expand-context/inner-lift-envs the-struct_47)" +"(expand-context/inner-module-lifts the-struct_47)" +"(expand-context/inner-require-lifts the-struct_47)" +"(expand-context/inner-to-module-lifts the-struct_47)" +"(expand-context/inner-requires+provides the-struct_47)" +" observer52_0" +"(expand-context/inner-for-serializable? the-struct_47)" +" should-not-encounter-macros?53_0))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_47)))))" "(expand-context/outer1.1" -" inner48_0" +" inner50_0" "(root-expand-context/outer-post-expansion-scope the-struct_46)" "(root-expand-context/outer-post-expansion-shifts the-struct_46)" "(root-expand-context/outer-use-site-scopes the-struct_46)" @@ -15774,79 +15843,18 @@ static const char *startup_source = "(expand-context/outer-need-eventually-defined the-struct_46)" "(expand-context/outer-current-introduction-scopes the-struct_46)" "(expand-context/outer-current-use-scopes the-struct_46)" -" name47_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))" -"(let-values() ctx_5)))))" -"(define-values" -"(as-to-parsed-context)" -"(lambda(ctx_6)" -"(begin" -"(let-values(((v_137) ctx_6))" -"(let-values(((the-struct_2) v_137))" -"(if(expand-context/outer? the-struct_2)" -"(let-values(((inner49_0)" -"(let-values(((the-struct_20)(root-expand-context/outer-inner v_137)))" -"(if(expand-context/inner? the-struct_20)" -"(let-values(((to-parsed?50_0) #t)" -"((observer51_0) #f)" -"((should-not-encounter-macros?52_0) #t))" -"(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_20)" -"(root-expand-context/inner-module-scopes the-struct_20)" -"(root-expand-context/inner-top-level-bind-scope the-struct_20)" -"(root-expand-context/inner-all-scopes-stx the-struct_20)" -"(root-expand-context/inner-defined-syms the-struct_20)" -"(root-expand-context/inner-counter the-struct_20)" -"(root-expand-context/inner-lift-key the-struct_20)" -" to-parsed?50_0" -"(expand-context/inner-phase the-struct_20)" -"(expand-context/inner-namespace the-struct_20)" -"(expand-context/inner-just-once? the-struct_20)" -"(expand-context/inner-module-begin-k the-struct_20)" -"(expand-context/inner-allow-unbound? the-struct_20)" -"(expand-context/inner-in-local-expand? the-struct_20)" -"(expand-context/inner-keep-#%expression? the-struct_20)" -"(expand-context/inner-stops the-struct_20)" -"(expand-context/inner-declared-submodule-names the-struct_20)" -"(expand-context/inner-lifts the-struct_20)" -"(expand-context/inner-lift-envs the-struct_20)" -"(expand-context/inner-module-lifts the-struct_20)" -"(expand-context/inner-require-lifts the-struct_20)" -"(expand-context/inner-to-module-lifts the-struct_20)" -"(expand-context/inner-requires+provides the-struct_20)" -" observer51_0" -"(expand-context/inner-for-serializable? the-struct_20)" -" should-not-encounter-macros?52_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_20)))))" -"(expand-context/outer1.1" -" inner49_0" -"(root-expand-context/outer-post-expansion-scope the-struct_2)" -"(root-expand-context/outer-post-expansion-shifts the-struct_2)" -"(root-expand-context/outer-use-site-scopes the-struct_2)" -"(root-expand-context/outer-frame-id the-struct_2)" -"(expand-context/outer-context the-struct_2)" -"(expand-context/outer-env the-struct_2)" -"(expand-context/outer-post-expansion-scope-action the-struct_2)" -"(expand-context/outer-scopes the-struct_2)" -"(expand-context/outer-def-ctx-scopes the-struct_2)" -"(expand-context/outer-binding-layer the-struct_2)" -"(expand-context/outer-reference-records the-struct_2)" -"(expand-context/outer-only-immediate? the-struct_2)" -"(expand-context/outer-need-eventually-defined the-struct_2)" -"(expand-context/outer-current-introduction-scopes the-struct_2)" -"(expand-context/outer-current-use-scopes the-struct_2)" -"(expand-context/outer-name the-struct_2)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_2)))))))" +"(expand-context/outer-name the-struct_46)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_170)" +"(lambda(s_169)" "(begin" " 'to-syntax-list" -"(if(list? s_170)" -"(let-values() s_170)" -"(if(pair? s_170)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_170))))(if r_28(cons(car s_170) r_28) #f)))" -"(if(syntax?$1 s_170)(let-values()(to-syntax-list.1(syntax-e$1 s_170)))(let-values() #f)))))))" +"(if(list? s_169)" +"(let-values() s_169)" +"(if(pair? s_169)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_169))))(if r_28(cons(car s_169) r_28) #f)))" +"(if(syntax?$1 s_169)(let-values()(to-syntax-list.1(syntax-e$1 s_169)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -15855,23 +15863,23 @@ static const char *startup_source = "(define-values(id-cache-1)(make-hasheq))" "(define-values" "(core-id)" -"(lambda(sym_12 phase_34)" +"(lambda(sym_12 phase_35)" "(begin" -"(if(eqv? phase_34 0)" +"(if(eqv? phase_35 0)" "(let-values()" "(let-values(((or-part_6)(hash-ref id-cache-0 sym_12 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_171)(datum->syntax$1 core-stx sym_12)))" -"(begin(hash-set! id-cache-0 sym_12 s_171) s_171)))))" -"(if(eq? phase_34 1)" +"(let-values(((s_170)(datum->syntax$1 core-stx sym_12)))" +"(begin(hash-set! id-cache-0 sym_12 s_170) s_170)))))" +"(if(eq? phase_35 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_12 #f)))" "(if or-part_28" " or-part_28" "(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_12)))" "(begin(hash-set! id-cache-1 sym_12 s_10) s_10)))))" -"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_34) sym_12)))))))" +"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_35) sym_12)))))))" "(define-values(core-forms) '#hasheq())" "(define-values(core-primitives) '#hasheq())" "(define-values" @@ -16036,7 +16044,7 @@ static const char *startup_source = "((temp16_1)" "(lambda(data-box_1" " ns_49" -" phase_42" +" phase_43" " phase-level_15" " self_5" " bulk-binding-registry_4" @@ -16145,29 +16153,29 @@ static const char *startup_source = "(declare-module!58.1 #t ns7_0 temp8_0 core-module-name9_0)))))" "(define-values" "(core-form-sym)" -"(lambda(s_19 phase_43)" +"(lambda(s_19 phase_44)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_172) s_19))" -"(if(let-values(((s_85)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" +"(let-values(((s_171) s_19))" +"(if(let-values(((s_85)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" "(if(pair? s_85)" -"(if(let-values(((s_173)(car s_85)))" -"(let-values(((or-part_159)(if(syntax?$1 s_173)(symbol?(syntax-e$1 s_173)) #f)))" -"(if or-part_159 or-part_159(symbol? s_173))))" -"(let-values(((s_174)(cdr s_85))) #t)" +"(if(let-values(((s_172)(car s_85)))" +"(let-values(((or-part_162)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" +"(if or-part_162 or-part_162(symbol? s_172))))" +"(let-values(((s_173)(cdr s_85))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_175)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" -"(let-values(((id25_0)(let-values(((s_176)(car s_175))) s_176))" -"((_26_0)(let-values(((s_177)(cdr s_175))) s_177)))" +"(let-values(((s_174)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(let-values(((id25_0)(let-values(((s_175)(car s_174))) s_175))" +"((_26_0)(let-values(((s_176)(cdr s_174))) s_176)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" "(if ok?_0" "(let-values(((b_63)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_43))" +"(let-values(((temp27_1) id23_0)((phase28_0) phase_44))" "(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_1 phase28_0))))" "(if(module-binding? b_63)" "(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_63)))" @@ -16177,7 +16185,7 @@ static const char *startup_source = " #f)))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_6 phase_33)" +"(lambda(s_0 proc_6 phase_34)" "(begin" "((letrec-values(((loop_81)" "(lambda(s_73 mode_11)" @@ -16191,19 +16199,19 @@ static const char *startup_source = "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_178)" +"(let-values(((s_177)" "(let-values(((or-part_13)(syntax->list$1 s_73)))" "(if or-part_13 or-part_13(syntax-e$1 s_73))))" "((f_1)(lambda(tail?_40 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_179)" +"(lambda(s_178)" "(begin" " 's->" "(loop_81" -" s_179" -"(syntax-taint-mode-property s_179)))))" +" s_178" +"(syntax-taint-mode-property s_178)))))" "((seen_19) #f))" -"(let-values(((s_180) s_178)" +"(let-values(((s_179) s_177)" "((f_2) f_1)" "((gf_8)" "(lambda(tail?_41 v_31)" @@ -16224,8 +16232,8 @@ static const char *startup_source = "(datum-map-slow" " tail?_42" " s_4" -"(lambda(tail?_43 s_181)" -"(gf_8 tail?_43 s_181))" +"(lambda(tail?_43 s_180)" +"(gf_8 tail?_43 s_180))" " seen_20))" "(if(null? s_4)" "(let-values()(f_2 tail?_42 s_4))" @@ -16267,10 +16275,10 @@ static const char *startup_source = " tail?_42" " s_4" "(lambda(tail?_44" -" s_182)" +" s_181)" "(gf_8" " tail?_44" -" s_182))" +" s_181))" " seen_20))" "(let-values()" "(gf_8" @@ -16278,7 +16286,7 @@ static const char *startup_source = " s_4))))))))))))))" " loop_82)" " #f" -" s_180" +" s_179" " 0)))))" "(datum->syntax$1" " #f" @@ -16306,17 +16314,17 @@ static const char *startup_source = "(cons" "(loop_81(car d_19) 'transparent)" "(let-values(((s_5)" -"(let-values(((or-part_160)" +"(let-values(((or-part_163)" "(syntax->list$1(cdr d_19))))" -"(if or-part_160 or-part_160(cdr d_19))))" +"(if or-part_163 or-part_163(cdr d_19))))" "((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_183)" +"(lambda(s_182)" "(begin" " 's->" "(loop_81" -" s_183" -"(syntax-taint-mode-property s_183)))))" +" s_182" +"(syntax-taint-mode-property s_182)))))" "((seen_0) #f))" "(let-values(((s_42) s_5)" "((f_39) f_38)" @@ -16329,7 +16337,7 @@ static const char *startup_source = "(let-values()(f_38 tail?_45 v_41))))))" "((seen_21) seen_0))" "((letrec-values(((loop_83)" -"(lambda(tail?_46 s_184 prev-depth_9)" +"(lambda(tail?_46 s_183 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16340,66 +16348,66 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_184" -"(lambda(tail?_47 s_185)" -"(gf_9 tail?_47 s_185))" +" s_183" +"(lambda(tail?_47 s_184)" +"(gf_9 tail?_47 s_184))" " seen_21))" -"(if(null? s_184)" +"(if(null? s_183)" "(let-values()" -"(f_39 tail?_46 s_184))" -"(if(pair? s_184)" +"(f_39 tail?_46 s_183))" +"(if(pair? s_183)" "(let-values()" "(f_39" " tail?_46" "(cons" "(loop_83" " #f" -"(car s_184)" +"(car s_183)" " depth_9)" "(loop_83" " #t" -"(cdr s_184)" +"(cdr s_183)" " depth_9))))" -"(if(symbol? s_184)" +"(if(symbol? s_183)" "(let-values()" -"(f_39 #f s_184))" -"(if(boolean? s_184)" +"(f_39 #f s_183))" +"(if(boolean? s_183)" "(let-values()" -"(f_39 #f s_184))" -"(if(number? s_184)" +"(f_39 #f s_183))" +"(if(number? s_183)" "(let-values()" -"(f_39 #f s_184))" -"(if(let-values(((or-part_161)" +"(f_39 #f s_183))" +"(if(let-values(((or-part_164)" "(vector?" -" s_184)))" -"(if or-part_161" -" or-part_161" +" s_183)))" +"(if or-part_164" +" or-part_164" "(let-values(((or-part_21)" "(box?" -" s_184)))" +" s_183)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_162)" +"(let-values(((or-part_165)" "(prefab-struct-key" -" s_184)))" -"(if or-part_162" -" or-part_162" +" s_183)))" +"(if or-part_165" +" or-part_165" "(hash?" -" s_184)))))))" +" s_183)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_184" +" s_183" "(lambda(tail?_48" -" s_186)" +" s_185)" "(gf_9" " tail?_48" -" s_186))" +" s_185))" " seen_21))" "(let-values()" "(gf_9" " #f" -" s_184))))))))))))))" +" s_183))))))))))))))" " loop_83)" " #f" " s_42" @@ -16412,7 +16420,7 @@ static const char *startup_source = "(let-values()(loop_81 s_73 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_73)))" -"(let-values(((tmp_15)(core-form-sym c_20 phase_33)))" +"(let-values(((tmp_15)(core-form-sym c_20 phase_34)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" @@ -16429,17 +16437,17 @@ static const char *startup_source = "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_187)" +"(lambda(s_186)" "(begin" -"(let-values(((or-part_163)(syntax-property$1 s_187 'taint-mode)))" -"(if or-part_163 or-part_163(syntax-property$1 s_187 'certify-mode))))))" +"(let-values(((or-part_166)(syntax-property$1 s_186 'taint-mode)))" +"(if or-part_166 or-part_166(syntax-property$1 s_186 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_188)(begin(1/syntax-property-remove(1/syntax-property-remove s_188 'taint-mode) 'certify-mode))))" +"(lambda(s_187)(begin(1/syntax-property-remove(1/syntax-property-remove s_187 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_44 all-bindings?_0)" +"(lambda(s_0 phase_45 all-bindings?_0)" "(begin" " 'syntax-debug-info" "(let-values(((hts_0)" @@ -16473,7 +16481,7 @@ static const char *startup_source = "(scope-set-at-fallback" " s_0" " smss_26" -" phase_44)))" +" phase_45)))" "(let-values(((context_1)" "(scope-set->context" " s-scs_0)))" @@ -16558,7 +16566,7 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_118)))))" -"((s_189)" +"((s_188)" " s_0)" "((extra-shifts_5)" " null))" @@ -16598,7 +16606,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_189" +" s_188" " extra-shifts_5)" " sym_18" " #f)" @@ -16951,9 +16959,9 @@ static const char *startup_source = "(syntax-debug-info-string id_20 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_190 ctx_8)" +"(lambda(s_189 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_190(expand-context-phase ctx_8) #f)))" +"(let-values(((info_3)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #f)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -17089,22 +17097,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_108)" -"(lambda(s_183 lst_91)" +"(lambda(s_182 lst_91)" "(begin" " 'for-loop" "(if(pair? lst_91)" "(let-values(((l_48)(unsafe-car lst_91))" "((rest_43)(unsafe-cdr lst_91)))" "(let-values(((s_89)" -"(let-values(((s_43) s_183))" -"(let-values(((s_191)" +"(let-values(((s_43) s_182))" +"(let-values(((s_190)" "(let-values()" "(set-intersect" " s_43" "(list->set l_48)))))" -"(values s_191)))))" +"(values s_190)))))" "(if(not #f)(for-loop_108 s_89 rest_43) s_89)))" -" s_183)))))" +" s_182)))))" " for-loop_108)" "(list->set(car relevant-scope-sets_0))" " lst_90))))))" @@ -17249,16 +17257,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_97)" -"(let-values(((s_192)(unsafe-car lst_97))" +"(let-values(((s_191)(unsafe-car lst_97))" "((rest_46)(unsafe-cdr lst_97)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_80))" -"(if(set-member? common-scopes_0 s_192)" +"(if(set-member? common-scopes_0 s_191)" "(let-values(((fold-var_5) fold-var_82))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_192)" +"(let-values() s_191)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_82))))" @@ -17359,7 +17367,7 @@ static const char *startup_source = "(raise-syntax-implicit-error)" "(lambda(s_0 sym_31 trigger-id_0 ctx_8)" "(begin" -"(let-values(((phase_45)(expand-context-phase ctx_8)))" +"(let-values(((phase_46)(expand-context-phase ctx_8)))" "(let-values(((what_1)" "(let-values(((tmp_16) sym_31))" "(if(equal? tmp_16 '#%app)" @@ -17375,7 +17383,7 @@ static const char *startup_source = "(let-values(((unbound?_0)" "(if trigger-id_0" "(not" -"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_45))" +"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_46))" "(resolve40.1 #f #f null #f trigger-id1_0 phase2_1)))" " #f)))" "(let-values(((unbound-form_0)" @@ -17387,12 +17395,12 @@ static const char *startup_source = " \"unbound identifier;\\n also, no ~a syntax transformer is bound~a\"" " (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" " sym_31" -"(let-values(((tmp_17) phase_45))" +"(let-values(((tmp_17) phase_46))" "(if(equal? tmp_17 0)" " (let-values () \"\")" "(if(equal? tmp_17 1)" " (let-values () \" in the transformer phase\")" -" (let-values () (format \" at phase ~a\" phase_45))))))" +" (let-values () (format \" at phase ~a\" phase_46))))))" "(if unbound?_0(let-values(((or-part_13) unbound-form_0))(if or-part_13 or-part_13 trigger-id_0)) #f)" "(if unbound?_0(if unbound-form_0 trigger-id_0 #f) s_0)" " null" @@ -17404,7 +17412,7 @@ static const char *startup_source = "(begin" " 'check-no-duplicate-ids7" "(let-values(((ids_2) ids4_0))" -"(let-values(((phase_46) phase5_0))" +"(let-values(((phase_47) phase5_0))" "(let-values(((s_3) s6_0))" "(let-values(((ht_74)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))" " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" @@ -17439,7 +17447,7 @@ static const char *startup_source = "(if(bound-identifier=?$1" " id_21" " v_139" -" phase_46)" +" phase_47)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -17543,7 +17551,7 @@ static const char *startup_source = "(begin" " 'make-compile-context14" "(let-values(((namespace_1)(if(eq? namespace2_0 unsafe-undefined)(1/current-namespace) namespace2_0)))" -"(let-values(((phase_47)(if(eq? phase3_1 unsafe-undefined)(namespace-phase namespace_1) phase3_1)))" +"(let-values(((phase_48)(if(eq? phase3_1 unsafe-undefined)(namespace-phase namespace_1) phase3_1)))" "(let-values(((self_6)(if(eq? self4_1 unsafe-undefined)(namespace-self-mpi namespace_1) self4_1)))" "(let-values(((module-self_0) module-self5_0))" "(let-values(((full-module-name_0) full-module-name6_0))" @@ -17558,7 +17566,7 @@ static const char *startup_source = "(void))" "(compile-context1.1" " namespace_1" -" phase_47" +" phase_48" " self_6" " module-self_0" " full-module-name_0" @@ -17615,18 +17623,18 @@ static const char *startup_source = "(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" " mpi_20" -"(let-values(((the-struct_47) mpi_20))" -"(if(1/module-path-index? the-struct_47)" +"(let-values(((the-struct_48) mpi_20))" +"(if(1/module-path-index? the-struct_48)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_47)" +"(module-path-index-path the-struct_48)" " base3_0" -"(module-path-index-resolved the-struct_47)" -"(module-path-index-shift-cache the-struct_47)))" +"(module-path-index-resolved the-struct_48)" +"(module-path-index-shift-cache the-struct_48)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_47))))))" +" the-struct_48))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" "(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 i-mpi_0) i-mpi_0))))))))))))" "(define-values(built-in-symbols)(make-hasheq))" @@ -17634,9 +17642,9 @@ static const char *startup_source = "(define-values(built-in-symbol?)(lambda(s_72)(begin(hash-ref built-in-symbols s_72 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_190)" +"(lambda(s_189)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_190))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_189))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17958,13 +17966,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_164)" +"(let-values(((or-part_167)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_26)))))" -"(if or-part_164" -" or-part_164" +"(if or-part_167" +" or-part_167" " 'self))))" "(if(not" " base_17)" @@ -18217,19 +18225,19 @@ static const char *startup_source = "(interned-literal?)" "(lambda(v_143)" "(begin" -"(let-values(((or-part_165)(null? v_143)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_166)(boolean? v_143)))" -"(if or-part_166" -" or-part_166" -"(let-values(((or-part_138)" +"(let-values(((or-part_168)(null? v_143)))" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_169)(boolean? v_143)))" +"(if or-part_169" +" or-part_169" +"(let-values(((or-part_139)" "(if(fixnum? v_143)(if(< v_143(sub1(expt 2 30)))(> v_143(-(expt 2 30))) #f) #f)))" -"(if or-part_138" -" or-part_138" -"(let-values(((or-part_167)(symbol? v_143)))" -"(if or-part_167" -" or-part_167" +"(if or-part_139" +" or-part_139" +"(let-values(((or-part_170)(symbol? v_143)))" +"(if or-part_170" +" or-part_170" "(let-values(((or-part_46)(char? v_143)))(if or-part_46 or-part_46(keyword? v_143))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" @@ -18247,14 +18255,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_101 lst_107)" +"(lambda(fold-var_101 lst_50)" "(begin" " 'for-loop" -"(if(pair? lst_107)" -"(let-values(((phase_9)(unsafe-car lst_107))((rest_53)(unsafe-cdr lst_107)))" +"(if(pair? lst_50)" +"(let-values(((phase_9)(unsafe-car lst_50))((rest_53)(unsafe-cdr lst_50)))" "(let-values(((fold-var_102)" -"(let-values(((fold-var_36) fold-var_101))" -"(let-values(((fold-var_37)" +"(let-values(((fold-var_103) fold-var_101))" +"(let-values(((fold-var_104)" "(let-values()" "(cons" "(let-values()" @@ -18267,8 +18275,8 @@ static const char *startup_source = " phase-to-link-module-uses_0" " phase_9)" " mpis_5))))" -" fold-var_36))))" -"(values fold-var_37)))))" +" fold-var_103))))" +"(values fold-var_104)))))" "(if(not #f)(for-loop_122 fold-var_102 rest_53) fold-var_102)))" " fold-var_101)))))" " for-loop_122)" @@ -18305,11 +18313,11 @@ static const char *startup_source = "(lambda(v_148)" "(begin" " 'loop" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_171)" "(interned-literal?" " v_148)))" -"(if or-part_168" -" or-part_168" +"(if or-part_171" +" or-part_171" "(1/module-path-index?" " v_148)))" "(let-values()(void))" @@ -18372,11 +18380,11 @@ static const char *startup_source = "(if(vector?" " v_148)" "(let-values()" -"(if(let-values(((or-part_169)" +"(if(let-values(((or-part_172)" "(immutable?" " v_148)))" -"(if or-part_169" -" or-part_169" +"(if or-part_172" +" or-part_172" "(zero?" "(vector-length" " v_148))))" @@ -18501,7 +18509,7 @@ static const char *startup_source = "(if(immutable?" " v_148)" "(begin" -"(let-values(((lst_108)" +"(let-values(((lst_107)" "(sorted-hash-keys" " v_148)))" "(begin" @@ -18510,19 +18518,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" +" lst_107)))" "((letrec-values(((for-loop_124)" -"(lambda(lst_109)" +"(lambda(lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" +" lst_108)" "(let-values(((k_21)" "(unsafe-car" -" lst_109))" +" lst_108))" "((rest_54)" "(unsafe-cdr" -" lst_109)))" +" lst_108)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18545,7 +18553,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_124)" -" lst_108)))" +" lst_107)))" "(void))" "(begin" "(hash-set!" @@ -18554,7 +18562,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_110)" +"(let-values(((lst_109)" "(sorted-hash-keys" " v_148)))" "(begin" @@ -18563,19 +18571,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_110)))" +" lst_109)))" "((letrec-values(((for-loop_125)" -"(lambda(lst_111)" +"(lambda(lst_110)" "(begin" " 'for-loop" "(if(pair?" -" lst_111)" +" lst_110)" "(let-values(((k_22)" "(unsafe-car" -" lst_111))" +" lst_110))" "((rest_55)" "(unsafe-cdr" -" lst_111)))" +" lst_110)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18598,7 +18606,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_125)" -" lst_110)))" +" lst_109)))" "(void)))))" "(if(prefab-struct-key" " v_148)" @@ -18729,25 +18737,25 @@ static const char *startup_source = "(let-values(((l_50) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_112) l_50))" +"(let-values(((lst_111) l_50))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_112)))" +"(check-list lst_111)))" "((letrec-values(((for-loop_128)" -"(lambda(lst_113)" +"(lambda(lst_112)" "(begin" " 'for-loop" "(if(pair?" -" lst_113)" +" lst_112)" "(let-values(((v_149)" "(unsafe-car" -" lst_113))" +" lst_112))" "((rest_56)" "(unsafe-cdr" -" lst_113)))" +" lst_112)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18765,7 +18773,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_128)" -" lst_112)))" +" lst_111)))" "(void))))))))))" " frontier-loop_0)" " v_144)" @@ -18781,7 +18789,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_88)))" "((letrec-values(((for-loop_129)" -"(lambda(fold-var_103 i_108)" +"(lambda(fold-var_105 i_108)" "(begin" " 'for-loop" "(if i_108" @@ -18789,31 +18797,31 @@ static const char *startup_source = "(hash-iterate-key" " ht_88" " i_108)))" -"(let-values(((fold-var_104)" -"(let-values(((fold-var_105)" -" fold-var_103))" "(let-values(((fold-var_106)" +"(let-values(((fold-var_107)" +" fold-var_105))" +"(let-values(((fold-var_108)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " objs_0" " obj_0))" -" fold-var_105))))" +" fold-var_107))))" "(values" -" fold-var_106)))))" +" fold-var_108)))))" "(if(not #f)" "(for-loop_129" -" fold-var_104" +" fold-var_106" "(hash-iterate-next" " ht_88" " i_108))" -" fold-var_104)))" -" fold-var_103)))))" +" fold-var_106)))" +" fold-var_105)))))" " for-loop_129)" " null" "(hash-iterate-first ht_88)))))))" -"(let-values(((lst_114)" +"(let-values(((lst_113)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f share-steps12_0 <13_0)))" @@ -18821,19 +18829,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_114)))" +"(let-values()(check-list lst_113)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_130)" -"(lambda(table_124 lst_115 pos_25)" +"(lambda(table_124 lst_114 pos_25)" "(begin" " 'for-loop" -"(if(if(pair? lst_115) #t #f)" +"(if(if(pair? lst_114) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_115))" +"(unsafe-car lst_114))" "((rest_57)" -"(unsafe-cdr lst_115))" +"(unsafe-cdr lst_114))" "((pos_26) pos_25))" "(let-values(((table_125)" "(let-values(((table_35)" @@ -18860,7 +18868,7 @@ static const char *startup_source = " table_124)))))" " for-loop_130)" " '#hasheqv()" -" lst_114" +" lst_113" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18874,8 +18882,8 @@ static const char *startup_source = "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_170)(not(keyword? v_150))))" -"(if or-part_170 or-part_170(eq? '#:quote v_150))))))))" +"(let-values(((or-part_173)(not(keyword? v_150))))" +"(if or-part_173 or-part_173(eq? '#:quote v_150))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18993,7 +19001,7 @@ static const char *startup_source = "(length v_153))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_116)" +"(let-values(((lst_115)" " v_153))" "(begin" "(if(variable-reference-from-unsafe?" @@ -19001,20 +19009,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_116)))" +" lst_115)))" "((letrec-values(((for-loop_131)" "(lambda(all-quoted?_1" -" lst_117)" +" lst_116)" "(begin" " 'for-loop" "(if(pair?" -" lst_117)" +" lst_116)" "(let-values(((i_109)" "(unsafe-car" -" lst_117))" +" lst_116))" "((rest_58)" "(unsafe-cdr" -" lst_117)))" +" lst_116)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -19040,7 +19048,7 @@ static const char *startup_source = " all-quoted?_1)))))" " for-loop_131)" " #t" -" lst_116)))))" +" lst_115)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -19278,7 +19286,7 @@ static const char *startup_source = "(sorted-hash-keys" " v_153)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_56)" +"(let-values(((lst_117)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -19286,20 +19294,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_56)))" -"((letrec-values(((for-loop_76)" +" lst_117)))" +"((letrec-values(((for-loop_133)" "(lambda(all-quoted?_11" -" lst_57)" +" lst_118)" "(begin" " 'for-loop" "(if(pair?" -" lst_57)" +" lst_118)" "(let-values(((k_23)" "(unsafe-car" -" lst_57))" -"((rest_25)" +" lst_118))" +"((rest_59)" "(unsafe-cdr" -" lst_57)))" +" lst_118)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -19325,10 +19333,10 @@ static const char *startup_source = "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_171)" +"(let-values(((or-part_174)" " as-set?_0))" -"(if or-part_171" -" or-part_171" +"(if or-part_174" +" or-part_174" "(quoted?_0" " v-pos_1)))" " #f)" @@ -19337,14 +19345,14 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_76" +"(for-loop_133" " all-quoted?_12" -" rest_25)" +" rest_59)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_76)" +" for-loop_133)" " #t" -" lst_56)))))" +" lst_117)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -19546,7 +19554,7 @@ static const char *startup_source = " vec_46))))))" "(begin" " #f" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_134)" "(lambda(pos_30)" "(begin" " 'for-loop" @@ -19569,13 +19577,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_134" "(unsafe-fx+" " 1" " pos_30))" "(values))))" "(values))))))" -" for-loop_133)" +" for-loop_134)" " 0)))" "(void)))" "(if(hash? v_80)" @@ -19596,25 +19604,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_80)))" "(begin" -"(let-values(((lst_118) ks_1))" +"(let-values(((lst_119) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_118)))" -"((letrec-values(((for-loop_134)" -"(lambda(lst_119)" +"(check-list lst_119)))" +"((letrec-values(((for-loop_135)" +"(lambda(lst_120)" "(begin" " 'for-loop" "(if(pair?" -" lst_119)" +" lst_120)" "(let-values(((k_25)" "(unsafe-car" -" lst_119))" -"((rest_59)" +" lst_120))" +"((rest_60)" "(unsafe-cdr" -" lst_119)))" +" lst_120)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19632,12 +19640,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_134" -" rest_59)" +"(for-loop_135" +" rest_60)" "(values))))" "(values))))))" -" for-loop_134)" -" lst_118)))" +" for-loop_135)" +" lst_119)))" "(void))))))" "(let-values()" "(error" @@ -19651,7 +19659,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_136)" "(lambda(table_126 i_113)" "(begin" " 'for-loop" @@ -19679,14 +19687,14 @@ static const char *startup_source = "(values" " table_127)))))" "(if(not #f)" -"(for-loop_135" +"(for-loop_136" " table_59" "(hash-iterate-next" " ht_90" " i_113))" " table_59)))" " table_126)))))" -" for-loop_135)" +" for-loop_136)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19702,7 +19710,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_137)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -19724,13 +19732,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_136" +"(for-loop_137" "(+" " pos_31" " inc_7))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_137)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19742,7 +19750,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_138)" "(lambda(table_128 i_60)" "(begin" " 'for-loop" @@ -19773,14 +19781,14 @@ static const char *startup_source = "(values" " table_131)))))" "(if(not #f)" -"(for-loop_137" +"(for-loop_138" " table_129" "(hash-iterate-next" " ht_91" " i_60))" " table_129)))" " table_128)))))" -" for-loop_137)" +" for-loop_138)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" @@ -19801,7 +19809,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_139)" "(lambda(pos_32)" "(begin" " 'for-loop" @@ -19824,13 +19832,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_138" +"(for-loop_139" "(+" " pos_32" " inc_8))" "(values))))" "(values))))))" -" for-loop_138)" +" for-loop_139)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19850,7 +19858,7 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_140)" "(lambda(pos_33)" "(begin" " 'for-loop" @@ -19873,13 +19881,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_139" +"(for-loop_140" "(+" " pos_33" " inc_9))" "(values))))" "(values))))))" -" for-loop_139)" +" for-loop_140)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19940,7 +19948,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_24 end_16 inc_10)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_141)" "(lambda(pos_34 pos_35)" "(begin" " 'for-loop" @@ -19965,9 +19973,9 @@ static const char *startup_source = " d_22)" " next-pos_0)))))" "(values pos_38)))))" -"(if(not #f)(for-loop_140 pos_36(+ pos_35 inc_10)) pos_36)))" +"(if(not #f)(for-loop_141 pos_36(+ pos_35 inc_10)) pos_36)))" " pos_34)))))" -" for-loop_140)" +" for-loop_141)" " 0" " start_24)))" "(values))))" @@ -19980,7 +19988,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_25 end_17 inc_11)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_142)" "(lambda(pos_39 pos_40)" "(begin" " 'for-loop" @@ -20005,9 +20013,9 @@ static const char *startup_source = " d_23)" " next-pos_1)))))" "(values pos_43)))))" -"(if(not #f)(for-loop_141 pos_41(+ pos_40 inc_11)) pos_41)))" +"(if(not #f)(for-loop_142 pos_41(+ pos_40 inc_11)) pos_41)))" " pos_39)))))" -" for-loop_141)" +" for-loop_142)" " 0" " start_25)))" "(values))))" @@ -20026,7 +20034,7 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_142)" +"((letrec-values(((for-loop_143)" "(lambda(pos_44 pos_45 pos_46)" "(begin" " 'for-loop" @@ -20046,13 +20054,13 @@ static const char *startup_source = " shared_0))))" "(values pos_49)))))" "(if(not #f)" -"(for-loop_142" +"(for-loop_143" " pos_47" "(+ pos_45 inc_12)" "(unsafe-fx+ 1 pos_46))" " pos_47)))" " pos_44)))))" -" for-loop_142)" +" for-loop_143)" " 0" " start_26" " 0)))" @@ -20332,7 +20340,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_143)" +"((letrec-values(((for-loop_144)" "(lambda(pos_52 pos_53)" "(begin" " 'for-loop" @@ -20364,10 +20372,10 @@ static const char *startup_source = " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" -"(for-loop_143 pos_54(+ pos_53 inc_13))" +"(for-loop_144 pos_54(+ pos_53 inc_13))" " pos_54)))" " pos_52)))))" -" for-loop_143)" +" for-loop_144)" "(+ pos_51 2)" " start_27)))))" "(values" @@ -20391,7 +20399,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_145)" "(lambda(ht_93 pos_57 pos_58)" "(begin" " 'for-loop" @@ -20428,10 +20436,10 @@ static const char *startup_source = " next-pos_25))))))" "(values ht_96 pos_61)))))" "(if(not #f)" -"(for-loop_144 ht_94 pos_59(+ pos_58 inc_14))" +"(for-loop_145 ht_94 pos_59(+ pos_58 inc_14))" "(values ht_94 pos_59))))" "(values ht_93 pos_57))))))" -" for-loop_144)" +" for-loop_145)" " ht_55" "(+ pos_51 2)" " start_28)))))))))))" @@ -20439,7 +20447,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 17)" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_193)" +"(let-values(((s_192)" "(let-values(((tmp_22)(vector*-ref vec_50 pos_51)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" @@ -20454,15 +20462,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" -"((letrec-values(((for-loop_145)" -"(lambda(s_194 pos_62 pos_63)" +"((letrec-values(((for-loop_146)" +"(lambda(s_193 pos_62 pos_63)" "(begin" " 'for-loop" "(if(< pos_63 end_21)" "(let-values()" -"(let-values(((s_195 pos_64)" -"(let-values(((s_196) s_194)((pos_65) pos_62))" -"(let-values(((s_197 pos_66)" +"(let-values(((s_194 pos_64)" +"(let-values(((s_195) s_193)((pos_65) pos_62))" +"(let-values(((s_196 pos_66)" "(let-values()" "(let-values(((k_28 next-pos_26)" "(decode" @@ -20473,15 +20481,15 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_196 k_28)" +"(set-add s_195 k_28)" " next-pos_26)))))" -"(values s_197 pos_66)))))" +"(values s_196 pos_66)))))" "(if(not #f)" -"(for-loop_145 s_195 pos_64(+ pos_63 inc_15))" -"(values s_195 pos_64))))" -"(values s_194 pos_62))))))" -" for-loop_145)" -" s_193" +"(for-loop_146 s_194 pos_64(+ pos_63 inc_15))" +"(values s_194 pos_64))))" +"(values s_193 pos_62))))))" +" for-loop_146)" +" s_192" "(+ pos_51 2)" " start_29))))))" "(if(unsafe-fx< index_0 16)" @@ -20503,7 +20511,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_147)" "(lambda(r_31 pos_67 pos_68)" "(begin" " 'for-loop" @@ -20530,10 +20538,10 @@ static const char *startup_source = " next-pos_29)))))" "(values r_34 pos_71)))))" "(if(not #f)" -"(for-loop_146 r_32 pos_69(+ pos_68 inc_16))" +"(for-loop_147 r_32 pos_69(+ pos_68 inc_16))" "(values r_32 pos_69))))" "(values r_31 pos_67))))))" -" for-loop_146)" +" for-loop_147)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20575,7 +20583,7 @@ static const char *startup_source = " shared_2)))" "(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))" "(let-values()" -"(let-values(((phase_48 next-pos_34)" +"(let-values(((phase_49 next-pos_34)" "(decode" " vec_50" "(add1 pos_51)" @@ -20591,7 +20599,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_48 multi-scope_2) next-pos_35))))))))" +"(values(deserialize-shifted-multi-scope phase_49 multi-scope_2) next-pos_35))))))))" "(if(unsafe-fx< index_0 24)" "(if(unsafe-fx< index_0 22)" "(let-values()" @@ -20628,7 +20636,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_49 next-pos_41)" +"(let-values(((phase_50 next-pos_41)" "(decode" " vec_50" " next-pos_40" @@ -20636,7 +20644,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_7 phase_49) next-pos_41))))))" +"(values(deserialize-representative-scope kind_7 phase_50) next-pos_41))))))" "(if(unsafe-fx< index_0 26)" "(if(unsafe-fx< index_0 25)" "(let-values()" @@ -20656,7 +20664,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_50 next-pos_44)" +"(let-values(((phase_51 next-pos_44)" "(decode" " vec_50" " next-pos_43" @@ -20724,7 +20732,7 @@ static const char *startup_source = "(deserialize-full-module-binding" " module_4" " sym_32" -" phase_50" +" phase_51" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -20750,7 +20758,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_51 next-pos_54)" +"(let-values(((phase_52 next-pos_54)" "(decode" " vec_50" " next-pos_53" @@ -20767,7 +20775,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_33 phase_51 nominal-module_5)" +"(deserialize-simple-module-binding module_5 sym_33 phase_52 nominal-module_5)" " next-pos_55)))))))" "(if(unsafe-fx< index_0 27)" "(let-values()" @@ -20895,7 +20903,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_31 end_23 inc_17)))" -"((letrec-values(((for-loop_147)" +"((letrec-values(((for-loop_148)" "(lambda(pos_73 pos_74)" "(begin" " 'for-loop" @@ -20917,9 +20925,9 @@ static const char *startup_source = "(vector-set! v_163 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" -"(if(not #f)(for-loop_147 pos_75(+ pos_74 inc_17)) pos_75)))" +"(if(not #f)(for-loop_148 pos_75(+ pos_74 inc_17)) pos_75)))" " pos_73)))))" -" for-loop_147)" +" for-loop_148)" "(+ pos_72 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" @@ -20930,7 +20938,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_32 end_24 inc_18)))" -"((letrec-values(((for-loop_148)" +"((letrec-values(((for-loop_149)" "(lambda(pos_78 pos_79)" "(begin" " 'for-loop" @@ -20960,9 +20968,9 @@ static const char *startup_source = "(hash-set! v_163 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" -"(if(not #f)(for-loop_148 pos_80(+ pos_79 inc_18)) pos_80)))" +"(if(not #f)(for-loop_149 pos_80(+ pos_79 inc_18)) pos_80)))" " pos_78)))))" -" for-loop_148)" +" for-loop_149)" "(+ pos_72 2)" " start_32)))))" "(if(equal? tmp_23 '#:scope-fill!)" @@ -21008,15 +21016,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_149)" -"(lambda(lst_120)" +"((letrec-values(((for-loop_150)" +"(lambda(lst_121)" "(begin" " 'for-loop" -"(if(pair? lst_120)" +"(if(pair? lst_121)" "(let-values(((proc_7)" -"(unsafe-car lst_120))" -"((rest_60)" -"(unsafe-cdr lst_120)))" +"(unsafe-car lst_121))" +"((rest_61)" +"(unsafe-cdr lst_121)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21028,10 +21036,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_149 rest_60)" +"(for-loop_150 rest_61)" "(values))))" "(values))))))" -" for-loop_149)" +" for-loop_150)" " lst_68)))" "(void)" "(hash-remove! scope-triggers_0 v_165)" @@ -21061,7 +21069,7 @@ static const char *startup_source = "(unsafe-vector-length vec_53))))))" "(begin" " #f" -"((letrec-values(((for-loop_150)" +"((letrec-values(((for-loop_151)" "(lambda(pos_83)" "(begin" " 'for-loop" @@ -21081,11 +21089,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_150" +"(for-loop_151" "(unsafe-fx+ 1 pos_83))" "(values))))" "(values))))))" -" for-loop_150)" +" for-loop_151)" " 0)))" "(void)))" "(if(box? v_165)" @@ -21099,7 +21107,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_151)" +"((letrec-values(((for-loop_152)" "(lambda(i_125)" "(begin" " 'for-loop" @@ -21122,13 +21130,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151" +"(for-loop_152" "(hash-iterate-next" " ht_97" " i_125))" "(values))))" "(values))))))" -" for-loop_151)" +" for-loop_152)" "(hash-iterate-first ht_97))))" "(void)))" "(if(prefab-struct-key v_165)" @@ -21147,7 +21155,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_152)" +"((letrec-values(((for-loop_153)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -21167,11 +21175,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152" +"(for-loop_153" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_153)" " start*_4)))" "(void)))" "(if(srcloc? v_165)" @@ -21190,12 +21198,12 @@ static const char *startup_source = "(lambda(s23_0 from-mpi24_0 to-mpi25_0 inspector22_0)" "(begin" " 'core26" -"(let-values(((s_198) s23_0))" +"(let-values(((s_197) s23_0))" "(let-values(((from-mpi_4) from-mpi24_0))" "(let-values(((to-mpi_3) to-mpi25_0))" "(let-values(((inspector_10) inspector22_0))" "(let-values()" -"(let-values(((s28_0) s_198)" +"(let-values(((s28_0) s_197)" "((from-mpi29_0) from-mpi_4)" "((to-mpi30_0) to-mpi_3)" "((inspector31_0) inspector_10))" @@ -21206,9 +21214,9 @@ static const char *startup_source = " to-mpi30_0" " inspector31_0)))))))))))" "(case-lambda" -"((s_199 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core26_0 s_199 from-mpi_5 to-mpi_4 #f)))" -"((s_200 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_200 from-mpi_6 to-mpi_5 inspector22_1))))))" +"((s_198 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core26_0 s_198 from-mpi_5 to-mpi_4 #f)))" +"((s_199 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_199 from-mpi_6 to-mpi_5 inspector22_1))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21808,9 +21816,9 @@ static const char *startup_source = "(module-path->mpi5.1 temp10_2 mod-path8_1 temp9_0)))))" "(define-values" "(syntax-mapped-names)" -"(lambda(s_0 phase_44)" +"(lambda(s_0 phase_45)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_44)))" +"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" "(let-values(((ht_98) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -22029,14 +22037,14 @@ static const char *startup_source = " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" "(let-values(((id_24) id16_0))" -"(let-values(((phase_52) phase17_0))" +"(let-values(((phase_53) phase17_0))" "(let-values(((binding_11) binding18_0))" "(let-values(((can-be-shadowed?_0) can-be-shadowed?11_0))" "(let-values(((as-transformer?_0) as-transformer?12_0))" "(let-values()" "(begin" "(if(equal?" -" phase_52" +" phase_53" "(phase+" "(module-binding-nominal-phase binding_11)" "(module-binding-nominal-require-phase binding_11)))" @@ -22044,7 +22052,7 @@ static const char *startup_source = " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p124_0) r+p_3)" "((id125_0) id_24)" -"((phase126_0) phase_52)" +"((phase126_0) phase_53)" "((temp127_0)(module-binding-nominal-module binding_11))" "((temp128_0)(module-binding-nominal-require-phase binding_11))" "((can-be-shadowed?129_0) can-be-shadowed?_0)" @@ -22070,7 +22078,7 @@ static const char *startup_source = " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" "(let-values(((id_25) id31_0))" -"(let-values(((phase_53) phase32_0))" +"(let-values(((phase_54) phase32_0))" "(let-values(((nominal-module_6) nominal-module22_0))" "(let-values(((nominal-require-phase_4) nominal-require-phase23_0))" "(let-values(((can-be-shadowed?_1) can-be-shadowed?24_0))" @@ -22087,7 +22095,7 @@ static const char *startup_source = " sym-to-reqds_0" " sym_34" "(cons-ish" -"(required2.1 id_25 phase_53 can-be-shadowed?_1 as-transformer?_1)" +"(required2.1 id_25 phase_54 can-be-shadowed?_1 as-transformer?_1)" "(hash-ref sym-to-reqds_0 sym_34 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" @@ -22124,18 +22132,18 @@ static const char *startup_source = "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" "(let-values(((who_11) who43_0))" "(let-values()" -"(let-values(((phase_54)(phase+ provide-phase-level_3 phase-shift_6)))" +"(let-values(((phase_55)(phase+ provide-phase-level_3 phase-shift_6)))" "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_114 phase_54)" +"(syntax-mapped-names s_114 phase_55)" " #f)" " #f)))" -"(let-values(((mpi_31)(intern-mpi r+p_5 nominal-module_7)))" +"(let-values(((mpi_13)(intern-mpi r+p_5 nominal-module_7)))" "(let-values(((at-mod_1)" "(hash-ref!" "(requires+provides-requires r+p_5)" -" mpi_31" +" mpi_13" " make-hasheqv)))" "(let-values(((sym-to-reqds_1)" "(hash-ref! at-mod_1 phase-shift_6 make-hasheq)))" @@ -22155,7 +22163,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_99)))" -"((letrec-values(((for-loop_153)" +"((letrec-values(((for-loop_154)" "(lambda(result_69 i_127)" "(begin" " 'for-loop" @@ -22203,11 +22211,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_172)" +"(let-values(((or-part_175)" "(not" " shortcut-table_0)))" -"(if or-part_172" -" or-part_172" +"(if or-part_175" +" or-part_175" "(hash-ref" " shortcut-table_0" " sym_35" @@ -22226,7 +22234,7 @@ static const char *startup_source = " sym_35" " s_114))" "((phase135_0)" -" phase_54)" +" phase_55)" "((orig-s136_0)" " orig-s_0)" "((temp137_0)" @@ -22238,7 +22246,7 @@ static const char *startup_source = "((self143_0)" " self_8)" "((mpi144_0)" -" mpi_31)" +" mpi_13)" "((provide-phase-level145_0)" " provide-phase-level_3)" "((phase-shift146_0)" @@ -22291,17 +22299,17 @@ static const char *startup_source = " binding/p_2))" "(not #f)" " #f)" -"(for-loop_153" +"(for-loop_154" " result_70" "(hash-iterate-next ht_99 i_127))" " result_70)))" " result_69)))))" -" for-loop_153)" +" for-loop_154)" " #f" "(hash-iterate-first ht_99))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_55 sym_36)" +"(lambda(br_1 nominal-module_8 phase_56 sym_36)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" @@ -22311,13 +22319,13 @@ static const char *startup_source = "(let-values(((binding/p_3)(hash-ref(bulk-required-provides br_1) out-sym_1)))" "(required2.1" "(datum->syntax$1(bulk-required-s br_1) sym_36)" -"(phase+ phase_55(bulk-required-provide-phase-level br_1))" +"(phase+ phase_56(bulk-required-provide-phase-level br_1))" "(bulk-required-can-be-shadowed? br_1)" "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_35 mod-name_9 phase_56 sym_37)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_56 sym_37) r_35))))" +"(lambda(r_35 mod-name_9 phase_57 sym_37)" +"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_57 sym_37) r_35))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -22335,7 +22343,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_154)" +"((letrec-values(((for-loop_155)" "(lambda(i_128)" "(begin" " 'for-loop" @@ -22356,12 +22364,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_101)))" -"((letrec-values(((for-loop_155)" +"((letrec-values(((for-loop_156)" "(lambda(i_129)" "(begin" " 'for-loop" "(if i_129" -"(let-values(((phase_57" +"(let-values(((phase_58" " at-phase_8)" "(hash-iterate-key+value" " ht_101" @@ -22376,7 +22384,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_102)))" -"((letrec-values(((for-loop_156)" +"((letrec-values(((for-loop_157)" "(lambda(i_117)" "(begin" " 'for-loop" @@ -22387,28 +22395,28 @@ static const char *startup_source = " ht_102" " i_117)))" "(let-values((()" -"(let-values(((lst_121)" +"(let-values(((lst_122)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_157)" -"(lambda(lst_122)" +"((letrec-values(((for-loop_158)" +"(lambda(lst_123)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_122))" +" lst_123))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_122)" +" lst_123)" "(car" -" lst_122)" -" lst_122))" -"((rest_61)" +" lst_123)" +" lst_123))" +"((rest_62)" "(if(pair?" -" lst_122)" +" lst_123)" "(cdr" -" lst_122)" +" lst_123)" " null)))" "(let-values((()" "(let-values()" @@ -22420,7 +22428,7 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_57" +" phase_58" " sym_38)))" "(let-values(((r+p147_0)" " r+p_6)" @@ -22467,42 +22475,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_157" -" rest_61)" +"(for-loop_158" +" rest_62)" "(values))))" "(values))))))" -" for-loop_157)" -" lst_121)))))" +" for-loop_158)" +" lst_122)))))" "(if(not" " #f)" -"(for-loop_156" +"(for-loop_157" "(hash-iterate-next" " ht_102" " i_117))" "(values))))" "(values))))))" -" for-loop_156)" +" for-loop_157)" "(hash-iterate-first" " ht_102))))))" "(if(not" " #f)" -"(for-loop_155" +"(for-loop_156" "(hash-iterate-next" " ht_101" " i_129))" "(values))))" "(values))))))" -" for-loop_155)" +" for-loop_156)" "(hash-iterate-first" " ht_101))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_154(hash-iterate-next ht_100 i_128))" +"(for-loop_155(hash-iterate-next ht_100 i_128))" "(values))))" "(values))))))" -" for-loop_154)" +" for-loop_155)" "(hash-iterate-first ht_100))))" "(void))))))))))" "(define-values" @@ -22512,16 +22520,16 @@ static const char *startup_source = " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" "(let-values(((id_26) id73_0))" -"(let-values(((phase_58) phase74_0))" +"(let-values(((phase_59) phase74_0))" "(let-values(((binding_12) unless-matches70_0))" "(let-values()" "(let-values(((b_69)" -"(let-values(((id157_0) id_26)((phase158_0) phase_58)((temp159_0) #t))" +"(let-values(((id157_0) id_26)((phase158_0) phase_59)((temp159_0) #t))" "(resolve+shift28.1 #f temp159_0 null unsafe-undefined #f id157_0 phase158_0))))" "(if b_69" "(let-values()" -"(let-values(((mpi_32)(intern-mpi r+p_7(module-binding-nominal-module b_69))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_32 #f)))" +"(let-values(((mpi_31)(intern-mpi r+p_7(module-binding-nominal-module b_69))))" +"(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_69)))" @@ -22542,8 +22550,8 @@ static const char *startup_source = "(remove-non-matching-requireds" " l_53" " id_26" -" phase_58" -" mpi_32" +" phase_59" +" mpi_31" " nominal-phase_4" " sym_39)))))))))" "(void)))))" @@ -22551,65 +22559,65 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_27 phase_59 mpi_33 nominal-phase_5 sym_40)" +"(lambda(reqds_1 id_27 phase_60 mpi_32 nominal-phase_5 sym_40)" "(begin" "(reverse$1" -"(let-values(((lst_123) reqds_1))" +"(let-values(((lst_124) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_107 lst_124)" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_109 lst_125)" "(begin" " 'for-loop" -"(if(not(null? lst_124))" -"(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" -"((rest_62)(if(pair? lst_124)(cdr lst_124) null)))" -"(let-values(((fold-var_108)" +"(if(not(null? lst_125))" +"(let-values(((r_36)(if(pair? lst_125)(car lst_125) lst_125))" +"((rest_63)(if(pair? lst_125)(cdr lst_125) null)))" +"(let-values(((fold-var_110)" "(let-values(((r_37)" "(normalize-required" " r_36" -" mpi_33" +" mpi_32" " nominal-phase_5" " sym_40)))" "(begin" " #t" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_109)" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_111)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_110)" -"(let-values(((fold-var_111)" -" fold-var_109))" +"(let-values(((fold-var_112)" +"(let-values(((fold-var_113)" +" fold-var_111))" "(if(if(eqv?" -" phase_59" +" phase_60" "(required-phase" " r_37))" "(free-identifier=?$1" "(required-id r_37)" " id_27" -" phase_59" -" phase_59)" +" phase_60" +" phase_60)" " #f)" -" fold-var_111" -"(let-values(((fold-var_112)" -" fold-var_111))" -"(let-values(((fold-var_113)" +" fold-var_113" +"(let-values(((fold-var_114)" +" fold-var_113))" +"(let-values(((fold-var_115)" "(let-values()" "(cons" "(let-values()" " r_37)" -" fold-var_112))))" +" fold-var_114))))" "(values" -" fold-var_113)))))))" -" fold-var_110))))))" +" fold-var_115)))))))" +" fold-var_112))))))" +" for-loop_160)" +" fold-var_109)))))" +"(if(not #f)(for-loop_159 fold-var_110 rest_63) fold-var_110)))" +" fold-var_109)))))" " for-loop_159)" -" fold-var_107)))))" -"(if(not #f)(for-loop_158 fold-var_108 rest_62) fold-var_108)))" -" fold-var_107)))))" -" for-loop_158)" " null" -" lst_123)))))))" +" lst_124)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22628,7 +22636,7 @@ static const char *startup_source = "(let-values(((allow-defined?_0) allow-defined?79_0))" "(let-values(((r+p_8) r+p92_0))" "(let-values(((id_28) id93_0))" -"(let-values(((phase_60) phase94_0))" +"(let-values(((phase_61) phase94_0))" "(let-values(((orig-s_1) in80_0))" "(let-values(((ok-binding/delayed_0) unless-matches81_0))" "(let-values(((remove-shadowed!?_0) remove-shadowed!?82_0))" @@ -22636,7 +22644,7 @@ static const char *startup_source = "(let-values(((who_12) who84_0))" "(let-values()" "(let-values(((b_70)" -"(let-values(((id160_0) id_28)((phase161_0) phase_60)((temp162_0) #t))" +"(let-values(((id160_0) id_28)((phase161_0) phase_61)((temp162_0) #t))" "(resolve+shift28.1" " #f" " temp162_0" @@ -22659,7 +22667,7 @@ static const char *startup_source = "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_60" +" phase_61" " '#hasheq())" "(module-binding-sym b_70)" " #f))" @@ -22668,10 +22676,10 @@ static const char *startup_source = "(let-values()" "(let-values(((define-shadowing-require?_0)" "(if(not defined?_0)(not check-not-required?_0) #f)))" -"(let-values(((mpi_34)" +"(let-values(((mpi_33)" "(intern-mpi r+p_8(module-binding-nominal-module b_70))))" "(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_34 #f)))" +"(hash-ref(requires+provides-requires r+p_8) mpi_33 #f)))" "(let-values(((ok-binding_0)" "(if(not define-shadowing-require?_0)" "(if(procedure? ok-binding/delayed_0)" @@ -22687,14 +22695,14 @@ static const char *startup_source = "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_60)" +"(if(zero-phase? phase_61)" " (let-values () \"\")" -"(if(label-phase? phase_60)" +"(if(label-phase? phase_61)" " (let-values () \" for label\")" -"(if(= 1 phase_60)" +"(if(= 1 phase_61)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_60))))))" +" (format \" for phase ~a\" phase_61))))))" " orig-s_1" " id_28)))))" "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" @@ -22732,7 +22740,7 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " ok-binding167_0)))" -"((phase166_1) phase_60))" +"((phase166_1) phase_61))" "(add-binding!17.1" " #f" " temp163_1" @@ -22783,28 +22791,28 @@ static const char *startup_source = "(syntax-e$1 id_28)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_125) reqds_2))" +"(let-values(((lst_126) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_161)" "(lambda(only-can-can-shadow-require?_1" -" lst_126)" +" lst_127)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_126))" +" lst_127))" "(let-values(((r_38)" "(if(pair?" -" lst_126)" +" lst_127)" "(car" -" lst_126)" -" lst_126))" -"((rest_63)" +" lst_127)" +" lst_127))" +"((rest_64)" "(if(pair?" -" lst_126)" +" lst_127)" "(cdr" -" lst_126)" +" lst_127)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22833,14 +22841,14 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_160" +"(for-loop_161" " only-can-can-shadow-require?_2" -" rest_63)" +" rest_64)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_160)" +" for-loop_161)" " #t" -" lst_125)))))" +" lst_126)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22866,8 +22874,8 @@ static const char *startup_source = "(remove-non-matching-requireds" " reqds_2" " id_28" -" phase_60" -" mpi_34" +" phase_61" +" mpi_33" " nominal-phase_6" "(syntax-e$1 id_28))))" "(void))))" @@ -22879,24 +22887,24 @@ static const char *startup_source = " 'add-defined-syms!103" "(let-values(((r+p_9) r+p100_0))" "(let-values(((syms_18) syms101_0))" -"(let-values(((phase_61) phase102_0))" +"(let-values(((phase_62) phase102_0))" "(let-values(((as-transformer?_2) as-transformer?98_0))" "(let-values()" "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" -"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" +"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_62 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_127) syms_18))" +"(let-values(((lst_128) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_127)))" -"((letrec-values(((for-loop_161)" -"(lambda(defined-syms_3 lst_128)" +"(let-values()(check-list lst_128)))" +"((letrec-values(((for-loop_162)" +"(lambda(defined-syms_3 lst_129)" "(begin" " 'for-loop" -"(if(pair? lst_128)" -"(let-values(((sym_41)(unsafe-car lst_128))" -"((rest_64)(unsafe-cdr lst_128)))" +"(if(pair? lst_129)" +"(let-values(((sym_41)(unsafe-car lst_129))" +"((rest_65)(unsafe-cdr lst_129)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5)" " defined-syms_3))" @@ -22910,85 +22918,85 @@ static const char *startup_source = " 'variable)))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_161 defined-syms_4 rest_64)" +"(for-loop_162 defined-syms_4 rest_65)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_161)" +" for-loop_162)" " defined-syms_2" -" lst_127)))))" -"(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0))))))))))))" +" lst_128)))))" +"(hash-set! phase-to-defined-syms_0 phase_62 new-defined-syms_0))))))))))))" "(define-values" "(defined-sym-kind)" -"(lambda(r+p_10 sym_42 phase_62)" +"(lambda(r+p_10 sym_42 phase_63)" "(begin" "(let-values(((phase-to-defined-syms_1)(requires+provides-phase-to-defined-syms r+p_10)))" -"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_62 '#hasheq())))" +"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_63 '#hasheq())))" "(hash-ref defined-syms_7 sym_42 #f))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_11 mod-name_11 phase_63)" +"(lambda(r+p_11 mod-name_11 phase_64)" "(begin" -"(let-values(((mpi_35)(intern-mpi r+p_11 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_35 #f)))" +"(let-values(((mpi_34)(intern-mpi r+p_11 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_34 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_103)(hash-ref at-mod_5 phase_63 '#hasheq())))" +"(let-values(((ht_103)(hash-ref at-mod_5 phase_64 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_103)))" -"((letrec-values(((for-loop_162)" -"(lambda(fold-var_114 i_130)" +"((letrec-values(((for-loop_163)" +"(lambda(fold-var_116 i_130)" "(begin" " 'for-loop" "(if i_130" "(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_103 i_130)))" -"(let-values(((fold-var_115)" -"(let-values(((lst_129) reqds_3))" +"(let-values(((fold-var_117)" +"(let-values(((lst_130) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_163)" -"(lambda(fold-var_116 lst_130)" +"((letrec-values(((for-loop_164)" +"(lambda(fold-var_118 lst_131)" "(begin" " 'for-loop" -"(if(not(null? lst_130))" +"(if(not(null? lst_131))" "(let-values(((reqd_1)" -"(if(pair? lst_130)" -"(car lst_130)" -" lst_130))" -"((rest_65)" -"(if(pair? lst_130)" -"(cdr lst_130)" +"(if(pair? lst_131)" +"(car lst_131)" +" lst_131))" +"((rest_66)" +"(if(pair? lst_131)" +"(cdr lst_131)" " null)))" -"(let-values(((fold-var_117)" -"(let-values(((fold-var_118)" -" fold-var_116))" "(let-values(((fold-var_119)" +"(let-values(((fold-var_120)" +" fold-var_118))" +"(let-values(((fold-var_121)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_1" -" mpi_35" -" phase_63" +" mpi_34" +" phase_64" " sym_43))" -" fold-var_118))))" +" fold-var_120))))" "(values" -" fold-var_119)))))" +" fold-var_121)))))" "(if(not #f)" -"(for-loop_163" -" fold-var_117" -" rest_65)" +"(for-loop_164" +" fold-var_119" +" rest_66)" +" fold-var_119)))" +" fold-var_118)))))" +" for-loop_164)" +" fold-var_116" +" lst_130)))))" +"(if(not #f)" +"(for-loop_163 fold-var_117(hash-iterate-next ht_103 i_130))" " fold-var_117)))" " fold-var_116)))))" " for-loop_163)" -" fold-var_114" -" lst_129)))))" -"(if(not #f)" -"(for-loop_162 fold-var_115(hash-iterate-next ht_103 i_130))" -" fold-var_115)))" -" fold-var_114)))))" -" for-loop_162)" " null" "(hash-iterate-first ht_103)))))" " #f))))))" @@ -22996,33 +23004,33 @@ static const char *startup_source = "(extract-module-definitions)" "(lambda(r+p_12)" "(begin" -"(let-values(((or-part_173)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" -"(if or-part_173 or-part_173 null)))))" +"(let-values(((or-part_176)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" +"(if or-part_176 or-part_176 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_13 mod-name_12 phase_64)" +"(lambda(r+p_13 mod-name_12 phase_65)" "(begin" "(let-values(((self_9)(requires+provides-self r+p_13)))" "(let-values(((requires_2)(requires+provides-requires r+p_13)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_132)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_131)))" -"((letrec-values(((for-loop_164)" +"(let-values()(check-list lst_132)))" +"((letrec-values(((for-loop_165)" "(lambda(fold-var_46 lst_61)" "(begin" " 'for-loop" "(if(pair? lst_61)" "(let-values(((mod-name_13)(unsafe-car lst_61))" -"((rest_66)(unsafe-cdr lst_61)))" -"(let-values(((fold-var_120)" -"(let-values(((fold-var_121) fold-var_46))" +"((rest_67)(unsafe-cdr lst_61)))" +"(let-values(((fold-var_122)" +"(let-values(((fold-var_123) fold-var_46))" "(if(eq? mod-name_13 self_9)" -" fold-var_121" +" fold-var_123" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -23030,7 +23038,7 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_165)" +"((letrec-values(((for-loop_166)" "(lambda(fold-var_49)" "(begin" " 'for-loop" @@ -23038,12 +23046,12 @@ static const char *startup_source = "(let-values(((fold-var_50)" "(let-values(((lst_63)" "(if(eq?" -" phase_64" +" phase_65" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_64))))" +" phase_65))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -23052,23 +23060,23 @@ static const char *startup_source = "(check-list" " lst_63)))" "((letrec-values(((for-loop_86)" -"(lambda(fold-var_122" -" lst_132)" +"(lambda(fold-var_124" +" lst_133)" "(begin" " 'for-loop" "(if(pair?" -" lst_132)" -"(let-values(((phase_65)" +" lst_133)" +"(let-values(((phase_66)" "(unsafe-car" -" lst_132))" -"((rest_67)" +" lst_133))" +"((rest_68)" "(unsafe-cdr" -" lst_132)))" -"(let-values(((fold-var_123)" +" lst_133)))" +"(let-values(((fold-var_125)" "(let-values(((ht_104)" "(hash-ref" " phase-to-requireds_0" -" phase_65" +" phase_66" "(lambda()" "(esc_0" " #f)))))" @@ -23079,8 +23087,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_104)))" -"((letrec-values(((for-loop_166)" -"(lambda(fold-var_124" +"((letrec-values(((for-loop_167)" +"(lambda(fold-var_126" " i_131)" "(begin" " 'for-loop" @@ -23090,87 +23098,87 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_104" " i_131)))" -"(let-values(((fold-var_125)" -"(let-values(((lst_133)" +"(let-values(((fold-var_127)" +"(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_167)" -"(lambda(fold-var_126" -" lst_134)" +"((letrec-values(((for-loop_168)" +"(lambda(fold-var_128" +" lst_135)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_134))" +" lst_135))" "(let-values(((reqd_2)" "(if(pair?" -" lst_134)" +" lst_135)" "(car" -" lst_134)" -" lst_134))" -"((rest_68)" +" lst_135)" +" lst_135))" +"((rest_69)" "(if(pair?" -" lst_134)" +" lst_135)" "(cdr" -" lst_134)" +" lst_135)" " null)))" -"(let-values(((fold-var_127)" -"(let-values(((fold-var_128)" -" fold-var_126))" "(let-values(((fold-var_129)" +"(let-values(((fold-var_130)" +" fold-var_128))" +"(let-values(((fold-var_131)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_2" " mod-name_13" -" phase_65" +" phase_66" " sym_44))" -" fold-var_128))))" +" fold-var_130))))" "(values" -" fold-var_129)))))" +" fold-var_131)))))" +"(if(not" +" #f)" +"(for-loop_168" +" fold-var_129" +" rest_69)" +" fold-var_129)))" +" fold-var_128)))))" +" for-loop_168)" +" fold-var_126" +" lst_134)))))" "(if(not" " #f)" "(for-loop_167" " fold-var_127" -" rest_68)" +"(hash-iterate-next" +" ht_104" +" i_131))" " fold-var_127)))" " fold-var_126)))))" " for-loop_167)" " fold-var_124" -" lst_133)))))" -"(if(not" -" #f)" -"(for-loop_166" -" fold-var_125" -"(hash-iterate-next" -" ht_104" -" i_131))" -" fold-var_125)))" -" fold-var_124)))))" -" for-loop_166)" -" fold-var_122" "(hash-iterate-first" " ht_104))))))" "(if(not" " #f)" "(for-loop_86" -" fold-var_123" -" rest_67)" -" fold-var_123)))" -" fold-var_122)))))" +" fold-var_125" +" rest_68)" +" fold-var_125)))" +" fold-var_124)))))" " for-loop_86)" " fold-var_49" " lst_63)))))" " fold-var_50))))))" -" for-loop_165)" -" fold-var_121)))))))" -"(if(not #f)(for-loop_164 fold-var_120 rest_66) fold-var_120)))" +" for-loop_166)" +" fold-var_123)))))))" +"(if(not #f)(for-loop_165 fold-var_122 rest_67) fold-var_122)))" " fold-var_46)))))" -" for-loop_164)" +" for-loop_165)" " null" -" lst_131)))))))))))" +" lst_132)))))))))))" "(define-values" "(add-provide!117.1)" "(lambda(as-protected?106_0" @@ -23186,7 +23194,7 @@ static const char *startup_source = " 'add-provide!117" "(let-values(((r+p_14) r+p110_0))" "(let-values(((sym_45) sym111_0))" -"(let-values(((phase_66) phase112_0))" +"(let-values(((phase_67) phase112_0))" "(let-values(((binding_13) binding113_0))" "(let-values(((immed-binding_0) immed-binding114_0))" "(let-values(((id_29) id115_0))" @@ -23203,7 +23211,7 @@ static const char *startup_source = "(void))" "(hash-update!" "(requires+provides-provides r+p_14)" -" phase_66" +" phase_67" "(lambda(at-phase_9)" "(let-values(((b/p_0)(hash-ref at-phase_9 sym_45 #f)))" "(let-values(((b_71)(provided-as-binding b/p_0)))" @@ -23229,8 +23237,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_45" -"(if(let-values(((or-part_174) as-protected?_0))" -"(if or-part_174 or-part_174 as-transformer?_3))" +"(if(let-values(((or-part_177) as-protected?_0))" +"(if or-part_177 or-part_177 as-transformer?_3))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" " plain-binding_0))))" "(if(same-binding? b_71 binding_13)" @@ -23256,91 +23264,91 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_147) ids_3))" +"(let-values(((lst_148) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" -"((letrec-values(((for-loop_174)" -"(lambda(table_136 lst_148)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_148)))" +"((letrec-values(((for-loop_175)" +"(lambda(table_136 lst_149)" "(begin" " 'for-loop" -"(if(pair? lst_148)" -"(let-values(((id_44)(unsafe-car lst_148))((rest_75)(unsafe-cdr lst_148)))" +"(if(pair? lst_149)" +"(let-values(((id_45)(unsafe-car lst_149))((rest_76)(unsafe-cdr lst_149)))" "(let-values(((table_137)" "(let-values(((table_138) table_136))" "(let-values(((table_139)" @@ -25170,15 +25178,15 @@ static const char *startup_source = "(let-values(((key_54 val_46)" "(let-values()" "(values" -"(let-values()(syntax-e$1 id_44))" +"(let-values()(syntax-e$1 id_45))" " #t))))" "(hash-set table_138 key_54 val_46)))))" "(values table_139)))))" -"(if(not #f)(for-loop_174 table_137 rest_75) table_137)))" +"(if(not #f)(for-loop_175 table_137 rest_76) table_137)))" " table_136)))))" -" for-loop_174)" +" for-loop_175)" " '#hash()" -" lst_147))))))" +" lst_148))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -25249,7 +25257,7 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_37) mpi73_0))" +"(let-values(((mpi_36) mpi73_0))" "(let-values(((orig-s_14) orig-s74_0))" "(let-values()" "(let-values(((in-stx_1) in-stx76_0))" @@ -25270,7 +25278,7 @@ static const char *startup_source = "(let-values(((who_15) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_37 #t)))" +"(let-values(((module-name_0)(1/module-path-index-resolve mpi_36 #t)))" "(let-values(((bind-in-stx_0)" "(if(adjust-rename? adjust_1)" "(adjust-rename-to-id adjust_1)" @@ -25290,10 +25298,10 @@ static const char *startup_source = "(if requires+provides_3" "(add-required-module!" " requires+provides_3" -" mpi_37" +" mpi_36" " phase-shift_10" "(module-cross-phase-persistent? m_13))" -" mpi_37)))" +" mpi_36)))" "(let-values((()" "(begin" "(if visit?_2" @@ -25336,10 +25344,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_194)" +"(let-values(((or-part_197)" " visit?_2))" -"(if or-part_194" -" or-part_194" +"(if or-part_197" +" or-part_197" " run?_2)))" "(let-values()" "(let-values(((m-ns259_0) m-ns_10)" @@ -25357,15 +25365,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_195)" +"(if(let-values(((or-part_198)" "(not adjust_1)))" -"(if or-part_195" -" or-part_195" -"(let-values(((or-part_196)" +"(if or-part_198" +" or-part_198" +"(let-values(((or-part_199)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_196" -" or-part_196" +"(if or-part_199" +" or-part_199" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25449,7 +25457,7 @@ static const char *startup_source = "(module-self" " m_13))" "((mpi266_0)" -" mpi_37)" +" mpi_36)" "((phase-shift267_0)" " phase-shift_10)" "((provides268_0)" @@ -25496,11 +25504,11 @@ static const char *startup_source = " #f)" " #f))" "((temp250_0)" -"(if(let-values(((or-part_197)" +"(if(let-values(((or-part_200)" "(not" " can-bulk-bind?_0)))" -"(if or-part_197" -" or-part_197" +"(if or-part_200" +" or-part_200" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_4)" @@ -25710,7 +25718,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_149)" +"(let-values(((lst_150)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25719,19 +25727,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" -"((letrec-values(((for-loop_175)" -"(lambda(lst_150)" +" lst_150)))" +"((letrec-values(((for-loop_176)" +"(lambda(lst_151)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_151)" "(let-values(((update!_1)" "(unsafe-car" -" lst_150))" -"((rest_76)" +" lst_151))" +"((rest_77)" "(unsafe-cdr" -" lst_150)))" +" lst_151)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25743,12 +25751,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_175" -" rest_76)" +"(for-loop_176" +" rest_77)" "(values))))" "(values))))))" -" for-loop_175)" -" lst_149)))" +" for-loop_176)" +" lst_150)))" "(void)))" "(void))" "(values))))" @@ -25787,7 +25795,7 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_106)))" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_177)" "(lambda(i_133)" "(begin" " 'for-loop" @@ -25817,13 +25825,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_176" +"(for-loop_177" "(unsafe-immutable-hash-iterate-next" " ht_106" " i_133))" "(values))))" "(values))))))" -" for-loop_176)" +" for-loop_177)" "(unsafe-immutable-hash-iterate-first" " ht_106))))" "(void)))" @@ -25852,7 +25860,7 @@ static const char *startup_source = "(let-values(((in-stx_2) in-stx102_0))" "(let-values(((phase-shift_11) phase-shift103_0))" "(let-values(((ns_50) ns104_0))" -"(let-values(((mpi_38) mpi105_0))" +"(let-values(((mpi_37) mpi105_0))" "(let-values(((module-name_1) module-name106_0))" "(let-values(((orig-s_15) in81_0))" "(let-values(((defines-mpi_0) defines-mpi82_0))" @@ -25872,7 +25880,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_107)))" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_178)" "(lambda(i_134)" "(begin" " 'for-loop" @@ -25883,12 +25891,12 @@ static const char *startup_source = " i_134)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_198)" +"(if(let-values(((or-part_201)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_198" -" or-part_198" +"(if or-part_201" +" or-part_201" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25897,7 +25905,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_69)" +"(let-values(((phase_70)" "(phase+" " phase-shift_11" " provide-phase-level_5)))" @@ -25913,11 +25921,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_151)" -"(let-values(((or-part_199)" +"(let-values(((lst_152)" +"(let-values(((or-part_202)" " only-syms_0))" -"(if or-part_199" -" or-part_199" +"(if or-part_202" +" or-part_202" "(hash-keys" " provides_7)))))" "(begin" @@ -25926,19 +25934,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" -"((letrec-values(((for-loop_178)" -"(lambda(lst_152)" +" lst_152)))" +"((letrec-values(((for-loop_179)" +"(lambda(lst_153)" "(begin" " 'for-loop" "(if(pair?" -" lst_152)" +" lst_153)" "(let-values(((sym_49)" "(unsafe-car" -" lst_152))" -"((rest_77)" +" lst_153))" +"((rest_78)" "(unsafe-cdr" -" lst_152)))" +" lst_153)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25960,7 +25968,7 @@ static const char *startup_source = "((self295_0)" " self_12)" "((mpi296_0)" -" mpi_38)" +" mpi_37)" "((provide-phase-level297_0)" " provide-phase-level_5)" "((phase-shift298_0)" @@ -25989,7 +25997,7 @@ static const char *startup_source = "((b300_0)" " b_72)" "((phase301_0)" -" phase_69))" +" phase_70))" "(add-binding!17.1" " #f" " #f" @@ -26002,12 +26010,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_178" -" rest_77)" +"(for-loop_179" +" rest_78)" "(values))))" "(values))))))" -" for-loop_178)" -" lst_151)))" +" for-loop_179)" +" lst_152)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -26019,7 +26027,7 @@ static const char *startup_source = " in-stx_2)" "((temp303_0)" "(bulk-binding14.1" -"(let-values(((or-part_200)" +"(let-values(((or-part_203)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -26028,8 +26036,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_200" -" or-part_200" +"(if or-part_203" +" or-part_203" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -26042,12 +26050,12 @@ static const char *startup_source = " bulk-prefix_2" " bulk-excepts_2" " self_12" -" mpi_38" +" mpi_37" " provide-phase-level_5" " phase-shift_11" " bulk-binding-registry_10))" "((phase304_0)" -" phase_69)" +" phase_70)" "((orig-s305_0)" " orig-s_15)" "((temp306_0)" @@ -26066,11 +26074,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_177" +"(for-loop_178" "(hash-iterate-next ht_107 i_134))" "(values))))" "(values))))))" -" for-loop_177)" +" for-loop_178)" "(hash-iterate-first ht_107))))" "(void)))))))))))))))))))))))" "(define-values" @@ -26426,11 +26434,11 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_20 mpi_39 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" -"(let-values(((phase_70)(phase+ orig-phase_0 phase-shift_13)))" +"(lambda(id_20 mpi_38 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" +"(let-values(((phase_71)(phase+ orig-phase_0 phase-shift_13)))" "(let-values(((b_73)" -"(let-values(((mpi4_1) mpi_39)" -"((phase5_1) phase_70)" +"(let-values(((mpi4_1) mpi_38)" +"((phase5_1) phase_71)" "((sym6_1) sym_51)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" @@ -26447,11 +26455,11 @@ static const char *startup_source = " phase5_1" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_20)((b2_4) b_73)((phase3_2) phase_70))" +"(let-values(((id1_3) id_20)((b2_4) b_73)((phase3_2) phase_71))" "(add-binding!17.1 #f #f id1_3 b2_4 phase3_2))" "(if trans?_0" -"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_20 phase_70))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_70 sym_51)))))))" +"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_20 phase_71))(void)))" +"(let-values()(namespace-unset-transformer! ns_51 phase_71 sym_51)))))))" " top-level-require!-id" "(lambda(stx_13 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_13))))" @@ -26698,7 +26706,7 @@ static const char *startup_source = "(begin(check-vector vec_57)(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_180)" "(lambda(pos_86)" "(begin" " 'for-loop" @@ -26713,9 +26721,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_11))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_179(unsafe-fx+ 1 pos_86))(values))))" +"(if(not #f)(for-loop_180(unsafe-fx+ 1 pos_86))(values))))" "(values))))))" -" for-loop_179)" +" for-loop_180)" " 0)))" "(void)" "(cons pos_85(vector-length vec_55)))))))" @@ -26863,27 +26871,27 @@ static const char *startup_source = "(symbol-conflicts?)" "(lambda(sym_53 header_1)" "(begin" -"(let-values(((or-part_201)(built-in-symbol? sym_53)))" -"(if or-part_201 or-part_201(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" +"(let-values(((or-part_204)(built-in-symbol? sym_53)))" +"(if or-part_204 or-part_204(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" "(begin" " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" -"(let-values(((mpi_40) mpi15_0))" -"(let-values(((phase_71) phase16_1))" +"(let-values(((mpi_39) mpi15_0))" +"(let-values(((phase_72) phase16_1))" "(let-values(((sym_54) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2) defined?12_0))" "(let-values()" -"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_40 phase_71) sym_54)))" +"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_39 phase_72) sym_54)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" "(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_202) prev-var-sym_0))" -"(if or-part_202" -" or-part_202" +"(let-values(((or-part_205) prev-var-sym_0))" +"(if or-part_205" +" or-part_205" "(let-values(((sym_55)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" "(hash-set! variable-uses_0 key_55 sym_55)" @@ -26915,21 +26923,21 @@ static const char *startup_source = "(begin(eq? 'required(hash-ref(header-define-and-import-syms header_4) var-sym_1 #f)))))" "(define-values" "(generate-links+imports)" -"(lambda(header_5 phase_38 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_5 phase_39 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_153)(header-require-vars-in-order header_5)))" +"(let-values(((lst_154)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_153)))" -"((letrec-values(((for-loop_180)" -"(lambda(ht_108 link-mod-uses_1 lst_154)" +"(let-values()(check-list lst_154)))" +"((letrec-values(((for-loop_181)" +"(lambda(ht_108 link-mod-uses_1 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((vu_0)(unsafe-car lst_154))" -"((rest_78)(unsafe-cdr lst_154)))" +"(if(pair? lst_155)" +"(let-values(((vu_0)(unsafe-car lst_155))" +"((rest_79)(unsafe-cdr lst_155)))" "(let-values(((ht_109 link-mod-uses_2)" "(let-values(((ht_110) ht_108)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26938,21 +26946,21 @@ static const char *startup_source = "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_203)" +"(if(let-values(((or-part_206)" "(hash-ref" " ht_110" " mu_2" " #f)))" -"(if or-part_203" -" or-part_203" -"(let-values(((or-part_204)" +"(if or-part_206" +" or-part_206" +"(let-values(((or-part_207)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_204" -" or-part_204" +"(if or-part_207" +" or-part_207" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -26962,62 +26970,63 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_111 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_180 ht_109 link-mod-uses_2 rest_78)" +"(for-loop_181 ht_109 link-mod-uses_2 rest_79)" "(values ht_109 link-mod-uses_2))))" "(values ht_108 link-mod-uses_1))))))" -" for-loop_180)" +" for-loop_181)" " '#hash()" " null" -" lst_153)))))" +" lst_154)))))" "(values" " link-mod-uses_0" "(reverse$1" "(let-values(((lst_33) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" -"((letrec-values(((for-loop_181)" -"(lambda(fold-var_139 lst_108)" +"((letrec-values(((for-loop_182)" +"(lambda(fold-var_141 lst_107)" "(begin" " 'for-loop" -"(if(pair? lst_108)" -"(let-values(((mu_3)(unsafe-car lst_108))((rest_79)(unsafe-cdr lst_108)))" -"(let-values(((fold-var_140)" -"(let-values(((fold-var_141) fold-var_139))" +"(if(pair? lst_107)" +"(let-values(((mu_3)(unsafe-car lst_107))((rest_80)(unsafe-cdr lst_107)))" "(let-values(((fold-var_142)" +"(let-values(((fold-var_143) fold-var_141))" +"(let-values(((fold-var_144)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_52)" +"(let-values(((lst_156)" "(header-require-vars-in-order" " header_5)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_52)))" -"((letrec-values(((for-loop_74)" -"(lambda(fold-var_39" -" lst_53)" +"(let-values()(check-list lst_156)))" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_145" +" lst_157)" "(begin" " 'for-loop" -"(if(pair? lst_53)" +"(if(pair?" +" lst_157)" "(let-values(((vu_1)" "(unsafe-car" -" lst_53))" -"((rest_23)" +" lst_157))" +"((rest_81)" "(unsafe-cdr" -" lst_53)))" -"(let-values(((fold-var_40)" -"(let-values(((fold-var_41)" -" fold-var_39))" +" lst_157)))" +"(let-values(((fold-var_146)" +"(let-values(((fold-var_147)" +" fold-var_145))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" -"(let-values(((fold-var_42)" -" fold-var_41))" -"(let-values(((fold-var_143)" +"(let-values(((fold-var_40)" +" fold-var_147))" +"(let-values(((fold-var_41)" "(let-values()" "(cons" "(let-values()" @@ -27036,44 +27045,44 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_42))))" +" fold-var_40))))" "(values" -" fold-var_143)))" -" fold-var_41))))" +" fold-var_41)))" +" fold-var_147))))" "(if(not #f)" -"(for-loop_74" -" fold-var_40" -" rest_23)" -" fold-var_40)))" -" fold-var_39)))))" -" for-loop_74)" +"(for-loop_183" +" fold-var_146" +" rest_81)" +" fold-var_146)))" +" fold-var_145)))))" +" for-loop_183)" " null" -" lst_52)))))" -" fold-var_141))))" -"(values fold-var_142)))))" -"(if(not #f)(for-loop_181 fold-var_140 rest_79) fold-var_140)))" -" fold-var_139)))))" -" for-loop_181)" +" lst_156)))))" +" fold-var_143))))" +"(values fold-var_144)))))" +"(if(not #f)(for-loop_182 fold-var_142 rest_80) fold-var_142)))" +" fold-var_141)))))" +" for-loop_182)" " null" " lst_33))))" "(reverse$1" -"(let-values(((lst_155) link-mod-uses_0))" +"(let-values(((lst_158) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_182)" -"(lambda(fold-var_144 lst_156)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_148 lst_159)" "(begin" " 'for-loop" -"(if(pair? lst_156)" -"(let-values(((mu_4)(unsafe-car lst_156))((rest_80)(unsafe-cdr lst_156)))" -"(let-values(((fold-var_145)" -"(let-values(((fold-var_146) fold-var_144))" -"(let-values(((fold-var_147)" +"(if(pair? lst_159)" +"(let-values(((mu_4)(unsafe-car lst_159))((rest_82)(unsafe-cdr lst_159)))" +"(let-values(((fold-var_149)" +"(let-values(((fold-var_150) fold-var_148))" +"(let-values(((fold-var_151)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_157)" +"(let-values(((lst_160)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -27081,20 +27090,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_157)))" -"((letrec-values(((for-loop_183)" +"(check-list lst_160)))" +"((letrec-values(((for-loop_185)" "(lambda(table_140" -" lst_113)" +" lst_112)" "(begin" " 'for-loop" "(if(pair?" -" lst_113)" +" lst_112)" "(let-values(((vu_2)" "(unsafe-car" -" lst_113))" +" lst_112))" "((rest_56)" "(unsafe-cdr" -" lst_113)))" +" lst_112)))" "(let-values(((table_141)" "(let-values(((table_142)" " table_140))" @@ -27109,7 +27118,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_184)" +"((letrec-values(((for-loop_186)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -27123,7 +27132,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_185)" +"((letrec-values(((for-loop_187)" "(lambda(table_143)" "(begin" " 'for-loop" @@ -27131,10 +27140,10 @@ static const char *startup_source = "(let-values(((table_33)" "(let-values(((table_144)" " table_143))" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_208)" " extra-inspectors_1))" -"(if or-part_205" -" or-part_205" +"(if or-part_208" +" or-part_208" " cross-linklet-inlining?_0))" "(let-values(((table_145)" " table_144))" @@ -27154,54 +27163,54 @@ static const char *startup_source = " table_146)))" " table_144))))" " table_33))))))" -" for-loop_185)" +" for-loop_187)" " table_31)))))" " table_32))))))" -" for-loop_184)" +" for-loop_186)" " table_142)))" " table_142))))" "(if(not" " #f)" -"(for-loop_183" +"(for-loop_185" " table_141" " rest_56)" " table_141)))" " table_140)))))" -" for-loop_183)" +" for-loop_185)" " '#hash()" -" lst_157)))))" +" lst_160)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_146))))" -"(values fold-var_147)))))" -"(if(not #f)(for-loop_182 fold-var_145 rest_80) fold-var_145)))" -" fold-var_144)))))" -" for-loop_182)" +" fold-var_150))))" +"(values fold-var_151)))))" +"(if(not #f)(for-loop_184 fold-var_149 rest_82) fold-var_149)))" +" fold-var_148)))))" +" for-loop_184)" " null" -" lst_155))))" +" lst_158))))" "(reverse$1" -"(let-values(((lst_158)(header-require-vars-in-order header_5)))" +"(let-values(((lst_161)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_148 lst_159)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_161)))" +"((letrec-values(((for-loop_188)" +"(lambda(fold-var_152 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((vu_3)(unsafe-car lst_159))((rest_81)(unsafe-cdr lst_159)))" -"(let-values(((fold-var_149)" -"(let-values(((fold-var_150) fold-var_148))" +"(if(pair? lst_162)" +"(let-values(((vu_3)(unsafe-car lst_162))((rest_83)(unsafe-cdr lst_162)))" +"(let-values(((fold-var_153)" +"(let-values(((fold-var_154) fold-var_152))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_206)" +"(let-values(((or-part_209)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_206" -" or-part_206" +"(if or-part_209" +" or-part_209" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_151) fold-var_150))" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_155) fold-var_154))" +"(let-values(((fold-var_156)" "(let-values()" "(cons" "(let-values()" @@ -27215,14 +27224,14 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" -" fold-var_151))))" -"(values fold-var_152)))" -" fold-var_150))))" -"(if(not #f)(for-loop_186 fold-var_149 rest_81) fold-var_149)))" -" fold-var_148)))))" -" for-loop_186)" +" fold-var_155))))" +"(values fold-var_156)))" +" fold-var_154))))" +"(if(not #f)(for-loop_188 fold-var_153 rest_83) fold-var_153)))" +" fold-var_152)))))" +" for-loop_188)" " null" -" lst_158)))))))))" +" lst_161)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27366,7 +27375,7 @@ static const char *startup_source = "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_134)(syntax-property$2 e_32 k_32 v_134))))" +"((e_32 k_32 v_167)(syntax-property$2 e_32 k_32 v_167))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_109)" @@ -27408,7 +27417,7 @@ static const char *startup_source = "(let-values(((compile_0)" "(lambda(p_38 name_4 result-used?_1)" "(begin 'compile(compile$2 p_38 cctx_1 name_4 result-used?_1)))))" -"(let-values(((s_171)(parsed-s p_37)))" +"(let-values(((s_170)(parsed-s p_37)))" "(if(parsed-id? p_37)" "(let-values()" "(let-values(((p25_0) p_37)((cctx26_0) cctx_1))" @@ -27419,7 +27428,7 @@ static const char *startup_source = "(let-values()" "(add-lambda-properties" "(correlate*" -" s_171" +" s_170" "(list*" " 'lambda" "(compile-lambda" @@ -27427,15 +27436,15 @@ static const char *startup_source = "(parsed-lambda-body p_37)" " cctx_1)))" " name_40" -" s_171))" -"(let-values()(correlate~ s_171 ''unused-lambda))))" +" s_170))" +"(let-values()(correlate~ s_170 ''unused-lambda))))" "(if(parsed-case-lambda? p_37)" "(let-values()" "(if result-used?_0" "(let-values()" "(add-lambda-properties" "(correlate*" -" s_171" +" s_170" "(list*" " 'case-lambda" "(reverse$1" @@ -27477,13 +27486,13 @@ static const char *startup_source = " null" " lst_86))))))" " name_40" -" s_171))" -"(let-values()(correlate~ s_171 ''unused-case-lambda))))" +" s_170))" +"(let-values()(correlate~ s_170 ''unused-case-lambda))))" "(if(parsed-app? p_37)" "(let-values()" "(let-values(((rands_0)(parsed-app-rands p_37)))" "(correlate/app" -" s_171" +" s_170" "(cons" "(compile_0(parsed-app-rator p_37) #f #t)" "(reverse$1" @@ -27492,18 +27501,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_187)" -"(lambda(fold-var_153 lst_160)" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_157 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((r_40)(unsafe-car lst_160))" -"((rest_82)" -"(unsafe-cdr lst_160)))" +"(if(pair? lst_163)" +"(let-values(((r_40)(unsafe-car lst_163))" +"((rest_84)" +"(unsafe-cdr lst_163)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" -" fold-var_153))" -"(let-values(((fold-var_154)" +" fold-var_157))" +"(let-values(((fold-var_158)" "(let-values()" "(cons" "(let-values()" @@ -27513,12 +27522,12 @@ static const char *startup_source = " #t))" " fold-var_34))))" "(values" -" fold-var_154)))))" +" fold-var_158)))))" "(if(not #f)" -"(for-loop_187 fold-var_33 rest_82)" +"(for-loop_189 fold-var_33 rest_84)" " fold-var_33)))" -" fold-var_153)))))" -" for-loop_187)" +" fold-var_157)))))" +" for-loop_189)" " null" " lst_88))))))))" "(if(parsed-if? p_37)" @@ -27532,7 +27541,7 @@ static const char *startup_source = "(compile_0(parsed-if-els p_37) name_40 result-used?_0))" "(let-values()" "(correlate~" -" s_171" +" s_170" "(list" " 'if" " tst-e_0" @@ -27541,7 +27550,7 @@ static const char *startup_source = "(if(parsed-with-continuation-mark? p_37)" "(let-values()" "(correlate~" -" s_171" +" s_170" "(list" " 'with-continuation-mark" "(compile_0(parsed-with-continuation-mark-key p_37) #f #t)" @@ -27553,7 +27562,7 @@ static const char *startup_source = "(if(parsed-begin0? p_37)" "(let-values()" "(correlate~" -" s_171" +" s_170" "(list*" " 'begin0" "(compile_0(car(parsed-begin0-body p_37)) name_40 result-used?_0)" @@ -27563,18 +27572,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_188)" -"(lambda(fold-var_155 lst_79)" +"((letrec-values(((for-loop_190)" +"(lambda(fold-var_159 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" "(let-values(((e_33)" "(unsafe-car lst_79))" -"((rest_83)" +"((rest_85)" "(unsafe-cdr lst_79)))" -"(let-values(((fold-var_156)" +"(let-values(((fold-var_160)" "(let-values(((fold-var_94)" -" fold-var_155))" +" fold-var_159))" "(let-values(((fold-var_95)" "(let-values()" "(cons" @@ -27587,18 +27596,18 @@ static const char *startup_source = "(values" " fold-var_95)))))" "(if(not #f)" -"(for-loop_188" -" fold-var_156" -" rest_83)" -" fold-var_156)))" -" fold-var_155)))))" -" for-loop_188)" +"(for-loop_190" +" fold-var_160" +" rest_85)" +" fold-var_160)))" +" fold-var_159)))))" +" for-loop_190)" " null" " lst_23)))))))" "(if(parsed-begin? p_37)" "(let-values()" "(correlate~" -" s_171" +" s_170" "(compile-begin" "(parsed-begin-body p_37)" " cctx_1" @@ -27607,7 +27616,7 @@ static const char *startup_source = "(if(parsed-set!? p_37)" "(let-values()" "(correlate~" -" s_171" +" s_170" "(let-values(((temp27_4)(parsed-set!-id p_37))" "((cctx28_0) cctx_1)" "((temp29_1) #t)" @@ -27647,9 +27656,9 @@ static const char *startup_source = "(let-values()" "(let-values(((datum_1)(parsed-quote-datum p_37)))" "(if(self-quoting-in-linklet? datum_1)" -"(let-values()(correlate~ s_171 datum_1))" +"(let-values()(correlate~ s_170 datum_1))" "(let-values()" -"(correlate~ s_171(list 'quote datum_1))))))" +"(correlate~ s_170(list 'quote datum_1))))))" "(if(parsed-quote-syntax? p_37)" "(let-values()" "(if result-used?_0" @@ -27657,18 +27666,18 @@ static const char *startup_source = "(parsed-quote-syntax-datum p_37)" " cctx_1)" "(correlate~" -" s_171" -"(list 'quote(syntax->datum$1 s_171)))))" +" s_170" +"(list 'quote(syntax->datum$1 s_170)))))" "(if(parsed-#%variable-reference? p_37)" "(let-values()" -"(let-values(((id_45)" +"(let-values(((id_46)" "(parsed-#%variable-reference-id p_37)))" "(correlate~" -" s_171" -"(if id_45" +" s_170" +"(if id_46" "(list" " '#%variable-reference" -"(let-values(((id41_0) id_45)((cctx42_0) cctx_1))" +"(let-values(((id41_0) id_46)((cctx42_0) cctx_1))" "(compile-identifier22.1 #f #f id41_0 cctx42_0)))" " '(#%variable-reference)))))" "(let-values()" @@ -27697,23 +27706,23 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_161) es_0)((start_33) 0))" +"(let-values(((lst_164) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_161)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_189)" -"(lambda(fold-var_157 lst_162 pos_91)" +"((letrec-values(((for-loop_191)" +"(lambda(fold-var_161 lst_165 pos_91)" "(begin" " 'for-loop" -"(if(if(pair? lst_162) #t #f)" -"(let-values(((e_4)(unsafe-car lst_162))" -"((rest_84)(unsafe-cdr lst_162))" +"(if(if(pair? lst_165) #t #f)" +"(let-values(((e_4)(unsafe-car lst_165))" +"((rest_86)(unsafe-cdr lst_165))" "((i_135) pos_91))" -"(let-values(((fold-var_158)" -"(let-values(((fold-var_159) fold-var_157))" -"(let-values(((fold-var_160)" +"(let-values(((fold-var_162)" +"(let-values(((fold-var_163) fold-var_161))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" @@ -27724,13 +27733,13 @@ static const char *startup_source = " cctx_7" "(if used?_0 name_43 #f)" "(if used?_0 result-used?_3 #f))))" -" fold-var_159))))" -"(values fold-var_160)))))" -"(if(not #f)(for-loop_189 fold-var_158 rest_84(+ pos_91 1)) fold-var_158)))" -" fold-var_157)))))" -" for-loop_189)" +" fold-var_163))))" +"(values fold-var_164)))))" +"(if(not #f)(for-loop_191 fold-var_162 rest_86(+ pos_91 1)) fold-var_162)))" +" fold-var_161)))))" +" for-loop_191)" " null" -" lst_161" +" lst_164" " start_33)))))))))" "(define-values" "(add-lambda-properties)" @@ -27746,17 +27755,17 @@ static const char *startup_source = "(let-values(((n2_0)(simplify-name_0(cdr v_93))))(if(eq? n1_0 n2_0) n1_0 v_93))))" "(let-values() v_93))))))" "(let-values(((name_44)" -"(let-values(((or-part_207)" +"(let-values(((or-part_210)" "(let-values(((v_54)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_208)(symbol? v_54)))" -"(if or-part_208" -" or-part_208" -"(let-values(((or-part_209)(syntax?$1 v_54)))" -"(if or-part_209 or-part_209(void? v_54)))))" +"(if(let-values(((or-part_211)(symbol? v_54)))" +"(if or-part_211" +" or-part_211" +"(let-values(((or-part_212)(syntax?$1 v_54)))" +"(if or-part_212 or-part_212(void? v_54)))))" " v_54" " #f))))" -"(if or-part_207 or-part_207 inferred-name_0))))" +"(if or-part_210 or-part_210 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_44" "(correlated-property" @@ -27785,37 +27794,37 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_163)(parsed-let_-values-clauses p_42))" -"((lst_164)(parsed-let_-values-idss p_42)))" +"(let-values(((lst_166)(parsed-let_-values-clauses p_42))" +"((lst_167)(parsed-let_-values-idss p_42)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_166)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_190)" -"(lambda(fold-var_161 lst_165 lst_166)" +"(let-values()(check-list lst_167)))" +"((letrec-values(((for-loop_192)" +"(lambda(fold-var_165 lst_168 lst_169)" "(begin" " 'for-loop" -"(if(if(pair? lst_165)(pair? lst_166) #f)" -"(let-values(((clause_1)(unsafe-car lst_165))" -"((rest_85)(unsafe-cdr lst_165))" -"((ids_4)(unsafe-car lst_166))" -"((rest_86)(unsafe-cdr lst_166)))" -"(let-values(((fold-var_162)" -"(let-values(((fold-var_163) fold-var_161))" -"(let-values(((fold-var_164)" +"(if(if(pair? lst_168)(pair? lst_169) #f)" +"(let-values(((clause_1)(unsafe-car lst_168))" +"((rest_87)(unsafe-cdr lst_168))" +"((ids_4)(unsafe-car lst_169))" +"((rest_88)(unsafe-cdr lst_169)))" +"(let-values(((fold-var_166)" +"(let-values(((fold-var_167) fold-var_165))" +"(let-values(((fold-var_168)" "(let-values()" "(cons" "(let-values()" "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_167)" +"(let-values(((lst_170)" "(car" " clause_1))" -"((lst_168)" +"((lst_171)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27823,61 +27832,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_167)))" +" lst_170)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_168)))" -"((letrec-values(((for-loop_191)" -"(lambda(fold-var_165" -" lst_169" -" lst_170)" +" lst_171)))" +"((letrec-values(((for-loop_193)" +"(lambda(fold-var_169" +" lst_172" +" lst_173)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_169)" +" lst_172)" "(pair?" -" lst_170)" +" lst_173)" " #f)" "(let-values(((sym_56)" "(unsafe-car" -" lst_169))" -"((rest_87)" +" lst_172))" +"((rest_89)" "(unsafe-cdr" -" lst_169))" -"((id_46)" +" lst_172))" +"((id_47)" "(unsafe-car" -" lst_170))" -"((rest_88)" +" lst_173))" +"((rest_90)" "(unsafe-cdr" -" lst_170)))" +" lst_173)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" -" fold-var_165))" +" fold-var_169))" "(let-values(((fold-var_97)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_56" -" id_46))" +" id_47))" " fold-var_3))))" "(values" " fold-var_97)))))" "(if(not" " #f)" -"(for-loop_191" +"(for-loop_193" " fold-var_2" -" rest_87" -" rest_88)" +" rest_89" +" rest_90)" " fold-var_2)))" -" fold-var_165)))))" -" for-loop_191)" +" fold-var_169)))))" +" for-loop_193)" " null" -" lst_167" -" lst_168))))" +" lst_170" +" lst_171))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27885,27 +27894,27 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_163))))" -"(values fold-var_164)))))" +" fold-var_167))))" +"(values fold-var_168)))))" "(if(not #f)" -"(for-loop_190 fold-var_162 rest_85 rest_86)" -" fold-var_162)))" -" fold-var_161)))))" -" for-loop_190)" +"(for-loop_192 fold-var_166 rest_87 rest_88)" +" fold-var_166)))" +" fold-var_165)))))" +" for-loop_192)" " null" -" lst_163" -" lst_164))))" +" lst_166" +" lst_167))))" "(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" "(lambda(sym_54 orig-id_0)" "(begin" -"(let-values(((id_47)(correlate~ orig-id_0 sym_54)))" +"(let-values(((id_48)(correlate~ orig-id_0 sym_54)))" "(correlated-property" -"(->correlated id_47)" +"(->correlated id_48)" " 'undefined-error-name" -"(let-values(((or-part_210)(syntax-property$1 orig-id_0 'undefined-error-name)))" -"(if or-part_210 or-part_210(syntax-e$1 orig-id_0))))))))" +"(let-values(((or-part_213)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_213 or-part_213(syntax-e$1 orig-id_0))))))))" "(define-values" "(compile-identifier22.1)" "(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)" @@ -27918,9 +27927,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_43)))" "(let-values(((b_74)" -"(let-values(((or-part_211) normal-b_0))" -"(if or-part_211" -" or-part_211" +"(let-values(((or-part_214) normal-b_0))" +"(if or-part_214" +" or-part_214" "(let-values(((temp43_0)(compile-context-self cctx_9))" "((temp44_0)(compile-context-phase cctx_9))" "((temp45_0)(syntax-e$1(parsed-s p_43))))" @@ -27942,7 +27951,7 @@ static const char *startup_source = "(let-values()(local-binding-key b_74))" "(if(module-binding? b_74)" "(let-values()" -"(let-values(((mpi_41)" +"(let-values(((mpi_40)" "(if(parsed-top-id? p_43)" "(compile-context-self cctx_9)" "(module-binding-module b_74))))" @@ -27960,7 +27969,7 @@ static const char *startup_source = "(module-binding-sym b_74)))" "(void))" "(module-binding-sym b_74)))" -"(if(eq? mpi_41(compile-context-module-self cctx_9))" +"(if(eq? mpi_40(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" @@ -27968,18 +27977,18 @@ static const char *startup_source = "(module-binding-sym b_74))))" "(let-values()" "(let-values(((temp46_0)(compile-context-header cctx_9))" -"((mpi47_0) mpi_41)" +"((mpi47_0) mpi_40)" "((temp48_0)(module-binding-phase b_74))" "((temp49_0)(module-binding-sym b_74))" "((temp50_0)" -"(let-values(((or-part_212)" +"(let-values(((or-part_215)" "(module-binding-extra-inspector b_74)))" -"(if or-part_212" -" or-part_212" -"(let-values(((or-part_213)" +"(if or-part_215" +" or-part_215" +"(let-values(((or-part_216)" "(parsed-id-inspector p_43)))" -"(if or-part_213" -" or-part_213" +"(if or-part_216" +" or-part_216" "(if(parsed-s p_43)" "(syntax-inspector(parsed-s p_43))" " #f)))))))" @@ -28050,8 +28059,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_214)(not extra-inspectors-1_0)))" -"(if or-part_214 or-part_214(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_217)(not extra-inspectors-1_0)))" +"(if or-part_217 or-part_217(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -28103,17 +28112,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_108)" -"(lambda(fold-var_11 lst_91 lst_171)" +"(lambda(fold-var_11 lst_91 lst_174)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_171) #f)" +"(if(if(pair? lst_91)(pair? lst_174) #f)" "(let-values(((mu_5)(unsafe-car lst_91))" -"((rest_89)(unsafe-cdr lst_91))" -"((extra-inspectorss_1)(unsafe-car lst_171))" -"((rest_37)(unsafe-cdr lst_171)))" -"(let-values(((fold-var_166)" -"(let-values(((fold-var_167) fold-var_11))" -"(let-values(((fold-var_168)" +"((rest_91)(unsafe-cdr lst_91))" +"((extra-inspectorss_1)(unsafe-car lst_174))" +"((rest_37)(unsafe-cdr lst_174)))" +"(let-values(((fold-var_170)" +"(let-values(((fold-var_171) fold-var_11))" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" @@ -28122,9 +28131,9 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_167))))" -"(values fold-var_168)))))" -"(if(not #f)(for-loop_108 fold-var_166 rest_89 rest_37) fold-var_166)))" +" fold-var_171))))" +"(values fold-var_172)))))" +"(if(not #f)(for-loop_108 fold-var_170 rest_91 rest_37) fold-var_170)))" " fold-var_11)))))" " for-loop_108)" " null" @@ -28135,15 +28144,15 @@ static const char *startup_source = "(let-values(((lst_92) mus_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_192)" -"(lambda(fold-var_169 lst_17)" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_173 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" -"(let-values(((mu_6)(unsafe-car lst_17))((rest_90)(unsafe-cdr lst_17)))" +"(let-values(((mu_6)(unsafe-car lst_17))((rest_92)(unsafe-cdr lst_17)))" "(let-values(((fold-var_74)" -"(let-values(((fold-var_64) fold-var_169))" -"(let-values(((fold-var_170)" +"(let-values(((fold-var_64) fold-var_173))" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" @@ -28153,10 +28162,10 @@ static const char *startup_source = " #f" " #f))" " fold-var_64))))" -"(values fold-var_170)))))" -"(if(not #f)(for-loop_192 fold-var_74 rest_90) fold-var_74)))" -" fold-var_169)))))" -" for-loop_192)" +"(values fold-var_174)))))" +"(if(not #f)(for-loop_194 fold-var_74 rest_92) fold-var_74)))" +" fold-var_173)))))" +" for-loop_194)" " null" " lst_92)))))))))" "(define-values" @@ -28164,15 +28173,15 @@ static const char *startup_source = "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_172) mu*s_0))" +"(let-values(((lst_175) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" -"((letrec-values(((for-loop_193)" -"(lambda(fold-var_76 lst_173)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_195)" +"(lambda(fold-var_76 lst_176)" "(begin" " 'for-loop" -"(if(pair? lst_173)" -"(let-values(((mu*_0)(unsafe-car lst_173))((rest_91)(unsafe-cdr lst_173)))" +"(if(pair? lst_176)" +"(let-values(((mu*_0)(unsafe-car lst_176))((rest_93)(unsafe-cdr lst_176)))" "(let-values(((fold-var_17)" "(let-values(((fold-var_66) fold-var_76))" "(let-values(((fold-var_67)" @@ -28184,11 +28193,11 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_66))))" "(values fold-var_67)))))" -"(if(not #f)(for-loop_193 fold-var_17 rest_91) fold-var_17)))" +"(if(not #f)(for-loop_195 fold-var_17 rest_93) fold-var_17)))" " fold-var_76)))))" -" for-loop_193)" +" for-loop_195)" " null" -" lst_172)))))))" +" lst_175)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -28196,16 +28205,16 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_174) mu*s_1))" +"(let-values(((lst_177) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_194)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_196)" "(lambda(fold-var_79 lst_96)" "(begin" " 'for-loop" "(if(pair? lst_96)" -"(let-values(((mu*_1)(unsafe-car lst_96))((rest_92)(unsafe-cdr lst_96)))" -"(let-values(((fold-var_171)" +"(let-values(((mu*_1)(unsafe-car lst_96))((rest_94)(unsafe-cdr lst_96)))" +"(let-values(((fold-var_175)" "(let-values(((fold-var_4) fold-var_79))" "(let-values(((fold-var_68)" "(let-values()" @@ -28214,29 +28223,29 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_68)))))" -"(if(not #f)(for-loop_194 fold-var_171 rest_92) fold-var_171)))" +"(if(not #f)(for-loop_196 fold-var_175 rest_94) fold-var_175)))" " fold-var_79)))))" -" for-loop_194)" +" for-loop_196)" " null" -" lst_174)))))" +" lst_177)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_175) mu*s_1)((lst_176)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_178) mu*s_1)((lst_179)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" "((letrec-values(((for-loop_28)" -"(lambda(fold-var_6 lst_177 lst_161)" +"(lambda(fold-var_6 lst_180 lst_164)" "(begin" " 'for-loop" -"(if(if(pair? lst_177)(pair? lst_161) #f)" -"(let-values(((mu*_2)(unsafe-car lst_177))" -"((rest_93)(unsafe-cdr lst_177))" -"((imports_0)(unsafe-car lst_161))" -"((rest_94)(unsafe-cdr lst_161)))" -"(let-values(((fold-var_172)" -"(let-values(((fold-var_173) fold-var_6))" -"(let-values(((fold-var_174)" +"(if(if(pair? lst_180)(pair? lst_164) #f)" +"(let-values(((mu*_2)(unsafe-car lst_180))" +"((rest_95)(unsafe-cdr lst_180))" +"((imports_0)(unsafe-car lst_164))" +"((rest_96)(unsafe-cdr lst_164)))" +"(let-values(((fold-var_176)" +"(let-values(((fold-var_177) fold-var_6))" +"(let-values(((fold-var_178)" "(let-values()" "(cons" "(let-values()" @@ -28251,17 +28260,17 @@ static const char *startup_source = "(let-values()(check-list lst_99)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_178)" +" lst_181)" "(begin" " 'for-loop" "(if(pair?" -" lst_178)" +" lst_181)" "(let-values(((import_0)" "(unsafe-car" -" lst_178))" -"((rest_95)" +" lst_181))" +"((rest_97)" "(unsafe-cdr" -" lst_178)))" +" lst_181)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -28288,46 +28297,46 @@ static const char *startup_source = " #f)" "(for-loop_19" " extra-inspectorss_4" -" rest_95)" +" rest_97)" " extra-inspectorss_4)))" " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" " lst_99)))))" -" fold-var_173))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_28 fold-var_172 rest_93 rest_94) fold-var_172)))" +" fold-var_177))))" +"(values fold-var_178)))))" +"(if(not #f)(for-loop_28 fold-var_176 rest_95 rest_96) fold-var_176)))" " fold-var_6)))))" " for-loop_28)" " null" -" lst_175" -" lst_176)))))))))" +" lst_178" +" lst_179)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_42 phase_72 imports_1 inspector_13 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_41 phase_73 imports_1 inspector_13 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_13(inspector-superior? inspector_13 now-inspector_0) #f)))" "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_215) add-insp?_0))(if or-part_215 or-part_215 add-extra-insp?_0))" +"(if(let-values(((or-part_218) add-insp?_0))(if or-part_218 or-part_218 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_179) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_195)" -"(lambda(table_147 lst_180)" +"(let-values()(check-list lst_182)))" +"((letrec-values(((for-loop_197)" +"(lambda(table_147 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_180)" -"(let-values(((import_1)(unsafe-car lst_180))" -"((rest_96)(unsafe-cdr lst_180)))" +"(if(pair? lst_183)" +"(let-values(((import_1)(unsafe-car lst_183))" +"((rest_98)(unsafe-cdr lst_183)))" "(let-values(((table_148)" "(let-values(((table_149) table_147))" "(let-values(((table_150)" @@ -28345,14 +28354,14 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_216)" +"(let-values(((or-part_219)" "(if add-insp?_0" "(inspector-superior?" " inspector_13" " guard-insp_2)" " #f)))" -"(if or-part_216" -" or-part_216" +"(if or-part_219" +" or-part_219" "(let-values(((or-part_100)" "(if add-extra-insp?_0" "(inspector-superior?" @@ -28369,24 +28378,24 @@ static const char *startup_source = " key_57" " val_50)))))" "(values table_150)))))" -"(if(not #f)(for-loop_195 table_148 rest_96) table_148)))" +"(if(not #f)(for-loop_197 table_148 rest_98) table_148)))" " table_147)))))" -" for-loop_195)" +" for-loop_197)" " '#hash()" -" lst_179))))" +" lst_182))))" "(let-values()" -"(let-values(((lst_181) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_181)))" -"((letrec-values(((for-loop_196)" -"(lambda(extra-inspectorss_8 lst_164)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_198)" +"(lambda(extra-inspectorss_8 lst_167)" "(begin" " 'for-loop" -"(if(pair? lst_164)" -"(let-values(((import_2)(unsafe-car lst_164))" -"((rest_97)(unsafe-cdr lst_164)))" +"(if(pair? lst_167)" +"(let-values(((import_2)(unsafe-car lst_167))" +"((rest_99)(unsafe-cdr lst_167)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28403,13 +28412,13 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_196 extra-inspectorss_9 rest_97)" +"(for-loop_198 extra-inspectorss_9 rest_99)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_196)" +" for-loop_198)" "(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))" -" lst_181)))))))" -"(module-use*1.1 mpi_42 phase_72 new-extra-inspectorss_0 #f))))))))" +" lst_184)))))))" +"(module-use*1.1 mpi_41 phase_73 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28422,7 +28431,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_113)))" -"((letrec-values(((for-loop_197)" +"((letrec-values(((for-loop_199)" "(lambda(new-extra-inspectorss_2 i_137)" "(begin" " 'for-loop" @@ -28445,12 +28454,12 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_197" +"(for-loop_199" " new-extra-inspectorss_3" "(hash-iterate-next ht_113 i_137))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_197)" +" for-loop_199)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28521,31 +28530,31 @@ static const char *startup_source = "(let-values(((serializable?_0) serializable?13_0))" "(let-values(((cross-linklet-inlining?_1) cross-linklet-inlining?14_0))" "(let-values()" -"(let-values(((phase_73)(compile-context-phase cctx_11)))" +"(let-values(((phase_74)(compile-context-phase cctx_11)))" "(let-values(((self_17)(compile-context-self cctx_11)))" "(let-values(((syntax-literals_1)(make-syntax-literals)))" "(let-values(((phase-to-body_0)(make-hasheqv)))" "(let-values(((add-body!_0)" -"(lambda(phase_74 body_1)" +"(lambda(phase_75 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_74" +" phase_75" "(lambda(l_21)(cons body_1 l_21))" " null)))))" "(let-values(((phase-to-header_0)(make-hasheqv)))" "(let-values(((find-or-create-header!_0)" -"(lambda(phase_75)" +"(lambda(phase_76)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_217)" +"(let-values(((or-part_220)" "(hash-ref" " phase-to-header_0" -" phase_75" +" phase_76" " #f)))" -"(if or-part_217" -" or-part_217" +"(if or-part_220" +" or-part_220" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28553,7 +28562,7 @@ static const char *startup_source = "(begin" "(hash-set!" " phase-to-header_0" -" phase_75" +" phase_76" " header_7)" " header_7))))))))" "(let-values((()" @@ -28569,10 +28578,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_26)" -"(let-values(((phase_76)" +"(let-values(((phase_77)" "(unsafe-car" " lst_26))" -"((rest_98)" +"((rest_100)" "(unsafe-cdr" " lst_26)))" "(let-values((()" @@ -28583,15 +28592,15 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_76)" +" phase_77)" "(add-body!_0" -" phase_76" +" phase_77" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_113" -" rest_98)" +" rest_100)" "(values))))" "(values))))))" " for-loop_113)" @@ -28610,7 +28619,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_182)" +"(let-values(((lst_185)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28618,19 +28627,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_182)))" -"((letrec-values(((for-loop_198)" -"(lambda(lst_183)" +" lst_185)))" +"((letrec-values(((for-loop_200)" +"(lambda(lst_186)" "(begin" " 'for-loop" "(if(pair?" -" lst_183)" +" lst_186)" "(let-values(((body_2)" "(unsafe-car" -" lst_183))" -"((rest_99)" +" lst_186))" +"((rest_101)" "(unsafe-cdr" -" lst_183)))" +" lst_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28641,7 +28650,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_184)" +"(let-values(((lst_187)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28650,19 +28659,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_184)))" +" lst_187)))" "((letrec-values(((for-loop_3)" -"(lambda(lst_185)" +"(lambda(lst_188)" "(begin" " 'for-loop" "(if(pair?" -" lst_185)" +" lst_188)" "(let-values(((sym_59)" "(unsafe-car" -" lst_185))" -"((rest_100)" +" lst_188))" +"((rest_102)" "(unsafe-cdr" -" lst_185)))" +" lst_188)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28693,11 +28702,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_3" -" rest_100)" +" rest_102)" "(values))))" "(values))))))" " for-loop_3)" -" lst_184)))" +" lst_187)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28715,17 +28724,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_198" -" rest_99)" +"(for-loop_200" +" rest_101)" "(values))))" "(values))))))" -" for-loop_198)" -" lst_182)))" +" for-loop_200)" +" lst_185)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_73" -"(find-or-create-header!_0 phase_73)))" +" phase_74" +"(find-or-create-header!_0 phase_74)))" "(void))" "(values))))" "(let-values(((as-required?_0)" @@ -28741,12 +28750,12 @@ static const char *startup_source = "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_77" +" phase_78" " header_10)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_186)" +"(let-values(((lst_189)" " bodys_4)" "((start_34)" " 0))" @@ -28756,28 +28765,28 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_186)))" +" lst_189)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_199)" -"(lambda(lst_187" +"((letrec-values(((for-loop_201)" +"(lambda(lst_190" " pos_93)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_187)" +" lst_190)" " #t" " #f)" "(let-values(((body_0)" "(unsafe-car" -" lst_187))" -"((rest_101)" +" lst_190))" +"((rest_103)" "(unsafe-cdr" -" lst_187))" +" lst_190))" "((i_107)" " pos_93))" "(let-values((()" @@ -28800,7 +28809,7 @@ static const char *startup_source = " cctx_11)" "(let-values()" "(reverse$1" -"(let-values(((lst_188)" +"(let-values(((lst_191)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28808,24 +28817,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_188)))" +" lst_191)))" "((letrec-values(((for-loop_121)" -"(lambda(fold-var_175" -" lst_189)" +"(lambda(fold-var_179" +" lst_192)" "(begin" " 'for-loop" "(if(pair?" -" lst_189)" +" lst_192)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_189))" -"((rest_102)" +" lst_192))" +"((rest_104)" "(unsafe-cdr" -" lst_189)))" -"(let-values(((fold-var_164)" -"(let-values(((fold-var_176)" -" fold-var_175))" -"(let-values(((fold-var_177)" +" lst_192)))" +"(let-values(((fold-var_168)" +"(let-values(((fold-var_180)" +" fold-var_179))" +"(let-values(((fold-var_181)" "(let-values()" "(cons" "(let-values()" @@ -28833,22 +28842,22 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_176))))" +" fold-var_180))))" "(values" -" fold-var_177)))))" +" fold-var_181)))))" "(if(not" " #f)" "(for-loop_121" -" fold-var_164" -" rest_102)" -" fold-var_164)))" -" fold-var_175)))))" +" fold-var_168" +" rest_104)" +" fold-var_168)))" +" fold-var_179)))))" " for-loop_121)" " null" -" lst_188)))))" +" lst_191)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_190)" +"(let-values(((lst_193)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28856,23 +28865,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" -"((letrec-values(((for-loop_200)" -"(lambda(fold-var_178" -" lst_170)" +" lst_193)))" +"((letrec-values(((for-loop_202)" +"(lambda(fold-var_182" +" lst_173)" "(begin" " 'for-loop" "(if(pair?" -" lst_170)" +" lst_173)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_170))" -"((rest_87)" +" lst_173))" +"((rest_89)" "(unsafe-cdr" -" lst_170)))" -"(let-values(((fold-var_179)" +" lst_173)))" +"(let-values(((fold-var_183)" "(let-values(((fold-var_1)" -" fold-var_178))" +" fold-var_182))" "(let-values(((fold-var_2)" "(let-values()" "(cons" @@ -28883,7 +28892,7 @@ static const char *startup_source = "(compile-context-self" " cctx_11))" "((phase37_0)" -" phase_77)" +" phase_78)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_1)" @@ -28902,43 +28911,43 @@ static const char *startup_source = " fold-var_2)))))" "(if(not" " #f)" -"(for-loop_200" -" fold-var_179" -" rest_87)" -" fold-var_179)))" -" fold-var_178)))))" -" for-loop_200)" +"(for-loop_202" +" fold-var_183" +" rest_89)" +" fold-var_183)))" +" fold-var_182)))))" +" for-loop_202)" " null" -" lst_190))))))))" +" lst_193))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_0)" -"(let-values(((the-struct_48)" +"(let-values(((the-struct_49)" " cctx_11))" "(if(compile-context?" -" the-struct_48)" +" the-struct_49)" "(let-values(((phase41_0)" -" phase_77)" +" phase_78)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_48)" +" the-struct_49)" " phase41_0" "(compile-context-self" -" the-struct_48)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_48)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_48)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_48)" +" the-struct_49)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_48)))" +" the-struct_49)))" "(if(=" "(length" " ids_5)" @@ -28952,11 +28961,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_77" +" phase_78" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_77" +" phase_78" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28967,25 +28976,25 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_0)))" -"(if(let-values(((or-part_166)" +"(if(let-values(((or-part_169)" "(compile-context-module-self" " cctx_11)))" -"(if or-part_166" -" or-part_166" +"(if or-part_169" +" or-part_169" "(null?" " ids_5)))" "(void)" "(let-values()" "(begin" "(add-body!_0" -" phase_77" +" phase_78" "(list*" " 'if" " #f" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_191)" +"(let-values(((lst_194)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28993,9 +29002,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" -"((letrec-values(((for-loop_201)" -"(lambda(fold-var_180" +" lst_194)))" +"((letrec-values(((for-loop_203)" +"(lambda(fold-var_184" " lst_13)" "(begin" " 'for-loop" @@ -29004,13 +29013,13 @@ static const char *startup_source = "(let-values(((def-sym_2)" "(unsafe-car" " lst_13))" -"((rest_103)" +"((rest_105)" "(unsafe-cdr" " lst_13)))" -"(let-values(((fold-var_181)" -"(let-values(((fold-var_182)" -" fold-var_180))" -"(let-values(((fold-var_183)" +"(let-values(((fold-var_185)" +"(let-values(((fold-var_186)" +" fold-var_184))" +"(let-values(((fold-var_187)" "(let-values()" "(cons" "(let-values()" @@ -29018,50 +29027,50 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_182))))" +" fold-var_186))))" "(values" -" fold-var_183)))))" +" fold-var_187)))))" "(if(not" " #f)" -"(for-loop_201" -" fold-var_181" -" rest_103)" -" fold-var_181)))" -" fold-var_180)))))" -" for-loop_201)" +"(for-loop_203" +" fold-var_185" +" rest_105)" +" fold-var_185)))" +" fold-var_184)))))" +" for-loop_203)" " null" -" lst_191)))))" +" lst_194)))))" " '((void))))" "(add-body!_0" -" phase_77" +" phase_78" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_50)" " cctx_11))" "(if(compile-context?" -" the-struct_49)" +" the-struct_50)" "(let-values(((phase43_0)" -" phase_77)" +" phase_78)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_50)" " phase43_0" "(compile-context-self" -" the-struct_49)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_50)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49)))" +" the-struct_50)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_0)" @@ -29075,10 +29084,10 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_77))))" +" phase_78))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_192)" +"(let-values(((lst_195)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29086,24 +29095,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_192)))" -"((letrec-values(((for-loop_202)" -"(lambda(fold-var_184" -" lst_193)" +" lst_195)))" +"((letrec-values(((for-loop_204)" +"(lambda(fold-var_188" +" lst_196)" "(begin" " 'for-loop" "(if(pair?" -" lst_193)" +" lst_196)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_193))" -"((rest_104)" +" lst_196))" +"((rest_106)" "(unsafe-cdr" -" lst_193)))" -"(let-values(((fold-var_185)" -"(let-values(((fold-var_186)" -" fold-var_184))" -"(let-values(((fold-var_187)" +" lst_196)))" +"(let-values(((fold-var_189)" +"(let-values(((fold-var_190)" +" fold-var_188))" +"(let-values(((fold-var_191)" "(let-values()" "(cons" "(let-values()" @@ -29116,49 +29125,49 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_186))))" +" fold-var_190))))" "(values" -" fold-var_187)))))" +" fold-var_191)))))" "(if(not" " #f)" -"(for-loop_202" -" fold-var_185" -" rest_104)" -" fold-var_185)))" -" fold-var_184)))))" -" for-loop_202)" +"(for-loop_204" +" fold-var_189" +" rest_106)" +" fold-var_189)))" +" fold-var_188)))))" +" for-loop_204)" " null" -" lst_192))))))" +" lst_195))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_0)" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_51)" " cctx_11))" "(if(compile-context?" -" the-struct_50)" +" the-struct_51)" "(let-values(((phase45_0)" "(add1" -" phase_77))" +" phase_78))" "((header46_0)" " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_51)" " phase45_0" "(compile-context-self" -" the-struct_50)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_51)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50))))))" +" the-struct_51))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -29170,15 +29179,15 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_77)" +" phase_78)" "(as-required?_0" " header_10))" "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_194)" +"(let-values(((lst_197)" " binding-syms_1)" -"((lst_195)" +"((lst_198)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29186,40 +29195,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" +" lst_197)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_203)" -"(lambda(fold-var_188" -" lst_196" -" lst_197)" +" lst_198)))" +"((letrec-values(((for-loop_205)" +"(lambda(fold-var_192" +" lst_199" +" lst_200)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_196)" +" lst_199)" "(pair?" -" lst_197)" +" lst_200)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_196))" -"((rest_105)" +" lst_199))" +"((rest_107)" "(unsafe-cdr" -" lst_196))" +" lst_199))" "((gen-sym_1)" "(unsafe-car" -" lst_197))" -"((rest_106)" +" lst_200))" +"((rest_108)" "(unsafe-cdr" -" lst_197)))" -"(let-values(((fold-var_189)" -"(let-values(((fold-var_190)" -" fold-var_188))" -"(let-values(((fold-var_191)" +" lst_200)))" +"(let-values(((fold-var_193)" +"(let-values(((fold-var_194)" +" fold-var_192))" +"(let-values(((fold-var_195)" "(let-values()" "(cons" "(let-values()" @@ -29229,28 +29238,28 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_190))))" +" fold-var_194))))" "(values" -" fold-var_191)))))" +" fold-var_195)))))" "(if(not" " #f)" -"(for-loop_203" -" fold-var_189" -" rest_105" -" rest_106)" -" fold-var_189)))" -" fold-var_188)))))" -" for-loop_203)" +"(for-loop_205" +" fold-var_193" +" rest_107" +" rest_108)" +" fold-var_193)))" +" fold-var_192)))))" +" for-loop_205)" " null" -" lst_194" -" lst_195))))))" +" lst_197" +" lst_198))))))" "(begin" "(if(compile-context-module-self" " cctx_11)" "(let-values()" "(add-body!_0" "(add1" -" phase_77)" +" phase_78)" "(list" " 'let-values" "(list" @@ -29265,7 +29274,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_77)" +" phase_78)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -29273,31 +29282,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_52)" " cctx_11))" "(if(compile-context?" -" the-struct_51)" +" the-struct_52)" "(let-values(((phase47_0)" -" phase_77)" +" phase_78)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_52)" " phase47_0" "(compile-context-self" -" the-struct_51)" +" the-struct_52)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_52)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_52)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_52)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51)))" +" the-struct_52)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -29308,15 +29317,15 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_0)" "(add1" -" phase_77)" +" phase_78)" "(find-or-create-header!_0" "(add1" -" phase_77))))" -"(if(let-values(((or-part_218)" +" phase_78))))" +"(if(let-values(((or-part_221)" "(parsed-#%declare?" " body_0)))" -"(if or-part_218" -" or-part_218" +"(if or-part_221" +" or-part_221" "(let-values(((or-part_87)" "(parsed-module?" " body_0)))" @@ -29328,73 +29337,73 @@ static const char *startup_source = "(let-values(((e_34)" "(other-form-callback_0" " body_0" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_53)" " cctx_11))" "(if(compile-context?" -" the-struct_52)" +" the-struct_53)" "(let-values(((phase49_0)" -" phase_77)" +" phase_78)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_53)" " phase49_0" "(compile-context-self" -" the-struct_52)" +" the-struct_53)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_53)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_53)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_53)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52))))))" +" the-struct_53))))))" "(if e_34" "(let-values()" "(begin" "(compiled-expression-callback_0" " e_34" " #f" -" phase_77" +" phase_78" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_77" +" phase_78" " e_34)))" "(void))))" "(let-values()" "(let-values(((e_35)" "(compile$2" " body_0" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_54)" " cctx_11))" "(if(compile-context?" -" the-struct_53)" +" the-struct_54)" "(let-values(((phase51_0)" -" phase_77)" +" phase_78)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" +" the-struct_54)" " phase51_0" "(compile-context-self" -" the-struct_53)" +" the-struct_54)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_54)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_54)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" +" the-struct_54)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53)))" +" the-struct_54)))" " #f" "(=" " i_107" @@ -29403,31 +29412,31 @@ static const char *startup_source = "(compiled-expression-callback_0" " e_35" " #f" -" phase_77" +" phase_78" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_77" +" phase_78" " e_35)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_199" -" rest_101" +"(for-loop_201" +" rest_103" "(+" " pos_93" " 1))" "(values))))" "(values))))))" -" for-loop_199)" -" lst_186" +" for-loop_201)" +" lst_189" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_73" -"(find-or-create-header!_0 phase_73))" +" phase_74" +"(find-or-create-header!_0 phase_74))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -29457,35 +29466,35 @@ static const char *startup_source = "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_73)))" +" phase_74)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_73)))" +" phase_74)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_198)" +"(let-values(((lst_201)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_198)))" -"((letrec-values(((for-loop_204)" +"(check-list lst_201)))" +"((letrec-values(((for-loop_206)" "(lambda(table_151" -" lst_199)" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_199)" -"(let-values(((phase_78)" +" lst_202)" +"(let-values(((phase_79)" "(unsafe-car" -" lst_199))" -"((rest_107)" +" lst_202))" +"((rest_109)" "(unsafe-cdr" -" lst_199)))" +" lst_202)))" "(let-values(((table_152)" "(let-values(((table_153)" " table_151))" @@ -29497,7 +29506,7 @@ static const char *startup_source = "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_78" +" phase_79" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -29505,11 +29514,11 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_78" +" phase_79" " cctx_11" " cross-linklet-inlining?_1)))" "(values" -" phase_78" +" phase_79" "(link-info1.1" " link-module-uses_0" " imports_2" @@ -29523,16 +29532,16 @@ static const char *startup_source = " table_154)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_206" " table_152" -" rest_107)" +" rest_109)" " table_152)))" " table_151)))))" -" for-loop_204)" +" for-loop_206)" " '#hash()" -" lst_198)))))" +" lst_201)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_109)" +"(let-values(((lst_108)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29540,20 +29549,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_109)))" -"((letrec-values(((for-loop_205)" +" lst_108)))" +"((letrec-values(((for-loop_207)" "(lambda(table_155" -" lst_110)" +" lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_110)" -"(let-values(((phase_79)" +" lst_109)" +"(let-values(((phase_80)" "(unsafe-car" -" lst_110))" -"((rest_108)" +" lst_109))" +"((rest_110)" "(unsafe-cdr" -" lst_110)))" +" lst_109)))" "(let-values(((table_156)" "(let-values(((table_157)" " table_155))" @@ -29565,16 +29574,16 @@ static const char *startup_source = "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_79)))" +" phase_80)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_79)))" +" phase_80)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_79))))" +" phase_80))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -29614,35 +29623,35 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_200)" +"(let-values(((lst_203)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" -" phase_79))))" +" phase_80))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_200)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_192" -" lst_201)" +" lst_203)))" +"((letrec-values(((for-loop_208)" +"(lambda(fold-var_196" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_201)" +" lst_204)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_201))" -"((rest_109)" +" lst_204))" +"((rest_111)" "(unsafe-cdr" -" lst_201)))" -"(let-values(((fold-var_193)" -"(let-values(((fold-var_194)" -" fold-var_192))" -"(let-values(((fold-var_195)" +" lst_204)))" +"(let-values(((fold-var_197)" +"(let-values(((fold-var_198)" +" fold-var_196))" +"(let-values(((fold-var_199)" "(let-values()" "(cons" "(let-values()" @@ -29657,19 +29666,19 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_194))))" +" fold-var_198))))" "(values" -" fold-var_195)))))" +" fold-var_199)))))" "(if(not" " #f)" -"(for-loop_206" -" fold-var_193" -" rest_109)" -" fold-var_193)))" -" fold-var_192)))))" -" for-loop_206)" +"(for-loop_208" +" fold-var_197" +" rest_111)" +" fold-var_197)))" +" fold-var_196)))))" +" for-loop_208)" " null" -" lst_200)))))" +" lst_203)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29686,7 +29695,7 @@ static const char *startup_source = " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_79" +" phase_80" "(cons" " linklet_1" "(list-tail" @@ -29702,14 +29711,14 @@ static const char *startup_source = " table_158)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_207" " table_156" -" rest_108)" +" rest_110)" " table_156)))" " table_155)))))" -" for-loop_205)" +" for-loop_207)" " '#hasheq()" -" lst_109)))))" +" lst_108)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_114)" " body-linklets+module-use*s_0))" @@ -29720,13 +29729,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_209)" "(lambda(table_32" " i_138)" "(begin" " 'for-loop" "(if i_138" -"(let-values(((phase_80" +"(let-values(((phase_81" " l+mu*s_0)" "(hash-iterate-key+value" " ht_114" @@ -29740,7 +29749,7 @@ static const char *startup_source = " val_53)" "(let-values()" "(values" -" phase_80" +" phase_81" "(car" " l+mu*s_0)))))" "(hash-set" @@ -29751,14 +29760,14 @@ static const char *startup_source = " table_159)))))" "(if(not" " #f)" -"(for-loop_207" +"(for-loop_209" " table_33" "(hash-iterate-next" " ht_114" " i_138))" " table_33)))" " table_32)))))" -" for-loop_207)" +" for-loop_209)" " '#hasheq()" "(hash-iterate-first" " ht_114))))))" @@ -29772,13 +29781,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_115)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_210)" "(lambda(table_160" " i_139)" "(begin" " 'for-loop" "(if i_139" -"(let-values(((phase_81" +"(let-values(((phase_82" " l+mu*s_1)" "(hash-iterate-key+value" " ht_115" @@ -29792,7 +29801,7 @@ static const char *startup_source = " val_40)" "(let-values()" "(values" -" phase_81" +" phase_82" "(module-uses-strip-extra-inspectorsss" "(cdr" " l+mu*s_1))))))" @@ -29804,14 +29813,14 @@ static const char *startup_source = " table_36)))))" "(if(not" " #f)" -"(for-loop_208" +"(for-loop_210" " table_125" "(hash-iterate-next" " ht_115" " i_139))" " table_125)))" " table_160)))))" -" for-loop_208)" +" for-loop_210)" " '#hasheq()" "(hash-iterate-first" " ht_115))))))" @@ -29829,13 +29838,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_211)" "(lambda(table_161" " i_140)" "(begin" " 'for-loop" "(if i_140" -"(let-values(((phase_82" +"(let-values(((phase_83" " l+mu*s_2)" "(hash-iterate-key+value" " ht_116" @@ -29852,7 +29861,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_210)" +"((letrec-values(((for-loop_212)" "(lambda(table_163)" "(begin" " 'for-loop" @@ -29869,7 +29878,7 @@ static const char *startup_source = " val_54)" "(let-values()" "(values" -" phase_82" +" phase_83" " extra-inspectorsss_2))))" "(hash-set" " table_166" @@ -29879,18 +29888,18 @@ static const char *startup_source = " table_39)))" " table_165))))" " table_164))))))" -" for-loop_210)" +" for-loop_212)" " table_161)))))" "(if(not" " #f)" -"(for-loop_209" +"(for-loop_211" " table_162" "(hash-iterate-next" " ht_116" " i_140))" " table_162)))" " table_161)))))" -" for-loop_209)" +" for-loop_211)" " '#hash()" "(hash-iterate-first" " ht_116))))))" @@ -29907,7 +29916,7 @@ static const char *startup_source = "(compile-top-level-bind)" "(lambda(ids_7 binding-syms_2 cctx_12 trans-exprs_0)" "(begin" -"(let-values(((phase_83)(compile-context-phase cctx_12)))" +"(let-values(((phase_84)(compile-context-phase cctx_12)))" "(let-values(((self_18)(compile-context-self cctx_12)))" "(let-values(((header_12)(compile-context-header cctx_12)))" "(let-values(((mpis_16)(header-module-path-indexes header_12)))" @@ -29918,95 +29927,95 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_202) ids_7)" -"((lst_203) binding-syms_2)" +"(let-values(((lst_205) ids_7)" +"((lst_206) binding-syms_2)" "((lst_47)" -"(let-values(((or-part_219) trans-exprs_0))" -"(if or-part_219" -" or-part_219" +"(let-values(((or-part_222) trans-exprs_0))" +"(if or-part_222" +" or-part_222" "(reverse$1" -"(let-values(((lst_204) ids_7))" +"(let-values(((lst_207) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_211)" -"(lambda(fold-var_196 lst_39)" +"(let-values()(check-list lst_207)))" +"((letrec-values(((for-loop_213)" +"(lambda(fold-var_200 lst_39)" "(begin" " 'for-loop" "(if(pair? lst_39)" -"(let-values(((id_48)(unsafe-car lst_39))" +"(let-values(((id_49)(unsafe-car lst_39))" "((rest_16)(unsafe-cdr lst_39)))" -"(let-values(((fold-var_197)" -"(let-values(((fold-var_198)" -" fold-var_196))" -"(let-values(((fold-var_199)" +"(let-values(((fold-var_201)" +"(let-values(((fold-var_202)" +" fold-var_200))" +"(let-values(((fold-var_203)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_198))))" -"(values fold-var_199)))))" +" fold-var_202))))" +"(values fold-var_203)))))" "(if(not #f)" -"(for-loop_211 fold-var_197 rest_16)" -" fold-var_197)))" -" fold-var_196)))))" -" for-loop_211)" +"(for-loop_213 fold-var_201 rest_16)" +" fold-var_201)))" +" fold-var_200)))))" +" for-loop_213)" " null" -" lst_204))))))))" +" lst_207))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_202)))" +"(let-values()(check-list lst_205)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_203)))" +"(let-values()(check-list lst_206)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_47)))" -"((letrec-values(((for-loop_134)" -"(lambda(fold-var_200 lst_1 lst_205 lst_206)" +"((letrec-values(((for-loop_135)" +"(lambda(fold-var_204 lst_1 lst_208 lst_209)" "(begin" " 'for-loop" -"(if(if(pair? lst_1)(if(pair? lst_205)(pair? lst_206) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_1))" -"((rest_110)(unsafe-cdr lst_1))" -"((binding-sym_5)(unsafe-car lst_205))" -"((rest_111)(unsafe-cdr lst_205))" -"((trans-expr_0)(unsafe-car lst_206))" -"((rest_112)(unsafe-cdr lst_206)))" -"(let-values(((fold-var_201)" -"(let-values(((fold-var_202) fold-var_200))" -"(let-values(((fold-var_203)" +"(if(if(pair? lst_1)(if(pair? lst_208)(pair? lst_209) #f) #f)" +"(let-values(((id_50)(unsafe-car lst_1))" +"((rest_112)(unsafe-cdr lst_1))" +"((binding-sym_5)(unsafe-car lst_208))" +"((rest_113)(unsafe-cdr lst_208))" +"((trans-expr_0)(unsafe-car lst_209))" +"((rest_114)(unsafe-cdr lst_209)))" +"(let-values(((fold-var_205)" +"(let-values(((fold-var_206) fold-var_204))" +"(let-values(((fold-var_207)" "(let-values()" "(cons" "(let-values()" "(let-values(((id-stx_0)" "(compile-quote-syntax" "(remove-scope" -" id_49" +" id_50" " top-level-bind-scope_2)" " cctx_12)))" "(list" " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_83" +" phase_84" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" "(if trans-exprs_0 #t #f)" " trans-expr_0)))" -" fold-var_202))))" -"(values fold-var_203)))))" +" fold-var_206))))" +"(values fold-var_207)))))" "(if(not #f)" -"(for-loop_134 fold-var_201 rest_110 rest_111 rest_112)" -" fold-var_201)))" -" fold-var_200)))))" -" for-loop_134)" +"(for-loop_135 fold-var_205 rest_112 rest_113 rest_114)" +" fold-var_205)))" +" fold-var_204)))))" +" for-loop_135)" " null" -" lst_202" -" lst_203" +" lst_205" +" lst_206" " lst_47))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" @@ -30028,36 +30037,36 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_207) gen-syms_1))" +"(let-values(((lst_210) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_207)))" -"((letrec-values(((for-loop_137)" -"(lambda(fold-var_204 lst_208)" +"(let-values()(check-list lst_210)))" +"((letrec-values(((for-loop_138)" +"(lambda(fold-var_208 lst_211)" "(begin" " 'for-loop" -"(if(pair? lst_208)" -"(let-values(((s_132)(unsafe-car lst_208))((rest_113)(unsafe-cdr lst_208)))" -"(let-values(((fold-var_205)" -"(let-values(((fold-var_206) fold-var_204))" -"(let-values(((fold-var_207)" +"(if(pair? lst_211)" +"(let-values(((s_132)(unsafe-car lst_211))((rest_115)(unsafe-cdr lst_211)))" +"(let-values(((fold-var_209)" +"(let-values(((fold-var_210) fold-var_208))" +"(let-values(((fold-var_211)" "(let-values()" -"(cons(let-values() ''#f) fold-var_206))))" -"(values fold-var_207)))))" -"(if(not #f)(for-loop_137 fold-var_205 rest_113) fold-var_205)))" -" fold-var_204)))))" -" for-loop_137)" +"(cons(let-values() ''#f) fold-var_210))))" +"(values fold-var_211)))))" +"(if(not #f)(for-loop_138 fold-var_209 rest_115) fold-var_209)))" +" fold-var_208)))))" +" for-loop_138)" " null" -" lst_207)))))))" +" lst_210)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_167)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_167(correlated-property e_36 'compiler-hint:cross-module-inline v_167) e_36)))))" +"(let-values(((v_168)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_168(correlated-property e_36 'compiler-hint:cross-module-inline v_168) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -30078,17 +30087,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_209) init-mu*s_0))" +"(let-values(((lst_212) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_212)" -"(lambda(lst_210)" +"(let-values()(check-list lst_212)))" +"((letrec-values(((for-loop_214)" +"(lambda(lst_213)" "(begin" " 'for-loop" -"(if(pair? lst_210)" -"(let-values(((mu*_6)(unsafe-car lst_210))((rest_114)(unsafe-cdr lst_210)))" +"(if(pair? lst_213)" +"(let-values(((mu*_6)(unsafe-car lst_213))((rest_116)(unsafe-cdr lst_213)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -30097,10 +30106,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_212 rest_114)(values))))" +"(if(not #f)(for-loop_214 rest_116)(values))))" "(values))))))" -" for-loop_212)" -" lst_209)))" +" for-loop_214)" +" lst_212)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -30112,10 +30121,10 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_220)" +"(let-values(((or-part_223)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_220" -" or-part_220" +"(if or-part_223" +" or-part_223" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -30136,41 +30145,41 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_211) mus_2)" -"((lst_212)" +"(let-values(((lst_214) mus_2)" +"((lst_215)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_213)" -"(let-values(((or-part_221) extra-inspectorsss_3))" -"(if or-part_221 or-part_221 mus_2))))" +"((lst_216)" +"(let-values(((or-part_224) extra-inspectorsss_3))" +"(if or-part_224 or-part_224 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_211)))" +"(let-values()(check-list lst_214)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_212)))" +"(let-values()(check-list lst_215)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_213)" -"(lambda(fold-var_208 lst_214 lst_215 lst_216)" +"(let-values()(check-list lst_216)))" +"((letrec-values(((for-loop_215)" +"(lambda(fold-var_212 lst_217 lst_218 lst_219)" "(begin" " 'for-loop" -"(if(if(pair? lst_214)" -"(if(pair? lst_215)(pair? lst_216) #f)" +"(if(if(pair? lst_217)" +"(if(pair? lst_218)(pair? lst_219) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_214))" -"((rest_115)(unsafe-cdr lst_214))" -"((imports_3)(unsafe-car lst_215))" -"((rest_116)(unsafe-cdr lst_215))" +"(let-values(((sub-mu_0)(unsafe-car lst_217))" +"((rest_117)(unsafe-cdr lst_217))" +"((imports_3)(unsafe-car lst_218))" +"((rest_118)(unsafe-cdr lst_218))" "((extra-inspectorss_13)" -"(unsafe-car lst_216))" -"((rest_117)(unsafe-cdr lst_216)))" -"(let-values(((fold-var_209)" -"(let-values(((fold-var_210)" -" fold-var_208))" -"(let-values(((fold-var_211)" +"(unsafe-car lst_219))" +"((rest_119)(unsafe-cdr lst_219)))" +"(let-values(((fold-var_213)" +"(let-values(((fold-var_214)" +" fold-var_212))" +"(let-values(((fold-var_215)" "(let-values()" "(cons" "(let-values()" @@ -30193,21 +30202,21 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_210))))" -"(values fold-var_211)))))" +" fold-var_214))))" +"(values fold-var_215)))))" "(if(not #f)" -"(for-loop_213" -" fold-var_209" -" rest_115" -" rest_116" -" rest_117)" -" fold-var_209)))" -" fold-var_208)))))" -" for-loop_213)" +"(for-loop_215" +" fold-var_213" +" rest_117" +" rest_118" +" rest_119)" +" fold-var_213)))" +" fold-var_212)))))" +" for-loop_215)" " null" -" lst_211" -" lst_212" -" lst_213)))))))" +" lst_214" +" lst_215" +" lst_216)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -30233,7 +30242,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_94 len_28)" -"(let-values(((mpi_43)" +"(let-values(((mpi_42)" "(unsafe-vector-ref vec_59 pos_94)))" "(let-values(((vec_62 i_143)" "(let-values(((vec_63) vec_61)" @@ -30255,7 +30264,7 @@ static const char *startup_source = "(let-values()" "(add-module-path-index!/pos" " mpis_17" -" mpi_43)))" +" mpi_42)))" "(values" " new-vec_3" "(unsafe-fx+" @@ -30300,11 +30309,11 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_217)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_220)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_217)))" +"(let-values()(check-list lst_220)))" "((letrec-values(((for-loop_107)" "(lambda(fold-var_71 lst_89)" "(begin" @@ -30312,9 +30321,9 @@ static const char *startup_source = "(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" "(unsafe-car lst_89))" -"((rest_118)(unsafe-cdr lst_89)))" +"((rest_120)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_158)" " fold-var_71))" "(let-values(((fold-var_9)" "(let-values()" @@ -30323,15 +30332,15 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_154))))" +" fold-var_158))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_107 fold-var_34 rest_118)" +"(for-loop_107 fold-var_34 rest_120)" " fold-var_34)))" " fold-var_71)))))" " for-loop_107)" " null" -" lst_217)))))))" +" lst_220)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30370,15 +30379,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_97)" -"(lambda(fold-var_156 lst_81)" +"(lambda(fold-var_160 lst_81)" "(begin" " 'for-loop" "(if(pair? lst_81)" "(let-values(((cim_4)(unsafe-car lst_81))" -"((rest_119)(unsafe-cdr lst_81)))" -"(let-values(((fold-var_212)" -"(let-values(((fold-var_166) fold-var_156))" -"(let-values(((fold-var_167)" +"((rest_121)(unsafe-cdr lst_81)))" +"(let-values(((fold-var_216)" +"(let-values(((fold-var_170) fold-var_160))" +"(let-values(((fold-var_171)" "(let-values()" "(cons" "(let-values()" @@ -30390,12 +30399,12 @@ static const char *startup_source = "(loop_92" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_166))))" -"(values fold-var_167)))))" +" fold-var_170))))" +"(values fold-var_171)))))" "(if(not #f)" -"(for-loop_97 fold-var_212 rest_119)" -" fold-var_212)))" -" fold-var_156)))))" +"(for-loop_97 fold-var_216 rest_121)" +" fold-var_216)))" +" fold-var_160)))))" " for-loop_97)" " null" " lst_80))))))))" @@ -30416,21 +30425,21 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_218) cims_3)((start_35) 0))" +"(let-values(((lst_221) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_218)))" +"(let-values()(check-list lst_221)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_214)" -"(lambda(table_167 lst_219 pos_96)" +"((letrec-values(((for-loop_216)" +"(lambda(table_167 lst_222 pos_96)" "(begin" " 'for-loop" -"(if(if(pair? lst_219) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_219))" -"((rest_49)(unsafe-cdr lst_219))" +"(if(if(pair? lst_222) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_222))" +"((rest_49)(unsafe-cdr lst_222))" "((i_142) pos_96))" "(let-values(((table_168)" "(let-values(((table_169) table_167))" @@ -30453,12 +30462,12 @@ static const char *startup_source = " val_35)))))" "(values table_170)))))" "(if(not #f)" -"(for-loop_214 table_168 rest_49(+ pos_96 1))" +"(for-loop_216 table_168 rest_49(+ pos_96 1))" " table_168)))" " table_167)))))" -" for-loop_214)" +" for-loop_216)" " '#hasheq()" -" lst_218" +" lst_221" " start_35)))))" "(let-values(((ht_76)" "(if merge-serialization?_0" @@ -30499,13 +30508,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" -"((letrec-values(((for-loop_192)" -"(lambda(fold-var_169 pos_97)" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_173 pos_97)" "(begin" " 'for-loop" "(if(< pos_97 end_25)" "(let-values(((i_42) pos_97))" -"(let-values(((fold-var_213)" +"(let-values(((fold-var_217)" "(let-values(((top_0)" "(hash-ref" " ht_117" @@ -30513,14 +30522,14 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_215)" -"(lambda(fold-var_170)" +"((letrec-values(((for-loop_217)" +"(lambda(fold-var_174)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_214)" +"(let-values(((fold-var_218)" "(let-values(((fold-var_75)" -" fold-var_170))" +" fold-var_174))" "(if top_0" "(let-values(((fold-var_65)" " fold-var_75))" @@ -30533,12 +30542,12 @@ static const char *startup_source = "(values" " fold-var_76)))" " fold-var_75))))" -" fold-var_214))))))" -" for-loop_215)" -" fold-var_169)))))" -"(if(not #f)(for-loop_192 fold-var_213(+ pos_97 inc_19)) fold-var_213)))" -" fold-var_169)))))" -" for-loop_192)" +" fold-var_218))))))" +" for-loop_217)" +" fold-var_173)))))" +"(if(not #f)(for-loop_194 fold-var_217(+ pos_97 inc_19)) fold-var_217)))" +" fold-var_173)))))" +" for-loop_194)" " null" " start_36))))))))" "(define-values" @@ -30651,7 +30660,7 @@ static const char *startup_source = "(let-values(((defns_1)(if(eq? known-defns2_0 unsafe-undefined) '#hasheq() known-defns2_0)))" "(let-values(((ready-variable?_0)" "(if(eq? ready-variable?3_0 unsafe-undefined)" -"(lambda(id_50)(begin 'ready-variable? #f))" +"(lambda(id_51)(begin 'ready-variable? #f))" " ready-variable?3_0)))" "(let-values()" "(let-values(((effects?_0)" @@ -30756,15 +30765,15 @@ static const char *startup_source = " s_307)))" " s_91))" "((e20_0)" -"(let-values(((s_169)" +"(let-values(((s_168)" "(cdr" " s_307)))" "(let-values(((s_308)" "(if(1/syntax?" -" s_169)" +" s_168)" "(syntax-e$2" -" s_169)" -" s_169)))" +" s_168)" +" s_168)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" " s_308)))" @@ -30798,8 +30807,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_222)" -"(if(let-values(((or-part_223)" +"(if(let-values(((or-part_225)" +"(if(let-values(((or-part_226)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30812,8 +30821,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_223" -" or-part_223" +"(if or-part_226" +" or-part_226" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30824,7 +30833,7 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(let-values(((lst_220)" +"(let-values(((lst_223)" " e18_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30832,20 +30841,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_220)))" -"((letrec-values(((for-loop_216)" +" lst_223)))" +"((letrec-values(((for-loop_218)" "(lambda(result_79" -" lst_221)" +" lst_224)" "(begin" " 'for-loop" "(if(pair?" -" lst_221)" +" lst_224)" "(let-values(((e_42)" "(unsafe-car" -" lst_221))" -"((rest_120)" +" lst_224))" +"((rest_122)" "(unsafe-cdr" -" lst_221)))" +" lst_224)))" "(let-values(((result_80)" "(let-values()" "(let-values(((result_81)" @@ -30866,17 +30875,17 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_216" +"(for-loop_218" " result_80" -" rest_120)" +" rest_122)" " result_80)))" " result_79)))))" -" for-loop_216)" +" for-loop_218)" " #t" -" lst_220)))" +" lst_223)))" " #f)))" -"(if or-part_222" -" or-part_222" +"(if or-part_225" +" or-part_225" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30886,7 +30895,7 @@ static const char *startup_source = " d_30)))" "(let-values(((lst_97)" " e18_0)" -"((lst_222)" +"((lst_225)" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" "(begin" @@ -30901,28 +30910,28 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_222)))" +" lst_225)))" "((letrec-values(((for-loop_99)" "(lambda(result_82" -" lst_176" +" lst_179" " lst_10)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_176)" +" lst_179)" "(pair?" " lst_10)" " #f)" "(let-values(((e_3)" "(unsafe-car" -" lst_176))" +" lst_179))" "((rest_1)" "(unsafe-cdr" -" lst_176))" +" lst_179))" "((key_63)" "(unsafe-car" " lst_10))" -"((rest_121)" +"((rest_123)" "(unsafe-cdr" " lst_10)))" "(let-values(((result_83)" @@ -30960,24 +30969,24 @@ static const char *startup_source = "(for-loop_99" " result_83" " rest_1" -" rest_121)" +" rest_123)" " result_83)))" " result_82)))))" " for-loop_99)" " #t" " lst_97" -" lst_222)))" +" lst_225)))" " #f)" " #f)))" " 1" " #f))))" " c1_26)" "(let-values()" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_167)" "(self-quoting-in-linklet?" " v_32)))" -"(if or-part_164" -" or-part_164" +"(if or-part_167" +" or-part_167" "(if(symbol? v_32)" "(let-values(((or-part_65)" "(hash-ref" @@ -30986,12 +30995,12 @@ static const char *startup_source = " #f)))" "(if or-part_65" " or-part_65" -"(let-values(((or-part_224)" +"(let-values(((or-part_227)" "(lookup-defn" " defns_1" " v_32)))" -"(if or-part_224" -" or-part_224" +"(if or-part_227" +" or-part_227" "(let-values(((or-part_66)" "(built-in-symbol?" " v_32)))" @@ -31047,7 +31056,7 @@ static const char *startup_source = "(let-values(((s_310)" "(car" " s_30)))" -"(let-values(((s_158)" +"(let-values(((s_311)" "(if(1/syntax?" " s_310)" "(syntax-e$2" @@ -31055,7 +31064,7 @@ static const char *startup_source = " s_310)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_158)))" +" s_311)))" "(if(not" " flat-s_14)" "(let-values()" @@ -31070,7 +31079,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_190)" +"(let-values(((lst_193)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -31078,21 +31087,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" -"((letrec-values(((for-loop_200)" +" lst_193)))" +"((letrec-values(((for-loop_202)" "(lambda(ids_9" " rhs_5" -" lst_223)" +" lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_223)" +" lst_226)" "(let-values(((s_49)" "(unsafe-car" -" lst_223))" -"((rest_122)" +" lst_226))" +"((rest_124)" "(unsafe-cdr" -" lst_223)))" +" lst_226)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -31105,29 +31114,29 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_167)" +"(let-values(((s_166)" "(if(1/syntax?" " s_49)" "(syntax-e$2" " s_49)" " s_49)))" "(if(pair?" -" s_167)" +" s_166)" "(let-values(((ids32_0)" "(let-values(((s_54)" "(car" -" s_167)))" +" s_166)))" " s_54))" "((rhs33_0)" -"(let-values(((s_311)" +"(let-values(((s_312)" "(cdr" -" s_167)))" +" s_166)))" "(let-values(((s_93)" "(if(1/syntax?" -" s_311)" +" s_312)" "(syntax-e$2" -" s_311)" -" s_311)))" +" s_312)" +" s_312)))" "(if(pair?" " s_93)" "(let-values(((rhs34_0)" @@ -31136,17 +31145,17 @@ static const char *startup_source = " s_93)))" " s_94))" "(()" -"(let-values(((s_312)" +"(let-values(((s_313)" "(cdr" " s_93)))" -"(let-values(((s_313)" +"(let-values(((s_314)" "(if(1/syntax?" -" s_312)" -"(syntax-e$2" -" s_312)" -" s_312)))" -"(if(null?" " s_313)" +"(syntax-e$2" +" s_313)" +" s_313)))" +"(if(null?" +" s_314)" "(values)" "((lambda(false_3" " str_8" @@ -31189,20 +31198,20 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_202" " ids_10" " rhs_6" -" rest_122)" +" rest_124)" "(values" " ids_10" " rhs_6))))" "(values" " ids_9" " rhs_5))))))" -" for-loop_200)" +" for-loop_202)" " null" " null" -" lst_190)))))" +" lst_193)))))" "(values" "(reverse$1" " ids_8)" @@ -31226,17 +31235,17 @@ static const char *startup_source = " s_57)))" " s_305))" "(()" -"(let-values(((s_314)" +"(let-values(((s_315)" "(cdr" " s_57)))" -"(let-values(((s_315)" +"(let-values(((s_316)" "(if(1/syntax?" -" s_314)" -"(syntax-e$2" -" s_314)" -" s_314)))" -"(if(null?" " s_315)" +"(syntax-e$2" +" s_315)" +" s_315)))" +"(if(null?" +" s_316)" "(values)" "((lambda(false_6" " str_11" @@ -31288,40 +31297,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_195) ids22_0)" -"((lst_224) rhs23_0))" +"(let-values(((lst_198) ids22_0)" +"((lst_227) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_195)))" +"(let-values()(check-list lst_198)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_217)" +"(let-values()(check-list lst_227)))" +"((letrec-values(((for-loop_219)" "(lambda(result_13" -" lst_197" -" lst_225)" +" lst_200" +" lst_228)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_197)" +" lst_200)" "(pair?" -" lst_225)" +" lst_228)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_197))" -"((rest_123)" +" lst_200))" +"((rest_125)" "(unsafe-cdr" -" lst_197))" +" lst_200))" "((rhs_9)" "(unsafe-car" -" lst_225))" -"((rest_124)" +" lst_228))" +"((rest_126)" "(unsafe-cdr" -" lst_225)))" +" lst_228)))" "(let-values(((result_85)" "(let-values()" "(let-values(((result_86)" @@ -31346,16 +31355,16 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_217" +"(for-loop_219" " result_85" -" rest_123" -" rest_124)" +" rest_125" +" rest_126)" " result_85)))" " result_13)))))" -" for-loop_217)" +" for-loop_219)" " #f" -" lst_195" -" lst_224))))" +" lst_198" +" lst_227))))" "(loop_82" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31363,27 +31372,27 @@ static const char *startup_source = "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_316) e_39))" -"(let-values(((orig-s_25) s_316))" +"(let-values(((s_317) e_39))" +"(let-values(((orig-s_25) s_317))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_317)" +"(let-values(((s_318)" "(if(1/syntax?" -" s_316)" -"(syntax-e$2" -" s_316)" -" s_316)))" -"(if(pair?" " s_317)" -"(let-values(((_40_0)" -"(let-values(((s_210)" -"(car" +"(syntax-e$2" +" s_317)" " s_317)))" -" s_210))" +"(if(pair?" +" s_318)" +"(let-values(((_40_0)" +"(let-values(((s_209)" +"(car" +" s_318)))" +" s_209))" "((e41_0)" "(let-values(((s_38)" "(cdr" -" s_317)))" -"(let-values(((s_318)" +" s_318)))" +"(let-values(((s_319)" "(if(1/syntax?" " s_38)" "(syntax-e$2" @@ -31391,7 +31400,7 @@ static const char *startup_source = " s_38)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_318)))" +" s_319)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31417,25 +31426,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_226) e39_0))" +"(if(let-values(((lst_229) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_226)))" -"((letrec-values(((for-loop_218)" +"(let-values()(check-list lst_229)))" +"((letrec-values(((for-loop_220)" "(lambda(result_87" -" lst_227)" +" lst_230)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" +" lst_230)" "(let-values(((e_53)" "(unsafe-car" -" lst_227))" -"((rest_125)" +" lst_230))" +"((rest_127)" "(unsafe-cdr" -" lst_227)))" +" lst_230)))" "(let-values(((result_88)" "(let-values()" "(let-values(((result_89)" @@ -31456,46 +31465,46 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_218" +"(for-loop_220" " result_88" -" rest_125)" +" rest_127)" " result_88)))" " result_87)))))" -" for-loop_218)" +" for-loop_220)" " #t" -" lst_226)))" +" lst_229)))" "(length e39_0)" " #f)))" "(if(unsafe-fx< index_1 5)" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_319) e_39))" +"(let-values(((s_320) e_39))" "(let-values(((orig-s_26)" -" s_319))" +" s_320))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_320)" -"(if(1/syntax?" -" s_319)" -"(syntax-e$2" -" s_319)" -" s_319)))" -"(if(pair?" -" s_320)" -"(let-values(((_44_0)" "(let-values(((s_321)" -"(car" +"(if(1/syntax?" +" s_320)" +"(syntax-e$2" +" s_320)" " s_320)))" -" s_321))" -"((e45_0)" +"(if(pair?" +" s_321)" +"(let-values(((_44_0)" "(let-values(((s_322)" +"(car" +" s_321)))" +" s_322))" +"((e45_0)" +"(let-values(((s_323)" "(cdr" -" s_320)))" +" s_321)))" "(let-values(((s_71)" "(if(1/syntax?" -" s_322)" +" s_323)" "(syntax-e$2" -" s_322)" -" s_322)))" +" s_323)" +" s_323)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" " s_71)))" @@ -31524,26 +31533,26 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_228) e43_0))" +"(if(let-values(((lst_231) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_228)))" -"((letrec-values(((for-loop_219)" +"(check-list lst_231)))" +"((letrec-values(((for-loop_221)" "(lambda(result_90" -" lst_229)" +" lst_232)" "(begin" " 'for-loop" "(if(pair?" -" lst_229)" +" lst_232)" "(let-values(((e_56)" "(unsafe-car" -" lst_229))" -"((rest_126)" +" lst_232))" +"((rest_128)" "(unsafe-cdr" -" lst_229)))" +" lst_232)))" "(let-values(((result_29)" "(let-values()" "(let-values(((result_30)" @@ -31564,48 +31573,48 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_219" +"(for-loop_221" " result_29" -" rest_126)" +" rest_128)" " result_29)))" " result_90)))))" -" for-loop_219)" +" for-loop_221)" " #t" -" lst_228)))" +" lst_231)))" " 1" " #f)))" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_323) e_39))" +"(let-values(((s_324) e_39))" "(let-values(((orig-s_27)" -" s_323))" +" s_324))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_324)" -"(if(1/syntax?" -" s_323)" -"(syntax-e$2" -" s_323)" -" s_323)))" -"(if(pair?" -" s_324)" -"(let-values(((_48_0)" -"(let-values(((s_222)" -"(car" -" s_324)))" -" s_222))" -"((e49_0)" "(let-values(((s_325)" -"(cdr" -" s_324)))" -"(let-values(((s_326)" "(if(1/syntax?" -" s_325)" +" s_324)" "(syntax-e$2" +" s_324)" +" s_324)))" +"(if(pair?" " s_325)" +"(let-values(((_48_0)" +"(let-values(((s_221)" +"(car" " s_325)))" +" s_221))" +"((e49_0)" +"(let-values(((s_326)" +"(cdr" +" s_325)))" +"(let-values(((s_327)" +"(if(1/syntax?" +" s_326)" +"(syntax-e$2" +" s_326)" +" s_326)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_326)))" +" s_327)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31668,38 +31677,38 @@ static const char *startup_source = " s_116)))" "(if(pair? s_120)" "(let-values(((_53_0)" -"(let-values(((s_165)" +"(let-values(((s_227)" "(car" " s_120)))" -" s_165))" +" s_227))" "((e054_0" " e55_0)" -"(let-values(((s_327)" +"(let-values(((s_163)" "(cdr" " s_120)))" -"(let-values(((s_328)" +"(let-values(((s_164)" "(if(1/syntax?" -" s_327)" +" s_163)" "(syntax-e$2" -" s_327)" -" s_327)))" +" s_163)" +" s_163)))" "(if(pair?" -" s_328)" +" s_164)" "(let-values(((e056_0)" -"(let-values(((s_329)" +"(let-values(((s_328)" "(car" -" s_328)))" -" s_329))" +" s_164)))" +" s_328))" "((e57_0)" -"(let-values(((s_330)" +"(let-values(((s_329)" "(cdr" -" s_328)))" +" s_164)))" "(let-values(((s_228)" "(if(1/syntax?" -" s_330)" +" s_329)" "(syntax-e$2" -" s_330)" -" s_330)))" +" s_329)" +" s_329)))" "(let-values(((flat-s_18)" "(to-syntax-list.1$1" " s_228)))" @@ -31744,24 +31753,24 @@ static const char *startup_source = " _50_1" " e051_1" " e52_1))))))" -"(if(let-values(((lst_230) e52_0))" +"(if(let-values(((lst_233) e52_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_230)))" -"((letrec-values(((for-loop_220)" +"(let-values()(check-list lst_233)))" +"((letrec-values(((for-loop_222)" "(lambda(result_91" -" lst_118)" +" lst_119)" "(begin" " 'for-loop" -"(if(pair? lst_118)" +"(if(pair? lst_119)" "(let-values(((e_61)" "(unsafe-car" -" lst_118))" -"((rest_127)" +" lst_119))" +"((rest_129)" "(unsafe-cdr" -" lst_118)))" +" lst_119)))" "(let-values(((result_92)" "(let-values()" "(let-values(((result_93)" @@ -31781,14 +31790,14 @@ static const char *startup_source = " e_61))" "(not #f)" " #f)" -"(for-loop_220" +"(for-loop_222" " result_92" -" rest_127)" +" rest_129)" " result_92)))" " result_91)))))" -" for-loop_220)" +" for-loop_222)" " #t" -" lst_230)))" +" lst_233)))" "(loop_82 e051_0 locals_2)" " #f)))" "(if(unsafe-fx< index_1 8)" @@ -31832,7 +31841,7 @@ static const char *startup_source = " s_234)" " s_234)))" "(if(pair? s_235)" -"(if(let-values(((s_331)" +"(if(let-values(((s_330)" "(car" " s_235)))" " #t)" @@ -31849,59 +31858,59 @@ static const char *startup_source = "(if(let-values(((s_237)" "(car" " s_236)))" -"(let-values(((s_332)" +"(let-values(((s_331)" "(if(1/syntax?" " s_237)" "(syntax-e$2" " s_237)" " s_237)))" "(if(pair?" -" s_332)" -"(if(let-values(((s_333)" +" s_331)" +"(if(let-values(((s_332)" "(car" -" s_332)))" +" s_331)))" " #t)" "(let-values(((s_134)" "(cdr" -" s_332)))" -"(let-values(((s_334)" +" s_331)))" +"(let-values(((s_333)" "(if(1/syntax?" " s_134)" "(syntax-e$2" " s_134)" " s_134)))" "(if(pair?" -" s_334)" -"(if(let-values(((s_335)" +" s_333)" +"(if(let-values(((s_334)" "(car" -" s_334)))" +" s_333)))" " #t)" -"(let-values(((s_336)" +"(let-values(((s_335)" "(cdr" -" s_334)))" -"(let-values(((s_337)" +" s_333)))" +"(let-values(((s_336)" "(if(1/syntax?" -" s_336)" +" s_335)" "(syntax-e$2" -" s_336)" -" s_336)))" +" s_335)" +" s_335)))" "(null?" -" s_337)))" +" s_336)))" " #f)" " #f)))" " #f)" " #f)))" -"(let-values(((s_338)" +"(let-values(((s_337)" "(cdr" " s_236)))" -"(let-values(((s_339)" +"(let-values(((s_338)" "(if(1/syntax?" -" s_338)" +" s_337)" "(syntax-e$2" -" s_338)" -" s_338)))" +" s_337)" +" s_337)))" "(null?" -" s_339)))" +" s_338)))" " #f)" " #f)))" " #f)" @@ -31910,63 +31919,63 @@ static const char *startup_source = "(let-values(((gs58_1" " quot59_1" " datum60_1)" -"(let-values(((s_340)" +"(let-values(((s_339)" "(if(1/syntax?" " s_234)" "(syntax-e$2" " s_234)" " s_234)))" "(let-values(((gs61_0)" -"(let-values(((s_341)" +"(let-values(((s_340)" "(car" -" s_340)))" -" s_341))" +" s_339)))" +" s_340))" "((quot62_0" " datum63_0)" -"(let-values(((s_342)" +"(let-values(((s_341)" "(cdr" -" s_340)))" -"(let-values(((s_343)" +" s_339)))" +"(let-values(((s_342)" "(if(1/syntax?" -" s_342)" +" s_341)" "(syntax-e$2" -" s_342)" -" s_342)))" +" s_341)" +" s_341)))" "(let-values(((quot64_0" " datum65_0)" -"(let-values(((s_344)" +"(let-values(((s_343)" "(car" -" s_343)))" -"(let-values(((s_345)" +" s_342)))" +"(let-values(((s_344)" "(if(1/syntax?" -" s_344)" +" s_343)" "(syntax-e$2" -" s_344)" -" s_344)))" +" s_343)" +" s_343)))" "(let-values(((quot66_0)" "(let-values(((s_239)" "(car" -" s_345)))" +" s_344)))" " s_239))" "((datum67_0)" -"(let-values(((s_346)" +"(let-values(((s_345)" "(cdr" -" s_345)))" -"(let-values(((s_347)" +" s_344)))" +"(let-values(((s_346)" "(if(1/syntax?" -" s_346)" +" s_345)" "(syntax-e$2" -" s_346)" -" s_346)))" +" s_345)" +" s_345)))" "(let-values(((datum68_0)" "(let-values(((s_240)" "(car" -" s_347)))" +" s_346)))" " s_240))" "(()" "(let-values(((s_241)" "(cdr" -" s_347)))" +" s_346)))" "(let-values(((s_242)" "(if(1/syntax?" " s_241)" @@ -31980,15 +31989,15 @@ static const char *startup_source = " quot66_0" " datum67_0)))))" "(()" -"(let-values(((s_348)" +"(let-values(((s_347)" "(cdr" -" s_343)))" -"(let-values(((s_349)" +" s_342)))" +"(let-values(((s_348)" "(if(1/syntax?" -" s_348)" +" s_347)" "(syntax-e$2" -" s_348)" -" s_348)))" +" s_347)" +" s_347)))" "(values)))))" "(values" " quot64_0" @@ -32003,20 +32012,20 @@ static const char *startup_source = " quot59_1" " datum60_1)))" "(values #f #f #f #f)))))" -"(if(let-values(((or-part_225)" +"(if(let-values(((or-part_228)" "(if ok?_23" "(if(eq? 'quote quot59_0)" -"(let-values(((or-part_226)" +"(let-values(((or-part_229)" "(symbol?" " datum60_0)))" -"(if or-part_226" -" or-part_226" +"(if or-part_229" +" or-part_229" "(string?" " datum60_0)))" " #f)" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_228" +" or-part_228" "(null?(cdr(correlated-e e_39)))))" " 1" " #f)))" @@ -32027,105 +32036,105 @@ static const char *startup_source = " id:arg71_0" " thn72_0" " els73_0)" -"(let-values(((s_350) e_39))" +"(let-values(((s_349) e_39))" +"(if(let-values(((s_350)" +"(if(1/syntax?" +" s_349)" +"(syntax-e$2" +" s_349)" +" s_349)))" +"(if(pair? s_350)" "(if(let-values(((s_351)" -"(if(1/syntax?" -" s_350)" -"(syntax-e$2" -" s_350)" -" s_350)))" -"(if(pair? s_351)" -"(if(let-values(((s_352)" "(car" -" s_351)))" +" s_350)))" " #t)" -"(let-values(((s_353)" +"(let-values(((s_352)" "(cdr" -" s_351)))" -"(let-values(((s_354)" +" s_350)))" +"(let-values(((s_353)" "(if(1/syntax?" -" s_353)" +" s_352)" "(syntax-e$2" -" s_353)" -" s_353)))" -"(if(pair? s_354)" +" s_352)" +" s_352)))" +"(if(pair? s_353)" "(if(let-values(((s_248)" "(car" -" s_354)))" -"(let-values(((s_355)" +" s_353)))" +"(let-values(((s_354)" "(if(1/syntax?" " s_248)" "(syntax-e$2" " s_248)" " s_248)))" "(if(pair?" -" s_355)" -"(if(let-values(((s_356)" +" s_354)" +"(if(let-values(((s_355)" "(car" -" s_355)))" -"(let-values(((or-part_227)" +" s_354)))" +"(let-values(((or-part_230)" "(if(1/syntax?" -" s_356)" +" s_355)" "(symbol?" "(syntax-e$2" -" s_356))" +" s_355))" " #f)))" -"(if or-part_227" -" or-part_227" +"(if or-part_230" +" or-part_230" "(symbol?" -" s_356))))" -"(let-values(((s_357)" +" s_355))))" +"(let-values(((s_356)" "(cdr" -" s_355)))" +" s_354)))" "(let-values(((s_249)" "(if(1/syntax?" -" s_357)" +" s_356)" "(syntax-e$2" -" s_357)" -" s_357)))" +" s_356)" +" s_356)))" "(if(pair?" " s_249)" "(if(let-values(((s_250)" "(car" " s_249)))" -"(let-values(((or-part_228)" +"(let-values(((or-part_231)" "(if(1/syntax?" " s_250)" "(symbol?" "(syntax-e$2" " s_250))" " #f)))" -"(if or-part_228" -" or-part_228" +"(if or-part_231" +" or-part_231" "(symbol?" " s_250))))" -"(let-values(((s_358)" +"(let-values(((s_357)" "(cdr" " s_249)))" -"(let-values(((s_359)" +"(let-values(((s_358)" "(if(1/syntax?" -" s_358)" +" s_357)" "(syntax-e$2" -" s_358)" -" s_358)))" +" s_357)" +" s_357)))" "(null?" -" s_359)))" +" s_358)))" " #f)" " #f)))" " #f)" " #f)))" -"(let-values(((s_360)" +"(let-values(((s_359)" "(cdr" -" s_354)))" +" s_353)))" "(let-values(((s_252)" "(if(1/syntax?" -" s_360)" +" s_359)" "(syntax-e$2" -" s_360)" -" s_360)))" +" s_359)" +" s_359)))" "(if(pair?" " s_252)" -"(if(let-values(((s_361)" +"(if(let-values(((s_360)" "(car" " s_252)))" " #t)" @@ -32140,19 +32149,19 @@ static const char *startup_source = " s_253)))" "(if(pair?" " s_254)" -"(if(let-values(((s_362)" +"(if(let-values(((s_361)" "(car" " s_254)))" " #t)" -"(let-values(((s_363)" +"(let-values(((s_362)" "(cdr" " s_254)))" "(let-values(((s_255)" "(if(1/syntax?" -" s_363)" +" s_362)" "(syntax-e$2" -" s_363)" -" s_363)))" +" s_362)" +" s_362)))" "(null?" " s_255)))" " #f)" @@ -32169,71 +32178,71 @@ static const char *startup_source = " id:arg71_1" " thn72_1" " els73_1)" -"(let-values(((s_364)" +"(let-values(((s_363)" "(if(1/syntax?" -" s_350)" +" s_349)" "(syntax-e$2" -" s_350)" -" s_350)))" +" s_349)" +" s_349)))" "(let-values(((_74_0)" -"(let-values(((s_365)" +"(let-values(((s_364)" "(car" -" s_364)))" -" s_365))" +" s_363)))" +" s_364))" "((id:rator75_0" " id:arg76_0" " thn77_0" " els78_0)" -"(let-values(((s_366)" +"(let-values(((s_365)" "(cdr" -" s_364)))" -"(let-values(((s_367)" +" s_363)))" +"(let-values(((s_366)" "(if(1/syntax?" -" s_366)" +" s_365)" "(syntax-e$2" -" s_366)" -" s_366)))" +" s_365)" +" s_365)))" "(let-values(((id:rator79_0" " id:arg80_0)" +"(let-values(((s_367)" +"(car" +" s_366)))" "(let-values(((s_368)" -"(car" +"(if(1/syntax?" +" s_367)" +"(syntax-e$2" +" s_367)" " s_367)))" -"(let-values(((s_369)" -"(if(1/syntax?" -" s_368)" -"(syntax-e$2" -" s_368)" -" s_368)))" "(let-values(((id:rator83_0)" -"(let-values(((s_370)" +"(let-values(((s_369)" "(car" -" s_369)))" -" s_370))" +" s_368)))" +" s_369))" "((id:arg84_0)" +"(let-values(((s_370)" +"(cdr" +" s_368)))" "(let-values(((s_371)" -"(cdr" -" s_369)))" -"(let-values(((s_372)" "(if(1/syntax?" -" s_371)" +" s_370)" "(syntax-e$2" -" s_371)" -" s_371)))" +" s_370)" +" s_370)))" "(let-values(((id:arg85_0)" -"(let-values(((s_373)" +"(let-values(((s_372)" "(car" -" s_372)))" -" s_373))" +" s_371)))" +" s_372))" "(()" -"(let-values(((s_374)" +"(let-values(((s_373)" "(cdr" -" s_372)))" -"(let-values(((s_375)" +" s_371)))" +"(let-values(((s_374)" "(if(1/syntax?" -" s_374)" +" s_373)" "(syntax-e$2" -" s_374)" -" s_374)))" +" s_373)" +" s_373)))" "(values)))))" "(values" " id:arg85_0))))))" @@ -32242,45 +32251,45 @@ static const char *startup_source = " id:arg84_0)))))" "((thn81_0" " els82_0)" -"(let-values(((s_376)" +"(let-values(((s_375)" "(cdr" -" s_367)))" -"(let-values(((s_377)" +" s_366)))" +"(let-values(((s_376)" "(if(1/syntax?" -" s_376)" +" s_375)" "(syntax-e$2" -" s_376)" -" s_376)))" +" s_375)" +" s_375)))" "(let-values(((thn86_0)" "(let-values(((s_259)" "(car" -" s_377)))" +" s_376)))" " s_259))" "((els87_0)" +"(let-values(((s_377)" +"(cdr" +" s_376)))" "(let-values(((s_378)" -"(cdr" -" s_377)))" -"(let-values(((s_379)" "(if(1/syntax?" -" s_378)" +" s_377)" "(syntax-e$2" -" s_378)" -" s_378)))" +" s_377)" +" s_377)))" "(let-values(((els88_0)" -"(let-values(((s_380)" +"(let-values(((s_379)" "(car" -" s_379)))" -" s_380))" +" s_378)))" +" s_379))" "(()" -"(let-values(((s_381)" +"(let-values(((s_380)" "(cdr" -" s_379)))" +" s_378)))" "(let-values(((s_260)" "(if(1/syntax?" -" s_381)" +" s_380)" "(syntax-e$2" -" s_381)" -" s_381)))" +" s_380)" +" s_380)))" "(values)))))" "(values" " els88_0))))))" @@ -32309,13 +32318,13 @@ static const char *startup_source = "(if ok?_24" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_229)" +"(let-values(((or-part_232)" "(hash-ref" " locals_2" " id:rator70_0" " #f)))" -"(if or-part_229" -" or-part_229" +"(if or-part_232" +" or-part_232" "(lookup-defn" " defns_1" " id:rator70_0)))))" @@ -32343,72 +32352,72 @@ static const char *startup_source = " tst90_0" " thn91_0" " els92_0)" -"(let-values(((s_382) e_39))" +"(let-values(((s_381) e_39))" +"(if(let-values(((s_382)" +"(if(1/syntax?" +" s_381)" +"(syntax-e$2" +" s_381)" +" s_381)))" +"(if(pair? s_382)" "(if(let-values(((s_383)" -"(if(1/syntax?" -" s_382)" -"(syntax-e$2" -" s_382)" +"(car" " s_382)))" -"(if(pair? s_383)" -"(if(let-values(((s_384)" -"(car" -" s_383)))" " #t)" -"(let-values(((s_385)" +"(let-values(((s_384)" "(cdr" -" s_383)))" -"(let-values(((s_386)" +" s_382)))" +"(let-values(((s_385)" "(if(1/syntax?" -" s_385)" +" s_384)" "(syntax-e$2" -" s_385)" -" s_385)))" +" s_384)" +" s_384)))" "(if(pair?" -" s_386)" -"(if(let-values(((s_387)" +" s_385)" +"(if(let-values(((s_386)" "(car" -" s_386)))" +" s_385)))" " #t)" "(let-values(((s_136)" "(cdr" -" s_386)))" -"(let-values(((s_388)" +" s_385)))" +"(let-values(((s_387)" "(if(1/syntax?" " s_136)" "(syntax-e$2" " s_136)" " s_136)))" "(if(pair?" -" s_388)" -"(if(let-values(((s_389)" +" s_387)" +"(if(let-values(((s_388)" "(car" -" s_388)))" +" s_387)))" " #t)" +"(let-values(((s_389)" +"(cdr" +" s_387)))" "(let-values(((s_390)" -"(cdr" -" s_388)))" -"(let-values(((s_391)" "(if(1/syntax?" -" s_390)" +" s_389)" "(syntax-e$2" -" s_390)" -" s_390)))" +" s_389)" +" s_389)))" "(if(pair?" -" s_391)" -"(if(let-values(((s_392)" +" s_390)" +"(if(let-values(((s_391)" "(car" -" s_391)))" +" s_390)))" " #t)" -"(let-values(((s_393)" +"(let-values(((s_392)" "(cdr" -" s_391)))" +" s_390)))" "(let-values(((s_137)" "(if(1/syntax?" -" s_393)" +" s_392)" "(syntax-e$2" -" s_393)" -" s_393)))" +" s_392)" +" s_392)))" "(null?" " s_137)))" " #f)" @@ -32426,73 +32435,73 @@ static const char *startup_source = " els92_1)" "(let-values(((s_138)" "(if(1/syntax?" -" s_382)" +" s_381)" "(syntax-e$2" -" s_382)" -" s_382)))" +" s_381)" +" s_381)))" "(let-values(((_93_0)" -"(let-values(((s_394)" +"(let-values(((s_393)" "(car" " s_138)))" -" s_394))" +" s_393))" "((tst94_0" " thn95_0" " els96_0)" -"(let-values(((s_395)" +"(let-values(((s_394)" "(cdr" " s_138)))" -"(let-values(((s_396)" +"(let-values(((s_395)" "(if(1/syntax?" -" s_395)" +" s_394)" "(syntax-e$2" -" s_395)" -" s_395)))" +" s_394)" +" s_394)))" "(let-values(((tst97_0)" -"(let-values(((s_397)" +"(let-values(((s_396)" "(car" -" s_396)))" -" s_397))" +" s_395)))" +" s_396))" "((thn98_0" " els99_0)" -"(let-values(((s_398)" +"(let-values(((s_397)" "(cdr" -" s_396)))" +" s_395)))" "(let-values(((s_141)" "(if(1/syntax?" -" s_398)" +" s_397)" "(syntax-e$2" -" s_398)" -" s_398)))" +" s_397)" +" s_397)))" "(let-values(((thn100_0)" -"(let-values(((s_399)" +"(let-values(((s_398)" "(car" " s_141)))" -" s_399))" +" s_398))" "((els101_0)" -"(let-values(((s_400)" +"(let-values(((s_399)" "(cdr" " s_141)))" "(let-values(((s_142)" "(if(1/syntax?" -" s_400)" +" s_399)" "(syntax-e$2" -" s_400)" -" s_400)))" +" s_399)" +" s_399)))" "(let-values(((els102_0)" -"(let-values(((s_401)" +"(let-values(((s_400)" "(car" " s_142)))" -" s_401))" +" s_400))" "(()" -"(let-values(((s_402)" +"(let-values(((s_401)" "(cdr" " s_142)))" -"(let-values(((s_403)" +"(let-values(((s_402)" "(if(1/syntax?" -" s_402)" +" s_401)" "(syntax-e$2" -" s_402)" -" s_402)))" +" s_401)" +" s_401)))" "(values)))))" "(values" " els102_0))))))" @@ -32537,34 +32546,34 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_230)(not expected-results_0)))" -"(if or-part_230 or-part_230(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_233)(not expected-results_0)))" +"(if or-part_233 or-part_233(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_62 key_50 defns_2 locals_3)" "(begin" "(let-values(((d_32)" -"(let-values(((or-part_231)(hash-ref locals_3 e_62 #f)))" -"(if or-part_231 or-part_231(lookup-defn defns_2 e_62)))))" +"(let-values(((or-part_234)(hash-ref locals_3 e_62 #f)))" +"(if or-part_234 or-part_234(lookup-defn defns_2 e_62)))))" "(if d_32(if(known-satisfies? d_32)(eq? key_50(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_231) idss_0)((lst_232) rhss_0))" +"(let-values(((lst_234) idss_0)((lst_235) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_231)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_232)))" -"((letrec-values(((for-loop_146)" -"(lambda(locals_5 lst_233 lst_234)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_234)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" +"((letrec-values(((for-loop_147)" +"(lambda(locals_5 lst_236 lst_237)" "(begin" " 'for-loop" -"(if(if(pair? lst_233)(pair? lst_234) #f)" -"(let-values(((ids_14)(unsafe-car lst_233))" -"((rest_128)(unsafe-cdr lst_233))" -"((rhs_10)(unsafe-car lst_234))" -"((rest_129)(unsafe-cdr lst_234)))" +"(if(if(pair? lst_236)(pair? lst_237) #f)" +"(let-values(((ids_14)(unsafe-car lst_236))" +"((rest_130)(unsafe-cdr lst_236))" +"((rhs_10)(unsafe-car lst_237))" +"((rest_131)(unsafe-cdr lst_237)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32589,10 +32598,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_235)" +"(let-values(((lst_238)" "(correlated->list" " ids_14))" -"((lst_236)" +"((lst_239)" " '(struct-type" " constructor" " predicate" @@ -32604,36 +32613,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_235)))" +" lst_238)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_236)))" -"((letrec-values(((for-loop_221)" +" lst_239)))" +"((letrec-values(((for-loop_223)" "(lambda(locals_9" -" lst_237" -" lst_238)" +" lst_240" +" lst_241)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_237)" +" lst_240)" "(pair?" -" lst_238)" +" lst_241)" " #f)" -"(let-values(((id_51)" +"(let-values(((id_52)" "(unsafe-car" -" lst_237))" -"((rest_130)" +" lst_240))" +"((rest_132)" "(unsafe-cdr" -" lst_237))" +" lst_240))" "((type_0)" "(unsafe-car" -" lst_238))" -"((rest_131)" +" lst_241))" +"((rest_133)" "(unsafe-cdr" -" lst_238)))" +" lst_241)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32642,7 +32651,7 @@ static const char *startup_source = "(hash-set" " locals_11" "(correlated-e" -" id_51)" +" id_52)" "(known-struct-op8.1" " type_0" " field-count_0)))))" @@ -32650,16 +32659,16 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_221" +"(for-loop_223" " locals_10" -" rest_130" -" rest_131)" +" rest_132" +" rest_133)" " locals_10)))" " locals_9)))))" -" for-loop_221)" +" for-loop_223)" " locals_7" -" lst_235" -" lst_236)))))" +" lst_238" +" lst_239)))))" "(if(equal?" " tmp_27" " 'let-values)" @@ -32674,7 +32683,7 @@ static const char *startup_source = " rhs_11)))" "(loop_93 #f)))" "(let-values()" -"(let-values(((lst_239)" +"(let-values(((lst_242)" "(correlated->list" " ids_14)))" "(begin" @@ -32683,20 +32692,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_239)))" -"((letrec-values(((for-loop_222)" +" lst_242)))" +"((letrec-values(((for-loop_224)" "(lambda(locals_13" -" lst_240)" +" lst_243)" "(begin" " 'for-loop" "(if(pair?" -" lst_240)" -"(let-values(((id_52)" +" lst_243)" +"(let-values(((id_53)" "(unsafe-car" -" lst_240))" -"((rest_132)" +" lst_243))" +"((rest_134)" "(unsafe-cdr" -" lst_240)))" +" lst_243)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32705,56 +32714,56 @@ static const char *startup_source = "(hash-set" " locals_15" "(correlated-e" -" id_52)" +" id_53)" " #t))))" "(values" " locals_16)))))" "(if(not" " #f)" -"(for-loop_222" +"(for-loop_224" " locals_14" -" rest_132)" +" rest_134)" " locals_14)))" " locals_13)))))" -" for-loop_222)" +" for-loop_224)" " locals_7" -" lst_239)))))))))))" +" lst_242)))))))))))" " loop_93)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_146 locals_6 rest_128 rest_129) locals_6)))" +"(if(not #f)(for-loop_147 locals_6 rest_130 rest_131) locals_6)))" " locals_5)))))" -" for-loop_146)" +" for-loop_147)" " locals_4" -" lst_231" -" lst_232))))))" +" lst_234" +" lst_235))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_63 defns_3)" "(begin" "(let-values(((l_57)(correlated->list e_63)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_241)(cdr l_57))" -"((lst_242)" +"(let-values(((lst_244)(cdr l_57))" +"((lst_245)" "(list" -"(lambda(v_168)(quoted? symbol? v_168))" -"(lambda(v_169)(is-lambda? v_169 2 defns_3))" -"(lambda(v_170)(ok-make-struct-type-property-super? v_170 defns_3))" -"(lambda(v_171)" -"(let-values(((v103_0) v_171)((temp104_1) 1)((defns105_0) defns_3))" +"(lambda(v_169)(quoted? symbol? v_169))" +"(lambda(v_170)(is-lambda? v_170 2 defns_3))" +"(lambda(v_171)(ok-make-struct-type-property-super? v_171 defns_3))" +"(lambda(v_172)" +"(let-values(((v103_0) v_172)((temp104_1) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_1))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" -"((letrec-values(((for-loop_223)" -"(lambda(result_94 lst_243 lst_60)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_244)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" +"((letrec-values(((for-loop_225)" +"(lambda(result_94 lst_246 lst_60)" "(begin" " 'for-loop" -"(if(if(pair? lst_243)(pair? lst_60) #f)" -"(let-values(((arg_0)(unsafe-car lst_243))" -"((rest_27)(unsafe-cdr lst_243))" +"(if(if(pair? lst_246)(pair? lst_60) #f)" +"(let-values(((arg_0)(unsafe-car lst_246))" +"((rest_27)(unsafe-cdr lst_246))" "((pred_1)(unsafe-car lst_60))" -"((rest_133)(unsafe-cdr lst_60)))" +"((rest_135)(unsafe-cdr lst_60)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" @@ -32763,32 +32772,32 @@ static const char *startup_source = "(if(if(not((lambda x_62(not result_95)) arg_0))" "(if(not((lambda x_63(not result_95)) pred_1))(not #f) #f)" " #f)" -"(for-loop_223 result_95 rest_27 rest_133)" +"(for-loop_225 result_95 rest_27 rest_135)" " result_95)))" " result_94)))))" -" for-loop_223)" +" for-loop_225)" " #t" -" lst_241" -" lst_242)))" +" lst_244" +" lst_245)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_172 defns_4)" +"(lambda(v_173 defns_4)" "(begin" -"(let-values(((or-part_232)(quoted? null? v_172)))" -"(if or-part_232" -" or-part_232" -"(let-values(((or-part_233)(eq? 'null(correlated-e v_172))))" -"(if or-part_233" -" or-part_233" -"(if(pair?(correlated-e v_172))" -"(if(eq?(correlated-e(car(correlated-e v_172))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_172))))" +"(let-values(((or-part_235)(quoted? null? v_173)))" +"(if or-part_235" +" or-part_235" +"(let-values(((or-part_236)(eq? 'null(correlated-e v_173))))" +"(if or-part_236" +" or-part_236" +"(if(pair?(correlated-e v_173))" +"(if(eq?(correlated-e(car(correlated-e v_173))) 'list)" +"(if(let-values(((lst_247)(cdr(correlated->list v_173))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_244)))" -"((letrec-values(((for-loop_224)" +"(let-values()(check-list lst_247)))" +"((letrec-values(((for-loop_226)" "(lambda(result_97 lst_64)" "(begin" " 'for-loop" @@ -32811,7 +32820,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_234)" +"(if(let-values(((or-part_237)" "(memq" "(correlated-e" "(list-ref" @@ -32820,8 +32829,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_234" -" or-part_234" +"(if or-part_237" +" or-part_237" "(known-property?" "(lookup-defn" " defns_4" @@ -32851,27 +32860,27 @@ static const char *startup_source = "(if(if(not((lambda x_64(not result_98)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_224 result_98 rest_29)" +"(for-loop_226 result_98 rest_29)" " result_98)))" " result_97)))))" -" for-loop_224)" +" for-loop_226)" " #t" -" lst_244)))" +" lst_247)))" "(=" -"(sub1(correlated-length v_172))" +"(sub1(correlated-length v_173))" "(set-count" -"(let-values(((lst_245)(cdr(correlated->list v_172))))" +"(let-values(((lst_248)(cdr(correlated->list v_173))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_225)" -"(lambda(table_171 lst_246)" +"(let-values()(check-list lst_248)))" +"((letrec-values(((for-loop_227)" +"(lambda(table_171 lst_249)" "(begin" " 'for-loop" -"(if(pair? lst_246)" -"(let-values(((prop+val_2)(unsafe-car lst_246))" -"((rest_134)(unsafe-cdr lst_246)))" +"(if(pair? lst_249)" +"(let-values(((prop+val_2)(unsafe-car lst_249))" +"((rest_136)(unsafe-cdr lst_249)))" "(let-values(((table_172)" "(let-values(((table_173) table_171))" "(let-values(((table_174)" @@ -32891,11 +32900,11 @@ static const char *startup_source = " key_64" " val_55)))))" "(values table_174)))))" -"(if(not #f)(for-loop_225 table_172 rest_134) table_172)))" +"(if(not #f)(for-loop_227 table_172 rest_136) table_172)))" " table_171)))))" -" for-loop_225)" +" for-loop_227)" " '#hash()" -" lst_245)))))" +" lst_248)))))" " #f)" " #f)" " #f))))))))" @@ -32911,21 +32920,21 @@ static const char *startup_source = "(field-count-expr-to-field-count init-field-count-expr_0)" "(field-count-expr-to-field-count auto-field-count-expr_0))))" "(let-values(((immutables-expr_0)" -"(let-values(((or-part_235)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_235 or-part_235 'null))))" +"(let-values(((or-part_238)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_238 or-part_238 'null))))" "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" -"(let-values(((lst_247)(cdr l_58))" -"((lst_248)" +"(let-values(((lst_250)(cdr l_58))" +"((lst_251)" "(list" -"(lambda(v_173)(quoted? symbol? v_173))" -"(lambda(v_174)(super-ok? v_174 defns_5))" -"(lambda(v_175)(field-count-expr-to-field-count v_175))" +"(lambda(v_174)(quoted? symbol? v_174))" +"(lambda(v_175)(super-ok? v_175 defns_5))" "(lambda(v_176)(field-count-expr-to-field-count v_176))" -"(lambda(v_177)" +"(lambda(v_177)(field-count-expr-to-field-count v_177))" +"(lambda(v_178)" "(not" -"(let-values(((v109_0) v_177)" +"(let-values(((v109_0) v_178)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32935,27 +32944,27 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_178)" -"(known-good-struct-properties? v_178 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_179)(inspector-or-false? v_179))" -"(lambda(v_180)(procedure-spec? v_180 num-fields_0))" -"(lambda(v_181)(immutables-ok? v_181 init-field-count-expr_0)))))" +"(lambda(v_179)" +"(known-good-struct-properties? v_179 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_180)(inspector-or-false? v_180))" +"(lambda(v_181)(procedure-spec? v_181 num-fields_0))" +"(lambda(v_182)(immutables-ok? v_182 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_247)))" +"(let-values()(check-list lst_250)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_226)" -"(lambda(result_100 lst_249 lst_250)" +"(let-values()(check-list lst_251)))" +"((letrec-values(((for-loop_228)" +"(lambda(result_100 lst_252 lst_253)" "(begin" " 'for-loop" -"(if(if(pair? lst_249)(pair? lst_250) #f)" -"(let-values(((arg_1)(unsafe-car lst_249))" -"((rest_135)(unsafe-cdr lst_249))" -"((pred_2)(unsafe-car lst_250))" -"((rest_136)(unsafe-cdr lst_250)))" +"(if(if(pair? lst_252)(pair? lst_253) #f)" +"(let-values(((arg_1)(unsafe-car lst_252))" +"((rest_137)(unsafe-cdr lst_252))" +"((pred_2)(unsafe-car lst_253))" +"((rest_138)(unsafe-cdr lst_253)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" @@ -32967,22 +32976,22 @@ static const char *startup_source = "(not #f)" " #f)" " #f)" -"(for-loop_226 result_101 rest_135 rest_136)" +"(for-loop_228 result_101 rest_137 rest_138)" " result_101)))" " result_100)))))" -" for-loop_226)" +" for-loop_228)" " #t" -" lst_247" -" lst_248)))" +" lst_250" +" lst_251)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" "(lambda(e_65 defns_6)" "(begin" -"(let-values(((or-part_236)(quoted? false? e_65)))" -"(if or-part_236" -" or-part_236" +"(let-values(((or-part_239)(quoted? false? e_65)))" +"(if or-part_239" +" or-part_239" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_65))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32993,60 +33002,60 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_182)" +"(lambda(val?_0 v_183)" "(begin" -"(let-values(((or-part_237)" -"(if(pair?(correlated-e v_182))" -"(if(eq?(correlated-e(car(correlated-e v_182))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_182)))" +"(let-values(((or-part_240)" +"(if(pair?(correlated-e v_183))" +"(if(eq?(correlated-e(car(correlated-e v_183))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_183)))" " #f)" " #f)))" -"(if or-part_237 or-part_237(val?_0(correlated-e v_182)))))))" +"(if or-part_240 or-part_240(val?_0(correlated-e v_183)))))))" "(define-values" "(quoted-value)" -"(lambda(v_183)" -"(begin(if(pair?(correlated-e v_183))(correlated-e(correlated-cadr v_183))(correlated-e v_183)))))" -"(define-values(false?)(lambda(v_184)(begin(eq?(correlated-e v_184) #f))))" +"(lambda(v_184)" +"(begin(if(pair?(correlated-e v_184))(correlated-e(correlated-cadr v_184))(correlated-e v_184)))))" +"(define-values(false?)(lambda(v_185)(begin(eq?(correlated-e v_185) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_185)(begin(if(quoted? exact-nonnegative-integer? v_185)(quoted-value v_185) #f))))" +"(lambda(v_186)(begin(if(quoted? exact-nonnegative-integer? v_186)(quoted-value v_186) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_186)" +"(lambda(v_187)" "(begin" -"(let-values(((or-part_238)(quoted? false? v_186)))" -"(if or-part_238" -" or-part_238" -"(let-values(((or-part_239)(if(quoted? symbol? v_186)(eq? 'prefab(quoted-value v_186)) #f)))" -"(if or-part_239" -" or-part_239" -"(if(= 1(correlated-length v_186))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_186))))" +"(let-values(((or-part_241)(quoted? false? v_187)))" +"(if or-part_241" +" or-part_241" +"(let-values(((or-part_242)(if(quoted? symbol? v_187)(eq? 'prefab(quoted-value v_187)) #f)))" +"(if or-part_242" +" or-part_242" +"(if(= 1(correlated-length v_187))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_187))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_187 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_188 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_240)(quoted? null? v_187)))" -"(if or-part_240" -" or-part_240" -"(let-values(((or-part_241)(eq? 'null(correlated-e v_187))))" -"(if or-part_241" -" or-part_241" -"(if(pair?(correlated-e v_187))" -"(if(eq?(correlated-e(car(correlated-e v_187))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_187))))" +"(let-values(((or-part_243)(quoted? null? v_188)))" +"(if or-part_243" +" or-part_243" +"(let-values(((or-part_244)(eq? 'null(correlated-e v_188))))" +"(if or-part_244" +" or-part_244" +"(if(pair?(correlated-e v_188))" +"(if(eq?(correlated-e(car(correlated-e v_188))) 'list)" +"(if(let-values(((lst_254)(cdr(correlated->list v_188))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_251)))" -"((letrec-values(((for-loop_227)" -"(lambda(result_103 lst_252)" +"(let-values()(check-list lst_254)))" +"((letrec-values(((for-loop_229)" +"(lambda(result_103 lst_255)" "(begin" " 'for-loop" -"(if(pair? lst_252)" -"(let-values(((prop+val_3)(unsafe-car lst_252))" -"((rest_137)(unsafe-cdr lst_252)))" +"(if(pair? lst_255)" +"(let-values(((prop+val_3)(unsafe-car lst_255))" +"((rest_139)(unsafe-cdr lst_255)))" "(let-values(((result_104)" "(let-values()" "(let-values(((result_105)" @@ -33075,27 +33084,27 @@ static const char *startup_source = "(if(if(not((lambda x_67(not result_104)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_227 result_104 rest_137)" +"(for-loop_229 result_104 rest_139)" " result_104)))" " result_103)))))" -" for-loop_227)" +" for-loop_229)" " #t" -" lst_251)))" +" lst_254)))" "(=" -"(sub1(correlated-length v_187))" +"(sub1(correlated-length v_188))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_187))))" +"(let-values(((lst_256)(cdr(correlated->list v_188))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_228)" -"(lambda(table_175 lst_135)" +"(let-values()(check-list lst_256)))" +"((letrec-values(((for-loop_230)" +"(lambda(table_175 lst_136)" "(begin" " 'for-loop" -"(if(pair? lst_135)" -"(let-values(((prop+val_5)(unsafe-car lst_135))" -"((rest_138)(unsafe-cdr lst_135)))" +"(if(pair? lst_136)" +"(let-values(((prop+val_5)(unsafe-car lst_136))" +"((rest_140)(unsafe-cdr lst_136)))" "(let-values(((table_176)" "(let-values(((table_177) table_175))" "(let-values(((table_178)" @@ -33115,11 +33124,11 @@ static const char *startup_source = " key_65" " val_56)))))" "(values table_178)))))" -"(if(not #f)(for-loop_228 table_176 rest_138) table_176)))" +"(if(not #f)(for-loop_230 table_176 rest_140) table_176)))" " table_175)))))" -" for-loop_228)" +" for-loop_230)" " '#hash()" -" lst_253)))))" +" lst_256)))))" " #f)" " #f)" " #f))))))))" @@ -33131,12 +33140,12 @@ static const char *startup_source = "(let-values(((tmp_28) prop-name_0))" "(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_242)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_242 or-part_242(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_245)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_245 or-part_245(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_243)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_243 or-part_243(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_246)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_246 or-part_246(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_28 'prop:equal+hash)" @@ -33177,26 +33186,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_244)" +"(let-values(((or-part_247)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_245)(not arity_0)))" -"(if or-part_245 or-part_245(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_248)(not arity_0)))" +"(if or-part_248 or-part_248(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_244" -" or-part_244" -"(let-values(((or-part_246)" +"(if or-part_247" +" or-part_247" +"(let-values(((or-part_249)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_246" -" or-part_246" +"(if or-part_249" +" or-part_249" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_247)(not arity_0)))" -"(if or-part_247" -" or-part_247" +"(let-values(((or-part_250)(not arity_0)))" +"(if or-part_250" +" or-part_250" "((letrec-values(((loop_94)" "(lambda(args_4 arity_1)" "(begin" @@ -33217,21 +33226,21 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_41 n_26)" "(begin" -"(let-values(((or-part_248)(equal? a_41 n_26)))" -"(if or-part_248" -" or-part_248" +"(let-values(((or-part_251)(equal? a_41 n_26)))" +"(if or-part_251" +" or-part_251" "(if(list? a_41)" -"(let-values(((lst_254) a_41))" +"(let-values(((lst_257) a_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_229)" -"(lambda(result_106 lst_255)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_231)" +"(lambda(result_106 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_255)" -"(let-values(((a_42)(unsafe-car lst_255))((rest_139)(unsafe-cdr lst_255)))" +"(if(pair? lst_258)" +"(let-values(((a_42)(unsafe-car lst_258))((rest_141)(unsafe-cdr lst_258)))" "(let-values(((result_107)" "(let-values()" "(let-values(((result_108)" @@ -33239,12 +33248,12 @@ static const char *startup_source = "(let-values()(equal? a_42 n_26)))))" "(values result_108)))))" "(if(if(not((lambda x_68 result_107) a_42))(not #f) #f)" -"(for-loop_229 result_107 rest_139)" +"(for-loop_231 result_107 rest_141)" " result_107)))" " result_106)))))" -" for-loop_229)" +" for-loop_231)" " #f" -" lst_254)))" +" lst_257)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -33260,28 +33269,28 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_188)(correlated-cadr e_67)))" -"(let-values(((or-part_249)" -"(if(correlated-length v_188)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_188))))" +"(let-values(((v_189)(correlated-cadr e_67)))" +"(let-values(((or-part_252)" +"(if(correlated-length v_189)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_189))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_249 or-part_249 fail-v_0))))" +"(if or-part_252 or-part_252 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_68 field-count_1)" "(begin" -"(let-values(((or-part_250)(quoted? false? e_68)))" -"(if or-part_250" -" or-part_250" -"(let-values(((or-part_251)" +"(let-values(((or-part_253)(quoted? false? e_68)))" +"(if or-part_253" +" or-part_253" +"(let-values(((or-part_254)" "(if(quoted? exact-nonnegative-integer? e_68)" "(if field-count_1(<(quoted-value e_68) field-count_1) #f)" " #f)))" -"(if or-part_251 or-part_251(is-lambda? e_68 #f '#hasheq()))))))))" +"(if or-part_254 or-part_254(is-lambda? e_68 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_69 init-field-count-expr_1)" @@ -33289,29 +33298,29 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_69 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_256) l_62))" +"(let-values(((lst_259) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" +"(let-values()(check-list lst_259)))" "((letrec-values(((for-loop_93)" -"(lambda(result_109 lst_257)" +"(lambda(result_109 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_257)" -"(let-values(((n_27)(unsafe-car lst_257))((rest_140)(unsafe-cdr lst_257)))" +"(if(pair? lst_260)" +"(let-values(((n_27)(unsafe-car lst_260))((rest_142)(unsafe-cdr lst_260)))" "(let-values(((result_110)" "(let-values()" "(let-values(((result_111)" "(let-values()(let-values()(< n_27 c_24)))))" "(values result_111)))))" "(if(if(not((lambda x_69(not result_110)) n_27))(not #f) #f)" -"(for-loop_93 result_110 rest_140)" +"(for-loop_93 result_110 rest_142)" " result_110)))" " result_109)))))" " for-loop_93)" " #t" -" lst_256)))" +" lst_259)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -33319,16 +33328,16 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_70)))" "(let-values(((a_43)" -"(if(let-values(((or-part_252)(=(length l_63) 3)))" -"(if or-part_252 or-part_252(=(length l_63) 4)))" -"(let-values(((or-part_253)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_253 or-part_253(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_255)(=(length l_63) 3)))" +"(if or-part_255 or-part_255(=(length l_63) 4)))" +"(let-values(((or-part_256)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_256 or-part_256(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_43)" "(if(eq?(known-struct-op-type a_43) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_43))" -"(let-values(((or-part_254)(=(length l_63) 3)))" -"(if or-part_254 or-part_254(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_257)(=(length l_63) 3)))" +"(if or-part_257 or-part_257(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" @@ -33351,7 +33360,7 @@ static const char *startup_source = "(let-values(((to-source?_2) to-source?3_0))" "(let-values()" "(let-values()" -"(let-values(((phase_84)(compile-context-phase cctx_14)))" +"(let-values(((phase_85)(compile-context-phase cctx_14)))" "(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((purely-functional?_0) #t))" "(let-values(((body-linklets_1" @@ -33423,7 +33432,7 @@ static const char *startup_source = "(lambda(ht_117)" "(begin" " 'add-metadata" -"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_84)))" +"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_85)))" "(let-values(((ht_119)(hash-set ht_118 'max-phase max-phase_1)))" " ht_119))))))" "(let-values(((bundle_0)" @@ -33436,7 +33445,7 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_18" -" phase_84" +" phase_85" "(compile-context-self cctx_14)" "(compile-context-namespace cctx_14)))))" "(let-values(((link-linklet_0)" @@ -33469,7 +33478,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_84) '(#f)))" +"(list* 'make-vector(add1 phase_85) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -33501,7 +33510,7 @@ static const char *startup_source = "(compile-top-level-require)" "(lambda(p_47 cctx_16)" "(begin" -"(let-values(((phase_85)(compile-context-phase cctx_16)))" +"(let-values(((phase_86)(compile-context-phase cctx_16)))" "(if(parsed-require? p_47)" "(let-values()" "(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_47)) cctx_16)))" @@ -33524,7 +33533,7 @@ static const char *startup_source = "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_8) defined-syms12_0))" "(let-values(((self_19) self13_0))" -"(let-values(((phase_86) phase14_0))" +"(let-values(((phase_87) phase14_0))" "(let-values(((all-scopes-stx_3) all-scopes-stx15_0))" "(let-values(((frame-id_7) frame-id1_0))" "(let-values(((top-level-bind-scope_3) top-level-bind-scope2_0))" @@ -33533,33 +33542,33 @@ static const char *startup_source = "(let-values(((as-transformer?_5) as-transformer?5_0))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_82)(hash-ref defined-syms_8 phase_86 #f)))" +"(let-values(((or-part_82)(hash-ref defined-syms_8 phase_87 #f)))" "(if or-part_82" " or-part_82" "(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_86 ht_120) ht_120))))))" +"(begin(hash-set! defined-syms_8 phase_87 ht_120) ht_120))))))" "(reverse$1" -"(let-values(((lst_258) ids_15))" +"(let-values(((lst_261) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_230)" +"(let-values()(check-list lst_261)))" +"((letrec-values(((for-loop_232)" "(lambda(fold-var_73 lst_90)" "(begin" " 'for-loop" "(if(pair? lst_90)" -"(let-values(((id_53)(unsafe-car lst_90))" -"((rest_141)(unsafe-cdr lst_90)))" +"(let-values(((id_54)(unsafe-car lst_90))" +"((rest_143)(unsafe-cdr lst_90)))" "(let-values(((fold-var_12)" -"(let-values(((fold-var_156) fold-var_73))" +"(let-values(((fold-var_160) fold-var_73))" "(let-values(((fold-var_94)" "(let-values()" "(cons" "(let-values()" "(let-values(((sym_62)" "(syntax-e$1" -" id_53)))" +" id_54)))" "(let-values(((defined-sym_0)" "(if(if(not" "(defined-as-other?" @@ -33567,14 +33576,14 @@ static const char *startup_source = " defined-syms-at-phase_0" " sym_62" " #f)" -" id_53" -" phase_86" +" id_54" +" phase_87" " top-level-bind-scope_3))" "(if(no-extra-scopes?" -" id_53" +" id_54" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_86)" +" phase_87)" "(symbol-interned?" " sym_62)" " #f)" @@ -33584,7 +33593,7 @@ static const char *startup_source = "(lambda(pos_98)" "(begin" " 'loop" -"(let-values(((s_184)" +"(let-values(((s_183)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33593,15 +33602,15 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_184" +" s_183" " #f)" -" id_53" -" phase_86" +" id_54" +" phase_87" " top-level-bind-scope_3)" "(loop_83" "(add1" " pos_98))" -" s_184))))))" +" s_183))))))" " loop_83)" " 1))))" "(let-values((()" @@ -33609,13 +33618,13 @@ static const char *startup_source = "(hash-set!" " defined-syms-at-phase_0" " defined-sym_0" -" id_53)" +" id_54)" "(values))))" "(let-values(((b_75)" "(let-values(((self23_0)" " self_19)" "((phase24_0)" -" phase_86)" +" phase_87)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" @@ -33641,9 +33650,9 @@ static const char *startup_source = "(let-values(((requires+provides28_0)" " requires+provides_4)" "((id29_0)" -" id_53)" +" id_54)" "((phase30_0)" -" phase_86)" +" phase_87)" "((b31_0)" " b_75))" "(remove-required-id!75.1" @@ -33653,11 +33662,11 @@ static const char *startup_source = " phase30_0)))" "(void))" "(let-values(((id19_0)" -" id_53)" +" id_54)" "((b20_0)" " b_75)" "((phase21_1)" -" phase_86)" +" phase_87)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -33671,9 +33680,9 @@ static const char *startup_source = "(let-values(((requires+provides32_0)" " requires+provides_4)" "((id33_0)" -" id_53)" +" id_54)" "((phase34_0)" -" phase_86)" +" phase_87)" "((b35_0)" " b_75)" "((as-transformer?36_0)" @@ -33687,40 +33696,40 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_156))))" +" fold-var_160))))" "(values fold-var_94)))))" "(if(not #f)" -"(for-loop_230 fold-var_12 rest_141)" +"(for-loop_232 fold-var_12 rest_143)" " fold-var_12)))" " fold-var_73)))))" -" for-loop_230)" +" for-loop_232)" " null" -" lst_258)))))))))))))))))))" +" lst_261)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_72)" +"(lambda(id_55 all-scopes-stx_4 top-level-bind-scope_4 phase_73)" "(begin" -"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_207)(bound-identifier=?$1 id_54 m-id_0 phase_72)))" -"(if or-part_207" -" or-part_207" +"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_55))))" +"(let-values(((or-part_210)(bound-identifier=?$1 id_55 m-id_0 phase_73)))" +"(if or-part_210" +" or-part_210" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_72)" +"(bound-identifier=?$1 id_55(add-scope m-id_0 top-level-bind-scope_4) phase_73)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_55 phase_87 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_56 phase_88 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_87))" -"(let-values(((or-part_255)(not top-level-bind-scope_5)))" -"(if or-part_255" -" or-part_255" +"(if(not(bound-identifier=?$1 prev-id_0 id_56 phase_88))" +"(let-values(((or-part_258)(not top-level-bind-scope_5)))" +"(if or-part_258" +" or-part_258" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" -"(remove-scope id_55 top-level-bind-scope_5)" -" phase_87))))" +"(remove-scope id_56 top-level-bind-scope_5)" +" phase_88))))" " #f)" " #f))))" "(define-values" @@ -33747,15 +33756,15 @@ static const char *startup_source = " temp41_0)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_9 phase_77 sym_63 id_56)" +"(lambda(defined-syms_9 phase_78 sym_63 id_57)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_216)(hash-ref defined-syms_9 phase_77 #f)))" -"(if or-part_216" -" or-part_216" +"(let-values(((or-part_219)(hash-ref defined-syms_9 phase_78 #f)))" +"(if or-part_219" +" or-part_219" "(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_9 phase_77 ht_121) ht_121))))))" -"(hash-set! defined-syms-at-phase_1 sym_63 id_56)))))" +"(begin(hash-set! defined-syms_9 phase_78 ht_121) ht_121))))))" +"(hash-set! defined-syms-at-phase_1 sym_63 id_57)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" @@ -33767,12 +33776,12 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_218) requires_3))" +"(let-values(((lst_221) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_231)" +"(let-values()(check-list lst_221)))" +"((letrec-values(((for-loop_233)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33785,11 +33794,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_34)" +"(let-values(((phase_35)" "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_259)" +"(let-values(((lst_262)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33798,8 +33807,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_259)))" -"((letrec-values(((for-loop_232)" +" lst_262)))" +"((letrec-values(((for-loop_234)" "(lambda(lst_78)" "(begin" " 'for-loop" @@ -33817,13 +33826,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_44)" +"(let-values(((mpi_43)" "(module-path-index-shift" " req_4" " original-self_0" " self_20)))" "(let-values(((mpi2_1)" -" mpi_44)" +" mpi_43)" "((s3_0)" " s_3)" "((self4_3)" @@ -33834,7 +33843,7 @@ static const char *startup_source = " ns_59)" "((temp7_1)" "(phase+" -" phase_34" +" phase_35" " phase-shift_13))" "((phase-shift8_0)" " phase-shift_13)" @@ -33864,19 +33873,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_232" +"(for-loop_234" " rest_36)" "(values))))" "(values))))))" -" for-loop_232)" -" lst_259)))" +" for-loop_234)" +" lst_262)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_231 rest_4)(values))))" +"(if(not #f)(for-loop_233 rest_4)(values))))" "(values))))))" -" for-loop_231)" -" lst_218)))" +" for-loop_233)" +" lst_221)))" "(values))))" "(let-values()" "(let-values(((defined-syms_10)(root-expand-context-defined-syms root-ctx_4)))" @@ -33891,7 +33900,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_145" -"(let-values(((phase_88 linklet_3)" +"(let-values(((phase_89 linklet_3)" "(hash-iterate-key+value ht_122 i_145)))" "(let-values((()" "(let-values()" @@ -33900,7 +33909,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_260)" +"(let-values(((lst_263)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33908,37 +33917,37 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_260)))" -"((letrec-values(((for-loop_233)" -"(lambda(lst_261)" +"(check-list lst_263)))" +"((letrec-values(((for-loop_235)" +"(lambda(lst_264)" "(begin" " 'for-loop" "(if(pair?" -" lst_261)" +" lst_264)" "(let-values(((sym_64)" "(unsafe-car" -" lst_261))" -"((rest_142)" +" lst_264))" +"((rest_144)" "(unsafe-cdr" -" lst_261)))" +" lst_264)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_57)" +"(let-values(((id_58)" "(datum->syntax$1" " s_3" " sym_64)))" "(begin" "(let-values(((id10_0)" -" id_57)" +" id_58)" "((temp11_2)" "(let-values(((self13_1)" " self_20)" "((phase14_1)" -" phase_88)" +" phase_89)" "((sym15_0)" " sym_64))" "(make-module-binding22.1" @@ -33955,7 +33964,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_88))" +" phase_89))" "(add-binding!17.1" " #f" " #f" @@ -33964,19 +33973,19 @@ static const char *startup_source = " phase12_0))" "(add-defined-sym!" " defined-syms_10" -" phase_88" +" phase_89" " sym_64" -" id_57))))" +" id_58))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_233" -" rest_142)" +"(for-loop_235" +" rest_144)" "(values))))" "(values))))))" -" for-loop_233)" -" lst_260)))" +" for-loop_235)" +" lst_263)))" "(void)))" "(values)))))" "(values)))))" @@ -33994,12 +34003,12 @@ static const char *startup_source = "(begin" "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_189) root-context_0))" -"(let-values(((the-struct_54) v_189))" -"(if(root-expand-context/outer? the-struct_54)" +"(let-values(((v_190) root-context_0))" +"(let-values(((the-struct_55) v_190))" +"(if(root-expand-context/outer? the-struct_55)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_189)))" -"(if(root-expand-context/inner? the-struct_55)" +"(let-values(((the-struct_56)(root-expand-context/outer-inner v_190)))" +"(if(root-expand-context/inner? the-struct_56)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_2)" @@ -34014,20 +34023,20 @@ static const char *startup_source = " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_55)" -"(root-expand-context/inner-top-level-bind-scope the-struct_55)" +"(root-expand-context/inner-module-scopes the-struct_56)" +"(root-expand-context/inner-top-level-bind-scope the-struct_56)" " all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_55)" -"(root-expand-context/inner-counter the-struct_55)" -"(root-expand-context/inner-lift-key the-struct_55)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_55)))))" +"(root-expand-context/inner-defined-syms the-struct_56)" +"(root-expand-context/inner-counter the-struct_56)" +"(root-expand-context/inner-lift-key the-struct_56)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_56)))))" "(root-expand-context/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_54)" -"(root-expand-context/outer-post-expansion-shifts the-struct_54)" -"(root-expand-context/outer-use-site-scopes the-struct_54)" -"(root-expand-context/outer-frame-id the-struct_54)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_54)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_55)" +"(root-expand-context/outer-post-expansion-shifts the-struct_55)" +"(root-expand-context/outer-use-site-scopes the-struct_55)" +"(root-expand-context/outer-frame-id the-struct_55)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_55)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -34049,9 +34058,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_41)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_160) import-module-uses_0)" +"((lst_163) import-module-uses_0)" "((lst_89) import-module-instances_0)" -"((lst_262)" +"((lst_265)" "(let-values(((or-part_81) extra-inspectorsss_4))" "(if or-part_81 or-part_81 import-module-uses_0))))" "(begin" @@ -34060,28 +34069,28 @@ static const char *startup_source = "(let-values()(check-list lst_41)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_160)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_233)" -"(lambda(lst_261 lst_258 lst_23 lst_104)" +"(let-values()(check-list lst_265)))" +"((letrec-values(((for-loop_235)" +"(lambda(lst_264 lst_261 lst_23 lst_104)" "(begin" " 'for-loop" -"(if(if(pair? lst_261)" -"(if(pair? lst_258)(if(pair? lst_23)(pair? lst_104) #f) #f)" +"(if(if(pair? lst_264)" +"(if(pair? lst_261)(if(pair? lst_23)(pair? lst_104) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_261))" -"((rest_143)(unsafe-cdr lst_261))" -"((mu_7)(unsafe-car lst_258))" -"((rest_83)(unsafe-cdr lst_258))" +"(let-values(((import-syms_0)(unsafe-car lst_264))" +"((rest_145)(unsafe-cdr lst_264))" +"((mu_7)(unsafe-car lst_261))" +"((rest_85)(unsafe-cdr lst_261))" "((mi_16)(unsafe-car lst_23))" "((rest_43)(unsafe-cdr lst_23))" "((extra-inspectorss_14)(unsafe-car lst_104))" -"((rest_119)(unsafe-cdr lst_104)))" +"((rest_121)(unsafe-cdr lst_104)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34104,7 +34113,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_266)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34112,8 +34121,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_263)))" -"((letrec-values(((for-loop_234)" +" lst_266)))" +"((letrec-values(((for-loop_236)" "(lambda(lst_25)" "(begin" " 'for-loop" @@ -34154,20 +34163,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_256)" +"(if(let-values(((or-part_259)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_256" -" or-part_256" -"(let-values(((or-part_257)" +"(if or-part_259" +" or-part_259" +"(let-values(((or-part_260)" "(if extra-inspector_6" "(inspector-superior?" " extra-inspector_6" " guard-insp_3)" " #f)))" -"(if or-part_257" -" or-part_257" +"(if or-part_260" +" or-part_260" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -34197,43 +34206,43 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_236" " rest_9)" "(values))))" "(values))))))" -" for-loop_234)" -" lst_263)))" +" for-loop_236)" +" lst_266)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_233 rest_143 rest_83 rest_43 rest_119)" +"(for-loop_235 rest_145 rest_85 rest_43 rest_121)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_235)" " lst_41" -" lst_160" +" lst_163" " lst_89" -" lst_262)))" +" lst_265)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_89 sym_65 insp_11)" +"(lambda(mi_17 phase_90 sym_65 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_258)(module-access m_16)))" -"(if or-part_258 or-part_258(module-compute-access! m_16)))))" -"(let-values(((a_45)(hash-ref(hash-ref access_3 phase_89 '#hasheq()) sym_65 'unexported)))" +"(let-values(((or-part_261)(module-access m_16)))" +"(if or-part_261 or-part_261(module-compute-access! m_16)))))" +"(let-values(((a_45)(hash-ref(hash-ref access_3 phase_90 '#hasheq()) sym_65 'unexported)))" "(if(let-values(((or-part_34)(eq? a_45 'unexported)))" "(if or-part_34 or-part_34(eq? a_45 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_259)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_259 or-part_259(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_262)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_262 or-part_262(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -34296,7 +34305,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_235)" "(lambda(table_179 pos_99)" "(begin" " 'for-loop" @@ -34304,7 +34313,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_99))" "(let-values(((table_180)" -"(let-values(((v_190)" +"(let-values(((v_191)" "(hash-ref" " h_1" " phase-level_17" @@ -34319,7 +34328,7 @@ static const char *startup_source = "(let-values(((table_182)" "(let-values(((table_111)" " table_181))" -"(if v_190" +"(if v_191" "(let-values(((table_183)" " table_111))" "(let-values(((table_184)" @@ -34330,7 +34339,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_190)))))" +" v_191)))))" "(hash-set" " table_183" " key_68" @@ -34342,12 +34351,12 @@ static const char *startup_source = " for-loop_108)" " table_179)))))" "(if(not #f)" -"(for-loop_233" +"(for-loop_235" " table_180" "(+ pos_99 inc_20))" " table_180)))" " table_179)))))" -" for-loop_233)" +" for-loop_235)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34390,17 +34399,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_19)))" "((letrec-values(((for-loop_15)" -"(lambda(lst_264)" +"(lambda(lst_267)" "(begin" " 'for-loop" "(if(pair?" -" lst_264)" +" lst_267)" "(let-values(((c_26)" "(unsafe-car" -" lst_264))" -"((rest_144)" +" lst_267))" +"((rest_146)" "(unsafe-cdr" -" lst_264)))" +" lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34423,32 +34432,32 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_15" -" rest_144)" +" rest_146)" "(values))))" "(values))))))" " for-loop_15)" " lst_19)))" "(void))" "(begin" -"(let-values(((lst_265) names_0))" +"(let-values(((lst_268) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_265)))" -"((letrec-values(((for-loop_235)" -"(lambda(lst_173)" +"(check-list lst_268)))" +"((letrec-values(((for-loop_237)" +"(lambda(lst_176)" "(begin" " 'for-loop" "(if(pair?" -" lst_173)" +" lst_176)" "(let-values(((name_48)" "(unsafe-car" -" lst_173))" -"((rest_91)" +" lst_176))" +"((rest_93)" "(unsafe-cdr" -" lst_173)))" +" lst_176)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34482,12 +34491,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_235" -" rest_91)" +"(for-loop_237" +" rest_93)" "(values))))" "(values))))))" -" for-loop_235)" -" lst_265)))" +" for-loop_237)" +" lst_268)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34600,7 +34609,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_184)" +"(let-values(((lst_187)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34608,21 +34617,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_184)))" +" lst_187)))" "((letrec-values(((for-loop_3)" "(lambda(mis_2" " is_1" -" lst_180)" +" lst_183)" "(begin" " 'for-loop" "(if(pair?" -" lst_180)" +" lst_183)" "(let-values(((mu_8)" "(unsafe-car" -" lst_180))" -"((rest_96)" +" lst_183))" +"((rest_98)" "(unsafe-cdr" -" lst_180)))" +" lst_183)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34671,7 +34680,7 @@ static const char *startup_source = "(for-loop_3" " mis_3" " is_2" -" rest_96)" +" rest_98)" "(values" " mis_3" " is_2))))" @@ -34681,7 +34690,7 @@ static const char *startup_source = " for-loop_3)" " null" " null" -" lst_184)))))" +" lst_187)))))" "(values" "(reverse$1" " mis_1)" @@ -34949,9 +34958,9 @@ static const char *startup_source = "(force-syntax-deserialize)" "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" "(begin" -"(if(let-values(((or-part_260)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" -"(if or-part_260" -" or-part_260" +"(if(let-values(((or-part_263)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" +"(if or-part_263" +" or-part_263" "(eq? syntax-literals-data-instance_2 empty-syntax-literals-instance/empty-namespace)))" "(void)" "(let-values()" @@ -35049,12 +35058,12 @@ static const char *startup_source = "(let-values(((ht_123) phases-h_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_236)" +"((letrec-values(((for-loop_238)" "(lambda(table_185 i_146)" "(begin" " 'for-loop" "(if i_146" -"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_123 i_146)))" +"(let-values(((phase_91 linklet_5)(hash-iterate-key+value ht_123 i_146)))" "(let-values(((table_186)" "(let-values(((table_187) table_185))" "(let-values(((table_140)" @@ -35062,16 +35071,16 @@ static const char *startup_source = "(let-values(((key_69 val_60)" "(let-values()" "(values" -" phase_90" +" phase_91" "(1/linklet-export-variables" " linklet_5)))))" "(hash-set table_187 key_69 val_60)))))" "(values table_140)))))" "(if(not #f)" -"(for-loop_236 table_186(hash-iterate-next ht_123 i_146))" +"(for-loop_238 table_186(hash-iterate-next ht_123 i_146))" " table_186)))" " table_185)))))" -" for-loop_236)" +" for-loop_238)" " '#hash()" "(hash-iterate-first ht_123)))))))" "(define-values" @@ -35094,7 +35103,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_147" -"(let-values(((phase_91 at-phase_11)" +"(let-values(((phase_92 at-phase_11)" "(hash-iterate-key+value ht_124 i_147)))" "(let-values(((fold-var_60)" "(let-values(((l_65)" @@ -35108,8 +35117,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_125)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_215" +"((letrec-values(((for-loop_239)" +"(lambda(fold-var_219" " i_148)" "(begin" " 'for-loop" @@ -35119,14 +35128,14 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_125" " i_148)))" -"(let-values(((fold-var_216)" -"(let-values(((fold-var_217)" -" fold-var_215))" +"(let-values(((fold-var_220)" +"(let-values(((fold-var_221)" +" fold-var_219))" "(if(ok?_26" " b/p_1)" -"(let-values(((fold-var_218)" -" fold-var_217))" -"(let-values(((fold-var_219)" +"(let-values(((fold-var_222)" +" fold-var_221))" +"(let-values(((fold-var_223)" "(let-values()" "(cons" "(let-values()" @@ -35155,22 +35164,22 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_238)" -"(lambda(fold-var_220" -" lst_266)" +"((letrec-values(((for-loop_240)" +"(lambda(fold-var_224" +" lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_266)" +" lst_269)" "(let-values(((b_76)" "(unsafe-car" -" lst_266))" -"((rest_145)" +" lst_269))" +"((rest_147)" "(unsafe-cdr" -" lst_266)))" +" lst_269)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" -" fold-var_220))" +" fold-var_224))" "(let-values(((fold-var_31)" "(let-values()" "(cons" @@ -35178,7 +35187,7 @@ static const char *startup_source = "(if(if(eqv?" "(module-binding-nominal-phase" " b_76)" -" phase_91)" +" phase_92)" "(eq?" "(module-binding-nominal-sym" " b_76)" @@ -35202,28 +35211,28 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_238" +"(for-loop_240" " fold-var_29" -" rest_145)" +" rest_147)" " fold-var_29)))" -" fold-var_220)))))" -" for-loop_238)" +" fold-var_224)))))" +" for-loop_240)" " null" " lst_87)))))))))" -" fold-var_218))))" +" fold-var_222))))" "(values" -" fold-var_219)))" -" fold-var_217))))" +" fold-var_223)))" +" fold-var_221))))" "(if(not" " #f)" -"(for-loop_237" -" fold-var_216" +"(for-loop_239" +" fold-var_220" "(hash-iterate-next" " ht_125" " i_148))" -" fold-var_216)))" -" fold-var_215)))))" -" for-loop_237)" +" fold-var_220)))" +" fold-var_219)))))" +" for-loop_239)" " null" "(hash-iterate-first" " ht_125)))))))" @@ -35234,7 +35243,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_221)" +"(let-values(((fold-var_225)" "(let-values(((fold-var_32)" " fold-var_71))" "(if(null?" @@ -35247,7 +35256,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_91" +" phase_92" "(let-values(((l4_0)" " l_65)" "((symbolnamespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_56) cctx_17))" -"(if(compile-context? the-struct_56)" +"(let-values(((the-struct_57) cctx_17))" +"(if(compile-context? the-struct_57)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -36105,27 +36114,27 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_56)" +"(compile-context-namespace the-struct_57)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_56)))" +"(compile-context-header the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_56)))))" +" the-struct_57)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" "(lambda(e_73" " expected-results_3" -" phase_93" +" phase_94" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_93 #f)" +"(if(hash-ref side-effects_0 phase_94 #f)" "(void)" "(let-values()" "(if(let-values(((e52_2) e_73)" @@ -36142,7 +36151,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " side-effects_0" -" phase_93" +" phase_94" " #t))" "(void))))))))" "(let-values((()" @@ -36197,19 +36206,19 @@ static const char *startup_source = "(let-values(((ok?_27" " _69_2" " kw70_0)" -"(let-values(((s_404)" +"(let-values(((s_403)" "(parsed-s" " body_3)))" "(let-values(((orig-s_29)" -" s_404))" +" s_403))" "(let-values(((_69_3" " kw70_1)" "(let-values(((s_34)" "(if(syntax?$1" -" s_404)" +" s_403)" "(syntax-e$1" -" s_404)" -" s_404)))" +" s_403)" +" s_403)))" "(if(pair?" " s_34)" "(let-values(((_71_0)" @@ -36218,18 +36227,18 @@ static const char *startup_source = " s_34)))" " s_59))" "((kw72_0)" -"(let-values(((s_405)" +"(let-values(((s_404)" "(cdr" " s_34)))" -"(let-values(((s_406)" +"(let-values(((s_405)" "(if(syntax?$1" -" s_405)" +" s_404)" "(syntax-e$1" -" s_405)" -" s_405)))" +" s_404)" +" s_404)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_406)))" +" s_405)))" "(if(not" " flat-s_19)" "(let-values()" @@ -36251,7 +36260,7 @@ static const char *startup_source = " _69_3" " kw70_1))))))" "(begin" -"(let-values(((lst_195)" +"(let-values(((lst_198)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -36259,19 +36268,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_203)" -"(lambda(lst_268)" +" lst_198)))" +"((letrec-values(((for-loop_205)" +"(lambda(lst_271)" "(begin" " 'for-loop" "(if(pair?" -" lst_268)" +" lst_271)" "(let-values(((kw_0)" "(unsafe-car" -" lst_268))" -"((rest_147)" +" lst_271))" +"((rest_149)" "(unsafe-cdr" -" lst_268)))" +" lst_271)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36303,17 +36312,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_203" -" rest_147)" +"(for-loop_205" +" rest_149)" "(values))))" "(values))))))" -" for-loop_203)" -" lst_195)))" +" for-loop_205)" +" lst_198)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_94)" +"(lambda(mod-name_17 phase_95)" "(let-values(((ht_128)" "(if modules-being-compiled_1" "(hash-ref" @@ -36324,7 +36333,7 @@ static const char *startup_source = "(if ht_128" "(hash-ref" " ht_128" -" phase_94" +" phase_95" " #f)" " #f))))" "((to-source?67_0) to-source?_3)" @@ -36368,7 +36377,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_87" -"(let-values(((phase_95" +"(let-values(((phase_96" " linklet_6)" "(hash-iterate-key+value" " ht_68" @@ -36382,12 +36391,12 @@ static const char *startup_source = " val_27)" "(let-values()" "(values" -" phase_95" +" phase_96" "(module-linklet-info2.1" " linklet_6" "(hash-ref" " phase-to-link-module-uses_4" -" phase_95" +" phase_96" " #f)" " self_25" " #f" @@ -36395,7 +36404,7 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_95" +" phase_96" " #f)" " #f))))))" "(hash-set" @@ -36422,10 +36431,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_3" " values" -"(lambda(s_407)" +"(lambda(s_406)" "(let-values()" "(1/compile-linklet" -" s_407" +" s_406" " 'decl))))" "(list" " 'linklet" @@ -36475,12 +36484,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_3" " values" -"(lambda(s_408)" +"(lambda(s_407)" "(let-values()" "(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_408" +" s_407" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36544,10 +36553,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_3" " values" -"(lambda(s_209)" +"(lambda(s_208)" "(let-values()" "(1/compile-linklet" -" s_209" +" s_208" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36576,10 +36585,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_3" " values" -"(lambda(s_210)" +"(lambda(s_209)" "(let-values()" "(1/compile-linklet" -" s_210" +" s_209" " 'data))))" "(list" " 'linklet" @@ -36605,10 +36614,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_176)" +"(let-values(((or-part_179)" " declaration-linklet_0))" -"(if or-part_176" -" or-part_176" +"(if or-part_179" +" or-part_179" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36720,7 +36729,7 @@ static const char *startup_source = "((if to-source?_3" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_269)" +"(let-values(((lst_272)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36730,20 +36739,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_269)))" -"((letrec-values(((for-loop_240)" +" lst_272)))" +"((letrec-values(((for-loop_242)" "(lambda(ht_129" -" lst_270)" +" lst_273)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" +" lst_273)" "(let-values(((sm_0)" "(unsafe-car" -" lst_270))" -"((rest_148)" +" lst_273))" +"((rest_150)" "(unsafe-cdr" -" lst_270)))" +" lst_273)))" "(let-values(((ht_130)" "(let-values(((ht_131)" " ht_129))" @@ -36762,14 +36771,14 @@ static const char *startup_source = " ht_123)))))" "(if(not" " #f)" -"(for-loop_240" +"(for-loop_242" " ht_130" -" rest_148)" +" rest_150)" " ht_130)))" " ht_129)))))" -" for-loop_240)" +" for-loop_242)" "(hasheq #f bundle_1)" -" lst_269))))))))" +" lst_272))))))))" "(if to-source?_3" "(let-values() ld_4)" "(let-values()" @@ -36801,23 +36810,23 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_271) pre-submodules_2))" +"(let-values(((lst_274) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_241)" -"(lambda(lst_272)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" +"((letrec-values(((for-loop_243)" +"(lambda(lst_275)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((s_160)(unsafe-car lst_272))((rest_149)(unsafe-cdr lst_272)))" +"(if(pair? lst_275)" +"(let-values(((s_408)(unsafe-car lst_275))((rest_151)(unsafe-cdr lst_275)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_58)(car s_160)))" -"(let-values(((cim_10)(cdr s_160)))" +"(let-values(((name_58)(car s_408)))" +"(let-values(((cim_10)(cdr s_408)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36853,13 +36862,13 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_132)))" -"((letrec-values(((for-loop_242)" +"((letrec-values(((for-loop_244)" "(lambda(table_194" " i_149)" "(begin" " 'for-loop" "(if i_149" -"(let-values(((phase_96" +"(let-values(((phase_97" " linklet_8)" "(hash-iterate-key+value" " ht_132" @@ -36868,7 +36877,7 @@ static const char *startup_source = "(let-values(((table_196)" " table_194))" "(if(number?" -" phase_96)" +" phase_97)" "(let-values(((table_197)" " table_196))" "(let-values(((table_198)" @@ -36877,12 +36886,12 @@ static const char *startup_source = " val_64)" "(let-values()" "(values" -" phase_96" +" phase_97" "(module-linklet-info2.1" " linklet_8" "(hash-ref" " phase-to-link-module-uses_5" -" phase_96" +" phase_97" " #f)" "(compiled-in-memory-original-self" " cim_10)" @@ -36892,7 +36901,7 @@ static const char *startup_source = "(if phase-to-extra-inspectorsss_0" "(hash-ref" " phase-to-extra-inspectorsss_0" -" phase_96" +" phase_97" " #f)" " #f))))))" "(hash-set" @@ -36904,23 +36913,23 @@ static const char *startup_source = " table_196))))" "(if(not" " #f)" -"(for-loop_242" +"(for-loop_244" " table_195" "(hash-iterate-next" " ht_132" " i_149))" " table_195)))" " table_194)))))" -" for-loop_242)" +" for-loop_244)" " '#hasheq()" "(hash-iterate-first" " ht_132))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_149)(values))))" +"(if(not #f)(for-loop_243 rest_151)(values))))" "(values))))))" -" for-loop_241)" -" lst_271)))" +" for-loop_243)" +" lst_274)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36948,7 +36957,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_133)))" -"((letrec-values(((for-loop_243)" +"((letrec-values(((for-loop_245)" "(lambda(table_199 i_150)" "(begin" " 'for-loop" @@ -36971,10 +36980,10 @@ static const char *startup_source = "(hash-set table_201 key_74 val_65)))))" "(values table_202)))))" "(if(not #f)" -"(for-loop_243 table_200(hash-iterate-next ht_133 i_150))" +"(for-loop_245 table_200(hash-iterate-next ht_133 i_150))" " table_200)))" " table_199)))))" -" for-loop_243)" +" for-loop_245)" " '#hasheq()" "(hash-iterate-first ht_133))))))" "(if(1/linklet-directory? c_32)" @@ -36985,7 +36994,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_84)))" -"((letrec-values(((for-loop_214)" +"((letrec-values(((for-loop_216)" "(lambda(table_167 i_151)" "(begin" " 'for-loop" @@ -37009,10 +37018,10 @@ static const char *startup_source = "(hash-set table_204 key_75 val_66)))))" "(values table_168)))))" "(if(not #f)" -"(for-loop_214 table_203(hash-iterate-next ht_84 i_151))" +"(for-loop_216 table_203(hash-iterate-next ht_84 i_151))" " table_203)))" " table_167)))))" -" for-loop_214)" +" for-loop_216)" " '#hasheq()" "(hash-iterate-first ht_84))))))" "(let-values() c_32)))))))" @@ -37074,16 +37083,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_160) l_67)" +"(let-values(((lst_163) l_67)" "((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_262)" +"((lst_265)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_260)" +"((lst_263)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -37091,7 +37100,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_160)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -37099,21 +37108,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" +"(let-values()(check-list lst_265)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_233)" -"(lambda(fold-var_154" -" lst_258" +"(let-values()(check-list lst_263)))" +"((letrec-values(((for-loop_235)" +"(lambda(fold-var_158" +" lst_261" " lst_23" " lst_104" " lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_258)" +" lst_261)" "(if(pair?" " lst_23)" "(if(pair?" @@ -37125,10 +37134,10 @@ static const char *startup_source = " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_258))" -"((rest_141)" +" lst_261))" +"((rest_143)" "(unsafe-cdr" -" lst_258))" +" lst_261))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_23))" @@ -37138,7 +37147,7 @@ static const char *startup_source = "((phase-to-link-modules-tree_1)" "(unsafe-car" " lst_104))" -"((rest_89)" +"((rest_91)" "(unsafe-cdr" " lst_104))" "((syntax-literals-tree_1)" @@ -37147,10 +37156,10 @@ static const char *startup_source = "((rest_37)" "(unsafe-cdr" " lst_90)))" -"(let-values(((fold-var_166)" -"(let-values(((fold-var_167)" -" fold-var_154))" -"(let-values(((fold-var_168)" +"(let-values(((fold-var_170)" +"(let-values(((fold-var_171)" +" fold-var_158))" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" @@ -37159,24 +37168,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_167))))" +" fold-var_171))))" "(values" -" fold-var_168)))))" +" fold-var_172)))))" "(if(not #f)" -"(for-loop_233" -" fold-var_166" -" rest_141" +"(for-loop_235" +" fold-var_170" +" rest_143" " rest_51" -" rest_89" +" rest_91" " rest_37)" -" fold-var_166)))" -" fold-var_154)))))" -" for-loop_233)" +" fold-var_170)))" +" fold-var_158)))))" +" for-loop_235)" " null" -" lst_160" +" lst_163" " lst_89" -" lst_262" -" lst_260))))))))" +" lst_265" +" lst_263))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -37284,7 +37293,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_244)" +"((letrec-values(((for-loop_246)" "(lambda(i_155 pos_104)" "(begin" " 'for-loop" @@ -37322,14 +37331,14 @@ static const char *startup_source = " i_93))" "(not #f)" " #f)" -"(for-loop_244" +"(for-loop_246" " i_156" "(+" " pos_104" " inc_22))" " i_156)))" " i_155)))))" -" for-loop_244)" +" for-loop_246)" " 0" " start_15)))))" " v_36))))" @@ -37356,21 +37365,21 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_175) names_2))" +"(let-values(((lst_178) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_245)" -"(lambda(fold-var_5 lst_273)" +"(let-values()(check-list lst_178)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((name_59)(unsafe-car lst_273))" -"((rest_150)(unsafe-cdr lst_273)))" -"(let-values(((fold-var_226)" -"(let-values(((fold-var_227) fold-var_5))" -"(let-values(((fold-var_157)" +"(if(pair? lst_276)" +"(let-values(((name_59)(unsafe-car lst_276))" +"((rest_152)(unsafe-cdr lst_276)))" +"(let-values(((fold-var_230)" +"(let-values(((fold-var_231) fold-var_5))" +"(let-values(((fold-var_161)" "(let-values()" "(cons" "(let-values()" @@ -37381,13 +37390,13 @@ static const char *startup_source = "(error" " \"missing submodule declaration:\"" " name_59))))" -" fold-var_227))))" -"(values fold-var_157)))))" -"(if(not #f)(for-loop_245 fold-var_226 rest_150) fold-var_226)))" +" fold-var_231))))" +"(values fold-var_161)))))" +"(if(not #f)(for-loop_247 fold-var_230 rest_152) fold-var_230)))" " fold-var_5)))))" -" for-loop_245)" +" for-loop_247)" " null" -" lst_175))))))))))))))" +" lst_178))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_32 ns_42)" @@ -37509,12 +37518,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_193)" +"((letrec-values(((for-loop_195)" "(lambda(prev-thunk_0 pos_101)" "(begin" " 'for-loop" "(if(> pos_101 end_27)" -"(let-values(((phase_97) pos_101))" +"(let-values(((phase_98) pos_101))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37528,7 +37537,7 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_97" +" phase_98" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" @@ -37546,17 +37555,17 @@ static const char *startup_source = "((letrec-values(((for-loop_111)" "(lambda(mis_7" " is_6" -" lst_222)" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_222)" +" lst_225)" "(let-values(((mu_9)" "(unsafe-car" -" lst_222))" -"((rest_151)" +" lst_225))" +"((rest_153)" "(unsafe-cdr" -" lst_222)))" +" lst_225)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37576,7 +37585,7 @@ static const char *startup_source = "((temp30_3)" "(phase-" "(phase+" -" phase_97" +" phase_98" " phase-shift_18)" "(module-use-phase" " mu_9))))" @@ -37601,7 +37610,7 @@ static const char *startup_source = "(for-loop_111" " mis_8" " is_7" -" rest_151)" +" rest_153)" "(values" " mis_8" " is_7))))" @@ -37621,7 +37630,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_72" "(phase+" -" phase_97" +" phase_98" " phase-shift_18))))" "(let-values(((inst_5)" "(if single-expression?_1" @@ -37646,7 +37655,7 @@ static const char *startup_source = " ns_72" "(phase+" "(sub1" -" phase_97)" +" phase_98)" " phase-shift_18)" " name_60" " val_67))))" @@ -37660,7 +37669,7 @@ static const char *startup_source = "(let-values(((linklet_9)" "(hash-ref" " h_11" -" phase_97" +" phase_98" " #f)))" "(if linklet_9" "(let-values()" @@ -37681,7 +37690,7 @@ static const char *startup_source = "((temp43_2)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_97" +" phase_98" " #f)))" "(check-require-access9.1" " temp38_2" @@ -37707,14 +37716,14 @@ static const char *startup_source = " ns_72" "(phase-" "(phase+" -" phase_97" +" phase_98" " phase-shift_18)" "(namespace-0-phase" " ns_72)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_97)" +" phase_98)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -37738,7 +37747,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_97))))" +" phase_98))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37766,12 +37775,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_193" +"(for-loop_195" " prev-thunk_1" "(+ pos_101 inc_21))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_193)" +" for-loop_195)" " void" " start_38)))))" "(thunk_5 as-tail?_2))))))))))))))))))))" @@ -37905,13 +37914,13 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_96)" -"(lambda(fold-var_228 lst_78)" +"(lambda(fold-var_232 lst_78)" "(begin" " 'for-loop" "(if(pair? lst_78)" "(let-values(((r_8)(unsafe-car lst_78))((rest_36)(unsafe-cdr lst_78)))" -"(let-values(((fold-var_219)" -"(let-values(((fold-var_69) fold-var_228))" +"(let-values(((fold-var_223)" +"(let-values(((fold-var_69) fold-var_232))" "(let-values(((fold-var_26)" "(let-values()" "(cons" @@ -37919,8 +37928,8 @@ static const char *startup_source = "(direct-eval r_8 ns_67 self-mpi_4))" " fold-var_69))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_96 fold-var_219 rest_36) fold-var_219)))" -" fold-var_228)))))" +"(if(not #f)(for-loop_96 fold-var_223 rest_36) fold-var_223)))" +" fold-var_232)))))" " for-loop_96)" " null" " lst_77))))))" @@ -38065,41 +38074,41 @@ static const char *startup_source = "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_98)" +"(lambda(lifts_1 ids_16 rhs_12 phase_99)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_98)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_99)))" "(begin(box-cons!(lift-context-lifts lifts_1) lifted_0) lifted-ids_0)))))" "(define-values(get-and-clear-lifts!)(lambda(lifts_2)(begin(box-clear!(lift-context-lifts lifts_2)))))" "(define-values" "(make-local-lift)" "(lambda(lift-env_1 counter_3)" "(begin" -"(lambda(ids_17 rhs_13 phase_99)" +"(lambda(ids_17 rhs_13 phase_100)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_274) ids_17))" +"(let-values(((lst_277) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_274)))" +"(let-values()(check-list lst_277)))" "((letrec-values(((for-loop_29)" -"(lambda(fold-var_158 lst_275)" +"(lambda(fold-var_162 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_275)" -"(let-values(((id_58)(unsafe-car lst_275))" -"((rest_152)(unsafe-cdr lst_275)))" +"(if(pair? lst_278)" +"(let-values(((id_59)(unsafe-car lst_278))" +"((rest_154)(unsafe-cdr lst_278)))" "(let-values(((fold-var_85)" -"(let-values(((fold-var_86) fold-var_158))" +"(let-values(((fold-var_86) fold-var_162))" "(let-values(((fold-var_87)" "(let-values()" "(cons" "(let-values()" "(let-values(((key_15)" "(let-values(((id32_0)" -" id_58)" +" id_59)" "((phase33_0)" -" phase_99)" +" phase_100)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -38118,11 +38127,11 @@ static const char *startup_source = " key_15)))" " fold-var_86))))" "(values fold-var_87)))))" -"(if(not #f)(for-loop_29 fold-var_85 rest_152) fold-var_85)))" -" fold-var_158)))))" +"(if(not #f)(for-loop_29 fold-var_85 rest_154) fold-var_85)))" +" fold-var_162)))))" " for-loop_29)" " null" -" lst_274))))))" +" lst_277))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -38134,53 +38143,53 @@ static const char *startup_source = "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_183) ids_18))" +"(let-values(((lst_186) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_183)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_229 lst_184)" +"(let-values()(check-list lst_186)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_233 lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_184)" -"(let-values(((id_59)(unsafe-car lst_184))" -"((rest_153)(unsafe-cdr lst_184)))" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_231) fold-var_229))" -"(let-values(((fold-var_232)" +"(if(pair? lst_187)" +"(let-values(((id_60)(unsafe-car lst_187))" +"((rest_155)(unsafe-cdr lst_187)))" +"(let-values(((fold-var_234)" +"(let-values(((fold-var_235) fold-var_233))" +"(let-values(((fold-var_236)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_59" +" id_60" " post-scope_0))" -" fold-var_231))))" -"(values fold-var_232)))))" +" fold-var_235))))" +"(values fold-var_236)))))" "(if(not #f)" -"(for-loop_246 fold-var_230 rest_153)" -" fold-var_230)))" -" fold-var_229)))))" -" for-loop_246)" +"(for-loop_248 fold-var_234 rest_155)" +" fold-var_234)))" +" fold-var_233)))))" +" for-loop_248)" " null" -" lst_183))))))" +" lst_186))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_4 phase_100)" +"(lambda(lifts_3 body_4 phase_101)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_276)(reverse$1 lifts_3)))" +"(let-values(((lst_279)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" "((letrec-values(((for-loop_56)" -"(lambda(body_5 lst_186)" +"(lambda(body_5 lst_189)" "(begin" " 'for-loop" -"(if(pair? lst_186)" -"(let-values(((lift_0)(unsafe-car lst_186))((rest_154)(unsafe-cdr lst_186)))" +"(if(pair? lst_189)" +"(let-values(((lift_0)(unsafe-car lst_189))((rest_156)(unsafe-cdr lst_189)))" "(let-values(((body_6)" "(let-values(((body_7) body_5))" "(let-values(((body_0)" @@ -38192,7 +38201,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_100)" +"(syntax-shift-phase-level$1 core-stx phase_101)" " 'let-values)" "(list" "(list" @@ -38200,11 +38209,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_7)))))" "(values body_0)))))" -"(if(not #f)(for-loop_56 body_6 rest_154) body_6)))" +"(if(not #f)(for-loop_56 body_6 rest_156) body_6)))" " body_5)))))" " for-loop_56)" " body_4" -" lst_276)))))))" +" lst_279)))))))" "(define-values" "(wrap-lifts-as-begin16.1)" "(lambda(adjust-body10_0 adjust-form9_0 lifts13_0 body14_0 phase15_0)" @@ -38212,31 +38221,31 @@ static const char *startup_source = " 'wrap-lifts-as-begin16" "(let-values(((lifts_4) lifts13_0))" "(let-values(((body_8) body14_0))" -"(let-values(((phase_101) phase15_0))" +"(let-values(((phase_102) phase15_0))" "(let-values(((adjust-form_0)(if(eq? adjust-form9_0 unsafe-undefined) values adjust-form9_0)))" "(let-values(((adjust-body_0)(if(eq? adjust-body10_0 unsafe-undefined) values adjust-body10_0)))" "(let-values()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_101) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_102) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_277) lifts_4))" +"(let-values(((lst_280) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_164 lst_167)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_168 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_167)" -"(let-values(((lift_1)(unsafe-car lst_167))" -"((rest_155)(unsafe-cdr lst_167)))" -"(let-values(((fold-var_165)" -"(let-values(((fold-var_178) fold-var_164))" -"(let-values(((fold-var_233)" +"(if(pair? lst_170)" +"(let-values(((lift_1)(unsafe-car lst_170))" +"((rest_157)(unsafe-cdr lst_170)))" +"(let-values(((fold-var_169)" +"(let-values(((fold-var_182) fold-var_168))" +"(let-values(((fold-var_237)" "(let-values()" "(cons" "(let-values()" @@ -38249,37 +38258,37 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_101)" +" phase_102)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" " lift_1))))" "(let-values() lift_1))))" -" fold-var_178))))" -"(values fold-var_233)))))" -"(if(not #f)(for-loop_247 fold-var_165 rest_155) fold-var_165)))" -" fold-var_164)))))" -" for-loop_247)" +" fold-var_182))))" +"(values fold-var_237)))))" +"(if(not #f)(for-loop_249 fold-var_169 rest_157) fold-var_169)))" +" fold-var_168)))))" +" for-loop_249)" " null" -" lst_277))))" +" lst_280))))" "(list(adjust-body_0 body_8))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_107) lifts_5))" +"(let-values(((lst_50) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_107)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_234 lst_278)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_50)))" +"((letrec-values(((for-loop_73)" +"(lambda(fold-var_35 lst_51)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((lift_2)(unsafe-car lst_278))((rest_156)(unsafe-cdr lst_278)))" +"(if(pair? lst_51)" +"(let-values(((lift_2)(unsafe-car lst_51))((rest_22)(unsafe-cdr lst_51)))" +"(let-values(((fold-var_36)" +"(let-values(((fold-var_37) fold-var_35))" "(let-values(((fold-var_38)" -"(let-values(((fold-var_235) fold-var_234))" -"(let-values(((fold-var_236)" "(let-values()" "(cons" "(let-values()" @@ -38287,13 +38296,13 @@ static const char *startup_source = "(lifted-bind-ids lift_2)" "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" -" fold-var_235))))" -"(values fold-var_236)))))" -"(if(not #f)(for-loop_248 fold-var_38 rest_156) fold-var_38)))" -" fold-var_234)))))" -" for-loop_248)" +" fold-var_37))))" +"(values fold-var_38)))))" +"(if(not #f)(for-loop_73 fold-var_36 rest_22) fold-var_36)))" +" fold-var_35)))))" +" for-loop_73)" " null" -" lst_107)))))))" +" lst_50)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -38331,19 +38340,19 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_409 phase_102)" +"(lambda(module-lifts_2 s_409 phase_103)" "(begin" "(begin" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_171)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_168" -" or-part_168" +"(if or-part_171" +" or-part_171" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_30)(core-form-sym s_409 phase_102)))" +"(let-values(((tmp_30)(core-form-sym s_409 phase_103)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -38397,10 +38406,10 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_410 phase_103)" +"(lambda(require-lifts_2 s_410 phase_104)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_410 phase_103)" +"((require-lift-context-do-require require-lifts_2) s_410 phase_104)" "(box-cons!(require-lift-context-requires require-lifts_2) s_410)))))" "(define-values" "(struct:to-module-lift-context" @@ -38438,10 +38447,10 @@ static const char *startup_source = "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_82) phase26_2))" +"(let-values(((phase_83) phase26_2))" "(let-values(((ends_0) shared-module-ends22_0))" "(let-values(((end-as-expressions?_0) end-as-expressions?23_0))" -"(let-values()(to-module-lift-context21.1 phase_82(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_83(box null) end-as-expressions?_0 ends_0))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" @@ -38451,11 +38460,11 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_219 phase_96)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_219))))" +"(lambda(to-module-lifts_3 s_218 phase_97)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_324 phase_3)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_324))))" +"(lambda(to-module-lifts_4 s_325 phase_3)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_325))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -38556,7 +38565,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_179 t_47 ctx_13)" +"(lambda(s_178 t_47 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_68)" @@ -38566,7 +38575,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_68)(expand-context-phase ctx_13))" -" s_179))))))" +" s_178))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38576,7 +38585,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_179)))))" +" s_178)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38637,12 +38646,12 @@ static const char *startup_source = "(let-values(((lst_41) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_249)" +"((letrec-values(((for-loop_250)" "(lambda(lst_89)" "(begin" " 'for-loop" "(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_118)(unsafe-cdr lst_89)))" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_120)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38654,9 +38663,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_249 rest_118)(values))))))))" +"(if(post-guard-var_0)(for-loop_250 rest_120)(values))))))))" "(values))))))" -" for-loop_249)" +" for-loop_250)" " lst_41)))" "(void)))))" "(define-values" @@ -38669,19 +38678,19 @@ static const char *startup_source = "(let-values(((lst_23) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_190)" "(lambda(ab_3 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" -"(let-values(((key_77)(unsafe-car lst_79))((rest_83)(unsafe-cdr lst_79)))" +"(let-values(((key_77)(unsafe-car lst_79))((rest_85)(unsafe-cdr lst_79)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_77))))" "(values ab_6)))))" -"(if(not #f)(for-loop_188 ab_4 rest_83) ab_4)))" +"(if(not #f)(for-loop_190 ab_4 rest_85) ab_4)))" " ab_3)))))" -" for-loop_188)" +" for-loop_190)" "(reference-record-already-bound rr_2)" " lst_23))))" "(set-reference-record-reference-before-bound!" @@ -38905,32 +38914,32 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_192)(begin(if(expanded+parsed? s_192)(expanded+parsed-s s_192) s_192))))" +"(define-values(extract-syntax)(lambda(s_191)(begin(if(expanded+parsed? s_191)(expanded+parsed-s s_191) s_191))))" "(define-values" "(parsed-only)" "(lambda(l_70)" "(begin" "(reverse$1" -"(let-values(((lst_175) l_70))" +"(let-values(((lst_178) l_70))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_245)" -"(lambda(fold-var_5 lst_273)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((i_45)(unsafe-car lst_273))((rest_150)(unsafe-cdr lst_273)))" -"(let-values(((fold-var_226)" -"(let-values(((fold-var_227) fold-var_5))" -"(if(let-values(((or-part_261)(parsed? i_45)))" -"(if or-part_261" -" or-part_261" +"(if(pair? lst_276)" +"(let-values(((i_45)(unsafe-car lst_276))((rest_152)(unsafe-cdr lst_276)))" +"(let-values(((fold-var_230)" +"(let-values(((fold-var_231) fold-var_5))" +"(if(let-values(((or-part_264)(parsed? i_45)))" +"(if or-part_264" +" or-part_264" "(let-values(((or-part_36)(expanded+parsed? i_45)))" "(if or-part_36" " or-part_36" "(semi-parsed-begin-for-syntax? i_45)))))" -"(let-values(((fold-var_172) fold-var_227))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_176) fold-var_231))" +"(let-values(((fold-var_177)" "(let-values()" "(cons" "(let-values()" @@ -38945,39 +38954,39 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_45))))" "(let-values() i_45))))" -" fold-var_172))))" -"(values fold-var_173)))" -" fold-var_227))))" -"(if(not #f)(for-loop_245 fold-var_226 rest_150) fold-var_226)))" +" fold-var_176))))" +"(values fold-var_177)))" +" fold-var_231))))" +"(if(not #f)(for-loop_247 fold-var_230 rest_152) fold-var_230)))" " fold-var_5)))))" -" for-loop_245)" +" for-loop_247)" " null" -" lst_175)))))))" +" lst_178)))))))" "(define-values" "(syntax-only)" "(lambda(l_19)" "(begin" "(reverse$1" -"(let-values(((lst_279) l_19))" +"(let-values(((lst_281) l_19))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_159 lst_280)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_251)" +"(lambda(fold-var_163 lst_282)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((i_37)(unsafe-car lst_280))((rest_157)(unsafe-cdr lst_280)))" +"(if(pair? lst_282)" +"(let-values(((i_37)(unsafe-car lst_282))((rest_158)(unsafe-cdr lst_282)))" "(let-values(((fold-var_86)" -"(let-values(((fold-var_87) fold-var_159))" -"(if(let-values(((or-part_262)(syntax?$1 i_37)))" -"(if or-part_262" -" or-part_262" +"(let-values(((fold-var_87) fold-var_163))" +"(if(let-values(((or-part_265)(syntax?$1 i_37)))" +"(if or-part_265" +" or-part_265" "(let-values(((or-part_25)(expanded+parsed? i_37)))" "(if or-part_25" " or-part_25" "(semi-parsed-begin-for-syntax? i_37)))))" "(let-values(((fold-var_88) fold-var_87))" -"(let-values(((fold-var_237)" +"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" @@ -39061,19 +39070,19 @@ static const char *startup_source = " temp12_2)))))))" "(let-values() i_37))))" " fold-var_88))))" -"(values fold-var_237)))" +"(values fold-var_238)))" " fold-var_87))))" -"(if(not #f)(for-loop_250 fold-var_86 rest_157) fold-var_86)))" -" fold-var_159)))))" -" for-loop_250)" +"(if(not #f)(for-loop_251 fold-var_86 rest_158) fold-var_86)))" +" fold-var_163)))))" +" for-loop_251)" " null" -" lst_279)))))))" +" lst_281)))))))" "(define-values" "(expand9.1)" "(lambda(alternate-id1_0 fail-non-transformer3_0 skip-log?2_0 s7_0 ctx8_0)" "(begin" " 'expand9" -"(let-values(((s_189) s7_0))" +"(let-values(((s_188) s7_0))" "(let-values(((ctx_14) ctx8_0))" "(let-values(((alternate-id_0) alternate-id1_0))" "(let-values(((skip-log?_0) skip-log?2_0))" @@ -39088,14 +39097,14 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_189))" +" s_188))" "(void)))" "(void)))" -"(if(syntax-identifier? s_189)" -"(let-values()(expand-identifier s_189 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_189))(syntax-identifier?(car(syntax-content s_189))) #f)" +"(if(syntax-identifier? s_188)" +"(let-values()(expand-identifier s_188 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_188))(syntax-identifier?(car(syntax-content s_188))) #f)" "(let-values()" -"(let-values(((s122_0) s_189)" +"(let-values(((s122_0) s_188)" "((ctx123_0) ctx_14)" "((alternate-id124_0) alternate-id_0)" "((fail-non-transformer125_0) fail-non-transformer_0))" @@ -39104,19 +39113,19 @@ static const char *startup_source = " s122_0" " ctx123_0" " alternate-id124_0)))" -"(if(let-values(((or-part_67)(pair?(syntax-content s_189))))" -"(if or-part_67 or-part_67(null?(syntax-content s_189))))" -"(let-values()(expand-implicit '#%app s_189 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_189))" -"(let-values()(expand-already-expanded s_189 ctx_14))" -"(let-values()(expand-implicit '#%datum s_189 ctx_14 #f))))))))))))))))" +"(if(let-values(((or-part_67)(pair?(syntax-content s_188))))" +"(if or-part_67 or-part_67(null?(syntax-content s_188))))" +"(let-values()(expand-implicit '#%app s_188 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_188))" +"(let-values()(expand-already-expanded s_188 ctx_14))" +"(let-values()(expand-implicit '#%datum s_188 ctx_14 #f))))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_413 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_263) alternate-id_1))(if or-part_263 or-part_263 s_413))))" +"(let-values(((id_61)(let-values(((or-part_266) alternate-id_1))(if or-part_266 or-part_266 s_413))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))" -"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" +"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_61)" " #f)" "(let-values()" "(begin" @@ -39126,7 +39135,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_15))" "(let-values()" "(begin" -"(call-expand-observe obs_2 'resolve id_60)" +"(call-expand-observe obs_2 'resolve id_61)" "(call-expand-observe obs_2 'enter-prim s_413)" "(call-expand-observe obs_2 'prim-stop)" "(call-expand-observe obs_2 'exit-prim s_413)" @@ -39136,7 +39145,7 @@ static const char *startup_source = " s_413))" "(let-values()" "(let-values(((binding_18)" -"(let-values(((id126_0) id_60)" +"(let-values(((id126_0) id_61)" "((temp127_1)(expand-context-phase ctx_15))" "((temp128_1) 'ambiguous)" "((temp129_0) #t))" @@ -39146,25 +39155,25 @@ static const char *startup_source = "(if obs_3" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_3 'resolve id_60))" +"(let-values()(call-expand-observe obs_3 'resolve id_61))" "(void)))" "(void)))" "(if(eq? binding_18 'ambiguous)" -"(let-values()(raise-ambiguous-error id_60 ctx_15))" +"(let-values()(raise-ambiguous-error id_61 ctx_15))" "(if(not binding_18)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_413 alternate-id_1) ctx_15 s_413))" "(let-values()" "(let-values(((t_48 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding138_0) binding_18)" "((ctx139_0) ctx_15)" -"((id140_0) id_60)" +"((id140_0) id_61)" "((temp141_0)(if alternate-id_1 s_413 #f))" "((temp142_0)(expand-context-in-local-expand? ctx_15)))" "(lookup62.1 temp141_0 temp142_0 binding138_0 ctx139_0 id140_0))))" "(let-values(((t130_0) t_48)" "((insp-of-t131_0) insp-of-t_0)" "((s132_0) s_413)" -"((id133_0) id_60)" +"((id133_0) id_61)" "((ctx134_0) ctx_15)" "((binding135_0) binding_18)" "((primitive?136_0) primitive?_2)" @@ -39189,11 +39198,11 @@ static const char *startup_source = "(let-values(((alternate-id_2) alternate-id16_0))" "(let-values(((fail-non-transformer_1) fail-non-transformer12_0))" "(let-values()" -"(let-values(((id_61)" -"(let-values(((or-part_140) alternate-id_2))" -"(if or-part_140 or-part_140(car(syntax-e/no-taint s_84))))))" +"(let-values(((id_62)" +"(let-values(((or-part_141) alternate-id_2))" +"(if or-part_141 or-part_141(car(syntax-e/no-taint s_84))))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" -"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" +"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_62)" " #f)" "(let-values()" "(begin" @@ -39203,7 +39212,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_16))" "(let-values()" "(begin" -"(call-expand-observe obs_4 'resolve id_61)" +"(call-expand-observe obs_4 'resolve id_62)" "(call-expand-observe obs_4 'enter-prim s_84)" "(call-expand-observe obs_4 'prim-stop)" "(call-expand-observe obs_4 'exit-prim s_84)" @@ -39213,7 +39222,7 @@ static const char *startup_source = " s_84))" "(let-values()" "(let-values(((binding_19)" -"(let-values(((id143_0) id_61)" +"(let-values(((id143_0) id_62)" "((temp144_0)(expand-context-phase ctx_16))" "((temp145_0) 'ambiguous)" "((temp146_0) #t))" @@ -39223,24 +39232,24 @@ static const char *startup_source = "(if obs_5" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_5 'resolve id_61))" +"(let-values()(call-expand-observe obs_5 'resolve id_62))" "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(raise-ambiguous-error id_61 ctx_16)))" +"(raise-ambiguous-error id_62 ctx_16)))" "(if(not binding_19)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(expand-implicit '#%app(substitute-alternate-id s_84 alternate-id_2) ctx_16 id_61)))" +"(expand-implicit '#%app(substitute-alternate-id s_84 alternate-id_2) ctx_16 id_62)))" "(let-values()" "(let-values(((t_49 primitive?_3 insp-of-t_1 protected?_4)" "(let-values(((binding147_0) binding_19)" "((ctx148_0) ctx_16)" -"((id149_0) id_61)" +"((id149_0) id_62)" "((temp150_0)" "(if alternate-id_2(car(syntax-e/no-taint s_84)) #f))" "((temp151_0)(expand-context-in-local-expand? ctx_16)))" @@ -39253,12 +39262,12 @@ static const char *startup_source = " '#%app" "(substitute-alternate-id s_84 alternate-id_2)" " ctx_16" -" id_61)))" +" id_62)))" "(let-values()" "(let-values(((t152_0) t_49)" "((insp-of-t153_0) insp-of-t_1)" "((s154_0) s_84)" -"((id155_0) id_61)" +"((id155_0) id_62)" "((ctx156_0) ctx_16)" "((binding157_0) binding_19)" "((primitive?158_0) primitive?_3)" @@ -39286,9 +39295,9 @@ static const char *startup_source = " s_52))" "(let-values()" "(let-values(((disarmed-s_1)(syntax-disarm$1 s_52)))" -"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_69)))" +"(let-values(((id_63)(datum->syntax$1 disarmed-s_1 sym_69)))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" -"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" +"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_63)" " #f)" "(let-values()" "(begin" @@ -39298,7 +39307,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_17))" "(let-values()" "(begin" -"(call-expand-observe obs_7 'resolve id_62)" +"(call-expand-observe obs_7 'resolve id_63)" "(call-expand-observe obs_7 'enter-prim s_52)" "(call-expand-observe obs_7 'prim-stop)" "(call-expand-observe obs_7 'exit-prim s_52)" @@ -39311,21 +39320,21 @@ static const char *startup_source = "(begin" "(let-values(((obs_8)(expand-context-observer ctx_17)))" "(if obs_8" -"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_62)))" +"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_63)))" "(void)))" "(values))))" "(let-values(((b_80)" -"(let-values(((id161_0) id_62)" +"(let-values(((id161_0) id_63)" "((temp162_1)(expand-context-phase ctx_17))" "((temp163_2) 'ambiguous)" "((temp164_0) #t))" "(resolve+shift28.1 temp163_2 #f null temp164_0 #f id161_0 temp162_1))))" "(if(eq? b_80 'ambiguous)" -"(let-values()(raise-ambiguous-error id_62 ctx_17))" +"(let-values()(raise-ambiguous-error id_63 ctx_17))" "(let-values()" "(let-values(((t_50 primitive?_4 insp-of-t_2 protected?_5)" "(if b_80" -"(let-values(((b165_0) b_80)((ctx166_0) ctx_17)((id167_0) id_62))" +"(let-values(((b165_0) b_80)((ctx166_0) ctx_17)((id167_0) id_63))" "(lookup62.1 #f #f b165_0 ctx166_0 id167_0))" "(values #f #f #f #f))))" "(if(transformer? t_50)" @@ -39340,7 +39349,7 @@ static const char *startup_source = "(let-values(((t168_0) t_50)" "((insp-of-t169_0) insp-of-t_2)" "((temp170_1)(make-explicit ctx_17 sym_69 s_52 disarmed-s_1))" -"((id171_1) id_62)" +"((id171_1) id_63)" "((ctx172_0) ctx_17)" "((b173_0) b_80)" "((fail-non-transformer174_0) fail-non-transformer_2))" @@ -39398,14 +39407,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_59)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_264)(syntax-any-macro-scopes? s_59)))" -"(if or-part_264" -" or-part_264" -"(let-values(((or-part_212)" +"(if(let-values(((or-part_267)(syntax-any-macro-scopes? s_59)))" +"(if or-part_267" +" or-part_267" +"(let-values(((or-part_215)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_212" -" or-part_212" +"(if or-part_215" +" or-part_215" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39453,7 +39462,7 @@ static const char *startup_source = "(let-values(((t_51) t22_0))" "(let-values(((insp-of-t_3) insp-of-t23_0))" "(let-values(((s_415) s24_1))" -"(let-values(((id_63) id25_1))" +"(let-values(((id_64) id25_1))" "(let-values(((ctx_20) ctx26_0))" "(let-values(((binding_20) binding27_1))" "(let-values(((primitive?_5) primitive?28_0))" @@ -39467,7 +39476,7 @@ static const char *startup_source = "(let-values(((t179_0) t_51)" "((insp-of-t180_0) insp-of-t_3)" "((s181_0) s_415)" -"((id182_0) id_63)" +"((id182_0) id_64)" "((ctx183_0) ctx_20)" "((binding184_0) binding_20)" "((fail-non-transformer185_0) fail-non-transformer_3))" @@ -39481,7 +39490,7 @@ static const char *startup_source = " binding184_0)))" "(if(variable? t_51)" "(let-values()" -"(dispatch-variable t_51 s_415 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +"(dispatch-variable t_51 s_415 id_64 ctx_20 binding_20 primitive?_5 protected?_6))" " (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_415))))))))))))))))))" "(define-values" "(dispatch-core-form)" @@ -39516,16 +39525,16 @@ static const char *startup_source = "(let-values()((core-form-expander t_52) s_416 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_53 s_320 ctx_22)" +"(lambda(t_53 s_321 ctx_22)" "(begin" "(let-values((()" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_320)))" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_321)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_53) s_320 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_53) s_321 ctx_22 #t)))" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" @@ -39544,7 +39553,7 @@ static const char *startup_source = "(let-values(((t_54) t35_0))" "(let-values(((insp-of-t_4) insp-of-t36_0))" "(let-values(((s_417) s37_0))" -"(let-values(((id_64) id38_0))" +"(let-values(((id_65) id38_0))" "(let-values(((ctx_23) ctx39_0))" "(let-values(((binding_21) binding40_0))" "(let-values(((fail-non-transformer_4) fail-non-transformer33_0))" @@ -39561,7 +39570,7 @@ static const char *startup_source = "(values))))" "(let-values(((adj-s_0)" "(avoid-current-expand-context" -"(substitute-alternate-id s_417 id_64)" +"(substitute-alternate-id s_417 id_65)" " t_54" " ctx_23)))" "(begin" @@ -39589,7 +39598,7 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_18 'visit s_417)" -"(call-expand-observe obs_18 'resolve id_64)))" +"(call-expand-observe obs_18 'resolve id_65)))" "(void)))" "(void)))" "(values))))" @@ -39599,7 +39608,7 @@ static const char *startup_source = "(let-values(((t188_0) t_54)" "((insp-of-t189_0) insp-of-t_4)" "((s190_0) s_417)" -"((id191_0) id_64)" +"((id191_0) id_65)" "((ctx192_0) ctx_23)" "((binding193_0) binding_21))" "(apply-transformer52.1" @@ -39630,14 +39639,14 @@ static const char *startup_source = "(syntax-track-origin$1" "(transfer-srcloc" "(rename-transformer-target-in-context t_54 ctx_23)" -" id_64)" -" id_64" -" id_64)" +" id_65)" +" id_65" +" id_65)" " #f))" "((temp197_0)" -"(let-values(((or-part_265)" +"(let-values(((or-part_268)" "(expand-context-only-immediate? ctx_23)))" -"(if or-part_265 or-part_265(1/rename-transformer? t_54))))" +"(if or-part_268 or-part_268(1/rename-transformer? t_54))))" "((temp198_0)" "(if(1/rename-transformer? t_54) fail-non-transformer_4 #f)))" "(expand9.1" @@ -39648,25 +39657,25 @@ static const char *startup_source = " re-ctx195_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_55 s_114 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_55 s_114 id_66 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_114)))(void)))" -" id_65))" +" id_66))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_21)(expand-context-observer ctx_24)))" "(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_114 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_114 id_66)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" -"(let-values(((id199_0) id_65)" +"(let-values(((id199_0) id_66)" "((t200_0) t_55)" "((temp201_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" @@ -39695,7 +39704,7 @@ static const char *startup_source = "(let-values(((t_56) t46_0))" "(let-values(((insp-of-t_5) insp-of-t47_0))" "(let-values(((s_122) s48_1))" -"(let-values(((id_32) id49_1))" +"(let-values(((id_33) id49_1))" "(let-values(((ctx_25) ctx50_0))" "(let-values(((binding_23) binding51_0))" "(let-values(((origin-id_0) origin-id44_0))" @@ -39725,16 +39734,16 @@ static const char *startup_source = " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" -" id_32)))" +" id_33)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" "(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_266) origin-id_0))" -"(if or-part_266" -" or-part_266" +"(let-values(((or-part_269) origin-id_0))" +"(if or-part_269" +" or-part_269" "(if(syntax-identifier? s_122)" " s_122" "(car(syntax-e$1 s_122))))))))" @@ -39757,7 +39766,7 @@ static const char *startup_source = " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_57 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" +"(lambda(t_57 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" "(begin" "(let-values((()" "(begin" @@ -39768,9 +39777,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_267)(expand-context-only-immediate? ctx_26)))" -"(if or-part_267" -" or-part_267" +"(let-values(((or-part_270)(expand-context-only-immediate? ctx_26)))" +"(if or-part_270" +" or-part_270" "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" @@ -39781,35 +39790,35 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_191) accum-ctx_0))" -"(let-values(((the-struct_57) v_191))" -"(if(expand-context/outer? the-struct_57)" +"(let-values(((v_192) accum-ctx_0))" +"(let-values(((the-struct_58) v_192))" +"(if(expand-context/outer? the-struct_58)" "(let-values(((current-introduction-scopes202_0)(list intro-scope_1))" "((current-use-scopes203_0) use-scopes_1)" "((def-ctx-scopes204_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner205_0)(root-expand-context/outer-inner v_191)))" +"((inner205_0)(root-expand-context/outer-inner v_192)))" "(expand-context/outer1.1" " inner205_0" -"(root-expand-context/outer-post-expansion-scope the-struct_57)" -"(root-expand-context/outer-post-expansion-shifts the-struct_57)" -"(root-expand-context/outer-use-site-scopes the-struct_57)" -"(root-expand-context/outer-frame-id the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" -"(expand-context/outer-post-expansion-scope-action the-struct_57)" -"(expand-context/outer-scopes the-struct_57)" +"(root-expand-context/outer-post-expansion-scope the-struct_58)" +"(root-expand-context/outer-post-expansion-shifts the-struct_58)" +"(root-expand-context/outer-use-site-scopes the-struct_58)" +"(root-expand-context/outer-frame-id the-struct_58)" +"(expand-context/outer-context the-struct_58)" +"(expand-context/outer-env the-struct_58)" +"(expand-context/outer-post-expansion-scope-action the-struct_58)" +"(expand-context/outer-scopes the-struct_58)" " def-ctx-scopes204_0" -"(expand-context/outer-binding-layer the-struct_57)" -"(expand-context/outer-reference-records the-struct_57)" -"(expand-context/outer-only-immediate? the-struct_57)" -"(expand-context/outer-need-eventually-defined the-struct_57)" +"(expand-context/outer-binding-layer the-struct_58)" +"(expand-context/outer-reference-records the-struct_58)" +"(expand-context/outer-only-immediate? the-struct_58)" +"(expand-context/outer-need-eventually-defined the-struct_58)" " current-introduction-scopes202_0" " current-use-scopes203_0" -"(expand-context/outer-name the-struct_57)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))" +"(expand-context/outer-name the-struct_58)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -39836,14 +39845,14 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_66)" +"(syntax-e$1 id_67)" " \"received value from syntax expander was not syntax\"" " \"received\"" " transformed-s_1)))" " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_345 ctx_27 binding_24)" +"(lambda(s_344 ctx_27 binding_24)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" @@ -39851,15 +39860,15 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_32)(new-scope 'use-site)))" "(let-values(((b_81)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_345 sc_32)(list sc_32))))))" -"(let-values()(values s_345 null))))))" +"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_344 sc_32)(list sc_32))))))" +"(let-values()(values s_344 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_268)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_268 or-part_268(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_271)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_271 or-part_271(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" @@ -39880,30 +39889,30 @@ static const char *startup_source = "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_192) ctx_29))" -"(let-values(((the-struct_58) v_192))" -"(if(expand-context/outer? the-struct_58)" +"(let-values(((v_193) ctx_29))" +"(let-values(((the-struct_59) v_193))" +"(if(expand-context/outer? the-struct_59)" "(let-values(((scopes208_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner209_0)(root-expand-context/outer-inner v_192)))" +"((inner209_0)(root-expand-context/outer-inner v_193)))" "(expand-context/outer1.1" " inner209_0" -"(root-expand-context/outer-post-expansion-scope the-struct_58)" -"(root-expand-context/outer-post-expansion-shifts the-struct_58)" -"(root-expand-context/outer-use-site-scopes the-struct_58)" -"(root-expand-context/outer-frame-id the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" -"(expand-context/outer-post-expansion-scope-action the-struct_58)" +"(root-expand-context/outer-post-expansion-scope the-struct_59)" +"(root-expand-context/outer-post-expansion-shifts the-struct_59)" +"(root-expand-context/outer-use-site-scopes the-struct_59)" +"(root-expand-context/outer-frame-id the-struct_59)" +"(expand-context/outer-context the-struct_59)" +"(expand-context/outer-env the-struct_59)" +"(expand-context/outer-post-expansion-scope-action the-struct_59)" " scopes208_0" -"(expand-context/outer-def-ctx-scopes the-struct_58)" -"(expand-context/outer-binding-layer the-struct_58)" -"(expand-context/outer-reference-records the-struct_58)" -"(expand-context/outer-only-immediate? the-struct_58)" -"(expand-context/outer-need-eventually-defined the-struct_58)" -"(expand-context/outer-current-introduction-scopes the-struct_58)" -"(expand-context/outer-current-use-scopes the-struct_58)" -"(expand-context/outer-name the-struct_58)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_59)" +"(expand-context/outer-binding-layer the-struct_59)" +"(expand-context/outer-reference-records the-struct_59)" +"(expand-context/outer-only-immediate? the-struct_59)" +"(expand-context/outer-need-eventually-defined the-struct_59)" +"(expand-context/outer-current-introduction-scopes the-struct_59)" +"(expand-context/outer-current-use-scopes the-struct_59)" +"(expand-context/outer-name the-struct_59)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))" "(define-values" "(lookup62.1)" "(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)" @@ -39911,7 +39920,7 @@ static const char *startup_source = " 'lookup62" "(let-values(((b_82) b59_0))" "(let-values(((ctx_30) ctx60_0))" -"(let-values(((id_67) id61_0))" +"(let-values(((id_68) id61_0))" "(let-values(((in-s_7) in55_0))" "(let-values(((out-of-context-as-variable?_1) out-of-context-as-variable?56_0))" "(let-values()" @@ -39920,7 +39929,7 @@ static const char *startup_source = "((temp212_0)(expand-context-lift-envs ctx_30))" "((temp213_1)(expand-context-namespace ctx_30))" "((temp214_1)(expand-context-phase ctx_30))" -"((id215_0) id_67)" +"((id215_0) id_68)" "((in-s216_0) in-s_7)" "((out-of-context-as-variable?217_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" @@ -39959,7 +39968,7 @@ static const char *startup_source = "(lambda(always-wrap?68_0 begin-form?66_0 expand-lifts?65_0 lift-key67_0 s73_0 ctx74_0)" "(begin" " 'expand/capture-lifts75" -"(let-values(((s_362) s73_0))" +"(let-values(((s_361) s73_0))" "(let-values(((ctx_31) ctx74_0))" "(let-values(((expand-lifts?_0) expand-lifts?65_0))" "(let-values(((begin-form?_0) begin-form?66_0))" @@ -39967,7 +39976,7 @@ static const char *startup_source = "(let-values(((always-wrap?_0) always-wrap?68_0))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_104)(expand-context-phase ctx_31)))" +"(let-values(((phase_105)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_95)" "(lambda(s_418 always-wrap?_1 ctx_32)" @@ -39987,15 +39996,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp219_0 temp218_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_193) ctx_32))" -"(let-values(((the-struct_59) v_193))" -"(if(expand-context/outer? the-struct_59)" +"(let-values(((v_194) ctx_32))" +"(let-values(((the-struct_60) v_194))" +"(if(expand-context/outer? the-struct_60)" "(let-values(((inner220_0)" -"(let-values(((the-struct_60)" +"(let-values(((the-struct_61)" "(root-expand-context/outer-inner" -" v_193)))" +" v_194)))" "(if(expand-context/inner?" -" the-struct_60)" +" the-struct_61)" "(let-values(((lift-key221_0)" " lift-key_2)" "((lifts222_0)" @@ -40009,10 +40018,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts224_0)" -"(if(let-values(((or-part_269)" +"(if(let-values(((or-part_272)" " local?_0))" -"(if or-part_269" -" or-part_269" +"(if or-part_272" +" or-part_272" "(not" "(memq" " context_6" @@ -40023,91 +40032,91 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-module-scopes" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-defined-syms" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-counter" -" the-struct_60)" +" the-struct_61)" " lift-key221_0" "(expand-context/inner-to-parsed?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-phase" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-namespace" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-just-once?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-module-begin-k" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-allow-unbound?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-in-local-expand?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-keep-#%expression?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-stops" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-declared-submodule-names" -" the-struct_60)" +" the-struct_61)" " lifts222_0" " lift-envs223_0" " module-lifts224_0" "(expand-context/inner-require-lifts" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-to-module-lifts" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-requires+provides" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-observer" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-for-serializable?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_60)))" +" the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_60)))))" +" the-struct_61)))))" "(expand-context/outer1.1" " inner220_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_59)" +" the-struct_60)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_59)" +" the-struct_60)" "(root-expand-context/outer-use-site-scopes" -" the-struct_59)" +" the-struct_60)" "(root-expand-context/outer-frame-id" -" the-struct_59)" -"(expand-context/outer-context the-struct_59)" -"(expand-context/outer-env the-struct_59)" +" the-struct_60)" +"(expand-context/outer-context the-struct_60)" +"(expand-context/outer-env the-struct_60)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_59)" -"(expand-context/outer-scopes the-struct_59)" +" the-struct_60)" +"(expand-context/outer-scopes the-struct_60)" "(expand-context/outer-def-ctx-scopes" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-binding-layer" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-reference-records" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-only-immediate?" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-need-eventually-defined" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-current-introduction-scopes" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-current-use-scopes" -" the-struct_59)" -"(expand-context/outer-name the-struct_59)))" +" the-struct_60)" +"(expand-context/outer-name the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_59))))))" +" the-struct_60))))))" "(let-values(((rebuild-s_0)(keep-properties-only s_418)))" "(let-values(((exp-s_2)" "(let-values(((s225_0) s_418)" @@ -40143,7 +40152,7 @@ static const char *startup_source = "(let-values(((lifts227_0) lifts_6)" "((exp-s228_0) exp-s_2)" "((phase229_0)" -" phase_104))" +" phase_105))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" @@ -40153,14 +40162,14 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_104)))))" +" phase_105)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_270)(not expand-lifts?_0)))" -"(if or-part_270" -" or-part_270" -"(let-values(((or-part_271)(null? lifts_6)))" -"(if or-part_271" -" or-part_271" +"(if(let-values(((or-part_273)(not expand-lifts?_0)))" +"(if or-part_273" +" or-part_273" +"(let-values(((or-part_274)(null? lifts_6)))" +"(if or-part_274" +" or-part_274" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -40177,7 +40186,7 @@ static const char *startup_source = "(void)))" "(loop_95 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_95)" -" s_362" +" s_361" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -40222,13 +40231,13 @@ static const char *startup_source = "(let-values(((context_8) context97_0))" "(let-values(((keep-stops?_1) keep-stops?95_0))" "(let-values()" -"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" +"(let-values(((phase_106)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_106)))" "(begin" -"(namespace-visit-available-modules! ns_74 phase_105)" -"(let-values(((v_194) ctx_34))" -"(let-values(((the-struct_61) v_194))" -"(if(expand-context/outer? the-struct_61)" +"(namespace-visit-available-modules! ns_74 phase_106)" +"(let-values(((v_195) ctx_34))" +"(let-values(((the-struct_62) v_195))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((context239_0) context_8)" "((scopes240_0) null)" "((env241_0) empty-env)" @@ -40237,64 +40246,64 @@ static const char *startup_source = "((def-ctx-scopes243_0) #f)" "((post-expansion-scope244_0) #f)" "((inner245_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_194)))" -"(if(expand-context/inner? the-struct_62)" -"(let-values(((phase246_0) phase_105)" +"(let-values(((the-struct_63)(root-expand-context/outer-inner v_195)))" +"(if(expand-context/inner? the-struct_63)" +"(let-values(((phase246_0) phase_106)" "((namespace247_0) ns_74)" "((stops248_0)" "(if keep-stops?_1" "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_62)" -"(root-expand-context/inner-module-scopes the-struct_62)" -"(root-expand-context/inner-top-level-bind-scope the-struct_62)" -"(root-expand-context/inner-all-scopes-stx the-struct_62)" -"(root-expand-context/inner-defined-syms the-struct_62)" -"(root-expand-context/inner-counter the-struct_62)" -"(root-expand-context/inner-lift-key the-struct_62)" -"(expand-context/inner-to-parsed? the-struct_62)" +"(root-expand-context/inner-self-mpi the-struct_63)" +"(root-expand-context/inner-module-scopes the-struct_63)" +"(root-expand-context/inner-top-level-bind-scope the-struct_63)" +"(root-expand-context/inner-all-scopes-stx the-struct_63)" +"(root-expand-context/inner-defined-syms the-struct_63)" +"(root-expand-context/inner-counter the-struct_63)" +"(root-expand-context/inner-lift-key the-struct_63)" +"(expand-context/inner-to-parsed? the-struct_63)" " phase246_0" " namespace247_0" -"(expand-context/inner-just-once? the-struct_62)" -"(expand-context/inner-module-begin-k the-struct_62)" -"(expand-context/inner-allow-unbound? the-struct_62)" -"(expand-context/inner-in-local-expand? the-struct_62)" -"(expand-context/inner-keep-#%expression? the-struct_62)" +"(expand-context/inner-just-once? the-struct_63)" +"(expand-context/inner-module-begin-k the-struct_63)" +"(expand-context/inner-allow-unbound? the-struct_63)" +"(expand-context/inner-in-local-expand? the-struct_63)" +"(expand-context/inner-keep-#%expression? the-struct_63)" " stops248_0" -"(expand-context/inner-declared-submodule-names the-struct_62)" -"(expand-context/inner-lifts the-struct_62)" -"(expand-context/inner-lift-envs the-struct_62)" -"(expand-context/inner-module-lifts the-struct_62)" -"(expand-context/inner-require-lifts the-struct_62)" -"(expand-context/inner-to-module-lifts the-struct_62)" -"(expand-context/inner-requires+provides the-struct_62)" -"(expand-context/inner-observer the-struct_62)" -"(expand-context/inner-for-serializable? the-struct_62)" -"(expand-context/inner-should-not-encounter-macros? the-struct_62)))" +"(expand-context/inner-declared-submodule-names the-struct_63)" +"(expand-context/inner-lifts the-struct_63)" +"(expand-context/inner-lift-envs the-struct_63)" +"(expand-context/inner-module-lifts the-struct_63)" +"(expand-context/inner-require-lifts the-struct_63)" +"(expand-context/inner-to-module-lifts the-struct_63)" +"(expand-context/inner-requires+provides the-struct_63)" +"(expand-context/inner-observer the-struct_63)" +"(expand-context/inner-for-serializable? the-struct_63)" +"(expand-context/inner-should-not-encounter-macros? the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_62)))))" +" the-struct_63)))))" "(expand-context/outer1.1" " inner245_0" " post-expansion-scope244_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_61)" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" +"(root-expand-context/outer-post-expansion-shifts the-struct_62)" +"(root-expand-context/outer-use-site-scopes the-struct_62)" +"(root-expand-context/outer-frame-id the-struct_62)" " context239_0" " env241_0" -"(expand-context/outer-post-expansion-scope-action the-struct_61)" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" " scopes240_0" " def-ctx-scopes243_0" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" +"(expand-context/outer-binding-layer the-struct_62)" +"(expand-context/outer-reference-records the-struct_62)" " only-immediate?242_0" -"(expand-context/outer-need-eventually-defined the-struct_61)" -"(expand-context/outer-current-introduction-scopes the-struct_61)" -"(expand-context/outer-current-use-scopes the-struct_61)" -"(expand-context/outer-name the-struct_61)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_62)" +"(expand-context/outer-current-introduction-scopes the-struct_62)" +"(expand-context/outer-current-use-scopes the-struct_62)" +"(expand-context/outer-name the-struct_62)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding108.1)" "(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)" @@ -40317,7 +40326,7 @@ static const char *startup_source = " unsafe-undefined" " rhs249_0" " temp250_1))))" -"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_107)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -40339,8 +40348,8 @@ static const char *startup_source = " who_16" " ids_19" " parsed-rhs_0" -" phase_106" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" +" phase_107" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_107)" " ctx_35)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -40352,14 +40361,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_49 phase_107 ns_75 ctx_37)" +"(lambda(who_18 ids_21 p_49 phase_108 ns_75 ctx_37)" "(begin" "(let-values(((compiled_0)" "(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_49" -"(let-values(((ns258_0) ns_75)((phase259_0) phase_107))" +"(let-values(((ns258_0) ns_75)((phase259_0) phase_108))" "(make-compile-context14.1 #f unsafe-undefined #f ns258_0 phase259_0 unsafe-undefined))))))" "(let-values(((vals_4)" "(call-with-values" @@ -40418,8 +40427,8 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_272) keep-for-parsed?_0))" -"(if or-part_272 or-part_272 keep-for-error?_0))" +"(if(let-values(((or-part_275) keep-for-parsed?_0))" +"(if or-part_275 or-part_275 keep-for-error?_0))" "(datum->syntax$1 #f keep-e_0 s_422 s_422)" " #f))" "(let-values()" @@ -40438,8 +40447,8 @@ static const char *startup_source = " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_273)(syntax-property$1 s_423 'disappeared-binding)))" -"(if or-part_273 or-part_273 null)))))))))" +"(let-values(((or-part_276)(syntax-property$1 s_423 'disappeared-binding)))" +"(if or-part_276 or-part_276 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -40448,12 +40457,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_274)(identifier? ids_23)))" -"(if or-part_274" -" or-part_274" +"(let-values(((or-part_277)(identifier? ids_23)))" +"(if or-part_277" +" or-part_277" "(if(pair? ids_23)" -"(let-values(((or-part_275)(loop_96(car ids_23))))" -"(if or-part_275 or-part_275(loop_96(cdr ids_23))))" +"(let-values(((or-part_278)(loop_96(car ids_23))))" +"(if or-part_278 or-part_278(loop_96(cdr ids_23))))" " #f)))))))" " loop_96)" " ids_22)" @@ -40482,39 +40491,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_183) rhs-ctx_1))" -"(let-values(((the-struct_63) v_183))" -"(if(expand-context/outer? the-struct_63)" +"(let-values(((v_184) rhs-ctx_1))" +"(let-values(((the-struct_64) v_184))" +"(if(expand-context/outer? the-struct_64)" "(let-values(((env260_0)" -"(let-values(((lst_281) ids_24)((lst_282) keys_4))" +"(let-values(((lst_283) ids_24)((lst_284) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_281)))" +"(let-values()(check-list lst_283)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_251)" -"(lambda(env_3 lst_283 lst_284)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_252)" +"(lambda(env_3 lst_285 lst_286)" "(begin" " 'for-loop" -"(if(if(pair? lst_283)" -"(pair? lst_284)" +"(if(if(pair? lst_285)" +"(pair? lst_286)" " #f)" -"(let-values(((id_68)" +"(let-values(((id_69)" "(unsafe-car" -" lst_283))" -"((rest_158)" -"(unsafe-cdr" -" lst_283))" -"((key_80)" -"(unsafe-car" -" lst_284))" +" lst_285))" "((rest_159)" "(unsafe-cdr" -" lst_284)))" +" lst_285))" +"((key_80)" +"(unsafe-car" +" lst_286))" +"((rest_160)" +"(unsafe-cdr" +" lst_286)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40524,43 +40533,43 @@ static const char *startup_source = " env_5" " key_80" "(local-variable1.1" -" id_68)))))" +" id_69)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_251" +"(for-loop_252" " env_4" -" rest_158" -" rest_159)" +" rest_159" +" rest_160)" " env_4)))" " env_3)))))" -" for-loop_251)" +" for-loop_252)" "(expand-context-env rhs-ctx_1)" -" lst_281" -" lst_282))))" -"((inner261_0)(root-expand-context/outer-inner v_183)))" +" lst_283" +" lst_284))))" +"((inner261_0)(root-expand-context/outer-inner v_184)))" "(expand-context/outer1.1" " inner261_0" -"(root-expand-context/outer-post-expansion-scope the-struct_63)" -"(root-expand-context/outer-post-expansion-shifts the-struct_63)" -"(root-expand-context/outer-use-site-scopes the-struct_63)" -"(root-expand-context/outer-frame-id the-struct_63)" -"(expand-context/outer-context the-struct_63)" +"(root-expand-context/outer-post-expansion-scope the-struct_64)" +"(root-expand-context/outer-post-expansion-shifts the-struct_64)" +"(root-expand-context/outer-use-site-scopes the-struct_64)" +"(root-expand-context/outer-frame-id the-struct_64)" +"(expand-context/outer-context the-struct_64)" " env260_0" -"(expand-context/outer-post-expansion-scope-action the-struct_63)" -"(expand-context/outer-scopes the-struct_63)" -"(expand-context/outer-def-ctx-scopes the-struct_63)" -"(expand-context/outer-binding-layer the-struct_63)" -"(expand-context/outer-reference-records the-struct_63)" -"(expand-context/outer-only-immediate? the-struct_63)" -"(expand-context/outer-need-eventually-defined the-struct_63)" -"(expand-context/outer-current-introduction-scopes the-struct_63)" -"(expand-context/outer-current-use-scopes the-struct_63)" -"(expand-context/outer-name the-struct_63)))" +"(expand-context/outer-post-expansion-scope-action the-struct_64)" +"(expand-context/outer-scopes the-struct_64)" +"(expand-context/outer-def-ctx-scopes the-struct_64)" +"(expand-context/outer-binding-layer the-struct_64)" +"(expand-context/outer-reference-records the-struct_64)" +"(expand-context/outer-only-immediate? the-struct_64)" +"(expand-context/outer-need-eventually-defined the-struct_64)" +"(expand-context/outer-current-introduction-scopes the-struct_64)" +"(expand-context/outer-current-use-scopes the-struct_64)" +"(expand-context/outer-name the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63)))))))))))))))))" +" the-struct_64)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -40574,14 +40583,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_58))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_68 id_69 phase_108 ctx_42)" +"(lambda(val_68 id_70 phase_109 ctx_42)" "(begin" "(if(1/rename-transformer? val_68)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_68 id_69 phase_108))))" +"(let-values()(maybe-install-free=id! val_68 id_70 phase_109))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40589,30 +40598,30 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_64) new-s_2))" -"(if(syntax?$1 the-struct_64)" +"(let-values(((the-struct_65) new-s_2))" +"(if(syntax?$1 the-struct_65)" "(let-values(((srcloc262_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_64)" -"(syntax-scopes the-struct_64)" -"(syntax-shifted-multi-scopes the-struct_64)" -"(syntax-scope-propagations+tamper the-struct_64)" -"(syntax-mpi-shifts the-struct_64)" +"(syntax-content the-struct_65)" +"(syntax-scopes the-struct_65)" +"(syntax-shifted-multi-scopes the-struct_65)" +"(syntax-scope-propagations+tamper the-struct_65)" +"(syntax-mpi-shifts the-struct_65)" " srcloc262_0" -"(syntax-props the-struct_64)" -"(syntax-inspector the-struct_64)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_64)))" +"(syntax-props the-struct_65)" +"(syntax-inspector the-struct_65)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65)))" " new-s_2)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_44)" +"(lambda(stop-ids_0 phase_45)" "(begin" "(if(null? stop-ids_0)" "(let-values() stop-ids_0)" "(let-values()" -"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_44)))" +"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_45)))" "(if(if(= 1(length stop-ids_0))" -"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_44 phase_44)" +"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_45 phase_45)" " #f)" "(let-values() stop-ids_0)" "(let-values()" @@ -40666,30 +40675,30 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_109)" +"(lambda(phase_110)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_110)))" "(reverse$1" "(let-values(((lst_102) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" "((letrec-values(((for-loop_114)" -"(lambda(fold-var_238 lst_259)" +"(lambda(fold-var_239 lst_262)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((sym_18)(unsafe-car lst_259))((rest_160)(unsafe-cdr lst_259)))" -"(let-values(((fold-var_217)" -"(let-values(((fold-var_218) fold-var_238))" -"(let-values(((fold-var_219)" +"(if(pair? lst_262)" +"(let-values(((sym_18)(unsafe-car lst_262))((rest_161)(unsafe-cdr lst_262)))" +"(let-values(((fold-var_221)" +"(let-values(((fold-var_222) fold-var_239))" +"(let-values(((fold-var_223)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_18))" -" fold-var_218))))" -"(values fold-var_219)))))" -"(if(not #f)(for-loop_114 fold-var_217 rest_160) fold-var_217)))" -" fold-var_238)))))" +" fold-var_222))))" +"(values fold-var_223)))))" +"(if(not #f)(for-loop_114 fold-var_221 rest_161) fold-var_221)))" +" fold-var_239)))))" " for-loop_114)" " null" " lst_102))))))))" @@ -40774,11 +40783,11 @@ static const char *startup_source = "(let-values(((or-part_65)(root-expand-context-frame-id ctx_43)))" "(if or-part_65" " or-part_65" -"(let-values(((or-part_224)" +"(let-values(((or-part_227)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_224 or-part_224(gensym)))))))" +"(if or-part_227 or-part_227(gensym)))))))" "(let-values(((sc_33)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40867,34 +40876,34 @@ static const char *startup_source = "(list intdef_0 extra-intdefs_0))))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_185) ids_25))" +"(let-values(((lst_188) ids_25))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_185)))" +"(let-values()(check-list lst_188)))" "((letrec-values(((for-loop_119)" -"(lambda(fold-var_231 lst_285)" +"(lambda(fold-var_235 lst_287)" "(begin" " 'for-loop" -"(if(pair? lst_285)" -"(let-values(((id_70)" +"(if(pair? lst_287)" +"(let-values(((id_71)" "(unsafe-car" -" lst_285))" -"((rest_161)" +" lst_287))" +"((rest_162)" "(unsafe-cdr" -" lst_285)))" -"(let-values(((fold-var_239)" +" lst_287)))" "(let-values(((fold-var_240)" -" fold-var_231))" "(let-values(((fold-var_241)" +" fold-var_235))" +"(let-values(((fold-var_242)" "(let-values()" "(cons" "(let-values()" "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_70" +" id_71" " ctx_44)" " ctx_44)))" "(let-values(((temp49_1)" @@ -40916,18 +40925,18 @@ static const char *startup_source = " #f" " temp49_1" " extra-intdefs50_0))))" -" fold-var_240))))" +" fold-var_241))))" "(values" -" fold-var_241)))))" +" fold-var_242)))))" "(if(not #f)" "(for-loop_119" -" fold-var_239" -" rest_161)" -" fold-var_239)))" -" fold-var_231)))))" +" fold-var_240" +" rest_162)" +" fold-var_240)))" +" fold-var_235)))))" " for-loop_119)" " null" -" lst_185))))))" +" lst_188))))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40943,27 +40952,27 @@ static const char *startup_source = "(values))))" "(let-values(((syms_20)" "(reverse$1" -"(let-values(((lst_164) intdef-ids_0))" +"(let-values(((lst_167) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_190)" -"(lambda(fold-var_161 lst_165)" +"(let-values()(check-list lst_167)))" +"((letrec-values(((for-loop_192)" +"(lambda(fold-var_165 lst_168)" "(begin" " 'for-loop" -"(if(pair? lst_165)" +"(if(pair? lst_168)" "(let-values(((intdef-id_0)" "(unsafe-car" -" lst_165))" -"((rest_162)" +" lst_168))" +"((rest_163)" "(unsafe-cdr" -" lst_165)))" -"(let-values(((fold-var_242)" -"(let-values(((fold-var_175)" -" fold-var_161))" +" lst_168)))" "(let-values(((fold-var_243)" +"(let-values(((fold-var_179)" +" fold-var_165))" +"(let-values(((fold-var_244)" "(let-values()" "(cons" "(let-values()" @@ -40983,18 +40992,18 @@ static const char *startup_source = " intdef-id54_0" " phase55_0" " temp56_2)))" -" fold-var_175))))" +" fold-var_179))))" "(values" -" fold-var_243)))))" +" fold-var_244)))))" "(if(not #f)" -"(for-loop_190" -" fold-var_242" -" rest_162)" -" fold-var_242)))" -" fold-var_161)))))" -" for-loop_190)" +"(for-loop_192" +" fold-var_243" +" rest_163)" +" fold-var_243)))" +" fold-var_165)))))" +" for-loop_192)" " null" -" lst_164))))))" +" lst_167))))))" "(let-values(((vals_5)" "(if s_424" "(let-values()" @@ -41010,14 +41019,14 @@ static const char *startup_source = " all-intdefs59_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_286) syms_20))" +"(let-values(((lst_288) syms_20))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_286)))" -"((letrec-values(((for-loop_252)" +"(check-list lst_288)))" +"((letrec-values(((for-loop_253)" "(lambda(env_7" " lst_105)" "(begin" @@ -41027,7 +41036,7 @@ static const char *startup_source = "(let-values(((sym_72)" "(unsafe-car" " lst_105))" -"((rest_163)" +"((rest_164)" "(unsafe-cdr" " lst_105)))" "(let-values(((env_8)" @@ -41043,14 +41052,14 @@ static const char *startup_source = " env_10)))))" "(if(not" " #f)" -"(for-loop_252" +"(for-loop_253" " env_8" -" rest_163)" +" rest_164)" " env_8)))" " env_7)))))" -" for-loop_252)" +" for-loop_253)" "(expand-context-env ctx_44)" -" lst_286)))))" +" lst_288)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" @@ -41070,54 +41079,54 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp60_2)" -"(let-values(((v_195)" +"(let-values(((v_196)" " ctx_44))" -"(let-values(((the-struct_65)" -" v_195))" +"(let-values(((the-struct_66)" +" v_196))" "(if(expand-context/outer?" -" the-struct_65)" +" the-struct_66)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" "(root-expand-context/outer-inner" -" v_195)))" +" v_196)))" "(expand-context/outer1.1" " inner64_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_65)" +" the-struct_66)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_65)" +" the-struct_66)" "(root-expand-context/outer-use-site-scopes" -" the-struct_65)" +" the-struct_66)" "(root-expand-context/outer-frame-id" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-context" -" the-struct_65)" +" the-struct_66)" " env63_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-def-ctx-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-binding-layer" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-reference-records" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-only-immediate?" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-need-eventually-defined" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-current-introduction-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-current-use-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-name" -" the-struct_65)))" +" the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_65)))))" +" the-struct_66)))))" "((temp61_1)" " 'expression)" "((all-intdefs62_0)" @@ -41145,44 +41154,44 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_287) ids_25))" +"(let-values(((lst_289) ids_25))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_181" -" lst_288)" +"(let-values()(check-list lst_289)))" +"((letrec-values(((for-loop_254)" +"(lambda(fold-var_185" +" lst_290)" "(begin" " 'for-loop" -"(if(pair? lst_288)" -"(let-values(((id_71)" +"(if(pair? lst_290)" +"(let-values(((id_72)" "(unsafe-car" -" lst_288))" -"((rest_164)" +" lst_290))" +"((rest_165)" "(unsafe-cdr" -" lst_288)))" +" lst_290)))" "(let-values(((fold-var_101)" -"(let-values(((fold-var_35)" -" fold-var_181))" -"(let-values(((fold-var_244)" +"(let-values(((fold-var_245)" +" fold-var_185))" +"(let-values(((fold-var_246)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_35))))" +" fold-var_245))))" "(values" -" fold-var_244)))))" +" fold-var_246)))))" "(if(not #f)" -"(for-loop_253" +"(for-loop_254" " fold-var_101" -" rest_164)" +" rest_165)" " fold-var_101)))" -" fold-var_181)))))" -" for-loop_253)" +" fold-var_185)))))" +" for-loop_254)" " null" -" lst_287))))))))" +" lst_289))))))))" "(let-values(((env-mixins_0)" "(internal-definition-context-env-mixins intdef_0)))" "(begin" @@ -41190,56 +41199,56 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_289) intdef-ids_0)" -"((lst_278) syms_20)" -"((lst_290) vals_5))" +"(let-values(((lst_291) intdef-ids_0)" +"((lst_51) syms_20)" +"((lst_292) vals_5))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" +"(let-values()(check-list lst_291)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_278)))" +"(let-values()(check-list lst_51)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_38" -" lst_192" -" lst_291" -" lst_292)" +"(let-values()(check-list lst_292)))" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_36" +" lst_195" +" lst_293" +" lst_294)" "(begin" " 'for-loop" -"(if(if(pair? lst_192)" -"(if(pair? lst_291)" -"(pair? lst_292)" +"(if(if(pair? lst_195)" +"(if(pair? lst_293)" +"(pair? lst_294)" " #f)" " #f)" "(let-values(((intdef-id_1)" "(unsafe-car" -" lst_192))" -"((rest_165)" -"(unsafe-cdr" -" lst_192))" -"((sym_73)" -"(unsafe-car" -" lst_291))" +" lst_195))" "((rest_166)" "(unsafe-cdr" -" lst_291))" -"((val_69)" +" lst_195))" +"((sym_73)" "(unsafe-car" -" lst_292))" +" lst_293))" "((rest_167)" "(unsafe-cdr" -" lst_292)))" -"(let-values(((fold-var_245)" -"(let-values(((fold-var_246)" -" fold-var_38))" +" lst_293))" +"((val_69)" +"(unsafe-car" +" lst_294))" +"((rest_168)" +"(unsafe-cdr" +" lst_294)))" "(let-values(((fold-var_247)" +"(let-values(((fold-var_248)" +" fold-var_36))" +"(let-values(((fold-var_249)" "(let-values()" "(cons" "(let-values()" @@ -41254,22 +41263,22 @@ static const char *startup_source = " sym_73" " val_69" "(make-weak-hasheq))))" -" fold-var_246))))" +" fold-var_248))))" "(values" -" fold-var_247)))))" +" fold-var_249)))))" "(if(not #f)" -"(for-loop_254" -" fold-var_245" -" rest_165" +"(for-loop_255" +" fold-var_247" " rest_166" -" rest_167)" -" fold-var_245)))" -" fold-var_38)))))" -" for-loop_254)" +" rest_167" +" rest_168)" +" fold-var_247)))" +" fold-var_36)))))" +" for-loop_255)" " null" -" lst_289" -" lst_278" -" lst_290))))" +" lst_291" +" lst_51" +" lst_292))))" "(unbox env-mixins_0)))" "(let-values(((obs_33)(expand-context-observer ctx_44)))" "(if obs_33" @@ -41278,8 +41287,8 @@ static const char *startup_source = "(call-expand-observe obs_33 'exit-local-bind)))" "(void))))))))))))))))))))))))))" "(case-lambda" -"((ids_26 s_202 intdef_1)" -"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_202 intdef_1 '())))" +"((ids_26 s_201 intdef_1)" +"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_201 intdef_1 '())))" "((ids_27 s_61 intdef_2 extra-intdefs7_1)(syntax-local-bind-syntaxes11_0 ids_27 s_61 intdef_2 extra-intdefs7_1)))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -41295,29 +41304,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_3)))" "(reverse$1" -"(let-values(((lst_293)(unbox(internal-definition-context-env-mixins intdef_3))))" +"(let-values(((lst_295)(unbox(internal-definition-context-env-mixins intdef_3))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_189 lst_294)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_193 lst_296)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((env-mixin_0)(unsafe-car lst_294))" -"((rest_168)(unsafe-cdr lst_294)))" -"(let-values(((fold-var_248)" -"(let-values(((fold-var_249) fold-var_189))" +"(if(pair? lst_296)" +"(let-values(((env-mixin_0)(unsafe-car lst_296))" +"((rest_169)(unsafe-cdr lst_296)))" "(let-values(((fold-var_250)" +"(let-values(((fold-var_251) fold-var_193))" +"(let-values(((fold-var_252)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_249))))" -"(values fold-var_250)))))" -"(if(not #f)(for-loop_255 fold-var_248 rest_168) fold-var_248)))" -" fold-var_189)))))" -" for-loop_255)" +" fold-var_251))))" +"(values fold-var_252)))))" +"(if(not #f)(for-loop_256 fold-var_250 rest_169) fold-var_250)))" +" fold-var_193)))))" +" for-loop_256)" " null" -" lst_293))))))))" +" lst_295))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce16_0)" @@ -41374,15 +41383,15 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_72 intdef_8)" +"(lambda(id_73 intdef_8)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_72)" +"(if(identifier? id_73)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" -"(if(let-values(((or-part_204)(1/internal-definition-context? intdef_8)))" -"(if or-part_204 or-part_204(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" +"(if(let-values(((or-part_207)(1/internal-definition-context? intdef_8)))" +"(if or-part_207 or-part_207(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41396,36 +41405,36 @@ static const char *startup_source = "(if(not a_46)(let-values() null)(let-values()(list a_46)))))))" "(begin" " #t" -"((letrec-values(((for-loop_256)" -"(lambda(id_73 a_47)" +"((letrec-values(((for-loop_257)" +"(lambda(id_74 a_47)" "(begin" " 'for-loop" "(if(pair? a_47)" "(let-values(((intdef_9)(car a_47)))" -"(let-values(((id_74)" -"(let-values(((id_75) id_73))" -"(let-values(((id_76)" +"(let-values(((id_75)" +"(let-values(((id_76) id_74))" +"(let-values(((id_77)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_9" -" id_75" +" id_76" " 'remove))))" -"(values id_76)))))" -"(if(not #f)(for-loop_256 id_74(cdr a_47)) id_74)))" -" id_73)))))" -" for-loop_256)" -" id_72" +"(values id_77)))))" +"(if(not #f)(for-loop_257 id_75(cdr a_47)) id_75)))" +" id_74)))))" +" for-loop_257)" +" id_73" " x_75)))))))" "(define-values" "(intdefs?)" "(lambda(x_76)" "(begin" -"(let-values(((or-part_276)(1/internal-definition-context? x_76)))" -"(if or-part_276 or-part_276(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" +"(let-values(((or-part_279)(1/internal-definition-context? x_76)))" +"(if or-part_279 or-part_279(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_77)(begin(let-values(((or-part_277)(not x_77)))(if or-part_277 or-part_277(intdefs? x_77))))))" +"(lambda(x_77)(begin(let-values(((or-part_280)(not x_77)))(if or-part_280 or-part_280(intdefs? x_77))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41440,7 +41449,7 @@ static const char *startup_source = "(if(not a_48)(let-values() null)(let-values()(list a_48)))))))" "(begin" " #t" -"((letrec-values(((for-loop_257)" +"((letrec-values(((for-loop_258)" "(lambda(env_12 a_49)" "(begin" " 'for-loop" @@ -41474,14 +41483,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_177)" +"(let-values(((or-part_180)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_177" -" or-part_177" +"(if or-part_180" +" or-part_180" "(let-values(((new-env_0)" "(env-extend" "(loop_97" @@ -41503,9 +41512,9 @@ static const char *startup_source = " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" -"(if(not #f)(for-loop_257 env_13(cdr a_49)) env_13)))" +"(if(not #f)(for-loop_258 env_13(cdr a_49)) env_13)))" " env_12)))))" -" for-loop_257)" +" for-loop_258)" " env_11" " x_78))))))" "(define-values" @@ -41525,17 +41534,17 @@ static const char *startup_source = "(if(not a_50)(let-values() null)(let-values()(list a_50)))))))" "(begin" " #t" -"((letrec-values(((for-loop_258)" +"((letrec-values(((for-loop_259)" "(lambda(s_426 a_51)" "(begin" " 'for-loop" "(if(pair? a_51)" "(let-values(((intdef_11)(car a_51)))" -"(let-values(((s_322)" +"(let-values(((s_323)" "(let-values(((s_71) s_426))" -"(if(let-values(((or-part_278) always?_0))" -"(if or-part_278" -" or-part_278" +"(if(let-values(((or-part_281) always?_0))" +"(if or-part_281" +" or-part_281" "(internal-definition-context-add-scope?" " intdef_11)))" "(let-values(((s_427) s_71))" @@ -41547,9 +41556,9 @@ static const char *startup_source = " intdef_11)))))" "(values s_428)))" " s_71))))" -"(if(not #f)(for-loop_258 s_322(cdr a_51)) s_322)))" +"(if(not #f)(for-loop_259 s_323(cdr a_51)) s_323)))" " s_426)))))" -" for-loop_258)" +" for-loop_259)" " s_39" " x_79)))))))))))" "(define-values" @@ -41566,7 +41575,7 @@ static const char *startup_source = " 'make-local-expand-context42" "(let-values(((ctx_45) ctx41_0))" "(let-values(((context_9) context27_0))" -"(let-values(((phase_110)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" +"(let-values(((phase_111)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" "(let-values(((intdefs_2) intdefs29_0))" "(let-values(((stop-ids_1) stop-ids30_0))" "(let-values(((to-parsed-ok?_0) to-parsed-ok?31_0))" @@ -41574,30 +41583,30 @@ static const char *startup_source = "(let-values(((keep-#%expression?_1) keep-#%expression?33_0))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_279)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_279" -" or-part_279" +"(let-values(((or-part_282)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_282" +" or-part_282" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_110) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_196) ctx_45))" -"(let-values(((the-struct_66) v_196))" -"(if(expand-context/outer? the-struct_66)" +"(let-values(((v_197) ctx_45))" +"(let-values(((the-struct_67) v_197))" +"(if(expand-context/outer? the-struct_67)" "(let-values(((context69_0) context_9)" "((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes71_0)" -"(if(let-values(((or-part_280)(eq? context_9 'module)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_132)(eq? context_9 'module-begin)))" -"(if or-part_132 or-part_132(list? context_9)))))" -"(let-values(((or-part_281)" +"(if(let-values(((or-part_283)(eq? context_9 'module)))" +"(if or-part_283" +" or-part_283" +"(let-values(((or-part_284)(eq? context_9 'module-begin)))" +"(if or-part_284 or-part_284(list? context_9)))))" +"(let-values(((or-part_285)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_281 or-part_281(box null)))" +"(if or-part_285 or-part_285(box null)))" " #f))" "((frame-id72_0)" "(let-values(((x_80)" @@ -41634,10 +41643,10 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_282)" +"(let-values(((or-part_286)" " frame-id_11))" -"(if or-part_282" -" or-part_282" +"(if or-part_286" +" or-part_286" " i-frame-id_0))))))))" "(values" " frame-id_12)))))" @@ -41682,9 +41691,9 @@ static const char *startup_source = "(let-values() ht_134)" "(if ht_134(let-values()(make-hasheqv))(let-values() #f)))))" "((inner80_0)" -"(let-values(((the-struct_67)" -"(root-expand-context/outer-inner v_196)))" -"(if(expand-context/inner? the-struct_67)" +"(let-values(((the-struct_45)" +"(root-expand-context/outer-inner v_197)))" +"(if(expand-context/inner? the-struct_45)" "(let-values(((to-parsed?83_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -41694,41 +41703,41 @@ static const char *startup_source = "((keep-#%expression?86_0) keep-#%expression?_1)" "((stops87_0)" "(free-id-set" -" phase_110" -"(let-values(((or-part_283) all-stop-ids_0))" -"(if or-part_283 or-part_283 null)))))" +" phase_111" +"(let-values(((or-part_287) all-stop-ids_0))" +"(if or-part_287 or-part_287 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_67)" -"(root-expand-context/inner-module-scopes the-struct_67)" -"(root-expand-context/inner-top-level-bind-scope the-struct_67)" -"(root-expand-context/inner-all-scopes-stx the-struct_67)" -"(root-expand-context/inner-defined-syms the-struct_67)" -"(root-expand-context/inner-counter the-struct_67)" -"(root-expand-context/inner-lift-key the-struct_67)" +"(root-expand-context/inner-self-mpi the-struct_45)" +"(root-expand-context/inner-module-scopes the-struct_45)" +"(root-expand-context/inner-top-level-bind-scope the-struct_45)" +"(root-expand-context/inner-all-scopes-stx the-struct_45)" +"(root-expand-context/inner-defined-syms the-struct_45)" +"(root-expand-context/inner-counter the-struct_45)" +"(root-expand-context/inner-lift-key the-struct_45)" " to-parsed?83_0" -"(expand-context/inner-phase the-struct_67)" -"(expand-context/inner-namespace the-struct_67)" +"(expand-context/inner-phase the-struct_45)" +"(expand-context/inner-namespace the-struct_45)" " just-once?84_0" -"(expand-context/inner-module-begin-k the-struct_67)" -"(expand-context/inner-allow-unbound? the-struct_67)" +"(expand-context/inner-module-begin-k the-struct_45)" +"(expand-context/inner-allow-unbound? the-struct_45)" " in-local-expand?85_0" " keep-#%expression?86_0" " stops87_0" -"(expand-context/inner-declared-submodule-names the-struct_67)" -"(expand-context/inner-lifts the-struct_67)" -"(expand-context/inner-lift-envs the-struct_67)" -"(expand-context/inner-module-lifts the-struct_67)" -"(expand-context/inner-require-lifts the-struct_67)" -"(expand-context/inner-to-module-lifts the-struct_67)" -"(expand-context/inner-requires+provides the-struct_67)" -"(expand-context/inner-observer the-struct_67)" -"(expand-context/inner-for-serializable? the-struct_67)" +"(expand-context/inner-declared-submodule-names the-struct_45)" +"(expand-context/inner-lifts the-struct_45)" +"(expand-context/inner-lift-envs the-struct_45)" +"(expand-context/inner-module-lifts the-struct_45)" +"(expand-context/inner-require-lifts the-struct_45)" +"(expand-context/inner-to-module-lifts the-struct_45)" +"(expand-context/inner-requires+provides the-struct_45)" +"(expand-context/inner-observer the-struct_45)" +"(expand-context/inner-for-serializable? the-struct_45)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_67)))" +" the-struct_45)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_67)))))" +" the-struct_45)))))" "(expand-context/outer1.1" " inner80_0" " post-expansion-scope73_0" @@ -41739,18 +41748,18 @@ static const char *startup_source = " env70_0" " post-expansion-scope-action75_0" " scopes76_0" -"(expand-context/outer-def-ctx-scopes the-struct_66)" -"(expand-context/outer-binding-layer the-struct_66)" -"(expand-context/outer-reference-records the-struct_66)" +"(expand-context/outer-def-ctx-scopes the-struct_67)" +"(expand-context/outer-binding-layer the-struct_67)" +"(expand-context/outer-reference-records the-struct_67)" " only-immediate?77_0" " need-eventually-defined79_0" " current-introduction-scopes78_0" -"(expand-context/outer-current-use-scopes the-struct_66)" -"(expand-context/outer-name the-struct_66)))" +"(expand-context/outer-current-use-scopes the-struct_67)" +"(expand-context/outer-name the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))))))))))))))))" +" the-struct_67)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" "(lambda(s_129 ctx_46)(begin(flip-scopes s_129(expand-context-current-introduction-scopes ctx_46)))))" @@ -41812,22 +41821,22 @@ static const char *startup_source = "(flip-introduction-and-use-scopes s_430 ctx_9))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_77)" +"(lambda(id_78)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_77)" +"(if(identifier? id_78)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_77)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_78)))" "(values))))" "(let-values(((ctx_52)" "(let-values(((temp63_2) 'syntax-local-identifier-as-binding))" "(get-current-expand-context16.1 #f temp63_2))))" -"(remove-use-site-scopes id_77 ctx_52))))))))" +"(remove-use-site-scopes id_78 ctx_52))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" @@ -41844,8 +41853,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_54)" "(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context16.1 #f who66_0))))" -"(let-values(((id_78)(expand-context-name ctx_54)))" -"(if id_78(datum->syntax$1 #f(syntax-e$1 id_78) id_78) #f))))))))" +"(let-values(((id_79)(expand-context-name ctx_54)))" +"(if id_79(datum->syntax$1 #f(syntax-e$1 id_79) id_79) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer2_0)" @@ -41896,7 +41905,7 @@ static const char *startup_source = " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_14))))))))))))))" -"(case-lambda((s_191)(core70_0 s_191 'flip))((s_90 mode68_1)(core70_0 s_90 mode68_1)))))))" +"(case-lambda((s_190)(core70_0 s_190 'flip))((s_90 mode68_1)(core70_0 s_90 mode68_1)))))))" "(define-values" "(1/make-syntax-delta-introducer)" "(let-values(((make-syntax-delta-introducer7_0)" @@ -41923,8 +41932,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_19)" -"(let-values(((or-part_284)(not x_19)))" -"(if or-part_284 or-part_284(syntax?$1 x_19))))" +"(let-values(((or-part_288)(not x_19)))" +"(if or-part_288 or-part_288(syntax?$1 x_19))))" " base-s_0)" "(void)" "(let-values()" @@ -41952,7 +41961,7 @@ static const char *startup_source = "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_285)" +"(let-values(((or-part_289)" "(if(identifier? base-s_0)" "(let-values(((base-s73_0) base-s_0)" "((phase74_1) phase_5)" @@ -41965,7 +41974,7 @@ static const char *startup_source = " base-s73_0" " phase74_1))" " #f)))" -"(if or-part_285 or-part_285(seteq))))))" +"(if or-part_289 or-part_289(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" @@ -42021,23 +42030,23 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value15" "(let-values(((who_19) who11_0))" -"(let-values(((id_79) id12_0))" +"(let-values(((id_80) id12_0))" "(let-values(((intdefs_3) intdefs13_0))" "(let-values(((failure-thunk_0) failure-thunk14_0))" "(let-values(((immediate?_1) immediate?9_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_79)" +"(if(identifier? id_80)" "(void)" -" (let-values () (raise-argument-error who_19 \"identifier?\" id_79)))" +" (let-values () (raise-argument-error who_19 \"identifier?\" id_80)))" "(values))))" "(let-values((()" "(begin" "(if((lambda(x_81)" -"(let-values(((or-part_207)(not x_81)))" -"(if or-part_207" -" or-part_207" +"(let-values(((or-part_210)(not x_81)))" +"(if or-part_210" +" or-part_210" "((lambda(p_50)" "(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" " x_81))))" @@ -42060,14 +42069,14 @@ static const char *startup_source = "(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" "(let-values(((ctx_11)" "(if intdefs_3" -"(let-values(((v_197) current-ctx_0))" -"(let-values(((the-struct_68) v_197))" +"(let-values(((v_198) current-ctx_0))" +"(let-values(((the-struct_68) v_198))" "(if(expand-context/outer? the-struct_68)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_197)))" +"((inner83_0)(root-expand-context/outer-inner v_198)))" "(expand-context/outer1.1" " inner83_0" "(root-expand-context/outer-post-expansion-scope the-struct_68)" @@ -42096,18 +42105,18 @@ static const char *startup_source = "(let-values(((obs_34)(expand-context-observer ctx_11)))" "(if obs_34" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_79)))" +"(let-values()(call-expand-observe obs_34 'local-value id_80)))" "(void)))" "(values))))" -"(let-values(((phase_72)(expand-context-phase ctx_11)))" +"(let-values(((phase_73)(expand-context-phase ctx_11)))" "((letrec-values(((loop_98)" -"(lambda(id_61)" +"(lambda(id_62)" "(begin" " 'loop" "(let-values(((b_83)" "(if immediate?_1" -"(let-values(((id84_0) id_61)" -"((phase85_0) phase_72)" +"(let-values(((id84_0) id_62)" +"((phase85_0) phase_73)" "((temp86_0) #t))" "(resolve+shift28.1" " #f" @@ -42118,15 +42127,15 @@ static const char *startup_source = " id84_0" " phase85_0))" "(resolve+shift/extra-inspector" -" id_61" -" phase_72" +" id_62" +" phase_73" "(expand-context-namespace ctx_11)))))" "(begin" "(let-values(((obs_35)(expand-context-observer ctx_11)))" "(if obs_35" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_61)))" +"(call-expand-observe obs_35 'resolve id_62)))" "(void)))" "(if(not b_83)" "(let-values()" @@ -42143,12 +42152,12 @@ static const char *startup_source = "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_19 \"unbound identifier: ~v\" id_61))))" +" (error who_19 \"unbound identifier: ~v\" id_62))))" "(let-values()" "(let-values(((v_39 primitive?_7 insp_17 protected?_8)" "(let-values(((b87_0) b_83)" "((ctx88_0) ctx_11)" -"((id89_0) id_61)" +"((id89_0) id_62)" "((temp90_0) #t))" "(lookup62.1" " #f" @@ -42175,7 +42184,7 @@ static const char *startup_source = "(error" " who_19" " \"identifier is not bound to syntax: ~v\"" -" id_61))))" +" id_62))))" "(let-values()" "(begin" "(let-values(((obs_38)" @@ -42205,40 +42214,40 @@ static const char *startup_source = "(let-values()(values v_39 #f))" "(let-values() v_39)))))))))))))))" " loop_98)" -"(flip-introduction-scopes id_79 ctx_11))))))))))))))))))" +"(flip-introduction-scopes id_80 ctx_11))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value21_0)" "(lambda(id20_0 failure-thunk18_0 intdef19_0)" "(begin" " 'syntax-local-value21" -"(let-values(((id_80) id20_0))" +"(let-values(((id_81) id20_0))" "(let-values(((failure-thunk_1) failure-thunk18_0))" "(let-values(((intdef_13) intdef19_0))" "(let-values()" "(let-values(((temp91_1) 'syntax-local-value)" "((temp92_1) #f)" -"((id93_1) id_80)" +"((id93_1) id_81)" "((intdef94_0) intdef_13)" "((failure-thunk95_0) failure-thunk_1))" "(do-syntax-local-value15.1 temp92_1 temp91_1 id93_1 intdef94_0 failure-thunk95_0))))))))))" "(case-lambda" -"((id_81)(begin 'syntax-local-value(syntax-local-value21_0 id_81 #f #f)))" -"((id_62 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_62 failure-thunk_2 intdef19_1))" -"((id_82 failure-thunk18_1)(syntax-local-value21_0 id_82 failure-thunk18_1 #f)))))" +"((id_82)(begin 'syntax-local-value(syntax-local-value21_0 id_82 #f #f)))" +"((id_63 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_63 failure-thunk_2 intdef19_1))" +"((id_83 failure-thunk18_1)(syntax-local-value21_0 id_83 failure-thunk18_1 #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate26_0)" "(lambda(id25_2 failure-thunk23_0 intdef24_0)" "(begin" " 'syntax-local-value/immediate26" -"(let-values(((id_71) id25_2))" +"(let-values(((id_72) id25_2))" "(let-values(((failure-thunk_3) failure-thunk23_0))" "(let-values(((intdef_14) intdef24_0))" "(let-values()" "(let-values(((temp96_1) 'syntax-local-value/immediate)" "((temp97_1) #t)" -"((id98_0) id_71)" +"((id98_0) id_72)" "((intdef99_0) intdef_14)" "((failure-thunk100_0) failure-thunk_3))" "(do-syntax-local-value15.1" @@ -42249,8 +42258,8 @@ static const char *startup_source = " failure-thunk100_0))))))))))" "(case-lambda" "((id_8)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_8 #f #f)))" -"((id_83 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_83 failure-thunk_4 intdef24_1))" -"((id_84 failure-thunk23_1)(syntax-local-value/immediate26_0 id_84 failure-thunk23_1 #f)))))" +"((id_84 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_84 failure-thunk_4 intdef24_1))" +"((id_85 failure-thunk23_1)(syntax-local-value/immediate26_0 id_85 failure-thunk23_1 #f)))))" "(define-values" "(do-lift-values-expression)" "(lambda(who_20 n_29 s_34)" @@ -42279,15 +42288,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_217)" -"(lambda(fold-var_251 pos_106)" +"((letrec-values(((for-loop_219)" +"(lambda(fold-var_253 pos_106)" "(begin" " 'for-loop" "(if(< pos_106 end_29)" "(let-values()" -"(let-values(((fold-var_252)" -"(let-values(((fold-var_253) fold-var_251))" "(let-values(((fold-var_254)" +"(let-values(((fold-var_255) fold-var_253))" +"(let-values(((fold-var_256)" "(let-values()" "(cons" "(let-values()" @@ -42311,13 +42320,13 @@ static const char *startup_source = " name_61)" "(new-scope" " 'macro)))))" -" fold-var_253))))" -"(values fold-var_254)))))" +" fold-var_255))))" +"(values fold-var_256)))))" "(if(not #f)" -"(for-loop_217 fold-var_252(+ pos_106 inc_23))" -" fold-var_252)))" -" fold-var_251)))))" -" for-loop_217)" +"(for-loop_219 fold-var_254(+ pos_106 inc_23))" +" fold-var_254)))" +" fold-var_253)))))" +" for-loop_219)" " null" " start_39))))))" "(begin" @@ -42326,7 +42335,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_28 s_34)))" "(void)))" "(map2" -"(lambda(id_85)(flip-introduction-scopes id_85 ctx_55))" +"(lambda(id_86)(flip-introduction-scopes id_86 ctx_55))" "(add-lifted!" " lifts_8" " ids_28" @@ -42371,9 +42380,9 @@ static const char *startup_source = "(let-values(((ctx_57)" "(let-values(((who107_0) 'syntax-local-lift-module))" "(get-current-expand-context16.1 #f who107_0))))" -"(let-values(((phase_102)(expand-context-phase ctx_57)))" +"(let-values(((phase_103)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_30)(core-form-sym s_64 phase_102)))" +"(let-values(((tmp_30)(core-form-sym s_64 phase_103)))" "(if(if(equal? tmp_30 'module) #t(equal? tmp_30 'module*))" "(let-values()" "(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" @@ -42386,7 +42395,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_64)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_102))))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_103))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))" "(let-values(((obs_40)(expand-context-observer ctx_57)))" @@ -42418,15 +42427,15 @@ static const char *startup_source = "(let-values(((get-wrt-phase_0) get-wrt-phase33_0))" "(let-values(((pre-wrap_0)" "(if(eq? pre-wrap34_0 unsafe-undefined)" -"(lambda(s_433 phase_111 lift-ctx_1)(begin 'pre-wrap s_433))" +"(lambda(s_433 phase_112 lift-ctx_1)(begin 'pre-wrap s_433))" " pre-wrap34_0)))" "(let-values(((shift-wrap_0)" "(if(eq? shift-wrap35_0 unsafe-undefined)" -"(lambda(s_211 phase_112 lift-ctx_2)(begin 'shift-wrap s_211))" +"(lambda(s_210 phase_113 lift-ctx_2)(begin 'shift-wrap s_210))" " shift-wrap35_0)))" "(let-values(((post-wrap_0)" "(if(eq? post-wrap36_0 unsafe-undefined)" -"(lambda(s_212 phase_12 lift-ctx_3)(begin 'post-wrap s_212))" +"(lambda(s_211 phase_12 lift-ctx_3)(begin 'post-wrap s_211))" " post-wrap36_0)))" "(let-values()" "(let-values((()" @@ -42451,13 +42460,13 @@ static const char *startup_source = " \"form to lift\"" " s_432)))" "(values))))" -"(let-values(((phase_90)(expand-context-phase ctx_58)))" +"(let-values(((phase_91)(expand-context-phase ctx_58)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" "(if intro?_0(flip-introduction-scopes s_432 ctx_58) s_432)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_90 lift-ctx_4)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_91 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_40) phase_90)" +"(let-values(((start_40) phase_91)" "((end_30) wrt-phase_1)" "((inc_24) -1))" "(begin" @@ -42471,9 +42480,9 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(> pos_107 end_30)" -"(let-values(((phase_113)" +"(let-values(((phase_114)" " pos_107))" -"(let-values(((s_320)" +"(let-values(((s_321)" "(let-values(((s_426)" " s_434))" "(let-values(((s_435)" @@ -42481,15 +42490,15 @@ static const char *startup_source = "(shift-wrap_0" " s_426" "(sub1" -" phase_113)" +" phase_114)" " lift-ctx_4))))" "(values" " s_435)))))" "(if(not #f)" "(for-loop_129" -" s_320" +" s_321" "(+ pos_107 inc_24))" -" s_320)))" +" s_321)))" " s_434)))))" " for-loop_129)" " pre-s_0" @@ -42501,7 +42510,7 @@ static const char *startup_source = "(values ctx_58 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_219 use-s_1)" +"(lambda(s_218 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values()" @@ -42509,7 +42518,7 @@ static const char *startup_source = "(let-values(((sc_35)(new-scope 'lifted-require)))" "(let-values(((ctx_59 added-s_1)" "(let-values(((who110_0) 'syntax-local-lift-require)" -"((temp111_0)(datum->syntax$1 #f s_219))" +"((temp111_0)(datum->syntax$1 #f s_218))" " ((temp112_0) \"could not find target context\")" "((temp113_0) #f)" "((temp114_1)" @@ -42522,11 +42531,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)" "((add-lifted-require!117_0) add-lifted-require!)" "((temp118_0)" -"(lambda(s_110 phase_114 require-lift-ctx_0)" +"(lambda(s_110 phase_115 require-lift-ctx_0)" "(require-spec-shift-for-syntax s_110)))" "((temp119_0)" -"(lambda(s_436 phase_115 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_436 sc_35) phase_115))))" +"(lambda(s_436 phase_116 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_436 sc_35) phase_116))))" "(do-local-lift-to-module48.1" " add-lifted-require!117_0" " expand-context-require-lifts115_0" @@ -42555,23 +42564,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_437)" +"(lambda(s_161)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" -"(let-values(((ctx_60 result-s_7)" +"(let-values(((ctx_4 result-s_7)" "(let-values(((who121_0) 'syntax-local-lift-provide)" -"((s122_1) s_437)" +"((s122_1) s_161)" " ((temp123_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts124_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)" "((temp127_2)" -"(lambda(s_438 phase_116 to-module-lift-ctx_0)(wrap-form 'for-syntax s_438 #f)))" +"(lambda(s_437 phase_117 to-module-lift-ctx_0)(wrap-form 'for-syntax s_437 #f)))" "((temp128_2)" -"(lambda(s_116 phase_117 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_116 phase_117))))" +"(lambda(s_116 phase_118 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_116 phase_118))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-provide!126_0" " expand-context-to-module-lifts124_0" @@ -42584,33 +42593,33 @@ static const char *startup_source = " temp127_2" " who121_0" " s122_1))))" -"(let-values(((obs_42)(expand-context-observer ctx_60)))" +"(let-values(((obs_42)(expand-context-observer ctx_4)))" "(if obs_42" "(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))" "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_227)" +"(lambda(s_225)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" -"(let-values(((ctx_61 also-s_0)" +"(let-values(((ctx_60 also-s_0)" "(let-values(((who130_0) 'syntax-local-lift-module-end-declaration)" -"((s131_0) s_227)" +"((s131_0) s_225)" "((temp132_1)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts133_0) expand-context-to-module-lifts)" "((temp134_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)" "((temp136_0)" -"(lambda(orig-s_32 phase_118 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_119 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_32 phase_118)" +"(wrap-form '#%expression orig-s_32 phase_119)" " orig-s_32)))" "((temp137_1)" -"(lambda(s_439 phase_119 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_439 phase_119))))" +"(lambda(s_438 phase_120 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_438 phase_120))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-end!135_0" " expand-context-to-module-lifts133_0" @@ -42623,17 +42632,17 @@ static const char *startup_source = " temp137_1" " who130_0" " s131_0))))" -"(let-values(((obs_43)(expand-context-observer ctx_61)))" +"(let-values(((obs_43)(expand-context-observer ctx_60)))" "(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_227)))" +"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_225)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_74 s_124 phase_120)" +"(lambda(sym_74 s_124 phase_121)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_120(syntax-shift-phase-level$1 core-stx phase_120) #f) sym_74) s_124)))))" +"(list(datum->syntax$1(if phase_121(syntax-shift-phase-level$1 core-stx phase_121) #f) sym_74) s_124)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42650,10 +42659,10 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_62)" +"(let-values(((ctx_61)" "(let-values(((temp139_0) 'syntax-local-module-defined-identifiers))" "(get-current-expand-context16.1 #f temp139_0))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_61))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" @@ -42663,8 +42672,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_286)(not mod-path_8)))" -"(if or-part_286 or-part_286(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_290)(not mod-path_8)))" +"(if or-part_290 or-part_290(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42674,8 +42683,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_287)(eq? phase-level_21 #t)))" -"(if or-part_287 or-part_287(phase? phase-level_21)))" +"(if(let-values(((or-part_291)(eq? phase-level_21 #t)))" +"(if or-part_291 or-part_291(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42692,15 +42701,15 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_63)" +"(let-values(((ctx_62)" "(let-values(((temp141_1) 'syntax-local-module-required-identifiers))" "(get-current-expand-context16.1 #f temp141_1))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" -"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))" +"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" -" mpi_45" +" mpi_44" "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" @@ -42709,29 +42718,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_135)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_255 i_161)" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_257 i_161)" "(begin" " 'for-loop" "(if i_161" -"(let-values(((phase_121 ids_29)" +"(let-values(((phase_122 ids_29)" "(hash-iterate-key+value ht_135 i_161)))" -"(let-values(((fold-var_203)" -"(let-values(((fold-var_256) fold-var_255))" -"(let-values(((fold-var_257)" +"(let-values(((fold-var_207)" +"(let-values(((fold-var_258) fold-var_257))" +"(let-values(((fold-var_259)" "(let-values()" "(cons" "(let-values()" -"(cons phase_121 ids_29))" -" fold-var_256))))" -"(values fold-var_257)))))" +"(cons phase_122 ids_29))" +" fold-var_258))))" +"(values fold-var_259)))))" "(if(not #f)" -"(for-loop_259" -" fold-var_203" +"(for-loop_260" +" fold-var_207" "(hash-iterate-next ht_135 i_161))" -" fold-var_203)))" -" fold-var_255)))))" -" for-loop_259)" +" fold-var_207)))" +" fold-var_257)))))" +" for-loop_260)" " null" "(hash-iterate-first ht_135)))))" " #f)))))))))))))" @@ -42739,15 +42748,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_295) requireds_1))" +"(let-values(((lst_297) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))" -"((letrec-values(((for-loop_136)" -"(lambda(ht_136 lst_296)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_297)))" +"((letrec-values(((for-loop_137)" +"(lambda(ht_136 lst_298)" "(begin" " 'for-loop" -"(if(pair? lst_296)" -"(let-values(((r_43)(unsafe-car lst_296))((rest_169)(unsafe-cdr lst_296)))" +"(if(pair? lst_298)" +"(let-values(((r_43)(unsafe-car lst_298))((rest_170)(unsafe-cdr lst_298)))" "(let-values(((ht_137)" "(let-values(((ht_138) ht_136))" "(let-values(((ht_139)" @@ -42758,11 +42767,11 @@ static const char *startup_source = "(lambda(l_71)(cons(required-id r_43) l_71))" " null))))" "(values ht_139)))))" -"(if(not #f)(for-loop_136 ht_137 rest_169) ht_137)))" +"(if(not #f)(for-loop_137 ht_137 rest_170) ht_137)))" " ht_136)))))" -" for-loop_136)" +" for-loop_137)" "(hasheqv)" -" lst_295))))))" +" lst_297))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42772,9 +42781,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_288)(1/module-path? mod-path_9)))" -"(if or-part_288" -" or-part_288" +"(if(let-values(((or-part_292)(1/module-path? mod-path_9)))" +"(if or-part_292" +" or-part_292" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42787,15 +42796,15 @@ static const char *startup_source = " \" (module-path? (syntax->datum stx)))))\")" " mod-path_9)))" "(values))))" -"(let-values(((ctx_64)" +"(let-values(((ctx_63)" "(let-values(((temp143_0) 'syntax-local-module-exports))" "(get-current-expand-context16.1 #f temp143_0))))" -"(let-values(((ns_76)(expand-context-namespace ctx_64)))" +"(let-values(((ns_76)(expand-context-namespace ctx_63)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" "(module-path->mpi/context" "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" -" ctx_64)" +" ctx_63)" " #t)))" "(let-values(((m_19)(namespace->module ns_76 mod-name_18)))" "(begin" @@ -42808,21 +42817,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_140)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_258 i_162)" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_260 i_162)" "(begin" " 'for-loop" "(if i_162" -"(let-values(((phase_122 syms_21)" +"(let-values(((phase_123 syms_21)" "(hash-iterate-key+value ht_140 i_162)))" -"(let-values(((fold-var_259)" -"(let-values(((fold-var_260) fold-var_258))" "(let-values(((fold-var_261)" +"(let-values(((fold-var_262) fold-var_260))" +"(let-values(((fold-var_263)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_122" +" phase_123" "(reverse$1" "(let-values(((ht_141)" " syms_21))" @@ -42833,8 +42842,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_141)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_262" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_264" " i_12)" "(begin" " 'for-loop" @@ -42843,37 +42852,37 @@ static const char *startup_source = "(hash-iterate-key" " ht_141" " i_12)))" -"(let-values(((fold-var_263)" -"(let-values(((fold-var_264)" -" fold-var_262))" "(let-values(((fold-var_265)" +"(let-values(((fold-var_266)" +" fold-var_264))" +"(let-values(((fold-var_267)" "(let-values()" "(cons" "(let-values()" " sym_75)" -" fold-var_264))))" +" fold-var_266))))" "(values" -" fold-var_265)))))" +" fold-var_267)))))" "(if(not" " #f)" -"(for-loop_261" -" fold-var_263" +"(for-loop_262" +" fold-var_265" "(hash-iterate-next" " ht_141" " i_12))" -" fold-var_263)))" -" fold-var_262)))))" -" for-loop_261)" +" fold-var_265)))" +" fold-var_264)))))" +" for-loop_262)" " null" "(hash-iterate-first" " ht_141)))))))" -" fold-var_260))))" -"(values fold-var_261)))))" +" fold-var_262))))" +"(values fold-var_263)))))" "(if(not #f)" -"(for-loop_260 fold-var_259(hash-iterate-next ht_140 i_162))" -" fold-var_259)))" -" fold-var_258)))))" -" for-loop_260)" +"(for-loop_261 fold-var_261(hash-iterate-next ht_140 i_162))" +" fold-var_261)))" +" fold-var_260)))))" +" for-loop_261)" " null" "(hash-iterate-first ht_140))))))))))))))))" "(define-values" @@ -42883,38 +42892,38 @@ static const char *startup_source = " 'syntax-local-submodules" "(let-values()" "(let-values()" -"(let-values(((ctx_65)" +"(let-values(((ctx_64)" "(let-values(((who145_0) 'syntax-local-submodules))" "(get-current-expand-context16.1 #f who145_0))))" -"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" +"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" "(reverse$1" "(let-values(((ht_142) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_142)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_266 i_163)" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_268 i_163)" "(begin" " 'for-loop" "(if i_163" "(let-values(((name_62 kind_8)(hash-iterate-key+value ht_142 i_163)))" -"(let-values(((fold-var_267)" -"(let-values(((fold-var_268) fold-var_266))" +"(let-values(((fold-var_269)" +"(let-values(((fold-var_270) fold-var_268))" "(if(eq? kind_8 'module)" -"(let-values(((fold-var_269) fold-var_268))" -"(let-values(((fold-var_270)" +"(let-values(((fold-var_271) fold-var_270))" +"(let-values(((fold-var_272)" "(let-values()" "(cons" "(let-values() name_62)" -" fold-var_269))))" -"(values fold-var_270)))" -" fold-var_268))))" +" fold-var_271))))" +"(values fold-var_272)))" +" fold-var_270))))" "(if(not #f)" -"(for-loop_262 fold-var_267(hash-iterate-next ht_142 i_163))" -" fold-var_267)))" -" fold-var_266)))))" -" for-loop_262)" +"(for-loop_263 fold-var_269(hash-iterate-next ht_142 i_163))" +" fold-var_269)))" +" fold-var_268)))))" +" for-loop_263)" " null" "(hash-iterate-first ht_142))))))))))))" "(define-values" @@ -42923,39 +42932,39 @@ static const char *startup_source = "(lambda(id52_0 only-generated?51_0)" "(begin" " 'syntax-local-get-shadower53" -"(let-values(((id_86) id52_0))" +"(let-values(((id_87) id52_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_86)" +"(if(identifier? id_87)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_86)))" +" id_87)))" "(values))))" -"(let-values(((ctx_66)" +"(let-values(((ctx_65)" "(let-values(((who147_0) 'syntax-local-get-shadower))" "(get-current-expand-context16.1 #f who147_0))))" -"(let-values(((new-id_0)(add-scopes id_86(expand-context-scopes ctx_66))))" -"(if(syntax-clean? id_86) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((new-id_0)(add-scopes id_87(expand-context-scopes ctx_65))))" +"(if(syntax-clean? id_87) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" -"((id_87)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_87 #f)))" -"((id_88 only-generated?51_1)(syntax-local-get-shadower53_0 id_88 only-generated?51_1)))))" +"((id_88)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_88 #f)))" +"((id_89 only-generated?51_1)(syntax-local-get-shadower53_0 id_89 only-generated?51_1)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_190)" +"(lambda(s_189)" "(let-values((()" "(begin" -" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_190)))" +" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_189)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_190)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_189)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -42971,14 +42980,14 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_73)" "(begin" -"(if(let-values(((or-part_289)(not(vector-ref v_73 1))))" -"(if or-part_289 or-part_289(exact-positive-integer?(vector-ref v_73 1))))" +"(if(let-values(((or-part_293)(not(vector-ref v_73 1))))" +"(if or-part_293 or-part_293(exact-positive-integer?(vector-ref v_73 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_73 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_73 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_73 3))))" "(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_73 3))))" -"(let-values(((or-part_157)(not(vector-ref v_73 4))))" -"(if or-part_157 or-part_157(exact-nonnegative-integer?(vector-ref v_73 4))))" +"(let-values(((or-part_158)(not(vector-ref v_73 4))))" +"(if or-part_158 or-part_158(exact-nonnegative-integer?(vector-ref v_73 4))))" " #f)" " #f)" " #f))))" @@ -43037,14 +43046,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_190)" +"(lambda(s_189)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_190)))" -"(syntax->datum$1 s_190)))))))" +" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_189)))" +"(syntax->datum$1 s_189)))))))" "(define-values(maybe-syntax->datum)(lambda(s_73)(begin(if(syntax?$1 s_73)(syntax->datum$1 s_73) s_73))))" "(define-values" "(1/datum->syntax)" @@ -43053,7 +43062,7 @@ static const char *startup_source = "(begin" " 'datum->syntax6" "(let-values(((stx-c_4) stx-c4_1))" -"(let-values(((s_440) s5_2))" +"(let-values(((s_439) s5_2))" "(let-values(((stx-l_2) stx-l1_0))" "(let-values(((stx-p_1) stx-p2_0))" "(let-values()" @@ -43065,9 +43074,9 @@ static const char *startup_source = "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_290)(not stx-l_2)))" -"(if or-part_290" -" or-part_290" +"(if(let-values(((or-part_294)(not stx-l_2)))" +"(if or-part_294" +" or-part_294" "(let-values(((or-part_28)(syntax?$1 stx-l_2)))" "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" @@ -43087,36 +43096,36 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_291)(not stx-p_1)))" -"(if or-part_291 or-part_291(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_295)(not stx-p_1)))" +"(if or-part_295 or-part_295(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_440(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_439(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_77)(begin 'datum->syntax(datum->syntax6_1 stx-c_5 s_77 #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax6_1 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1))" -"((stx-c_7 s_441 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_441 stx-l_4 stx-p2_1 #f))" -"((stx-c_8 s_182 stx-l1_1)(datum->syntax6_1 stx-c_8 s_182 stx-l1_1 #f #f)))))" +"((stx-c_7 s_440 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_440 stx-l_4 stx-p2_1 #f))" +"((stx-c_8 s_181 stx-l1_1)(datum->syntax6_1 stx-c_8 s_181 stx-l1_1 #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_442)" +"(lambda(s_441)" "(begin" " 'syntax->list" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_442) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_442)))" -"(syntax->list$1 s_442)))))))" +" (if (syntax?$1 s_441) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_441)))" +"(syntax->list$1 s_441)))))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_168)" +"(lambda(s_167)" "(begin" " 'syntax-original?" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_168)))" -"(if(syntax-property$1 s_168 original-property-sym)(not(syntax-any-macro-scopes? s_168)) #f)))))))" +" (if (syntax?$1 s_167) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_167)))" +"(if(syntax-property$1 s_167 original-property-sym)(not(syntax-any-macro-scopes? s_167)) #f)))))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?11_0)" @@ -43125,7 +43134,7 @@ static const char *startup_source = " 'bound-identifier=?11" "(let-values(((a_54) a9_0))" "(let-values(((b_65) b10_0))" -"(let-values(((phase_123)" +"(let-values(((phase_124)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" "(let-values()" "(let-values()" @@ -43137,10 +43146,10 @@ static const char *startup_source = "(if(identifier? b_65)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_65)))" -"(if(phase? phase_123)" +"(if(phase? phase_124)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_123)))" -"(bound-identifier=?$1 a_54 b_65 phase_123))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_124)))" +"(bound-identifier=?$1 a_54 b_65 phase_124))))))))))))" "(case-lambda" "((a_55 b_84)(begin 'bound-identifier=?(bound-identifier=?11_0 a_55 b_84 unsafe-undefined)))" "((a_56 b_85 phase8_1)(bound-identifier=?11_0 a_56 b_85 phase8_1)))))" @@ -43195,8 +43204,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_124)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_124 phase_124)))))))))" +"(let-values(((phase_125)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_89 phase_125 phase_125)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_62 b_90)" @@ -43216,8 +43225,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" -"(let-values(((phase_125)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_62 b_90 phase_125 phase_125)))))))))" +"(let-values(((phase_126)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_62 b_90 phase_126 phase_126)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_63 b_91)" @@ -43239,110 +43248,110 @@ static const char *startup_source = "(lambda(id21_0 phase19_0 top-level-symbol?20_0)" "(begin" " 'identifier-binding22" -"(let-values(((id_89) id21_0))" -"(let-values(((phase_126)" +"(let-values(((id_90) id21_0))" +"(let-values(((phase_127)" "(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))" "(let-values(((top-level-symbol?_1) top-level-symbol?20_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_89)" +"(if(identifier? id_90)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_89)))" -"(if(phase? phase_126)" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_90)))" +"(if(phase? phase_127)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_126)))" -"(identifier-binding$1 id_89 phase_126 top-level-symbol?_1))))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_127)))" +"(identifier-binding$1 id_90 phase_127 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_90)(begin 'identifier-binding(identifier-binding22_0 id_90 unsafe-undefined #f)))" -"((id_15 phase_85 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_85 top-level-symbol?20_1))" -"((id_91 phase19_1)(identifier-binding22_0 id_91 phase19_1 #f)))))" +"((id_91)(begin 'identifier-binding(identifier-binding22_0 id_91 unsafe-undefined #f)))" +"((id_15 phase_86 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_86 top-level-symbol?20_1))" +"((id_92 phase19_1)(identifier-binding22_0 id_92 phase19_1 #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding26_0)" "(lambda(id25_3 phase24_1)" "(begin" " 'identifier-transformer-binding26" -"(let-values(((id_92) id25_3))" -"(let-values(((phase_127)" +"(let-values(((id_93) id25_3))" +"(let-values(((phase_128)" "(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_92)" +"(if(identifier? id_93)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_92)))" -"(identifier-binding$1 id_92(if phase_127(add1 phase_127) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_93)))" +"(identifier-binding$1 id_93(if phase_128(add1 phase_128) #f))))))))))))" "(case-lambda" -"((id_93)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_93 unsafe-undefined)))" -"((id_58 phase24_2)(identifier-transformer-binding26_0 id_58 phase24_2)))))" +"((id_94)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_94 unsafe-undefined)))" +"((id_59 phase24_2)(identifier-transformer-binding26_0 id_59 phase24_2)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_94)" +"(lambda(id_95)" "(begin" " 'identifier-template-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_94)" +"(if(identifier? id_95)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_94)))" -"(identifier-binding$1 id_94(sub1(1/syntax-local-phase-level)))))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_95)))" +"(identifier-binding$1 id_95(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_79)" +"(lambda(id_80)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_79)" +"(if(identifier? id_80)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_79)))" -"(identifier-binding$1 id_79 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_80)))" +"(identifier-binding$1 id_80 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol30_0)" "(lambda(id29_1 phase28_2)" "(begin" " 'identifier-binding-symbol30" -"(let-values(((id_95) id29_1))" -"(let-values(((phase_72)" +"(let-values(((id_96) id29_1))" +"(let-values(((phase_73)" "(if(eq? phase28_2 unsafe-undefined)(1/syntax-local-phase-level) phase28_2)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_95)" +"(if(identifier? id_96)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_95)))" -"(if(phase? phase_72)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_96)))" +"(if(phase? phase_73)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_72)))" -"(identifier-binding-symbol$1 id_95 phase_72)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_73)))" +"(identifier-binding-symbol$1 id_96 phase_73)))))))))))" "(case-lambda" -"((id_96)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_96 unsafe-undefined)))" -"((id_97 phase28_3)(identifier-binding-symbol30_0 id_97 phase28_3)))))" +"((id_97)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_97 unsafe-undefined)))" +"((id_98 phase28_3)(identifier-binding-symbol30_0 id_98 phase28_3)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context34_0)" "(lambda(id33_1 syms32_1)" "(begin" " 'identifier-prune-lexical-context34" -"(let-values(((id_98) id33_1))" +"(let-values(((id_99) id33_1))" "(let-values(((syms_22) syms32_1))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_98)" +"(if(identifier? id_99)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_98)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_99)))" "(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" @@ -43350,10 +43359,10 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_22)))" -" id_98))))))))))" +" id_99))))))))))" "(case-lambda" -"((id_61)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_61 null)))" -"((id_99 syms32_2)(identifier-prune-lexical-context34_0 id_99 syms32_2)))))" +"((id_62)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_62 null)))" +"((id_100 syms32_2)(identifier-prune-lexical-context34_0 id_100 syms32_2)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info39_0)" @@ -43361,7 +43370,7 @@ static const char *startup_source = "(begin" " 'syntax-debug-info39" "(let-values(((s_412) s38_1))" -"(let-values(((phase_77)" +"(let-values(((phase_78)" "(if(eq? phase36_0 unsafe-undefined)(1/syntax-local-phase-level) phase36_0)))" "(let-values(((all-bindings?_1) all-bindings?37_0))" "(let-values()" @@ -43371,32 +43380,32 @@ static const char *startup_source = "(if(syntax?$1 s_412)" "(void)" " (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_412)))" -"(if(phase? phase_77)" +"(if(phase? phase_78)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_77)))" -"(syntax-debug-info$1 s_412 phase_77 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_78)))" +"(syntax-debug-info$1 s_412 phase_78 all-bindings?_1))))))))))))" "(case-lambda" "((s_86)(begin 'syntax-debug-info(syntax-debug-info39_0 s_86 unsafe-undefined #f)))" -"((s_443 phase_128 all-bindings?37_1)(syntax-debug-info39_0 s_443 phase_128 all-bindings?37_1))" +"((s_442 phase_129 all-bindings?37_1)(syntax-debug-info39_0 s_442 phase_129 all-bindings?37_1))" "((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_444 phase_129)" +"(lambda(s_443 phase_130)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_444)" +"(if(syntax?$1 s_443)" "(void)" -" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_444)))" -"(if(phase? phase_129)" +" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_443)))" +"(if(phase? phase_130)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_129)))" -"(syntax-shift-phase-level$1 s_444 phase_129)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_130)))" +"(syntax-shift-phase-level$1 s_443 phase_130)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_100)" +"(lambda(new-stx_8 old-stx_4 id_101)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -43415,22 +43424,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_100)" +"(if(identifier? id_101)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_100)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_101)))" "(values))))" -"(let-values(((s_445)(syntax-track-origin$1 new-stx_8 old-stx_4 id_100)))" -"(let-values(((ctx_67)" +"(let-values(((s_444)(syntax-track-origin$1 new-stx_8 old-stx_4 id_101)))" +"(let-values(((ctx_66)" "(let-values(((temp60_3) #t))(get-current-expand-context16.1 temp60_3 'unexpected))))" "(begin" -"(if ctx_67" +"(if ctx_66" "(let-values()" -"(let-values(((obs_44)(expand-context-observer ctx_67)))" +"(let-values(((obs_44)(expand-context-observer ctx_66)))" "(if obs_44" -"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_445)))" +"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_444)))" "(void))))" "(void))" -" s_445)))))))))))" +" s_444)))))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module4_0)" @@ -43525,17 +43534,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_130)(namespace-phase src-namespace_6)))" +"(let-values(((phase_131)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_130(namespace-phase dest-namespace_2))" +"(if(eqv? phase_131(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_22" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_130" +" phase_131" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43544,8 +43553,8 @@ static const char *startup_source = "(let-values((()" "(begin" "((letrec-values(((loop_99)" -"(lambda(mpi_46" -" phase_131" +"(lambda(mpi_45" +" phase_132" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43561,10 +43570,10 @@ static const char *startup_source = " src-namespace_6)" "(let-values()" "(1/module-path-index-resolve" -" mpi_46)))))" +" mpi_45)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_131 attach-phase_0)" +"(eqv? phase_132 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43572,12 +43581,12 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_131" +" phase_132" " missing_0)))" -"(if(let-values(((or-part_161)" +"(if(let-values(((or-part_164)" "(eq? missing_0 m-ns_12)))" -"(if or-part_161" -" or-part_161" +"(if or-part_164" +" or-part_164" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -43598,14 +43607,14 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_131))" +"(label-phase? phase_132))" "(not" -"(zero-phase? phase_131))" +"(zero-phase? phase_132))" " #f)" " #f)" "(let-values()" "(loop_99" -" mpi_46" +" mpi_45" " 0" " attach-instances?_1" " 0))" @@ -43632,10 +43641,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_292)" +"(if(let-values(((or-part_296)" " attach-this-instance?_0))" -"(if or-part_292" -" or-part_292" +"(if or-part_296" +" or-part_296" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43645,7 +43654,7 @@ static const char *startup_source = "((mod-name31_0)" " mod-name_19)" "((phase32_1)" -" phase_131))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43671,7 +43680,7 @@ static const char *startup_source = "((mod-name34_0)" " mod-name_19)" "((phase35_1)" -" phase_131))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43707,14 +43716,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_131)" +" phase_132)" "(not" "(let-values(((src-namespace36_0)" " src-namespace_6)" "((mod-name37_0)" " mod-name_19)" "((phase38_0)" -" phase_131))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43736,9 +43745,9 @@ static const char *startup_source = "(let-values(((src-namespace39_0)" " src-namespace_6)" "((mpi40_0)" -" mpi_46)" +" mpi_45)" "((phase41_1)" -" phase_131))" +" phase_132))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" @@ -43760,14 +43769,14 @@ static const char *startup_source = "(lambda(ht_143)" "(hash-set" " ht_143" -" phase_131" +" phase_132" " m-ns_13))" " '#hasheqv())" "(if already?_0" "(void)" "(let-values()" "(begin" -"(let-values(((lst_297)" +"(let-values(((lst_299)" "(module-requires" " m_20)))" "(begin" @@ -43776,21 +43785,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_297)))" -"((letrec-values(((for-loop_263)" -"(lambda(lst_298)" +" lst_299)))" +"((letrec-values(((for-loop_264)" +"(lambda(lst_300)" "(begin" " 'for-loop" "(if(pair?" -" lst_298)" +" lst_300)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_298))" -"((rest_170)" +" lst_300))" +"((rest_171)" "(unsafe-cdr" -" lst_298)))" +" lst_300)))" "(let-values((()" -"(let-values(((lst_222)" +"(let-values(((lst_225)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43799,19 +43808,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_222)))" +" lst_225)))" "((letrec-values(((for-loop_99)" -"(lambda(lst_175)" +"(lambda(lst_178)" "(begin" " 'for-loop" "(if(pair?" -" lst_175)" +" lst_178)" "(let-values(((req_5)" "(unsafe-car" -" lst_175))" -"((rest_171)" +" lst_178))" +"((rest_172)" "(unsafe-cdr" -" lst_175)))" +" lst_178)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43823,9 +43832,9 @@ static const char *startup_source = " req_5" "(module-self" " m_20)" -" mpi_46)" +" mpi_45)" "(phase+" -" phase_131" +" phase_132" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43835,21 +43844,21 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_99" -" rest_171)" +" rest_172)" "(values))))" "(values))))))" " for-loop_99)" -" lst_222)))))" +" lst_225)))))" "(if(not" " #f)" -"(for-loop_263" -" rest_170)" +"(for-loop_264" +" rest_171)" "(values))))" "(values))))))" -" for-loop_263)" -" lst_297)))" +" for-loop_264)" +" lst_299)))" "(void)" -"(let-values(((lst_273)" +"(let-values(((lst_276)" "(module-submodule-names" " m_20)))" "(begin" @@ -43858,19 +43867,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_273)))" +" lst_276)))" "((letrec-values(((for-loop_100)" -"(lambda(lst_161)" +"(lambda(lst_164)" "(begin" " 'for-loop" "(if(pair?" -" lst_161)" +" lst_164)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_161))" -"((rest_93)" +" lst_164))" +"((rest_95)" "(unsafe-cdr" -" lst_161)))" +" lst_164)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43883,7 +43892,7 @@ static const char *startup_source = " 'submod" " \".\"" " submod-name_0)" -" mpi_46)" +" mpi_45)" " #f" " #f" " attach-phase_0))" @@ -43892,11 +43901,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_100" -" rest_93)" +" rest_95)" "(values))))" "(values))))))" " for-loop_100)" -" lst_273)))" +" lst_276)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43905,7 +43914,7 @@ static const char *startup_source = "(1/module-path-index-join" " '(submod" " \"..\")" -" mpi_46)" +" mpi_45)" " #f" " #f" " attach-phase_0))" @@ -43917,9 +43926,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_16)" " mod-path_16)" " #f)" -" phase_130" +" phase_131" " attach-instances?_0" -" phase_130)" +" phase_131)" "(values))))" "(let-values((()" "(begin" @@ -43928,7 +43937,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_265)" "(lambda(i_164)" "(begin" " 'for-loop" @@ -43947,12 +43956,12 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_145)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_251)" "(lambda(i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((phase_132" +"(let-values(((phase_133" " m-ns_15)" "(hash-iterate-key+value" " ht_145" @@ -43997,14 +44006,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_132)" +" phase_133)" "(let-values(((or-part_25)" "(let-values(((dest-namespace45_0)" " dest-namespace_2)" "((mod-name46_0)" " mod-name_20)" "((phase47_2)" -" phase_132))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -44017,7 +44026,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_132" +" phase_133" " m_21" " m-ns_15)))))" "(void)))))" @@ -44025,21 +44034,21 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_250" +"(for-loop_251" "(hash-iterate-next" " ht_145" " i_46))" "(values))))" "(values))))))" -" for-loop_250)" +" for-loop_251)" "(hash-iterate-first" " ht_145))))))" "(if(not #f)" -"(for-loop_264" +"(for-loop_265" "(hash-iterate-next ht_144 i_164))" "(values))))" "(values))))))" -" for-loop_264)" +" for-loop_265)" "(hash-iterate-first ht_144))))" "(values))))" "(let-values()" @@ -44057,7 +44066,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_146)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_266)" "(lambda(i_21)" "(begin" " 'for-loop" @@ -44076,11 +44085,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_265" +"(for-loop_266" "(hash-iterate-next ht_146 i_21))" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_266)" "(hash-iterate-first ht_146))))" "(void))))))))))))))))))))))))" "(define-values" @@ -44089,8 +44098,8 @@ static const char *startup_source = "(begin" " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_44)(namespace-phase current-ns_0)))" -"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_44)))" +"(let-values(((phase_45)(namespace-phase current-ns_0)))" +"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_45)))" "(begin" "(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)" "(namespace-primitive-module-visit! ns_59 '#%kernel)" @@ -44136,7 +44145,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_147)))" "((letrec-values(((for-loop_114)" -"(lambda(fold-var_238 i_165)" +"(lambda(fold-var_239 i_165)" "(begin" " 'for-loop" "(if i_165" @@ -44144,31 +44153,31 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-key" " ht_147" " i_165)))" -"(let-values(((fold-var_216)" -"(let-values(((fold-var_217)" -" fold-var_238))" +"(let-values(((fold-var_220)" +"(let-values(((fold-var_221)" +" fold-var_239))" "(if(equal?" " sc_36" " post-scope_1)" -" fold-var_217" -"(let-values(((fold-var_218)" -" fold-var_217))" -"(let-values(((fold-var_219)" +" fold-var_221" +"(let-values(((fold-var_222)" +" fold-var_221))" +"(let-values(((fold-var_223)" "(let-values()" "(cons" "(let-values()" " sc_36)" -" fold-var_218))))" +" fold-var_222))))" "(values" -" fold-var_219)))))))" +" fold-var_223)))))))" "(if(not #f)" "(for-loop_114" -" fold-var_216" +" fold-var_220" "(unsafe-immutable-hash-iterate-next" " ht_147" " i_165))" -" fold-var_216)))" -" fold-var_238)))))" +" fold-var_220)))" +" fold-var_239)))))" " for-loop_114)" " null" "(unsafe-immutable-hash-iterate-first ht_147)))))))" @@ -44216,10 +44225,10 @@ static const char *startup_source = "(let-values()(add-ns-scopes_0 s_2)))))))))))))))))))" "(case-lambda" "((s_78)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_78 unsafe-undefined)))" -"((s_446 ns1_2)(namespace-syntax-introduce3_0 s_446 ns1_2)))))" +"((s_445 ns1_2)(namespace-syntax-introduce3_0 s_445 ns1_2)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_182)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_182)))))" +"(lambda(s_181)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_181)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier6_0)" @@ -44290,8 +44299,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_77)))))" -"(if(let-values(((or-part_161)(1/module-path-index? req_6)))" -"(if or-part_161 or-part_161(1/module-path? req_6)))" +"(if(let-values(((or-part_164)(1/module-path-index? req_6)))" +"(if or-part_164 or-part_164(1/module-path? req_6)))" "(let-values()" "(let-values(((temp70_0)" "(if(1/module-path-index? req_6)" @@ -44473,9 +44482,9 @@ static const char *startup_source = "(if(symbol? sym_21)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_21)))" -"(if(let-values(((or-part_293)(not failure-thunk_5)))" -"(if or-part_293" -" or-part_293" +"(if(let-values(((or-part_132)(not failure-thunk_5)))" +"(if or-part_132" +" or-part_132" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44494,10 +44503,10 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_101)(1/datum->syntax #f sym_21)))" +"(let-values(((id_102)(1/datum->syntax #f sym_21)))" "(let-values(((b_14)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_101 ns_11)" +"(1/namespace-syntax-introduce id_102 ns_11)" "(namespace-phase ns_11)" " ns_11)))" "(let-values((()" @@ -44508,7 +44517,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_198" +"(let-values(((v_199" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44520,7 +44529,7 @@ static const char *startup_source = "((ns119_0) ns_11)" "((temp120_0)" "(namespace-phase ns_11))" -"((id121_0) id_101))" +"((id121_0) id_102))" "(binding-lookup50.1" " #f" " #f" @@ -44532,7 +44541,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_198)" +"(if(variable? v_199)" "(void)" "(let-values()" "(escape_0" @@ -44559,7 +44568,7 @@ static const char *startup_source = " b_14" " ns_11" "(namespace-phase ns_11)" -" id_101)))" +" id_102)))" "(module-binding-phase b_14)" "(module-binding-sym b_14))" "(values" @@ -44574,9 +44583,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_294) failure-thunk_5))" -"(if or-part_294" -" or-part_294" +"(let-values(((or-part_297) failure-thunk_5))" +"(if or-part_297" +" or-part_297" "(raise" "(exn:fail:contract:variable" "(format" @@ -44632,8 +44641,8 @@ static const char *startup_source = "(namespace-phase ns_82)" " sym_80)" "(values))))" -"(let-values(((id_102)(1/datum->syntax #f sym_80)))" -"(let-values(((temp123_1)(1/namespace-syntax-introduce id_102 ns_82))" +"(let-values(((id_103)(1/datum->syntax #f sym_80)))" +"(let-values(((temp123_1)(1/namespace-syntax-introduce id_103 ns_82))" "((temp124_0)" "(let-values(((temp126_0)(namespace-mpi ns_82))" "((temp127_3)(namespace-phase ns_82))" @@ -44731,39 +44740,39 @@ static const char *startup_source = "(lambda(s3_1 ns1_4 compile2_0)" "(begin" " 'eval4" -"(let-values(((s_447) s3_1))" +"(let-values(((s_446) s3_1))" "(let-values(((ns_87)(if(eq? ns1_4 unsafe-undefined)(1/current-namespace) ns1_4)))" "(let-values(((compile_1)" "(if(eq? compile2_0 unsafe-undefined)" "(lambda(s_75 ns_55)(begin 'compile(1/compile s_75 ns_55 #f)))" " compile2_0)))" "(let-values()" -"(if(let-values(((or-part_28)(compiled-in-memory? s_447)))" +"(if(let-values(((or-part_28)(compiled-in-memory? s_446)))" "(if or-part_28" " or-part_28" -"(let-values(((or-part_291)(1/linklet-directory? s_447)))" -"(if or-part_291 or-part_291(1/linklet-bundle? s_447)))))" -"(let-values()(eval-compiled s_447 ns_87))" -"(if(if(syntax?$1 s_447)" -"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_447))))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_296)(1/linklet-directory?(1/syntax-e s_447))))" -"(if or-part_296 or-part_296(1/linklet-bundle?(1/syntax-e s_447))))))" +"(let-values(((or-part_295)(1/linklet-directory? s_446)))" +"(if or-part_295 or-part_295(1/linklet-bundle? s_446)))))" +"(let-values()(eval-compiled s_446 ns_87))" +"(if(if(syntax?$1 s_446)" +"(let-values(((or-part_298)(compiled-in-memory?(1/syntax-e s_446))))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_446))))" +"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_446))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_447) ns_87))" +"(let-values()(eval-compiled(1/syntax->datum s_446) ns_87))" "(let-values()" -"(let-values(((s66_0) s_447)" +"(let-values(((s66_0) s_446)" "((ns67_1) ns_87)" "((temp68_2)" -"(lambda(s_181 ns_88 tail?_52)" -"(eval-compiled(compile_1 s_181 ns_88) ns_88 tail?_52)))" +"(lambda(s_180 ns_88 tail?_52)" +"(eval-compiled(compile_1 s_180 ns_88) ns_88 tail?_52)))" "((temp69_0) #f))" "(per-top-level54.1 #f #f temp69_0 #t #f temp68_2 #f s66_0 ns67_1)))))))))))))" "(case-lambda" -"((s_446)(begin 'eval(eval4_0 s_446 unsafe-undefined unsafe-undefined)))" +"((s_445)(begin 'eval(eval4_0 s_445 unsafe-undefined unsafe-undefined)))" "((s_76 ns_89 compile2_1)(eval4_0 s_76 ns_89 compile2_1))" -"((s_442 ns1_5)(eval4_0 s_442 ns1_5 unsafe-undefined)))))" +"((s_441 ns1_5)(eval4_0 s_441 ns1_5 unsafe-undefined)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled9_0)" @@ -44787,27 +44796,27 @@ static const char *startup_source = "(lambda(s15_1 ns11_1 serializable?12_0 expand13_0 to-source?14_0)" "(begin" " 'compile16" -"(let-values(((s_185) s15_1))" +"(let-values(((s_184) s15_1))" "(let-values(((ns_93)(if(eq? ns11_1 unsafe-undefined)(1/current-namespace) ns11_1)))" "(let-values(((serializable?_4) serializable?12_0))" "(let-values(((expand_0)(if(eq? expand13_0 unsafe-undefined) expand$1 expand13_0)))" "(let-values(((to-source?_4) to-source?14_0))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_185)" -"(let-values()(list s_185))" -"(if(if(syntax?$1 s_185)" -"(1/compiled-expression?(1/syntax-e s_185))" +"(if(1/compiled-expression? s_184)" +"(let-values()(list s_184))" +"(if(if(syntax?$1 s_184)" +"(1/compiled-expression?(1/syntax-e s_184))" " #f)" -"(let-values()(list(1/syntax-e s_185)))" +"(let-values()(list(1/syntax-e s_184)))" "(let-values()" -"(let-values(((s72_0) s_185)" +"(let-values(((s72_0) s_184)" "((ns73_0) ns_93)" "((temp74_0)" -"(lambda(s_448 ns_47 as-tail?_4)" +"(lambda(s_447 ns_47 as-tail?_4)" "(list" "(compile-single$1" -" s_448" +" s_447" " ns_47" " expand_0" " serializable?_4" @@ -44837,8 +44846,8 @@ static const char *startup_source = " cs77_0))))))))))))))" "(case-lambda" "((s_11)(begin 'compile(compile16_0 s_11 unsafe-undefined #t unsafe-undefined #f)))" -"((s_449 ns_94 serializable?_5 expand_1 to-source?14_1)" -"(compile16_0 s_449 ns_94 serializable?_5 expand_1 to-source?14_1))" +"((s_448 ns_94 serializable?_5 expand_1 to-source?14_1)" +"(compile16_0 s_448 ns_94 serializable?_5 expand_1 to-source?14_1))" "((s_14 ns_95 serializable?_6 expand13_1)(compile16_0 s_14 ns_95 serializable?_6 expand13_1 #f))" "((s_15 ns_96 serializable?12_1)(compile16_0 s_15 ns_96 serializable?12_1 unsafe-undefined #f))" "((s_83 ns11_2)(compile16_0 s_83 ns11_2 #t unsafe-undefined #f)))))" @@ -44852,7 +44861,7 @@ static const char *startup_source = "(let-values(((ns_63)(if(eq? ns18_1 unsafe-undefined)(1/current-namespace) ns18_1)))" "(let-values()(1/compile s_20 ns_63 #t expand$1 #t))))))))" "(case-lambda" -"((s_450)(begin(compile-to-linklets20_0 s_450 unsafe-undefined)))" +"((s_449)(begin(compile-to-linklets20_0 s_449 unsafe-undefined)))" "((s_22 ns18_2)(compile-to-linklets20_0 s_22 ns18_2)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44883,10 +44892,10 @@ static const char *startup_source = "(make-struct-field-accessor -ref_80 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_451 ns_97 expand_2 serializable?_7 to-source?_5)" +"(lambda(s_450 ns_97 expand_2 serializable?_7 to-source?_5)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_451 ns_97 #f #t serializable?_7)))" +"(let-values(((exp-s_4)(expand_2 s_450 ns_97 #f #t serializable?_7)))" "((letrec-values(((loop_100)" "(lambda(exp-s_5)" "(begin" @@ -44917,42 +44926,42 @@ static const char *startup_source = "(let-values()" "(let-values(((temp87_0)" "(reverse$1" -"(let-values(((lst_165)" +"(let-values(((lst_168)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_165)))" +"(let-values()(check-list lst_168)))" "((letrec-values(((for-loop_5)" -"(lambda(fold-var_271 lst_299)" +"(lambda(fold-var_273 lst_301)" "(begin" " 'for-loop" -"(if(pair? lst_299)" +"(if(pair? lst_301)" "(let-values(((e_74)" -"(unsafe-car lst_299))" -"((rest_86)" -"(unsafe-cdr lst_299)))" -"(let-values(((fold-var_162)" -"(let-values(((fold-var_163)" -" fold-var_271))" -"(let-values(((fold-var_164)" +"(unsafe-car lst_301))" +"((rest_88)" +"(unsafe-cdr lst_301)))" +"(let-values(((fold-var_166)" +"(let-values(((fold-var_167)" +" fold-var_273))" +"(let-values(((fold-var_168)" "(let-values()" "(cons" "(let-values()" "(loop_100" " e_74))" -" fold-var_163))))" +" fold-var_167))))" "(values" -" fold-var_164)))))" +" fold-var_168)))))" "(if(not #f)" -"(for-loop_5 fold-var_162 rest_86)" -" fold-var_162)))" -" fold-var_271)))))" +"(for-loop_5 fold-var_166 rest_88)" +" fold-var_166)))" +" fold-var_273)))))" " for-loop_5)" " null" -" lst_165)))))" +" lst_168)))))" "((to-source?88_0) to-source?_5))" "(compiled-tops->compiled-top8.1 #f #f to-source?88_0 temp87_0)))" "(let-values()" @@ -44977,7 +44986,7 @@ static const char *startup_source = "(lambda(s27_1 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)" "(begin" " 'expand28" -"(let-values(((s_452) s27_1))" +"(let-values(((s_451) s27_1))" "(let-values(((ns_98)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))" "(let-values(((observable?_0) observable?24_0))" "(let-values(((to-parsed?_2) to-parsed?25_0))" @@ -44993,12 +45002,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s94_1) s_452)" +"(let-values(((s94_1) s_451)" "((ns95_0) ns_98)" "((temp96_2)" -"(lambda(s_313 ns_99 as-tail?_5)" +"(lambda(s_314 ns_99 as-tail?_5)" "(expand-single" -" s_313" +" s_314" " ns_99" " observer_2" " to-parsed?_2" @@ -45017,24 +45026,24 @@ static const char *startup_source = " s94_1" " ns95_0))))))))))))))))" "(case-lambda" -"((s_453)(begin 'expand(expand28_0 s_453 unsafe-undefined #f #f #f)))" -"((s_454 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" -"(expand28_0 s_454 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" -"((s_455 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_455 ns_100 observable?_2 to-parsed?25_1 #f))" +"((s_452)(begin 'expand(expand28_0 s_452 unsafe-undefined #f #f #f)))" +"((s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" +"(expand28_0 s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" +"((s_454 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_454 ns_100 observable?_2 to-parsed?25_1 #f))" "((s_305 ns_101 observable?24_1)(expand28_0 s_305 ns_101 observable?24_1 #f #f))" -"((s_456 ns23_1)(expand28_0 s_456 ns23_1 #f #f #f)))))" +"((s_455 ns23_1)(expand28_0 s_455 ns23_1 #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_58 ns_102 observer_3 to-parsed?_4 serializable?_9)" "(begin" "(let-values(((rebuild-s_2)(keep-properties-only s_58)))" -"(let-values(((ctx_68)" +"(let-values(((ctx_67)" "(let-values(((ns100_0) ns_102)" "((to-parsed?101_0) to-parsed?_4)" "((serializable?102_0) serializable?_9)" "((observer103_0) observer_3))" "(make-expand-context10.1 serializable?102_0 observer103_0 to-parsed?101_0 ns100_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_68)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_67)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_0)" "(if to-parsed?_4" @@ -45055,14 +45064,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_10 exp-s_0 ns_102)" +"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_0 ns_102)" "(values))))" "(let-values(((new-s_3)" "(let-values(((temp109_0)(append require-lifts_3 lifts_10))" "((temp110_1)" "(lambda(form_1)" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_68)))" +"(let-values(((obs_45)(expand-context-observer ctx_67)))" "(if obs_45" "(let-values()" "(let-values()(call-expand-observe obs_45 'next)))" @@ -45079,7 +45088,7 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_46)(expand-context-observer ctx_68)))" +"(let-values(((obs_46)(expand-context-observer ctx_67)))" "(if obs_46" "(let-values()" "(let-values()(call-expand-observe obs_46 'next)))" @@ -45093,7 +45102,7 @@ static const char *startup_source = "((exp-s112_0) exp-s_0)" "((temp113_2)(namespace-phase ns_102)))" "(wrap-lifts-as-begin16.1 temp111_1 temp110_1 temp109_0 exp-s112_0 temp113_2))))" -"(begin(log-top-begin-after ctx_68 new-s_3) new-s_3))))))))))))" +"(begin(log-top-begin-after ctx_67 new-s_3) new-s_3))))))))))))" "(define-values" "(expand-once$1)" "(let-values(((expand-once32_0)" @@ -45106,7 +45115,7 @@ static const char *startup_source = "(let-values(((s114_0) s_66)" "((ns115_0) ns_103)" "((temp116_0)" -"(lambda(s_457 ns_104 as-tail?_6)(expand-single-once s_457 ns_104)))" +"(lambda(s_456 ns_104 as-tail?_6)(expand-single-once s_456 ns_104)))" "((cons117_0) cons)" "((re-pair118_0) re-pair)" "((temp119_1) #t)" @@ -45123,14 +45132,14 @@ static const char *startup_source = " ns115_0)))))))))" "(case-lambda" "((s_38)(begin 'expand-once(expand-once32_0 s_38 unsafe-undefined)))" -"((s_318 ns30_1)(expand-once32_0 s_318 ns30_1)))))" +"((s_319 ns30_1)(expand-once32_0 s_319 ns30_1)))))" "(define-values" "(expand-single-once)" -"(lambda(s_458 ns_83)" +"(lambda(s_457 ns_83)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" -" s_458" +" s_457" "(let-values(((v_121)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" "(let-values(((the-struct_69) v_121))" "(if(expand-context/outer? the-struct_69)" @@ -45201,7 +45210,7 @@ static const char *startup_source = "(lambda(s35_0 ns34_0)" "(begin" " 'expand-to-top-form36" -"(let-values(((s_459) s35_0))" +"(let-values(((s_458) s35_0))" "(let-values(((ns_105)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -45214,7 +45223,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s127_0) s_459)" +"(let-values(((s127_0) s_458)" "((ns128_0) ns_105)" "((temp129_1) #f)" "((temp130_0) #f)" @@ -45230,8 +45239,8 @@ static const char *startup_source = " s127_0" " ns128_0)))))))))))))" "(case-lambda" -"((s_460)(begin 'expand-to-top-form(expand-to-top-form36_0 s_460 unsafe-undefined)))" -"((s_461 ns34_1)(expand-to-top-form36_0 s_461 ns34_1)))))" +"((s_459)(begin 'expand-to-top-form(expand-to-top-form36_0 s_459 unsafe-undefined)))" +"((s_460 ns34_1)(expand-to-top-form36_0 s_460 ns34_1)))))" "(define-values" "(per-top-level54.1)" "(lambda(combine39_0" @@ -45255,27 +45264,27 @@ static const char *startup_source = "(let-values(((serializable?_10) serializable?43_0))" "(let-values(((observer_5) observer44_0))" "(let-values()" -"(let-values(((s_217)(maybe-intro given-s_0 ns_106)))" -"(let-values(((ctx_69)" +"(let-values(((s_216)(maybe-intro given-s_0 ns_106)))" +"(let-values(((ctx_68)" "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" "(make-expand-context10.1 #f observer133_0 #f ns132_0))))" -"(let-values(((phase_133)(namespace-phase ns_106)))" +"(let-values(((phase_134)(namespace-phase ns_106)))" "((letrec-values(((loop_101)" -"(lambda(s_462 phase_134 ns_107 as-tail?_7)" +"(lambda(s_461 phase_135 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_199) ctx_69))" -"(let-values(((the-struct_71) v_199))" +"(let-values(((v_200) ctx_68))" +"(let-values(((the-struct_71) v_200))" "(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_199)))" +" v_200)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase135_1)" -" phase_134)" +" phase_135)" "((namespace136_0)" " ns_107)" "((just-once?137_0)" @@ -45370,7 +45379,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_71))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_462 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_461 #f)))" "(let-values((()" "(begin" "(let-values(((obs_47)" @@ -45382,25 +45391,25 @@ static const char *startup_source = "(call-expand-observe" " obs_47" " 'visit" -" s_462)))" +" s_461)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" -" s_462" -"(let-values(((v_200) tl-ctx_0))" -"(let-values(((the-struct_73) v_200))" +" s_461" +"(let-values(((v_201) tl-ctx_0))" +"(let-values(((the-struct_73) v_201))" "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" "(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_200)))" +" v_201)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase141_0)" -" phase_134)" +" phase_135)" "((namespace142_0)" " ns_107))" "(expand-context/inner2.1" @@ -45497,9 +45506,9 @@ static const char *startup_source = " the-struct_73)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_7)))" -"(if(let-values(((or-part_297)" +"(if(let-values(((or-part_300)" "(pair? require-lifts_5)))" -"(if or-part_297 or-part_297(pair? lifts_12)))" +"(if or-part_300 or-part_300(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_4)" "(let-values(((temp143_1)" @@ -45507,7 +45516,7 @@ static const char *startup_source = " require-lifts_5" " lifts_12))" "((exp-s144_0) exp-s_7)" -"((phase145_0) phase_134))" +"((phase145_0) phase_135))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" @@ -45530,7 +45539,7 @@ static const char *startup_source = " new-s_4" "(loop_101" " new-s_4" -" phase_134" +" phase_135" " ns_107" " as-tail?_7)))))" "(if(not single_0)" @@ -45554,14 +45563,14 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_134)))" +" phase_135)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_50)" "(expand-context-observer" -" ctx_69)))" +" ctx_68)))" "(if obs_50" "(let-values()" "(let-values()" @@ -45571,38 +45580,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_29 begin146_0 e147_0)" -"(let-values(((s_463)" +"(let-values(((s_462)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_463))" +" s_462))" "(let-values(((begin146_1" " e147_1)" -"(let-values(((s_225)" +"(let-values(((s_162)" "(if(syntax?$1" -" s_463)" +" s_462)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_462)" +" s_462)))" "(if(pair?" -" s_225)" +" s_162)" "(let-values(((begin148_0)" "(let-values(((s_115)" "(car" -" s_225)))" +" s_162)))" " s_115))" "((e149_0)" -"(let-values(((s_438)" +"(let-values(((s_437)" "(cdr" -" s_225)))" -"(let-values(((s_226)" +" s_162)))" +"(let-values(((s_224)" "(if(syntax?$1" -" s_438)" +" s_437)" "(syntax-e$1" -" s_438)" -" s_438)))" +" s_437)" +" s_437)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_226)))" +" s_224)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45641,7 +45650,7 @@ static const char *startup_source = "(let-values()" "(loop_101" "(car es_2)" -" phase_134" +" phase_135" " ns_107" " as-tail?_7))" "(let-values()" @@ -45663,14 +45672,14 @@ static const char *startup_source = "(loop_101" "(car" " es_2)" -" phase_134" +" phase_135" " ns_107" " #f)" "(begin" "(loop_101" "(car" " es_2)" -" phase_134" +" phase_135" " ns_107" " #f)" "(void)))))" @@ -45724,38 +45733,38 @@ static const char *startup_source = "(let-values(((ok?_30" " begin-for-syntax150_0" " e151_0)" -"(let-values(((s_464)" +"(let-values(((s_463)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_464))" +" s_463))" "(let-values(((begin-for-syntax150_1" " e151_1)" "(let-values(((s_127)" "(if(syntax?$1" -" s_464)" +" s_463)" "(syntax-e$1" -" s_464)" -" s_464)))" +" s_463)" +" s_463)))" "(if(pair?" " s_127)" "(let-values(((begin-for-syntax152_0)" -"(let-values(((s_465)" +"(let-values(((s_464)" "(car" " s_127)))" -" s_465))" +" s_464))" "((e153_0)" -"(let-values(((s_466)" +"(let-values(((s_465)" "(cdr" " s_127)))" -"(let-values(((s_467)" +"(let-values(((s_466)" "(if(syntax?$1" -" s_466)" +" s_465)" "(syntax-e$1" -" s_466)" -" s_466)))" +" s_465)" +" s_465)))" "(let-values(((flat-s_22)" "(to-syntax-list.1" -" s_467)))" +" s_466)))" "(if(not" " flat-s_22)" "(let-values()" @@ -45777,7 +45786,7 @@ static const char *startup_source = " begin-for-syntax150_1" " e151_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_134)))" +"(add1 phase_135)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" @@ -45810,7 +45819,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_72)" "(reverse$1" -"(let-values(((lst_205)" +"(let-values(((lst_208)" " e151_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45818,24 +45827,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_205)))" -"((letrec-values(((for-loop_266)" -"(lambda(fold-var_272" -" lst_300)" +" lst_208)))" +"((letrec-values(((for-loop_267)" +"(lambda(fold-var_274" +" lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_300)" -"(let-values(((s_468)" +" lst_302)" +"(let-values(((s_467)" "(unsafe-car" -" lst_300))" -"((rest_111)" +" lst_302))" +"((rest_113)" "(unsafe-cdr" -" lst_300)))" -"(let-values(((fold-var_255)" -"(let-values(((fold-var_273)" -" fold-var_272))" -"(let-values(((fold-var_201)" +" lst_302)))" +"(let-values(((fold-var_257)" +"(let-values(((fold-var_275)" +" fold-var_274))" +"(let-values(((fold-var_205)" "(let-values()" "(cons" "(let-values()" @@ -45851,23 +45860,23 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_101" -" s_468" +" s_467" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_273))))" +" fold-var_275))))" "(values" -" fold-var_201)))))" +" fold-var_205)))))" "(if(not" " #f)" -"(for-loop_266" -" fold-var_255" -" rest_111)" -" fold-var_255)))" -" fold-var_272)))))" -" for-loop_266)" +"(for-loop_267" +" fold-var_257" +" rest_113)" +" fold-var_257)))" +" fold-var_274)))))" +" for-loop_267)" " null" -" lst_205))))))" +" lst_208))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_6)" @@ -45901,41 +45910,41 @@ static const char *startup_source = " ns_107" " as-tail?_7))))))))))))))))))" " loop_101)" -" s_217" -" phase_133" +" s_216" +" phase_134" " ns_106" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_341 ns_108)" -"(begin(if(syntax?$1 s_341) s_341(1/namespace-syntax-introduce(1/datum->syntax #f s_341) ns_108)))))" +"(lambda(s_340 ns_108)" +"(begin(if(syntax?$1 s_340) s_340(1/namespace-syntax-introduce(1/datum->syntax #f s_340) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_469 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_469)(cons form-id_0 r_44) s_469 s_469) s_469))))" +"(lambda(form-id_0 s_468 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_468)(cons form-id_0 r_44) s_468 s_468) s_468))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_344 ctx_70)" +"(lambda(s_343 ctx_69)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_70)))" +"(let-values(((ns_109)(expand-context-namespace ctx_69)))" "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp154_1)(make-top-level-lift ctx_70)))" +"(let-values(((temp154_1)(make-top-level-lift ctx_69)))" "(make-lift-context6.1 #f temp154_1))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" "(namespace-phase ns_109)" "(make-parse-top-lifted-require ns_109))))" "(let-values(((exp-s_8)" -"(let-values(((s155_0) s_344)" +"(let-values(((s155_0) s_343)" "((temp156_0)" -"(let-values(((v_201) ctx_70))" -"(let-values(((the-struct_75) v_201))" +"(let-values(((v_202) ctx_69))" +"(let-values(((the-struct_75) v_202))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_201)))" +"(root-expand-context/outer-inner v_202)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" @@ -46018,31 +46027,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_348 phase_135)" +"(lambda(s_347 phase_136)" "(let-values(((ok?_31 #%require161_0 req162_0)" -"(let-values(((s_470)(syntax-disarm$1 s_348)))" -"(let-values(((orig-s_35) s_470))" +"(let-values(((s_469)(syntax-disarm$1 s_347)))" +"(let-values(((orig-s_35) s_469))" "(let-values(((#%require161_1 req162_1)" -"(let-values(((s_471)(if(syntax?$1 s_470)(syntax-e$1 s_470) s_470)))" -"(if(pair? s_471)" -"(let-values(((#%require163_0)(let-values(((s_472)(car s_471))) s_472))" +"(let-values(((s_470)(if(syntax?$1 s_469)(syntax-e$1 s_469) s_469)))" +"(if(pair? s_470)" +"(let-values(((#%require163_0)(let-values(((s_471)(car s_470))) s_471))" "((req164_0)" -"(let-values(((s_473)(cdr s_471)))" -"(let-values(((s_474)" -"(if(syntax?$1 s_473)" -"(syntax-e$1 s_473)" -" s_473)))" -"(if(pair? s_474)" +"(let-values(((s_472)(cdr s_470)))" +"(let-values(((s_473)" +"(if(syntax?$1 s_472)" +"(syntax-e$1 s_472)" +" s_472)))" +"(if(pair? s_473)" "(let-values(((req165_0)" -"(let-values(((s_475)(car s_474)))" -" s_475))" +"(let-values(((s_474)(car s_473)))" +" s_474))" "(()" -"(let-values(((s_476)(cdr s_474)))" -"(let-values(((s_477)" -"(if(syntax?$1 s_476)" -"(syntax-e$1 s_476)" -" s_476)))" -"(if(null? s_477)" +"(let-values(((s_475)(cdr s_473)))" +"(let-values(((s_476)" +"(if(syntax?$1 s_475)" +"(syntax-e$1 s_475)" +" s_475)))" +"(if(null? s_476)" "(values)" "(raise-syntax-error$1" " #f" @@ -46054,10 +46063,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require161_1 req162_1))))))" "(let-values(((temp166_0)(list req162_0))" -"((s167_0) s_348)" +"((s167_0) s_347)" "((ns168_0) ns_110)" -"((phase169_1) phase_135)" -"((phase170_0) phase_135)" +"((phase169_1) phase_136)" +"((phase170_0) phase_136)" "((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))" "((temp172_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46090,48 +46099,48 @@ static const char *startup_source = "(lifted-parsed-begin22.1" "(append" "(reverse$1" -"(let-values(((lst_301) require-lifts_6))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_274 lst_302)" -"(begin" -" 'for-loop" -"(if(pair? lst_302)" -"(let-values(((req_19)(unsafe-car lst_302))" -"((rest_172)(unsafe-cdr lst_302)))" -"(let-values(((fold-var_275)" -"(let-values(((fold-var_276) fold-var_274))" -"(let-values(((fold-var_277)" -"(let-values()" -"(cons" -"(let-values()" -"(parsed-require23.1 req_19))" -" fold-var_276))))" -"(values fold-var_277)))))" -"(if(not #f)(for-loop_267 fold-var_275 rest_172) fold-var_275)))" -" fold-var_274)))))" -" for-loop_267)" -" null" -" lst_301))))" -"(reverse$1" -"(let-values(((lst_303)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_303) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_303)))" "((letrec-values(((for-loop_268)" -"(lambda(fold-var_278 lst_304)" +"(lambda(fold-var_276 lst_304)" "(begin" " 'for-loop" "(if(pair? lst_304)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_304))" +"(let-values(((req_19)(unsafe-car lst_304))" "((rest_173)(unsafe-cdr lst_304)))" +"(let-values(((fold-var_277)" +"(let-values(((fold-var_278) fold-var_276))" "(let-values(((fold-var_279)" -"(let-values(((fold-var_280) fold-var_278))" +"(let-values()" +"(cons" +"(let-values()" +"(parsed-require23.1 req_19))" +" fold-var_278))))" +"(values fold-var_279)))))" +"(if(not #f)(for-loop_268 fold-var_277 rest_173) fold-var_277)))" +" fold-var_276)))))" +" for-loop_268)" +" null" +" lst_303))))" +"(reverse$1" +"(let-values(((lst_305)(get-lifts-as-lists lifts_13)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_305)))" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_280 lst_306)" +"(begin" +" 'for-loop" +"(if(pair? lst_306)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_306))" +"((rest_174)(unsafe-cdr lst_306)))" "(let-values(((fold-var_281)" +"(let-values(((fold-var_282) fold-var_280))" +"(let-values(((fold-var_283)" "(let-values()" "(cons" "(let-values()" @@ -46155,34 +46164,34 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_59)" +"(let-values(((the-struct_60)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_59)" +" the-struct_60)" "(let-values(((last174_0)" " dv_0))" "(lifted-parsed-begin22.1" "(lifted-parsed-begin-seq" -" the-struct_59)" +" the-struct_60)" " last174_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_59)))" +" the-struct_60)))" " dv_0)))))" -" fold-var_280))))" -"(values fold-var_281)))))" -"(if(not #f)(for-loop_268 fold-var_279 rest_173) fold-var_279)))" -" fold-var_278)))))" -" for-loop_268)" +" fold-var_282))))" +"(values fold-var_283)))))" +"(if(not #f)(for-loop_269 fold-var_281 rest_174) fold-var_281)))" +" fold-var_280)))))" +" for-loop_269)" " null" -" lst_303)))))" +" lst_305)))))" " exp-s_9))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_71 require-lifts_7 lifts_14 exp-s_10 ns_111)" +"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_10 ns_111)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_71)))" +"(let-values(((obs_56)(expand-context-observer ctx_70)))" "(if obs_56" "(let-values()" "(let-values(((new-s_7)" @@ -46195,29 +46204,29 @@ static const char *startup_source = " temp175_0" " exp-s176_0" " temp177_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_7)(log-top-begin-before ctx_71 new-s_7))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_7)(log-top-begin-before ctx_70 new-s_7))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_72 new-s_8)" +"(lambda(ctx_71 new-s_8)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_72)))" +"(let-values(((obs_57)(expand-context-observer ctx_71)))" "(if obs_57" "(let-values()" "(let-values(((ok?_32 begin178_0 e179_0)" -"(let-values(((s_478) new-s_8))" -"(let-values(((orig-s_36) s_478))" +"(let-values(((s_477) new-s_8))" +"(let-values(((orig-s_36) s_477))" "(let-values(((begin178_1 e179_1)" -"(let-values(((s_479)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" -"(if(pair? s_479)" -"(let-values(((begin180_0)(let-values(((s_480)(car s_479))) s_480))" +"(let-values(((s_478)(if(syntax?$1 s_477)(syntax-e$1 s_477) s_477)))" +"(if(pair? s_478)" +"(let-values(((begin180_0)(let-values(((s_479)(car s_478))) s_479))" "((e181_0)" -"(let-values(((s_481)(cdr s_479)))" -"(let-values(((s_482)" -"(if(syntax?$1 s_481)" -"(syntax-e$1 s_481)" -" s_481)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_482)))" +"(let-values(((s_480)(cdr s_478)))" +"(let-values(((s_481)" +"(if(syntax?$1 s_480)" +"(syntax-e$1 s_480)" +" s_480)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_481)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46237,25 +46246,25 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_73 new-s_9)" +"(lambda(ctx_72 new-s_9)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_73)))" +"(let-values(((obs_58)(expand-context-observer ctx_72)))" "(if obs_58" "(let-values()" "(let-values(((ok?_33 begin182_0 e183_0)" -"(let-values(((s_393) new-s_9))" -"(let-values(((orig-s_37) s_393))" +"(let-values(((s_392) new-s_9))" +"(let-values(((orig-s_37) s_392))" "(let-values(((begin182_1 e183_1)" -"(let-values(((s_483)(if(syntax?$1 s_393)(syntax-e$1 s_393) s_393)))" -"(if(pair? s_483)" -"(let-values(((begin184_0)(let-values(((s_138)(car s_483))) s_138))" +"(let-values(((s_482)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" +"(if(pair? s_482)" +"(let-values(((begin184_0)(let-values(((s_138)(car s_482))) s_138))" "((e185_0)" -"(let-values(((s_139)(cdr s_483)))" -"(let-values(((s_484)" +"(let-values(((s_139)(cdr s_482)))" +"(let-values(((s_483)" "(if(syntax?$1 s_139)" "(syntax-e$1 s_139)" " s_139)))" -"(let-values(((flat-s_24)(to-syntax-list.1 s_484)))" +"(let-values(((flat-s_24)(to-syntax-list.1 s_483)))" "(if(not flat-s_24)" "(let-values()" "(raise-syntax-error$1" @@ -46266,7 +46275,7 @@ static const char *startup_source = "(values begin184_0 e185_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin182_1 e183_1))))))" -"(let-values(((obs_59)(expand-context-observer ctx_73)))" +"(let-values(((obs_59)(expand-context-observer ctx_72)))" "(if obs_59" "(let-values()" "(let-values()" @@ -46353,19 +46362,19 @@ static const char *startup_source = "(if(list? l_75)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_295)(not p_55)))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_296)(complete-path-string? p_55)))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_298)(not p_55)))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_299)(complete-path-string? p_55)))" +"(if or-part_299" +" or-part_299" "(if(hash? p_55)" "(let-values(((ht_148) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_270)" "(lambda(result_115 i_166)" "(begin" " 'for-loop" @@ -46397,12 +46406,12 @@ static const char *startup_source = "(if(if(not((lambda x_82(not result_116)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_269" +"(for-loop_270" " result_116" "(hash-iterate-next ht_148 i_166))" " result_116)))" " result_115)))))" -" for-loop_269)" +" for-loop_270)" " #t" "(hash-iterate-first ht_148))))" " #f))))))" @@ -46433,12 +46442,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_271)" "(lambda(table_205 i_167)" "(begin" " 'for-loop" "(if i_167" -"(let-values(((k_36 v_202)(hash-iterate-key+value ht_149 i_167)))" +"(let-values(((k_36 v_203)(hash-iterate-key+value ht_149 i_167)))" "(let-values(((table_206)" "(let-values(((table_180) table_205))" "(let-values(((table_207)" @@ -46447,17 +46456,17 @@ static const char *startup_source = "(let-values()" "(values" " k_36" -"(to-path v_202)))))" +"(to-path v_203)))))" "(hash-set" " table_180" " key_81" " val_76)))))" "(values table_207)))))" "(if(not #f)" -"(for-loop_270 table_206(hash-iterate-next ht_149 i_167))" +"(for-loop_271 table_206(hash-iterate-next ht_149 i_167))" " table_206)))" " table_205)))))" -" for-loop_270)" +" for-loop_271)" " '#hash()" "(hash-iterate-first ht_149)))))))))" " l_8)))))))" @@ -46500,17 +46509,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_203)" +"(lambda(v_204)" "(begin" "(if((lambda(v_69)" "(let-values(((or-part_32)(eq? v_69 'modify-seconds)))" "(if or-part_32 or-part_32(eq? v_69 'exists))))" -" v_203)" +" v_204)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_203)))" -" v_203))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_204)))" +" v_204))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_204)(if v_204 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_205)(if v_205 #t #f))))" "(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" @@ -46522,13 +46531,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_72)(begin 'eval((1/current-eval)(intro s_72))))" -"((s_190 ns_112)" +"((s_189 ns_112)" "(begin" " (if (1/namespace? ns_112) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_112)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_112)" -"(let-values()((1/current-eval)(intro s_190 ns_112))))))))))" +"(let-values()((1/current-eval)(intro s_189 ns_112))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -46548,52 +46557,52 @@ static const char *startup_source = " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_178)(begin 'compile((1/current-compile)(intro s_178) #f))))" +"(define-values(compile$1)(lambda(s_177)(begin 'compile((1/current-compile)(intro s_177) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_485)" +"(lambda(s_484)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_485) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_485)))" -"((1/current-compile) s_485 #f)))))))" +" (if (syntax?$1 s_484) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_484)))" +"((1/current-compile) s_484 #f)))))))" "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_440)" +"(lambda(s_439)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_440) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_440)))" -"(expand$1 s_440(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_447)(begin 'expand-once(expand-once$1(intro s_447)))))" +" (if (syntax?$1 s_439) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_439)))" +"(expand$1 s_439(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_446)(begin 'expand-once(expand-once$1(intro s_446)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_179)" +"(lambda(s_178)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_179) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_179)))" -"(expand-once$1 s_179)))))))" +" (if (syntax?$1 s_178) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_178)))" +"(expand-once$1 s_178)))))))" "(define-values(1/expand-to-top-form)(lambda(s_75)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_75)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_171)" +"(lambda(s_170)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_171)" +"(if(syntax?$1 s_170)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_171)))" -"(expand-to-top-form$1 s_171)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_170)))" +"(expand-to-top-form$1 s_170)))))))" "(define-values" "(intro)" "(let-values(((intro3_0)" @@ -46624,9 +46633,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_214)(1/module-path? mod-path_5)))" -"(if or-part_214" -" or-part_214" +"(if(let-values(((or-part_217)(1/module-path? mod-path_5)))" +"(if or-part_217" +" or-part_217" "(let-values(((or-part_3)(1/module-path-index? mod-path_5)))" "(if or-part_3 or-part_3(1/resolved-module-path? mod-path_5)))))" "(void)" @@ -46659,7 +46668,7 @@ static const char *startup_source = " (let-values () (raise-argument-error who_24 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_114)(1/current-namespace)))" -"(let-values(((mpi_47)" +"(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)" @@ -46668,14 +46677,14 @@ static const char *startup_source = "(1/module-path-index-join" "(resolved-module-path->module-path mod-path_5)" " #f))))))" -"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_47 #t)))" -"(let-values(((phase_109)(namespace-phase ns_114)))" +"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" +"(let-values(((phase_110)(namespace-phase ns_114)))" "(if(not sym_71)" "(let-values()" "(let-values(((ns17_0) ns_114)" -"((mpi18_0) mpi_47)" -"((phase19_2) phase_109)" -"((phase20_1) phase_109)" +"((mpi18_0) mpi_46)" +"((phase19_2) phase_110)" +"((phase20_1) phase_110)" "((temp21_1) #f))" "(namespace-module-instantiate!96.1" " temp21_1" @@ -46688,9 +46697,9 @@ static const char *startup_source = "(if(equal? sym_71 0)" "(let-values()" "(let-values(((ns22_0) ns_114)" -"((mpi23_0) mpi_47)" -"((phase24_3) phase_109)" -"((phase25_0) phase_109))" +"((mpi23_0) mpi_46)" +"((phase24_3) phase_110)" +"((phase25_0) phase_110))" "(namespace-module-instantiate!96.1" " #t" " phase25_0" @@ -46702,9 +46711,9 @@ static const char *startup_source = "(if(void? sym_71)" "(let-values()" "(let-values(((ns26_0) ns_114)" -"((mpi27_0) mpi_47)" -"((phase28_4) phase_109)" -"((phase29_0) phase_109))" +"((mpi27_0) mpi_46)" +"((phase28_4) phase_110)" +"((phase29_0) phase_110))" "(namespace-module-visit!104.1" " phase29_0" " ns26_0" @@ -46747,9 +46756,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ns30_2) ns_114)" -"((mpi31_0) mpi_47)" -"((phase32_2) phase_109)" -"((phase33_1) phase_109)" +"((mpi31_0) mpi_46)" +"((phase32_2) phase_110)" +"((phase33_1) phase_110)" "((temp34_4) #f))" "(namespace-module-instantiate!96.1" " temp34_4" @@ -46765,14 +46774,14 @@ static const char *startup_source = "(module-path-index-shift" "(module-binding-module binding_5)" "(module-self m_22)" -" mpi_47))))" +" mpi_46))))" "(let-values(((m-ns_16)" "(let-values(((ns35_0) ns_114)" "((ex-mod-name36_0)" " ex-mod-name_0)" "((temp37_1)" "(phase-" -" phase_109" +" phase_110" " ex-phase_0))" "((temp38_3) #t))" "(namespace->module-namespace82.1" @@ -46864,11 +46873,11 @@ static const char *startup_source = "(let-values(((ns39_0)" " ns_114)" "((mpi40_1)" -" mpi_47)" +" mpi_46)" "((phase41_2)" -" phase_109)" +" phase_110)" "((phase42_0)" -" phase_109))" +" phase_110))" "(namespace-module-visit!104.1" " phase42_0" " ns39_0" @@ -47022,14 +47031,14 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_41 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)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_42)" -"(let-values(((or-part_296)(1/string->number start_41)))" -"(if or-part_296 or-part_296 0))))" +"(let-values(((or-part_299)(1/string->number start_41)))" +"(if or-part_299 or-part_299 0))))" "(let-values(((end_32)" "(let-values(((or-part_90)(1/string->number end_31)))" "(if or-part_90 or-part_90 0))))" @@ -47042,7 +47051,7 @@ static const char *startup_source = "(file-position(current-input-port) start_42)" "(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 'binary exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_171)))" +"(let-values(((p_62)(open-input-bytes s_170)))" "((letrec-values(((loop_70)" "(lambda()" "(begin" @@ -47103,12 +47112,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_27 s_190 l_4)" +"(lambda(who_27 s_189 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_190)" +"(if(relative-path-string? s_189)" "(void)" -" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_190)))" +" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_189)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_27 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -47150,7 +47159,7 @@ static const char *startup_source = "(lambda(d_34)" "(begin" " (let-values (((p_63) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_291)" +"(let-values(((or-part_295)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p7_1) p_63)" @@ -47163,7 +47172,7 @@ static const char *startup_source = "(with-input-from-file45.1 'binary p7_1 temp8_1))" " #f)" " #f)))" -"(if or-part_291 or-part_291 '#hash()))))))" +"(if or-part_295 or-part_295 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -47339,7 +47348,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_205)" +"(let-values(((v_206)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" @@ -47356,28 +47365,28 @@ static const char *startup_source = "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_205)" +"(if(if(list? v_206)" "(andmap2" "(lambda(p_66)" "(if(list? p_66)" -"(if(let-values(((or-part_223)(= 2(length p_66))))" -"(if or-part_223 or-part_223(= 3(length p_66))))" -"(if(let-values(((or-part_298)(string?(car p_66))))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_299)" +"(if(let-values(((or-part_226)(= 2(length p_66))))" +"(if or-part_226 or-part_226(= 3(length p_66))))" +"(if(let-values(((or-part_301)(string?(car p_66))))" +"(if or-part_301" +" or-part_301" +"(let-values(((or-part_302)" "(eq? 'root(car p_66))))" -"(if or-part_299" -" or-part_299" +"(if or-part_302" +" or-part_302" "(eq? 'static-root(car p_66))))))" "(if(path-string?(cadr p_66))" -"(let-values(((or-part_300)(null?(cddr p_66))))" -"(if or-part_300 or-part_300(regexp?(caddr p_66))))" +"(let-values(((or-part_303)(null?(cddr p_66))))" +"(if or-part_303 or-part_303(regexp?(caddr p_66))))" " #f)" " #f)" " #f)" " #f))" -" v_205)" +" v_206)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -47389,8 +47398,8 @@ static const char *startup_source = "(begin" "(for-each2" "(lambda(p_67)" -"(if(let-values(((or-part_263)(null?(cddr p_67))))" -"(if or-part_263 or-part_263(regexp-match?(caddr p_67)(version))))" +"(if(let-values(((or-part_266)(null?(cddr p_67))))" +"(if or-part_266 or-part_266(regexp-match?(caddr p_67)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_67) dir_0))))" @@ -47415,19 +47424,19 @@ static const char *startup_source = "(let-values()(hash-set! ht_150 #f null)))" "(hash-for-each" " ht_150" -"(lambda(k_38 v_206)" -"(hash-set! ht_150 k_38(cons dir_1 v_206))))))" +"(lambda(k_38 v_207)" +"(hash-set! ht_150 k_38(cons dir_1 v_207))))))" "(let-values()" -"(let-values(((s_486)(string->symbol(car p_67))))" +"(let-values(((s_485)(string->symbol(car p_67))))" "(hash-set!" " ht_150" -" s_486" -"(cons(box dir_1)(hash-ref ht_150 s_486 null)))))))))" +" s_485" +"(cons(box dir_1)(hash-ref ht_150 s_485 null)))))))))" "(void)))" -" v_205)" +" v_206)" "(hash-for-each" " ht_150" -"(lambda(k_39 v_207)(hash-set! ht_150 k_39(reverse$1 v_207))))" +"(lambda(k_39 v_208)(hash-set! ht_150 k_39(reverse$1 v_208))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_150))" " ht_150))))))))))))))))))))))" "(define-values" @@ -47561,13 +47570,13 @@ static const char *startup_source = "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))" "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))" "(if file-name_1" -"(if(let-values(((or-part_301)" +"(if(let-values(((or-part_304)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_301" -" or-part_301" +"(if or-part_304" +" or-part_304" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -47669,13 +47678,13 @@ static const char *startup_source = "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_208)" +"(let-values(((v_209)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_208" +"(if v_209" "(cons" "(simplify-path" -"(path->complete-path v_208(current-directory)))" +"(path->complete-path v_209(current-directory)))" "(loop_105(cdr l_83)))" "(loop_105(cdr l_83))))))))))" " loop_105)" @@ -47695,14 +47704,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_209)" +"(lambda(v_210)" "(begin" "(if((lambda(x_83)" "(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" -" v_209)" +" v_210)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_209)))" -" v_209))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_210)))" +" v_210))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47829,43 +47838,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_27)(begin(read-config/outer-wrap v_27))))" -"(define-values(read-config-line)(lambda(v_210)(begin(read-config/outer-line v_210))))" -"(define-values(read-config-col)(lambda(v_211)(begin(read-config/outer-col v_211))))" -"(define-values(read-config-pos)(lambda(v_212)(begin(read-config/outer-pos v_212))))" -"(define-values(read-config-indentations)(lambda(v_213)(begin(read-config/outer-indentations v_213))))" +"(define-values(read-config-line)(lambda(v_211)(begin(read-config/outer-line v_211))))" +"(define-values(read-config-col)(lambda(v_212)(begin(read-config/outer-col v_212))))" +"(define-values(read-config-pos)(lambda(v_213)(begin(read-config/outer-pos v_213))))" +"(define-values(read-config-indentations)(lambda(v_214)(begin(read-config/outer-indentations v_214))))" "(define-values(read-config-keep-comment?)(lambda(v_98)(begin(read-config/outer-keep-comment? v_98))))" "(define-values" "(read-config-readtable)" -"(lambda(v_214)(begin(read-config/inner-readtable(read-config/outer-inner v_214)))))" +"(lambda(v_215)(begin(read-config/inner-readtable(read-config/outer-inner v_215)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_215)(begin(read-config/inner-next-readtable(read-config/outer-inner v_215)))))" +"(lambda(v_216)(begin(read-config/inner-next-readtable(read-config/outer-inner v_216)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_216)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_216)))))" +"(lambda(v_217)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_217)))))" "(define-values(read-config-source)(lambda(v_76)(begin(read-config/inner-source(read-config/outer-inner v_76)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_217)(begin(read-config/inner-read-compiled(read-config/outer-inner v_217)))))" +"(lambda(v_218)(begin(read-config/inner-read-compiled(read-config/outer-inner v_218)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_218)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_218)))))" +"(lambda(v_219)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_219)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_219)(begin(read-config/inner-module-declared?(read-config/outer-inner v_219)))))" +"(lambda(v_220)(begin(read-config/inner-module-declared?(read-config/outer-inner v_220)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_208)(begin(read-config/inner-coerce(read-config/outer-inner v_208)))))" +"(lambda(v_209)(begin(read-config/inner-coerce(read-config/outer-inner v_209)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_220)(begin(read-config/inner-coerce-key(read-config/outer-inner v_220)))))" +"(lambda(v_221)(begin(read-config/inner-coerce-key(read-config/outer-inner v_221)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_221)(begin(read-config/inner-parameter-override(read-config/outer-inner v_221)))))" +"(lambda(v_222)(begin(read-config/inner-parameter-override(read-config/outer-inner v_222)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_40)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_40)))))" -"(define-values(read-config-st)(lambda(v_222)(begin(read-config/inner-st(read-config/outer-inner v_222)))))" +"(define-values(read-config-st)(lambda(v_223)(begin(read-config/inner-st(read-config/outer-inner v_223)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47934,19 +47943,19 @@ static const char *startup_source = " wrap_4" "(let-values(((or-part_52) read-compiled_1))" " (if or-part_52 or-part_52 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_302) dynamic-require_1))" -"(if or-part_302" -" or-part_302" +"(let-values(((or-part_305) dynamic-require_1))" +"(if or-part_305" +" or-part_305" "(lambda(mod-path_26 sym_96 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_175) module-declared?_1))" -"(if or-part_175" -" or-part_175" +"(let-values(((or-part_178) module-declared?_1))" +"(if or-part_178" +" or-part_178" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_218) coerce_1))" -"(if or-part_218 or-part_218(lambda(for-syntax?_2 v_145 srcloc_9) v_145)))" -"(let-values(((or-part_303) coerce-key_1))" -"(if or-part_303 or-part_303(lambda(for-syntax?_3 v_147) v_147)))" +"(let-values(((or-part_221) coerce_1))" +"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_145 srcloc_9) v_145)))" +"(let-values(((or-part_306) coerce-key_1))" +"(if or-part_306 or-part_306(lambda(for-syntax?_3 v_147) v_147)))" " #f" " #f" " #f" @@ -47971,13 +47980,13 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_223) config_0))" -"(let-values(((the-struct_77) v_223))" +"(let-values(((v_224) config_0))" +"(let-values(((the-struct_77) v_224))" "(if(read-config/outer? the-struct_77)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_78)(read-config/outer-inner v_223)))" +"(let-values(((the-struct_78)(read-config/outer-inner v_224)))" "(if(read-config/inner? the-struct_78)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -48019,16 +48028,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0) end-pos45_0))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_281) given-end-pos_0))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_285) given-end-pos_0))" +"(if or-part_285" +" or-part_285" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" -"(let-values(((or-part_304)(read-config-source config_1)))" -"(if or-part_304" -" or-part_304" -" (let-values (((or-part_305) (object-name in_1))) (if or-part_305 or-part_305 \"UNKNOWN\"))))" +"(let-values(((or-part_307)(read-config-source config_1)))" +"(if or-part_307" +" or-part_307" +" (let-values (((or-part_308) (object-name in_1))) (if or-part_308 or-part_308 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -48039,13 +48048,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_224) config_2))" -"(let-values(((the-struct_79) v_224))" +"(let-values(((v_225) config_2))" +"(let-values(((the-struct_79) v_225))" "(if(read-config/outer? the-struct_79)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_224)))" +"((inner65_0)(read-config/outer-inner v_225)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_79)" @@ -48059,10 +48068,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_225) config_3))" -"(let-values(((the-struct_80) v_225))" +"(let-values(((v_226) config_3))" +"(let-values(((the-struct_80) v_226))" "(if(read-config/outer? the-struct_80)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_225)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_226)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -48076,10 +48085,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_226) config_4))" -"(let-values(((the-struct_81) v_226))" +"(let-values(((v_227) config_4))" +"(let-values(((the-struct_81) v_227))" "(if(read-config/outer? the-struct_81)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_226)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_81)" @@ -48116,11 +48125,11 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_227) config_6))" -"(let-values(((the-struct_83) v_227))" +"(let-values(((v_228) config_6))" +"(let-values(((the-struct_83) v_228))" "(if(read-config/outer? the-struct_83)" "(let-values(((inner72_0)" -"(let-values(((the-struct_84)(read-config/outer-inner v_227)))" +"(let-values(((the-struct_84)(read-config/outer-inner v_228)))" "(if(read-config/inner? the-struct_84)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -48157,26 +48166,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_228)(begin 'default-reader-guard v_228)))" +"(define-values(default-reader-guard$1)(lambda(v_229)(begin 'default-reader-guard v_229)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_229)" +"(lambda(v_230)" "(begin" -"(if(if(procedure? v_229)(procedure-arity-includes? v_229 1) #f)" +"(if(if(procedure? v_230)(procedure-arity-includes? v_230 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_229)))" -" v_229))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_230)))" +" v_230))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_230)(if v_230 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_232)(if v_232 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_66)(if v_66 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_67)(if v_67 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_233)(if v_233 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_233)(if v_233 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_234)(if v_234 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -48197,11 +48206,11 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_30)" "(begin" -"(let-values(((v_234) config_9))" -"(let-values(((the-struct_85) v_234))" +"(let-values(((v_235) config_9))" +"(let-values(((the-struct_85) v_235))" "(if(read-config/outer? the-struct_85)" "(let-values(((inner1_0)" -"(let-values(((the-struct_86)(read-config/outer-inner v_234)))" +"(let-values(((the-struct_86)(read-config/outer-inner v_235)))" "(if(read-config/inner? the-struct_86)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_30)))" @@ -48322,8 +48331,8 @@ static const char *startup_source = "(let-values(((key_83)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_162)(not key_83)))" -"(if or-part_162 or-part_162(char? key_83)))" +"(if(let-values(((or-part_165)(not key_83)))" +"(if or-part_165 or-part_165(char? key_83)))" "(void)" "(let-values()" "(raise-argument-error" @@ -48355,20 +48364,20 @@ static const char *startup_source = "(begin" "(if key_83" "(let-values()" -"(if(let-values(((or-part_256)" +"(if(let-values(((or-part_259)" "(eq? mode_17 'terminating-macro)))" -"(if or-part_256" -" or-part_256" -"(let-values(((or-part_257)" +"(if or-part_259" +" or-part_259" +"(let-values(((or-part_260)" "(eq?" " mode_17" " 'non-terminating-macro)))" -"(if or-part_257" -" or-part_257" -"(let-values(((or-part_292)" +"(if or-part_260" +" or-part_260" +"(let-values(((or-part_296)" "(eq? mode_17 'dispatch-macro)))" -"(if or-part_292" -" or-part_292" +"(if or-part_296" +" or-part_296" "(char? mode_17)))))))" "(void)" "(let-values()" @@ -48439,10 +48448,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_284)" +"(if(let-values(((or-part_288)" "(not target_0)))" -"(if or-part_284" -" or-part_284" +"(if or-part_288" +" or-part_288" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48528,7 +48537,7 @@ static const char *startup_source = "(lambda(c_58 config_11)" "(begin" "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" -"(if(let-values(((or-part_306)(not rt_2)))(if or-part_306 or-part_306(not(char? c_59))))" +"(if(let-values(((or-part_309)(not rt_2)))(if or-part_309 or-part_309(not(char? c_59))))" "(let-values() c_59)" "(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" @@ -48552,7 +48561,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_235)" +"(let-values(((v_236)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48574,7 +48583,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_235) v_235(coerce v_235 in_3 config_14)))))))" +"(if(1/special-comment? v_236) v_236(coerce v_236 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48592,7 +48601,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_164)" +"(let-values(((or-part_167)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -48600,7 +48609,7 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_164 or-part_164 c_63))" +"(if or-part_167 or-part_167 c_63))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" @@ -48616,26 +48625,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_153)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_272)" "(lambda(fold-var_85 i_168)" "(begin" " 'for-loop" "(if i_168" "(let-values(((k_40 v_91)(hash-iterate-key+value ht_153 i_168)))" -"(let-values(((fold-var_282)" +"(let-values(((fold-var_284)" "(let-values(((fold-var_88) fold-var_85))" "(if(eqv? v_91 c_64)" -"(let-values(((fold-var_237) fold-var_88))" +"(let-values(((fold-var_238) fold-var_88))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_40) fold-var_237))))" +"(cons(let-values() k_40) fold-var_238))))" "(values fold-var_13)))" " fold-var_88))))" "(if(not #f)" -"(for-loop_271 fold-var_282(hash-iterate-next ht_153 i_168))" -" fold-var_282)))" +"(for-loop_272 fold-var_284(hash-iterate-next ht_153 i_168))" +" fold-var_284)))" " fold-var_85)))))" -" for-loop_271)" +" for-loop_272)" " null" "(hash-iterate-first ht_153))))))))))" "(define-values" @@ -48735,8 +48744,8 @@ static const char *startup_source = "((config34_0) config_18)" " ((temp35_2) \"~a\")" "((temp36_3)" -"(let-values(((s_487)(exn-message exn_3)))" -" (regexp-replace \"^[a-z-]*: \" s_487 \"\")))" +"(let-values(((s_486)(exn-message exn_3)))" +" (regexp-replace \"^[a-z-]*: \" s_486 \"\")))" "((temp37_2)(exn-continuation-marks exn_3)))" "(reader-error12.1" " temp37_2" @@ -48773,9 +48782,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_157) init-c_2))" -"(if or-part_157" -" or-part_157" +"(let-values(((or-part_158) init-c_2))" +"(if or-part_158" +" or-part_158" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -48810,10 +48819,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_307)" +"(if(let-values(((or-part_310)" "(eof-object? c_66)))" -"(if or-part_307" -" or-part_307" +"(if or-part_310" +" or-part_310" "(eqv?" " '#\\newline" "(effective-char c_66 config_15))))" @@ -48867,8 +48876,8 @@ static const char *startup_source = "(if(eq? c_69 'special)" "(special1.1 'special)" " c_69)))))" -"(let-values(((or-part_308)(eqv? '#\\space c3_2)))" -"(if or-part_308 or-part_308(eqv? '#\\/ c3_2))))" +"(let-values(((or-part_311)(eqv? '#\\space c3_2)))" +"(if or-part_311 or-part_311(eqv? '#\\/ c3_2))))" " #f)" " #f)" "(let-values()" @@ -48893,13 +48902,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_236)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_237)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_236)" +"(if(eof-object? v_237)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_236)" +"((v3_0) v_237)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -49000,30 +49009,30 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_309)(char=? dc_0 '#\\()))" -"(if or-part_309" -" or-part_309" -"(let-values(((or-part_289)(char=? dc_0 '#\\))))" -"(if or-part_289" -" or-part_289" +"(let-values(((or-part_312)(char=? dc_0 '#\\()))" +"(if or-part_312" +" or-part_312" +"(let-values(((or-part_293)(char=? dc_0 '#\\))))" +"(if or-part_293" +" or-part_293" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_157)(char=? dc_0 '#\\{)))" -"(if or-part_157" -" or-part_157" +"(let-values(((or-part_158)(char=? dc_0 '#\\{)))" +"(if or-part_158" +" or-part_158" "(let-values(((or-part_12)(char=? dc_0 '#\\})))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_214)(char=? dc_0 '#\\`)))" -"(if or-part_214" -" or-part_214" +"(let-values(((or-part_217)(char=? dc_0 '#\\`)))" +"(if or-part_217" +" or-part_217" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -49101,9 +49110,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_72 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_72))" -"(if(let-values(((or-part_296) s_10))(if or-part_296 or-part_296 c_72))" +"(if(let-values(((or-part_299) s_10))(if or-part_299 or-part_299 c_72))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_307) s_10)) (if or-part_307 or-part_307 c_72))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -49285,7 +49294,7 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_73))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_299)" +"(let-values(((or-part_302)" "(let-values(((lst_7)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -49321,7 +49330,7 @@ static const char *startup_source = " for-loop_0)" " #f" " lst_7)))))" -" (if or-part_299 or-part_299 \"expected\"))))" +" (if or-part_302 or-part_302 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -49369,14 +49378,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_237) elem-config_0))" -"(let-values(((the-struct_87) v_237))" +"(let-values(((v_238) elem-config_0))" +"(let-values(((the-struct_87) v_238))" "(if(read-config/outer? the-struct_87)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_237)))" +"((inner21_0)(read-config/outer-inner v_238)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_87)" @@ -49517,7 +49526,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_238)" +"(let-values(((v_239)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49538,11 +49547,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_238" +" v_239" "(append" "(reverse$1" " accum_0)" -" v_238)))" +" v_239)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49581,7 +49590,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_238))" +" v_239))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49606,11 +49615,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_263)" +"(if(let-values(((or-part_266)" "(eof-object?" " post-ec_0)))" -"(if or-part_263" -" or-part_263" +"(if or-part_266" +" or-part_266" "(eqv?" " post-ec_0" " closer_1)))" @@ -49745,11 +49754,11 @@ static const char *startup_source = "(consume-char in_6 c_68)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))" "((letrec-values(((loop_110)" -"(lambda(v_202 max-count_1)" +"(lambda(v_203 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_202)" +"(let-values() v_203)" "(let-values()" "(let-values(((c_76)" "(let-values(((in_25) in_6)" @@ -49773,9 +49782,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_76))" "(void))" "(loop_110" -"(+(digit->number c_76)(* v_202 base_15))" +"(+(digit->number c_76)(* v_203 base_15))" "(sub1 max-count_1))))" -"(let-values() v_202)))))))))" +"(let-values() v_203)))))))))" " loop_110)" "(+(digit->number c_68)(* init-v_0 base_15))" "(sub1 max-count_0))))" @@ -49798,11 +49807,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_77)" "(begin" -"(let-values(((or-part_263)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_263" -" or-part_263" -"(let-values(((or-part_310)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_310 or-part_310(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" +"(let-values(((or-part_266)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" +"(if or-part_266" +" or-part_266" +"(let-values(((or-part_313)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_313 or-part_313(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_78)" @@ -49875,9 +49884,9 @@ static const char *startup_source = " convert-mode72_0))))))))))))))" "(case-lambda" "((s_308)(begin 'string->number(string->number5_0 s_308 10 'number-or-false unsafe-undefined)))" -"((s_488 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_488 radix_1 convert-mode_1 decimal-mode3_1))" -"((s_187 radix_2 convert-mode2_1)(string->number5_0 s_187 radix_2 convert-mode2_1 unsafe-undefined))" -"((s_489 radix1_1)(string->number5_0 s_489 radix1_1 'number-or-false unsafe-undefined)))))" +"((s_487 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_487 radix_1 convert-mode_1 decimal-mode3_1))" +"((s_186 radix_2 convert-mode2_1)(string->number5_0 s_186 radix_2 convert-mode2_1 unsafe-undefined))" +"((s_488 radix1_1)(string->number5_0 s_488 radix1_1 'number-or-false unsafe-undefined)))))" "(define-values" "(do-string->number17.1)" "(lambda(in-complex8_0 radix-set?7_0 s11_1 start12_0 end13_0 radix14_0 exactness15_0 convert-mode16_0)" @@ -49988,8 +49997,8 @@ static const char *startup_source = "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_262)(exactness-set? exactness_0)))" -"(if or-part_262 or-part_262 in-complex_0))" +"(if(let-values(((or-part_265)(exactness-set? exactness_0)))" +"(if or-part_265 or-part_265 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -50004,10 +50013,10 @@ static const char *startup_source = "((radix76_0) radix_3)" "((radix-set?77_0) radix-set?_0)" "((temp78_2)" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_211)" "(char=? i_169 '#\\e)))" -"(if or-part_208" -" or-part_208" +"(if or-part_211" +" or-part_211" "(char=? i_169 '#\\E)))" " 'exact" " 'inexact))" @@ -50025,8 +50034,8 @@ static const char *startup_source = " temp78_2" " temp79_0)))))" "(let-values()" -"(if(let-values(((or-part_209) radix-set?_0))" -"(if or-part_209 or-part_209 in-complex_0))" +"(if(let-values(((or-part_212) radix-set?_0))" +"(if or-part_212 or-part_212 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -50074,13 +50083,13 @@ static const char *startup_source = "(read-special-number s_17 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_29" -"((lambda(v_239)" +"((lambda(v_240)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_239))" +" (let-values () (format \"no exact representation for `~a`\" v_240))" "(let-values() #f)))" -"(let-values() v_239)))" +"(let-values() v_240)))" " c1_29)" "(let-values(((c2_3)" "(if(char-sign? c_64)" @@ -50109,8 +50118,8 @@ static const char *startup_source = "((temp93_1) 'i)" "((v94_0) v_39)" "((temp95_0)" -"(lambda(v_240 v2_0)" -"(begin 'temp95(make-rectangular v_240 v2_0)))))" +"(lambda(v_241 v2_0)" +"(begin 'temp95(make-rectangular v_241 v2_0)))))" "(read-for-special-compound62.1" " temp93_1" " #f" @@ -50152,8 +50161,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_1)" -"(lambda(v2_2 v_217)" -"(begin 'temp105(make-rectangular v_217 v2_2)))))" +"(lambda(v2_2 v_218)" +"(begin 'temp105(make-rectangular v_218 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -50181,7 +50190,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_219)" +"((lambda(v_220)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -50189,7 +50198,7 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_219)" +"((v113_0) v_220)" "((temp114_3)" "(lambda(v_143 v2_3)" "(begin 'temp114(make-polar v_143 v2_3)))))" @@ -50266,7 +50275,7 @@ static const char *startup_source = "(lambda(in-complex21_0 radix-set?20_0 s24_2 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)" "(begin" " 'do-string->non-special-number30" -"(let-values(((s_457) s24_2))" +"(let-values(((s_456) s24_2))" "(let-values(((start_44) start25_0))" "(let-values(((end_34) end26_0))" "(let-values(((radix_5) radix27_0))" @@ -50296,7 +50305,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -50304,13 +50313,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_311)" +"(let-values(((or-part_314)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_311" -" or-part_311" +"(if or-part_314" +" or-part_314" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -50318,11 +50327,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s133_0) s_457)" +"(let-values(((s133_0) s_456)" "((start134_0) start_44)" "((sign-pos135_0) sign-pos_0)" "((sign-pos136_0) sign-pos_0)" @@ -50349,7 +50358,7 @@ static const char *startup_source = " convert-mode144_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s145_0) s_457)" +"(let-values(((s145_0) s_456)" "((start146_0) start_44)" "((@-pos147_0) @-pos_0)" "((temp148_1)(add1 @-pos_0))" @@ -50376,7 +50385,7 @@ static const char *startup_source = " convert-mode156_0)))" "(let-values()" "(string->real-number" -" s_457" +" s_456" " start_44" " end_34" " dot-pos_1" @@ -50387,7 +50396,7 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_79)(string-ref s_457 i_170)))" +"(let-values(((c_79)(string-ref s_456 i_170)))" "(if(digit? c_79 radix_5)" "(let-values()" "(loop_111" @@ -50422,7 +50431,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50436,27 +50445,27 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_170 start_44)" -"(let-values(((or-part_312)(not @-pos_0)))" -"(if or-part_312" -" or-part_312" +"(let-values(((or-part_315)(not @-pos_0)))" +"(if or-part_315" +" or-part_315" "(> i_170(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" -"(if(let-values(((or-part_313)" +"(if(let-values(((or-part_316)" "(if exp-pos_0" -"(let-values(((or-part_314)" +"(let-values(((or-part_317)" "(not sign-pos_0)))" -"(if or-part_314" -" or-part_314" +"(if or-part_317" +" or-part_317" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_313" -" or-part_313" +"(if or-part_316" +" or-part_316" "(if dot-pos_1" -"(let-values(((or-part_205)(not sign-pos_0)))" -"(if or-part_205" -" or-part_205" +"(let-values(((or-part_208)(not sign-pos_0)))" +"(if or-part_208" +" or-part_208" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50464,12 +50473,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_278)(not sign-pos_0)))" -"(if or-part_278" -" or-part_278" +"(let-values(((or-part_281)(not sign-pos_0)))" +"(if or-part_281" +" or-part_281" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50477,7 +50486,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50494,9 +50503,9 @@ static const char *startup_source = "(if(char=? c_79 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_315)(not sign-pos_0)))" -"(if or-part_315" -" or-part_315" +"(let-values(((or-part_318)(not sign-pos_0)))" +"(if or-part_318" +" or-part_318" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50504,23 +50513,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_316)" +"(if(let-values(((or-part_319)" "(if exp-pos_0" -"(let-values(((or-part_317)" +"(let-values(((or-part_320)" "(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(if or-part_320" +" or-part_320" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_316" -" or-part_316" +"(if or-part_319" +" or-part_319" "(if slash-pos_0" -"(let-values(((or-part_318)" +"(let-values(((or-part_321)" "(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(if or-part_321" +" or-part_321" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50528,7 +50537,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50542,58 +50551,58 @@ static const char *startup_source = " i_170" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_319)(char=? c_79 '#\\e)))" -"(if or-part_319" -" or-part_319" -"(let-values(((or-part_320)(char=? c_79 '#\\E)))" -"(if or-part_320" -" or-part_320" -"(let-values(((or-part_321)" -"(char=? c_79 '#\\f)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)" -"(char=? c_79 '#\\F)))" +"(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" "(if or-part_322" " or-part_322" -"(let-values(((or-part_323)" -"(char=? c_79 '#\\d)))" +"(let-values(((or-part_323)(char=? c_79 '#\\E)))" "(if or-part_323" " or-part_323" -"(let-values(((or-part_178)" -"(char=? c_79 '#\\D)))" -"(if or-part_178" -" or-part_178" "(let-values(((or-part_324)" -"(char=?" -" c_79" -" '#\\s)))" +"(char=? c_79 '#\\f)))" "(if or-part_324" " or-part_324" "(let-values(((or-part_325)" +"(char=? c_79 '#\\F)))" +"(if or-part_325" +" or-part_325" +"(let-values(((or-part_326)" +"(char=? c_79 '#\\d)))" +"(if or-part_326" +" or-part_326" +"(let-values(((or-part_181)" +"(char=? c_79 '#\\D)))" +"(if or-part_181" +" or-part_181" +"(let-values(((or-part_327)" +"(char=?" +" c_79" +" '#\\s)))" +"(if or-part_327" +" or-part_327" +"(let-values(((or-part_328)" "(char=?" " c_79" " '#\\S)))" -"(if or-part_325" -" or-part_325" -"(let-values(((or-part_206)" +"(if or-part_328" +" or-part_328" +"(let-values(((or-part_209)" "(char=?" " c_79" " '#\\l)))" -"(if or-part_206" -" or-part_206" -"(let-values(((or-part_326)" +"(if or-part_209" +" or-part_209" +"(let-values(((or-part_329)" "(char=?" " c_79" " '#\\L)))" -"(if or-part_326" -" or-part_326" -"(let-values(((or-part_170)" +"(if or-part_329" +" or-part_329" +"(let-values(((or-part_173)" "(char=?" " c_79" " '#\\t)))" -"(if or-part_170" -" or-part_170" +"(if or-part_173" +" or-part_173" "(char=?" " c_79" " '#\\T)))))))))))))))))))))))" @@ -50605,10 +50614,10 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_79" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if(<(add1 i_170) end_34)" -"(char-sign?(string-ref s_457(add1 i_170)))" +"(char-sign?(string-ref s_456(add1 i_170)))" " #f)" "(let-values()" "(loop_111" @@ -50620,8 +50629,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_327) exp-pos_0))" -"(if or-part_327 or-part_327 i_170))" +"(let-values(((or-part_330) exp-pos_0))" +"(if or-part_330 or-part_330 i_170))" " must-i?_0))" "(let-values()" "(loop_111" @@ -50633,8 +50642,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_328) exp-pos_0))" -"(if or-part_328 or-part_328 i_170))" +"(let-values(((or-part_331) exp-pos_0))" +"(if or-part_331 or-part_331 i_170))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50644,18 +50653,18 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_329) @-pos_0))" -"(if or-part_329" -" or-part_329" +"(if(let-values(((or-part_332) @-pos_0))" +"(if or-part_332" +" or-part_332" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(= i_170 start_44)" "(let-values()" @@ -50663,7 +50672,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50671,7 +50680,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50685,36 +50694,36 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_330)" +"(if(if(let-values(((or-part_333)" "(char=? c_79 '#\\i)))" -"(if or-part_330" -" or-part_330" +"(if or-part_333" +" or-part_333" "(char=? c_79 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_331) @-pos_0))" -"(if or-part_331" -" or-part_331" +"(if(let-values(((or-part_334) @-pos_0))" +"(if or-part_334" +" or-part_334" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_332)" +"(if(let-values(((or-part_335)" "(<(add1 i_170) end_34)))" -"(if or-part_332" -" or-part_332" +"(if or-part_335" +" or-part_335" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50733,7 +50742,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_457))" +" (format \"nul character in `~.a`\" s_456))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50826,11 +50835,11 @@ static const char *startup_source = " radix168_0" " exactness170_0" " convert-mode172_0))))))" -"(if(let-values(((or-part_333)(not v1_0)))" -"(if or-part_333 or-part_333(not v2_6)))" +"(if(let-values(((or-part_336)(not v1_0)))" +"(if or-part_336 or-part_336(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_334)(extflonum? v1_0)))" -"(if or-part_334 or-part_334(extflonum? v2_6)))" +"(if(if(let-values(((or-part_337)(extflonum? v1_0)))" +"(if or-part_337 or-part_337(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50851,33 +50860,33 @@ static const char *startup_source = " p_74))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_334 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_333 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_334 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_333 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" -"(if or-part_335" -" or-part_335" -"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_337)(not exp-pos_1)))" -"(if or-part_337" -" or-part_337" -"(let-values(((or-part_220)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_220 or-part_220(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_334 start_45 end_35) #f))" +"(if(let-values(((or-part_338)(eq? exactness_3 'inexact)))" +"(if or-part_338" +" or-part_338" +"(let-values(((or-part_339)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_339 or-part_339(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_340)(not exp-pos_1)))" +"(if or-part_340" +" or-part_340" +"(let-values(((or-part_223)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_223 or-part_223(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_333 start_45 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_334 start_45)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_333 start_45)) #f)))" "(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 start_45)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_334 start_45 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50889,37 +50898,37 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_334 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_338)(= exp-pos_1(sub1 end_35))))" -"(if or-part_338" -" or-part_338" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_334(sub1 end_35))) #f)))" +"(let-values(((or-part_341)(= exp-pos_1(sub1 end_35))))" +"(if or-part_341" +" or-part_341" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_334 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)" "(string->number$1" -"(maybe-substring s_334 start_45 end_35)" +"(maybe-substring s_333 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_339)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_339" -" or-part_339" -"(let-values(((or-part_146)(not exp-pos_1)))" -"(if or-part_146 or-part_146(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_342)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_342" +" or-part_342" +"(let-values(((or-part_147)(not exp-pos_1)))" +"(if or-part_147 or-part_147(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_147)(not n_31)))(if or-part_147 or-part_147(string? n_31)))" +"(if(let-values(((or-part_148)(not n_31)))(if or-part_148 or-part_148(string? n_31)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_334 start_45 end_35)))" +"(substring s_333 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_31)" @@ -50928,9 +50937,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_334 start_45 end_35)))" +"(substring s_333 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_31 0)(char=?(string-ref s_334 start_45) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_31)))))" "(let-values() n_31))))))))" @@ -50938,7 +50947,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_334" +" s_333" " start_45" " exp-pos_1" " dot-pos_2" @@ -50949,12 +50958,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_334(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_333(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_334 exp-pos_1)))" +"(let-values(((tmp_40)(string-ref s_333 exp-pos_1)))" "(if(if(equal? tmp_40 '#\\s)" " #t" "(if(equal? tmp_40 '#\\S)" @@ -50966,12 +50975,12 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_334 start_45 end_35)" +"(replace-hashes s_333 start_45 end_35)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_340)(not m-v_0)))(if or-part_340 or-part_340(not e-v_0)))" +"(if(let-values(((or-part_343)(not m-v_0)))(if or-part_343 or-part_343(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50979,14 +50988,14 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_341)(eq? exactness_3 'inexact)))" -"(if or-part_341 or-part_341(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_344)(eq? exactness_3 'inexact)))" +"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_334 start_45) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_333 start_45) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -50996,24 +51005,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_334 start_45 end_35)" +"(substring s_333 start_45 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_342)(eq? exactness_3 'exact)))" -"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_345)(eq? exactness_3 'exact)))" +"(if or-part_345 or-part_345(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_32)" -"(if(if(eqv? n_32 0)(char=?(string-ref s_334 start_45) '#\\-) #f)" +"(if(if(eqv? n_32 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_32)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_334" +" s_333" " start_45" " slash-pos_1" " #f" @@ -51025,7 +51034,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_334" +" s_333" "(add1 slash-pos_1)" " end_35" " #f" @@ -51039,13 +51048,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_343)(eq? exactness_3 'inexact)))" -"(if or-part_343" -" or-part_343" +"(let-values(((or-part_346)(eq? exactness_3 'inexact)))" +"(if or-part_346" +" or-part_346" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_334 from-pos_0 end_35)" +"(hashes? s_333 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_344)(not n-v_0)))(if or-part_344 or-part_344(not d-v_0)))" +"(if(let-values(((or-part_347)(not n-v_0)))(if or-part_347 or-part_347(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -51058,14 +51067,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_334 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_33)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_45)(exact->inexact n_33) n_33)))))))))))" "(let-values()" "(string->decimal-number" -" s_334" +" s_333" " start_45" " end_35" " dot-pos_2" @@ -51074,11 +51083,11 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_490 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_489 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_184)(eq? exactness_4 'exact)))" -"(if or-part_184 or-part_184(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_187)(eq? exactness_4 'exact)))" +"(if or-part_187 or-part_187(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_112)" "(lambda(i_171 j_3 hashes-pos_0)" @@ -51090,22 +51099,22 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_490 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_489 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_34)(string->number$1 new-str_0 radix_8)))" "(if(not n_34)" -"(let-values()(fail-bad-number convert-mode_6 s_490 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_489 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_34 0)(char=?(string-ref s_490 start_46) '#\\-) #f)" +"(if(if(eqv? n_34 0)(char=?(string-ref s_489 start_46) '#\\-) #f)" " -0.0" "(exact->inexact n_34)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_34(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_34))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_490 i_171)))" +"(let-values(((c_80)(string-ref s_489 i_171)))" "(if(char=? c_80 '#\\.)" "(let-values()" "(if get-exact?_0" @@ -51121,8 +51130,8 @@ static const char *startup_source = "(sub1 i_171)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))))" -"(if(let-values(((or-part_345)(char=? c_80 '#\\-)))" -"(if or-part_345 or-part_345(char=? c_80 '#\\+)))" +"(if(let-values(((or-part_348)(char=? c_80 '#\\-)))" +"(if or-part_348 or-part_348(char=? c_80 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" @@ -51142,7 +51151,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_490 start_46 end_36)))" +"(substring s_489 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" @@ -51154,69 +51163,69 @@ static const char *startup_source = " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_491 start_47 end_37 radix_9 convert-mode_7)" +"(lambda(s_490 start_47 end_37 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_491 start_47 end_37)" +"(if(hashes? s_490 start_47 end_37)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_491 start_47 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_490 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_35)(string->number$1(maybe-substring s_491 start_47 end_37) radix_9)))" +"(let-values(((n_35)(string->number$1(maybe-substring s_490 start_47 end_37) radix_9)))" "(if(not n_35)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_491 start_47 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_490 start_47 end_37)))" "(let-values() #f)))" "(let-values() n_35))))))))" "(define-values" "(read-special-number)" -"(lambda(s_473 start_48 end_38 convert-mode_8)" +"(lambda(s_472 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_346)(char=?(string-ref s_473 start_48) '#\\+)))" -"(if or-part_346 or-part_346(char=?(string-ref s_473 start_48) '#\\-)))" -"(let-values(((or-part_347)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 4))) '#\\.)" -"(let-values(((or-part_348)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_473 start_48) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_349)(char=?(string-ref s_472 start_48) '#\\+)))" +"(if or-part_349 or-part_349(char=?(string-ref s_472 start_48) '#\\-)))" +"(let-values(((or-part_350)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)" +"(let-values(((or-part_351)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0)" +"(if(char=?(string-ref s_472 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_348" -" or-part_348" -"(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_473 start_48) '#\\+) +inf.f -inf.f)" +"(if or-part_351" +" or-part_351" +"(let-values(((or-part_352)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f)" +"(if(char=?(string-ref s_472 start_48) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_349" -" or-part_349" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\t)" +"(if or-part_352" +" or-part_352" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_473 start_48) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_472 start_48) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_347" -" or-part_347" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 4))) '#\\.)" -"(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\0) +nan.0 #f)))" "(if or-part_350" " or-part_350" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\f) +nan.f #f)))" -"(if or-part_351" -" or-part_351" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)" +"(let-values(((or-part_353)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))" +"(if or-part_353" +" or-part_353" +"(let-values(((or-part_354)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if or-part_354" +" or-part_354" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -51227,10 +51236,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_241)" +"(lambda(convert-mode_9 v_242)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_241))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_242))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -51246,7 +51255,7 @@ static const char *startup_source = " combine61_0)" "(begin" " 'read-for-special-compound62" -"(let-values(((s_492) s54_0))" +"(let-values(((s_491) s54_0))" "(let-values(((start_49) start55_0))" "(let-values(((end_39) end56_0))" "(let-values(((radix_10) radix57_0))" @@ -51254,22 +51263,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode59_0))" "(let-values(((in-complex_3) in-complex50_0))" "(let-values(((reading-first?_0) reading-first?51_0))" -"(let-values(((v_242) v60_0))" +"(let-values(((v_243) v60_0))" "(let-values(((combine_1) combine61_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_242))" +" (let-values () (format \"no exact representation for `~a`\" v_243))" "(let-values() #f)))" -"(if(if(extflonum? v_242)" -"(let-values(((or-part_187)(not reading-first?_0)))" -"(if or-part_187 or-part_187(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_243)" +"(let-values(((or-part_190)(not reading-first?_0)))" +"(if or-part_190 or-part_190(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_242))" +"(let-values()(fail-extflonum convert-mode_10 v_243))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s173_0) s_492)" +"(let-values(((s173_0) s_491)" "((start174_0) start_49)" "((end175_0) end_39)" "((radix176_0) radix_10)" @@ -51290,9 +51299,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_242)" -"(let-values()(fail-extflonum convert-mode_10 v_242))" -"(let-values()(combine_1 v_242 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_243)" +"(let-values()(fail-extflonum convert-mode_10 v_243))" +"(let-values()(combine_1 v_243 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_263 start_50 end_40)" @@ -51309,7 +51318,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_273)" "(lambda(result_120 idx_5)" "(begin" " 'for-loop" @@ -51321,10 +51330,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_81 '#\\#)))))" "(values result_122)))))" "(if(if(not((lambda x_87 result_121) c_81))(not #f) #f)" -"(for-loop_272 result_121(unsafe-fx+ idx_5 1))" +"(for-loop_273 result_121(unsafe-fx+ idx_5 1))" " result_121)))" " result_120)))))" -" for-loop_272)" +" for-loop_273)" " #f" " start*_5))))))" "(define-values" @@ -51349,7 +51358,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_274)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" @@ -51366,41 +51375,41 @@ static const char *startup_source = "(string-set! new-s_10 i_121 c_82)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_273(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_273)" +" for-loop_274)" " start*_6" " start_52)))" "(void)" " new-s_10)))))" "(define-values" "(maybe-substring)" -"(lambda(s_382 start_3 end_3)" -"(begin(if(if(= 0 start_3)(= end_3(string-length s_382)) #f) s_382(substring s_382 start_3 end_3)))))" +"(lambda(s_381 start_3 end_3)" +"(begin(if(if(= 0 start_3)(= end_3(string-length s_381)) #f) s_381(substring s_381 start_3 end_3)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_352)(eq? exactness_6 'exact)))(if or-part_352 or-part_352(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_355)(eq? exactness_6 'exact)))(if or-part_355 or-part_355(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_83)" -"(begin(let-values(((or-part_353)(char=? c_83 '#\\-)))(if or-part_353 or-part_353(char=? c_83 '#\\+))))))" +"(begin(let-values(((or-part_356)(char=? c_83 '#\\-)))(if or-part_356 or-part_356(char=? c_83 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_84 radix_11)" "(begin" -"(let-values(((v_243)(char->integer c_84)))" -"(let-values(((or-part_354)" -"(if(>= v_243(char->integer '#\\0))(<(- v_243(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_354" -" or-part_354" +"(let-values(((v_244)(char->integer c_84)))" +"(let-values(((or-part_357)" +"(if(>= v_244(char->integer '#\\0))(<(- v_244(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_357" +" or-part_357" "(if(> radix_11 10)" -"(let-values(((or-part_355)" -"(if(>= v_243(char->integer '#\\a))(<(- v_243(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_355" -" or-part_355" -"(if(>= v_243(char->integer '#\\A))(<(- v_243(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_358)" +"(if(>= v_244(char->integer '#\\a))(<(- v_244(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_358" +" or-part_358" +"(if(>= v_244(char->integer '#\\A))(<(- v_244(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" @@ -51746,14 +51755,14 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_356) num_0))" -"(if or-part_356" -" or-part_356" -"(let-values(((or-part_357)" +"(let-values(((or-part_359) num_0))" +"(if or-part_359" +" or-part_359" +"(let-values(((or-part_360)" "(if(eq? mode_18 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_357 or-part_357(string->symbol str_29)))))" +"(if or-part_360 or-part_360(string->symbol str_29)))))" " in_26" " config_23" " str_29)))))))))))))))))))))))))" @@ -51763,16 +51772,16 @@ static const char *startup_source = "(begin" "(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_234) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_234)" -"(let-values() v_234)" -"(if(eof-object? v_234)" -"(let-values() v_234)" +" (let-values (((v_235) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_235)" +"(let-values() v_235)" +"(if(eof-object? v_235)" +"(let-values() v_235)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_234))" +"((v4_1) v_235))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51891,13 +51900,13 @@ static const char *startup_source = "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_261) seq_2))" +"(let-values(((lst_264) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_274)" +"(let-values()(check-list lst_264)))" +"((letrec-values(((for-loop_275)" "(lambda(i_3 lst_104)" "(begin" " 'for-loop" @@ -51905,7 +51914,7 @@ static const char *startup_source = "(let-values(((e_78)" "(unsafe-car" " lst_104))" -"((rest_143)" +"((rest_145)" "(unsafe-cdr" " lst_104)))" "(let-values(((i_172)" @@ -51939,14 +51948,14 @@ static const char *startup_source = " e_78))" "(not #f)" " #f)" -"(for-loop_274" +"(for-loop_275" " i_172" -" rest_143)" +" rest_145)" " i_172)))" " i_3)))))" -" for-loop_274)" +" for-loop_275)" " 0" -" lst_261)))))" +" lst_264)))))" " v_35))))))" "(if(equal? tmp_42 'flonum)" "(let-values()" @@ -51960,7 +51969,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_189)(make-flvector len_38 fill_1)))" +"(let-values(((v_190)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -51994,7 +52003,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_189" +" v_190" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -52021,7 +52030,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_189))))))" +" v_190))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -52055,11 +52064,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_244)" +"(lambda(v_245)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_244 in_30 config_10 #f)" +"(wrap v_245 in_30 config_10 #f)" "((letrec-values(((loop_114)" "(lambda(seq_3)" "(begin" @@ -52113,19 +52122,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_263)" -"(lambda(lst_298 pos_117)" +"((letrec-values(((for-loop_264)" +"(lambda(lst_300 pos_117)" "(begin" " 'for-loop" -"(if(if(pair? lst_298)" +"(if(if(pair? lst_300)" " #t" " #f)" "(let-values(((e_79)" "(unsafe-car" -" lst_298))" -"((rest_174)" +" lst_300))" +"((rest_175)" "(unsafe-cdr" -" lst_298))" +" lst_300))" "((i_174)" " pos_117))" "(let-values((()" @@ -52141,42 +52150,42 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_263" -" rest_174" +"(for-loop_264" +" rest_175" "(+ pos_117 1))" "(values))))" "(values))))))" -" for-loop_263)" +" for-loop_264)" " lst_8" " start_54)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_175) seq_2)((start_55) 0))" +"(let-values(((lst_178) seq_2)((start_55) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_175)))" +"(let-values()(check-list lst_178)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_55)))" "((letrec-values(((for-loop_28)" -"(lambda(lst_273 pos_17)" +"(lambda(lst_276 pos_17)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_273)" +" lst_276)" " #t" " #f)" "(let-values(((e_80)" "(unsafe-car" -" lst_273))" -"((rest_121)" +" lst_276))" +"((rest_123)" "(unsafe-cdr" -" lst_273))" +" lst_276))" "((i_99)" " pos_17))" "(let-values((()" @@ -52193,29 +52202,29 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_28" -" rest_121" +" rest_123" "(+ pos_17 1))" "(values))))" "(values))))))" " for-loop_28)" -" lst_175" +" lst_178" " start_55)))" "(void)))" "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_305) seq_2)((start_56) 0))" +"(let-values(((lst_307) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" +"(let-values()(check-list lst_307)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_276)" "(lambda(lst_98 pos_118)" "(begin" " 'for-loop" @@ -52226,7 +52235,7 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_98))" -"((rest_175)" +"((rest_176)" "(unsafe-cdr" " lst_98))" "((i_46)" @@ -52244,15 +52253,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_275" -" rest_175" +"(for-loop_276" +" rest_176" "(+" " pos_118" " 1))" "(values))))" "(values))))))" -" for-loop_275)" -" lst_305" +" for-loop_276)" +" lst_307" " start_56)))" "(void)))" "(let-values()(void))))))" @@ -52386,7 +52395,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_41)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))" "(let-values(((init-v_1)(digit->number init-c_11)))" -"(let-values(((v_245)" +"(let-values(((v_246)" "(let-values(((in69_0) in_34)" "((config70_0) config_41)" "((accum-str71_0) accum-str_2)" @@ -52396,7 +52405,7 @@ static const char *startup_source = "((init-v75_0) init-v_1))" "(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))" "(values" -" v_245" +" v_246" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))" "(accum-string-get!6.1 0 accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))" @@ -52664,9 +52673,9 @@ static const char *startup_source = "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_306)(read-config-for-syntax? config_43)))" -"(if or-part_306" -" or-part_306" +"(if(let-values(((or-part_309)(read-config-for-syntax? config_43)))" +"(if or-part_309" +" or-part_309" "(not(check-parameter 1/read-accept-graph config_43))))" "(let-values()" "(let-values(((in37_1) in_37)" @@ -52779,9 +52788,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_207)" +"(let-values(((or-part_210)" "(read-config-state-graph(read-config-st config_43))))" -"(if or-part_207 or-part_207 '#hash()))" +"(if or-part_210 or-part_210 '#hash()))" " v_30" "(lambda()" "(let-values(((in67_0) in_37)" @@ -52826,9 +52835,9 @@ static const char *startup_source = "(lambda(config_44)" "(begin" "(let-values(((st_3)(read-config-st config_44)))" -"(let-values(((or-part_358)(read-config-state-graph st_3)))" -"(if or-part_358" -" or-part_358" +"(let-values(((or-part_361)(read-config-state-graph st_3)))" +"(if or-part_361" +" or-part_361" "(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))" "(define-values" "(coerce-key)" @@ -53178,8 +53187,8 @@ static const char *startup_source = " temp63_4" "(list temp64_4))))" "(let-values()" -"(let-values(((v_246)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_246)" +"(let-values(((v_247)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_247)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53242,7 +53251,7 @@ static const char *startup_source = " temp72_2" "(list temp73_2)))))" "(values))))" -"(let-values(((v_247)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_248)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53271,7 +53280,7 @@ static const char *startup_source = " temp75_2" " temp77_1" "(list temp78_3)))))" -"(cons(coerce-key k_41 elem-config_1) v_247))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_248))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 in3_0 config4_0)" @@ -53608,7 +53617,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_203)" +"(let-values(((v_204)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53632,7 +53641,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_203 255)" +"(if(<= v_204 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53674,13 +53683,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_203)))))))))" +" v_204)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_248)" +"(let-values(((v_249)" "(let-values(((in40_1)" " in_37)" "((config41_1)" @@ -53700,13 +53709,13 @@ static const char *startup_source = " config41_1" " accum-str42_0))))" "(begin" -"(if(integer? v_248)" +"(if(integer? v_249)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_248" +" v_249" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53715,7 +53724,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_248))))))" +" v_249))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53730,7 +53739,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_249)" +"(let-values(((v_250)" "(let-values(((in45_0)" " in_37)" "((config46_1)" @@ -53751,23 +53760,23 @@ static const char *startup_source = " accum-str47_0))))" "(begin" "(if(integer?" -" v_249)" +" v_250)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_249" +" v_250" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_63)" "(<" -" v_249" +" v_250" " 55296)))" "(if or-part_63" " or-part_63" "(>" -" v_249" +" v_250" " 57343)))" "(let-values()" "(begin" @@ -53777,7 +53786,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_249))))" +" v_250))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53858,7 +53867,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_249" +" v_250" " 55296)" " 10)" "(-" @@ -53954,7 +53963,7 @@ static const char *startup_source = "(let-values(((pos_20)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_250)" +"(let-values(((v_251)" "(let-values(((in72_0)" " in_37)" "((config73_0)" @@ -53975,26 +53984,26 @@ static const char *startup_source = " accum-str74_0))))" "(begin" "(if(integer?" -" v_250)" +" v_251)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_250" +" v_251" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_250" +" v_251" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_250" +" v_251" " 57343)))" "(<=" -" v_250" +" v_251" " 1114111)" " #f)" "(let-values()" @@ -54005,7 +54014,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_250))))" +" v_251))))" "(let-values()" "(let-values(((in77_1)" " in_37)" @@ -54188,14 +54197,14 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_306)" +"(let-values(((lst_308)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_306)))" -"((letrec-values(((for-loop_276)" +"(let-values()(check-list lst_308)))" +"((letrec-values(((for-loop_277)" "(lambda(lst_28)" "(begin" " 'for-loop" @@ -54203,7 +54212,7 @@ static const char *startup_source = "(let-values(((c_94)" "(unsafe-car" " lst_28))" -"((rest_176)" +"((rest_177)" "(unsafe-cdr" " lst_28)))" "(let-values((()" @@ -54218,12 +54227,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" -" rest_176)" +"(for-loop_277" +" rest_177)" "(values))))" "(values))))))" -" for-loop_276)" -" lst_306)))" +" for-loop_277)" +" lst_308)))" "(void))))" "(if(char=? c_93 '#\\newline)" "(let-values()" @@ -54319,7 +54328,7 @@ static const char *startup_source = "(let-values(((in_52) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_52 special1.1 source_6))))" -"(let-values(((v_232)" +"(let-values(((v_233)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -54328,7 +54337,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_232(<= v_232 255) #f)" +"(if(if v_233(<= v_233 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -54347,7 +54356,7 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_6)))))" -"(integer->char v_232))))))" +"(integer->char v_233))))))" "(let-values() c_96))))" "(if(let-values(((or-part_80)(char=? c_96 '#\\u)))" "(if or-part_80 or-part_80(char=? c_96 '#\\U)))" @@ -54976,10 +54985,10 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_165)" +"(if(let-values(((or-part_168)" "(char-lang-nonsep? c_9)))" -"(if or-part_165" -" or-part_165" +"(if or-part_168" +" or-part_168" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" @@ -55104,14 +55113,14 @@ static const char *startup_source = "(let-values(((or-part_89)(char-alphabetic? c_101)))" "(if or-part_89" " or-part_89" -"(let-values(((or-part_303)(char-numeric? c_101)))" -"(if or-part_303" -" or-part_303" -"(let-values(((or-part_359)(char=? '#\\- c_101)))" -"(if or-part_359" -" or-part_359" -"(let-values(((or-part_360)(char=? '#\\+ c_101)))" -"(if or-part_360 or-part_360(char=? '#\\_ c_101)))))))))" +"(let-values(((or-part_306)(char-numeric? c_101)))" +"(if or-part_306" +" or-part_306" +"(let-values(((or-part_362)(char=? '#\\- c_101)))" +"(if or-part_362" +" or-part_362" +"(let-values(((or-part_363)(char=? '#\\+ c_101)))" +"(if or-part_363 or-part_363(char=? '#\\_ c_101)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -55119,15 +55128,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_51)))" "(begin" -"(let-values(((lst_198) already_0))" +"(let-values(((lst_201) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_198)))" -"((letrec-values(((for-loop_204)" -"(lambda(lst_307)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_201)))" +"((letrec-values(((for-loop_206)" +"(lambda(lst_309)" "(begin" " 'for-loop" -"(if(pair? lst_307)" -"(let-values(((c_102)(unsafe-car lst_307))((rest_177)(unsafe-cdr lst_307)))" +"(if(pair? lst_309)" +"(let-values(((c_102)(unsafe-car lst_309))((rest_178)(unsafe-cdr lst_309)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55137,10 +55146,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_102))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_204 rest_177)(values))))" +"(if(not #f)(for-loop_206 rest_178)(values))))" "(values))))))" -" for-loop_204)" -" lst_198)))" +" for-loop_206)" +" lst_201)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -55202,7 +55211,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_52)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_28)" -"(let-values(((or-part_361)" +"(let-values(((or-part_364)" "(if try-first-mod-path_0" "(let-values(((mod-path_29)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_52)" @@ -55210,7 +55219,7 @@ static const char *startup_source = " mod-path_29" " #f))" " #f)))" -"(if or-part_361 or-part_361(guard_0 mod-path-datum_0)))))" +"(if or-part_364 or-part_364(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_52)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_52)))" "(let-values(((no-value_0)(gensym)))" @@ -55670,14 +55679,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_251)" +"(let-values(((v_252)" "(let-values(((c79_1) c_106)" "((in80_1) in_68)" "((r-config81_0) r-config_0)" "((temp82_2)" -"(if(let-values(((or-part_314)(eq? c_106 ec_10)))" -"(if or-part_314" -" or-part_314" +"(if(let-values(((or-part_317)(eq? c_106 ec_10)))" +"(if or-part_317" +" or-part_317" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55689,7 +55698,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_251 in_68 config_57)))" +"(retry-special-comment v_252 in_68 config_57)))" "(let-values()(read-dispatch c_106 in_68 r-config_0 config_57)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_68 r-config_0))" @@ -55853,10 +55862,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_365)" "(check-parameter 1/read-square-bracket-as-paren config_57)))" -"(if or-part_362" -" or-part_362" +"(if or-part_365" +" or-part_365" "(check-parameter 1/read-square-bracket-with-tag config_57)))" "(let-values()" "(let-values(((in113_1) in_68)" @@ -55892,10 +55901,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_363)" +"(if(let-values(((or-part_366)" "(check-parameter 1/read-curly-brace-as-paren config_57)))" -"(if or-part_363" -" or-part_363" +"(if or-part_366" +" or-part_366" "(check-parameter 1/read-curly-brace-with-tag config_57)))" "(let-values()" "(wrap" @@ -55937,10 +55946,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_367)" "(check-parameter 1/read-curly-brace-as-paren config_57)))" -"(if or-part_364" -" or-part_364" +"(if or-part_367" +" or-part_367" "(check-parameter 1/read-curly-brace-with-tag config_57)))" "(let-values()" "(let-values(((in132_0) in_68)" @@ -56034,9 +56043,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_58)))" "(let-values(((col_12)(read-config-col config_58)))" "(let-values(((pos_122)(read-config-pos config_58)))" -"(let-values(((v_252)" +"(let-values(((v_253)" "(readtable-apply handler_4 c_108 in_70 config_58 line_13 col_12 pos_122)))" -"(retry-special-comment v_252 in_70 orig-config_0))))))" +"(retry-special-comment v_253 in_70 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -56351,8 +56360,8 @@ static const char *startup_source = "(if(eq? c_112 'special)(special1.1 'special) c_112)))))" "(if(char-delimiter? c2_13 config_58)" "(let-values()(wrap #f in_70 config_58 c_108))" -"(if(let-values(((or-part_365)(char=? c2_13 '#\\x)))" -"(if or-part_365 or-part_365(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_368)(char=? c2_13 '#\\x)))" +"(if or-part_368 or-part_368(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56603,11 +56612,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_253 in_79 config_59)" +"(lambda(v_254 in_79 config_59)" "(begin" -"(if(1/special-comment? v_253)" -"(let-values()(if(read-config-keep-comment? config_59) v_253(read-undotted #f in_79 config_59)))" -"(let-values() v_253)))))" +"(if(1/special-comment? v_254)" +"(let-values()(if(read-config-keep-comment? config_59) v_254(read-undotted #f in_79 config_59)))" +"(let-values() v_254)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?3_0)" @@ -56728,7 +56737,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_97 #f)))" -"(let-values(((or-part_284)(not b/p_3)))(if or-part_284 or-part_284(provided-as-protected? b/p_3)))))" +"(let-values(((or-part_288)(not b/p_3)))(if or-part_288 or-part_288(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -56762,17 +56771,17 @@ static const char *startup_source = "(let-values(((name_41)" "(let-values(((mod44_0) mod_18)((temp45_1) #t))" "(reference->resolved-module-path27.1 temp45_1 mod44_0))))" -"(let-values(((phase_136)(namespace-phase ns_48)))" +"(let-values(((phase_137)(namespace-phase ns_48)))" "(let-values(((m-ns_17)" "(let-values(((ns46_0) ns_48)" -"((name47_1) name_41)" -"((phase48_1) phase_136))" +"((name47_0) name_41)" +"((phase48_1) phase_137))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" " ns46_0" -" name47_1" +" name47_0" " phase48_1))))" "(begin" "(if m-ns_17" @@ -56809,7 +56818,7 @@ static const char *startup_source = " temp49_3)))))" "(let-values(((ns41_0) ns_48)" "((temp42_3)(namespace-mpi m-ns_17))" -"((phase43_1) phase_136))" +"((phase43_1) phase_137))" "(namespace-module-make-available!112.1" " unsafe-undefined" " ns41_0" @@ -56899,19 +56908,19 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_33 ns_118 name_71)" "(begin" -"(let-values(((or-part_208)(namespace->module ns_118 name_71)))" -"(if or-part_208" -" or-part_208" +"(let-values(((or-part_211)(namespace->module ns_118 name_71)))" +"(if or-part_211" +" or-part_211" " (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_133)(1/module-path? mod_24)))" -"(if or-part_133" -" or-part_133" -"(let-values(((or-part_255)(1/module-path-index? mod_24)))" -"(if or-part_255 or-part_255(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_134)(1/module-path? mod_24)))" +"(if or-part_134" +" or-part_134" +"(let-values(((or-part_258)(1/module-path-index? mod_24)))" +"(if or-part_258 or-part_258(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path27.1)" @@ -56924,8 +56933,8 @@ static const char *startup_source = "(if(1/resolved-module-path? mod_25)" "(let-values() mod_25)" "(let-values()" -"(let-values(((mpi_48)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" -"(1/module-path-index-resolve mpi_48 load?_6))))))))))" +"(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_26)" @@ -57077,51 +57086,51 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_30)(begin(1/module-declared? mod-path_30 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_254 srcloc_12)" +"(lambda(for-syntax?_12 v_255 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_254)(let-values()(syntax->datum$1 v_254))(let-values() v_254)))" -"(if(syntax?$1 v_254)" -"(let-values() v_254)" -"(if(list? v_254)" +"(let-values()(if(syntax?$1 v_255)(let-values()(syntax->datum$1 v_255))(let-values() v_255)))" +"(if(syntax?$1 v_255)" +"(let-values() v_255)" +"(if(list? v_255)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_185) v_254))" +"(let-values(((lst_188) v_255))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_185)))" +"(let-values()(check-list lst_188)))" "((letrec-values(((for-loop_119)" -"(lambda(fold-var_231 lst_285)" +"(lambda(fold-var_235 lst_287)" "(begin" " 'for-loop" -"(if(pair? lst_285)" -"(let-values(((e_85)(unsafe-car lst_285))" -"((rest_161)(unsafe-cdr lst_285)))" -"(let-values(((fold-var_239)" -"(let-values(((fold-var_240) fold-var_231))" -"(let-values(((fold-var_241)" +"(if(pair? lst_287)" +"(let-values(((e_85)(unsafe-car lst_287))" +"((rest_162)(unsafe-cdr lst_287)))" +"(let-values(((fold-var_240)" +"(let-values(((fold-var_241) fold-var_235))" +"(let-values(((fold-var_242)" "(let-values()" "(cons" "(let-values()" "(read-coerce #t e_85 srcloc_12))" -" fold-var_240))))" -"(values fold-var_241)))))" -"(if(not #f)(for-loop_119 fold-var_239 rest_161) fold-var_239)))" -" fold-var_231)))))" +" fold-var_241))))" +"(values fold-var_242)))))" +"(if(not #f)(for-loop_119 fold-var_240 rest_162) fold-var_240)))" +" fold-var_235)))))" " for-loop_119)" " null" -" lst_185))))" +" lst_188))))" " srcloc_12" " #f))" -"(if(pair? v_254)" +"(if(pair? v_255)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_254) srcloc_12)(read-coerce #t(cdr v_254) srcloc_12))" +"(cons(read-coerce #t(car v_255) srcloc_12)(read-coerce #t(cdr v_255) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_254 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_255 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_0 k_42)" @@ -57211,8 +57220,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))" "(if((lambda(x_92)" -"(let-values(((or-part_296)(not x_92)))" -"(if or-part_296 or-part_296(char? x_92))))" +"(let-values(((or-part_299)(not x_92)))" +"(if or-part_299 or-part_299(char? x_92))))" " start_59)" "(void)" "(let-values()" @@ -57279,8 +57288,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" "(if((lambda(x_95)" -"(let-values(((or-part_158)(not x_95)))" -"(if or-part_158 or-part_158(1/readtable? x_95))))" +"(let-values(((or-part_159)(not x_95)))" +"(if or-part_159 or-part_159(1/readtable? x_95))))" " readtable_9)" "(void)" "(let-values()" @@ -57328,13 +57337,13 @@ static const char *startup_source = "(declare-primitive-module!)" "(lambda(name_72 inst_6 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_49)(1/module-path-index-join(list 'quote name_72) #f)))" +"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_72) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_0)(1/current-module-declare-source))" "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" -"((mpi7_0) mpi_49)" +"((mpi7_0) mpi_48)" "((temp8_4)" "(hasheqv" " 0" @@ -57359,7 +57368,7 @@ static const char *startup_source = "(let-values()" "(let-values(((binding_26)" "(let-values(((mpi10_0)" -" mpi_49)" +" mpi_48)" "((temp11_6)" " 0)" "((sym12_0)" @@ -57417,12 +57426,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_22)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_258)" +"(lambda(lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((sym_101)(unsafe-car lst_258))" -"((rest_178)(unsafe-cdr lst_258)))" +"(if(pair? lst_261)" +"(let-values(((sym_101)(unsafe-car lst_261))" +"((rest_179)(unsafe-cdr lst_261)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57441,7 +57450,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_178)" +"(for-loop_20 rest_179)" "(values))))" "(values))))))" " for-loop_20)" @@ -57528,13 +57537,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_236)" +"(lambda(v_237)" "(begin" -"(if(let-values(((or-part_67)(not v_236)))" +"(if(let-values(((or-part_67)(not v_237)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_68)(1/module-path? v_236)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_236)(1/module-path?(syntax->datum$1 v_236)) #f)))))" +"(let-values(((or-part_68)(1/module-path? v_237)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_237)(1/module-path?(syntax->datum$1 v_237)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57543,8 +57552,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_236)))" -" v_236))))" +" v_237)))" +" v_237))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57622,7 +57631,7 @@ static const char *startup_source = " stop-ids56_0" " intdefs57_0)))))))))))" "(case-lambda" -"((s_447 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_447 context_11 stop-ids_3 '())))" +"((s_446 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_446 context_11 stop-ids_3 '())))" "((s_75 context_12 stop-ids_4 intdefs1_1)(local-expand5_0 s_75 context_12 stop-ids_4 intdefs1_1)))))" "(define-values" "(1/local-expand/capture-lifts)" @@ -57630,7 +57639,7 @@ static const char *startup_source = "(lambda(s9_1 context10_0 stop-ids11_0 intdefs7_0 lift-key8_0)" "(begin" " 'local-expand/capture-lifts12" -"(let-values(((s_493) s9_1))" +"(let-values(((s_492) s9_1))" "(let-values(((context_13) context10_0))" "(let-values(((stop-ids_5) stop-ids11_0))" "(let-values(((intdefs_5) intdefs7_0))" @@ -57638,7 +57647,7 @@ static const char *startup_source = "(if(eq? lift-key8_0 unsafe-undefined)(generate-lift-key) lift-key8_0)))" "(let-values()" "(let-values(((temp58_3) 'local-expand)" -"((s59_0) s_493)" +"((s59_0) s_492)" "((context60_0) context_13)" "((stop-ids61_0) stop-ids_5)" "((intdefs62_0) intdefs_5)" @@ -57697,10 +57706,10 @@ static const char *startup_source = " stop-ids68_0" " intdefs69_0)))))))))))" "(case-lambda" -"((s_188 context_18 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand18_0 s_188 context_18 stop-ids_10 '())))" -"((s_494 context_19 stop-ids_11 intdefs14_1)" -"(local-transformer-expand18_0 s_494 context_19 stop-ids_11 intdefs14_1)))))" +"((s_187 context_18 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand18_0 s_187 context_18 stop-ids_10 '())))" +"((s_493 context_19 stop-ids_11 intdefs14_1)" +"(local-transformer-expand18_0 s_493 context_19 stop-ids_11 intdefs14_1)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts25_0)" @@ -57740,22 +57749,22 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts25_0 s_19 context_21 stop-ids_13 '() unsafe-undefined)))" -"((s_450 context_22 stop-ids_14 intdefs_9 lift-key21_1)" -"(local-transformer-expand/capture-lifts25_0 s_450 context_22 stop-ids_14 intdefs_9 lift-key21_1))" -"((s_495 context_23 stop-ids_15 intdefs20_1)" -"(local-transformer-expand/capture-lifts25_0 s_495 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" +"((s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1)" +"(local-transformer-expand/capture-lifts25_0 s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1))" +"((s_494 context_23 stop-ids_15 intdefs20_1)" +"(local-transformer-expand/capture-lifts25_0 s_494 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression29_0)" "(lambda(s28_1 opaque-only?27_0)" "(begin" " 'syntax-local-expand-expression29" -"(let-values(((s_496) s28_1))" +"(let-values(((s_495) s28_1))" "(let-values(((opaque-only?_0) opaque-only?27_0))" "(let-values()" "(let-values(((exp-s_11)" "(let-values(((temp79_0) 'syntax-local-expand-expression)" -"((s80_1) s_496)" +"((s80_1) s_495)" "((temp81_3) 'expression)" "((null82_0) null)" "((temp83_2) #f)" @@ -57776,7 +57785,7 @@ static const char *startup_source = " temp81_3" " null82_0" " temp83_2))))" -"(let-values(((ctx_74)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" +"(let-values(((ctx_73)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -57784,22 +57793,22 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_11)" " exp-s_11" -"(flip-introduction-scopes exp-s_11 ctx_74))" -"(expand-context-binding-layer ctx_74)))" -" ctx_74)))" +"(flip-introduction-scopes exp-s_11 ctx_73))" +"(expand-context-binding-layer ctx_73)))" +" ctx_73)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_74)))" +"(let-values(((obs_60)(expand-context-observer ctx_73)))" "(if obs_60" "(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_4)(expand-context-observer ctx_74)))" +"(let-values(((obs_4)(expand-context-observer ctx_73)))" "(if obs_4" "(let-values()(let-values()(call-expand-observe obs_4 'exit-local exp-s_11)))" "(void)))" "(values(if(not opaque-only?_0) exp-s_11 #f) ae_1))))))))))))" "(case-lambda" "((s_46)(begin 'syntax-local-expand-expression(syntax-local-expand-expression29_0 s_46 #f)))" -"((s_487 opaque-only?27_1)(syntax-local-expand-expression29_0 s_487 opaque-only?27_1)))))" +"((s_486 opaque-only?27_1)(syntax-local-expand-expression29_0 s_486 opaque-only?27_1)))))" "(define-values" "(do-local-expand50.1)" "(lambda(as-transformer?32_0" @@ -57836,12 +57845,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0) skip-log-exit?37_0))" "(let-values()" "(let-values()" -"(let-values(((s_497)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_496)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_366)(list? context_24)))" -"(if or-part_366" -" or-part_366" +"(if(let-values(((or-part_369)(list? context_24)))" +"(if or-part_369" +" or-part_369" "(memq" " context_24" "(if as-transformer?_6" @@ -57881,29 +57890,29 @@ static const char *startup_source = " intdefs-or-false?-string" " intdefs_10)))" "(values))))" -"(let-values(((ctx_75)" +"(let-values(((ctx_74)" "(let-values(((who88_0) who_34))" "(get-current-expand-context16.1 #f who88_0))))" -"(let-values(((phase_93)" +"(let-values(((phase_94)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_75))" -"(expand-context-phase ctx_75))))" +"(add1(expand-context-phase ctx_74))" +"(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx89_0) ctx_75)" +"(let-values(((ctx89_0) ctx_74)" "((context90_0) context_24)" -"((phase91_0) phase_93)" +"((phase91_0) phase_94)" "((intdefs92_0) intdefs_10)" "((stop-ids93_0) stop-ids_16)" "((to-parsed-ok?94_0) to-parsed-ok?_1)" "((temp95_2)" -"(let-values(((or-part_166)" +"(let-values(((or-part_169)" " keep-#%expression?_2))" -"(if or-part_166" -" or-part_166" +"(if or-part_169" +" or-part_169" "(if(expand-context-in-local-expand?" -" ctx_75)" +" ctx_74)" "(expand-context-keep-#%expression?" -" ctx_75)" +" ctx_74)" " #f))))" "((track-to-be-defined?96_0)" " track-to-be-defined?_1))" @@ -57919,8 +57928,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_75)" -" phase_93)" +"(expand-context-namespace ctx_74)" +" phase_94)" "(values))))" "(let-values((()" "(begin" @@ -57932,12 +57941,12 @@ static const char *startup_source = "(call-expand-observe" " obs_7" " 'enter-local" -" s_497)))" +" s_496)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp97_3)" -"(flip-introduction-scopes s_497 ctx_75))" +"(flip-introduction-scopes s_496 ctx_74))" "((intdefs98_0) intdefs_10))" "(add-intdef-scopes24.1" " unsafe-undefined" @@ -58081,7 +58090,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_75))))" +" ctx_74))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -58142,63 +58151,63 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_2" -"(lambda(s_440)(syntax-arm$1 s_440 insp_21))" +"(lambda(s_439)(syntax-arm$1 s_439 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_2 insp_21))))))))))))))))" "(case-lambda" -"((s_498)(begin 'syntax-arm(syntax-arm4_0 s_498 #f #f)))" -"((s_447 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_447 maybe-insp_1 use-mode?2_1))" +"((s_497)(begin 'syntax-arm(syntax-arm4_0 s_497 #f #f)))" +"((s_446 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_446 maybe-insp_1 use-mode?2_1))" "((s_75 maybe-insp1_1)(syntax-arm4_0 s_75 maybe-insp1_1 #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_499 maybe-insp_2)" +"(lambda(s_498 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_499)" +"(if(syntax?$1 s_498)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_499)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_498)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_307)(not maybe-insp_2)))" -"(if or-part_307 or-part_307(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_310)(not maybe-insp_2)))" +"(if or-part_310 or-part_310(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_499 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_498 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm9_0)" "(lambda(s7_1 from-s8_0 use-mode?6_0)" "(begin" " 'syntax-rearm9" -"(let-values(((s_181) s7_1))" +"(let-values(((s_180) s7_1))" "(let-values(((from-s_2) from-s8_0))" "(let-values(((use-mode?_1) use-mode?6_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_181)" +"(if(syntax?$1 s_180)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_181)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_180)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_181" +" s_180" "(lambda(s_76)(syntax-rearm$1 s_76 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_181 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_180 from-s_2))))))))))))))" "(case-lambda" -"((s_182 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_182 from-s_3 #f)))" -"((s_442 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_442 from-s_4 use-mode?6_1)))))" +"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_181 from-s_3 #f)))" +"((s_441 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_441 from-s_4 use-mode?6_1)))))" "(define-values" "(1/syntax-taint)" "(lambda(s_5)" @@ -58213,11 +58222,11 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_367) maybe-insp_3))" -"(if or-part_367" -" or-part_367" -"(let-values(((or-part_160)(current-module-code-inspector)))" -"(if or-part_160 or-part_160(current-code-inspector))))))))" +"(let-values(((or-part_370) maybe-insp_3))" +"(if or-part_370" +" or-part_370" +"(let-values(((or-part_163)(current-module-code-inspector)))" +"(if or-part_163 or-part_163(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -58246,9 +58255,9 @@ static const char *startup_source = " (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_1)))" "(values))))" "(let-values(((ns_60)(variable-reference->namespace* vr_1)))" -"(let-values(((mpi_50)(namespace-mpi ns_60)))" +"(let-values(((mpi_49)(namespace-mpi ns_60)))" "(begin" -"(if(non-self-module-path-index? mpi_50)" +"(if(non-self-module-path-index? mpi_49)" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -58257,7 +58266,7 @@ static const char *startup_source = " 1/current-namespace" " ns_60)" "(let-values()" -"(let-values(((ns4_1) ns_60)((mpi5_0) mpi_50)((temp6_5)(namespace-0-phase ns_60)))" +"(let-values(((ns4_1) ns_60)((mpi5_0) mpi_49)((temp6_5)(namespace-0-phase ns_60)))" "(namespace-module-make-available!112.1 unsafe-undefined ns4_1 mpi5_0 temp6_5)))))" "(void))" " ns_60)))))))))" @@ -58286,8 +58295,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_3)))" "(values))))" -"(let-values(((mpi_51)(namespace-mpi(variable-reference->namespace* vr_3))))" -"(if(top-level-module-path-index? mpi_51) #f mpi_51))))))))" +"(let-values(((mpi_50)(namespace-mpi(variable-reference->namespace* vr_3))))" +"(if(top-level-module-path-index? mpi_50) #f mpi_50))))))))" "(define-values" "(1/variable-reference->resolved-module-path)" "(lambda(vr_4)" @@ -58305,8 +58314,8 @@ static const char *startup_source = " \"variable-reference?\"" " vr_4)))" "(values))))" -"(let-values(((mpi_52)(1/variable-reference->module-path-index vr_4)))" -"(if mpi_52(1/module-path-index-resolve mpi_52) #f))))))))" +"(let-values(((mpi_51)(1/variable-reference->module-path-index vr_4)))" +"(if mpi_51(1/module-path-index-resolve mpi_51) #f))))))))" "(define-values" "(1/variable-reference->module-source)" "(lambda(vr_5)" @@ -58731,7 +58740,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_245)" +"((letrec-values(((for-loop_247)" "(lambda(table_210 i_97)" "(begin" " 'for-loop" @@ -58756,13 +58765,13 @@ static const char *startup_source = "(let-values()" "(values" " sym_92" -"(let-values(((or-part_164)" +"(let-values(((or-part_167)" "(hash-ref" " alts_0" " sym_92" " #f)))" -"(if or-part_164" -" or-part_164" +"(if or-part_167" +" or-part_167" " val_81))))))" "(hash-set" " table_11" @@ -58770,12 +58779,12 @@ static const char *startup_source = " val_5)))))" "(values table_12)))))))" "(if(not #f)" -"(for-loop_245" +"(for-loop_247" " table_211" "(hash-iterate-next ht_157 i_97))" " table_211)))" " table_210)))))" -" for-loop_245)" +" for-loop_247)" " '#hasheq()" "(hash-iterate-first ht_157))))))" "(let-values(((ht+extras_0)" @@ -58784,7 +58793,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_251)" "(lambda(ht_152 i_169)" "(begin" " 'for-loop" @@ -58804,12 +58813,12 @@ static const char *startup_source = " v_48))))" "(values ht_160)))))" "(if(not #f)" -"(for-loop_250" +"(for-loop_251" " ht_158" "(hash-iterate-next ht_145 i_169))" " ht_158)))" " ht_152)))))" -" for-loop_250)" +" for-loop_251)" " ht_156" "(hash-iterate-first ht_145))))))" "(let-values(((to-name61_0) to-name_0)" @@ -58854,7 +58863,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_162)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_278)" "(lambda(table_212 i_176)" "(begin" " 'for-loop" @@ -58920,14 +58929,14 @@ static const char *startup_source = "(values" " table_213)))))" "(if(not #f)" -"(for-loop_277" +"(for-loop_278" " table_6" "(hash-iterate-next" " ht_162" " i_176))" " table_6)))" " table_212)))))" -" for-loop_277)" +" for-loop_278)" " '#hash()" "(hash-iterate-first ht_162))))))" "((temp75_4)" @@ -58947,7 +58956,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_163)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_279)" "(lambda(i_177)" "(begin" " 'for-loop" @@ -58970,13 +58979,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_279" "(hash-iterate-next" " ht_163" " i_177))" "(values))))" "(values))))))" -" for-loop_278)" +" for-loop_279)" "(hash-iterate-first ht_163))))" "(void)))" "(void)))))" @@ -59003,32 +59012,32 @@ static const char *startup_source = "(declare-module!58.1 #t ns66_0 temp67_5 temp68_6))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" -"(lambda(namespace45_0 reexport?44_0 name48_0 require-names49_0)" +"(lambda(namespace45_0 reexport?44_0 name48_1 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_76) name48_0))" +"(let-values(((name_76) name48_1))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0) reexport?44_0))" "(let-values(((ns_124) namespace45_0))" "(let-values()" -"(let-values(((mpi_53)(1/module-path-index-join(list 'quote name_76) #f)))" +"(let-values(((mpi_52)(1/module-path-index-join(list 'quote name_76) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_109) require-names_0))" +"(let-values(((lst_108) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_109)))" -"((letrec-values(((for-loop_205)" -"(lambda(fold-var_141 lst_110)" +"(let-values()(check-list lst_108)))" +"((letrec-values(((for-loop_207)" +"(lambda(fold-var_143 lst_109)" "(begin" " 'for-loop" -"(if(pair? lst_110)" -"(let-values(((require-name_0)(unsafe-car lst_110))" -"((rest_108)(unsafe-cdr lst_110)))" +"(if(pair? lst_109)" +"(let-values(((require-name_0)(unsafe-car lst_109))" +"((rest_110)(unsafe-cdr lst_109)))" +"(let-values(((fold-var_145)" +"(let-values(((fold-var_285) fold-var_143))" "(let-values(((fold-var_39)" -"(let-values(((fold-var_283) fold-var_141))" -"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" @@ -59037,39 +59046,39 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_283))))" -"(values fold-var_284)))))" +" fold-var_285))))" +"(values fold-var_39)))))" "(if(not #f)" -"(for-loop_205 fold-var_39 rest_108)" -" fold-var_39)))" -" fold-var_141)))))" -" for-loop_205)" +"(for-loop_207 fold-var_145 rest_110)" +" fold-var_145)))" +" fold-var_143)))))" +" for-loop_207)" " null" -" lst_109))))))" +" lst_108))))))" "(let-values(((ns79_1) ns_124)" "((temp80_2)" "(let-values(((temp82_3) #t)" "((temp83_3) #t)" -"((mpi84_0) mpi_53)" +"((mpi84_0) mpi_52)" "((temp85_4)(list(cons 0 require-mpis_0)))" "((temp86_4)" "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_156) require-mpis_0))" +"(let-values(((lst_159) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_279)" -"(lambda(table_214 lst_308)" +"(let-values()(check-list lst_159)))" +"((letrec-values(((for-loop_280)" +"(lambda(table_214 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_308)" +"(if(pair? lst_310)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_308))" -"((rest_179)" -"(unsafe-cdr lst_308)))" +"(unsafe-car lst_310))" +"((rest_180)" +"(unsafe-cdr lst_310)))" "(let-values(((table_215)" "(let-values(((m_29)" "(namespace->module" @@ -59078,7 +59087,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_183)" +"((letrec-values(((for-loop_185)" "(lambda(table_140)" "(begin" " 'for-loop" @@ -59100,7 +59109,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_164)))" -"((letrec-values(((for-loop_280)" +"((letrec-values(((for-loop_281)" "(lambda(table_141" " i_178)" "(begin" @@ -59130,27 +59139,27 @@ static const char *startup_source = " table_217)))))" "(if(not" " #f)" -"(for-loop_280" +"(for-loop_281" " table_31" "(hash-iterate-next" " ht_164" " i_178))" " table_31)))" " table_141)))))" -" for-loop_280)" +" for-loop_281)" " table_140" "(hash-iterate-first" " ht_164))))))" " table_216))))))" -" for-loop_183)" +" for-loop_185)" " table_214)))))" "(if(not #f)" -"(for-loop_279 table_215 rest_179)" +"(for-loop_280 table_215 rest_180)" " table_215)))" " table_214)))))" -" for-loop_279)" +" for-loop_280)" " '#hash()" -" lst_156))))" +" lst_159))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -59172,7 +59181,7 @@ static const char *startup_source = " #f" " null" " #f)))" -"((temp81_4)(1/module-path-index-resolve mpi_53)))" +"((temp81_4)(1/module-path-index-resolve mpi_52)))" "(declare-module!58.1 #t ns79_1 temp80_2 temp81_4))))))))))))" "(define-values" "(read-primitives)" @@ -59523,8 +59532,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_309)(eof-object? exp_0)))" -"(if or-part_309 or-part_309(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_312)(eof-object? exp_0)))" +"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59639,10 +59648,10 @@ static const char *startup_source = "(if c2_17" "((lambda(thunk_8) thunk_8) c2_17)" "(let-values()" -"(let-values(((s_179)(1/read-syntax(object-name i_179) i_179)))" +"(let-values(((s_178)(1/read-syntax(object-name i_179) i_179)))" "(let-values((()" "(begin" -"(if(eof-object? s_179)" +"(if(eof-object? s_178)" "(let-values()" "(error" " 'default-load-handler" @@ -59653,7 +59662,7 @@ static const char *startup_source = "(object-name i_179)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_179 path_12)))" +"(let-values(((m-s_0)(check-module-form s_178 path_12)))" "(let-values(((s2_10)(1/read-syntax(object-name i_179) i_179)))" "(begin" "(if(eof-object? s2_10)" @@ -59671,11 +59680,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_499)" +"(lambda(s_498)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_499) s_499))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_498) s_498))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_180)" @@ -59766,7 +59775,7 @@ static const char *startup_source = "(begin(check-bytes vec_71)(values vec_71(unsafe-bytes-length vec_71))))))" "(begin" " #f" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_235)" "(lambda(result_123 pos_99)" "(begin" " 'for-loop" @@ -59779,10 +59788,10 @@ static const char *startup_source = "(let-values()(not(eq? c_52 0))))))" "(values result_125)))))" "(if(if(not((lambda x_98 result_124) c_52))(not #f) #f)" -"(for-loop_233 result_124(unsafe-fx+ 1 pos_99))" +"(for-loop_235 result_124(unsafe-fx+ 1 pos_99))" " result_124)))" " result_123)))))" -" for-loop_233)" +" for-loop_235)" " #f" " 0)))" " hash-code_5" @@ -59805,7 +59814,7 @@ static const char *startup_source = "(lambda(i_182)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_189)(read-byte i_182)))(if(eof-object? v_189) 0 v_189))))))" +"(let-values(((v_190)(read-byte i_182)))(if(eof-object? v_190) 0 v_190))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59820,9 +59829,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_183 pos_124)(values))))" "(let-values(((name-len_0)(read-number i_183)))" -"(let-values(((v_255)(read-bytes name-len_0 i_183)))" +"(let-values(((v_256)(read-bytes name-len_0 i_183)))" "(begin" -"(if(if(bytes? v_255)(=(bytes-length v_255) name-len_0) #f)" +"(if(if(bytes? v_256)(=(bytes-length v_256) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59836,10 +59845,10 @@ static const char *startup_source = "(object-name i_183)" " pos_124" " name-len_0" -" v_255)))" -"(if(bytes=? bstr_5 v_255)" +" v_256)))" +"(if(bytes=? bstr_5 v_256)" "(let-values()(read-number i_183))" -"(if(bytesbytes/utf-8" -"(symbol->string s_186))))" +"(symbol->string s_185))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -59903,7 +59912,7 @@ static const char *startup_source = " fold-var_74)))))" " for-loop_109)" " null" -" lst_264))))))))))" +" lst_267))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_9)" @@ -60101,16 +60110,16 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_356) main-path-d_0))" -"(if or-part_356" -" or-part_356" +"(let-values(((or-part_359) main-path-d_0))" +"(if or-part_359" +" or-part_359" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_163)" +"(let-values(((or-part_166)" " alt-path-d_0))" -"(if or-part_163" -" or-part_163" +"(if or-part_166" +" or-part_166" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -60232,12 +60241,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_368)" +"(if(let-values(((or-part_371)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_368" -" or-part_368" +"(if or-part_371" +" or-part_371" "(car expect-module_0)))" "(let-values()" "(let-values(((p_77)" @@ -60282,7 +60291,7 @@ static const char *startup_source = "(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_207)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_207)))))" +"(lambda(reg_1 v_208)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_208)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -60295,7 +60304,7 @@ static const char *startup_source = "(if l_84(let-values(((a_74)(1/assoc p_47 l_84)))(if a_74(cdr a_74) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_78 v_256)" +"(lambda(p_78 v_257)" "(begin" "(let-values(((i_164)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_164)))" @@ -60304,14 +60313,14 @@ static const char *startup_source = " -path-cache" " i_164" "(make-weak-box" -"(cons(cons p_78 v_256)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" +"(cons(cons p_78 v_257)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_500 coll-mode?_0)" +"(lambda(s_499 coll-mode?_0)" "(begin" "(let-values(((l_85)" "((letrec-values(((loop_46)" @@ -60334,7 +60343,7 @@ static const char *startup_source = " iloop_2)" " 0))))))" " loop_46)" -" s_500)))" +" s_499)))" "(if coll-mode?_0" " l_85" "((letrec-values(((loop_47)" @@ -60377,23 +60386,23 @@ 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_174 from-namespace_1)" +"((s_173 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_174)" +"(if(1/resolved-module-path? s_173)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_174)))" -"(if(let-values(((or-part_133)(not from-namespace_1)))" -"(if or-part_133 or-part_133(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_173)))" +"(if(let-values(((or-part_134)(not from-namespace_1)))" +"(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_174))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_173))(void))" "(let-values(((hts_1)" "(let-values(((or-part_98)" "(registry-table-ref" @@ -60407,14 +60416,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_174 'declared)" +"(hash-set!(car hts_1) s_173 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_174))" +"(if(pair?(1/resolved-module-path-name s_173))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_174)))" -" s_174))" +"(car(1/resolved-module-path-name s_173)))" +" s_173))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60426,18 +60435,18 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_451 relto_0 stx_19)" +"((s_450 relto_0 stx_19)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_451 relto_0 stx_19 #t)))" -"((s_501 relto_1 stx_20 load?_7)" +"(standard-module-name-resolver_0 s_450 relto_0 stx_19 #t)))" +"((s_500 relto_1 stx_20 load?_7)" "(let-values((()" "(begin" -"(if(1/module-path? s_501)" +"(if(1/module-path? s_500)" "(void)" "(let-values()" "(if(syntax?$1 stx_20)" @@ -60445,12 +60454,12 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_501))))" +" s_500))))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_358)(not relto_1)))" -"(if or-part_358 or-part_358(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_361)(not relto_1)))" +"(if or-part_361 or-part_361(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60508,24 +60517,24 @@ static const char *startup_source = " loop_120)" " null" " orig-l_10)))))" -"(if(if(pair? s_501)(eq?(car s_501) 'quote) #f)" -"(let-values()(1/make-resolved-module-path(cadr s_501)))" -"(if(if(pair? s_501)" -"(if(eq?(car s_501) 'submod)" -"(if(pair?(cadr s_501))(eq?(caadr s_501) 'quote) #f)" +"(if(if(pair? s_500)(eq?(car s_500) 'quote) #f)" +"(let-values()(1/make-resolved-module-path(cadr s_500)))" +"(if(if(pair? s_500)" +"(if(eq?(car s_500) 'submod)" +"(if(pair?(cadr s_500))(eq?(caadr s_500) 'quote) #f)" " #f)" " #f)" "(let-values()" -"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_501)(cddr s_501))))" -"(if(if(pair? s_501)" -"(if(eq?(car s_501) 'submod)" -" (if (let-values (((or-part_101) (equal? (cadr s_501) \".\")))" -" (if or-part_101 or-part_101 (equal? (cadr s_501) \"..\")))" +"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_500)(cddr s_500))))" +"(if(if(pair? s_500)" +"(if(eq?(car s_500) 'submod)" +" (if (let-values (((or-part_101) (equal? (cadr s_500) \".\")))" +" (if or-part_101 or-part_101 (equal? (cadr s_500) \"..\")))" "(if relto_1" "(let-values(((p_79)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_369)(symbol? p_79)))" -"(if or-part_369" -" or-part_369" +"(let-values(((or-part_372)(symbol? p_79)))" +"(if or-part_372" +" or-part_372" "(if(pair? p_79)(symbol?(car p_79)) #f))))" " #f)" " #f)" @@ -60537,27 +60546,27 @@ static const char *startup_source = "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" "(let-values(((r_47)" -" (if (equal? (cadr s_501) \"..\") (cdr s_501) (cddr s_501))))" +" (if (equal? (cadr s_500) \"..\") (cdr s_500) (cddr s_500))))" "(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" -"(if(if(pair? s_501)(eq?(car s_501) 'planet) #f)" +"(if(if(pair? s_500)(eq?(car s_500) 'planet) #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_501 relto_1 stx_20 load?_7 #f orig-paramz)))" -"(if(if(pair? s_501)" -"(if(eq?(car s_501) 'submod)" -"(if(pair?(cadr s_501))(eq?(caadr s_501) 'planet) #f)" +"(planet-resolver_0 s_500 relto_1 stx_20 load?_7 #f orig-paramz)))" +"(if(if(pair? s_500)" +"(if(eq?(car s_500) 'submod)" +"(if(pair?(cadr s_500))(eq?(caadr s_500) 'planet) #f)" " #f)" " #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" "(planet-resolver_0" -"(cadr s_501)" +"(cadr s_500)" " relto_1" " stx_20" " load?_7" -"(cddr s_501)" +"(cddr s_500)" " orig-paramz)))" "(let-values()" "(let-values(((get-dir_0)" @@ -60590,10 +60599,10 @@ static const char *startup_source = " #f)))" "(if or-part_41" " or-part_41" -"(let-values(((or-part_370)" +"(let-values(((or-part_373)" "(current-load-relative-directory)))" -"(if or-part_370" -" or-part_370" +"(if or-part_373" +" or-part_373" "(current-directory))))))))" "((get-reg_0)" "(lambda()" @@ -60606,15 +60615,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_366)" +"(let-values(((or-part_369)" "(if stx_20" "(if(error-print-source-location)" "(format-source-location" " stx_20)" " #f)" " #f)))" -"(if or-part_366" -" or-part_366" +"(if or-part_369" +" or-part_369" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60622,40 +60631,40 @@ static const char *startup_source = " msg_1" "(format" " \"\\n for module path: ~s\\n\"" -" s_501)))))" +" s_500)))))" "(raise" "(if stx_20" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" "(list stx_20)" -" s_501)" +" s_500)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" "(current-continuation-marks)" -" s_501)))))))" +" s_500)))))))" "((ss->rkt_0)" -"(lambda(s_502)" +"(lambda(s_501)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_502)))" +"(let-values(((len_43)(string-length s_501)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_502(- len_43 3)))" +"(string-ref s_501(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_502(- len_43 2)))" +"(string-ref s_501(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_502(- len_43 1)))" +"(string-ref s_501(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_502 0(- len_43 3))" +"(substring s_501 0(- len_43 3))" " \".rkt\")" -" s_502)))))" +" s_501)))))" "((path-ss->rkt_0)" "(lambda(p_82)" "(begin" @@ -60665,11 +60674,11 @@ static const char *startup_source = " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" " (path-replace-extension p_82 #\".rkt\")" " p_82)))))" -"((s_503)" -"(if(if(pair? s_501)(eq? 'submod(car s_501)) #f)" -"(let-values(((v_257)(cadr s_501)))" -" (if (let-values (((or-part_371) (equal? v_257 \".\")))" -" (if or-part_371 or-part_371 (equal? v_257 \"..\")))" +"((s_502)" +"(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" +"(let-values(((v_258)(cadr s_500)))" +" (if (let-values (((or-part_374) (equal? v_258 \".\")))" +" (if or-part_374 or-part_374 (equal? v_258 \"..\")))" "(if relto_1" "(let-values(((p_7)" "(1/resolved-module-path-name" @@ -60678,19 +60687,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_501))" -" v_257))" -" s_501))" +" s_500))" +" v_258))" +" s_500))" "((subm-path_0)" -"(if(if(pair? s_501)(eq? 'submod(car s_501)) #f)" +"(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" "(let-values(((p_83)" -"(if(if(let-values(((or-part_165)" +"(if(if(let-values(((or-part_168)" "(equal?" -"(cadr s_501)" +"(cadr s_500)" " \".\")))" -"(if or-part_165" -" or-part_165" -" (equal? (cadr s_501) \"..\")))" +"(if or-part_168" +" or-part_168" +" (equal? (cadr s_500) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -60698,10 +60707,10 @@ static const char *startup_source = " relto_1))" "((r_48)" "(if(equal?" -"(cadr s_501)" +"(cadr s_500)" " \"..\")" -"(cdr s_501)" -"(cddr s_501))))" +"(cdr s_500)" +"(cddr s_500))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -60709,22 +60718,22 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_48)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_501) \"..\")" -"(cdr s_501)" -"(cddr s_501))))))" +" (if (equal? (cadr s_500) \"..\")" +"(cdr s_500)" +"(cddr s_500))))))" "(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" -"(if(symbol? s_503)" +"(if(symbol? s_502)" "(let-values()" "(let-values(((or-part_46)" "(path-cache-get" -"(cons s_503(get-reg_0)))))" +"(cons s_502(get-reg_0)))))" "(if or-part_46" " or-part_46" "(let-values(((cols_0 file_3)" "(split-relative-string" -"(symbol->string s_503)" +"(symbol->string s_502)" " #f)))" "(let-values(((f-file_0)" "(if(null? cols_0)" @@ -60738,17 +60747,17 @@ static const char *startup_source = "(if(null? cols_0) null(cdr cols_0))" " f-file_0" " #t))))))" -"(if(string? s_503)" +"(if(string? s_502)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_372)" +"(let-values(((or-part_375)" "(path-cache-get" -"(cons s_503 dir_4))))" -"(if or-part_372" -" or-part_372" +"(cons s_502 dir_4))))" +"(if or-part_375" +" or-part_375" "(let-values(((cols_1 file_4)" "(split-relative-string" -" s_503" +" s_502" " #f)))" "(if(null? cols_1)" "(build-path dir_4(ss->rkt_0 file_4))" @@ -60765,26 +60774,26 @@ static const char *startup_source = "(let-values() s_56))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" -"(if(path? s_503)" +"(if(path? s_502)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" -"(if(complete-path? s_503)" -" s_503" -"(path->complete-path s_503(get-dir_0))))))" -"(if(eq?(car s_503) 'lib)" +"(if(complete-path? s_502)" +" s_502" +"(path->complete-path s_502(get-dir_0))))))" +"(if(eq?(car s_502) 'lib)" "(let-values()" "(let-values(((or-part_84)" "(path-cache-get" -"(cons s_503(get-reg_0)))))" +"(cons s_502(get-reg_0)))))" "(if or-part_84" " or-part_84" "(let-values(((cols_2 file_5)" "(split-relative-string" -"(cadr s_503)" +"(cadr s_502)" " #f)))" "(let-values(((old-style?_0)" -"(if(null?(cddr s_503))" +"(if(null?(cddr s_502))" "(if(null? cols_2)" "(regexp-match?" " '#rx\"[.]\"" @@ -60807,7 +60816,7 @@ static const char *startup_source = "(if old-style?_0" "(append" "(if(null?" -"(cddr s_503))" +"(cddr s_502))" " '(\"mzlib\")" "(apply" " append" @@ -60816,7 +60825,7 @@ static const char *startup_source = "(split-relative-string" " p_3" " #t))" -"(cddr s_503))))" +"(cddr s_502))))" " cols_2)" "(if(null? cols_2)" "(list file_5)" @@ -60827,17 +60836,17 @@ static const char *startup_source = "(cdr cols_3)" " f-file_1" " #t))))))))" -"(if(eq?(car s_503) 'file)" +"(if(eq?(car s_502) 'file)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" "(path->complete-path" -"(expand-user-path(cadr s_503))" +"(expand-user-path(cadr s_502))" "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_131)(path? s-parsed_0)))" -"(if or-part_131 or-part_131(vector? s-parsed_0)))" +"(if(let-values(((or-part_376)(path? s-parsed_0)))" +"(if or-part_376 or-part_376(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_20" @@ -60850,7 +60859,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_503))))" +" s_502))))" "(let-values(((filename_2)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 0)" @@ -60875,11 +60884,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_373)" +"(let-values(((or-part_377)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_373" -" or-part_373" +"(if or-part_377" +" or-part_377" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -60983,12 +60992,12 @@ static const char *startup_source = " p_85" " stx_20))" " values)" -"(if(symbol? s_503)" -"(let-values() s_503)" -"(if(if(pair? s_503)" -"(eq?(car s_503) 'lib)" +"(if(symbol? s_502)" +"(let-values() s_502)" +"(if(if(pair? s_502)" +"(eq?(car s_502) 'lib)" " #f)" -"(let-values() s_503)" +"(let-values() s_502)" "(let-values()" "(if(1/resolved-module-path?" " root-modname_0)" @@ -61021,24 +61030,24 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_374)" -"(string? s_503)))" -"(if or-part_374" -" or-part_374" -"(let-values(((or-part_375)" -"(symbol? s_503)))" -"(if or-part_375" -" or-part_375" -"(if(pair? s_503)" -"(eq?(car s_503) 'lib)" +"(let-values(((or-part_378)" +"(string? s_502)))" +"(if or-part_378" +" or-part_378" +"(let-values(((or-part_379)" +"(symbol? s_502)))" +"(if or-part_379" +" or-part_379" +"(if(pair? s_502)" +"(eq?(car s_502) 'lib)" " #f)))))" " #f)" " #f)" "(let-values()" "(path-cache-set!" -"(if(string? s_503)" -"(cons s_503(get-dir_0))" -"(cons s_503(get-reg_0)))" +"(if(string? s_502)" +"(cons s_502(get-dir_0))" +"(cons s_502(get-reg_0)))" "(vector" " filename_2" " normal-filename_0" @@ -61065,7 +61074,7 @@ static const char *startup_source = "(let-values()(c_114 e_88 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_504 immediate-eval?_0)(begin(1/compile s_504(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_503 immediate-eval?_0)(begin(1/compile s_503(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_10 in_90)" @@ -61105,24 +61114,24 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_76)" +"(lambda(ctx_75)" "(begin" -"(let-values(((phase_44)(add1(expand-context-phase ctx_76))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_44)))" -"(namespace-visit-available-modules! ns_59 phase_44))))))" +"(let-values(((phase_45)(add1(expand-context-phase ctx_75))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_45)))" +"(namespace-visit-available-modules! ns_59 phase_45))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 bodys5_0 ctx6_0)" "(begin" " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_77) ctx6_0))" -"(let-values(((s_493) source1_0))" +"(let-values(((ctx_76) ctx6_0))" +"(let-values(((s_492) source1_0))" "(let-values(((stratified?_0) stratified?2_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_65)(expand-context-observer ctx_77)))" +"(let-values(((obs_65)(expand-context-observer ctx_76)))" "(if obs_65" "(let-values()" "(let-values()" @@ -61164,7 +61173,7 @@ static const char *startup_source = " lst_22))))))" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_77)))" +"(let-values(((obs_66)(expand-context-observer ctx_76)))" "(if obs_66" "(let-values()" "(let-values()" @@ -61175,12 +61184,12 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_137)(expand-context-phase ctx_77)))" +"(let-values(((phase_138)(expand-context-phase ctx_76)))" "(let-values(((frame-id_7)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_258) ctx_77))" -"(let-values(((the-struct_89) v_258))" +"(let-values(((v_259) ctx_76))" +"(let-values(((the-struct_89) v_259))" "(if(expand-context/outer? the-struct_89)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" @@ -61189,14 +61198,14 @@ static const char *startup_source = "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" "((scopes57_1)" -"(cons inside-sc_0(expand-context-scopes ctx_77)))" +"(cons inside-sc_0(expand-context-scopes ctx_76)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_7)" "((reference-records60_0)" "(cons" " frame-id_7" -"(expand-context-reference-records ctx_77)))" -"((inner61_0)(root-expand-context/outer-inner v_258)))" +"(expand-context-reference-records ctx_76)))" +"((inner61_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -61225,10 +61234,10 @@ static const char *startup_source = " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_77))" +"(expand-context-binding-layer ctx_76))" "(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_80)(expand-context-name ctx_77)))" +"(let-values(((name_80)(expand-context-name ctx_76)))" "((letrec-values(((loop_121)" "(lambda(body-ctx_2" " bodys_8" @@ -61253,7 +61262,7 @@ static const char *startup_source = "((temp68_7)(reverse$1 track-stxs_0))" "((temp69_4)(reverse$1 stx-clauses_0))" "((temp70_5)(reverse$1 done-bodys_0))" -"((s71_0) s_493)" +"((s71_0) s_492)" "((stratified?72_0) stratified?_0)" "((name73_0) name_80)" "((temp74_3)(reverse$1 trans-idss_1)))" @@ -61293,17 +61302,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_259)" +"(let-values(((v_260)" " body-ctx_2))" "(let-values(((the-struct_90)" -" v_259))" +" v_260))" "(if(expand-context/outer?" " the-struct_90)" "(let-values(((name77_0)" " name_80)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_259)))" +" v_260)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -61353,7 +61362,7 @@ static const char *startup_source = "(let-values(((tmp_63)" "(core-form-sym" " disarmed-exp-body_0" -" phase_137)))" +" phase_138)))" "(if(equal? tmp_63 'begin)" "(let-values()" "(let-values((()" @@ -61370,35 +61379,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_34 begin79_0 e80_0)" -"(let-values(((s_505)" +"(let-values(((s_504)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_505))" +" s_504))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_506)" +"(let-values(((s_505)" "(if(syntax?$1" -" s_505)" +" s_504)" "(syntax-e$1" -" s_505)" -" s_505)))" +" s_504)" +" s_504)))" "(if(pair?" -" s_506)" +" s_505)" "(let-values(((begin81_0)" -"(let-values(((s_177)" +"(let-values(((s_176)" "(car" -" s_506)))" -" s_177))" +" s_505)))" +" s_176))" "((e82_0)" -"(let-values(((s_451)" +"(let-values(((s_450)" "(cdr" -" s_506)))" +" s_505)))" "(let-values(((s_46)" "(if(syntax?$1" -" s_451)" +" s_450)" "(syntax-e$1" -" s_451)" -" s_451)))" +" s_450)" +" s_450)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" " s_46)))" @@ -61491,33 +61500,33 @@ static const char *startup_source = "(if(pair?" " s_51)" "(let-values(((define-values86_0)" -"(let-values(((s_452)" +"(let-values(((s_451)" "(car" " s_51)))" -" s_452))" +" s_451))" "((id87_0" " rhs88_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(cdr" " s_51)))" -"(let-values(((s_508)" +"(let-values(((s_507)" "(if(syntax?$1" -" s_507)" +" s_506)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_506)" +" s_506)))" "(if(pair?" -" s_508)" +" s_507)" "(let-values(((id89_1)" -"(let-values(((s_509)" +"(let-values(((s_508)" "(car" -" s_508)))" +" s_507)))" "(let-values(((s_53)" "(if(syntax?$1" -" s_509)" +" s_508)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_508)" +" s_508)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_53)))" @@ -61529,8 +61538,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))" "(let-values()" -"(let-values(((id_62)" -"(let-values(((lst_191)" +"(let-values(((id_63)" +"(let-values(((lst_194)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61538,90 +61547,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" -"((letrec-values(((for-loop_201)" -"(lambda(id_82" +" lst_194)))" +"((letrec-values(((for-loop_203)" +"(lambda(id_83" " lst_13)" "(begin" " 'for-loop" "(if(pair?" " lst_13)" -"(let-values(((s_313)" +"(let-values(((s_314)" "(unsafe-car" " lst_13))" -"((rest_103)" +"((rest_105)" "(unsafe-cdr" " lst_13)))" -"(let-values(((id_103)" "(let-values(((id_104)" -" id_82))" -"(let-values(((id_71)" +"(let-values(((id_105)" +" id_83))" +"(let-values(((id_72)" "(let-values()" "(let-values(((id92_0)" "(let-values()" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_213)" "(if(syntax?$1" -" s_313)" +" s_314)" "(symbol?" "(syntax-e$1" -" s_313))" +" s_314))" " #f)))" -"(if or-part_210" -" or-part_210" +"(if or-part_213" +" or-part_213" "(symbol?" -" s_313)))" -" s_313" +" s_314)))" +" s_314" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_313)))))" +" s_314)))))" "(cons" " id92_0" -" id_104)))))" +" id_105)))))" "(values" -" id_71)))))" +" id_72)))))" "(if(not" " #f)" -"(for-loop_201" -" id_103" -" rest_103)" -" id_103)))" -" id_82)))))" -" for-loop_201)" +"(for-loop_203" +" id_104" +" rest_105)" +" id_104)))" +" id_83)))))" +" for-loop_203)" " null" -" lst_191)))))" +" lst_194)))))" "(reverse$1" -" id_62))))))))" +" id_63))))))))" "((rhs90_0)" "(let-values(((s_33)" "(cdr" -" s_508)))" -"(let-values(((s_510)" +" s_507)))" +"(let-values(((s_509)" "(if(syntax?$1" " s_33)" "(syntax-e$1" " s_33)" " s_33)))" "(if(pair?" -" s_510)" +" s_509)" "(let-values(((rhs91_0)" "(let-values(((s_96)" "(car" -" s_510)))" +" s_509)))" " s_96))" "(()" "(let-values(((s_57)" "(cdr" -" s_510)))" -"(let-values(((s_511)" +" s_509)))" +"(let-values(((s_510)" "(if(syntax?$1" " s_57)" "(syntax-e$1" " s_57)" " s_57)))" "(if(null?" -" s_511)" +" s_510)" "(values)" "(raise-syntax-error$1" " #f" @@ -61679,7 +61688,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_31)" "((phase94_1)" -" phase_137)" +" phase_138)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -61692,10 +61701,10 @@ static const char *startup_source = " dups96_0))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_77)))" +" ctx_76)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_309)" +"(let-values(((lst_311)" " ids_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61703,31 +61712,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_309)))" -"((letrec-values(((for-loop_281)" -"(lambda(fold-var_185" -" lst_310)" +" lst_311)))" +"((letrec-values(((for-loop_282)" +"(lambda(fold-var_189" +" lst_312)" "(begin" " 'for-loop" "(if(pair?" -" lst_310)" -"(let-values(((id_105)" +" lst_312)" +"(let-values(((id_106)" "(unsafe-car" -" lst_310))" -"((rest_180)" +" lst_312))" +"((rest_181)" "(unsafe-cdr" -" lst_310)))" -"(let-values(((fold-var_246)" -"(let-values(((fold-var_247)" -" fold-var_185))" -"(let-values(((fold-var_285)" +" lst_312)))" +"(let-values(((fold-var_248)" +"(let-values(((fold-var_249)" +" fold-var_189))" +"(let-values(((fold-var_286)" "(let-values()" "(cons" "(let-values()" "(let-values(((id97_0)" -" id_105)" +" id_106)" "((phase98_0)" -" phase_137)" +" phase_138)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -61740,23 +61749,23 @@ static const char *startup_source = " id97_0" " phase98_0" " counter99_0)))" -" fold-var_247))))" +" fold-var_249))))" "(values" -" fold-var_285)))))" +" fold-var_286)))))" "(if(not" " #f)" -"(for-loop_281" -" fold-var_246" -" rest_180)" -" fold-var_246)))" -" fold-var_185)))))" -" for-loop_281)" +"(for-loop_282" +" fold-var_248" +" rest_181)" +" fold-var_248)))" +" fold-var_189)))))" +" for-loop_282)" " null" -" lst_309))))))" +" lst_311))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_225)" +"(let-values(((lst_228)" " keys_5)" -"((lst_306)" +"((lst_308)" " ids_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61764,36 +61773,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_225)))" +" lst_228)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_306)))" -"((letrec-values(((for-loop_276)" +" lst_308)))" +"((letrec-values(((for-loop_277)" "(lambda(env_17" -" lst_311" -" lst_294)" +" lst_313" +" lst_296)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_311)" +" lst_313)" "(pair?" -" lst_294)" +" lst_296)" " #f)" "(let-values(((key_87)" "(unsafe-car" -" lst_311))" -"((rest_168)" +" lst_313))" +"((rest_169)" "(unsafe-cdr" -" lst_311))" +" lst_313))" "((id_9)" "(unsafe-car" -" lst_294))" -"((rest_181)" +" lst_296))" +"((rest_182)" "(unsafe-cdr" -" lst_294)))" +" lst_296)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -61808,22 +61817,22 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_276" +"(for-loop_277" " env_18" -" rest_168" -" rest_181)" +" rest_169" +" rest_182)" " env_18)))" " env_17)))))" -" for-loop_276)" +" for-loop_277)" "(expand-context-env" " body-ctx_2)" -" lst_225" -" lst_306)))))" +" lst_228" +" lst_308)))))" "(loop_121" -"(let-values(((v_260)" +"(let-values(((v_261)" " body-ctx_2))" "(let-values(((the-struct_91)" -" v_260))" +" v_261))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((env102_0)" @@ -61834,7 +61843,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_260)))" +" v_261)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -61877,7 +61886,7 @@ static const char *startup_source = " ids_31" "(append" "(reverse$1" -"(let-values(((lst_312)" +"(let-values(((lst_314)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61885,47 +61894,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_312)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_286" -" lst_154)" +" lst_314)))" +"((letrec-values(((for-loop_283)" +"(lambda(fold-var_287" +" lst_155)" "(begin" " 'for-loop" "(if(pair?" -" lst_154)" +" lst_155)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_154))" -"((rest_78)" +" lst_155))" +"((rest_79)" "(unsafe-cdr" -" lst_154)))" -"(let-values(((fold-var_287)" +" lst_155)))" "(let-values(((fold-var_288)" -" fold-var_286))" "(let-values(((fold-var_289)" +" fold-var_287))" +"(let-values(((fold-var_290)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_288))))" +" fold-var_289))))" "(values" -" fold-var_289)))))" +" fold-var_290)))))" "(if(not" " #f)" -"(for-loop_282" -" fold-var_287" -" rest_78)" -" fold-var_287)))" -" fold-var_286)))))" -" for-loop_282)" +"(for-loop_283" +" fold-var_288" +" rest_79)" +" fold-var_288)))" +" fold-var_287)))))" +" for-loop_283)" " null" -" lst_312))))" +" lst_314))))" " val-idss_0))" "(cons" " keys_5" "(append" "(reverse$1" -"(let-values(((lst_313)" +"(let-values(((lst_315)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61933,9 +61942,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_313)))" -"((letrec-values(((for-loop_283)" -"(lambda(fold-var_290" +" lst_315)))" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_291" " lst_32)" "(begin" " 'for-loop" @@ -61944,36 +61953,36 @@ static const char *startup_source = "(let-values(((done-body_1)" "(unsafe-car" " lst_32))" -"((rest_182)" +"((rest_183)" "(unsafe-cdr" " lst_32)))" -"(let-values(((fold-var_291)" "(let-values(((fold-var_292)" -" fold-var_290))" -"(let-values(((fold-var_139)" +"(let-values(((fold-var_293)" +" fold-var_291))" +"(let-values(((fold-var_141)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_292))))" +" fold-var_293))))" "(values" -" fold-var_139)))))" +" fold-var_141)))))" "(if(not" " #f)" -"(for-loop_283" -" fold-var_291" -" rest_182)" -" fold-var_291)))" -" fold-var_290)))))" -" for-loop_283)" +"(for-loop_284" +" fold-var_292" +" rest_183)" +" fold-var_292)))" +" fold-var_291)))))" +" for-loop_284)" " null" -" lst_313))))" +" lst_315))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_108)" +"(let-values(((lst_107)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61981,50 +61990,50 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" +" lst_107)))" "((letrec-values(((for-loop_124)" -"(lambda(fold-var_293" -" lst_314)" +"(lambda(fold-var_294" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_314)" +" lst_316)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_314))" -"((rest_183)" +" lst_316))" +"((rest_184)" "(unsafe-cdr" -" lst_314)))" -"(let-values(((fold-var_294)" +" lst_316)))" "(let-values(((fold-var_295)" -" fold-var_293))" -"(let-values(((fold-var_39)" +"(let-values(((fold-var_296)" +" fold-var_294))" +"(let-values(((fold-var_145)" "(let-values()" "(cons" "(let-values()" "(no-binds" " done-body_2" -" s_493" -" phase_137))" -" fold-var_295))))" +" s_492" +" phase_138))" +" fold-var_296))))" "(values" -" fold-var_39)))))" +" fold-var_145)))))" "(if(not" " #f)" "(for-loop_124" -" fold-var_294" -" rest_183)" -" fold-var_294)))" -" fold-var_293)))))" +" fold-var_295" +" rest_184)" +" fold-var_295)))" +" fold-var_294)))))" " for-loop_124)" " null" -" lst_108))))" +" lst_107))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_53)" +"(let-values(((lst_157)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62032,41 +62041,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_53)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_296" -" lst_315)" +" lst_157)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_297" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_315)" +" lst_317)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_315))" -"((rest_184)" +" lst_317))" +"((rest_185)" "(unsafe-cdr" -" lst_315)))" -"(let-values(((fold-var_143)" -"(let-values(((fold-var_297)" -" fold-var_296))" +" lst_317)))" +"(let-values(((fold-var_41)" +"(let-values(((fold-var_42)" +" fold-var_297))" "(let-values(((fold-var_298)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_297))))" +" fold-var_42))))" "(values" " fold-var_298)))))" "(if(not" " #f)" -"(for-loop_284" -" fold-var_143" -" rest_184)" -" fold-var_143)))" -" fold-var_296)))))" -" for-loop_284)" +"(for-loop_285" +" fold-var_41" +" rest_185)" +" fold-var_41)))" +" fold-var_297)))))" +" for-loop_285)" " null" -" lst_53))))" +" lst_157))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -62097,45 +62106,45 @@ static const char *startup_source = "(let-values(((define-syntaxes105_1" " id106_1" " rhs107_1)" -"(let-values(((s_512)" +"(let-values(((s_511)" "(if(syntax?$1" " s_71)" "(syntax-e$1" " s_71)" " s_71)))" "(if(pair?" -" s_512)" +" s_511)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_217)" +"(let-values(((s_216)" "(car" -" s_512)))" -" s_217))" +" s_511)))" +" s_216))" "((id109_0" " rhs110_0)" -"(let-values(((s_513)" +"(let-values(((s_512)" "(cdr" +" s_511)))" +"(let-values(((s_513)" +"(if(syntax?$1" +" s_512)" +"(syntax-e$1" +" s_512)" " s_512)))" -"(let-values(((s_514)" -"(if(syntax?$1" -" s_513)" -"(syntax-e$1" -" s_513)" -" s_513)))" "(if(pair?" -" s_514)" +" s_513)" "(let-values(((id111_0)" -"(let-values(((s_515)" +"(let-values(((s_514)" "(car" -" s_514)))" -"(let-values(((s_516)" +" s_513)))" +"(let-values(((s_515)" "(if(syntax?$1" -" s_515)" +" s_514)" "(syntax-e$1" -" s_515)" -" s_515)))" +" s_514)" +" s_514)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_516)))" +" s_515)))" "(if(not" " flat-s_27)" "(let-values()" @@ -62144,8 +62153,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_7))" "(let-values()" -"(let-values(((id_106)" -"(let-values(((lst_316)" +"(let-values(((id_107)" +"(let-values(((lst_318)" " flat-s_27))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62153,65 +62162,65 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_316)))" -"((letrec-values(((for-loop_75)" -"(lambda(id_107" -" lst_55)" +" lst_318)))" +"((letrec-values(((for-loop_286)" +"(lambda(id_108" +" lst_319)" "(begin" " 'for-loop" "(if(pair?" -" lst_55)" -"(let-values(((s_517)" +" lst_319)" +"(let-values(((s_159)" "(unsafe-car" -" lst_55))" -"((rest_185)" +" lst_319))" +"((rest_186)" "(unsafe-cdr" -" lst_55)))" -"(let-values(((id_64)" -"(let-values(((id_108)" -" id_107))" +" lst_319)))" +"(let-values(((id_65)" "(let-values(((id_109)" +" id_108))" +"(let-values(((id_110)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_376)" +"(if(let-values(((or-part_160)" "(if(syntax?$1" -" s_517)" +" s_159)" "(symbol?" "(syntax-e$1" -" s_517))" +" s_159))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_160" +" or-part_160" "(symbol?" -" s_517)))" -" s_517" +" s_159)))" +" s_159" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_7" -" s_517)))))" +" s_159)))))" "(cons" " id114_0" -" id_108)))))" -"(values" " id_109)))))" +"(values" +" id_110)))))" "(if(not" " #f)" -"(for-loop_75" -" id_64" -" rest_185)" -" id_64)))" -" id_107)))))" -" for-loop_75)" +"(for-loop_286" +" id_65" +" rest_186)" +" id_65)))" +" id_108)))))" +" for-loop_286)" " null" -" lst_316)))))" +" lst_318)))))" "(reverse$1" -" id_106))))))))" +" id_107))))))))" "((rhs112_0)" "(let-values(((s_103)" "(cdr" -" s_514)))" +" s_513)))" "(let-values(((s_104)" "(if(syntax?$1" " s_103)" @@ -62221,20 +62230,20 @@ static const char *startup_source = "(if(pair?" " s_104)" "(let-values(((rhs113_0)" -"(let-values(((s_518)" +"(let-values(((s_516)" "(car" " s_104)))" -" s_518))" +" s_516))" "(()" -"(let-values(((s_218)" +"(let-values(((s_217)" "(cdr" " s_104)))" "(let-values(((s_105)" "(if(syntax?$1" -" s_218)" +" s_217)" "(syntax-e$1" -" s_218)" -" s_218)))" +" s_217)" +" s_217)))" "(if(null?" " s_105)" "(values)" @@ -62294,7 +62303,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_32)" "((phase116_0)" -" phase_137)" +" phase_138)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62307,10 +62316,10 @@ static const char *startup_source = " dups118_0))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_77)))" +" ctx_76)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_317)" +"(let-values(((lst_320)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62318,20 +62327,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" -"((letrec-values(((for-loop_285)" +" lst_320)))" +"((letrec-values(((for-loop_287)" "(lambda(fold-var_299" -" lst_318)" +" lst_321)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" -"(let-values(((id_110)" +" lst_321)" +"(let-values(((id_111)" "(unsafe-car" -" lst_318))" -"((rest_186)" +" lst_321))" +"((rest_187)" "(unsafe-cdr" -" lst_318)))" +" lst_321)))" "(let-values(((fold-var_300)" "(let-values(((fold-var_301)" " fold-var_299))" @@ -62340,9 +62349,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id119_0)" -" id_110)" +" id_111)" "((phase120_0)" -" phase_137)" +" phase_138)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62360,14 +62369,14 @@ static const char *startup_source = " fold-var_302)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_287" " fold-var_300" -" rest_186)" +" rest_187)" " fold-var_300)))" " fold-var_299)))))" -" for-loop_285)" +" for-loop_287)" " null" -" lst_317))))))" +" lst_320))))))" "(let-values((()" "(begin" "(let-values(((obs_71)" @@ -62384,7 +62393,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_77)" +" ctx_76)" "(values))))" "(let-values((()" "(begin" @@ -62406,11 +62415,11 @@ static const char *startup_source = " ids_32" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_319)" +"(let-values(((lst_322)" " keys_6)" -"((lst_320)" +"((lst_323)" " vals_8)" -"((lst_321)" +"((lst_324)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62418,52 +62427,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_319)))" +" lst_322)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_320)))" +" lst_323)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_286)" +" lst_324)))" +"((letrec-values(((for-loop_288)" "(lambda(env_21" -" lst_322" -" lst_323" -" lst_324)" +" lst_325" +" lst_326" +" lst_327)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_322)" +" lst_325)" "(if(pair?" -" lst_323)" +" lst_326)" "(pair?" -" lst_324)" +" lst_327)" " #f)" " #f)" "(let-values(((key_88)" "(unsafe-car" -" lst_322))" -"((rest_187)" -"(unsafe-cdr" -" lst_322))" -"((val_41)" -"(unsafe-car" -" lst_323))" +" lst_325))" "((rest_188)" "(unsafe-cdr" -" lst_323))" -"((id_111)" +" lst_325))" +"((val_41)" "(unsafe-car" -" lst_324))" +" lst_326))" "((rest_189)" "(unsafe-cdr" -" lst_324)))" +" lst_326))" +"((id_112)" +"(unsafe-car" +" lst_327))" +"((rest_190)" +"(unsafe-cdr" +" lst_327)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62472,8 +62481,8 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_41" -" id_111" -" phase_137" +" id_112" +" phase_138" " body-ctx_2)" "(env-extend" " env_23" @@ -62483,19 +62492,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_288" " env_22" -" rest_187" " rest_188" -" rest_189)" +" rest_189" +" rest_190)" " env_22)))" " env_21)))))" -" for-loop_286)" +" for-loop_288)" "(expand-context-env" " body-ctx_2)" -" lst_319" -" lst_320" -" lst_321)))))" +" lst_322" +" lst_323" +" lst_324)))))" "(begin" "(let-values(((obs_73)" "(expand-context-observer" @@ -62508,10 +62517,10 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_121" -"(let-values(((v_261)" +"(let-values(((v_262)" " body-ctx_2))" "(let-values(((the-struct_92)" -" v_261))" +" v_262))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((env124_0)" @@ -62522,7 +62531,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_261)))" +" v_262)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -62602,7 +62611,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_137)" +" phase_138)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -62678,11 +62687,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_262)" +"(let-values(((v_263)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_93) v_262))" +"(let-values(((the-struct_93) v_263))" "(if(expand-context/outer? the-struct_93)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62696,7 +62705,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_262)))" +"(root-expand-context/outer-inner v_263)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -62762,20 +62771,20 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_210) done-bodys_1)" +"(let-values(((lst_213) done-bodys_1)" "((start_64) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_210)))" +"(check-list lst_213)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_64)))" -"((letrec-values(((for-loop_287)" +"((letrec-values(((for-loop_289)" "(lambda(fold-var_303" " lst_5" " pos_125)" @@ -62788,7 +62797,7 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_5))" -"((rest_190)" +"((rest_191)" "(unsafe-cdr" " lst_5))" "((i_14)" @@ -62819,17 +62828,17 @@ static const char *startup_source = " i_14" " last-i_1)" " #f)" -"(let-values(((v_263)" +"(let-values(((v_264)" " finish-ctx_0))" "(let-values(((the-struct_94)" -" v_263))" +" v_264))" "(if(expand-context/outer?" " the-struct_94)" "(let-values(((name136_0)" " name_81)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_263)))" +" v_264)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -62879,17 +62888,17 @@ static const char *startup_source = " fold-var_306)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_289" " fold-var_304" -" rest_190" +" rest_191" "(+" " pos_125" " 1))" " fold-var_304)))" " fold-var_303)))))" -" for-loop_287)" +" for-loop_289)" " null" -" lst_210" +" lst_213" " start_64))))))" "(begin" "(let-values(((obs_77)" @@ -62995,13 +63004,13 @@ static const char *startup_source = "(let-values(((track-stxs_2) track-stxs47_0))" "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_78) ctx32_0))" -"(let-values(((s_367) source33_0))" +"(let-values(((ctx_77) ctx32_0))" +"(let-values(((s_366) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_138)(expand-context-phase ctx_78)))" +"(let-values(((phase_139)(expand-context-phase ctx_77)))" "((letrec-values(((loop_27)" "(lambda(idss_2" " keyss_1" @@ -63023,15 +63032,15 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_78)" +"(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_367)" +"(keep-properties-only s_366)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_367)" +"(keep-properties-only s_366)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -63040,16 +63049,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_367)" +"((s150_0) s_366)" "((temp151_1)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_138)" +" phase_139)" "(core-id" " 'letrec-values" -" phase_138))" +" phase_139))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -63061,11 +63070,11 @@ static const char *startup_source = " temp151_1)))))" "(begin" "(let-values(((obs_81)" -"(expand-context-observer ctx_78)))" +"(expand-context-observer ctx_77)))" "(if obs_81" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_78)" +"(log-tag? had-stxes?_0 ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -63080,7 +63089,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_82)" "(expand-context-observer" -" ctx_78)))" +" ctx_77)))" "(if obs_82" "(let-values()" "(let-values()" @@ -63092,7 +63101,7 @@ static const char *startup_source = "(let-values(((temp152_1)(car rhss_2))" "((temp153_1)" "(as-named-context" -" ctx_78" +" ctx_77" " ids_33)))" "(expand9.1" " #f" @@ -63140,10 +63149,10 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_78)" +" ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_367)" +" s_366)" "(list ids_33)" "(list" "(list" @@ -63153,12 +63162,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_1)" -" s_367)" +" s_366)" "((temp156_1)" "(list*" "(core-id" " 'let-values" -" phase_138)" +" phase_139)" "(list" "(build-clause" " ids_33" @@ -63172,13 +63181,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_83)" "(expand-context-observer" -" ctx_78)))" +" ctx_77)))" "(if obs_83" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_78)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -63191,9 +63200,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_377) split?_0))" -"(if or-part_377" -" or-part_377" +"(let-values(((or-part_380) split?_0))" +"(if or-part_380" +" or-part_380" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63212,10 +63221,10 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_78)" +" ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_367)" +" s_366)" "(reverse$1" "(cons" " ids_33" @@ -63233,12 +63242,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_367)" +" s_366)" "((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_138)" +" phase_139)" "(build-clauses" "(cons" " ids_33" @@ -63257,13 +63266,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_84)" "(expand-context-observer" -" ctx_78)))" +" ctx_77)))" "(if obs_84" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_78)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -63312,46 +63321,46 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_519 phase_139)" +"(lambda(expr_10 s_517 phase_140)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_139)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_140)))" "(datum->syntax$1" -"(core-id '#%app phase_139)" -"(list(core-id 'begin phase_139) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_519)))))" +"(core-id '#%app phase_140)" +"(list(core-id 'begin phase_140) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_517)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_79)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_79)) #f))))" +"(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_80 s_397 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_140)(expand-context-phase ctx_80)))" +"(let-values(((phase_141)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_325) val-idss_2)((lst_326) val-rhss_2)((lst_327) track-stxs_4))" +"(let-values(((lst_328) val-idss_2)((lst_329) val-rhss_2)((lst_330) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_325)))" +"(let-values()(check-list lst_328)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_326)))" +"(let-values()(check-list lst_329)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_327)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_307 lst_328 lst_329 lst_330)" +"(let-values()(check-list lst_330)))" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_307 lst_331 lst_332 lst_333)" "(begin" " 'for-loop" -"(if(if(pair? lst_328)(if(pair? lst_329)(pair? lst_330) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_328))" -"((rest_191)(unsafe-cdr lst_328))" -"((val-rhs_0)(unsafe-car lst_329))" -"((rest_192)(unsafe-cdr lst_329))" -"((track-stx_2)(unsafe-car lst_330))" -"((rest_193)(unsafe-cdr lst_330)))" +"(if(if(pair? lst_331)(if(pair? lst_332)(pair? lst_333) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_331))" +"((rest_192)(unsafe-cdr lst_331))" +"((val-rhs_0)(unsafe-car lst_332))" +"((rest_193)(unsafe-cdr lst_332))" +"((track-stx_2)(unsafe-car lst_333))" +"((rest_194)(unsafe-cdr lst_333)))" "(let-values(((fold-var_308)" "(let-values(((fold-var_309) fold-var_307))" "(let-values(((fold-var_310)" @@ -63365,23 +63374,23 @@ static const char *startup_source = " fold-var_309))))" "(values fold-var_310)))))" "(if(not #f)" -"(for-loop_288 fold-var_308 rest_191 rest_192 rest_193)" +"(for-loop_290 fold-var_308 rest_192 rest_193 rest_194)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_288)" +" for-loop_290)" " null" -" lst_325" -" lst_326" -" lst_327))))))" +" lst_328" +" lst_329" +" lst_330))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" -"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_140)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_141)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_397)))" +" s_396)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63396,7 +63405,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_397))" +"(datum->syntax$1 #f done-bodys_2 s_396))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63408,7 +63417,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_397)))))))" +"(datum->syntax$1 #f done-bodys_2 s_396)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63416,23 +63425,23 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_397))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_396))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_81 log-renames-tag_0)" +"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_84)(expand-context-phase ctx_81)))" +"(let-values(((phase_85)(expand-context-phase ctx_80)))" "(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_37 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids33_0) ids_35)" -"((phase34_1) phase_84)" +"((phase34_1) phase_85)" "((s35_1) s_74)" " ((temp36_8) \"argument name\"))" "(check-no-duplicate-ids7.1 temp36_8 ids33_0 phase34_1 s35_1 unsafe-undefined))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_81)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_88) ids_35))" @@ -63440,23 +63449,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_187)" -"(lambda(fold-var_153 lst_160)" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_157 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((id_112)(unsafe-car lst_160))" -"((rest_82)(unsafe-cdr lst_160)))" +"(if(pair? lst_163)" +"(let-values(((id_113)(unsafe-car lst_163))" +"((rest_84)(unsafe-cdr lst_163)))" "(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_153))" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_34) fold-var_157))" +"(let-values(((fold-var_158)" "(let-values()" "(cons" "(let-values()" "(let-values(((id37_0)" -" id_112)" +" id_113)" "((phase38_1)" -" phase_84)" +" phase_85)" "((counter39_0)" " counter_7)" "((s40_0)" @@ -63468,12 +63477,12 @@ static const char *startup_source = " phase38_1" " counter39_0)))" " fold-var_34))))" -"(values fold-var_154)))))" +"(values fold-var_158)))))" "(if(not #f)" -"(for-loop_187 fold-var_33 rest_82)" +"(for-loop_189 fold-var_33 rest_84)" " fold-var_33)))" -" fold-var_153)))))" -" for-loop_187)" +" fold-var_157)))))" +" for-loop_189)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63491,9 +63500,9 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_82)(pair? lst_58) #f)" "(let-values(((key_89)(unsafe-car lst_82))" -"((rest_194)(unsafe-cdr lst_82))" -"((id_113)(unsafe-car lst_58))" -"((rest_195)(unsafe-cdr lst_58)))" +"((rest_195)(unsafe-cdr lst_82))" +"((id_114)(unsafe-car lst_58))" +"((rest_196)(unsafe-cdr lst_58)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63502,14 +63511,14 @@ static const char *startup_source = " env_27" " key_89" "(local-variable1.1" -" id_113)))))" +" id_114)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_49 env_26 rest_194 rest_195)" +"(for-loop_49 env_26 rest_195 rest_196)" " env_26)))" " env_25)))))" " for-loop_49)" -"(expand-context-env ctx_81)" +"(expand-context-env ctx_80)" " lst_80" " lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))" @@ -63521,15 +63530,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_17)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_213 lst_18)" +"(lambda(fold-var_217 lst_18)" "(begin" " 'for-loop" "(if(pair? lst_18)" "(let-values(((body_10)(unsafe-car lst_18))" "((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_214)" +"(let-values(((fold-var_218)" "(let-values(((fold-var_75)" -" fold-var_213))" +" fold-var_217))" "(let-values(((fold-var_65)" "(let-values()" "(cons" @@ -63540,15 +63549,15 @@ static const char *startup_source = " fold-var_75))))" "(values fold-var_65)))))" "(if(not #f)" -"(for-loop_10 fold-var_214 rest_5)" -" fold-var_214)))" -" fold-var_213)))))" +"(for-loop_10 fold-var_218 rest_5)" +" fold-var_218)))" +" fold-var_217)))))" " for-loop_10)" " null" " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_86)(expand-context-observer ctx_81)))" +"(let-values(((obs_86)(expand-context-observer ctx_80)))" "(if obs_86" "(let-values()" "(let-values()" @@ -63560,17 +63569,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_264) ctx_81))" -"(let-values(((the-struct_95) v_264))" +"(let-values(((v_265) ctx_80))" +"(let-values(((the-struct_95) v_265))" "(if(expand-context/outer? the-struct_95)" "(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_37(expand-context-scopes ctx_81)))" +"((scopes42_0)(cons sc_37(expand-context-scopes ctx_80)))" "((binding-layer43_0)" -"(increment-binding-layer ids_35 ctx_81 sc_37))" +"(increment-binding-layer ids_35 ctx_80 sc_37))" "((frame-id44_0) #f)" -"((inner45_0)(root-expand-context/outer-inner v_264)))" +"((inner45_1)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" -" inner45_0" +" inner45_1" "(root-expand-context/outer-post-expansion-scope the-struct_95)" "(root-expand-context/outer-post-expansion-shifts the-struct_95)" "(root-expand-context/outer-use-site-scopes the-struct_95)" @@ -63595,50 +63604,50 @@ static const char *startup_source = "(let-values(((sc-bodys46_0) sc-bodys_0)" "((body-ctx47_0) body-ctx_4)" "((temp48_3)" -"(let-values(((ctx49_0) ctx_81)((s50_0) s_74)((temp51_2) #t))" +"(let-values(((ctx49_0) ctx_80)((s50_0) s_74)((temp51_2) #t))" "(keep-as-needed119.1 #f temp51_2 #f ctx49_0 s50_0))))" "(expand-body7.1 temp48_3 #f sc-bodys46_0 body-ctx47_0))))" "(values" -"(if(expand-context-to-parsed? ctx_81)" +"(if(expand-context-to-parsed? ctx_80)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_82)" +"(lambda(s_13 ctx_81)" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_82)))" +"(let-values(((obs_87)(expand-context-observer ctx_81)))" "(if obs_87(let-values()(let-values()(call-expand-observe obs_87 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_37 lambda52_0 formals53_0 body54_0)" -"(let-values(((s_496) disarmed-s_6))" -"(let-values(((orig-s_40) s_496))" +"(let-values(((s_495) disarmed-s_6))" +"(let-values(((orig-s_40) s_495))" "(let-values(((lambda52_1 formals53_1 body54_1)" -"(let-values(((s_173)(if(syntax?$1 s_496)(syntax-e$1 s_496) s_496)))" -"(if(pair? s_173)" -"(let-values(((lambda55_0)(let-values(((s_45)(car s_173))) s_45))" +"(let-values(((s_172)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" +"(if(pair? s_172)" +"(let-values(((lambda55_0)(let-values(((s_45)(car s_172))) s_45))" "((formals56_0 body57_0)" -"(let-values(((s_84)(cdr s_173)))" -"(let-values(((s_175)" +"(let-values(((s_84)(cdr s_172)))" +"(let-values(((s_174)" "(if(syntax?$1 s_84)" "(syntax-e$1 s_84)" " s_84)))" -"(if(pair? s_175)" +"(if(pair? s_174)" "(let-values(((formals58_0)" -"(let-values(((s_176)(car s_175)))" -" s_176))" +"(let-values(((s_175)(car s_174)))" +" s_175))" "((body59_0)" -"(let-values(((s_177)(cdr s_175)))" -"(let-values(((s_451)" -"(if(syntax?$1 s_177)" -"(syntax-e$1 s_177)" -" s_177)))" +"(let-values(((s_176)(cdr s_174)))" +"(let-values(((s_450)" +"(if(syntax?$1 s_176)" +"(syntax-e$1 s_176)" +" s_176)))" "(let-values(((flat-s_28)" "(to-syntax-list.1" -" s_451)))" +" s_450)))" "(if(not flat-s_28)" "(let-values()" "(raise-syntax-error$1" @@ -63659,11 +63668,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" "(values #t lambda52_1 formals53_1 body54_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx60_1) ctx_82)((s61_0) s_13)((temp62_3) #t))" +"(let-values(((ctx60_1) ctx_81)((s61_0) s_13)((temp62_3) #t))" "(keep-as-needed119.1 #f #f temp62_3 ctx60_1 s61_0))))" "(let-values(((formals_2 body_11)" -"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_82 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_82)" +"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_81 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_81)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)" "(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_5)(list* lambda52_0 formals_2 body_11)))" "(rebuild5.1 #t rebuild-s63_0 temp64_5)))))))))))" @@ -63672,27 +63681,27 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_38 lam-id65_0 formals66_0 _67_0)" -"(let-values(((s_520) s_26))" -"(let-values(((orig-s_41) s_520))" +"(let-values(((s_518) s_26))" +"(let-values(((orig-s_41) s_518))" "(let-values(((lam-id65_1 formals66_1 _67_1)" -"(let-values(((s_502)(if(syntax?$1 s_520)(syntax-e$1 s_520) s_520)))" -"(if(pair? s_502)" -"(let-values(((lam-id68_0)(let-values(((s_507)(car s_502))) s_507))" +"(let-values(((s_501)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" +"(if(pair? s_501)" +"(let-values(((lam-id68_0)(let-values(((s_506)(car s_501))) s_506))" "((formals69_0 _70_0)" -"(let-values(((s_508)(cdr s_502)))" +"(let-values(((s_507)(cdr s_501)))" "(let-values(((s_52)" -"(if(syntax?$1 s_508)(syntax-e$1 s_508) s_508)))" +"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" "(if(pair? s_52)" "(let-values(((formals71_0)" "(let-values(((s_53)(car s_52))) s_53))" "((_72_0)" "(let-values(((s_54)(cdr s_52)))" -"(let-values(((s_311)" +"(let-values(((s_312)" "(if(syntax?$1 s_54)" "(syntax-e$1 s_54)" " s_54)))" "(let-values(((flat-s_29)" -"(to-syntax-list.1 s_311)))" +"(to-syntax-list.1 s_312)))" "(if(not flat-s_29)" "(let-values()" "(raise-syntax-error$1" @@ -63712,70 +63721,70 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lam-id65_1 formals66_1 _67_1))))))" "(let-values(((ids_36)(parse-and-flatten-formals formals66_0 #f s_26)))" -"(let-values(((ctx_75)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" -"(let-values(((phase_93)(if ctx_75(expand-context-phase ctx_75) 0)))" +"(let-values(((ctx_74)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" +"(let-values(((phase_94)(if ctx_74(expand-context-phase ctx_74) 0)))" "(begin" -" (let-values (((ids73_0) ids_36) ((phase74_2) phase_93) ((s75_0) s_26) ((temp76_5) \"argument name\"))" +" (let-values (((ids73_0) ids_36) ((phase74_2) phase_94) ((s75_0) s_26) ((temp76_5) \"argument name\"))" "(check-no-duplicate-ids7.1 temp76_5 ids73_0 phase74_2 s75_0 unsafe-undefined))" "(datum->syntax$1" " s_26" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_93) 'lambda lam-id65_0 lam-id65_0)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_94) 'lambda lam-id65_0 lam-id65_0)" "(cdr(syntax-e$1 s_26)))" " s_26" " s_26)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_454 ctx_83)" +"(lambda(s_453 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_83)))" +"(let-values(((obs_88)(expand-context-observer ctx_82)))" "(if obs_88" "(let-values()(let-values()(call-expand-observe obs_88 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_454)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_453)))" "(let-values(((ok?_39 case-lambda78_0 formals79_0 body80_0)" -"(let-values(((s_521) disarmed-s_7))" -"(let-values(((orig-s_42) s_521))" +"(let-values(((s_519) disarmed-s_7))" +"(let-values(((orig-s_42) s_519))" "(let-values(((case-lambda78_1 formals79_1 body80_1)" -"(let-values(((s_415)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" +"(let-values(((s_415)(if(syntax?$1 s_519)(syntax-e$1 s_519) s_519)))" "(if(pair? s_415)" -"(let-values(((case-lambda81_0)(let-values(((s_522)(car s_415))) s_522))" +"(let-values(((case-lambda81_0)(let-values(((s_520)(car s_415))) s_520))" "((formals82_0 body83_0)" -"(let-values(((s_408)(cdr s_415)))" -"(let-values(((s_523)" -"(if(syntax?$1 s_408)" -"(syntax-e$1 s_408)" -" s_408)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_523)))" +"(let-values(((s_407)(cdr s_415)))" +"(let-values(((s_521)" +"(if(syntax?$1 s_407)" +"(syntax-e$1 s_407)" +" s_407)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_521)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_12)" -"(let-values(((lst_331) flat-s_30))" +"(let-values(((lst_334) flat-s_30))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_331)))" -"((letrec-values(((for-loop_289)" +"(check-list lst_334)))" +"((letrec-values(((for-loop_291)" "(lambda(formals_4" " body_13" -" lst_332)" +" lst_335)" "(begin" " 'for-loop" "(if(pair?" -" lst_332)" -"(let-values(((s_210)" +" lst_335)" +"(let-values(((s_209)" "(unsafe-car" -" lst_332))" -"((rest_196)" +" lst_335))" +"((rest_197)" "(unsafe-cdr" -" lst_332)))" +" lst_335)))" "(let-values(((formals_5" " body_14)" "(let-values(((formals_6)" @@ -63788,32 +63797,32 @@ static const char *startup_source = "(let-values(((formals90_0" " body91_0)" "(let-values()" -"(let-values(((s_524)" +"(let-values(((s_522)" "(if(syntax?$1" -" s_210)" +" s_209)" "(syntax-e$1" -" s_210)" -" s_210)))" +" s_209)" +" s_209)))" "(if(pair?" -" s_524)" +" s_522)" "(let-values(((formals84_0)" -"(let-values(((s_525)" +"(let-values(((s_523)" "(car" -" s_524)))" -" s_525))" +" s_522)))" +" s_523))" "((body85_0)" -"(let-values(((s_526)" +"(let-values(((s_524)" "(cdr" -" s_524)))" -"(let-values(((s_527)" +" s_522)))" +"(let-values(((s_525)" "(if(syntax?$1" -" s_526)" +" s_524)" "(syntax-e$1" -" s_526)" -" s_526)))" +" s_524)" +" s_524)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_527)))" +" s_525)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63849,20 +63858,20 @@ static const char *startup_source = " body_16)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_291" " formals_5" " body_14" -" rest_196)" +" rest_197)" "(values" " formals_5" " body_14))))" "(values" " formals_4" " body_13))))))" -" for-loop_289)" +" for-loop_291)" " null" " null" -" lst_331)))))" +" lst_334)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_12))))))))))" @@ -63870,20 +63879,20 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda78_1 formals79_1 body80_1))))))" "(let-values(((ok?_40 case-lambda86_0 clause87_0)" -"(let-values(((s_528) disarmed-s_7))" -"(let-values(((orig-s_43) s_528))" +"(let-values(((s_526) disarmed-s_7))" +"(let-values(((orig-s_43) s_526))" "(let-values(((case-lambda86_1 clause87_1)" -"(let-values(((s_459)(if(syntax?$1 s_528)(syntax-e$1 s_528) s_528)))" -"(if(pair? s_459)" +"(let-values(((s_458)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" +"(if(pair? s_458)" "(let-values(((case-lambda88_0)" -"(let-values(((s_212)(car s_459))) s_212))" +"(let-values(((s_211)(car s_458))) s_211))" "((clause89_0)" -"(let-values(((s_529)(cdr s_459)))" -"(let-values(((s_530)" -"(if(syntax?$1 s_529)" -"(syntax-e$1 s_529)" -" s_529)))" -"(let-values(((flat-s_32)(to-syntax-list.1 s_530)))" +"(let-values(((s_527)(cdr s_458)))" +"(let-values(((s_528)" +"(if(syntax?$1 s_527)" +"(syntax-e$1 s_527)" +" s_527)))" +"(let-values(((flat-s_32)(to-syntax-list.1 s_528)))" "(if(not flat-s_32)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" @@ -63892,36 +63901,36 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda86_1 clause87_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_83)((s93_0) s_454)((temp94_1) #t))" +"(let-values(((ctx92_0) ctx_82)((s93_0) s_453)((temp94_1) #t))" "(keep-as-needed119.1 #f #f temp94_1 ctx92_0 s93_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_112) formals79_0)((lst_201) body80_0)((lst_113) clause87_0))" +"(let-values(((lst_111) formals79_0)((lst_204) body80_0)((lst_112) clause87_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_111)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_204)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_112)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_201)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_113)))" "((letrec-values(((for-loop_31)" -"(lambda(fold-var_193 lst_333 lst_334 lst_335)" +"(lambda(fold-var_197 lst_336 lst_337 lst_338)" "(begin" " 'for-loop" -"(if(if(pair? lst_333)" -"(if(pair? lst_334)(pair? lst_335) #f)" +"(if(if(pair? lst_336)" +"(if(pair? lst_337)(pair? lst_338) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_333))" -"((rest_197)(unsafe-cdr lst_333))" -"((body_17)(unsafe-car lst_334))" -"((rest_198)(unsafe-cdr lst_334))" -"((clause_3)(unsafe-car lst_335))" -"((rest_199)(unsafe-cdr lst_335)))" +"(let-values(((formals_8)(unsafe-car lst_336))" +"((rest_198)(unsafe-cdr lst_336))" +"((body_17)(unsafe-car lst_337))" +"((rest_199)(unsafe-cdr lst_337))" +"((clause_3)(unsafe-car lst_338))" +"((rest_200)(unsafe-cdr lst_338)))" "(let-values(((fold-var_311)" -"(let-values(((fold-var_312) fold-var_193))" +"(let-values(((fold-var_312) fold-var_197))" "(let-values(((fold-var_313)" "(let-values()" "(cons" @@ -63930,7 +63939,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_89)" "(expand-context-observer" -" ctx_83)))" +" ctx_82)))" "(if obs_89" "(let-values()" "(let-values()" @@ -63941,7 +63950,7 @@ static const char *startup_source = "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx95_0)" -" ctx_83)" +" ctx_82)" "((clause96_0)" " clause_3))" "(keep-as-needed119.1" @@ -63953,14 +63962,14 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_454" +" s_453" " disarmed-s_7" " formals_8" " body_17" -" ctx_83" +" ctx_82" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_82)" "(list" " exp-formals_0" " exp-body_3)" @@ -63977,21 +63986,21 @@ static const char *startup_source = " fold-var_312))))" "(values fold-var_313)))))" "(if(not #f)" -"(for-loop_31 fold-var_311 rest_197 rest_198 rest_199)" +"(for-loop_31 fold-var_311 rest_198 rest_199 rest_200)" " fold-var_311)))" -" fold-var_193)))))" +" fold-var_197)))))" " for-loop_31)" " null" -" lst_112" -" lst_201" -" lst_113))))))" -"(if(expand-context-to-parsed? ctx_83)" +" lst_111" +" lst_204" +" lst_112))))))" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_3)(list* case-lambda78_0 clauses_1)))" "(rebuild5.1 #t rebuild-s99_0 temp100_3))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_38 s_531)" +"(lambda(all-formals_0 sc_38 s_529)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -64006,21 +64015,21 @@ static const char *startup_source = "(let-values()(loop_122 p_86))" "(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_531 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_86))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_531 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))" "(cons" "(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))" "(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_531 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_529 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -64052,10 +64061,10 @@ static const char *startup_source = "(let-values(((split-by-reference?_0) split-by-reference?4_0))" "(let-values(((renames-log-tag_0) renames-log-tag5_0))" "(let-values()" -"(lambda(s_105 ctx_84)" +"(lambda(s_105 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_53)(expand-context-observer ctx_84)))" +"(let-values(((obs_53)(expand-context-observer ctx_83)))" "(if obs_53" "(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" "(void)))" @@ -64077,19 +64086,19 @@ static const char *startup_source = " id:val104_1" " val-rhs105_1" " body106_1)" -"(let-values(((s_532)" +"(let-values(((s_530)" "(if(syntax?$1 s_128)" "(syntax-e$1 s_128)" " s_128)))" -"(if(pair? s_532)" +"(if(pair? s_530)" "(let-values(((letrec-syntaxes+values107_0)" -"(let-values(((s_533)(car s_532))) s_533))" +"(let-values(((s_531)(car s_530))) s_531))" "((id:trans108_0" " trans-rhs109_0" " id:val110_0" " val-rhs111_0" " body112_0)" -"(let-values(((s_230)(cdr s_532)))" +"(let-values(((s_230)(cdr s_530)))" "(let-values(((s_231)" "(if(syntax?$1 s_230)" "(syntax-e$1 s_230)" @@ -64119,7 +64128,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_336)" +"(let-values(((lst_339)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64127,21 +64136,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_336)))" -"((letrec-values(((for-loop_290)" +" lst_339)))" +"((letrec-values(((for-loop_292)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_337)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_337)" -"(let-values(((s_335)" +" lst_340)" +"(let-values(((s_334)" "(unsafe-car" -" lst_337))" -"((rest_200)" +" lst_340))" +"((rest_201)" "(unsafe-cdr" -" lst_337)))" +" lst_340)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64154,27 +64163,27 @@ static const char *startup_source = "(let-values(((id:trans144_0" " trans-rhs145_0)" "(let-values()" -"(let-values(((s_534)" +"(let-values(((s_532)" "(if(syntax?$1" -" s_335)" +" s_334)" "(syntax-e$1" -" s_335)" -" s_335)))" +" s_334)" +" s_334)))" "(if(pair?" -" s_534)" +" s_532)" "(let-values(((id:trans118_0)" -"(let-values(((s_341)" +"(let-values(((s_340)" "(car" -" s_534)))" -"(let-values(((s_342)" +" s_532)))" +"(let-values(((s_341)" "(if(syntax?$1" -" s_341)" +" s_340)" "(syntax-e$1" -" s_341)" -" s_341)))" +" s_340)" +" s_340)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_342)))" +" s_341)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64184,7 +64193,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_338)" +"(let-values(((lst_341)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64192,20 +64201,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_338)))" -"((letrec-values(((for-loop_291)" +" lst_341)))" +"((letrec-values(((for-loop_293)" "(lambda(id:trans_6" -" lst_213)" +" lst_216)" "(begin" " 'for-loop" "(if(pair?" -" lst_213)" -"(let-values(((s_535)" +" lst_216)" +"(let-values(((s_533)" "(unsafe-car" -" lst_213))" -"((rest_201)" +" lst_216))" +"((rest_202)" "(unsafe-cdr" -" lst_213)))" +" lst_216)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64213,23 +64222,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans146_0)" "(let-values()" -"(if(let-values(((or-part_340)" +"(if(let-values(((or-part_343)" "(if(syntax?$1" -" s_535)" +" s_533)" "(symbol?" "(syntax-e$1" -" s_535))" +" s_533))" " #f)))" -"(if or-part_340" -" or-part_340" +"(if or-part_343" +" or-part_343" "(symbol?" -" s_535)))" -" s_535" +" s_533)))" +" s_533" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_535)))))" +" s_533)))))" "(cons" " id:trans146_0" " id:trans_8)))))" @@ -64237,37 +64246,37 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_293" " id:trans_7" -" rest_201)" +" rest_202)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_291)" +" for-loop_293)" " null" -" lst_338)))))" +" lst_341)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs119_0)" "(let-values(((s_242)" "(cdr" -" s_534)))" -"(let-values(((s_536)" +" s_532)))" +"(let-values(((s_534)" "(if(syntax?$1" " s_242)" "(syntax-e$1" " s_242)" " s_242)))" "(if(pair?" -" s_536)" +" s_534)" "(let-values(((trans-rhs120_0)" "(let-values(((s_243)" "(car" -" s_536)))" +" s_534)))" " s_243))" "(()" "(let-values(((s_244)" "(cdr" -" s_536)))" +" s_534)))" "(let-values(((s_245)" "(if(syntax?$1" " s_244)" @@ -64306,20 +64315,20 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_292" " id:trans_2" " trans-rhs_2" -" rest_200)" +" rest_201)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_290)" +" for-loop_292)" " null" " null" -" lst_336)))))" +" lst_339)))))" "(values" "(reverse$1" " id:trans_0)" @@ -64328,27 +64337,27 @@ static const char *startup_source = "((id:val115_0" " val-rhs116_0" " body117_0)" -"(let-values(((s_537)" +"(let-values(((s_535)" "(cdr" " s_231)))" -"(let-values(((s_348)" +"(let-values(((s_347)" "(if(syntax?$1" -" s_537)" +" s_535)" "(syntax-e$1" -" s_537)" -" s_537)))" -"(if(pair? s_348)" +" s_535)" +" s_535)))" +"(if(pair? s_347)" "(let-values(((id:val121_0" " val-rhs122_0)" -"(let-values(((s_538)" +"(let-values(((s_536)" "(car" -" s_348)))" +" s_347)))" "(let-values(((s_246)" "(if(syntax?$1" -" s_538)" +" s_536)" "(syntax-e$1" -" s_538)" -" s_538)))" +" s_536)" +" s_536)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_246)))" @@ -64362,7 +64371,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_339)" +"(let-values(((lst_342)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64370,21 +64379,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_292)" +" lst_342)))" +"((letrec-values(((for-loop_294)" "(lambda(id:val_1" " val-rhs_2" -" lst_340)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" -"(let-values(((s_539)" +" lst_343)" +"(let-values(((s_537)" "(unsafe-car" -" lst_340))" -"((rest_202)" +" lst_343))" +"((rest_203)" "(unsafe-cdr" -" lst_340)))" +" lst_343)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64397,27 +64406,27 @@ static const char *startup_source = "(let-values(((id:val147_0" " val-rhs148_0)" "(let-values()" -"(let-values(((s_540)" +"(let-values(((s_538)" "(if(syntax?$1" -" s_539)" +" s_537)" "(syntax-e$1" -" s_539)" -" s_539)))" +" s_537)" +" s_537)))" "(if(pair?" -" s_540)" +" s_538)" "(let-values(((id:val124_0)" -"(let-values(((s_474)" +"(let-values(((s_473)" "(car" -" s_540)))" -"(let-values(((s_541)" +" s_538)))" +"(let-values(((s_539)" "(if(syntax?$1" -" s_474)" +" s_473)" "(syntax-e$1" -" s_474)" -" s_474)))" +" s_473)" +" s_473)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_541)))" +" s_539)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64427,7 +64436,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_341)" +"(let-values(((lst_344)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64435,20 +64444,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_293)" +" lst_344)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_6" -" lst_122)" +" lst_123)" "(begin" " 'for-loop" "(if(pair?" -" lst_122)" -"(let-values(((s_542)" +" lst_123)" +"(let-values(((s_540)" "(unsafe-car" -" lst_122))" -"((rest_61)" +" lst_123))" +"((rest_62)" "(unsafe-cdr" -" lst_122)))" +" lst_123)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -64456,23 +64465,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val149_0)" "(let-values()" -"(if(let-values(((or-part_378)" +"(if(let-values(((or-part_381)" "(if(syntax?$1" -" s_542)" +" s_540)" "(symbol?" "(syntax-e$1" -" s_542))" +" s_540))" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_381" +" or-part_381" "(symbol?" -" s_542)))" -" s_542" +" s_540)))" +" s_540" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_542)))))" +" s_540)))))" "(cons" " id:val149_0" " id:val_8)))))" @@ -64480,45 +64489,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_295" " id:val_7" -" rest_61)" +" rest_62)" " id:val_7)))" " id:val_6)))))" -" for-loop_293)" +" for-loop_295)" " null" -" lst_341)))))" +" lst_344)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs125_0)" -"(let-values(((s_354)" +"(let-values(((s_353)" "(cdr" -" s_540)))" +" s_538)))" "(let-values(((s_248)" "(if(syntax?$1" -" s_354)" +" s_353)" "(syntax-e$1" -" s_354)" -" s_354)))" +" s_353)" +" s_353)))" "(if(pair?" " s_248)" "(let-values(((val-rhs126_0)" -"(let-values(((s_356)" +"(let-values(((s_355)" "(car" " s_248)))" -" s_356))" +" s_355))" "(()" -"(let-values(((s_543)" +"(let-values(((s_541)" "(cdr" " s_248)))" -"(let-values(((s_357)" +"(let-values(((s_356)" "(if(syntax?$1" -" s_543)" +" s_541)" "(syntax-e$1" -" s_543)" -" s_543)))" +" s_541)" +" s_541)))" "(if(null?" -" s_357)" +" s_356)" "(values)" "(raise-syntax-error$1" " #f" @@ -64549,20 +64558,20 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_294" " id:val_2" " val-rhs_3" -" rest_202)" +" rest_203)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_292)" +" for-loop_294)" " null" " null" -" lst_339)))))" +" lst_342)))))" "(values" "(reverse$1" " id:val_0)" @@ -64571,7 +64580,7 @@ static const char *startup_source = "((body123_0)" "(let-values(((s_249)" "(cdr" -" s_348)))" +" s_347)))" "(let-values(((s_250)" "(if(syntax?$1" " s_249)" @@ -64633,30 +64642,30 @@ static const char *startup_source = " body106_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_42 let-values127_0 id:val128_0 val-rhs129_0 body130_0)" -"(let-values(((s_358) disarmed-s_8))" +"(let-values(((s_357) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_358))" +"(let-values(((orig-s_45) s_357))" "(let-values(((let-values127_1 id:val128_1 val-rhs129_1 body130_1)" "(let-values(((s_254)" -"(if(syntax?$1 s_358)" -"(syntax-e$1 s_358)" -" s_358)))" +"(if(syntax?$1 s_357)" +"(syntax-e$1 s_357)" +" s_357)))" "(if(pair? s_254)" "(let-values(((let-values131_0)" "(let-values(((s_257)(car s_254)))" " s_257))" "((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_544)(cdr s_254)))" -"(let-values(((s_545)" -"(if(syntax?$1 s_544)" -"(syntax-e$1 s_544)" -" s_544)))" -"(if(pair? s_545)" +"(let-values(((s_542)(cdr s_254)))" +"(let-values(((s_543)" +"(if(syntax?$1 s_542)" +"(syntax-e$1 s_542)" +" s_542)))" +"(if(pair? s_543)" "(let-values(((id:val135_0" " val-rhs136_0)" "(let-values(((s_418)" "(car" -" s_545)))" +" s_543)))" "(let-values(((s_258)" "(if(syntax?$1" " s_418)" @@ -64676,7 +64685,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_304)" +"(let-values(((lst_306)" " flat-s_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64684,21 +64693,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_304)))" -"((letrec-values(((for-loop_294)" +" lst_306)))" +"((letrec-values(((for-loop_296)" "(lambda(id:val_11" " val-rhs_7" -" lst_342)" +" lst_345)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((s_546)" +" lst_345)" +"(let-values(((s_544)" "(unsafe-car" -" lst_342))" -"((rest_203)" +" lst_345))" +"((rest_204)" "(unsafe-cdr" -" lst_342)))" +" lst_345)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64711,27 +64720,27 @@ static const char *startup_source = "(let-values(((id:val150_0" " val-rhs151_0)" "(let-values()" -"(let-values(((s_373)" +"(let-values(((s_372)" "(if(syntax?$1" -" s_546)" +" s_544)" "(syntax-e$1" -" s_546)" -" s_546)))" +" s_544)" +" s_544)))" "(if(pair?" -" s_373)" +" s_372)" "(let-values(((id:val138_0)" -"(let-values(((s_547)" +"(let-values(((s_545)" "(car" -" s_373)))" -"(let-values(((s_548)" +" s_372)))" +"(let-values(((s_546)" "(if(syntax?$1" -" s_547)" +" s_545)" "(syntax-e$1" -" s_547)" -" s_547)))" +" s_545)" +" s_545)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_548)))" +" s_546)))" "(if(not" " flat-s_39)" "(let-values()" @@ -64741,7 +64750,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_343)" +"(let-values(((lst_346)" " flat-s_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64749,20 +64758,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_295)" +" lst_346)))" +"((letrec-values(((for-loop_297)" "(lambda(id:val_16" -" lst_344)" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" -"(let-values(((s_549)" +" lst_347)" +"(let-values(((s_547)" "(unsafe-car" -" lst_344))" -"((rest_204)" +" lst_347))" +"((rest_205)" "(unsafe-cdr" -" lst_344)))" +" lst_347)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64770,23 +64779,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val152_0)" "(let-values()" -"(if(let-values(((or-part_379)" +"(if(let-values(((or-part_382)" "(if(syntax?$1" -" s_549)" +" s_547)" "(symbol?" "(syntax-e$1" -" s_549))" +" s_547))" " #f)))" -"(if or-part_379" -" or-part_379" +"(if or-part_382" +" or-part_382" "(symbol?" -" s_549)))" -" s_549" +" s_547)))" +" s_547" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_549)))))" +" s_547)))))" "(cons" " id:val152_0" " id:val_18)))))" @@ -64794,45 +64803,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_297" " id:val_17" -" rest_204)" +" rest_205)" " id:val_17)))" " id:val_16)))))" -" for-loop_295)" +" for-loop_297)" " null" -" lst_343)))))" +" lst_346)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs139_0)" -"(let-values(((s_381)" +"(let-values(((s_380)" "(cdr" -" s_373)))" +" s_372)))" "(let-values(((s_260)" "(if(syntax?$1" -" s_381)" +" s_380)" "(syntax-e$1" -" s_381)" -" s_381)))" +" s_380)" +" s_380)))" "(if(pair?" " s_260)" "(let-values(((val-rhs140_0)" -"(let-values(((s_550)" +"(let-values(((s_548)" "(car" " s_260)))" -" s_550))" +" s_548))" "(()" -"(let-values(((s_551)" +"(let-values(((s_549)" "(cdr" " s_260)))" -"(let-values(((s_552)" +"(let-values(((s_550)" "(if(syntax?$1" -" s_551)" +" s_549)" "(syntax-e$1" -" s_551)" -" s_551)))" +" s_549)" +" s_549)))" "(if(null?" -" s_552)" +" s_550)" "(values)" "(raise-syntax-error$1" " #f" @@ -64863,20 +64872,20 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_296" " id:val_12" " val-rhs_8" -" rest_203)" +" rest_204)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_294)" +" for-loop_296)" " null" " null" -" lst_304)))))" +" lst_306)))))" "(values" "(reverse$1" " id:val_10)" @@ -64885,7 +64894,7 @@ static const char *startup_source = "((body137_0)" "(let-values(((s_261)" "(cdr" -" s_545)))" +" s_543)))" "(let-values(((s_262)" "(if(syntax?$1" " s_261)" @@ -64928,33 +64937,33 @@ static const char *startup_source = "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_39)(new-scope 'local)))" -"(let-values(((phase_83)(expand-context-phase ctx_84)))" +"(let-values(((phase_84)(expand-context-phase ctx_83)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_345)(if syntaxes?_0 id:trans102_0 null)))" +"(let-values(((lst_348)(if syntaxes?_0 id:trans102_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_345)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_314 lst_346)" +"(let-values()(check-list lst_348)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_314 lst_349)" "(begin" " 'for-loop" -"(if(pair? lst_346)" +"(if(pair? lst_349)" "(let-values(((ids_37)" -"(unsafe-car lst_346))" -"((rest_205)" -"(unsafe-cdr lst_346)))" -"(let-values(((fold-var_111)" -"(let-values(((fold-var_112)" -" fold-var_314))" +"(unsafe-car lst_349))" +"((rest_206)" +"(unsafe-cdr lst_349)))" "(let-values(((fold-var_113)" +"(let-values(((fold-var_114)" +" fold-var_314))" +"(let-values(((fold-var_115)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_347)" +"(let-values(((lst_350)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64962,20 +64971,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_297)" +" lst_350)))" +"((letrec-values(((for-loop_299)" "(lambda(fold-var_315" -" lst_348)" +" lst_351)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" -"(let-values(((id_114)" +" lst_351)" +"(let-values(((id_115)" "(unsafe-car" -" lst_348))" -"((rest_206)" +" lst_351))" +"((rest_207)" "(unsafe-cdr" -" lst_348)))" +" lst_351)))" "(let-values(((fold-var_316)" "(let-values(((fold-var_317)" " fold-var_315))" @@ -64984,47 +64993,47 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_114" +" id_115" " sc_39))" " fold-var_317))))" "(values" " fold-var_318)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_299" " fold-var_316" -" rest_206)" +" rest_207)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_297)" +" for-loop_299)" " null" -" lst_347)))))" -" fold-var_112))))" +" lst_350)))))" +" fold-var_114))))" "(values" -" fold-var_113)))))" +" fold-var_115)))))" "(if(not #f)" -"(for-loop_296 fold-var_111 rest_205)" -" fold-var_111)))" +"(for-loop_298 fold-var_113 rest_206)" +" fold-var_113)))" " fold-var_314)))))" -" for-loop_296)" +" for-loop_298)" " null" -" lst_345))))))" +" lst_348))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_349)(if syntaxes?_0 id:val104_0 id:val128_0)))" +"(let-values(((lst_352)(if syntaxes?_0 id:val104_0 id:val128_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_349)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_319 lst_350)" +"(let-values()(check-list lst_352)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_319 lst_353)" "(begin" " 'for-loop" -"(if(pair? lst_350)" +"(if(pair? lst_353)" "(let-values(((ids_38)" -"(unsafe-car lst_350))" -"((rest_207)" -"(unsafe-cdr lst_350)))" +"(unsafe-car lst_353))" +"((rest_208)" +"(unsafe-cdr lst_353)))" "(let-values(((fold-var_320)" "(let-values(((fold-var_321)" " fold-var_319))" @@ -65033,7 +65042,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_351)" +"(let-values(((lst_354)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65041,20 +65050,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_351)))" -"((letrec-values(((for-loop_299)" +" lst_354)))" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_323" -" lst_352)" +" lst_355)" "(begin" " 'for-loop" "(if(pair?" -" lst_352)" -"(let-values(((id_115)" +" lst_355)" +"(let-values(((id_116)" "(unsafe-car" -" lst_352))" -"((rest_208)" +" lst_355))" +"((rest_209)" "(unsafe-cdr" -" lst_352)))" +" lst_355)))" "(let-values(((fold-var_324)" "(let-values(((fold-var_325)" " fold-var_323))" @@ -65063,51 +65072,51 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_115" +" id_116" " sc_39))" " fold-var_325))))" "(values" " fold-var_326)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_301" " fold-var_324" -" rest_208)" +" rest_209)" " fold-var_324)))" " fold-var_323)))))" -" for-loop_299)" +" for-loop_301)" " null" -" lst_351)))))" +" lst_354)))))" " fold-var_321))))" "(values" " fold-var_322)))))" "(if(not #f)" -"(for-loop_298" +"(for-loop_300" " fold-var_320" -" rest_207)" +" rest_208)" " fold-var_320)))" " fold-var_319)))))" -" for-loop_298)" +" for-loop_300)" " null" -" lst_349))))))" +" lst_352))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_353)" +"(let-values(((lst_356)" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_327 lst_354)" +"(let-values()(check-list lst_356)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_327 lst_357)" "(begin" " 'for-loop" -"(if(pair? lst_354)" +"(if(pair? lst_357)" "(let-values(((rhs_20)" -"(unsafe-car lst_354))" -"((rest_209)" -"(unsafe-cdr lst_354)))" +"(unsafe-car lst_357))" +"((rest_210)" +"(unsafe-cdr lst_357)))" "(let-values(((fold-var_328)" "(let-values(((fold-var_329)" " fold-var_327))" @@ -65122,14 +65131,14 @@ static const char *startup_source = "(values" " fold-var_330)))))" "(if(not #f)" -"(for-loop_300" +"(for-loop_302" " fold-var_328" -" rest_209)" +" rest_210)" " fold-var_328)))" " fold-var_327)))))" -" for-loop_300)" +" for-loop_302)" " null" -" lst_353))))" +" lst_356))))" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" @@ -65141,63 +65150,63 @@ static const char *startup_source = " _154_1" " clause155_1" " _156_1)" -"(let-values(((s_553)" +"(let-values(((s_551)" "(if(syntax?$1" " s_142)" "(syntax-e$1" " s_142)" " s_142)))" -"(if(pair? s_553)" +"(if(pair? s_551)" "(let-values(((_157_0)" -"(let-values(((s_554)" +"(let-values(((s_552)" "(car" -" s_553)))" -" s_554))" +" s_551)))" +" s_552))" "((_158_0" " clause159_0" " _160_0)" -"(let-values(((s_555)" +"(let-values(((s_553)" "(cdr" -" s_553)))" -"(let-values(((s_556)" +" s_551)))" +"(let-values(((s_554)" "(if(syntax?$1" -" s_555)" +" s_553)" "(syntax-e$1" -" s_555)" -" s_555)))" +" s_553)" +" s_553)))" "(if(pair?" -" s_556)" +" s_554)" "(let-values(((_161_0)" -"(let-values(((s_557)" +"(let-values(((s_555)" "(car" -" s_556)))" -" s_557))" +" s_554)))" +" s_555))" "((clause162_0" " _163_0)" -"(let-values(((s_558)" +"(let-values(((s_556)" "(cdr" +" s_554)))" +"(let-values(((s_557)" +"(if(syntax?$1" +" s_556)" +"(syntax-e$1" +" s_556)" " s_556)))" +"(if(pair?" +" s_557)" +"(let-values(((clause164_0)" +"(let-values(((s_558)" +"(car" +" s_557)))" "(let-values(((s_559)" "(if(syntax?$1" " s_558)" "(syntax-e$1" " s_558)" " s_558)))" -"(if(pair?" -" s_559)" -"(let-values(((clause164_0)" -"(let-values(((s_560)" -"(car" -" s_559)))" -"(let-values(((s_561)" -"(if(syntax?$1" -" s_560)" -"(syntax-e$1" -" s_560)" -" s_560)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_561)))" +" s_559)))" "(if(not" " flat-s_41)" "(let-values()" @@ -65208,10 +65217,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_165_0)" -"(let-values(((s_562)" +"(let-values(((s_560)" "(cdr" -" s_559)))" -" s_562)))" +" s_557)))" +" s_560)))" "(values" " clause164_0" " _165_0))" @@ -65248,44 +65257,44 @@ static const char *startup_source = "(let-values(((s_145) disarmed-s_8))" "(let-values(((orig-s_47) s_145))" "(let-values(((_166_1 clause167_1 _168_1)" -"(let-values(((s_563)" +"(let-values(((s_561)" "(if(syntax?$1" " s_145)" "(syntax-e$1" " s_145)" " s_145)))" -"(if(pair? s_563)" +"(if(pair? s_561)" "(let-values(((_169_0)" -"(let-values(((s_564)" +"(let-values(((s_562)" "(car" -" s_563)))" -" s_564))" +" s_561)))" +" s_562))" "((clause170_0" " _171_0)" -"(let-values(((s_565)" +"(let-values(((s_563)" "(cdr" +" s_561)))" +"(let-values(((s_564)" +"(if(syntax?$1" +" s_563)" +"(syntax-e$1" +" s_563)" " s_563)))" +"(if(pair?" +" s_564)" +"(let-values(((clause172_0)" +"(let-values(((s_565)" +"(car" +" s_564)))" "(let-values(((s_566)" "(if(syntax?$1" " s_565)" "(syntax-e$1" " s_565)" " s_565)))" -"(if(pair?" -" s_566)" -"(let-values(((clause172_0)" -"(let-values(((s_567)" -"(car" -" s_566)))" -"(let-values(((s_568)" -"(if(syntax?$1" -" s_567)" -"(syntax-e$1" -" s_567)" -" s_567)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_568)))" +" s_566)))" "(if(not" " flat-s_42)" "(let-values()" @@ -65296,10 +65305,10 @@ static const char *startup_source = "(let-values()" " flat-s_42))))))" "((_173_0)" -"(let-values(((s_569)" +"(let-values(((s_567)" "(cdr" -" s_566)))" -" s_569)))" +" s_564)))" +" s_567)))" "(values" " clause172_0" " _173_0))" @@ -65320,7 +65329,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp141_2)(list trans-idss_2 val-idss_3))" -"((phase142_0) phase_83)" +"((phase142_0) phase_84)" "((s143_0) s_105))" "(check-no-duplicate-ids7.1" " unsafe-undefined" @@ -65329,26 +65338,26 @@ static const char *startup_source = " s143_0" " unsafe-undefined))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_84)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_355) trans-idss_2))" +"(let-values(((lst_358) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_331 lst_356)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_331 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_356)" +"(if(pair? lst_359)" "(let-values(((ids_39)" "(unsafe-car" -" lst_356))" -"((rest_210)" +" lst_359))" +"((rest_211)" "(unsafe-cdr" -" lst_356)))" +" lst_359)))" "(let-values(((fold-var_332)" "(let-values(((fold-var_333)" " fold-var_331))" @@ -65357,7 +65366,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_357)" +"(let-values(((lst_360)" " ids_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65365,20 +65374,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_357)))" -"((letrec-values(((for-loop_302)" +" lst_360)))" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_335" -" lst_358)" +" lst_361)" "(begin" " 'for-loop" "(if(pair?" -" lst_358)" -"(let-values(((id_116)" +" lst_361)" +"(let-values(((id_117)" "(unsafe-car" -" lst_358))" -"((rest_211)" +" lst_361))" +"((rest_212)" "(unsafe-cdr" -" lst_358)))" +" lst_361)))" "(let-values(((fold-var_336)" "(let-values(((fold-var_337)" " fold-var_335))" @@ -65387,9 +65396,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id174_0)" -" id_116)" +" id_117)" "((phase175_0)" -" phase_83)" +" phase_84)" "((counter176_0)" " counter_8)" "((frame-id177_0)" @@ -65407,54 +65416,54 @@ static const char *startup_source = " fold-var_338)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_304" " fold-var_336" -" rest_211)" +" rest_212)" " fold-var_336)))" " fold-var_335)))))" -" for-loop_302)" +" for-loop_304)" " null" -" lst_357)))))" +" lst_360)))))" " fold-var_333))))" "(values" " fold-var_334)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_303" " fold-var_332" -" rest_210)" +" rest_211)" " fold-var_332)))" " fold-var_331)))))" -" for-loop_301)" +" for-loop_303)" " null" -" lst_355))))))" +" lst_358))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_359) val-idss_3))" +"(let-values(((lst_362) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_359)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_339 lst_360)" +"(let-values()(check-list lst_362)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_339 lst_363)" "(begin" " 'for-loop" -"(if(pair? lst_360)" +"(if(pair? lst_363)" "(let-values(((ids_40)" "(unsafe-car" -" lst_360))" -"((rest_212)" +" lst_363))" +"((rest_213)" "(unsafe-cdr" -" lst_360)))" +" lst_363)))" "(let-values(((fold-var_340)" "(let-values(((fold-var_341)" " fold-var_339))" -"(let-values(((fold-var_116)" +"(let-values(((fold-var_118)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_130)" +"(let-values(((lst_131)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65462,20 +65471,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_130)))" -"((letrec-values(((for-loop_304)" +" lst_131)))" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_342" -" lst_361)" +" lst_364)" "(begin" " 'for-loop" "(if(pair?" -" lst_361)" -"(let-values(((id_117)" +" lst_364)" +"(let-values(((id_118)" "(unsafe-car" -" lst_361))" -"((rest_213)" +" lst_364))" +"((rest_214)" "(unsafe-cdr" -" lst_361)))" +" lst_364)))" "(let-values(((fold-var_343)" "(let-values(((fold-var_344)" " fold-var_342))" @@ -65484,9 +65493,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id179_0)" -" id_117)" +" id_118)" "((phase180_0)" -" phase_83)" +" phase_84)" "((counter181_0)" " counter_8)" "((frame-id182_0)" @@ -65504,47 +65513,47 @@ static const char *startup_source = " fold-var_345)))))" "(if(not" " #f)" -"(for-loop_304" +"(for-loop_306" " fold-var_343" -" rest_213)" +" rest_214)" " fold-var_343)))" " fold-var_342)))))" -" for-loop_304)" +" for-loop_306)" " null" -" lst_130)))))" +" lst_131)))))" " fold-var_341))))" "(values" -" fold-var_116)))))" +" fold-var_118)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_305" " fold-var_340" -" rest_212)" +" rest_213)" " fold-var_340)))" " fold-var_339)))))" -" for-loop_303)" +" for-loop_305)" " null" -" lst_359))))))" +" lst_362))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_362)" +"(let-values(((lst_365)" "(if syntaxes?_0 body106_0 body130_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_346 lst_363)" +"(let-values()(check-list lst_365)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_346 lst_366)" "(begin" " 'for-loop" -"(if(pair? lst_363)" +"(if(pair? lst_366)" "(let-values(((body_18)" "(unsafe-car" -" lst_363))" -"((rest_214)" +" lst_366))" +"((rest_215)" "(unsafe-cdr" -" lst_363)))" -"(let-values(((fold-var_121)" +" lst_366)))" +"(let-values(((fold-var_123)" "(let-values(((fold-var_347)" " fold-var_346))" "(let-values(((fold-var_48)" @@ -65558,18 +65567,18 @@ static const char *startup_source = "(values" " fold-var_48)))))" "(if(not #f)" -"(for-loop_305" -" fold-var_121" -" rest_214)" -" fold-var_121)))" +"(for-loop_307" +" fold-var_123" +" rest_215)" +" fold-var_123)))" " fold-var_346)))))" -" for-loop_305)" +" for-loop_307)" " null" -" lst_362))))))" +" lst_365))))))" "(let-values((()" "(begin" "(let-values(((obs_90)" -"(expand-context-observer ctx_84)))" +"(expand-context-observer ctx_83)))" "(if obs_90" "(let-values()" "(log-let-renames" @@ -65590,7 +65599,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_84)))" +" ctx_83)))" "(if obs_91" "(let-values()" "(let-values()" @@ -65598,7 +65607,7 @@ static const char *startup_source = " obs_91" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_84)))" +"(prepare-next-phase-namespace ctx_83)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" @@ -65607,7 +65616,7 @@ static const char *startup_source = "(if syntaxes?_0" " trans-rhs103_0" " '()))" -"((lst_364) trans-idss_2))" +"((lst_367) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65616,28 +65625,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_306)" +"(let-values()(check-list lst_367)))" +"((letrec-values(((for-loop_308)" "(lambda(fold-var_348" -" lst_365" -" lst_366)" +" lst_368" +" lst_369)" "(begin" " 'for-loop" -"(if(if(pair? lst_365)" -"(pair? lst_366)" +"(if(if(pair? lst_368)" +"(pair? lst_369)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_365))" -"((rest_215)" -"(unsafe-cdr" -" lst_365))" -"((ids_41)" -"(unsafe-car" -" lst_366))" +" lst_368))" "((rest_216)" "(unsafe-cdr" -" lst_366)))" +" lst_368))" +"((ids_41)" +"(unsafe-car" +" lst_369))" +"((rest_217)" +"(unsafe-cdr" +" lst_369)))" "(let-values(((fold-var_349)" "(let-values(((fold-var_350)" " fold-var_348))" @@ -65649,7 +65658,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_84)))" +" ctx_83)))" "(if obs_92" "(let-values()" "(let-values()" @@ -65669,11 +65678,11 @@ static const char *startup_source = " rhs_21" " sc_39)" " ids_41" -" ctx_84)))" +" ctx_83)))" "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_84)))" +" ctx_83)))" "(if obs_93" "(let-values()" "(let-values()" @@ -65686,56 +65695,56 @@ static const char *startup_source = "(values" " fold-var_351)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_308" " fold-var_349" -" rest_215" -" rest_216)" +" rest_216" +" rest_217)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_306)" +" for-loop_308)" " null" " lst_63" -" lst_364))))))" +" lst_367))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_367) val-keyss_2)" -"((lst_134) val-idss_3))" +"(let-values(((lst_370) val-keyss_2)" +"((lst_135) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_367)))" +"(let-values()(check-list lst_370)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_134)))" -"((letrec-values(((for-loop_307)" +"(let-values()(check-list lst_135)))" +"((letrec-values(((for-loop_309)" "(lambda(env_29" -" lst_368" -" lst_369)" +" lst_371" +" lst_372)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_368)" -"(pair? lst_369)" +" lst_371)" +"(pair? lst_372)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_368))" -"((rest_217)" -"(unsafe-cdr" -" lst_368))" -"((ids_42)" -"(unsafe-car" -" lst_369))" +" lst_371))" "((rest_218)" "(unsafe-cdr" -" lst_369)))" +" lst_371))" +"((ids_42)" +"(unsafe-car" +" lst_372))" +"((rest_219)" +"(unsafe-cdr" +" lst_372)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_370)" +"(let-values(((lst_373)" " keys_10)" -"((lst_371)" +"((lst_374)" " ids_42))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65743,36 +65752,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_370)))" +" lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_371)))" -"((letrec-values(((for-loop_308)" +" lst_374)))" +"((letrec-values(((for-loop_310)" "(lambda(env_32" -" lst_372" -" lst_373)" +" lst_375" +" lst_376)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_372)" +" lst_375)" "(pair?" -" lst_373)" +" lst_376)" " #f)" "(let-values(((key_90)" "(unsafe-car" -" lst_372))" -"((rest_219)" -"(unsafe-cdr" -" lst_372))" -"((id_118)" -"(unsafe-car" -" lst_373))" +" lst_375))" "((rest_220)" "(unsafe-cdr" -" lst_373)))" +" lst_375))" +"((id_119)" +"(unsafe-car" +" lst_376))" +"((rest_221)" +"(unsafe-cdr" +" lst_376)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -65782,92 +65791,92 @@ static const char *startup_source = " env_34" " key_90" "(local-variable1.1" -" id_118)))))" +" id_119)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_308" +"(for-loop_310" " env_33" -" rest_219" -" rest_220)" +" rest_220" +" rest_221)" " env_33)))" " env_32)))))" -" for-loop_308)" +" for-loop_310)" " env_31" -" lst_370" -" lst_371))))))" +" lst_373" +" lst_374))))))" "(if(not #f)" -"(for-loop_307" +"(for-loop_309" " env_30" -" rest_217" -" rest_218)" +" rest_218" +" rest_219)" " env_30)))" " env_29)))))" -" for-loop_307)" -"(expand-context-env ctx_84)" -" lst_367" -" lst_134)))))" +" for-loop_309)" +"(expand-context-env ctx_83)" +" lst_370" +" lst_135)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_374) trans-keyss_0)" -"((lst_375) trans-valss_0)" -"((lst_376) trans-idss_2))" +"(let-values(((lst_377) trans-keyss_0)" +"((lst_378) trans-valss_0)" +"((lst_379) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_374)))" +"(let-values()(check-list lst_377)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_375)))" +"(let-values()(check-list lst_378)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_376)))" -"((letrec-values(((for-loop_309)" +"(let-values()(check-list lst_379)))" +"((letrec-values(((for-loop_311)" "(lambda(env_36" -" lst_377" -" lst_378" -" lst_379)" +" lst_380" +" lst_381" +" lst_382)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_377)" +" lst_380)" "(if(pair?" -" lst_378)" +" lst_381)" "(pair?" -" lst_379)" +" lst_382)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_377))" -"((rest_221)" -"(unsafe-cdr" -" lst_377))" -"((vals_9)" -"(unsafe-car" -" lst_378))" +" lst_380))" "((rest_222)" "(unsafe-cdr" -" lst_378))" -"((ids_43)" +" lst_380))" +"((vals_9)" "(unsafe-car" -" lst_379))" +" lst_381))" "((rest_223)" "(unsafe-cdr" -" lst_379)))" +" lst_381))" +"((ids_43)" +"(unsafe-car" +" lst_382))" +"((rest_224)" +"(unsafe-cdr" +" lst_382)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_380)" +"(let-values(((lst_383)" " keys_11)" -"((lst_381)" +"((lst_384)" " vals_9)" -"((lst_382)" +"((lst_385)" " ids_43))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65875,52 +65884,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_380)))" +" lst_383)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_381)))" +" lst_384)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_382)))" -"((letrec-values(((for-loop_310)" +" lst_385)))" +"((letrec-values(((for-loop_312)" "(lambda(env_40" -" lst_383" -" lst_384" -" lst_385)" +" lst_386" +" lst_387" +" lst_388)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_383)" +" lst_386)" "(if(pair?" -" lst_384)" +" lst_387)" "(pair?" -" lst_385)" +" lst_388)" " #f)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_383))" -"((rest_224)" -"(unsafe-cdr" -" lst_383))" -"((val_85)" -"(unsafe-car" -" lst_384))" +" lst_386))" "((rest_225)" "(unsafe-cdr" -" lst_384))" -"((id_119)" +" lst_386))" +"((val_85)" "(unsafe-car" -" lst_385))" +" lst_387))" "((rest_226)" "(unsafe-cdr" -" lst_385)))" +" lst_387))" +"((id_120)" +"(unsafe-car" +" lst_388))" +"((rest_227)" +"(unsafe-cdr" +" lst_388)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -65929,9 +65938,9 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_85" -" id_119" -" phase_83" -" ctx_84)" +" id_120" +" phase_84" +" ctx_83)" "(env-extend" " env_42" " key_91" @@ -65940,41 +65949,41 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_310" +"(for-loop_312" " env_41" -" rest_224" " rest_225" -" rest_226)" +" rest_226" +" rest_227)" " env_41)))" " env_40)))))" -" for-loop_310)" +" for-loop_312)" " env_38" -" lst_380" -" lst_381" -" lst_382))))))" +" lst_383" +" lst_384" +" lst_385))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_311" " env_37" -" rest_221" " rest_222" -" rest_223)" +" rest_223" +" rest_224)" " env_37)))" " env_36)))))" -" for-loop_309)" +" for-loop_311)" " rec-val-env_0" -" lst_374" -" lst_375" -" lst_376)))))" +" lst_377" +" lst_378" +" lst_379)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_84)))" +"(as-expression-context ctx_83)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_184) expr-ctx_0))" -"(let-values(((the-struct_96) v_184))" +"(let-values(((v_185) expr-ctx_0))" +"(let-values(((the-struct_96) v_185))" "(if(expand-context/outer?" " the-struct_96)" "(let-values(((env184_0)" @@ -65983,7 +65992,7 @@ static const char *startup_source = "(cons" " sc_39" "(expand-context-scopes" -" ctx_84)))" +" ctx_83)))" "((reference-records186_0)" "(if split-by-reference?_0" "(cons" @@ -65995,11 +66004,11 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_84" +" ctx_83" " sc_39))" "((inner188_0)" "(root-expand-context/outer-inner" -" v_184)))" +" v_185)))" "(expand-context/outer1.1" " inner188_0" "(root-expand-context/outer-post-expansion-scope" @@ -66037,13 +66046,13 @@ static const char *startup_source = "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_84))" +" ctx_83))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_83)" +"(core-id 'letrec-values phase_84)" " let-values127_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx189_0) ctx_84)" +"(let-values(((ctx189_0) ctx_83)" "((s190_1) s_105)" "((temp191_1) #t))" "(keep-as-needed119.1" @@ -66054,29 +66063,29 @@ static const char *startup_source = " s190_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_83)" "(reverse$1" -"(let-values(((lst_251)" +"(let-values(((lst_254)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_251)))" -"((letrec-values(((for-loop_227)" +"(check-list lst_254)))" +"((letrec-values(((for-loop_229)" "(lambda(fold-var_352" -" lst_252)" +" lst_255)" "(begin" " 'for-loop" "(if(pair?" -" lst_252)" +" lst_255)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_252))" -"((rest_137)" +" lst_255))" +"((rest_139)" "(unsafe-cdr" -" lst_252)))" +" lst_255)))" "(let-values(((fold-var_353)" "(let-values(((fold-var_354)" " fold-var_352))" @@ -66085,7 +66094,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_386)" +"(let-values(((lst_389)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66093,22 +66102,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_386)))" -"((letrec-values(((for-loop_311)" +" lst_389)))" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_356" -" lst_387)" +" lst_390)" "(begin" " 'for-loop" "(if(pair?" -" lst_387)" +" lst_390)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_387))" -"((rest_227)" +" lst_390))" +"((rest_228)" "(unsafe-cdr" -" lst_387)))" +" lst_390)))" "(let-values(((fold-var_357)" -"(let-values(((fold-var_130)" +"(let-values(((fold-var_132)" " fold-var_356))" "(let-values(((fold-var_358)" "(let-values()" @@ -66120,32 +66129,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_130))))" +" fold-var_132))))" "(values" " fold-var_358)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_313" " fold-var_357" -" rest_227)" +" rest_228)" " fold-var_357)))" " fold-var_356)))))" -" for-loop_311)" +" for-loop_313)" " null" -" lst_386)))))" +" lst_389)))))" " fold-var_354))))" "(values" " fold-var_355)))))" "(if(not" " #f)" -"(for-loop_227" +"(for-loop_229" " fold-var_353" -" rest_137)" +" rest_139)" " fold-var_353)))" " fold-var_352)))))" -" for-loop_227)" +" for-loop_229)" " null" -" lst_251))))" +" lst_254))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -66153,7 +66162,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_84)))" +" ctx_83)))" "(if obs_94" "(let-values()" "(log-letrec-values" @@ -66172,7 +66181,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_84)))" +" ctx_83)))" "(if obs_95" "(let-values()" "(if(not" @@ -66188,17 +66197,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_265)" +"(let-values(((v_266)" " rec-ctx_0))" "(let-values(((the-struct_97)" -" v_265))" +" v_266))" "(if(expand-context/outer?" " the-struct_97)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" "(root-expand-context/outer-inner" -" v_265)))" +" v_266)))" "(expand-context/outer1.1" " inner196_0" "(root-expand-context/outer-post-expansion-scope" @@ -66242,7 +66251,7 @@ static const char *startup_source = "(let-values(((body-ctx197_0)" " body-ctx_5)" "((ctx198_0)" -" ctx_84))" +" ctx_83))" "(as-tail-context22.1" " ctx198_0" " body-ctx197_0)))" @@ -66259,13 +66268,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_149)" +"(let-values(((lst_150)" " val-name-idss_0)" -"((lst_388)" +"((lst_391)" " val-keyss_2)" -"((lst_150)" +"((lst_151)" " val-rhss_3)" -"((lst_389)" +"((lst_392)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66273,68 +66282,68 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_388)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_150)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_389)))" -"((letrec-values(((for-loop_312)" +" lst_391)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_151)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_392)))" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_359" -" lst_390" -" lst_391" -" lst_392" -" lst_393)" +" lst_393" +" lst_394" +" lst_395" +" lst_396)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_390)" -"(if(pair?" -" lst_391)" -"(if(pair?" -" lst_392)" -"(pair?" " lst_393)" +"(if(pair?" +" lst_394)" +"(if(pair?" +" lst_395)" +"(pair?" +" lst_396)" " #f)" " #f)" " #f)" "(let-values(((ids_44)" "(unsafe-car" -" lst_390))" -"((rest_228)" -"(unsafe-cdr" -" lst_390))" -"((keys_12)" -"(unsafe-car" -" lst_391))" +" lst_393))" "((rest_229)" "(unsafe-cdr" -" lst_391))" -"((rhs_22)" +" lst_393))" +"((keys_12)" "(unsafe-car" -" lst_392))" +" lst_394))" "((rest_230)" "(unsafe-cdr" -" lst_392))" -"((clause_4)" +" lst_394))" +"((rhs_22)" "(unsafe-car" -" lst_393))" +" lst_395))" "((rest_231)" "(unsafe-cdr" -" lst_393)))" +" lst_395))" +"((clause_4)" +"(unsafe-car" +" lst_396))" +"((rest_232)" +"(unsafe-cdr" +" lst_396)))" "(let-values(((fold-var_51)" "(let-values(((fold-var_360)" " fold-var_359))" @@ -66346,7 +66355,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_84)))" +" ctx_83)))" "(if obs_96" "(let-values()" "(let-values()" @@ -66373,7 +66382,7 @@ static const char *startup_source = " rhs199_0" " temp200_0))))" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_83)" "(list" " keys_12" " exp-rhs_4)" @@ -66389,20 +66398,20 @@ static const char *startup_source = " fold-var_361)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_314" " fold-var_51" -" rest_228" " rest_229" " rest_230" -" rest_231)" +" rest_231" +" rest_232)" " fold-var_51)))" " fold-var_359)))))" -" for-loop_312)" +" for-loop_314)" " null" -" lst_149" -" lst_388" " lst_150" -" lst_389))))))" +" lst_391" +" lst_151" +" lst_392))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66412,7 +66421,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_83)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -66470,7 +66479,7 @@ static const char *startup_source = " val-keyss204_0" " val-rhss205_0" " val-clauses206_0))))))" -"(if(expand-context-to-parsed? ctx_84)" +"(if(expand-context-to-parsed? ctx_83)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -66482,23 +66491,23 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_394) val-idss_4)((lst_395) val-rhss_4))" +"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_394)))" +"(let-values()(check-list lst_397)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_395)))" -"((letrec-values(((for-loop_313)" -"(lambda(fold-var_362 lst_396 lst_397)" +"(let-values()(check-list lst_398)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_362 lst_399 lst_400)" "(begin" " 'for-loop" -"(if(if(pair? lst_396)(pair? lst_397) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_396))" -"((rest_232)(unsafe-cdr lst_396))" -"((val-rhs_11)(unsafe-car lst_397))" -"((rest_233)(unsafe-cdr lst_397)))" +"(if(if(pair? lst_399)(pair? lst_400) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_399))" +"((rest_233)(unsafe-cdr lst_399))" +"((val-rhs_11)(unsafe-car lst_400))" +"((rest_234)(unsafe-cdr lst_400)))" "(let-values(((fold-var_363)" "(let-values(((fold-var_364) fold-var_362))" "(let-values(((fold-var_365)" @@ -66511,13 +66520,13 @@ static const char *startup_source = " fold-var_364))))" "(values fold-var_365)))))" "(if(not #f)" -"(for-loop_313 fold-var_363 rest_232 rest_233)" +"(for-loop_315 fold-var_363 rest_233 rest_234)" " fold-var_363)))" " fold-var_362)))))" -" for-loop_313)" +" for-loop_315)" " null" -" lst_394" -" lst_395))))" +" lst_397" +" lst_398))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_97" @@ -66526,23 +66535,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_398) trans-idss_3)((lst_399) trans-rhss_0))" +"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_398)))" +"(let-values()(check-list lst_401)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_399)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_366 lst_400 lst_401)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_366 lst_403 lst_404)" "(begin" " 'for-loop" -"(if(if(pair? lst_400)(pair? lst_401) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_400))" -"((rest_234)(unsafe-cdr lst_400))" -"((trans-rhs_5)(unsafe-car lst_401))" -"((rest_235)(unsafe-cdr lst_401)))" +"(if(if(pair? lst_403)(pair? lst_404) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_403))" +"((rest_235)(unsafe-cdr lst_403))" +"((trans-rhs_5)(unsafe-car lst_404))" +"((rest_236)(unsafe-cdr lst_404)))" "(let-values(((fold-var_367)" "(let-values(((fold-var_368) fold-var_366))" "(let-values(((fold-var_369)" @@ -66556,12 +66565,12 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_40))))" " fold-var_368))))" "(values fold-var_369)))))" -"(if(not #f)(for-loop_314 fold-var_367 rest_234 rest_235) fold-var_367)))" +"(if(not #f)(for-loop_316 fold-var_367 rest_235 rest_236) fold-var_367)))" " fold-var_366)))))" -" for-loop_314)" +" for-loop_316)" " null" -" lst_398" -" lst_399))))" +" lst_401" +" lst_402))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -66596,30 +66605,30 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_570 ctx_85)" +"(lambda(s_568 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_85)))" +"(let-values(((obs_99)(expand-context-observer ctx_84)))" "(if obs_99" "(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_570)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_568)))" "(let-values(((ok?_45 #%stratified-body222_0 body223_0)" -"(let-values(((s_571) disarmed-s_9))" -"(let-values(((orig-s_48) s_571))" +"(let-values(((s_569) disarmed-s_9))" +"(let-values(((orig-s_48) s_569))" "(let-values(((#%stratified-body222_1 body223_1)" -"(let-values(((s_572)(if(syntax?$1 s_571)(syntax-e$1 s_571) s_571)))" -"(if(pair? s_572)" +"(let-values(((s_570)(if(syntax?$1 s_569)(syntax-e$1 s_569) s_569)))" +"(if(pair? s_570)" "(let-values(((#%stratified-body224_0)" -"(let-values(((s_573)(car s_572))) s_573))" +"(let-values(((s_571)(car s_570))) s_571))" "((body225_0)" -"(let-values(((s_574)(cdr s_572)))" -"(let-values(((s_575)" -"(if(syntax?$1 s_574)" -"(syntax-e$1 s_574)" -" s_574)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_575)))" +"(let-values(((s_572)(cdr s_570)))" +"(let-values(((s_573)" +"(if(syntax?$1 s_572)" +"(syntax-e$1 s_572)" +" s_572)))" +"(let-values(((flat-s_43)(to-syntax-list.1 s_573)))" "(if(not flat-s_43)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -66631,40 +66640,40 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body222_1 body223_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx226_0) ctx_85)((s227_0) s_570)((temp228_0) #t))" +"(let-values(((ctx226_0) ctx_84)((s227_0) s_568)((temp228_0) #t))" "(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_0))))" "(let-values(((exp-body_5)" "(let-values(((temp229_3) body223_0)" -"((ctx230_0) ctx_85)" +"((ctx230_0) ctx_84)" "((temp231_1) #t)" "((rebuild-s232_0) rebuild-s_7))" "(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))" -"(if(expand-context-to-parsed? ctx_85)" +"(if(expand-context-to-parsed? ctx_84)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s233_0) rebuild-s_7)" "((temp234_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_85)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" "(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_576 ctx_86)" +"(lambda(s_574 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_86)))" +"(let-values(((obs_100)(expand-context-observer ctx_85)))" "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_576)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_574)))" "(let-values(((ok?_46 #%datum235_0 datum236_0)" -"(let-values(((s_577) disarmed-s_10))" -"(let-values(((orig-s_49) s_577))" +"(let-values(((s_575) disarmed-s_10))" +"(let-values(((orig-s_49) s_575))" "(let-values(((#%datum235_1 datum236_1)" -"(let-values(((s_578)(if(syntax?$1 s_577)(syntax-e$1 s_577) s_577)))" -"(if(pair? s_578)" -"(let-values(((#%datum237_0)(let-values(((s_579)(car s_578))) s_579))" -"((datum238_0)(let-values(((s_580)(cdr s_578))) s_580)))" +"(let-values(((s_576)(if(syntax?$1 s_575)(syntax-e$1 s_575) s_575)))" +"(if(pair? s_576)" +"(let-values(((#%datum237_0)(let-values(((s_577)(car s_576))) s_577))" +"((datum238_0)(let-values(((s_578)(cdr s_576))) s_578)))" "(values #%datum237_0 datum238_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%datum235_1 datum236_1))))))" @@ -66676,35 +66685,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_141)(expand-context-phase ctx_86)))" -"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_576)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_576)((temp240_0)(list(core-id 'quote phase_141) datum_2)))" +"(let-values(((phase_142)(expand-context-phase ctx_85)))" +"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_574)(syntax->datum$1 datum_2))" +"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_142) datum_2)))" "(rebuild5.1 #t s239_0 temp240_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_581 ctx_87)" +"(lambda(s_579 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_87)))" +"(let-values(((obs_101)(expand-context-observer ctx_86)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_581)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_579)))" "(let-values(((ok?_47 #%app241_0 e242_0)" -"(let-values(((s_582) disarmed-s_11))" -"(let-values(((orig-s_50) s_582))" +"(let-values(((s_580) disarmed-s_11))" +"(let-values(((orig-s_50) s_580))" "(let-values(((#%app241_1 e242_1)" -"(let-values(((s_583)(if(syntax?$1 s_582)(syntax-e$1 s_582) s_582)))" -"(if(pair? s_583)" -"(let-values(((#%app243_0)(let-values(((s_584)(car s_583))) s_584))" +"(let-values(((s_581)(if(syntax?$1 s_580)(syntax-e$1 s_580) s_580)))" +"(if(pair? s_581)" +"(let-values(((#%app243_0)(let-values(((s_582)(car s_581))) s_582))" "((e244_0)" -"(let-values(((s_585)(cdr s_583)))" -"(let-values(((s_586)" -"(if(syntax?$1 s_585)" -"(syntax-e$1 s_585)" -" s_585)))" -"(let-values(((flat-s_44)(to-syntax-list.1 s_586)))" +"(let-values(((s_583)(cdr s_581)))" +"(let-values(((s_584)" +"(if(syntax?$1 s_583)" +"(syntax-e$1 s_583)" +" s_583)))" +"(let-values(((flat-s_44)(to-syntax-list.1 s_584)))" "(if(not flat-s_44)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" @@ -66715,27 +66724,27 @@ static const char *startup_source = "(let-values(((es_3) e242_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_142)(expand-context-phase ctx_87)))" -"(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_581) null)" -"(let-values(((s245_0) s_581)((temp246_1)(list(core-id 'quote phase_142) null)))" +"(let-values(((phase_143)(expand-context-phase ctx_86)))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote14.1(keep-properties-only~ s_579) null)" +"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_143) null)))" "(rebuild5.1 #t s245_0 temp246_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx247_0) ctx_87)" -"((s248_0) s_581)" +"(let-values(((ctx247_0) ctx_86)" +"((s248_0) s_579)" "((keep-for-parsed?249_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx250_0) ctx_87)" +"(let-values(((ctx250_0) ctx_86)" "((prefixless251_0) prefixless_0)" "((keep-for-parsed?252_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 prefixless251_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_87)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" @@ -66746,7 +66755,7 @@ static const char *startup_source = "(call-expand-observe" " obs_102" " 'enter-list" -"(datum->syntax$1 #f es_3 s_581))" +"(datum->syntax$1 #f es_3 s_579))" "(call-expand-observe obs_102 'next))))" "(void)))" "(values))))" @@ -66756,19 +66765,19 @@ static const char *startup_source = "(expand9.1 #f #f #f temp253_2 expr-ctx254_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_402) rest-es_0))" +"(let-values(((lst_405) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_315)" -"(lambda(fold-var_370 lst_403)" +"(let-values()(check-list lst_405)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_370 lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_403)" -"(let-values(((e_90)(unsafe-car lst_403))" -"((rest_236)" -"(unsafe-cdr lst_403)))" +"(if(pair? lst_406)" +"(let-values(((e_90)(unsafe-car lst_406))" +"((rest_237)" +"(unsafe-cdr lst_406)))" "(let-values(((fold-var_371)" "(let-values(((fold-var_372)" " fold-var_370))" @@ -66801,17 +66810,17 @@ static const char *startup_source = "(values" " fold-var_373)))))" "(if(not #f)" -"(for-loop_315 fold-var_371 rest_236)" +"(for-loop_317 fold-var_371 rest_237)" " fold-var_371)))" " fold-var_370)))))" -" for-loop_315)" +" for-loop_317)" " null" -" lst_402))))))" -"(if(expand-context-to-parsed? ctx_87)" +" lst_405))))))" +"(if(expand-context-to-parsed? ctx_86)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_380) rebuild-prefixless_0))" -"(if or-part_380 or-part_380 rebuild-s_8))" +"(let-values(((or-part_383) rebuild-prefixless_0))" +"(if or-part_383 or-part_383 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66838,35 +66847,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_587 ctx_88)" +"(lambda(s_585 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_88)))" +"(let-values(((obs_105)(expand-context-observer ctx_87)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_48 quote261_0 datum262_0)" -"(let-values(((s_282)(syntax-disarm$1 s_587)))" +"(let-values(((s_282)(syntax-disarm$1 s_585)))" "(let-values(((orig-s_51) s_282))" "(let-values(((quote261_1 datum262_1)" "(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))" "(if(pair? s_284)" -"(let-values(((quote263_0)(let-values(((s_588)(car s_284))) s_588))" +"(let-values(((quote263_0)(let-values(((s_586)(car s_284))) s_586))" "((datum264_0)" -"(let-values(((s_589)(cdr s_284)))" -"(let-values(((s_590)" -"(if(syntax?$1 s_589)" -"(syntax-e$1 s_589)" -" s_589)))" -"(if(pair? s_590)" +"(let-values(((s_587)(cdr s_284)))" +"(let-values(((s_588)" +"(if(syntax?$1 s_587)" +"(syntax-e$1 s_587)" +" s_587)))" +"(if(pair? s_588)" "(let-values(((datum265_0)" -"(let-values(((s_591)(car s_590))) s_591))" +"(let-values(((s_589)(car s_588))) s_589))" "(()" -"(let-values(((s_592)(cdr s_590)))" -"(let-values(((s_593)" -"(if(syntax?$1 s_592)" -"(syntax-e$1 s_592)" -" s_592)))" -"(if(null? s_593)" +"(let-values(((s_590)(cdr s_588)))" +"(let-values(((s_591)" +"(if(syntax?$1 s_590)" +"(syntax-e$1 s_590)" +" s_590)))" +"(if(null? s_591)" "(values)" "(raise-syntax-error$1" " #f" @@ -66877,41 +66886,41 @@ static const char *startup_source = "(values quote263_0 datum264_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote261_1 datum262_1))))))" -"(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_587)(syntax->datum$1 datum262_0))" -" s_587))))))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote14.1(keep-properties-only~ s_585)(syntax->datum$1 datum262_0))" +" s_585))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_594 ctx_89)" +"(lambda(s_592 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_89)))" +"(let-values(((obs_106)(expand-context-observer ctx_88)))" "(if obs_106" "(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_594)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_592)))" "(let-values(((ok?_49 quote-syntax266_0 datum267_0)" "(let-values(((s_291) disarmed-s_12))" -"(if(let-values(((s_595)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_595)" -"(if(let-values(((s_596)(car s_595))) #t)" -"(let-values(((s_597)(cdr s_595)))" -"(let-values(((s_292)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" +"(if(let-values(((s_593)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(if(pair? s_593)" +"(if(let-values(((s_594)(car s_593))) #t)" +"(let-values(((s_595)(cdr s_593)))" +"(let-values(((s_292)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" "(if(pair? s_292)" -"(if(let-values(((s_598)(car s_292))) #t)" -"(let-values(((s_599)(cdr s_292)))" -"(let-values(((s_293)(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" +"(if(let-values(((s_596)(car s_292))) #t)" +"(let-values(((s_597)(cdr s_292)))" +"(let-values(((s_293)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" "(if(pair? s_293)" "(if(let-values(((s_294)(car s_293)))" "(let-values(((s_295)" "(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" "(eq? '#:local s_295)))" -"(let-values(((s_600)(cdr s_293)))" -"(let-values(((s_601)" -"(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" -"(null? s_601)))" +"(let-values(((s_598)(cdr s_293)))" +"(let-values(((s_599)" +"(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" +"(null? s_599)))" " #f)" " #f)))" " #f)" @@ -66920,44 +66929,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax266_1 datum267_1)" -"(let-values(((s_602)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(let-values(((s_600)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" "(let-values(((quote-syntax268_0)" -"(let-values(((s_603)(car s_602))) s_603))" +"(let-values(((s_601)(car s_600))) s_601))" "((datum269_0)" -"(let-values(((s_604)(cdr s_602)))" -"(let-values(((s_605)" -"(if(syntax?$1 s_604)" -"(syntax-e$1 s_604)" -" s_604)))" +"(let-values(((s_602)(cdr s_600)))" +"(let-values(((s_603)" +"(if(syntax?$1 s_602)" +"(syntax-e$1 s_602)" +" s_602)))" "(let-values(((datum270_0)" -"(let-values(((s_606)(car s_605))) s_606))" +"(let-values(((s_604)(car s_603))) s_604))" "(()" -"(let-values(((s_607)(cdr s_605)))" -"(let-values(((s_608)" -"(if(syntax?$1 s_607)" -"(syntax-e$1 s_607)" -" s_607)))" +"(let-values(((s_605)(cdr s_603)))" +"(let-values(((s_606)" +"(if(syntax?$1 s_605)" +"(syntax-e$1 s_605)" +" s_605)))" "(let-values((()" -"(let-values(((s_609)" +"(let-values(((s_607)" "(car" -" s_608)))" +" s_606)))" +"(let-values(((s_608)" +"(if(syntax?$1" +" s_607)" +"(syntax-e$1" +" s_607)" +" s_607)))" +"(values))))" +"(()" +"(let-values(((s_609)" +"(cdr" +" s_606)))" "(let-values(((s_610)" "(if(syntax?$1" " s_609)" "(syntax-e$1" " s_609)" " s_609)))" -"(values))))" -"(()" -"(let-values(((s_611)" -"(cdr" -" s_608)))" -"(let-values(((s_612)" -"(if(syntax?$1" -" s_611)" -"(syntax-e$1" -" s_611)" -" s_611)))" "(values)))))" "(values))))))" "(values datum270_0))))))" @@ -66965,26 +66974,26 @@ static const char *startup_source = "(values #t quote-syntax266_1 datum267_1)))" "(values #f #f #f)))))" "(let-values(((ok?_50 quote-syntax271_0 datum272_0)" -"(let-values(((s_613) disarmed-s_12))" +"(let-values(((s_611) disarmed-s_12))" "(if(if(not ok?_49) #t #f)" -"(let-values(((orig-s_52) s_613))" +"(let-values(((orig-s_52) s_611))" "(let-values(((quote-syntax271_1 datum272_1)" -"(let-values(((s_614)(if(syntax?$1 s_613)(syntax-e$1 s_613) s_613)))" -"(if(pair? s_614)" +"(let-values(((s_612)(if(syntax?$1 s_611)(syntax-e$1 s_611) s_611)))" +"(if(pair? s_612)" "(let-values(((quote-syntax273_0)" -"(let-values(((s_297)(car s_614))) s_297))" +"(let-values(((s_297)(car s_612))) s_297))" "((datum274_0)" -"(let-values(((s_615)(cdr s_614)))" -"(let-values(((s_616)" -"(if(syntax?$1 s_615)" -"(syntax-e$1 s_615)" -" s_615)))" -"(if(pair? s_616)" +"(let-values(((s_613)(cdr s_612)))" +"(let-values(((s_614)" +"(if(syntax?$1 s_613)" +"(syntax-e$1 s_613)" +" s_613)))" +"(if(pair? s_614)" "(let-values(((datum275_0)" -"(let-values(((s_298)(car s_616)))" +"(let-values(((s_298)(car s_614)))" " s_298))" "(()" -"(let-values(((s_299)(cdr s_616)))" +"(let-values(((s_299)(cdr s_614)))" "(let-values(((s_300)" "(if(syntax?$1 s_299)" "(syntax-e$1 s_299)" @@ -67008,55 +67017,55 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_89))" +"(reference-records-all-used!(expand-context-reference-records ctx_88))" "(values))))" "(let-values(((ok?_51 _276_0 _277_0 kw278_0)" -"(let-values(((s_617) disarmed-s_12))" -"(let-values(((orig-s_53) s_617))" +"(let-values(((s_615) disarmed-s_12))" +"(let-values(((orig-s_53) s_615))" "(let-values(((_276_1 _277_1 kw278_1)" -"(let-values(((s_618)" -"(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" -"(if(pair? s_618)" +"(let-values(((s_616)" +"(if(syntax?$1 s_615)(syntax-e$1 s_615) s_615)))" +"(if(pair? s_616)" "(let-values(((_279_0)" -"(let-values(((s_619)(car s_618))) s_619))" +"(let-values(((s_617)(car s_616))) s_617))" "((_280_0 kw281_0)" -"(let-values(((s_620)(cdr s_618)))" -"(let-values(((s_621)" -"(if(syntax?$1 s_620)" -"(syntax-e$1 s_620)" -" s_620)))" -"(if(pair? s_621)" +"(let-values(((s_618)(cdr s_616)))" +"(let-values(((s_619)" +"(if(syntax?$1 s_618)" +"(syntax-e$1 s_618)" +" s_618)))" +"(if(pair? s_619)" "(let-values(((_282_0)" -"(let-values(((s_622)" -"(car s_621)))" -" s_622))" +"(let-values(((s_620)" +"(car s_619)))" +" s_620))" "((kw283_0)" -"(let-values(((s_623)" -"(cdr s_621)))" -"(let-values(((s_624)" +"(let-values(((s_621)" +"(cdr s_619)))" +"(let-values(((s_622)" "(if(syntax?$1" -" s_623)" +" s_621)" "(syntax-e$1" -" s_623)" -" s_623)))" -"(if(pair? s_624)" +" s_621)" +" s_621)))" +"(if(pair? s_622)" "(let-values(((kw284_0)" -"(let-values(((s_625)" +"(let-values(((s_623)" "(car" -" s_624)))" -" s_625))" +" s_622)))" +" s_623))" "(()" -"(let-values(((s_626)" +"(let-values(((s_624)" "(cdr" -" s_624)))" -"(let-values(((s_627)" +" s_622)))" +"(let-values(((s_625)" "(if(syntax?$1" -" s_626)" +" s_624)" "(syntax-e$1" -" s_626)" -" s_626)))" +" s_624)" +" s_624)))" "(if(null?" -" s_627)" +" s_625)" "(values)" "(raise-syntax-error$1" " #f" @@ -67075,47 +67084,47 @@ static const char *startup_source = "(values _279_0 _280_0 kw281_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _276_1 _277_1 kw278_1))))))" -"(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_594) datum267_0)" -"(let-values(((s285_0) s_594)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" +"(if(expand-context-to-parsed? ctx_88)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum267_0)" +"(let-values(((s285_0) s_592)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" "(rebuild5.1 #t s285_0 temp286_0))))))" "(let-values()" -"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_89)))" +"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_88)))" "(let-values(((datum-s_0)" "(remove-scopes" -"(remove-scopes datum272_0(expand-context-scopes ctx_89))" +"(remove-scopes datum272_0(expand-context-scopes ctx_88))" "(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" -"(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_594) datum-s_0)" -"(let-values(((s287_0) s_594)((temp288_0)(list quote-syntax271_0 datum-s_0)))" +"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum-s_0)" +"(let-values(((s287_0) s_592)((temp288_0)(list quote-syntax271_0 datum-s_0)))" "(rebuild5.1 #t s287_0 temp288_0))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_628 ctx_90)" +"(lambda(s_626 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_90)))" +"(let-values(((obs_107)(expand-context-observer ctx_89)))" "(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_628)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_626)))" "(let-values(((ok?_52 _289_0 _290_0 _291_0)" -"(let-values(((s_629) disarmed-s_13))" -"(if(let-values(((s_630)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" -"(if(pair? s_630)" -"(if(let-values(((s_631)(car s_630))) #t)" -"(let-values(((s_632)(cdr s_630)))" -"(let-values(((s_633)(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" -"(if(pair? s_633)" -"(if(let-values(((s_634)(car s_633))) #t)" -"(let-values(((s_635)(cdr s_633)))" -"(let-values(((s_636)(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" -"(if(pair? s_636)" -"(if(let-values(((s_637)(car s_636))) #t)" -"(let-values(((s_638)(cdr s_636)))" -"(let-values(((s_639)" -"(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" -"(null? s_639)))" +"(let-values(((s_627) disarmed-s_13))" +"(if(let-values(((s_628)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" +"(if(pair? s_628)" +"(if(let-values(((s_629)(car s_628))) #t)" +"(let-values(((s_630)(cdr s_628)))" +"(let-values(((s_631)(if(syntax?$1 s_630)(syntax-e$1 s_630) s_630)))" +"(if(pair? s_631)" +"(if(let-values(((s_632)(car s_631))) #t)" +"(let-values(((s_633)(cdr s_631)))" +"(let-values(((s_634)(if(syntax?$1 s_633)(syntax-e$1 s_633) s_633)))" +"(if(pair? s_634)" +"(if(let-values(((s_635)(car s_634))) #t)" +"(let-values(((s_636)(cdr s_634)))" +"(let-values(((s_637)" +"(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" +"(null? s_637)))" " #f)" " #f)))" " #f)" @@ -67124,37 +67133,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_289_1 _290_1 _291_1)" -"(let-values(((s_640)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" -"(let-values(((_292_0)(let-values(((s_641)(car s_640))) s_641))" +"(let-values(((s_638)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" +"(let-values(((_292_0)(let-values(((s_639)(car s_638))) s_639))" "((_293_0 _294_0)" -"(let-values(((s_642)(cdr s_640)))" -"(let-values(((s_643)" -"(if(syntax?$1 s_642)" -"(syntax-e$1 s_642)" -" s_642)))" +"(let-values(((s_640)(cdr s_638)))" +"(let-values(((s_641)" +"(if(syntax?$1 s_640)" +"(syntax-e$1 s_640)" +" s_640)))" "(let-values(((_295_0)" -"(let-values(((s_644)(car s_643))) s_644))" +"(let-values(((s_642)(car s_641))) s_642))" "((_296_0)" -"(let-values(((s_645)(cdr s_643)))" -"(let-values(((s_646)" -"(if(syntax?$1 s_645)" -"(syntax-e$1 s_645)" -" s_645)))" +"(let-values(((s_643)(cdr s_641)))" +"(let-values(((s_644)" +"(if(syntax?$1 s_643)" +"(syntax-e$1 s_643)" +" s_643)))" "(let-values(((_297_0)" -"(let-values(((s_647)" +"(let-values(((s_645)" "(car" -" s_646)))" -" s_647))" +" s_644)))" +" s_645))" "(()" -"(let-values(((s_648)" +"(let-values(((s_646)" "(cdr" -" s_646)))" -"(let-values(((s_649)" +" s_644)))" +"(let-values(((s_647)" "(if(syntax?$1" -" s_648)" +" s_646)" "(syntax-e$1" -" s_648)" -" s_648)))" +" s_646)" +" s_646)))" "(values)))))" "(values _297_0))))))" "(values _295_0 _296_0))))))" @@ -67164,67 +67173,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_52" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_628))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_626))" "(void))" "(values))))" "(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)" -"(let-values(((s_650) disarmed-s_13))" -"(let-values(((orig-s_54) s_650))" +"(let-values(((s_648) disarmed-s_13))" +"(let-values(((orig-s_54) s_648))" "(let-values(((if298_1 tst299_1 thn300_1 els301_1)" -"(let-values(((s_651)(if(syntax?$1 s_650)(syntax-e$1 s_650) s_650)))" -"(if(pair? s_651)" -"(let-values(((if302_0)(let-values(((s_652)(car s_651))) s_652))" +"(let-values(((s_649)(if(syntax?$1 s_648)(syntax-e$1 s_648) s_648)))" +"(if(pair? s_649)" +"(let-values(((if302_0)(let-values(((s_650)(car s_649))) s_650))" "((tst303_0 thn304_0 els305_0)" -"(let-values(((s_653)(cdr s_651)))" -"(let-values(((s_654)" -"(if(syntax?$1 s_653)" -"(syntax-e$1 s_653)" -" s_653)))" -"(if(pair? s_654)" +"(let-values(((s_651)(cdr s_649)))" +"(let-values(((s_652)" +"(if(syntax?$1 s_651)" +"(syntax-e$1 s_651)" +" s_651)))" +"(if(pair? s_652)" "(let-values(((tst306_0)" -"(let-values(((s_655)(car s_654)))" -" s_655))" +"(let-values(((s_653)(car s_652)))" +" s_653))" "((thn307_0 els308_0)" -"(let-values(((s_656)(cdr s_654)))" -"(let-values(((s_657)" -"(if(syntax?$1 s_656)" -"(syntax-e$1 s_656)" -" s_656)))" -"(if(pair? s_657)" +"(let-values(((s_654)(cdr s_652)))" +"(let-values(((s_655)" +"(if(syntax?$1 s_654)" +"(syntax-e$1 s_654)" +" s_654)))" +"(if(pair? s_655)" "(let-values(((thn309_0)" -"(let-values(((s_658)" +"(let-values(((s_656)" "(car" -" s_657)))" -" s_658))" +" s_655)))" +" s_656))" "((els310_0)" -"(let-values(((s_659)" +"(let-values(((s_657)" "(cdr" +" s_655)))" +"(let-values(((s_658)" +"(if(syntax?$1" +" s_657)" +"(syntax-e$1" +" s_657)" " s_657)))" -"(let-values(((s_660)" -"(if(syntax?$1" -" s_659)" -"(syntax-e$1" -" s_659)" -" s_659)))" "(if(pair?" -" s_660)" +" s_658)" "(let-values(((els311_0)" -"(let-values(((s_661)" +"(let-values(((s_659)" "(car" -" s_660)))" -" s_661))" +" s_658)))" +" s_659))" "(()" -"(let-values(((s_662)" +"(let-values(((s_660)" "(cdr" -" s_660)))" -"(let-values(((s_663)" +" s_658)))" +"(let-values(((s_661)" "(if(syntax?$1" -" s_662)" +" s_660)" "(syntax-e$1" -" s_662)" -" s_662)))" +" s_660)" +" s_660)))" "(if(null?" -" s_663)" +" s_661)" "(values)" "(raise-syntax-error$1" " #f" @@ -67249,19 +67258,19 @@ static const char *startup_source = "(values if302_0 tst303_0 thn304_0 els305_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t if298_1 tst299_1 thn300_1 els301_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_90)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_90))" +"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_89))" "(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_90)((s315_0) s_628))" +"(let-values(((ctx314_0) ctx_89)((s315_0) s_626))" "(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))" "(expand9.1 #f #f #f temp316_0 expr-ctx317_0))))" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_90)))" +"(let-values(((obs_108)(expand-context-observer ctx_89)))" "(if obs_108" "(let-values()(let-values()(call-expand-observe obs_108 'next)))" "(void)))" @@ -67271,7 +67280,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp318_0 tail-ctx319_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_90)))" +"(let-values(((obs_109)(expand-context-observer ctx_89)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -67279,7 +67288,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp320_0) els301_0)((tail-ctx321_0) tail-ctx_0))" "(expand9.1 #f #f #f temp320_0 tail-ctx321_0))))" -"(if(expand-context-to-parsed? ctx_90)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s322_0) rebuild-s_9)" "((temp323_0)(list if298_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -67287,73 +67296,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_664 ctx_91)" +"(lambda(s_662 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_91)))" +"(let-values(((obs_110)(expand-context-observer ctx_90)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_664)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_662)))" "(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)" -"(let-values(((s_665) disarmed-s_14))" -"(let-values(((orig-s_55) s_665))" +"(let-values(((s_663) disarmed-s_14))" +"(let-values(((orig-s_55) s_663))" "(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)" -"(let-values(((s_666)(if(syntax?$1 s_665)(syntax-e$1 s_665) s_665)))" -"(if(pair? s_666)" +"(let-values(((s_664)(if(syntax?$1 s_663)(syntax-e$1 s_663) s_663)))" +"(if(pair? s_664)" "(let-values(((with-continuation-mark328_0)" -"(let-values(((s_667)(car s_666))) s_667))" +"(let-values(((s_665)(car s_664))) s_665))" "((key329_0 val330_0 body331_0)" -"(let-values(((s_668)(cdr s_666)))" -"(let-values(((s_669)" -"(if(syntax?$1 s_668)" -"(syntax-e$1 s_668)" -" s_668)))" -"(if(pair? s_669)" +"(let-values(((s_666)(cdr s_664)))" +"(let-values(((s_667)" +"(if(syntax?$1 s_666)" +"(syntax-e$1 s_666)" +" s_666)))" +"(if(pair? s_667)" "(let-values(((key332_0)" -"(let-values(((s_670)(car s_669)))" -" s_670))" +"(let-values(((s_668)(car s_667)))" +" s_668))" "((val333_0 body334_0)" -"(let-values(((s_671)(cdr s_669)))" -"(let-values(((s_672)" -"(if(syntax?$1 s_671)" -"(syntax-e$1 s_671)" -" s_671)))" -"(if(pair? s_672)" +"(let-values(((s_669)(cdr s_667)))" +"(let-values(((s_670)" +"(if(syntax?$1 s_669)" +"(syntax-e$1 s_669)" +" s_669)))" +"(if(pair? s_670)" "(let-values(((val335_0)" -"(let-values(((s_673)" +"(let-values(((s_671)" "(car" -" s_672)))" -" s_673))" +" s_670)))" +" s_671))" "((body336_0)" -"(let-values(((s_674)" +"(let-values(((s_672)" "(cdr" +" s_670)))" +"(let-values(((s_673)" +"(if(syntax?$1" +" s_672)" +"(syntax-e$1" +" s_672)" " s_672)))" -"(let-values(((s_675)" -"(if(syntax?$1" -" s_674)" -"(syntax-e$1" -" s_674)" -" s_674)))" -"(if(pair? s_675)" +"(if(pair? s_673)" "(let-values(((body337_0)" -"(let-values(((s_676)" +"(let-values(((s_674)" "(car" -" s_675)))" -" s_676))" +" s_673)))" +" s_674))" "(()" -"(let-values(((s_677)" +"(let-values(((s_675)" "(cdr" -" s_675)))" -"(let-values(((s_678)" +" s_673)))" +"(let-values(((s_676)" "(if(syntax?$1" -" s_677)" +" s_675)" "(syntax-e$1" -" s_677)" -" s_677)))" +" s_675)" +" s_675)))" "(if(null?" -" s_678)" +" s_676)" "(values)" "(raise-syntax-error$1" " #f" @@ -67375,16 +67384,16 @@ static const char *startup_source = "(values with-continuation-mark328_0 key329_0 val330_0 body331_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_91)((s339_0) s_664))" +"(let-values(((ctx338_0) ctx_90)((s339_0) s_662))" "(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))" "(let-values(((exp-key_0)" "(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))" "(expand9.1 #f #f #f temp340_0 expr-ctx341_0))))" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_91)))" +"(let-values(((obs_111)(expand-context-observer ctx_90)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" @@ -67394,7 +67403,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp342_0 expr-ctx343_0))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_91)))" +"(let-values(((obs_112)(expand-context-observer ctx_90)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" @@ -67402,10 +67411,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp344_0) body327_0)" "((temp345_0)" -"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_91))" +"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_90))" "(as-tail-context22.1 ctx347_0 expr-ctx346_0))))" "(expand9.1 #f #f #f temp344_0 temp345_0))))" -"(if(expand-context-to-parsed? ctx_91)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s348_0) rebuild-s_10)" "((temp349_0)(list with-continuation-mark324_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -67420,32 +67429,32 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_679 ctx_92)" +"(lambda(s_677 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_92)))" +"(let-values(((obs_113)(expand-context-observer ctx_91)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_679)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_677)))" "(let-values(((ok?_55 begin350_0 e351_0)" -"(let-values(((s_680) disarmed-s_15))" -"(let-values(((orig-s_56) s_680))" +"(let-values(((s_678) disarmed-s_15))" +"(let-values(((orig-s_56) s_678))" "(let-values(((begin350_1 e351_1)" -"(let-values(((s_681)" -"(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" -"(if(pair? s_681)" +"(let-values(((s_679)" +"(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" +"(if(pair? s_679)" "(let-values(((begin352_0)" -"(let-values(((s_682)(car s_681))) s_682))" +"(let-values(((s_680)(car s_679))) s_680))" "((e353_0)" -"(let-values(((s_683)(cdr s_681)))" -"(let-values(((s_684)" -"(if(syntax?$1 s_683)" -"(syntax-e$1 s_683)" -" s_683)))" +"(let-values(((s_681)(cdr s_679)))" +"(let-values(((s_682)" +"(if(syntax?$1 s_681)" +"(syntax-e$1 s_681)" +" s_681)))" "(let-values(((flat-s_45)" -"(to-syntax-list.1 s_684)))" +"(to-syntax-list.1 s_682)))" "(if(not flat-s_45)" "(let-values()" "(raise-syntax-error$1" @@ -67464,10 +67473,10 @@ static const char *startup_source = "(values #t begin350_1 e351_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_92)" -"(as-expression-context ctx_92))))" +"(as-begin-expression-context ctx_91)" +"(as-expression-context ctx_91))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_92)((s355_0) s_679))" +"(let-values(((ctx354_0) ctx_91)((s355_0) s_677))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -67478,7 +67487,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_114)" -"(expand-context-observer ctx_92)))" +"(expand-context-observer ctx_91)))" "(if obs_114" "(let-values()" "(begin" @@ -67499,7 +67508,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_115)" "(expand-context-observer" -" ctx_92)))" +" ctx_91)))" "(if obs_115" "(let-values()" "(let-values()" @@ -67514,7 +67523,7 @@ static const char *startup_source = "(let-values(((expr-ctx358_0)" " expr-ctx_4)" "((ctx359_0)" -" ctx_92))" +" ctx_91))" "(as-tail-context22.1" " ctx359_0" " expr-ctx358_0))" @@ -67525,7 +67534,7 @@ static const char *startup_source = " e351_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_92)))" +"(let-values(((obs_116)(expand-context-observer ctx_91)))" "(if obs_116" "(let-values()" "(let-values()" @@ -67534,7 +67543,7 @@ static const char *startup_source = " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s360_0) rebuild-s_11)((temp361_0)(cons begin350_0 exp-es_2)))" "(rebuild5.1 #t rebuild-s360_0 temp361_0)))))))))))))))))))" @@ -67547,39 +67556,39 @@ static const char *startup_source = "((temp364_0) 0)" "((temp365_0) #t))" "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" -"(lambda(s_685 ctx_93)" -"(let-values(((context_25)(expand-context-context ctx_93)))" -"(if(let-values(((or-part_381)(eq? context_25 'top-level)))" -"(if or-part_381 or-part_381(eq? context_25 'module)))" +"(lambda(s_683 ctx_92)" +"(let-values(((context_25)(expand-context-context ctx_92)))" +"(if(let-values(((or-part_384)(eq? context_25 'top-level)))" +"(if or-part_384 or-part_384(eq? context_25 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_685)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))" "(let-values(((ok?_56 begin366_0)" -"(let-values(((s_686) disarmed-s_16))" -"(if(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" -"(if(pair? s_687)" -"(if(let-values(((s_688)(car s_687))) #t)" -"(let-values(((s_689)(cdr s_687)))" -"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" -"(null? s_690)))" +"(let-values(((s_684) disarmed-s_16))" +"(if(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" +"(if(pair? s_685)" +"(if(let-values(((s_686)(car s_685))) #t)" +"(let-values(((s_687)(cdr s_685)))" +"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" +"(null? s_688)))" " #f)" " #f))" "(let-values()" "(let-values(((begin366_1)" -"(let-values(((s_691)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" +"(let-values(((s_689)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" "(let-values(((begin367_0)" -"(let-values(((s_692)(car s_691))) s_692))" +"(let-values(((s_690)(car s_689))) s_690))" "(()" -"(let-values(((s_693)(cdr s_691)))" -"(let-values(((s_694)" -"(if(syntax?$1 s_693)" -"(syntax-e$1 s_693)" -" s_693)))" +"(let-values(((s_691)(cdr s_689)))" +"(let-values(((s_692)" +"(if(syntax?$1 s_691)" +"(syntax-e$1 s_691)" +" s_691)))" "(values)))))" "(values begin367_0)))))" "(values #t begin366_1)))" "(values #f #f)))))" -"(if ok?_56 s_685(nonempty-begin_0 s_685 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_685 ctx_93))))))))" +"(if ok?_56 s_683(nonempty-begin_0 s_683 ctx_92)))))" +"(let-values()(nonempty-begin_0 s_683 ctx_92))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67587,15 +67596,15 @@ static const char *startup_source = "(make-begin20.1 temp371_0 temp370_0 temp368_0 parsed-begin0369_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_120 ctx_94)" +"(lambda(id_121 ctx_93)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_94)" -"(expand-context-phase ctx_94)" -"(lambda(l_87)(cons id_120 l_87))" +"(expand-context-need-eventually-defined ctx_93)" +"(expand-context-phase ctx_93)" +"(lambda(l_87)(cons id_121 l_87))" " null)" " #t))" "(let-values() #f)))))" @@ -67606,58 +67615,58 @@ static const char *startup_source = "(lambda(s373_0 ctx374_0 implicit-omitted?372_0)" "(begin" " 'core375" -"(let-values(((s_695) s373_0))" -"(let-values(((ctx_95) ctx374_0))" +"(let-values(((s_693) s373_0))" +"(let-values(((ctx_94) ctx374_0))" "(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_95)))" +"(let-values(((obs_117)(expand-context-observer ctx_94)))" "(if obs_117" "(let-values()" "(let-values()(call-expand-observe obs_117 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_695)))" -"(let-values(((id_121)" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_693)))" +"(let-values(((id_122)" "(if implicit-omitted?_0" -"(let-values() s_695)" +"(let-values() s_693)" "(let-values()" "(let-values(((ok?_57 #%top377_0 id378_0)" -"(let-values(((s_696) disarmed-s_17))" -"(let-values(((orig-s_57) s_696))" +"(let-values(((s_694) disarmed-s_17))" +"(let-values(((orig-s_57) s_694))" "(let-values(((#%top377_1 id378_1)" -"(let-values(((s_697)" -"(if(syntax?$1 s_696)" -"(syntax-e$1 s_696)" -" s_696)))" -"(if(pair? s_697)" +"(let-values(((s_695)" +"(if(syntax?$1 s_694)" +"(syntax-e$1 s_694)" +" s_694)))" +"(if(pair? s_695)" "(let-values(((#%top379_0)" -"(let-values(((s_698)" +"(let-values(((s_696)" "(car" -" s_697)))" -" s_698))" +" s_695)))" +" s_696))" "((id380_0)" -"(let-values(((s_699)" +"(let-values(((s_697)" "(cdr" -" s_697)))" -"(if(let-values(((or-part_382)" +" s_695)))" +"(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_699)" +" s_697)" "(symbol?" "(syntax-e$1" -" s_699))" +" s_697))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_699)))" -" s_699" +" s_697)))" +" s_697" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_699)))))" +" s_697)))))" "(values #%top379_0 id380_0))" "(raise-syntax-error$1" " #f" @@ -67666,8 +67675,8 @@ static const char *startup_source = "(values #t #%top377_1 id378_1))))))" " id378_0)))))" "(let-values(((b_93)" -"(let-values(((id381_0) id_121)" -"((temp382_0)(expand-context-phase ctx_95))" +"(let-values(((id381_0) id_122)" +"((temp382_0)(expand-context-phase ctx_94))" "((temp383_0) 'ambiguous))" "(resolve+shift28.1" " temp383_0" @@ -67678,87 +67687,87 @@ static const char *startup_source = " id381_0" " temp382_0))))" "(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_121 ctx_95))" +"(let-values()(raise-ambiguous-error id_122 ctx_94))" "(if(if b_93" "(if(module-binding? b_93)" -"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_95))" +"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_94))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" -"(parsed-id2.1 id_121 b_93 #f)" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-id2.1 id_122 b_93 #f)" "(if(top-level-module-path-index?(module-binding-module b_93))" -"(let-values() s_695)" -"(let-values() id_121))))" -"(if(register-eventual-variable!? id_121 ctx_95)" +"(let-values() s_693)" +"(let-values() id_122))))" +"(if(register-eventual-variable!? id_122 ctx_94)" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" -"(parsed-id2.1 id_121 b_93 #f)" -" id_121))" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-id2.1 id_122 b_93 #f)" +" id_122))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_95))" +"(if(not(expand-context-allow-unbound? ctx_94))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_121" +" id_122" " #f" " null" -"(syntax-debug-info-string id_121 ctx_95)))" +"(syntax-debug-info-string id_122 ctx_94)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_121" -"(root-expand-context-top-level-bind-scope ctx_95))))" +" id_122" +"(root-expand-context-top-level-bind-scope ctx_94))))" "(let-values(((tl-b_1)" "(let-values(((tl-id384_0) tl-id_1)" "((temp385_0)" -"(expand-context-phase ctx_95)))" +"(expand-context-phase ctx_94)))" "(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_121)" +"(let-values() id_122)" "(let-values()" "(let-values(((ok?_58 #%top386_0 id387_0)" -"(let-values(((s_700) disarmed-s_17))" -"(let-values(((orig-s_58) s_700))" +"(let-values(((s_698) disarmed-s_17))" +"(let-values(((orig-s_58) s_698))" "(let-values(((#%top386_1 id387_1)" -"(let-values(((s_701)" +"(let-values(((s_699)" "(if(syntax?$1" -" s_700)" +" s_698)" "(syntax-e$1" -" s_700)" -" s_700)))" -"(if(pair? s_701)" +" s_698)" +" s_698)))" +"(if(pair? s_699)" "(let-values(((#%top388_0)" -"(let-values(((s_702)" +"(let-values(((s_700)" "(car" -" s_701)))" -" s_702))" +" s_699)))" +" s_700))" "((id389_0)" -"(let-values(((s_703)" +"(let-values(((s_701)" "(cdr" -" s_701)))" -"(if(let-values(((or-part_383)" +" s_699)))" +"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_703)" +" s_701)" "(symbol?" "(syntax-e$1" -" s_703))" +" s_701))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_386" +" or-part_386" "(symbol?" -" s_703)))" -" s_703" +" s_701)))" +" s_701" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_703)))))" +" s_701)))))" "(values" " #%top388_0" " id389_0))" @@ -67767,80 +67776,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_58)))))" "(values #t #%top386_1 id387_1))))))" -"(let-values(((s390_0) s_695)" -"((temp391_0)(cons #%top386_0 id_121)))" +"(let-values(((s390_0) s_693)" +"((temp391_0)(cons #%top386_0 id_122)))" "(rebuild5.1 #t s390_0 temp391_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" -"(parsed-top-id4.1 id_121 b_93 #f)" -" s_695)))))))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-top-id4.1 id_122 b_93 #f)" +" s_693)))))))))))))))))))))))" "(case-lambda" -"((s_704 ctx_96)(core375_0 s_704 ctx_96 #f))" -"((s_705 ctx_97 implicit-omitted?372_1)(core375_0 s_705 ctx_97 implicit-omitted?372_1))))))" +"((s_702 ctx_95)(core375_0 s_702 ctx_95 #f))" +"((s_703 ctx_96 implicit-omitted?372_1)(core375_0 s_703 ctx_96 implicit-omitted?372_1))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_706 ctx_98)" +"(lambda(s_704 ctx_97)" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_98)))" +"(let-values(((obs_118)(expand-context-observer ctx_97)))" "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_706)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_704)))" "(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)" -"(let-values(((s_707) disarmed-s_18))" -"(let-values(((orig-s_59) s_707))" +"(let-values(((s_705) disarmed-s_18))" +"(let-values(((orig-s_59) s_705))" "(let-values(((set!392_1 id393_1 rhs394_1)" -"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" -"(if(pair? s_708)" -"(let-values(((set!395_0)(let-values(((s_709)(car s_708))) s_709))" +"(let-values(((s_706)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" +"(if(pair? s_706)" +"(let-values(((set!395_0)(let-values(((s_707)(car s_706))) s_707))" "((id396_0 rhs397_0)" -"(let-values(((s_710)(cdr s_708)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" -"(if(pair? s_711)" +"(let-values(((s_708)(cdr s_706)))" +"(let-values(((s_709)" +"(if(syntax?$1 s_708)" +"(syntax-e$1 s_708)" +" s_708)))" +"(if(pair? s_709)" "(let-values(((id398_0)" -"(let-values(((s_712)(car s_711)))" -"(if(let-values(((or-part_384)" -"(if(syntax?$1 s_712)" +"(let-values(((s_710)(car s_709)))" +"(if(let-values(((or-part_387)" +"(if(syntax?$1 s_710)" "(symbol?" "(syntax-e$1" -" s_712))" +" s_710))" " #f)))" -"(if or-part_384" -" or-part_384" -"(symbol? s_712)))" -" s_712" +"(if or-part_387" +" or-part_387" +"(symbol? s_710)))" +" s_710" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_712))))" +" s_710))))" "((rhs399_0)" -"(let-values(((s_713)(cdr s_711)))" -"(let-values(((s_714)" -"(if(syntax?$1 s_713)" -"(syntax-e$1 s_713)" -" s_713)))" -"(if(pair? s_714)" +"(let-values(((s_711)(cdr s_709)))" +"(let-values(((s_712)" +"(if(syntax?$1 s_711)" +"(syntax-e$1 s_711)" +" s_711)))" +"(if(pair? s_712)" "(let-values(((rhs400_0)" -"(let-values(((s_715)" +"(let-values(((s_713)" "(car" -" s_714)))" -" s_715))" +" s_712)))" +" s_713))" "(()" -"(let-values(((s_716)" +"(let-values(((s_714)" "(cdr" -" s_714)))" -"(let-values(((s_717)" +" s_712)))" +"(let-values(((s_715)" "(if(syntax?$1" -" s_716)" +" s_714)" "(syntax-e$1" -" s_716)" -" s_716)))" -"(if(null? s_717)" +" s_714)" +" s_714)))" +"(if(null? s_715)" "(values)" "(raise-syntax-error$1" " #f" @@ -67858,12 +67867,12 @@ static const char *startup_source = "(values #t set!392_1 id393_1 rhs394_1))))))" "(let-values(((orig-id_1) id393_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_122 from-rename?_0)" +"(lambda(id_123 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_29)" -"(let-values(((id401_0) id_122)" -"((temp402_0)(expand-context-phase ctx_98))" +"(let-values(((id401_0) id_123)" +"((temp402_0)(expand-context-phase ctx_97))" "((temp403_0) 'ambiguous)" "((temp404_0) #t))" "(resolve+shift28.1" @@ -67877,31 +67886,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_98))" +"(let-values()(raise-ambiguous-error id_123 ctx_97))" "(void))" "(values))))" "(let-values(((t_62 primitive?_11 insp_24 protected?_12)" "(if binding_29" "(let-values(((binding405_0) binding_29)" -"((ctx406_0) ctx_98)" -"((s407_0) s_706))" +"((ctx406_0) ctx_97)" +"((s407_0) s_704))" "(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_98)))" +"(let-values(((obs_119)(expand-context-observer ctx_97)))" "(if obs_119" "(let-values()" -"(let-values()(call-expand-observe obs_119 'resolve id_122)))" +"(let-values()(call-expand-observe obs_119 'resolve id_123)))" "(void)))" -"(if(let-values(((or-part_385)(variable? t_62)))" -"(if or-part_385" -" or-part_385" +"(if(let-values(((or-part_388)(variable? t_62)))" +"(if or-part_388" +" or-part_388" "(if(not binding_29)" -"(let-values(((or-part_386)" -"(register-eventual-variable!? id_122 ctx_98)))" -"(if or-part_386" -" or-part_386" -"(expand-context-allow-unbound? ctx_98)))" +"(let-values(((or-part_389)" +"(register-eventual-variable!? id_123 ctx_97)))" +"(if or-part_389" +" or-part_389" +"(expand-context-allow-unbound? ctx_97)))" " #f)))" "(let-values()" "(let-values((()" @@ -67910,20 +67919,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_29)" -"(root-expand-context-self-mpi ctx_98)))" +"(root-expand-context-self-mpi ctx_97)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_706" -" id_122))" +" s_704" +" id_123))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_120)" -"(expand-context-observer ctx_98)))" +"(expand-context-observer ctx_97)))" "(if obs_120" "(let-values()" "(let-values()" @@ -67935,28 +67944,28 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_29)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_98)((s409_0) s_706))" +"(let-values(((ctx408_0) ctx_97)((s409_0) s_704))" "(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))" "(let-values(((exp-rhs_5)" "(let-values(((temp410_0) rhs394_0)" "((temp411_0)" -"(as-expression-context ctx_98)))" +"(as-expression-context ctx_97)))" "(expand9.1 #f #f #f temp410_0 temp411_0))))" -"(if(expand-context-to-parsed? ctx_98)" +"(if(expand-context-to-parsed? ctx_97)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_122 binding_29 #f)" +"(parsed-id2.1 id_123 binding_29 #f)" " exp-rhs_5)" "(let-values(((rebuild-s412_0) rebuild-s_12)" "((temp413_0)" "(list" " set!392_0" -"(let-values(((id414_0) id_122)" +"(let-values(((id414_0) id_123)" "((t415_0) t_62)" "((temp416_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_98))))" +" ctx_97))))" "(substitute-variable6.1" " temp416_0" " id414_0" @@ -67968,35 +67977,35 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_706" -" id_122" +" s_704" +" id_123" " null" -"(syntax-debug-info-string id_122 ctx_98)))" +"(syntax-debug-info-string id_123 ctx_97)))" "(if(1/set!-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_98)" +"(if(not-in-this-expand-context? t_62 ctx_97)" "(let-values()" "(let-values(((temp417_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_706" +" s_704" " disarmed-s_18" " set!392_0" " rhs394_0" -" id_122" +" id_123" " from-rename?_0" -" ctx_98)" +" ctx_97)" " t_62" -" ctx_98))" -"((ctx418_0) ctx_98))" +" ctx_97))" +"((ctx418_0) ctx_97))" "(expand9.1 #f #f #f temp417_0 ctx418_0)))" "(let-values()" "(let-values(((exp-s_13 re-ctx_1)" "(let-values(((t419_0) t_62)" "((insp420_0) insp_24)" -"((s421_0) s_706)" +"((s421_0) s_704)" "((orig-id422_0) orig-id_1)" -"((ctx423_0) ctx_98)" +"((ctx423_0) ctx_97)" "((binding424_0) binding_29)" "((orig-id425_0) orig-id_1))" "(apply-transformer52.1" @@ -68007,7 +68016,7 @@ static const char *startup_source = " orig-id422_0" " ctx423_0" " binding424_0))))" -"(if(expand-context-just-once? ctx_98)" +"(if(expand-context-just-once? ctx_97)" "(let-values() exp-s_13)" "(let-values()" "(let-values(((exp-s426_0) exp-s_13)" @@ -68015,36 +68024,36 @@ static const char *startup_source = "(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))" "(if(1/rename-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_98)" +"(if(not-in-this-expand-context? t_62 ctx_97)" "(let-values()" "(let-values(((temp428_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_706" +" s_704" " disarmed-s_18" " set!392_0" " rhs394_0" -" id_122" +" id_123" " from-rename?_0" -" ctx_98" +" ctx_97" " t_62)" " t_62" -" ctx_98))" -"((ctx429_0) ctx_98))" +" ctx_97))" +"((ctx429_0) ctx_97))" "(expand9.1 #f #f #f temp428_0 ctx429_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_62 ctx_98)" -" id_122" -" id_122)" +"(rename-transformer-target-in-context t_62 ctx_97)" +" id_123" +" id_123)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_706" -" id_122))))))))))))))" +" s_704" +" id_123))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -68054,115 +68063,115 @@ static const char *startup_source = "(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" "(begin" " 'substitute-set!-rename31" -"(let-values(((s_718) s24_3))" +"(let-values(((s_716) s24_3))" "(let-values(((disarmed-s_19) disarmed-s25_0))" "(let-values(((set!-id_0) set!-id26_0))" -"(let-values(((id_123) id27_0))" +"(let-values(((id_124) id27_0))" "(let-values(((rhs-s_0) rhs-s28_0))" "(let-values(((from-rename?_1) from-rename?29_0))" -"(let-values(((ctx_99) ctx30_0))" +"(let-values(((ctx_98) ctx30_0))" "(let-values(((t_63) t23_0))" "(let-values()" -"(if(let-values(((or-part_387) t_63))" -"(if or-part_387 or-part_387 from-rename?_1))" +"(if(let-values(((or-part_390) t_63))" +"(if or-part_390 or-part_390 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_63" -"(rename-transformer-target-in-context t_63 ctx_99)" -" id_123)))" +"(rename-transformer-target-in-context t_63 ctx_98)" +" id_124)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_718)))" -"(let-values() s_718)))))))))))))))" +" s_716)))" +"(let-values() s_716)))))))))))))))" "(case-lambda" -"((s_719 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename31_0 s_719 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_100 #f)))" -"((s_720 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename31_0 s_720 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_101 t23_1)))))" +"((s_717 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_99)" +"(begin(substitute-set!-rename31_0 s_717 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_99 #f)))" +"((s_718 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_100 t23_1)" +"(substitute-set!-rename31_0 s_718 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_100 t23_1)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_721 ctx_102)" +"(lambda(s_719 ctx_101)" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_102)))" +"(let-values(((obs_121)(expand-context-observer ctx_101)))" "(if obs_121" "(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_721)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_719)))" "(let-values(((ok?_60 #%variable-reference430_0 id431_0)" -"(let-values(((s_722) disarmed-s_22))" -"(if(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" -"(if(pair? s_723)" -"(if(let-values(((s_724)(car s_723))) #t)" -"(let-values(((s_725)(cdr s_723)))" -"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" -"(if(pair? s_726)" -"(if(let-values(((s_727)(car s_726)))" -"(let-values(((or-part_388)" -"(if(syntax?$1 s_727)(symbol?(syntax-e$1 s_727)) #f)))" -"(if or-part_388 or-part_388(symbol? s_727))))" -"(let-values(((s_728)(cdr s_726)))" -"(let-values(((s_729)(if(syntax?$1 s_728)(syntax-e$1 s_728) s_728)))" -"(null? s_729)))" +"(let-values(((s_720) disarmed-s_22))" +"(if(let-values(((s_721)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" +"(if(pair? s_721)" +"(if(let-values(((s_722)(car s_721))) #t)" +"(let-values(((s_723)(cdr s_721)))" +"(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))" +"(if(pair? s_724)" +"(if(let-values(((s_725)(car s_724)))" +"(let-values(((or-part_391)" +"(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))" +"(if or-part_391 or-part_391(symbol? s_725))))" +"(let-values(((s_726)(cdr s_724)))" +"(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" +"(null? s_727)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference430_1 id431_1)" -"(let-values(((s_730)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" +"(let-values(((s_728)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" "(let-values(((#%variable-reference432_0)" -"(let-values(((s_731)(car s_730))) s_731))" +"(let-values(((s_729)(car s_728))) s_729))" "((id433_0)" -"(let-values(((s_732)(cdr s_730)))" -"(let-values(((s_733)" -"(if(syntax?$1 s_732)" -"(syntax-e$1 s_732)" -" s_732)))" +"(let-values(((s_730)(cdr s_728)))" +"(let-values(((s_731)" +"(if(syntax?$1 s_730)" +"(syntax-e$1 s_730)" +" s_730)))" "(let-values(((id434_0)" -"(let-values(((s_734)(car s_733))) s_734))" +"(let-values(((s_732)(car s_731))) s_732))" "(()" -"(let-values(((s_735)(cdr s_733)))" -"(let-values(((s_736)" -"(if(syntax?$1 s_735)" -"(syntax-e$1 s_735)" -" s_735)))" +"(let-values(((s_733)(cdr s_731)))" +"(let-values(((s_734)" +"(if(syntax?$1 s_733)" +"(syntax-e$1 s_733)" +" s_733)))" "(values)))))" "(values id434_0))))))" "(values #%variable-reference432_0 id433_0)))))" "(values #t #%variable-reference430_1 id431_1)))" "(values #f #f #f)))))" "(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)" -"(let-values(((s_737) disarmed-s_22))" +"(let-values(((s_735) disarmed-s_22))" "(if(if(not ok?_60)" -"(let-values(((s_738)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" -"(if(pair? s_738)" -"(if(let-values(((s_739)(car s_738))) #t)" -"(let-values(((s_740)(cdr s_738)))" -"(let-values(((s_741)(if(syntax?$1 s_740)(syntax-e$1 s_740) s_740)))" +"(let-values(((s_736)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" +"(if(pair? s_736)" +"(if(let-values(((s_737)(car s_736))) #t)" +"(let-values(((s_738)(cdr s_736)))" +"(let-values(((s_739)(if(syntax?$1 s_738)(syntax-e$1 s_738) s_738)))" +"(if(pair? s_739)" +"(if(let-values(((s_740)(car s_739)))" +"(let-values(((s_741)" +"(if(syntax?$1 s_740)(syntax-e$1 s_740) s_740)))" "(if(pair? s_741)" -"(if(let-values(((s_742)(car s_741)))" -"(let-values(((s_743)" -"(if(syntax?$1 s_742)(syntax-e$1 s_742) s_742)))" -"(if(pair? s_743)" -"(if(let-values(((s_744)(car s_743))) #t)" -"(let-values(((s_745)(cdr s_743)))" -"(let-values(((or-part_389)" -"(if(syntax?$1 s_745)" -"(symbol?(syntax-e$1 s_745))" +"(if(let-values(((s_742)(car s_741))) #t)" +"(let-values(((s_743)(cdr s_741)))" +"(let-values(((or-part_392)" +"(if(syntax?$1 s_743)" +"(symbol?(syntax-e$1 s_743))" " #f)))" -"(if or-part_389 or-part_389(symbol? s_745))))" +"(if or-part_392 or-part_392(symbol? s_743))))" " #f)" " #f)))" -"(let-values(((s_746)(cdr s_741)))" -"(let-values(((s_747)(if(syntax?$1 s_746)(syntax-e$1 s_746) s_746)))" -"(null? s_747)))" +"(let-values(((s_744)(cdr s_739)))" +"(let-values(((s_745)(if(syntax?$1 s_744)(syntax-e$1 s_744) s_744)))" +"(null? s_745)))" " #f)" " #f)))" " #f)" @@ -68170,61 +68179,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference435_1 #%top436_1 id437_1)" -"(let-values(((s_748)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" +"(let-values(((s_746)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" "(let-values(((#%variable-reference438_0)" -"(let-values(((s_749)(car s_748))) s_749))" +"(let-values(((s_747)(car s_746))) s_747))" "((#%top439_0 id440_0)" -"(let-values(((s_750)(cdr s_748)))" +"(let-values(((s_748)(cdr s_746)))" +"(let-values(((s_749)" +"(if(syntax?$1 s_748)" +"(syntax-e$1 s_748)" +" s_748)))" +"(let-values(((#%top441_0 id442_0)" +"(let-values(((s_750)(car s_749)))" "(let-values(((s_751)" "(if(syntax?$1 s_750)" "(syntax-e$1 s_750)" " s_750)))" -"(let-values(((#%top441_0 id442_0)" -"(let-values(((s_752)(car s_751)))" -"(let-values(((s_753)" -"(if(syntax?$1 s_752)" -"(syntax-e$1 s_752)" -" s_752)))" "(let-values(((#%top443_0)" -"(let-values(((s_754)" +"(let-values(((s_752)" "(car" -" s_753)))" -" s_754))" +" s_751)))" +" s_752))" "((id444_0)" -"(let-values(((s_755)" +"(let-values(((s_753)" "(cdr" +" s_751)))" " s_753)))" -" s_755)))" "(values #%top443_0 id444_0)))))" "(()" -"(let-values(((s_756)(cdr s_751)))" -"(let-values(((s_757)" -"(if(syntax?$1 s_756)" -"(syntax-e$1 s_756)" -" s_756)))" +"(let-values(((s_754)(cdr s_749)))" +"(let-values(((s_755)" +"(if(syntax?$1 s_754)" +"(syntax-e$1 s_754)" +" s_754)))" "(values)))))" "(values #%top441_0 id442_0))))))" "(values #%variable-reference438_0 #%top439_0 id440_0)))))" "(values #t #%variable-reference435_1 #%top436_1 id437_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" -"(let-values(((s_758) disarmed-s_22))" -"(if(if(not(let-values(((or-part_390) ok?_60))(if or-part_390 or-part_390 ok?_61)))" +"(let-values(((s_756) disarmed-s_22))" +"(if(if(not(let-values(((or-part_393) ok?_60))(if or-part_393 or-part_393 ok?_61)))" " #t" " #f)" -"(let-values(((orig-s_60) s_758))" +"(let-values(((orig-s_60) s_756))" "(let-values(((#%variable-reference445_1)" -"(let-values(((s_759)(if(syntax?$1 s_758)(syntax-e$1 s_758) s_758)))" -"(if(pair? s_759)" +"(let-values(((s_757)(if(syntax?$1 s_756)(syntax-e$1 s_756) s_756)))" +"(if(pair? s_757)" "(let-values(((#%variable-reference446_0)" -"(let-values(((s_760)(car s_759))) s_760))" +"(let-values(((s_758)(car s_757))) s_758))" "(()" -"(let-values(((s_761)(cdr s_759)))" -"(let-values(((s_762)" -"(if(syntax?$1 s_761)" -"(syntax-e$1 s_761)" -" s_761)))" -"(if(null? s_762)" +"(let-values(((s_759)(cdr s_757)))" +"(let-values(((s_760)" +"(if(syntax?$1 s_759)" +"(syntax-e$1 s_759)" +" s_759)))" +"(if(null? s_760)" "(values)" "(raise-syntax-error$1" " #f" @@ -68234,96 +68243,96 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%variable-reference445_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61))" +"(if(let-values(((or-part_394) ok?_60))(if or-part_394 or-part_394 ok?_61))" "(let-values()" "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" "(let-values(((binding_30)" "(let-values(((var-id447_0) var-id_0)" -"((temp448_0)(expand-context-phase ctx_102))" +"((temp448_0)(expand-context-phase ctx_101))" "((temp449_0) 'ambiguous))" "(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))" "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_102))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_392) binding_30))" -"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_102)))" +"(if(let-values(((or-part_395) binding_30))" +"(if or-part_395 or-part_395(expand-context-allow-unbound? ctx_101)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_721" +" s_719" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_102))))" +"(syntax-debug-info-string var-id_0 ctx_101))))" "(values))))" "(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_30" "(let-values(((binding450_0) binding_30)" -"((ctx451_0) ctx_102)" +"((ctx451_0) ctx_101)" "((var-id452_0) var-id_0)" -"((s453_0) s_721)" -"((temp454_0)(expand-context-in-local-expand? ctx_102)))" +"((s453_0) s_719)" +"((temp454_0)(expand-context-in-local-expand? ctx_101)))" "(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_64(not(variable? t_64)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_721))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_719))" "(void))" -"(if(expand-context-to-parsed? ctx_102)" +"(if(expand-context-to-parsed? ctx_101)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_721)" +"(keep-properties-only~ s_719)" "(if ok?_61" "(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" -" s_721))))))))" +" s_719))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_721) #f)" -" s_721)))))))))))" +"(if(expand-context-to-parsed? ctx_101)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_719) #f)" +" s_719)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_763 ctx_103)" +"(lambda(s_761 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_103)))" +"(let-values(((obs_122)(expand-context-observer ctx_102)))" "(if obs_122" "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_763)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_761)))" "(let-values(((ok?_63 #%expression455_0 e456_0)" -"(let-values(((s_764) disarmed-s_23))" -"(let-values(((orig-s_61) s_764))" +"(let-values(((s_762) disarmed-s_23))" +"(let-values(((orig-s_61) s_762))" "(let-values(((#%expression455_1 e456_1)" -"(let-values(((s_765)(if(syntax?$1 s_764)(syntax-e$1 s_764) s_764)))" -"(if(pair? s_765)" +"(let-values(((s_763)(if(syntax?$1 s_762)(syntax-e$1 s_762) s_762)))" +"(if(pair? s_763)" "(let-values(((#%expression457_0)" -"(let-values(((s_766)(car s_765))) s_766))" +"(let-values(((s_764)(car s_763))) s_764))" "((e458_0)" -"(let-values(((s_767)(cdr s_765)))" -"(let-values(((s_768)" -"(if(syntax?$1 s_767)" -"(syntax-e$1 s_767)" -" s_767)))" -"(if(pair? s_768)" +"(let-values(((s_765)(cdr s_763)))" +"(let-values(((s_766)" +"(if(syntax?$1 s_765)" +"(syntax-e$1 s_765)" +" s_765)))" +"(if(pair? s_766)" "(let-values(((e459_0)" -"(let-values(((s_769)(car s_768)))" -" s_769))" +"(let-values(((s_767)(car s_766)))" +" s_767))" "(()" -"(let-values(((s_770)(cdr s_768)))" -"(let-values(((s_771)" -"(if(syntax?$1 s_770)" -"(syntax-e$1 s_770)" -" s_770)))" -"(if(null? s_771)" +"(let-values(((s_768)(cdr s_766)))" +"(let-values(((s_769)" +"(if(syntax?$1 s_768)" +"(syntax-e$1 s_768)" +" s_768)))" +"(if(null? s_769)" "(values)" "(raise-syntax-error$1" " #f" @@ -68335,38 +68344,38 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression455_1 e456_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx460_0) ctx_103)((s461_0) s_763)((temp462_0) #t))" +"(let-values(((ctx460_0) ctx_102)((s461_0) s_761)((temp462_0) #t))" "(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))" "(let-values(((exp-e_0)" "(let-values(((temp463_0) e456_0)" "((temp464_0)" -"(let-values(((temp465_0)(as-expression-context ctx_103))" -"((ctx466_0) ctx_103))" +"(let-values(((temp465_0)(as-expression-context ctx_102))" +"((ctx466_0) ctx_102))" "(as-tail-context22.1 ctx466_0 temp465_0))))" "(expand9.1 #f #f #f temp463_0 temp464_0))))" -"(if(expand-context-to-parsed? ctx_103)" +"(if(expand-context-to-parsed? ctx_102)" " exp-e_0" -"(if(let-values(((or-part_393)" -"(if(expand-context-in-local-expand? ctx_103)" -"(expand-context-keep-#%expression? ctx_103)" +"(if(let-values(((or-part_396)" +"(if(expand-context-in-local-expand? ctx_102)" +"(expand-context-keep-#%expression? ctx_102)" " #f)))" -"(if or-part_393 or-part_393(eq? 'top-level(expand-context-context ctx_103))))" +"(if or-part_396 or-part_396(eq? 'top-level(expand-context-context ctx_102))))" "(let-values()" "(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))" "(rebuild5.1 #t rebuild-s467_0 temp468_0)))" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_103)))" +"(let-values(((obs_123)(expand-context-observer ctx_102)))" "(if obs_123" "(let-values()(let-values()(call-expand-observe obs_123 'tag result-s_13)))" "(void)))" " result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_772 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_772))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_773 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_773))))" +" (void (add-core-form!* 'unquote (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_771 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_126 at-phase_12 ns_112)" +"(lambda(b_42 id_127 at-phase_12 ns_112)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -68385,16 +68394,16 @@ static const char *startup_source = "((null3_0) null)" "((ns4_2) ns_112)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_126))" +"((id6_0) id_127))" "(binding-lookup50.1 #f #f b1_8 empty-env2_0 null3_0 ns4_2 at-phase5_0 id6_0))))" "(not(variable? val_14))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_45 ctx_106)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_105)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_106)))" +"(let-values(((ns_125)(expand-context-namespace ctx_105)))" "((letrec-values(((loop_117)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" @@ -68410,16 +68419,16 @@ static const char *startup_source = "((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_404)" +" lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_404)" +"(if(pair? lst_407)" "(let-values(((spec_0)" "(unsafe-car" -" lst_404))" -"((rest_237)" +" lst_407))" +"((rest_238)" "(unsafe-cdr" -" lst_404)))" +" lst_407)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68558,54 +68567,54 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_169)" +"(let-values(((s_168)" " disarmed-spec_0))" "(let-values(((orig-s_63)" -" s_169))" +" s_168))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_774)" +"(let-values(((s_772)" "(if(syntax?$1" -" s_169)" +" s_168)" "(syntax-e$1" -" s_169)" -" s_169)))" +" s_168)" +" s_168)))" "(if(pair?" -" s_774)" +" s_772)" "(let-values(((for-meta6_0)" -"(let-values(((s_489)" +"(let-values(((s_488)" "(car" -" s_774)))" -" s_489))" +" s_772)))" +" s_488))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_448)" +"(let-values(((s_447)" "(cdr" -" s_774)))" -"(let-values(((s_494)" +" s_772)))" +"(let-values(((s_493)" "(if(syntax?$1" -" s_448)" +" s_447)" "(syntax-e$1" -" s_448)" -" s_448)))" +" s_447)" +" s_447)))" "(if(pair?" -" s_494)" +" s_493)" "(let-values(((phase-level9_0)" -"(let-values(((s_775)" +"(let-values(((s_773)" "(car" -" s_494)))" -" s_775))" +" s_493)))" +" s_773))" "((spec10_0)" -"(let-values(((s_776)" +"(let-values(((s_774)" "(cdr" -" s_494)))" +" s_493)))" "(let-values(((s_81)" "(if(syntax?$1" -" s_776)" +" s_774)" "(syntax-e$1" -" s_776)" -" s_776)))" +" s_774)" +" s_774)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_81)))" @@ -68690,18 +68699,18 @@ static const char *startup_source = "(let-values(((ok?_65" " for-syntax13_0" " spec14_0)" -"(let-values(((s_450)" +"(let-values(((s_449)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_450))" +" s_449))" "(let-values(((for-syntax13_1" " spec14_1)" "(let-values(((s_24)" "(if(syntax?$1" -" s_450)" +" s_449)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_449)" +" s_449)))" "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" @@ -68713,7 +68722,7 @@ static const char *startup_source = "(let-values(((s_157)" "(cdr" " s_24)))" -"(let-values(((s_777)" +"(let-values(((s_775)" "(if(syntax?$1" " s_157)" "(syntax-e$1" @@ -68721,7 +68730,7 @@ static const char *startup_source = " s_157)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_777)))" +" s_775)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68778,25 +68787,25 @@ static const char *startup_source = "(let-values(((ok?_66" " for-label19_0" " spec20_0)" -"(let-values(((s_501)" +"(let-values(((s_500)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_501))" +" s_500))" "(let-values(((for-label19_1" " spec20_1)" "(let-values(((s_309)" "(if(syntax?$1" -" s_501)" +" s_500)" "(syntax-e$1" -" s_501)" -" s_501)))" +" s_500)" +" s_500)))" "(if(pair?" " s_309)" "(let-values(((for-label21_0)" -"(let-values(((s_443)" +"(let-values(((s_442)" "(car" " s_309)))" -" s_443))" +" s_442))" "((spec22_0)" "(let-values(((s_27)" "(cdr" @@ -68881,29 +68890,29 @@ static const char *startup_source = " s_49))" "(let-values(((protect25_1" " p-spec26_1)" -"(let-values(((s_778)" +"(let-values(((s_776)" "(if(syntax?$1" " s_49)" "(syntax-e$1" " s_49)" " s_49)))" "(if(pair?" -" s_778)" +" s_776)" "(let-values(((protect27_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(car" -" s_778)))" -" s_507))" +" s_776)))" +" s_506))" "((p-spec28_0)" -"(let-values(((s_508)" +"(let-values(((s_507)" "(cdr" -" s_778)))" +" s_776)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_508)" +" s_507)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_507)" +" s_507)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" " s_52)))" @@ -68959,64 +68968,64 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_314)" +"(let-values(((s_315)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_314))" +" s_315))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_779)" +"(let-values(((s_777)" "(if(syntax?$1" -" s_314)" +" s_315)" "(syntax-e$1" -" s_314)" -" s_314)))" +" s_315)" +" s_315)))" "(if(pair?" -" s_779)" +" s_777)" "(let-values(((rename34_0)" -"(let-values(((s_201)" +"(let-values(((s_200)" "(car" -" s_779)))" -" s_201))" +" s_777)))" +" s_200))" "((id:from35_0" " id:to36_0)" "(let-values(((s_59)" "(cdr" -" s_779)))" -"(let-values(((s_405)" +" s_777)))" +"(let-values(((s_404)" "(if(syntax?$1" " s_59)" "(syntax-e$1" " s_59)" " s_59)))" "(if(pair?" -" s_405)" +" s_404)" "(let-values(((id:from37_0)" -"(let-values(((s_202)" +"(let-values(((s_201)" "(car" -" s_405)))" -"(if(let-values(((or-part_212)" +" s_404)))" +"(if(let-values(((or-part_215)" "(if(syntax?$1" -" s_202)" +" s_201)" "(symbol?" "(syntax-e$1" -" s_202))" +" s_201))" " #f)))" -"(if or-part_212" -" or-part_212" +"(if or-part_215" +" or-part_215" "(symbol?" -" s_202)))" -" s_202" +" s_201)))" +" s_201" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_202))))" +" s_201))))" "((id:to38_0)" "(let-values(((s_60)" "(cdr" -" s_405)))" +" s_404)))" "(let-values(((s_61)" "(if(syntax?$1" " s_60)" @@ -69026,36 +69035,36 @@ static const char *startup_source = "(if(pair?" " s_61)" "(let-values(((id:to39_0)" -"(let-values(((s_204)" +"(let-values(((s_203)" "(car" " s_61)))" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_204)" +" s_203)" "(symbol?" "(syntax-e$1" -" s_204))" +" s_203))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_397" +" or-part_397" "(symbol?" -" s_204)))" -" s_204" +" s_203)))" +" s_203" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_204))))" +" s_203))))" "(()" -"(let-values(((s_780)" +"(let-values(((s_778)" "(cdr" " s_61)))" "(let-values(((s_414)" "(if(syntax?$1" -" s_780)" +" s_778)" "(syntax-e$1" -" s_780)" -" s_780)))" +" s_778)" +" s_778)))" "(if(null?" " s_414)" "(values)" @@ -69119,85 +69128,85 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_523)" +"(let-values(((s_521)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_523))" +" s_521))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_208)" +"(let-values(((s_207)" "(if(syntax?$1" -" s_523)" +" s_521)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_521)" +" s_521)))" "(if(pair?" -" s_208)" +" s_207)" "(let-values(((struct43_0)" -"(let-values(((s_210)" +"(let-values(((s_209)" "(car" -" s_208)))" -" s_210))" +" s_207)))" +" s_209))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_38)" "(cdr" -" s_208)))" -"(let-values(((s_318)" +" s_207)))" +"(let-values(((s_319)" "(if(syntax?$1" " s_38)" "(syntax-e$1" " s_38)" " s_38)))" "(if(pair?" -" s_318)" +" s_319)" "(let-values(((id:struct46_0)" -"(let-values(((s_781)" +"(let-values(((s_779)" "(car" -" s_318)))" -"(if(let-values(((or-part_395)" +" s_319)))" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_781)" +" s_779)" "(symbol?" "(syntax-e$1" -" s_781))" +" s_779))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_781)))" -" s_781" +" s_779)))" +" s_779" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_781))))" +" s_779))))" "((id:field47_0)" -"(let-values(((s_782)" +"(let-values(((s_780)" "(cdr" -" s_318)))" +" s_319)))" "(let-values(((s_432)" "(if(syntax?$1" -" s_782)" +" s_780)" "(syntax-e$1" -" s_782)" -" s_782)))" +" s_780)" +" s_780)))" "(if(pair?" " s_432)" "(let-values(((id:field48_0)" -"(let-values(((s_524)" +"(let-values(((s_522)" "(car" " s_432)))" -"(let-values(((s_783)" +"(let-values(((s_781)" "(if(syntax?$1" -" s_524)" +" s_522)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_522)" +" s_522)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_783)))" +" s_781)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69207,7 +69216,7 @@ static const char *startup_source = " orig-s_68))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_405)" +"(let-values(((lst_53)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69215,20 +69224,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_405)))" -"((letrec-values(((for-loop_316)" +" lst_53)))" +"((letrec-values(((for-loop_318)" "(lambda(id:field_1" -" lst_269)" +" lst_272)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" -"(let-values(((s_784)" +" lst_272)" +"(let-values(((s_782)" "(unsafe-car" -" lst_269))" -"((rest_238)" +" lst_272))" +"((rest_239)" "(unsafe-cdr" -" lst_269)))" +" lst_272)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -69236,23 +69245,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_784)" +" s_782)" "(symbol?" "(syntax-e$1" -" s_784))" +" s_782))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_399" +" or-part_399" "(symbol?" -" s_784)))" -" s_784" +" s_782)))" +" s_782" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_784)))))" +" s_782)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69260,28 +69269,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_318" " id:field_2" -" rest_238)" +" rest_239)" " id:field_2)))" " id:field_1)))))" -" for-loop_316)" +" for-loop_318)" " null" -" lst_405)))))" +" lst_53)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_529)" +"(let-values(((s_527)" "(cdr" " s_432)))" -"(let-values(((s_530)" +"(let-values(((s_528)" "(if(syntax?$1" -" s_529)" +" s_527)" "(syntax-e$1" -" s_529)" -" s_529)))" +" s_527)" +" s_527)))" "(if(null?" -" s_530)" +" s_528)" "(values)" "(raise-syntax-error$1" " #f" @@ -69338,54 +69347,54 @@ static const char *startup_source = "(let-values(((ok?_70" " all-from50_0" " mod-path51_0)" -"(let-values(((s_320)" +"(let-values(((s_321)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_320))" +" s_321))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_322)" +"(let-values(((s_323)" "(if(syntax?$1" -" s_320)" +" s_321)" "(syntax-e$1" -" s_320)" -" s_320)))" +" s_321)" +" s_321)))" "(if(pair?" -" s_322)" +" s_323)" "(let-values(((all-from52_0)" "(let-values(((s_427)" "(car" -" s_322)))" +" s_323)))" " s_427))" "((mod-path53_0)" "(let-values(((s_428)" "(cdr" -" s_322)))" -"(let-values(((s_215)" +" s_323)))" +"(let-values(((s_214)" "(if(syntax?$1" " s_428)" "(syntax-e$1" " s_428)" " s_428)))" "(if(pair?" -" s_215)" +" s_214)" "(let-values(((mod-path54_0)" -"(let-values(((s_785)" +"(let-values(((s_783)" "(car" -" s_215)))" -" s_785))" +" s_214)))" +" s_783))" "(()" -"(let-values(((s_216)" +"(let-values(((s_215)" "(cdr" -" s_215)))" -"(let-values(((s_170)" +" s_214)))" +"(let-values(((s_169)" "(if(syntax?$1" -" s_216)" +" s_215)" "(syntax-e$1" -" s_216)" -" s_216)))" +" s_215)" +" s_215)))" "(if(null?" -" s_170)" +" s_169)" "(values)" "(raise-syntax-error$1" " #f" @@ -69418,7 +69427,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_106)" +" ctx_105)" "(values" " null" "(list" @@ -69449,41 +69458,41 @@ static const char *startup_source = "(if(pair?" " s_105)" "(let-values(((all-from-except58_0)" -"(let-values(((s_219)" +"(let-values(((s_218)" "(car" " s_105)))" -" s_219))" +" s_218))" "((mod-path59_0" " id60_1)" -"(let-values(((s_786)" +"(let-values(((s_784)" "(cdr" " s_105)))" -"(let-values(((s_787)" +"(let-values(((s_785)" "(if(syntax?$1" -" s_786)" +" s_784)" "(syntax-e$1" -" s_786)" -" s_786)))" +" s_784)" +" s_784)))" "(if(pair?" -" s_787)" +" s_785)" "(let-values(((mod-path61_0)" -"(let-values(((s_221)" +"(let-values(((s_220)" "(car" -" s_787)))" -" s_221))" +" s_785)))" +" s_220))" "((id62_0)" -"(let-values(((s_222)" +"(let-values(((s_221)" "(cdr" -" s_787)))" -"(let-values(((s_325)" +" s_785)))" +"(let-values(((s_326)" "(if(syntax?$1" -" s_222)" +" s_221)" "(syntax-e$1" -" s_222)" -" s_222)))" +" s_221)" +" s_221)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_325)))" +" s_326)))" "(if(not" " flat-s_51)" "(let-values()" @@ -69492,8 +69501,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_70))" "(let-values()" -"(let-values(((id_127)" -"(let-values(((lst_406)" +"(let-values(((id_128)" +"(let-values(((lst_408)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69501,61 +69510,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_406)))" -"((letrec-values(((for-loop_317)" -"(lambda(id_128" -" lst_407)" +" lst_408)))" +"((letrec-values(((for-loop_319)" +"(lambda(id_129" +" lst_409)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" -"(let-values(((s_788)" +" lst_409)" +"(let-values(((s_786)" "(unsafe-car" -" lst_407))" -"((rest_239)" +" lst_409))" +"((rest_240)" "(unsafe-cdr" -" lst_407)))" -"(let-values(((id_129)" +" lst_409)))" "(let-values(((id_130)" -" id_128))" "(let-values(((id_131)" +" id_129))" +"(let-values(((id_132)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_788)" +" s_786)" "(symbol?" "(syntax-e$1" -" s_788))" +" s_786))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_400" +" or-part_400" "(symbol?" -" s_788)))" -" s_788" +" s_786)))" +" s_786" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_788)))))" +" s_786)))))" "(cons" " id63_0" -" id_130)))))" -"(values" " id_131)))))" +"(values" +" id_132)))))" "(if(not" " #f)" -"(for-loop_317" -" id_129" -" rest_239)" -" id_129)))" -" id_128)))))" -" for-loop_317)" +"(for-loop_319" +" id_130" +" rest_240)" +" id_130)))" +" id_129)))))" +" for-loop_319)" " null" -" lst_406)))))" +" lst_408)))))" "(reverse$1" -" id_127)))))))))" +" id_128)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -69586,7 +69595,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_106)" +" ctx_105)" "(values" " null" "(list" @@ -69610,31 +69619,31 @@ static const char *startup_source = "(let-values(((orig-s_71)" " s_114))" "(let-values(((all-defined64_1)" -"(let-values(((s_789)" +"(let-values(((s_787)" "(if(syntax?$1" " s_114)" "(syntax-e$1" " s_114)" " s_114)))" "(if(pair?" -" s_789)" +" s_787)" "(let-values(((all-defined65_0)" -"(let-values(((s_438)" +"(let-values(((s_437)" "(car" -" s_789)))" -" s_438))" +" s_787)))" +" s_437))" "(()" -"(let-values(((s_226)" +"(let-values(((s_224)" "(cdr" -" s_789)))" -"(let-values(((s_790)" +" s_787)))" +"(let-values(((s_788)" "(if(syntax?$1" -" s_226)" +" s_224)" "(syntax-e$1" -" s_226)" -" s_226)))" +" s_224)" +" s_224)))" "(if(null?" -" s_790)" +" s_788)" "(values)" "(raise-syntax-error$1" " #f" @@ -69679,32 +69688,32 @@ static const char *startup_source = " s_228))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_791)" +"(let-values(((s_789)" "(if(syntax?$1" " s_228)" "(syntax-e$1" " s_228)" " s_228)))" "(if(pair?" -" s_791)" +" s_789)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_792)" +"(let-values(((s_790)" "(car" -" s_791)))" -" s_792))" +" s_789)))" +" s_790))" "((id69_0)" -"(let-values(((s_793)" +"(let-values(((s_791)" "(cdr" -" s_791)))" -"(let-values(((s_464)" +" s_789)))" +"(let-values(((s_463)" "(if(syntax?$1" -" s_793)" +" s_791)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_791)" +" s_791)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_464)))" +" s_463)))" "(if(not" " flat-s_52)" "(let-values()" @@ -69713,7 +69722,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72))" "(let-values()" -"(let-values(((id_132)" +"(let-values(((id_133)" "(let-values(((lst_39)" " flat-s_52))" "(begin" @@ -69723,60 +69732,60 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_39)))" -"((letrec-values(((for-loop_133)" -"(lambda(id_133" -" lst_408)" +"((letrec-values(((for-loop_134)" +"(lambda(id_134" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" -"(let-values(((s_465)" +" lst_410)" +"(let-values(((s_464)" "(unsafe-car" -" lst_408))" -"((rest_240)" +" lst_410))" +"((rest_241)" "(unsafe-cdr" -" lst_408)))" -"(let-values(((id_134)" +" lst_410)))" "(let-values(((id_135)" -" id_133))" "(let-values(((id_136)" +" id_134))" +"(let-values(((id_137)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_286)" +"(if(let-values(((or-part_290)" "(if(syntax?$1" -" s_465)" +" s_464)" "(symbol?" "(syntax-e$1" -" s_465))" +" s_464))" " #f)))" -"(if or-part_286" -" or-part_286" +"(if or-part_290" +" or-part_290" "(symbol?" -" s_465)))" -" s_465" +" s_464)))" +" s_464" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_465)))))" +" s_464)))))" "(cons" " id70_0" -" id_135)))))" -"(values" " id_136)))))" +"(values" +" id_137)))))" "(if(not" " #f)" -"(for-loop_133" -" id_134" -" rest_240)" -" id_134)))" -" id_133)))))" -" for-loop_133)" +"(for-loop_134" +" id_135" +" rest_241)" +" id_135)))" +" id_134)))))" +" for-loop_134)" " null" " lst_39)))))" "(reverse$1" -" id_132)))))))))" +" id_133)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -69830,10 +69839,10 @@ static const char *startup_source = "(if(pair?" " s_132)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_331)" +"(let-values(((s_330)" "(car" " s_132)))" -" s_331))" +" s_330))" "((id:prefix74_0)" "(let-values(((s_133)" "(cdr" @@ -69847,38 +69856,38 @@ static const char *startup_source = "(if(pair?" " s_236)" "(let-values(((id:prefix75_0)" -"(let-values(((s_332)" +"(let-values(((s_331)" "(car" " s_236)))" -"(if(let-values(((or-part_288)" +"(if(let-values(((or-part_292)" "(if(syntax?$1" -" s_332)" +" s_331)" "(symbol?" "(syntax-e$1" -" s_332))" +" s_331))" " #f)))" -"(if or-part_288" -" or-part_288" +"(if or-part_292" +" or-part_292" "(symbol?" -" s_332)))" -" s_332" +" s_331)))" +" s_331" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_332))))" +" s_331))))" "(()" "(let-values(((s_134)" "(cdr" " s_236)))" -"(let-values(((s_334)" +"(let-values(((s_333)" "(if(syntax?$1" " s_134)" "(syntax-e$1" " s_134)" " s_134)))" "(if(null?" -" s_334)" +" s_333)" "(values)" "(raise-syntax-error$1" " #f" @@ -69930,73 +69939,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_794)" +"(let-values(((s_792)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_794))" +" s_792))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_795)" +"(let-values(((s_793)" +"(if(syntax?$1" +" s_792)" +"(syntax-e$1" +" s_792)" +" s_792)))" +"(if(pair?" +" s_793)" +"(let-values(((prefix-all-defined-except79_0)" +"(let-values(((s_534)" +"(car" +" s_793)))" +" s_534))" +"((id:prefix80_0" +" id81_0)" +"(let-values(((s_794)" +"(cdr" +" s_793)))" +"(let-values(((s_243)" "(if(syntax?$1" " s_794)" "(syntax-e$1" " s_794)" " s_794)))" "(if(pair?" -" s_795)" -"(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_536)" -"(car" -" s_795)))" -" s_536))" -"((id:prefix80_0" -" id81_0)" -"(let-values(((s_796)" -"(cdr" -" s_795)))" -"(let-values(((s_243)" -"(if(syntax?$1" -" s_796)" -"(syntax-e$1" -" s_796)" -" s_796)))" -"(if(pair?" " s_243)" "(let-values(((id:prefix82_0)" -"(let-values(((s_537)" +"(let-values(((s_535)" "(car" " s_243)))" -"(if(let-values(((or-part_343)" +"(if(let-values(((or-part_346)" "(if(syntax?$1" -" s_537)" +" s_535)" "(symbol?" "(syntax-e$1" -" s_537))" +" s_535))" " #f)))" -"(if or-part_343" -" or-part_343" +"(if or-part_346" +" or-part_346" "(symbol?" -" s_537)))" -" s_537" +" s_535)))" +" s_535" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_537))))" +" s_535))))" "((id83_0)" -"(let-values(((s_349)" +"(let-values(((s_348)" "(cdr" " s_243)))" -"(let-values(((s_797)" +"(let-values(((s_795)" "(if(syntax?$1" -" s_349)" +" s_348)" "(syntax-e$1" -" s_349)" -" s_349)))" +" s_348)" +" s_348)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_797)))" +" s_795)))" "(if(not" " flat-s_53)" "(let-values()" @@ -70005,8 +70014,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74))" "(let-values()" -"(let-values(((id_87)" -"(let-values(((lst_409)" +"(let-values(((id_88)" +"(let-values(((lst_411)" " flat-s_53))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70014,61 +70023,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_409)))" -"((letrec-values(((for-loop_318)" -"(lambda(id_36" -" lst_410)" +" lst_411)))" +"((letrec-values(((for-loop_320)" +"(lambda(id_37" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" -"(let-values(((s_798)" +" lst_412)" +"(let-values(((s_796)" "(unsafe-car" -" lst_410))" -"((rest_241)" +" lst_412))" +"((rest_242)" "(unsafe-cdr" -" lst_410)))" -"(let-values(((id_137)" +" lst_412)))" "(let-values(((id_138)" -" id_36))" "(let-values(((id_139)" +" id_37))" +"(let-values(((id_140)" "(let-values()" "(let-values(((id84_3)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_798)" +" s_796)" "(symbol?" "(syntax-e$1" -" s_798))" +" s_796))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_798)))" -" s_798" +" s_796)))" +" s_796" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_798)))))" +" s_796)))))" "(cons" " id84_3" -" id_138)))))" -"(values" " id_139)))))" +"(values" +" id_140)))))" "(if(not" " #f)" -"(for-loop_318" -" id_137" -" rest_241)" -" id_137)))" -" id_36)))))" -" for-loop_318)" +"(for-loop_320" +" id_138" +" rest_242)" +" id_138)))" +" id_37)))))" +" for-loop_320)" " null" -" lst_409)))))" +" lst_411)))))" "(reverse$1" -" id_87)))))))))" +" id_88)))))))))" "(values" " id:prefix82_0" " id83_0))" @@ -70110,78 +70119,78 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_799)" +"(let-values(((s_797)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_799))" +" s_797))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_800)" +"(let-values(((s_798)" "(if(syntax?$1" -" s_799)" +" s_797)" "(syntax-e$1" -" s_799)" -" s_799)))" +" s_797)" +" s_797)))" "(if(pair?" -" s_800)" +" s_798)" "(let-values(((expand88_0)" -"(let-values(((s_368)" +"(let-values(((s_367)" "(car" -" s_800)))" -" s_368))" +" s_798)))" +" s_367))" "((id89_2" " datum90_0)" -"(let-values(((s_369)" +"(let-values(((s_368)" "(cdr" -" s_800)))" -"(let-values(((s_801)" +" s_798)))" +"(let-values(((s_799)" "(if(syntax?$1" -" s_369)" +" s_368)" "(syntax-e$1" -" s_369)" -" s_369)))" +" s_368)" +" s_368)))" "(if(pair?" -" s_801)" +" s_799)" "(let-values(((id91_0" " datum92_0)" +"(let-values(((s_370)" +"(car" +" s_799)))" "(let-values(((s_371)" -"(car" -" s_801)))" -"(let-values(((s_372)" "(if(syntax?$1" -" s_371)" +" s_370)" "(syntax-e$1" -" s_371)" -" s_371)))" +" s_370)" +" s_370)))" "(if(pair?" -" s_372)" +" s_371)" "(let-values(((id93_2)" -"(let-values(((s_374)" +"(let-values(((s_373)" "(car" -" s_372)))" -"(if(let-values(((or-part_399)" +" s_371)))" +"(if(let-values(((or-part_402)" "(if(syntax?$1" -" s_374)" +" s_373)" "(symbol?" "(syntax-e$1" -" s_374))" +" s_373))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_402" +" or-part_402" "(symbol?" -" s_374)))" -" s_374" +" s_373)))" +" s_373" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_374))))" +" s_373))))" "((datum94_0)" -"(let-values(((s_547)" +"(let-values(((s_545)" "(cdr" -" s_372)))" -" s_547)))" +" s_371)))" +" s_545)))" "(values" " id93_2" " datum94_0))" @@ -70190,17 +70199,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75)))))" "(()" -"(let-values(((s_548)" +"(let-values(((s_546)" "(cdr" -" s_801)))" -"(let-values(((s_802)" +" s_799)))" +"(let-values(((s_800)" "(if(syntax?$1" -" s_548)" +" s_546)" "(syntax-e$1" -" s_548)" -" s_548)))" +" s_546)" +" s_546)))" "(if(null?" -" s_802)" +" s_800)" "(values)" "(raise-syntax-error$1" " #f" @@ -70229,52 +70238,52 @@ static const char *startup_source = "(let-values(((ok?_76" " expand95_0" " form96_0)" -"(let-values(((s_803)" +"(let-values(((s_801)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_803))" +" s_801))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_377)" +"(let-values(((s_376)" "(if(syntax?$1" -" s_803)" +" s_801)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_801)" +" s_801)))" "(if(pair?" -" s_377)" +" s_376)" "(let-values(((expand97_0)" "(let-values(((s_259)" "(car" -" s_377)))" +" s_376)))" " s_259))" "((form98_0)" +"(let-values(((s_377)" +"(cdr" +" s_376)))" "(let-values(((s_378)" -"(cdr" -" s_377)))" -"(let-values(((s_379)" "(if(syntax?$1" -" s_378)" +" s_377)" "(syntax-e$1" -" s_378)" -" s_378)))" +" s_377)" +" s_377)))" "(if(pair?" -" s_379)" +" s_378)" "(let-values(((form99_0)" -"(let-values(((s_380)" +"(let-values(((s_379)" "(car" -" s_379)))" -" s_380))" +" s_378)))" +" s_379))" "(()" -"(let-values(((s_381)" +"(let-values(((s_380)" "(cdr" -" s_379)))" +" s_378)))" "(let-values(((s_260)" "(if(syntax?$1" -" s_381)" +" s_380)" "(syntax-e$1" -" s_381)" -" s_381)))" +" s_380)" +" s_380)))" "(if(null?" " s_260)" "(values)" @@ -70303,10 +70312,10 @@ static const char *startup_source = "(let-values(((temp104_3)" " form96_0)" "((temp105_5)" -"(let-values(((v_266)" -" ctx_106))" +"(let-values(((v_267)" +" ctx_105))" "(let-values(((the-struct_98)" -" v_266))" +" v_267))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((def-ctx-scopes106_0)" @@ -70314,7 +70323,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_99)" "(root-expand-context/outer-inner" -" v_266)))" +" v_267)))" "(if(expand-context/inner?" " the-struct_99)" "(let-values(((stops108_0)" @@ -70450,18 +70459,18 @@ static const char *startup_source = "(let-values(((ok?_77" " begin100_0" " spec101_0)" -"(let-values(((s_804)" +"(let-values(((s_802)" " exp-spec_0))" "(let-values(((orig-s_77)" -" s_804))" +" s_802))" "(let-values(((begin100_1" " spec101_1)" "(let-values(((s_266)" "(if(syntax?$1" -" s_804)" +" s_802)" "(syntax-e$1" -" s_804)" -" s_804)))" +" s_802)" +" s_802)))" "(if(pair?" " s_266)" "(let-values(((begin102_0)" @@ -70470,15 +70479,15 @@ static const char *startup_source = " s_266)))" " s_267))" "((spec103_0)" -"(let-values(((s_805)" +"(let-values(((s_803)" "(cdr" " s_266)))" "(let-values(((s_268)" "(if(syntax?$1" -" s_805)" +" s_803)" "(syntax-e$1" -" s_805)" -" s_805)))" +" s_803)" +" s_803)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_268)))" @@ -70529,7 +70538,7 @@ static const char *startup_source = "(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_237)" +" rest_238)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -70544,7 +70553,7 @@ static const char *startup_source = "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_117)" " specs_0" -" phase_45" +" phase_46" " #f" " 'raw)))))" "(define-values" @@ -70605,50 +70614,50 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" "(begin" -" (let-values (((lst_411) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_413) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_411)))" -"((letrec-values(((for-loop_319)" -"(lambda(lst_412)" +"(let-values()(check-list lst_413)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_414)" "(begin" " 'for-loop" -"(if(pair? lst_412)" -"(let-values(((fmt_3)(unsafe-car lst_412))((rest_242)(unsafe-cdr lst_412)))" +"(if(pair? lst_414)" +"(let-values(((fmt_3)(unsafe-car lst_414))((rest_243)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_140)(mk_0 fmt_3)))" +"(let-values(((id_141)(mk_0 fmt_3)))" "(parse-identifier!" -" id_140" +" id_141" " orig-s_79" -"(syntax-e$1 id_140)" +"(syntax-e$1 id_141)" " at-phase_15" " ns_127" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_242)(values))))" +"(if(not #f)(for-loop_321 rest_243)(values))))" "(values))))))" -" for-loop_319)" -" lst_411)))" +" for-loop_321)" +" lst_413)))" "(void)" -"(let-values(((lst_413) fields_0))" +"(let-values(((lst_415) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_413)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_414)" +"(let-values()(check-list lst_415)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_414)" -"(let-values(((field_0)(unsafe-car lst_414))((rest_243)(unsafe-cdr lst_414)))" +"(if(pair? lst_416)" +"(let-values(((field_0)(unsafe-car lst_416))((rest_244)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70680,14 +70689,14 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_243)(values))))" +"(if(not #f)(for-loop_322 rest_244)(values))))" "(values))))))" -" for-loop_320)" -" lst_413)))" +" for-loop_322)" +" lst_415)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_107)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_106)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -70697,13 +70706,13 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_107)))" -"(parse-all-from-module mpi_54 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" +"(let-values(((mpi_53)(module-path->mpi/context mod-path_33 ctx_106)))" +"(parse-all-from-module mpi_53 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_55 matching-stx_0 orig-s_81 except-ids_1 prefix-sym_0 at-phase_17 ns_129 rp_5 protected?_19)" +"(lambda(mpi_54 matching-stx_0 orig-s_81 except-ids_1 prefix-sym_0 at-phase_17 ns_129 rp_5 protected?_19)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_55 at-phase_17)))" +"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_54 at-phase_17)))" "(let-values(((phase-desc_0)" "(lambda()" "(begin" @@ -70731,48 +70740,48 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_415) requireds_2))" +"(let-values(((lst_417) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_416)" +"(let-values()(check-list lst_417)))" +"((letrec-values(((for-loop_323)" +"(lambda(lst_418)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((i_184)(unsafe-car lst_416))" -"((rest_244)(unsafe-cdr lst_416)))" +"(if(pair? lst_418)" +"(let-values(((i_184)(unsafe-car lst_418))" +"((rest_245)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_141)" +"(let-values(((id_142)" "(required-id i_184)))" -"(let-values(((phase_143)" +"(let-values(((phase_144)" "(required-phase" " i_184)))" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_403)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_143" +" phase_144" " at-phase_17)" "(free-identifier=?$1" -" id_141" +" id_142" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_141))" -" phase_143" -" phase_143)" +" id_142))" +" phase_144" +" phase_144)" " #f))" " #f)))" -"(if or-part_400" -" or-part_400" -"(let-values(((lst_417)" +"(if or-part_403" +" or-part_403" +"(let-values(((lst_419)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70780,30 +70789,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_322)" +" lst_419)))" +"((letrec-values(((for-loop_324)" "(lambda(result_126" -" lst_418)" +" lst_420)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_420)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_418))" -"((rest_245)" +" lst_420))" +"((rest_246)" "(unsafe-cdr" -" lst_418)))" +" lst_420)))" "(let-values(((result_127)" "(let-values()" "(let-values(((result_128)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_141" +" id_142" " except-id_0" -" phase_143" -" phase_143)" +" phase_144" +" phase_144)" "(hash-set!" " found_0" " except-id_0" @@ -70818,26 +70827,26 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_322" +"(for-loop_324" " result_127" -" rest_245)" +" rest_246)" " result_127)))" " result_126)))))" -" for-loop_322)" +" for-loop_324)" " #f" -" lst_417)))))" +" lst_419)))))" "(void)" "(let-values()" "(let-values(((b_95)" "(resolve+shift/extra-inspector" -" id_141" -" phase_143" +" id_142" +" phase_144" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_141)" +" id_142)" "((phase131_0)" -" phase_143)" +" phase_144)" "((temp132_2)" " #t))" "(resolve+shift28.1" @@ -70853,15 +70862,15 @@ static const char *startup_source = "((temp122_1)" "(add-prefix_1" "(syntax-e$1" -" id_141)))" +" id_142)))" "((phase123_0)" -" phase_143)" +" phase_144)" "((b124_0)" " b_95)" "((immed-b125_0)" " immed-b_1)" "((id126_1)" -" id_141)" +" id_142)" "((orig-s127_0)" " orig-s_81)" "((protected?128_0)" @@ -70881,41 +70890,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_244)(values))))" +"(if(not #f)(for-loop_323 rest_245)(values))))" "(values))))))" -" for-loop_321)" -" lst_415)))" +" for-loop_323)" +" lst_417)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_419) except-ids_1))" +"(let-values(((lst_421) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_419)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_420)" +"(let-values()(check-list lst_421)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_422)" "(begin" " 'for-loop" -"(if(pair? lst_420)" -"(let-values(((except-id_1)(unsafe-car lst_420))" -"((rest_246)(unsafe-cdr lst_420)))" +"(if(pair? lst_422)" +"(let-values(((except-id_1)(unsafe-car lst_422))" +"((rest_247)(unsafe-cdr lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_404)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_401" -" or-part_401" -"(let-values(((lst_421)" +"(if or-part_404" +" or-part_404" +"(let-values(((lst_423)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70923,36 +70932,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_421)))" -"((letrec-values(((for-loop_324)" +" lst_423)))" +"((letrec-values(((for-loop_326)" "(lambda(result_129" -" lst_422)" +" lst_424)" "(begin" " 'for-loop" "(if(pair?" -" lst_422)" +" lst_424)" "(let-values(((i_185)" "(unsafe-car" -" lst_422))" -"((rest_247)" +" lst_424))" +"((rest_248)" "(unsafe-cdr" -" lst_422)))" +" lst_424)))" "(let-values(((result_130)" "(let-values()" "(let-values(((result_131)" "(let-values()" "(let-values()" -"(let-values(((id_142)" +"(let-values(((id_143)" "(required-id" " i_185)))" -"(let-values(((phase_144)" +"(let-values(((phase_145)" "(required-phase" " i_185)))" "(free-identifier=?$1" -" id_142" +" id_143" " except-id_1" -" phase_144" -" phase_144)))))))" +" phase_145" +" phase_145)))))))" "(values" " result_131)))))" "(if(if(not" @@ -70962,14 +70971,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_324" +"(for-loop_326" " result_130" -" rest_247)" +" rest_248)" " result_130)))" " result_129)))))" -" for-loop_324)" +" for-loop_326)" " #f" -" lst_421)))))" +" lst_423)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70983,10 +70992,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_246)(values))))" +"(if(not #f)(for-loop_325 rest_247)(values))))" "(values))))))" -" for-loop_323)" -" lst_419)))" +" for-loop_325)" +" lst_421)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -70997,12 +71006,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_423) bodys_14))" +"(let-values(((lst_425) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_325)" +"(let-values()(check-list lst_425)))" +"((letrec-values(((for-loop_327)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -71031,11 +71040,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_46))" " p_46))" -"(if(let-values(((or-part_214)" +"(if(let-values(((or-part_217)" "(parsed-#%declare?" " p_46)))" -"(if or-part_214" -" or-part_214" +"(if or-part_217" +" or-part_217" "(let-values(((or-part_3)" "(parsed-module?" " p_46)))" @@ -71050,10 +71059,10 @@ static const char *startup_source = " p_46))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_325 rest_40)(values))))" +"(if(not #f)(for-loop_327 rest_40)(values))))" "(values))))))" -" for-loop_325)" -" lst_423)))" +" for-loop_327)" +" lst_425)))" "(void)))))" "((check-expr_0)" "(lambda(e_91 num-results_0 enclosing_15)" @@ -71079,13 +71088,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_328)" "(lambda(lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_248)(unsafe-cdr lst_86)))" +"((rest_249)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71099,10 +71108,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_326 rest_248)" +"(for-loop_328 rest_249)" "(values))))" "(values))))))" -" for-loop_326)" +" for-loop_328)" " lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))" @@ -71138,18 +71147,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_92)" "(let-values()" "(begin" -"(let-values(((lst_266)(parsed-case-lambda-clauses e_92)))" +"(let-values(((lst_269)(parsed-case-lambda-clauses e_92)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_239)" -"(lambda(lst_424)" +"(let-values()(check-list lst_269)))" +"((letrec-values(((for-loop_241)" +"(lambda(lst_426)" "(begin" " 'for-loop" -"(if(pair? lst_424)" -"(let-values(((clause_5)(unsafe-car lst_424))" -"((rest_249)(unsafe-cdr lst_424)))" +"(if(pair? lst_426)" +"(let-values(((clause_5)(unsafe-car lst_426))" +"((rest_250)(unsafe-cdr lst_426)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71160,27 +71169,27 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_239 rest_249)(values))))" +"(if(not #f)(for-loop_241 rest_250)(values))))" "(values))))))" -" for-loop_239)" -" lst_266)))" +" for-loop_241)" +" lst_269)))" "(void)))" "(if(parsed-app? e_92)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_92))" -"(let-values(((lst_217)(parsed-app-rands e_92)))" +"(let-values(((lst_220)(parsed-app-rands e_92)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_217)))" +"(let-values()(check-list lst_220)))" "((letrec-values(((for-loop_107)" -"(lambda(lst_160)" +"(lambda(lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((e_93)(unsafe-car lst_160))" -"((rest_82)(unsafe-cdr lst_160)))" +"(if(pair? lst_163)" +"(let-values(((e_93)(unsafe-car lst_163))" +"((rest_84)(unsafe-cdr lst_163)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71191,10 +71200,10 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_107 rest_82)(values))))" +"(if(not #f)(for-loop_107 rest_84)(values))))" "(values))))))" " for-loop_107)" -" lst_217)))" +" lst_220)))" "(void)))" "(if(parsed-if? e_92)" "(let-values()" @@ -71210,9 +71219,9 @@ static const char *startup_source = "(if(let-values(((or-part_83)(not normal-b_1)))" "(if or-part_83" " or-part_83" -"(let-values(((or-part_308)(parsed-top-id? id_4)))" -"(if or-part_308" -" or-part_308" +"(let-values(((or-part_311)(parsed-top-id? id_4)))" +"(if or-part_311" +" or-part_311" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71237,14 +71246,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_190)" "(lambda(lst_90)" "(begin" " 'for-loop" "(if(pair? lst_90)" "(let-values(((clause_6)" "(unsafe-car lst_90))" -"((rest_141)" +"((rest_143)" "(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" @@ -71258,15 +71267,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_188 rest_141)" +"(for-loop_190 rest_143)" "(values))))" "(values))))))" -" for-loop_188)" +" for-loop_190)" " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))" -"(if(let-values(((or-part_402)(parsed-quote-syntax? e_92)))" -"(if or-part_402 or-part_402(parsed-#%variable-reference? e_92)))" +"(if(let-values(((or-part_405)(parsed-quote-syntax? e_92)))" +"(if or-part_405 or-part_405(parsed-#%variable-reference? e_92)))" "(let-values()(disallow e_92))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71279,13 +71288,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_329)" "(lambda(lst_58)" "(begin" " 'for-loop" "(if(pair? lst_58)" "(let-values(((e_82)(unsafe-car lst_58))" -"((rest_194)(unsafe-cdr lst_58)))" +"((rest_195)(unsafe-cdr lst_58)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71296,9 +71305,9 @@ static const char *startup_source = " e_82))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_327 rest_194)(values))))" +"(if(not #f)(for-loop_329 rest_195)(values))))" "(values))))))" -" for-loop_327)" +" for-loop_329)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -71310,19 +71319,19 @@ static const char *startup_source = "(check-datum)" "(lambda(d_38 e_12)" "(begin" -"(if(let-values(((or-part_158)(number? d_38)))" -"(if or-part_158" -" or-part_158" -"(let-values(((or-part_161)(boolean? d_38)))" -"(if or-part_161" -" or-part_161" +"(if(let-values(((or-part_159)(number? d_38)))" +"(if or-part_159" +" or-part_159" +"(let-values(((or-part_164)(boolean? d_38)))" +"(if or-part_164" +" or-part_164" "(let-values(((or-part_21)(symbol? d_38)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_162)(string? d_38)))" -"(if or-part_162" -" or-part_162" -"(let-values(((or-part_256)(bytes? d_38)))(if or-part_256 or-part_256(null? d_38)))))))))))" +"(let-values(((or-part_165)(string? d_38)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_259)(bytes? d_38)))(if or-part_259 or-part_259(null? d_38)))))))))))" "(let-values()(void))" "(let-values()(disallow e_12))))))" "(define-values" @@ -71330,11 +71339,11 @@ static const char *startup_source = "(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_143)" +"(lambda(id_144)" "(begin" -"(if(parsed-id? id_143)" +"(if(parsed-id? id_144)" "(let-values()" -"(let-values(((b_87)(parsed-id-binding id_143)))" +"(let-values(((b_87)(parsed-id-binding id_144)))" "(if(module-binding? b_87)" "(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_87)))" "(module-binding-sym b_87)" @@ -71352,46 +71361,46 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_108)" +"(lambda(s_43 ctx_107)" "(begin" -"(if(eq?(expand-context-context ctx_108) 'top-level)" +"(if(eq?(expand-context-context ctx_107) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_108)))" +"(let-values(((obs_124)(expand-context-observer ctx_107)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_0) s_43)((ctx224_0) ctx_108)((temp225_2) #f))" +"(let-values(((s223_0) s_43)((ctx224_0) ctx_107)((temp225_2) #f))" "(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_0 ctx224_0 temp225_2)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_307 ctx_109)" +"(lambda(s_307 ctx_108)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_109)))" +"(let-values(((obs_125)(expand-context-observer ctx_108)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_307)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_91 ctx_110)" +"(lambda(s_91 ctx_109)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_110)))" +"(let-values(((obs_126)(expand-context-observer ctx_109)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_110) 'module-begin)" +"(if(eq?(expand-context-context ctx_109) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_91)))" -"(if(expand-context-module-begin-k ctx_110)" +"(if(expand-context-module-begin-k ctx_109)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" -"((expand-context-module-begin-k ctx_110)" +"((expand-context-module-begin-k ctx_109)" " s_91" -"(let-values(((v_267) ctx_110))" -"(let-values(((the-struct_100) v_267))" +"(let-values(((v_268) ctx_109))" +"(let-values(((the-struct_100) v_268))" "(if(expand-context/outer? the-struct_100)" "(let-values(((inner226_0)" -"(let-values(((the-struct_101)(root-expand-context/outer-inner v_267)))" +"(let-values(((the-struct_101)(root-expand-context/outer-inner v_268)))" "(if(expand-context/inner? the-struct_101)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -71444,11 +71453,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_806 ctx_111)" +"(lambda(s_804 ctx_110)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_111)))" +"(let-values(((obs_127)(expand-context-observer ctx_110)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_806)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_804)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71463,7 +71472,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_807) s15_2))" +"(let-values(((s_805) s15_2))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" @@ -71485,7 +71494,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_128 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_807)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_805)))" "(let-values(((ok?_78 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_51) disarmed-s_24))" "(let-values(((orig-s_82) s_51))" @@ -71493,67 +71502,67 @@ static const char *startup_source = " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_508)" +"(let-values(((s_507)" "(if(syntax?$1 s_51)" "(syntax-e$1 s_51)" " s_51)))" -"(if(pair? s_508)" +"(if(pair? s_507)" "(let-values(((module232_0)" -"(let-values(((s_54)(car s_508)))" +"(let-values(((s_54)(car s_507)))" " s_54))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_311)(cdr s_508)))" +"(let-values(((s_312)(cdr s_507)))" "(let-values(((s_93)" -"(if(syntax?$1 s_311)" -"(syntax-e$1 s_311)" -" s_311)))" +"(if(syntax?$1 s_312)" +"(syntax-e$1 s_312)" +" s_312)))" "(if(pair? s_93)" "(let-values(((id:module-name236_0)" -"(let-values(((s_313)" +"(let-values(((s_314)" "(car" " s_93)))" "(if(let-values(((or-part_48)" "(if(syntax?$1" -" s_313)" +" s_314)" "(symbol?" "(syntax-e$1" -" s_313))" +" s_314))" " #f)))" "(if or-part_48" " or-part_48" "(symbol?" -" s_313)))" -" s_313" +" s_314)))" +" s_314" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_82" -" s_313))))" +" s_314))))" "((initial-require237_0" " body238_0)" "(let-values(((s_55)" "(cdr" " s_93)))" -"(let-values(((s_453)" +"(let-values(((s_452)" "(if(syntax?$1" " s_55)" "(syntax-e$1" " s_55)" " s_55)))" "(if(pair?" -" s_453)" +" s_452)" "(let-values(((initial-require239_0)" "(let-values(((s_56)" "(car" -" s_453)))" +" s_452)))" " s_56))" "((body240_0)" "(let-values(((s_33)" "(cdr" -" s_453)))" -"(let-values(((s_510)" +" s_452)))" +"(let-values(((s_509)" "(if(syntax?$1" " s_33)" "(syntax-e$1" @@ -71561,7 +71570,7 @@ static const char *startup_source = " s_33)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_510)))" +" s_509)))" "(if(not" " flat-s_55)" "(let-values()" @@ -71600,7 +71609,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_807)" +"((s254_0) s_805)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))" @@ -71616,10 +71625,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_807" +" s_805" " initial-require230_0)))" "(values))))" -"(let-values(((phase_145) 0))" +"(let-values(((phase_146) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -71726,84 +71735,84 @@ static const char *startup_source = "(make-m-ns244_0" " unsafe-undefined" " temp266_0))))" -"(let-values(((ctx_112)" -"(let-values(((v_260)" +"(let-values(((ctx_111)" +"(let-values(((v_261)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" "(let-values(((the-struct_91)" -" v_260))" +" v_261))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_54)" "(root-expand-context/outer-inner" -" v_260)))" +" v_261)))" "(if(expand-context/inner?" -" the-struct_53)" +" the-struct_54)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_145)" +" phase_146)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-module-scopes" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-defined-syms" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-counter" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-lift-key" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-to-parsed?" -" the-struct_53)" +" the-struct_54)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_53)" +" the-struct_54)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-keep-#%expression?" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-stops" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-declared-submodule-names" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-lift-envs" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-module-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-require-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-to-module-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-requires+provides" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-observer" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-for-serializable?" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_53)))" +" the-struct_54)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_53)))))" +" the-struct_54)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" @@ -71850,68 +71859,68 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_526)" +"(let-values(((s_524)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_526))" +" s_524))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_211)" +"(let-values(((s_210)" "(if(syntax?$1" -" s_526)" +" s_524)" "(syntax-e$1" -" s_526)" -" s_526)))" +" s_524)" +" s_524)))" "(if(pair?" -" s_211)" +" s_210)" "(let-values(((_277_2)" -"(let-values(((s_529)" +"(let-values(((s_527)" "(car" -" s_211)))" -" s_529))" +" s_210)))" +" s_527))" "((_278_0" " _279_1" " body280_0)" -"(let-values(((s_530)" +"(let-values(((s_528)" "(cdr" -" s_211)))" +" s_210)))" "(let-values(((s_97)" "(if(syntax?$1" -" s_530)" +" s_528)" "(syntax-e$1" -" s_530)" -" s_530)))" +" s_528)" +" s_528)))" "(if(pair?" " s_97)" "(let-values(((_281_0)" -"(let-values(((s_461)" +"(let-values(((s_460)" "(car" " s_97)))" -" s_461))" +" s_460))" "((_282_1" " body283_0)" -"(let-values(((s_808)" +"(let-values(((s_806)" "(cdr" " s_97)))" -"(let-values(((s_809)" +"(let-values(((s_807)" "(if(syntax?$1" -" s_808)" +" s_806)" "(syntax-e$1" -" s_808)" -" s_808)))" +" s_806)" +" s_806)))" "(if(pair?" -" s_809)" +" s_807)" "(let-values(((_284_0)" "(let-values(((s_416)" "(car" -" s_809)))" +" s_807)))" " s_416))" "((body285_0)" "(let-values(((s_39)" "(cdr" -" s_809)))" +" s_807)))" "(let-values(((s_98)" "(if(syntax?$1" " s_39)" @@ -72091,22 +72100,22 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_113)" -"(let-values(((v_268)" +"(let-values(((ctx_112)" +"(let-values(((v_269)" " mb-init-ctx_0))" "(let-values(((the-struct_102)" -" v_268))" +" v_269))" "(if(expand-context/outer?" " the-struct_102)" "(let-values(((inner306_0)" "(let-values(((the-struct_103)" "(root-expand-context/outer-inner" -" v_268)))" +" v_269)))" "(if(expand-context/inner?" " the-struct_103)" "(let-values(((module-begin-k307_0)" -"(lambda(s_437" -" ctx_4)" +"(lambda(s_161" +" ctx_113)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -72147,8 +72156,8 @@ static const char *startup_source = " defined-syms315_0)))" "(lambda()" "(module-begin-k_1" -" s_437" -" ctx_4))" +" s_161" +" ctx_113))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -72261,7 +72270,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_20)" "(expand-context-observer" -" ctx_113)))" +" ctx_112)))" "(if obs_20" "(let-values()" "(let-values()" @@ -72277,30 +72286,30 @@ static const char *startup_source = "(let-values(((ok?_80" " #%module-begin301_0" " body302_0)" -"(let-values(((s_790)" +"(let-values(((s_788)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_790))" +" s_788))" "(let-values(((#%module-begin301_1" " body302_1)" "(let-values(((s_119)" "(if(syntax?$1" -" s_790)" +" s_788)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_788)" +" s_788)))" "(if(pair?" " s_119)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_810)" +"(let-values(((s_808)" "(car" " s_119)))" -" s_810))" +" s_808))" "((body304_0)" "(let-values(((s_121)" "(cdr" " s_119)))" -"(let-values(((s_164)" +"(let-values(((s_226)" "(if(syntax?$1" " s_121)" "(syntax-e$1" @@ -72308,7 +72317,7 @@ static const char *startup_source = " s_121)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_164)))" +" s_226)))" "(if(not" " flat-s_57)" "(let-values()" @@ -72333,7 +72342,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx318_0)" -" ctx_113)" +" ctx_112)" "((mb-s319_0)" " mb-s_0))" "(keep-as-needed119.1" @@ -72353,7 +72362,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_146)" +" phase_147)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72361,12 +72370,12 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_113)))" +" ctx_112)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_269)" -" ctx_113))" +"(let-values(((v_270)" +" ctx_112))" "(let-values(((the-struct_104)" -" v_269))" +" v_270))" "(if(expand-context/outer?" " the-struct_104)" "(let-values(((context328_0)" @@ -72378,20 +72387,20 @@ static const char *startup_source = "((inner331_0)" "(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_269)))" +" v_270)))" "(if(expand-context/inner?" " the-struct_105)" "(let-values(((phase332_0)" -" phase_146)" +" phase_147)" "((namespace333_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_146))" +" phase_147))" "((stops334_0)" "(free-id-set" -" phase_146" +" phase_147" "(module-expand-stop-ids" -" phase_146)))" +" phase_147)))" "((declared-submodule-names335_0)" " declared-submodule-names_3)" "((lift-key336_0)" @@ -72410,11 +72419,11 @@ static const char *startup_source = " temp341_0)))" "((module-lifts338_0)" "(make-module-lift-context" -" phase_146" +" phase_147" " #t))" "((require-lifts339_0)" "(make-require-lift-context" -" phase_146" +" phase_147" "(let-values(((m-ns342_0)" " m-ns_19)" "((self343_0)" @@ -72430,7 +72439,7 @@ static const char *startup_source = " requires+provides344_0))))" "((to-module-lifts340_0)" "(let-values(((phase346_0)" -" phase_146)" +" phase_147)" "((module-ends347_0)" " module-ends_0)" "((temp348_0)" @@ -72526,7 +72535,7 @@ static const char *startup_source = "(let-values(((bodys349_0)" " bodys_17)" "((phase350_0)" -" phase_146)" +" phase_147)" "((partial-body-ctx351_0)" " partial-body-ctx_0)" "((m-ns352_0)" @@ -72586,12 +72595,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_262)" +"(let-values(((v_263)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_93)" -" v_262))" +" v_263))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((def-ctx-scopes365_0)" @@ -72601,14 +72610,14 @@ static const char *startup_source = "((inner367_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_262)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((stops368_0)" " empty-free-id-set)" "((to-module-lifts369_0)" "(let-values(((phase370_0)" -" phase_146)" +" phase_147)" "((module-ends371_0)" " module-ends_0)" "((temp372_0)" @@ -72711,7 +72720,7 @@ static const char *startup_source = "(let-values(((partially-expanded-bodys320_0)" " partially-expanded-bodys_0)" "((phase321_0)" -" phase_146)" +" phase_147)" "((body-ctx322_0)" " body-ctx_6)" "((self323_0)" @@ -72735,20 +72744,20 @@ static const char *startup_source = " partially-expanded-bodys320_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_145)))" +" phase_146)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_113" +" ctx_112" " requires+provides_6)" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_131)" "(expand-context-observer" -" ctx_113)))" +" ctx_112)))" "(if obs_131" "(let-values()" "(let-values()" @@ -72767,11 +72776,11 @@ static const char *startup_source = "((m-ns376_0)" " m-ns_19)" "((phase377_0)" -" phase_145)" +" phase_146)" "((self378_0)" " self_32)" "((ctx379_0)" -" ctx_113))" +" ctx_112))" "(resolve-provides115.1" " ctx379_0" " declared-submodule-names375_0" @@ -72810,7 +72819,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_132)" "(expand-context-observer" -" ctx_113)))" +" ctx_112)))" "(if obs_132" "(let-values()" "(let-values()" @@ -72828,10 +72837,10 @@ static const char *startup_source = " temp381_0" " m-ns380_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_270)" -" ctx_113))" +"(let-values(((v_271)" +" ctx_112))" "(let-values(((the-struct_107)" -" v_270))" +" v_271))" "(if(expand-context/outer?" " the-struct_107)" "(let-values(((frame-id382_0)" @@ -72841,7 +72850,7 @@ static const char *startup_source = "((inner384_0)" "(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_270)))" +" v_271)))" "(if(expand-context/inner?" " the-struct_108)" "(let-values(((namespace385_0)" @@ -72988,7 +72997,7 @@ static const char *startup_source = "((declare-enclosing-module398_0)" " declare-enclosing-module_0)" "((phase399_0)" -" phase_145)" +" phase_146)" "((self400_0)" " self_32)" "((requires+provides401_0)" @@ -73053,10 +73062,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_271)" -" ctx_112))" +"(let-values(((v_272)" +" ctx_111))" "(let-values(((the-struct_24)" -" v_271))" +" v_272))" "(if(expand-context/outer?" " the-struct_24)" "(let-values(((context411_0)" @@ -73064,7 +73073,7 @@ static const char *startup_source = "((inner412_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_271)))" +" v_272)))" "(if(expand-context/inner?" " the-struct_109)" "(let-values(((module-begin-k413_0)" @@ -73189,9 +73198,9 @@ static const char *startup_source = "((mb-def-ctx-scopes424_0)" " mb-def-ctx-scopes_0)" "((phase425_0)" -" phase_145)" +" phase_146)" "((s426_0)" -" s_807))" +" s_805))" "(ensure-module-begin36.1" " mb-ctx423_0" " mb-def-ctx-scopes424_0" @@ -73206,19 +73215,19 @@ static const char *startup_source = "(let-values(((mb427_0)" " mb_0)" "((temp428_1)" -"(let-values(((v_272)" +"(let-values(((v_273)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" "(let-values(((the-struct_110)" -" v_272))" +" v_273))" "(if(expand-context/outer?" " the-struct_110)" "(let-values(((def-ctx-scopes429_0)" " #f)" "((inner430_0)" "(root-expand-context/outer-inner" -" v_272)))" +" v_273)))" "(expand-context/outer1.1" " inner430_0" "(root-expand-context/outer-post-expansion-scope" @@ -73269,11 +73278,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_406)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_403" -" or-part_403" +"(if or-part_406" +" or-part_406" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73309,7 +73318,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_425)" +"(let-values(((lst_427)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73318,19 +73327,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_425)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_426)" +" lst_427)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_426)" -"(let-values(((mpi_56)" +" lst_428)" +"(let-values(((mpi_55)" "(unsafe-car" -" lst_426))" -"((rest_250)" +" lst_428))" +"((rest_251)" "(unsafe-cdr" -" lst_426)))" +" lst_428)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73338,17 +73347,17 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_56))" +" mpi_55))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_328" -" rest_250)" +"(for-loop_330" +" rest_251)" "(values))))" "(values))))))" -" for-loop_328)" -" lst_425)))" +" for-loop_330)" +" lst_427)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s431_0)" @@ -73427,20 +73436,20 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_33) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_147) phase26_3))" -"(let-values(((s_383) s27_2))" +"(let-values(((phase_148) phase26_3))" +"(let-values(((s_382) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_273) ctx_33))" -"(let-values(((the-struct_111) v_273))" +"(let-values(((v_274) ctx_33))" +"(let-values(((the-struct_111) v_274))" "(if(expand-context/outer? the-struct_111)" "(let-values(((context436_0) 'module-begin)" "((only-immediate?437_0) #t)" "((def-ctx-scopes438_0) def-ctx-scopes_9)" -"((inner439_0)(root-expand-context/outer-inner v_273)))" +"((inner439_0)(root-expand-context/outer-inner v_274)))" "(expand-context/outer1.1" " inner439_0" "(root-expand-context/outer-post-expansion-scope the-struct_111)" @@ -73475,7 +73484,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_147))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_148))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -73490,13 +73499,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_147))" +" phase_148))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp442_0)(list partly-expanded-body_0))" -"((s443_0) s_383)" +"((s443_0) s_382)" "((scopes-s444_0) scopes-s_0)" -"((phase445_0) phase_147)" +"((phase445_0) phase_148)" "((module-name-sym446_0) module-name-sym_1)" "((temp447_0)(make-mb-ctx_0))" "((temp448_1) #f))" @@ -73510,9 +73519,9 @@ static const char *startup_source = " temp447_0)))))))))" "(let-values()" "(let-values(((bodys449_0) bodys_18)" -"((s450_0) s_383)" +"((s450_0) s_382)" "((scopes-s451_0) scopes-s_0)" -"((phase452_0) phase_147)" +"((phase452_0) phase_148)" "((module-name-sym453_0) module-name-sym_1)" "((temp454_1)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -73530,9 +73539,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_811) s42_0))" +"(let-values(((s_809) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_148) phase44_0))" +"(let-values(((phase_149) phase44_0))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0) log-rename-one?39_0))" @@ -73541,17 +73550,17 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_148))" +"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_149))" "(resolve40.1 #f #f null #f mb-id455_0 phase456_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_811)))" +" s_809)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_811 s_811)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_809 s_809)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -73581,13 +73590,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_148))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_149))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_811" +" s_809" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73603,13 +73612,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_812)" +"(lambda(s_810)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_812" +" s_810" "(remove-use-site-scopes" -"(remove-scopes s_812(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_810(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -73657,7 +73666,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_51) phase50_0))" +"(let-values(((phase_52) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -73674,14 +73683,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_51)" +"(namespace-visit-available-modules! m-ns_20 phase_52)" "((letrec-values(((loop_125)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_51)) #f)" +"(if(if tail?_53(not(zero? phase_52)) #f)" "(let-values()" "(begin" "(let-values(((obs_137)" @@ -73787,7 +73796,7 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_51)))" +" phase_52)))" "(if(equal?" " tmp_65" " 'begin)" @@ -73795,35 +73804,35 @@ static const char *startup_source = "(let-values(((ok?_81" " begin468_0" " e469_0)" -"(let-values(((s_813)" +"(let-values(((s_811)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_813))" +" s_811))" "(let-values(((begin468_1" " e469_1)" -"(let-values(((s_814)" +"(let-values(((s_812)" "(if(syntax?$1" -" s_813)" +" s_811)" "(syntax-e$1" -" s_813)" -" s_813)))" +" s_811)" +" s_811)))" "(if(pair?" -" s_814)" +" s_812)" "(let-values(((begin470_0)" -"(let-values(((s_815)" +"(let-values(((s_813)" "(car" -" s_814)))" -" s_815))" +" s_812)))" +" s_813))" "((e471_0)" -"(let-values(((s_816)" +"(let-values(((s_814)" "(cdr" -" s_814)))" +" s_812)))" "(let-values(((s_423)" "(if(syntax?$1" -" s_816)" +" s_814)" "(syntax-e$1" -" s_816)" -" s_816)))" +" s_814)" +" s_814)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" " s_423)))" @@ -73904,7 +73913,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_51))))" +" phase_52))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -73926,38 +73935,38 @@ static const char *startup_source = "(let-values(((ok?_82" " begin-for-syntax472_0" " e473_0)" -"(let-values(((s_817)" +"(let-values(((s_815)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_817))" +" s_815))" "(let-values(((begin-for-syntax472_1" " e473_1)" -"(let-values(((s_818)" +"(let-values(((s_816)" "(if(syntax?$1" -" s_817)" +" s_815)" "(syntax-e$1" -" s_817)" -" s_817)))" +" s_815)" +" s_815)))" "(if(pair?" -" s_818)" +" s_816)" "(let-values(((begin-for-syntax474_0)" -"(let-values(((s_819)" +"(let-values(((s_817)" "(car" -" s_818)))" -" s_819))" +" s_816)))" +" s_817))" "((e475_0)" -"(let-values(((s_820)" +"(let-values(((s_818)" "(cdr" -" s_818)))" -"(let-values(((s_821)" +" s_816)))" +"(let-values(((s_819)" "(if(syntax?$1" -" s_820)" +" s_818)" "(syntax-e$1" -" s_820)" -" s_820)))" +" s_818)" +" s_818)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_821)))" +" s_819)))" "(if(not" " flat-s_59)" "(let-values()" @@ -73982,7 +73991,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e473_0" "(add1" -" phase_51))))" +" phase_52))))" "(begin" "(let-values(((obs_144)" "(expand-context-observer" @@ -73997,17 +74006,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_51))" +" phase_52))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_51)" +" phase_52)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_51)" +" phase_52)" "(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74019,7 +74028,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_252)" +"(let-values(((lst_255)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74027,20 +74036,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_252)))" -"((letrec-values(((for-loop_329)" +" lst_255)))" +"((letrec-values(((for-loop_331)" "(lambda(fold-var_374" -" lst_427)" +" lst_429)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" +" lst_429)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_427))" -"((rest_251)" +" lst_429))" +"((rest_252)" "(unsafe-cdr" -" lst_427)))" +" lst_429)))" "(let-values(((fold-var_375)" "(let-values(((fold-var_376)" " fold-var_374))" @@ -74055,14 +74064,14 @@ static const char *startup_source = " fold-var_356)))))" "(if(not" " #f)" -"(for-loop_329" +"(for-loop_331" " fold-var_375" -" rest_251)" +" rest_252)" " fold-var_375)))" " fold-var_374)))))" -" for-loop_329)" +" for-loop_331)" " null" -" lst_252))))))" +" lst_255))))))" "(datum->syntax$1" " #f" "(cons" @@ -74103,52 +74112,52 @@ static const char *startup_source = " define-values476_0" " id477_0" " rhs478_0)" -"(let-values(((s_822)" +"(let-values(((s_820)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_822))" +" s_820))" "(let-values(((define-values476_1" " id477_1" " rhs478_1)" -"(let-values(((s_823)" +"(let-values(((s_821)" "(if(syntax?$1" -" s_822)" +" s_820)" "(syntax-e$1" -" s_822)" -" s_822)))" +" s_820)" +" s_820)))" "(if(pair?" -" s_823)" +" s_821)" "(let-values(((define-values479_0)" -"(let-values(((s_824)" +"(let-values(((s_822)" "(car" -" s_823)))" -" s_824))" +" s_821)))" +" s_822))" "((id480_0" " rhs481_0)" -"(let-values(((s_825)" +"(let-values(((s_823)" "(cdr" +" s_821)))" +"(let-values(((s_824)" +"(if(syntax?$1" +" s_823)" +"(syntax-e$1" +" s_823)" " s_823)))" +"(if(pair?" +" s_824)" +"(let-values(((id482_0)" +"(let-values(((s_825)" +"(car" +" s_824)))" "(let-values(((s_826)" "(if(syntax?$1" " s_825)" "(syntax-e$1" " s_825)" " s_825)))" -"(if(pair?" -" s_826)" -"(let-values(((id482_0)" -"(let-values(((s_827)" -"(car" -" s_826)))" -"(let-values(((s_828)" -"(if(syntax?$1" -" s_827)" -"(syntax-e$1" -" s_827)" -" s_827)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_828)))" +" s_826)))" "(if(not" " flat-s_60)" "(let-values()" @@ -74157,7 +74166,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_144)" +"(let-values(((id_145)" "(let-values(((lst_70)" " flat-s_60))" "(begin" @@ -74167,89 +74176,89 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_70)))" -"((letrec-values(((for-loop_330)" -"(lambda(id_145" -" lst_428)" +"((letrec-values(((for-loop_332)" +"(lambda(id_146" +" lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" -"(let-values(((s_829)" +" lst_430)" +"(let-values(((s_827)" "(unsafe-car" -" lst_428))" -"((rest_252)" +" lst_430))" +"((rest_253)" "(unsafe-cdr" -" lst_428)))" -"(let-values(((id_146)" +" lst_430)))" "(let-values(((id_147)" -" id_145))" "(let-values(((id_148)" +" id_146))" +"(let-values(((id_149)" "(let-values()" "(let-values(((id495_0)" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_407)" "(if(syntax?$1" -" s_829)" +" s_827)" "(symbol?" "(syntax-e$1" -" s_829))" +" s_827))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_407" +" or-part_407" "(symbol?" -" s_829)))" -" s_829" +" s_827)))" +" s_827" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_829)))))" +" s_827)))))" "(cons" " id495_0" -" id_147)))))" -"(values" " id_148)))))" +"(values" +" id_149)))))" "(if(not" " #f)" -"(for-loop_330" -" id_146" -" rest_252)" -" id_146)))" -" id_145)))))" -" for-loop_330)" +"(for-loop_332" +" id_147" +" rest_253)" +" id_147)))" +" id_146)))))" +" for-loop_332)" " null" " lst_70)))))" "(reverse$1" -" id_144))))))))" +" id_145))))))))" "((rhs483_0)" -"(let-values(((s_830)" +"(let-values(((s_828)" "(cdr" -" s_826)))" -"(let-values(((s_831)" +" s_824)))" +"(let-values(((s_829)" "(if(syntax?$1" -" s_830)" +" s_828)" "(syntax-e$1" -" s_830)" -" s_830)))" +" s_828)" +" s_828)))" "(if(pair?" -" s_831)" +" s_829)" "(let-values(((rhs484_0)" -"(let-values(((s_832)" +"(let-values(((s_830)" "(car" -" s_831)))" -" s_832))" +" s_829)))" +" s_830))" "(()" -"(let-values(((s_833)" +"(let-values(((s_831)" "(cdr" -" s_831)))" -"(let-values(((s_834)" +" s_829)))" +"(let-values(((s_832)" "(if(syntax?$1" -" s_833)" +" s_831)" "(syntax-e$1" -" s_833)" -" s_833)))" +" s_831)" +" s_831)))" "(if(null?" -" s_834)" +" s_832)" "(values)" "(raise-syntax-error$1" " #f" @@ -74290,7 +74299,7 @@ static const char *startup_source = "(let-values(((ids485_0)" " ids_45)" "((phase486_0)" -" phase_51)" +" phase_52)" "((exp-body487_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" @@ -74305,7 +74314,7 @@ static const char *startup_source = "(let-values(((ids488_0)" " ids_45)" "((phase489_0)" -" phase_51)" +" phase_52)" "((requires+provides490_0)" " requires+provides_7)" "((exp-body491_0)" @@ -74324,7 +74333,7 @@ static const char *startup_source = "((self498_0)" " self_34)" "((phase499_0)" -" phase_51)" +" phase_52)" "((all-scopes-stx500_0)" " all-scopes-stx_5)" "((frame-id501_0)" @@ -74345,7 +74354,7 @@ static const char *startup_source = " phase499_0" " all-scopes-stx500_0))))" "(begin" -"(let-values(((lst_429)" +"(let-values(((lst_431)" " syms_23))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74353,19 +74362,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_430)" +" lst_431)))" +"((letrec-values(((for-loop_333)" +"(lambda(lst_432)" "(begin" " 'for-loop" "(if(pair?" -" lst_430)" +" lst_432)" "(let-values(((sym_109)" "(unsafe-car" -" lst_430))" -"((rest_253)" +" lst_432))" +"((rest_254)" "(unsafe-cdr" -" lst_430)))" +" lst_432)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74374,25 +74383,25 @@ static const char *startup_source = "(let-values()" "(namespace-unset-transformer!" " m-ns_20" -" phase_51" +" phase_52" " sym_109))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_331" -" rest_253)" +"(for-loop_333" +" rest_254)" "(values))))" "(values))))))" -" for-loop_331)" -" lst_429)))" +" for-loop_333)" +" lst_431)))" "(void)" "(let-values(((requires+provides492_0)" " requires+provides_7)" "((syms493_0)" " syms_23)" "((phase494_0)" -" phase_51))" +" phase_52))" "(add-defined-syms!103.1" " #f" " requires+provides492_0" @@ -74471,52 +74480,52 @@ static const char *startup_source = " define-syntaxes504_0" " id505_0" " rhs506_0)" -"(let-values(((s_835)" +"(let-values(((s_833)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_835))" +" s_833))" "(let-values(((define-syntaxes504_1" " id505_1" " rhs506_1)" -"(let-values(((s_836)" +"(let-values(((s_834)" "(if(syntax?$1" -" s_835)" +" s_833)" "(syntax-e$1" -" s_835)" -" s_835)))" +" s_833)" +" s_833)))" "(if(pair?" -" s_836)" +" s_834)" "(let-values(((define-syntaxes507_0)" -"(let-values(((s_837)" +"(let-values(((s_835)" "(car" -" s_836)))" -" s_837))" +" s_834)))" +" s_835))" "((id508_0" " rhs509_0)" -"(let-values(((s_838)" +"(let-values(((s_836)" "(cdr" +" s_834)))" +"(let-values(((s_837)" +"(if(syntax?$1" +" s_836)" +"(syntax-e$1" +" s_836)" " s_836)))" +"(if(pair?" +" s_837)" +"(let-values(((id510_0)" +"(let-values(((s_838)" +"(car" +" s_837)))" "(let-values(((s_839)" "(if(syntax?$1" " s_838)" "(syntax-e$1" " s_838)" " s_838)))" -"(if(pair?" -" s_839)" -"(let-values(((id510_0)" -"(let-values(((s_840)" -"(car" -" s_839)))" -"(let-values(((s_841)" -"(if(syntax?$1" -" s_840)" -"(syntax-e$1" -" s_840)" -" s_840)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_841)))" +" s_839)))" "(if(not" " flat-s_61)" "(let-values()" @@ -74525,8 +74534,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_149)" -"(let-values(((lst_431)" +"(let-values(((id_150)" +"(let-values(((lst_433)" " flat-s_61))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74534,90 +74543,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_431)))" -"((letrec-values(((for-loop_332)" -"(lambda(id_150" -" lst_432)" +" lst_433)))" +"((letrec-values(((for-loop_334)" +"(lambda(id_151" +" lst_434)" "(begin" " 'for-loop" "(if(pair?" -" lst_432)" -"(let-values(((s_570)" +" lst_434)" +"(let-values(((s_568)" "(unsafe-car" -" lst_432))" -"((rest_254)" +" lst_434))" +"((rest_255)" "(unsafe-cdr" -" lst_432)))" -"(let-values(((id_151)" +" lst_434)))" "(let-values(((id_152)" -" id_150))" "(let-values(((id_153)" +" id_151))" +"(let-values(((id_154)" "(let-values()" "(let-values(((id524_0)" "(let-values()" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_408)" "(if(syntax?$1" -" s_570)" +" s_568)" "(symbol?" "(syntax-e$1" -" s_570))" +" s_568))" " #f)))" -"(if or-part_405" -" or-part_405" +"(if or-part_408" +" or-part_408" "(symbol?" -" s_570)))" -" s_570" +" s_568)))" +" s_568" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_570)))))" +" s_568)))))" "(cons" " id524_0" -" id_152)))))" -"(values" " id_153)))))" +"(values" +" id_154)))))" "(if(not" " #f)" -"(for-loop_332" -" id_151" -" rest_254)" -" id_151)))" -" id_150)))))" -" for-loop_332)" +"(for-loop_334" +" id_152" +" rest_255)" +" id_152)))" +" id_151)))))" +" for-loop_334)" " null" -" lst_431)))))" +" lst_433)))))" "(reverse$1" -" id_149))))))))" +" id_150))))))))" "((rhs511_0)" -"(let-values(((s_842)" +"(let-values(((s_840)" "(cdr" -" s_839)))" -"(let-values(((s_843)" +" s_837)))" +"(let-values(((s_841)" "(if(syntax?$1" -" s_842)" +" s_840)" "(syntax-e$1" -" s_842)" -" s_842)))" +" s_840)" +" s_840)))" "(if(pair?" -" s_843)" +" s_841)" "(let-values(((rhs512_0)" -"(let-values(((s_844)" +"(let-values(((s_842)" "(car" -" s_843)))" -" s_844))" +" s_841)))" +" s_842))" "(()" -"(let-values(((s_845)" +"(let-values(((s_843)" "(cdr" -" s_843)))" -"(let-values(((s_846)" +" s_841)))" +"(let-values(((s_844)" "(if(syntax?$1" -" s_845)" +" s_843)" "(syntax-e$1" -" s_845)" -" s_845)))" +" s_843)" +" s_843)))" "(if(null?" -" s_846)" +" s_844)" "(values)" "(raise-syntax-error$1" " #f" @@ -74658,7 +74667,7 @@ static const char *startup_source = "(let-values(((ids513_0)" " ids_46)" "((phase514_0)" -" phase_51)" +" phase_52)" "((exp-body515_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" @@ -74673,7 +74682,7 @@ static const char *startup_source = "(let-values(((ids516_0)" " ids_46)" "((phase517_0)" -" phase_51)" +" phase_52)" "((requires+provides518_0)" " requires+provides_7)" "((exp-body519_0)" @@ -74692,7 +74701,7 @@ static const char *startup_source = "((self527_0)" " self_34)" "((phase528_0)" -" phase_51)" +" phase_52)" "((all-scopes-stx529_0)" " all-scopes-stx_5)" "((frame-id530_0)" @@ -74721,7 +74730,7 @@ static const char *startup_source = "((syms521_0)" " syms_24)" "((phase522_0)" -" phase_51)" +" phase_52)" "((temp523_0)" " #t))" "(add-defined-syms!103.1" @@ -74740,10 +74749,10 @@ static const char *startup_source = "((ids536_0)" " ids_46)" "((temp537_0)" -"(let-values(((v_274)" +"(let-values(((v_275)" " partial-body-ctx_1))" "(let-values(((the-struct_112)" -" v_274))" +" v_275))" "(if(expand-context/outer?" " the-struct_112)" "(let-values(((need-eventually-defined539_0)" @@ -74751,7 +74760,7 @@ static const char *startup_source = "((inner540_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_274)))" +" v_275)))" "(if(expand-context/inner?" " the-struct_113)" "(let-values(((lifts541_0)" @@ -74861,11 +74870,11 @@ static const char *startup_source = " temp537_0))))" "(let-values((()" "(begin" -"(let-values(((lst_433)" +"(let-values(((lst_435)" " syms_24)" -"((lst_434)" +"((lst_436)" " vals_10)" -"((lst_435)" +"((lst_437)" " ids_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74873,51 +74882,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_433)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_434)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_435)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_436" -" lst_437" -" lst_438)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_436)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_437)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_438" +" lst_439" +" lst_440)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_436)" -"(if(pair?" -" lst_437)" -"(pair?" " lst_438)" +"(if(pair?" +" lst_439)" +"(pair?" +" lst_440)" " #f)" " #f)" "(let-values(((sym_110)" "(unsafe-car" -" lst_436))" -"((rest_255)" -"(unsafe-cdr" -" lst_436))" -"((val_86)" -"(unsafe-car" -" lst_437))" +" lst_438))" "((rest_256)" "(unsafe-cdr" -" lst_437))" -"((id_154)" -"(unsafe-car" " lst_438))" +"((val_86)" +"(unsafe-car" +" lst_439))" "((rest_257)" "(unsafe-cdr" -" lst_438)))" +" lst_439))" +"((id_155)" +"(unsafe-car" +" lst_440))" +"((rest_258)" +"(unsafe-cdr" +" lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74927,28 +74936,28 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_86" -" id_154" -" phase_51" +" id_155" +" phase_52" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_51" +" phase_52" " sym_110" " val_86)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_333" -" rest_255" +"(for-loop_335" " rest_256" -" rest_257)" +" rest_257" +" rest_258)" "(values))))" "(values))))))" -" for-loop_333)" -" lst_433" -" lst_434" -" lst_435)))" +" for-loop_335)" +" lst_435" +" lst_436" +" lst_437)))" "(values))))" "(let-values()" "(let-values((()" @@ -75026,38 +75035,38 @@ static const char *startup_source = "(let-values(((ok?_85" " #%require546_0" " req547_0)" -"(let-values(((s_847)" +"(let-values(((s_845)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_847))" +" s_845))" "(let-values(((#%require546_1" " req547_1)" -"(let-values(((s_848)" +"(let-values(((s_846)" "(if(syntax?$1" -" s_847)" +" s_845)" "(syntax-e$1" -" s_847)" -" s_847)))" +" s_845)" +" s_845)))" "(if(pair?" -" s_848)" +" s_846)" "(let-values(((#%require548_0)" -"(let-values(((s_849)" +"(let-values(((s_847)" "(car" -" s_848)))" -" s_849))" +" s_846)))" +" s_847))" "((req549_0)" -"(let-values(((s_850)" +"(let-values(((s_848)" "(cdr" -" s_848)))" -"(let-values(((s_851)" +" s_846)))" +"(let-values(((s_849)" "(if(syntax?$1" -" s_850)" +" s_848)" "(syntax-e$1" -" s_850)" -" s_850)))" +" s_848)" +" s_848)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_851)))" +" s_849)))" "(if(not" " flat-s_62)" "(let-values()" @@ -75088,9 +75097,9 @@ static const char *startup_source = "((m-ns553_0)" " m-ns_20)" "((phase554_0)" -" phase_51)" +" phase_52)" "((phase555_0)" -" phase_51)" +" phase_52)" "((requires+provides556_0)" " requires+provides_7)" "((declared-submodule-names557_0)" @@ -75217,30 +75226,30 @@ static const char *startup_source = "(let-values(((ok?_86" " #%declare567_0" " kw568_0)" -"(let-values(((s_852)" +"(let-values(((s_850)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_852))" +" s_850))" "(let-values(((#%declare567_1" " kw568_1)" -"(let-values(((s_853)" +"(let-values(((s_851)" "(if(syntax?$1" -" s_852)" +" s_850)" "(syntax-e$1" -" s_852)" -" s_852)))" +" s_850)" +" s_850)))" "(if(pair?" -" s_853)" +" s_851)" "(let-values(((#%declare569_0)" "(let-values(((s_276)" "(car" -" s_853)))" +" s_851)))" " s_276))" "((kw570_0)" "(let-values(((s_277)" "(cdr" -" s_853)))" -"(let-values(((s_854)" +" s_851)))" +"(let-values(((s_852)" "(if(syntax?$1" " s_277)" "(syntax-e$1" @@ -75248,7 +75257,7 @@ static const char *startup_source = " s_277)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_854)))" +" s_852)))" "(if(not" " flat-s_63)" "(let-values()" @@ -75271,7 +75280,7 @@ static const char *startup_source = " kw568_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_439)" +"(let-values(((lst_441)" " kw568_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75279,19 +75288,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_439)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_440)" +" lst_441)))" +"((letrec-values(((for-loop_336)" +"(lambda(lst_442)" "(begin" " 'for-loop" "(if(pair?" -" lst_440)" +" lst_442)" "(let-values(((kw_1)" "(unsafe-car" -" lst_440))" -"((rest_258)" +" lst_442))" +"((rest_259)" "(unsafe-cdr" -" lst_440)))" +" lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75342,12 +75351,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_258)" +"(for-loop_336" +" rest_259)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_439)))" +" for-loop_336)" +" lst_441)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75394,21 +75403,21 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_47 rhs_23 phase_149)" +"(lambda(ids_47 rhs_23 phase_150)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_441) ids_47))" +"(let-values(((lst_443) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_335)" -"(lambda(fold-var_377 lst_442)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_377 lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((id_155)(unsafe-car lst_442))" -"((rest_259)(unsafe-cdr lst_442)))" +"(if(pair? lst_444)" +"(let-values(((id_156)(unsafe-car lst_444))" +"((rest_260)(unsafe-cdr lst_444)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379) fold-var_377))" "(let-values(((fold-var_380)" @@ -75416,20 +75425,20 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_155" +" id_156" " inside-scope_2))" " fold-var_379))))" "(values fold-var_380)))))" -"(if(not #f)(for-loop_335 fold-var_378 rest_259) fold-var_378)))" +"(if(not #f)(for-loop_337 fold-var_378 rest_260) fold-var_378)))" " fold-var_377)))))" -" for-loop_335)" +" for-loop_337)" " null" -" lst_441))))))" +" lst_443))))))" "(let-values(((syms_25)" "(let-values(((scoped-ids571_0) scoped-ids_0)" "((defined-syms572_0) defined-syms_13)" "((self573_0) self_35)" -"((phase574_0) phase_149)" +"((phase574_0) phase_150)" "((all-scopes-stx575_0) all-scopes-stx_6)" "((frame-id576_0) frame-id_18)" "((requires+provides577_0) requires+provides_8))" @@ -75449,7 +75458,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_149) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_150) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" @@ -75461,15 +75470,15 @@ static const char *startup_source = "(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_114)))" "(if sc_41" "(reverse$1" -"(let-values(((lst_443) bodys_23))" +"(let-values(((lst_445) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_381 lst_444)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_381 lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((body_21)(unsafe-car lst_444))((rest_260)(unsafe-cdr lst_444)))" +"(if(pair? lst_446)" +"(let-values(((body_21)(unsafe-car lst_446))((rest_261)(unsafe-cdr lst_446)))" "(let-values(((fold-var_382)" "(let-values(((fold-var_383) fold-var_381))" "(let-values(((fold-var_384)" @@ -75478,11 +75487,11 @@ static const char *startup_source = "(let-values()(add-scope body_21 sc_41))" " fold-var_383))))" "(values fold-var_384)))))" -"(if(not #f)(for-loop_336 fold-var_382 rest_260) fold-var_382)))" +"(if(not #f)(for-loop_338 fold-var_382 rest_261) fold-var_382)))" " fold-var_381)))))" -" for-loop_336)" +" for-loop_338)" " null" -" lst_443))))" +" lst_445))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75497,7 +75506,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_150) phase84_0))" +"(let-values(((phase_151) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -75511,7 +75520,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_150)) #f)" +"(if(if tail?_54(not(zero? phase_151)) #f)" "(let-values()" "(begin" "(let-values(((obs_154)(expand-context-observer body-ctx_7)))" @@ -75565,14 +75574,14 @@ static const char *startup_source = "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_409)" "(parsed? body_22)))" -"(if or-part_406" -" or-part_406" -"(let-values(((or-part_407)" +"(if or-part_409" +" or-part_409" +"(let-values(((or-part_410)" "(expanded+parsed? body_22)))" -"(if or-part_407" -" or-part_407" +"(if or-part_410" +" or-part_410" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" @@ -75589,86 +75598,86 @@ static const char *startup_source = "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_855)" +"(let-values(((s_853)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" " define-values578_0" " _579_0" " _580_0)" -"(let-values(((s_856)" +"(let-values(((s_854)" "(syntax-disarm$1" -" s_855)))" +" s_853)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_856))" +" s_854))" "(let-values(((define-values578_1" " _579_1" " _580_1)" -"(let-values(((s_857)" +"(let-values(((s_855)" "(if(syntax?$1" -" s_856)" +" s_854)" "(syntax-e$1" -" s_856)" -" s_856)))" +" s_854)" +" s_854)))" "(if(pair?" -" s_857)" +" s_855)" "(let-values(((define-values581_0)" -"(let-values(((s_858)" +"(let-values(((s_856)" "(car" -" s_857)))" -" s_858))" +" s_855)))" +" s_856))" "((_582_0" " _583_0)" -"(let-values(((s_859)" +"(let-values(((s_857)" "(cdr" +" s_855)))" +"(let-values(((s_858)" +"(if(syntax?$1" +" s_857)" +"(syntax-e$1" +" s_857)" " s_857)))" -"(let-values(((s_860)" -"(if(syntax?$1" -" s_859)" -"(syntax-e$1" -" s_859)" -" s_859)))" "(if(pair?" -" s_860)" +" s_858)" "(let-values(((_584_0)" -"(let-values(((s_861)" +"(let-values(((s_859)" "(car" -" s_860)))" -" s_861))" +" s_858)))" +" s_859))" "((_585_0)" -"(let-values(((s_862)" +"(let-values(((s_860)" "(cdr" +" s_858)))" +"(let-values(((s_861)" +"(if(syntax?$1" +" s_860)" +"(syntax-e$1" +" s_860)" " s_860)))" -"(let-values(((s_863)" -"(if(syntax?$1" -" s_862)" -"(syntax-e$1" -" s_862)" -" s_862)))" "(if(pair?" -" s_863)" +" s_861)" "(let-values(((_586_0)" -"(let-values(((s_864)" +"(let-values(((s_862)" "(car" -" s_863)))" -" s_864))" +" s_861)))" +" s_862))" "(()" -"(let-values(((s_865)" +"(let-values(((s_863)" "(cdr" -" s_863)))" -"(let-values(((s_866)" +" s_861)))" +"(let-values(((s_864)" "(if(syntax?$1" -" s_865)" +" s_863)" "(syntax-e$1" -" s_865)" -" s_865)))" +" s_863)" +" s_863)))" "(if(null?" -" s_866)" +" s_864)" "(values)" "(raise-syntax-error$1" " #f" @@ -75709,7 +75718,7 @@ static const char *startup_source = "(let-values(((rhs-ctx587_0)" " rhs-ctx_2)" "((s588_0)" -" s_855)" +" s_853)" "((temp589_0)" " #t))" "(keep-as-needed119.1" @@ -75785,7 +75794,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_150)))" +" phase_151)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -75863,7 +75872,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules600_0)" " lifted-modules_0)" -"((phase601_0) phase_150)" +"((phase601_0) phase_151)" "((self602_0) self_36)" "((body-ctx603_0)" " body-ctx_7)" @@ -75920,12 +75929,12 @@ static const char *startup_source = "(let-values(((ht_165) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" -"((letrec-values(((for-loop_337)" +"((letrec-values(((for-loop_339)" "(lambda(i_186)" "(begin" " 'for-loop" "(if i_186" -"(let-values(((phase_151 l_89)(hash-iterate-key+value ht_165 i_186)))" +"(let-values(((phase_152 l_89)(hash-iterate-key+value ht_165 i_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75933,24 +75942,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_445) l_89))" +"(let-values(((lst_447) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_338)" -"(lambda(lst_446)" +"(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_448)" "(begin" " 'for-loop" "(if(pair?" -" lst_446)" -"(let-values(((id_156)" +" lst_448)" +"(let-values(((id_157)" "(unsafe-car" -" lst_446))" -"((rest_261)" +" lst_448))" +"((rest_262)" "(unsafe-cdr" -" lst_446)))" +" lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75959,9 +75968,9 @@ static const char *startup_source = "(let-values()" "(let-values(((b_96)" "(let-values(((id608_0)" -" id_156)" +" id_157)" "((phase609_0)" -" phase_151))" +" phase_152))" "(resolve+shift28.1" " #f" " #f" @@ -75978,7 +75987,7 @@ static const char *startup_source = "(module-binding-sym" " b_96)" "(syntax-e$1" -" id_156))" +" id_157))" "(eq?" "(module-binding-module" " b_96)" @@ -75992,7 +76001,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_96)" -" phase_151)" +" phase_152)" " #f)))" "(if(eq?" " bound-kind_0" @@ -76016,35 +76025,35 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_67)" -" phase_151))" +" phase_152))" "(if(equal?" " tmp_67" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_151)))))" -" id_156" +" phase_152)))))" +" id_157" " #f" " null" "(syntax-debug-info-string" -" id_156" +" id_157" " ctx_115))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_338" -" rest_261)" +"(for-loop_340" +" rest_262)" "(values))))" "(values))))))" -" for-loop_338)" -" lst_445)))" +" for-loop_340)" +" lst_447)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_337(hash-iterate-next ht_165 i_186))(values))))" +"(if(not #f)(for-loop_339(hash-iterate-next ht_165 i_186))(values))))" "(values))))))" -" for-loop_337)" +" for-loop_339)" "(hash-iterate-first ht_165))))" "(void)))))" "(define-values" @@ -76062,27 +76071,27 @@ static const char *startup_source = "(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_152) phase105_0))" +"(let-values(((phase_153) phase105_0))" "(let-values(((self_38) self106_0))" "(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_153)" +"(lambda(bodys_26 phase_154)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_408)(parsed?(car bodys_26))))" -"(if or-part_408 or-part_408(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_411)(parsed?(car bodys_26))))" +"(if or-part_411 or-part_411(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_153)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_154)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_153))))" +"(add1 phase_154))))" "(cons" "(let-values(((the-struct_114)(car bodys_26)))" "(if(semi-parsed-begin-for-syntax? the-struct_114)" @@ -76094,11 +76103,11 @@ static const char *startup_source = " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_114)))" -"(loop_127(cdr bodys_26) phase_153))))" +"(loop_127(cdr bodys_26) phase_154))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_153)))" +"(core-form-sym disarmed-body_1 phase_154)))" "(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" @@ -76120,35 +76129,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_88 #%provide611_0 spec612_0)" -"(let-values(((s_867) disarmed-body_1))" -"(let-values(((orig-s_92) s_867))" +"(let-values(((s_865) disarmed-body_1))" +"(let-values(((orig-s_92) s_865))" "(let-values(((#%provide611_1" " spec612_1)" -"(let-values(((s_868)" +"(let-values(((s_866)" "(if(syntax?$1" -" s_867)" +" s_865)" "(syntax-e$1" -" s_867)" -" s_867)))" -"(if(pair? s_868)" +" s_865)" +" s_865)))" +"(if(pair? s_866)" "(let-values(((#%provide613_0)" -"(let-values(((s_869)" +"(let-values(((s_867)" "(car" -" s_868)))" -" s_869))" +" s_866)))" +" s_867))" "((spec614_0)" -"(let-values(((s_870)" +"(let-values(((s_868)" "(cdr" -" s_868)))" -"(let-values(((s_871)" +" s_866)))" +"(let-values(((s_869)" "(if(syntax?$1" -" s_870)" +" s_868)" "(syntax-e$1" -" s_870)" -" s_870)))" +" s_868)" +" s_868)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_871)))" +" s_869)))" "(if(not" " flat-s_64)" "(let-values()" @@ -76175,10 +76184,10 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_10" " self_38" -" phase_153" -"(let-values(((v_275) ctx_116))" +" phase_154" +"(let-values(((v_276) ctx_116))" "(let-values(((the-struct_115)" -" v_275))" +" v_276))" "(if(expand-context/outer?" " the-struct_115)" "(let-values(((context615_0)" @@ -76186,15 +76195,15 @@ static const char *startup_source = "((inner616_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_275)))" +" v_276)))" "(if(expand-context/inner?" " the-struct_116)" "(let-values(((phase617_0)" -" phase_153)" +" phase_154)" "((namespace618_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_153))" +" phase_154))" "((requires+provides619_0)" " requires+provides_10)" "((declared-submodule-names620_0)" @@ -76291,7 +76300,7 @@ static const char *startup_source = " the-struct_115)))))))" "(if(expand-context-to-parsed? ctx_116)" "(let-values()" -"(loop_127(cdr bodys_26) phase_153))" +"(loop_127(cdr bodys_26) phase_154))" "(let-values()" "(let-values(((new-s_11)" "(syntax-track-origin*" @@ -76322,14 +76331,14 @@ static const char *startup_source = " new-s_11" "(loop_127" "(cdr bodys_26)" -" phase_153))))))))))" +" phase_154))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_153))))))))))))))" +"(loop_127(cdr bodys_26) phase_154))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_152)))))))))))))" +" phase_153)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76374,8 +76383,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_409) enclosing-self_3))" -"(if or-part_409 or-part_409 self_39)))))" +"(let-values(((or-part_412) enclosing-self_3))" +"(if or-part_412 or-part_412 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod623_0) parsed-mod_0)" "((temp624_0)" @@ -76427,16 +76436,16 @@ static const char *startup_source = " compiled-module631_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_686 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_684 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_690)" -"(syntax-property$1 s_686 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_872)" +"(let-values(((s_688)" +"(syntax-property$1 s_684 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_870)" "(syntax-property$1" -" s_690" +" s_688" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_872)))))" +" s_870)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76455,7 +76464,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_154) phase143_0))" +"(let-values(((phase_155) phase143_0))" "(let-values(((self_40) self144_0))" "(let-values(((requires+provides_12) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -76467,7 +76476,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_155)" +"(lambda(bodys_27 phase_156)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76481,37 +76490,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_23)))" "(let-values(((ok?_89 begin-for-syntax633_0 _634_0)" -"(let-values(((s_873)" +"(let-values(((s_871)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_873))" +"(let-values(((orig-s_93) s_871))" "(let-values(((begin-for-syntax633_1" " _634_1)" -"(let-values(((s_874)" +"(let-values(((s_872)" "(if(syntax?$1" -" s_873)" +" s_871)" "(syntax-e$1" -" s_873)" -" s_873)))" -"(if(pair? s_874)" +" s_871)" +" s_871)))" +"(if(pair? s_872)" "(let-values(((begin-for-syntax635_0)" -"(let-values(((s_875)" +"(let-values(((s_873)" "(car" -" s_874)))" -" s_875))" +" s_872)))" +" s_873))" "((_636_0)" -"(let-values(((s_876)" +"(let-values(((s_874)" "(cdr" -" s_874)))" -"(let-values(((s_877)" +" s_872)))" +"(let-values(((s_875)" "(if(syntax?$1" -" s_876)" +" s_874)" "(syntax-e$1" -" s_876)" -" s_876)))" +" s_874)" +" s_874)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_877)))" +" s_875)))" "(if(not" " flat-s_65)" "(let-values()" @@ -76547,7 +76556,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_23)" -"(add1 phase_155))))" +"(add1 phase_156))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76569,20 +76578,20 @@ static const char *startup_source = " rebuild-body-s639_0" " temp640_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_155))))))))" -"(if(let-values(((or-part_410)(parsed? body_23)))" -"(if or-part_410" -" or-part_410" +"(loop_128 rest-bodys_3 phase_156))))))))" +"(if(let-values(((or-part_413)(parsed? body_23)))" +"(if or-part_413" +" or-part_413" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_128 rest-bodys_3 phase_155)))" +"(cons body_23(loop_128 rest-bodys_3 phase_156)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_155)))" +" phase_156)))" "(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" @@ -76598,60 +76607,60 @@ static const char *startup_source = " module*641_0" " name642_0" " _643_0)" -"(let-values(((s_878)" +"(let-values(((s_876)" " disarmed-body_2))" -"(if(let-values(((s_879)" +"(if(let-values(((s_877)" "(if(syntax?$1" -" s_878)" +" s_876)" "(syntax-e$1" -" s_878)" -" s_878)))" -"(if(pair? s_879)" -"(if(let-values(((s_880)" +" s_876)" +" s_876)))" +"(if(pair? s_877)" +"(if(let-values(((s_878)" "(car" -" s_879)))" +" s_877)))" " #t)" -"(let-values(((s_881)" +"(let-values(((s_879)" "(cdr" -" s_879)))" -"(let-values(((s_882)" +" s_877)))" +"(let-values(((s_880)" "(if(syntax?$1" -" s_881)" +" s_879)" "(syntax-e$1" -" s_881)" -" s_881)))" +" s_879)" +" s_879)))" "(if(pair?" -" s_882)" -"(if(let-values(((s_883)" +" s_880)" +"(if(let-values(((s_881)" "(car" -" s_882)))" +" s_880)))" " #t)" -"(let-values(((s_884)" +"(let-values(((s_882)" "(cdr" +" s_880)))" +"(let-values(((s_883)" +"(if(syntax?$1" +" s_882)" +"(syntax-e$1" +" s_882)" " s_882)))" +"(if(pair?" +" s_883)" +"(if(let-values(((s_884)" +"(car" +" s_883)))" "(let-values(((s_885)" "(if(syntax?$1" " s_884)" "(syntax-e$1" " s_884)" " s_884)))" -"(if(pair?" -" s_885)" -"(if(let-values(((s_886)" -"(car" -" s_885)))" -"(let-values(((s_887)" -"(if(syntax?$1" -" s_886)" -"(syntax-e$1" -" s_886)" -" s_886)))" "(eq?" " #f" -" s_887)))" -"(let-values(((s_888)" -"(cdr" " s_885)))" +"(let-values(((s_886)" +"(cdr" +" s_883)))" " #t)" " #f)" " #f)))" @@ -76663,59 +76672,59 @@ static const char *startup_source = "(let-values(((module*641_1" " name642_1" " _643_1)" -"(let-values(((s_889)" +"(let-values(((s_887)" "(if(syntax?$1" -" s_878)" +" s_876)" "(syntax-e$1" -" s_878)" -" s_878)))" +" s_876)" +" s_876)))" "(let-values(((module*644_0)" -"(let-values(((s_890)" +"(let-values(((s_888)" "(car" -" s_889)))" -" s_890))" +" s_887)))" +" s_888))" "((name645_0" " _646_0)" +"(let-values(((s_889)" +"(cdr" +" s_887)))" +"(let-values(((s_890)" +"(if(syntax?$1" +" s_889)" +"(syntax-e$1" +" s_889)" +" s_889)))" +"(let-values(((name647_0)" +"(let-values(((s_705)" +"(car" +" s_890)))" +" s_705))" +"((_648_0)" "(let-values(((s_891)" "(cdr" -" s_889)))" +" s_890)))" "(let-values(((s_892)" "(if(syntax?$1" " s_891)" "(syntax-e$1" " s_891)" " s_891)))" -"(let-values(((name647_0)" -"(let-values(((s_707)" +"(let-values((()" +"(let-values(((s_893)" "(car" " s_892)))" -" s_707))" -"((_648_0)" -"(let-values(((s_893)" -"(cdr" -" s_892)))" -"(let-values(((s_894)" +"(let-values(((s_706)" "(if(syntax?$1" " s_893)" "(syntax-e$1" " s_893)" " s_893)))" -"(let-values((()" -"(let-values(((s_895)" -"(car" -" s_894)))" -"(let-values(((s_708)" -"(if(syntax?$1" -" s_895)" -"(syntax-e$1" -" s_895)" -" s_895)))" "(values))))" "((_649_0)" -"(let-values(((s_896)" +"(let-values(((s_894)" "(cdr" +" s_892)))" " s_894)))" -" s_896)))" "(values" " _649_0))))))" "(values" @@ -76741,7 +76750,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_155)))" +" phase_156)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -76799,7 +76808,7 @@ static const char *startup_source = "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_155)))" +" phase_156)))" "(expanded+parsed1.1" " s662_0" "(expanded+parsed-parsed" @@ -76811,7 +76820,7 @@ static const char *startup_source = "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_155))))))))" +" phase_156))))))))" "(let-values()" "(let-values(((ready-body663_0)" " ready-body_2)" @@ -76846,16 +76855,16 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_155)))))))" +" phase_156)))))))" "(let-values()" "(cons" " body_23" "(loop_128" " rest-bodys_3" -" phase_155)))))))))))))))))" +" phase_156)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_154)))))))))))))))))" +" phase_155)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_118)" @@ -76870,23 +76879,23 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_49) ids170_0))" -"(let-values(((phase_156) phase171_0))" +"(let-values(((phase_157) phase171_0))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_897) in168_0))" +"(let-values(((s_895) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_447) ids_49))" +"(let-values(((lst_449) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_339)" -"(lambda(lst_448)" +"(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_341)" +"(lambda(lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((id_157)(unsafe-car lst_448))" -"((rest_262)(unsafe-cdr lst_448)))" +"(if(pair? lst_450)" +"(let-values(((id_158)(unsafe-car lst_450))" +"((rest_263)(unsafe-cdr lst_450)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76895,10 +76904,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides671_0)" " requires+provides_13)" -"((id672_0) id_157)" +"((id672_0) id_158)" "((phase673_0)" -" phase_156)" -"((s674_0) s_897)" +" phase_157)" +"((s674_0) s_895)" "((temp675_0) 'module))" "(check-not-defined95.1" " #f" @@ -76913,25 +76922,25 @@ static const char *startup_source = " phase673_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_339 rest_262)(values))))" +"(if(not #f)(for-loop_341 rest_263)(values))))" "(values))))))" -" for-loop_339)" -" lst_447)))" +" for-loop_341)" +" lst_449)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_158 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_449) bodys_28))" +"(let-values(((lst_451) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_340)" -"(lambda(lst_450)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" +"((letrec-values(((for-loop_342)" +"(lambda(lst_452)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((body_24)(unsafe-car lst_450))((rest_263)(unsafe-cdr lst_450)))" +"(if(pair? lst_452)" +"(let-values(((body_24)(unsafe-car lst_452))((rest_264)(unsafe-cdr lst_452)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76954,63 +76963,63 @@ static const char *startup_source = " ids_50" "(parsed-define-values-rhs" " p_88)" -" phase_157" +" phase_158" " m-ns_23" " ctx_119)))" "(begin" -"(let-values(((lst_451) ids_50)" -"((lst_452)" +"(let-values(((lst_453) ids_50)" +"((lst_454)" "(parsed-define-values-syms" " p_88))" -"((lst_453) vals_11))" +"((lst_455) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_451)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_452)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_453)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_454" -" lst_455" -" lst_456)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_454)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_455)))" +"((letrec-values(((for-loop_343)" +"(lambda(lst_456" +" lst_457" +" lst_458)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_454)" -"(if(pair?" -" lst_455)" -"(pair?" " lst_456)" +"(if(pair?" +" lst_457)" +"(pair?" +" lst_458)" " #f)" " #f)" -"(let-values(((id_158)" -"(unsafe-car" -" lst_454))" -"((rest_264)" -"(unsafe-cdr" -" lst_454))" -"((sym_111)" -"(unsafe-car" -" lst_455))" -"((rest_265)" -"(unsafe-cdr" -" lst_455))" -"((val_87)" +"(let-values(((id_159)" "(unsafe-car" " lst_456))" +"((rest_265)" +"(unsafe-cdr" +" lst_456))" +"((sym_111)" +"(unsafe-car" +" lst_457))" "((rest_266)" "(unsafe-cdr" -" lst_456)))" +" lst_457))" +"((val_87)" +"(unsafe-car" +" lst_458))" +"((rest_267)" +"(unsafe-cdr" +" lst_458)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77019,37 +77028,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_157" +" phase_158" " sym_111" " val_87))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_341" -" rest_264" +"(for-loop_343" " rest_265" -" rest_266)" +" rest_266" +" rest_267)" "(values))))" "(values))))))" -" for-loop_341)" -" lst_451" -" lst_452" -" lst_453)))" +" for-loop_343)" +" lst_453" +" lst_454" +" lst_455)))" "(void)))))" -"(if(let-values(((or-part_411)" +"(if(let-values(((or-part_414)" "(parsed-define-syntaxes?" " p_88)))" -"(if or-part_411" -" or-part_411" +"(if or-part_414" +" or-part_414" "(semi-parsed-begin-for-syntax?" " p_88)))" "(let-values()(void))" -"(if(let-values(((or-part_412)" +"(if(let-values(((or-part_415)" "(parsed-#%declare?" " p_88)))" -"(if or-part_412" -" or-part_412" +"(if or-part_415" +" or-part_415" "(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" @@ -77070,7 +77079,7 @@ static const char *startup_source = "(let-values(((m-ns676_0)" " m-ns_23)" "((phase677_0)" -" phase_157))" +" phase_158))" "(make-compile-context14.1" " #f" " unsafe-undefined" @@ -77081,10 +77090,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_263)(values))))" +"(if(not #f)(for-loop_342 rest_264)(values))))" "(values))))))" -" for-loop_340)" -" lst_449)))" +" for-loop_342)" +" lst_451)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77102,7 +77111,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_736) s194_0))" +"(let-values(((s_734) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_120) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77125,42 +77134,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_736)" +"(call-expand-observe obs_161 'enter-prim s_734)" "(call-expand-observe" " obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_91 module678_0 name679_0 _680_0)" -"(let-values(((s_898) s_736))" -"(let-values(((orig-s_94) s_898))" +"(let-values(((s_896) s_734))" +"(let-values(((orig-s_94) s_896))" "(let-values(((module678_1 name679_1 _680_1)" -"(let-values(((s_899)" -"(if(syntax?$1 s_898)" -"(syntax-e$1 s_898)" -" s_898)))" -"(if(pair? s_899)" +"(let-values(((s_897)" +"(if(syntax?$1 s_896)" +"(syntax-e$1 s_896)" +" s_896)))" +"(if(pair? s_897)" "(let-values(((module681_0)" -"(let-values(((s_900)(car s_899)))" -" s_900))" +"(let-values(((s_898)(car s_897)))" +" s_898))" "((name682_0 _683_0)" -"(let-values(((s_901)(cdr s_899)))" -"(let-values(((s_902)" +"(let-values(((s_899)(cdr s_897)))" +"(let-values(((s_900)" "(if(syntax?$1" -" s_901)" -"(syntax-e$1 s_901)" -" s_901)))" -"(if(pair? s_902)" +" s_899)" +"(syntax-e$1 s_899)" +" s_899)))" +"(if(pair? s_900)" "(let-values(((name684_0)" -"(let-values(((s_903)" +"(let-values(((s_901)" "(car" -" s_902)))" -" s_903))" +" s_900)))" +" s_901))" "((_685_0)" -"(let-values(((s_904)" +"(let-values(((s_902)" "(cdr" +" s_900)))" " s_902)))" -" s_904)))" "(values name684_0 _685_0))" "(raise-syntax-error$1" " #f" @@ -77180,7 +77189,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_736" +" s_734" " name_82))" "(void))" "(values))))" @@ -77197,14 +77206,14 @@ static const char *startup_source = "(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_736)))" +"(call-expand-observe obs_162 'enter-prim s_734)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s686_0) s_736)" +"(let-values(((s686_0) s_734)" "((temp687_0)" -"(let-values(((v_276) ctx_120))" -"(let-values(((the-struct_118) v_276))" +"(let-values(((v_277) ctx_120))" +"(let-values(((the-struct_118) v_277))" "(if(expand-context/outer? the-struct_118)" "(let-values(((context696_0) 'module)" "((post-expansion-scope697_0)" @@ -77212,7 +77221,7 @@ static const char *startup_source = "((inner698_0)" "(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_276)))" +" v_277)))" "(if(expand-context/inner?" " the-struct_119)" "(let-values(((stops699_0)" @@ -77495,7 +77504,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_158) phase209_0))" +"(let-values(((phase_159) phase209_0))" "(let-values(((self_43) self210_0))" "(let-values(((ctx_121) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -77504,18 +77513,18 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_457) bodys_29))" +"(let-values(((lst_459) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_342)" -"(lambda(fold-var_385 lst_458)" +"(let-values()(check-list lst_459)))" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_385 lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((body_25)(unsafe-car lst_458))" -"((rest_267)(unsafe-cdr lst_458)))" +"(if(pair? lst_460)" +"(let-values(((body_25)(unsafe-car lst_460))" +"((rest_268)(unsafe-cdr lst_460)))" "(let-values(((fold-var_386)" "(let-values(((fold-var_387) fold-var_385))" "(let-values(((fold-var_388)" @@ -77526,7 +77535,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_25)" -" phase_158)))" +" phase_159)))" "(if(equal? tmp_70 'module)" "(let-values()" "(let-values(((body714_0)" @@ -77562,12 +77571,12 @@ static const char *startup_source = " fold-var_387))))" "(values fold-var_388)))))" "(if(not #f)" -"(for-loop_342 fold-var_386 rest_267)" +"(for-loop_344 fold-var_386 rest_268)" " fold-var_386)))" " fold-var_385)))))" -" for-loop_342)" +" for-loop_344)" " null" -" lst_457))))))))))))))))" +" lst_459))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77578,37 +77587,37 @@ static const char *startup_source = "(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_905 phase_159)" +"(lambda(s_903 phase_160)" "(let-values(((ok?_92 #%require722_0 req723_0)" -"(let-values(((s_906)(syntax-disarm$1 s_905)))" -"(let-values(((orig-s_95) s_906))" +"(let-values(((s_904)(syntax-disarm$1 s_903)))" +"(let-values(((orig-s_95) s_904))" "(let-values(((#%require722_1 req723_1)" -"(let-values(((s_907)" -"(if(syntax?$1 s_906)(syntax-e$1 s_906) s_906)))" -"(if(pair? s_907)" +"(let-values(((s_905)" +"(if(syntax?$1 s_904)(syntax-e$1 s_904) s_904)))" +"(if(pair? s_905)" "(let-values(((#%require724_0)" -"(let-values(((s_908)(car s_907))) s_908))" +"(let-values(((s_906)(car s_905))) s_906))" "((req725_0)" -"(let-values(((s_909)(cdr s_907)))" -"(let-values(((s_910)" -"(if(syntax?$1 s_909)" -"(syntax-e$1 s_909)" -" s_909)))" -"(if(pair? s_910)" +"(let-values(((s_907)(cdr s_905)))" +"(let-values(((s_908)" +"(if(syntax?$1 s_907)" +"(syntax-e$1 s_907)" +" s_907)))" +"(if(pair? s_908)" "(let-values(((req726_0)" -"(let-values(((s_911)" -"(car s_910)))" -" s_911))" +"(let-values(((s_909)" +"(car s_908)))" +" s_909))" "(()" -"(let-values(((s_912)" -"(cdr s_910)))" -"(let-values(((s_913)" +"(let-values(((s_910)" +"(cdr s_908)))" +"(let-values(((s_911)" "(if(syntax?$1" -" s_912)" +" s_910)" "(syntax-e$1" -" s_912)" -" s_912)))" -"(if(null? s_913)" +" s_910)" +" s_910)))" +"(if(null? s_911)" "(values)" "(raise-syntax-error$1" " #f" @@ -77623,11 +77632,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" "(values #t #%require722_1 req723_1))))))" "(let-values(((temp727_0)(list req723_0))" -"((s728_0) s_905)" +"((s728_0) s_903)" "((self729_0) self_44)" "((m-ns730_0) m-ns_24)" -"((phase731_0) phase_159)" -"((phase732_0) phase_159)" +"((phase731_0) phase_160)" +"((phase732_0) phase_160)" "((requires+provides733_0) requires+provides_14)" "((declared-submodule-names734_0) declared-submodule-names_10)" "((temp735_0) 'require))" @@ -77660,16 +77669,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_459) lifted-defns_2))" +"(let-values(((lst_461) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_343)" -"(lambda(fold-var_389 lst_460)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))" +"((letrec-values(((for-loop_345)" +"(lambda(fold-var_389 lst_462)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((lifted-defn_0)(unsafe-car lst_460))" -"((rest_268)(unsafe-cdr lst_460)))" +"(if(pair? lst_462)" +"(let-values(((lifted-defn_0)(unsafe-car lst_462))" +"((rest_269)(unsafe-cdr lst_462)))" "(let-values(((fold-var_390)" "(let-values(((fold-var_391) fold-var_389))" "(let-values(((fold-var_392)" @@ -77679,11 +77688,11 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_391))))" "(values fold-var_392)))))" -"(if(not #f)(for-loop_343 fold-var_390 rest_268) fold-var_390)))" +"(if(not #f)(for-loop_345 fold-var_390 rest_269) fold-var_390)))" " fold-var_389)))))" -" for-loop_343)" +" for-loop_345)" " null" -" lst_459)))))))" +" lst_461)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -77699,18 +77708,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_461) s-lifted-defns_0))" +"(let-values(((lst_463) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_462)" +"(let-values()(check-list lst_463)))" +"((letrec-values(((for-loop_346)" +"(lambda(lst_464)" "(begin" " 'for-loop" -"(if(pair? lst_462)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_462))" -"((rest_269)(unsafe-cdr lst_462)))" +"(if(pair? lst_464)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_464))" +"((rest_270)(unsafe-cdr lst_464)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77720,38 +77729,38 @@ static const char *startup_source = "(let-values(((ok?_93" " define-values740_0" " _741_0)" -"(let-values(((s_914)" +"(let-values(((s_912)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_914))" +" s_912))" "(let-values(((define-values740_1" " _741_1)" -"(let-values(((s_915)" +"(let-values(((s_913)" "(if(syntax?$1" -" s_914)" +" s_912)" "(syntax-e$1" -" s_914)" -" s_914)))" +" s_912)" +" s_912)))" "(if(pair?" -" s_915)" +" s_913)" "(let-values(((define-values742_0)" -"(let-values(((s_916)" +"(let-values(((s_914)" "(car" -" s_915)))" -" s_916))" +" s_913)))" +" s_914))" "((_743_0)" -"(let-values(((s_917)" +"(let-values(((s_915)" "(cdr" -" s_915)))" -"(let-values(((s_918)" +" s_913)))" +"(let-values(((s_916)" "(if(syntax?$1" -" s_917)" +" s_915)" "(syntax-e$1" -" s_917)" -" s_917)))" +" s_915)" +" s_915)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" -" s_918)))" +" s_916)))" "(if(not" " flat-s_66)" "(let-values()" @@ -77816,23 +77825,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_344 rest_269)(values))))" +"(if(not #f)(for-loop_346 rest_270)(values))))" "(values))))))" -" for-loop_344)" -" lst_461)))" +" for-loop_346)" +" lst_463)))" "(values))))" "(let-values()" "(let-values(((ok?_94 form-id736_0 _737_0)" -"(let-values(((s_919) exp-body_10))" -"(let-values(((orig-s_97) s_919))" +"(let-values(((s_917) exp-body_10))" +"(let-values(((orig-s_97) s_917))" "(let-values(((form-id736_1 _737_1)" -"(let-values(((s_920)" -"(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" -"(if(pair? s_920)" +"(let-values(((s_918)" +"(if(syntax?$1 s_917)(syntax-e$1 s_917) s_917)))" +"(if(pair? s_918)" "(let-values(((form-id738_0)" -"(let-values(((s_921)(car s_920))) s_921))" +"(let-values(((s_919)(car s_918))) s_919))" "((_739_0)" -"(let-values(((s_922)(cdr s_920))) s_922)))" +"(let-values(((s_920)(cdr s_918))) s_920)))" "(values form-id738_0 _739_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t form-id736_1 _737_1))))))" @@ -77854,20 +77863,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_95 define-values744_0 _745_0)" -"(let-values(((s_923) s-defn_0))" -"(let-values(((orig-s_98) s_923))" +"(let-values(((s_921) s-defn_0))" +"(let-values(((orig-s_98) s_921))" "(let-values(((define-values744_1 _745_1)" -"(let-values(((s_924)(if(syntax?$1 s_923)(syntax-e$1 s_923) s_923)))" -"(if(pair? s_924)" +"(let-values(((s_922)(if(syntax?$1 s_921)(syntax-e$1 s_921) s_921)))" +"(if(pair? s_922)" "(let-values(((define-values746_0)" -"(let-values(((s_925)(car s_924))) s_925))" +"(let-values(((s_923)(car s_922))) s_923))" "((_747_0)" -"(let-values(((s_926)(cdr s_924)))" -"(let-values(((s_927)" -"(if(syntax?$1 s_926)" -"(syntax-e$1 s_926)" -" s_926)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_927)))" +"(let-values(((s_924)(cdr s_922)))" +"(let-values(((s_925)" +"(if(syntax?$1 s_924)" +"(syntax-e$1 s_924)" +" s_924)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_925)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -77915,7 +77924,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_85)" -"(let-values(((id_50)(unsafe-car lst_85))" +"(let-values(((id_51)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_393))" @@ -77924,7 +77933,7 @@ static const char *startup_source = "(cons" "(let-values()" "(remove-use-site-scopes" -" id_50" +" id_51" " ctx_124))" " fold-var_62))))" "(values fold-var_394)))))" @@ -77940,36 +77949,36 @@ static const char *startup_source = "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_463) tl-ids_2))" +"(let-values(((lst_465) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_463)))" +"(let-values()(check-list lst_465)))" "((letrec-values(((for-loop_81)" -"(lambda(fold-var_217 lst_86)" +"(lambda(fold-var_221 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_159)(unsafe-car lst_86))" -"((rest_248)(unsafe-cdr lst_86)))" +"(let-values(((id_160)(unsafe-car lst_86))" +"((rest_249)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_395) fold-var_217))" -"(let-values(((fold-var_220)" +"(let-values(((fold-var_395) fold-var_221))" +"(let-values(((fold-var_224)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_159" +" id_160" " top-level-bind-scope_6))" " fold-var_395))))" -"(values fold-var_220)))))" +"(values fold-var_224)))))" "(if(not #f)" -"(for-loop_81 fold-var_26 rest_248)" +"(for-loop_81 fold-var_26 rest_249)" " fold-var_26)))" -" fold-var_217)))))" +" fold-var_221)))))" " for-loop_81)" " null" -" lst_463))))))" +" lst_465))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" @@ -77990,19 +77999,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_26 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_493) s_0))" -"(let-values(((orig-s_99) s_493))" +"(let-values(((s_492) s_0))" +"(let-values(((orig-s_99) s_492))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_76)(if(syntax?$1 s_493)(syntax-e$1 s_493) s_493)))" +"(let-values(((s_76)(if(syntax?$1 s_492)(syntax-e$1 s_492) s_492)))" "(if(pair? s_76)" "(let-values(((define-values4_0)" -"(let-values(((s_189)(car s_76))) s_189))" +"(let-values(((s_188)(car s_76))) s_188))" "((id5_0 rhs6_0)" -"(let-values(((s_168)(cdr s_76)))" +"(let-values(((s_167)(cdr s_76)))" "(let-values(((s_5)" -"(if(syntax?$1 s_168)" -"(syntax-e$1 s_168)" -" s_168)))" +"(if(syntax?$1 s_167)" +"(syntax-e$1 s_167)" +" s_167)))" "(if(pair? s_5)" "(let-values(((id7_0)" "(let-values(((s_80)(car s_5)))" @@ -78020,7 +78029,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_99))" "(let-values()" -"(let-values(((id_53)" +"(let-values(((id_54)" "(let-values(((lst_80)" " flat-s_68))" "(begin" @@ -78031,7 +78040,7 @@ static const char *startup_source = "(check-list" " lst_80)))" "((letrec-values(((for-loop_97)" -"(lambda(id_160" +"(lambda(id_161" " lst_81)" "(begin" " 'for-loop" @@ -78040,13 +78049,13 @@ static const char *startup_source = "(let-values(((s_89)" "(unsafe-car" " lst_81))" -"((rest_119)" +"((rest_121)" "(unsafe-cdr" " lst_81)))" -"(let-values(((id_161)" "(let-values(((id_162)" -" id_160))" -"(let-values(((id_113)" +"(let-values(((id_163)" +" id_161))" +"(let-values(((id_114)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -78069,20 +78078,20 @@ static const char *startup_source = " s_89)))))" "(cons" " id10_1" -" id_162)))))" +" id_163)))))" "(values" -" id_113)))))" +" id_114)))))" "(if(not" " #f)" "(for-loop_97" -" id_161" -" rest_119)" -" id_161)))" -" id_160)))))" +" id_162" +" rest_121)" +" id_162)))" +" id_161)))))" " for-loop_97)" " null" " lst_80)))))" -"(reverse$1 id_53))))))))" +"(reverse$1 id_54))))))))" "((rhs8_0)" "(let-values(((s_307)(cdr s_5)))" "(let-values(((s_35)" @@ -78096,15 +78105,15 @@ static const char *startup_source = " s_35)))" " s_91))" "(()" -"(let-values(((s_169)" +"(let-values(((s_168)" "(cdr" " s_35)))" "(let-values(((s_308)" "(if(syntax?$1" -" s_169)" +" s_168)" "(syntax-e$1" -" s_169)" -" s_169)))" +" s_168)" +" s_168)))" "(if(null?" " s_308)" "(values)" @@ -78134,7 +78143,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_187 ctx_125)" +"(lambda(s_186 ctx_125)" "(let-values((()" "(begin" "(let-values(((obs_169)(expand-context-observer ctx_125)))" @@ -78151,9 +78160,9 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_125) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_187)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_187)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_186)))" "(let-values(((ok?_96 define-syntaxes15_0 id16_1 rhs17_0)" "(let-values(((s_18) disarmed-s_26))" "(let-values(((orig-s_100) s_18))" @@ -78161,7 +78170,7 @@ static const char *startup_source = "(let-values(((s_22)(if(syntax?$1 s_18)(syntax-e$1 s_18) s_18)))" "(if(pair? s_22)" "(let-values(((define-syntaxes18_0)" -"(let-values(((s_495)(car s_22))) s_495))" +"(let-values(((s_494)(car s_22))) s_494))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" "(let-values(((s_306)" @@ -78170,14 +78179,14 @@ static const char *startup_source = " s_25)))" "(if(pair? s_306)" "(let-values(((id21_1)" -"(let-values(((s_928)(car s_306)))" -"(let-values(((s_929)" -"(if(syntax?$1 s_928)" -"(syntax-e$1 s_928)" -" s_928)))" +"(let-values(((s_926)(car s_306)))" +"(let-values(((s_927)" +"(if(syntax?$1 s_926)" +"(syntax-e$1 s_926)" +" s_926)))" "(let-values(((flat-s_69)" "(to-syntax-list.1" -" s_929)))" +" s_927)))" "(if(not flat-s_69)" "(let-values()" "(raise-syntax-error$1" @@ -78185,8 +78194,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_163)" -"(let-values(((lst_464)" +"(let-values(((id_164)" +"(let-values(((lst_466)" " flat-s_69))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78194,84 +78203,84 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_464)))" +" lst_466)))" "((letrec-values(((for-loop_2)" -"(lambda(id_164" -" lst_465)" +"(lambda(id_165" +" lst_467)" "(begin" " 'for-loop" "(if(pair?" -" lst_465)" -"(let-values(((s_930)" +" lst_467)" +"(let-values(((s_928)" "(unsafe-car" -" lst_465))" -"((rest_270)" +" lst_467))" +"((rest_271)" "(unsafe-cdr" -" lst_465)))" -"(let-values(((id_165)" +" lst_467)))" "(let-values(((id_166)" -" id_164))" "(let-values(((id_167)" +" id_165))" +"(let-values(((id_168)" "(let-values()" "(let-values(((id24_0)" "(let-values()" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_218)" "(if(syntax?$1" -" s_930)" +" s_928)" "(symbol?" "(syntax-e$1" -" s_930))" +" s_928))" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_218" +" or-part_218" "(symbol?" -" s_930)))" -" s_930" +" s_928)))" +" s_928" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_930)))))" +" s_928)))))" "(cons" " id24_0" -" id_166)))))" -"(values" " id_167)))))" +"(values" +" id_168)))))" "(if(not" " #f)" "(for-loop_2" -" id_165" -" rest_270)" -" id_165)))" -" id_164)))))" +" id_166" +" rest_271)" +" id_166)))" +" id_165)))))" " for-loop_2)" " null" -" lst_464)))))" -"(reverse$1 id_163))))))))" +" lst_466)))))" +"(reverse$1 id_164))))))))" "((rhs22_0)" -"(let-values(((s_931)(cdr s_306)))" -"(let-values(((s_176)" -"(if(syntax?$1 s_931)" -"(syntax-e$1 s_931)" -" s_931)))" -"(if(pair? s_176)" +"(let-values(((s_929)(cdr s_306)))" +"(let-values(((s_175)" +"(if(syntax?$1 s_929)" +"(syntax-e$1 s_929)" +" s_929)))" +"(if(pair? s_175)" "(let-values(((rhs23_2)" -"(let-values(((s_451)" +"(let-values(((s_450)" "(car" -" s_176)))" -" s_451))" +" s_175)))" +" s_450))" "(()" "(let-values(((s_46)" "(cdr" -" s_176)))" -"(let-values(((s_487)" +" s_175)))" +"(let-values(((s_486)" "(if(syntax?$1" " s_46)" "(syntax-e$1" " s_46)" " s_46)))" "(if(null?" -" s_487)" +" s_486)" "(values)" "(raise-syntax-error$1" " #f" @@ -78290,38 +78299,38 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_187 ctx_125)))" +"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_125)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_125 ids_53)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" "(if(expand-context-to-parsed? ctx_125)" -"(parsed-define-syntaxes20.1 s_187 ids_53 syms_28 exp-rhs_10)" -"(let-values(((s27_3) s_187)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_186 ids_53 syms_28 exp-rhs_10)" +"(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_309 ctx_112)" +"(lambda(s_309 ctx_111)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_112) 'top-level)" +"(if(eq?(expand-context-context ctx_111) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_309)))" "(values))))" "(let-values(((ok?_38 begin-for-syntax29_0 form30_0)" -"(let-values(((s_497) s_309))" -"(let-values(((orig-s_101) s_497))" +"(let-values(((s_496) s_309))" +"(let-values(((orig-s_101) s_496))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_48)(if(syntax?$1 s_497)(syntax-e$1 s_497) s_497)))" +"(let-values(((s_48)(if(syntax?$1 s_496)(syntax-e$1 s_496) s_496)))" "(if(pair? s_48)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" "((form32_0)" -"(let-values(((s_502)(cdr s_48)))" -"(let-values(((s_778)" -"(if(syntax?$1 s_502)" -"(syntax-e$1 s_502)" -" s_502)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_778)))" +"(let-values(((s_501)(cdr s_48)))" +"(let-values(((s_776)" +"(if(syntax?$1 s_501)" +"(syntax-e$1 s_501)" +" s_501)))" +"(let-values(((flat-s_70)(to-syntax-list.1 s_776)))" "(if(not flat-s_70)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" @@ -78331,33 +78340,33 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_112)))" +"(let-values(((obs_171)(expand-context-observer ctx_111)))" "(if obs_171" "(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_112)))" +"(let-values(((obs_172)(expand-context-observer ctx_111)))" "(if obs_172" "(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_112)((temp34_7) 'top-level)((temp35_7) #t))" +"(let-values(((ctx33_0) ctx_111)((temp34_7) 'top-level)((temp35_7) #t))" "(context->transformer-context99.1 temp35_7 ctx33_0 temp34_7))))" "(let-values(((lift-ctx_7)" "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_277) trans-ctx_1))" -"(let-values(((the-struct_123) v_277))" +"(let-values(((v_278) trans-ctx_1))" +"(let-values(((the-struct_123) v_278))" "(if(expand-context/outer? the-struct_123)" "(let-values(((inner37_0)" "(let-values(((the-struct_124)" -"(root-expand-context/outer-inner v_277)))" +"(root-expand-context/outer-inner v_278)))" "(if(expand-context/inner? the-struct_124)" -"(let-values(((lift-key38_1)(generate-lift-key))" +"(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_124)" @@ -78367,7 +78376,7 @@ static const char *startup_source = "(root-expand-context/inner-all-scopes-stx the-struct_124)" "(root-expand-context/inner-defined-syms the-struct_124)" "(root-expand-context/inner-counter the-struct_124)" -" lift-key38_1" +" lift-key38_0" "(expand-context/inner-to-parsed? the-struct_124)" "(expand-context/inner-phase the-struct_124)" "(expand-context/inner-namespace the-struct_124)" @@ -78419,7 +78428,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_173)" -"(expand-context-observer ctx_112)))" +"(expand-context-observer ctx_111)))" "(if obs_173" "(let-values()" "(let-values()" @@ -78442,7 +78451,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_174)" "(expand-context-observer" -" ctx_112)))" +" ctx_111)))" "(if obs_174" "(let-values()" "(let-values()" @@ -78460,7 +78469,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_175)" "(expand-context-observer" -" ctx_112)))" +" ctx_111)))" "(if obs_175" "(let-values()" "(let-values()" @@ -78497,7 +78506,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_176)" "(expand-context-observer" -" ctx_112)))" +" ctx_111)))" "(if obs_176" "(let-values()" "(let-values()" @@ -78529,14 +78538,14 @@ static const char *startup_source = " exp-forms_0)))))))))))))" " loop_67)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_112)" +"(if(expand-context-to-parsed? ctx_111)" "(parsed-begin-for-syntax21.1 s_309 all-exp-forms_0)" "(let-values(((s45_0) s_309)((temp46_2)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #t s45_0 temp46_2))))))))))))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_166 ctx_126)" +"(lambda(s_165 ctx_126)" "(let-values((()" "(begin" "(let-values(((obs_177)(expand-context-observer ctx_126)))" @@ -78546,18 +78555,18 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_166)))" +" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_165)))" "(values))))" -"(let-values(((disarmed-s_27)(syntax-disarm$1 s_166)))" +"(let-values(((disarmed-s_27)(syntax-disarm$1 s_165)))" "(let-values(((ok?_97 #%require47_0 req48_0)" "(let-values(((s_63) disarmed-s_27))" "(let-values(((orig-s_102) s_63))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_407)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))" -"(if(pair? s_407)" -"(let-values(((#%require49_0)(let-values(((s_409)(car s_407))) s_409))" +"(let-values(((s_406)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))" +"(if(pair? s_406)" +"(let-values(((#%require49_0)(let-values(((s_409)(car s_406))) s_409))" "((req50_0)" -"(let-values(((s_415)(cdr s_407)))" +"(let-values(((s_415)(cdr s_406)))" "(let-values(((s_65)" "(if(syntax?$1 s_415)" "(syntax-e$1 s_415)" @@ -78591,7 +78600,7 @@ static const char *startup_source = "((rest_13)(unsafe-cdr lst_33)))" "(let-values(((fold-var_397)" "(let-values(((fold-var_398) fold-var_396))" -"(let-values(((fold-var_293)" +"(let-values(((fold-var_294)" "(let-values()" "(cons" "(let-values()" @@ -78599,7 +78608,7 @@ static const char *startup_source = " req_20" " sc_42))" " fold-var_398))))" -"(values fold-var_293)))))" +"(values fold-var_294)))))" "(if(not #f)" "(for-loop_25 fold-var_397 rest_13)" " fold-var_397)))" @@ -78607,7 +78616,7 @@ static const char *startup_source = " for-loop_25)" " null" " lst_32)))))" -"((s52_0) s_166)" +"((s52_0) s_165)" "((temp53_6) #f)" "((temp54_5)(expand-context-namespace ctx_126))" "((temp55_4)(expand-context-phase ctx_126))" @@ -78630,15 +78639,15 @@ static const char *startup_source = " temp54_5" " temp55_4" " temp56_5))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_166) s_166))))))))))" +"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_165) s_165))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_782 ctx_127)" +"(lambda(s_780 ctx_127)" "(begin" "(let-values(((obs_178)(expand-context-observer ctx_127)))" "(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_782)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_780)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78704,7 +78713,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_127)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_329)" "(lambda(table_220 i_182)" "(begin" " 'for-loop" @@ -78722,10 +78731,10 @@ static const char *startup_source = "(hash-set table_112 key_93 val_89)))))" "(values table_113)))))" "(if(not #f)" -"(for-loop_327 table_119(hash-iterate-next ht_127 i_182))" +"(for-loop_329 table_119(hash-iterate-next ht_127 i_182))" " table_119)))" " table_220)))))" -" for-loop_327)" +" for-loop_329)" " '#hash()" "(hash-iterate-first ht_127))))))" "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))" @@ -78751,18 +78760,18 @@ static const char *startup_source = "(let-values(((name30_0) name_85)" "((ns31_0) ns)" "((temp32_3)" -"(let-values(((or-part_163)" +"(let-values(((or-part_166)" "(eq?" " name_85" " '#%foreign)))" -"(if or-part_163" -" or-part_163" -"(let-values(((or-part_284)" +"(if or-part_166" +" or-part_166" +"(let-values(((or-part_288)" "(eq?" " name_85" " '#%futures)))" -"(if or-part_284" -" or-part_284" +"(if or-part_288" +" or-part_288" "(eq?" " name_85" " '#%unsafe)))))))" @@ -78789,5 +78798,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_775)(begin(1/datum->syntax core-stx s_775)))))" +"(define-values(datum->kernel-syntax)(lambda(s_773)(begin(1/datum->syntax core-stx s_773)))))" ;