diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index 2bb8dc6b35..80d2084f75 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -383,9 +383,9 @@ (syntax-scopes sub-s) (syntax-shifted-multi-scopes sub-s) (syntax-mpi-shifts sub-s))]) - (struct-copy syntax sub-s - [scope-propagations+tamper (tamper-tainted-for-content - (syntax-content sub-s))]))))]) + (struct-copy/t syntax sub-s + [tamper (tamper-tainted-for-content + (syntax-content sub-s))]))))]) (set-syntax-content! s new-content) (set-syntax-scope-propagations+tamper! s (tamper-propagated (if (propagation? prop) (propagation-tamper prop) diff --git a/racket/src/expander/syntax/taint.rkt b/racket/src/expander/syntax/taint.rkt index fa8f405c4e..66d27ce071 100644 --- a/racket/src/expander/syntax/taint.rkt +++ b/racket/src/expander/syntax/taint.rkt @@ -10,7 +10,9 @@ syntax-arm syntax-disarm syntax-rearm - syntax-taint) + syntax-taint + + struct-copy/t) (define-syntax struct-copy/t (syntax-rules (syntax tamper) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index abd7928f5e..f3f6a8bf9f 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -8541,10 +8541,18 @@ static const char *startup_source = "(syntax-props the-struct_11)" " inspector51_0))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))" -"(let-values(((the-struct_12) sub-s_1))" +"(let-values(((stx_8) sub-s_1))" +"(let-values(((the-struct_12) stx_8))" "(if(syntax?$1 the-struct_12)" "(let-values(((scope-propagations+tamper53_0)" -"(tamper-tainted-for-content(syntax-content sub-s_1))))" +"(let-values(((t_32)" +"(tamper-tainted-for-content" +"(syntax-content sub-s_1)))" +"((p_27)" +"(syntax-scope-propagations+tamper stx_8)))" +"(if(tamper? p_27)" +" t_32" +"((propagation-set-tamper-ref p_27) p_27 t_32)))))" "(syntax1.1" "(syntax-content the-struct_12)" "(syntax-scopes the-struct_12)" @@ -8554,7 +8562,7 @@ static const char *startup_source = "(syntax-srcloc the-struct_12)" "(syntax-props the-struct_12)" "(syntax-inspector the-struct_12)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_12))))))))" "((seen_9) #f))" "(let-values(((s_88) s_87)" "((f_28)" @@ -8624,10 +8632,10 @@ static const char *startup_source = "(lambda(s_92)" "(begin" " 'syntax-e" -"(let-values(((content_5)(syntax-e/no-taint s_92)))" +"(let-values(((content_6)(syntax-e/no-taint s_92)))" "(if(not(tamper-armed?(syntax-tamper s_92)))" -"(let-values() content_5)" -"(if(datum-has-elements? content_5)(let-values()(taint-content content_5))(let-values() content_5)))))))" +"(let-values() content_6)" +"(if(datum-has-elements? content_6)(let-values()(taint-content content_6))(let-values() content_6)))))))" "(define-values" "(generalize-scope)" "(lambda(sc_7)" @@ -8639,23 +8647,23 @@ static const char *startup_source = "(add-scope)" "(lambda(s_93 sc_8)" "(begin" -"(let-values(((s_65) s_93)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_94) s_93)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_9)" -"(let-values(((the-struct_13) s_65))" +"(let-values(((the-struct_13) s_94))" "(if(syntax?$1 the-struct_13)" "(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_65)" +"(syntax-shifted-multi-scopes s_94)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" "((scope-propagations+tamper55_0)" -"(if(datum-has-elements?(syntax-content s_65))" +"(if(datum-has-elements?(syntax-content s_94))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_65)" +"(syntax-scope-propagations+tamper s_94)" " sc_9" -"(syntax-scopes s_65)" -"(syntax-shifted-multi-scopes s_65)" -"(syntax-mpi-shifts s_65))" -"(syntax-scope-propagations+tamper s_65))))" +"(syntax-scopes s_94)" +"(syntax-shifted-multi-scopes s_94)" +"(syntax-mpi-shifts s_94))" +"(syntax-scope-propagations+tamper s_94))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -8666,18 +8674,18 @@ static const char *startup_source = "(syntax-props the-struct_13)" "(syntax-inspector the-struct_13)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_13)))" -"(let-values(((the-struct_14) s_65))" +"(let-values(((the-struct_14) s_94))" "(if(syntax?$1 the-struct_14)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_65) sc_9))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_94) sc_9))" "((scope-propagations+tamper57_0)" -"(if(datum-has-elements?(syntax-content s_65))" +"(if(datum-has-elements?(syntax-content s_94))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_65)" +"(syntax-scope-propagations+tamper s_94)" " sc_9" -"(syntax-scopes s_65)" -"(syntax-shifted-multi-scopes s_65)" -"(syntax-mpi-shifts s_65))" -"(syntax-scope-propagations+tamper s_65))))" +"(syntax-scopes s_94)" +"(syntax-shifted-multi-scopes s_94)" +"(syntax-mpi-shifts s_94))" +"(syntax-scope-propagations+tamper s_94))))" "(syntax1.1" "(syntax-content the-struct_14)" " scopes56_0" @@ -8690,50 +8698,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_14))))))))" "(define-values" "(add-scopes)" -"(lambda(s_94 scs_5)" +"(lambda(s_95 scs_5)" "(begin" "(let-values(((lst_43) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" "((letrec-values(((for-loop_56)" -"(lambda(s_95 lst_44)" +"(lambda(s_96 lst_44)" "(begin" " 'for-loop" "(if(pair? lst_44)" "(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_96)" -"(let-values(((s_97) s_95))" -"(let-values(((s_98)(let-values()(add-scope s_97 sc_10))))" -"(values s_98)))))" -"(if(not #f)(for-loop_56 s_96 rest_18) s_96)))" -" s_95)))))" +"(let-values(((s_97)" +"(let-values(((s_98) s_96))" +"(let-values(((s_99)(let-values()(add-scope s_98 sc_10))))" +"(values s_99)))))" +"(if(not #f)(for-loop_56 s_97 rest_18) s_97)))" +" s_96)))))" " for-loop_56)" -" s_94" +" s_95" " lst_43))))))" "(define-values" "(remove-scope)" -"(lambda(s_99 sc_11)" +"(lambda(s_100 sc_11)" "(begin" -"(let-values(((s_100) s_99)" +"(let-values(((s_101) s_100)" "((sc_12)(generalize-scope sc_11))" "((op_1) set-remove)" "((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_12)" -"(let-values(((the-struct_15) s_100))" +"(let-values(((the-struct_15) s_101))" "(if(syntax?$1 the-struct_15)" "(let-values(((shifted-multi-scopes58_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_100)" +"(syntax-shifted-multi-scopes s_101)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" "((scope-propagations+tamper59_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"(if(datum-has-elements?(syntax-content s_101))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_101)" " sc_12" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_101)" +"(syntax-shifted-multi-scopes s_101)" +"(syntax-mpi-shifts s_101))" +"(syntax-scope-propagations+tamper s_101))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -8744,18 +8752,18 @@ static const char *startup_source = "(syntax-props the-struct_15)" "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15)))" -"(let-values(((the-struct_16) s_100))" +"(let-values(((the-struct_16) s_101))" "(if(syntax?$1 the-struct_16)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_100) sc_12))" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_101) sc_12))" "((scope-propagations+tamper61_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"(if(datum-has-elements?(syntax-content s_101))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_101)" " sc_12" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_101)" +"(syntax-shifted-multi-scopes s_101)" +"(syntax-mpi-shifts s_101))" +"(syntax-scope-propagations+tamper s_101))))" "(syntax1.1" "(syntax-content the-struct_16)" " scopes60_0" @@ -8768,50 +8776,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_101 scs_6)" +"(lambda(s_102 scs_6)" "(begin" "(let-values(((lst_45) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" -"((letrec-values(((for-loop_57)" -"(lambda(s_102 lst_46)" +"((letrec-values(((for-loop_39)" +"(lambda(s_103 lst_46)" "(begin" " 'for-loop" "(if(pair? lst_46)" "(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_103)" -"(let-values(((s_104) s_102))" -"(let-values(((s_105)(let-values()(remove-scope s_104 sc_13))))" -"(values s_105)))))" -"(if(not #f)(for-loop_57 s_103 rest_19) s_103)))" -" s_102)))))" -" for-loop_57)" -" s_101" +"(let-values(((s_104)" +"(let-values(((s_105) s_103))" +"(let-values(((s_106)(let-values()(remove-scope s_105 sc_13))))" +"(values s_106)))))" +"(if(not #f)(for-loop_39 s_104 rest_19) s_104)))" +" s_103)))))" +" for-loop_39)" +" s_102" " lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_106 e_15)(begin(if(set-member? s_106 e_15)(set-remove s_106 e_15)(set-add s_106 e_15)))))" +"(lambda(s_107 e_15)(begin(if(set-member? s_107 e_15)(set-remove s_107 e_15)(set-add s_107 e_15)))))" "(define-values" "(flip-scope)" -"(lambda(s_107 sc_14)" +"(lambda(s_108 sc_14)" "(begin" -"(let-values(((s_108) s_107)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_109) s_108)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_15)" -"(let-values(((the-struct_17) s_108))" +"(let-values(((the-struct_17) s_109))" "(if(syntax?$1 the-struct_17)" "(let-values(((shifted-multi-scopes62_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_108)" +"(syntax-shifted-multi-scopes s_109)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" "((scope-propagations+tamper63_0)" -"(if(datum-has-elements?(syntax-content s_108))" +"(if(datum-has-elements?(syntax-content s_109))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_108)" +"(syntax-scope-propagations+tamper s_109)" " sc_15" -"(syntax-scopes s_108)" -"(syntax-shifted-multi-scopes s_108)" -"(syntax-mpi-shifts s_108))" -"(syntax-scope-propagations+tamper s_108))))" +"(syntax-scopes s_109)" +"(syntax-shifted-multi-scopes s_109)" +"(syntax-mpi-shifts s_109))" +"(syntax-scope-propagations+tamper s_109))))" "(syntax1.1" "(syntax-content the-struct_17)" "(syntax-scopes the-struct_17)" @@ -8822,18 +8830,18 @@ static const char *startup_source = "(syntax-props the-struct_17)" "(syntax-inspector the-struct_17)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17)))" -"(let-values(((the-struct_18) s_108))" +"(let-values(((the-struct_18) s_109))" "(if(syntax?$1 the-struct_18)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_108) sc_15))" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_109) sc_15))" "((scope-propagations+tamper65_0)" -"(if(datum-has-elements?(syntax-content s_108))" +"(if(datum-has-elements?(syntax-content s_109))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_108)" +"(syntax-scope-propagations+tamper s_109)" " sc_15" -"(syntax-scopes s_108)" -"(syntax-shifted-multi-scopes s_108)" -"(syntax-mpi-shifts s_108))" -"(syntax-scope-propagations+tamper s_108))))" +"(syntax-scopes s_109)" +"(syntax-shifted-multi-scopes s_109)" +"(syntax-mpi-shifts s_109))" +"(syntax-scope-propagations+tamper s_109))))" "(syntax1.1" "(syntax-content the-struct_18)" " scopes64_0" @@ -8846,29 +8854,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_109 scs_7)" +"(lambda(s_110 scs_7)" "(begin" -"(let-values(((lst_38) scs_7))" +"(let-values(((lst_47) scs_7))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_38)))" -"((letrec-values(((for-loop_58)" -"(lambda(s_110 lst_47)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_47)))" +"((letrec-values(((for-loop_57)" +"(lambda(s_111 lst_48)" "(begin" " 'for-loop" -"(if(pair? lst_47)" -"(let-values(((sc_16)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))" -"(let-values(((s_111)" -"(let-values(((s_112) s_110))" -"(let-values(((s_113)(let-values()(flip-scope s_112 sc_16))))" -"(values s_113)))))" -"(if(not #f)(for-loop_58 s_111 rest_20) s_111)))" -" s_110)))))" -" for-loop_58)" -" s_109" -" lst_38))))))" +"(if(pair? lst_48)" +"(let-values(((sc_16)(unsafe-car lst_48))((rest_20)(unsafe-cdr lst_48)))" +"(let-values(((s_112)" +"(let-values(((s_113) s_111))" +"(let-values(((s_114)(let-values()(flip-scope s_113 sc_16))))" +"(values s_114)))))" +"(if(not #f)(for-loop_57 s_112 rest_20) s_112)))" +" s_111)))))" +" for-loop_57)" +" s_110" +" lst_47))))))" "(define-values" "(push-scope)" -"(lambda(s_114 sms_6)" +"(lambda(s_115 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" @@ -8894,17 +8902,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_115) s_114)" +"(let-values(((s_116) s_115)" "((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_116 d_3)" +"(lambda(s_117 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_19) s_116))" +"(let-values(((the-struct_19) s_117))" "(if(syntax?$1 the-struct_19)" "(let-values(((content67_0) d_3)" "((shifted-multi-scopes68_0)" -"(push_0(syntax-shifted-multi-scopes s_116))))" +"(push_0(syntax-shifted-multi-scopes s_117))))" "(syntax1.1" " content67_0" "(syntax-scopes the-struct_19)" @@ -8918,10 +8926,10 @@ static const char *startup_source = "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_68)" -"(lambda(s_117)" +"(lambda(s_118)" "(begin" " 'loop" -"(let-values(((s_118) s_117)" +"(let-values(((s_119) s_118)" "((f_30)" "(lambda(tail?_25 v_79)" "(begin" @@ -8931,7 +8939,7 @@ static const char *startup_source = "(let-values()(f_29 tail?_25 v_79))))))" "((seen_12) seen_11))" "((letrec-values(((loop_69)" -"(lambda(tail?_26 s_119 prev-depth_5)" +"(lambda(tail?_26 s_120 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(add1 prev-depth_5)))" @@ -8939,53 +8947,53 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_26" -" s_119" -"(lambda(tail?_27 s_120)(f_30 tail?_27 s_120))" +" s_120" +"(lambda(tail?_27 s_121)(f_30 tail?_27 s_121))" " seen_12))" -"(if(null? s_119)" -"(let-values()(f_30 tail?_26 s_119))" -"(if(pair? s_119)" +"(if(null? s_120)" +"(let-values()(f_30 tail?_26 s_120))" +"(if(pair? s_120)" "(let-values()" "(f_30" " tail?_26" "(cons" -"(loop_69 #f(car s_119) depth_5)" -"(loop_69 #t(cdr s_119) depth_5))))" -"(if(let-values(((or-part_109)(symbol? s_119)))" +"(loop_69 #f(car s_120) depth_5)" +"(loop_69 #t(cdr s_120) depth_5))))" +"(if(let-values(((or-part_109)(symbol? s_120)))" "(if or-part_109" " or-part_109" -"(let-values(((or-part_91)" -"(boolean? s_119)))" -"(if or-part_91" -" or-part_91" -"(number? s_119)))))" -"(let-values()(f_30 #f s_119))" -"(if(let-values(((or-part_14)(vector? s_119)))" -"(if or-part_14" -" or-part_14" -"(let-values(((or-part_110)(box? s_119)))" +"(let-values(((or-part_110)" +"(boolean? s_120)))" "(if or-part_110" " or-part_110" -"(let-values(((or-part_111)" -"(prefab-struct-key" -" s_119)))" +"(number? s_120)))))" +"(let-values()(f_30 #f s_120))" +"(if(let-values(((or-part_111)(vector? s_120)))" "(if or-part_111" " or-part_111" -"(hash? s_119)))))))" +"(let-values(((or-part_112)(box? s_120)))" +"(if or-part_112" +" or-part_112" +"(let-values(((or-part_113)" +"(prefab-struct-key" +" s_120)))" +"(if or-part_113" +" or-part_113" +"(hash? s_120)))))))" "(let-values()" "(datum-map-slow" " tail?_26" -" s_119" -"(lambda(tail?_28 s_121)" -"(f_30 tail?_28 s_121))" +" s_120" +"(lambda(tail?_28 s_122)" +"(f_30 tail?_28 s_122))" " seen_12))" -"(let-values()(f_30 #f s_119))))))))))))" +"(let-values()(f_30 #f s_120))))))))))))" " loop_69)" " #f" -" s_118" +" s_119" " 0))))))" " loop_68)" -" s_115))))))))" +" s_116))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9008,8 +9016,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_27 v_80)(propagation-set-tamper p_27 v_80)))" -"(cons prop:propagation-tamper(lambda(p_28)(propagation-tamper p_28)))" +"(cons prop:propagation-set-tamper(lambda(p_28 v_6)(propagation-set-tamper p_28 v_6)))" +"(cons prop:propagation-tamper(lambda(p_29)(propagation-tamper p_29)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -9110,10 +9118,10 @@ static const char *startup_source = "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" "(if(if add_0 base-add_0 #f)" "(lambda(mss_0)(begin 'add-mpi-shifts73(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_112) add_0))(if or-part_112 or-part_112 base-add_0)))))" +"(let-values(((or-part_114) add_0))(if or-part_114 or-part_114 base-add_0)))))" "((inspector74_0)" -"(let-values(((or-part_113)(propagation-inspector prop_7)))" -"(if or-part_113 or-part_113 inspector_2))))" +"(let-values(((or-part_115)(propagation-inspector prop_7)))" +"(if or-part_115 or-part_115 inspector_2))))" "(propagation14.1" "(propagation-prev-scs the-struct_23)" "(propagation-prev-smss the-struct_23)" @@ -9137,7 +9145,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_52)))" -"((letrec-values(((for-loop_59)" +"((letrec-values(((for-loop_58)" "(lambda(scs_9 i_65)" "(begin" " 'for-loop" @@ -9168,12 +9176,12 @@ static const char *startup_source = "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_59" +"(for-loop_58" " scs_10" "(unsafe-immutable-hash-iterate-next ht_52 i_65))" " scs_10)))" " scs_9)))))" -" for-loop_59)" +" for-loop_58)" " scs_8" "(unsafe-immutable-hash-iterate-first ht_52))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" @@ -9192,7 +9200,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_53)))" -"((letrec-values(((for-loop_60)" +"((letrec-values(((for-loop_59)" "(lambda(smss_14 i_66)" "(begin" " 'for-loop" @@ -9229,12 +9237,12 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_60" +"(for-loop_59" " smss_15" "(unsafe-immutable-hash-iterate-next ht_53 i_66))" " smss_15)))" " smss_14)))))" -" for-loop_60)" +" for-loop_59)" " smss_13" "(unsafe-immutable-hash-iterate-first ht_53))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" @@ -9251,15 +9259,15 @@ static const char *startup_source = "(define-values" "(propagation-apply-inspector)" "(lambda(prop_11 i_67)" -"(begin(let-values(((or-part_114) i_67))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" +"(begin(let-values(((or-part_116) i_67))(if or-part_116 or-part_116(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" -"(lambda(prop_12 t_32)" +"(lambda(prop_12 t_33)" "(begin" "(if(propagation? prop_12)" "(let-values(((the-struct_24) prop_12))" "(if(propagation? the-struct_24)" -"(let-values(((tamper75_0) t_32))" +"(let-values(((tamper75_0) t_33))" "(propagation14.1" "(propagation-prev-scs the-struct_24)" "(propagation-prev-smss the-struct_24)" @@ -9269,12 +9277,12 @@ static const char *startup_source = "(propagation-inspector the-struct_24)" " tamper75_0))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))" -" t_32))))" +" t_33))))" "(define-values" "(propagation-merge)" -"(lambda(content_6 prop_13 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)" +"(lambda(content_7 prop_13 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)" "(begin" -"(if(not(datum-has-elements? content_6))" +"(if(not(datum-has-elements? content_7))" "(let-values()(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted base-prop_0))" "(if(not(propagation? base-prop_0))" "(let-values()" @@ -9302,15 +9310,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_54)))" -"((letrec-values(((for-loop_61)" -"(lambda(ops_1 i_68)" +"((letrec-values(((for-loop_60)" +"(lambda(ops_1 i_15)" "(begin" " 'for-loop" -"(if i_68" +"(if i_15" "(let-values(((sc_21 op_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_54" -" i_68)))" +" i_15)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" @@ -9366,19 +9374,19 @@ static const char *startup_source = " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_61" +"(for-loop_60" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_54 i_68))" +"(unsafe-immutable-hash-iterate-next ht_54 i_15))" " ops_2)))" " ops_1)))))" -" for-loop_61)" +" for-loop_60)" "(propagation-scope-ops base-prop_0)" "(unsafe-immutable-hash-iterate-first ht_54))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" -"(if(let-values(((or-part_115)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_115 or-part_115(tamper-tainted?(propagation-tamper base-prop_0))))" +"(if(let-values(((or-part_117)(tamper-tainted?(propagation-tamper prop_13))))" +"(if or-part_117 or-part_117(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -9395,10 +9403,10 @@ static const char *startup_source = "((add-mpi-shifts77_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts77(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_116) add_2))(if or-part_116 or-part_116 base-add_1))))" +"(let-values(((or-part_118) add_2))(if or-part_118 or-part_118 base-add_1))))" "((inspector78_0)" -"(let-values(((or-part_117)(propagation-inspector base-prop_0)))" -"(if or-part_117 or-part_117(propagation-inspector prop_13))))" +"(let-values(((or-part_119)(propagation-inspector base-prop_0)))" +"(if or-part_119 or-part_119(propagation-inspector prop_13))))" "((tamper79_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_25)" @@ -9431,11 +9439,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_122 phase_11)" +"(lambda(s_123 phase_11)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_11 0)" -" s_122" +" s_123" "(let-values()" "(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9456,15 +9464,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_62)" -"(lambda(table_65 i_69)" +"((letrec-values(((for-loop_61)" +"(lambda(table_65 i_68)" "(begin" " 'for-loop" -"(if i_69" +"(if i_68" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" " ht_55" -" i_69)))" +" i_68)))" "(let-values(((table_66)" "(let-values(((new-sms_0)" "(shift-multi-scope" @@ -9472,7 +9480,7 @@ static const char *startup_source = " phase_11)))" "(begin" " #t" -"((letrec-values(((for-loop_63)" +"((letrec-values(((for-loop_62)" "(lambda(table_67)" "(begin" " 'for-loop" @@ -9500,31 +9508,31 @@ static const char *startup_source = " table_71)))" " table_69))))" " table_68))))))" -" for-loop_63)" +" for-loop_62)" " table_65)))))" "(if(not #f)" -"(for-loop_62" +"(for-loop_61" " table_66" "(unsafe-immutable-hash-iterate-next" " ht_55" -" i_69))" +" i_68))" " table_66)))" " table_65)))))" -" for-loop_62)" +" for-loop_61)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_55)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_123) s_122)" +"(let-values(((s_124) s_123)" "((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_124 d_5)" +"(lambda(s_125 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_26) s_124))" +"(let-values(((the-struct_26) s_125))" "(if(syntax?$1 the-struct_26)" "(let-values(((content81_0) d_5)" "((shifted-multi-scopes82_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_124))))" +"(shift-all_0(syntax-shifted-multi-scopes s_125))))" "(syntax1.1" " content81_0" "(syntax-scopes the-struct_26)" @@ -9538,20 +9546,20 @@ static const char *startup_source = "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_70)" -"(lambda(s_125)" +"(lambda(s_126)" "(begin" " 'loop" -"(let-values(((s_126) s_125)" +"(let-values(((s_127) s_126)" "((f_32)" -"(lambda(tail?_30 v_81)" +"(lambda(tail?_30 v_80)" "(begin" " 'f" -"(if(syntax?$1 v_81)" -"(let-values()(d->s_2 v_81(loop_70(s-e_2 v_81))))" -"(let-values()(f_31 tail?_30 v_81))))))" +"(if(syntax?$1 v_80)" +"(let-values()(d->s_2 v_80(loop_70(s-e_2 v_80))))" +"(let-values()(f_31 tail?_30 v_80))))))" "((seen_14) seen_13))" "((letrec-values(((loop_71)" -"(lambda(tail?_31 s_127 prev-depth_6)" +"(lambda(tail?_31 s_128 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(add1 prev-depth_6)))" @@ -9559,62 +9567,62 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_31" -" s_127" -"(lambda(tail?_32 s_128)(f_32 tail?_32 s_128))" +" s_128" +"(lambda(tail?_32 s_129)(f_32 tail?_32 s_129))" " seen_14))" -"(if(null? s_127)" -"(let-values()(f_32 tail?_31 s_127))" -"(if(pair? s_127)" +"(if(null? s_128)" +"(let-values()(f_32 tail?_31 s_128))" +"(if(pair? s_128)" "(let-values()" "(f_32" " tail?_31" "(cons" -"(loop_71 #f(car s_127) depth_6)" -"(loop_71 #t(cdr s_127) depth_6))))" -"(if(let-values(((or-part_118)" -"(symbol? s_127)))" -"(if or-part_118" -" or-part_118" -"(let-values(((or-part_119)" -"(boolean? s_127)))" -"(if or-part_119" -" or-part_119" -"(number? s_127)))))" -"(let-values()(f_32 #f s_127))" +"(loop_71 #f(car s_128) depth_6)" +"(loop_71 #t(cdr s_128) depth_6))))" "(if(let-values(((or-part_120)" -"(vector? s_127)))" +"(symbol? s_128)))" "(if or-part_120" " or-part_120" "(let-values(((or-part_121)" -"(box? s_127)))" +"(boolean? s_128)))" "(if or-part_121" " or-part_121" -"(let-values(((or-part_122)" -"(prefab-struct-key" -" s_127)))" +"(number? s_128)))))" +"(let-values()(f_32 #f s_128))" +"(if(let-values(((or-part_122)" +"(vector? s_128)))" "(if or-part_122" " or-part_122" -"(hash? s_127)))))))" +"(let-values(((or-part_123)" +"(box? s_128)))" +"(if or-part_123" +" or-part_123" +"(let-values(((or-part_124)" +"(prefab-struct-key" +" s_128)))" +"(if or-part_124" +" or-part_124" +"(hash? s_128)))))))" "(let-values()" "(datum-map-slow" " tail?_31" -" s_127" -"(lambda(tail?_33 s_129)" -"(f_32 tail?_33 s_129))" +" s_128" +"(lambda(tail?_33 s_130)" +"(f_32 tail?_33 s_130))" " seen_14))" -"(let-values()(f_32 #f s_127))))))))))))" +"(let-values()(f_32 #f s_128))))))))))))" " loop_71)" " #f" -" s_126" +" s_127" " 0))))))" " loop_70)" -" s_123))))))))))" +" s_124))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_130 src-scopes_0 dest-scopes_0)" +"(lambda(s_131 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_130" +" s_131" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" "(let-values(((ht_56) src-scopes_0))" @@ -9622,13 +9630,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_64)" -"(lambda(table_72 i_70)" +"((letrec-values(((for-loop_63)" +"(lambda(table_72 i_69)" "(begin" " 'for-loop" -"(if i_70" +"(if i_69" "(let-values(((sc_22)" -"(unsafe-immutable-hash-iterate-key ht_56 i_70)))" +"(unsafe-immutable-hash-iterate-key ht_56 i_69)))" "(let-values(((table_73)" "(let-values(((table_74) table_72))" "(let-values(((table_75)" @@ -9646,12 +9654,12 @@ static const char *startup_source = " val_17)))))" "(values table_75)))))" "(if(not #f)" -"(for-loop_64" +"(for-loop_63" " table_73" -"(unsafe-immutable-hash-iterate-next ht_56 i_70))" +"(unsafe-immutable-hash-iterate-next ht_56 i_69))" " table_73)))" " table_72)))))" -" for-loop_64)" +" for-loop_63)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_56))))" " shifted-multi-scope?" @@ -9664,13 +9672,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_65)" -"(lambda(table_76 i_71)" +"((letrec-values(((for-loop_64)" +"(lambda(table_76 i_70)" "(begin" " 'for-loop" -"(if i_71" +"(if i_70" "(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_57 i_71)))" +"(unsafe-immutable-hash-iterate-key ht_57 i_70)))" "(let-values(((table_77)" "(let-values(((table_78) table_76))" "(let-values(((table_79)" @@ -9688,12 +9696,12 @@ static const char *startup_source = " val_18)))))" "(values table_79)))))" "(if(not #f)" -"(for-loop_65" +"(for-loop_64" " table_77" -"(unsafe-immutable-hash-iterate-next ht_57 i_71))" +"(unsafe-immutable-hash-iterate-next ht_57 i_70))" " table_77)))" " table_76)))))" -" for-loop_65)" +" for-loop_64)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_57))))" " shifted-multi-scope?" @@ -9732,18 +9740,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_131) s_130)" +"(let-values(((s_132) s_131)" "((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_132 d_7)" +"(lambda(s_133 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_27) s_132))" +"(let-values(((the-struct_27) s_133))" "(if(syntax?$1 the-struct_27)" "(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_132)))" +"((scopes86_0)(swap-scs_0(syntax-scopes s_133)))" "((shifted-multi-scopes87_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_132))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_133))))" "(syntax1.1" " content85_0" " scopes86_0" @@ -9757,20 +9765,20 @@ static const char *startup_source = "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_72)" -"(lambda(s_133)" +"(lambda(s_134)" "(begin" " 'loop" -"(let-values(((s_134) s_133)" +"(let-values(((s_135) s_134)" "((f_34)" -"(lambda(tail?_35 v_82)" +"(lambda(tail?_35 v_81)" "(begin" " 'f" -"(if(syntax?$1 v_82)" -"(let-values()(d->s_3 v_82(loop_72(s-e_3 v_82))))" -"(let-values()(f_33 tail?_35 v_82))))))" +"(if(syntax?$1 v_81)" +"(let-values()(d->s_3 v_81(loop_72(s-e_3 v_81))))" +"(let-values()(f_33 tail?_35 v_81))))))" "((seen_16) seen_15))" "((letrec-values(((loop_73)" -"(lambda(tail?_36 s_135 prev-depth_7)" +"(lambda(tail?_36 s_136 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(add1 prev-depth_7)))" @@ -9778,82 +9786,82 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_36" -" s_135" -"(lambda(tail?_37 s_136)" -"(f_34 tail?_37 s_136))" +" s_136" +"(lambda(tail?_37 s_137)" +"(f_34 tail?_37 s_137))" " seen_16))" -"(if(null? s_135)" -"(let-values()(f_34 tail?_36 s_135))" -"(if(pair? s_135)" +"(if(null? s_136)" +"(let-values()(f_34 tail?_36 s_136))" +"(if(pair? s_136)" "(let-values()" "(f_34" " tail?_36" "(cons" -"(loop_73 #f(car s_135) depth_7)" -"(loop_73 #t(cdr s_135) depth_7))))" -"(if(let-values(((or-part_123)" -"(symbol? s_135)))" -"(if or-part_123" -" or-part_123" -"(let-values(((or-part_124)" -"(boolean? s_135)))" -"(if or-part_124" -" or-part_124" -"(number? s_135)))))" -"(let-values()(f_34 #f s_135))" +"(loop_73 #f(car s_136) depth_7)" +"(loop_73 #t(cdr s_136) depth_7))))" "(if(let-values(((or-part_125)" -"(vector? s_135)))" +"(symbol? s_136)))" "(if or-part_125" " or-part_125" "(let-values(((or-part_126)" -"(box? s_135)))" +"(boolean? s_136)))" "(if or-part_126" " or-part_126" -"(let-values(((or-part_127)" -"(prefab-struct-key" -" s_135)))" +"(number? s_136)))))" +"(let-values()(f_34 #f s_136))" +"(if(let-values(((or-part_127)" +"(vector? s_136)))" "(if or-part_127" " or-part_127" -"(hash? s_135)))))))" +"(let-values(((or-part_128)" +"(box? s_136)))" +"(if or-part_128" +" or-part_128" +"(let-values(((or-part_129)" +"(prefab-struct-key" +" s_136)))" +"(if or-part_129" +" or-part_129" +"(hash? s_136)))))))" "(let-values()" "(datum-map-slow" " tail?_36" -" s_135" -"(lambda(tail?_38 s_137)" -"(f_34 tail?_38 s_137))" +" s_136" +"(lambda(tail?_38 s_138)" +"(f_34 tail?_38 s_138))" " seen_16))" "(let-values()" -"(f_34 #f s_135))))))))))))" +"(f_34 #f s_136))))))))))))" " loop_73)" " #f" -" s_134" +" s_135" " 0))))))" " loop_72)" -" s_131)))))))))))))" +" s_132)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_138 phase_12)" -"(begin(scope-set-at-fallback s_138(fallback-first(syntax-shifted-multi-scopes s_138)) phase_12))))" +"(lambda(s_139 phase_12)" +"(begin(scope-set-at-fallback s_139(fallback-first(syntax-shifted-multi-scopes s_139)) phase_12))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_139 smss_24 phase_13)" +"(lambda(s_140 smss_24 phase_13)" "(begin" "(let-values(((ht_58) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_66)" -"(lambda(scopes_9 i_72)" +"((letrec-values(((for-loop_65)" +"(lambda(scopes_9 i_71)" "(begin" " 'for-loop" -"(if i_72" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_72)))" +"(if i_71" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_71)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_128)(label-phase? phase_13)))" -"(if or-part_128" -" or-part_128" +"(if(let-values(((or-part_130)(label-phase? phase_13)))" +"(if or-part_130" +" or-part_130" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -9873,11 +9881,11 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_66 scopes_10(unsafe-immutable-hash-iterate-next ht_58 i_72))" +"(for-loop_65 scopes_10(unsafe-immutable-hash-iterate-next ht_58 i_71))" " scopes_10)))" " scopes_9)))))" -" for-loop_66)" -"(syntax-scopes s_139)" +" for-loop_65)" +"(syntax-scopes s_140)" "(unsafe-immutable-hash-iterate-first ht_58)))))))" "(define-values" "(find-max-scope)" @@ -9890,12 +9898,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_59)))" -"((letrec-values(((for-loop_67)" -"(lambda(max-sc_0 i_73)" +"((letrec-values(((for-loop_66)" +"(lambda(max-sc_0 i_72)" "(begin" " 'for-loop" -"(if i_73" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_59 i_73)))" +"(if i_72" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_59 i_72)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -9903,10 +9911,10 @@ static const char *startup_source = "(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_67 max-sc_1(unsafe-immutable-hash-iterate-next ht_59 i_73))" +"(for-loop_66 max-sc_1(unsafe-immutable-hash-iterate-next ht_59 i_72))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_67)" +" for-loop_66)" "(set-first scopes_14)" "(unsafe-immutable-hash-iterate-first ht_59))))))))" "(define-values" @@ -9947,19 +9955,19 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_140)" +"(lambda(s_141)" "(begin" -"(let-values(((ht_60)(syntax-scopes s_140)))" +"(let-values(((ht_60)(syntax-scopes s_141)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_60)))" -"((letrec-values(((for-loop_68)" -"(lambda(result_44 i_74)" +"((letrec-values(((for-loop_67)" +"(lambda(result_44 i_73)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_60 i_74)))" +"(if i_73" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_60 i_73)))" "(let-values(((result_45)" "(let-values()" "(let-values(((result_46)" @@ -9967,10 +9975,10 @@ static const char *startup_source = "(let-values()(eq?(scope-kind sc_25) 'macro)))))" "(values result_46)))))" "(if(if(not((lambda x_35 result_45) sc_25))(not #f) #f)" -"(for-loop_68 result_45(unsafe-immutable-hash-iterate-next ht_60 i_74))" +"(for-loop_67 result_45(unsafe-immutable-hash-iterate-next ht_60 i_73))" " result_45)))" " result_44)))))" -" for-loop_68)" +" for-loop_67)" " #f" "(unsafe-immutable-hash-iterate-first ht_60)))))))" "(define-values" @@ -9987,14 +9995,14 @@ static const char *startup_source = " phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_141) s38_0))" +"(let-values(((s_142) s38_0))" "(let-values(((phase_14) phase39_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" "(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" "(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_15)(syntax-content s_141)))" +"(let-values(((sym_15)(syntax-content s_142)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10005,7 +10013,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_15" " phase_14" -"(syntax-scopes s_141)" +"(syntax-scopes s_142)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -10021,7 +10029,7 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_141" +" s_142" "(fallback-first smss_25)" " phase_14)))" "(let-values(((best-scopes_0 best-binding_0)" @@ -10032,17 +10040,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys ht_61)))" -"((letrec-values(((for-loop_69)" +"((letrec-values(((for-loop_68)" "(lambda(best-scopes_1" " best-binding_1" -" i_75)" +" i_74)" "(begin" " 'for-loop" -"(if i_75" +"(if i_74" "(let-values(((sc_26)" "(unsafe-immutable-hash-iterate-key" " ht_61" -" i_75)))" +" i_74)))" "(let-values(((best-scopes_2" " best-binding_2)" "(let-values(((ht_62" @@ -10066,47 +10074,47 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_80)))))" -"((s_142)" -" s_141)" +"((s_143)" +" s_142)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_70)" +"((letrec-values(((for-loop_69)" "(lambda(best-scopes_3" " best-binding_3" -" i_76)" +" i_75)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_76))" +" i_75))" "(let-values(((b-scopes_0)" "(if(pair?" -" i_76)" +" i_75)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_76)))" +" i_75)))" "(let-values()" "(hash-iterate-key" " ht_62" -" i_76))))" +" i_75))))" "((binding_4)" "(if(pair?" -" i_76)" +" i_75)" "(let-values()" "(let-values(((bulk_3)" "(bulk-binding-at-bulk" "(car" -" i_76))))" +" i_75))))" "(let-values(((b-info_0)" "(if(symbol-interned?" " sym_15)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_142" +" s_143" " extra-shifts_3)" " sym_15" " #f)" @@ -10121,7 +10129,7 @@ static const char *startup_source = "(let-values()" "(hash-iterate-value" " ht_62" -" i_76)))))" +" i_75)))))" "(let-values(((best-scopes_4" " best-binding_4)" "(let-values(((best-scopes_5)" @@ -10145,7 +10153,7 @@ static const char *startup_source = "(if(pair?" " best-scopes_6)" "(let-values()" -"(if(let-values(((lst_48)" +"(if(let-values(((lst_49)" " best-scopes_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -10153,20 +10161,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_48)))" -"((letrec-values(((for-loop_71)" +" lst_49)))" +"((letrec-values(((for-loop_70)" "(lambda(result_47" -" lst_49)" +" lst_50)" "(begin" " 'for-loop" "(if(pair?" -" lst_49)" +" lst_50)" "(let-values(((amb-scopes_0)" "(unsafe-car" -" lst_49))" +" lst_50))" "((rest_21)" "(unsafe-cdr" -" lst_49)))" +" lst_50)))" "(let-values(((result_48)" "(let-values()" "(let-values(((result_49)" @@ -10185,14 +10193,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_71" +"(for-loop_70" " result_48" " rest_21)" " result_48)))" " result_47)))))" -" for-loop_71)" +" for-loop_70)" " #t" -" lst_48)))" +" lst_49)))" "(let-values()" "(values" " b-scopes_0" @@ -10237,21 +10245,21 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_70" +"(for-loop_69" " best-scopes_4" " best-binding_4" "(if(pair?" -" i_76)" +" i_75)" "(let-values()" "(cdr" -" i_76))" +" i_75))" "(let-values()" -"(let-values(((or-part_129)" +"(let-values(((or-part_131)" "(hash-iterate-next" " ht_62" -" i_76)))" -"(if or-part_129" -" or-part_129" +" i_75)))" +"(if or-part_131" +" or-part_131" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -10259,29 +10267,29 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_70)" +" for-loop_69)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_130)" +"(let-values(((or-part_132)" "(hash-iterate-first" " ht_62)))" -"(if or-part_130" -" or-part_130" +"(if or-part_132" +" or-part_132" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_69" +"(for-loop_68" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" " ht_61" -" i_75))" +" i_74))" "(values" " best-scopes_2" " best-binding_2))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_69)" +" for-loop_68)" " #f" " #f" "(unsafe-immutable-hash-iterate-first ht_61))))))" @@ -10296,12 +10304,12 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_141)" +"(syntax-scopes s_142)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_131)(not exactly?_0)))" -"(if or-part_131" -" or-part_131" +"(if(let-values(((or-part_133)(not exactly?_0)))" +"(if or-part_133" +" or-part_133" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -10312,14 +10320,14 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_141)" +"(syntax-scopes s_142)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_141)))))))))))))" +"(syntax-shifted-multi-scopes s_142)))))))))))))" "(define-values" "(bound-identifier=?$1)" "(lambda(a_32 b_40 phase_15)" @@ -10358,12 +10366,12 @@ static const char *startup_source = " props1_0" "(syntax-inspector the-struct_28)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_28))))))" -"((s_143 key_29 val_19 preserved?_0)" +"((s_144 key_29 val_19 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_143)" +"(if(syntax?$1 s_144)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_143)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_144)))" "(values))))" "(let-values((()" "(begin" @@ -10382,9 +10390,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_19) val_19)))" -"(let-values(((the-struct_29) s_143))" +"(let-values(((the-struct_29) s_144))" "(if(syntax?$1 the-struct_29)" -"(let-values(((props2_0)(hash-set(syntax-props s_143) key_29 pval_1)))" +"(let-values(((props2_0)(hash-set(syntax-props s_144) key_29 pval_1)))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -10397,34 +10405,34 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29)))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_144 key_30)" +"(lambda(s_145 key_30)" "(begin" " 'syntax-property-preserved?" "(begin" -" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_144)))" +" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_145)))" "(if(if(symbol? key_30)(symbol-interned? key_30) #f)" "(void)" " (let-values () (raise-argument-error 'syntax-property \"(and/c symbol? symbol-interned?)\" key_30)))" -"(preserved-property-value?(hash-ref(syntax-props s_144) key_30 #f))))))" +"(preserved-property-value?(hash-ref(syntax-props s_145) key_30 #f))))))" "(define-values" "(1/syntax-property-symbol-keys)" -"(lambda(s_145)" +"(lambda(s_146)" "(begin" " 'syntax-property-symbol-keys" "(begin" -" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_145)))" +" (if (syntax?$1 s_146) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_146)))" "(reverse$1" -"(let-values(((ht_63)(syntax-props s_145)))" +"(let-values(((ht_63)(syntax-props s_146)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_63)))" -"((letrec-values(((for-loop_72)" -"(lambda(fold-var_30 i_77)" +"((letrec-values(((for-loop_71)" +"(lambda(fold-var_30 i_76)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((k_16 v_83)(unsafe-immutable-hash-iterate-key+value ht_63 i_77)))" +"(if i_76" +"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_63 i_76)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -10435,10 +10443,10 @@ static const char *startup_source = "(values fold-var_34)))" " fold-var_32))))" "(if(not #f)" -"(for-loop_72 fold-var_31(unsafe-immutable-hash-iterate-next ht_63 i_77))" +"(for-loop_71 fold-var_31(unsafe-immutable-hash-iterate-next ht_63 i_76))" " fold-var_31)))" " fold-var_30)))))" -" for-loop_72)" +" for-loop_71)" " null" "(unsafe-immutable-hash-iterate-first ht_63)))))))))" "(define-values" @@ -10569,11 +10577,11 @@ static const char *startup_source = "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" "(if(identifier? v_26)" -"(let-values()(lambda(t_33) v_26))" +"(let-values()(lambda(t_34) v_26))" "(if(integer? v_26)" "(let-values()" -"(lambda(t_34)" -"(let-values(((val_20)(ref_0 t_34 v_26)))" +"(lambda(t_35)" +"(let-values(((val_20)(ref_0 t_35 v_26)))" "(if(identifier? val_20) val_20(datum->syntax$1 #f '?)))))" "(let-values()" "(lambda(t_13)" @@ -10618,7 +10626,7 @@ static const char *startup_source = "(id-rename-transformer1.1 id_1)))))" "(define-values" "(1/rename-transformer-target)" -"(lambda(t_35)(begin 'rename-transformer-target((rename-transformer-value t_35) t_35))))" +"(lambda(t_36)(begin 'rename-transformer-target((rename-transformer-value t_36) t_36))))" "(define-values" "(free-identifier=?$1)" "(lambda(a_33 b_45 a-phase_0 b-phase_0)" @@ -10794,13 +10802,13 @@ static const char *startup_source = "(if(syntax?$1 the-struct_31)" "(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_24)))" "((inspector71_0)" -"(let-values(((or-part_132)(syntax-inspector s_24)))" -"(if or-part_132 or-part_132 inspector_3)))" +"(let-values(((or-part_134)(syntax-inspector s_24)))" +"(if or-part_134 or-part_134 inspector_3)))" "((scope-propagations+tamper72_0)" "(if(datum-has-elements?(syntax-content s_24))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_24)" -"(lambda(s_146)(cons shift_0 s_146))" +"(lambda(s_147)(cons shift_0 s_147))" " inspector_3" "(syntax-scopes s_24)" "(syntax-shifted-multi-scopes s_24)" @@ -10832,7 +10840,7 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_147) s28_1))" +"(let-values(((s_148) s28_1))" "(let-values(((phase_21) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" @@ -10841,7 +10849,7 @@ static const char *startup_source = "(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_147)" +"(let-values(((s73_0) s_148)" "((phase74_0) phase_21)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" @@ -10863,7 +10871,7 @@ static const char *startup_source = " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_21)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_147)))" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_148)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10883,7 +10891,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_147)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_148)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10908,30 +10916,30 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_147))" +"((s90_0) s_148))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_1)" "(reverse$1" -"(let-values(((lst_50)" +"(let-values(((lst_51)" "(module-binding-extra-nominal-bindings" " b_50)))" "(begin" "(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)" +"(let-values()(check-list lst_51)))" +"((letrec-values(((for-loop_72)" +"(lambda(fold-var_35 lst_52)" "(begin" " 'for-loop" -"(if(pair? lst_51)" +"(if(pair? lst_52)" "(let-values(((b_51)" "(unsafe-car" -" lst_51))" +" lst_52))" "((rest_22)" "(unsafe-cdr" -" lst_51)))" +" lst_52)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" " fold-var_35))" @@ -10946,14 +10954,14 @@ static const char *startup_source = "(values" " fold-var_38)))))" "(if(not #f)" -"(for-loop_73" +"(for-loop_72" " fold-var_36" " rest_22)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_73)" +" for-loop_72)" " null" -" lst_50))))))" +" lst_51))))))" "(module-binding-update48.1" " #f" " #f" @@ -10979,7 +10987,7 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_147))" +"(let-values()(syntax-e$1 s_148))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" @@ -11012,18 +11020,18 @@ static const char *startup_source = "((temp93_0)(module-path-index-shift(module-binding-nominal-module b_53) from-mpi_2 to-mpi_2))" "((temp94_0)" "(reverse$1" -"(let-values(((lst_52)(module-binding-extra-nominal-bindings b_53)))" +"(let-values(((lst_53)(module-binding-extra-nominal-bindings b_53)))" "(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_53)))" +"((letrec-values(((for-loop_73)" +"(lambda(fold-var_39 lst_54)" "(begin" " 'for-loop" -"(if(pair? lst_53)" -"(let-values(((b_37)(unsafe-car lst_53))" -"((rest_23)(unsafe-cdr lst_53)))" +"(if(pair? lst_54)" +"(let-values(((b_37)(unsafe-car lst_54))" +"((rest_23)(unsafe-cdr lst_54)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41) fold-var_39))" "(let-values(((fold-var_42)" @@ -11036,11 +11044,11 @@ static const char *startup_source = " to-mpi_2))" " fold-var_41))))" "(values fold-var_42)))))" -"(if(not #f)(for-loop_74 fold-var_40 rest_23) fold-var_40)))" +"(if(not #f)(for-loop_73 fold-var_40 rest_23) fold-var_40)))" " fold-var_39)))))" -" for-loop_74)" +" for-loop_73)" " null" -" lst_52))))))" +" lst_53))))))" "(module-binding-update48.1" " #f" " #f" @@ -11080,33 +11088,33 @@ static const char *startup_source = "(if(if(null? shifts_2) inspector_4 #f)" "(let-values()(syntax-set-inspector to-s_0 inspector_4))" "(let-values()" -"(let-values(((lst_54)(reverse$1 shifts_2))((start_12) 0))" +"(let-values(((lst_55)(reverse$1 shifts_2))((start_12) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_54)))" +"(let-values()(check-list lst_55)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_75)" -"(lambda(s_39 lst_55 pos_9)" +"((letrec-values(((for-loop_74)" +"(lambda(s_39 lst_56 pos_9)" "(begin" " 'for-loop" -"(if(if(pair? lst_55) #t #f)" -"(let-values(((shift_3)(unsafe-car lst_55))" -"((rest_24)(unsafe-cdr lst_55))" -"((i_78) pos_9))" -"(let-values(((s_148)" -"(let-values(((s_149) s_39))" -"(let-values(((s_150)" +"(if(if(pair? lst_56) #t #f)" +"(let-values(((shift_3)(unsafe-car lst_56))" +"((rest_24)(unsafe-cdr lst_56))" +"((i_77) pos_9))" +"(let-values(((s_149)" +"(let-values(((s_150) s_39))" +"(let-values(((s_90)" "(let-values()" -"(let-values(((s95_0) s_149)" +"(let-values(((s95_0) s_150)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_78)" +"(if(zero? i_77)" " inspector_4" " #f))" "((non-source?99_0)" @@ -11119,31 +11127,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_150)))))" -"(if(not #f)(for-loop_75 s_148 rest_24(+ pos_9 1)) s_148)))" +"(values s_90)))))" +"(if(not #f)(for-loop_74 s_149 rest_24(+ pos_9 1)) s_149)))" " s_39)))))" -" for-loop_75)" +" for-loop_74)" " to-s_0" -" lst_54" +" lst_55" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_100 insp_3)" +"(lambda(s_99 insp_3)" "(begin" -"(let-values(((the-struct_32) s_100))" +"(let-values(((the-struct_32) s_99))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_133)(syntax-inspector s_100)))(if or-part_133 or-part_133 insp_3)))" +"(let-values(((or-part_135)(syntax-inspector s_99)))(if or-part_135 or-part_135 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"(if(datum-has-elements?(syntax-content s_99))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_99)" " #f" " insp_3" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_99)" +"(syntax-shifted-multi-scopes s_99)" +"(syntax-mpi-shifts s_99))" +"(syntax-scope-propagations+tamper s_99))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11167,18 +11175,18 @@ static const char *startup_source = "(if(syntax?$1 s_151)" "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_151)))" -"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_151))))" +"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_151))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_76)" -"(lambda(result_50 lst_57)" +"(let-values()(check-list lst_57)))" +"((letrec-values(((for-loop_75)" +"(lambda(result_50 lst_58)" "(begin" " 'for-loop" -"(if(pair? lst_57)" -"(let-values(((shift_4)(unsafe-car lst_57))" -"((rest_25)(unsafe-cdr lst_57)))" +"(if(pair? lst_58)" +"(let-values(((shift_4)(unsafe-car lst_58))" +"((rest_25)(unsafe-cdr lst_58)))" "(let-values(((result_51)" "(let-values(((result_52) result_50))" "(if(non-source-shift? shift_4)" @@ -11212,15 +11220,15 @@ static const char *startup_source = " #f)))))))" "(values result_53)))))))" "(if(if(not((lambda x_37 result_51) shift_4))(not #f) #f)" -"(for-loop_76 result_51 rest_25)" +"(for-loop_75 result_51 rest_25)" " result_51)))" " result_50)))))" -" for-loop_76)" +" for-loop_75)" " #f" -" lst_56)))))))))))" +" lst_57)))))))))))" "(case-lambda" -"((s_152)(begin 'syntax-source-module(syntax-source-module45_0 s_152 #f #f)))" -"((s_153 source?42_1)(syntax-source-module45_0 s_153 source?42_1 #t)))))" +"((s_108)(begin 'syntax-source-module(syntax-source-module45_0 s_108 #f #f)))" +"((s_152 source?42_1)(syntax-source-module45_0 s_152 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11245,12 +11253,12 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_154)(begin(hash-ref built-in-symbols s_154 #f))))" +"(define-values(built-in-symbol?)(lambda(s_153)(begin(hash-ref built-in-symbols s_153 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_155)" +"(lambda(s_154)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_155))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_154))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -11318,12 +11326,12 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(p_29 ser-push!_13 state_23)" +"(lambda(p_30 ser-push!_13 state_23)" "(begin" "(ser-push!_13 'tag '#:provided)" -"(ser-push!_13(provided-binding p_29))" -"(ser-push!_13(provided-protected? p_29))" -"(ser-push!_13(provided-syntax? p_29))))))" +"(ser-push!_13(provided-binding p_30))" +"(ser-push!_13(provided-protected? p_30))" +"(ser-push!_13(provided-syntax? p_30))))))" " #f" " #f" " '(0 1 2)" @@ -11336,9 +11344,9 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 0 'binding)" "(make-struct-field-accessor -ref_0 1 'protected?)" "(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_84)(begin(if(provided? v_84)(provided-binding v_84) v_84))))" +"(define-values(provided-as-binding)(lambda(v_83)(begin(if(provided? v_83)(provided-binding v_83) v_83))))" "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_85)(begin(if(provided? v_85)(provided-syntax? v_85) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_84)(begin(if(provided? v_84)(provided-syntax? v_84) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" @@ -11431,9 +11439,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_54 mpi-shifts_3)" -"(let-values(((or-part_134)(bulk-binding-provides b_54)))" -"(if or-part_134" -" or-part_134" +"(let-values(((or-part_136)(bulk-binding-provides b_54)))" +"(if or-part_136" +" or-part_136" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_54) mpi-shifts_3))))" @@ -11470,9 +11478,9 @@ static const char *startup_source = "(let-values(((excepts_0)(bulk-binding-excepts b_54)))" "(let-values(((prefix_0)(bulk-binding-prefix b_54)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_135) prefix_0))" -"(if or-part_135" -" or-part_135" +"(if(let-values(((or-part_137) prefix_0))" +"(if or-part_137" +" or-part_137" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11534,12 +11542,12 @@ static const char *startup_source = "(let-values(((ht_64) provides_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" -"((letrec-values(((for-loop_77)" -"(lambda(table_82 i_79)" +"((letrec-values(((for-loop_76)" +"(lambda(table_82 i_78)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((sym_17 val_22)(hash-iterate-key+value ht_64 i_79)))" +"(if i_78" +"(let-values(((sym_17 val_22)(hash-iterate-key+value ht_64 i_78)))" "(let-values(((table_83)" "(let-values(((table_84) table_82))" "(if(hash-ref excepts_2 sym_17 #f)" @@ -11563,9 +11571,9 @@ static const char *startup_source = "(hash-set table_86 key_35 val_23)))))" "(values table_87)))" " table_85))))))" -"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_79)) table_83)))" +"(if(not #f)(for-loop_76 table_83(hash-iterate-next ht_64 i_78)) table_83)))" " table_82)))))" -" for-loop_77)" +" for-loop_76)" " '#hash()" "(hash-iterate-first ht_64)))))))" "(define-values" @@ -11710,29 +11718,29 @@ static const char *startup_source = "(lambda(v_45)(begin(root-expand-context/outer-post-expansion-scope v_45))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_86)(begin(root-expand-context/outer-use-site-scopes v_86))))" +"(lambda(v_85)(begin(root-expand-context/outer-use-site-scopes v_85))))" "(define-values(root-expand-context-frame-id)(lambda(v_46)(begin(root-expand-context/outer-frame-id v_46))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_87)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_87)))))" +"(lambda(v_86)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_86)))))" "(define-values" "(root-expand-context-module-scopes)" "(lambda(v_47)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_47)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_88)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_88)))))" +"(lambda(v_87)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_87)))))" "(define-values" "(root-expand-context-all-scopes-stx)" "(lambda(v_56)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_56)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_89)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_89)))))" +"(lambda(v_88)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_88)))))" "(define-values" "(root-expand-context-counter)" "(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_90)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_90)))))" +"(lambda(v_89)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_89)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0" @@ -11759,8 +11767,8 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_136) all-scopes-stx_1))" -"(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_138) all-scopes-stx_1))" +"(if or-part_138 or-part_138(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -11783,12 +11791,12 @@ static const char *startup_source = "(let-values(((ht_65)(root-expand-context-defined-syms ctx_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_78)" -"(lambda(table_88 i_80)" +"((letrec-values(((for-loop_77)" +"(lambda(table_88 i_79)" "(begin" " 'for-loop" -"(if i_80" -"(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_80)))" +"(if i_79" +"(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_79)))" "(let-values(((table_89)" "(let-values(((table_90) table_88))" "(let-values(((table_91)" @@ -11798,9 +11806,9 @@ static const char *startup_source = "(values phase_22 ht_66))))" "(hash-set table_90 key_36 val_24)))))" "(values table_91)))))" -"(if(not #f)(for-loop_78 table_89(hash-iterate-next ht_65 i_80)) table_89)))" +"(if(not #f)(for-loop_77 table_89(hash-iterate-next ht_65 i_79)) table_89)))" " table_88)))))" -" for-loop_78)" +" for-loop_77)" " '#hasheqv()" "(hash-iterate-first ht_65))))" "(root-expand-context-frame-id ctx_0)" @@ -11843,17 +11851,17 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_91)" +"(lambda(v_90)" "(begin" -"(let-values(((ht_67) v_91))" +"(let-values(((ht_67) v_90))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_8)" -"(lambda(result_54 i_81)" +"(lambda(result_54 i_80)" "(begin" " 'for-loop" -"(if i_81" -"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_67 i_81)))" +"(if i_80" +"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_67 i_80)))" "(let-values(((result_55)" "(let-values()" "(let-values(((result_56)" @@ -11867,16 +11875,16 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_68)))" -"((letrec-values(((for-loop_79)" -"(lambda(result_57 i_82)" +"((letrec-values(((for-loop_78)" +"(lambda(result_57 i_81)" "(begin" " 'for-loop" -"(if i_82" +"(if i_81" "(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" " ht_68" -" i_82)))" +" i_81)))" "(let-values(((result_58)" "(let-values()" "(let-values(((result_59)" @@ -11897,21 +11905,21 @@ static const char *startup_source = " id_8))" "(not #f)" " #f)" -"(for-loop_79" +"(for-loop_78" " result_58" "(hash-iterate-next" " ht_68" -" i_82))" +" i_81))" " result_58)))" " result_57)))))" -" for-loop_79)" +" for-loop_78)" " #t" "(hash-iterate-first ht_68))))" " #f)" " #f)))))" "(values result_56)))))" "(if(if(not((lambda x_39(not result_55)) phase_23 ht-s_0))(not #f) #f)" -"(for-loop_8 result_55(hash-iterate-next ht_67 i_81))" +"(for-loop_8 result_55(hash-iterate-next ht_67 i_80))" " result_55)))" " result_54)))))" " for-loop_8)" @@ -11919,27 +11927,27 @@ static const char *startup_source = "(hash-iterate-first ht_67)))))))" "(define-values" "(extract-scope-list)" -"(lambda(stx_8)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_8 0))))))" +"(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))" "(define-values" "(syntax-with-one-scope?)" -"(lambda(stx_9)(begin(if(syntax?$1 stx_9)(= 1(set-count(syntax-scope-set stx_9 0))) #f))))" +"(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_10)(begin(let-values(((s_156)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_156))))))" +"(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_92)" +"(lambda(v_91)" "(begin" "(hash-copy" -"(let-values(((ht_69)(syntax-e$1 v_92)))" +"(let-values(((ht_69)(syntax-e$1 v_91)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_69)))" -"((letrec-values(((for-loop_80)" -"(lambda(table_92 i_83)" +"((letrec-values(((for-loop_79)" +"(lambda(table_92 i_82)" "(begin" " 'for-loop" -"(if i_83" -"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_83)))" +"(if i_82" +"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_82)))" "(let-values(((table_93)" "(let-values(((table_94) table_92))" "(let-values(((table_95)" @@ -11960,15 +11968,15 @@ static const char *startup_source = "(check-in-hash ht_70)))" "((letrec-values(((for-loop_13)" "(lambda(table_96" -" i_84)" +" i_83)" "(begin" " 'for-loop" -"(if i_84" +"(if i_83" "(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" " ht_70" -" i_84)))" +" i_83)))" "(let-values(((table_97)" "(let-values(((table_98)" " table_96))" @@ -11992,7 +12000,7 @@ static const char *startup_source = " table_97" "(hash-iterate-next" " ht_70" -" i_84))" +" i_83))" " table_97)))" " table_96)))))" " for-loop_13)" @@ -12001,9 +12009,9 @@ static const char *startup_source = " ht_70)))))))))" "(hash-set table_94 key_37 val_15)))))" "(values table_95)))))" -"(if(not #f)(for-loop_80 table_93(hash-iterate-next ht_69 i_83)) table_93)))" +"(if(not #f)(for-loop_79 table_93(hash-iterate-next ht_69 i_82)) table_93)))" " table_92)))))" -" for-loop_80)" +" for-loop_79)" " '#hasheqv()" "(hash-iterate-first ht_69))))))))" "(define-values(1/primitive-table) primitive-table)" @@ -12209,8 +12217,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_137)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_137 or-part_137 share-from-ns_0))" +"(let-values(((or-part_139)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_139 or-part_139 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12244,17 +12252,17 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_138" -" or-part_138" +"(let-values(((or-part_140)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_140" +" or-part_140" "(hash-ref(module-registry-declarations(1/namespace-module-registry ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_26)" "(begin" -"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" -"(if or-part_139" -" or-part_139" +"(let-values(((or-part_141)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" +"(if or-part_141" +" or-part_141" "(let-values(((p-ns_0)" "(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" @@ -12282,22 +12290,22 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_157)" +"(let-values(((s_156)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" "(let-values(((r_15)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_15) (string-append \"(submod \" s_157 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_157)))))))" +" (if (pair? r_15) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_156)))))))" "(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_140) d_8))" -"(if or-part_140" -" or-part_140" +"(let-values(((or-part_142) d_8))" +"(if or-part_142" +" or-part_142" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12405,8 +12413,8 @@ static const char *startup_source = " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_93)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_93)(car v_93) #f))))))" +"(let-values(((v_92)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_92)(car v_92) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" @@ -12476,15 +12484,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_63)))" -"((letrec-values(((for-loop_72)" -"(lambda(new-props_1 i_77)" +"((letrec-values(((for-loop_71)" +"(lambda(new-props_1 i_76)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((k_16 v_83)" +"(if i_76" +"(let-values(((k_16 v_82)" "(unsafe-immutable-hash-iterate-key+value" " ht_63" -" i_77)))" +" i_76)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12501,21 +12509,21 @@ static const char *startup_source = "(if(eq?" " new-v_0" " missing$1)" -" v_83" +" v_82" "(cons/preserve" " new-v_0" -" v_83)))))))" +" v_82)))))))" "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_72" +"(for-loop_71" " new-props_2" "(unsafe-immutable-hash-iterate-next" " ht_63" -" i_77))" +" i_76))" " new-props_2)))" " new-props_1)))))" -" for-loop_72)" +" for-loop_71)" " new-props_0" "(unsafe-immutable-hash-iterate-first ht_63)))))" "(let-values()" @@ -12525,15 +12533,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_71)))" -"((letrec-values(((for-loop_81)" -"(lambda(old-props_1 i_85)" +"((letrec-values(((for-loop_80)" +"(lambda(old-props_1 i_84)" "(begin" " 'for-loop" -"(if i_85" +"(if i_84" "(let-values(((k_17 v_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_71" -" i_85)))" +" i_84)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12557,14 +12565,14 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_81" +"(for-loop_80" " old-props_2" "(unsafe-immutable-hash-iterate-next" " ht_71" -" i_85))" +" i_84))" " old-props_2)))" " old-props_1)))))" -" for-loop_81)" +" for-loop_80)" " old-props-with-origin_0" "(unsafe-immutable-hash-iterate-first ht_71))))))))" "(let-values(((the-struct_37) new-stx_0))" @@ -12590,34 +12598,34 @@ static const char *startup_source = "(cons/preserve)" "(lambda(a_34 b_56)" "(begin" -"(if(let-values(((or-part_141)(preserved-property-value? a_34)))" -"(if or-part_141 or-part_141(preserved-property-value? b_56)))" +"(if(let-values(((or-part_143)(preserved-property-value? a_34)))" +"(if or-part_143 or-part_143(preserved-property-value? b_56)))" "(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_56)))" "(cons a_34 b_56)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" "(begin" -"(let-values(((lst_58) old-stxes_0))" +"(let-values(((lst_59) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_82)" -"(lambda(new-stx_4 lst_59)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_59)))" +"((letrec-values(((for-loop_81)" +"(lambda(new-stx_4 lst_60)" "(begin" " 'for-loop" -"(if(pair? lst_59)" -"(let-values(((old-stx_3)(unsafe-car lst_59))((rest_26)(unsafe-cdr lst_59)))" +"(if(pair? lst_60)" +"(let-values(((old-stx_3)(unsafe-car lst_60))((rest_26)(unsafe-cdr lst_60)))" "(let-values(((new-stx_5)" "(let-values(((new-stx_6) new-stx_4))" "(let-values(((new-stx_7)" "(let-values()" "(syntax-track-origin$1 new-stx_6 old-stx_3))))" "(values new-stx_7)))))" -"(if(not #f)(for-loop_82 new-stx_5 rest_26) new-stx_5)))" +"(if(not #f)(for-loop_81 new-stx_5 rest_26) new-stx_5)))" " new-stx_4)))))" -" for-loop_82)" +" for-loop_81)" " new-stx_3" -" lst_58))))))" +" lst_59))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" "(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" @@ -12758,8 +12766,8 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(if(let-values(((or-part_135)(not given-name_12)))" -"(if or-part_135 or-part_135(symbol? given-name_12)))" +"(if(let-values(((or-part_137)(not given-name_12)))" +"(if or-part_137 or-part_137(symbol? given-name_12)))" "(void)" " (let-values () (raise-argument-error 'raise-syntax-error \"(or/c symbol? #f)\" given-name_12)))" "(values))))" @@ -12785,41 +12793,41 @@ static const char *startup_source = "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_136) given-name_12))" -"(if or-part_136" -" or-part_136" -"(let-values(((or-part_142)(extract-form-name expr_8)))" -"(if or-part_142 or-part_142 '?)))))))" +"(let-values(((or-part_138) given-name_12))" +"(if or-part_138" +" or-part_138" +"(let-values(((or-part_144)(extract-form-name expr_8)))" +"(if or-part_144 or-part_144 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_143)" +"(let-values(((or-part_145)" "(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_143 or-part_143 \"\"))))" +" (if or-part_145 or-part_145 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_144)" +"(let-values(((or-part_146)" "(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_144 or-part_144 \"\"))))" +" (if or-part_146 or-part_146 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_145)" +"(let-values(((or-part_147)" "(if(error-print-source-location)" -"(let-values(((or-part_146)(extract-source-location sub-expr_6)))" -"(if or-part_146 or-part_146(extract-source-location expr_8)))" +"(let-values(((or-part_148)(extract-source-location sub-expr_6)))" +"(if or-part_148 or-part_148(extract-source-location expr_8)))" " #f)))" -" (if or-part_145 or-part_145 \"\"))))" +" (if or-part_147 or-part_147 \"\"))))" "(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_137) sub-expr_6))(if or-part_137 or-part_137 expr_8))" +"(if(let-values(((or-part_139) sub-expr_6))(if or-part_139 or-part_139 expr_8))" "(cons" "(datum->syntax$1" " #f" @@ -12828,11 +12836,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_158)" +"(lambda(s_157)" "(begin" -"(if(syntax?$1 s_158)" +"(if(syntax?$1 s_157)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_158)))" +"(let-values(((e_17)(syntax-e$1 s_157)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12841,11 +12849,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_159)" +"(lambda(s_158)" "(begin" -"(if(syntax?$1 s_159)" -"(if(syntax-srcloc s_159)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_159)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_158)" +"(if(syntax-srcloc s_158)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_158)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13250,9 +13258,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_147)(module-instance-attached? prior-mi_1)))" -"(if or-part_147" -" or-part_147" +"(let-values(((or-part_149)(module-instance-attached? prior-mi_1)))" +"(if or-part_149" +" or-part_149" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13292,21 +13300,21 @@ static const char *startup_source = "(let-values(((unavailable-callback_0)(if unavailable-callback66_0 unavailable-callback63_0 void)))" "(let-values()" "(let-values(((mi_0)" -"(let-values(((or-part_148)" +"(let-values(((or-part_150)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" " name_30" " #f)))" -"(if or-part_148" -" or-part_148" -"(let-values(((or-part_149)" +"(if or-part_150" +" or-part_150" +"(let-values(((or-part_151)" "(let-values(((c-ns_0)" -"(let-values(((or-part_150)" +"(let-values(((or-part_152)" "(namespace-root-namespace ns_23)))" -"(if or-part_150 or-part_150 ns_23))))" +"(if or-part_152 or-part_152 ns_23))))" "(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" -"(if or-part_149" -" or-part_149" +"(if or-part_151" +" or-part_151" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13365,7 +13373,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_151)(namespace-root-namespace ns_24)))(if or-part_151 or-part_151 ns_24)))" +"(let-values(((or-part_153)(namespace-root-namespace ns_24)))(if or-part_153 or-part_153 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13384,10 +13392,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_152)" +"(let-values(((or-part_154)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_152" -" or-part_152" +"(if or-part_154" +" or-part_154" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13398,13 +13406,13 @@ static const char *startup_source = "(lambda(ns_25 name_32 0-phase_3 m_5 mpi_14)" "(begin" "(let-values(((m-ns_4)" -"(let-values(((the-struct_40) ns_25))" -"(if(1/namespace? the-struct_40)" +"(let-values(((the-struct_24) ns_25))" +"(if(1/namespace? the-struct_24)" "(let-values(((mpi181_0) mpi_14)" "((source-name182_0)" -"(let-values(((or-part_153)(module-source-name m_5)))" -"(if or-part_153" -" or-part_153" +"(let-values(((or-part_155)(module-source-name m_5)))" +"(if or-part_155" +" or-part_155" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_14)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" @@ -13421,24 +13429,24 @@ static const char *startup_source = " 0-phase185_0" " phase-to-namespace186_0" " phase-level-to-definitions187_0" -"(1/namespace-module-registry the-struct_40)" -"(namespace-bulk-binding-registry the-struct_40)" -"(namespace-submodule-declarations the-struct_40)" -"(namespace-root-namespace the-struct_40)" +"(1/namespace-module-registry the-struct_24)" +"(namespace-bulk-binding-registry the-struct_24)" +"(namespace-submodule-declarations the-struct_24)" +"(namespace-root-namespace the-struct_24)" " declaration-inspector188_0" " inspector189_0" -"(namespace-available-module-instances the-struct_40)" -"(namespace-module-instances the-struct_40)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_40)))))" +"(namespace-available-module-instances the-struct_24)" +"(namespace-module-instances the-struct_24)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_24)))))" "(let-values((()(begin(small-hash-set!(namespace-phase-to-namespace m-ns_4) 0-phase_3 m-ns_4)(values))))" "(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))" "(begin" "(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_154)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_154" -" or-part_154" +"(let-values(((or-part_156)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_156" +" or-part_156" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13553,7 +13561,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_155)" +"(let-values(((or-part_157)" "(let-values(((ns205_0) ns_30)" "((name206_0) name_34)" "((instance-phase207_0)" @@ -13568,8 +13576,8 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_155" -" or-part_155" +"(if or-part_157" +" or-part_157" "(namespace-create-module-instance!" " ns_30" " name_34" @@ -13595,8 +13603,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_156)(namespace-root-namespace ns_29)))" -"(if or-part_156 or-part_156 ns_29))))" +"(let-values(((or-part_158)(namespace-root-namespace ns_29)))" +"(if or-part_158 or-part_158 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13667,17 +13675,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_157) skip-run?_1))" -"(if or-part_157" -" or-part_157" +"(if(if(let-values(((or-part_159) skip-run?_1))" +"(if or-part_159" +" or-part_159" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_158)(not otherwise-available?_1)))" -"(if or-part_158 or-part_158(module-instance-made-available? mi_7)))" +"(let-values(((or-part_160)(not otherwise-available?_1)))" +"(if or-part_160 or-part_160(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -13696,20 +13704,20 @@ static const char *startup_source = "(set-module-instance-shifted-requires!" " mi_7" "(reverse$1" -"(let-values(((lst_60)(module-requires m_9)))" +"(let-values(((lst_61)(module-requires m_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_60)))" -"((letrec-values(((for-loop_83)" -"(lambda(fold-var_43 lst_61)" +"(let-values()(check-list lst_61)))" +"((letrec-values(((for-loop_82)" +"(lambda(fold-var_43 lst_62)" "(begin" " 'for-loop" -"(if(pair? lst_61)" +"(if(pair? lst_62)" "(let-values(((phase+mpis_0)" -"(unsafe-car lst_61))" +"(unsafe-car lst_62))" "((rest_27)" -"(unsafe-cdr lst_61)))" +"(unsafe-cdr lst_62)))" "(let-values(((fold-var_44)" "(let-values(((fold-var_45)" " fold-var_43))" @@ -13721,7 +13729,7 @@ static const char *startup_source = "(car" " phase+mpis_0)" "(reverse$1" -"(let-values(((lst_62)" +"(let-values(((lst_63)" "(cdr" " phase+mpis_0)))" "(begin" @@ -13730,20 +13738,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_62)))" -"((letrec-values(((for-loop_84)" +" lst_63)))" +"((letrec-values(((for-loop_83)" "(lambda(fold-var_47" -" lst_63)" +" lst_64)" "(begin" " 'for-loop" "(if(pair?" -" lst_63)" +" lst_64)" "(let-values(((req-mpi_0)" "(unsafe-car" -" lst_63))" +" lst_64))" "((rest_28)" "(unsafe-cdr" -" lst_63)))" +" lst_64)))" "(let-values(((fold-var_48)" "(let-values(((fold-var_49)" " fold-var_47))" @@ -13761,35 +13769,35 @@ static const char *startup_source = " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_84" +"(for-loop_83" " fold-var_48" " rest_28)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_84)" +" for-loop_83)" " null" -" lst_62))))))" +" lst_63))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" -"(for-loop_83 fold-var_44 rest_27)" +"(for-loop_82 fold-var_44 rest_27)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_83)" +" for-loop_82)" " null" -" lst_60)))))))" -"(let-values(((lst_64)(module-instance-shifted-requires mi_7)))" +" lst_61)))))))" +"(let-values(((lst_65)(module-instance-shifted-requires mi_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_64)))" -"((letrec-values(((for-loop_85)" -"(lambda(lst_65)" +"(let-values()(check-list lst_65)))" +"((letrec-values(((for-loop_84)" +"(lambda(lst_66)" "(begin" " 'for-loop" -"(if(pair? lst_65)" -"(let-values(((phase+mpis_1)(unsafe-car lst_65))" -"((rest_29)(unsafe-cdr lst_65)))" +"(if(pair? lst_66)" +"(let-values(((phase+mpis_1)(unsafe-car lst_66))" +"((rest_29)(unsafe-cdr lst_66)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13800,7 +13808,7 @@ static const char *startup_source = "(car" " phase+mpis_1)))" "(begin" -"(let-values(((lst_66)" +"(let-values(((lst_67)" "(cdr" " phase+mpis_1)))" "(begin" @@ -13809,19 +13817,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_66)))" -"((letrec-values(((for-loop_86)" -"(lambda(lst_67)" +" lst_67)))" +"((letrec-values(((for-loop_85)" +"(lambda(lst_68)" "(begin" " 'for-loop" "(if(pair?" -" lst_67)" +" lst_68)" "(let-values(((req-mpi_1)" "(unsafe-car" -" lst_67))" +" lst_68))" "((rest_30)" "(unsafe-cdr" -" lst_67)))" +" lst_68)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13863,19 +13871,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_86" +"(for-loop_85" " rest_30)" "(values))))" "(values))))))" -" for-loop_86)" -" lst_66)))" +" for-loop_85)" +" lst_67)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_85 rest_29)(values))))" +"(if(not #f)(for-loop_84 rest_29)(values))))" "(values))))))" -" for-loop_85)" -" lst_64)))" +" for-loop_84)" +" lst_65)))" "(void)" "(if(label-phase? instance-phase_4)" "(void)" @@ -13888,7 +13896,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_13 end_9 inc_3)))" -"((letrec-values(((for-loop_87)" +"((letrec-values(((for-loop_86)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -13999,10 +14007,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_87(+ pos_10 inc_3))" +"(for-loop_86(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_87)" +" for-loop_86)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14059,23 +14067,23 @@ static const char *startup_source = "(namespace-available-module-instances ns_37)" " run-phase_4" " null)" -"(let-values(((lst_68)(reverse$1 mis_0)))" +"(let-values(((lst_69)(reverse$1 mis_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_88)" -"(lambda(lst_69)" +"(let-values()(check-list lst_69)))" +"((letrec-values(((for-loop_87)" +"(lambda(lst_70)" "(begin" " 'for-loop" -"(if(pair? lst_69)" +"(if(pair? lst_70)" "(let-values(((mi_8)" "(unsafe-car" -" lst_69))" +" lst_70))" "((rest_31)" "(unsafe-cdr" -" lst_69)))" +" lst_70)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -14103,11 +14111,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_88 rest_31)" +"(for-loop_87 rest_31)" "(values))))" "(values))))))" -" for-loop_88)" -" lst_68)))" +" for-loop_87)" +" lst_69)))" "(void)" "(loop_76)))))))))" " loop_76)))))))))))))" @@ -14175,15 +14183,15 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_70) requires_1))" +"(let-values(((lst_71) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_70)))" -"((letrec-values(((for-loop_89)" -"(lambda(fold-var_51 lst_71)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" +"((letrec-values(((for-loop_88)" +"(lambda(fold-var_51 lst_72)" "(begin" " 'for-loop" -"(if(pair? lst_71)" -"(let-values(((phase+mpis_2)(unsafe-car lst_71))((rest_32)(unsafe-cdr lst_71)))" +"(if(pair? lst_72)" +"(let-values(((phase+mpis_2)(unsafe-car lst_72))((rest_32)(unsafe-cdr lst_72)))" "(let-values(((fold-var_52)" "(let-values(((fold-var_53) fold-var_51))" "(let-values(((fold-var_54)" @@ -14193,24 +14201,24 @@ static const char *startup_source = "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_72)(cdr phase+mpis_2)))" +"(let-values(((lst_73)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_72)))" -"((letrec-values(((for-loop_90)" +"(let-values()(check-list lst_73)))" +"((letrec-values(((for-loop_89)" "(lambda(fold-var_55" -" lst_73)" +" lst_74)" "(begin" " 'for-loop" -"(if(pair? lst_73)" +"(if(pair? lst_74)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_73))" +" lst_74))" "((rest_33)" "(unsafe-cdr" -" lst_73)))" +" lst_74)))" "(let-values(((fold-var_56)" "(let-values(((fold-var_57)" " fold-var_55))" @@ -14224,21 +14232,21 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_90" +"(for-loop_89" " fold-var_56" " rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_90)" -" null" -" lst_72))))))" -" fold-var_53))))" -"(values fold-var_54)))))" -"(if(not #f)(for-loop_89 fold-var_52 rest_32) fold-var_52)))" -" fold-var_51)))))" " for-loop_89)" " null" -" lst_70)))))))" +" lst_73))))))" +" fold-var_53))))" +"(values fold-var_54)))))" +"(if(not #f)(for-loop_88 fold-var_52 rest_32) fold-var_52)))" +" fold-var_51)))))" +" for-loop_88)" +" null" +" lst_71)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" @@ -14249,13 +14257,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_72)))" -"((letrec-values(((for-loop_91)" -"(lambda(table_100 i_86)" +"((letrec-values(((for-loop_90)" +"(lambda(table_100 i_85)" "(begin" " 'for-loop" -"(if i_86" +"(if i_85" "(let-values(((phase_31 at-phase_6)" -"(hash-iterate-key+value ht_72 i_86)))" +"(hash-iterate-key+value ht_72 i_85)))" "(let-values(((table_101)" "(let-values(((table_102) table_100))" "(let-values(((table_103)" @@ -14273,17 +14281,17 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_73)))" -"((letrec-values(((for-loop_92)" +"((letrec-values(((for-loop_91)" "(lambda(table_104" -" i_87)" +" i_86)" "(begin" " 'for-loop" -"(if i_87" +"(if i_86" "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" " ht_73" -" i_87)))" +" i_86)))" "(let-values(((table_105)" "(let-values(((table_106)" " table_104))" @@ -14308,14 +14316,14 @@ static const char *startup_source = " table_107)))))" "(if(not" " #f)" -"(for-loop_92" +"(for-loop_91" " table_105" "(hash-iterate-next" " ht_73" -" i_87))" +" i_86))" " table_105)))" " table_104)))))" -" for-loop_92)" +" for-loop_91)" " '#hash()" "(hash-iterate-first" " ht_73))))))))" @@ -14325,10 +14333,10 @@ static const char *startup_source = " val_31)))))" "(values table_103)))))" "(if(not #f)" -"(for-loop_91 table_101(hash-iterate-next ht_72 i_86))" +"(for-loop_90 table_101(hash-iterate-next ht_72 i_85))" " table_101)))" " table_100)))))" -" for-loop_91)" +" for-loop_90)" " '#hasheqv()" "(hash-iterate-first ht_72))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" @@ -14397,13 +14405,13 @@ static const char *startup_source = "(if or-part_10 or-part_10(eq? a_35 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_159)" +"(if(let-values(((or-part_161)" "(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_159" -" or-part_159" +"(if or-part_161" +" or-part_161" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14559,10 +14567,10 @@ static const char *startup_source = "(let-values(((ref_0)(list-ref info_1 3)))" "(if(integer? v_26)" "(let-values()" -"(lambda(t_33)" -"(let-values(((p_30)(ref_0 t_33 v_26)))" -"(if(if(procedure? p_30)(procedure-arity-includes? p_30 1) #f)" -" p_30" +"(lambda(t_34)" +"(let-values(((p_31)(ref_0 t_34 v_26)))" +"(if(if(procedure? p_31)(procedure-arity-includes? p_31 1) #f)" +" p_31" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" "(let-values()(lambda(t_13) v_26)))))))))" "(define-values" @@ -14595,11 +14603,11 @@ static const char *startup_source = "(set!-transformer1_0 proc_3)))))))" "(define-values" "(1/set!-transformer-procedure)" -"(lambda(t_36)" +"(lambda(t_37)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_94)((set!-transformer-value t_36) t_36)))" -"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_160)(v_94 t_36 s_160)))))))" +"(let-values(((v_93)((set!-transformer-value t_37) t_37)))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_159)(v_93 t_37 s_159)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_41 val_20)(begin(hash-set env_0 key_41 val_20))))" "(define-values(variable)(gensym 'variable))" @@ -14631,30 +14639,30 @@ static const char *startup_source = "(begin" " 'substitute-variable6" "(let-values(((id_5) id4_0))" -"(let-values(((t_37) t5_0))" +"(let-values(((t_38) t5_0))" "(let-values(((no-stops?_0) no-stops?2_0))" "(let-values()" -"(if(if no-stops?_0(local-variable? t_37) #f)" -"(let-values(((bind-id_0)(local-variable-id t_37)))" +"(if(if no-stops?_0(local-variable? t_38) #f)" +"(let-values(((bind-id_0)(local-variable-id t_38)))" "(syntax-rearm$1(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_5 id_5) id_5))" " id_5))))))))" "(define-values(missing)(gensym 'missing))" "(define-values" "(transformer?)" -"(lambda(t_38)" +"(lambda(t_39)" "(begin" -"(let-values(((or-part_21)(procedure? t_38)))" +"(let-values(((or-part_21)(procedure? t_39)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_160)(1/set!-transformer? t_38)))" -"(if or-part_160 or-part_160(1/rename-transformer? t_38))))))))" +"(let-values(((or-part_162)(1/set!-transformer? t_39)))" +"(if or-part_162 or-part_162(1/rename-transformer? t_39))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_18)" "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_161) s_161))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_160) s_160))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" @@ -14701,17 +14709,17 @@ static const char *startup_source = "(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_158) s24_0))" +"(let-values(((s_157) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_35) phase26_1))" "(let-values(((in-s_3)(if in22_0 in20_0 #f)))" "(let-values(((shadow-except_2)(if shadow-except23_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_158)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_158))" +"(if(syntax-tainted?$1 s_157)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_157))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_158 phase_35))" +"(let-values(((temp59_1)(syntax-scope-set s_157 phase_35))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" @@ -14783,7 +14791,7 @@ static const char *startup_source = " ns_44" "(if mi_15(module-instance-namespace mi_15) #f))))" "(let-values((()(begin(check-taint id_17)(values))))" -"(let-values(((t_39)" +"(let-values(((t_40)" "(namespace-get-transformer" " m-ns_7" "(module-binding-phase b_57)" @@ -14796,7 +14804,7 @@ static const char *startup_source = " mi_15" " id_17" " in-s_6" -" (if (variable? t_39) \"variable\" \"transformer\"))" +" (if (variable? t_40) \"variable\" \"transformer\"))" " #f)))" "(let-values(((insp_6)" "(if mi_15" @@ -14804,28 +14812,28 @@ static const char *startup_source = "(module-inspector(module-instance-module mi_15))" " #f)" " #f)))" -"(values t_39 primitive?_1 insp_6 protected?_1)))))))))))" +"(values t_40 primitive?_1 insp_6 protected?_1)))))))))))" "(if(local-binding? b_57)" "(let-values()" -"(let-values(((t_40)(hash-ref env_1(local-binding-key b_57) missing)))" -"(if(eq? t_40 missing)" +"(let-values(((t_41)(hash-ref env_1(local-binding-key b_57) missing)))" +"(if(eq? t_41 missing)" "(let-values()" "(values" -"(let-values(((or-part_161)" -"(let-values(((lst_74) lift-envs_0))" +"(let-values(((or-part_163)" +"(let-values(((lst_75) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" -"((letrec-values(((for-loop_93)" -"(lambda(result_60 lst_75)" +"(let-values()(check-list lst_75)))" +"((letrec-values(((for-loop_92)" +"(lambda(result_60 lst_76)" "(begin" " 'for-loop" -"(if(pair? lst_75)" +"(if(pair? lst_76)" "(let-values(((lift-env_0)" -"(unsafe-car lst_75))" +"(unsafe-car lst_76))" "((rest_34)" -"(unsafe-cdr lst_75)))" +"(unsafe-cdr lst_76)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14844,21 +14852,21 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_93 result_61 rest_34)" +"(for-loop_92 result_61 rest_34)" " result_61)))" " result_60)))))" -" for-loop_93)" +" for-loop_92)" " #f" -" lst_74)))))" -"(if or-part_161" -" or-part_161" +" lst_75)))))" +"(if or-part_163" +" or-part_163" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_17))))" " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_17)(values t_40 #f #f #f))))))" +"(let-values()(begin(check-taint id_17)(values t_41 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_57))))))))))))))))" "(define-values" "(check-taint)" @@ -14872,15 +14880,15 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_76) ids_0))" +"(let-values(((lst_77) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_94)" -"(lambda(ht_74 lst_77)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_93)" +"(lambda(ht_74 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((id_19)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((id_19)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" "(let-values(((ht_75)" "(let-values(((ht_76) ht_74))" "(let-values(((ht_77)" @@ -14896,11 +14904,11 @@ static const char *startup_source = " id_19" "(hash-ref ht_76 sym_21 null)))))))" "(values ht_77)))))" -"(if(not #f)(for-loop_94 ht_75 rest_35) ht_75)))" +"(if(not #f)(for-loop_93 ht_75 rest_35) ht_75)))" " ht_74)))))" -" for-loop_94)" +" for-loop_93)" " '#hasheq()" -" lst_76))))))" +" lst_77))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" @@ -14909,16 +14917,16 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_79)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_95)" -"(lambda(result_3 lst_79)" +"((letrec-values(((for-loop_94)" +"(lambda(result_3 lst_80)" "(begin" " 'for-loop" -"(if(not(null? lst_79))" -"(let-values(((id_20)(if(pair? lst_79)(car lst_79) lst_79))" -"((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" +"(if(not(null? lst_80))" +"(let-values(((id_20)(if(pair? lst_80)(car lst_80) lst_80))" +"((rest_36)(if(pair? lst_80)(cdr lst_80) null)))" "(let-values(((result_63)" "(let-values()" "(let-values(((result_64)" @@ -14931,12 +14939,12 @@ static const char *startup_source = " phase_39)))))" "(values result_64)))))" "(if(if(not((lambda x_41 result_63) id_20))(not #f) #f)" -"(for-loop_95 result_63 rest_36)" +"(for-loop_94 result_63 rest_36)" " result_63)))" " result_3)))))" -" for-loop_95)" +" for-loop_94)" " #f" -" lst_78)))))))" +" lst_79)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15127,79 +15135,79 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " name_36))))" -"(define-values(expand-context-context)(lambda(v_95)(begin(expand-context/outer-context v_95))))" -"(define-values(expand-context-env)(lambda(v_96)(begin(expand-context/outer-env v_96))))" +"(define-values(expand-context-context)(lambda(v_94)(begin(expand-context/outer-context v_94))))" +"(define-values(expand-context-env)(lambda(v_95)(begin(expand-context/outer-env v_95))))" "(define-values" "(expand-context-post-expansion-scope-action)" -"(lambda(v_97)(begin(expand-context/outer-post-expansion-scope-action v_97))))" -"(define-values(expand-context-scopes)(lambda(v_98)(begin(expand-context/outer-scopes v_98))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_99)(begin(expand-context/outer-def-ctx-scopes v_99))))" -"(define-values(expand-context-binding-layer)(lambda(v_100)(begin(expand-context/outer-binding-layer v_100))))" +"(lambda(v_96)(begin(expand-context/outer-post-expansion-scope-action v_96))))" +"(define-values(expand-context-scopes)(lambda(v_97)(begin(expand-context/outer-scopes v_97))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_98)(begin(expand-context/outer-def-ctx-scopes v_98))))" +"(define-values(expand-context-binding-layer)(lambda(v_99)(begin(expand-context/outer-binding-layer v_99))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_101)(begin(expand-context/outer-reference-records v_101))))" -"(define-values(expand-context-only-immediate?)(lambda(v_102)(begin(expand-context/outer-only-immediate? v_102))))" +"(lambda(v_100)(begin(expand-context/outer-reference-records v_100))))" +"(define-values(expand-context-only-immediate?)(lambda(v_101)(begin(expand-context/outer-only-immediate? v_101))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_103)(begin(expand-context/outer-need-eventually-defined v_103))))" +"(lambda(v_102)(begin(expand-context/outer-need-eventually-defined v_102))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_104)(begin(expand-context/outer-current-introduction-scopes v_104))))" -"(define-values(expand-context-name)(lambda(v_105)(begin(expand-context/outer-name v_105))))" +"(lambda(v_103)(begin(expand-context/outer-current-introduction-scopes v_103))))" +"(define-values(expand-context-name)(lambda(v_104)(begin(expand-context/outer-name v_104))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_106)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_106)))))" +"(lambda(v_105)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_105)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_107)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_107)))))" +"(lambda(v_106)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_106)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_108)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_108)))))" +"(lambda(v_107)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_107)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_109)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_109)))))" +"(lambda(v_108)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_108)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_110)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_110)))))" +"(lambda(v_109)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_109)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_111)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_110)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_110)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_112)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_112)))))" +"(lambda(v_111)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_113)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_113)))))" +"(lambda(v_112)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_114)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_114)))))" +"(lambda(v_113)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_115)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_115)))))" +"(lambda(v_114)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_116)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_116)))))" +"(lambda(v_115)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_117)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_117)))))" +"(lambda(v_116)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_118)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_118)))))" +"(lambda(v_117)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_119)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_119)))))" +"(lambda(v_118)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_120)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_120)))))" +"(lambda(v_119)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_121)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_121)))))" +"(lambda(v_120)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_122)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_122)))))" +"(lambda(v_121)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_123)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_123)))))" +"(lambda(v_122)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_122)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" @@ -15255,16 +15263,16 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_124) ctx_1))" -"(let-values(((the-struct_41) v_124))" -"(if(expand-context/outer? the-struct_41)" +"(let-values(((v_123) ctx_1))" +"(let-values(((the-struct_40) v_123))" +"(if(expand-context/outer? the-struct_40)" "(let-values(((post-expansion-scope28_0)(root-expand-context-post-expansion-scope 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_124)))" -"(if(expand-context/inner? the-struct_42)" +"(let-values(((the-struct_41)(root-expand-context/outer-inner v_123)))" +"(if(expand-context/inner? the-struct_41)" "(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)" @@ -15281,42 +15289,42 @@ static const char *startup_source = " defined-syms37_0" " counter38_0" " lift-key39_0" -"(expand-context/inner-to-parsed? the-struct_42)" -"(expand-context/inner-phase the-struct_42)" -"(expand-context/inner-namespace the-struct_42)" -"(expand-context/inner-just-once? the-struct_42)" -"(expand-context/inner-module-begin-k the-struct_42)" -"(expand-context/inner-allow-unbound? the-struct_42)" -"(expand-context/inner-in-local-expand? the-struct_42)" -"(expand-context/inner-stops the-struct_42)" -"(expand-context/inner-declared-submodule-names the-struct_42)" -"(expand-context/inner-lifts the-struct_42)" -"(expand-context/inner-lift-envs the-struct_42)" -"(expand-context/inner-module-lifts the-struct_42)" -"(expand-context/inner-require-lifts the-struct_42)" -"(expand-context/inner-to-module-lifts the-struct_42)" -"(expand-context/inner-requires+provides the-struct_42)" -"(expand-context/inner-observer the-struct_42)" -"(expand-context/inner-for-serializable? the-struct_42)" -"(expand-context/inner-should-not-encounter-macros? the-struct_42)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_42)))))" +"(expand-context/inner-to-parsed? the-struct_41)" +"(expand-context/inner-phase the-struct_41)" +"(expand-context/inner-namespace the-struct_41)" +"(expand-context/inner-just-once? the-struct_41)" +"(expand-context/inner-module-begin-k the-struct_41)" +"(expand-context/inner-allow-unbound? the-struct_41)" +"(expand-context/inner-in-local-expand? the-struct_41)" +"(expand-context/inner-stops the-struct_41)" +"(expand-context/inner-declared-submodule-names the-struct_41)" +"(expand-context/inner-lifts the-struct_41)" +"(expand-context/inner-lift-envs the-struct_41)" +"(expand-context/inner-module-lifts the-struct_41)" +"(expand-context/inner-require-lifts the-struct_41)" +"(expand-context/inner-to-module-lifts the-struct_41)" +"(expand-context/inner-requires+provides the-struct_41)" +"(expand-context/inner-observer the-struct_41)" +"(expand-context/inner-for-serializable? the-struct_41)" +"(expand-context/inner-should-not-encounter-macros? the-struct_41)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_41)))))" "(expand-context/outer1.1" " inner32_0" " post-expansion-scope28_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)" +"(expand-context/outer-context the-struct_40)" +"(expand-context/outer-env the-struct_40)" +"(expand-context/outer-post-expansion-scope-action the-struct_40)" +"(expand-context/outer-scopes the-struct_40)" +"(expand-context/outer-def-ctx-scopes the-struct_40)" " binding-layer31_0" -"(expand-context/outer-reference-records the-struct_41)" -"(expand-context/outer-only-immediate? the-struct_41)" -"(expand-context/outer-need-eventually-defined the-struct_41)" -"(expand-context/outer-current-introduction-scopes the-struct_41)" -"(expand-context/outer-name the-struct_41)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_41)))))))" +"(expand-context/outer-reference-records the-struct_40)" +"(expand-context/outer-only-immediate? the-struct_40)" +"(expand-context/outer-need-eventually-defined the-struct_40)" +"(expand-context/outer-current-introduction-scopes the-struct_40)" +"(expand-context/outer-name the-struct_40)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_40)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context17.1)" @@ -15326,22 +15334,22 @@ static const char *startup_source = "(let-values(((who_9)(if who16_0 who15_0 'unexpected)))" "(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))" "(let-values()" -"(let-values(((or-part_162)(force(current-expand-context))))" -"(if or-part_162" -" or-part_162" +"(let-values(((or-part_164)(force(current-expand-context))))" +"(if or-part_164" +" or-part_164" " (if fail-ok?_0 #f (raise-arguments-error who_9 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_125)" +"(lambda(v_124)" "(begin" -"(if(let-values(((or-part_163)(not v_125)))" -"(if or-part_163 or-part_163(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" +"(if(let-values(((or-part_165)(not v_124)))" +"(if or-part_165 or-part_165(if(procedure? v_124)(procedure-arity-includes? v_124 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_125)))" -" v_125))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_124)))" +" v_124))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15349,30 +15357,30 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_126) ctx_2))" -"(let-values(((the-struct_43) v_126))" -"(if(expand-context/outer? the-struct_43)" +"(let-values(((v_125) ctx_2))" +"(let-values(((the-struct_16) v_125))" +"(if(expand-context/outer? the-struct_16)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" -"((inner43_0)(root-expand-context/outer-inner v_126)))" +"((inner43_0)(root-expand-context/outer-inner v_125)))" "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" -"(root-expand-context/outer-use-site-scopes the-struct_43)" -"(root-expand-context/outer-frame-id the-struct_43)" +"(root-expand-context/outer-use-site-scopes the-struct_16)" +"(root-expand-context/outer-frame-id the-struct_16)" " context40_0" -"(expand-context/outer-env the-struct_43)" -"(expand-context/outer-post-expansion-scope-action the-struct_43)" -"(expand-context/outer-scopes the-struct_43)" -"(expand-context/outer-def-ctx-scopes the-struct_43)" -"(expand-context/outer-binding-layer the-struct_43)" -"(expand-context/outer-reference-records the-struct_43)" -"(expand-context/outer-only-immediate? the-struct_43)" -"(expand-context/outer-need-eventually-defined the-struct_43)" -"(expand-context/outer-current-introduction-scopes the-struct_43)" +"(expand-context/outer-env the-struct_16)" +"(expand-context/outer-post-expansion-scope-action the-struct_16)" +"(expand-context/outer-scopes the-struct_16)" +"(expand-context/outer-def-ctx-scopes the-struct_16)" +"(expand-context/outer-binding-layer the-struct_16)" +"(expand-context/outer-reference-records the-struct_16)" +"(expand-context/outer-only-immediate? the-struct_16)" +"(expand-context/outer-need-eventually-defined the-struct_16)" +"(expand-context/outer-current-introduction-scopes the-struct_16)" " name41_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16)))))))))" "(define-values" "(as-begin-expression-context)" "(lambda(ctx_3)" @@ -15380,27 +15388,27 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_127) ctx_3))" -"(let-values(((the-struct_44) v_127))" -"(if(expand-context/outer? the-struct_44)" -"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_127)))" +"(let-values(((v_126) ctx_3))" +"(let-values(((the-struct_42) v_126))" +"(if(expand-context/outer? the-struct_42)" +"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_126)))" "(expand-context/outer1.1" " inner45_0" -"(root-expand-context/outer-post-expansion-scope the-struct_44)" -"(root-expand-context/outer-use-site-scopes the-struct_44)" -"(root-expand-context/outer-frame-id the-struct_44)" -"(expand-context/outer-context the-struct_44)" -"(expand-context/outer-env the-struct_44)" -"(expand-context/outer-post-expansion-scope-action the-struct_44)" -"(expand-context/outer-scopes the-struct_44)" -"(expand-context/outer-def-ctx-scopes the-struct_44)" -"(expand-context/outer-binding-layer the-struct_44)" -"(expand-context/outer-reference-records the-struct_44)" -"(expand-context/outer-only-immediate? the-struct_44)" -"(expand-context/outer-need-eventually-defined the-struct_44)" -"(expand-context/outer-current-introduction-scopes the-struct_44)" +"(root-expand-context/outer-post-expansion-scope the-struct_42)" +"(root-expand-context/outer-use-site-scopes the-struct_42)" +"(root-expand-context/outer-frame-id the-struct_42)" +"(expand-context/outer-context the-struct_42)" +"(expand-context/outer-env the-struct_42)" +"(expand-context/outer-post-expansion-scope-action the-struct_42)" +"(expand-context/outer-scopes the-struct_42)" +"(expand-context/outer-def-ctx-scopes the-struct_42)" +"(expand-context/outer-binding-layer the-struct_42)" +"(expand-context/outer-reference-records the-struct_42)" +"(expand-context/outer-only-immediate? the-struct_42)" +"(expand-context/outer-need-eventually-defined the-struct_42)" +"(expand-context/outer-current-introduction-scopes the-struct_42)" " name44_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))" "(define-values" "(as-tail-context23.1)" "(lambda(wrt20_0 ctx22_0)" @@ -15411,28 +15419,28 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_128) ctx_4))" -"(let-values(((the-struct_17) v_128))" -"(if(expand-context/outer? the-struct_17)" +"(let-values(((v_127) ctx_4))" +"(let-values(((the-struct_43) v_127))" +"(if(expand-context/outer? the-struct_43)" "(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_128)))" +"((inner47_0)(root-expand-context/outer-inner v_127)))" "(expand-context/outer1.1" " inner47_0" -"(root-expand-context/outer-post-expansion-scope the-struct_17)" -"(root-expand-context/outer-use-site-scopes the-struct_17)" -"(root-expand-context/outer-frame-id the-struct_17)" -"(expand-context/outer-context the-struct_17)" -"(expand-context/outer-env the-struct_17)" -"(expand-context/outer-post-expansion-scope-action the-struct_17)" -"(expand-context/outer-scopes the-struct_17)" -"(expand-context/outer-def-ctx-scopes the-struct_17)" -"(expand-context/outer-binding-layer the-struct_17)" -"(expand-context/outer-reference-records the-struct_17)" -"(expand-context/outer-only-immediate? the-struct_17)" -"(expand-context/outer-need-eventually-defined the-struct_17)" -"(expand-context/outer-current-introduction-scopes the-struct_17)" +"(root-expand-context/outer-post-expansion-scope the-struct_43)" +"(root-expand-context/outer-use-site-scopes the-struct_43)" +"(root-expand-context/outer-frame-id the-struct_43)" +"(expand-context/outer-context the-struct_43)" +"(expand-context/outer-env the-struct_43)" +"(expand-context/outer-post-expansion-scope-action the-struct_43)" +"(expand-context/outer-scopes the-struct_43)" +"(expand-context/outer-def-ctx-scopes the-struct_43)" +"(expand-context/outer-binding-layer the-struct_43)" +"(expand-context/outer-reference-records the-struct_43)" +"(expand-context/outer-only-immediate? the-struct_43)" +"(expand-context/outer-need-eventually-defined the-struct_43)" +"(expand-context/outer-current-introduction-scopes the-struct_43)" " name46_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_17)))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))" "(let-values() ctx_4))))))))" "(define-values" "(as-named-context)" @@ -15440,10 +15448,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_129) ctx_5))" -"(let-values(((the-struct_2) v_129))" +"(let-values(((v_128) ctx_5))" +"(let-values(((the-struct_2) v_128))" "(if(expand-context/outer? the-struct_2)" -"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_129)))" +"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_128)))" "(expand-context/outer1.1" " inner49_0" "(root-expand-context/outer-post-expansion-scope the-struct_2)" @@ -15466,69 +15474,69 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_130) ctx_6))" -"(let-values(((the-struct_45) v_130))" -"(if(expand-context/outer? the-struct_45)" +"(let-values(((v_129) ctx_6))" +"(let-values(((the-struct_44) v_129))" +"(if(expand-context/outer? the-struct_44)" "(let-values(((inner50_0)" -"(let-values(((the-struct_46)(root-expand-context/outer-inner v_130)))" -"(if(expand-context/inner? the-struct_46)" +"(let-values(((the-struct_45)(root-expand-context/outer-inner v_129)))" +"(if(expand-context/inner? the-struct_45)" "(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_46)" -"(root-expand-context/inner-module-scopes the-struct_46)" -"(root-expand-context/inner-top-level-bind-scope the-struct_46)" -"(root-expand-context/inner-all-scopes-stx the-struct_46)" -"(root-expand-context/inner-defined-syms the-struct_46)" -"(root-expand-context/inner-counter the-struct_46)" -"(root-expand-context/inner-lift-key the-struct_46)" +"(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?51_0" -"(expand-context/inner-phase the-struct_46)" -"(expand-context/inner-namespace the-struct_46)" -"(expand-context/inner-just-once? the-struct_46)" -"(expand-context/inner-module-begin-k the-struct_46)" -"(expand-context/inner-allow-unbound? the-struct_46)" -"(expand-context/inner-in-local-expand? the-struct_46)" -"(expand-context/inner-stops the-struct_46)" -"(expand-context/inner-declared-submodule-names the-struct_46)" -"(expand-context/inner-lifts the-struct_46)" -"(expand-context/inner-lift-envs the-struct_46)" -"(expand-context/inner-module-lifts the-struct_46)" -"(expand-context/inner-require-lifts the-struct_46)" -"(expand-context/inner-to-module-lifts the-struct_46)" -"(expand-context/inner-requires+provides the-struct_46)" +"(expand-context/inner-phase the-struct_45)" +"(expand-context/inner-namespace the-struct_45)" +"(expand-context/inner-just-once? the-struct_45)" +"(expand-context/inner-module-begin-k the-struct_45)" +"(expand-context/inner-allow-unbound? the-struct_45)" +"(expand-context/inner-in-local-expand? the-struct_45)" +"(expand-context/inner-stops the-struct_45)" +"(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)" " observer52_0" -"(expand-context/inner-for-serializable? the-struct_46)" +"(expand-context/inner-for-serializable? the-struct_45)" " should-not-encounter-macros?53_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_46)))))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_45)))))" "(expand-context/outer1.1" " inner50_0" -"(root-expand-context/outer-post-expansion-scope the-struct_45)" -"(root-expand-context/outer-use-site-scopes the-struct_45)" -"(root-expand-context/outer-frame-id the-struct_45)" -"(expand-context/outer-context the-struct_45)" -"(expand-context/outer-env the-struct_45)" -"(expand-context/outer-post-expansion-scope-action the-struct_45)" -"(expand-context/outer-scopes the-struct_45)" -"(expand-context/outer-def-ctx-scopes the-struct_45)" -"(expand-context/outer-binding-layer the-struct_45)" -"(expand-context/outer-reference-records the-struct_45)" -"(expand-context/outer-only-immediate? the-struct_45)" -"(expand-context/outer-need-eventually-defined the-struct_45)" -"(expand-context/outer-current-introduction-scopes the-struct_45)" -"(expand-context/outer-name the-struct_45)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_44)" +"(root-expand-context/outer-use-site-scopes the-struct_44)" +"(root-expand-context/outer-frame-id the-struct_44)" +"(expand-context/outer-context the-struct_44)" +"(expand-context/outer-env the-struct_44)" +"(expand-context/outer-post-expansion-scope-action the-struct_44)" +"(expand-context/outer-scopes the-struct_44)" +"(expand-context/outer-def-ctx-scopes the-struct_44)" +"(expand-context/outer-binding-layer the-struct_44)" +"(expand-context/outer-reference-records the-struct_44)" +"(expand-context/outer-only-immediate? the-struct_44)" +"(expand-context/outer-need-eventually-defined the-struct_44)" +"(expand-context/outer-current-introduction-scopes the-struct_44)" +"(expand-context/outer-name the-struct_44)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_162)" +"(lambda(s_161)" "(begin" " 'to-syntax-list" -"(if(list? s_162)" -"(let-values() s_162)" -"(if(pair? s_162)" -"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_162))))(if r_27(cons(car s_162) r_27) #f)))" -"(if(syntax?$1 s_162)(let-values()(to-syntax-list.1(syntax-e$1 s_162)))(let-values() #f)))))))" +"(if(list? s_161)" +"(let-values() s_161)" +"(if(pair? s_161)" +"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_161))))(if r_27(cons(car s_161) r_27) #f)))" +"(if(syntax?$1 s_161)(let-values()(to-syntax-list.1(syntax-e$1 s_161)))(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))" @@ -15544,8 +15552,8 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_145)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_145) s_145)))))" +"(let-values(((s_146)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_146) s_146)))))" "(if(eq? phase_33 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" @@ -15608,23 +15616,23 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#f #t)))" +"(let-values(((lst_81)(list core-primitives core-forms))((lst_82) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_96)" -"(lambda(table_108 lst_82 lst_83)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_95)" +"(lambda(table_108 lst_83 lst_84)" "(begin" " 'for-loop" -"(if(if(pair? lst_82)(pair? lst_83) #f)" -"(let-values(((syms_12)(unsafe-car lst_82))" -"((rest_37)(unsafe-cdr lst_82))" -"((syntax?_2)(unsafe-car lst_83))" -"((rest_38)(unsafe-cdr lst_83)))" +"(if(if(pair? lst_83)(pair? lst_84) #f)" +"(let-values(((syms_12)(unsafe-car lst_83))" +"((rest_37)(unsafe-cdr lst_83))" +"((syntax?_2)(unsafe-car lst_84))" +"((rest_38)(unsafe-cdr lst_84)))" "(let-values(((table_109)" "(let-values(((table_110) table_108))" "(let-values(((ht_78) syms_12))" @@ -15634,16 +15642,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_78)))" -"((letrec-values(((for-loop_97)" +"((letrec-values(((for-loop_96)" "(lambda(table_111" -" i_88)" +" i_87)" "(begin" " 'for-loop" -"(if i_88" +"(if i_87" "(let-values(((sym_24)" "(hash-iterate-key" " ht_78" -" i_88)))" +" i_87)))" "(let-values(((table_112)" "(let-values(((table_113)" " table_111))" @@ -15697,24 +15705,24 @@ static const char *startup_source = " table_114)))))" "(if(not" " #f)" -"(for-loop_97" +"(for-loop_96" " table_112" "(hash-iterate-next" " ht_78" -" i_88))" +" i_87))" " table_112)))" " table_111)))))" -" for-loop_97)" +" for-loop_96)" " table_110" "(hash-iterate-first ht_78)))))))" "(if(not #f)" -"(for-loop_96 table_109 rest_37 rest_38)" +"(for-loop_95 table_109 rest_37 rest_38)" " table_109)))" " table_108)))))" -" for-loop_96)" +" for-loop_95)" " '#hasheq()" -" lst_80" -" lst_81)))))" +" lst_81" +" lst_82)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15753,15 +15761,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_79)))" -"((letrec-values(((for-loop_98)" -"(lambda(i_89)" +"((letrec-values(((for-loop_97)" +"(lambda(i_88)" "(begin" " 'for-loop" -"(if i_89" +"(if i_88" "(let-values(((sym_25 val_35)" "(hash-iterate-key+value" " ht_79" -" i_89)))" +" i_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15776,11 +15784,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_98" -"(hash-iterate-next ht_79 i_89))" +"(for-loop_97" +"(hash-iterate-next ht_79 i_88))" "(values))))" "(values))))))" -" for-loop_98)" +" for-loop_97)" "(hash-iterate-first ht_79))))" "(void)" "(let-values(((ht_80) core-forms))" @@ -15788,15 +15796,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_80)))" -"((letrec-values(((for-loop_99)" -"(lambda(i_90)" +"((letrec-values(((for-loop_98)" +"(lambda(i_89)" "(begin" " 'for-loop" -"(if i_90" +"(if i_89" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" " ht_80" -" i_90)))" +" i_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15817,11 +15825,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" -"(hash-iterate-next ht_80 i_90))" +"(for-loop_98" +"(hash-iterate-next ht_80 i_89))" "(values))))" "(values))))))" -" for-loop_99)" +" for-loop_98)" "(hash-iterate-first ht_80))))" "(void)))" "(let-values()(void)))))))" @@ -15866,20 +15874,20 @@ static const char *startup_source = "(lambda(s_23 phase_42)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_163) s_23))" -"(if(let-values(((s_164)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(if(pair? s_164)" -"(if(let-values(((s_165)(car s_164)))" -"(let-values(((or-part_164)(if(syntax?$1 s_165)(symbol?(syntax-e$1 s_165)) #f)))" -"(if or-part_164 or-part_164(symbol? s_165))))" -"(let-values(((s_166)(cdr s_164))) #t)" +"(let-values(((s_162) s_23))" +"(if(let-values(((s_163)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" +"(if(pair? s_163)" +"(if(let-values(((s_164)(car s_163)))" +"(let-values(((or-part_166)(if(syntax?$1 s_164)(symbol?(syntax-e$1 s_164)) #f)))" +"(if or-part_166 or-part_166(symbol? s_164))))" +"(let-values(((s_165)(cdr s_163))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_167)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(let-values(((id25_0)(let-values(((s_66)(car s_167))) s_66))" -"((_26_0)(let-values(((s_74)(cdr s_167))) s_74)))" +"(let-values(((s_166)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" +"(let-values(((id25_0)(let-values(((s_66)(car s_166))) s_66))" +"((_26_0)(let-values(((s_74)(cdr s_166))) s_74)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15898,30 +15906,30 @@ static const char *startup_source = "(lambda(s_0 proc_6 phase_32)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_168 mode_10)" +"(lambda(s_167 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_168)" +"(let-values() s_167)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_168))" +"(let-values()(proc_6 s_167))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_169)" -"(let-values(((or-part_13)(syntax->list$1 s_168)))" -"(if or-part_13 or-part_13(syntax-e$1 s_168))))" +"(let-values(((s_168)" +"(let-values(((or-part_13)(syntax->list$1 s_167)))" +"(if or-part_13 or-part_13(syntax-e$1 s_167))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_170)" +"(lambda(s_169)" "(begin" " 's->" "(loop_33" -" s_170" -"(syntax-taint-mode-property s_170)))))" +" s_169" +"(syntax-taint-mode-property s_169)))))" "((seen_19) #f))" -"(let-values(((s_144) s_169)" +"(let-values(((s_145) s_168)" "((f_36)" "(lambda(tail?_40 v_60)" "(begin" @@ -15931,7 +15939,7 @@ static const char *startup_source = "(let-values()(f_35 tail?_40 v_60))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_171 prev-depth_8)" +"(lambda(tail?_41 s_170 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15940,78 +15948,78 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_171" -"(lambda(tail?_42 s_172)" -"(f_36 tail?_42 s_172))" +" s_170" +"(lambda(tail?_42 s_171)" +"(f_36 tail?_42 s_171))" " seen_20))" -"(if(null? s_171)" +"(if(null? s_170)" "(let-values()" -"(f_36 tail?_41 s_171))" -"(if(pair? s_171)" +"(f_36 tail?_41 s_170))" +"(if(pair? s_170)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_171)" +"(car s_170)" " depth_8)" "(loop_7" " #t" -"(cdr s_171)" +"(cdr s_170)" " depth_8))))" -"(if(let-values(((or-part_165)" +"(if(let-values(((or-part_167)" "(symbol?" -" s_171)))" -"(if or-part_165" -" or-part_165" +" s_170)))" +"(if or-part_167" +" or-part_167" "(let-values(((or-part_72)" "(boolean?" -" s_171)))" +" s_170)))" "(if or-part_72" " or-part_72" -"(number? s_171)))))" -"(let-values()(f_36 #f s_171))" +"(number? s_170)))))" +"(let-values()(f_36 #f s_170))" "(if(let-values(((or-part_73)" "(vector?" -" s_171)))" +" s_170)))" "(if or-part_73" " or-part_73" "(let-values(((or-part_74)" "(box?" -" s_171)))" +" s_170)))" "(if or-part_74" " or-part_74" "(let-values(((or-part_75)" "(prefab-struct-key" -" s_171)))" +" s_170)))" "(if or-part_75" " or-part_75" "(hash?" -" s_171)))))))" +" s_170)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_171" -"(lambda(tail?_43 s_173)" -"(f_36 tail?_43 s_173))" +" s_170" +"(lambda(tail?_43 s_172)" +"(f_36 tail?_43 s_172))" " seen_20))" "(let-values()" -"(f_36 #f s_171))))))))))))" +"(f_36 #f s_170))))))))))))" " loop_7)" " #f" -" s_144" +" s_145" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_168" -"(if(syntax-any-macro-scopes? s_168)" -"(syntax-property-remove s_168 original-property-sym)" -" s_168))))" +" s_167" +"(if(syntax-any-macro-scopes? s_167)" +"(syntax-property-remove s_167 original-property-sym)" +" s_167))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_168)))" +"(let-values(((c_19)(syntax-e$1 s_167)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" @@ -16027,20 +16035,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_174)" -"(let-values(((or-part_166)" +"(let-values(((s_173)" +"(let-values(((or-part_168)" "(syntax->list$1(cdr d_19))))" -"(if or-part_166 or-part_166(cdr d_19))))" +"(if or-part_168 or-part_168(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_175)" +"(lambda(s_174)" "(begin" " 's->" "(loop_33" -" s_175" -"(syntax-taint-mode-property s_175)))))" +" s_174" +"(syntax-taint-mode-property s_174)))))" "((seen_21) #f))" -"(let-values(((s_77) s_174)" +"(let-values(((s_77) s_173)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -16050,7 +16058,7 @@ static const char *startup_source = "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" "((letrec-values(((loop_78)" -"(lambda(tail?_46 s_176 prev-depth_9)" +"(lambda(tail?_46 s_175 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16059,107 +16067,107 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" -"(lambda(tail?_47 s_177)" -"(f_8 tail?_47 s_177))" +" s_175" +"(lambda(tail?_47 s_176)" +"(f_8 tail?_47 s_176))" " seen_22))" -"(if(null? s_176)" +"(if(null? s_175)" "(let-values()" -"(f_8 tail?_46 s_176))" -"(if(pair? s_176)" +"(f_8 tail?_46 s_175))" +"(if(pair? s_175)" "(let-values()" "(f_8" " tail?_46" "(cons" "(loop_78" " #f" -"(car s_176)" +"(car s_175)" " depth_9)" "(loop_78" " #t" -"(cdr s_176)" +"(cdr s_175)" " depth_9))))" -"(if(let-values(((or-part_167)" -"(symbol?" -" s_176)))" -"(if or-part_167" -" or-part_167" -"(let-values(((or-part_168)" -"(boolean?" -" s_176)))" -"(if or-part_168" -" or-part_168" -"(number?" -" s_176)))))" -"(let-values()" -"(f_8 #f s_176))" "(if(let-values(((or-part_169)" -"(vector?" -" s_176)))" +"(symbol?" +" s_175)))" "(if or-part_169" " or-part_169" "(let-values(((or-part_170)" -"(box?" -" s_176)))" +"(boolean?" +" s_175)))" "(if or-part_170" " or-part_170" -"(let-values(((or-part_171)" -"(prefab-struct-key" -" s_176)))" +"(number?" +" s_175)))))" +"(let-values()" +"(f_8 #f s_175))" +"(if(let-values(((or-part_171)" +"(vector?" +" s_175)))" "(if or-part_171" " or-part_171" +"(let-values(((or-part_172)" +"(box?" +" s_175)))" +"(if or-part_172" +" or-part_172" +"(let-values(((or-part_173)" +"(prefab-struct-key" +" s_175)))" +"(if or-part_173" +" or-part_173" "(hash?" -" s_176)))))))" +" s_175)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" +" s_175" "(lambda(tail?_48" -" s_178)" +" s_177)" "(f_8" " tail?_48" -" s_178))" +" s_177))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_176))))))))))))" +" s_175))))))))))))" " loop_78)" " #f" " s_77" " 0)))))" -" s_168" -"(if(syntax-any-macro-scopes? s_168)" -"(syntax-property-remove s_168 original-property-sym)" -" s_168))))" -"(let-values()(loop_33 s_168 'transparent)))))" -"(let-values()(loop_33 s_168 'transparent)))))" +" s_167" +"(if(syntax-any-macro-scopes? s_167)" +"(syntax-property-remove s_167 original-property-sym)" +" s_167))))" +"(let-values()(loop_33 s_167 'transparent)))))" +"(let-values()(loop_33 s_167 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_168)))" +"(let-values(((c_20)(syntax-e$1 s_167)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_32)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_168 'transparent))" +"(let-values()(loop_33 s_167 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_168 'transparent-binding))" -"(let-values()(loop_33 s_168 'opaque))))))))))))))))" +"(let-values()(loop_33 s_167 'transparent-binding))" +"(let-values()(loop_33 s_167 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_179)" +"(lambda(s_178)" "(begin" -"(let-values(((or-part_172)(syntax-property$1 s_179 'taint-mode)))" -"(if or-part_172 or-part_172(syntax-property$1 s_179 'certify-mode))))))" +"(let-values(((or-part_174)(syntax-property$1 s_178 'taint-mode)))" +"(if or-part_174 or-part_174(syntax-property$1 s_178 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" +"(lambda(s_179)(begin(syntax-property-remove(syntax-property-remove s_179 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16168,18 +16176,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_78)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_59 lst_84)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_59 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((smss_26)(unsafe-car lst_84))" -"((rest_39)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((smss_26)(unsafe-car lst_85))" +"((rest_39)(unsafe-cdr lst_85)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16224,17 +16232,17 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_81)))" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_100)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_91)" +" i_90)" "(begin" " 'for-loop" -"(if i_91" +"(if i_90" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" " ht_81" -" i_91)))" +" i_90)))" "(let-values(((bindings_3" " covered-scope-sets_1)" "(let-values(((ht_82" @@ -16258,47 +16266,47 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_115)))))" -"((s_181)" +"((s_180)" " s_0)" "((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_102)" +"((letrec-values(((for-loop_101)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_92)" +" i_91)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_92))" +" i_91))" "(let-values(((scs_15)" "(if(pair?" -" i_92)" +" i_91)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_92)))" +" i_91)))" "(let-values()" "(hash-iterate-key" " ht_82" -" i_92))))" +" i_91))))" "((b_60)" "(if(pair?" -" i_92)" +" i_91)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_92))))" +" i_91))))" "(let-values(((b-info_1)" "(if(symbol-interned?" " sym_16)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_181" +" s_180" " extra-shifts_5)" " sym_16" " #f)" @@ -16313,7 +16321,7 @@ static const char *startup_source = "(let-values()" "(hash-iterate-value" " ht_82" -" i_92)))))" +" i_91)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16322,10 +16330,10 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_60" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_175)" " all-bindings?_0))" -"(if or-part_173" -" or-part_173" +"(if or-part_175" +" or-part_175" "(subset?" " scs_15" " s-scs_0)))" @@ -16383,19 +16391,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_102" +"(for-loop_101" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_92)" +" i_91)" "(let-values()" "(cdr" -" i_92))" +" i_91))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" " ht_82" -" i_92)))" +" i_91)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16405,7 +16413,7 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_102)" +" for-loop_101)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" @@ -16416,19 +16424,19 @@ static const char *startup_source = " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_101" +"(for-loop_100" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" " ht_81" -" i_91))" +" i_90))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_101)" +" for-loop_100)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" @@ -16444,11 +16452,11 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_100 fold-var_60 rest_39) fold-var_60)))" +"(if(not #f)(for-loop_99 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_100)" +" for-loop_99)" " null" -" lst_77))))))" +" lst_78))))))" "(let-values(((ht_74)(car hts_0)))(if(null?(cdr hts_0)) ht_74(hash-set ht_74 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" @@ -16461,12 +16469,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_83)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 i_93)" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" -"(if i_93" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_93)))" +"(if i_92" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_92)))" "(let-values(((fold-var_19)" "(let-values(((fold-var_20) fold-var_63))" "(let-values(((fold-var_64)" @@ -16486,16 +16494,16 @@ static const char *startup_source = " fold-var_20))))" "(values fold-var_64)))))" "(if(not #f)" -"(for-loop_103" +"(for-loop_102" " fold-var_19" -"(unsafe-immutable-hash-iterate-next ht_83 i_93))" +"(unsafe-immutable-hash-iterate-next ht_83 i_92))" " fold-var_19)))" " fold-var_63)))))" -" for-loop_103)" +" for-loop_102)" " null" "(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_131)(vector-ref v_131 0))))" +"((temp3_2)(lambda(v_130)(vector-ref v_130 0))))" "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16510,9 +16518,9 @@ static const char *startup_source = "(syntax-debug-info-string id_21 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_155 ctx_8)" +"(lambda(s_154 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_155(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_154(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16522,13 +16530,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_104)" -"(lambda(result_65 lst_85)" +"((letrec-values(((for-loop_103)" +"(lambda(result_65 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((fb-info_0)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((fb-info_0)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16541,10 +16549,10 @@ static const char *startup_source = " null))))))" "(values result_66)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_104 result_1 rest_40)" +"(for-loop_103 result_1 rest_40)" " result_1)))" " result_65)))))" -" for-loop_104)" +" for-loop_103)" " #f" " lst_6))))))" " (let-values () \"\")" @@ -16559,19 +16567,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_87)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_87)" +"(let-values()(check-list lst_87)))" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_65 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((b_21)(unsafe-car lst_87))" +"(if(pair? lst_88)" +"(let-values(((b_21)(unsafe-car lst_88))" "((rest_41)" -"(unsafe-cdr lst_87)))" +"(unsafe-cdr lst_88)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" " fold-var_65))" @@ -16586,31 +16594,31 @@ static const char *startup_source = "(values" " fold-var_66)))))" "(if(not #f)" -"(for-loop_105 fold-var_33 rest_41)" +"(for-loop_104 fold-var_33 rest_41)" " fold-var_33)))" " fold-var_65)))))" -" for-loop_105)" +" for-loop_104)" " null" -" lst_86)))))" +" lst_87)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_89) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_89 pos_11)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_67 lst_90 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_89) #t #f)" +"(if(if(pair? lst_90) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_89))" +"(unsafe-car lst_90))" "((rest_42)" -"(unsafe-cdr lst_89))" +"(unsafe-cdr lst_90))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_68)" @@ -16626,15 +16634,15 @@ static const char *startup_source = "(values" " fold-var_69)))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_105" " fold-var_9" " rest_42" "(+ pos_11 1))" " fold-var_9)))" " fold-var_67)))))" -" for-loop_106)" +" for-loop_105)" " null" -" lst_88" +" lst_89" " start_14))))))))))" " loop_77)" " info_3" @@ -16642,31 +16650,31 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_90) relevant-scope-sets_0))" +"(let-values(((lst_91) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" -"(lambda(s_182 lst_91)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_106)" +"(lambda(s_181 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((l_48)(unsafe-car lst_91))" -"((rest_43)(unsafe-cdr lst_91)))" +"(if(pair? lst_92)" +"(let-values(((l_48)(unsafe-car lst_92))" +"((rest_43)(unsafe-cdr lst_92)))" "(let-values(((s_78)" -"(let-values(((s_183) s_182))" -"(let-values(((s_184)" +"(let-values(((s_182) s_181))" +"(let-values(((s_183)" "(let-values()" "(set-intersect" -" s_183" +" s_182" "(list->set l_48)))))" -"(values s_184)))))" -"(if(not #f)(for-loop_107 s_78 rest_43) s_78)))" -" s_182)))))" -" for-loop_107)" +"(values s_183)))))" +"(if(not #f)(for-loop_106 s_78 rest_43) s_78)))" +" s_181)))))" +" for-loop_106)" "(list->set(car relevant-scope-sets_0))" -" lst_90))))))" +" lst_91))))))" "(string-append" "((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" @@ -16680,7 +16688,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_92)" +"(let-values(((lst_93)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_37 b_61)" @@ -16693,14 +16701,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 lst_93)" +"(let-values()(check-list lst_93)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_63 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((b_38)(unsafe-car lst_93))" -"((rest_44)(unsafe-cdr lst_93)))" +"(if(pair? lst_94)" +"(let-values(((b_38)(unsafe-car lst_94))" +"((rest_44)(unsafe-cdr lst_94)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64)" " fold-var_63))" @@ -16740,31 +16748,31 @@ static const char *startup_source = " fold-var_64))))" "(values fold-var_70)))))" "(if(not #f)" -"(for-loop_103 fold-var_20 rest_44)" +"(for-loop_102 fold-var_20 rest_44)" " fold-var_20)))" " fold-var_63)))))" -" for-loop_103)" +" for-loop_102)" " null" -" lst_92)))))" +" lst_93)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_95) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_94)))" +"(let-values()(check-list lst_95)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_71 lst_95 pos_12)" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_71 lst_96 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_95) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_95))" -"((rest_0)(unsafe-cdr lst_95))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_96))" +"((rest_0)(unsafe-cdr lst_96))" "((layer_3) pos_12))" "(let-values(((fold-var_72)" "(let-values(((fold-var_73)" @@ -16779,15 +16787,15 @@ static const char *startup_source = " fold-var_73))))" "(values fold-var_74)))))" "(if(not #f)" -"(for-loop_108" +"(for-loop_107" " fold-var_72" " rest_0" "(+ pos_12 1))" " fold-var_72)))" " fold-var_71)))))" -" for-loop_108)" +" for-loop_107)" " null" -" lst_94" +" lst_95" " start_15)))))))))))" " loop_78)" " info_3" @@ -16808,16 +16816,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_185)(unsafe-car lst_10))" +"(let-values(((s_184)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_76)" "(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_185)" +"(if(set-member? common-scopes_0 s_184)" "(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_185)" +"(let-values() s_184)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_77))))" @@ -16853,34 +16861,34 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_96) scopes_19))" +"(let-values(((lst_97) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_78 lst_97)" +"(let-values()(check-list lst_97)))" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_78 lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_97)" -"(let-values(((s_186)(unsafe-car lst_97))" -"((rest_45)(unsafe-cdr lst_97)))" +"(if(pair? lst_98)" +"(let-values(((s_185)(unsafe-car lst_98))" +"((rest_45)(unsafe-cdr lst_98)))" "(let-values(((fold-var_79)" "(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_186))" +"(if(not(set-member? common-scopes_1 s_185))" "(let-values(((fold-var_81) fold-var_80))" "(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_186)" +"(let-values() s_185)" " fold-var_81))))" "(values fold-var_82)))" " fold-var_80))))" -"(if(not #f)(for-loop_109 fold-var_79 rest_45) fold-var_79)))" +"(if(not #f)(for-loop_108 fold-var_79 rest_45) fold-var_79)))" " fold-var_78)))))" -" for-loop_109)" +" for-loop_108)" " null" -" lst_96))))" +" lst_97))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16888,17 +16896,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_98) strs_0))" +"(let-values(((lst_99) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_110)" -"(lambda(fold-var_83 lst_99)" +"(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_83 lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_99)" -"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" +"(if(pair? lst_100)" +"(let-values(((str_4)(unsafe-car lst_100))((rest_46)(unsafe-cdr lst_100)))" "(let-values(((fold-var_84)" "(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" @@ -16908,11 +16916,11 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_85))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_110 fold-var_84 rest_46) fold-var_84)))" +"(if(not #f)(for-loop_109 fold-var_84 rest_46) fold-var_84)))" " fold-var_83)))))" -" for-loop_110)" +" for-loop_109)" " null" -" lst_98)))))))))))" +" lst_99)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" @@ -16962,31 +16970,31 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_45) phase6_0))" -"(let-values(((s_143) s7_1))" +"(let-values(((s_144) s7_1))" "(let-values(((ht_77)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" "((letrec-values(((loop_80)" -"(lambda(v_132 ht_84)" +"(lambda(v_131 ht_84)" "(begin" " 'loop" -"(if(identifier? v_132)" +"(if(identifier? v_131)" "(let-values()" -"(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_132) null)))" +"(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_78) l_7))" +"(let-values(((lst_79) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_95)" -"(lambda(lst_100)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_94)" +"(lambda(lst_101)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((id_2)(unsafe-car lst_100))" +"(if(pair? lst_101)" +"(let-values(((id_2)(unsafe-car lst_101))" "((rest_47)" -"(unsafe-cdr lst_100)))" +"(unsafe-cdr lst_101)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16995,7 +17003,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_2" -" v_132" +" v_131" " phase_45)" "(let-values()" "(raise-syntax-error$1" @@ -17003,21 +17011,21 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_143" -" v_132))" +" s_144" +" v_131))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_95 rest_47)" +"(for-loop_94 rest_47)" "(values))))" "(values))))))" -" for-loop_95)" -" lst_78)))" +" for-loop_94)" +" lst_79)))" "(void)" -"(hash-set ht_84(syntax-e$1 v_132)(cons v_132 l_7)))))" -"(if(pair? v_132)" -"(let-values()(loop_80(cdr v_132)(loop_80(car v_132) ht_84)))" +"(hash-set ht_84(syntax-e$1 v_131)(cons v_131 l_7)))))" +"(if(pair? v_131)" +"(let-values()(loop_80(cdr v_131)(loop_80(car v_131) ht_84)))" "(let-values() ht_84)))))))" " loop_80)" " ids_2" @@ -17031,12 +17039,12 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_101) s_0))" +"(let-values(((lst_102) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_111)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_110)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" @@ -17051,11 +17059,11 @@ static const char *startup_source = "(remove-scopes id_10(unbox use-sites_0)))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" +"(if(not #f)(for-loop_110 fold-var_87 rest_48) fold-var_87)))" " fold-var_86)))))" -" for-loop_111)" +" for-loop_110)" " null" -" lst_101)))))" +" lst_102)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17158,22 +17166,22 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_41 mpi_19)" +"(lambda(t_42 mpi_19)" "(begin" -"(let-values(((or-part_174)(hash-ref(mpi-intern-table-fast t_41) mpi_19 #f)))" -"(if or-part_174" -" or-part_174" +"(let-values(((or-part_176)(hash-ref(mpi-intern-table-fast t_42) mpi_19 #f)))" +"(if or-part_176" +" or-part_176" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_19)))" "(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 mpi_19) mpi_19))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_42) mpi_19 mpi_19) mpi_19))" "(let-values()" -"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_41 base_15) #f)))" +"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_42 base_15) #f)))" "(let-values(((at-name_0)" -"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_41) name_2 #f)))" +"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_42) name_2 #f)))" "(if or-part_29" " or-part_29" "(let-values(((at-name_1)(make-hasheq)))" -"(begin(hash-set!(mpi-intern-table-normal t_41) name_2 at-name_1) at-name_1))))))" +"(begin(hash-set!(mpi-intern-table-normal t_42) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" "(let-values(((or-part_77)(hash-ref at-name_0 interned-base_0 #f)))" "(if or-part_77" @@ -17181,20 +17189,20 @@ static const char *startup_source = "(let-values(((mpi_20)" "(if(eq? base_15 interned-base_0)" " mpi_19" -"(let-values(((the-struct_47) mpi_19))" -"(if(1/module-path-index? the-struct_47)" +"(let-values(((the-struct_46) mpi_19))" +"(if(1/module-path-index? the-struct_46)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_47)" +"(module-path-index-path the-struct_46)" " base3_0" -"(module-path-index-resolved the-struct_47)" -"(module-path-index-shift-cache the-struct_47)))" +"(module-path-index-resolved the-struct_46)" +"(module-path-index-shift-cache the-struct_46)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_47))))))" +" the-struct_46))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_20) mpi_20))))))" -"(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set!(mpi-intern-table-fast t_42) mpi_19 i-mpi_0) i-mpi_0))))))))))))" "(define-values" "(unsafe-vector-ref-id)" "(if(eq?(system-type 'vm) 'chez-scheme)(let-values() 'unsafe-vector*-ref)(let-values() 'vector*-ref)))" @@ -17255,37 +17263,37 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_133)" +"(lambda(v_132)" "(begin" " 'unique-list" -"(if(pair? v_133)" +"(if(pair? v_132)" "(reverse$1" -"(let-values(((lst_102) v_133))" +"(let-values(((lst_103) v_132))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" +"(let-values()(check-list lst_103)))" "((letrec-values(((for-loop_26)" -"(lambda(fold-var_10 lst_81)" +"(lambda(fold-var_10 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((i_94)(unsafe-car lst_81))" -"((rest_49)(unsafe-cdr lst_81)))" +"(if(pair? lst_82)" +"(let-values(((i_93)(unsafe-car lst_82))" +"((rest_49)(unsafe-cdr lst_82)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_10))" "(let-values(((fold-var_91)" "(let-values()" "(cons" -"(let-values() i_94)" +"(let-values() i_93)" " fold-var_90))))" "(values fold-var_91)))))" "(if(not #f)(for-loop_26 fold-var_89 rest_49) fold-var_89)))" " fold-var_10)))))" " for-loop_26)" " null" -" lst_102))))" -" v_133)))))" +" lst_103))))" +" v_132)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" @@ -17294,12 +17302,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_82)" -"(lambda(table_116 i_95)" +"((letrec-values(((for-loop_81)" +"(lambda(table_116 i_94)" "(begin" " 'for-loop" -"(if i_95" -"(let-values(((k_18 v_62)(hash-iterate-key+value ht_85 i_95)))" +"(if i_94" +"(let-values(((k_18 v_62)(hash-iterate-key+value ht_85 i_94)))" "(let-values(((table_117)" "(let-values(((table_111) table_116))" "(let-values(((table_118)" @@ -17315,10 +17323,10 @@ static const char *startup_source = " val_36)))))" "(values table_118)))))" "(if(not #f)" -"(for-loop_82 table_117(hash-iterate-next ht_85 i_95))" +"(for-loop_81 table_117(hash-iterate-next ht_85 i_94))" " table_117)))" " table_116)))))" -" for-loop_82)" +" for-loop_81)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" "(let-values((()" @@ -17328,12 +17336,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_16 end_10 inc_4)))" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_111)" "(lambda(pos_15)" "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_96) pos_15))" +"(let-values(((i_95) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17343,7 +17351,7 @@ static const char *startup_source = "(let-values(((mpi_23)" "(hash-ref" " rev-positions_0" -" i_96)))" +" i_95)))" "((letrec-values(((loop_81)" "(lambda(mpi_24)" "(begin" @@ -17373,9 +17381,9 @@ static const char *startup_source = " mpi_23)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_112(+ pos_15 inc_4))(values))))" +"(if(not #f)(for-loop_111(+ pos_15 inc_4))(values))))" "(values))))))" -" for-loop_112)" +" for-loop_111)" " start_16)))" "(values))))" "(let-values()" @@ -17390,7 +17398,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_20" -"(let-values(((k_19 v_134)" +"(let-values(((k_19 v_133)" "(hash-iterate-key+value ht_86 i_20)))" "(let-values(((table_19)" "(let-values(((table_120) table_119))" @@ -17400,7 +17408,7 @@ static const char *startup_source = " val_37)" "(let-values()" "(values" -" v_134" +" v_133" " k_19))))" "(hash-set" " table_120" @@ -17421,7 +17429,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" -"(let-values(((v_135)(make-vector len_11 0)))" +"(let-values(((v_134)(make-vector len_11 0)))" "(begin" "(if(zero? len_11)" "(void)" @@ -17434,24 +17442,24 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_29)" -"(lambda(i_97 pos_16)" +"(lambda(i_96 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_90) pos_16))" -"(let-values(((i_98)" -"(let-values(((i_99) i_97))" -"(let-values(((i_100)" +"(let-values(((i_89) pos_16))" +"(let-values(((i_97)" +"(let-values(((i_98) i_96))" +"(let-values(((i_99)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_135" -" i_99" +" v_134" +" i_98" "(let-values()" "(let-values(((mpi_25)" "(hash-ref" " rev-gen-order_0" -" i_90)))" +" i_89)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17464,13 +17472,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_175)" +"(let-values(((or-part_177)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_25)))))" -"(if or-part_175" -" or-part_175" +"(if or-part_177" +" or-part_177" " 'self))))" "(if(not" " base_17)" @@ -17487,42 +17495,42 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_99)))))" -"(values i_100)))))" +" i_98)))))" +"(values i_99)))))" "(if(if(not" "((lambda x_9" -"(unsafe-fx= i_98 len_11))" -" i_90))" +"(unsafe-fx= i_97 len_11))" +" i_89))" "(not #f)" " #f)" -"(for-loop_29 i_98(+ pos_16 inc_5))" -" i_98)))" -" i_97)))))" +"(for-loop_29 i_97(+ pos_16 inc_5))" +" i_97)))" +" i_96)))))" " for-loop_29)" " 0" " start_17)))))" -" v_135))))))" +" v_134))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_101)" +"(let-values(((vec_25 i_100)" "(let-values(((start_18) 0)((end_12)(hash-count rev-positions_0))((inc_6) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" "((letrec-values(((for-loop_55)" -"(lambda(vec_26 i_102 pos_17)" +"(lambda(vec_26 i_101 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_21) pos_17))" -"(let-values(((vec_27 i_103)" +"(let-values(((vec_27 i_102)" "(let-values(((vec_28) vec_26)" -"((i_37) i_102))" -"(let-values(((vec_29 i_104)" +"((i_37) i_101))" +"(let-values(((vec_29 i_103)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17547,16 +17555,16 @@ static const char *startup_source = "(unsafe-fx+" " i_37" " 1)))))))" -"(values vec_29 i_104)))))" +"(values vec_29 i_103)))))" "(if(not #f)" -"(for-loop_55 vec_27 i_103(+ pos_17 inc_6))" -"(values vec_27 i_103))))" -"(values vec_26 i_102))))))" +"(for-loop_55 vec_27 i_102(+ pos_17 inc_6))" +"(values vec_27 i_102))))" +"(values vec_26 i_101))))))" " for-loop_55)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_101)))))))))))))))" +"(shrink-vector vec_25 i_100)))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" @@ -17572,12 +17580,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_113)" +"((letrec-values(((for-loop_112)" "(lambda(pos_18 pos_19)" "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_12) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_105) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_104) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17586,7 +17594,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_105" +" i_104" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17604,9 +17612,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_113(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_112(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_113)" +" for-loop_112)" " 0" " start_19)))" "(void)" @@ -17615,7 +17623,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_13)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_13)))" -"(let-values(((v_136)(make-vector len_13 0)))" +"(let-values(((v_135)(make-vector len_13 0)))" "(begin" "(if(zero? len_13)" "(void)" @@ -17625,34 +17633,34 @@ static const char *startup_source = "(begin(check-vector vec_33)(values vec_33(unsafe-vector-length vec_33))))))" "(begin" " #f" -"((letrec-values(((for-loop_114)" -"(lambda(i_106 pos_20)" +"((letrec-values(((for-loop_113)" +"(lambda(i_105 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" -"(let-values(((p_31)(unsafe-vector-ref vec_32 pos_20)))" +"(let-values(((p_32)(unsafe-vector-ref vec_32 pos_20)))" "(let-values(((i_45)" -"(let-values(((i_62) i_106))" -"(let-values(((i_107)" +"(let-values(((i_62) i_105))" +"(let-values(((i_106)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_136" +" v_135" " i_62" "(let-values()" -"(vector*-ref gen_0 p_31)))" +"(vector*-ref gen_0 p_32)))" "(unsafe-fx+ 1 i_62)))))" -"(values i_107)))))" -"(if(if(not((lambda x_42(unsafe-fx= i_45 len_13)) p_31))" +"(values i_106)))))" +"(if(if(not((lambda x_42(unsafe-fx= i_45 len_13)) p_32))" "(not #f)" " #f)" -"(for-loop_114 i_45(unsafe-fx+ 1 pos_20))" +"(for-loop_113 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" -" i_106)))))" -" for-loop_114)" +" i_105)))))" +" for-loop_113)" " 0" " 0)))))" -" v_136)))))))))" +" v_135)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17665,12 +17673,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_87)))" -"((letrec-values(((for-loop_115)" -"(lambda(i_108)" +"((letrec-values(((for-loop_114)" +"(lambda(i_107)" "(begin" " 'for-loop" -"(if i_108" -"(let-values(((mpi_26 pos_21)(hash-iterate-key+value ht_87 i_108)))" +"(if i_107" +"(let-values(((mpi_26 pos_21)(hash-iterate-key+value ht_87 i_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17680,9 +17688,9 @@ static const char *startup_source = "(vector-set! vec_34 pos_21 mpi_26))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_108))(values))))" +"(if(not #f)(for-loop_114(hash-iterate-next ht_87 i_107))(values))))" "(values))))))" -" for-loop_115)" +" for-loop_114)" "(hash-iterate-first ht_87))))" "(void)" " vec_34))))))" @@ -17691,15 +17699,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_103) mus_0))" +"(let-values(((lst_104) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_92 lst_104)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" +"((letrec-values(((for-loop_115)" +"(lambda(fold-var_92 lst_105)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" +"(if(pair? lst_105)" +"(let-values(((mu_1)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_94) fold-var_92))" "(let-values(((fold-var_95)" @@ -17714,30 +17722,30 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_94))))" "(values fold-var_95)))))" -"(if(not #f)(for-loop_116 fold-var_93 rest_50) fold-var_93)))" +"(if(not #f)(for-loop_115 fold-var_93 rest_50) fold-var_93)))" " fold-var_92)))))" -" for-loop_116)" +" for-loop_115)" " null" -" lst_103)))))))" +" lst_104)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_91)" +"(lambda(v_90)" "(begin" -"(let-values(((or-part_176)(null? v_91)))" -"(if or-part_176" -" or-part_176" -"(let-values(((or-part_177)(boolean? v_91)))" -"(if or-part_177" -" or-part_177" -"(let-values(((or-part_178)" -"(if(fixnum? v_91)(if(< v_91(sub1(expt 2 30)))(> v_91(-(expt 2 30))) #f) #f)))" +"(let-values(((or-part_178)(null? v_90)))" "(if or-part_178" " or-part_178" -"(let-values(((or-part_57)(symbol? v_91)))" +"(let-values(((or-part_179)(boolean? v_90)))" +"(if or-part_179" +" or-part_179" +"(let-values(((or-part_180)" +"(if(fixnum? v_90)(if(< v_90(sub1(expt 2 30)))(> v_90(-(expt 2 30))) #f) #f)))" +"(if or-part_180" +" or-part_180" +"(let-values(((or-part_57)(symbol? v_90)))" "(if or-part_57" " or-part_57" -"(let-values(((or-part_179)(char? v_91)))" -"(if or-part_179 or-part_179(keyword? v_91))))))))))))))" +"(let-values(((or-part_181)(char? v_90)))" +"(if or-part_181 or-part_181(keyword? v_90))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17750,15 +17758,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_105) phases-in-order_0))" +"(let-values(((lst_106) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_117)" -"(lambda(fold-var_96 lst_106)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" +"((letrec-values(((for-loop_116)" +"(lambda(fold-var_96 lst_107)" "(begin" " 'for-loop" -"(if(pair? lst_106)" -"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" +"(if(pair? lst_107)" +"(let-values(((phase_47)(unsafe-car lst_107))((rest_51)(unsafe-cdr lst_107)))" "(let-values(((fold-var_97)" "(let-values(((fold-var_35) fold-var_96))" "(let-values(((fold-var_98)" @@ -17776,21 +17784,21 @@ static const char *startup_source = " mpis_5))))" " fold-var_35))))" "(values fold-var_98)))))" -"(if(not #f)(for-loop_117 fold-var_97 rest_51) fold-var_97)))" +"(if(not #f)(for-loop_116 fold-var_97 rest_51) fold-var_97)))" " fold-var_96)))))" -" for-loop_117)" +" for-loop_116)" " null" -" lst_105))))))))))" +" lst_106))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_137) v4_0))" +"(let-values(((v_136) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_137)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_136)))" "(let-values(((state_24)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -17799,64 +17807,64 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_100)(begin 'add-frontier!(set! frontier_0(cons v_100 frontier_0))))" -"((kind_3 v_102)(add-frontier!_0 v_102)))))" +"((v_99)(begin 'add-frontier!(set! frontier_0(cons v_99 frontier_0))))" +"((kind_3 v_101)(add-frontier!_0 v_101)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_104)" +"(lambda(v_103)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_82)" -"(lambda(v_106)" +"(lambda(v_105)" "(begin" " 'loop" -"(if(let-values(((or-part_180)" +"(if(let-values(((or-part_182)" "(interned-literal?" -" v_106)))" -"(if or-part_180" -" or-part_180" +" v_105)))" +"(if or-part_182" +" or-part_182" "(1/module-path-index?" -" v_106)))" +" v_105)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_106" +" v_105" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_106" +" v_105" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_106" +" v_105" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_106)" +" v_105)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_106)" -" v_106" +" v_105)" +" v_105" " add-frontier!_0" " state_24)))" "(if(serialize?" -" v_106)" +" v_105)" "(let-values()" "((serialize-ref" -" v_106)" -" v_106" +" v_105)" +" v_105" "(case-lambda" "((sub-v_0)" "(loop_82" @@ -17867,31 +17875,31 @@ static const char *startup_source = " sub-v_1)))" " state_24))" "(if(pair?" -" v_106)" +" v_105)" "(let-values()" "(begin" "(loop_82" "(car" -" v_106))" +" v_105))" "(loop_82" "(cdr" -" v_106))))" +" v_105))))" "(if(vector?" -" v_106)" +" v_105)" "(let-values()" -"(if(let-values(((or-part_181)" +"(if(let-values(((or-part_183)" "(immutable?" -" v_106)))" -"(if or-part_181" -" or-part_181" +" v_105)))" +"(if or-part_183" +" or-part_183" "(zero?" "(vector-length" -" v_106))))" +" v_105))))" "(begin" "(let-values(((vec_35" " len_15)" "(let-values(((vec_36)" -" v_106))" +" v_105))" "(begin" "(check-vector" " vec_36)" @@ -17901,7 +17909,7 @@ static const char *startup_source = " vec_36))))))" "(begin" " #f" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_117)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -17924,26 +17932,26 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_117" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_118)" +" for-loop_117)" " 0)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_37" " len_16)" "(let-values(((vec_38)" -" v_106))" +" v_105))" "(begin" "(check-vector" " vec_38)" @@ -17953,7 +17961,7 @@ static const char *startup_source = " vec_38))))))" "(begin" " #f" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_118)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -17976,60 +17984,60 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_118" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_118)" " 0)))" "(void)))))" "(if(box?" -" v_106)" +" v_105)" "(let-values()" "(if(immutable?" -" v_106)" +" v_105)" "(loop_82" "(unbox" -" v_106))" +" v_105))" "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_106)))))" +" v_105)))))" "(if(hash?" -" v_106)" +" v_105)" "(let-values()" "(if(immutable?" -" v_106)" +" v_105)" "(begin" -"(let-values(((lst_75)" +"(let-values(((lst_76)" "(sorted-hash-keys" -" v_106)))" +" v_105)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_75)))" -"((letrec-values(((for-loop_120)" -"(lambda(lst_107)" +" lst_76)))" +"((letrec-values(((for-loop_119)" +"(lambda(lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_107)" +" lst_108)" "(let-values(((k_20)" "(unsafe-car" -" lst_107))" +" lst_108))" "((rest_52)" "(unsafe-cdr" -" lst_107)))" +" lst_108)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18041,48 +18049,48 @@ static const char *startup_source = " k_20)" "(loop_82" "(hash-ref" -" v_106" +" v_105" " k_20))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_119" " rest_52)" "(values))))" "(values))))))" -" for-loop_120)" -" lst_75)))" +" for-loop_119)" +" lst_76)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_108)" +"(let-values(((lst_109)" "(sorted-hash-keys" -" v_106)))" +" v_105)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_108)))" -"((letrec-values(((for-loop_121)" -"(lambda(lst_52)" +" lst_109)))" +"((letrec-values(((for-loop_120)" +"(lambda(lst_53)" "(begin" " 'for-loop" "(if(pair?" -" lst_52)" +" lst_53)" "(let-values(((k_21)" "(unsafe-car" -" lst_52))" +" lst_53))" "((rest_53)" "(unsafe-cdr" -" lst_52)))" +" lst_53)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18094,21 +18102,21 @@ static const char *startup_source = " k_21)" "(add-frontier!_0" "(hash-ref" -" v_106" +" v_105" " k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_120" " rest_53)" "(values))))" "(values))))))" -" for-loop_121)" -" lst_108)))" +" for-loop_120)" +" lst_109)))" "(void)))))" "(if(prefab-struct-key" -" v_106)" +" v_105)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18125,13 +18133,13 @@ static const char *startup_source = "(unsafe-vector-length" " x_43))" "(struct->vector" -" v_106)" +" v_105)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_121)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18154,17 +18162,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_121" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_122)" +" for-loop_121)" " start*_1)))" "(void)))" "(if(srcloc?" -" v_106)" +" v_105)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18181,13 +18189,13 @@ static const char *startup_source = "(unsafe-vector-length" " x_45))" "(struct->vector" -" v_106)" +" v_105)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_122)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18210,51 +18218,51 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_122" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_123)" +" for-loop_122)" " start*_2)))" "(void)))" "(let-values()" "(void))))))))))" "(hash-set!" " objs_0" -" v_106" +" v_105" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_82)" -" v_104)" +" v_103)" "(if(null? frontier_0)" "(void)" "(let-values()" "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_109) l_49))" +"(let-values(((lst_110) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_109)))" -"((letrec-values(((for-loop_124)" -"(lambda(lst_55)" +"(check-list lst_110)))" +"((letrec-values(((for-loop_123)" +"(lambda(lst_56)" "(begin" " 'for-loop" "(if(pair?" -" lst_55)" -"(let-values(((v_138)" +" lst_56)" +"(let-values(((v_137)" "(unsafe-car" -" lst_55))" +" lst_56))" "((rest_54)" "(unsafe-cdr" -" lst_55)))" +" lst_56)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18262,20 +18270,20 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_138))" +" v_137))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_123" " rest_54)" "(values))))" "(values))))))" -" for-loop_124)" -" lst_109)))" +" for-loop_123)" +" lst_110)))" "(void))))))))))" " frontier-loop_0)" -" v_137)" +" v_136)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" @@ -18287,15 +18295,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_125)" -"(lambda(fold-var_99 i_109)" +"((letrec-values(((for-loop_124)" +"(lambda(fold-var_99 i_108)" "(begin" " 'for-loop" -"(if i_109" +"(if i_108" "(let-values(((obj_0)" "(hash-iterate-key" " ht_88" -" i_109)))" +" i_108)))" "(let-values(((fold-var_100)" "(let-values(((fold-var_101)" " fold-var_99))" @@ -18310,17 +18318,17 @@ static const char *startup_source = "(values" " fold-var_102)))))" "(if(not #f)" -"(for-loop_125" +"(for-loop_124" " fold-var_100" "(hash-iterate-next" " ht_88" -" i_109))" +" i_108))" " fold-var_100)))" " fold-var_99)))))" -" for-loop_125)" +" for-loop_124)" " null" "(hash-iterate-first ht_88)))))))" -"(let-values(((lst_110)" +"(let-values(((lst_111)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18328,19 +18336,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_110)))" +"(let-values()(check-list lst_111)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_126)" -"(lambda(table_121 lst_111 pos_24)" +"((letrec-values(((for-loop_125)" +"(lambda(table_121 lst_112 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_111) #t #f)" +"(if(if(pair? lst_112) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_111))" +"(unsafe-car lst_112))" "((rest_55)" -"(unsafe-cdr lst_111))" +"(unsafe-cdr lst_112))" "((pos_25) pos_24))" "(let-values(((table_122)" "(let-values(((table_123)" @@ -18359,15 +18367,15 @@ static const char *startup_source = " val_38)))))" "(values table_124)))))" "(if(not #f)" -"(for-loop_126" +"(for-loop_125" " table_122" " rest_55" "(+ pos_24 1))" " table_122)))" " table_121)))))" -" for-loop_126)" +" for-loop_125)" " '#hasheqv()" -" lst_110" +" lst_111" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18377,12 +18385,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_139)" +"(let-values(((v_138)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_162)(not(keyword? v_139))))" -"(if or-part_162 or-part_162(eq? '#:quote v_139))))))))" +"(let-values(((or-part_164)(not(keyword? v_138))))" +"(if or-part_164 or-part_164(eq? '#:quote v_138))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18401,20 +18409,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_140)" +"((v_139)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_140 #f)" +"(if(hash-ref shares_0 v_139 #f)" "(let-values()" "(let-values(((n_21)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_140))))" +"(hash-ref objs_0 v_139))))" "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_21))))" "(let-values(((c1_23)" -"(hash-ref mutables_0 v_140 #f)))" +"(hash-ref mutables_0 v_139 #f)))" "(if c1_23" "((lambda(n_22)" "(begin" @@ -18422,49 +18430,49 @@ static const char *startup_source = "(ser-push!_15 'exact n_22)))" " c1_23)" "(let-values()" -"(ser-push-encoded!_0 v_140)))))))" -"((kind_4 v_141)" +"(ser-push-encoded!_0 v_139)))))))" +"((kind_4 v_140)" "(let-values(((tmp_18) kind_4))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_141 stream_0))" +"(set! stream_0(cons v_140 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_15 'exact v_141))" +"(let-values()(ser-push!_15 'exact v_140))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_141 #f)" +"(if(hash-ref shares_0 v_140 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_141))))" +" v_140))))" "(ser-push!_15 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_141" +" v_140" " #f)))" "(if c2_1" "((lambda(n_24)" "(ser-push!_15 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_15 v_141))))))" -"(let-values()(ser-push!_15 v_141)))))))))" +"(ser-push!_15 v_140))))))" +"(let-values()(ser-push!_15 v_140)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_142)" +"(lambda(v_141)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_142)" +"(if(keyword? v_141)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_142)))" -"(if(1/module-path-index? v_142)" +"(ser-push!_15 'exact v_141)))" +"(if(1/module-path-index? v_141)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18472,16 +18480,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_142))))" -"(if(serialize? v_142)" +" v_141))))" +"(if(serialize? v_141)" "(let-values()" -"((serialize-ref v_142)" -" v_142" +"((serialize-ref v_141)" +" v_141" " ser-push!_15" " state_24))" -"(if(if(list? v_142)" -"(if(pair? v_142)" -"(pair?(cdr v_142))" +"(if(if(list? v_141)" +"(if(pair? v_141)" +"(pair?(cdr v_141))" " #f)" " #f)" "(let-values()" @@ -18497,31 +18505,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_142))" +"(length v_141))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_112)" -" v_142))" +"(let-values(((lst_113)" +" v_141))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_112)))" -"((letrec-values(((for-loop_127)" +" lst_113)))" +"((letrec-values(((for-loop_126)" "(lambda(all-quoted?_1" -" lst_113)" +" lst_114)" "(begin" " 'for-loop" "(if(pair?" -" lst_113)" -"(let-values(((i_110)" +" lst_114)" +"(let-values(((i_109)" "(unsafe-car" -" lst_113))" +" lst_114))" "((rest_56)" "(unsafe-cdr" -" lst_113)))" +" lst_114)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18531,7 +18539,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_110)" +" i_109)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18540,14 +18548,14 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_126" " all-quoted?_2" " rest_56)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_127)" +" for-loop_126)" " #t" -" lst_112)))))" +" lst_113)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18555,9 +18563,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))" +" v_141)))" "(void)))))))" -"(if(pair? v_142)" +"(if(pair? v_141)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18572,12 +18580,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_142))" +"(car v_141))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_142))" +"(ser-push!_15(cdr v_141))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18588,9 +18596,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))" +" v_141)))" "(void)))))))))" -"(if(box? v_142)" +"(if(box? v_141)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18603,7 +18611,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_142))" +"(ser-push!_15(unbox v_141))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18612,9 +18620,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))" +" v_141)))" "(void)))))))" -"(if(vector? v_142)" +"(if(vector? v_141)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18629,13 +18637,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_142))" +" v_141))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_39" " len_17)" "(let-values(((vec_40)" -" v_142))" +" v_141))" "(begin" "(check-vector" " vec_40)" @@ -18645,7 +18653,7 @@ static const char *startup_source = " vec_40))))))" "(begin" " #f" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_127)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18653,7 +18661,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_111)" +"(let-values(((i_110)" "(unsafe-vector-ref" " vec_39" " pos_28)))" @@ -18666,7 +18674,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_111)" +" i_110)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18675,14 +18683,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_127" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_128)" +" for-loop_127)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18693,15 +18701,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))" +" v_141)))" "(void)))))))" -"(if(hash? v_142)" +"(if(hash? v_141)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_142))" +" v_141))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18711,14 +18719,14 @@ static const char *startup_source = " ht_89)))" "((letrec-values(((for-loop_41)" "(lambda(result_67" -" i_112)" +" i_111)" "(begin" " 'for-loop" -"(if i_112" +"(if i_111" "(let-values(((val_39)" "(hash-iterate-value" " ht_89" -" i_112)))" +" i_111)))" "(let-values(((result_68)" "(let-values()" "(let-values(((result_69)" @@ -18741,7 +18749,7 @@ static const char *startup_source = " result_68" "(hash-iterate-next" " ht_89" -" i_112))" +" i_111))" " result_68)))" " result_67)))))" " for-loop_41)" @@ -18754,21 +18762,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_142)" +" v_141)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_142)" +" v_141)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_142)" +" v_141)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_142)" +" v_141)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18779,13 +18787,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_142))" +" v_141))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_142)))" +" v_141)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_114)" +"(let-values(((lst_48)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18793,8 +18801,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_114)))" -"((letrec-values(((for-loop_129)" +" lst_48)))" +"((letrec-values(((for-loop_128)" "(lambda(all-quoted?_11" " lst_115)" "(begin" @@ -18827,15 +18835,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_142" +" v_141" " k_22))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_182)" +"(let-values(((or-part_184)" " as-set?_0))" -"(if or-part_182" -" or-part_182" +"(if or-part_184" +" or-part_184" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18844,14 +18852,14 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_128" " all-quoted?_12" " rest_57)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_129)" +" for-loop_128)" " #t" -" lst_114)))))" +" lst_48)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -18860,16 +18868,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))" +" v_141)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_142)))" +" v_141)))" "(if c3_0" "((lambda(k_23)" "(let-values(((vec_41)" "(struct->vector" -" v_142)))" +" v_141)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -18912,7 +18920,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_129)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -18920,7 +18928,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_113)" +"(let-values(((i_112)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18933,7 +18941,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_113)" +" i_112)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -18942,14 +18950,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_129" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_130)" +" for-loop_129)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -18960,91 +18968,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))" +" v_141)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_142)" +"(if(srcloc? v_141)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_142))" +"(srcloc-source v_141))" "(ser-push!_15" -"(srcloc-line v_142))" +"(srcloc-line v_141))" "(ser-push!_15" -"(srcloc-column v_142))" +"(srcloc-column v_141))" "(ser-push!_15" -"(srcloc-position v_142))" +"(srcloc-position v_141))" "(ser-push!_15" -"(srcloc-span v_142))))" +"(srcloc-span v_141))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_142)))))))))))))))))" +" v_141)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_143)" +"(lambda(v_142)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_143)" +"(if(serialize-fill!? v_142)" "(let-values()" -"((serialize-ref v_143)" -" v_143" +"((serialize-ref v_142)" +" v_142" " ser-push!_15" " state_24))" -"(if(box? v_143)" +"(if(box? v_142)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_143)" +"(if(vector? v_142)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_143))))" -"(if(hash? v_143)" +"(vector-length v_142))))" +"(if(hash? v_142)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_143)" +"(if(hash-eq? v_142)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_143)" +"(if(hash-eqv? v_142)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_143))))))))))" +" v_142))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_144)" +"(lambda(v_79)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_144)" +"(if(serialize-fill!? v_79)" "(let-values()" -"((serialize-fill!-ref v_144)" -" v_144" +"((serialize-fill!-ref v_79)" +" v_79" " ser-push!_15" " state_24))" -"(if(box? v_144)" +"(if(box? v_79)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_144))))" -"(if(vector? v_144)" +"(ser-push!_15(unbox v_79))))" +"(if(vector? v_79)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_144))" +"(vector-length v_79))" "(let-values(((vec_42 len_18)" "(let-values(((vec_43)" -" v_144))" +" v_79))" "(begin" "(check-vector vec_43)" "(values" @@ -19053,14 +19061,14 @@ static const char *startup_source = " vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_130)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_145)" +"(let-values(((v_143)" "(unsafe-vector-ref" " vec_42" " pos_29)))" @@ -19071,21 +19079,21 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_145))" +" v_143))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_130" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_131)" +" for-loop_130)" " 0)))" "(void)))" -"(if(hash? v_144)" +"(if(hash? v_79)" "(let-values()" "(let-values((()" "(begin" @@ -19097,11 +19105,11 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_144))" +"(hash-count v_79))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_144)))" +" v_79)))" "(begin" "(let-values(((lst_116) ks_1))" "(begin" @@ -19110,7 +19118,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_116)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_131)" "(lambda(lst_117)" "(begin" " 'for-loop" @@ -19133,24 +19141,24 @@ static const char *startup_source = " k_24)" "(ser-push!_15" "(hash-ref" -" v_144" +" v_79" " k_24))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_132" +"(for-loop_131" " rest_58)" "(values))))" "(values))))))" -" for-loop_132)" +" for-loop_131)" " lst_116)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_144))))))))))" +" v_79))))))))))" "(let-values(((rev-mutables_0)" "(let-values(((ht_90) mutables_0))" "(begin" @@ -19158,13 +19166,13 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_132)" "(lambda(table_125 i_7)" "(begin" " 'for-loop" "(if i_7" "(let-values(((k_25" -" v_146)" +" v_144)" "(hash-iterate-key+value" " ht_90" " i_7)))" @@ -19177,7 +19185,7 @@ static const char *startup_source = " val_40)" "(let-values()" "(values" -" v_146" +" v_144" " k_25))))" "(hash-set" " table_127" @@ -19186,14 +19194,14 @@ static const char *startup_source = "(values" " table_128)))))" "(if(not #f)" -"(for-loop_133" +"(for-loop_132" " table_126" "(hash-iterate-next" " ht_90" " i_7))" " table_126)))" " table_125)))))" -" for-loop_133)" +" for-loop_132)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19209,14 +19217,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_133)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(<" " pos_30" " end_13)" -"(let-values(((i_114)" +"(let-values(((i_113)" " pos_30))" "(let-values((()" "(let-values()" @@ -19227,17 +19235,17 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_114)))" +" i_113)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_134" +"(for-loop_133" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_134)" +" for-loop_133)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19249,15 +19257,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_135)" -"(lambda(table_129 i_115)" +"((letrec-values(((for-loop_134)" +"(lambda(table_129 i_114)" "(begin" " 'for-loop" -"(if i_115" +"(if i_114" "(let-values(((obj_1)" "(hash-iterate-key" " ht_91" -" i_115)))" +" i_114)))" "(let-values(((table_130)" "(let-values(((table_131)" " table_129))" @@ -19280,14 +19288,14 @@ static const char *startup_source = "(values" " table_132)))))" "(if(not #f)" -"(for-loop_135" +"(for-loop_134" " table_130" "(hash-iterate-next" " ht_91" -" i_115))" +" i_114))" " table_130)))" " table_129)))))" -" for-loop_135)" +" for-loop_134)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" @@ -19308,14 +19316,14 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_135)" "(lambda(pos_31)" "(begin" " 'for-loop" "(if(<" " pos_31" " end_14)" -"(let-values(((i_116)" +"(let-values(((i_115)" " pos_31))" "(let-values((()" "(let-values()" @@ -19326,18 +19334,18 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_116)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_136" +"(for-loop_135" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_135)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19357,14 +19365,14 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_136)" "(lambda(pos_32)" "(begin" " 'for-loop" "(if(<" " pos_32" " end_15)" -"(let-values(((i_117)" +"(let-values(((i_116)" " pos_32))" "(let-values((()" "(let-values()" @@ -19375,18 +19383,18 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_117)))" +" i_116)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_137" +"(for-loop_136" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_137)" +" for-loop_136)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19403,7 +19411,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_137)" +"(ser-push!_15 v_136)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -19447,12 +19455,12 @@ 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_138)" +"((letrec-values(((for-loop_137)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_118) pos_34))" +"(let-values(((i_117) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19468,13 +19476,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_118" +" i_117" " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_138 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_137 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_138)" +" for-loop_137)" " 0" " start_24)))" "(values))))" @@ -19487,12 +19495,12 @@ 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_139)" +"((letrec-values(((for-loop_138)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_65) pos_39))" +"(let-values(((i_118) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19508,13 +19516,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_65" +" i_118" " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_139 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_138 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_139)" +" for-loop_138)" " 0" " start_25)))" "(values))))" @@ -19533,18 +19541,18 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_139)" "(lambda(pos_43 pos_44 pos_45)" "(begin" " 'for-loop" "(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_19) #f)" -"(let-values(((v_147)(unsafe-vector-ref vec_44 pos_45)))" +"(let-values(((v_145)(unsafe-vector-ref vec_44 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_147" +" v_145" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19553,13 +19561,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_140" +"(for-loop_139" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_140)" +" for-loop_139)" " 0" " start_26" " 0)))" @@ -19571,16 +19579,16 @@ static const char *startup_source = "(decode-shell)" "(lambda(vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_19)(vector*-ref vec_46 pos_49)))" -"(if(equal? tmp_19 '#:box)" +"(let-values(((tmp_11)(vector*-ref vec_46 pos_49)))" +"(if(equal? tmp_11 '#:box)" "(let-values()(values(box #f)(add1 pos_49)))" -"(if(equal? tmp_19 '#:vector)" +"(if(equal? tmp_11 '#:vector)" "(let-values()(values(make-vector(vector*-ref vec_46(add1 pos_49)))(+ pos_49 2)))" -"(if(equal? tmp_19 '#:hash)" +"(if(equal? tmp_11 '#:hash)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_19 '#:hasheq)" +"(if(equal? tmp_11 '#:hasheq)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_19 '#:hasheqv)" +"(if(equal? tmp_11 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" "(let-values()(decode vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" @@ -19588,9 +19596,9 @@ static const char *startup_source = "(lambda(vec_47 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_20)(vector*-ref vec_47 pos_50)))" +"(let-values(((tmp_19)(vector*-ref vec_47 pos_50)))" "(let-values(((index_0)" -"(if(keyword? tmp_20)" +"(if(keyword? tmp_19)" "(hash-ref" " '#hasheq((#:scope+kind . 17)" "(#:seteqv . 14)" @@ -19624,7 +19632,7 @@ static const char *startup_source = "(#:datum->syntax . 5)" "(#:syntax+props . 6)" "(#:representative-scope . 22))" -" tmp_20" +" tmp_19" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_0 13)" @@ -19639,7 +19647,7 @@ static const char *startup_source = "(let-values()(values bulk-binding-registry_7(add1 pos_50)))" "(if(unsafe-fx< index_0 5)" "(let-values()" -"(let-values(((content_7 next-pos_2)" +"(let-values(((content_8 next-pos_2)" "(decode" " vec_47" "(add1 pos_50)" @@ -19670,10 +19678,10 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(values" -"(deserialize-syntax content_7 context_2 srcloc_3 #f #f inspector_7)" +"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_7)" " next-pos_4)))))" "(let-values()" -"(let-values(((content_8 next-pos_5)" +"(let-values(((content_9 next-pos_5)" "(decode" " vec_47" "(add1 pos_50)" @@ -19704,12 +19712,12 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(values" -"(deserialize-datum->syntax content_8 context_3 srcloc_4 inspector_7)" +"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_7)" " next-pos_7)))))))))" "(if(unsafe-fx< index_0 9)" "(if(unsafe-fx< index_0 7)" "(let-values()" -"(let-values(((content_9 next-pos_8)" +"(let-values(((content_10 next-pos_8)" "(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" "(let-values(((i_123)(vector*-ref vec_47 next-pos_8)))" @@ -19750,7 +19758,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-syntax content_9 context_4 srcloc_5 props_1 tamper_2 inspector_7)" +"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_7)" " next-pos_12)))))))" "(if(unsafe-fx< index_0 8)" "(let-values()" @@ -19800,7 +19808,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_47(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_148 next-pos_18)" +"(let-values(((v_146 next-pos_18)" "(decode" " vec_47" "(add1 pos_50)" @@ -19808,7 +19816,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_148) next-pos_18)))" +"(values(box-immutable v_146) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" @@ -19837,7 +19845,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_141)" +"((letrec-values(((for-loop_140)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" @@ -19847,9 +19855,9 @@ static const char *startup_source = "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_149" +"(let-values(((v_147" " next-pos_22)" -"(let-values(((v_150" +"(let-values(((v_148" " next-pos_23)" "(decode" " vec_47" @@ -19859,20 +19867,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_150" +" v_148" " next-pos_23))))" "(begin" "(vector-set!" " r_28" " i_125" -" v_149)" +" v_147)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_141 pos_53(+ pos_52 inc_13))" +"(for-loop_140 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_141)" +" for-loop_140)" "(+ pos_50 2)" " start_27)))))" "(values" @@ -19885,12 +19893,12 @@ static const char *startup_source = "(if(unsafe-fx< index_0 14)" "(let-values()" "(let-values(((ht_93)" -"(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" -"(if(equal? tmp_21 '#:hash)" +"(let-values(((tmp_20)(vector*-ref vec_47 pos_50)))" +"(if(equal? tmp_20 '#:hash)" "(let-values()(hash))" -"(if(equal? tmp_21 '#:hasheq)" +"(if(equal? tmp_20 '#:hasheq)" "(let-values()(hasheq))" -"(if(equal? tmp_21 '#:hasheqv)" +"(if(equal? tmp_20 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" "(let-values(((len_21)(vector*-ref vec_47(add1 pos_50))))" @@ -19899,7 +19907,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_142)" +"((letrec-values(((for-loop_141)" "(lambda(ht_94 pos_56 pos_57)" "(begin" " 'for-loop" @@ -19917,7 +19925,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_151" +"(let-values(((v_149" " next-pos_25)" "(decode" " vec_47" @@ -19927,26 +19935,26 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_96 k_26 v_151)" +"(hash-set ht_96 k_26 v_149)" " next-pos_25))))))" "(values ht_97 pos_60)))))" "(if(not #f)" -"(for-loop_142 ht_95 pos_58(+ pos_57 inc_14))" +"(for-loop_141 ht_95 pos_58(+ pos_57 inc_14))" "(values ht_95 pos_58))))" "(values ht_94 pos_56))))))" -" for-loop_142)" +" for-loop_141)" " ht_93" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_187)" -"(let-values(((tmp_22)(vector*-ref vec_47 pos_50)))" -"(if(equal? tmp_22 '#:set)" +"(let-values(((s_186)" +"(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" +"(if(equal? tmp_21 '#:set)" "(let-values()(set))" -"(if(equal? tmp_22 '#:seteq)" +"(if(equal? tmp_21 '#:seteq)" "(let-values()(seteq))" -"(if(equal? tmp_22 '#:seteqv)" +"(if(equal? tmp_21 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" "(let-values(((len_22)(vector*-ref vec_47(add1 pos_50))))" @@ -19955,15 +19963,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_143)" -"(lambda(s_188 pos_61 pos_62)" +"((letrec-values(((for-loop_142)" +"(lambda(s_187 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_189 pos_63)" -"(let-values(((s_190) s_188)((pos_64) pos_61))" -"(let-values(((s_191 pos_65)" +"(let-values(((s_188 pos_63)" +"(let-values(((s_137) s_187)((pos_64) pos_61))" +"(let-values(((s_189 pos_65)" "(let-values()" "(let-values(((k_27" " next-pos_26)" @@ -19975,15 +19983,15 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_190 k_27)" +"(set-add s_137 k_27)" " next-pos_26)))))" -"(values s_191 pos_65)))))" +"(values s_189 pos_65)))))" "(if(not #f)" -"(for-loop_143 s_189 pos_63(+ pos_62 inc_15))" -"(values s_189 pos_63))))" -"(values s_188 pos_61))))))" -" for-loop_143)" -" s_187" +"(for-loop_142 s_188 pos_63(+ pos_62 inc_15))" +"(values s_188 pos_63))))" +"(values s_187 pos_61))))))" +" for-loop_142)" +" s_186" "(+ pos_50 2)" " start_29))))))" "(let-values()" @@ -20004,7 +20012,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_144)" +"((letrec-values(((for-loop_143)" "(lambda(r_30 pos_66 pos_67)" "(begin" " 'for-loop" @@ -20015,7 +20023,7 @@ static const char *startup_source = "((pos_69) pos_66))" "(let-values(((r_33 pos_70)" "(let-values()" -"(let-values(((v_152" +"(let-values(((v_150" " next-pos_29)" "(decode" " vec_47" @@ -20026,15 +20034,15 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_152" +" v_150" " r_32)" " next-pos_29)))))" "(values r_33 pos_70)))))" "(if(not #f)" -"(for-loop_144 r_31 pos_68(+ pos_67 inc_16))" +"(for-loop_143 r_31 pos_68(+ pos_67 inc_16))" "(values r_31 pos_68))))" "(values r_30 pos_66))))))" -" for-loop_144)" +" for-loop_143)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20374,17 +20382,17 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_153 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_151 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_23)(vector*-ref vec_48 pos_71)))" -"(if(equal? tmp_23 #f)" +"(let-values(((tmp_22)(vector*-ref vec_48 pos_71)))" +"(if(equal? tmp_22 #f)" "(let-values()(add1 pos_71))" -"(if(equal? tmp_23 '#:set-box!)" +"(if(equal? tmp_22 '#:set-box!)" "(let-values()" "(let-values(((c_21 next-pos_66)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_153 c_21) next-pos_66)))" -"(if(equal? tmp_23 '#:set-vector!)" +"(begin(set-box! v_151 c_21) next-pos_66)))" +"(if(equal? tmp_22 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" "(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" @@ -20392,7 +20400,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_145)" +"((letrec-values(((for-loop_144)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" @@ -20411,15 +20419,15 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_153 i_126 c_22)" +"(vector-set! v_151 i_126 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_144 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_145)" +" for-loop_144)" "(+ pos_71 2)" " start_31)))))" -"(if(equal? tmp_23 '#:set-hash!)" +"(if(equal? tmp_22 '#:set-hash!)" "(let-values()" "(let-values(((len_25)(vector*-ref vec_48(add1 pos_71))))" "(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" @@ -20427,7 +20435,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_69)" +"((letrec-values(((for-loop_145)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20454,30 +20462,30 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_153 key_51 val_42)" +"(hash-set! v_151 key_51 val_42)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_69 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_145 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_69)" +" for-loop_145)" "(+ pos_71 2)" " start_32)))))" -"(if(equal? tmp_23 '#:scope-fill!)" +"(if(equal? tmp_22 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_153 c_23) next-pos_69)))" -"(if(equal? tmp_23 '#:representative-scope-fill!)" +"(begin(deserialize-scope-fill! v_151 c_23) next-pos_69)))" +"(if(equal? tmp_22 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_48 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_153 a_39 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_151 a_39 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_48 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_154)" +"(lambda(v_152)" "(begin" "(let-values(((seen_23)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20485,22 +20493,22 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_83)" -"(lambda(v_155)" +"(lambda(v_153)" "(begin" " 'loop" -"(if(interned-literal? v_155)" +"(if(interned-literal? v_153)" "(let-values()(void))" -"(if(hash-ref seen_23 v_155 #f)" +"(if(hash-ref seen_23 v_153 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_155 #t)" -"(if(scope-with-bindings? v_155)" +"(hash-set! seen_23 v_153 #t)" +"(if(scope-with-bindings? v_153)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_155))" -"((reach-scopes-ref v_155) v_155 loop_83)" -"(let-values(((lst_118)(hash-ref scope-triggers_0 v_155 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" +"((reach-scopes-ref v_153) v_153 loop_83)" +"(let-values(((lst_118)(hash-ref scope-triggers_0 v_153 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -20531,9 +20539,9 @@ static const char *startup_source = " for-loop_146)" " lst_118)))" "(void)" -"(hash-remove! scope-triggers_0 v_155)" -"((scope-with-bindings-ref v_155)" -" v_155" +"(hash-remove! scope-triggers_0 v_153)" +"((scope-with-bindings-ref v_153)" +" v_153" " get-reachable-scopes_4" " loop_83" "(lambda(sc-unreachable_0 b_62)" @@ -20542,15 +20550,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_50)(cons b_62 l_50))" " null)))))" -"(if(reach-scopes? v_155)" -"(let-values()((reach-scopes-ref v_155) v_155 loop_83))" -"(if(pair? v_155)" -"(let-values()(begin(loop_83(car v_155))(loop_83(cdr v_155))))" -"(if(vector? v_155)" +"(if(reach-scopes? v_153)" +"(let-values()((reach-scopes-ref v_153) v_153 loop_83))" +"(if(pair? v_153)" +"(let-values()(begin(loop_83(car v_153))(loop_83(cdr v_153))))" +"(if(vector? v_153)" "(let-values()" "(begin" "(let-values(((vec_49 len_26)" -"(let-values(((vec_50) v_155))" +"(let-values(((vec_50) v_153))" "(begin" "(check-vector vec_50)" "(values" @@ -20585,12 +20593,12 @@ static const char *startup_source = " for-loop_147)" " 0)))" "(void)))" -"(if(box? v_155)" -"(let-values()(loop_83(unbox v_155)))" -"(if(hash? v_155)" +"(if(box? v_153)" +"(let-values()(loop_83(unbox v_153)))" +"(if(hash? v_153)" "(let-values()" "(begin" -"(let-values(((ht_98) v_155))" +"(let-values(((ht_98) v_153))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -20601,7 +20609,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_127" -"(let-values(((k_29 v_156)" +"(let-values(((k_29 v_154)" "(hash-iterate-key+value" " ht_98" " i_127)))" @@ -20615,7 +20623,7 @@ static const char *startup_source = "(loop_83" " k_29)" "(loop_83" -" v_156)))" +" v_154)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20628,7 +20636,7 @@ static const char *startup_source = " for-loop_148)" "(hash-iterate-first ht_98))))" "(void)))" -"(if(prefab-struct-key v_155)" +"(if(prefab-struct-key v_153)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20638,7 +20646,7 @@ static const char *startup_source = "(lambda(x_49)(vector? x_49))" "(lambda(x_50)" "(unsafe-vector-length x_50))" -"(struct->vector v_155)" +"(struct->vector v_153)" " 1" " #f" " 1)))" @@ -20671,11 +20679,11 @@ static const char *startup_source = " for-loop_149)" " start*_4)))" "(void)))" -"(if(srcloc? v_155)" -"(let-values()(loop_83(srcloc-source v_155)))" +"(if(srcloc? v_153)" +"(let-values()(loop_83(srcloc-source v_153)))" "(let-values()(void))))))))))))))))))" " loop_83)" -" v_154)" +" v_152)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -20687,12 +20695,12 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_192) s24_1))" +"(let-values(((s_190) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_0) s_192)" +"(let-values(((s29_0) s_190)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20705,9 +20713,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_193 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_193 from-mpi_5 to-mpi_4 #f #f)))" -"((s_194 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_194 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_191 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_191 from-mpi_5 to-mpi_4 #f #f)))" +"((s_192 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_192 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21315,7 +21323,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_99)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_110)" "(lambda(syms_14 i_128)" "(begin" " 'for-loop" @@ -21334,10 +21342,10 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_128))" +"(for-loop_110 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_128))" " syms_15)))" " syms_14)))))" -" for-loop_111)" +" for-loop_110)" "(seteq)" "(unsafe-immutable-hash-iterate-first ht_99))))))))" "(define-values" @@ -21597,7 +21605,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_111) s53_0))" +"(let-values(((s_193) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21616,7 +21624,7 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_111 phase_54)" +"(syntax-mapped-names s_193 phase_54)" " #f)" " #f)))" "(let-values(((mpi_30)(intern-mpi r+p_5 nominal-module_7)))" @@ -21635,7 +21643,7 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_111" +" s_193" " provide-phase-level_3" " can-be-shadowed?_2)))" "(let-values(((ht_100) provides_4))" @@ -21691,11 +21699,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_183)" +"(let-values(((or-part_185)" "(not" " shortcut-table_0)))" -"(if or-part_183" -" or-part_183" +"(if or-part_185" +" or-part_185" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21710,9 +21718,9 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_111" +" s_193" " sym_31" -" s_111))" +" s_193))" "((phase127_0)" " phase_54)" "((orig-s128_0)" @@ -22403,7 +22411,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_126)))" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_143)" "(lambda(defined-syms_3 lst_127)" "(begin" " 'for-loop" @@ -22420,10 +22428,10 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_144 defined-syms_4 rest_63)" +"(for-loop_143 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_144)" +" for-loop_143)" " defined-syms_2" " lst_126)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" @@ -22499,8 +22507,8 @@ static const char *startup_source = "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_184)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_184 or-part_184 null)))))" +"(let-values(((or-part_186)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_186 or-part_186 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_49)" @@ -22743,8 +22751,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_185) as-protected?_0))" -"(if or-part_185 or-part_185 as-transformer?_2))" +"(if(let-values(((or-part_187) as-protected?_0))" +"(if or-part_187 or-part_187 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_65 binding_13)" @@ -23157,10 +23165,10 @@ static const char *startup_source = " req_0)))" " #f)" " #f)))" -"(let-values(((tmp_24)" +"(let-values(((tmp_23)" " fm_0))" "(if(equal?" -" tmp_24" +" tmp_23" " 'for-meta)" "(let-values()" "(let-values((()" @@ -23173,49 +23181,49 @@ static const char *startup_source = " for-meta119_0" " phase-level120_0" " spec121_0)" -"(let-values(((s_195)" +"(let-values(((s_194)" " req_0))" "(let-values(((orig-s_4)" -" s_195))" +" s_194))" "(let-values(((for-meta119_1" " phase-level120_1" " spec121_1)" -"(let-values(((s_196)" +"(let-values(((s_195)" "(if(syntax?$1" -" s_195)" +" s_194)" "(syntax-e$1" -" s_195)" -" s_195)))" +" s_194)" +" s_194)))" "(if(pair?" -" s_196)" +" s_195)" "(let-values(((for-meta122_0)" -"(let-values(((s_197)" +"(let-values(((s_196)" "(car" -" s_196)))" -" s_197))" +" s_195)))" +" s_196))" "((phase-level123_0" " spec124_0)" -"(let-values(((s_198)" +"(let-values(((s_197)" "(cdr" -" s_196)))" +" s_195)))" "(let-values(((s_59)" "(if(syntax?$1" -" s_198)" +" s_197)" "(syntax-e$1" -" s_198)" -" s_198)))" +" s_197)" +" s_197)))" "(if(pair?" " s_59)" "(let-values(((phase-level125_0)" -"(let-values(((s_199)" +"(let-values(((s_198)" "(car" " s_59)))" -" s_199))" +" s_198))" "((spec126_0)" "(let-values(((s_60)" "(cdr" " s_59)))" -"(let-values(((s_200)" +"(let-values(((s_199)" "(if(syntax?$1" " s_60)" "(syntax-e$1" @@ -23223,7 +23231,7 @@ static const char *startup_source = " s_60)))" "(let-values(((flat-s_0)" "(to-syntax-list.1" -" s_200)))" +" s_199)))" "(if(not" " flat-s_0)" "(let-values()" @@ -23253,12 +23261,12 @@ static const char *startup_source = " for-meta119_1" " phase-level120_1" " spec121_1))))))" -"(let-values(((p_32)" +"(let-values(((p_33)" "(syntax-e$1" " phase-level120_0)))" "(begin" "(if(phase?" -" p_32)" +" p_33)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23275,14 +23283,14 @@ static const char *startup_source = " req_0))" "(phase+" " phase-shift_10" -" p_32)" +" p_33)" " just-meta_0" " adjust_0" " #f" " just-meta-ok?_0" " 'raw))))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'for-syntax)" "(let-values()" "(let-values((()" @@ -23300,32 +23308,32 @@ static const char *startup_source = " s_64))" "(let-values(((for-syntax127_1" " spec128_1)" -"(let-values(((s_201)" +"(let-values(((s_200)" "(if(syntax?$1" " s_64)" "(syntax-e$1" " s_64)" " s_64)))" "(if(pair?" -" s_201)" +" s_200)" "(let-values(((for-syntax129_0)" -"(let-values(((s_202)" +"(let-values(((s_201)" "(car" -" s_201)))" -" s_202))" +" s_200)))" +" s_201))" "((spec130_0)" -"(let-values(((s_203)" +"(let-values(((s_202)" "(cdr" -" s_201)))" -"(let-values(((s_204)" +" s_200)))" +"(let-values(((s_203)" "(if(syntax?$1" -" s_203)" +" s_202)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_202)" +" s_202)))" "(let-values(((flat-s_1)" "(to-syntax-list.1" -" s_204)))" +" s_203)))" "(if(not" " flat-s_1)" "(let-values()" @@ -23348,10 +23356,10 @@ static const char *startup_source = " spec128_1))))))" "(loop_85" " spec128_0" -"(let-values(((or-part_186)" +"(let-values(((or-part_188)" " top-req_0))" -"(if or-part_186" -" or-part_186" +"(if or-part_188" +" or-part_188" " req_0))" "(phase+" " phase-shift_10" @@ -23362,7 +23370,7 @@ static const char *startup_source = " just-meta-ok?_0" " 'raw))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'for-template)" "(let-values()" "(let-values((()" @@ -23374,35 +23382,35 @@ static const char *startup_source = "(let-values(((ok?_4" " for-template131_0" " spec132_0)" -"(let-values(((s_205)" +"(let-values(((s_204)" " req_0))" "(let-values(((orig-s_6)" -" s_205))" +" s_204))" "(let-values(((for-template131_1" " spec132_1)" -"(let-values(((s_206)" +"(let-values(((s_205)" "(if(syntax?$1" -" s_205)" +" s_204)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_204)" +" s_204)))" "(if(pair?" -" s_206)" +" s_205)" "(let-values(((for-template133_0)" -"(let-values(((s_207)" +"(let-values(((s_206)" "(car" -" s_206)))" -" s_207))" +" s_205)))" +" s_206))" "((spec134_0)" -"(let-values(((s_88)" +"(let-values(((s_207)" "(cdr" -" s_206)))" +" s_205)))" "(let-values(((s_208)" "(if(syntax?$1" -" s_88)" +" s_207)" "(syntax-e$1" -" s_88)" -" s_88)))" +" s_207)" +" s_207)))" "(let-values(((flat-s_2)" "(to-syntax-list.1" " s_208)))" @@ -23428,10 +23436,10 @@ static const char *startup_source = " spec132_1))))))" "(loop_85" " spec132_0" -"(let-values(((or-part_187)" +"(let-values(((or-part_189)" " top-req_0))" -"(if or-part_187" -" or-part_187" +"(if or-part_189" +" or-part_189" " req_0))" "(phase+" " phase-shift_10" @@ -23442,7 +23450,7 @@ static const char *startup_source = " just-meta-ok?_0" " 'raw))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'for-label)" "(let-values()" "(let-values((()" @@ -23460,32 +23468,32 @@ static const char *startup_source = " s_209))" "(let-values(((for-label135_1" " spec136_1)" -"(let-values(((s_210)" +"(let-values(((s_91)" "(if(syntax?$1" " s_209)" "(syntax-e$1" " s_209)" " s_209)))" "(if(pair?" -" s_210)" +" s_91)" "(let-values(((for-label137_0)" "(let-values(((s_65)" "(car" -" s_210)))" +" s_91)))" " s_65))" "((spec138_0)" -"(let-values(((s_211)" +"(let-values(((s_93)" "(cdr" -" s_210)))" -"(let-values(((s_212)" +" s_91)))" +"(let-values(((s_210)" "(if(syntax?$1" -" s_211)" +" s_93)" "(syntax-e$1" -" s_211)" -" s_211)))" +" s_93)" +" s_93)))" "(let-values(((flat-s_3)" "(to-syntax-list.1" -" s_212)))" +" s_210)))" "(if(not" " flat-s_3)" "(let-values()" @@ -23508,10 +23516,10 @@ static const char *startup_source = " spec136_1))))))" "(loop_85" " spec136_0" -"(let-values(((or-part_188)" +"(let-values(((or-part_190)" " top-req_0))" -"(if or-part_188" -" or-part_188" +"(if or-part_190" +" or-part_190" " req_0))" "(phase+" " phase-shift_10" @@ -23522,7 +23530,7 @@ static const char *startup_source = " just-meta-ok?_0" " 'raw))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'just-meta)" "(let-values()" "(let-values((()" @@ -23535,57 +23543,57 @@ static const char *startup_source = " just-meta139_0" " phase-level140_0" " spec141_0)" -"(let-values(((s_99)" +"(let-values(((s_97)" " req_0))" "(let-values(((orig-s_8)" -" s_99))" +" s_97))" "(let-values(((just-meta139_1" " phase-level140_1" " spec141_1)" +"(let-values(((s_101)" +"(if(syntax?$1" +" s_97)" +"(syntax-e$1" +" s_97)" +" s_97)))" +"(if(pair?" +" s_101)" +"(let-values(((just-meta142_0)" +"(let-values(((s_211)" +"(car" +" s_101)))" +" s_211))" +"((phase-level143_0" +" spec144_0)" +"(let-values(((s_212)" +"(cdr" +" s_101)))" "(let-values(((s_213)" "(if(syntax?$1" -" s_99)" +" s_212)" "(syntax-e$1" -" s_99)" -" s_99)))" +" s_212)" +" s_212)))" "(if(pair?" " s_213)" -"(let-values(((just-meta142_0)" +"(let-values(((phase-level145_0)" "(let-values(((s_214)" "(car" " s_213)))" " s_214))" -"((phase-level143_0" -" spec144_0)" +"((spec146_0)" "(let-values(((s_215)" "(cdr" " s_213)))" -"(let-values(((s_216)" +"(let-values(((s_102)" "(if(syntax?$1" " s_215)" "(syntax-e$1" " s_215)" " s_215)))" -"(if(pair?" -" s_216)" -"(let-values(((phase-level145_0)" -"(let-values(((s_217)" -"(car" -" s_216)))" -" s_217))" -"((spec146_0)" -"(let-values(((s_218)" -"(cdr" -" s_216)))" -"(let-values(((s_219)" -"(if(syntax?$1" -" s_218)" -"(syntax-e$1" -" s_218)" -" s_218)))" "(let-values(((flat-s_4)" "(to-syntax-list.1" -" s_219)))" +" s_102)))" "(if(not" " flat-s_4)" "(let-values()" @@ -23615,12 +23623,12 @@ static const char *startup_source = " just-meta139_1" " phase-level140_1" " spec141_1))))))" -"(let-values(((p_33)" +"(let-values(((p_34)" "(syntax-e$1" " phase-level140_0)))" "(begin" "(if(phase?" -" p_33)" +" p_34)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23630,19 +23638,19 @@ static const char *startup_source = " req_0)))" "(loop_85" " spec141_0" -"(let-values(((or-part_189)" +"(let-values(((or-part_191)" " top-req_0))" -"(if or-part_189" -" or-part_189" +"(if or-part_191" +" or-part_191" " req_0))" " phase-shift_10" -" p_33" +" p_34" " adjust_0" " for-meta-ok?_0" " #f" " 'raw))))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'only)" "(let-values()" "(let-values((()" @@ -23654,57 +23662,57 @@ static const char *startup_source = " only147_0" " spec148_0" " id149_1)" -"(let-values(((s_220)" +"(let-values(((s_216)" " req_0))" "(let-values(((orig-s_9)" -" s_220))" +" s_216))" "(let-values(((only147_1" " spec148_1" " id149_2)" -"(let-values(((s_221)" +"(let-values(((s_217)" "(if(syntax?$1" -" s_220)" +" s_216)" "(syntax-e$1" -" s_220)" -" s_220)))" +" s_216)" +" s_216)))" "(if(pair?" -" s_221)" +" s_217)" "(let-values(((only150_0)" -"(let-values(((s_222)" +"(let-values(((s_218)" "(car" -" s_221)))" -" s_222))" +" s_217)))" +" s_218))" "((spec151_0" " id152_1)" -"(let-values(((s_223)" +"(let-values(((s_219)" "(cdr" -" s_221)))" -"(let-values(((s_224)" +" s_217)))" +"(let-values(((s_111)" "(if(syntax?$1" -" s_223)" +" s_219)" "(syntax-e$1" -" s_223)" -" s_223)))" +" s_219)" +" s_219)))" "(if(pair?" -" s_224)" +" s_111)" "(let-values(((spec153_0)" -"(let-values(((s_113)" +"(let-values(((s_220)" "(car" -" s_224)))" -" s_113))" +" s_111)))" +" s_220))" "((id154_0)" -"(let-values(((s_114)" +"(let-values(((s_112)" "(cdr" -" s_224)))" -"(let-values(((s_225)" +" s_111)))" +"(let-values(((s_113)" "(if(syntax?$1" -" s_114)" +" s_112)" "(syntax-e$1" -" s_114)" -" s_114)))" +" s_112)" +" s_112)))" "(let-values(((flat-s_5)" "(to-syntax-list.1" -" s_225)))" +" s_113)))" "(if(not" " flat-s_5)" "(let-values()" @@ -23730,7 +23738,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_0)" -"(let-values(((s_115)" +"(let-values(((s_221)" "(unsafe-car" " lst_0))" "((rest_71)" @@ -23743,23 +23751,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id155_0)" "(let-values()" -"(if(let-values(((or-part_190)" +"(if(let-values(((or-part_192)" "(if(syntax?$1" -" s_115)" +" s_221)" "(symbol?" "(syntax-e$1" -" s_115))" +" s_221))" " #f)))" -"(if or-part_190" -" or-part_190" +"(if or-part_192" +" or-part_192" "(symbol?" -" s_115)))" -" s_115" +" s_221)))" +" s_221" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_9" -" s_115)))))" +" s_221)))))" "(cons" " id155_0" " id_31)))))" @@ -23800,10 +23808,10 @@ static const char *startup_source = "(loop_85" "(list" " spec148_0)" -"(let-values(((or-part_191)" +"(let-values(((or-part_193)" " top-req_0))" -"(if or-part_191" -" or-part_191" +"(if or-part_193" +" or-part_193" " req_0))" " phase-shift_10" " just-meta_0" @@ -23814,7 +23822,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'prefix)" "(let-values()" "(let-values((()" @@ -23826,13 +23834,64 @@ static const char *startup_source = " prefix156_0" " id:prefix157_0" " spec158_0)" -"(let-values(((s_226)" +"(let-values(((s_120)" " req_0))" "(let-values(((orig-s_10)" -" s_226))" +" s_120))" "(let-values(((prefix156_1" " id:prefix157_1" " spec158_1)" +"(let-values(((s_222)" +"(if(syntax?$1" +" s_120)" +"(syntax-e$1" +" s_120)" +" s_120)))" +"(if(pair?" +" s_222)" +"(let-values(((prefix159_0)" +"(let-values(((s_223)" +"(car" +" s_222)))" +" s_223))" +"((id:prefix160_0" +" spec161_0)" +"(let-values(((s_224)" +"(cdr" +" s_222)))" +"(let-values(((s_122)" +"(if(syntax?$1" +" s_224)" +"(syntax-e$1" +" s_224)" +" s_224)))" +"(if(pair?" +" s_122)" +"(let-values(((id:prefix162_0)" +"(let-values(((s_225)" +"(car" +" s_122)))" +"(if(let-values(((or-part_194)" +"(if(syntax?$1" +" s_225)" +"(symbol?" +"(syntax-e$1" +" s_225))" +" #f)))" +"(if or-part_194" +" or-part_194" +"(symbol?" +" s_225)))" +" s_225" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_10" +" s_225))))" +"((spec163_0)" +"(let-values(((s_226)" +"(cdr" +" s_122)))" "(let-values(((s_227)" "(if(syntax?$1" " s_226)" @@ -23841,13 +23900,12 @@ static const char *startup_source = " s_226)))" "(if(pair?" " s_227)" -"(let-values(((prefix159_0)" +"(let-values(((spec164_0)" "(let-values(((s_228)" "(car" " s_227)))" " s_228))" -"((id:prefix160_0" -" spec161_0)" +"(()" "(let-values(((s_229)" "(cdr" " s_227)))" @@ -23857,58 +23915,8 @@ static const char *startup_source = "(syntax-e$1" " s_229)" " s_229)))" -"(if(pair?" -" s_230)" -"(let-values(((id:prefix162_0)" -"(let-values(((s_231)" -"(car" -" s_230)))" -"(if(let-values(((or-part_192)" -"(if(syntax?$1" -" s_231)" -"(symbol?" -"(syntax-e$1" -" s_231))" -" #f)))" -"(if or-part_192" -" or-part_192" -"(symbol?" -" s_231)))" -" s_231" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_10" -" s_231))))" -"((spec163_0)" -"(let-values(((s_232)" -"(cdr" -" s_230)))" -"(let-values(((s_233)" -"(if(syntax?$1" -" s_232)" -"(syntax-e$1" -" s_232)" -" s_232)))" -"(if(pair?" -" s_233)" -"(let-values(((spec164_0)" -"(let-values(((s_234)" -"(car" -" s_233)))" -" s_234))" -"(()" -"(let-values(((s_235)" -"(cdr" -" s_233)))" -"(let-values(((s_236)" -"(if(syntax?$1" -" s_235)" -"(syntax-e$1" -" s_235)" -" s_235)))" "(if(null?" -" s_236)" +" s_230)" "(values)" "(raise-syntax-error$1" " #f" @@ -23943,10 +23951,10 @@ static const char *startup_source = "(loop_85" "(list" " spec158_0)" -"(let-values(((or-part_193)" +"(let-values(((or-part_195)" " top-req_0))" -"(if or-part_193" -" or-part_193" +"(if or-part_195" +" or-part_195" " req_0))" " phase-shift_10" " just-meta_0" @@ -23957,7 +23965,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'all-except)" "(let-values()" "(let-values((()" @@ -23969,57 +23977,57 @@ static const char *startup_source = " all-except165_0" " spec166_0" " id167_0)" -"(let-values(((s_237)" +"(let-values(((s_231)" " req_0))" "(let-values(((orig-s_11)" -" s_237))" +" s_231))" "(let-values(((all-except165_1" " spec166_1" " id167_1)" +"(let-values(((s_232)" +"(if(syntax?$1" +" s_231)" +"(syntax-e$1" +" s_231)" +" s_231)))" +"(if(pair?" +" s_232)" +"(let-values(((all-except168_0)" +"(let-values(((s_233)" +"(car" +" s_232)))" +" s_233))" +"((spec169_0" +" id170_0)" +"(let-values(((s_234)" +"(cdr" +" s_232)))" +"(let-values(((s_235)" +"(if(syntax?$1" +" s_234)" +"(syntax-e$1" +" s_234)" +" s_234)))" +"(if(pair?" +" s_235)" +"(let-values(((spec171_0)" +"(let-values(((s_236)" +"(car" +" s_235)))" +" s_236))" +"((id172_0)" +"(let-values(((s_237)" +"(cdr" +" s_235)))" "(let-values(((s_238)" "(if(syntax?$1" " s_237)" "(syntax-e$1" " s_237)" " s_237)))" -"(if(pair?" -" s_238)" -"(let-values(((all-except168_0)" -"(let-values(((s_239)" -"(car" -" s_238)))" -" s_239))" -"((spec169_0" -" id170_0)" -"(let-values(((s_240)" -"(cdr" -" s_238)))" -"(let-values(((s_241)" -"(if(syntax?$1" -" s_240)" -"(syntax-e$1" -" s_240)" -" s_240)))" -"(if(pair?" -" s_241)" -"(let-values(((spec171_0)" -"(let-values(((s_242)" -"(car" -" s_241)))" -" s_242))" -"((id172_0)" -"(let-values(((s_243)" -"(cdr" -" s_241)))" -"(let-values(((s_244)" -"(if(syntax?$1" -" s_243)" -"(syntax-e$1" -" s_243)" -" s_243)))" "(let-values(((flat-s_6)" "(to-syntax-list.1" -" s_244)))" +" s_238)))" "(if(not" " flat-s_6)" "(let-values()" @@ -24045,7 +24053,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_143)" -"(let-values(((s_245)" +"(let-values(((s_239)" "(unsafe-car" " lst_143))" "((rest_72)" @@ -24058,23 +24066,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id173_0)" "(let-values()" -"(if(let-values(((or-part_194)" +"(if(let-values(((or-part_196)" "(if(syntax?$1" -" s_245)" +" s_239)" "(symbol?" "(syntax-e$1" -" s_245))" +" s_239))" " #f)))" -"(if or-part_194" -" or-part_194" +"(if or-part_196" +" or-part_196" "(symbol?" -" s_245)))" -" s_245" +" s_239)))" +" s_239" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_11" -" s_245)))))" +" s_239)))))" "(cons" " id173_0" " id_36)))))" @@ -24115,10 +24123,10 @@ static const char *startup_source = "(loop_85" "(list" " spec166_0)" -"(let-values(((or-part_195)" +"(let-values(((or-part_197)" " top-req_0))" -"(if or-part_195" -" or-part_195" +"(if or-part_197" +" or-part_197" " req_0))" " phase-shift_10" " just-meta_0" @@ -24130,7 +24138,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'prefix-all-except)" "(let-values()" "(let-values((()" @@ -24143,14 +24151,67 @@ static const char *startup_source = " id:prefix175_0" " spec176_0" " id177_0)" -"(let-values(((s_246)" +"(let-values(((s_240)" " req_0))" "(let-values(((orig-s_12)" -" s_246))" +" s_240))" "(let-values(((prefix-all-except174_1" " id:prefix175_1" " spec176_1" " id177_1)" +"(let-values(((s_241)" +"(if(syntax?$1" +" s_240)" +"(syntax-e$1" +" s_240)" +" s_240)))" +"(if(pair?" +" s_241)" +"(let-values(((prefix-all-except178_0)" +"(let-values(((s_242)" +"(car" +" s_241)))" +" s_242))" +"((id:prefix179_0" +" spec180_0" +" id181_0)" +"(let-values(((s_243)" +"(cdr" +" s_241)))" +"(let-values(((s_244)" +"(if(syntax?$1" +" s_243)" +"(syntax-e$1" +" s_243)" +" s_243)))" +"(if(pair?" +" s_244)" +"(let-values(((id:prefix182_0)" +"(let-values(((s_245)" +"(car" +" s_244)))" +"(if(let-values(((or-part_198)" +"(if(syntax?$1" +" s_245)" +"(symbol?" +"(syntax-e$1" +" s_245))" +" #f)))" +"(if or-part_198" +" or-part_198" +"(symbol?" +" s_245)))" +" s_245" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_12" +" s_245))))" +"((spec183_0" +" id184_0)" +"(let-values(((s_246)" +"(cdr" +" s_244)))" "(let-values(((s_247)" "(if(syntax?$1" " s_246)" @@ -24159,14 +24220,12 @@ static const char *startup_source = " s_246)))" "(if(pair?" " s_247)" -"(let-values(((prefix-all-except178_0)" +"(let-values(((spec185_0)" "(let-values(((s_248)" "(car" " s_247)))" " s_248))" -"((id:prefix179_0" -" spec180_0" -" id181_0)" +"((id186_0)" "(let-values(((s_249)" "(cdr" " s_247)))" @@ -24176,60 +24235,9 @@ static const char *startup_source = "(syntax-e$1" " s_249)" " s_249)))" -"(if(pair?" -" s_250)" -"(let-values(((id:prefix182_0)" -"(let-values(((s_251)" -"(car" -" s_250)))" -"(if(let-values(((or-part_196)" -"(if(syntax?$1" -" s_251)" -"(symbol?" -"(syntax-e$1" -" s_251))" -" #f)))" -"(if or-part_196" -" or-part_196" -"(symbol?" -" s_251)))" -" s_251" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_12" -" s_251))))" -"((spec183_0" -" id184_0)" -"(let-values(((s_252)" -"(cdr" -" s_250)))" -"(let-values(((s_253)" -"(if(syntax?$1" -" s_252)" -"(syntax-e$1" -" s_252)" -" s_252)))" -"(if(pair?" -" s_253)" -"(let-values(((spec185_0)" -"(let-values(((s_254)" -"(car" -" s_253)))" -" s_254))" -"((id186_0)" -"(let-values(((s_255)" -"(cdr" -" s_253)))" -"(let-values(((s_256)" -"(if(syntax?$1" -" s_255)" -"(syntax-e$1" -" s_255)" -" s_255)))" "(let-values(((flat-s_7)" "(to-syntax-list.1" -" s_256)))" +" s_250)))" "(if(not" " flat-s_7)" "(let-values()" @@ -24248,14 +24256,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_144)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_139)" "(lambda(id_39" " lst_145)" "(begin" " 'for-loop" "(if(pair?" " lst_145)" -"(let-values(((s_257)" +"(let-values(((s_251)" "(unsafe-car" " lst_145))" "((rest_73)" @@ -24268,23 +24276,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id187_0)" "(let-values()" -"(if(let-values(((or-part_197)" +"(if(let-values(((or-part_199)" "(if(syntax?$1" -" s_257)" +" s_251)" "(symbol?" "(syntax-e$1" -" s_257))" +" s_251))" " #f)))" -"(if or-part_197" -" or-part_197" +"(if or-part_199" +" or-part_199" "(symbol?" -" s_257)))" -" s_257" +" s_251)))" +" s_251" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_257)))))" +" s_251)))))" "(cons" " id187_0" " id_41)))))" @@ -24292,12 +24300,12 @@ static const char *startup_source = " id_42)))))" "(if(not" " #f)" -"(for-loop_140" +"(for-loop_139" " id_40" " rest_73)" " id_40)))" " id_39)))))" -" for-loop_140)" +" for-loop_139)" " null" " lst_144)))))" "(reverse$1" @@ -24335,10 +24343,10 @@ static const char *startup_source = "(loop_85" "(list" " spec176_0)" -"(let-values(((or-part_198)" +"(let-values(((or-part_200)" " top-req_0))" -"(if or-part_198" -" or-part_198" +"(if or-part_200" +" or-part_200" " req_0))" " phase-shift_10" " just-meta_0" @@ -24351,7 +24359,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_23" " 'rename)" "(let-values()" "(let-values((()" @@ -24364,14 +24372,51 @@ static const char *startup_source = " spec189_0" " id:to190_0" " id:from191_0)" -"(let-values(((s_258)" +"(let-values(((s_252)" " req_0))" "(let-values(((orig-s_13)" -" s_258))" +" s_252))" "(let-values(((rename188_1" " spec189_1" " id:to190_1" " id:from191_1)" +"(let-values(((s_253)" +"(if(syntax?$1" +" s_252)" +"(syntax-e$1" +" s_252)" +" s_252)))" +"(if(pair?" +" s_253)" +"(let-values(((rename192_0)" +"(let-values(((s_254)" +"(car" +" s_253)))" +" s_254))" +"((spec193_0" +" id:to194_0" +" id:from195_0)" +"(let-values(((s_255)" +"(cdr" +" s_253)))" +"(let-values(((s_256)" +"(if(syntax?$1" +" s_255)" +"(syntax-e$1" +" s_255)" +" s_255)))" +"(if(pair?" +" s_256)" +"(let-values(((spec196_0)" +"(let-values(((s_257)" +"(car" +" s_256)))" +" s_257))" +"((id:to197_0" +" id:from198_0)" +"(let-values(((s_258)" +"(cdr" +" s_256)))" "(let-values(((s_259)" "(if(syntax?$1" " s_258)" @@ -24380,14 +24425,28 @@ static const char *startup_source = " s_258)))" "(if(pair?" " s_259)" -"(let-values(((rename192_0)" +"(let-values(((id:to199_0)" "(let-values(((s_260)" "(car" " s_259)))" +"(if(let-values(((or-part_201)" +"(if(syntax?$1" +" s_260)" +"(symbol?" +"(syntax-e$1" " s_260))" -"((spec193_0" -" id:to194_0" -" id:from195_0)" +" #f)))" +"(if or-part_201" +" or-part_201" +"(symbol?" +" s_260)))" +" s_260" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_13" +" s_260))))" +"((id:from200_0)" "(let-values(((s_261)" "(cdr" " s_259)))" @@ -24399,90 +24458,39 @@ static const char *startup_source = " s_261)))" "(if(pair?" " s_262)" -"(let-values(((spec196_0)" +"(let-values(((id:from201_0)" "(let-values(((s_263)" "(car" " s_262)))" +"(if(let-values(((or-part_202)" +"(if(syntax?$1" +" s_263)" +"(symbol?" +"(syntax-e$1" " s_263))" -"((id:to197_0" -" id:from198_0)" +" #f)))" +"(if or-part_202" +" or-part_202" +"(symbol?" +" s_263)))" +" s_263" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_13" +" s_263))))" +"(()" "(let-values(((s_264)" "(cdr" " s_262)))" -"(let-values(((s_265)" +"(let-values(((s_123)" "(if(syntax?$1" " s_264)" "(syntax-e$1" " s_264)" " s_264)))" -"(if(pair?" -" s_265)" -"(let-values(((id:to199_0)" -"(let-values(((s_266)" -"(car" -" s_265)))" -"(if(let-values(((or-part_116)" -"(if(syntax?$1" -" s_266)" -"(symbol?" -"(syntax-e$1" -" s_266))" -" #f)))" -"(if or-part_116" -" or-part_116" -"(symbol?" -" s_266)))" -" s_266" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_13" -" s_266))))" -"((id:from200_0)" -"(let-values(((s_267)" -"(cdr" -" s_265)))" -"(let-values(((s_268)" -"(if(syntax?$1" -" s_267)" -"(syntax-e$1" -" s_267)" -" s_267)))" -"(if(pair?" -" s_268)" -"(let-values(((id:from201_0)" -"(let-values(((s_122)" -"(car" -" s_268)))" -"(if(let-values(((or-part_199)" -"(if(syntax?$1" -" s_122)" -"(symbol?" -"(syntax-e$1" -" s_122))" -" #f)))" -"(if or-part_199" -" or-part_199" -"(symbol?" -" s_122)))" -" s_122" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_13" -" s_122))))" -"(()" -"(let-values(((s_269)" -"(cdr" -" s_268)))" -"(let-values(((s_270)" -"(if(syntax?$1" -" s_269)" -"(syntax-e$1" -" s_269)" -" s_269)))" "(if(null?" -" s_270)" +" s_123)" "(values)" "(raise-syntax-error$1" " #f" @@ -24527,10 +24535,10 @@ static const char *startup_source = "(loop_85" "(list" " spec189_0)" -"(let-values(((or-part_200)" +"(let-values(((or-part_203)" " top-req_0))" -"(if or-part_200" -" or-part_200" +"(if or-part_203" +" or-part_203" " req_0))" " phase-shift_10" " just-meta_0" @@ -24547,11 +24555,11 @@ static const char *startup_source = " req_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_201)" +"(if(let-values(((or-part_204)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_201" -" or-part_201" +"(if or-part_204" +" or-part_204" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -24564,10 +24572,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_202)" +"(if(let-values(((or-part_205)" " adjust_0))" -"(if or-part_202" -" or-part_202" +"(if or-part_205" +" or-part_205" "(not" "(eq?" " just-meta_0" @@ -24604,10 +24612,10 @@ static const char *startup_source = "((self204_0)" " self_11)" "((temp205_0)" -"(let-values(((or-part_203)" +"(let-values(((or-part_206)" " req_0))" -"(if or-part_203" -" or-part_203" +"(if or-part_206" +" or-part_206" " top-req_0)))" "((m-ns206_0)" " m-ns_8)" @@ -24913,10 +24921,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_204)" +"(let-values(((or-part_207)" " visit?_2))" -"(if or-part_204" -" or-part_204" +"(if or-part_207" +" or-part_207" " run?_2)))" "(let-values()" "(let-values(((m-ns260_0) m-ns_10)" @@ -24935,15 +24943,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_208)" "(not adjust_1)))" -"(if or-part_205" -" or-part_205" -"(let-values(((or-part_206)" +"(if or-part_208" +" or-part_208" +"(let-values(((or-part_209)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_206" -" or-part_206" +"(if or-part_209" +" or-part_209" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25074,11 +25082,11 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_207)" +"(if(let-values(((or-part_210)" "(not" " can-bulk-bind?_0)))" -"(if or-part_207" -" or-part_207" +"(if or-part_210" +" or-part_210" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_3)" @@ -25174,7 +25182,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_271)" +"(let-values(((s_265)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25194,7 +25202,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_271)" +" s_265)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25228,7 +25236,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_271)" +" s_265)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25469,12 +25477,12 @@ static const char *startup_source = " i_138)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_211)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_208" -" or-part_208" +"(if or-part_211" +" or-part_211" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25500,10 +25508,10 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_150)" -"(let-values(((or-part_209)" +"(let-values(((or-part_212)" " only-syms_0))" -"(if or-part_209" -" or-part_209" +"(if or-part_212" +" or-part_212" "(hash-keys" " provides_7)))))" "(begin" @@ -25607,7 +25615,7 @@ static const char *startup_source = " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_210)" +"(let-values(((or-part_213)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25616,8 +25624,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_210" -" or-part_210" +"(if or-part_213" +" or-part_213" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25680,50 +25688,50 @@ static const char *startup_source = "(syntax-e$1(car(syntax-e$1 req_3)))" " #f)" " #f)))" -"(let-values(((tmp_25) fm_1))" -"(if(equal? tmp_25 'for-meta)" +"(let-values(((tmp_24) fm_1))" +"(if(equal? tmp_24 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_272) req_3))" -"(let-values(((orig-s_16) s_272))" +"(let-values(((s_266) req_3))" +"(let-values(((orig-s_16) s_266))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_273)" -"(if(syntax?$1 s_272)" -"(syntax-e$1 s_272)" -" s_272)))" -"(if(pair? s_273)" +"(let-values(((s_267)" +"(if(syntax?$1 s_266)" +"(syntax-e$1 s_266)" +" s_266)))" +"(if(pair? s_267)" "(let-values(((for-meta311_0)" -"(let-values(((s_274)" -"(car s_273)))" -" s_274))" +"(let-values(((s_268)" +"(car s_267)))" +" s_268))" "((phase-level312_0 spec313_0)" -"(let-values(((s_275)" -"(cdr s_273)))" -"(let-values(((s_276)" +"(let-values(((s_269)" +"(cdr s_267)))" +"(let-values(((s_270)" "(if(syntax?$1" -" s_275)" +" s_269)" "(syntax-e$1" -" s_275)" -" s_275)))" -"(if(pair? s_276)" +" s_269)" +" s_269)))" +"(if(pair? s_270)" "(let-values(((phase-level314_0)" -"(let-values(((s_277)" +"(let-values(((s_271)" "(car" -" s_276)))" -" s_277))" +" s_270)))" +" s_271))" "((spec315_0)" -"(let-values(((s_278)" +"(let-values(((s_272)" "(cdr" -" s_276)))" -"(let-values(((s_279)" +" s_270)))" +"(let-values(((s_273)" "(if(syntax?$1" -" s_278)" +" s_272)" "(syntax-e$1" -" s_278)" -" s_278)))" +" s_272)" +" s_272)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_279)))" +" s_273)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25749,41 +25757,41 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta308_1 phase-level309_1 spec310_1))))))" -"(let-values(((p_34)(syntax-e$1 phase-level309_0)))" +"(let-values(((p_35)(syntax-e$1 phase-level309_0)))" "(begin" -"(if(phase? p_34)" +"(if(phase? p_35)" "(void)" " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta308_0(phase+ p_34 1)(map2(loop_86 #t) spec310_0)))))))" -"(if(equal? tmp_25 'for-syntax)" +"(list* for-meta308_0(phase+ p_35 1)(map2(loop_86 #t) spec310_0)))))))" +"(if(equal? tmp_24 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_280) req_3))" -"(let-values(((orig-s_17) s_280))" +"(let-values(((s_274) req_3))" +"(let-values(((orig-s_17) s_274))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_281)" -"(if(syntax?$1 s_280)" -"(syntax-e$1 s_280)" -" s_280)))" -"(if(pair? s_281)" +"(let-values(((s_275)" +"(if(syntax?$1 s_274)" +"(syntax-e$1 s_274)" +" s_274)))" +"(if(pair? s_275)" "(let-values(((for-syntax318_0)" -"(let-values(((s_282)" -"(car s_281)))" -" s_282))" +"(let-values(((s_276)" +"(car s_275)))" +" s_276))" "((spec319_0)" -"(let-values(((s_283)" -"(cdr s_281)))" -"(let-values(((s_284)" +"(let-values(((s_277)" +"(cdr s_275)))" +"(let-values(((s_278)" "(if(syntax?$1" -" s_283)" +" s_277)" "(syntax-e$1" -" s_283)" -" s_283)))" +" s_277)" +" s_277)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_284)))" +" s_278)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25799,33 +25807,33 @@ static const char *startup_source = " orig-s_17)))))" "(values #t for-syntax316_1 spec317_1))))))" "(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_86 #t) spec317_0)))))" -"(if(equal? tmp_25 'for-template)" +"(if(equal? tmp_24 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_285) req_3))" -"(let-values(((orig-s_18) s_285))" +"(let-values(((s_279) req_3))" +"(let-values(((orig-s_18) s_279))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_286)" -"(if(syntax?$1 s_285)" -"(syntax-e$1 s_285)" -" s_285)))" -"(if(pair? s_286)" +"(let-values(((s_280)" +"(if(syntax?$1 s_279)" +"(syntax-e$1 s_279)" +" s_279)))" +"(if(pair? s_280)" "(let-values(((for-template322_0)" -"(let-values(((s_287)" -"(car s_286)))" -" s_287))" +"(let-values(((s_281)" +"(car s_280)))" +" s_281))" "((spec323_0)" -"(let-values(((s_288)" -"(cdr s_286)))" -"(let-values(((s_289)" +"(let-values(((s_282)" +"(cdr s_280)))" +"(let-values(((s_283)" "(if(syntax?$1" -" s_288)" +" s_282)" "(syntax-e$1" -" s_288)" -" s_288)))" +" s_282)" +" s_282)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_289)))" +" s_283)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25841,35 +25849,35 @@ static const char *startup_source = " orig-s_18)))))" "(values #t for-template320_1 spec321_1))))))" "(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_86 #t) spec321_0)))))" -"(if(equal? tmp_25 'for-label)" +"(if(equal? tmp_24 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_290) req_3))" -"(let-values(((orig-s_19) s_290))" +"(let-values(((s_284) req_3))" +"(let-values(((orig-s_19) s_284))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_291)" -"(if(syntax?$1 s_290)" -"(syntax-e$1 s_290)" -" s_290)))" -"(if(pair? s_291)" +"(let-values(((s_285)" +"(if(syntax?$1 s_284)" +"(syntax-e$1 s_284)" +" s_284)))" +"(if(pair? s_285)" "(let-values(((for-label326_0)" -"(let-values(((s_292)" +"(let-values(((s_286)" "(car" -" s_291)))" -" s_292))" +" s_285)))" +" s_286))" "((spec327_0)" -"(let-values(((s_293)" +"(let-values(((s_287)" "(cdr" -" s_291)))" -"(let-values(((s_294)" +" s_285)))" +"(let-values(((s_288)" "(if(syntax?$1" -" s_293)" +" s_287)" "(syntax-e$1" -" s_293)" -" s_293)))" +" s_287)" +" s_287)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_294)))" +" s_288)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25887,54 +25895,54 @@ static const char *startup_source = "(rebuild-req_0" " req_3" "(list* for-label324_0(map2(loop_86 #t) spec325_0)))))" -"(if(equal? tmp_25 'just-meta)" +"(if(equal? tmp_24 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_295) req_3))" -"(let-values(((orig-s_20) s_295))" +"(let-values(((s_289) req_3))" +"(let-values(((orig-s_20) s_289))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_296)" -"(if(syntax?$1 s_295)" -"(syntax-e$1 s_295)" -" s_295)))" -"(if(pair? s_296)" +"(let-values(((s_290)" +"(if(syntax?$1 s_289)" +"(syntax-e$1 s_289)" +" s_289)))" +"(if(pair? s_290)" "(let-values(((just-meta331_0)" -"(let-values(((s_297)" +"(let-values(((s_291)" "(car" -" s_296)))" -" s_297))" +" s_290)))" +" s_291))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_298)" +"(let-values(((s_292)" "(cdr" -" s_296)))" -"(let-values(((s_299)" +" s_290)))" +"(let-values(((s_293)" "(if(syntax?$1" -" s_298)" +" s_292)" "(syntax-e$1" -" s_298)" -" s_298)))" -"(if(pair? s_299)" +" s_292)" +" s_292)))" +"(if(pair? s_293)" "(let-values(((phase-level334_0)" -"(let-values(((s_300)" +"(let-values(((s_294)" "(car" -" s_299)))" -" s_300))" +" s_293)))" +" s_294))" "((spec335_0)" -"(let-values(((s_301)" +"(let-values(((s_295)" "(cdr" -" s_299)))" -"(let-values(((s_302)" +" s_293)))" +"(let-values(((s_296)" "(if(syntax?$1" -" s_301)" +" s_295)" "(syntax-e$1" -" s_301)" -" s_301)))" +" s_295)" +" s_295)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_302)))" +" s_296)))" "(if(not" " flat-s_12)" "(let-values()" @@ -26052,8 +26060,8 @@ static const char *startup_source = "(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_21 phase_45))(void)))" "(let-values()(namespace-unset-transformer! ns_51 phase_45 sym_46)))))))" " top-level-require!-id" -"(lambda(stx_11 ns_52)" -"(let-values(((reqs_2)(cdr(syntax->list$1 stx_11))))" +"(lambda(stx_12 ns_52)" +"(let-values(((reqs_2)(cdr(syntax->list$1 stx_12))))" "(let-values(((temp8_1) #t)" "((temp9_1) #f)" "((reqs10_0) reqs_2)" @@ -26154,7 +26162,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_303 original-scopes-s_0 new-ns_0)" +"(lambda(s_297 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -26162,7 +26170,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_303 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_297 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26190,9 +26198,9 @@ static const char *startup_source = "(datum->syntax$1 #f(vector post-expansion-s_0 other-s_0))))))))" "(define-values" "(decode-namespace-scopes)" -"(lambda(stx_12)" +"(lambda(stx_13)" "(begin" -"(let-values(((vec_51)(syntax-e$1 stx_12)))" +"(let-values(((vec_51)(syntax-e$1 stx_13)))" "(values(syntax-scope-set(vector-ref vec_51 0) 0)(syntax-scope-set(vector-ref vec_51 1) 0))))))" "(define-values" "(namespace-scopes=?)" @@ -26471,8 +26479,8 @@ static const char *startup_source = "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_176)(built-in-symbol? sym_48)))" -"(if or-part_176 or-part_176(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_178)(built-in-symbol? sym_48)))" +"(if or-part_178 or-part_178(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" @@ -26510,7 +26518,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_304)(set-add s_304 extra-inspector_4))" +"(lambda(s_298)(set-add s_298 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26546,21 +26554,21 @@ static const char *startup_source = "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_161)" +"(if(let-values(((or-part_163)" "(hash-ref" " ht_112" " mu_2" " #f)))" -"(if or-part_161" -" or-part_161" -"(let-values(((or-part_211)" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_214)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_211" -" or-part_211" +"(if or-part_214" +" or-part_214" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -26596,26 +26604,26 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_52)" +"(let-values(((lst_53)" "(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)" +"(let-values()(check-list lst_53)))" +"((letrec-values(((for-loop_73)" "(lambda(fold-var_39" -" lst_53)" +" lst_54)" "(begin" " 'for-loop" -"(if(pair? lst_53)" +"(if(pair? lst_54)" "(let-values(((vu_1)" "(unsafe-car" -" lst_53))" +" lst_54))" "((rest_23)" "(unsafe-cdr" -" lst_53)))" +" lst_54)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41)" " fold-var_39))" @@ -26649,14 +26657,14 @@ static const char *startup_source = " fold-var_142)))" " fold-var_41))))" "(if(not #f)" -"(for-loop_74" +"(for-loop_73" " fold-var_40" " rest_23)" " fold-var_40)))" " fold-var_39)))))" -" for-loop_74)" +" for-loop_73)" " null" -" lst_52)))))" +" lst_53)))))" " fold-var_140))))" "(values fold-var_141)))))" "(if(not #f)(for-loop_178 fold-var_139 rest_78) fold-var_139)))" @@ -26681,7 +26689,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_109)" +"(let-values(((lst_110)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26689,8 +26697,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_109)))" -"((letrec-values(((for-loop_124)" +"(check-list lst_110)))" +"((letrec-values(((for-loop_123)" "(lambda(table_145" " lst_158)" "(begin" @@ -26739,10 +26747,10 @@ static const char *startup_source = "(let-values(((table_147)" "(let-values(((table_148)" " table_146))" -"(if(let-values(((or-part_212)" +"(if(let-values(((or-part_215)" " extra-inspectors_1))" -"(if or-part_212" -" or-part_212" +"(if or-part_215" +" or-part_215" " cross-linklet-inlining?_0))" "(let-values(((table_149)" " table_148))" @@ -26770,14 +26778,14 @@ static const char *startup_source = " table_34))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_123" " table_29" " rest_24)" " table_29)))" " table_145)))))" -" for-loop_124)" +" for-loop_123)" " '#hash()" -" lst_109)))))" +" lst_110)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" @@ -26803,10 +26811,10 @@ static const char *startup_source = "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_213)" +"(let-values(((or-part_216)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_213" -" or-part_213" +"(if or-part_216" +" or-part_216" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_150) fold-var_149))" "(let-values(((fold-var_151)" @@ -26975,17 +26983,17 @@ static const char *startup_source = "(correlated-property)" "(case-lambda" "((e_30 k_30)(begin(syntax-property$2 e_30 k_30)))" -"((e_31 k_31 v_128)(syntax-property$2 e_31 k_31 v_128))))" +"((e_31 k_31 v_127)(syntax-property$2 e_31 k_31 v_127))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_305)" +"(lambda(s_299)" "(begin" " 'to-syntax-list" -"(if(list? s_305)" -"(let-values() s_305)" -"(if(pair? s_305)" -"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_305))))(if r_38(cons(car s_305) r_38) #f)))" -"(if(1/syntax? s_305)(let-values()(to-syntax-list.1$1(syntax-e$2 s_305)))(let-values() #f)))))))" +"(if(list? s_299)" +"(let-values() s_299)" +"(if(pair? s_299)" +"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_299))))(if r_38(cons(car s_299) r_38) #f)))" +"(if(1/syntax? s_299)(let-values()(to-syntax-list.1$1(syntax-e$2 s_299)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -26995,13 +27003,13 @@ static const char *startup_source = " #f))))" "(define-values" "(correlate*)" -"(lambda(stx_13 s-exp_0)" -"(begin(if(syntax-srcloc stx_13)(datum->correlated s-exp_0(srcloc->vector(syntax-srcloc stx_13))) s-exp_0))))" -"(define-values(correlate~)(lambda(stx_14 s-exp_1)(begin s-exp_1)))" +"(lambda(stx_14 s-exp_0)" +"(begin(if(syntax-srcloc stx_14)(datum->correlated s-exp_0(srcloc->vector(syntax-srcloc stx_14))) s-exp_0))))" +"(define-values(correlate~)(lambda(stx_15 s-exp_1)(begin s-exp_1)))" "(define-values" "(correlate/app)" -"(lambda(stx_15 s-exp_2)" -"(begin(if(eq?(system-type 'vm) 'chez-scheme)(correlate* stx_15 s-exp_2)(correlate~ stx_15 s-exp_2)))))" +"(lambda(stx_16 s-exp_2)" +"(begin(if(eq?(system-type 'vm) 'chez-scheme)(correlate* stx_16 s-exp_2)(correlate~ stx_16 s-exp_2)))))" "(define-values(->correlated)(lambda(s_2)(begin(datum->correlated s_2 #f))))" "(define-values" "(compile$2)" @@ -27009,20 +27017,20 @@ static const char *startup_source = "(lambda(p5_0 cctx6_0 name1_0 result-used?2_0 name3_0 result-used?4_0)" "(begin" " 'compile7" -"(let-values(((p_35) p5_0))" +"(let-values(((p_36) p5_0))" "(let-values(((cctx_1) cctx6_0))" "(let-values(((name_40)(if name3_0 name1_0 #f)))" "(let-values(((result-used?_0)(if result-used?4_0 result-used?2_0 #t)))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_36 name_41 result-used?_1)" -"(begin 'compile(compile$2 p_36 cctx_1 name_41 result-used?_1)))))" -"(let-values(((s_10)(parsed-s p_35)))" -"(if(parsed-id? p_35)" +"(lambda(p_37 name_41 result-used?_1)" +"(begin 'compile(compile$2 p_37 cctx_1 name_41 result-used?_1)))))" +"(let-values(((s_10)(parsed-s p_36)))" +"(if(parsed-id? p_36)" "(let-values()" -"(let-values(((p27_1) p_35)((cctx28_0) cctx_1))" +"(let-values(((p27_1) p_36)((cctx28_0) cctx_1))" "(compile-identifier24.1 #f #f #f #f p27_1 cctx28_0)))" -"(if(parsed-lambda? p_35)" +"(if(parsed-lambda? p_36)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27032,13 +27040,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_35)" -"(parsed-lambda-body p_35)" +"(parsed-lambda-keys p_36)" +"(parsed-lambda-body p_36)" " cctx_1)))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-lambda))))" -"(if(parsed-case-lambda? p_35)" +"(if(parsed-case-lambda? p_36)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27048,7 +27056,7 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_161)(parsed-case-lambda-clauses p_35)))" +"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27088,13 +27096,13 @@ static const char *startup_source = " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" -"(if(parsed-app? p_35)" +"(if(parsed-app? p_36)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_35)))" +"(let-values(((rands_0)(parsed-app-rands p_36)))" "(correlate/app" " s_10" "(cons" -"(compile_0(parsed-app-rator p_35) #f #t)" +"(compile_0(parsed-app-rator p_36) #f #t)" "(reverse$1" "(let-values(((lst_42) rands_0))" "(begin" @@ -27130,57 +27138,57 @@ static const char *startup_source = " for-loop_184)" " null" " lst_42))))))))" -"(if(parsed-if? p_35)" +"(if(parsed-if? p_36)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_35) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_36) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_35) name_40 result-used?_0))" +"(compile_0(parsed-if-thn p_36) name_40 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_35) name_40 result-used?_0))" +"(compile_0(parsed-if-els p_36) name_40 result-used?_0))" "(let-values()" "(correlate~" " s_10" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_35) name_40 result-used?_0)" -"(compile_0(parsed-if-els p_35) name_40 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_35)" +"(compile_0(parsed-if-thn p_36) name_40 result-used?_0)" +"(compile_0(parsed-if-els p_36) name_40 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_36)" "(let-values()" "(correlate~" " s_10" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_35) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_35) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_36) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_36) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_35)" +"(parsed-with-continuation-mark-body p_36)" " name_40" " result-used?_0))))" -"(if(parsed-begin0? p_35)" +"(if(parsed-begin0? p_36)" "(let-values()" "(correlate~" " s_10" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_35)) name_40 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_90)(cdr(parsed-begin0-body p_35))))" +"(let-values(((lst_91)(cdr(parsed-begin0-body p_36))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_11 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" +"(if(pair? lst_92)" "(let-values(((e_32)" -"(unsafe-car lst_91))" +"(unsafe-car lst_92))" "((rest_43)" -"(unsafe-cdr lst_91)))" +"(unsafe-cdr lst_92)))" "(let-values(((fold-var_90)" "(let-values(((fold-var_91)" " fold-var_11))" @@ -27196,34 +27204,34 @@ static const char *startup_source = "(values" " fold-var_156)))))" "(if(not #f)" -"(for-loop_107" +"(for-loop_106" " fold-var_90" " rest_43)" " fold-var_90)))" " fold-var_11)))))" -" for-loop_107)" +" for-loop_106)" " null" -" lst_90)))))))" -"(if(parsed-begin? p_35)" +" lst_91)))))))" +"(if(parsed-begin? p_36)" "(let-values()" "(correlate~" " s_10" "(compile-begin" -"(parsed-begin-body p_35)" +"(parsed-begin-body p_36)" " cctx_1" " name_40" " result-used?_0)))" -"(if(parsed-set!? p_35)" +"(if(parsed-set!? p_36)" "(let-values()" "(correlate~" " s_10" -"(let-values(((temp29_1)(parsed-set!-id p_35))" +"(let-values(((temp29_1)(parsed-set!-id p_36))" "((cctx30_0) cctx_1)" "((temp31_1) #t)" "((temp32_1)" "(compile_0" -"(parsed-set!-rhs p_35)" -"(parsed-s(parsed-set!-id p_35))" +"(parsed-set!-rhs p_36)" +"(parsed-s(parsed-set!-id p_36))" " #t)))" "(compile-identifier24.1" " temp32_1" @@ -27232,9 +27240,9 @@ static const char *startup_source = " #t" " temp29_1" " cctx30_0))))" -"(if(parsed-let-values? p_35)" +"(if(parsed-let-values? p_36)" "(let-values()" -"(let-values(((p33_1) p_35)" +"(let-values(((p33_1) p_36)" "((cctx34_0) cctx_1)" "((name35_0) name_40)" "((temp36_0) #f)" @@ -27245,9 +27253,9 @@ static const char *startup_source = " cctx34_0" " name35_0" " result-used?37_0)))" -"(if(parsed-letrec-values? p_35)" +"(if(parsed-letrec-values? p_36)" "(let-values()" -"(let-values(((p38_0) p_35)" +"(let-values(((p38_0) p_36)" "((cctx39_0) cctx_1)" "((name40_0) name_40)" "((temp41_0) #t)" @@ -27258,24 +27266,24 @@ static const char *startup_source = " cctx39_0" " name40_0" " result-used?42_0)))" -"(if(parsed-quote? p_35)" +"(if(parsed-quote? p_36)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_35)))" +"(let-values(((datum_1)(parsed-quote-datum p_36)))" "(if(self-quoting-in-linklet? datum_1)" "(let-values()(correlate~ s_10 datum_1))" "(let-values()" "(correlate~ s_10(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_35)" +"(if(parsed-quote-syntax? p_36)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_35)" +"(parsed-quote-syntax-datum p_36)" " cctx_1)" "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" -"(if(parsed-#%variable-reference? p_35)" +"(if(parsed-#%variable-reference? p_36)" "(let-values()" "(let-values(((id_44)" -"(parsed-#%variable-reference-id p_35)))" +"(parsed-#%variable-reference-id p_36)))" "(correlate~" " s_10" "(if id_44" @@ -27293,11 +27301,11 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_35)))))))))))))))))))))))))))" +" p_36)))))))))))))))))))))))))))" "(case-lambda" -"((p_37 cctx_2)(begin 'compile(compile7_0 p_37 cctx_2 #f #f #f #f)))" -"((p_38 cctx_3 name_42 result-used?2_1)(compile7_0 p_38 cctx_3 name_42 result-used?2_1 #t #t))" -"((p_39 cctx_4 name1_1)(compile7_0 p_39 cctx_4 name1_1 #f #t #f)))))" +"((p_38 cctx_2)(begin 'compile(compile7_0 p_38 cctx_2 #f #f #f #f)))" +"((p_39 cctx_3 name_42 result-used?2_1)(compile7_0 p_39 cctx_3 name_42 result-used?2_1 #t #t))" +"((p_40 cctx_4 name1_1)(compile7_0 p_40 cctx_4 name1_1 #f #t #f)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" @@ -27323,13 +27331,13 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_185)" -"(lambda(fold-var_157 lst_96 pos_90)" +"(lambda(fold-var_157 lst_97 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_96) #t #f)" -"(let-values(((e_33)(unsafe-car lst_96))" -"((rest_82)(unsafe-cdr lst_96))" -"((i_101) pos_90))" +"(if(if(pair? lst_97) #t #f)" +"(let-values(((e_33)(unsafe-car lst_97))" +"((rest_82)(unsafe-cdr lst_97))" +"((i_100) pos_90))" "(let-values(((fold-var_158)" "(let-values(((fold-var_79) fold-var_157))" "(let-values(((fold-var_80)" @@ -27337,7 +27345,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_101 used-pos_0)))" +"(= i_100 used-pos_0)))" "(compile$2" " e_33" " cctx_7" @@ -27353,36 +27361,36 @@ static const char *startup_source = " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_306 inferred-name_0 orig-s_21)" +"(lambda(s_300 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_157)" +"(lambda(v_155)" "(begin" " 'simplify-name" -"(if(pair? v_157)" +"(if(pair? v_155)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_157))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_157))))(if(eq? n1_0 n2_0) n1_0 v_157))))" -"(let-values() v_157))))))" +"(let-values(((n1_0)(simplify-name_0(car v_155))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_155))))(if(eq? n1_0 n2_0) n1_0 v_155))))" +"(let-values() v_155))))))" "(let-values(((name_45)" -"(let-values(((or-part_214)" -"(let-values(((v_158)" +"(let-values(((or-part_217)" +"(let-values(((v_156)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_134)(symbol? v_158)))" -"(if or-part_134" -" or-part_134" -"(let-values(((or-part_215)(syntax?$1 v_158)))" -"(if or-part_215 or-part_215(void? v_158)))))" -" v_158" +"(if(let-values(((or-part_136)(symbol? v_156)))" +"(if or-part_136" +" or-part_136" +"(let-values(((or-part_218)(syntax?$1 v_156)))" +"(if or-part_218 or-part_218(void? v_156)))))" +" v_156" " #f))))" -"(if or-part_214 or-part_214 inferred-name_0))))" +"(if or-part_217 or-part_217 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_306)" +"(->correlated s_300)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_306)))" +" s_300)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -27392,20 +27400,20 @@ static const char *startup_source = "(lambda(rec?9_0 p11_0 cctx12_0 name13_0 result-used?14_0)" "(begin" " 'compile-let15" -"(let-values(((p_40) p11_0))" +"(let-values(((p_41) p11_0))" "(let-values(((cctx_8) cctx12_0))" "(let-values(((name_46) name13_0))" "(let-values(((rec?_0) rec?9_0))" "(let-values(((result-used?_4) result-used?14_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_40)))" +"(let-values(((body_0)(parsed-let_-values-body p_41)))" "(correlate~" -"(parsed-s p_40)" +"(parsed-s p_41)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_165)(parsed-let_-values-clauses p_40))" -"((lst_166)(parsed-let_-values-idss p_40)))" +"(let-values(((lst_165)(parsed-let_-values-clauses p_41))" +"((lst_166)(parsed-let_-values-idss p_41)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27530,19 +27538,19 @@ static const char *startup_source = "(lambda(set-to19_0 set-to21_0 set-to?18_0 set-to?20_0 p22_0 cctx23_0)" "(begin" " 'compile-identifier24" -"(let-values(((p_41) p22_0))" +"(let-values(((p_42) p22_0))" "(let-values(((cctx_9) cctx23_0))" "(let-values(((set-to?_0)(if set-to?20_0 set-to?18_0 #f)))" "(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_41)))" +"(let-values(((normal-b_0)(parsed-id-binding p_42)))" "(let-values(((b_68)" -"(let-values(((or-part_216) normal-b_0))" -"(if or-part_216" -" or-part_216" +"(let-values(((or-part_219) normal-b_0))" +"(if or-part_219" +" or-part_219" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" -"((temp47_0)(syntax-e$1(parsed-s p_41))))" +"((temp47_0)(syntax-e$1(parsed-s p_42))))" "(make-module-binding22.1" " #f" " #f" @@ -27571,10 +27579,10 @@ static const char *startup_source = "(if(module-binding? b_68)" "(let-values()" "(let-values(((mpi_41)" -"(if(parsed-top-id? p_41)" +"(if(parsed-top-id? p_42)" "(compile-context-self cctx_9)" "(module-binding-module b_68))))" -"(if(parsed-primitive-id? p_41)" +"(if(parsed-primitive-id? p_42)" "(let-values()" "(begin" "(if(zero?(module-binding-phase b_68))" @@ -27604,12 +27612,12 @@ static const char *startup_source = "(module-binding-extra-inspector b_68)))" "(if or-part_101" " or-part_101" -"(let-values(((or-part_217)" -"(parsed-id-inspector p_41)))" -"(if or-part_217" -" or-part_217" -"(if(parsed-s p_41)" -"(syntax-inspector(parsed-s p_41))" +"(let-values(((or-part_220)" +"(parsed-id-inspector p_42)))" +"(if or-part_220" +" or-part_220" +"(if(parsed-s p_42)" +"(syntax-inspector(parsed-s p_42))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -27623,8 +27631,8 @@ static const char *startup_source = "(error" " \"not a reference to a module or local binding:\"" " b_68" -"(parsed-s p_41)))))))" -"(correlate~(parsed-s p_41)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" +"(parsed-s p_42)))))))" +"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27646,7 +27654,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_114)))" -"((letrec-values(((for-loop_94)" +"((letrec-values(((for-loop_93)" "(lambda(result_78 i_139)" "(begin" " 'for-loop" @@ -27662,10 +27670,10 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_80)))))" "(if(if(not((lambda x_53(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_94 result_79(unsafe-immutable-hash-iterate-next ht_114 i_139))" +"(for-loop_93 result_79(unsafe-immutable-hash-iterate-next ht_114 i_139))" " result_79)))" " result_78)))))" -" for-loop_94)" +" for-loop_93)" " #t" "(unsafe-immutable-hash-iterate-first ht_114)))))" "(if(procedure? extra-inspectors_2)" @@ -27679,8 +27687,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_218)(not extra-inspectors-1_0)))" -"(if or-part_218 or-part_218(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_221)(not extra-inspectors-1_0)))" +"(if or-part_221 or-part_221(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))" @@ -27727,17 +27735,17 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" +"(let-values(((lst_103) mus_1)((lst_91) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91 lst_173)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_11 lst_92 lst_173)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_173) #f)" -"(let-values(((mu_5)(unsafe-car lst_91))" -"((rest_87)(unsafe-cdr lst_91))" +"(if(if(pair? lst_92)(pair? lst_173) #f)" +"(let-values(((mu_5)(unsafe-car lst_92))" +"((rest_87)(unsafe-cdr lst_92))" "((extra-inspectorss_1)(unsafe-car lst_173))" "((rest_37)(unsafe-cdr lst_173)))" "(let-values(((fold-var_164)" @@ -27753,17 +27761,17 @@ static const char *startup_source = " #f))" " fold-var_165))))" "(values fold-var_166)))))" -"(if(not #f)(for-loop_107 fold-var_164 rest_87 rest_37) fold-var_164)))" +"(if(not #f)(for-loop_106 fold-var_164 rest_87 rest_37) fold-var_164)))" " fold-var_11)))))" -" for-loop_107)" +" for-loop_106)" " null" -" lst_102" -" lst_90)))))" +" lst_103" +" lst_91)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_92) mus_1))" +"(let-values(((lst_93) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_188)" "(lambda(fold-var_167 lst_17)" "(begin" @@ -27787,7 +27795,7 @@ static const char *startup_source = " fold-var_167)))))" " for-loop_188)" " null" -" lst_92)))))))))" +" lst_93)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" @@ -27872,12 +27880,12 @@ static const char *startup_source = "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_97) imports_0))" +"(let-values(((lst_98) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" +"(let-values()(check-list lst_98)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" " lst_181)" @@ -27922,7 +27930,7 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_97)))))" +" lst_98)))))" " fold-var_173))))" "(values fold-var_174)))))" "(if(not #f)(for-loop_29 fold-var_157 rest_91 rest_92) fold-var_157)))" @@ -27943,7 +27951,7 @@ static const char *startup_source = "(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_219) add-insp?_0))(if or-part_219 or-part_219 add-extra-insp?_0))" +"(if(let-values(((or-part_222) add-insp?_0))(if or-part_222 or-part_222 add-extra-insp?_0))" "(let-values()" "(let-values(((lst_182) imports_1))" "(begin" @@ -27974,22 +27982,22 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_220)" +"(let-values(((or-part_223)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_220" -" or-part_220" -"(let-values(((or-part_221)" +"(if or-part_223" +" or-part_223" +"(let-values(((or-part_224)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_221" -" or-part_221" +"(if or-part_224" +" or-part_224" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" @@ -28036,8 +28044,8 @@ static const char *startup_source = " extra-inspectorss_9)))" " extra-inspectorss_8)))))" " for-loop_192)" -"(let-values(((or-part_222) extra-inspectorss_7))" -"(if or-part_222 or-part_222(seteq)))" +"(let-values(((or-part_225) extra-inspectorss_7))" +"(if or-part_225 or-part_225(seteq)))" " lst_184)))))))" "(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" @@ -28155,7 +28163,7 @@ static const char *startup_source = "(let-values(((get-module-linklet-info_0)" "(if get-module-linklet-info24_0" " get-module-linklet-info11_0" -"(lambda(mod-name_14 p_42)(begin 'get-module-linklet-info #f)))))" +"(lambda(mod-name_14 p_43)(begin 'get-module-linklet-info #f)))))" "(let-values(((to-source?_0)(if to-source?25_0 to-source?12_0 #f)))" "(let-values(((serializable?_0)(if serializable?26_0 serializable?13_0 #t)))" "(let-values(((cross-linklet-inlining?_1)" @@ -28179,13 +28187,13 @@ static const char *startup_source = "(lambda(phase_72)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_214)" +"(let-values(((or-part_217)" "(hash-ref" " phase-to-header_0" " phase_72" " #f)))" -"(if or-part_214" -" or-part_214" +"(if or-part_217" +" or-part_217" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28403,7 +28411,7 @@ static const char *startup_source = "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_114)" "(lambda(lst_193" " pos_92)" "(begin" @@ -28488,7 +28496,7 @@ static const char *startup_source = " lst_194)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_104)" +"(let-values(((lst_105)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28496,7 +28504,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_104)))" +" lst_105)))" "((letrec-values(((for-loop_198)" "(lambda(fold-var_177" " lst_195)" @@ -28550,36 +28558,36 @@ static const char *startup_source = " fold-var_177)))))" " for-loop_198)" " null" -" lst_104))))))))" +" lst_105))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_3)" -"(let-values(((the-struct_48)" +"(let-values(((the-struct_47)" " cctx_3))" "(if(compile-context?" -" the-struct_48)" +" the-struct_47)" "(let-values(((phase41_0)" " phase_75)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_48)" +" the-struct_47)" " phase41_0" "(compile-context-self" -" the-struct_48)" +" the-struct_47)" "(compile-context-module-self" -" the-struct_48)" +" the-struct_47)" "(compile-context-full-module-name" -" the-struct_48)" +" the-struct_47)" "(compile-context-lazy-syntax-literals?" -" the-struct_48)" +" the-struct_47)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_48)))" +" the-struct_47)))" "(if(=" "(length" " ids_5)" @@ -28626,7 +28634,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_106)" +"(let-values(((lst_107)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28634,7 +28642,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_106)))" +" lst_107)))" "((letrec-values(((for-loop_199)" "(lambda(fold-var_181" " lst_196)" @@ -28671,38 +28679,38 @@ static const char *startup_source = " fold-var_181)))))" " for-loop_199)" " null" -" lst_106)))))" +" lst_107)))))" " '((void))))" "(add-body!_0" " phase_75" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_48)" " cctx_3))" "(if(compile-context?" -" the-struct_49)" +" the-struct_48)" "(let-values(((phase43_0)" " phase_75)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_48)" " phase43_0" "(compile-context-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_48)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_48)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49)))" +" the-struct_48)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_3)" @@ -28774,10 +28782,10 @@ static const char *startup_source = "(compile$2" "(parsed-define-syntaxes-rhs" " body_3)" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_3))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase45_0)" "(add1" " phase_75))" @@ -28785,21 +28793,21 @@ static const char *startup_source = " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_49)" " phase45_0" "(compile-context-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_49)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50))))))" +" the-struct_49))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -28914,31 +28922,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_3))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase47_0)" " phase_75)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_50)" " phase47_0" "(compile-context-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_50)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51)))" +" the-struct_50)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -28953,47 +28961,47 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_75))))" -"(if(let-values(((or-part_223)" +"(if(let-values(((or-part_226)" "(parsed-#%declare?" " body_3)))" -"(if or-part_223" -" or-part_223" -"(let-values(((or-part_224)" +"(if or-part_226" +" or-part_226" +"(let-values(((or-part_227)" "(parsed-module?" " body_3)))" -"(if or-part_224" -" or-part_224" +"(if or-part_227" +" or-part_227" "(parsed-require?" " body_3)))))" "(let-values()" "(let-values(((e_34)" "(other-form-callback_0" " body_3" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_51)" " cctx_3))" "(if(compile-context?" -" the-struct_52)" +" the-struct_51)" "(let-values(((phase49_0)" " phase_75)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_51)" " phase49_0" "(compile-context-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_51)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52))))))" +" the-struct_51))))))" "(if e_34" "(let-values()" "(begin" @@ -29011,31 +29019,31 @@ static const char *startup_source = "(let-values(((e_35)" "(compile$2" " body_3" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_52)" " cctx_3))" "(if(compile-context?" -" the-struct_53)" +" the-struct_52)" "(let-values(((phase51_0)" " phase_75)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" +" the-struct_52)" " phase51_0" "(compile-context-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_52)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" +" the-struct_52)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53)))" +" the-struct_52)))" " #f" "(=" " i_141" @@ -29054,14 +29062,14 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_115" +"(for-loop_114" " rest_84" "(+" " pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_115)" +" for-loop_114)" " lst_192" " start_34)))" "(void))))))" @@ -29120,7 +29128,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_203)))" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_118)" "(lambda(table_154" " lst_204)" "(begin" @@ -29170,12 +29178,12 @@ static const char *startup_source = " table_157)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_118" " table_155" " rest_104)" " table_155)))" " table_154)))))" -" for-loop_119)" +" for-loop_118)" " '#hash()" " lst_203)))))" "(let-values(((body-linklets+module-use*s_0)" @@ -29497,7 +29505,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_126)" "(lambda(table_169)" "(begin" " 'for-loop" @@ -29524,7 +29532,7 @@ static const char *startup_source = " table_44)))" " table_171))))" " table_170))))))" -" for-loop_127)" +" for-loop_126)" " table_167)))))" "(if(not" " #f)" @@ -29566,9 +29574,9 @@ static const char *startup_source = "(let-values(((lst_209) ids_7)" "((lst_210) binding-syms_2)" "((lst_116)" -"(let-values(((or-part_111) trans-exprs_0))" -"(if or-part_111" -" or-part_111" +"(let-values(((or-part_110) trans-exprs_0))" +"(if or-part_110" +" or-part_110" "(reverse$1" "(let-values(((lst_117) ids_7))" "(begin" @@ -29683,7 +29691,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_215)" -"(let-values(((s_307)(unsafe-car lst_215))((rest_111)(unsafe-cdr lst_215)))" +"(let-values(((s_301)(unsafe-car lst_215))((rest_111)(unsafe-cdr lst_215)))" "(let-values(((fold-var_205)" "(let-values(((fold-var_206) fold-var_204))" "(let-values(((fold-var_207)" @@ -29701,8 +29709,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_159)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_159(correlated-property e_36 'compiler-hint:cross-module-inline v_159) e_36)))))" +"(let-values(((v_157)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_157(correlated-property e_36 'compiler-hint:cross-module-inline v_157) 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)" @@ -29757,10 +29765,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_225)" +"(let-values(((or-part_228)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_225" -" or-part_225" +"(if or-part_228" +" or-part_228" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -29786,8 +29794,8 @@ static const char *startup_source = "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" "((lst_219)" -"(let-values(((or-part_226) extra-inspectorsss_3))" -"(if or-part_226 or-part_226 mus_2))))" +"(let-values(((or-part_229) extra-inspectorsss_3))" +"(if or-part_229 or-part_229 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29873,7 +29881,7 @@ static const char *startup_source = "(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_94)" "(lambda(vec_58 i_146 pos_93)" "(begin" " 'for-loop" @@ -29908,13 +29916,13 @@ static const char *startup_source = " 1)))))))" "(values vec_61 i_149)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_94" " vec_59" " i_147" "(unsafe-fx+ 1 pos_93))" "(values vec_59 i_147))))" "(values vec_58 i_146))))))" -" for-loop_95)" +" for-loop_94)" "(make-vector 16)" " 0" " 0)))))" @@ -29950,14 +29958,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_89)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_67 lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" +"(if(pair? lst_90)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_89))" -"((rest_116)(unsafe-cdr lst_89)))" +"(unsafe-car lst_90))" +"((rest_116)(unsafe-cdr lst_90)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_155)" " fold-var_67))" @@ -29971,10 +29979,10 @@ static const char *startup_source = " fold-var_155))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_106 fold-var_29 rest_116)" +"(for-loop_105 fold-var_29 rest_116)" " fold-var_29)))" " fold-var_67)))))" -" for-loop_106)" +" for-loop_105)" " null" " lst_223)))))))" "(1/compile-linklet" @@ -30009,18 +30017,18 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_81) cims_2))" +"(let-values(((lst_82) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_212 lst_82)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_95)" +"(lambda(fold-var_212 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((cim_4)(unsafe-car lst_82))" -"((rest_117)(unsafe-cdr lst_82)))" +"(if(pair? lst_83)" +"(let-values(((cim_4)(unsafe-car lst_83))" +"((rest_117)(unsafe-cdr lst_83)))" "(let-values(((fold-var_156)" "(let-values(((fold-var_164) fold-var_212))" "(let-values(((fold-var_165)" @@ -30038,12 +30046,12 @@ static const char *startup_source = " fold-var_164))))" "(values fold-var_165)))))" "(if(not #f)" -"(for-loop_96 fold-var_156 rest_117)" +"(for-loop_95 fold-var_156 rest_117)" " fold-var_156)))" " fold-var_212)))))" -" for-loop_96)" +" for-loop_95)" " null" -" lst_81))))))))" +" lst_82))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -30076,13 +30084,13 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_35)))" "((letrec-values(((for-loop_210)" -"(lambda(table_173 lst_100 pos_95)" +"(lambda(table_173 lst_101 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_100) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_100))" -"((rest_36)(unsafe-cdr lst_100))" -"((i_77) pos_95))" +"(if(if(pair? lst_101) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_101))" +"((rest_36)(unsafe-cdr lst_101))" +"((i_76) pos_95))" "(let-values(((table_174)" "(let-values(((table_175) table_173))" "(let-values(((table_176)" @@ -30093,7 +30101,7 @@ static const char *startup_source = "(values" "(string->symbol" "(number->string" -" i_77))" +" i_76))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" @@ -30155,16 +30163,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_96 end_25)" -"(let-values(((i_93) pos_96))" +"(let-values(((i_92) pos_96))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" " ht_120" -"(string->symbol(number->string i_93))" +"(string->symbol(number->string i_92))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_64)" "(begin" " 'for-loop" @@ -30185,7 +30193,7 @@ static const char *startup_source = " fold-var_215)))" " fold-var_213))))" " fold-var_70))))))" -" for-loop_112)" +" for-loop_111)" " fold-var_17)))))" "(if(not #f)(for-loop_10 fold-var_18(+ pos_96 inc_19)) fold-var_18)))" " fold-var_17)))))" @@ -30333,12 +30341,12 @@ static const char *startup_source = "(lambda(e_39 locals_2)" "(begin" " 'loop" -"(let-values(((tmp_26)" +"(let-values(((tmp_25)" "(if(pair?(correlated-e e_39))" "(correlated-e(car(correlated-e e_39)))" " #f)))" "(let-values(((index_1)" -"(if(symbol? tmp_26)" +"(if(symbol? tmp_25)" "(hash-ref" " '#hasheq((#%variable-reference . 1)" "(begin . 5)" @@ -30355,7 +30363,7 @@ static const char *startup_source = "(quote . 1)" "(values . 3)" "(void . 4))" -" tmp_26" +" tmp_25" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_1 5)" @@ -30399,32 +30407,32 @@ static const char *startup_source = " s_79))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_308)" +"(let-values(((s_302)" "(if(1/syntax?" " s_79)" "(syntax-e$2" " s_79)" " s_79)))" "(if(pair?" -" s_308)" +" s_302)" "(let-values(((_19_0)" "(let-values(((s_80)" "(car" -" s_308)))" +" s_302)))" " s_80))" "((e20_0)" -"(let-values(((s_161)" +"(let-values(((s_160)" "(cdr" -" s_308)))" -"(let-values(((s_309)" +" s_302)))" +"(let-values(((s_303)" "(if(1/syntax?" -" s_161)" +" s_160)" "(syntax-e$2" -" s_161)" -" s_161)))" +" s_160)" +" s_160)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_309)))" +" s_303)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30455,8 +30463,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_227)" -"(if(let-values(((or-part_228)" +"(if(let-values(((or-part_230)" +"(if(let-values(((or-part_231)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30469,8 +30477,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_228" -" or-part_228" +"(if or-part_231" +" or-part_231" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30532,8 +30540,8 @@ static const char *startup_source = " #t" " lst_8)))" " #f)))" -"(if or-part_227" -" or-part_227" +"(if or-part_230" +" or-part_230" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30559,7 +30567,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_226)))" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_97)" "(lambda(result_83" " lst_178" " lst_227)" @@ -30614,13 +30622,13 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_98" +"(for-loop_97" " result_42" " rest_119" " rest_120)" " result_42)))" " result_83)))))" -" for-loop_98)" +" for-loop_97)" " #t" " lst_10" " lst_226)))" @@ -30630,11 +30638,11 @@ static const char *startup_source = " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_175)" +"(if(let-values(((or-part_177)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_175" -" or-part_175" +"(if or-part_177" +" or-part_177" "(if(symbol? v_4)" "(let-values(((or-part_35)" "(hash-ref" @@ -30673,24 +30681,24 @@ static const char *startup_source = " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_310)" +"(let-values(((s_304)" "(if(1/syntax?" " s_74)" "(syntax-e$2" " s_74)" " s_74)))" -"(if(pair? s_310)" +"(if(pair? s_304)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_310)))" +" s_304)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_310)))" +" s_304)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30701,18 +30709,18 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_311)" +"(let-values(((s_305)" "(car" " s_30)))" -"(let-values(((s_312)" +"(let-values(((s_306)" "(if(1/syntax?" -" s_311)" +" s_305)" "(syntax-e$2" -" s_311)" -" s_311)))" +" s_305)" +" s_305)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_312)))" +" s_306)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30744,7 +30752,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_229)" -"(let-values(((s_313)" +"(let-values(((s_307)" "(unsafe-car" " lst_229))" "((rest_121)" @@ -30762,48 +30770,48 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_314)" +"(let-values(((s_308)" "(if(1/syntax?" -" s_313)" +" s_307)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_307)" +" s_307)))" "(if(pair?" -" s_314)" +" s_308)" "(let-values(((ids32_0)" "(let-values(((s_50)" "(car" -" s_314)))" +" s_308)))" " s_50))" "((rhs33_0)" -"(let-values(((s_315)" +"(let-values(((s_309)" "(cdr" -" s_314)))" -"(let-values(((s_316)" +" s_308)))" +"(let-values(((s_310)" "(if(1/syntax?" -" s_315)" +" s_309)" "(syntax-e$2" -" s_315)" -" s_315)))" +" s_309)" +" s_309)))" "(if(pair?" -" s_316)" +" s_310)" "(let-values(((rhs34_0)" "(let-values(((s_52)" "(car" -" s_316)))" +" s_310)))" " s_52))" "(()" -"(let-values(((s_317)" +"(let-values(((s_311)" "(cdr" -" s_316)))" -"(let-values(((s_157)" +" s_310)))" +"(let-values(((s_156)" "(if(1/syntax?" -" s_317)" +" s_311)" "(syntax-e$2" -" s_317)" -" s_317)))" +" s_311)" +" s_311)))" "(if(null?" -" s_157)" +" s_156)" "(values)" "((lambda(false_3" " str_8" @@ -30866,34 +30874,34 @@ static const char *startup_source = "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_318)" +"(let-values(((s_312)" "(cdr" " s_30)))" -"(let-values(((s_319)" +"(let-values(((s_313)" "(if(1/syntax?" -" s_318)" +" s_312)" "(syntax-e$2" -" s_318)" -" s_318)))" +" s_312)" +" s_312)))" "(if(pair?" -" s_319)" +" s_313)" "(let-values(((body35_0)" -"(let-values(((s_320)" +"(let-values(((s_314)" "(car" -" s_319)))" -" s_320))" +" s_313)))" +" s_314))" "(()" -"(let-values(((s_321)" +"(let-values(((s_315)" "(cdr" -" s_319)))" -"(let-values(((s_322)" +" s_313)))" +"(let-values(((s_316)" "(if(1/syntax?" -" s_321)" +" s_315)" "(syntax-e$2" -" s_321)" -" s_321)))" +" s_315)" +" s_315)))" "(if(null?" -" s_322)" +" s_316)" "(values)" "((lambda(false_6" " str_11" @@ -31031,23 +31039,23 @@ static const char *startup_source = " s_61)))" "(if(pair? s_62)" "(let-values(((_40_0)" -"(let-values(((s_323)" +"(let-values(((s_317)" "(car" " s_62)))" -" s_323))" +" s_317))" "((e41_0)" -"(let-values(((s_324)" +"(let-values(((s_318)" "(cdr" " s_62)))" -"(let-values(((s_325)" +"(let-values(((s_319)" "(if(1/syntax?" -" s_324)" +" s_318)" "(syntax-e$2" -" s_324)" -" s_324)))" +" s_318)" +" s_318)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_325)))" +" s_319)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31124,35 +31132,35 @@ static const char *startup_source = " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_88) e_39))" -"(let-values(((orig-s_26) s_88))" +"(let-values(((s_207) e_39))" +"(let-values(((orig-s_26) s_207))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_326)" +"(let-values(((s_320)" "(if(1/syntax?" -" s_88)" +" s_207)" "(syntax-e$2" -" s_88)" -" s_88)))" +" s_207)" +" s_207)))" "(if(pair?" -" s_326)" +" s_320)" "(let-values(((_44_0)" -"(let-values(((s_89)" +"(let-values(((s_321)" "(car" -" s_326)))" -" s_89))" +" s_320)))" +" s_321))" "((e45_0)" -"(let-values(((s_327)" +"(let-values(((s_322)" "(cdr" -" s_326)))" -"(let-values(((s_328)" +" s_320)))" +"(let-values(((s_323)" "(if(1/syntax?" -" s_327)" +" s_322)" "(syntax-e$2" -" s_327)" -" s_327)))" +" s_322)" +" s_322)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_328)))" +" s_323)))" "(if(not" " flat-s_16)" "(let-values()" @@ -31231,34 +31239,34 @@ static const char *startup_source = "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_96) e_39))" -"(let-values(((orig-s_27) s_96))" +"(let-values(((s_324) e_39))" +"(let-values(((orig-s_27) s_324))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_329)" +"(let-values(((s_98)" "(if(1/syntax?" -" s_96)" +" s_324)" "(syntax-e$2" -" s_96)" -" s_96)))" -"(if(pair? s_329)" +" s_324)" +" s_324)))" +"(if(pair? s_98)" "(let-values(((_48_0)" -"(let-values(((s_330)" +"(let-values(((s_325)" "(car" -" s_329)))" -" s_330))" +" s_98)))" +" s_325))" "((e49_0)" -"(let-values(((s_213)" +"(let-values(((s_101)" "(cdr" -" s_329)))" -"(let-values(((s_331)" +" s_98)))" +"(let-values(((s_326)" "(if(1/syntax?" -" s_213)" +" s_101)" "(syntax-e$2" -" s_213)" -" s_213)))" +" s_101)" +" s_101)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_331)))" +" s_326)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31308,55 +31316,55 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_220) e_39))" -"(let-values(((orig-s_9) s_220))" +"(let-values(((s_216) e_39))" +"(let-values(((orig-s_9) s_216))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_221)" +"(let-values(((s_217)" "(if(1/syntax?" -" s_220)" +" s_216)" "(syntax-e$2" -" s_220)" -" s_220)))" +" s_216)" +" s_216)))" "(if(pair?" -" s_221)" +" s_217)" "(let-values(((_53_0)" -"(let-values(((s_222)" +"(let-values(((s_218)" "(car" -" s_221)))" -" s_222))" +" s_217)))" +" s_218))" "((e054_0" " e55_0)" -"(let-values(((s_223)" +"(let-values(((s_219)" "(cdr" -" s_221)))" -"(let-values(((s_224)" +" s_217)))" +"(let-values(((s_111)" "(if(1/syntax?" -" s_223)" +" s_219)" "(syntax-e$2" -" s_223)" -" s_223)))" +" s_219)" +" s_219)))" "(if(pair?" -" s_224)" +" s_111)" "(let-values(((e056_0)" -"(let-values(((s_113)" +"(let-values(((s_220)" "(car" -" s_224)))" -" s_113))" +" s_111)))" +" s_220))" "((e57_0)" -"(let-values(((s_114)" +"(let-values(((s_112)" "(cdr" -" s_224)))" -"(let-values(((s_225)" +" s_111)))" +"(let-values(((s_113)" "(if(1/syntax?" -" s_114)" +" s_112)" "(syntax-e$2" -" s_114)" -" s_114)))" +" s_112)" +" s_112)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_225)))" +" s_113)))" "(if(not" " flat-s_5)" "(let-values()" @@ -31484,56 +31492,96 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_332) e_39))" -"(if(let-values(((s_232)" +"(let-values(((s_327) e_39))" +"(if(let-values(((s_226)" +"(if(1/syntax?" +" s_327)" +"(syntax-e$2" +" s_327)" +" s_327)))" +"(if(pair? s_226)" +"(if(let-values(((s_227)" +"(car" +" s_226)))" +" #t)" +"(let-values(((s_328)" +"(cdr" +" s_226)))" +"(let-values(((s_228)" +"(if(1/syntax?" +" s_328)" +"(syntax-e$2" +" s_328)" +" s_328)))" +"(if(pair? s_228)" +"(if(let-values(((s_229)" +"(car" +" s_228)))" +"(let-values(((s_230)" +"(if(1/syntax?" +" s_229)" +"(syntax-e$2" +" s_229)" +" s_229)))" +"(if(pair?" +" s_230)" +"(if(let-values(((s_329)" +"(car" +" s_230)))" +"(let-values(((or-part_232)" +"(if(1/syntax?" +" s_329)" +"(symbol?" +"(syntax-e$2" +" s_329))" +" #f)))" +"(if or-part_232" +" or-part_232" +"(symbol?" +" s_329))))" +"(let-values(((s_330)" +"(cdr" +" s_230)))" +"(let-values(((s_331)" +"(if(1/syntax?" +" s_330)" +"(syntax-e$2" +" s_330)" +" s_330)))" +"(if(pair?" +" s_331)" +"(if(let-values(((s_332)" +"(car" +" s_331)))" +"(let-values(((or-part_233)" "(if(1/syntax?" " s_332)" +"(symbol?" "(syntax-e$2" -" s_332)" -" s_332)))" -"(if(pair? s_232)" -"(if(let-values(((s_233)" -"(car" -" s_232)))" -" #t)" +" s_332))" +" #f)))" +"(if or-part_233" +" or-part_233" +"(symbol?" +" s_332))))" "(let-values(((s_333)" "(cdr" -" s_232)))" -"(let-values(((s_234)" +" s_331)))" +"(let-values(((s_334)" "(if(1/syntax?" " s_333)" "(syntax-e$2" " s_333)" " s_333)))" -"(if(pair? s_234)" -"(if(let-values(((s_235)" -"(car" -" s_234)))" -"(let-values(((s_236)" -"(if(1/syntax?" -" s_235)" -"(syntax-e$2" -" s_235)" -" s_235)))" -"(if(pair?" -" s_236)" -"(if(let-values(((s_334)" -"(car" -" s_236)))" -"(let-values(((or-part_229)" -"(if(1/syntax?" -" s_334)" -"(symbol?" -"(syntax-e$2" -" s_334))" +"(null?" +" s_334)))" +" #f)" +" #f)))" +" #f)" " #f)))" -"(if or-part_229" -" or-part_229" -"(symbol?" -" s_334))))" "(let-values(((s_335)" "(cdr" -" s_236)))" +" s_228)))" "(let-values(((s_336)" "(if(1/syntax?" " s_335)" @@ -31545,17 +31593,7 @@ static const char *startup_source = "(if(let-values(((s_337)" "(car" " s_336)))" -"(let-values(((or-part_230)" -"(if(1/syntax?" -" s_337)" -"(symbol?" -"(syntax-e$2" -" s_337))" -" #f)))" -"(if or-part_230" -" or-part_230" -"(symbol?" -" s_337))))" +" #t)" "(let-values(((s_338)" "(cdr" " s_336)))" @@ -31565,53 +31603,23 @@ static const char *startup_source = "(syntax-e$2" " s_338)" " s_338)))" -"(null?" +"(if(pair?" +" s_339)" +"(if(let-values(((s_340)" +"(car" " s_339)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -"(let-values(((s_340)" -"(cdr" -" s_234)))" +" #t)" "(let-values(((s_341)" +"(cdr" +" s_339)))" +"(let-values(((s_342)" "(if(1/syntax?" -" s_340)" -"(syntax-e$2" -" s_340)" -" s_340)))" -"(if(pair?" " s_341)" -"(if(let-values(((s_342)" -"(car" -" s_341)))" -" #t)" -"(let-values(((s_343)" -"(cdr" -" s_341)))" -"(let-values(((s_344)" -"(if(1/syntax?" -" s_343)" "(syntax-e$2" -" s_343)" -" s_343)))" -"(if(pair?" -" s_344)" -"(if(let-values(((s_345)" -"(car" -" s_344)))" -" #t)" -"(let-values(((s_346)" -"(cdr" -" s_344)))" -"(let-values(((s_347)" -"(if(1/syntax?" -" s_346)" -"(syntax-e$2" -" s_346)" -" s_346)))" +" s_341)" +" s_341)))" "(null?" -" s_347)))" +" s_342)))" " #f)" " #f)))" " #f)" @@ -31626,62 +31634,94 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_238)" +"(let-values(((s_232)" "(if(1/syntax?" -" s_332)" +" s_327)" "(syntax-e$2" -" s_332)" -" s_332)))" +" s_327)" +" s_327)))" "(let-values(((_63_0)" -"(let-values(((s_241)" +"(let-values(((s_235)" "(car" -" s_238)))" -" s_241))" +" s_232)))" +" s_235))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_348)" +"(let-values(((s_343)" "(cdr" -" s_238)))" -"(let-values(((s_349)" +" s_232)))" +"(let-values(((s_344)" "(if(1/syntax?" -" s_348)" +" s_343)" "(syntax-e$2" -" s_348)" -" s_348)))" +" s_343)" +" s_343)))" "(let-values(((id:rator68_0" " id:arg69_0)" -"(let-values(((s_350)" +"(let-values(((s_345)" "(car" -" s_349)))" +" s_344)))" +"(let-values(((s_346)" +"(if(1/syntax?" +" s_345)" +"(syntax-e$2" +" s_345)" +" s_345)))" +"(let-values(((id:rator72_0)" +"(let-values(((s_347)" +"(car" +" s_346)))" +" s_347))" +"((id:arg73_0)" +"(let-values(((s_239)" +"(cdr" +" s_346)))" +"(let-values(((s_348)" +"(if(1/syntax?" +" s_239)" +"(syntax-e$2" +" s_239)" +" s_239)))" +"(let-values(((id:arg74_0)" +"(let-values(((s_349)" +"(car" +" s_348)))" +" s_349))" +"(()" +"(let-values(((s_350)" +"(cdr" +" s_348)))" "(let-values(((s_351)" "(if(1/syntax?" " s_350)" "(syntax-e$2" " s_350)" " s_350)))" -"(let-values(((id:rator72_0)" +"(values)))))" +"(values" +" id:arg74_0))))))" +"(values" +" id:rator72_0" +" id:arg73_0)))))" +"((thn70_0" +" els71_0)" "(let-values(((s_352)" -"(car" -" s_351)))" -" s_352))" -"((id:arg73_0)" -"(let-values(((s_245)" "(cdr" -" s_351)))" +" s_344)))" "(let-values(((s_353)" "(if(1/syntax?" -" s_245)" +" s_352)" "(syntax-e$2" -" s_245)" -" s_245)))" -"(let-values(((id:arg74_0)" +" s_352)" +" s_352)))" +"(let-values(((thn75_0)" "(let-values(((s_354)" "(car" " s_353)))" " s_354))" -"(()" +"((els76_0)" "(let-values(((s_355)" "(cdr" " s_353)))" @@ -31691,53 +31731,21 @@ static const char *startup_source = "(syntax-e$2" " s_355)" " s_355)))" -"(values)))))" -"(values" -" id:arg74_0))))))" -"(values" -" id:rator72_0" -" id:arg73_0)))))" -"((thn70_0" -" els71_0)" -"(let-values(((s_357)" -"(cdr" -" s_349)))" -"(let-values(((s_358)" -"(if(1/syntax?" -" s_357)" -"(syntax-e$2" -" s_357)" -" s_357)))" -"(let-values(((thn75_0)" -"(let-values(((s_359)" -"(car" -" s_358)))" -" s_359))" -"((els76_0)" -"(let-values(((s_360)" -"(cdr" -" s_358)))" -"(let-values(((s_361)" -"(if(1/syntax?" -" s_360)" -"(syntax-e$2" -" s_360)" -" s_360)))" "(let-values(((els77_0)" -"(let-values(((s_362)" +"(let-values(((s_357)" "(car" -" s_361)))" -" s_362))" +" s_356)))" +" s_357))" "(()" -"(let-values(((s_363)" +"(let-values(((s_358)" "(cdr" -" s_361)))" -"(let-values(((s_364)" +" s_356)))" +"(let-values(((s_359)" "(if(1/syntax?" -" s_363)" +" s_358)" "(syntax-e$2" -" s_363)" -" s_363)))" +" s_358)" +" s_358)))" "(values)))))" "(values" " els77_0))))))" @@ -31766,13 +31774,13 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_113)" +"(let-values(((or-part_234)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_113" -" or-part_113" +"(if or-part_234" +" or-part_234" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -31800,74 +31808,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_365) e_39))" -"(if(let-values(((s_366)" +"(let-values(((s_360) e_39))" +"(if(let-values(((s_361)" +"(if(1/syntax?" +" s_360)" +"(syntax-e$2" +" s_360)" +" s_360)))" +"(if(pair? s_361)" +"(if(let-values(((s_251)" +"(car" +" s_361)))" +" #t)" +"(let-values(((s_362)" +"(cdr" +" s_361)))" +"(let-values(((s_363)" +"(if(1/syntax?" +" s_362)" +"(syntax-e$2" +" s_362)" +" s_362)))" +"(if(pair?" +" s_363)" +"(if(let-values(((s_364)" +"(car" +" s_363)))" +" #t)" +"(let-values(((s_365)" +"(cdr" +" s_363)))" +"(let-values(((s_366)" "(if(1/syntax?" " s_365)" "(syntax-e$2" " s_365)" " s_365)))" -"(if(pair? s_366)" -"(if(let-values(((s_257)" +"(if(pair?" +" s_366)" +"(if(let-values(((s_367)" "(car" " s_366)))" " #t)" -"(let-values(((s_367)" -"(cdr" -" s_366)))" "(let-values(((s_368)" +"(cdr" +" s_366)))" +"(let-values(((s_369)" "(if(1/syntax?" -" s_367)" -"(syntax-e$2" -" s_367)" -" s_367)))" -"(if(pair?" " s_368)" -"(if(let-values(((s_369)" +"(syntax-e$2" +" s_368)" +" s_368)))" +"(if(pair?" +" s_369)" +"(if(let-values(((s_370)" "(car" -" s_368)))" +" s_369)))" " #t)" -"(let-values(((s_370)" -"(cdr" -" s_368)))" "(let-values(((s_371)" +"(cdr" +" s_369)))" +"(let-values(((s_372)" "(if(1/syntax?" -" s_370)" -"(syntax-e$2" -" s_370)" -" s_370)))" -"(if(pair?" " s_371)" -"(if(let-values(((s_372)" -"(car" -" s_371)))" -" #t)" -"(let-values(((s_373)" -"(cdr" -" s_371)))" -"(let-values(((s_374)" -"(if(1/syntax?" -" s_373)" "(syntax-e$2" -" s_373)" -" s_373)))" -"(if(pair?" -" s_374)" -"(if(let-values(((s_375)" -"(car" -" s_374)))" -" #t)" -"(let-values(((s_376)" -"(cdr" -" s_374)))" -"(let-values(((s_377)" -"(if(1/syntax?" -" s_376)" -"(syntax-e$2" -" s_376)" -" s_376)))" +" s_371)" +" s_371)))" "(null?" -" s_377)))" +" s_372)))" " #f)" " #f)))" " #f)" @@ -31881,75 +31889,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_378)" +"(let-values(((s_373)" "(if(1/syntax?" -" s_365)" +" s_360)" "(syntax-e$2" -" s_365)" -" s_365)))" +" s_360)" +" s_360)))" "(let-values(((_82_0)" -"(let-values(((s_379)" +"(let-values(((s_374)" "(car" -" s_378)))" -" s_379))" +" s_373)))" +" s_374))" "((tst83_0" " thn84_0" " els85_0)" +"(let-values(((s_375)" +"(cdr" +" s_373)))" +"(let-values(((s_376)" +"(if(1/syntax?" +" s_375)" +"(syntax-e$2" +" s_375)" +" s_375)))" +"(let-values(((tst86_0)" +"(let-values(((s_377)" +"(car" +" s_376)))" +" s_377))" +"((thn87_0" +" els88_0)" +"(let-values(((s_378)" +"(cdr" +" s_376)))" +"(let-values(((s_379)" +"(if(1/syntax?" +" s_378)" +"(syntax-e$2" +" s_378)" +" s_378)))" +"(let-values(((thn89_0)" +"(let-values(((s_253)" +"(car" +" s_379)))" +" s_253))" +"((els90_0)" "(let-values(((s_380)" "(cdr" -" s_378)))" +" s_379)))" "(let-values(((s_381)" "(if(1/syntax?" " s_380)" "(syntax-e$2" " s_380)" " s_380)))" -"(let-values(((tst86_0)" +"(let-values(((els91_0)" "(let-values(((s_382)" "(car" " s_381)))" " s_382))" -"((thn87_0" -" els88_0)" -"(let-values(((s_383)" +"(()" +"(let-values(((s_254)" "(cdr" " s_381)))" -"(let-values(((s_384)" +"(let-values(((s_255)" "(if(1/syntax?" -" s_383)" +" s_254)" "(syntax-e$2" -" s_383)" -" s_383)))" -"(let-values(((thn89_0)" -"(let-values(((s_259)" -"(car" -" s_384)))" -" s_259))" -"((els90_0)" -"(let-values(((s_385)" -"(cdr" -" s_384)))" -"(let-values(((s_386)" -"(if(1/syntax?" -" s_385)" -"(syntax-e$2" -" s_385)" -" s_385)))" -"(let-values(((els91_0)" -"(let-values(((s_387)" -"(car" -" s_386)))" -" s_387))" -"(()" -"(let-values(((s_260)" -"(cdr" -" s_386)))" -"(let-values(((s_261)" -"(if(1/syntax?" -" s_260)" -"(syntax-e$2" -" s_260)" -" s_260)))" +" s_254)" +" s_254)))" "(values)))))" "(values" " els91_0))))))" @@ -31994,17 +32002,17 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_231)(not expected-results_0)))" -"(if or-part_231 or-part_231(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_235)(not expected-results_0)))" +"(if or-part_235 or-part_235(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_63 key_65 defns_2 locals_3)" "(begin" -"(let-values(((d_32)" -"(let-values(((or-part_232)(hash-ref locals_3 e_63 #f)))" -"(if or-part_232 or-part_232(lookup-defn defns_2 e_63)))))" -"(if d_32(if(known-satisfies? d_32)(eq? key_65(known-satisfies-predicate-key d_32)) #f) #f)))))" +"(let-values(((d_4)" +"(let-values(((or-part_236)(hash-ref locals_3 e_63 #f)))" +"(if or-part_236 or-part_236(lookup-defn defns_2 e_63)))))" +"(if d_4(if(known-satisfies? d_4)(eq? key_65(known-satisfies-predicate-key d_4)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" @@ -32030,7 +32038,7 @@ static const char *startup_source = "(lambda(rhs_11)" "(begin" " 'loop" -"(let-values(((tmp_27)" +"(let-values(((tmp_26)" "(if(pair?" "(correlated-e" " rhs_11))" @@ -32040,7 +32048,7 @@ static const char *startup_source = " rhs_11)))" " #f)))" "(if(equal?" -" tmp_27" +" tmp_26" " 'make-struct-type)" "(let-values()" "(let-values(((field-count_0)" @@ -32118,7 +32126,7 @@ static const char *startup_source = " lst_241" " lst_242)))))" "(if(equal?" -" tmp_27" +" tmp_26" " 'let-values)" "(let-values()" "(if(null?" @@ -32194,11 +32202,11 @@ static const char *startup_source = "(let-values(((lst_247)(cdr l_57))" "((lst_248)" "(list" -"(lambda(v_160)(quoted? symbol? v_160))" -"(lambda(v_161)(is-lambda? v_161 2 defns_3))" -"(lambda(v_162)(ok-make-struct-type-property-super? v_162 defns_3))" -"(lambda(v_163)" -"(let-values(((v92_0) v_163)((temp93_1) 1)((defns94_0) defns_3))" +"(lambda(v_158)(quoted? symbol? v_158))" +"(lambda(v_159)(is-lambda? v_159 2 defns_3))" +"(lambda(v_160)(ok-make-struct-type-property-super? v_160 defns_3))" +"(lambda(v_161)" +"(let-values(((v92_0) v_161)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_247)))" @@ -32230,17 +32238,17 @@ static const char *startup_source = " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_164 defns_4)" +"(lambda(v_162 defns_4)" "(begin" -"(let-values(((or-part_233)(quoted? null? v_164)))" -"(if or-part_233" -" or-part_233" -"(let-values(((or-part_234)(eq? 'null(correlated-e v_164))))" -"(if or-part_234" -" or-part_234" -"(if(pair?(correlated-e v_164))" -"(if(eq?(correlated-e(car(correlated-e v_164))) 'list)" -"(if(let-values(((lst_250)(cdr(correlated->list v_164))))" +"(let-values(((or-part_237)(quoted? null? v_162)))" +"(if or-part_237" +" or-part_237" +"(let-values(((or-part_238)(eq? 'null(correlated-e v_162))))" +"(if or-part_238" +" or-part_238" +"(if(pair?(correlated-e v_162))" +"(if(eq?(correlated-e(car(correlated-e v_162))) 'list)" +"(if(let-values(((lst_250)(cdr(correlated->list v_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32268,7 +32276,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_235)" +"(if(let-values(((or-part_239)" "(memq" "(correlated-e" "(list-ref" @@ -32277,8 +32285,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_235" -" or-part_235" +"(if or-part_239" +" or-part_239" "(known-property?" "(lookup-defn" " defns_4" @@ -32318,9 +32326,9 @@ static const char *startup_source = " #t" " lst_250)))" "(=" -"(sub1(correlated-length v_164))" +"(sub1(correlated-length v_162))" "(set-count" -"(let-values(((lst_252)(cdr(correlated->list v_164))))" +"(let-values(((lst_252)(cdr(correlated->list v_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32371,21 +32379,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_236)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_236 or-part_236 'null))))" +"(let-values(((or-part_240)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_240 or-part_240 '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_254)(cdr l_58))" "((lst_255)" "(list" -"(lambda(v_165)(quoted? symbol? v_165))" -"(lambda(v_166)(super-ok? v_166 defns_5))" -"(lambda(v_167)(field-count-expr-to-field-count v_167))" -"(lambda(v_168)(field-count-expr-to-field-count v_168))" -"(lambda(v_169)" +"(lambda(v_163)(quoted? symbol? v_163))" +"(lambda(v_164)(super-ok? v_164 defns_5))" +"(lambda(v_165)(field-count-expr-to-field-count v_165))" +"(lambda(v_166)(field-count-expr-to-field-count v_166))" +"(lambda(v_167)" "(not" -"(let-values(((v98_0) v_169)" +"(let-values(((v98_0) v_167)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32398,11 +32406,11 @@ static const char *startup_source = " #t" " v98_0" " temp99_0))))" -"(lambda(v_170)" -"(known-good-struct-properties? v_170 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_171)(inspector-or-false? v_171))" -"(lambda(v_172)(procedure-spec? v_172 num-fields_0))" -"(lambda(v_173)(immutables-ok? v_173 init-field-count-expr_0)))))" +"(lambda(v_168)" +"(known-good-struct-properties? v_168 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_169)(inspector-or-false? v_169))" +"(lambda(v_170)(procedure-spec? v_170 num-fields_0))" +"(lambda(v_171)(immutables-ok? v_171 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32443,9 +32451,9 @@ static const char *startup_source = "(super-ok?)" "(lambda(e_66 defns_6)" "(begin" -"(let-values(((or-part_237)(quoted? false? e_66)))" -"(if or-part_237" -" or-part_237" +"(let-values(((or-part_241)(quoted? false? e_66)))" +"(if or-part_241" +" or-part_241" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_66))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32456,49 +32464,49 @@ 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_174)" +"(lambda(val?_0 v_172)" "(begin" -"(let-values(((or-part_238)" -"(if(pair?(correlated-e v_174))" -"(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_174)))" +"(let-values(((or-part_242)" +"(if(pair?(correlated-e v_172))" +"(if(eq?(correlated-e(car(correlated-e v_172))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_172)))" " #f)" " #f)))" -"(if or-part_238 or-part_238(val?_0(correlated-e v_174)))))))" +"(if or-part_242 or-part_242(val?_0(correlated-e v_172)))))))" "(define-values" "(quoted-value)" -"(lambda(v_175)" -"(begin(if(pair?(correlated-e v_175))(correlated-e(correlated-cadr v_175))(correlated-e v_175)))))" -"(define-values(false?)(lambda(v_176)(begin(eq?(correlated-e v_176) #f))))" +"(lambda(v_173)" +"(begin(if(pair?(correlated-e v_173))(correlated-e(correlated-cadr v_173))(correlated-e v_173)))))" +"(define-values(false?)(lambda(v_174)(begin(eq?(correlated-e v_174) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_177)(begin(if(quoted? exact-nonnegative-integer? v_177)(quoted-value v_177) #f))))" +"(lambda(v_175)(begin(if(quoted? exact-nonnegative-integer? v_175)(quoted-value v_175) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_178)" +"(lambda(v_176)" "(begin" -"(let-values(((or-part_239)(quoted? false? v_178)))" -"(if or-part_239" -" or-part_239" -"(let-values(((or-part_240)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" -"(if or-part_240" -" or-part_240" -"(if(= 1(correlated-length v_178))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" +"(let-values(((or-part_243)(quoted? false? v_176)))" +"(if or-part_243" +" or-part_243" +"(let-values(((or-part_244)(if(quoted? symbol? v_176)(eq? 'prefab(quoted-value v_176)) #f)))" +"(if or-part_244" +" or-part_244" +"(if(= 1(correlated-length v_176))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_176))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_177 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_241)(quoted? null? v_179)))" -"(if or-part_241" -" or-part_241" -"(let-values(((or-part_242)(eq? 'null(correlated-e v_179))))" -"(if or-part_242" -" or-part_242" -"(if(pair?(correlated-e v_179))" -"(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" -"(if(let-values(((lst_257)(cdr(correlated->list v_179))))" +"(let-values(((or-part_245)(quoted? null? v_177)))" +"(if or-part_245" +" or-part_245" +"(let-values(((or-part_246)(eq? 'null(correlated-e v_177))))" +"(if or-part_246" +" or-part_246" +"(if(pair?(correlated-e v_177))" +"(if(eq?(correlated-e(car(correlated-e v_177))) 'list)" +"(if(let-values(((lst_257)(cdr(correlated->list v_177))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32545,9 +32553,9 @@ static const char *startup_source = " #t" " lst_257)))" "(=" -"(sub1(correlated-length v_179))" +"(sub1(correlated-length v_177))" "(set-count" -"(let-values(((lst_259)(cdr(correlated->list v_179))))" +"(let-values(((lst_259)(cdr(correlated->list v_177))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32591,18 +32599,18 @@ static const char *startup_source = "(lambda(prop-expr_0 val-expr_0 immutables-expr_2 super-expr_2 defns_8)" "(begin" "(let-values(((prop-name_0)(correlated-e prop-expr_0)))" -"(let-values(((tmp_28) prop-name_0))" -"(if(equal? tmp_28 'prop:evt)" +"(let-values(((tmp_27) prop-name_0))" +"(if(equal? tmp_27 'prop:evt)" "(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))))" -"(if(equal? tmp_28 'prop:procedure)" +"(let-values(((or-part_247)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_247 or-part_247(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_27 'prop:procedure)" "(let-values()" -"(let-values(((or-part_244)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_244 or-part_244(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_28 'prop:custom-write)" +"(let-values(((or-part_248)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_248 or-part_248(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_27 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" -"(if(equal? tmp_28 'prop:equal+hash)" +"(if(equal? tmp_27 'prop:equal+hash)" "(let-values()" "(let-values(((l_60)(correlated->list val-expr_0)))" "(if(eq? 'list(car l_60))" @@ -32610,16 +32618,16 @@ static const char *startup_source = "(if(is-lambda?(list-ref l_60 2) 2 defns_8)(is-lambda?(list-ref l_60 3) 2 defns_8) #f)" " #f)" " #f)))" -"(if(if(equal? tmp_28 'prop:method-arity-error) #t(equal? tmp_28 'prop:incomplete-arity))" +"(if(if(equal? tmp_27 'prop:method-arity-error) #t(equal? tmp_27 'prop:incomplete-arity))" "(let-values()" "(not" "(let-values(((val-expr102_0) val-expr_0)((temp103_0) 1)((defns104_0) defns_8))" "(any-side-effects?9.1 defns104_0 #t #f #f #f #f val-expr102_0 temp103_0))))" -"(if(equal? tmp_28 'prop:impersonator-of)" +"(if(equal? tmp_27 'prop:impersonator-of)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_28 'prop:arity-string)" +"(if(equal? tmp_27 'prop:arity-string)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_28 'prop:checked-procedure)" +"(if(equal? tmp_27 'prop:checked-procedure)" "(let-values()(if(quoted? false? super-expr_2)(immutable-field? 1 immutables-expr_2) #f))" "(let-values()" "(let-values(((o_1)(lookup-defn defns_8 prop-name_0)))" @@ -32635,26 +32643,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_245)" +"(let-values(((or-part_249)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_246)(not arity_0)))" -"(if or-part_246 or-part_246(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_250)(not arity_0)))" +"(if or-part_250 or-part_250(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_247)" +"(if or-part_249" +" or-part_249" +"(let-values(((or-part_251)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_247" -" or-part_247" +"(if or-part_251" +" or-part_251" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_248)(not arity_0)))" -"(if or-part_248" -" or-part_248" +"(let-values(((or-part_252)(not arity_0)))" +"(if or-part_252" +" or-part_252" "((letrec-values(((loop_91)" "(lambda(args_4 arity_1)" "(begin" @@ -32675,13 +32683,13 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_249)(equal? a_40 n_25)))" -"(if or-part_249" -" or-part_249" +"(let-values(((or-part_253)(equal? a_40 n_25)))" +"(if or-part_253" +" or-part_253" "(if(list? a_40)" -"(let-values(((lst_67) a_40))" +"(let-values(((lst_68) a_40))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" "((letrec-values(((for-loop_224)" "(lambda(result_106 lst_261)" "(begin" @@ -32700,7 +32708,7 @@ static const char *startup_source = " result_106)))))" " for-loop_224)" " #f" -" lst_67)))" +" lst_68)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32713,31 +32721,31 @@ static const char *startup_source = "(immutables-expr-to-immutables)" "(lambda(e_68 fail-v_0)" "(begin" -"(let-values(((tmp_29)(if(pair?(correlated-e e_68))(correlated-e(car(correlated-e e_68))) #f)))" -"(if(equal? tmp_29 'quote)" +"(let-values(((tmp_28)(if(pair?(correlated-e e_68))(correlated-e(car(correlated-e e_68))) #f)))" +"(if(equal? tmp_28 'quote)" "(let-values()" -"(let-values(((v_180)(correlated-cadr e_68)))" -"(let-values(((or-part_250)" -"(if(correlated-length v_180)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_180))))" +"(let-values(((v_178)(correlated-cadr e_68)))" +"(let-values(((or-part_254)" +"(if(correlated-length v_178)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_178))))" "(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_250 or-part_250 fail-v_0))))" +"(if or-part_254 or-part_254 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_69 field-count_1)" "(begin" -"(let-values(((or-part_251)(quoted? false? e_69)))" -"(if or-part_251" -" or-part_251" -"(let-values(((or-part_252)" +"(let-values(((or-part_255)(quoted? false? e_69)))" +"(if or-part_255" +" or-part_255" +"(let-values(((or-part_256)" "(if(quoted? exact-nonnegative-integer? e_69)" "(if field-count_1(<(quoted-value e_69) field-count_1) #f)" " #f)))" -"(if or-part_252 or-part_252(is-lambda? e_69 #f '#hasheq()))))))))" +"(if or-part_256 or-part_256(is-lambda? e_69 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_70 init-field-count-expr_1)" @@ -32775,25 +32783,25 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_71)))" "(let-values(((a_42)" -"(if(let-values(((or-part_130)(=(length l_63) 3)))" -"(if or-part_130 or-part_130(=(length l_63) 4)))" -"(let-values(((or-part_131)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_131 or-part_131(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_257)(=(length l_63) 3)))" +"(if or-part_257 or-part_257(=(length l_63) 4)))" +"(let-values(((or-part_258)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_258 or-part_258(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_42)" "(if(eq?(known-struct-op-type a_42) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_253)(=(length l_63) 3)))" -"(if or-part_253 or-part_253(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_131)(=(length l_63) 3)))" +"(if or-part_131 or-part_131(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" "(define-values(maybe+)(lambda(x_69 y_10)(begin(if x_69(if y_10(+ x_69 y_10) #f) #f))))" "(define-values" "(compile-single)" -"(lambda(p_43 cctx_12)" +"(lambda(p_44 cctx_12)" "(begin" -"(let-values(((p12_0) p_43)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" +"(let-values(((p12_0) p_44)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" "(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p12_0 cctx13_0)))))" "(define-values" "(compile-top9.1)" @@ -32807,7 +32815,7 @@ static const char *startup_source = " cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_44) p7_0))" +"(let-values(((p_45) p7_0))" "(let-values(((cctx_13) cctx8_0))" "(let-values(((serializable?_1)(if serializable?4_0 serializable?1_0 #t)))" "(let-values(((single-expression?_0)(if single-expression?5_0 single-expression?2_0 #f)))" @@ -32825,7 +32833,7 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_44))" +"(let-values(((temp16_4)(list p_45))" "((cctx17_0) cctx_13)" "((mpis18_0) mpis_18)" "((temp19_0)" @@ -32863,10 +32871,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_388 cctx_14)" +"(lambda(s_383 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_388 cctx_14))))" +"(compile-top-level-require s_383 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32919,11 +32927,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_161)" +"(lambda(s_160)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_161" +" s_160" " #f" "(vector" " deserialize-instance" @@ -32976,12 +32984,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_45 cctx_15)" +"(lambda(p_46 cctx_15)" "(begin" "(let-values(((phase_34)(compile-context-phase cctx_15)))" -"(if(parsed-require? p_45)" +"(if(parsed-require? p_46)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_45)) cctx_15)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_15)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -33014,17 +33022,17 @@ static const char *startup_source = "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_254)(hash-ref defined-syms_7 phase_82 #f)))" -"(if or-part_254" -" or-part_254" +"(let-values(((or-part_259)(hash-ref defined-syms_7 phase_82 #f)))" +"(if or-part_259" +" or-part_259" "(let-values(((ht_122)(make-hasheq)))" "(begin(hash-set! defined-syms_7 phase_82 ht_122) ht_122))))))" "(reverse$1" -"(let-values(((lst_80) ids_15))" +"(let-values(((lst_81) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_226)" "(lambda(fold-var_12 lst_173)" "(begin" @@ -33065,7 +33073,7 @@ static const char *startup_source = "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_177)" +"(let-values(((s_176)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33074,7 +33082,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_177" +" s_176" " #f)" " id_52" " phase_82" @@ -33082,7 +33090,7 @@ static const char *startup_source = "(loop_92" "(add1" " pos_97))" -" s_177))))))" +" s_176))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33188,15 +33196,15 @@ static const char *startup_source = " fold-var_12)))))" " for-loop_226)" " null" -" lst_80)))))))))))))))))))" +" lst_81)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" "(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_53))))" -"(let-values(((or-part_134)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" -"(if or-part_134" -" or-part_134" +"(let-values(((or-part_136)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" +"(if or-part_136" +" or-part_136" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_83)" " #f)))))))" @@ -33206,9 +33214,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_73))" -"(let-values(((or-part_255)(not top-level-bind-scope_5)))" -"(if or-part_255" -" or-part_255" +"(let-values(((or-part_260)(not top-level-bind-scope_5)))" +"(if or-part_260" +" or-part_260" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33247,9 +33255,9 @@ static const char *startup_source = "(lambda(defined-syms_8 phase_84 sym_55 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_256)(hash-ref defined-syms_8 phase_84 #f)))" -"(if or-part_256" -" or-part_256" +"(let-values(((or-part_261)(hash-ref defined-syms_8 phase_84 #f)))" +"(if or-part_261" +" or-part_261" "(let-values(((ht_123)(make-hasheq)))" "(begin(hash-set! defined-syms_8 phase_84 ht_123) ht_123))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_55)))))" @@ -33297,17 +33305,17 @@ static const char *startup_source = "(check-list" " lst_264)))" "((letrec-values(((for-loop_228)" -"(lambda(lst_79)" +"(lambda(lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_79)" +" lst_80)" "(let-values(((req_4)" "(unsafe-car" -" lst_79))" +" lst_80))" "((rest_36)" "(unsafe-cdr" -" lst_79)))" +" lst_80)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33394,7 +33402,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_105)" "(lambda(i_150)" "(begin" " 'for-loop" @@ -33500,10 +33508,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_124 i_150))" +"(for-loop_105(hash-iterate-next ht_124 i_150))" "(values))))" "(values))))))" -" for-loop_106)" +" for-loop_105)" "(hash-iterate-first ht_124))))" "(void)" " root-ctx_4))))))))))" @@ -33513,12 +33521,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_181) root-context_0))" -"(let-values(((the-struct_54) v_181))" -"(if(root-expand-context/outer? the-struct_54)" +"(let-values(((v_179) root-context_0))" +"(let-values(((the-struct_53) v_179))" +"(if(root-expand-context/outer? the-struct_53)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_181)))" -"(if(root-expand-context/inner? the-struct_55)" +"(let-values(((the-struct_54)(root-expand-context/outer-inner v_179)))" +"(if(root-expand-context/inner? the-struct_54)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_1)" @@ -33535,19 +33543,19 @@ 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_54)" +"(root-expand-context/inner-top-level-bind-scope the-struct_54)" " 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_54)" +"(root-expand-context/inner-counter the-struct_54)" +"(root-expand-context/inner-lift-key the-struct_54)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_54)))))" "(root-expand-context/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_54)" -"(root-expand-context/outer-use-site-scopes the-struct_54)" -"(root-expand-context/outer-frame-id the-struct_54)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_54)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_53)" +"(root-expand-context/outer-use-site-scopes the-struct_53)" +"(root-expand-context/outer-frame-id the-struct_53)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_53)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -33570,7 +33578,7 @@ static const char *startup_source = "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" "((lst_267) import-module-uses_0)" -"((lst_89) import-module-instances_0)" +"((lst_90) import-module-instances_0)" "((lst_163)" "(let-values(((or-part_70) extra-inspectorsss_4))" "(if or-part_70 or-part_70 import-module-uses_0))))" @@ -33583,16 +33591,16 @@ static const char *startup_source = "(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_90)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_163)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_266 lst_268 lst_24 lst_102)" +"(lambda(lst_266 lst_268 lst_24 lst_103)" "(begin" " 'for-loop" "(if(if(pair? lst_266)" -"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_102) #f) #f)" +"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_103) #f) #f)" " #f)" "(let-values(((import-syms_0)(unsafe-car lst_266))" "((rest_140)(unsafe-cdr lst_266))" @@ -33600,8 +33608,8 @@ static const char *startup_source = "((rest_141)(unsafe-cdr lst_268))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_102))" -"((rest_117)(unsafe-cdr lst_102)))" +"((extra-inspectorss_14)(unsafe-car lst_103))" +"((rest_117)(unsafe-cdr lst_103)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33624,7 +33632,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_59)" +"(let-values(((lst_60)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33632,7 +33640,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_59)))" +" lst_60)))" "((letrec-values(((for-loop_230)" "(lambda(lst_26)" "(begin" @@ -33660,12 +33668,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_170)" "(eq?" " a_43" " 'unexported)))" -"(if or-part_168" -" or-part_168" +"(if or-part_170" +" or-part_170" "(eq?" " a_43" " 'protected)))" @@ -33674,20 +33682,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_172)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_170" -" or-part_170" -"(let-values(((or-part_171)" +"(if or-part_172" +" or-part_172" +"(let-values(((or-part_173)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_171" -" or-part_171" +"(if or-part_173" +" or-part_173" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33722,7 +33730,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_230)" -" lst_59)))" +" lst_60)))" "(void)))))))" "(values)))))" "(values)))))" @@ -33733,7 +33741,7 @@ static const char *startup_source = " for-loop_229)" " lst_42" " lst_267" -" lst_89" +" lst_90" " lst_163)))" "(void)))))))))))))" "(define-values" @@ -33745,15 +33753,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_257)(module-access m_16)))" -"(if or-part_257 or-part_257(module-compute-access! m_16)))))" +"(let-values(((or-part_262)(module-access m_16)))" +"(if or-part_262 or-part_262(module-compute-access! m_16)))))" "(let-values(((a_44)(hash-ref(hash-ref access_3 phase_86 '#hasheq()) sym_57 'unexported)))" -"(if(let-values(((or-part_258)(eq? a_44 'unexported)))" -"(if or-part_258 or-part_258(eq? a_44 'protected)))" +"(if(let-values(((or-part_263)(eq? a_44 'unexported)))" +"(if or-part_263 or-part_263(eq? a_44 '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_264)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_264 or-part_264(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33829,7 +33837,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_98))" "(let-values(((table_186)" -"(let-values(((v_182)" +"(let-values(((v_180)" "(hash-ref" " h_1" " phase-level_17" @@ -33844,7 +33852,7 @@ static const char *startup_source = "(let-values(((table_188)" "(let-values(((table_189)" " table_187))" -"(if v_182" +"(if v_180" "(let-values(((table_190)" " table_189))" "(let-values(((table_191)" @@ -33855,7 +33863,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_182)))))" +" v_180)))))" "(hash-set" " table_190" " key_70" @@ -33915,17 +33923,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_20)))" "((letrec-values(((for-loop_233)" -"(lambda(lst_93)" +"(lambda(lst_94)" "(begin" " 'for-loop" "(if(pair?" -" lst_93)" +" lst_94)" "(let-values(((c_25)" "(unsafe-car" -" lst_93))" +" lst_94))" "((rest_44)" "(unsafe-cdr" -" lst_93)))" +" lst_94)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33958,13 +33966,13 @@ static const char *startup_source = " lst_20)))" "(void))" "(begin" -"(let-values(((lst_94) names_0))" +"(let-values(((lst_95) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_94)))" +"(check-list lst_95)))" "((letrec-values(((for-loop_234)" "(lambda(lst_7)" "(begin" @@ -34018,7 +34026,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_234)" -" lst_94)))" +" lst_95)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34639,7 +34647,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_99)" "(lambda(fold-var_59 i_152)" "(begin" " 'for-loop" @@ -34693,7 +34701,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_87)" +"(let-values(((lst_88)" "(cons" " b_69" "(module-binding-extra-nominal-bindings" @@ -34704,7 +34712,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_87)))" +" lst_88)))" "((letrec-values(((for-loop_238)" "(lambda(fold-var_32" " lst_271)" @@ -34759,7 +34767,7 @@ static const char *startup_source = " fold-var_32)))))" " for-loop_238)" " null" -" lst_87)))))))))" +" lst_88)))))))))" " fold-var_30))))" "(values" " fold-var_219)))" @@ -34779,7 +34787,7 @@ static const char *startup_source = " ht_119)))))))" "(begin" " #t" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_105)" "(lambda(fold-var_67)" "(begin" " 'for-loop" @@ -34815,15 +34823,15 @@ static const char *startup_source = "(values" " fold-var_29)))))))" " fold-var_154))))))" -" for-loop_106)" +" for-loop_105)" " fold-var_59)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_99" " fold-var_60" "(hash-iterate-next ht_126 i_152))" " fold-var_60)))" " fold-var_59)))))" -" for-loop_100)" +" for-loop_99)" " null" "(hash-iterate-first ht_126)))))))" "(let-values(((result-l1_0) result-l_0)((phasehash(hash-ref ht_131 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_79) names_1))" +"(let-values(((lst_80) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_72)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_71)" "(lambda(fold-var_30 lst_274)" "(begin" " 'for-loop" @@ -35225,11 +35233,11 @@ static const char *startup_source = "(hash-ref ht_131 name_55))" " fold-var_32))))" "(values fold-var_33)))))" -"(if(not #f)(for-loop_72 fold-var_31 rest_147) fold-var_31)))" +"(if(not #f)(for-loop_71 fold-var_31 rest_147) fold-var_31)))" " fold-var_30)))))" -" for-loop_72)" +" for-loop_71)" " null" -" lst_79))))))))" +" lst_80))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35260,8 +35268,8 @@ static const char *startup_source = "(if non-star?_1(compiled-in-memory-post-compiled-in-memorys c_38) submods_1)))" "(let-values(((n-c_0)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" -"(let-values(((the-struct_56) n-c_0))" -"(if(compiled-in-memory? the-struct_56)" +"(let-values(((the-struct_55) n-c_0))" +"(if(compiled-in-memory? the-struct_55)" "(let-values(((pre-compiled-in-memorys1_0) pre-compiled-in-memorys_1)" "((post-compiled-in-memorys2_0) post-compiled-in-memorys_1)" "((linklet-directory3_0)" @@ -35279,19 +35287,19 @@ static const char *startup_source = "(rebuild-linklet-directory5.1 temp5_3 #t temp4_1 temp6_0))))" "(compiled-in-memory1.1" " linklet-directory3_0" -"(compiled-in-memory-original-self the-struct_56)" -"(compiled-in-memory-requires the-struct_56)" -"(compiled-in-memory-provides the-struct_56)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_56)" -"(compiled-in-memory-compile-time-inspector the-struct_56)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_56)" -"(compiled-in-memory-mpis the-struct_56)" -"(compiled-in-memory-syntax-literals the-struct_56)" +"(compiled-in-memory-original-self the-struct_55)" +"(compiled-in-memory-requires the-struct_55)" +"(compiled-in-memory-provides the-struct_55)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_55)" +"(compiled-in-memory-compile-time-inspector the-struct_55)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_55)" +"(compiled-in-memory-mpis the-struct_55)" +"(compiled-in-memory-syntax-literals the-struct_55)" " pre-compiled-in-memorys1_0" " post-compiled-in-memorys2_0" -"(compiled-in-memory-namespace-scopes the-struct_56)" -"(compiled-in-memory-purely-functional? the-struct_56)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_56))))))))" +"(compiled-in-memory-namespace-scopes the-struct_55)" +"(compiled-in-memory-purely-functional? the-struct_55)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_55))))))))" "(let-values()" "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" @@ -35372,7 +35380,7 @@ 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_103)" +"((letrec-values(((for-loop_102)" "(lambda(table_112 pos_100)" "(begin" " 'for-loop" @@ -35397,9 +35405,9 @@ static const char *startup_source = " null))))))" "(hash-set table_61 key_74 val_48)))))" "(values table_199)))))" -"(if(not #f)(for-loop_103 table_198(+ pos_100 inc_21)) table_198)))" +"(if(not #f)(for-loop_102 table_198(+ pos_100 inc_21)) table_198)))" " table_112)))))" -" for-loop_103)" +" for-loop_102)" " '#hash()" " start_38)))))))))))" "(define-values" @@ -35427,25 +35435,25 @@ static const char *startup_source = "(if(1/linklet-bundle? c_44)" "(let-values()(1/hash->linklet-directory(hasheq #f c_44)))" "(let-values()" -"(let-values(((the-struct_57) c_44))" -"(if(compiled-in-memory? the-struct_57)" +"(let-values(((the-struct_56) c_44))" +"(if(compiled-in-memory? the-struct_56)" "(let-values(((linklet-directory9_0)" "(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_44))))" "(compiled-in-memory1.1" " linklet-directory9_0" -"(compiled-in-memory-original-self the-struct_57)" -"(compiled-in-memory-requires the-struct_57)" -"(compiled-in-memory-provides the-struct_57)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_57)" -"(compiled-in-memory-compile-time-inspector the-struct_57)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_57)" -"(compiled-in-memory-mpis the-struct_57)" -"(compiled-in-memory-syntax-literals the-struct_57)" -"(compiled-in-memory-pre-compiled-in-memorys the-struct_57)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_57)" -"(compiled-in-memory-namespace-scopes the-struct_57)" -"(compiled-in-memory-purely-functional? the-struct_57)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_57)))))))))" +"(compiled-in-memory-original-self the-struct_56)" +"(compiled-in-memory-requires the-struct_56)" +"(compiled-in-memory-provides the-struct_56)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_56)" +"(compiled-in-memory-compile-time-inspector the-struct_56)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_56)" +"(compiled-in-memory-mpis the-struct_56)" +"(compiled-in-memory-syntax-literals the-struct_56)" +"(compiled-in-memory-pre-compiled-in-memorys the-struct_56)" +"(compiled-in-memory-post-compiled-in-memorys the-struct_56)" +"(compiled-in-memory-namespace-scopes the-struct_56)" +"(compiled-in-memory-purely-functional? the-struct_56)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_56)))))))))" "(define-values" "(fixup-submodule-names)" "(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" @@ -35474,7 +35482,7 @@ static const char *startup_source = " cctx12_1)" "(begin" " 'compile-module13" -"(let-values(((p_36) p11_1))" +"(let-values(((p_37) p11_1))" "(let-values(((cctx_16) cctx12_1))" "(let-values(((force-linklet-directory?_0)(if force-linklet-directory?6_0 force-linklet-directory?1_0 #f)))" "(let-values(((serializable?_2)(if serializable?7_0 serializable?2_0 #f)))" @@ -35486,13 +35494,13 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_16))" -"((name_56)(syntax-e$1(parsed-module-name-id p_36))))" +"((name_56)(syntax-e$1(parsed-module-name-id p_37))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" "(list name_56))" " name_56))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_36)))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" @@ -35503,7 +35511,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_105)" "(lambda(fold-var_67 i_155)" "(begin" " 'for-loop" @@ -35529,7 +35537,7 @@ static const char *startup_source = "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_36))" +" p_37))" " #f)" "(update-submodule-names" "(cdr" @@ -35542,17 +35550,17 @@ static const char *startup_source = "(values fold-var_68)))" " fold-var_155))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_105" " fold-var_29" "(hash-iterate-next ht_124 i_155))" " fold-var_29)))" " fold-var_67)))))" -" for-loop_106)" +" for-loop_105)" " null" "(hash-iterate-first ht_124)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" -"(let-values(((c1_25)(parsed-module-compiled-module p_36)))" +"(let-values(((c1_25)(parsed-module-compiled-module p_37)))" "(if c1_25" "((lambda(c_46)" "(let-values(((name_58 prefix_6)" @@ -35567,7 +35575,7 @@ static const char *startup_source = "(map2 cdr post-submodules_0)))))" " c1_25)" "(let-values()" -"(let-values(((p37_0) p_36)" +"(let-values(((p37_0) p_37)" "((cctx38_0) cctx_16)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -35603,7 +35611,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_46) p32_0))" +"(let-values(((p_47) p32_0))" "(let-values(((cctx_17) cctx33_0))" "(let-values(((full-module-name_2) full-module-name16_0))" "(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))" @@ -35616,21 +35624,21 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_25)(parsed-module-self p_46)))" -"(let-values(((requires_5)(parsed-module-requires p_46)))" -"(let-values(((provides_11)(parsed-module-provides p_46)))" +"(let-values(((self_25)(parsed-module-self p_47)))" +"(let-values(((requires_5)(parsed-module-requires p_47)))" +"(let-values(((provides_11)(parsed-module-provides p_47)))" "(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_46))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_46)))" +"(box(parsed-module-encoded-root-ctx p_47))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_47)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_46) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_46)))" +"(syntax-property$1(parsed-s p_47) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_47)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_58) cctx_17))" -"(if(compile-context? the-struct_58)" +"(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)" @@ -35638,17 +35646,17 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_58)" +"(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_58)))" +"(compile-context-header the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_58)))))" +" the-struct_57)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" @@ -35733,39 +35741,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_389)" +"(let-values(((s_384)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_389))" +" s_384))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_390)" +"(let-values(((s_385)" "(if(syntax?$1" -" s_389)" +" s_384)" "(syntax-e$1" -" s_389)" -" s_389)))" +" s_384)" +" s_384)))" "(if(pair?" -" s_390)" +" s_385)" "(let-values(((_71_0)" "(let-values(((s_56)" "(car" -" s_390)))" +" s_385)))" " s_56))" "((kw72_0)" -"(let-values(((s_391)" +"(let-values(((s_386)" "(cdr" -" s_390)))" -"(let-values(((s_392)" +" s_385)))" +"(let-values(((s_387)" "(if(syntax?$1" -" s_391)" +" s_386)" "(syntax-e$1" -" s_391)" -" s_391)))" +" s_386)" +" s_386)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_392)))" +" s_387)))" "(if(not" " flat-s_18)" "(let-values()" @@ -36022,12 +36030,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_323)" +"(lambda(s_317)" "(let-values()" "(let-values(((linklet_8" " new-keys_1)" "(1/compile-linklet" -" s_323" +" s_317" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36090,10 +36098,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_393)" +"(lambda(s_388)" "(let-values()" "(1/compile-linklet" -" s_393" +" s_388" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36122,10 +36130,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_202)" +"(lambda(s_201)" "(let-values()" "(1/compile-linklet" -" s_202" +" s_201" " 'data))))" "(list" " 'linklet" @@ -36151,10 +36159,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_260)" +"(let-values(((or-part_265)" " declaration-linklet_0))" -"(if or-part_260" -" or-part_260" +"(if or-part_265" +" or-part_265" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36279,7 +36287,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_206)))" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_121)" "(lambda(ht_134" " lst_276)" "(begin" @@ -36310,12 +36318,12 @@ static const char *startup_source = " ht_125)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_121" " ht_135" " rest_149)" " ht_135)))" " ht_134)))))" -" for-loop_122)" +" for-loop_121)" "(hasheq #f bundle_1)" " lst_206))))))))" "(if to-source?_4" @@ -36357,15 +36365,15 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_278)" -"(let-values(((s_394)(unsafe-car lst_278))((rest_150)(unsafe-cdr lst_278)))" +"(let-values(((s_100)(unsafe-car lst_278))((rest_150)(unsafe-cdr lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_394)))" -"(let-values(((cim_10)(cdr s_394)))" +"(let-values(((name_60)(car s_100)))" +"(let-values(((cim_10)(cdr s_100)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36623,7 +36631,7 @@ static const char *startup_source = " 'map-construct-compiled-in-memory" "(reverse$1" "(let-values(((lst_267) l_10)" -"((lst_89)" +"((lst_90)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" @@ -36643,7 +36651,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_90)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36656,8 +36664,8 @@ static const char *startup_source = "(lambda(fold-var_155" " lst_268" " lst_24" -" lst_102" -" lst_90)" +" lst_103" +" lst_91)" "(begin" " 'for-loop" "(if(if(pair?" @@ -36665,9 +36673,9 @@ static const char *startup_source = "(if(pair?" " lst_24)" "(if(pair?" -" lst_102)" +" lst_103)" "(pair?" -" lst_90)" +" lst_91)" " #f)" " #f)" " #f)" @@ -36685,16 +36693,16 @@ static const char *startup_source = " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_102))" +" lst_103))" "((rest_87)" "(unsafe-cdr" -" lst_102))" +" lst_103))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_90))" +" lst_91))" "((rest_37)" "(unsafe-cdr" -" lst_90)))" +" lst_91)))" "(let-values(((fold-var_164)" "(let-values(((fold-var_165)" " fold-var_155))" @@ -36722,7 +36730,7 @@ static const char *startup_source = " for-loop_229)" " null" " lst_267" -" lst_89" +" lst_90" " lst_163" " lst_265))))))))" "(compiled-in-memory1.1" @@ -36760,7 +36768,7 @@ static const char *startup_source = " vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_102)" "(lambda(i_159 pos_100)" "(begin" " 'for-loop" @@ -36797,14 +36805,14 @@ static const char *startup_source = " pos_101))" "(not #f)" " #f)" -"(for-loop_103" +"(for-loop_102" " i_160" "(unsafe-fx+" " 1" " pos_100))" " i_160)))" " i_159)))))" -" for-loop_103)" +" for-loop_102)" " 0" " 0)))))" " v_62))))" @@ -37092,7 +37100,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_226)))" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_97)" "(lambda(mis_7" " is_6" " lst_227)" @@ -37149,7 +37157,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_98" +"(for-loop_97" " mis_8" " is_7" " rest_119)" @@ -37159,7 +37167,7 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_98)" +" for-loop_97)" " null" " null" " lst_226)))))" @@ -37348,7 +37356,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_183)(make-vector len_32 0)))" +"(let-values(((v_181)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37365,7 +37373,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_104 len_33)" -"(let-values(((s_395)" +"(let-values(((s_389)" "(unsafe-vector-ref vec_64 pos_104)))" "(let-values(((i_166)" "(let-values(((i_167) i_165))" @@ -37373,11 +37381,11 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_183" +" v_181" " i_167" "(let-values()" "(swap-top-level-scopes" -" s_395" +" s_389" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" @@ -37388,7 +37396,7 @@ static const char *startup_source = "(if(if(not" "((lambda x_71" "(unsafe-fx= i_166 len_32))" -" s_395))" +" s_389))" "(not #f)" " #f)" "(for-loop_248 i_166(unsafe-fx+ 1 pos_104))" @@ -37397,7 +37405,7 @@ static const char *startup_source = " for-loop_248)" " 0" " 0)))))" -" v_183)))))))))" +" v_181)))))))))" "(1/make-instance" " 'link" " #f" @@ -37410,17 +37418,17 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_43 ns_42 self-mpi_3)" +"(lambda(p_44 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_43)" +"(if(parsed-app? p_44)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_43) ns_42 self-mpi_3)" -"(let-values(((lst_101)(parsed-app-rands p_43)))" +"(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" +"(let-values(((lst_102)(parsed-app-rands p_44)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_111)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_110)" "(lambda(result_112 lst_6)" "(begin" " 'for-loop" @@ -37434,36 +37442,36 @@ static const char *startup_source = "(can-direct-eval? r_41 ns_42 self-mpi_3)))))" "(values result_113)))))" "(if(if(not((lambda x_72(not result_80)) r_41))(not #f) #f)" -"(for-loop_111 result_80 rest_48)" +"(for-loop_110 result_80 rest_48)" " result_80)))" " result_112)))))" -" for-loop_111)" +" for-loop_110)" " #t" -" lst_101)))" +" lst_102)))" " #f))" -"(if(parsed-id? p_43)" -"(let-values()(not(eq?(get-id-value p_43 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_43)" +"(if(parsed-id? p_44)" +"(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" +"(if(parsed-quote? p_44)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_43)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_44)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_47 ns_71 self-mpi_4)" +"(lambda(p_48 ns_71 self-mpi_4)" "(begin" -"(if(parsed-app? p_47)" +"(if(parsed-app? p_48)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" +"(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_78)(parsed-app-rands p_47)))" +"(let-values(((lst_79)(parsed-app-rands p_48)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_95)" -"(lambda(fold-var_227 lst_79)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_94)" +"(lambda(fold-var_227 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" +"(if(pair? lst_80)" +"(let-values(((r_8)(unsafe-car lst_80))((rest_36)(unsafe-cdr lst_80)))" "(let-values(((fold-var_219)" "(let-values(((fold-var_65) fold-var_227))" "(let-values(((fold-var_228)" @@ -37473,16 +37481,16 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_65))))" "(values fold-var_228)))))" -"(if(not #f)(for-loop_95 fold-var_219 rest_36) fold-var_219)))" +"(if(not #f)(for-loop_94 fold-var_219 rest_36) fold-var_219)))" " fold-var_227)))))" -" for-loop_95)" +" for-loop_94)" " null" -" lst_78))))))" -"(if(parsed-id? p_47)" -"(let-values()(get-id-value p_47 ns_71 self-mpi_4))" -"(if(parsed-quote? p_47)" -"(let-values()(parsed-quote-datum p_47))" -"(if(parsed-quote-syntax? p_47)(let-values()(parsed-quote-syntax-datum p_47))(let-values() #f))))))))" +" lst_79))))))" +"(if(parsed-id? p_48)" +"(let-values()(get-id-value p_48 ns_71 self-mpi_4))" +"(if(parsed-quote? p_48)" +"(let-values()(parsed-quote-datum p_48))" +"(if(parsed-quote-syntax? p_48)(let-values()(parsed-quote-syntax-datum p_48))(let-values() #f))))))))" "(define-values" "(get-id-value)" "(lambda(p_1 ns_72 self-mpi_5)" @@ -37874,34 +37882,34 @@ 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_396 phase_98)" +"(lambda(module-lifts_2 s_390 phase_98)" "(begin" "(begin" -"(if(let-values(((or-part_224)" +"(if(let-values(((or-part_227)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_224" -" or-part_224" +"(if or-part_227" +" or-part_227" "(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_396 phase_98)))" -"(if(equal? tmp_30 'module)" +"(let-values(((tmp_29)(core-form-sym s_390 phase_98)))" +"(if(equal? tmp_29 'module)" "(let-values()(void))" -"(if(equal? tmp_30 'module*)" +"(if(equal? tmp_29 'module*)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_396))" +" s_390))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_396)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_390)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_396))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_390))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_396))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_390))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -37940,11 +37948,11 @@ 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_397 phase_99)" +"(lambda(require-lifts_2 s_391 phase_99)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_397 phase_99)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_397)))))" +"((require-lift-context-do-require require-lifts_2) s_391 phase_99)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_391)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -37994,12 +38002,12 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_218 phase_101)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" +"(lambda(to-module-lifts_3 s_215 phase_101)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_215))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_398 phase_102)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_398))))" +"(lambda(to-module-lifts_4 s_392 phase_102)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_392))))" "(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)" @@ -38051,17 +38059,17 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_76) v_26))" +"(let-values(((lst_77) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_94)" -"(lambda(result_78 lst_77)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_93)" +"(lambda(result_78 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((s_2)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" "(let-values(((result_65)" "(let-values()" "(let-values(((result_114)" @@ -38076,12 +38084,12 @@ static const char *startup_source = " definition-context))))))" "(values result_114)))))" "(if(if(not((lambda x_73(not result_65)) s_2))(not #f) #f)" -"(for-loop_94 result_65 rest_35)" +"(for-loop_93 result_65 rest_35)" " result_65)))" " result_78)))))" -" for-loop_94)" +" for-loop_93)" " #t" -" lst_76)))" +" lst_77)))" " #f)" "(void)" "(let-values()" @@ -38092,15 +38100,15 @@ static const char *startup_source = " v_26))))" "(define-values" "(not-in-this-expand-context?)" -"(lambda(t_42 ctx_12)" +"(lambda(t_43 ctx_12)" "(begin" -"(if(expansion-contexts? t_42)" -"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_42)))" +"(if(expansion-contexts? t_43)" +"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_43)))" " #f))))" "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_170 t_43 ctx_13)" +"(lambda(s_169 t_44 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38110,7 +38118,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_170))))))" +" s_169))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38120,12 +38128,12 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_170)))))" -"(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" -"(if(equal? tmp_31 'module-begin)" +" s_169)))))" +"(let-values(((tmp_30)(context->symbol(expand-context-context ctx_13))))" +"(if(equal? tmp_30 'module-begin)" "(let-values()(wrap_1 'begin))" -"(if(if(equal? tmp_31 'module) #t(if(equal? tmp_31 'top-level) #t(equal? tmp_31 'definition-context)))" -"(let-values()(if(memq 'expression(expansion-contexts-ref t_43))(wrap_1 '#%expression)(fail_0)))" +"(if(if(equal? tmp_30 'module) #t(if(equal? tmp_30 'top-level) #t(equal? tmp_30 'definition-context)))" +"(let-values()(if(memq 'expression(expansion-contexts-ref t_44))(wrap_1 '#%expression)(fail_0)))" "(let-values()(fail_0))))))))))" "(define-values" "(struct:reference-record" @@ -38170,11 +38178,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_184)" -"(lambda(lst_89)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_116)(unsafe-cdr lst_89)))" +"(if(pair? lst_90)" +"(let-values(((rr_1)(unsafe-car lst_90))((rest_116)(unsafe-cdr lst_90)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38202,11 +38210,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" "((letrec-values(((for-loop_253)" -"(lambda(ab_3 lst_80)" +"(lambda(ab_3 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((key_80)(unsafe-car lst_80))((rest_141)(unsafe-cdr lst_80)))" +"(if(pair? lst_81)" +"(let-values(((key_80)(unsafe-car lst_81))((rest_141)(unsafe-cdr lst_81)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_80))))" @@ -38240,8 +38248,8 @@ static const char *startup_source = "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_168)(reference-record-all-referenced? rr_3)))" -"(if or-part_168 or-part_168(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_170)(reference-record-all-referenced? rr_3)))" +"(if or-part_170 or-part_170(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -38437,7 +38445,7 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_185)(begin(if(expanded+parsed? s_185)(expanded+parsed-s s_185) s_185))))" +"(define-values(extract-syntax)(lambda(s_184)(begin(if(expanded+parsed? s_184)(expanded+parsed-s s_184) s_184))))" "(define-values" "(parsed-only)" "(lambda(l_66)" @@ -38454,9 +38462,9 @@ static const char *startup_source = "(let-values(((i_26)(unsafe-car lst_279))((rest_152)(unsafe-cdr lst_279)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225) fold-var_5))" -"(if(let-values(((or-part_261)(parsed? i_26)))" -"(if or-part_261" -" or-part_261" +"(if(let-values(((or-part_266)(parsed? i_26)))" +"(if or-part_266" +" or-part_266" "(let-values(((or-part_33)(expanded+parsed? i_26)))" "(if or-part_33" " or-part_33" @@ -38501,12 +38509,12 @@ static const char *startup_source = "(let-values(((i_35)(unsafe-car lst_281))((rest_153)(unsafe-cdr lst_281)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" -"(if(let-values(((or-part_262)(syntax?$1 i_35)))" -"(if or-part_262" -" or-part_262" -"(let-values(((or-part_263)(expanded+parsed? i_35)))" -"(if or-part_263" -" or-part_263" +"(if(let-values(((or-part_267)(syntax?$1 i_35)))" +"(if or-part_267" +" or-part_267" +"(let-values(((or-part_268)(expanded+parsed? i_35)))" +"(if or-part_268" +" or-part_268" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_83) fold-var_82))" "(let-values(((fold-var_239)" @@ -38517,7 +38525,7 @@ static const char *startup_source = "(let-values()(expanded+parsed-s i_35))" "(if(semi-parsed-begin-for-syntax? i_35)" "(let-values()" -"(let-values(((s_165)" +"(let-values(((s_164)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38525,22 +38533,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_165)))" +" s_164)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_310)" +"(let-values(((s_304)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_310))" +" s_304))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_310)" +" s_304)" "(syntax-e$1" -" s_310)" -" s_310)))" +" s_304)" +" s_304)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38549,18 +38557,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_158)" +"(let-values(((s_157)" "(cdr" " s_27)))" -"(let-values(((s_399)" +"(let-values(((s_393)" "(if(syntax?$1" -" s_158)" +" s_157)" "(syntax-e$1" -" s_158)" -" s_158)))" +" s_157)" +" s_157)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_399)))" +" s_393)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38581,7 +38589,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_165)" +"(let-values(((s11_0) s_164)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38606,7 +38614,7 @@ static const char *startup_source = "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_400) s5_1))" +"(let-values(((s_394) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38620,24 +38628,24 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_400))" +" s_394))" "(void)))" "(void)))" -"(if(identifier? s_400)" -"(let-values()(expand-identifier s_400 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_400))(identifier?(car(syntax-content s_400))) #f)" -"(let-values()(expand-id-application-form s_400 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_74)(pair?(syntax-content s_400))))" -"(if or-part_74 or-part_74(null?(syntax-content s_400))))" -"(let-values()(expand-implicit '#%app s_400 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_400))" -"(let-values()(expand-already-expanded s_400 ctx_14))" -"(let-values()(expand-implicit '#%datum s_400 ctx_14 #f)))))))))))))))" +"(if(identifier? s_394)" +"(let-values()(expand-identifier s_394 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_394))(identifier?(car(syntax-content s_394))) #f)" +"(let-values()(expand-id-application-form s_394 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_74)(pair?(syntax-content s_394))))" +"(if or-part_74 or-part_74(null?(syntax-content s_394))))" +"(let-values()(expand-implicit '#%app s_394 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_394))" +"(let-values()(expand-already-expanded s_394 ctx_14))" +"(let-values()(expand-implicit '#%datum s_394 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_59)(let-values(((or-part_167) alternate-id_1))(if or-part_167 or-part_167 s_43))))" +"(let-values(((id_59)(let-values(((or-part_169) alternate-id_1))(if or-part_169 or-part_169 s_43))))" "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_59)" "(let-values()" "(begin" @@ -38675,21 +38683,21 @@ static const char *startup_source = "(if(not binding_18)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" "(let-values()" -"(let-values(((t_44 primitive?_2 insp-of-t_0 protected?_3)" +"(let-values(((t_45 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding81_0) binding_18)" "((ctx82_0) ctx_15)" "((id83_0) id_59)" "((temp84_0)(if alternate-id_1 s_43 #f))" "((temp85_0)(expand-context-in-local-expand? ctx_15)))" "(lookup17.1 temp84_0 #t temp85_0 #t binding81_0 ctx82_0 id83_0))))" -"(dispatch t_44 insp-of-t_0 s_43 id_59 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" +"(dispatch t_45 insp-of-t_0 s_43 id_59 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_60)" -"(let-values(((or-part_264) alternate-id_2))" -"(if or-part_264 or-part_264(car(syntax-e/no-taint s_13))))))" +"(let-values(((or-part_269) alternate-id_2))" +"(if or-part_269 or-part_269(car(syntax-e/no-taint s_13))))))" "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_60)" "(let-values()" "(begin" @@ -38727,19 +38735,19 @@ static const char *startup_source = "(if(not binding_19)" "(let-values()(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" "(let-values()" -"(let-values(((t_45 primitive?_3 insp-of-t_1 protected?_4)" +"(let-values(((t_46 primitive?_3 insp-of-t_1 protected?_4)" "(let-values(((binding90_0) binding_19)" "((ctx91_0) ctx_16)" "((id92_0) id_60)" "((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_13)) #f))" "((temp94_1)(expand-context-in-local-expand? ctx_16)))" "(lookup17.1 temp93_2 #t temp94_1 #t binding90_0 ctx91_0 id92_0))))" -"(if(variable? t_45)" +"(if(variable? t_46)" "(let-values()" "(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" "(let-values()" "(dispatch" -" t_45" +" t_46" " insp-of-t_1" " s_13" " id_60" @@ -38749,16 +38757,16 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_186 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_185 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_186)))(void)))" -" s_186))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_185)))(void)))" +" s_185))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_186)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_185)))" "(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" "(let-values()" @@ -38770,13 +38778,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_61)" -"(call-expand-observe obs_6 'enter-prim s_186)" +"(call-expand-observe obs_6 'enter-prim s_185)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_186)" -"(call-expand-observe obs_6 'return s_186)))" +"(call-expand-observe obs_6 'exit-prim s_185)" +"(call-expand-observe obs_6 'return s_185)))" "(void)))" "(void)))" -" s_186))" +" s_185))" "(let-values()" "(let-values((()" "(begin" @@ -38804,7 +38812,7 @@ static const char *startup_source = "(dispatch-transformer" " t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" " id_61" " ctx_17" " b_74))" @@ -38815,17 +38823,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_186 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_185 ctx_17))" "(let-values()" "(dispatch-core-form" " t_27" -"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_186(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_185(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38843,7 +38851,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_186" +" s_185" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -38854,14 +38862,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_45)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_144)(syntax-any-macro-scopes? s_45)))" -"(if or-part_144" -" or-part_144" -"(let-values(((or-part_145)" +"(if(let-values(((or-part_146)(syntax-any-macro-scopes? s_45)))" +"(if or-part_146" +" or-part_146" +"(let-values(((or-part_147)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_145" -" or-part_145" +"(if or-part_147" +" or-part_147" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -38891,28 +38899,28 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_311 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_305 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_311 s_311) s_311)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_305 s_305) s_305)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_46 insp-of-t_3 s_401 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_47 insp-of-t_3 s_395 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" -"(if(core-form? t_46)" -"(let-values()(dispatch-core-form t_46 s_401 ctx_20))" -"(if(transformer? t_46)" -"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_401 id_62 ctx_20 binding_20))" -"(if(variable? t_46)" -"(let-values()(dispatch-variable t_46 s_401 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_401))))))))" +"(if(core-form? t_47)" +"(let-values()(dispatch-core-form t_47 s_395 ctx_20))" +"(if(transformer? t_47)" +"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_395 id_62 ctx_20 binding_20))" +"(if(variable? t_47)" +"(let-values()(dispatch-variable t_47 s_395 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_395))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_47 s_46 ctx_21)" +"(lambda(t_48 s_46 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" @@ -38929,7 +38937,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_11 'enter-prim s_46)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_47) s_46 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_48) s_46 ctx_21)))" "(begin" "(let-values(((obs_12)(expand-context-observer ctx_21)))" "(if obs_12" @@ -38940,10 +38948,10 @@ static const char *startup_source = "(call-expand-observe obs_12 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_47) s_46 ctx_21)))))))" +"(let-values()((core-form-expander t_48) s_46 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_48 s_48 ctx_22)" +"(lambda(t_49 s_48 ctx_22)" "(begin" "(let-values((()" "(begin" @@ -38952,7 +38960,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_13 'enter-prim s_48)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_48) s_48 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_49) s_48 ctx_22 #t)))" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" @@ -38965,49 +38973,49 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_49 insp-of-t_4 s_395 id_63 ctx_23 binding_21)" +"(lambda(t_50 insp-of-t_4 s_389 id_63 ctx_23 binding_21)" "(begin" -"(if(not-in-this-expand-context? t_49 ctx_23)" +"(if(not-in-this-expand-context? t_50 ctx_23)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_395)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_389)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_395 id_63) t_49 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_389 id_63) t_50 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_395)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_389)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_395))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_389))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" "(if obs_17" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_50)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_395)" +"(call-expand-observe obs_17 'visit s_389)" "(call-expand-observe obs_17 'resolve id_63)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" -"(if(1/rename-transformer? t_49)" -"(values s_395 ctx_23)" -"(apply-transformer t_49 insp-of-t_4 s_395 id_63 ctx_23 binding_21))))" +"(if(1/rename-transformer? t_50)" +"(values s_389 ctx_23)" +"(apply-transformer t_50 insp-of-t_4 s_389 id_63 ctx_23 binding_21))))" "(begin" "(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_50)) #f)" "(let-values()(call-expand-observe obs_18 'return exp-s_1))" "(void)))" "(void)))" @@ -39017,38 +39025,38 @@ static const char *startup_source = "(let-values(((exp-s108_0) exp-s_1)" "((re-ctx109_0) re-ctx_0)" "((temp110_0)" -"(if(1/rename-transformer? t_49)" +"(if(1/rename-transformer? t_50)" "(syntax-track-origin$1" -"(transfer-srcloc(rename-transformer-target-in-context t_49 ctx_23) id_63)" +"(transfer-srcloc(rename-transformer-target-in-context t_50 ctx_23) id_63)" " id_63" " id_63)" " #f))" "((temp111_0)" "(let-values(((or-part_47)(expand-context-only-immediate? ctx_23)))" -"(if or-part_47 or-part_47(1/rename-transformer? t_49)))))" +"(if or-part_47 or-part_47(1/rename-transformer? t_50)))))" "(expand7.1 temp110_0 #t temp111_0 #t exp-s108_0 re-ctx109_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_402 id_8 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_51 s_396 id_8 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_402)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_396)))(void)))" " id_8))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_402 id_8)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_396 id_8)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" "(let-values(((id112_0) id_8)" -"((t113_0) t_50)" +"((t113_0) t_51)" "((temp114_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" "(substitute-variable6.1 temp114_0 id112_0 t113_0))))" @@ -39070,7 +39078,7 @@ static const char *startup_source = " protected-result-s_0))))))))))))" "(define-values" "(apply-transformer)" -"(lambda(t_51 insp-of-t_5 s_56 id_64 ctx_25 binding_23)" +"(lambda(t_52 insp-of-t_5 s_56 id_64 ctx_25 binding_23)" "(begin" "(let-values()" "(let-values((()" @@ -39088,7 +39096,7 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" -" t_51" +" t_52" " cleaned-s_0" " ctx_25" " insp-of-t_5" @@ -39115,7 +39123,7 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_25 def-ctx-scopes_1)))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_52 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_65)" +"(lambda(t_53 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_65)" "(begin" "(let-values((()" "(begin" @@ -39126,9 +39134,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_265)(expand-context-only-immediate? ctx_26)))" -"(if or-part_265" -" or-part_265" +"(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" @@ -39139,32 +39147,32 @@ 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_113) accum-ctx_0))" -"(let-values(((the-struct_59) v_113))" -"(if(expand-context/outer? the-struct_59)" +"(let-values(((v_112) accum-ctx_0))" +"(let-values(((the-struct_58) v_112))" +"(if(expand-context/outer? the-struct_58)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner117_0)(root-expand-context/outer-inner v_113)))" +"((inner117_0)(root-expand-context/outer-inner v_112)))" "(expand-context/outer1.1" " inner117_0" -"(root-expand-context/outer-post-expansion-scope 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)" -"(expand-context/outer-scopes the-struct_59)" +"(root-expand-context/outer-post-expansion-scope the-struct_58)" +"(root-expand-context/outer-use-site-scopes the-struct_58)" +"(root-expand-context/outer-frame-id the-struct_58)" +"(expand-context/outer-context the-struct_58)" +"(expand-context/outer-env the-struct_58)" +"(expand-context/outer-post-expansion-scope-action the-struct_58)" +"(expand-context/outer-scopes the-struct_58)" " def-ctx-scopes116_0" -"(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-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-scopes115_0" -"(expand-context/outer-name the-struct_59)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))" +"(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" @@ -39177,11 +39185,11 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_266) insp-of-t_6))" -"(if or-part_266 or-part_266(current-module-code-inspector))))" +"(let-values(((or-part_271) insp-of-t_6))" +"(if or-part_271 or-part_271(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" -"(lambda()((transformer->procedure t_52) cleaned-s_1)))))))" +"(lambda()((transformer->procedure t_53) cleaned-s_1)))))))" "(begin" "(let-values(((obs_25)(expand-context-observer ctx_26)))" "(if obs_25" @@ -39199,7 +39207,7 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_403 ctx_27 binding_24)" +"(lambda(s_397 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))" @@ -39207,52 +39215,52 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" "(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_403 sc_30)(list sc_30))))))" -"(let-values()(values s_403 null))))))" +"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_397 sc_30)(list sc_30))))))" +"(let-values()(values s_397 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_267)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_267 or-part_267(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_272)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_272 or-part_272(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_404 ctx_28)" +"(lambda(s_398 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_404(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_404)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_398(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_398)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_184) ctx_29))" -"(let-values(((the-struct_60) v_184))" -"(if(expand-context/outer? the-struct_60)" +"(let-values(((v_182) ctx_29))" +"(let-values(((the-struct_59) v_182))" +"(if(expand-context/outer? the-struct_59)" "(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner119_0)(root-expand-context/outer-inner v_184)))" +"((inner119_0)(root-expand-context/outer-inner v_182)))" "(expand-context/outer1.1" " inner119_0" -"(root-expand-context/outer-post-expansion-scope the-struct_60)" -"(root-expand-context/outer-use-site-scopes the-struct_60)" -"(root-expand-context/outer-frame-id the-struct_60)" -"(expand-context/outer-context the-struct_60)" -"(expand-context/outer-env the-struct_60)" -"(expand-context/outer-post-expansion-scope-action the-struct_60)" +"(root-expand-context/outer-post-expansion-scope 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)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_60)" -"(expand-context/outer-binding-layer the-struct_60)" -"(expand-context/outer-reference-records the-struct_60)" -"(expand-context/outer-only-immediate? the-struct_60)" -"(expand-context/outer-need-eventually-defined the-struct_60)" -"(expand-context/outer-current-introduction-scopes the-struct_60)" -"(expand-context/outer-name the-struct_60)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_59)" +"(expand-context/outer-binding-layer the-struct_59)" +"(expand-context/outer-reference-records the-struct_59)" +"(expand-context/outer-only-immediate? the-struct_59)" +"(expand-context/outer-need-eventually-defined the-struct_59)" +"(expand-context/outer-current-introduction-scopes the-struct_59)" +"(expand-context/outer-name the-struct_59)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))" "(define-values" "(lookup17.1)" "(lambda(in10_1 in12_1 out-of-context-as-variable?11_0 out-of-context-as-variable?13_0 b14_0 ctx15_0 id16_1)" @@ -39286,19 +39294,19 @@ static const char *startup_source = " id125_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_94 alternate-id_3)" +"(lambda(s_399 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_94)" -"(if(identifier? s_94)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_94) s_94))" +"(let-values() s_399)" +"(if(identifier? s_399)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_399) s_399))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_94)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_399)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_94)" -" s_94)" -" s_94))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_399)" +" s_399)" +" s_399))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39320,7 +39328,7 @@ static const char *startup_source = " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_394) s28_2))" +"(let-values(((s_100) s28_2))" "(let-values(((ctx_31) ctx29_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?24_0 expand-lifts?20_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?25_0 begin-form?21_0 #f)))" @@ -39331,7 +39339,7 @@ static const char *startup_source = "(let-values(((phase_103)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" -"(lambda(s_101 always-wrap?_1 ctx_32)" +"(lambda(s_400 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39348,15 +39356,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp129_1 #t temp128_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_185) ctx_32))" -"(let-values(((the-struct_61) v_185))" -"(if(expand-context/outer? the-struct_61)" +"(let-values(((v_183) ctx_32))" +"(let-values(((the-struct_60) v_183))" +"(if(expand-context/outer? the-struct_60)" "(let-values(((inner130_0)" -"(let-values(((the-struct_62)" +"(let-values(((the-struct_61)" "(root-expand-context/outer-inner" -" v_185)))" +" v_183)))" "(if(expand-context/inner?" -" the-struct_62)" +" the-struct_61)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -39370,10 +39378,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts134_0)" -"(if(let-values(((or-part_268)" +"(if(let-values(((or-part_273)" " local?_0))" -"(if or-part_268" -" or-part_268" +"(if or-part_273" +" or-part_273" "(not" "(memq" " context_6" @@ -39384,88 +39392,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/inner-module-scopes" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/inner-defined-syms" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/inner-counter" -" the-struct_62)" +" the-struct_61)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-phase" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-namespace" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-just-once?" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-module-begin-k" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-allow-unbound?" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-in-local-expand?" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-stops" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-declared-submodule-names" -" the-struct_62)" +" the-struct_61)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-to-module-lifts" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-requires+provides" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-observer" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-for-serializable?" -" the-struct_62)" +" the-struct_61)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_62)))" +" the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_62)))))" +" the-struct_61)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/outer-use-site-scopes" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/outer-frame-id" -" the-struct_61)" -"(expand-context/outer-context the-struct_61)" -"(expand-context/outer-env the-struct_61)" +" 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_61)" -"(expand-context/outer-scopes the-struct_61)" +" the-struct_60)" +"(expand-context/outer-scopes the-struct_60)" "(expand-context/outer-def-ctx-scopes" -" the-struct_61)" +" the-struct_60)" "(expand-context/outer-binding-layer" -" the-struct_61)" +" the-struct_60)" "(expand-context/outer-reference-records" -" the-struct_61)" +" the-struct_60)" "(expand-context/outer-only-immediate?" -" the-struct_61)" +" the-struct_60)" "(expand-context/outer-need-eventually-defined" -" the-struct_61)" +" the-struct_60)" "(expand-context/outer-current-introduction-scopes" -" the-struct_61)" -"(expand-context/outer-name the-struct_61)))" +" the-struct_60)" +"(expand-context/outer-name the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_61))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_101)))" +" the-struct_60))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_400)))" "(let-values(((exp-s_2)" -"(let-values(((s135_0) s_101)" +"(let-values(((s135_0) s_400)" "((capture-ctx136_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39478,10 +39486,10 @@ static const char *startup_source = "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_269)" +"(if(let-values(((or-part_274)" "(pair? lifts_6)))" -"(if or-part_269" -" or-part_269" +"(if or-part_274" +" or-part_274" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39518,12 +39526,12 @@ static const char *startup_source = " exp-s_2" " phase_103)))))" "(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_275)(not expand-lifts?_0)))" +"(if or-part_275" +" or-part_275" +"(let-values(((or-part_276)(null? lifts_6)))" +"(if or-part_276" +" or-part_276" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -39540,7 +39548,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_93)" -" s_394" +" s_100" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39561,7 +39569,7 @@ static const char *startup_source = " ctx46_0)" "(begin" " 'expand-transformer47" -"(let-values(((s_405) s45_0))" +"(let-values(((s_401) s45_0))" "(let-values(((ctx_33) ctx46_0))" "(let-values(((context_7)(if context39_0 context33_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?40_0 begin-form?34_0 #f)))" @@ -39581,7 +39589,7 @@ static const char *startup_source = " ctx146_0" " context147_0" " #t))))" -"(let-values(((s140_0) s_405)" +"(let-values(((s140_0) s_401)" "((trans-ctx141_0) trans-ctx_0)" "((expand-lifts?142_0) expand-lifts?_1)" "((begin-form?143_0) begin-form?_1)" @@ -39611,9 +39619,9 @@ static const char *startup_source = "(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_104)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_104)" -"(let-values(((v_186) ctx_34))" -"(let-values(((the-struct_63) v_186))" -"(if(expand-context/outer? the-struct_63)" +"(let-values(((v_184) ctx_34))" +"(let-values(((the-struct_62) v_184))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" @@ -39622,8 +39630,8 @@ static const char *startup_source = "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_64)(root-expand-context/outer-inner v_186)))" -"(if(expand-context/inner? the-struct_64)" +"(let-values(((the-struct_63)(root-expand-context/outer-inner v_184)))" +"(if(expand-context/inner? the-struct_63)" "(let-values(((phase156_0) phase_104)" "((namespace157_0) ns_73)" "((stops158_0)" @@ -39631,52 +39639,52 @@ static const char *startup_source = "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_64)" -"(root-expand-context/inner-module-scopes the-struct_64)" -"(root-expand-context/inner-top-level-bind-scope the-struct_64)" -"(root-expand-context/inner-all-scopes-stx the-struct_64)" -"(root-expand-context/inner-defined-syms the-struct_64)" -"(root-expand-context/inner-counter the-struct_64)" -"(root-expand-context/inner-lift-key the-struct_64)" -"(expand-context/inner-to-parsed? the-struct_64)" +"(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)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_64)" -"(expand-context/inner-module-begin-k the-struct_64)" -"(expand-context/inner-allow-unbound? the-struct_64)" -"(expand-context/inner-in-local-expand? the-struct_64)" +"(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)" " stops158_0" -"(expand-context/inner-declared-submodule-names the-struct_64)" -"(expand-context/inner-lifts the-struct_64)" -"(expand-context/inner-lift-envs the-struct_64)" -"(expand-context/inner-module-lifts the-struct_64)" -"(expand-context/inner-require-lifts the-struct_64)" -"(expand-context/inner-to-module-lifts the-struct_64)" -"(expand-context/inner-requires+provides the-struct_64)" -"(expand-context/inner-observer the-struct_64)" -"(expand-context/inner-for-serializable? the-struct_64)" -"(expand-context/inner-should-not-encounter-macros? the-struct_64)))" +"(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_64)))))" +" the-struct_63)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_63)" -"(root-expand-context/outer-frame-id the-struct_63)" +"(root-expand-context/outer-use-site-scopes the-struct_62)" +"(root-expand-context/outer-frame-id the-struct_62)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_63)" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_63)" -"(expand-context/outer-reference-records the-struct_63)" +"(expand-context/outer-binding-layer the-struct_62)" +"(expand-context/outer-reference-records the-struct_62)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_63)" -"(expand-context/outer-current-introduction-scopes the-struct_63)" -"(expand-context/outer-name the-struct_63)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_63))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_62)" +"(expand-context/outer-current-introduction-scopes the-struct_62)" +"(expand-context/outer-name the-struct_62)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -39724,13 +39732,13 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_48 phase_106 ns_74 ctx_37)" +"(lambda(ids_21 p_49 phase_106 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_48 ns_74(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_48" +" p_49" "(let-values(((ns167_0) ns_74)((phase168_1) phase_106))" "(make-compile-context14.1 #f #f #f #f #f #f ns167_0 #t phase168_1 #t #f #f))))))" "(let-values(((vals_4)" @@ -39749,15 +39757,15 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_74)" -"(direct-eval p_48 ns_74(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_49 ns_74(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" "(void)" -" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" +" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_406)(begin(datum->syntax$1 #f 'props s_406 s_406))))" -"(define-values(keep-properties-only~)(lambda(s_407)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_402)(begin(datum->syntax$1 #f 'props s_402 s_402))))" +"(define-values(keep-properties-only~)(lambda(s_403)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -39771,42 +39779,42 @@ static const char *startup_source = "(begin" " 'keep-as-needed74" "(let-values(((ctx_38) ctx72_0))" -"(let-values(((s_408) s73_1))" +"(let-values(((s_404) s73_1))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?70_0 keep-for-parsed?67_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?71_0 keep-for-error?68_0 #f)))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_408)))" +"(let-values(((d_32)(syntax-e$1 s_404)))" "(let-values(((keep-e_0)" -"(if(symbol? d_33)" -"(let-values() d_33)" -"(if(if(pair? d_33)(identifier?(car d_33)) #f)" -"(let-values()(syntax-e$1(car d_33)))" +"(if(symbol? d_32)" +"(let-values() d_32)" +"(if(if(pair? d_32)(identifier?(car d_32)) #f)" +"(let-values()(syntax-e$1(car d_32)))" "(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))" -"(datum->syntax$1 #f keep-e_0 s_408 s_408)" +"(if(let-values(((or-part_277) keep-for-parsed?_0))" +"(if or-part_277 or-part_277 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_404 s_404)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_408) keep-e_0 s_408 s_408)" -" s_408))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_404) keep-e_0 s_404 s_404)" +" s_404))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_409 trans-idss_0)" +"(lambda(s_405 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_409)" +"(let-values() s_405)" "(let-values()" "(syntax-property$1" -" s_409" +" s_405" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_273)(syntax-property$1 s_409 'disappeared-binding)))" -"(if or-part_273 or-part_273 null)))))))))" +"(let-values(((or-part_124)(syntax-property$1 s_405 'disappeared-binding)))" +"(if or-part_124 or-part_124 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -39815,12 +39823,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_278)(identifier? ids_23)))" +"(if or-part_278" +" or-part_278" "(if(pair? ids_23)" -"(let-values(((or-part_275)(loop_94(car ids_23))))" -"(if or-part_275 or-part_275(loop_94(cdr ids_23))))" +"(let-values(((or-part_279)(loop_94(car ids_23))))" +"(if or-part_279 or-part_279(loop_94(cdr ids_23))))" " #f)))))))" " loop_94)" " ids_22)" @@ -39849,9 +39857,9 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_187) rhs-ctx_1))" -"(let-values(((the-struct_65) v_187))" -"(if(expand-context/outer? the-struct_65)" +"(let-values(((v_185) rhs-ctx_1))" +"(let-values(((the-struct_64) v_185))" +"(if(expand-context/outer? the-struct_64)" "(let-values(((env169_0)" "(let-values(((lst_286) ids_24)((lst_287) keys_4))" "(begin" @@ -39905,38 +39913,38 @@ static const char *startup_source = "(expand-context-env rhs-ctx_1)" " lst_286" " lst_287))))" -"((inner170_0)(root-expand-context/outer-inner v_187)))" +"((inner170_0)(root-expand-context/outer-inner v_185)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_65)" -"(root-expand-context/outer-use-site-scopes the-struct_65)" -"(root-expand-context/outer-frame-id the-struct_65)" -"(expand-context/outer-context the-struct_65)" +"(root-expand-context/outer-post-expansion-scope 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)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_65)" -"(expand-context/outer-scopes the-struct_65)" -"(expand-context/outer-def-ctx-scopes the-struct_65)" -"(expand-context/outer-binding-layer the-struct_65)" -"(expand-context/outer-reference-records the-struct_65)" -"(expand-context/outer-only-immediate? the-struct_65)" -"(expand-context/outer-need-eventually-defined the-struct_65)" -"(expand-context/outer-current-introduction-scopes the-struct_65)" -"(expand-context/outer-name the-struct_65)))" +"(expand-context/outer-post-expansion-scope-action the-struct_64)" +"(expand-context/outer-scopes the-struct_64)" +"(expand-context/outer-def-ctx-scopes the-struct_64)" +"(expand-context/outer-binding-layer the-struct_64)" +"(expand-context/outer-reference-records the-struct_64)" +"(expand-context/outer-only-immediate? the-struct_64)" +"(expand-context/outer-need-eventually-defined the-struct_64)" +"(expand-context/outer-current-introduction-scopes the-struct_64)" +"(expand-context/outer-name the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_65)))))))))))))))))" +" the-struct_64)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_53 ctx_41)" +"(lambda(t_54 ctx_41)" "(begin" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" -"(let-values()(1/rename-transformer-target t_53))))))" +"(let-values()(1/rename-transformer-target t_54))))))" "(define-values" "(maybe-install-free=id-in-context!)" "(lambda(val_68 id_68 phase_107 ctx_42)" @@ -39954,19 +39962,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_27) new-s_1))" -"(if(syntax?$1 the-struct_27)" +"(let-values(((the-struct_65) new-s_1))" +"(if(syntax?$1 the-struct_65)" "(let-values(((srcloc171_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_27)" -"(syntax-scopes the-struct_27)" -"(syntax-shifted-multi-scopes the-struct_27)" -"(syntax-scope-propagations+tamper the-struct_27)" -"(syntax-mpi-shifts the-struct_27)" +"(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)" " srcloc171_0" -"(syntax-props the-struct_27)" -"(syntax-inspector the-struct_27)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_27)))" +"(syntax-props the-struct_65)" +"(syntax-inspector the-struct_65)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -39984,12 +39992,12 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_101) auto-stop-syms))" +"(let-values(((lst_102) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_111)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_110)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" @@ -40006,11 +40014,11 @@ static const char *startup_source = " sym_63))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" +"(if(not #f)(for-loop_110 fold-var_87 rest_48) fold-var_87)))" " fold-var_86)))))" -" for-loop_111)" +" for-loop_110)" " null" -" lst_101)))))))))))))" +" lst_102)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40136,11 +40144,11 @@ static const char *startup_source = "(let-values(((or-part_67)(root-expand-context-frame-id ctx_43)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_175)" +"(let-values(((or-part_177)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_175 or-part_175(gensym)))))))" +"(if or-part_177 or-part_177(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40160,7 +40168,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_410 intdef_0)" +"(lambda(ids_25 s_406 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40172,9 +40180,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_164)(not s_410)))(if or-part_164 or-part_164(syntax?$1 s_410)))" +"(if(let-values(((or-part_166)(not s_406)))(if or-part_166 or-part_166(syntax?$1 s_406)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_410)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_406)))" "(values))))" "(let-values((()" "(begin" @@ -40303,11 +40311,11 @@ static const char *startup_source = " null" " lst_291))))))" "(let-values(((vals_5)" -"(if s_410" +"(if s_406" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_410)" +"(let-values(((s51_0) s_406)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" @@ -40365,14 +40373,14 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_188) ctx_44))" -"(let-values(((the-struct_66) v_188))" +"(let-values(((v_186) ctx_44))" +"(let-values(((the-struct_66) v_186))" "(if(expand-context/outer?" " the-struct_66)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_188)))" +" v_186)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" @@ -40475,17 +40483,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_298)))" -"((letrec-values(((for-loop_79)" -"(lambda(fold-var_250 lst_299 lst_106 lst_300)" +"((letrec-values(((for-loop_78)" +"(lambda(fold-var_250 lst_299 lst_107 lst_300)" "(begin" " 'for-loop" "(if(if(pair? lst_299)" -"(if(pair? lst_106)(pair? lst_300) #f)" +"(if(pair? lst_107)(pair? lst_300) #f)" " #f)" "(let-values(((intdef-id_1)(unsafe-car lst_299))" "((rest_165)(unsafe-cdr lst_299))" -"((sym_65)(unsafe-car lst_106))" -"((rest_100)(unsafe-cdr lst_106))" +"((sym_65)(unsafe-car lst_107))" +"((rest_100)(unsafe-cdr lst_107))" "((val_26)(unsafe-car lst_300))" "((rest_22)(unsafe-cdr lst_300)))" "(let-values(((fold-var_36)" @@ -40509,10 +40517,10 @@ static const char *startup_source = " fold-var_37))))" "(values fold-var_38)))))" "(if(not #f)" -"(for-loop_79 fold-var_36 rest_165 rest_100 rest_22)" +"(for-loop_78 fold-var_36 rest_165 rest_100 rest_22)" " fold-var_36)))" " fold-var_250)))))" -" for-loop_79)" +" for-loop_78)" " null" " lst_296" " lst_297" @@ -40566,7 +40574,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_411) s12_1))" +"(let-values(((s_407) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40577,19 +40585,19 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_411)" +"(if(syntax?$1 s_407)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_411)))" -"(let-values(((s59_0) s_411)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_407)))" +"(let-values(((s59_0) s_407)" "((intdef60_0) intdef_2)" "((temp61_1)" -"(let-values(((tmp_32) mode_12))" -"(if(equal? tmp_32 'add)" +"(let-values(((tmp_31) mode_12))" +"(if(equal? tmp_31 'add)" "(let-values() add-scope)" -"(if(equal? tmp_32 'remove)" +"(if(equal? tmp_31 'remove)" "(let-values() remove-scope)" -"(if(equal? tmp_32 'flip)" +"(if(equal? tmp_31 'flip)" "(let-values() flip-scope)" "(let-values()" "(raise-argument-error" @@ -40598,9 +40606,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_199)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_199 #f #f)))" -"((intdef_4 s_200 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_200 mode9_1 #t)))))" +"((intdef_3 s_198)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_198 #f #f)))" +"((intdef_4 s_199 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_199 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40621,8 +40629,8 @@ static const char *startup_source = "(if(identifier? id_71)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_276)(1/internal-definition-context? intdef_6)))" -"(if or-part_276 or-part_276(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_280)(1/internal-definition-context? intdef_6)))" +"(if or-part_280 or-part_280(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40691,14 +40699,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_277)" +"(let-values(((or-part_281)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_277" -" or-part_277" +"(if or-part_281" +" or-part_281" "(let-values(((new-env_0)" "(env-extend" "(loop_95" @@ -40730,7 +40738,7 @@ static const char *startup_source = "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_412) s19_0))" +"(let-values(((s_408) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" @@ -40743,31 +40751,31 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_179)" -"(lambda(s_397 a_50)" +"(lambda(s_391 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_88)" -"(let-values(((s_208) s_397))" -"(if(let-values(((or-part_278) always?_0))" -"(if or-part_278" -" or-part_278" +"(let-values(((s_207)" +"(let-values(((s_208) s_391))" +"(if(let-values(((or-part_282) always?_0))" +"(if or-part_282" +" or-part_282" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_413) s_208))" -"(let-values(((s_326)" +"(let-values(((s_88) s_208))" +"(let-values(((s_320)" "(let-values()" "(action_0" -" s_413" +" s_88" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_326)))" +"(values s_320)))" " s_208))))" -"(if(not #f)(for-loop_179 s_88(cdr a_50)) s_88)))" -" s_397)))))" +"(if(not #f)(for-loop_179 s_207(cdr a_50)) s_207)))" +" s_391)))))" " for-loop_179)" -" s_412" +" s_408" " x_76)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -40793,9 +40801,9 @@ static const char *startup_source = "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_133)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_133" -" or-part_133" +"(let-values(((or-part_135)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_135" +" or-part_135" "(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)))" @@ -40803,20 +40811,20 @@ static const char *startup_source = "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_189) ctx_45))" -"(let-values(((the-struct_67) v_189))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((v_187) ctx_45))" +"(let-values(((the-struct_15) v_187))" +"(if(expand-context/outer? the-struct_15)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_279)(eq? context_9 'module)))" -"(if or-part_279" -" or-part_279" -"(let-values(((or-part_280)(eq? context_9 'module-begin)))" -"(if or-part_280 or-part_280(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-id65_0)" "(let-values(((x_77)" @@ -40828,7 +40836,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_127)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -40853,17 +40861,17 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_268)" +"(let-values(((or-part_273)" " frame-id_11))" -"(if or-part_268" -" or-part_268" +"(if or-part_273" +" or-part_273" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_128 frame-id_10(cdr a_52))" +"(for-loop_127 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_128)" +" for-loop_127)" "(root-expand-context-frame-id ctx_45)" " x_77))))" "((post-expansion-scope66_0)" @@ -40876,10 +40884,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_220 placeholder-sc_0)" +"(lambda(s_216 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_2) s_220)((intdefs74_0) intdefs_2))" +"(let-values(((s73_2) s_216)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_2 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" @@ -40891,8 +40899,8 @@ static const char *startup_source = "(let-values() ht_140)" "(if ht_140(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_68)(root-expand-context/outer-inner v_189)))" -"(if(expand-context/inner? the-struct_68)" +"(let-values(((the-struct_67)(root-expand-context/outer-inner v_187)))" +"(if(expand-context/inner? the-struct_67)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -40902,39 +40910,39 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_110" -"(let-values(((or-part_282) all-stop-ids_0))" -"(if or-part_282 or-part_282 null)))))" +"(let-values(((or-part_286) all-stop-ids_0))" +"(if or-part_286 or-part_286 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_68)" -"(root-expand-context/inner-module-scopes the-struct_68)" -"(root-expand-context/inner-top-level-bind-scope the-struct_68)" -"(root-expand-context/inner-all-scopes-stx the-struct_68)" -"(root-expand-context/inner-defined-syms the-struct_68)" -"(root-expand-context/inner-counter the-struct_68)" -"(root-expand-context/inner-lift-key the-struct_68)" +"(root-expand-context/inner-self-mpi the-struct_67)" +"(root-expand-context/inner-module-scopes the-struct_67)" +"(root-expand-context/inner-top-level-bind-scope the-struct_67)" +"(root-expand-context/inner-all-scopes-stx the-struct_67)" +"(root-expand-context/inner-defined-syms the-struct_67)" +"(root-expand-context/inner-counter the-struct_67)" +"(root-expand-context/inner-lift-key the-struct_67)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_68)" -"(expand-context/inner-namespace the-struct_68)" +"(expand-context/inner-phase the-struct_67)" +"(expand-context/inner-namespace the-struct_67)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_68)" -"(expand-context/inner-allow-unbound? the-struct_68)" +"(expand-context/inner-module-begin-k the-struct_67)" +"(expand-context/inner-allow-unbound? the-struct_67)" " in-local-expand?77_0" " stops78_0" -"(expand-context/inner-declared-submodule-names the-struct_68)" -"(expand-context/inner-lifts the-struct_68)" -"(expand-context/inner-lift-envs the-struct_68)" -"(expand-context/inner-module-lifts the-struct_68)" -"(expand-context/inner-require-lifts the-struct_68)" -"(expand-context/inner-to-module-lifts the-struct_68)" -"(expand-context/inner-requires+provides the-struct_68)" -"(expand-context/inner-observer the-struct_68)" -"(expand-context/inner-for-serializable? the-struct_68)" +"(expand-context/inner-declared-submodule-names the-struct_67)" +"(expand-context/inner-lifts the-struct_67)" +"(expand-context/inner-lift-envs the-struct_67)" +"(expand-context/inner-module-lifts the-struct_67)" +"(expand-context/inner-require-lifts the-struct_67)" +"(expand-context/inner-to-module-lifts the-struct_67)" +"(expand-context/inner-requires+provides the-struct_67)" +"(expand-context/inner-observer the-struct_67)" +"(expand-context/inner-for-serializable? the-struct_67)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_68)))" +" the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_68)))))" +" the-struct_67)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40944,20 +40952,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(expand-context/outer-def-ctx-scopes the-struct_67)" -"(expand-context/outer-binding-layer the-struct_67)" -"(expand-context/outer-reference-records the-struct_67)" +"(expand-context/outer-def-ctx-scopes the-struct_15)" +"(expand-context/outer-binding-layer the-struct_15)" +"(expand-context/outer-reference-records the-struct_15)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_67)))" +"(expand-context/outer-name the-struct_15)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67))))))))))))))))))" +" the-struct_15))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_414 ctx_46)(begin(flip-scopes s_414(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_118 ctx_46)(begin(flip-scopes s_118(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -40996,19 +41004,19 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_171)" +"(lambda(s_170)" "(begin" " 'syntax-local-introduce" "(let-values((()" "(begin" -"(if(syntax?$1 s_171)" +"(if(syntax?$1 s_170)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_171)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_170)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp67_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_171 ctx_51))))))" +"(flip-introduction-scopes s_170 ctx_51))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_75)" @@ -41061,12 +41069,12 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'syntax-introducer \"syntax?\" s_7)))" -"(let-values(((tmp_33) mode_13))" -"(if(equal? tmp_33 'add)" +"(let-values(((tmp_32) mode_13))" +"(if(equal? tmp_32 'add)" "(let-values()(add-scope s_7 sc_32))" -"(if(equal? tmp_33 'remove)" +"(if(equal? tmp_32 'remove)" "(let-values()(remove-scope s_7 sc_32))" -"(if(equal? tmp_33 'flip)" +"(if(equal? tmp_32 'flip)" "(let-values()(flip-scope s_7 sc_32))" "(let-values()" "(raise-argument-error" @@ -41098,8 +41106,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_283)(syntax?$1 base-s_0)))" -"(if or-part_283 or-part_283(not base-s_0)))" +"(if(let-values(((or-part_287)(syntax?$1 base-s_0)))" +"(if or-part_287 or-part_287(not base-s_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41120,8 +41128,8 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_111)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_284) base-s_0))" -"(if or-part_284 or-part_284 empty-syntax))" +"(let-values(((or-part_288) base-s_0))" +"(if or-part_288 or-part_288 empty-syntax))" " phase_111)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" @@ -41152,19 +41160,19 @@ static const char *startup_source = "(lambda(s81_0 mode79_0 mode80_0)" "(begin" " 'core82" -"(let-values(((s_415) s81_0))" +"(let-values(((s_409) s81_0))" "(let-values(((mode_14)(if mode80_0 mode79_0 'add)))" "(let-values()" "(maybe-taint_0" -"(let-values(((tmp_34) mode_14))" -"(if(equal? tmp_34 'add)" -"(let-values()(add-scopes s_415 delta-scs_0))" -"(if(equal? tmp_34 'remove)" +"(let-values(((tmp_33) mode_14))" +"(if(equal? tmp_33 'add)" +"(let-values()(add-scopes s_409 delta-scs_0))" +"(if(equal? tmp_33 'remove)" "(let-values()" -"(remove-scopes s_415 delta-scs_0))" -"(if(equal? tmp_34 'flip)" +"(remove-scopes s_409 delta-scs_0))" +"(if(equal? tmp_33 'flip)" "(let-values()" -"(flip-scopes s_415 delta-scs_0))" +"(flip-scopes s_409 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41208,9 +41216,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_285)(not failure-thunk_0)))" -"(if or-part_285" -" or-part_285" +"(if(let-values(((or-part_289)(not failure-thunk_0)))" +"(if or-part_289" +" or-part_289" "(if(procedure? failure-thunk_0)" "(procedure-arity-includes? failure-thunk_0 0)" " #f)))" @@ -41223,8 +41231,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_286)(not intdef_11)))" -"(if or-part_286 or-part_286(1/internal-definition-context? intdef_11)))" +"(if(let-values(((or-part_290)(not intdef_11)))" +"(if or-part_290 or-part_290(1/internal-definition-context? intdef_11)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41238,8 +41246,8 @@ static const char *startup_source = "(let-values(((ctx_54)" "(if intdef_11" "(let-values(((v_48) current-ctx_0))" -"(let-values(((the-struct_69) v_48))" -"(if(expand-context/outer? the-struct_69)" +"(let-values(((the-struct_68) v_48))" +"(if(expand-context/outer? the-struct_68)" "(let-values(((env85_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" @@ -41247,24 +41255,24 @@ static const char *startup_source = "((inner86_0)(root-expand-context/outer-inner v_48)))" "(expand-context/outer1.1" " inner86_0" -"(root-expand-context/outer-post-expansion-scope the-struct_69)" -"(root-expand-context/outer-use-site-scopes the-struct_69)" -"(root-expand-context/outer-frame-id the-struct_69)" -"(expand-context/outer-context the-struct_69)" +"(root-expand-context/outer-post-expansion-scope the-struct_68)" +"(root-expand-context/outer-use-site-scopes the-struct_68)" +"(root-expand-context/outer-frame-id the-struct_68)" +"(expand-context/outer-context the-struct_68)" " env85_0" -"(expand-context/outer-post-expansion-scope-action the-struct_69)" -"(expand-context/outer-scopes the-struct_69)" -"(expand-context/outer-def-ctx-scopes the-struct_69)" -"(expand-context/outer-binding-layer the-struct_69)" -"(expand-context/outer-reference-records the-struct_69)" -"(expand-context/outer-only-immediate? the-struct_69)" -"(expand-context/outer-need-eventually-defined the-struct_69)" -"(expand-context/outer-current-introduction-scopes the-struct_69)" -"(expand-context/outer-name the-struct_69)))" +"(expand-context/outer-post-expansion-scope-action the-struct_68)" +"(expand-context/outer-scopes the-struct_68)" +"(expand-context/outer-def-ctx-scopes the-struct_68)" +"(expand-context/outer-binding-layer the-struct_68)" +"(expand-context/outer-reference-records the-struct_68)" +"(expand-context/outer-only-immediate? the-struct_68)" +"(expand-context/outer-need-eventually-defined the-struct_68)" +"(expand-context/outer-current-introduction-scopes the-struct_68)" +"(expand-context/outer-name the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_69))))" +" the-struct_68))))" " current-ctx_0)))" "(let-values((()" "(begin" @@ -41328,7 +41336,7 @@ static const char *startup_source = " \"unbound identifier: ~v\"" " id_78))))" "(let-values()" -"(let-values(((v_190 primitive?_7 insp_17 protected?_8)" +"(let-values(((v_188 primitive?_7 insp_17 protected?_8)" "(let-values(((b90_0) b_12)" "((ctx91_1) ctx_54)" "((id92_1) id_78)" @@ -41341,8 +41349,8 @@ static const char *startup_source = " b90_0" " ctx91_1" " id92_1))))" -"(if(let-values(((or-part_220)(variable? v_190)))" -"(if or-part_220 or-part_220(core-form? v_190)))" +"(if(let-values(((or-part_223)(variable? v_188)))" +"(if or-part_223 or-part_223(core-form? v_188)))" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -41368,7 +41376,7 @@ static const char *startup_source = "(if obs_37" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_190)" +"(if(1/rename-transformer? v_188)" "(not immediate?_1)" " #f))" "(let-values()" @@ -41378,17 +41386,17 @@ static const char *startup_source = " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_190)" +"(if(1/rename-transformer? v_188)" "(let-values()" "(if immediate?_1" "(values" -" v_190" -"(1/rename-transformer-target v_190))" +" v_188" +"(1/rename-transformer-target v_188))" "(loop_96" -"(1/rename-transformer-target v_190))))" +"(1/rename-transformer-target v_188))))" "(if immediate?_1" -"(let-values()(values v_190 #f))" -"(let-values() v_190)))))))))))))))" +"(let-values()(values v_188 #f))" +"(let-values() v_188)))))))))))))))" " loop_96)" "(flip-introduction-scopes id_77 ctx_54))))))))))))))))))" "(define-values" @@ -41519,14 +41527,14 @@ static const char *startup_source = "(expand-context-phase ctx_55))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_198)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_198)))))" +"(lambda(s_197)" +"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_197)))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_416)" +"(lambda(n_29 s_410)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_416))))" +"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_410))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -41552,8 +41560,8 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f temp106_1 #t))))" "(let-values(((phase_113)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_60 phase_113)))" -"(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" +"(let-values(((tmp_34)(core-form-sym s_60 phase_113)))" +"(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" "(let-values()" "(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" "(begin" @@ -41593,7 +41601,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_17) who52_0))" -"(let-values(((s_404) s53_1))" +"(let-values(((s_398) s53_1))" "(let-values(((no-target-msg_0) no-target-msg34_0))" "(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))" "(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))" @@ -41603,21 +41611,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_417 phase_114 lift-ctx_1)(begin 'pre-wrap s_417)))))" +"(lambda(s_411 phase_114 lift-ctx_1)(begin 'pre-wrap s_411)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_205 phase_115 lift-ctx_2)(begin 'shift-wrap s_205)))))" +"(lambda(s_204 phase_115 lift-ctx_2)(begin 'shift-wrap s_204)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_206 phase_116 lift-ctx_3)(begin 'post-wrap s_206)))))" +"(lambda(s_205 phase_116 lift-ctx_3)(begin 'post-wrap s_205)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_404)" +"(if(syntax?$1 s_398)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_404)))" +" (let-values () (raise-argument-error who_17 \"syntax?\" s_398)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_58)" @@ -41633,12 +41641,12 @@ static const char *startup_source = " who_17" " no-target-msg_0" " \"form to lift\"" -" s_404)))" +" s_398)))" "(values))))" "(let-values(((phase_117)(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_404 ctx_58) s_404)))" +"(if intro?_0(flip-introduction-scopes s_398 ctx_58) s_398)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_117 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_40) phase_117)" @@ -41651,19 +41659,19 @@ static const char *startup_source = "(let-values()" "(check-range start_40 end_30 inc_25)))" "((letrec-values(((for-loop_34)" -"(lambda(s_148 pos_106)" +"(lambda(s_149 pos_106)" "(begin" " 'for-loop" "(if(> pos_106 end_30)" "(let-values(((phase_118)" " pos_106))" -"(let-values(((s_418)" -"(let-values(((s_419)" -" s_148))" +"(let-values(((s_412)" +"(let-values(((s_413)" +" s_149))" "(let-values(((s_209)" "(let-values()" "(shift-wrap_0" -" s_419" +" s_413" "(sub1" " phase_118)" " lift-ctx_4))))" @@ -41671,10 +41679,10 @@ static const char *startup_source = " s_209)))))" "(if(not #f)" "(for-loop_34" -" s_418" +" s_412" "(+ pos_106 inc_25))" -" s_418)))" -" s_148)))))" +" s_412)))" +" s_149)))))" " for-loop_34)" " pre-s_0" " start_40)))))" @@ -41704,10 +41712,10 @@ static const char *startup_source = "((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)" "((add-lifted-require!115_0) add-lifted-require!)" "((temp116_0)" -"(lambda(s_152 phase_119 require-lift-ctx_0)(require-spec-shift-for-syntax s_152)))" +"(lambda(s_108 phase_119 require-lift-ctx_0)(require-spec-shift-for-syntax s_108)))" "((temp117_0)" -"(lambda(s_305 phase_120 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_305 sc_33) phase_120))))" +"(lambda(s_299 phase_120 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_299 sc_33) phase_120))))" "(do-local-lift-to-module54.1" " add-lifted-require!115_0" " expand-context-require-lifts113_0" @@ -41741,21 +41749,21 @@ static const char *startup_source = " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_420)" +"(lambda(s_414)" "(begin" " 'syntax-local-lift-provide" "(let-values(((ctx_59 result-s_7)" "(let-values(((temp118_0) 'syntax-local-lift-provide)" -"((s119_0) s_420)" +"((s119_0) s_414)" " ((temp120_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)" "((temp124_2)" -"(lambda(s_112 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_112 #f)))" +"(lambda(s_415 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_415 #f)))" "((temp125_0)" -"(lambda(s_225 phase_122 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_225 phase_122))))" +"(lambda(s_113 phase_122 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_113 phase_122))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!123_0" " expand-context-to-module-lifts121_0" @@ -41777,12 +41785,12 @@ static const char *startup_source = "(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_421)" +"(lambda(s_416)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values(((ctx_60 also-s_0)" "(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)" -"((s127_0) s_421)" +"((s127_0) s_416)" " ((temp128_1) \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)" "((temp130_1)(lambda(lift-ctx_5) 0))" @@ -41793,8 +41801,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_123)" " orig-s_32)))" "((temp133_0)" -"(lambda(s_117 phase_124 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_117 phase_124))))" +"(lambda(s_417 phase_124 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_417 phase_124))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!131_0" " expand-context-to-module-lifts129_0" @@ -41813,14 +41821,14 @@ static const char *startup_source = " temp126_1" " s127_0))))" "(let-values(((obs_42)(expand-context-observer ctx_60)))" -"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_421)))(void)))))))" +"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_416)))(void)))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_422 phase_125)" +"(lambda(sym_66 s_418 phase_125)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_422)))))" +"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_418)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -41857,8 +41865,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_110)(eq? phase-level_21 #t)))" -"(if or-part_110 or-part_110(phase? phase-level_21)))" +"(if(let-values(((or-part_109)(eq? phase-level_21 #t)))" +"(if or-part_109 or-part_109(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41951,9 +41959,9 @@ static const char *startup_source = " 'syntax-local-module-exports" "(let-values((()" "(begin" -"(if(let-values(((or-part_287)(1/module-path? mod-path_9)))" -"(if or-part_287" -" or-part_287" +"(if(let-values(((or-part_291)(1/module-path? mod-path_9)))" +"(if or-part_291" +" or-part_291" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42118,12 +42126,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_155)" +"(lambda(s_154)" "(let-values((()" "(begin" -" (if (syntax?$1 s_155) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_155)))" +" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_154)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_155)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_154)))(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))" @@ -42139,49 +42147,49 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_66)" "(begin" -"(if(let-values(((or-part_288)(not(vector-ref v_66 1))))" -"(if or-part_288 or-part_288(exact-positive-integer?(vector-ref v_66 1))))" +"(if(let-values(((or-part_292)(not(vector-ref v_66 1))))" +"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_66 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_66 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_66 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_66 3))))" "(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_66 3))))" -"(let-values(((or-part_159)(not(vector-ref v_66 4))))" -"(if or-part_159 or-part_159(exact-nonnegative-integer?(vector-ref v_66 4))))" +"(let-values(((or-part_161)(not(vector-ref v_66 4))))" +"(if or-part_161 or-part_161(exact-nonnegative-integer?(vector-ref v_66 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_191)" +"(lambda(v_189)" "(begin" -"(if(srcloc? v_191)" +"(if(srcloc? v_189)" "(let-values()" -"(let-values(((the-struct_70) empty-syntax))" -"(if(syntax?$1 the-struct_70)" -"(let-values(((srcloc1_2) v_191))" +"(let-values(((the-struct_69) empty-syntax))" +"(if(syntax?$1 the-struct_69)" +"(let-values(((srcloc1_2) v_189))" "(syntax1.1" -"(syntax-content the-struct_70)" -"(syntax-scopes the-struct_70)" -"(syntax-shifted-multi-scopes the-struct_70)" -"(syntax-scope-propagations+tamper the-struct_70)" -"(syntax-mpi-shifts the-struct_70)" +"(syntax-content the-struct_69)" +"(syntax-scopes the-struct_69)" +"(syntax-shifted-multi-scopes the-struct_69)" +"(syntax-scope-propagations+tamper the-struct_69)" +"(syntax-mpi-shifts the-struct_69)" " srcloc1_2" -"(syntax-props the-struct_70)" -"(syntax-inspector the-struct_70)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_70))))" -"(if(pair? v_191)" -"(let-values()(to-srcloc-stx(list->vector v_191)))" -"(if(vector? v_191)" +"(syntax-props the-struct_69)" +"(syntax-inspector the-struct_69)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_69))))" +"(if(pair? v_189)" +"(let-values()(to-srcloc-stx(list->vector v_189)))" +"(if(vector? v_189)" "(let-values()" "(let-values(((the-struct_29) empty-syntax))" "(if(syntax?$1 the-struct_29)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_191 0)" -"(vector-ref v_191 1)" -"(vector-ref v_191 2)" -"(vector-ref v_191 3)" -"(vector-ref v_191 4))))" +"(vector-ref v_189 0)" +"(vector-ref v_189 1)" +"(vector-ref v_189 2)" +"(vector-ref v_189 3)" +"(vector-ref v_189 4))))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -42192,7 +42200,7 @@ static const char *startup_source = "(syntax-props the-struct_29)" "(syntax-inspector the-struct_29)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))" -"(let-values() v_191)))))))" +"(let-values() v_189)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42203,13 +42211,13 @@ static const char *startup_source = "(syntax-e$1 s_0)))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_154)" +"(lambda(s_153)" "(begin" " 'syntax->datum" "(begin" -" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_154)))" -"(syntax->datum$1 s_154)))))" -"(define-values(maybe-syntax->datum)(lambda(s_155)(begin(if(syntax?$1 s_155)(syntax->datum$1 s_155) s_155))))" +" (if (syntax?$1 s_153) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_153)))" +"(syntax->datum$1 s_153)))))" +"(define-values(maybe-syntax->datum)(lambda(s_154)(begin(if(syntax?$1 s_154)(syntax->datum$1 s_154) s_154))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -42217,7 +42225,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_423) s8_0))" +"(let-values(((s_419) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -42227,9 +42235,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_289)(not stx-l_2)))" -"(if or-part_289" -" or-part_289" +"(if(let-values(((or-part_293)(not stx-l_2)))" +"(if or-part_293" +" or-part_293" "(let-values(((or-part_28)(syntax?$1 stx-l_2)))" "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" @@ -42249,11 +42257,11 @@ 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_290)(not stx-p_1)))" -"(if or-part_290 or-part_290(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_294)(not stx-p_1)))" +"(if or-part_294 or-part_294(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_423(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +"(datum->syntax$1 stx-c_4 s_419(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" "(case-lambda" "((stx-c_5 s_68)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_68 #f #f #f #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" @@ -42261,20 +42269,20 @@ static const char *startup_source = "((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_424)" +"(lambda(s_420)" "(begin" " 'syntax->list" "(begin" -" (if (syntax?$1 s_424) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_424)))" -"(syntax->list$1 s_424)))))" +" (if (syntax?$1 s_420) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_420)))" +"(syntax->list$1 s_420)))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_425)" +"(lambda(s_421)" "(begin" " 'syntax-original?" "(begin" -" (if (syntax?$1 s_425) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_425)))" -"(if(syntax-property$1 s_425 original-property-sym)(not(syntax-any-macro-scopes? s_425)) #f)))))" +" (if (syntax?$1 s_421) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_421)))" +"(if(syntax-property$1 s_421 original-property-sym)(not(syntax-any-macro-scopes? s_421)) #f)))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -42487,33 +42495,33 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_310) s51_1))" +"(let-values(((s_304) s51_1))" "(let-values(((phase_1)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_310)" +"(if(syntax?$1 s_304)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_310)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_304)))" "(if(phase? phase_1)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_1)))" -"(syntax-debug-info$1 s_310 phase_1 all-bindings?_1))))))))))" +"(syntax-debug-info$1 s_304 phase_1 all-bindings?_1))))))))))" "(case-lambda" -"((s_426)(begin 'syntax-debug-info(syntax-debug-info52_0 s_426 #f #f #f #f)))" +"((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" "((s_27 phase_131 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_131 all-bindings?48_1 #t #t))" "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_399 phase_35)" +"(lambda(s_393 phase_35)" "(begin" " 'syntax-shift-phase-level" "(begin" -" (if (syntax?$1 s_399) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_399)))" +" (if (syntax?$1 s_393) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_393)))" "(if(phase? phase_35)" "(void)" "(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_35)))" -"(syntax-shift-phase-level$1 s_399 phase_35)))))" +"(syntax-shift-phase-level$1 s_393 phase_35)))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_103)" @@ -42537,17 +42545,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_103)))" "(values))))" -"(let-values(((s_427)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" +"(let-values(((s_423)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" "(let-values(((ctx_66)(let-values(((temp54_1) #t))(get-current-expand-context17.1 temp54_1 #t #f #f))))" "(begin" "(if ctx_66" "(let-values()" "(let-values(((obs_43)(expand-context-observer ctx_66)))" "(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_427)))" +"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_423)))" "(void))))" "(void))" -" s_427)))))))))" +" s_423)))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -42689,10 +42697,10 @@ static const char *startup_source = " '#hasheqv())" " phase_133" " missing_0)))" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_172)" "(eq? missing_0 m-ns_12)))" -"(if or-part_170" -" or-part_170" +"(if or-part_172" +" or-part_172" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -42747,10 +42755,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_291)" +"(if(let-values(((or-part_295)" " attach-this-instance?_0))" -"(if or-part_291" -" or-part_291" +"(if or-part_295" +" or-part_295" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43056,7 +43064,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_109)" +"((letrec-values(((for-loop_108)" "(lambda(i_171)" "(begin" " 'for-loop" @@ -43127,7 +43135,7 @@ static const char *startup_source = " src-namespace_6" " mod-name_20" " phase_134)" -"(let-values(((or-part_292)" +"(let-values(((or-part_296)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" @@ -43144,8 +43152,8 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_292" -" or-part_292" +"(if or-part_296" +" or-part_296" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" @@ -43167,11 +43175,11 @@ static const char *startup_source = "(hash-iterate-first" " ht_151))))))" "(if(not #f)" -"(for-loop_109" +"(for-loop_108" "(hash-iterate-next ht_150 i_171))" "(values))))" "(values))))))" -" for-loop_109)" +" for-loop_108)" "(hash-iterate-first ht_150))))" "(values))))" "(let-values()" @@ -43300,12 +43308,12 @@ static const char *startup_source = " null" "(unsafe-immutable-hash-iterate-first ht_84)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_171)" +"(lambda(s_170)" "(begin" " 'add-ns-scopes" "(let-values(((temp78_4)" "(add-scopes" -"(push-scope s_171 post-scope_1)" +"(push-scope s_170 post-scope_1)" " other-namespace-scopes_0))" "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" @@ -43344,8 +43352,8 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" "(case-lambda" -"((s_428)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_428 #f #f)))" -"((s_429 ns1_2)(namespace-syntax-introduce4_0 s_429 ns1_2 #t)))))" +"((s_424)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_424 #f #f)))" +"((s_425 ns1_2)(namespace-syntax-introduce4_0 s_425 ns1_2 #t)))))" "(define-values" "(namespace-datum-introduce)" "(lambda(s_41)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_41)))))" @@ -43423,8 +43431,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_171)(1/module-path-index? req_6)))" -"(if or-part_171 or-part_171(1/module-path? req_6)))" +"(if(let-values(((or-part_173)(1/module-path-index? req_6)))" +"(if or-part_173 or-part_173(1/module-path? req_6)))" "(let-values()" "(let-values(((temp82_1)" "(if(1/module-path-index? req_6)" @@ -43632,9 +43640,9 @@ static const char *startup_source = "(if(symbol? sym_68)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_68)))" -"(if(let-values(((or-part_293)(not failure-thunk_5)))" -"(if or-part_293" -" or-part_293" +"(if(let-values(((or-part_297)(not failure-thunk_5)))" +"(if or-part_297" +" or-part_297" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -43666,7 +43674,7 @@ static const char *startup_source = " ns_81))" "(void))" "(values))))" -"(let-values(((v_192" +"(let-values(((v_190" " primitive?_8" " extra-inspector_8" " protected?_9)" @@ -43691,13 +43699,13 @@ static const char *startup_source = " id128_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_192)" +"(if(variable? v_190)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_294) failure-thunk_5))" -"(if or-part_294" -" or-part_294" +"(let-values(((or-part_298) failure-thunk_5))" +"(if or-part_298" +" or-part_298" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -43730,9 +43738,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_295) failure-thunk_5))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_299) failure-thunk_5))" +"(if or-part_299" +" or-part_299" "(raise" "(exn:fail:contract:variable" "(format" @@ -43880,33 +43888,33 @@ static const char *startup_source = "(lambda(s5_2 ns1_4 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_144) s5_2))" +"(let-values(((s_145) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_4(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_430 ns_87)(begin 'compile(1/compile s_430 ns_87 #f))))))" +"(lambda(s_426 ns_87)(begin 'compile(1/compile s_426 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_296)(compiled-in-memory? s_144)))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_297)(1/linklet-directory? s_144)))" -"(if or-part_297 or-part_297(1/linklet-bundle? s_144)))))" -"(let-values()(eval-compiled s_144 ns_43))" -"(if(if(syntax?$1 s_144)" -"(let-values(((or-part_298)(compiled-in-memory?(1/syntax-e s_144))))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_144))))" -"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_144))))))" +"(if(let-values(((or-part_300)(compiled-in-memory? s_145)))" +"(if or-part_300" +" or-part_300" +"(let-values(((or-part_301)(1/linklet-directory? s_145)))" +"(if or-part_301 or-part_301(1/linklet-bundle? s_145)))))" +"(let-values()(eval-compiled s_145 ns_43))" +"(if(if(syntax?$1 s_145)" +"(let-values(((or-part_302)(compiled-in-memory?(1/syntax-e s_145))))" +"(if or-part_302" +" or-part_302" +"(let-values(((or-part_303)(1/linklet-directory?(1/syntax-e s_145))))" +"(if or-part_303 or-part_303(1/linklet-bundle?(1/syntax-e s_145))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_144) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_145) ns_43))" "(let-values()" -"(let-values(((s80_0) s_144)" +"(let-values(((s80_0) s_145)" "((ns81_0) ns_43)" "((temp82_2)" -"(lambda(s_428 ns_88 tail?_1)" -"(eval-compiled(compile_1 s_428 ns_88) ns_88 tail?_1)))" +"(lambda(s_424 ns_88 tail?_1)" +"(eval-compiled(compile_1 s_424 ns_88) ns_88 tail?_1)))" "((temp83_2) #f))" "(per-top-level68.1" " #f" @@ -43925,8 +43933,8 @@ static const char *startup_source = " ns81_0)))))))))))))" "(case-lambda" "((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_173 ns_53 compile2_1)(eval6_0 s_173 ns_53 compile2_1 #t #t))" -"((s_160 ns1_5)(eval6_0 s_160 ns1_5 #f #t #f)))))" +"((s_172 ns_53 compile2_1)(eval6_0 s_172 ns_53 compile2_1 #t #t))" +"((s_159 ns1_5)(eval6_0 s_159 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -43959,21 +43967,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_178) s22_0))" +"(let-values(((s_177) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_178)" -"(let-values()(list s_178))" -"(if(if(syntax?$1 s_178)" -"(1/compiled-expression?(1/syntax-e s_178))" +"(if(1/compiled-expression? s_177)" +"(let-values()(list s_177))" +"(if(if(syntax?$1 s_177)" +"(1/compiled-expression?(1/syntax-e s_177))" " #f)" -"(let-values()(list(1/syntax-e s_178)))" +"(let-values()(list(1/syntax-e s_177)))" "(let-values()" -"(let-values(((s86_0) s_178)" +"(let-values(((s86_0) s_177)" "((ns87_0) ns_92)" "((temp88_3)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44016,24 +44024,24 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_185)(begin 'compile(compile23_0 s_185 #f #f #f #f #f #f #f #f)))" -"((s_431 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_431 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_184)(begin 'compile(compile23_0 s_184 #f #f #f #f #f #f #f #f)))" +"((s_427 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_427 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" -"((s_432 ns14_3)(compile23_0 s_432 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_428 ns14_3)(compile23_0 s_428 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_410) s27_0))" +"(let-values(((s_406) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_410 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_406 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_433)(begin(compile-to-linklets28_0 s_433 #f #f)))" -"((s_306 ns25_1)(compile-to-linklets28_0 s_306 ns25_1 #t)))))" +"((s_429)(begin(compile-to-linklets28_0 s_429 #f #f)))" +"((s_300 ns25_1)(compile-to-linklets28_0 s_300 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -44178,7 +44186,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_434) s39_0))" +"(let-values(((s_430) s39_0))" "(let-values(((ns_98)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" @@ -44194,12 +44202,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_434)" +"(let-values(((s108_0) s_430)" "((ns109_1) ns_98)" "((temp110_3)" -"(lambda(s_435 ns_99 as-tail?_5)" +"(lambda(s_431 ns_99 as-tail?_5)" "(expand-single" -" s_435" +" s_431" " ns_99" " observer_2" " to-parsed?_2" @@ -44223,24 +44231,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_304)(begin 'expand(expand40_0 s_304 #f #f #f #f #f #f #f #f)))" -"((s_436 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_436 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_437 ns_81 observable?_2 to-parsed?33_1)(expand40_0 s_437 ns_81 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_298)(begin 'expand(expand40_0 s_298 #f #f #f #f #f #f #f #f)))" +"((s_432 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_432 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_433 ns_81 observable?_2 to-parsed?33_1)(expand40_0 s_433 ns_81 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_101 observable?32_1)(expand40_0 s_34 ns_101 observable?32_1 #f #f #t #t #f #f))" -"((s_392 ns31_4)(expand40_0 s_392 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_387 ns31_4)(expand40_0 s_387 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_438 ns_102 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_434 ns_102 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_438)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_434)))" "(let-values(((ctx_67)" "(let-values(((ns114_0) ns_102)" "((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" "(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_438 ctx_67)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_434 ctx_67)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44313,13 +44321,13 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_393) s44_1))" +"(let-values(((s_388) s44_1))" "(let-values(((ns_103)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_393)" +"(let-values(((s128_0) s_388)" "((ns129_0) ns_103)" "((temp130_3)" -"(lambda(s_439 ns_104 as-tail?_6)(expand-single-once s_439 ns_104)))" +"(lambda(s_435 ns_104 as-tail?_6)(expand-single-once s_435 ns_104)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -44340,71 +44348,71 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_440)(begin 'expand-once(expand-once45_0 s_440 #f #f)))" -"((s_441 ns42_2)(expand-once45_0 s_441 ns42_2 #t)))))" +"((s_436)(begin 'expand-once(expand-once45_0 s_436 #f #f)))" +"((s_437 ns42_2)(expand-once45_0 s_437 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_442 ns_105)" +"(lambda(s_438 ns_105)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_442" -"(let-values(((v_193)" +" s_438" +"(let-values(((v_191)" "(let-values(((ns135_1) ns_105))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_71) v_193))" -"(if(expand-context/outer? the-struct_71)" +"(let-values(((the-struct_70) v_191))" +"(if(expand-context/outer? the-struct_70)" "(let-values(((inner136_0)" -"(let-values(((the-struct_12)(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_12)" +"(let-values(((the-struct_71)(root-expand-context/outer-inner v_191)))" +"(if(expand-context/inner? the-struct_71)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_12)" -"(root-expand-context/inner-module-scopes the-struct_12)" -"(root-expand-context/inner-top-level-bind-scope the-struct_12)" -"(root-expand-context/inner-all-scopes-stx the-struct_12)" -"(root-expand-context/inner-defined-syms the-struct_12)" -"(root-expand-context/inner-counter the-struct_12)" -"(root-expand-context/inner-lift-key the-struct_12)" -"(expand-context/inner-to-parsed? the-struct_12)" -"(expand-context/inner-phase the-struct_12)" -"(expand-context/inner-namespace the-struct_12)" +"(root-expand-context/inner-self-mpi the-struct_71)" +"(root-expand-context/inner-module-scopes the-struct_71)" +"(root-expand-context/inner-top-level-bind-scope the-struct_71)" +"(root-expand-context/inner-all-scopes-stx the-struct_71)" +"(root-expand-context/inner-defined-syms the-struct_71)" +"(root-expand-context/inner-counter the-struct_71)" +"(root-expand-context/inner-lift-key the-struct_71)" +"(expand-context/inner-to-parsed? the-struct_71)" +"(expand-context/inner-phase the-struct_71)" +"(expand-context/inner-namespace the-struct_71)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_12)" -"(expand-context/inner-allow-unbound? the-struct_12)" -"(expand-context/inner-in-local-expand? the-struct_12)" -"(expand-context/inner-stops the-struct_12)" -"(expand-context/inner-declared-submodule-names the-struct_12)" -"(expand-context/inner-lifts the-struct_12)" -"(expand-context/inner-lift-envs the-struct_12)" -"(expand-context/inner-module-lifts the-struct_12)" -"(expand-context/inner-require-lifts the-struct_12)" -"(expand-context/inner-to-module-lifts the-struct_12)" -"(expand-context/inner-requires+provides the-struct_12)" -"(expand-context/inner-observer the-struct_12)" -"(expand-context/inner-for-serializable? the-struct_12)" -"(expand-context/inner-should-not-encounter-macros? the-struct_12)))" +"(expand-context/inner-module-begin-k the-struct_71)" +"(expand-context/inner-allow-unbound? the-struct_71)" +"(expand-context/inner-in-local-expand? the-struct_71)" +"(expand-context/inner-stops the-struct_71)" +"(expand-context/inner-declared-submodule-names the-struct_71)" +"(expand-context/inner-lifts the-struct_71)" +"(expand-context/inner-lift-envs the-struct_71)" +"(expand-context/inner-module-lifts the-struct_71)" +"(expand-context/inner-require-lifts the-struct_71)" +"(expand-context/inner-to-module-lifts the-struct_71)" +"(expand-context/inner-requires+provides the-struct_71)" +"(expand-context/inner-observer the-struct_71)" +"(expand-context/inner-for-serializable? the-struct_71)" +"(expand-context/inner-should-not-encounter-macros? the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_12)))))" +" the-struct_71)))))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_71)" -"(root-expand-context/outer-use-site-scopes the-struct_71)" -"(root-expand-context/outer-frame-id the-struct_71)" -"(expand-context/outer-context the-struct_71)" -"(expand-context/outer-env the-struct_71)" -"(expand-context/outer-post-expansion-scope-action the-struct_71)" -"(expand-context/outer-scopes the-struct_71)" -"(expand-context/outer-def-ctx-scopes the-struct_71)" -"(expand-context/outer-binding-layer the-struct_71)" -"(expand-context/outer-reference-records the-struct_71)" -"(expand-context/outer-only-immediate? the-struct_71)" -"(expand-context/outer-need-eventually-defined the-struct_71)" -"(expand-context/outer-current-introduction-scopes the-struct_71)" -"(expand-context/outer-name the-struct_71)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_71)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_70)" +"(root-expand-context/outer-use-site-scopes the-struct_70)" +"(root-expand-context/outer-frame-id the-struct_70)" +"(expand-context/outer-context the-struct_70)" +"(expand-context/outer-env the-struct_70)" +"(expand-context/outer-post-expansion-scope-action the-struct_70)" +"(expand-context/outer-scopes the-struct_70)" +"(expand-context/outer-def-ctx-scopes the-struct_70)" +"(expand-context/outer-binding-layer the-struct_70)" +"(expand-context/outer-reference-records the-struct_70)" +"(expand-context/outer-only-immediate? the-struct_70)" +"(expand-context/outer-need-eventually-defined the-struct_70)" +"(expand-context/outer-current-introduction-scopes the-struct_70)" +"(expand-context/outer-name the-struct_70)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_70)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_7)" "(let-values()" @@ -44418,7 +44426,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_89) s49_0))" +"(let-values(((s_321) s49_0))" "(let-values(((ns_106)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44431,7 +44439,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_89)" +"(let-values(((s141_0) s_321)" "((ns142_0) ns_106)" "((temp143_0) #f)" "((temp144_1) #f)" @@ -44452,7 +44460,7 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_419)(begin 'expand-to-top-form(expand-to-top-form50_0 s_419 #f #f)))" +"((s_413)(begin 'expand-to-top-form(expand-to-top-form50_0 s_413 #f #f)))" "((s_209 ns47_3)(expand-to-top-form50_0 s_209 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" @@ -44482,23 +44490,23 @@ static const char *startup_source = "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" "(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_100)(maybe-intro given-s_0 ns_107)))" +"(let-values(((s_99)(maybe-intro given-s_0 ns_107)))" "(let-values(((ctx_68)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" "(let-values(((phase_135)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_214 phase_103 ns_108 as-tail?_7)" +"(lambda(s_211 phase_103 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_127) ctx_68))" -"(let-values(((the-struct_44) v_127))" -"(if(expand-context/outer? the-struct_44)" +"(let-values(((v_126) ctx_68))" +"(let-values(((the-struct_42) v_126))" +"(if(expand-context/outer? the-struct_42)" "(let-values(((inner148_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_127)))" +" v_126)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase149_0)" @@ -44563,35 +44571,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_44)" +" the-struct_42)" "(root-expand-context/outer-use-site-scopes" -" the-struct_44)" +" the-struct_42)" "(root-expand-context/outer-frame-id" -" the-struct_44)" +" the-struct_42)" "(expand-context/outer-context" -" the-struct_44)" -"(expand-context/outer-env the-struct_44)" +" the-struct_42)" +"(expand-context/outer-env the-struct_42)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_44)" -"(expand-context/outer-scopes the-struct_44)" +" the-struct_42)" +"(expand-context/outer-scopes the-struct_42)" "(expand-context/outer-def-ctx-scopes" -" the-struct_44)" +" the-struct_42)" "(expand-context/outer-binding-layer" -" the-struct_44)" +" the-struct_42)" "(expand-context/outer-reference-records" -" the-struct_44)" +" the-struct_42)" "(expand-context/outer-only-immediate?" -" the-struct_44)" +" the-struct_42)" "(expand-context/outer-need-eventually-defined" -" the-struct_44)" +" the-struct_42)" "(expand-context/outer-current-introduction-scopes" -" the-struct_44)" -"(expand-context/outer-name the-struct_44)))" +" the-struct_42)" +"(expand-context/outer-name the-struct_42)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_44))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_214 #f)))" +" the-struct_42))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_211 #f)))" "(let-values((()" "(begin" "(let-values(((obs_46)" @@ -44603,15 +44611,15 @@ static const char *startup_source = "(call-expand-observe" " obs_46" " 'visit" -" s_214)))" +" s_211)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" -" s_214" -"(let-values(((v_194) tl-ctx_0))" -"(let-values(((the-struct_62) v_194))" -"(if(expand-context/outer? the-struct_62)" +" s_211" +"(let-values(((v_192) tl-ctx_0))" +"(let-values(((the-struct_61) v_192))" +"(if(expand-context/outer? the-struct_61)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" @@ -44619,7 +44627,7 @@ static const char *startup_source = "((inner155_1)" "(let-values(((the-struct_33)" "(root-expand-context/outer-inner" -" v_194)))" +" v_192)))" "(if(expand-context/inner?" " the-struct_33)" "(let-values(((phase156_1)" @@ -44682,40 +44690,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/outer-use-site-scopes" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/outer-frame-id" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-context" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-env" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-scopes" -" the-struct_62)" +" the-struct_61)" " def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-reference-records" -" the-struct_62)" +" the-struct_61)" " only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-current-introduction-scopes" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-name" -" the-struct_62)))" +" the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_62)))))))" +" the-struct_61)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_300)" +"(if(let-values(((or-part_304)" "(pair? require-lifts_5)))" -"(if or-part_300 or-part_300(pair? lifts_12)))" +"(if or-part_304 or-part_304(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -44769,11 +44777,11 @@ static const char *startup_source = "(if(if just-once?_1(not(eq? exp-s_8 wb-s_0)) #f)" "(let-values() exp-s_8)" "(let-values()" -"(let-values(((tmp_36)" +"(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" " phase_103)))" -"(if(equal? tmp_36 'begin)" +"(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -44789,38 +44797,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_443)" +"(let-values(((s_439)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_443))" +" s_439))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_444)" +"(let-values(((s_440)" "(if(syntax?$1" -" s_443)" +" s_439)" "(syntax-e$1" -" s_443)" -" s_443)))" +" s_439)" +" s_439)))" "(if(pair?" -" s_444)" +" s_440)" "(let-values(((begin163_0)" -"(let-values(((s_445)" +"(let-values(((s_441)" "(car" -" s_444)))" -" s_445))" +" s_440)))" +" s_441))" "((e164_0)" -"(let-values(((s_446)" +"(let-values(((s_442)" "(cdr" -" s_444)))" -"(let-values(((s_447)" +" s_440)))" +"(let-values(((s_117)" "(if(syntax?$1" -" s_446)" +" s_442)" "(syntax-e$1" -" s_446)" -" s_446)))" +" s_442)" +" s_442)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_447)))" +" s_117)))" "(if(not" " flat-s_20)" "(let-values()" @@ -44924,7 +44932,7 @@ static const char *startup_source = " new-s_4)))" "(let-values()" "(begin-loop_0 e162_0)))))))" -"(if(equal? tmp_36 'begin-for-syntax)" +"(if(equal? tmp_35 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" @@ -44942,38 +44950,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_229)" +"(let-values(((s_224)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_229))" +" s_224))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_231)" +"(let-values(((s_225)" "(if(syntax?$1" -" s_229)" +" s_224)" "(syntax-e$1" -" s_229)" -" s_229)))" +" s_224)" +" s_224)))" "(if(pair?" -" s_231)" +" s_225)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_233)" +"(let-values(((s_227)" "(car" -" s_231)))" -" s_233))" +" s_225)))" +" s_227))" "((e168_0)" -"(let-values(((s_333)" +"(let-values(((s_328)" "(cdr" -" s_231)))" -"(let-values(((s_234)" +" s_225)))" +"(let-values(((s_228)" "(if(syntax?$1" -" s_333)" +" s_328)" "(syntax-e$1" -" s_333)" -" s_333)))" +" s_328)" +" s_328)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_234)))" +" s_228)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45044,7 +45052,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_306)" -"(let-values(((s_337)" +"(let-values(((s_332)" "(unsafe-car" " lst_306))" "((rest_169)" @@ -45069,7 +45077,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_337" +" s_332" " next-phase_0" " next-ns_0" " #f)))" @@ -45119,21 +45127,21 @@ static const char *startup_source = " ns_108" " as-tail?_7))))))))))))))))))" " loop_98)" -" s_100" +" s_99" " phase_135" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_448 ns_109)" -"(begin(if(syntax?$1 s_448) s_448(1/namespace-syntax-introduce(1/datum->syntax #f s_448) ns_109)))))" +"(lambda(s_443 ns_109)" +"(begin(if(syntax?$1 s_443) s_443(1/namespace-syntax-introduce(1/datum->syntax #f s_443) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_449 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_449)(cons form-id_0 r_43) s_449 s_449) s_449))))" +"(lambda(form-id_0 s_444 r_43)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_444)(cons form-id_0 r_43) s_444 s_444) s_444))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_450 ctx_69)" +"(lambda(s_445 ctx_69)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_69)))" @@ -45146,83 +45154,83 @@ static const char *startup_source = "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_450)" +"(let-values(((s170_0) s_445)" "((temp171_0)" -"(let-values(((v_195) ctx_69))" -"(let-values(((the-struct_22) v_195))" -"(if(expand-context/outer? the-struct_22)" +"(let-values(((v_193) ctx_69))" +"(let-values(((the-struct_73) v_193))" +"(if(expand-context/outer? the-struct_73)" "(let-values(((inner172_0)" -"(let-values(((the-struct_73)" -"(root-expand-context/outer-inner v_195)))" -"(if(expand-context/inner? the-struct_73)" +"(let-values(((the-struct_74)" +"(root-expand-context/outer-inner v_193)))" +"(if(expand-context/inner? the-struct_74)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" "((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-module-scopes" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-defined-syms" -" the-struct_73)" -"(root-expand-context/inner-counter the-struct_73)" +" the-struct_74)" +"(root-expand-context/inner-counter the-struct_74)" "(root-expand-context/inner-lift-key" -" the-struct_73)" -"(expand-context/inner-to-parsed? the-struct_73)" -"(expand-context/inner-phase the-struct_73)" -"(expand-context/inner-namespace the-struct_73)" -"(expand-context/inner-just-once? the-struct_73)" +" the-struct_74)" +"(expand-context/inner-to-parsed? the-struct_74)" +"(expand-context/inner-phase the-struct_74)" +"(expand-context/inner-namespace the-struct_74)" +"(expand-context/inner-just-once? the-struct_74)" "(expand-context/inner-module-begin-k" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-allow-unbound?" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-in-local-expand?" -" the-struct_73)" -"(expand-context/inner-stops the-struct_73)" +" the-struct_74)" +"(expand-context/inner-stops the-struct_74)" "(expand-context/inner-declared-submodule-names" -" the-struct_73)" +" the-struct_74)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_73)" +"(expand-context/inner-lift-envs the-struct_74)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-requires+provides" -" the-struct_73)" -"(expand-context/inner-observer the-struct_73)" +" the-struct_74)" +"(expand-context/inner-observer the-struct_74)" "(expand-context/inner-for-serializable?" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_73)))" +" the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_73)))))" +" the-struct_74)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_22)" -"(root-expand-context/outer-use-site-scopes the-struct_22)" -"(root-expand-context/outer-frame-id the-struct_22)" -"(expand-context/outer-context the-struct_22)" -"(expand-context/outer-env the-struct_22)" -"(expand-context/outer-post-expansion-scope-action the-struct_22)" -"(expand-context/outer-scopes the-struct_22)" -"(expand-context/outer-def-ctx-scopes the-struct_22)" -"(expand-context/outer-binding-layer the-struct_22)" -"(expand-context/outer-reference-records the-struct_22)" -"(expand-context/outer-only-immediate? the-struct_22)" -"(expand-context/outer-need-eventually-defined the-struct_22)" -"(expand-context/outer-current-introduction-scopes the-struct_22)" -"(expand-context/outer-name the-struct_22)))" +"(root-expand-context/outer-post-expansion-scope the-struct_73)" +"(root-expand-context/outer-use-site-scopes the-struct_73)" +"(root-expand-context/outer-frame-id the-struct_73)" +"(expand-context/outer-context the-struct_73)" +"(expand-context/outer-env the-struct_73)" +"(expand-context/outer-post-expansion-scope-action the-struct_73)" +"(expand-context/outer-scopes the-struct_73)" +"(expand-context/outer-def-ctx-scopes the-struct_73)" +"(expand-context/outer-binding-layer the-struct_73)" +"(expand-context/outer-reference-records the-struct_73)" +"(expand-context/outer-only-immediate? the-struct_73)" +"(expand-context/outer-need-eventually-defined the-struct_73)" +"(expand-context/outer-current-introduction-scopes the-struct_73)" +"(expand-context/outer-name the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_22))))))" +" the-struct_73))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45232,31 +45240,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_73)" "(begin" -"(lambda(s_451 phase_136)" +"(lambda(s_446 phase_136)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_452)(syntax-disarm$1 s_451)))" -"(let-values(((orig-s_35) s_452))" +"(let-values(((s_447)(syntax-disarm$1 s_446)))" +"(let-values(((orig-s_35) s_447))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_253)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" -"(if(pair? s_253)" -"(let-values(((#%require178_0)(let-values(((s_254)(car s_253))) s_254))" +"(let-values(((s_247)(if(syntax?$1 s_447)(syntax-e$1 s_447) s_447)))" +"(if(pair? s_247)" +"(let-values(((#%require178_0)(let-values(((s_248)(car s_247))) s_248))" "((req179_0)" -"(let-values(((s_255)(cdr s_253)))" -"(let-values(((s_256)" -"(if(syntax?$1 s_255)" -"(syntax-e$1 s_255)" -" s_255)))" -"(if(pair? s_256)" +"(let-values(((s_249)(cdr s_247)))" +"(let-values(((s_250)" +"(if(syntax?$1 s_249)" +"(syntax-e$1 s_249)" +" s_249)))" +"(if(pair? s_250)" "(let-values(((req180_0)" -"(let-values(((s_453)(car s_256)))" -" s_453))" +"(let-values(((s_448)(car s_250)))" +" s_448))" "(()" -"(let-values(((s_454)(cdr s_256)))" -"(let-values(((s_455)" -"(if(syntax?$1 s_454)" -"(syntax-e$1 s_454)" -" s_454)))" -"(if(null? s_455)" +"(let-values(((s_449)(cdr s_250)))" +"(let-values(((s_450)" +"(if(syntax?$1 s_449)" +"(syntax-e$1 s_449)" +" s_449)))" +"(if(null? s_450)" "(values)" "(raise-syntax-error$1" " #f" @@ -45268,7 +45276,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_451)" +"((s182_0) s_446)" "((ns183_0) ns_73)" "((phase184_1) phase_136)" "((phase185_0) phase_136)" @@ -45378,20 +45386,20 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_1)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_75)" " exp-rhs_1))" "(if(lifted-parsed-begin?" -" the-struct_74)" +" the-struct_75)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_74)" +" the-struct_75)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_74)))" +" the-struct_75)))" " dv_0)))))" " fold-var_277))))" "(values fold-var_278)))))" @@ -45423,19 +45431,19 @@ static const char *startup_source = "(if obs_56" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_456) new-s_7))" -"(let-values(((orig-s_36) s_456))" +"(let-values(((s_451) new-s_7))" +"(let-values(((orig-s_36) s_451))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_457)(if(syntax?$1 s_456)(syntax-e$1 s_456) s_456)))" -"(if(pair? s_457)" -"(let-values(((begin195_0)(let-values(((s_458)(car s_457))) s_458))" +"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" +"(if(pair? s_452)" +"(let-values(((begin195_0)(let-values(((s_453)(car s_452))) s_453))" "((e196_0)" -"(let-values(((s_459)(cdr s_457)))" -"(let-values(((s_460)" -"(if(syntax?$1 s_459)" -"(syntax-e$1 s_459)" -" s_459)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_460)))" +"(let-values(((s_454)(cdr s_452)))" +"(let-values(((s_128)" +"(if(syntax?$1 s_454)" +"(syntax-e$1 s_454)" +" s_454)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_128)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45461,19 +45469,19 @@ static const char *startup_source = "(if obs_57" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_461) new-s_8))" -"(let-values(((orig-s_37) s_461))" +"(let-values(((s_455) new-s_8))" +"(let-values(((orig-s_37) s_455))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_462)(if(syntax?$1 s_461)(syntax-e$1 s_461) s_461)))" -"(if(pair? s_462)" -"(let-values(((begin199_0)(let-values(((s_463)(car s_462))) s_463))" +"(let-values(((s_456)(if(syntax?$1 s_455)(syntax-e$1 s_455) s_455)))" +"(if(pair? s_456)" +"(let-values(((begin199_0)(let-values(((s_457)(car s_456))) s_457))" "((e200_0)" -"(let-values(((s_464)(cdr s_462)))" -"(let-values(((s_465)" -"(if(syntax?$1 s_464)" -"(syntax-e$1 s_464)" -" s_464)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_465)))" +"(let-values(((s_458)(cdr s_456)))" +"(let-values(((s_459)" +"(if(syntax?$1 s_458)" +"(syntax-e$1 s_458)" +" s_458)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_459)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45527,8 +45535,8 @@ static const char *startup_source = "(let-values(((or-part_6)(not sym_81)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_289)(equal? sym_81 0)))" -"(if or-part_289 or-part_289(void? sym_81)))))))" +"(let-values(((or-part_293)(equal? sym_81 0)))" +"(if or-part_293 or-part_293(void? sym_81)))))))" "(void)" "(let-values()" " (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_81)))" @@ -45775,13 +45783,13 @@ static const char *startup_source = " mpi42_1" " phase43_2))" "(values))))" -"(let-values(((t_54)" +"(let-values(((t_55)" "(namespace-get-transformer" " m-ns_16" " ex-phase_0" " ex-sym_2" " missing_1)))" -"(if(eq? t_54 missing_1)" +"(if(eq? t_55 missing_1)" "(let-values()(fail_1))" "(let-values()" "(let-values(((tmp-ns_0)" @@ -45860,48 +45868,48 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_49)" +"(lambda(p_50)" "(begin" -"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 1) #f)) p_49)" +"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) p_50)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_49)))" -" p_49))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_50)))" +" p_50))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_30)" +"(lambda(p_31)" "(begin" -"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 2) #f)) p_30)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_31)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_30)))" -" p_30))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_31)))" +" p_31))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_52)" +"(lambda(p_53)" "(begin" -"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_52)" +"(if((lambda(p_54)(if(procedure? p_54)(procedure-arity-includes? p_54 2) #f)) p_53)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_52)))" -" p_52))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_53)))" +" p_53))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_35)" +"(lambda(p_36)" "(begin" -"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_35)" +"(if((lambda(p_48)(if(procedure? p_48)(procedure-arity-includes? p_48 2) #f)) p_36)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_35)))" -" p_35))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_36)))" +" p_36))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -45929,26 +45937,26 @@ static const char *startup_source = "(if((lambda(l_8)" "(if(list? l_8)" "(andmap2" -"(lambda(p_54)" -"(let-values(((or-part_296)(not p_54)))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_297)(complete-path-string? p_54)))" -"(if or-part_297" -" or-part_297" -"(if(hash? p_54)" -"(let-values(((ht_152) p_54))" +"(lambda(p_55)" +"(let-values(((or-part_300)(not p_55)))" +"(if or-part_300" +" or-part_300" +"(let-values(((or-part_301)(complete-path-string? p_55)))" +"(if or-part_301" +" or-part_301" +"(if(hash? p_55)" +"(let-values(((ht_152) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_152)))" "((letrec-values(((for-loop_183)" -"(lambda(result_115 i_91)" +"(lambda(result_115 i_90)" "(begin" " 'for-loop" -"(if i_91" +"(if i_90" "(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_152 i_91)))" +"(hash-iterate-key+value ht_152 i_90)))" "(let-values(((result_116)" "(let-values()" "(let-values(((result_117)" @@ -45976,7 +45984,7 @@ static const char *startup_source = " #f)" "(for-loop_183" " result_116" -"(hash-iterate-next ht_152 i_91))" +"(hash-iterate-next ht_152 i_90))" " result_116)))" " result_115)))))" " for-loop_183)" @@ -46011,11 +46019,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_153)))" "((letrec-values(((for-loop_271)" -"(lambda(table_216 i_92)" +"(lambda(table_216 i_91)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((k_35 v_196)(hash-iterate-key+value ht_153 i_92)))" +"(if i_91" +"(let-values(((k_35 v_194)(hash-iterate-key+value ht_153 i_91)))" "(let-values(((table_217)" "(let-values(((table_185) table_216))" "(let-values(((table_218)" @@ -46024,14 +46032,14 @@ static const char *startup_source = "(let-values()" "(values" " k_35" -"(to-path v_196)))))" +"(to-path v_194)))))" "(hash-set" " table_185" " key_84" " val_74)))))" "(values table_218)))))" "(if(not #f)" -"(for-loop_271 table_217(hash-iterate-next ht_153 i_92))" +"(for-loop_271 table_217(hash-iterate-next ht_153 i_91))" " table_217)))" " table_216)))))" " for-loop_271)" @@ -46062,8 +46070,8 @@ static const char *startup_source = "(if((lambda(l_74)" "(if(list? l_74)" "(andmap2" -"(lambda(p_55)" -"(let-values(((or-part_8)(path-string? p_55)))(if or-part_8 or-part_8(eq? p_55 'same))))" +"(lambda(p_56)" +"(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))" " l_74)" " #f))" " l_73)" @@ -46077,22 +46085,22 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_197)" +"(lambda(v_195)" "(begin" "(if((lambda(v_62)" "(let-values(((or-part_21)(eq? v_62 'modify-seconds)))" "(if or-part_21 or-part_21(eq? v_62 'exists))))" -" v_197)" +" v_195)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_197)))" -" v_197))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_195)))" +" v_195))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_198)(if v_198 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_196)(if v_196 #t #f))))" "(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_56)(begin 'relative-path-string?(if(path-string? p_56)(relative-path? p_56) #f))))" -"(define-values(to-path)(lambda(p_57)(begin(if(string? p_57)(string->path p_57) p_57))))" +"(lambda(p_57)(begin 'relative-path-string?(if(path-string? p_57)(relative-path? p_57) #f))))" +"(define-values(to-path)(lambda(p_58)(begin(if(string? p_58)(string->path p_58) p_58))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -46104,8 +46112,8 @@ static const char *startup_source = "(begin" " (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_58)(->path s_0)))" -"(call-with-current-load-relative-directory p_58(lambda()((1/current-load) p_58 #f))))))))))" +"(let-values(((p_59)(->path s_0)))" +"(call-with-current-load-relative-directory p_59(lambda()((1/current-load) p_59 #f))))))))))" "(define-values" "(1/load-extension)" "(lambda(s_1)" @@ -46119,13 +46127,13 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))" "(values))))" -"(let-values(((p_59)(->path s_1)))" -"(call-with-current-load-relative-directory p_59(lambda()((current-load-extension) p_59 #f))))))))))" +"(let-values(((p_60)(->path s_1)))" +"(call-with-current-load-relative-directory p_60(lambda()((current-load-extension) p_60 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_30 thunk_4)" +"(lambda(p_31 thunk_4)" "(begin" -"(let-values(((base_18 name_54 dir?_2)(split-path p_30)))" +"(let-values(((base_18 name_54 dir?_2)(split-path p_31)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46146,22 +46154,22 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_25)))" "(values))))" -"(let-values(((p_47)(->path f_25)))((1/current-load/use-compiled) p_47 #f))))))))" +"(let-values(((p_48)(->path f_25)))((1/current-load/use-compiled) p_48 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_41 end_31 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_145)" +"(let-values(((s_146)" "(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_297)(1/string->number start_41)))" -"(if or-part_297 or-part_297 0))))" +"(let-values(((or-part_301)(1/string->number start_41)))" +"(if or-part_301 or-part_301 0))))" "(let-values(((end_32)" -"(let-values(((or-part_299)(1/string->number end_31)))" -"(if or-part_299 or-part_299 0))))" +"(let-values(((or-part_303)(1/string->number end_31)))" +"(if or-part_303 or-part_303 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" @@ -46171,7 +46179,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 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_60)(open-input-bytes s_145)))" +"(let-values(((p_61)(open-input-bytes s_146)))" "((letrec-values(((loop_74)" "(lambda()" "(begin" @@ -46189,7 +46197,7 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_60)))))" +"(let-values()(1/read p_61)))))" "(if(eof-object? e_76)" "(void)" "(let-values()" @@ -46203,7 +46211,7 @@ static const char *startup_source = "(let-values()((1/current-eval) e_76)))" "(loop_74)))))))))" " loop_74)))))))" -"(define-values(->path)(lambda(s_428)(begin(if(string? s_428)(string->path s_428) s_428))))" +"(define-values(->path)(lambda(s_424)(begin(if(string? s_424)(string->path s_424) s_424))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -46227,17 +46235,17 @@ static const char *startup_source = "(let-values(((base_19 name_62 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_19)))))" "(let-values()" -"(let-values(((p_59)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_59(simplify-path p_59) #f))))))))" +"(let-values(((p_60)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_60(simplify-path p_60) #f))))))))" "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_23 s_155 l_4)" +"(lambda(who_23 s_154 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_155)" +"(if(relative-path-string? s_154)" "(void)" -" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_155)))" +" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_154)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_23 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46245,7 +46253,7 @@ static const char *startup_source = "(check-fail)" "(lambda(who_24 fail_2)" "(begin" -"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) fail_2)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) fail_2)" "(void)" " (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" @@ -46276,13 +46284,13 @@ static const char *startup_source = "(find-col-file fail_4 collection_1 collection-path_1 file-name_0 check-compiled?_0)))))))" "(define-values" "(get-config-table)" -"(lambda(d_34)" +"(lambda(d_33)" "(begin" -" (let-values (((p_61) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_290)" -"(if p_61" -"(if(file-exists? p_61)" -"(let-values(((p9_0) p_61)" +" (let-values (((p_62) (if d_33 (build-path d_33 \"config.rktd\") #f)))" +"(let-values(((or-part_294)" +"(if p_62" +"(if(file-exists? p_62)" +"(let-values(((p9_0) p_62)" "((temp10_3)" "(lambda()" "(begin" @@ -46292,7 +46300,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_3))" " #f)" " #f)))" -"(if or-part_290 or-part_290 '#hash()))))))" +"(if or-part_294 or-part_294 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -46307,14 +46315,14 @@ static const char *startup_source = "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_62)" +"(lambda(p_63)" "(begin" -"(if(complete-path? p_62)" -"(let-values() p_62)" +"(if(complete-path? p_63)" +"(let-values() p_63)" "(let-values()" "(path->complete-path" -" p_62" -"(let-values(((or-part_174)(find-main-collects)))(if or-part_174 or-part_174(current-directory)))))))))" +" p_63" +"(let-values(((or-part_176)(find-main-collects)))(if or-part_176 or-part_176(current-directory)))))))))" "(define-values" "(add-config-search)" "(lambda(ht_154 key_85 orig-l_9)" @@ -46403,10 +46411,10 @@ static const char *startup_source = "(begin" "(let-values(((path11_0) path_9)" "((temp12_3)" -"(lambda(p_63)" +"(lambda(p_64)" "(begin" " 'temp12" -"(let-values(((bstr_1)(read-bytes 8192 p_63)))" +"(let-values(((bstr_1)(read-bytes 8192 p_64)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" @@ -46416,7 +46424,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_63)))" +"(let-values(((bstr_2)(read-bytes 8192 p_64)))" "(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))" " loop_100))))" " bstr_1))))))" @@ -46468,45 +46476,45 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_199)" +"(let-values(((v_197)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" "((temp14_5)" -"(lambda(p_64)" +"(lambda(p_65)" "(begin" " 'temp14" "(begin0" -"(1/read p_64)" -"(if(eof-object?(1/read p_64))" +"(1/read p_65)" +"(if(eof-object?(1/read p_65))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_199)" +"(if(if(list? v_197)" "(andmap2" -"(lambda(p_65)" -"(if(list? p_65)" -"(if(let-values(((or-part_228)(= 2(length p_65))))" -"(if or-part_228 or-part_228(= 3(length p_65))))" -"(if(let-values(((or-part_301)(string?(car p_65))))" -"(if or-part_301" -" or-part_301" -"(let-values(((or-part_302)" -"(eq? 'root(car p_65))))" -"(if or-part_302" -" or-part_302" -"(eq? 'static-root(car p_65))))))" -"(if(path-string?(cadr p_65))" -"(let-values(((or-part_303)(null?(cddr p_65))))" -"(if or-part_303 or-part_303(regexp?(caddr p_65))))" +"(lambda(p_66)" +"(if(list? p_66)" +"(if(let-values(((or-part_231)(= 2(length p_66))))" +"(if or-part_231 or-part_231(= 3(length p_66))))" +"(if(let-values(((or-part_305)(string?(car p_66))))" +"(if or-part_305" +" or-part_305" +"(let-values(((or-part_306)" +"(eq? 'root(car p_66))))" +"(if or-part_306" +" or-part_306" +"(eq? 'static-root(car p_66))))))" +"(if(path-string?(cadr p_66))" +"(let-values(((or-part_307)(null?(cddr p_66))))" +"(if or-part_307 or-part_307(regexp?(caddr p_66))))" " #f)" " #f)" " #f)" " #f))" -" v_199)" +" v_197)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -46517,13 +46525,13 @@ static const char *startup_source = " base_21)))" "(begin" "(for-each2" -"(lambda(p_66)" -"(if(let-values(((or-part_304)(null?(cddr p_66))))" -"(if or-part_304 or-part_304(regexp-match?(caddr p_66)(version))))" +"(lambda(p_67)" +"(if(let-values(((or-part_308)(null?(cddr p_67))))" +"(if or-part_308 or-part_308(regexp-match?(caddr p_67)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_66) dir_0))))" -"(if(eq?(car p_66) 'static-root)" +"(simplify-path(path->complete-path(cadr p_67) dir_0))))" +"(if(eq?(car p_67) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" @@ -46536,7 +46544,7 @@ static const char *startup_source = "(cons dir_1(hash-ref ht_156 k_36 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_66) 'root)" +"(if(eq?(car p_67) 'root)" "(let-values()" "(begin" "(if(hash-ref ht_156 #f #f)" @@ -46544,19 +46552,19 @@ static const char *startup_source = "(let-values()(hash-set! ht_156 #f null)))" "(hash-for-each" " ht_156" -"(lambda(k_37 v_200)" -"(hash-set! ht_156 k_37(cons dir_1 v_200))))))" +"(lambda(k_37 v_198)" +"(hash-set! ht_156 k_37(cons dir_1 v_198))))))" "(let-values()" -"(let-values(((s_16)(string->symbol(car p_66))))" +"(let-values(((s_16)(string->symbol(car p_67))))" "(hash-set!" " ht_156" " s_16" "(cons(box dir_1)(hash-ref ht_156 s_16 null)))))))))" "(void)))" -" v_199)" +" v_197)" "(hash-for-each" " ht_156" -"(lambda(k_38 v_201)(hash-set! ht_156 k_38(reverse$1 v_201))))" +"(lambda(k_38 v_199)(hash-set! ht_156 k_38(reverse$1 v_199))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_156))" " ht_156))))))))))))))))))))))" "(define-values" @@ -46617,10 +46625,10 @@ static const char *startup_source = "(lambda(p_25 c_53)" "(begin '*build-path-rep(if(path? p_25)(build-path p_25 c_53)(unbox p_25))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_46)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_46) #t)))))" +"(lambda(orig_0 p_47)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_47) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_67)(begin 'to-string(if(path? p_67)(path->string p_67) p_67)))))" +"(lambda(p_68)(begin 'to-string(if(path? p_68)(path->string p_68) p_68)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -46682,7 +46690,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_68) (format \"\\n ~a\" (unbox p_68)))" +" (lambda (p_69) (format \"\\n ~a\" (unbox p_69)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -46690,13 +46698,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_146)" +"(if(let-values(((or-part_148)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_146" -" or-part_146" +"(if or-part_148" +" or-part_148" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -46727,8 +46735,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_221) found-col_0))" -"(if or-part_221 or-part_221 cpath_0))))" +"(let-values(((or-part_224) found-col_0))" +"(if or-part_224 or-part_224 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -46747,16 +46755,16 @@ static const char *startup_source = "((modes_0)(1/use-compiled-file-paths))" "((roots_0)(1/current-compiled-file-roots)))" "(ormap2" -"(lambda(d_35)" +"(lambda(d_34)" "(ormap2" "(lambda(mode_15)" "(file-exists?" -"(let-values(((p_69)(build-path dir_3 mode_15 try-path_0)))" -"(if(eq? d_35 'same)" -"(let-values() p_69)" -"(if(relative-path? d_35)" -"(let-values()(build-path p_69 d_35))" -"(let-values()(reroot-path p_69 d_35)))))))" +"(let-values(((p_70)(build-path dir_3 mode_15 try-path_0)))" +"(if(eq? d_34 'same)" +"(let-values() p_70)" +"(if(relative-path? d_34)" +"(let-values()(build-path p_70 d_34))" +"(let-values()(reroot-path p_70 d_34)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -46798,13 +46806,13 @@ static const char *startup_source = "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_202)" +"(let-values(((v_200)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_202" +"(if v_200" "(cons" "(simplify-path" -"(path->complete-path v_202(current-directory)))" +"(path->complete-path v_200(current-directory)))" "(loop_85(cdr l_79)))" "(loop_85(cdr l_79))))))))))" " loop_85)" @@ -46953,42 +46961,42 @@ static const char *startup_source = " pos_107" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_203)(begin(read-config/outer-wrap v_203))))" -"(define-values(read-config-line)(lambda(v_204)(begin(read-config/outer-line v_204))))" -"(define-values(read-config-col)(lambda(v_205)(begin(read-config/outer-col v_205))))" -"(define-values(read-config-pos)(lambda(v_206)(begin(read-config/outer-pos v_206))))" -"(define-values(read-config-indentations)(lambda(v_207)(begin(read-config/outer-indentations v_207))))" -"(define-values(read-config-keep-comment?)(lambda(v_208)(begin(read-config/outer-keep-comment? v_208))))" +"(define-values(read-config-wrap)(lambda(v_201)(begin(read-config/outer-wrap v_201))))" +"(define-values(read-config-line)(lambda(v_202)(begin(read-config/outer-line v_202))))" +"(define-values(read-config-col)(lambda(v_203)(begin(read-config/outer-col v_203))))" +"(define-values(read-config-pos)(lambda(v_204)(begin(read-config/outer-pos v_204))))" +"(define-values(read-config-indentations)(lambda(v_205)(begin(read-config/outer-indentations v_205))))" +"(define-values(read-config-keep-comment?)(lambda(v_206)(begin(read-config/outer-keep-comment? v_206))))" "(define-values" "(read-config-readtable)" -"(lambda(v_209)(begin(read-config/inner-readtable(read-config/outer-inner v_209)))))" +"(lambda(v_207)(begin(read-config/inner-readtable(read-config/outer-inner v_207)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_210)(begin(read-config/inner-next-readtable(read-config/outer-inner v_210)))))" +"(lambda(v_208)(begin(read-config/inner-next-readtable(read-config/outer-inner v_208)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_211)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_211)))))" +"(lambda(v_209)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_209)))))" "(define-values(read-config-source)(lambda(v_69)(begin(read-config/inner-source(read-config/outer-inner v_69)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_183)(begin(read-config/inner-read-compiled(read-config/outer-inner v_183)))))" +"(lambda(v_181)(begin(read-config/inner-read-compiled(read-config/outer-inner v_181)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_212)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_212)))))" +"(lambda(v_210)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_210)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_213)(begin(read-config/inner-module-declared?(read-config/outer-inner v_213)))))" +"(lambda(v_211)(begin(read-config/inner-module-declared?(read-config/outer-inner v_211)))))" "(define-values(read-config-coerce)(lambda(v_77)(begin(read-config/inner-coerce(read-config/outer-inner v_77)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_214)(begin(read-config/inner-coerce-key(read-config/outer-inner v_214)))))" +"(lambda(v_212)(begin(read-config/inner-coerce-key(read-config/outer-inner v_212)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_202)(begin(read-config/inner-parameter-override(read-config/outer-inner v_202)))))" +"(lambda(v_200)(begin(read-config/inner-parameter-override(read-config/outer-inner v_200)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_215)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_215)))))" -"(define-values(read-config-st)(lambda(v_188)(begin(read-config/inner-st(read-config/outer-inner v_188)))))" +"(lambda(v_213)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_213)))))" +"(define-values(read-config-st)(lambda(v_186)(begin(read-config/inner-st(read-config/outer-inner v_186)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47072,14 +47080,14 @@ static const char *startup_source = " or-part_88" "(lambda(mod-path_25 sym_91 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_305) module-declared?_1))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_309) module-declared?_1))" +"(if or-part_309" +" or-part_309" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_223) coerce_1))" -"(if or-part_223 or-part_223(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" -"(let-values(((or-part_265) coerce-key_1))" -"(if or-part_265 or-part_265(lambda(for-syntax?_3 v_114) v_114)))" +"(let-values(((or-part_226) coerce_1))" +"(if or-part_226 or-part_226(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" +"(let-values(((or-part_270) coerce-key_1))" +"(if or-part_270 or-part_270(lambda(for-syntax?_3 v_113) v_113)))" " #f" " #f" " #f" @@ -47109,14 +47117,14 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_216) config_0))" -"(let-values(((the-struct_75) v_216))" -"(if(read-config/outer? the-struct_75)" +"(let-values(((v_214) config_0))" +"(let-values(((the-struct_76) v_214))" +"(if(read-config/outer? the-struct_76)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_1)" -"(let-values(((the-struct_76)(read-config/outer-inner v_216)))" -"(if(read-config/inner? the-struct_76)" +"(let-values(((the-struct_77)(read-config/outer-inner v_214)))" +"(if(read-config/inner? the-struct_77)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -47128,35 +47136,35 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(read-config/inner-source the-struct_76)" -"(read-config/inner-read-compiled the-struct_76)" -"(read-config/inner-dynamic-require the-struct_76)" -"(read-config/inner-module-declared? the-struct_76)" -"(read-config/inner-coerce the-struct_76)" -"(read-config/inner-coerce-key the-struct_76)" -"(read-config/inner-parameter-override the-struct_76)" -"(read-config/inner-parameter-cache the-struct_76)" +"(read-config/inner-source the-struct_77)" +"(read-config/inner-read-compiled the-struct_77)" +"(read-config/inner-dynamic-require the-struct_77)" +"(read-config/inner-module-declared? the-struct_77)" +"(read-config/inner-coerce the-struct_77)" +"(read-config/inner-coerce-key the-struct_77)" +"(read-config/inner-parameter-override the-struct_77)" +"(read-config/inner-parameter-cache the-struct_77)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_77)))))" "(read-config/outer1.1" " inner50_1" " wrap48_0" -"(read-config/outer-line the-struct_75)" -"(read-config/outer-col the-struct_75)" -"(read-config/outer-pos the-struct_75)" -"(read-config/outer-indentations the-struct_75)" +"(read-config/outer-line the-struct_76)" +"(read-config/outer-col the-struct_76)" +"(read-config/outer-pos the-struct_76)" +"(read-config/outer-indentations the-struct_76)" " keep-comment?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" "(begin" "(let-values(((end-line_0 end-col_0 end-pos_0)(port-next-location in_1)))" "(srcloc" -"(let-values(((or-part_306)(read-config-source config_1)))" -"(if or-part_306" -" or-part_306" -" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" +"(let-values(((or-part_310)(read-config-source config_1)))" +"(if or-part_310" +" or-part_310" +" (let-values (((or-part_311) (object-name in_1))) (if or-part_311 or-part_311 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47165,13 +47173,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_217) config_2))" -"(let-values(((the-struct_38) v_217))" +"(let-values(((v_215) config_2))" +"(let-values(((the-struct_38) v_215))" "(if(read-config/outer? the-struct_38)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_108)" -"((inner58_1)(read-config/outer-inner v_217)))" +"((inner58_1)(read-config/outer-inner v_215)))" "(read-config/outer1.1" " inner58_1" "(read-config/outer-wrap the-struct_38)" @@ -47186,46 +47194,46 @@ static const char *startup_source = "(lambda(config_3)" "(begin" "(let-values(((v_73) config_3))" -"(let-values(((the-struct_77) v_73))" -"(if(read-config/outer? the-struct_77)" +"(let-values(((the-struct_78) v_73))" +"(if(read-config/outer? the-struct_78)" "(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_73)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" -"(read-config/outer-line the-struct_77)" -"(read-config/outer-col the-struct_77)" -"(read-config/outer-pos the-struct_77)" -"(read-config/outer-indentations the-struct_77)" -"(read-config/outer-keep-comment? the-struct_77)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" -"(define-values" -"(keep-comment)" -"(lambda(config_4)" -"(begin" -"(let-values(((v_218) config_4))" -"(let-values(((the-struct_78) v_218))" -"(if(read-config/outer? the-struct_78)" -"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_218)))" -"(read-config/outer1.1" -" inner62_0" -"(read-config/outer-wrap the-struct_78)" "(read-config/outer-line the-struct_78)" "(read-config/outer-col the-struct_78)" "(read-config/outer-pos the-struct_78)" "(read-config/outer-indentations the-struct_78)" -" keep-comment?61_0))" +"(read-config/outer-keep-comment? the-struct_78)))" " (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" "(define-values" +"(keep-comment)" +"(lambda(config_4)" +"(begin" +"(let-values(((v_216) config_4))" +"(let-values(((the-struct_19) v_216))" +"(if(read-config/outer? the-struct_19)" +"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_216)))" +"(read-config/outer1.1" +" inner62_0" +"(read-config/outer-wrap the-struct_19)" +"(read-config/outer-line the-struct_19)" +"(read-config/outer-col the-struct_19)" +"(read-config/outer-pos the-struct_19)" +"(read-config/outer-indentations the-struct_19)" +" keep-comment?61_0))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_19)))))))" +"(define-values" "(discard-comment)" "(lambda(config_5)" "(begin" "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_219) config_5))" -"(let-values(((the-struct_79) v_219))" +"(let-values(((v_217) config_5))" +"(let-values(((the-struct_79) v_217))" "(if(read-config/outer? the-struct_79)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_219)))" +"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner64_0" "(read-config/outer-wrap the-struct_79)" @@ -47242,11 +47250,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_144) config_6))" -"(let-values(((the-struct_80) v_144))" +"(let-values(((v_79) config_6))" +"(let-values(((the-struct_80) v_79))" "(if(read-config/outer? the-struct_80)" "(let-values(((inner65_0)" -"(let-values(((the-struct_81)(read-config/outer-inner v_144)))" +"(let-values(((the-struct_81)(read-config/outer-inner v_79)))" "(if(read-config/inner? the-struct_81)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -47281,26 +47289,26 @@ static const char *startup_source = " for-syntax?_5" " val_75" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_220)(begin 'default-reader-guard v_220)))" +"(define-values(default-reader-guard$1)(lambda(v_218)(begin 'default-reader-guard v_218)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_221)" +"(lambda(v_219)" "(begin" -"(if(if(procedure? v_221)(procedure-arity-includes? v_221 1) #f)" +"(if(if(procedure? v_219)(procedure-arity-includes? v_219 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_221)))" -" v_221))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_219)))" +" v_219))))" "(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_222)(if v_222 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_223)(if v_223 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_220)(if v_220 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_221)(if v_221 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_60)(if v_60 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_61)(if v_61 #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_83)(if v_83 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -47321,11 +47329,11 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_28)" "(begin" -"(let-values(((v_93) config_9))" -"(let-values(((the-struct_82) v_93))" +"(let-values(((v_92) config_9))" +"(let-values(((the-struct_82) v_92))" "(if(read-config/outer? the-struct_82)" "(let-values(((inner1_0)" -"(let-values(((the-struct_83)(read-config/outer-inner v_93)))" +"(let-values(((the-struct_83)(read-config/outer-inner v_92)))" "(if(read-config/inner? the-struct_83)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" @@ -47446,8 +47454,8 @@ static const char *startup_source = "(let-values(((key_86)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_169)(not key_86)))" -"(if or-part_169 or-part_169(char? key_86)))" +"(if(let-values(((or-part_171)(not key_86)))" +"(if or-part_171 or-part_171(char? key_86)))" "(void)" "(let-values()" "(raise-argument-error" @@ -47479,20 +47487,20 @@ static const char *startup_source = "(begin" "(if key_86" "(let-values()" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_172)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_170" -" or-part_170" -"(let-values(((or-part_171)" +"(if or-part_172" +" or-part_172" +"(let-values(((or-part_173)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_171" -" or-part_171" -"(let-values(((or-part_283)" +"(if or-part_173" +" or-part_173" +"(let-values(((or-part_287)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_283" -" or-part_283" +"(if or-part_287" +" or-part_287" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47576,14 +47584,14 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_172)" +"(let-values(((or-part_174)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_172 or-part_172 mode_16))))" +"(if or-part_174 or-part_174 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" @@ -47676,7 +47684,7 @@ static const char *startup_source = "(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_225)" +"(let-values(((v_223)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -47698,7 +47706,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_225) v_225(coerce v_225 in_3 config_14)))))))" +"(if(1/special-comment? v_223) v_223(coerce v_223 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_60)" @@ -47716,7 +47724,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_60 #f)))" "(values" -"(let-values(((or-part_175)" +"(let-values(((or-part_177)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -47724,7 +47732,7 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_175 or-part_175 c_60))" +"(if or-part_177 or-part_177 c_60))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_60 #f))))))))" "(define-values" @@ -47745,10 +47753,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_175" -"(let-values(((k_39 v_89)(hash-iterate-key+value ht_151 i_175)))" +"(let-values(((k_39 v_88)(hash-iterate-key+value ht_151 i_175)))" "(let-values(((fold-var_279)" "(let-values(((fold-var_83) fold-var_80))" -"(if(eqv? v_89 c_61)" +"(if(eqv? v_88 c_61)" "(let-values(((fold-var_239) fold-var_83))" "(let-values(((fold-var_13)" "(let-values()" @@ -47809,11 +47817,11 @@ static const char *startup_source = "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_160)" +"(let-values(((s_159)" "(if(error-print-source-location)" "(if srcloc_10(srcloc->string srcloc_10) #f)" " #f)))" -" (if s_160 (string-append s_160 \": \" msg_0) msg_0))" +" (if s_159 (string-append s_159 \": \" msg_0) msg_0))" " continuation-marks_0" "(if srcloc_10(list srcloc_10) null)))))))))))))))" "(define-values" @@ -47845,8 +47853,8 @@ static const char *startup_source = "((config29_0) config_18)" " ((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_466)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_466 \"\")))" +"(let-values(((s_460)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_460 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in28_0 config29_0 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" @@ -47875,9 +47883,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_159) init-c_2))" -"(if or-part_159" -" or-part_159" +"(let-values(((or-part_161) init-c_2))" +"(if or-part_161" +" or-part_161" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -47912,10 +47920,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_298)" +"(if(let-values(((or-part_302)" "(eof-object? c_62)))" -"(if or-part_298" -" or-part_298" +"(if or-part_302" +" or-part_302" "(eqv?" " '#\\newline" "(effective-char c_62 config_15))))" @@ -47995,13 +48003,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_182)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_180)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_182)" +"(if(eof-object? v_180)" "(let-values()" "(let-values(((in1_0) in_5)" "((config2_0) config_15)" -"((v3_0) v_182)" +"((v3_0) v_180)" "((temp4_3)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48096,30 +48104,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_308)(char=? dc_0 '#\\()))" -"(if or-part_308" -" or-part_308" -"(let-values(((or-part_288)(char=? dc_0 '#\\))))" -"(if or-part_288" -" or-part_288" +"(let-values(((or-part_312)(char=? dc_0 '#\\()))" +"(if or-part_312" +" or-part_312" +"(let-values(((or-part_292)(char=? dc_0 '#\\))))" +"(if or-part_292" +" or-part_292" "(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_159)(char=? dc_0 '#\\{)))" -"(if or-part_159" -" or-part_159" +"(let-values(((or-part_161)(char=? dc_0 '#\\{)))" +"(if or-part_161" +" or-part_161" "(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_218)(char=? dc_0 '#\\`)))" -"(if or-part_218" -" or-part_218" +"(let-values(((or-part_221)(char=? dc_0 '#\\`)))" +"(if or-part_221" +" or-part_221" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -48179,28 +48187,28 @@ static const char *startup_source = "(closer->opener)" "(lambda(c_47)" "(begin" -"(let-values(((tmp_37) c_47))" -"(if(equal? tmp_37 '#\\))" +"(let-values(((tmp_36) c_47))" +"(if(equal? tmp_36 '#\\))" "(let-values() '#\\()" -"(if(equal? tmp_37 '#\\])" +"(if(equal? tmp_36 '#\\])" "(let-values() '#\\[)" -"(if(equal? tmp_37 '#\\})(let-values() '#\\{)(let-values() c_47))))))))" +"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_47))))))))" " (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))" "(define-values" "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_61)(opener-name '#\\( config_21)))" +"(let-values(((p_62)(opener-name '#\\( config_21)))" "(let-values(((s_10)" "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))" "(let-values(((c_67)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_67 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_61 s_10 c_67))" -"(if(let-values(((or-part_297) s_10))(if or-part_297 or-part_297 c_67))" +" (let-values () (format \"~a, ~a, or ~a\" p_62 s_10 c_67))" +"(if(let-values(((or-part_301) s_10))(if or-part_301 or-part_301 c_67))" "(let-values()" -" (format \"~a or ~a\" p_61 (let-values (((or-part_298) s_10)) (if or-part_298 or-part_298 c_67))))" -"(let-values() p_61)))))))))" +" (format \"~a or ~a\" p_62 (let-values (((or-part_302) s_10)) (if or-part_302 or-part_302 c_67))))" +"(let-values() p_62)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -48269,8 +48277,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_184)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_184)))))))))" +"(let-values(((s_183)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_183)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48381,7 +48389,7 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_69))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_302)" +"(let-values(((or-part_306)" "(let-values(((lst_311)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -48418,7 +48426,7 @@ static const char *startup_source = " for-loop_272)" " #f" " lst_311)))))" -" (if or-part_302 or-part_302 \"expected\"))))" +" (if or-part_306 or-part_306 \"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`\"" @@ -48466,8 +48474,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_16)" "(let-values(((v_5) elem-config_0))" -"(let-values(((the-struct_56) v_5))" -"(if(read-config/outer? the-struct_56)" +"(let-values(((the-struct_55) v_5))" +"(if(read-config/outer? the-struct_55)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -48475,16 +48483,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_5)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_56)" -"(read-config/outer-line the-struct_56)" -"(read-config/outer-col the-struct_56)" -"(read-config/outer-pos the-struct_56)" +"(read-config/outer-wrap the-struct_55)" +"(read-config/outer-line the-struct_55)" +"(read-config/outer-col the-struct_55)" +"(read-config/outer-pos the-struct_55)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_56)))" +"(read-config/outer-keep-comment? the-struct_55)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_56))))))" +" the-struct_55))))))" "(let-values(((config/keep-comment_0)(keep-comment config_16)))" "(let-values(((read-one/not-eof_0)" "(lambda(init-c_4 read-one_2 config_34)" @@ -48611,7 +48619,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_199)" +"(let-values(((v_197)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -48632,11 +48640,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_199" +" v_197" "(append" "(reverse$1" " accum_0)" -" v_199)))" +" v_197)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -48675,7 +48683,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_199))" +" v_197))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48700,11 +48708,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_264)" +"(if(let-values(((or-part_269)" "(eof-object?" " post-ec_0)))" -"(if or-part_264" -" or-part_264" +"(if or-part_269" +" or-part_269" "(eqv?" " post-ec_0" " closer_1)))" @@ -48809,17 +48817,17 @@ static const char *startup_source = "(lambda(opener_1 in_21 config_35 seq_1)" "(begin" "(let-values(((tag_0)" -"(let-values(((tmp_38) opener_1))" -"(if(equal? tmp_38 '#\\[)" +"(let-values(((tmp_37) opener_1))" +"(if(equal? tmp_37 '#\\[)" "(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_35) '#%brackets #f))" -"(if(equal? tmp_38 '#\\{)" +"(if(equal? tmp_37 '#\\{)" "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_21 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_226) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_226))))" +" (define-values (not-an-fX.1) (lambda (who_26 v_224) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_224))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_226) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_226))))" +" (lambda (who_26 v_224) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_224))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -48855,11 +48863,11 @@ static const char *startup_source = "(consume-char in_12 c_72)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_72))(void))" "((letrec-values(((loop_61)" -"(lambda(v_227 max-count_1)" +"(lambda(v_225 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_227)" +"(let-values() v_225)" "(let-values()" "(let-values(((c_65)" "(let-values(((in_23) in_12)" @@ -48883,9 +48891,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_65))" "(void))" "(loop_61" -"(+(digit->number c_65)(* v_227 base_23))" +"(+(digit->number c_65)(* v_225 base_23))" "(sub1 max-count_1))))" -"(let-values() v_227)))))))))" +"(let-values() v_225)))))))))" " loop_61)" "(+(digit->number c_72)(* init-v_0 base_23))" "(sub1 max-count_0))))" @@ -48908,9 +48916,9 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_77)" "(begin" -"(let-values(((or-part_309)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_309" -" or-part_309" +"(let-values(((or-part_313)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" +"(if or-part_313" +" or-part_313" "(let-values(((or-part_97)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" "(if or-part_97 or-part_97(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" @@ -48929,7 +48937,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_182) s7_2))" +"(let-values(((s_181) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -48940,16 +48948,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_182)" +"(if(string? s_181)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" -"(if((lambda(p_70)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +" (let-values () (raise-argument-error 'string->number \"string?\" s_181)))" +"(if((lambda(p_71)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" -"(if((lambda(p_63)" -"(let-values(((or-part_7)(eq? p_63 'number-or-false)))" -"(if or-part_7 or-part_7(eq? p_63 'read))))" +"(if((lambda(p_64)" +"(let-values(((or-part_7)(eq? p_64 'number-or-false)))" +"(if or-part_7 or-part_7(eq? p_64 'read))))" " convert-mode_0)" "(void)" "(let-values()" @@ -48957,9 +48965,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_71)" -"(let-values(((or-part_9)(eq? p_71 'decimal-as-inexact)))" -"(if or-part_9 or-part_9(eq? p_71 'decimal-as-exact))))" +"(if((lambda(p_72)" +"(let-values(((or-part_9)(eq? p_72 'decimal-as-inexact)))" +"(if or-part_9 or-part_9(eq? p_72 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -48967,9 +48975,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_182)" +"(let-values(((s69_0) s_181)" "((temp70_1) 0)" -"((temp71_0)(string-length s_182))" +"((temp71_0)(string-length s_181))" "((radix72_0) radix_0)" "((temp73_0) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -48985,11 +48993,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_467)(begin 'string->number(string->number8_0 s_467 #f #f #f #f #f #f)))" -"((s_468 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_468 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_179 radix_2 convert-mode2_1)(string->number8_0 s_179 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_469 radix1_1)(string->number8_0 s_469 radix1_1 #f #f #t #f #f)))))" +"((s_461)(begin 'string->number(string->number8_0 s_461 #f #f #f #f #f #f)))" +"((s_462 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_462 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_178 radix_2 convert-mode2_1)(string->number8_0 s_178 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_463 radix1_1)(string->number8_0 s_463 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49003,7 +49011,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_470) s14_0))" +"(let-values(((s_464) s14_0))" "(let-values(((start_43) start15_0))" "(let-values(((end_33) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49018,21 +49026,21 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_470 start_43)))" +"(let-values(((c_79)(string-ref s_464 start_43)))" "(if(char=? '#\\# c_79)" "(let-values()" "(let-values(((next_4)(add1 start_43)))" "(if(= next_4 end_33)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_470))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_464))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_175)(string-ref s_470 next_4)))" -"(let-values(((tmp_39) i_175))" +"(let-values(((i_175)(string-ref s_464 next_4)))" +"(let-values(((tmp_38) i_175))" "(let-values(((index_2)" -"(if(char? tmp_39)" -"(let-values(((codepoint_0)(char->integer tmp_39)))" +"(if(char? tmp_38)" +"(let-values(((codepoint_0)(char->integer tmp_38)))" "(if(if(unsafe-fx>= codepoint_0 66)" "(unsafe-fx< codepoint_0 121)" " #f)" @@ -49104,30 +49112,30 @@ static const char *startup_source = "(format" " \"bad `#` indicator `~a` at `~.a`\"" " i_175" -"(substring s_470 start_43 end_33)))" +"(substring s_464 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_286)(exactness-set? exactness_0)))" -"(if or-part_286 or-part_286 in-complex_0))" +"(if(let-values(((or-part_290)(exactness-set? exactness_0)))" +"(if or-part_290 or-part_290 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_470 start_43 end_33)))" +"(substring s_464 start_43 end_33)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_0) s_470)" +"(let-values(((s76_0) s_464)" "((temp77_0)(add1 next_4))" "((end78_0) end_33)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_218)" "(char=? i_175 '#\\e)))" -"(if or-part_215" -" or-part_215" +"(if or-part_218" +" or-part_218" "(char=? i_175 '#\\E)))" " 'exact" " 'inexact))" @@ -49146,32 +49154,32 @@ static const char *startup_source = " temp81_1" " temp82_3)))))" "(let-values()" -"(if(let-values(((or-part_310) radix-set?_0))" -"(if or-part_310 or-part_310 in-complex_0))" +"(if(let-values(((or-part_314) radix-set?_0))" +"(if or-part_314 or-part_314 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_470 start_43 end_33)))" +"(substring s_464 start_43 end_33)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_40) i_175))" -"(if(if(equal? tmp_40 '#\\b)" +"(let-values(((tmp_39) i_175))" +"(if(if(equal? tmp_39 '#\\b)" " #t" -"(equal? tmp_40 '#\\B))" +"(equal? tmp_39 '#\\B))" "(let-values() 2)" -"(if(if(equal? tmp_40 '#\\o)" +"(if(if(equal? tmp_39 '#\\o)" " #t" -"(equal? tmp_40 '#\\O))" +"(equal? tmp_39 '#\\O))" "(let-values() 8)" -"(if(if(equal? tmp_40 '#\\d)" +"(if(if(equal? tmp_39 '#\\d)" " #t" -"(equal? tmp_40 '#\\D))" +"(equal? tmp_39 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_470)" +"(let-values(((s83_0) s_464)" "((temp84_2)(add1 next_4))" "((end85_0) end_33)" "((radix86_0) radix_4)" @@ -49193,25 +49201,25 @@ static const char *startup_source = " temp89_4)))))))))))))))" "(let-values(((c1_28)" "(if(char-sign? c_79)" -"(read-special-number s_470 start_43 end_33 convert-mode_2)" +"(read-special-number s_464 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_228)" +"((lambda(v_226)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_228))" +" (let-values () (format \"no exact representation for `~a`\" v_226))" "(let-values() #f)))" -"(let-values() v_228)))" +"(let-values() v_226)))" " c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_470(sub1 end_33)))" -"(if(char-sign?(string-ref s_470 6))" +"(if(char=? '#\\i(string-ref s_464(sub1 end_33)))" +"(if(char-sign?(string-ref s_464 6))" "(read-special-number" -" s_470" +" s_464" " start_43" "(+ start_43 6)" " convert-mode_2)" @@ -49221,15 +49229,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_229)" -"(let-values(((s90_1) s_470)" +"((lambda(v_227)" +"(let-values(((s90_1) s_464)" "((temp91_0)(+ start_43 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_229)" +"((v97_0) v_227)" "((temp98_3)" "(lambda(v_53 v2_0)" "(begin 'temp98(make-rectangular v_53 v2_0)))))" @@ -49249,10 +49257,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_470(sub1 end_33)))" -"(if(char-sign?(string-ref s_470(- end_33 7)))" +"(if(char=? '#\\i(string-ref s_464(sub1 end_33)))" +"(if(char-sign?(string-ref s_464(- end_33 7)))" "(read-special-number" -" s_470" +" s_464" "(- end_33 7)" "(sub1 end_33)" " convert-mode_2)" @@ -49265,7 +49273,7 @@ static const char *startup_source = "(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_470)" +"(let-values(((s99_0) s_464)" "((start100_0) start_43)" "((temp101_2)(- end_33 7))" "((radix102_0) radix_3)" @@ -49294,9 +49302,9 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_470(+ start_43 6)))" +"(if(char=? '#\\@(string-ref s_464(+ start_43 6)))" "(read-special-number" -" s_470" +" s_464" " start_43" "(+ start_43 6)" " convert-mode_2)" @@ -49305,18 +49313,18 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_202)" -"(let-values(((s109_0) s_470)" +"((lambda(v_200)" +"(let-values(((s109_0) s_464)" "((temp110_4)(+ start_43 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_202)" +"((v116_0) v_200)" "((temp117_2)" -"(lambda(v_230 v2_3)" -"(begin 'temp117(make-polar v_230 v2_3)))))" +"(lambda(v_228 v2_3)" +"(begin 'temp117(make-polar v_228 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -49333,9 +49341,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_470(- end_33 7)))" +"(if(char=? '#\\@(string-ref s_464(- end_33 7)))" "(read-special-number" -" s_470" +" s_464" "(- end_33 6)" " end_33" " convert-mode_2)" @@ -49344,7 +49352,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_470)" +"(let-values(((s118_0) s_464)" "((start119_0) start_43)" "((temp120_2)(- end_33 7))" "((radix121_0) radix_3)" @@ -49354,8 +49362,8 @@ static const char *startup_source = "((temp125_2) #t)" "((v2126_0) v2_4)" "((temp127_2)" -"(lambda(v2_5 v_231)" -"(begin 'temp127(make-polar v_231 v2_5)))))" +"(lambda(v2_5 v_229)" +"(begin 'temp127(make-polar v_229 v2_5)))))" "(read-for-special-compound65.1" " temp124_4" " temp125_2" @@ -49370,7 +49378,7 @@ static const char *startup_source = " temp127_2)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_470)" +"(let-values(((s128_1) s_464)" "((start129_0) start_43)" "((end130_0) end_33)" "((radix131_0) radix_3)" @@ -49401,7 +49409,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_202) s27_1))" +"(let-values(((s_201) s27_1))" "(let-values(((start_44) start28_0))" "(let-values(((end_34) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49431,7 +49439,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49439,13 +49447,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_311)" +"(let-values(((or-part_315)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_311" -" or-part_311" +"(if or-part_315" +" or-part_315" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49453,11 +49461,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_202)" +"(let-values(((s136_0) s_201)" "((start137_0) start_44)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -49484,7 +49492,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_202)" +"(let-values(((s148_0) s_201)" "((start149_0) start_44)" "((@-pos150_0) @-pos_0)" "((temp151_1)(add1 @-pos_0))" @@ -49511,7 +49519,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_202" +" s_201" " start_44" " end_34" " dot-pos_1" @@ -49522,7 +49530,7 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_202 i_176)))" +"(let-values(((c_80)(string-ref s_201 i_176)))" "(if(digit? c_80 radix_5)" "(let-values()" "(loop_107" @@ -49557,7 +49565,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_107" @@ -49571,27 +49579,27 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_176 start_44)" -"(let-values(((or-part_312)(not @-pos_0)))" -"(if or-part_312" -" or-part_312" +"(let-values(((or-part_316)(not @-pos_0)))" +"(if or-part_316" +" or-part_316" "(> i_176(add1 @-pos_0))))" " #f)))))" "(if(char=? c_80 '#\\.)" "(let-values()" -"(if(let-values(((or-part_212)" +"(if(let-values(((or-part_215)" "(if exp-pos_0" -"(let-values(((or-part_313)" +"(let-values(((or-part_317)" "(not sign-pos_0)))" -"(if or-part_313" -" or-part_313" +"(if or-part_317" +" or-part_317" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_212" -" or-part_212" +"(if or-part_215" +" or-part_215" "(if dot-pos_1" -"(let-values(((or-part_314)(not sign-pos_0)))" -"(if or-part_314" -" or-part_314" +"(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()" @@ -49599,12 +49607,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_315)(not sign-pos_0)))" -"(if or-part_315" -" or-part_315" +"(let-values(((or-part_319)(not sign-pos_0)))" +"(if or-part_319" +" or-part_319" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49612,7 +49620,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_107" @@ -49629,9 +49637,9 @@ static const char *startup_source = "(if(char=? c_80 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_316)(not sign-pos_0)))" -"(if or-part_316" -" or-part_316" +"(let-values(((or-part_320)(not sign-pos_0)))" +"(if or-part_320" +" or-part_320" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -49639,23 +49647,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_317)" +"(if(let-values(((or-part_321)" "(if exp-pos_0" -"(let-values(((or-part_188)" +"(let-values(((or-part_190)" "(not sign-pos_0)))" -"(if or-part_188" -" or-part_188" +"(if or-part_190" +" or-part_190" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_317" -" or-part_317" +"(if or-part_321" +" or-part_321" "(if slash-pos_0" -"(let-values(((or-part_318)" +"(let-values(((or-part_322)" "(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(if or-part_322" +" or-part_322" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -49663,7 +49671,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_107" @@ -49677,58 +49685,58 @@ static const char *startup_source = " i_176" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_319)(char=? c_80 '#\\e)))" -"(if or-part_319" -" or-part_319" -"(let-values(((or-part_320)(char=? c_80 '#\\E)))" -"(if or-part_320" -" or-part_320" -"(let-values(((or-part_321)" -"(char=? c_80 '#\\f)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)" -"(char=? c_80 '#\\F)))" -"(if or-part_322" -" or-part_322" -"(let-values(((or-part_323)" -"(char=? c_80 '#\\d)))" +"(if(let-values(((or-part_323)(char=? c_80 '#\\e)))" "(if or-part_323" " or-part_323" -"(let-values(((or-part_324)" -"(char=? c_80 '#\\D)))" +"(let-values(((or-part_324)(char=? c_80 '#\\E)))" "(if or-part_324" " or-part_324" -"(let-values(((or-part_213)" -"(char=?" -" c_80" -" '#\\s)))" -"(if or-part_213" -" or-part_213" -"(let-values(((or-part_162)" -"(char=?" -" c_80" -" '#\\S)))" -"(if or-part_162" -" or-part_162" "(let-values(((or-part_325)" -"(char=?" -" c_80" -" '#\\l)))" +"(char=? c_80 '#\\f)))" "(if or-part_325" " or-part_325" "(let-values(((or-part_326)" -"(char=?" -" c_80" -" '#\\L)))" +"(char=? c_80 '#\\F)))" "(if or-part_326" " or-part_326" "(let-values(((or-part_327)" +"(char=? c_80 '#\\d)))" +"(if or-part_327" +" or-part_327" +"(let-values(((or-part_328)" +"(char=? c_80 '#\\D)))" +"(if or-part_328" +" or-part_328" +"(let-values(((or-part_216)" +"(char=?" +" c_80" +" '#\\s)))" +"(if or-part_216" +" or-part_216" +"(let-values(((or-part_164)" +"(char=?" +" c_80" +" '#\\S)))" +"(if or-part_164" +" or-part_164" +"(let-values(((or-part_329)" +"(char=?" +" c_80" +" '#\\l)))" +"(if or-part_329" +" or-part_329" +"(let-values(((or-part_330)" +"(char=?" +" c_80" +" '#\\L)))" +"(if or-part_330" +" or-part_330" +"(let-values(((or-part_331)" "(char=?" " c_80" " '#\\t)))" -"(if or-part_327" -" or-part_327" +"(if or-part_331" +" or-part_331" "(char=?" " c_80" " '#\\T)))))))))))))))))))))))" @@ -49740,10 +49748,10 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_80" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if(if(<(add1 i_176) end_34)" -"(char-sign?(string-ref s_202(add1 i_176)))" +"(char-sign?(string-ref s_201(add1 i_176)))" " #f)" "(let-values()" "(loop_107" @@ -49755,8 +49763,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_176))" +"(let-values(((or-part_332) exp-pos_0))" +"(if or-part_332 or-part_332 i_176))" " must-i?_0))" "(let-values()" "(loop_107" @@ -49768,8 +49776,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_329) exp-pos_0))" -"(if or-part_329 or-part_329 i_176))" +"(let-values(((or-part_333) exp-pos_0))" +"(if or-part_333 or-part_333 i_176))" " must-i?_0)))))" "(if(char=? c_80 '#\\@)" "(let-values()" @@ -49779,18 +49787,18 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_330) @-pos_0))" -"(if or-part_330" -" or-part_330" +"(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" " \"too many `@`s in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if(= i_176 start_44)" "(let-values()" @@ -49798,7 +49806,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -49806,7 +49814,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_107" @@ -49820,36 +49828,36 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_331)" +"(if(if(let-values(((or-part_335)" "(char=? c_80 '#\\i)))" -"(if or-part_331" -" or-part_331" +"(if or-part_335" +" or-part_335" "(char=? c_80 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_332) @-pos_0))" -"(if or-part_332" -" or-part_332" +"(if(let-values(((or-part_336) @-pos_0))" +"(if or-part_336" +" or-part_336" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_333)" +"(if(let-values(((or-part_337)" "(<(add1 i_176) end_34)))" -"(if or-part_333" -" or-part_333" +"(if or-part_337" +" or-part_337" "(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_202 start_44 end_34)))" +"(substring s_201 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_107" @@ -49868,7 +49876,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_202))" +" (format \"nul character in `~.a`\" s_201))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49902,7 +49910,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_115) s40_0))" +"(let-values(((s_221) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -49919,7 +49927,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_115)" +"(let-values(((s160_0) s_221)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -49940,12 +49948,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_115 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_221 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_115)" +"(let-values(((s168_0) s_221)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -49963,11 +49971,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_334)(not v1_0)))" -"(if or-part_334 or-part_334(not v2_6)))" +"(if(let-values(((or-part_113)(not v1_0)))" +"(if or-part_113 or-part_113(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_335)(extflonum? v1_0)))" -"(if or-part_335 or-part_335(extflonum? v2_6)))" +"(if(if(let-values(((or-part_338)(extflonum? v1_0)))" +"(if or-part_338 or-part_338(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49982,39 +49990,39 @@ static const char *startup_source = "(if(eq? in-complex_2 'i)" "(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_72)(make-polar v1_0 v2_6)))" +"(let-values(((p_73)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_72)" -" p_72))))))))))))))))))))))))))))" +"(inexact->exact p_73)" +" p_73))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_238 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_232 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_238 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_232 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_336)(eq? exactness_3 'inexact)))" -"(if or-part_336" -" or-part_336" -"(let-values(((or-part_337)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_337 or-part_337(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_338)(not exp-pos_1)))" -"(if or-part_338" -" or-part_338" -"(let-values(((or-part_339)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_339 or-part_339(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_238 start_45 end_35) #f))" +"(if(let-values(((or-part_339)(eq? exactness_3 'inexact)))" +"(if or-part_339" +" or-part_339" +"(let-values(((or-part_340)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_340 or-part_340(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_341)(not exp-pos_1)))" +"(if or-part_341" +" or-part_341" +"(let-values(((or-part_342)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_342 or-part_342(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_232 start_45 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_238 start_45)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_232 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_238 start_45 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_232 start_45 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50026,37 +50034,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_238 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_232 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))" -"(if or-part_340" -" or-part_340" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_238(sub1 end_35))) #f)))" +"(let-values(((or-part_343)(= exp-pos_1(sub1 end_35))))" +"(if or-part_343" +" or-part_343" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_232(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_238 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_232 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_238 start_45 end_35)" +"(maybe-substring s_232 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_341" -" or-part_341" -"(let-values(((or-part_342)(not exp-pos_1)))" -"(if or-part_342 or-part_342(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_344)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_344" +" or-part_344" +"(let-values(((or-part_345)(not exp-pos_1)))" +"(if or-part_345 or-part_345(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_343)(not n_30)))(if or-part_343 or-part_343(string? n_30)))" +"(if(let-values(((or-part_346)(not n_30)))(if or-part_346 or-part_346(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_238 start_45 end_35)))" +"(substring s_232 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50065,9 +50073,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_238 start_45 end_35)))" +"(substring s_232 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_238 start_45) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_232 start_45) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50075,7 +50083,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_238" +" s_232" " start_45" " exp-pos_1" " dot-pos_2" @@ -50086,29 +50094,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_238(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_232(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_45)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_238 exp-pos_1)))" -"(if(if(equal? tmp_41 '#\\s)" +"(let-values(((tmp_40)(string-ref s_232 exp-pos_1)))" +"(if(if(equal? tmp_40 '#\\s)" " #t" -"(if(equal? tmp_41 '#\\S)" +"(if(equal? tmp_40 '#\\S)" " #t" -"(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" +"(if(equal? tmp_40 '#\\f) #t(equal? tmp_40 '#\\F))))" "(let-values()(real->single-flonum r_45))" -"(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" +"(if(if(equal? tmp_40 '#\\t) #t(equal? tmp_40 '#\\T))" "(let-values()" "(if(extflonum-available?)" "(real->extfl r_45)" "(string->number$1" -"(replace-hashes s_238 start_45 end_35)" +"(replace-hashes s_232 start_45 end_35)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_344)(not m-v_0)))(if or-part_344 or-part_344(not e-v_0)))" +"(if(let-values(((or-part_347)(not m-v_0)))(if or-part_347 or-part_347(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50116,14 +50124,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_226)(eq? exactness_3 'inexact)))" -"(if or-part_226 or-part_226(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_229)(eq? exactness_3 'inexact)))" +"(if or-part_229 or-part_229(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_238 start_45) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_232 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))))))" @@ -50133,24 +50141,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_238 start_45 end_35)" +"(substring s_232 start_45 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_345)(eq? exactness_3 'exact)))" -"(if or-part_345 or-part_345(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_348)(eq? exactness_3 'exact)))" +"(if or-part_348 or-part_348(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_238 start_45) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_232 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_238" +" s_232" " start_45" " slash-pos_1" " #f" @@ -50162,7 +50170,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_238" +" s_232" "(add1 slash-pos_1)" " end_35" " #f" @@ -50176,13 +50184,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_149)(eq? exactness_3 'inexact)))" -"(if or-part_149" -" or-part_149" +"(let-values(((or-part_151)(eq? exactness_3 'inexact)))" +"(if or-part_151" +" or-part_151" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_238 from-pos_0 end_35)" +"(hashes? s_232 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))" +"(if(let-values(((or-part_349)(not n-v_0)))(if or-part_349 or-part_349(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50195,14 +50203,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_238 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_232 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_238" +" s_232" " start_45" " end_35" " dot-pos_2" @@ -50211,149 +50219,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_363 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_358 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_347)(eq? exactness_4 'exact)))" -"(if or-part_347 or-part_347(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_350)(eq? exactness_4 'exact)))" +"(if or-part_350 or-part_350(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_108)" -"(lambda(i_118 j_3 hashes-pos_0)" +"(lambda(i_117 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_118 start_46)" +"(if(< i_117 start_46)" "(let-values()" "(if(= hashes-pos_0 start_46)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_363 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_358 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" "(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_363 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_358 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_363 start_46) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_358 start_46) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_363 i_118)))" +"(let-values(((c_81)(string-ref s_358 i_117)))" "(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_108" -"(sub1 i_118)" +"(sub1 i_117)" " j_3" -"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" "(loop_108" -"(sub1 i_118)" +"(sub1 i_117)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))))" -"(if(let-values(((or-part_348)(char=? c_81 '#\\-)))" -"(if or-part_348 or-part_348(char=? c_81 '#\\+)))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))))" +"(if(let-values(((or-part_351)(char=? c_81 '#\\-)))" +"(if or-part_351 or-part_351(char=? c_81 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" "(loop_108" -"(sub1 i_118)" +"(sub1 i_117)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))" "(if(char=? c_81 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_118))" +"(if(= hashes-pos_0(add1 i_117))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_108(sub1 i_118)(sub1 j_3) i_118)))" +"(loop_108(sub1 i_117)(sub1 j_3) i_117)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_363 start_46 end_36)))" +"(substring s_358 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" -"(loop_108(sub1 i_118)(sub1 j_3) hashes-pos_0)))))))))))))" +"(loop_108(sub1 i_117)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_108)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_248 start_47 end_37 radix_9 convert-mode_7)" +"(lambda(s_242 start_47 end_37 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_248 start_47 end_37)" +"(if(hashes? s_242 start_47 end_37)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_248 start_47 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_242 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_248 start_47 end_37) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_242 start_47 end_37) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_248 start_47 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_242 start_47 end_37)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_251 start_48 end_38 convert-mode_8)" +"(lambda(s_245 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_349)(char=?(string-ref s_251 start_48) '#\\+)))" -"(if or-part_349 or-part_349(char=?(string-ref s_251 start_48) '#\\-)))" -"(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 4))) '#\\.)" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_251 start_48) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_352)(char=?(string-ref s_245 start_48) '#\\+)))" +"(if or-part_352 or-part_352(char=?(string-ref s_245 start_48) '#\\-)))" +"(let-values(((or-part_353)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 4))) '#\\.)" +"(let-values(((or-part_354)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\0)" +"(if(char=?(string-ref s_245 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_351" -" or-part_351" -"(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_251 start_48) '#\\+) +inf.f -inf.f)" +"(if or-part_354" +" or-part_354" +"(let-values(((or-part_355)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\f)" +"(if(char=?(string-ref s_245 start_48) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_352" -" or-part_352" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\t)" +"(if or-part_355" +" or-part_355" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_251 start_48) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_245 start_48) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_350" -" or-part_350" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 4))) '#\\.)" -"(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_251(+ 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_251(+ start_48 5))) '#\\f) +nan.f #f)))" -"(if or-part_354" -" or-part_354" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 4))) '#\\.)" +"(let-values(((or-part_356)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\0) +nan.0 #f)))" +"(if or-part_356" +" or-part_356" +"(let-values(((or-part_357)" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if or-part_357" +" or-part_357" +"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50364,10 +50372,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_232)" +"(lambda(convert-mode_9 v_230)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_232))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_230))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -50384,7 +50392,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_471) s57_0))" +"(let-values(((s_465) s57_0))" "(let-values(((start_49) start58_0))" "(let-values(((end_39) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50392,22 +50400,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_233) v63_0))" +"(let-values(((v_231) v63_0))" "(let-values(((combine_1) combine64_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_233))" +" (let-values () (format \"no exact representation for `~a`\" v_231))" "(let-values() #f)))" -"(if(if(extflonum? v_233)" -"(let-values(((or-part_355)(not reading-first?_0)))" -"(if or-part_355 or-part_355(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_231)" +"(let-values(((or-part_358)(not reading-first?_0)))" +"(if or-part_358 or-part_358(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_233))" +"(let-values()(fail-extflonum convert-mode_10 v_231))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_471)" +"(let-values(((s176_0) s_465)" "((start177_0) start_49)" "((end178_0) end_39)" "((radix179_0) radix_10)" @@ -50429,12 +50437,12 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_233)" -"(let-values()(fail-extflonum convert-mode_10 v_233))" -"(let-values()(combine_1 v_233 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_231)" +"(let-values()(fail-extflonum convert-mode_10 v_231))" +"(let-values()(combine_1 v_231 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_472 start_50 end_40)" +"(lambda(s_466 start_50 end_40)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -50442,7 +50450,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_80)(string? x_80))" "(lambda(x_81)(unsafe-string-length x_81))" -" s_472" +" s_466" " start_50" " end_40" " 1)))" @@ -50468,7 +50476,7 @@ static const char *startup_source = " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_126 start_51 end_41)" +"(lambda(s_467 start_51 end_41)" "(begin" "(let-values(((new-s_9)(make-string(- end_41 start_51))))" "(begin" @@ -50478,7 +50486,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_83)(string? x_83))" "(lambda(x_84)(unsafe-string-length x_84))" -" s_126" +" s_467" " start_51" " end_41" " 1))" @@ -50514,39 +50522,39 @@ static const char *startup_source = " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_473 start_53 end_42)" -"(begin(if(if(= 0 start_53)(= end_42(string-length s_473)) #f) s_473(substring s_473 start_53 end_42)))))" +"(lambda(s_468 start_53 end_42)" +"(begin(if(if(= 0 start_53)(= end_42(string-length s_468)) #f) s_468(substring s_468 start_53 end_42)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_356)(eq? exactness_6 'exact)))(if or-part_356 or-part_356(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_359)(eq? exactness_6 'exact)))(if or-part_359 or-part_359(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_84)" -"(begin(let-values(((or-part_357)(char=? c_84 '#\\-)))(if or-part_357 or-part_357(char=? c_84 '#\\+))))))" +"(begin(let-values(((or-part_360)(char=? c_84 '#\\-)))(if or-part_360 or-part_360(char=? c_84 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_85 radix_11)" "(begin" -"(let-values(((v_234)(char->integer c_85)))" -"(let-values(((or-part_275)" -"(if(>= v_234(char->integer '#\\0))(<(- v_234(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_275" -" or-part_275" +"(let-values(((v_232)(char->integer c_85)))" +"(let-values(((or-part_279)" +"(if(>= v_232(char->integer '#\\0))(<(- v_232(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_279" +" or-part_279" "(if(> radix_11 10)" -"(let-values(((or-part_358)" -"(if(>= v_234(char->integer '#\\a))(<(- v_234(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_358" -" or-part_358" -"(if(>= v_234(char->integer '#\\A))(<(- v_234(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_361)" +"(if(>= v_232(char->integer '#\\a))(<(- v_232(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_361" +" or-part_361" +"(if(>= v_232(char->integer '#\\A))(<(- v_232(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_474 start_54 end_43)" +"(lambda(convert-mode_11 s_469 start_54 end_43)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_474 start_54 end_43)))" +" (let-values () (format \"bad number `~.a`\" (substring s_469 start_54 end_43)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50656,11 +50664,11 @@ static const char *startup_source = "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" "((c_39) c_87))" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_175)" "(not" " rt_12)))" -"(if or-part_173" -" or-part_173" +"(if or-part_175" +" or-part_175" "(not" "(char? c_39))))" "(let-values() c_39)" @@ -50840,9 +50848,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_160)" +"(if(let-values(((or-part_162)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_160 or-part_160(string? mode_17)))" +"(if or-part_162 or-part_162(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -50893,9 +50901,9 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_291) num_0))" -"(if or-part_291" -" or-part_291" +"(let-values(((or-part_295) num_0))" +"(if or-part_295" +" or-part_295" "(let-values(((or-part_94)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" @@ -50910,16 +50918,16 @@ static const char *startup_source = "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_115)(port-next-location* in_5 c_33)))" -" (let-values (((v_93) (read-number-literal c_33 in_5 config_15 \"#e\")))" -"(if(fixnum? v_93)" -"(let-values() v_93)" -"(if(eof-object? v_93)" -"(let-values() v_93)" +" (let-values (((v_92) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_92)" +"(let-values() v_92)" +"(if(eof-object? v_92)" +"(let-values() v_92)" "(let-values()" "(let-values(((in1_1) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_93))" +"((v4_1) v_92))" "(reader-error10.1 #f #f #f #f #f #f in1_1 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" @@ -50962,16 +50970,16 @@ static const char *startup_source = "(let-values(((expected-len_0)(if length4_0 length2_0 #f)))" "(let-values()" "(let-values(((read-one-element_0)" -"(let-values(((tmp_31) vector-mode_0))" -"(if(equal? tmp_31 'any)" +"(let-values(((tmp_30) vector-mode_0))" +"(if(equal? tmp_30 'any)" "(let-values() read-one_5)" -"(if(equal? tmp_31 'fixnum)" +"(if(equal? tmp_30 'fixnum)" "(let-values()" "(lambda(init-c_7 in_30 config_40)" "(begin" " 'read-one-element" "(read-fixnum read-one_5 init-c_7 in_30 config_40))))" -"(if(equal? tmp_31 'flonum)" +"(if(equal? tmp_30 'flonum)" "(let-values()" "(lambda(init-c_8 in_31 config_41)" "(begin" @@ -51007,10 +51015,10 @@ static const char *startup_source = "(let-values(((vec_66)" "(if(not expected-len_0)" "(let-values()" -"(let-values(((tmp_42) vector-mode_0))" -"(if(equal? tmp_42 'any)" +"(let-values(((tmp_41) vector-mode_0))" +"(if(equal? tmp_41 'any)" "(let-values()(list->vector seq_2))" -"(if(equal? tmp_42 'fixnum)" +"(if(equal? tmp_41 'fixnum)" "(let-values()" "(let-values(((len_7)(length seq_2)))" "(begin" @@ -51022,7 +51030,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_7)))" "(let-values(((fill_0) 0))" -"(let-values(((v_196)(make-fxvector len_7 fill_0)))" +"(let-values(((v_194)(make-fxvector len_7 fill_0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -51034,16 +51042,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_24)))" "((letrec-values(((for-loop_253)" -"(lambda(i_178 lst_80)" +"(lambda(i_178 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" +"(if(pair? lst_81)" "(let-values(((e_72)" "(unsafe-car" -" lst_80))" +" lst_81))" "((rest_141)" "(unsafe-cdr" -" lst_80)))" +" lst_81)))" "(let-values(((i_39)" "(let-values(((i_40)" " i_178))" @@ -51056,7 +51064,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_196" +" v_194" " i_40" " elem_0)" "(not-an-fX.1" @@ -51083,8 +51091,8 @@ static const char *startup_source = " for-loop_253)" " 0" " lst_24)))))" -" v_196))))))" -"(if(equal? tmp_42 'flonum)" +" v_194))))))" +"(if(equal? tmp_41 'flonum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" "(begin" @@ -51096,17 +51104,17 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_235)(make-flvector len_37 fill_1)))" +"(let-values(((v_233)(make-flvector len_37 fill_1)))" "(begin" "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_92) seq_2))" +"(let-values(((lst_93) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_188)" "(lambda(i_179 lst_17)" "(begin" @@ -51119,7 +51127,7 @@ static const char *startup_source = "(unsafe-cdr" " lst_17)))" "(let-values(((i_159)" -"(let-values(((i_93)" +"(let-values(((i_92)" " i_179))" "(let-values(((i_180)" "(let-values()" @@ -51130,15 +51138,15 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_235" -" i_93" +" v_233" +" i_92" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_93)))))" +" i_92)))))" "(values" " i_180)))))" "(if(if(not" @@ -51156,8 +51164,8 @@ static const char *startup_source = " i_179)))))" " for-loop_188)" " 0" -" lst_92)))))" -" v_235))))))" +" lst_93)))))" +" v_233))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_38)(length seq_2)))" @@ -51170,12 +51178,12 @@ static const char *startup_source = "((temp24_7)" " \"~avector length ~a is too small, ~a values provided\")" "((temp25_7)" -"(let-values(((tmp_43) vector-mode_0))" -"(if(equal? tmp_43 'any)" +"(let-values(((tmp_42) vector-mode_0))" +"(if(equal? tmp_42 'any)" " (let-values () \"\")" -"(if(equal? tmp_43 'fixnum)" +"(if(equal? tmp_42 'fixnum)" " (let-values () \"fx\")" -"(if(equal? tmp_43 'flonum)" +"(if(equal? tmp_42 'flonum)" " (let-values () \"fl\")" "(let-values()(void)))))))" "((expected-len26_0) expected-len_0)" @@ -51193,11 +51201,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_236)" +"(lambda(v_234)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_236 in_29 config_39 #f)" +"(wrap v_234 in_29 config_39 #f)" "((letrec-values(((loop_110)" "(lambda(seq_3)" "(begin" @@ -51219,26 +51227,26 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((vec_67)" -"(let-values(((tmp_44) vector-mode_0))" -"(if(equal? tmp_44 'any)" +"(let-values(((tmp_43) vector-mode_0))" +"(if(equal? tmp_43 'any)" "(let-values()" "(make-vector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_44 'fixnum)" +"(if(equal? tmp_43 'fixnum)" "(let-values()" "(make-fxvector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_44 'flonum)" +"(if(equal? tmp_43 'flonum)" "(let-values()" "(make-flvector" " expected-len_0" "(last-or_0 0.0)))" "(let-values()(void))))))))" "(begin" -"(let-values(((tmp_45) vector-mode_0))" -"(if(equal? tmp_45 'any)" +"(let-values(((tmp_44) vector-mode_0))" +"(if(equal? tmp_44 'any)" "(let-values()" "(begin" "(let-values(((lst_9) seq_2)((start_55) 0))" @@ -51288,7 +51296,7 @@ static const char *startup_source = " lst_9" " start_55)))" "(void)))" -"(if(equal? tmp_45 'fixnum)" +"(if(equal? tmp_44 'fixnum)" "(let-values()" "(begin" "(let-values(((lst_227) seq_2)((start_56) 0))" @@ -51301,7 +51309,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_98)" "(lambda(lst_180 pos_109)" "(begin" " 'for-loop" @@ -51330,18 +51338,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" +"(for-loop_98" " rest_173" "(+" " pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_99)" +" for-loop_98)" " lst_227" " start_56)))" "(void)))" -"(if(equal? tmp_45 'flonum)" +"(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" "(let-values(((lst_313) seq_2)((start_57) 0))" @@ -51355,7 +51363,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_57)))" -"((letrec-values(((for-loop_109)" +"((letrec-values(((for-loop_108)" "(lambda(lst_280" " pos_117)" "(begin" @@ -51385,14 +51393,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_109" +"(for-loop_108" " rest_45" "(+" " pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_109)" +" for-loop_108)" " lst_313" " start_57)))" "(void)))" @@ -51423,8 +51431,8 @@ static const char *startup_source = "(if(decimal-digit? c3_3)" "(let-values()(read-simple-number in_32 config_42 c3_3))" " (let-values () (values #f \"\" c3_3)))))" -"(let-values(((tmp_46) c4_1))" -"(if(equal? tmp_46 '#\\()" +"(let-values(((tmp_45) c4_1))" +"(if(equal? tmp_45 '#\\()" "(let-values()" "(let-values(((read-one32_0) read-one_6)" "((temp33_3) '#\\()" @@ -51445,7 +51453,7 @@ static const char *startup_source = " temp35_2" " in36_1" " config37_0)))" -"(if(equal? tmp_46 '#\\[)" +"(if(equal? tmp_45 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_42)" "(let-values()" @@ -51473,7 +51481,7 @@ static const char *startup_source = "((config49_0) config_42)" " ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_89 c2_4))))" "(bad-syntax-error18.1 #f #f in48_0 config49_0 temp50_2)))))" -"(if(equal? tmp_46 '#\\{)" +"(if(equal? tmp_45 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_42)" "(let-values()" @@ -51527,7 +51535,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" "(let-values(((init-v_1)(digit->number init-c_9)))" -"(let-values(((v_98)" +"(let-values(((v_97)" "(let-values(((in69_0) in_34)" "((config70_0) config_43)" "((accum-str71_0) accum-str_2)" @@ -51547,7 +51555,7 @@ static const char *startup_source = " accum-str71_0" " #t))))" "(values" -" v_98" +" v_97" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_43)))" @@ -51561,10 +51569,10 @@ static const char *startup_source = "(read-char-or-special in_30 special1.1 source_22))))" "(let-values(((ec_5)(effective-char c_33 config_15)))" "(let-values(((seq_4)" -"(let-values(((tmp_47) ec_5))" -"(if(equal? tmp_47 '#\\()" +"(let-values(((tmp_46) ec_5))" +"(if(equal? tmp_46 '#\\()" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\( '#\\) in_5 config_15))" -"(if(equal? tmp_47 '#\\[)" +"(if(equal? tmp_46 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\[ '#\\] in_5 config_15))" @@ -51573,7 +51581,7 @@ static const char *startup_source = "((config2_1) config_15)" " ((temp3_7) (format \"~as~a\" dispatch-c_1 c_33)))" "(bad-syntax-error18.1 #f #f in1_2 config2_1 temp3_7)))))" -"(if(equal? tmp_47 '#\\{)" +"(if(equal? tmp_46 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\{ '#\\} in_5 config_15))" @@ -51748,8 +51756,8 @@ static const char *startup_source = "(let-values(((in_39) in_38)((source_23)(read-config-source config_46)))" "(read-char-or-special in_39 special1.1 source_23))))" "(let-values(((ec_6)(effective-char c_91 config_46)))" -"(let-values(((tmp_33) ec_6))" -"(if(equal? tmp_33 '#\\()" +"(let-values(((tmp_32) ec_6))" +"(if(equal? tmp_32 '#\\()" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_46)" @@ -51771,7 +51779,7 @@ static const char *startup_source = " temp13_2" " in14_0" " config15_0))))" -"(if(equal? tmp_33 '#\\[)" +"(if(equal? tmp_32 '#\\[)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_46)" @@ -51800,7 +51808,7 @@ static const char *startup_source = "((config25_0) config_46)" "((temp26_5)(get-accum_0(get-accum_0 c_91))))" "(bad-syntax-error18.1 #f #f in24_0 config25_0 temp26_5))))))" -"(if(equal? tmp_33 '#\\{)" +"(if(equal? tmp_32 '#\\{)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_46)" @@ -51830,13 +51838,13 @@ static const char *startup_source = "((temp36_5)(get-accum_0(get-accum_0 c_91))))" "(bad-syntax-error18.1 #f #f in34_1 config35_1 temp36_5))))))" "(let-values()" -"(let-values(((tmp_34) c_91))" -"(if(if(equal? tmp_34 '#\\=) #t(equal? tmp_34 '#\\#))" +"(let-values(((tmp_33) c_91))" +"(if(if(equal? tmp_33 '#\\=) #t(equal? tmp_33 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_359)(read-config-for-syntax? config_46)))" -"(if or-part_359" -" or-part_359" +"(if(let-values(((or-part_362)(read-config-for-syntax? config_46)))" +"(if or-part_362" +" or-part_362" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_0) in_38)" @@ -51882,8 +51890,8 @@ static const char *startup_source = " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" -"(let-values(((tmp_48) c_91))" -"(if(equal? tmp_48 '#\\=)" +"(let-values(((tmp_47) c_91))" +"(if(equal? tmp_47 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" "(let-values(((ht_159)(get-graph-hash config_46)))" @@ -51955,13 +51963,13 @@ static const char *startup_source = "(accum-string-abandon! accum-str_3 config_46)" "(placeholder-set! ph_1 result-v_0)" " ph_1)))))))" -"(if(equal? tmp_48 '#\\#)" +"(if(equal? tmp_47 '#\\#)" "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_360)" +"(let-values(((or-part_363)" "(read-config-state-graph(read-config-st config_46))))" -"(if or-part_360 or-part_360 '#hash()))" +"(if or-part_363 or-part_363 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_38)" @@ -52014,9 +52022,9 @@ static const char *startup_source = "(lambda(config_47)" "(begin" "(let-values(((st_3)(read-config-st config_47)))" -"(let-values(((or-part_146)(read-config-state-graph st_3)))" -"(if or-part_146" -" or-part_146" +"(let-values(((or-part_148)(read-config-state-graph st_3)))" +"(if or-part_148" +" or-part_148" "(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))" "(define-values" "(coerce-key)" @@ -52066,7 +52074,7 @@ static const char *startup_source = "(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))" "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" -"(let-values(((content_10 opener_4 mode_19)" +"(let-values(((content_11 opener_4 mode_19)" "((letrec-values(((loop_66)" "(lambda(mode_20)" "(begin" @@ -52080,8 +52088,8 @@ static const char *startup_source = " special1.1" " source_25))))" "(let-values(((ec_7)(effective-char c_68 config_46)))" -"(let-values(((tmp_49) ec_7))" -"(if(equal? tmp_49 '#\\()" +"(let-values(((tmp_48) ec_7))" +"(if(equal? tmp_48 '#\\()" "(let-values()" "(let-values(((read-one-key+value_0)" "(make-read-one-key+value" @@ -52117,7 +52125,7 @@ static const char *startup_source = " config14_0))" " ec_7" " mode_20)))" -"(if(equal? tmp_49 '#\\[)" +"(if(equal? tmp_48 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" @@ -52173,7 +52181,7 @@ static const char *startup_source = " config26_0" " temp27_6" "(list c28_1))))))" -"(if(equal? tmp_49 '#\\{)" +"(if(equal? tmp_48 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" @@ -52230,17 +52238,17 @@ static const char *startup_source = " config38_1" " temp39_7" "(list c40_1))))))" -"(if(if(equal? tmp_49 '#\\e)" +"(if(if(equal? tmp_48 '#\\e)" " #t" -"(equal? tmp_49 '#\\E))" +"(equal? tmp_48 '#\\E))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_68)" "(get-next!_0 '#\\q '#\\Q)" "(loop_66 'eq)))" -"(if(if(equal? tmp_49 '#\\v)" +"(if(if(equal? tmp_48 '#\\v)" " #t" -"(equal? tmp_49 '#\\V))" +"(equal? tmp_48 '#\\V))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_68)" @@ -52306,18 +52314,18 @@ static const char *startup_source = " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_46)) #t #f)))" "(wrap" -"(let-values(((tmp_50) mode_19))" -"(if(equal? tmp_50 'equal)" +"(let-values(((tmp_49) mode_19))" +"(if(equal? tmp_49 'equal)" "(let-values()" -"(if graph?_0(make-hash-placeholder content_10)(make-immutable-hash content_10)))" -"(if(equal? tmp_50 'eq)" +"(if graph?_0(make-hash-placeholder content_11)(make-immutable-hash content_11)))" +"(if(equal? tmp_49 'eq)" "(let-values()" -"(if graph?_0(make-hasheq-placeholder content_10)(make-immutable-hasheq content_10)))" -"(if(equal? tmp_50 'eqv)" +"(if graph?_0(make-hasheq-placeholder content_11)(make-immutable-hasheq content_11)))" +"(if(equal? tmp_49 'eqv)" "(let-values()" "(if graph?_0" -"(make-hasheqv-placeholder content_10)" -"(make-immutable-hasheqv content_10)))" +"(make-hasheqv-placeholder content_11)" +"(make-immutable-hasheqv content_11)))" "(let-values()(void))))))" " in_38" " config_46" @@ -52332,13 +52340,13 @@ static const char *startup_source = "(let-values(((ec_8)(effective-char c_93 config_48)))" "(let-values(((elem-config_1)(next-readtable config_48)))" "(let-values(((closer_4)" -"(let-values(((tmp_51) ec_8))" -"(if(equal? tmp_51 '#\\()" +"(let-values(((tmp_50) ec_8))" +"(if(equal? tmp_50 '#\\()" "(let-values() '#\\))" -"(if(equal? tmp_51 '#\\[)" +"(if(equal? tmp_50 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_48) '#\\] #f))" -"(if(equal? tmp_51 '#\\{)" +"(if(equal? tmp_50 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_48) '#\\} #f))" "(let-values() #f)))))))" @@ -52435,7 +52443,7 @@ static const char *startup_source = " temp71_1" "(list temp72_1)))))" "(values))))" -"(let-values(((v_237)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_235)(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_48)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -52466,7 +52474,7 @@ static const char *startup_source = " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_237))))))))))))))))))))))" +"(cons(coerce-key k_40 elem-config_1) v_235))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -52568,12 +52576,12 @@ static const char *startup_source = " escaped-c21_0" " mode22_0)))))))" "(begin" -"(let-values(((tmp_52) escaped-c_0))" +"(let-values(((tmp_51) escaped-c_0))" "(let-values(((index_3)" -"(if(char? tmp_52)" +"(if(char? tmp_51)" "(let-values(((codepoint_1)" "(char->integer" -" tmp_52)))" +" tmp_51)))" "(if(if(unsafe-fx>=" " codepoint_1" " 10)" @@ -52794,7 +52802,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_181)" +"(let-values(((v_179)" "(let-values(((in23_1)" " in_43)" "((config24_1)" @@ -52821,7 +52829,7 @@ static const char *startup_source = " accum-str25_0" " #t))))" "(begin" -"(if(<= v_181 255)" +"(if(<= v_179 255)" "(void)" "(let-values()" "(let-values(((in30_0)" @@ -52866,13 +52874,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_181)))))))))" +" v_179)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_238)" +"(let-values(((v_236)" "(let-values(((in39_1)" " in_43)" "((config40_0)" @@ -52895,13 +52903,13 @@ static const char *startup_source = " accum-str41_0" " #t))))" "(begin" -"(if(integer? v_238)" +"(if(integer? v_236)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_238" +" v_236" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -52910,7 +52918,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_238))))))" +" v_236))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -52925,7 +52933,7 @@ static const char *startup_source = "(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_239)" +"(let-values(((v_237)" "(let-values(((in44_1)" " in_43)" "((config45_1)" @@ -52948,23 +52956,23 @@ static const char *startup_source = " accum-str46_0" " #t))))" "(begin" -"(if(integer? v_239)" +"(if(integer? v_237)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_239" +" v_237" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_364)" "(<" -" v_239" +" v_237" " 55296)))" -"(if or-part_361" -" or-part_361" +"(if or-part_364" +" or-part_364" "(>" -" v_239" +" v_237" " 57343)))" "(let-values()" "(begin" @@ -52974,7 +52982,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_239))))" +" v_237))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53058,7 +53066,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_239" +" v_237" " 55296)" " 10)" "(-" @@ -53160,7 +53168,7 @@ static const char *startup_source = "(let-values(((pos_121)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_240)" +"(let-values(((v_238)" "(let-values(((in71_0)" " in_43)" "((config72_0)" @@ -53183,26 +53191,26 @@ static const char *startup_source = " accum-str73_0" " #t))))" "(begin" -"(if(integer? v_240)" +"(if(integer? v_238)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_240" +" v_238" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_145)" +"(if(if(let-values(((or-part_147)" "(<" -" v_240" +" v_238" " 55296)))" -"(if or-part_145" -" or-part_145" +"(if or-part_147" +" or-part_147" "(>" -" v_240" +" v_238" " 57343)))" "(<=" -" v_240" +" v_238" " 1114111)" " #f)" "(let-values()" @@ -53213,7 +53221,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_240))))" +" v_238))))" "(let-values()" "(let-values(((in76_0)" " in_43)" @@ -53514,7 +53522,7 @@ static const char *startup_source = "(let-values(((in_44) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_44 special1.1 source_6))))" -"(let-values(((v_83)" +"(let-values(((v_82)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -53523,7 +53531,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_83(<= v_83 255) #f)" +"(if(if v_82(<= v_82 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -53544,7 +53552,7 @@ static const char *startup_source = " config10_1" " temp12_5" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_83))))))" +"(integer->char v_82))))))" "(let-values() c_101))))" "(if(let-values(((or-part_69)(char=? c_101 '#\\u)))" "(if or-part_69 or-part_69(char=? c_101 '#\\U)))" @@ -53569,8 +53577,8 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_362)(< v_33 55296)))" -"(if or-part_362 or-part_362(> v_33 57343)))" +"(if(if(let-values(((or-part_365)(< v_33 55296)))" +"(if or-part_365 or-part_365(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" @@ -53665,26 +53673,26 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_53) name_66))" -" (if (if (equal? tmp_53 \"nul\") #t (equal? tmp_53 \"null\"))" +"(let-values(((tmp_52) name_66))" +" (if (if (equal? tmp_52 \"nul\") #t (equal? tmp_52 \"null\"))" "(let-values() '#\\nul)" -" (if (equal? tmp_53 \"backspace\")" +" (if (equal? tmp_52 \"backspace\")" "(let-values() '#\\backspace)" -" (if (equal? tmp_53 \"tab\")" +" (if (equal? tmp_52 \"tab\")" "(let-values() '#\\tab)" -" (if (if (equal? tmp_53 \"newline\")" +" (if (if (equal? tmp_52 \"newline\")" " #t" -" (equal? tmp_53 \"linefeed\"))" +" (equal? tmp_52 \"linefeed\"))" "(let-values() '#\\newline)" -" (if (equal? tmp_53 \"vtab\")" +" (if (equal? tmp_52 \"vtab\")" "(let-values() '#\\vtab)" -" (if (equal? tmp_53 \"page\")" +" (if (equal? tmp_52 \"page\")" "(let-values() '#\\page)" -" (if (equal? tmp_53 \"return\")" +" (if (equal? tmp_52 \"return\")" "(let-values() '#\\return)" -" (if (equal? tmp_53 \"space\")" +" (if (equal? tmp_52 \"space\")" "(let-values() '#\\space)" -" (if (equal? tmp_53 \"rubout\")" +" (if (equal? tmp_52 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" "(let-values(((in29_1) in_4)" @@ -53881,8 +53889,8 @@ static const char *startup_source = "(let-values(((in_27) in_5)" "((source_37)(read-config-source config_15)))" "(read-char-or-special in_27 special1.1 source_37))))" -"(let-values(((tmp_54) c4_2))" -" (if (equal? tmp_54 '#\\\")" +"(let-values(((tmp_53) c4_2))" +" (if (equal? tmp_53 '#\\\")" "(let-values()" "(let-values((()" "(begin(accum-string-abandon! accum-str_9 config_15)(values))))" @@ -54164,10 +54172,10 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_179)" +"(if(let-values(((or-part_181)" "(char-lang-nonsep? c_9)))" -"(if or-part_179" -" or-part_179" +"(if or-part_181" +" or-part_181" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" @@ -54301,17 +54309,17 @@ static const char *startup_source = "(lambda(c_105)" "(begin" "(if(<(char->integer c_105) 128)" -"(let-values(((or-part_276)(char-alphabetic? c_105)))" -"(if or-part_276" -" or-part_276" -"(let-values(((or-part_363)(char-numeric? c_105)))" -"(if or-part_363" -" or-part_363" -"(let-values(((or-part_305)(char=? '#\\- c_105)))" -"(if or-part_305" -" or-part_305" -"(let-values(((or-part_180)(char=? '#\\+ c_105)))" -"(if or-part_180 or-part_180(char=? '#\\_ c_105)))))))))" +"(let-values(((or-part_280)(char-alphabetic? c_105)))" +"(if or-part_280" +" or-part_280" +"(let-values(((or-part_366)(char-numeric? c_105)))" +"(if or-part_366" +" or-part_366" +"(let-values(((or-part_309)(char=? '#\\- c_105)))" +"(if or-part_309" +" or-part_309" +"(let-values(((or-part_182)(char=? '#\\+ c_105)))" +"(if or-part_182 or-part_182(char=? '#\\_ c_105)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -54405,7 +54413,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_54)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_364)" +"(let-values(((or-part_367)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_54)" @@ -54413,7 +54421,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_364 or-part_364(guard_0 mod-path-datum_0)))))" +"(if or-part_367 or-part_367(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" "(let-values(((no-value_0)(gensym)))" @@ -54558,10 +54566,10 @@ static const char *startup_source = "(lambda(in_44 config_55 prefix_7 c_38)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_428)" +"(lambda(s_424)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_428) s_428)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_424) s_424)))))" "(let-values(((in11_2) in_44)" "((config12_4) config_55)" "((c13_3) c_38)" @@ -54683,7 +54691,7 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_241)(read-one init-c_14 in_12 config_56)))" +"(let-values(((v_239)(read-one init-c_14 in_12 config_56)))" "(if(if(let-values(((or-part_94)(not recursive?_0)))" "(if or-part_94 or-part_94 local-graph?_1))" "(read-config-state-graph(read-config-st config_56))" @@ -54692,17 +54700,17 @@ static const char *startup_source = "(catch-and-reraise-as-reader/proc" " #f" " config_56" -"(lambda()(make-reader-graph v_241))))" +"(lambda()(make-reader-graph v_239))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_241))(not(1/special-comment? v_241)) #f)" +"(if(not(eof-object? v_239))(not(1/special-comment? v_239)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_56)(make-placeholder v_241)))" -"(let-values() v_241))))))))))))))))))))))))" +"(begin(get-graph-hash config_56)(make-placeholder v_239)))" +"(let-values() v_239))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -54777,12 +54785,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_59)" "(let-values()" "(let-values(((line_11 col_10 pos_123)(port-next-location in_64)))" -"(let-values(((v_184)(read-undotted init-c_15 in_64 config_59)))" -"(if(1/special-comment? v_184)" -"(let-values() v_184)" +"(let-values(((v_182)(read-undotted init-c_15 in_64 config_59)))" +"(if(1/special-comment? v_182)" +"(let-values() v_182)" "(let-values()" "((letrec-values(((loop_116)" -"(lambda(v_242)" +"(lambda(v_240)" "(begin" " 'loop" "(let-values(((c_107)" @@ -54798,9 +54806,9 @@ static const char *startup_source = "(if(eq? c_108 'special)(special1.1 'special) c_108)))))" "(let-values(((ec_9)(effective-char c_107 config_59)))" "(if(not(char? ec_9))" -"(let-values() v_242)" +"(let-values() v_240)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_107)(loop_116 v_242)))" +"(let-values()(begin(consume-char in_64 c_107)(loop_116 v_240)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -54820,13 +54828,13 @@ static const char *startup_source = "(read-undotted #f in_64 config_59)))" "(loop_116" "(wrap" -"(list cdot_0 v_242 post-v_0)" +"(list cdot_0 v_240 post-v_0)" " in_64" "(reading-at config_59 line_11 col_10 pos_123)" " '#\\.)))))))" -"(let-values() v_242))))))))))" +"(let-values() v_240))))))))))" " loop_116)" -" v_184))))))" +" v_182))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -54838,15 +54846,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_109))" "(let-values()" -"(let-values(((v_243)(special-value c_109)))" -"(if(1/special-comment? v_243)" -"(let-values()(if(read-config-keep-comment? config_54) v_243(read-undotted #f in_62 config_54)))" -"(let-values()(coerce v_243 in_62(reading-at config_54 line_12 col_11 pos_124))))))" +"(let-values(((v_241)(special-value c_109)))" +"(if(1/special-comment? v_241)" +"(let-values()(if(read-config-keep-comment? config_54) v_241(read-undotted #f in_62 config_54)))" +"(let-values()(coerce v_241 in_62(reading-at config_54 line_12 col_11 pos_124))))))" "(let-values(((c2_8)(readtable-handler config_54 c_109)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_244)(readtable-apply handler_3 c_109 in_62 config_54 line_12 col_11 pos_124)))" -"(retry-special-comment v_244 in_62 config_54)))" +"(let-values(((v_242)(readtable-apply handler_3 c_109 in_62 config_54 line_12 col_11 pos_124)))" +"(retry-special-comment v_242 in_62 config_54)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_109 config_54)))" @@ -54857,10 +54865,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((r-config_0)(reading-at(discard-comment config_54) line_12 col_11 pos_124)))" -"(let-values(((tmp_55) ec_10))" +"(let-values(((tmp_54) ec_10))" "(let-values(((index_4)" -"(if(char? tmp_55)" -"(let-values(((codepoint_2)(char->integer tmp_55)))" +"(if(char? tmp_54)" +"(let-values(((codepoint_2)(char->integer tmp_54)))" "(if(if(unsafe-fx>= codepoint_2 34)(unsafe-fx< codepoint_2 126) #f)" "(if(unsafe-fx< codepoint_2 91)" "(if(unsafe-fx< codepoint_2 40)" @@ -54915,14 +54923,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_245)" +"(let-values(((v_243)" "(let-values(((c79_1) c_109)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_4)" -"(if(let-values(((or-part_326)(eq? c_109 ec_10)))" -"(if or-part_326" -" or-part_326" +"(if(let-values(((or-part_330)(eq? c_109 ec_10)))" +"(if or-part_330" +" or-part_330" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -54936,7 +54944,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_245 in_62 config_54)))" +"(retry-special-comment v_243 in_62 config_54)))" "(let-values()(read-dispatch c_109 in_62 r-config_0 config_54)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_109 in_62 r-config_0))" @@ -55067,10 +55075,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_368)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_365" -" or-part_365" +"(if or-part_368" +" or-part_368" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(wrap" @@ -55118,10 +55126,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_366)" +"(if(let-values(((or-part_369)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_366" -" or-part_366" +"(if or-part_369" +" or-part_369" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(let-values(((in113_0) in_62)" @@ -55161,10 +55169,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_367)" +"(if(let-values(((or-part_370)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_367" -" or-part_367" +"(if or-part_370" +" or-part_370" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(wrap" @@ -55213,10 +55221,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_368)" +"(if(let-values(((or-part_371)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_368" -" or-part_368" +"(if or-part_371" +" or-part_371" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -55300,15 +55308,15 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_5)))" "(let-values(((col_12)(read-config-col config_5)))" "(let-values(((pos_125)(read-config-pos config_5)))" -"(let-values(((v_246)(readtable-apply handler_4 c_111 in_67 config_5 line_13 col_12 pos_125)))" -"(retry-special-comment v_246 in_67 orig-config_0))))))" +"(let-values(((v_244)(readtable-apply handler_4 c_111 in_67 config_5 line_13 col_12 pos_125)))" +"(retry-special-comment v_244 in_67 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" -"(let-values(((tmp_56) c_111))" +"(let-values(((tmp_55) c_111))" "(let-values(((index_5)" -"(if(char? tmp_56)" -"(let-values(((codepoint_3)(char->integer tmp_56)))" +"(if(char? tmp_55)" +"(let-values(((codepoint_3)(char->integer tmp_55)))" "(if(if(unsafe-fx>= codepoint_3 33)(unsafe-fx< codepoint_3 127) #f)" "(let-values(((tbl_5)" " '#(34" @@ -55627,8 +55635,8 @@ static const char *startup_source = "(if(eq? c_115 'special)(special1.1 'special) c_115)))))" "(if(char-delimiter? c2_13 config_5)" "(let-values()(wrap #f in_67 config_5 c_111))" -"(if(let-values(((or-part_350)(char=? c2_13 '#\\x)))" -"(if or-part_350 or-part_350(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_353)(char=? c2_13 '#\\x)))" +"(if or-part_353 or-part_353(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -55742,11 +55750,11 @@ static const char *startup_source = "(let-values(((in_73) in_67)" "((source_49)(read-config-source config_5)))" "(read-char-or-special in_73 special1.1 source_49))))" -"(let-values(((tmp_57) c2_14))" -"(if(if(equal? tmp_57 '#\\s) #t(equal? tmp_57 '#\\S))" +"(let-values(((tmp_56) c2_14))" +"(if(if(equal? tmp_56 '#\\s) #t(equal? tmp_56 '#\\S))" "(let-values()" "(read-one #f in_67(override-parameter read-case-sensitive config_5 #t)))" -"(if(if(equal? tmp_57 '#\\i) #t(equal? tmp_57 '#\\I))" +"(if(if(equal? tmp_56 '#\\i) #t(equal? tmp_56 '#\\I))" "(let-values()" "(read-one" " #f" @@ -55785,10 +55793,10 @@ static const char *startup_source = "(if(char? c2_15)" "(let-values()(accum-string-add! accum-str_12 c2_15))" "(void))" -"(let-values(((tmp_58) c2_15))" -"(if(equal? tmp_58 '#\\x)" +"(let-values(((tmp_57) c2_15))" +"(if(equal? tmp_57 '#\\x)" "(let-values()(read-regexp c_111 accum-str_12 in_67 config_5))" -"(if(equal? tmp_58 '#\\e)" +"(if(equal? tmp_57 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" @@ -55827,8 +55835,8 @@ static const char *startup_source = "(if(char? c2_16)" "(let-values()(accum-string-add! accum-str_13 c2_16))" "(void))" -"(let-values(((tmp_59) c2_16))" -"(if(equal? tmp_59 '#\\x)" +"(let-values(((tmp_58) c2_16))" +"(if(equal? tmp_58 '#\\x)" "(let-values()(read-regexp c_111 accum-str_13 in_67 config_5))" "(let-values()" "(let-values(((in262_0) in_67)" @@ -55896,11 +55904,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_247 in_76 config_60)" +"(lambda(v_245 in_76 config_60)" "(begin" -"(if(1/special-comment? v_247)" -"(let-values()(if(read-config-keep-comment? config_60) v_247(read-undotted #f in_76 config_60)))" -"(let-values() v_247)))))" +"(if(1/special-comment? v_245)" +"(let-values()(if(read-config-keep-comment? config_60) v_245(read-undotted #f in_76 config_60)))" +"(let-values() v_245)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -56012,7 +56020,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_92 #f)))" -"(let-values(((or-part_291)(not b/p_3)))(if or-part_291 or-part_291(provided-as-protected? b/p_3)))))" +"(let-values(((or-part_295)(not b/p_3)))(if or-part_295 or-part_295(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -56170,19 +56178,19 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_31 ns_115 name_70)" "(begin" -"(let-values(((or-part_369)(namespace->module ns_115 name_70)))" -"(if or-part_369" -" or-part_369" +"(let-values(((or-part_372)(namespace->module ns_115 name_70)))" +"(if or-part_372" +" or-part_372" " (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_70))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_370)(1/module-path? mod_24)))" -"(if or-part_370" -" or-part_370" -"(let-values(((or-part_134)(1/module-path-index? mod_24)))" -"(if or-part_134 or-part_134(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_373)(1/module-path? mod_24)))" +"(if or-part_373" +" or-part_373" +"(let-values(((or-part_136)(1/module-path-index? mod_24)))" +"(if or-part_136 or-part_136(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-path32.1)" @@ -56353,10 +56361,10 @@ static const char *startup_source = "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" -"(let-values(((tmp_60) rep_1))" -"(if(equal? tmp_60 '#\\[)" +"(let-values(((tmp_59) rep_1))" +"(if(equal? tmp_59 '#\\[)" "(let-values() original-square-props)" -"(if(equal? tmp_60 '#\\{)" +"(if(equal? tmp_59 '#\\{)" "(let-values() original-curly-props)" "(let-values() original-props))))))" "(syntax1.1" @@ -56379,11 +56387,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_190 srcloc_12)" +"(lambda(for-syntax?_12 v_188 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_190)(let-values()(syntax->datum$1 v_190))(let-values() v_190)))" -"(let-values()(datum->syntax$1 #f v_190(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" +"(let-values()(if(syntax?$1 v_188)(let-values()(syntax->datum$1 v_188))(let-values() v_188)))" +"(let-values()(datum->syntax$1 #f v_188(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -56473,13 +56481,13 @@ static const char *startup_source = "(if(input-port? in_83)" "(void)" " (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_371)(char? start_60)))" -"(if or-part_371 or-part_371(not start_60)))" +"(if(let-values(((or-part_374)(char? start_60)))" +"(if or-part_374 or-part_374(not start_60)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_60)))" -"(if(let-values(((or-part_174)(1/readtable? readtable_7)))" -"(if or-part_174 or-part_174(not readtable_7)))" +"(if(let-values(((or-part_176)(1/readtable? readtable_7)))" +"(if or-part_176 or-part_176(not readtable_7)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_7)))" @@ -56522,12 +56530,12 @@ static const char *startup_source = "(if(input-port? in_86)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_86)))" -"(if(let-values(((or-part_169)(char? start_63)))" -"(if or-part_169 or-part_169(not start_63)))" +"(if(let-values(((or-part_171)(char? start_63)))" +"(if or-part_171 or-part_171(not start_63)))" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_63)))" -"(if(let-values(((or-part_170)(1/readtable? readtable_9)))" -"(if or-part_170 or-part_170(not readtable_9)))" +"(if(let-values(((or-part_172)(1/readtable? readtable_9)))" +"(if or-part_172 or-part_172(not readtable_9)))" "(void)" "(let-values()" " (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" @@ -56567,13 +56575,13 @@ static const char *startup_source = "(eval$1)" "(case-lambda" "((s_0)(begin 'eval((1/current-eval)(intro s_0))))" -"((s_154 ns_59)" +"((s_153 ns_59)" "(begin" " (if (1/namespace? ns_59) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_59)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_59)" -"(let-values()((1/current-eval)(intro s_154 ns_59))))))))" +"(let-values()((1/current-eval)(intro s_153 ns_59))))))))" "(define-values" "(1/eval-syntax)" "(case-lambda" @@ -56583,14 +56591,14 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_168 ns_116)" +"((s_167 ns_116)" "(begin" -" (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" +" (if (syntax?$1 s_167) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_167)))" " (if (1/namespace? ns_116) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_116)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_116)" -"(let-values()((1/current-eval) s_168)))))))" +"(let-values()((1/current-eval) s_167)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" "(1/compile-syntax)" @@ -56600,15 +56608,15 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_3) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_3)))" "((1/current-compile) s_3 #f)))))" -"(define-values(1/expand)(lambda(s_169)(begin 'expand(expand$1(intro s_169)(1/current-namespace) #t))))" +"(define-values(1/expand)(lambda(s_168)(begin 'expand(expand$1(intro s_168)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_143)" +"(lambda(s_144)" "(begin" " 'expand-syntax" "(begin" -" (if (syntax?$1 s_143) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_143)))" -"(expand$1 s_143(1/current-namespace) #t)))))" +" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_144)))" +"(expand$1 s_144(1/current-namespace) #t)))))" "(define-values(1/expand-once)(lambda(s_67)(begin 'expand-once(expand-once$1(intro s_67)))))" "(define-values" "(1/expand-syntax-once)" @@ -56620,15 +56628,15 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_475)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_475)))))" +"(lambda(s_470)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_470)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_423)" +"(lambda(s_419)" "(begin" " 'expand-syntax-to-top-form" "(begin" -" (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_423)))" -"(expand-to-top-form$1 s_423)))))" +" (if (syntax?$1 s_419) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_419)))" +"(expand-to-top-form$1 s_419)))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -56655,18 +56663,18 @@ static const char *startup_source = "((temp8_5)" "(hasheqv" " 0" -"(let-values(((lst_78)(1/instance-variable-names inst_7)))" +"(let-values(((lst_79)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_95)" -"(lambda(table_213 lst_79)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_94)" +"(lambda(table_213 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((sym_60)(unsafe-car lst_79))" -"((rest_36)(unsafe-cdr lst_79)))" +"(if(pair? lst_80)" +"(let-values(((sym_60)(unsafe-car lst_80))" +"((rest_36)(unsafe-cdr lst_80)))" "(let-values(((table_219)" "(let-values(((table_174) table_213))" "(let-values(((table_175)" @@ -56720,12 +56728,12 @@ static const char *startup_source = " val_77)))))" "(values table_175)))))" "(if(not #f)" -"(for-loop_95 table_219 rest_36)" +"(for-loop_94 table_219 rest_36)" " table_219)))" " table_213)))))" -" for-loop_95)" +" for-loop_94)" " '#hash()" -" lst_78)))))" +" lst_79)))))" "((temp9_6)" "(lambda(data-box_5" " ns_46" @@ -56811,7 +56819,7 @@ static const char *startup_source = "((temp3_9)(substitute-module-declare-name name_71)))" "(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))" "(define-values" -"(prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" +"(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" "(lambda(v_27 info_6)" @@ -56836,7 +56844,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons prop:exn:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" +"(cons 1/prop:exn:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" " #f" " #f" " '(0)" @@ -56857,7 +56865,8 @@ static const char *startup_source = " 1" " 0" " #f" -"(list(cons prop:exn:missing-module(lambda(e_72)(1/exn:fail:syntax:missing-module-path e_72))))" +"(list" +"(cons 1/prop:exn:missing-module(lambda(e_72)(1/exn:fail:syntax:missing-module-path e_72))))" " #f" " #f" " '(0)" @@ -56868,13 +56877,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_182)" +"(lambda(v_180)" "(begin" -"(if(let-values(((or-part_173)(not v_182)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_141)(1/module-path? v_182)))" -"(if or-part_141 or-part_141(if(syntax?$1 v_182)(1/module-path?(syntax->datum$1 v_182)) #f)))))" +"(if(let-values(((or-part_175)(not v_180)))" +"(if or-part_175" +" or-part_175" +"(let-values(((or-part_143)(1/module-path? v_180)))" +"(if or-part_143 or-part_143(if(syntax?$1 v_180)(1/module-path?(syntax->datum$1 v_180)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -56883,8 +56892,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_182)))" -" v_182))))" +" v_180)))" +" v_180))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -56968,22 +56977,22 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" -"((s_145 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_145 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_169 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_169 context_1 stop-ids_3 #f #f)))" +"((s_146 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_146 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_428) s12_2))" +"(let-values(((s_424) s12_2))" "(let-values(((context_12) context13_0))" "(let-values(((stop-ids_5) stop-ids14_0))" "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" "(let-values(((temp64_3) 'local-expand)" -"((s65_0) s_428)" +"((s65_0) s_424)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -57011,23 +57020,23 @@ static const char *startup_source = "(case-lambda" "((s_72 context_13 stop-ids_6)" "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_72 context_13 stop-ids_6 #f #f #f #f)))" -"((s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_184 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_184 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_174 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_174 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_183 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_183 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_309) s19_1))" +"(let-values(((s_303) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_309)" +"((s72_0) s_303)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -57052,10 +57061,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_476 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_476 context_17 stop-ids_10 #f #f)))" -"((s_415 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_415 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_471 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_471 context_17 stop-ids_10 #f #f)))" +"((s_409 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_409 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57096,12 +57105,12 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_477 context_20 stop-ids_13)" +"((s_472 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_477 context_20 stop-ids_13 #f #f #f #f)))" -"((s_410 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_410 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"(local-transformer-expand/capture-lifts31_0 s_472 context_20 stop-ids_13 #f #f #f #f)))" +"((s_406 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_406 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_81 context_22 stop-ids_15 intdefs24_1)" "(local-transformer-expand/capture-lifts31_0 s_81 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" @@ -57110,12 +57119,12 @@ static const char *startup_source = "(lambda(s35_0 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_478) s35_0))" +"(let-values(((s_473) s35_0))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_478)" +"((s86_1) s_473)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -57198,8 +57207,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_372) capture-lifts?_0))" -"(if or-part_372 or-part_372 as-transformer?_5))" +"(if(let-values(((or-part_375) capture-lifts?_0))" +"(if or-part_375 or-part_375 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57207,12 +57216,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_395)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_389)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_176)(list? context_23)))" -"(if or-part_176" -" or-part_176" +"(if(let-values(((or-part_178)(list? context_23)))" +"(if or-part_178" +" or-part_178" "(memq" " context_23" "(if as-transformer?_5" @@ -57229,9 +57238,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_177)(not stop-ids_16)))" -"(if or-part_177" -" or-part_177" +"(if(let-values(((or-part_179)(not stop-ids_16)))" +"(if or-part_179" +" or-part_179" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -57244,9 +57253,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_178)(not intdefs_9)))" -"(if or-part_178" -" or-part_178" +"(if(let-values(((or-part_180)(not intdefs_9)))" +"(if or-part_180" +" or-part_180" "(let-values(((or-part_57)" "(1/internal-definition-context? intdefs_9)))" "(if or-part_57" @@ -57305,12 +57314,12 @@ static const char *startup_source = "(call-expand-observe" " obs_61" " 'enter-local" -" s_395)))" +" s_389)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_395 ctx_74))" +"(flip-introduction-scopes s_389 ctx_74))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -57522,32 +57531,32 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_475)(syntax-arm$1 s_475 insp_21))" +"(lambda(s_470)(syntax-arm$1 s_470 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" "(case-lambda" -"((s_423)(begin 'syntax-arm(syntax-arm6_0 s_423 #f #f #f #f)))" -"((s_479 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_479 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_480 maybe-insp1_1)(syntax-arm6_0 s_480 maybe-insp1_1 #f #t #f)))))" +"((s_419)(begin 'syntax-arm(syntax-arm6_0 s_419 #f #f #f #f)))" +"((s_474 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_474 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_475 maybe-insp1_1)(syntax-arm6_0 s_475 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_430 maybe-insp_2)" +"(lambda(s_426 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values((()" "(begin" -"(if(syntax?$1 s_430)" +"(if(syntax?$1 s_426)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_430)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_426)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_297)(not maybe-insp_2)))" -"(if or-part_297 or-part_297(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_301)(not maybe-insp_2)))" +"(if or-part_301 or-part_301(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_430 insp_22)))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_426 insp_22)))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -57569,20 +57578,20 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_40" -"(lambda(s_429)(syntax-rearm$1 s_429 from-s_2))" +"(lambda(s_425)(syntax-rearm$1 s_425 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" -"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_181 from-s_3 #f #f)))" -"((s_173 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_173 from-s_4 use-mode?8_1 #t)))))" +"((s_180 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_180 from-s_3 #f #f)))" +"((s_172 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_172 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_160)" +"(lambda(s_159)" "(begin" " 'syntax-taint" "(begin" -" (if (syntax?$1 s_160) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_160)))" -"(syntax-taint$1 s_160)))))" +" (if (syntax?$1 s_159) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_159)))" +"(syntax-taint$1 s_159)))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" @@ -57700,9 +57709,9 @@ static const char *startup_source = " \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_218)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_218" -" or-part_218" +"(let-values(((or-part_221)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_221" +" or-part_221" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))" @@ -57890,7 +57899,7 @@ static const char *startup_source = "(add-core-primitive! 'make-exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1)" "(add-core-primitive! 'exn:fail:syntax:unbound? 1/exn:fail:syntax:unbound?)" "(add-core-primitive! 'current-module-path-for-load 1/current-module-path-for-load)" -"(add-core-primitive! 'prop:exn:missing-module prop:exn:missing-module)" +"(add-core-primitive! 'prop:exn:missing-module 1/prop:exn:missing-module)" "(add-core-primitive! 'exn:missing-module? 1/exn:missing-module?)" "(add-core-primitive! 'exn:missing-module-accessor 1/exn:missing-module-accessor)" "(add-core-primitive! 'struct:exn:fail:filesystem:missing-module 1/struct:exn:fail:filesystem:missing-module)" @@ -58266,10 +58275,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_373)" +"(if(let-values(((or-part_376)" " protected?_11))" -"(if or-part_373" -" or-part_373" +"(if or-part_376" +" or-part_376" "(member" " sym_98" " protected-syms_0)))" @@ -58436,11 +58445,11 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_55) require-mpis_0))" +"(let-values(((lst_56) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_55)))" +"(let-values()(check-list lst_56)))" "((letrec-values(((for-loop_280)" "(lambda(table_228 lst_316)" "(begin" @@ -58530,7 +58539,7 @@ static const char *startup_source = " table_228)))))" " for-loop_280)" " '#hash()" -" lst_55))))" +" lst_56))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -58918,8 +58927,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_308)(eof-object? exp_0)))" -"(if or-part_308 or-part_308(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" @@ -59034,10 +59043,10 @@ static const char *startup_source = "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s_169)(1/read-syntax(object-name i_185) i_185)))" "(let-values((()" "(begin" -"(if(eof-object? s_170)" +"(if(eof-object? s_169)" "(let-values()" "(error" " 'default-load-handler" @@ -59048,7 +59057,7 @@ static const char *startup_source = "(object-name i_185)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_170 path_12)))" +"(let-values(((m-s_0)(check-module-form s_169 path_12)))" "(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" "(begin" "(if(eof-object? s2_7)" @@ -59066,23 +59075,23 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_430)" +"(lambda(s_426)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax s_430(cons '#%top-interaction s_430)))))))" +"(1/datum->syntax s_426(cons '#%top-interaction s_426)))))))" "(let-values(((path1_0) path_12)" "((temp2_7)" -"(lambda(i_77)" +"(lambda(i_76)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_77)" +"(maybe-count-lines!_0 i_76)" "((letrec-values(((loop_111)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_303)" +"(let-values(((s_297)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59107,19 +59116,19 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_77)" -" i_77)))" +"(object-name i_76)" +" i_76)))" "(1/read-syntax" -"(object-name i_77)" -" i_77))))))" -"(if(eof-object? s_303)" +"(object-name i_76)" +" i_76))))))" +"(if(eof-object? s_297)" "(apply values vals_7)" "(loop_111" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_303)))" +"((1/current-eval)(add-top-interaction_0 s_297)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -59150,10 +59159,10 @@ static const char *startup_source = "(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_154 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_85)" +"(lambda(i_84)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_85 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_84 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_84) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_68 len_39)" @@ -59186,9 +59195,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_94)" +"(lambda(i_93)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_93)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" @@ -59200,7 +59209,7 @@ static const char *startup_source = "(lambda(i_186)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_181)(read-byte i_186)))(if(eof-object? v_181) 0 v_181))))))" +"(let-values(((v_179)(read-byte i_186)))(if(eof-object? v_179) 0 v_179))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -59215,9 +59224,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_187 pos_128)(values))))" "(let-values(((name-len_0)(read-number i_187)))" -"(let-values(((v_248)(read-bytes name-len_0 i_187)))" +"(let-values(((v_246)(read-bytes name-len_0 i_187)))" "(begin" -"(if(if(bytes? v_248)(=(bytes-length v_248) name-len_0) #f)" +"(if(if(bytes? v_246)(=(bytes-length v_246) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59231,10 +59240,10 @@ static const char *startup_source = "(object-name i_187)" " pos_128" " name-len_0" -" v_248)))" -"(if(bytes=? bstr_5 v_248)" +" v_246)))" +"(if(bytes=? bstr_5 v_246)" "(let-values()(read-number i_187))" -"(if(bytesbytes/utf-8" -"(symbol->string s_467))))" +"(symbol->string s_461))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -59294,9 +59303,9 @@ static const char *startup_source = " bstr_6))))))" " fold-var_64))))" "(values fold-var_70)))))" -"(if(not #f)(for-loop_103 fold-var_20 rest_44) fold-var_20)))" +"(if(not #f)(for-loop_102 fold-var_20 rest_44) fold-var_20)))" " fold-var_63)))))" -" for-loop_103)" +" for-loop_102)" " null" " lst_317))))))))))" "(define-values" @@ -59326,13 +59335,13 @@ static const char *startup_source = "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_154)" +"(lambda(s_153)" "(begin" " 'resolve" -"(if(complete-path? s_154)" -" s_154" -"(let-values(((d_36)(current-load-relative-directory)))" -"(if d_36(path->complete-path s_154 d_36) s_154)))))))" +"(if(complete-path? s_153)" +" s_153" +"(let-values(((d_35)(current-load-relative-directory)))" +"(if d_35(path->complete-path s_153 d_35) s_153)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -59362,7 +59371,7 @@ static const char *startup_source = "(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))" " #f)))))" "(let-values(((with-dir*_0)" -"(lambda(base_25 t_55)" +"(lambda(base_25 t_56)" "(begin" " 'with-dir*" "(with-continuation-mark" @@ -59371,7 +59380,7 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" "(if(path? base_25) base_25(current-directory)))" -"(let-values()(t_55)))))))" +"(let-values()(t_56)))))))" "(lambda(path_15 expect-module_0)" "(begin" "(let-values((()" @@ -59382,9 +59391,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_165)(not expect-module_0)))" -"(if or-part_165" -" or-part_165" +"(if(let-values(((or-part_167)(not expect-module_0)))" +"(if or-part_167" +" or-part_167" "(let-values(((or-part_72)(symbol? expect-module_0)))" "(if or-part_72" " or-part_72" @@ -59448,14 +59457,14 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_73 d_37)" +"(lambda(p_74 d_36)" "(begin" " 'reroot" -"(if(eq? d_37 'same)" -"(let-values() p_73)" -"(if(relative-path? d_37)" -"(let-values()(build-path p_73 d_37))" -"(let-values()(reroot-path p_73 d_37))))))))" +"(if(eq? d_36 'same)" +"(let-values() p_74)" +"(if(relative-path? d_36)" +"(let-values()(build-path p_74 d_36))" +"(let-values()(reroot-path p_74 d_36))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -59496,23 +59505,23 @@ 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_284) main-path-d_0))" -"(if or-part_284" -" or-part_284" +"(let-values(((or-part_288) main-path-d_0))" +"(if or-part_288" +" or-part_288" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_291)" +"(let-values(((or-part_295)" " alt-path-d_0))" -"(if or-part_291" -" or-part_291" +"(if or-part_295" +" or-part_295" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" -"(lambda(t_56)" +"(lambda(t_57)" "(begin" " 'with-dir" -"(with-dir*_0 base_26 t_56)))))" +"(with-dir*_0 base_26 t_57)))))" "(let-values(((c1_32)" "(if try-main?_0" "(date>=?_0" @@ -59627,22 +59636,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_359)" +"(if(let-values(((or-part_362)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_359" -" or-part_359" +"(if or-part_362" +" or-part_362" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_39)" +"(let-values(((p_40)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_39))" +"(file-exists? p_40))" " #f)" "(void)" "(let-values()" @@ -59655,14 +59664,14 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_39" +" p_40" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_39" +" p_40" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -59677,59 +59686,59 @@ static const char *startup_source = "(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_201)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_201)))))" +"(lambda(reg_1 v_199)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_199)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_74)" +"(lambda(p_75)" "(begin" -"(let-values(((i_26)(modulo(abs(equal-hash-code p_74)) CACHE-N)))" +"(let-values(((i_26)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" "(let-values(((w_1)(vector-ref -path-cache i_26)))" "(let-values(((l_80)(if w_1(weak-box-value w_1) #f)))" -"(if l_80(let-values(((a_71)(1/assoc p_74 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" +"(if l_80(let-values(((a_71)(1/assoc p_75 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_75 v_249)" +"(lambda(p_76 v_247)" "(begin" -"(let-values(((i_188)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" +"(let-values(((i_188)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_188)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" " i_188" "(make-weak-box" -"(cons(cons p_75 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_76 v_247)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 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_477 coll-mode?_0)" +"(lambda(s_472 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_117)" -"(lambda(s_481)" +"(lambda(s_476)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_481)))" +"(let-values(((len_41)(string-length s_476)))" "((letrec-values(((iloop_2)" -"(lambda(i_102)" +"(lambda(i_101)" "(begin" " 'iloop" -"(if(= i_102 len_41)" -"(let-values()(list s_481))" -"(if(char=? '#\\/(string-ref s_481 i_102))" +"(if(= i_101 len_41)" +"(let-values()(list s_476))" +"(if(char=? '#\\/(string-ref s_476 i_101))" "(let-values()" "(cons" -"(substring s_481 0 i_102)" -"(loop_117(substring s_481(add1 i_102)))))" -"(let-values()(iloop_2(add1 i_102)))))))))" +"(substring s_476 0 i_101)" +"(loop_117(substring s_476(add1 i_101)))))" +"(let-values()(iloop_2(add1 i_101)))))))))" " iloop_2)" " 0))))))" " loop_117)" -" s_477)))" +" s_472)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -59744,15 +59753,15 @@ static const char *startup_source = " l_19))))))" "(define-values" "(format-source-location)" -"(lambda(stx_16)" +"(lambda(stx_17)" "(begin" "(srcloc->string" "(srcloc" -"(1/syntax-source stx_16)" -"(1/syntax-line stx_16)" -"(1/syntax-column stx_16)" -"(1/syntax-position stx_16)" -"(1/syntax-span stx_16))))))" +"(1/syntax-source stx_17)" +"(1/syntax-line stx_17)" +"(1/syntax-column stx_17)" +"(1/syntax-position stx_17)" +"(1/syntax-span stx_17))))))" "(define-values(orig-paramz) #f)" "(define-values" "(standard-module-name-resolver)" @@ -59772,29 +59781,29 @@ 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_478 from-namespace_1)" +"((s_473 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_478)" +"(if(1/resolved-module-path? s_473)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_478)))" -"(if(let-values(((or-part_134)(not from-namespace_1)))" -"(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_473)))" +"(if(let-values(((or-part_136)(not from-namespace_1)))" +"(if or-part_136 or-part_136(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_478))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_473))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_310)" +"(let-values(((or-part_314)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_310" -" or-part_310" +"(if or-part_314" +" or-part_314" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -59802,14 +59811,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_478 'declared)" +"(hash-set!(car hts_1) s_473 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_478))" +"(if(pair?(1/resolved-module-path-name s_473))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_478)))" -" s_478))" +"(car(1/resolved-module-path-name s_473)))" +" s_473))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -59821,22 +59830,22 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_482 relto_0 stx_17)" +"((s_477 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_482 relto_0 stx_17 #t)))" -"((s_26 relto_1 stx_18 load?_7)" +"(standard-module-name-resolver_0 s_477 relto_0 stx_18 #t)))" +"((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" "(if(1/module-path? s_26)" "(void)" "(let-values()" -"(if(syntax?$1 stx_18)" -" (raise-syntax-error$1 #f \"bad module path\" stx_18)" +"(if(syntax?$1 stx_19)" +" (raise-syntax-error$1 #f \"bad module path\" stx_19)" "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" @@ -59844,8 +59853,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_137)(not relto_1)))" -"(if or-part_137 or-part_137(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_139)(not relto_1)))" +"(if or-part_139 or-part_139(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -59855,14 +59864,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_54)(not stx_18)))" -"(if or-part_54 or-part_54(syntax?$1 stx_18)))" +"(if(let-values(((or-part_54)(not stx_19)))" +"(if or-part_54 or-part_54(syntax?$1 stx_19)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f syntax?)\"" -" stx_18)))" +" stx_19)))" "(values))))" "(let-values(((flatten-sub-path_0)" "(lambda(base_28 orig-l_10)" @@ -59917,11 +59926,11 @@ static const char *startup_source = " (if (let-values (((or-part_93) (equal? (cadr s_26) \".\")))" " (if or-part_93 or-part_93 (equal? (cadr s_26) \"..\")))" "(if relto_1" -"(let-values(((p_76)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_374)(symbol? p_76)))" -"(if or-part_374" -" or-part_374" -"(if(pair? p_76)(symbol?(car p_76)) #f))))" +"(let-values(((p_77)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_377)(symbol? p_77)))" +"(if or-part_377" +" or-part_377" +"(if(pair? p_77)(symbol?(car p_77)) #f))))" " #f)" " #f)" " #f)" @@ -59938,7 +59947,7 @@ static const char *startup_source = "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_26 relto_1 stx_18 load?_7 #f orig-paramz)))" +"(planet-resolver_0 s_26 relto_1 stx_19 load?_7 #f orig-paramz)))" "(if(if(pair? s_26)" "(if(eq?(car s_26) 'submod)" "(if(pair?(cadr s_26))(eq?(caadr s_26) 'planet) #f)" @@ -59950,7 +59959,7 @@ static const char *startup_source = "(planet-resolver_0" "(cadr s_26)" " relto_1" -" stx_18" +" stx_19" " load?_7" "(cddr s_26)" " orig-paramz)))" @@ -59963,19 +59972,19 @@ static const char *startup_source = "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_77)" +"(let-values(((p_78)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_78)" -"(if(pair? p_77)" -"(car p_77)" -" p_77)))" -"(if(path? p_78)" +"(let-values(((p_79)" +"(if(pair? p_78)" +"(car p_78)" +" p_78)))" +"(if(path? p_79)" "(let-values(((base_29" " n_35" " d?_0)" "(split-path" -" p_78)))" +" p_79)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -60001,15 +60010,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_375)" -"(if stx_18" +"(let-values(((or-part_378)" +"(if stx_19" "(if(error-print-source-location)" "(format-source-location" -" stx_18)" +" stx_19)" " #f)" " #f)))" -"(if or-part_375" -" or-part_375" +"(if or-part_378" +" or-part_378" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60019,11 +60028,11 @@ static const char *startup_source = " \"\\n for module path: ~s\\n\"" " s_26)))))" "(raise" -"(if stx_18" +"(if stx_19" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" -"(list stx_18)" +"(list stx_19)" " s_26)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" @@ -60052,24 +60061,24 @@ static const char *startup_source = " \".rkt\")" " s_84)))))" "((path-ss->rkt_0)" -"(lambda(p_79)" +"(lambda(p_80)" "(begin" " 'path-ss->rkt" "(let-values(((base_30 name_76 dir?_8)" -"(split-path p_79)))" +"(split-path p_80)))" " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_76))" -" (path-replace-extension p_79 #\".rkt\")" -" p_79)))))" +" (path-replace-extension p_80 #\".rkt\")" +" p_80)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_376) (equal? v_38 \".\")))" -" (if or-part_376 or-part_376 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_379) (equal? v_38 \".\")))" +" (if or-part_379 or-part_379 (equal? v_38 \"..\")))" "(if relto_1" -"(let-values(((p_80)" +"(let-values(((p_81)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_80)(car p_80) p_80))" +"(if(pair? p_81)(car p_81) p_81))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" @@ -60078,17 +60087,17 @@ static const char *startup_source = " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((p_81)" -"(if(if(let-values(((or-part_176)" +"(let-values(((p_82)" +"(if(if(let-values(((or-part_178)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_176" -" or-part_176" +"(if or-part_178" +" or-part_178" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" -"(let-values(((p_82)" +"(let-values(((p_83)" "(1/resolved-module-path-name" " relto_1))" "((r_15)" @@ -60097,26 +60106,26 @@ static const char *startup_source = " \"..\")" "(cdr s_26)" "(cddr s_26))))" -"(if(pair? p_82)" +"(if(pair? p_83)" "(flatten-sub-path_0" -"(car p_82)" -"(append(cdr p_82) r_15))" -"(flatten-sub-path_0 p_82 r_15)))" +"(car p_83)" +"(append(cdr p_83) r_15))" +"(flatten-sub-path_0 p_83 r_15)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" "(cdr s_26)" "(cddr s_26))))))" -"(if(pair? p_81)(cdr p_81) #f))" +"(if(pair? p_82)(cdr p_82) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_179)" +"(let-values(((or-part_181)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_179" -" or-part_179" +"(if or-part_181" +" or-part_181" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -60136,11 +60145,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_377)" +"(let-values(((or-part_380)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_377" -" or-part_377" +"(if or-part_380" +" or-part_380" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -60152,12 +60161,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_319)" -" (if (string=? s_319 \".\")" +"(lambda(s_313)" +" (if (string=? s_313 \".\")" "(let-values() 'same)" -" (if (string=? s_319 \"..\")" +" (if (string=? s_313 \"..\")" "(let-values() 'up)" -"(let-values() s_319))))" +"(let-values() s_313))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -60207,9 +60216,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_83)" +"(lambda(p_84)" "(split-relative-string" -" p_83" +" p_84" " #t))" "(cddr s_31))))" " cols_2)" @@ -60231,17 +60240,17 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_378)(path? s-parsed_0)))" -"(if or-part_378 or-part_378(vector? s-parsed_0)))" +"(if(let-values(((or-part_381)(path? s-parsed_0)))" +"(if or-part_381 or-part_381(vector? s-parsed_0)))" "(void)" "(let-values()" -"(if stx_18" +"(if stx_19" "(raise-syntax-error$1" " 'require" "(format" " \"bad module path~a\"" " (if s-parsed_0 (car s-parsed_0) \"\"))" -" stx_18)" +" stx_19)" "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" @@ -60270,11 +60279,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_293)" +"(let-values(((or-part_297)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_293" -" or-part_293" +"(if or-part_297" +" or-part_297" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -60317,11 +60326,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_438)" +"(lambda(s_434)" "(if(if(equal?" -"(cdr s_438)" +"(cdr s_434)" " normal-filename_0)" -"(eq?(car s_438) nsr_0)" +"(eq?(car s_434) nsr_0)" " #f)" "(let-values()" "(error" @@ -60371,12 +60380,12 @@ static const char *startup_source = " 1/current-module-declare-name" " root-modname_0" " 1/current-module-path-for-load" -"((if stx_18" -"(lambda(p_84)" +"((if stx_19" +"(lambda(p_85)" "(1/datum->syntax" " #f" -" p_84" -" stx_18))" +" p_85" +" stx_19))" " values)" "(if(symbol? s_31)" "(let-values() s_31)" @@ -60416,10 +60425,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_379)" +"(let-values(((or-part_382)" "(string? s_31)))" -"(if or-part_379" -" or-part_379" +"(if or-part_382" +" or-part_382" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -60533,12 +60542,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_266)))" "((letrec-values(((for-loop_282)" -"(lambda(fold-var_68 lst_102)" +"(lambda(fold-var_68 lst_103)" "(begin" " 'for-loop" -"(if(pair? lst_102)" -"(let-values(((body_11)(unsafe-car lst_102))" -"((rest_140)(unsafe-cdr lst_102)))" +"(if(pair? lst_103)" +"(let-values(((body_11)(unsafe-car lst_103))" +"((rest_140)(unsafe-cdr lst_103)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" "(let-values(((fold-var_212)" @@ -60574,8 +60583,8 @@ static const char *startup_source = "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_250) ctx_14))" -"(let-values(((the-struct_85) v_250))" +"(let-values(((v_248) ctx_14))" +"(let-values(((the-struct_85) v_248))" "(if(expand-context/outer? the-struct_85)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" @@ -60591,7 +60600,7 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_250)))" +"((inner61_0)(root-expand-context/outer-inner v_248)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -60686,17 +60695,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_225)" +"(let-values(((v_223)" " body-ctx_2))" "(let-values(((the-struct_86)" -" v_225))" +" v_223))" "(if(expand-context/outer?" " the-struct_86)" "(let-values(((name77_0)" " name_77)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_225)))" +" v_223)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -60740,11 +60749,11 @@ static const char *startup_source = " temp76_3))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" -"(let-values(((tmp_61)" +"(let-values(((tmp_60)" "(core-form-sym" " disarmed-exp-body_0" " phase_17)))" -"(if(equal? tmp_61 'begin)" +"(if(equal? tmp_60 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -60760,38 +60769,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_483)" +"(let-values(((s_478)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_483))" +" s_478))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_466)" +"(let-values(((s_460)" "(if(syntax?$1" -" s_483)" +" s_478)" "(syntax-e$1" -" s_483)" -" s_483)))" +" s_478)" +" s_478)))" "(if(pair?" -" s_466)" +" s_460)" "(let-values(((begin81_0)" -"(let-values(((s_484)" +"(let-values(((s_479)" "(car" -" s_466)))" -" s_484))" +" s_460)))" +" s_479))" "((e82_0)" -"(let-values(((s_485)" +"(let-values(((s_480)" "(cdr" -" s_466)))" -"(let-values(((s_486)" +" s_460)))" +"(let-values(((s_481)" "(if(syntax?$1" -" s_485)" +" s_480)" "(syntax-e$1" -" s_485)" -" s_485)))" +" s_480)" +" s_480)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_486)))" +" s_481)))" "(if(not" " flat-s_24)" "(let-values()" @@ -60846,7 +60855,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0)))))))" -"(if(equal? tmp_61 'define-values)" +"(if(equal? tmp_60 'define-values)" "(let-values()" "(let-values((()" "(begin" @@ -60872,45 +60881,45 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_487)" +"(let-values(((s_482)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_487)" +" s_482)" "(let-values(((define-values86_0)" "(let-values(((s_49)" "(car" -" s_487)))" +" s_482)))" " s_49))" "((id87_1" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_487)))" -"(let-values(((s_488)" +" s_482)))" +"(let-values(((s_483)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_488)" +" s_483)" "(let-values(((id89_0)" -"(let-values(((s_314)" +"(let-values(((s_308)" "(car" -" s_488)))" -"(let-values(((s_395)" +" s_483)))" +"(let-values(((s_389)" "(if(syntax?$1" -" s_314)" +" s_308)" "(syntax-e$1" -" s_314)" -" s_314)))" +" s_308)" +" s_308)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_395)))" +" s_389)))" "(if(not" " flat-s_25)" "(let-values()" @@ -60936,7 +60945,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_318)" -"(let-values(((s_317)" +"(let-values(((s_311)" "(unsafe-car" " lst_318))" "((rest_178)" @@ -60949,23 +60958,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id92_2)" "(let-values()" -"(if(let-values(((or-part_140)" +"(if(let-values(((or-part_142)" "(if(syntax?$1" -" s_317)" +" s_311)" "(symbol?" "(syntax-e$1" -" s_317))" +" s_311))" " #f)))" -"(if or-part_140" -" or-part_140" +"(if or-part_142" +" or-part_142" "(symbol?" -" s_317)))" -" s_317" +" s_311)))" +" s_311" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_317)))))" +" s_311)))))" "(cons" " id92_2" " id_107)))))" @@ -60984,34 +60993,34 @@ static const char *startup_source = "(reverse$1" " id_106))))))))" "((rhs90_0)" -"(let-values(((s_489)" +"(let-values(((s_484)" "(cdr" -" s_488)))" -"(let-values(((s_490)" +" s_483)))" +"(let-values(((s_485)" "(if(syntax?$1" -" s_489)" +" s_484)" "(syntax-e$1" -" s_489)" -" s_489)))" +" s_484)" +" s_484)))" "(if(pair?" -" s_490)" +" s_485)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_490)))" +" s_485)))" " s_54))" "(()" -"(let-values(((s_318)" +"(let-values(((s_312)" "(cdr" -" s_490)))" -"(let-values(((s_319)" +" s_485)))" +"(let-values(((s_313)" "(if(syntax?$1" -" s_318)" +" s_312)" "(syntax-e$1" -" s_318)" -" s_318)))" +" s_312)" +" s_312)))" "(if(null?" -" s_319)" +" s_313)" "(values)" "(raise-syntax-error$1" " #f" @@ -61087,7 +61096,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_51)" +"(let-values(((lst_52)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61095,7 +61104,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_51)))" +" lst_52)))" "((letrec-values(((for-loop_284)" "(lambda(fold-var_183" " lst_319)" @@ -61146,7 +61155,7 @@ static const char *startup_source = " fold-var_183)))))" " for-loop_284)" " null" -" lst_51))))))" +" lst_52))))))" "(let-values(((extended-env_0)" "(let-values(((lst_232)" " keys_5)" @@ -61214,10 +61223,10 @@ static const char *startup_source = " lst_232" " lst_198)))))" "(loop_120" -"(let-values(((v_251)" +"(let-values(((v_249)" " body-ctx_2))" "(let-values(((the-struct_87)" -" v_251))" +" v_249))" "(if(expand-context/outer?" " the-struct_87)" "(let-values(((env102_0)" @@ -61228,7 +61237,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_251)))" +" v_249)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -61414,7 +61423,7 @@ static const char *startup_source = " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_108)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61422,20 +61431,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" +" lst_108)))" "((letrec-values(((for-loop_286)" "(lambda(fold-var_139" -" lst_108)" +" lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_109)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_108))" +" lst_109))" "((rest_183)" "(unsafe-cdr" -" lst_108)))" +" lst_109)))" "(let-values(((fold-var_296)" "(let-values(((fold-var_39)" " fold-var_139))" @@ -61456,12 +61465,12 @@ static const char *startup_source = " fold-var_139)))))" " for-loop_286)" " null" -" lst_107))))" +" lst_108))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" " new-dups_0))))))))))" -"(if(equal? tmp_61 'define-syntaxes)" +"(if(equal? tmp_60 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" @@ -61480,44 +61489,44 @@ static const char *startup_source = " define-syntaxes105_0" " id106_0" " rhs107_0)" -"(let-values(((s_491)" +"(let-values(((s_89)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_491))" +" s_89))" "(let-values(((define-syntaxes105_1" " id106_1" " rhs107_1)" -"(let-values(((s_418)" +"(let-values(((s_412)" "(if(syntax?$1" -" s_491)" +" s_89)" "(syntax-e$1" -" s_491)" -" s_491)))" +" s_89)" +" s_89)))" "(if(pair?" -" s_418)" +" s_412)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_92)" +"(let-values(((s_486)" "(car" -" s_418)))" -" s_92))" +" s_412)))" +" s_486))" "((id109_0" " rhs110_0)" -"(let-values(((s_492)" +"(let-values(((s_487)" "(cdr" -" s_418)))" -"(let-values(((s_210)" +" s_412)))" +"(let-values(((s_91)" "(if(syntax?$1" -" s_492)" +" s_487)" "(syntax-e$1" -" s_492)" -" s_492)))" +" s_487)" +" s_487)))" "(if(pair?" -" s_210)" +" s_91)" "(let-values(((id111_0)" "(let-values(((s_65)" "(car" -" s_210)))" -"(let-values(((s_211)" +" s_91)))" +"(let-values(((s_93)" "(if(syntax?$1" " s_65)" "(syntax-e$1" @@ -61525,7 +61534,7 @@ static const char *startup_source = " s_65)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_211)))" +" s_93)))" "(if(not" " flat-s_26)" "(let-values()" @@ -61551,7 +61560,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_493)" +"(let-values(((s_488)" "(unsafe-car" " lst_35))" "((rest_184)" @@ -61564,23 +61573,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_325)" +"(if(let-values(((or-part_329)" "(if(syntax?$1" -" s_493)" +" s_488)" "(symbol?" "(syntax-e$1" -" s_493))" +" s_488))" " #f)))" -"(if or-part_325" -" or-part_325" +"(if or-part_329" +" or-part_329" "(symbol?" -" s_493)))" -" s_493" +" s_488)))" +" s_488" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_493)))))" +" s_488)))))" "(cons" " id114_0" " id_112)))))" @@ -61599,34 +61608,34 @@ static const char *startup_source = "(reverse$1" " id_109))))))))" "((rhs112_0)" -"(let-values(((s_95)" +"(let-values(((s_489)" "(cdr" -" s_210)))" -"(let-values(((s_494)" +" s_91)))" +"(let-values(((s_490)" "(if(syntax?$1" -" s_95)" +" s_489)" "(syntax-e$1" -" s_95)" -" s_95)))" +" s_489)" +" s_489)))" "(if(pair?" -" s_494)" +" s_490)" "(let-values(((rhs113_0)" -"(let-values(((s_495)" -"(car" -" s_494)))" -" s_495))" -"(()" "(let-values(((s_96)" +"(car" +" s_490)))" +" s_96))" +"(()" +"(let-values(((s_324)" "(cdr" -" s_494)))" -"(let-values(((s_97)" +" s_490)))" +"(let-values(((s_491)" "(if(syntax?$1" -" s_96)" +" s_324)" "(syntax-e$1" -" s_96)" -" s_96)))" +" s_324)" +" s_324)))" "(if(null?" -" s_97)" +" s_491)" "(values)" "(raise-syntax-error$1" " #f" @@ -61799,11 +61808,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_327)" +"(let-values(((lst_46)" " keys_6)" -"((lst_328)" +"((lst_327)" " vals_8)" -"((lst_329)" +"((lst_328)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61811,6 +61820,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_46)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_327)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -61818,45 +61833,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_328)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_329)))" "((letrec-values(((for-loop_289)" "(lambda(env_21" +" lst_329" " lst_330" -" lst_331" -" lst_332)" +" lst_331)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_330)" +" lst_329)" "(if(pair?" -" lst_331)" +" lst_330)" "(pair?" -" lst_332)" +" lst_331)" " #f)" " #f)" "(let-values(((key_92)" "(unsafe-car" -" lst_330))" +" lst_329))" "((rest_186)" "(unsafe-cdr" -" lst_330))" +" lst_329))" "((val_82)" "(unsafe-car" -" lst_331))" +" lst_330))" "((rest_187)" "(unsafe-cdr" -" lst_331))" +" lst_330))" "((id_115)" "(unsafe-car" -" lst_332))" +" lst_331))" "((rest_188)" "(unsafe-cdr" -" lst_332)))" +" lst_331)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -61886,9 +61895,9 @@ static const char *startup_source = " for-loop_289)" "(expand-context-env" " body-ctx_2)" +" lst_46" " lst_327" -" lst_328" -" lst_329)))))" +" lst_328)))))" "(begin" "(let-values(((obs_76)" "(expand-context-observer" @@ -61901,12 +61910,12 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_120" -"(let-values(((v_252)" +"(let-values(((v_250)" " body-ctx_2))" -"(let-values(((the-struct_68)" -" v_252))" +"(let-values(((the-struct_67)" +" v_250))" "(if(expand-context/outer?" -" the-struct_68)" +" the-struct_67)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -61915,39 +61924,39 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_252)))" +" v_250)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_68)" +" the-struct_67)" "(root-expand-context/outer-use-site-scopes" -" the-struct_68)" +" the-struct_67)" "(root-expand-context/outer-frame-id" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-context" -" the-struct_68)" +" the-struct_67)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-scopes" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-def-ctx-scopes" -" the-struct_68)" +" the-struct_67)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-only-immediate?" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-need-eventually-defined" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-current-introduction-scopes" -" the-struct_68)" +" the-struct_67)" "(expand-context/outer-name" -" the-struct_68)))" +" the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_68))))" +" the-struct_67))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62051,7 +62060,7 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_234) source10_0))" +"(let-values(((s_228) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_78) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -62063,15 +62072,15 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_234))" +" s_228))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_253)" +"(let-values(((v_251)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_88) v_253))" +"(let-values(((the-struct_88) v_251))" "(if(expand-context/outer? the-struct_88)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62085,7 +62094,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_253)))" +"(root-expand-context/outer-inner v_251)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -62148,14 +62157,14 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_333) done-bodys_1)" +"(let-values(((lst_332) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_333)))" +"(check-list lst_332)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -62163,20 +62172,20 @@ static const char *startup_source = "(check-naturals start_66)))" "((letrec-values(((for-loop_290)" "(lambda(fold-var_260" -" lst_334" +" lst_333" " pos_129)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_334)" +" lst_333)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_334))" +" lst_333))" "((rest_189)" "(unsafe-cdr" -" lst_334))" +" lst_333))" "((i_189)" " pos_129))" "(let-values(((fold-var_261)" @@ -62205,17 +62214,17 @@ static const char *startup_source = " i_189" " last-i_1)" " #f)" -"(let-values(((v_254)" +"(let-values(((v_252)" " finish-ctx_0))" "(let-values(((the-struct_89)" -" v_254))" +" v_252))" "(if(expand-context/outer?" " the-struct_89)" "(let-values(((name136_0)" " name_78)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_254)))" +" v_252)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -62272,7 +62281,7 @@ static const char *startup_source = " fold-var_260)))))" " for-loop_290)" " null" -" lst_333" +" lst_332" " start_66))))))" "(begin" "(let-values(((obs_80)" @@ -62297,7 +62306,7 @@ static const char *startup_source = "(call-expand-observe" " obs_81" " 'block->list" -"(datum->syntax$1 s_234 done-bodys_1))))" +"(datum->syntax$1 s_228 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -62310,7 +62319,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_82" " finish-ctx_0" -" s_234" +" s_228" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -62326,7 +62335,7 @@ static const char *startup_source = "((temp142_0)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_234)" +"((s145_0) s_228)" "((temp146_2)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -62379,7 +62388,7 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_76) ctx32_0))" -"(let-values(((s_496) source33_0))" +"(let-values(((s_492) 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))" @@ -62409,12 +62418,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_76)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_496)" +"(keep-properties-only s_492)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_496)" +"(keep-properties-only s_492)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -62423,7 +62432,7 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_496)" +"((s150_0) s_492)" "((temp151_2)" "(list*" "(if(null? accum-idss_0)" @@ -62528,7 +62537,7 @@ static const char *startup_source = " ctx_76)" "(parsed-let-values17.1" "(keep-properties-only" -" s_496)" +" s_492)" "(list ids_31)" "(list" "(list" @@ -62538,7 +62547,7 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_496)" +" s_492)" "((temp156_0)" "(list*" "(core-id" @@ -62577,9 +62586,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_380) split?_0))" -"(if or-part_380" -" or-part_380" +"(let-values(((or-part_383) split?_0))" +"(if or-part_383" +" or-part_383" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -62601,7 +62610,7 @@ static const char *startup_source = " ctx_76)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_496)" +" s_492)" "(reverse$1" "(cons" " ids_31" @@ -62619,7 +62628,7 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_496)" +" s_492)" "((temp159_0)" "(list*" "(core-id" @@ -62699,19 +62708,19 @@ 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_497 phase_141)" +"(lambda(expr_10 s_493 phase_141)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_141)))" "(datum->syntax$1" "(core-id '#%app phase_141)" "(list(core-id 'begin phase_141) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_497)))))" +" s_493)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_88 ctx_40 s_498 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_88 ctx_40 s_494 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" "(let-values(((phase_142)(expand-context-phase ctx_40)))" @@ -62729,12 +62738,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_286)))" "((letrec-values(((for-loop_291)" -"(lambda(fold-var_302 lst_335 lst_288 lst_289)" +"(lambda(fold-var_302 lst_334 lst_288 lst_289)" "(begin" " 'for-loop" -"(if(if(pair? lst_335)(if(pair? lst_288)(pair? lst_289) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_335))" -"((rest_158)(unsafe-cdr lst_335))" +"(if(if(pair? lst_334)(if(pair? lst_288)(pair? lst_289) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_334))" +"((rest_158)(unsafe-cdr lst_334))" "((val-rhs_0)(unsafe-car lst_288))" "((rest_159)(unsafe-cdr lst_288))" "((track-stx_2)(unsafe-car lst_289))" @@ -62768,7 +62777,7 @@ static const char *startup_source = "(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_498)))" +" s_494)))" "(begin" "(call-expand-observe obs_88 'block->letrec(list lv-s_0))" "(call-expand-observe obs_88 'visit lv-s_0)" @@ -62783,7 +62792,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_498))" +"(datum->syntax$1 #f done-bodys_2 s_494))" "(call-expand-observe obs_88 'prepare-env)" "(call-expand-observe obs_88 'next-group)" "(if(null? val-idss_2)" @@ -62795,7 +62804,7 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_498)))))))" +"(datum->syntax$1 #f done-bodys_2 s_494)))))))" "(let-values()" "(begin" "(call-expand-observe obs_88 'prim-letrec-values)" @@ -62803,7 +62812,7 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_498))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_494))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_67 disarmed-s_5 formals_1 bodys_9 ctx_78 log-renames-tag_0)" @@ -62822,11 +62831,11 @@ static const char *startup_source = "(let-values(((counter_7)(root-expand-context-counter ctx_78)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_88) ids_33))" +"(let-values(((lst_89) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "((letrec-values(((for-loop_292)" "(lambda(fold-var_306 lst_267)" "(begin" @@ -62864,23 +62873,23 @@ static const char *startup_source = " fold-var_306)))))" " for-loop_292)" " null" -" lst_88))))))" +" lst_89))))))" "(let-values(((body-env_0)" -"(let-values(((lst_81) keys_7)((lst_91) ids_33))" +"(let-values(((lst_82) keys_7)((lst_92) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" +"(let-values()(check-list lst_82)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" +"(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_232)" -"(lambda(env_25 lst_83 lst_273)" +"(lambda(env_25 lst_84 lst_273)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_273) #f)" -"(let-values(((key_93)(unsafe-car lst_83))" -"((rest_146)(unsafe-cdr lst_83))" +"(if(if(pair? lst_84)(pair? lst_273) #f)" +"(let-values(((key_93)(unsafe-car lst_84))" +"((rest_146)(unsafe-cdr lst_84))" "((id_117)(unsafe-car lst_273))" "((rest_191)(unsafe-cdr lst_273)))" "(let-values(((env_26)" @@ -62899,8 +62908,8 @@ static const char *startup_source = " env_25)))))" " for-loop_232)" "(expand-context-env ctx_78)" -" lst_81" -" lst_91)))))" +" lst_82" +" lst_92)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -62949,15 +62958,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_255) ctx_78))" -"(let-values(((the-struct_90) v_255))" +"(let-values(((v_253) ctx_78))" +"(let-values(((the-struct_90) v_253))" "(if(expand-context/outer? the-struct_90)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_78)))" "((binding-layer44_0)" "(increment-binding-layer ids_33 ctx_78 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_255)))" +"((inner46_0)(root-expand-context/outer-inner v_253)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_90)" @@ -63001,24 +63010,24 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_433) disarmed-s_6))" -"(let-values(((orig-s_41) s_433))" +"(let-values(((s_429) disarmed-s_6))" +"(let-values(((orig-s_41) s_429))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_164)(if(syntax?$1 s_433)(syntax-e$1 s_433) s_433)))" -"(if(pair? s_164)" -"(let-values(((lambda56_0)(let-values(((s_499)(car s_164))) s_499))" +"(let-values(((s_163)(if(syntax?$1 s_429)(syntax-e$1 s_429) s_429)))" +"(if(pair? s_163)" +"(let-values(((lambda56_0)(let-values(((s_495)(car s_163))) s_495))" "((formals57_0 body58_0)" -"(let-values(((s_483)(cdr s_164)))" -"(let-values(((s_478)" -"(if(syntax?$1 s_483)" -"(syntax-e$1 s_483)" -" s_483)))" -"(if(pair? s_478)" +"(let-values(((s_478)(cdr s_163)))" +"(let-values(((s_473)" +"(if(syntax?$1 s_478)" +"(syntax-e$1 s_478)" +" s_478)))" +"(if(pair? s_473)" "(let-values(((formals59_0)" -"(let-values(((s_466)(car s_478)))" -" s_466))" +"(let-values(((s_460)(car s_473)))" +" s_460))" "((body60_0)" -"(let-values(((s_66)(cdr s_478)))" +"(let-values(((s_66)(cdr s_473)))" "(let-values(((s_74)" "(if(syntax?$1 s_66)" "(syntax-e$1 s_66)" @@ -63057,29 +63066,29 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_500)" +"(lambda(s_496)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_501) s_500))" -"(let-values(((orig-s_42) s_501))" +"(let-values(((s_497) s_496))" +"(let-values(((orig-s_42) s_497))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_313)(if(syntax?$1 s_501)(syntax-e$1 s_501) s_501)))" -"(if(pair? s_313)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_313))) s_48))" +"(let-values(((s_307)(if(syntax?$1 s_497)(syntax-e$1 s_497) s_497)))" +"(if(pair? s_307)" +"(let-values(((lam-id69_0)(let-values(((s_48)(car s_307))) s_48))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_313)))" +"(let-values(((s_49)(cdr s_307)))" "(let-values(((s_32)" "(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_502)(car s_32))) s_502))" +"(let-values(((s_498)(car s_32))) s_498))" "((_73_0)" -"(let-values(((s_314)(cdr s_32)))" -"(let-values(((s_395)" -"(if(syntax?$1 s_314)" -"(syntax-e$1 s_314)" -" s_314)))" +"(let-values(((s_308)(cdr s_32)))" +"(let-values(((s_389)" +"(if(syntax?$1 s_308)" +"(syntax-e$1 s_308)" +" s_308)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_395)))" +"(to-syntax-list.1 s_389)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -63098,23 +63107,23 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_500)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_496)))" "(let-values(((ctx_80)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" "(let-values(((phase_144)(if ctx_80(expand-context-phase ctx_80) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_144) ((s76_1) s_500) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_144) ((s76_1) s_496) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_1 #f #f))" "(datum->syntax$1" -" s_500" +" s_496" "(cons" "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_144) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_500)))" -" s_500" -" s_500)))))))))" +"(cdr(syntax-e$1 s_496)))" +" s_496" +" s_496)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_503 ctx_81)" +"(lambda(s_499 ctx_81)" "(let-values((()" "(begin" "(let-values(((obs_89)(expand-context-observer ctx_81)))" @@ -63122,47 +63131,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_503)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_499)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_504) disarmed-s_7))" -"(let-values(((orig-s_43) s_504))" +"(let-values(((s_500) disarmed-s_7))" +"(let-values(((orig-s_43) s_500))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_36)(if(syntax?$1 s_504)(syntax-e$1 s_504) s_504)))" +"(let-values(((s_36)(if(syntax?$1 s_500)(syntax-e$1 s_500) s_500)))" "(if(pair? s_36)" "(let-values(((case-lambda82_0)(let-values(((s_59)(car s_36))) s_59))" "((formals83_0 body84_0)" -"(let-values(((s_416)(cdr s_36)))" -"(let-values(((s_505)" -"(if(syntax?$1 s_416)" -"(syntax-e$1 s_416)" -" s_416)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_505)))" +"(let-values(((s_410)(cdr s_36)))" +"(let-values(((s_501)" +"(if(syntax?$1 s_410)" +"(syntax-e$1 s_410)" +" s_410)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_501)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_336) flat-s_28))" +"(let-values(((lst_335) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_336)))" +"(check-list lst_335)))" "((letrec-values(((for-loop_293)" "(lambda(formals_4" " body_15" -" lst_337)" +" lst_336)" "(begin" " 'for-loop" "(if(pair?" -" lst_337)" +" lst_336)" "(let-values(((s_61)" "(unsafe-car" -" lst_337))" +" lst_336))" "((rest_192)" "(unsafe-cdr" -" lst_337)))" +" lst_336)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -63189,18 +63198,18 @@ static const char *startup_source = " s_64)))" " s_85))" "((body86_0)" -"(let-values(((s_201)" +"(let-values(((s_200)" "(cdr" " s_64)))" -"(let-values(((s_403)" +"(let-values(((s_397)" "(if(syntax?$1" -" s_201)" +" s_200)" "(syntax-e$1" -" s_201)" -" s_201)))" +" s_200)" +" s_200)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_403)))" +" s_397)))" "(if(not" " flat-s_29)" "(let-values()" @@ -63249,7 +63258,7 @@ static const char *startup_source = " for-loop_293)" " null" " null" -" lst_336)))))" +" lst_335)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -63257,19 +63266,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_202) disarmed-s_7))" -"(let-values(((orig-s_44) s_202))" +"(let-values(((s_201) disarmed-s_7))" +"(let-values(((orig-s_44) s_201))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_506)(if(syntax?$1 s_202)(syntax-e$1 s_202) s_202)))" -"(if(pair? s_506)" -"(let-values(((case-lambda89_0)(let-values(((s_86)(car s_506))) s_86))" +"(let-values(((s_502)(if(syntax?$1 s_201)(syntax-e$1 s_201) s_201)))" +"(if(pair? s_502)" +"(let-values(((case-lambda89_0)(let-values(((s_86)(car s_502))) s_86))" "((clause90_0)" -"(let-values(((s_507)(cdr s_506)))" -"(let-values(((s_439)" -"(if(syntax?$1 s_507)" -"(syntax-e$1 s_507)" -" s_507)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_439)))" +"(let-values(((s_503)(cdr s_502)))" +"(let-values(((s_435)" +"(if(syntax?$1 s_503)" +"(syntax-e$1 s_503)" +" s_503)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_435)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -63278,34 +63287,34 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_81)((s94_0) s_503)((temp95_4) #t))" +"(let-values(((ctx93_0) ctx_81)((s94_0) s_499)((temp95_4) #t))" "(keep-as-needed74.1 #f #f #f #f temp95_4 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_338) formals80_0)((lst_339) body81_0)((lst_206) clause88_0))" +"(let-values(((lst_337) formals80_0)((lst_338) body81_0)((lst_206) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_337)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_338)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_339)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_206)))" -"((letrec-values(((for-loop_122)" -"(lambda(fold-var_307 lst_276 lst_156 lst_340)" +"((letrec-values(((for-loop_121)" +"(lambda(fold-var_307 lst_276 lst_156 lst_339)" "(begin" " 'for-loop" "(if(if(pair? lst_276)" -"(if(pair? lst_156)(pair? lst_340) #f)" +"(if(pair? lst_156)(pair? lst_339) #f)" " #f)" "(let-values(((formals_8)(unsafe-car lst_276))" "((rest_193)(unsafe-cdr lst_276))" "((body_19)(unsafe-car lst_156))" "((rest_79)(unsafe-cdr lst_156))" -"((clause_3)(unsafe-car lst_340))" -"((rest_194)(unsafe-cdr lst_340)))" +"((clause_3)(unsafe-car lst_339))" +"((rest_194)(unsafe-cdr lst_339)))" "(let-values(((fold-var_146)" "(let-values(((fold-var_308) fold-var_307))" "(let-values(((fold-var_309)" @@ -63342,7 +63351,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_503" +" s_499" " disarmed-s_7" " formals_8" " body_19" @@ -63367,13 +63376,13 @@ static const char *startup_source = " fold-var_308))))" "(values fold-var_309)))))" "(if(not #f)" -"(for-loop_122 fold-var_146 rest_193 rest_79 rest_194)" +"(for-loop_121 fold-var_146 rest_193 rest_79 rest_194)" " fold-var_146)))" " fold-var_307)))))" -" for-loop_122)" +" for-loop_121)" " null" +" lst_337" " lst_338" -" lst_339" " lst_206))))))" "(if(expand-context-to-parsed? ctx_81)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" @@ -63381,7 +63390,7 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_91)" +"(lambda(all-formals_0 sc_36 s_504)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -63391,26 +63400,26 @@ static const char *startup_source = "(let-values()(list(add-scope formals_9 sc_36)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_85)(syntax-e$1 formals_9)))" -"(if(pair? p_85)" -"(let-values()(loop_122 p_85))" -"(if(null? p_85)" +"(let-values(((p_86)(syntax-e$1 formals_9)))" +"(if(pair? p_86)" +"(let-values()(loop_122 p_86))" +"(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_91 p_85))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_504 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_91 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_504 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(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_91 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_504 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -63450,7 +63459,7 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_96 ctx_82)" +"(lambda(s_324 ctx_82)" "(let-values((()" "(begin" "(let-values(((obs_90)(expand-context-observer ctx_82)))" @@ -63458,7 +63467,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_90 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_96)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_324)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -63466,47 +63475,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_445) disarmed-s_8))" +"(let-values(((s_441) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_445))" +"(let-values(((orig-s_45) s_441))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_414)" -"(if(syntax?$1 s_445)" -"(syntax-e$1 s_445)" -" s_445)))" -"(if(pair? s_414)" +"(let-values(((s_118)" +"(if(syntax?$1 s_441)" +"(syntax-e$1 s_441)" +" s_441)))" +"(if(pair? s_118)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_508)(car s_414))) s_508))" +"(let-values(((s_505)(car s_118))) s_505))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_226)(cdr s_414)))" -"(let-values(((s_120)" -"(if(syntax?$1 s_226)" -"(syntax-e$1 s_226)" -" s_226)))" -"(if(pair? s_120)" +"(let-values(((s_120)(cdr s_118)))" +"(let-values(((s_506)" +"(if(syntax?$1 s_120)" +"(syntax-e$1 s_120)" +" s_120)))" +"(if(pair? s_506)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_509)" +"(let-values(((s_507)" "(car" -" s_120)))" -"(let-values(((s_121)" +" s_506)))" +"(let-values(((s_508)" "(if(syntax?$1" -" s_509)" +" s_507)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_507)" +" s_507)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_121)))" +" s_508)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63517,7 +63526,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_341)" +"(let-values(((lst_340)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63525,7 +63534,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" +" lst_340)))" "((letrec-values(((for-loop_294)" "(lambda(id:trans_1" " trans-rhs_1" @@ -63534,7 +63543,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_2)" -"(let-values(((s_233)" +"(let-values(((s_227)" "(unsafe-car" " lst_2))" "((rest_195)" @@ -63552,27 +63561,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_510)" +"(let-values(((s_509)" "(if(syntax?$1" -" s_233)" +" s_227)" "(syntax-e$1" -" s_233)" -" s_233)))" +" s_227)" +" s_227)))" "(if(pair?" -" s_510)" +" s_509)" "(let-values(((id:trans119_0)" -"(let-values(((s_340)" +"(let-values(((s_335)" "(car" -" s_510)))" -"(let-values(((s_341)" +" s_509)))" +"(let-values(((s_336)" "(if(syntax?$1" -" s_340)" +" s_335)" "(syntax-e$1" -" s_340)" -" s_340)))" +" s_335)" +" s_335)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_341)))" +" s_336)))" "(if(not" " flat-s_32)" "(let-values()" @@ -63582,7 +63591,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_342)" +"(let-values(((lst_341)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63590,7 +63599,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_342)))" +" lst_341)))" "((letrec-values(((for-loop_263)" "(lambda(id:trans_6" " lst_214)" @@ -63598,7 +63607,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_214)" -"(let-values(((s_511)" +"(let-values(((s_510)" "(unsafe-car" " lst_214))" "((rest_196)" @@ -63611,23 +63620,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_381)" +"(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_511)" +" s_510)" "(symbol?" "(syntax-e$1" -" s_511))" +" s_510))" " #f)))" -"(if or-part_381" -" or-part_381" +"(if or-part_384" +" or-part_384" "(symbol?" -" s_511)))" -" s_511" +" s_510)))" +" s_510" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_511)))))" +" s_510)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -63642,38 +63651,38 @@ static const char *startup_source = " id:trans_6)))))" " for-loop_263)" " null" -" lst_342)))))" +" lst_341)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" +"(let-values(((s_511)" +"(cdr" +" s_509)))" "(let-values(((s_512)" -"(cdr" -" s_510)))" -"(let-values(((s_513)" "(if(syntax?$1" -" s_512)" +" s_511)" "(syntax-e$1" -" s_512)" -" s_512)))" +" s_511)" +" s_511)))" "(if(pair?" -" s_513)" +" s_512)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_239)" +"(let-values(((s_233)" "(car" -" s_513)))" -" s_239))" +" s_512)))" +" s_233))" "(()" -"(let-values(((s_240)" +"(let-values(((s_234)" "(cdr" -" s_513)))" -"(let-values(((s_241)" +" s_512)))" +"(let-values(((s_235)" "(if(syntax?$1" -" s_240)" +" s_234)" "(syntax-e$1" -" s_240)" -" s_240)))" +" s_234)" +" s_234)))" "(if(null?" -" s_241)" +" s_235)" "(values)" "(raise-syntax-error$1" " #f" @@ -63717,7 +63726,7 @@ static const char *startup_source = " for-loop_294)" " null" " null" -" lst_341)))))" +" lst_340)))))" "(values" "(reverse$1" " id:trans_0)" @@ -63726,30 +63735,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_348)" +"(let-values(((s_343)" "(cdr" -" s_120)))" -"(let-values(((s_349)" +" s_506)))" +"(let-values(((s_344)" "(if(syntax?$1" -" s_348)" +" s_343)" "(syntax-e$1" -" s_348)" -" s_348)))" -"(if(pair? s_349)" +" s_343)" +" s_343)))" +"(if(pair? s_344)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_514)" +"(let-values(((s_513)" "(car" -" s_349)))" -"(let-values(((s_350)" +" s_344)))" +"(let-values(((s_345)" "(if(syntax?$1" -" s_514)" +" s_513)" "(syntax-e$1" -" s_514)" -" s_514)))" +" s_513)" +" s_513)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_350)))" +" s_345)))" "(if(not" " flat-s_33)" "(let-values()" @@ -63772,17 +63781,17 @@ static const char *startup_source = "((letrec-values(((for-loop_295)" "(lambda(id:val_1" " val-rhs_2" -" lst_343)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" -"(let-values(((s_355)" +" lst_342)" +"(let-values(((s_350)" "(unsafe-car" -" lst_343))" +" lst_342))" "((rest_197)" "(unsafe-cdr" -" lst_343)))" +" lst_342)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -63795,27 +63804,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_515)" +"(let-values(((s_514)" +"(if(syntax?$1" +" s_350)" +"(syntax-e$1" +" s_350)" +" s_350)))" +"(if(pair?" +" s_514)" +"(let-values(((id:val125_0)" +"(let-values(((s_355)" +"(car" +" s_514)))" +"(let-values(((s_356)" "(if(syntax?$1" " s_355)" "(syntax-e$1" " s_355)" " s_355)))" -"(if(pair?" -" s_515)" -"(let-values(((id:val125_0)" -"(let-values(((s_360)" -"(car" -" s_515)))" -"(let-values(((s_361)" -"(if(syntax?$1" -" s_360)" -"(syntax-e$1" -" s_360)" -" s_360)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_361)))" +" s_356)))" "(if(not" " flat-s_34)" "(let-values()" @@ -63825,7 +63834,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_344)" +"(let-values(((lst_343)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63833,20 +63842,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_344)))" +" lst_343)))" "((letrec-values(((for-loop_296)" "(lambda(id:val_6" -" lst_345)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_345)" -"(let-values(((s_516)" +" lst_344)" +"(let-values(((s_515)" "(unsafe-car" -" lst_345))" +" lst_344))" "((rest_198)" "(unsafe-cdr" -" lst_345)))" +" lst_344)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63854,23 +63863,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_382)" +"(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_516)" +" s_515)" "(symbol?" "(syntax-e$1" -" s_516))" +" s_515))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_516)))" -" s_516" +" s_515)))" +" s_515" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_516)))))" +" s_515)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -63885,38 +63894,38 @@ static const char *startup_source = " id:val_6)))))" " for-loop_296)" " null" -" lst_344)))))" +" lst_343)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_517)" +"(let-values(((s_516)" "(cdr" -" s_515)))" -"(let-values(((s_247)" +" s_514)))" +"(let-values(((s_241)" "(if(syntax?$1" -" s_517)" +" s_516)" "(syntax-e$1" -" s_517)" -" s_517)))" +" s_516)" +" s_516)))" "(if(pair?" -" s_247)" +" s_241)" "(let-values(((val-rhs127_0)" -"(let-values(((s_518)" +"(let-values(((s_517)" "(car" -" s_247)))" -" s_518))" +" s_241)))" +" s_517))" "(()" -"(let-values(((s_519)" +"(let-values(((s_518)" "(cdr" -" s_247)))" -"(let-values(((s_520)" +" s_241)))" +"(let-values(((s_519)" "(if(syntax?$1" -" s_519)" +" s_518)" "(syntax-e$1" -" s_519)" -" s_519)))" +" s_518)" +" s_518)))" "(if(null?" -" s_520)" +" s_519)" "(values)" "(raise-syntax-error$1" " #f" @@ -63967,18 +63976,18 @@ static const char *startup_source = "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_248)" +"(let-values(((s_242)" "(cdr" -" s_349)))" -"(let-values(((s_249)" +" s_344)))" +"(let-values(((s_243)" "(if(syntax?$1" -" s_248)" +" s_242)" "(syntax-e$1" -" s_248)" -" s_248)))" +" s_242)" +" s_242)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_249)))" +" s_243)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64031,39 +64040,39 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_521) disarmed-s_8))" +"(let-values(((s_520) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_521))" +"(let-values(((orig-s_46) s_520))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_253)" +"(let-values(((s_247)" +"(if(syntax?$1 s_520)" +"(syntax-e$1 s_520)" +" s_520)))" +"(if(pair? s_247)" +"(let-values(((let-values132_0)" +"(let-values(((s_250)(car s_247)))" +" s_250))" +"((id:val133_0 val-rhs134_0 body135_0)" +"(let-values(((s_521)(cdr s_247)))" +"(let-values(((s_448)" "(if(syntax?$1 s_521)" "(syntax-e$1 s_521)" " s_521)))" -"(if(pair? s_253)" -"(let-values(((let-values132_0)" -"(let-values(((s_256)(car s_253)))" -" s_256))" -"((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_522)(cdr s_253)))" -"(let-values(((s_453)" -"(if(syntax?$1 s_522)" -"(syntax-e$1 s_522)" -" s_522)))" -"(if(pair? s_453)" +"(if(pair? s_448)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_366)" +"(let-values(((s_361)" "(car" -" s_453)))" -"(let-values(((s_257)" +" s_448)))" +"(let-values(((s_251)" "(if(syntax?$1" -" s_366)" +" s_361)" "(syntax-e$1" -" s_366)" -" s_366)))" +" s_361)" +" s_361)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_257)))" +" s_251)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64074,7 +64083,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_346)" +"(let-values(((lst_345)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64082,21 +64091,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" +" lst_345)))" "((letrec-values(((for-loop_297)" "(lambda(id:val_11" " val-rhs_7" -" lst_347)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" -"(let-values(((s_375)" +" lst_346)" +"(let-values(((s_370)" "(unsafe-car" -" lst_347))" +" lst_346))" "((rest_199)" "(unsafe-cdr" -" lst_347)))" +" lst_346)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64109,27 +64118,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_523)" +"(let-values(((s_522)" "(if(syntax?$1" -" s_375)" +" s_370)" "(syntax-e$1" -" s_375)" -" s_375)))" +" s_370)" +" s_370)))" "(if(pair?" -" s_523)" +" s_522)" "(let-values(((id:val139_0)" -"(let-values(((s_379)" +"(let-values(((s_374)" "(car" -" s_523)))" -"(let-values(((s_380)" +" s_522)))" +"(let-values(((s_375)" "(if(syntax?$1" -" s_379)" +" s_374)" "(syntax-e$1" -" s_379)" -" s_379)))" +" s_374)" +" s_374)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_380)))" +" s_375)))" "(if(not" " flat-s_37)" "(let-values()" @@ -64139,7 +64148,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_348)" +"(let-values(((lst_347)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64147,20 +64156,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_348)))" +" lst_347)))" "((letrec-values(((for-loop_298)" "(lambda(id:val_16" -" lst_349)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_349)" -"(let-values(((s_384)" +" lst_348)" +"(let-values(((s_379)" "(unsafe-car" -" lst_349))" +" lst_348))" "((rest_200)" "(unsafe-cdr" -" lst_349)))" +" lst_348)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64168,23 +64177,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_358)" "(if(syntax?$1" -" s_384)" +" s_379)" "(symbol?" "(syntax-e$1" -" s_384))" +" s_379))" " #f)))" -"(if or-part_355" -" or-part_355" +"(if or-part_358" +" or-part_358" "(symbol?" -" s_384)))" -" s_384" +" s_379)))" +" s_379" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_384)))))" +" s_379)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -64199,38 +64208,38 @@ static const char *startup_source = " id:val_16)))))" " for-loop_298)" " null" -" lst_348)))))" +" lst_347)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_387)" +"(let-values(((s_382)" "(cdr" -" s_523)))" -"(let-values(((s_260)" +" s_522)))" +"(let-values(((s_254)" "(if(syntax?$1" -" s_387)" +" s_382)" "(syntax-e$1" -" s_387)" -" s_387)))" +" s_382)" +" s_382)))" "(if(pair?" -" s_260)" +" s_254)" "(let-values(((val-rhs141_0)" -"(let-values(((s_262)" +"(let-values(((s_256)" "(car" -" s_260)))" -" s_262))" +" s_254)))" +" s_256))" "(()" -"(let-values(((s_524)" +"(let-values(((s_523)" "(cdr" -" s_260)))" -"(let-values(((s_525)" +" s_254)))" +"(let-values(((s_524)" "(if(syntax?$1" -" s_524)" +" s_523)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_523)" +" s_523)))" "(if(null?" -" s_525)" +" s_524)" "(values)" "(raise-syntax-error$1" " #f" @@ -64274,25 +64283,25 @@ static const char *startup_source = " for-loop_297)" " null" " null" -" lst_346)))))" +" lst_345)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_526)" +"(let-values(((s_525)" "(cdr" -" s_453)))" -"(let-values(((s_263)" +" s_448)))" +"(let-values(((s_257)" "(if(syntax?$1" -" s_526)" +" s_525)" "(syntax-e$1" -" s_526)" -" s_526)))" +" s_525)" +" s_525)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_263)))" +" s_257)))" "(if(not" " flat-s_38)" "(let-values()" @@ -64330,20 +64339,20 @@ static const char *startup_source = "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_350)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_349)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_350)))" +"(let-values()(check-list lst_349)))" "((letrec-values(((for-loop_299)" -"(lambda(fold-var_310 lst_351)" +"(lambda(fold-var_310 lst_350)" "(begin" " 'for-loop" -"(if(pair? lst_351)" +"(if(pair? lst_350)" "(let-values(((ids_35)" -"(unsafe-car lst_351))" +"(unsafe-car lst_350))" "((rest_201)" -"(unsafe-cdr lst_351)))" +"(unsafe-cdr lst_350)))" "(let-values(((fold-var_311)" "(let-values(((fold-var_312)" " fold-var_310))" @@ -64352,7 +64361,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_352)" +"(let-values(((lst_351)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64360,20 +64369,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_352)))" +" lst_351)))" "((letrec-values(((for-loop_300)" "(lambda(fold-var_314" -" lst_353)" +" lst_352)" "(begin" " 'for-loop" "(if(pair?" -" lst_353)" +" lst_352)" "(let-values(((id_118)" "(unsafe-car" -" lst_353))" +" lst_352))" "((rest_202)" "(unsafe-cdr" -" lst_353)))" +" lst_352)))" "(let-values(((fold-var_315)" "(let-values(((fold-var_316)" " fold-var_314))" @@ -64396,7 +64405,7 @@ static const char *startup_source = " fold-var_314)))))" " for-loop_300)" " null" -" lst_352)))))" +" lst_351)))))" " fold-var_312))))" "(values" " fold-var_313)))))" @@ -64406,14 +64415,14 @@ static const char *startup_source = " fold-var_310)))))" " for-loop_299)" " null" -" lst_350))))))" +" lst_349))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_354)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_353)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" +"(let-values()(check-list lst_353)))" "((letrec-values(((for-loop_301)" "(lambda(fold-var_318 lst_122)" "(begin" @@ -64431,7 +64440,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_355)" +"(let-values(((lst_354)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64439,20 +64448,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_355)))" +" lst_354)))" "((letrec-values(((for-loop_302)" "(lambda(fold-var_322" -" lst_356)" +" lst_355)" "(begin" " 'for-loop" "(if(pair?" -" lst_356)" +" lst_355)" "(let-values(((id_119)" "(unsafe-car" -" lst_356))" +" lst_355))" "((rest_204)" "(unsafe-cdr" -" lst_356)))" +" lst_355)))" "(let-values(((fold-var_108)" "(let-values(((fold-var_109)" " fold-var_322))" @@ -64475,7 +64484,7 @@ static const char *startup_source = " fold-var_322)))))" " for-loop_302)" " null" -" lst_355)))))" +" lst_354)))))" " fold-var_320))))" "(values" " fold-var_321)))))" @@ -64487,25 +64496,25 @@ static const char *startup_source = " fold-var_318)))))" " for-loop_301)" " null" -" lst_354))))))" +" lst_353))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_357)" +"(let-values(((lst_356)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" +"(let-values()(check-list lst_356)))" "((letrec-values(((for-loop_273)" -"(lambda(fold-var_324 lst_358)" +"(lambda(fold-var_324 lst_357)" "(begin" " 'for-loop" -"(if(pair? lst_358)" +"(if(pair? lst_357)" "(let-values(((rhs_20)" -"(unsafe-car lst_358))" +"(unsafe-car lst_357))" "((rest_205)" -"(unsafe-cdr lst_358)))" +"(unsafe-cdr lst_357)))" "(let-values(((fold-var_325)" "(let-values(((fold-var_326)" " fold-var_324))" @@ -64527,13 +64536,13 @@ static const char *startup_source = " fold-var_324)))))" " for-loop_273)" " null" -" lst_357))))" +" lst_356))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values((()" "(begin" "(let-values(((temp142_1)(list trans-idss_2 val-idss_3))" "((phase143_0) phase_145)" -"((s144_0) s_96))" +"((s144_0) s_324))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -64546,23 +64555,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_82)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_359) trans-idss_2))" +"(let-values(((lst_358) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_359)))" +"(let-values()(check-list lst_358)))" "((letrec-values(((for-loop_303)" -"(lambda(fold-var_328 lst_360)" +"(lambda(fold-var_328 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_360)" +"(if(pair? lst_359)" "(let-values(((ids_37)" "(unsafe-car" -" lst_360))" +" lst_359))" "((rest_206)" "(unsafe-cdr" -" lst_360)))" +" lst_359)))" "(let-values(((fold-var_329)" "(let-values(((fold-var_330)" " fold-var_328))" @@ -64571,7 +64580,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_361)" +"(let-values(((lst_360)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64579,20 +64588,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_361)))" +" lst_360)))" "((letrec-values(((for-loop_304)" "(lambda(fold-var_332" -" lst_362)" +" lst_361)" "(begin" " 'for-loop" "(if(pair?" -" lst_362)" +" lst_361)" "(let-values(((id_26)" "(unsafe-car" -" lst_362))" +" lst_361))" "((rest_207)" "(unsafe-cdr" -" lst_362)))" +" lst_361)))" "(let-values(((fold-var_333)" "(let-values(((fold-var_334)" " fold-var_332))" @@ -64609,7 +64618,7 @@ static const char *startup_source = "((frame-id157_0)" " frame-id_15)" "((s158_1)" -" s_96))" +" s_324))" "(add-local-binding!37.1" " frame-id157_0" " #t" @@ -64630,7 +64639,7 @@ static const char *startup_source = " fold-var_332)))))" " for-loop_304)" " null" -" lst_361)))))" +" lst_360)))))" " fold-var_330))))" "(values" " fold-var_331)))))" @@ -64642,15 +64651,15 @@ static const char *startup_source = " fold-var_328)))))" " for-loop_303)" " null" -" lst_359))))))" +" lst_358))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_363) val-idss_3))" +"(let-values(((lst_362) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" +"(let-values()(check-list lst_362)))" "((letrec-values(((for-loop_305)" "(lambda(fold-var_336 lst_245)" "(begin" @@ -64670,7 +64679,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_364)" +"(let-values(((lst_363)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64678,20 +64687,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_364)))" -"((letrec-values(((for-loop_65)" +" lst_363)))" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_340" -" lst_365)" +" lst_364)" "(begin" " 'for-loop" "(if(pair?" -" lst_365)" +" lst_364)" "(let-values(((id_120)" "(unsafe-car" -" lst_365))" +" lst_364))" "((rest_209)" "(unsafe-cdr" -" lst_365)))" +" lst_364)))" "(let-values(((fold-var_341)" "(let-values(((fold-var_342)" " fold-var_340))" @@ -64708,7 +64717,7 @@ static const char *startup_source = "((frame-id162_0)" " frame-id_15)" "((s163_0)" -" s_96))" +" s_324))" "(add-local-binding!37.1" " frame-id162_0" " #t" @@ -64722,14 +64731,14 @@ static const char *startup_source = " fold-var_343)))))" "(if(not" " #f)" -"(for-loop_65" +"(for-loop_306" " fold-var_341" " rest_209)" " fold-var_341)))" " fold-var_340)))))" -" for-loop_65)" +" for-loop_306)" " null" -" lst_364)))))" +" lst_363)))))" " fold-var_338))))" "(values" " fold-var_339)))))" @@ -64741,7 +64750,7 @@ static const char *startup_source = " fold-var_336)))))" " for-loop_305)" " null" -" lst_363))))))" +" lst_362))))))" "(let-values(((bodys_10)" "(reverse$1" "(let-values(((lst_146)" @@ -64821,39 +64830,39 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_366)" +"(let-values(((lst_365)" "(if syntaxes?_0 trans-rhs104_0 '()))" -"((lst_367) trans-idss_2))" +"((lst_366) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_365)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_366)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_367)))" -"((letrec-values(((for-loop_306)" +"((letrec-values(((for-loop_307)" "(lambda(fold-var_346" -" lst_368" -" lst_369)" +" lst_367" +" lst_368)" "(begin" " 'for-loop" -"(if(if(pair? lst_368)" -"(pair? lst_369)" +"(if(if(pair? lst_367)" +"(pair? lst_368)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_368))" +" lst_367))" "((rest_210)" "(unsafe-cdr" -" lst_368))" +" lst_367))" "((ids_39)" "(unsafe-car" -" lst_369))" +" lst_368))" "((rest_211)" "(unsafe-cdr" -" lst_369)))" +" lst_368)))" "(let-values(((fold-var_347)" "(let-values(((fold-var_348)" " fold-var_346))" @@ -64901,55 +64910,55 @@ static const char *startup_source = "(values" " fold-var_349)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_307" " fold-var_347" " rest_210" " rest_211)" " fold-var_347)))" " fold-var_346)))))" -" for-loop_306)" +" for-loop_307)" " null" -" lst_366" -" lst_367))))))" +" lst_365" +" lst_366))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_370) val-keyss_2)" -"((lst_371) val-idss_3))" +"(let-values(((lst_369) val-keyss_2)" +"((lst_370) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_369)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_370)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_371)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_308)" "(lambda(env_29" -" lst_372" -" lst_373)" +" lst_371" +" lst_372)" "(begin" " 'for-loop" -"(if(if(pair? lst_372)" -"(pair? lst_373)" +"(if(if(pair? lst_371)" +"(pair? lst_372)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_372))" +" lst_371))" "((rest_212)" "(unsafe-cdr" -" lst_372))" +" lst_371))" "((ids_40)" "(unsafe-car" -" lst_373))" +" lst_372))" "((rest_213)" "(unsafe-cdr" -" lst_373)))" +" lst_372)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_374)" +"(let-values(((lst_373)" " keys_10)" -"((lst_375)" +"((lst_374)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64957,36 +64966,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_374)))" +" lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_375)))" -"((letrec-values(((for-loop_308)" +" lst_374)))" +"((letrec-values(((for-loop_309)" "(lambda(env_32" -" lst_376" -" lst_377)" +" lst_375" +" lst_376)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_376)" +" lst_375)" "(pair?" -" lst_377)" +" lst_376)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_376))" +" lst_375))" "((rest_214)" "(unsafe-cdr" -" lst_376))" +" lst_375))" "((id_121)" "(unsafe-car" -" lst_377))" +" lst_376))" "((rest_215)" "(unsafe-cdr" -" lst_377)))" +" lst_376)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -65001,36 +65010,36 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_308" +"(for-loop_309" " env_33" " rest_214" " rest_215)" " env_33)))" " env_32)))))" -" for-loop_308)" +" for-loop_309)" " env_31" -" lst_374" -" lst_375))))))" +" lst_373" +" lst_374))))))" "(if(not #f)" -"(for-loop_307" +"(for-loop_308" " env_30" " rest_212" " rest_213)" " env_30)))" " env_29)))))" -" for-loop_307)" +" for-loop_308)" "(expand-context-env ctx_82)" -" lst_370" -" lst_371)))))" +" lst_369" +" lst_370)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_378) trans-keyss_0)" +"(let-values(((lst_377) trans-keyss_0)" "((lst_127) trans-valss_0)" -"((lst_379) trans-idss_2))" +"((lst_378) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_378)))" +"(let-values()(check-list lst_377)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -65038,48 +65047,48 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_379)))" -"((letrec-values(((for-loop_309)" +"(let-values()(check-list lst_378)))" +"((letrec-values(((for-loop_310)" "(lambda(env_36" +" lst_379" " lst_380" -" lst_381" -" lst_382)" +" lst_381)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_380)" +" lst_379)" "(if(pair?" -" lst_381)" +" lst_380)" "(pair?" -" lst_382)" +" lst_381)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_380))" +" lst_379))" "((rest_216)" "(unsafe-cdr" -" lst_380))" +" lst_379))" "((vals_9)" "(unsafe-car" -" lst_381))" +" lst_380))" "((rest_217)" "(unsafe-cdr" -" lst_381))" +" lst_380))" "((ids_41)" "(unsafe-car" -" lst_382))" +" lst_381))" "((rest_218)" "(unsafe-cdr" -" lst_382)))" +" lst_381)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_383)" +"(let-values(((lst_382)" " keys_11)" -"((lst_384)" +"((lst_383)" " vals_9)" "((lst_128)" " ids_41))" @@ -65089,32 +65098,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_382)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_383)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_384)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_128)))" "((letrec-values(((for-loop_159)" "(lambda(env_40" " lst_129" -" lst_385" -" lst_386)" +" lst_384" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" " lst_129)" "(if(pair?" -" lst_385)" +" lst_384)" "(pair?" -" lst_386)" +" lst_385)" " #f)" " #f)" "(let-values(((key_95)" @@ -65125,16 +65134,16 @@ static const char *startup_source = " lst_129))" "((val_83)" "(unsafe-car" -" lst_385))" +" lst_384))" "((rest_219)" "(unsafe-cdr" -" lst_385))" +" lst_384))" "((id_122)" "(unsafe-car" -" lst_386))" +" lst_385))" "((rest_220)" "(unsafe-cdr" -" lst_386)))" +" lst_385)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -65163,31 +65172,31 @@ static const char *startup_source = " env_40)))))" " for-loop_159)" " env_38" +" lst_382" " lst_383" -" lst_384" " lst_128))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_310" " env_37" " rest_216" " rest_217" " rest_218)" " env_37)))" " env_36)))))" -" for-loop_309)" +" for-loop_310)" " rec-val-env_0" -" lst_378" +" lst_377" " lst_127" -" lst_379)))))" +" lst_378)))))" "(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_256) expr-ctx_0))" -"(let-values(((the-struct_91) v_256))" +"(let-values(((v_254) expr-ctx_0))" +"(let-values(((the-struct_91) v_254))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((env164_0) rec-env_0)" @@ -65211,7 +65220,7 @@ static const char *startup_source = " sc_37))" "((inner168_0)" "(root-expand-context/outer-inner" -" v_256)))" +" v_254)))" "(expand-context/outer1.1" " inner168_0" "(root-expand-context/outer-post-expansion-scope" @@ -65251,7 +65260,7 @@ static const char *startup_source = " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx169_0) ctx_82)" -"((s170_1) s_96)" +"((s170_1) s_324)" "((temp171_1) #t))" "(keep-as-needed74.1" " #f" @@ -65266,15 +65275,15 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_82)" "(reverse$1" -"(let-values(((lst_387)" +"(let-values(((lst_386)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_387)))" -"((letrec-values(((for-loop_310)" +"(check-list lst_386)))" +"((letrec-values(((for-loop_311)" "(lambda(fold-var_120" " lst_132)" "(begin" @@ -65295,7 +65304,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_388)" +"(let-values(((lst_387)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65303,20 +65312,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_388)))" -"((letrec-values(((for-loop_311)" +" lst_387)))" +"((letrec-values(((for-loop_312)" "(lambda(fold-var_353" -" lst_389)" +" lst_388)" "(begin" " 'for-loop" "(if(pair?" -" lst_389)" +" lst_388)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_389))" +" lst_388))" "((rest_222)" "(unsafe-cdr" -" lst_389)))" +" lst_388)))" "(let-values(((fold-var_354)" "(let-values(((fold-var_124)" " fold-var_353))" @@ -65335,27 +65344,27 @@ static const char *startup_source = " fold-var_355)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_312" " fold-var_354" " rest_222)" " fold-var_354)))" " fold-var_353)))))" -" for-loop_311)" +" for-loop_312)" " null" -" lst_388)))))" +" lst_387)))))" " fold-var_351))))" "(values" " fold-var_352)))))" "(if(not" " #f)" -"(for-loop_310" +"(for-loop_311" " fold-var_350" " rest_221)" " fold-var_350)))" " fold-var_120)))))" -" for-loop_310)" +" for-loop_311)" " null" -" lst_387))))" +" lst_386))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -65398,17 +65407,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_257)" +"(let-values(((v_255)" " rec-ctx_0))" "(let-values(((the-struct_92)" -" v_257))" +" v_255))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((reference-records175_0)" " orig-rrs_0)" "((inner176_0)" "(root-expand-context/outer-inner" -" v_257)))" +" v_255)))" "(expand-context/outer1.1" " inner176_0" "(root-expand-context/outer-post-expansion-scope" @@ -65466,11 +65475,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_390)" +"(let-values(((lst_389)" " val-name-idss_0)" -"((lst_391)" +"((lst_390)" " val-keyss_2)" -"((lst_392)" +"((lst_391)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65478,6 +65487,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_389)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_390)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65485,45 +65500,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_391)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_392)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_356" -" lst_393" -" lst_61" -" lst_394)" +" lst_392" +" lst_62" +" lst_393)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_393)" +" lst_392)" "(if(pair?" -" lst_61)" +" lst_62)" "(pair?" -" lst_394)" +" lst_393)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_393))" +" lst_392))" "((rest_223)" "(unsafe-cdr" -" lst_393))" +" lst_392))" "((keys_12)" "(unsafe-car" -" lst_61))" +" lst_62))" "((rest_224)" "(unsafe-cdr" -" lst_61))" +" lst_62))" "((rhs_22)" "(unsafe-car" -" lst_394))" +" lst_393))" "((rest_225)" "(unsafe-cdr" -" lst_394)))" +" lst_393)))" "(let-values(((fold-var_47)" "(let-values(((fold-var_357)" " fold-var_356))" @@ -65575,18 +65584,18 @@ static const char *startup_source = " fold-var_358)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_313" " fold-var_47" " rest_223" " rest_224" " rest_225)" " fold-var_47)))" " fold-var_356)))))" -" for-loop_312)" +" for-loop_313)" " null" +" lst_389" " lst_390" -" lst_391" -" lst_392))))))" +" lst_391))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -65629,7 +65638,7 @@ static const char *startup_source = " val-rhss_3)" "((temp186_1)" "(reverse$1" -"(let-values(((lst_395)" +"(let-values(((lst_394)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65637,20 +65646,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_395)))" -"((letrec-values(((for-loop_313)" +" lst_394)))" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_359" -" lst_396)" +" lst_395)" "(begin" " 'for-loop" "(if(pair?" -" lst_396)" +" lst_395)" "(let-values(((rhs_23)" "(unsafe-car" -" lst_396))" +" lst_395))" "((rest_226)" "(unsafe-cdr" -" lst_396)))" +" lst_395)))" "(let-values(((fold-var_360)" "(let-values(((fold-var_361)" " fold-var_359))" @@ -65664,14 +65673,14 @@ static const char *startup_source = " fold-var_362)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_314" " fold-var_360" " rest_226)" " fold-var_360)))" " fold-var_359)))))" -" for-loop_313)" +" for-loop_314)" " null" -" lst_395)))))" +" lst_394)))))" "((temp187_2)" " #t)" "((frame-id188_0)" @@ -65710,21 +65719,21 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" +"(let-values(((lst_396) val-idss_4)((lst_397) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_396)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_397)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_398)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_363 lst_399 lst_139)" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_363 lst_398 lst_139)" "(begin" " 'for-loop" -"(if(if(pair? lst_399)(pair? lst_139) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_399))" -"((rest_69)(unsafe-cdr lst_399))" +"(if(if(pair? lst_398)(pair? lst_139) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_398))" +"((rest_69)(unsafe-cdr lst_398))" "((val-rhs_11)(unsafe-car lst_139))" "((rest_227)(unsafe-cdr lst_139)))" "(let-values(((fold-var_136)" @@ -65739,13 +65748,13 @@ static const char *startup_source = " fold-var_137))))" "(values fold-var_364)))))" "(if(not #f)" -"(for-loop_314 fold-var_136 rest_69 rest_227)" +"(for-loop_315 fold-var_136 rest_69 rest_227)" " fold-var_136)))" " fold-var_363)))))" -" for-loop_314)" +" for-loop_315)" " null" -" lst_397" -" lst_398))))" +" lst_396" +" lst_397))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_98" @@ -65754,21 +65763,21 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_400) trans-idss_3)((lst_401) trans-rhss_0))" +"(let-values(((lst_399) trans-idss_3)((lst_400) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_399)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_400)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_315)" -"(lambda(fold-var_365 lst_69 lst_148)" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_365 lst_70 lst_148)" "(begin" " 'for-loop" -"(if(if(pair? lst_69)(pair? lst_148) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_69))" -"((rest_228)(unsafe-cdr lst_69))" +"(if(if(pair? lst_70)(pair? lst_148) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_70))" +"((rest_228)(unsafe-cdr lst_70))" "((trans-rhs_5)(unsafe-car lst_148))" "((rest_75)(unsafe-cdr lst_148)))" "(let-values(((fold-var_366)" @@ -65784,12 +65793,12 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_38))))" " fold-var_367))))" "(values fold-var_368)))))" -"(if(not #f)(for-loop_315 fold-var_366 rest_228 rest_75) fold-var_366)))" +"(if(not #f)(for-loop_316 fold-var_366 rest_228 rest_75) fold-var_366)))" " fold-var_365)))))" -" for-loop_315)" +" for-loop_316)" " null" -" lst_400" -" lst_401))))" +" lst_399" +" lst_400))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -65824,7 +65833,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_527 ctx_83)" +"(lambda(s_526 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_100)(expand-context-observer ctx_83)))" @@ -65832,22 +65841,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_100 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_527)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_526)))" "(let-values(((ok?_39 #%stratified-body202_0 body203_0)" -"(let-values(((s_528) disarmed-s_9))" -"(let-values(((orig-s_47) s_528))" +"(let-values(((s_527) disarmed-s_9))" +"(let-values(((orig-s_47) s_527))" "(let-values(((#%stratified-body202_1 body203_1)" -"(let-values(((s_529)(if(syntax?$1 s_528)(syntax-e$1 s_528) s_528)))" -"(if(pair? s_529)" +"(let-values(((s_528)(if(syntax?$1 s_527)(syntax-e$1 s_527) s_527)))" +"(if(pair? s_528)" "(let-values(((#%stratified-body204_0)" -"(let-values(((s_530)(car s_529))) s_530))" +"(let-values(((s_529)(car s_528))) s_529))" "((body205_0)" -"(let-values(((s_531)(cdr s_529)))" -"(let-values(((s_532)" -"(if(syntax?$1 s_531)" -"(syntax-e$1 s_531)" -" s_531)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_532)))" +"(let-values(((s_530)(cdr s_528)))" +"(let-values(((s_531)" +"(if(syntax?$1 s_530)" +"(syntax-e$1 s_530)" +" s_530)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_531)))" "(if(not flat-s_39)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" @@ -65859,7 +65868,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%stratified-body202_1 body203_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx206_0) ctx_83)((s207_0) s_527)((temp208_0) #t))" +"(let-values(((ctx206_0) ctx_83)((s207_0) s_526)((temp208_0) #t))" "(keep-as-needed74.1 #f #f temp208_0 #t #f #f ctx206_0 s207_0))))" "(let-values(((exp-body_5)" "(let-values(((temp209_1) body203_0)" @@ -65878,21 +65887,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_533 ctx_84)" +"(lambda(s_532 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_101)(expand-context-observer ctx_84)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_533)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_532)))" "(let-values(((ok?_40 #%datum215_0 datum216_0)" -"(let-values(((s_534) disarmed-s_10))" -"(let-values(((orig-s_48) s_534))" +"(let-values(((s_533) disarmed-s_10))" +"(let-values(((orig-s_48) s_533))" "(let-values(((#%datum215_1 datum216_1)" -"(let-values(((s_535)(if(syntax?$1 s_534)(syntax-e$1 s_534) s_534)))" -"(if(pair? s_535)" -"(let-values(((#%datum217_0)(let-values(((s_536)(car s_535))) s_536))" -"((datum218_0)(let-values(((s_537)(cdr s_535))) s_537)))" +"(let-values(((s_534)(if(syntax?$1 s_533)(syntax-e$1 s_533) s_533)))" +"(if(pair? s_534)" +"(let-values(((#%datum217_0)(let-values(((s_535)(car s_534))) s_535))" +"((datum218_0)(let-values(((s_536)(cdr s_534))) s_536)))" "(values #%datum217_0 datum218_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%datum215_1 datum216_1))))))" @@ -65906,33 +65915,33 @@ static const char *startup_source = "(values))))" "(let-values(((phase_146)(expand-context-phase ctx_84)))" "(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_533)(syntax->datum$1 datum_2))" -"(let-values(((s219_0) s_533)((temp220_0)(list(core-id 'quote phase_146) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_532)(syntax->datum$1 datum_2))" +"(let-values(((s219_0) s_532)((temp220_0)(list(core-id 'quote phase_146) datum_2)))" "(rebuild5.1 #f #f s219_0 temp220_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_538 ctx_85)" +"(lambda(s_537 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer ctx_85)))" "(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_538)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_537)))" "(let-values(((ok?_41 #%app221_0 e222_0)" -"(let-values(((s_539) disarmed-s_11))" -"(let-values(((orig-s_49) s_539))" +"(let-values(((s_538) disarmed-s_11))" +"(let-values(((orig-s_49) s_538))" "(let-values(((#%app221_1 e222_1)" -"(let-values(((s_540)(if(syntax?$1 s_539)(syntax-e$1 s_539) s_539)))" -"(if(pair? s_540)" -"(let-values(((#%app223_0)(let-values(((s_541)(car s_540))) s_541))" +"(let-values(((s_539)(if(syntax?$1 s_538)(syntax-e$1 s_538) s_538)))" +"(if(pair? s_539)" +"(let-values(((#%app223_0)(let-values(((s_540)(car s_539))) s_540))" "((e224_0)" -"(let-values(((s_542)(cdr s_540)))" -"(let-values(((s_543)" -"(if(syntax?$1 s_542)" -"(syntax-e$1 s_542)" -" s_542)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_543)))" +"(let-values(((s_541)(cdr s_539)))" +"(let-values(((s_542)" +"(if(syntax?$1 s_541)" +"(syntax-e$1 s_541)" +" s_541)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_542)))" "(if(not flat-s_40)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -65945,14 +65954,14 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_147)(expand-context-phase ctx_85)))" "(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_538) null)" -"(let-values(((s225_0) s_538)((temp226_1)(list(core-id 'quote phase_147) null)))" +"(parsed-quote14.1(keep-properties-only~ s_537) null)" +"(let-values(((s225_0) s_537)((temp226_1)(list(core-id 'quote phase_147) null)))" "(rebuild5.1 #f #f s225_0 temp226_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx227_0) ctx_85)" -"((s228_0) s_538)" +"((s228_0) s_537)" "((keep-for-parsed?229_0) keep-for-parsed?_1))" "(keep-as-needed74.1 #f #f #f #f keep-for-parsed?229_0 #t ctx227_0 s228_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -65982,7 +65991,7 @@ static const char *startup_source = "(call-expand-observe" " obs_103" " 'enter-list" -"(datum->syntax$1 #f es_3 s_538))" +"(datum->syntax$1 #f es_3 s_537))" "(call-expand-observe obs_103 'next))))" "(void)))" "(values))))" @@ -65992,19 +66001,19 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp233_2 expr-ctx234_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_402) rest-es_0))" +"(let-values(((lst_401) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_369 lst_403)" +"(let-values()(check-list lst_401)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_369 lst_402)" "(begin" " 'for-loop" -"(if(pair? lst_403)" -"(let-values(((e_89)(unsafe-car lst_403))" +"(if(pair? lst_402)" +"(let-values(((e_89)(unsafe-car lst_402))" "((rest_229)" -"(unsafe-cdr lst_403)))" +"(unsafe-cdr lst_402)))" "(let-values(((fold-var_370)" "(let-values(((fold-var_371)" " fold-var_369))" @@ -66038,17 +66047,17 @@ static const char *startup_source = "(values" " fold-var_372)))))" "(if(not #f)" -"(for-loop_316 fold-var_370 rest_229)" +"(for-loop_317 fold-var_370 rest_229)" " fold-var_370)))" " fold-var_369)))))" -" for-loop_316)" +" for-loop_317)" " null" -" lst_402))))))" +" lst_401))))))" "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_210) rebuild-prefixless_0))" -"(if or-part_210 or-part_210 rebuild-s_8))" +"(let-values(((or-part_213) rebuild-prefixless_0))" +"(if or-part_213 or-part_213 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66075,35 +66084,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_544 ctx_86)" +"(lambda(s_543 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_106)(expand-context-observer ctx_86)))" "(if obs_106(let-values()(let-values()(call-expand-observe obs_106 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote241_0 datum242_0)" -"(let-values(((s_545)(syntax-disarm$1 s_544)))" -"(let-values(((orig-s_50) s_545))" +"(let-values(((s_544)(syntax-disarm$1 s_543)))" +"(let-values(((orig-s_50) s_544))" "(let-values(((quote241_1 datum242_1)" -"(let-values(((s_546)(if(syntax?$1 s_545)(syntax-e$1 s_545) s_545)))" -"(if(pair? s_546)" -"(let-values(((quote243_0)(let-values(((s_547)(car s_546))) s_547))" +"(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))" +"(if(pair? s_545)" +"(let-values(((quote243_0)(let-values(((s_546)(car s_545))) s_546))" "((datum244_0)" -"(let-values(((s_548)(cdr s_546)))" -"(let-values(((s_549)" -"(if(syntax?$1 s_548)" -"(syntax-e$1 s_548)" -" s_548)))" -"(if(pair? s_549)" +"(let-values(((s_547)(cdr s_545)))" +"(let-values(((s_548)" +"(if(syntax?$1 s_547)" +"(syntax-e$1 s_547)" +" s_547)))" +"(if(pair? s_548)" "(let-values(((datum245_0)" -"(let-values(((s_550)(car s_549))) s_550))" +"(let-values(((s_549)(car s_548))) s_549))" "(()" -"(let-values(((s_551)(cdr s_549)))" -"(let-values(((s_552)" -"(if(syntax?$1 s_551)" -"(syntax-e$1 s_551)" -" s_551)))" -"(if(null? s_552)" +"(let-values(((s_550)(cdr s_548)))" +"(let-values(((s_551)" +"(if(syntax?$1 s_550)" +"(syntax-e$1 s_550)" +" s_550)))" +"(if(null? s_551)" "(values)" "(raise-syntax-error$1" " #f" @@ -66115,12 +66124,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t quote241_1 datum242_1))))))" "(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_544)(syntax->datum$1 datum242_0))" -" s_544))))))" +"(parsed-quote14.1(keep-properties-only~ s_543)(syntax->datum$1 datum242_0))" +" s_543))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_553 ctx_87)" +"(lambda(s_552 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_107)(expand-context-observer ctx_87)))" @@ -66128,27 +66137,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_107 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_553)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_552)))" "(let-values(((ok?_43 quote-syntax246_0 datum247_0)" -"(let-values(((s_554) disarmed-s_12))" -"(if(let-values(((s_555)(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" -"(if(pair? s_555)" -"(if(let-values(((s_556)(car s_555))) #t)" -"(let-values(((s_557)(cdr s_555)))" -"(let-values(((s_558)(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" -"(if(pair? s_558)" -"(if(let-values(((s_559)(car s_558))) #t)" -"(let-values(((s_560)(cdr s_558)))" -"(let-values(((s_561)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" -"(if(pair? s_561)" -"(if(let-values(((s_562)(car s_561)))" -"(let-values(((s_563)" -"(if(syntax?$1 s_562)(syntax-e$1 s_562) s_562)))" -"(eq? '#:local s_563)))" -"(let-values(((s_564)(cdr s_561)))" -"(let-values(((s_565)" -"(if(syntax?$1 s_564)(syntax-e$1 s_564) s_564)))" -"(null? s_565)))" +"(let-values(((s_553) disarmed-s_12))" +"(if(let-values(((s_554)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" +"(if(pair? s_554)" +"(if(let-values(((s_555)(car s_554))) #t)" +"(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)" +"(if(let-values(((s_558)(car s_557))) #t)" +"(let-values(((s_559)(cdr s_557)))" +"(let-values(((s_560)(if(syntax?$1 s_559)(syntax-e$1 s_559) s_559)))" +"(if(pair? s_560)" +"(if(let-values(((s_561)(car s_560)))" +"(let-values(((s_562)" +"(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))" +"(eq? '#:local s_562)))" +"(let-values(((s_563)(cdr s_560)))" +"(let-values(((s_564)" +"(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" +"(null? s_564)))" " #f)" " #f)))" " #f)" @@ -66157,44 +66166,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax246_1 datum247_1)" -"(let-values(((s_272)(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" +"(let-values(((s_266)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" "(let-values(((quote-syntax248_0)" -"(let-values(((s_566)(car s_272))) s_566))" +"(let-values(((s_565)(car s_266))) s_565))" "((datum249_0)" -"(let-values(((s_567)(cdr s_272)))" -"(let-values(((s_273)" -"(if(syntax?$1 s_567)" -"(syntax-e$1 s_567)" -" s_567)))" +"(let-values(((s_566)(cdr s_266)))" +"(let-values(((s_267)" +"(if(syntax?$1 s_566)" +"(syntax-e$1 s_566)" +" s_566)))" "(let-values(((datum250_0)" -"(let-values(((s_568)(car s_273))) s_568))" +"(let-values(((s_567)(car s_267))) s_567))" "(()" -"(let-values(((s_569)(cdr s_273)))" -"(let-values(((s_274)" -"(if(syntax?$1 s_569)" -"(syntax-e$1 s_569)" -" s_569)))" +"(let-values(((s_568)(cdr s_267)))" +"(let-values(((s_268)" +"(if(syntax?$1 s_568)" +"(syntax-e$1 s_568)" +" s_568)))" "(let-values((()" -"(let-values(((s_275)" +"(let-values(((s_269)" "(car" -" s_274)))" -"(let-values(((s_276)" +" s_268)))" +"(let-values(((s_270)" "(if(syntax?$1" -" s_275)" +" s_269)" "(syntax-e$1" -" s_275)" -" s_275)))" +" s_269)" +" s_269)))" "(values))))" "(()" -"(let-values(((s_570)" +"(let-values(((s_569)" "(cdr" -" s_274)))" -"(let-values(((s_571)" +" s_268)))" +"(let-values(((s_570)" "(if(syntax?$1" -" s_570)" +" s_569)" "(syntax-e$1" -" s_570)" -" s_570)))" +" s_569)" +" s_569)))" "(values)))))" "(values))))))" "(values datum250_0))))))" @@ -66202,31 +66211,31 @@ static const char *startup_source = "(values #t quote-syntax246_1 datum247_1)))" "(values #f #f #f)))))" "(let-values(((ok?_44 quote-syntax251_0 datum252_0)" -"(let-values(((s_277) disarmed-s_12))" +"(let-values(((s_271) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_51) s_277))" +"(let-values(((orig-s_51) s_271))" "(let-values(((quote-syntax251_1 datum252_1)" -"(let-values(((s_572)(if(syntax?$1 s_277)(syntax-e$1 s_277) s_277)))" -"(if(pair? s_572)" +"(let-values(((s_571)(if(syntax?$1 s_271)(syntax-e$1 s_271) s_271)))" +"(if(pair? s_571)" "(let-values(((quote-syntax253_0)" -"(let-values(((s_573)(car s_572))) s_573))" +"(let-values(((s_572)(car s_571))) s_572))" "((datum254_0)" -"(let-values(((s_574)(cdr s_572)))" -"(let-values(((s_575)" -"(if(syntax?$1 s_574)" -"(syntax-e$1 s_574)" -" s_574)))" -"(if(pair? s_575)" +"(let-values(((s_573)(cdr s_571)))" +"(let-values(((s_574)" +"(if(syntax?$1 s_573)" +"(syntax-e$1 s_573)" +" s_573)))" +"(if(pair? s_574)" "(let-values(((datum255_0)" -"(let-values(((s_576)(car s_575)))" -" s_576))" +"(let-values(((s_575)(car s_574)))" +" s_575))" "(()" -"(let-values(((s_577)(cdr s_575)))" -"(let-values(((s_578)" -"(if(syntax?$1 s_577)" -"(syntax-e$1 s_577)" -" s_577)))" -"(if(null? s_578)" +"(let-values(((s_576)(cdr s_574)))" +"(let-values(((s_577)" +"(if(syntax?$1 s_576)" +"(syntax-e$1 s_576)" +" s_576)))" +"(if(null? s_577)" "(values)" "(raise-syntax-error$1" " #f" @@ -66248,52 +66257,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_87))" "(values))))" "(let-values(((ok?_45 _256_0 _257_0 kw258_0)" -"(let-values(((s_579) disarmed-s_12))" -"(let-values(((orig-s_52) s_579))" +"(let-values(((s_578) disarmed-s_12))" +"(let-values(((orig-s_52) s_578))" "(let-values(((_256_1 _257_1 kw258_1)" -"(let-values(((s_580)" -"(if(syntax?$1 s_579)(syntax-e$1 s_579) s_579)))" -"(if(pair? s_580)" +"(let-values(((s_579)" +"(if(syntax?$1 s_578)(syntax-e$1 s_578) s_578)))" +"(if(pair? s_579)" "(let-values(((_259_0)" -"(let-values(((s_581)(car s_580))) s_581))" +"(let-values(((s_580)(car s_579))) s_580))" "((_260_0 kw261_0)" -"(let-values(((s_582)(cdr s_580)))" -"(let-values(((s_285)" -"(if(syntax?$1 s_582)" -"(syntax-e$1 s_582)" -" s_582)))" -"(if(pair? s_285)" +"(let-values(((s_581)(cdr s_579)))" +"(let-values(((s_279)" +"(if(syntax?$1 s_581)" +"(syntax-e$1 s_581)" +" s_581)))" +"(if(pair? s_279)" "(let-values(((_262_0)" -"(let-values(((s_583)" -"(car s_285)))" -" s_583))" +"(let-values(((s_582)" +"(car s_279)))" +" s_582))" "((kw263_0)" -"(let-values(((s_286)" -"(cdr s_285)))" -"(let-values(((s_584)" +"(let-values(((s_280)" +"(cdr s_279)))" +"(let-values(((s_583)" "(if(syntax?$1" -" s_286)" +" s_280)" "(syntax-e$1" -" s_286)" -" s_286)))" -"(if(pair? s_584)" +" s_280)" +" s_280)))" +"(if(pair? s_583)" "(let-values(((kw264_0)" -"(let-values(((s_287)" +"(let-values(((s_281)" "(car" -" s_584)))" -" s_287))" +" s_583)))" +" s_281))" "(()" -"(let-values(((s_288)" +"(let-values(((s_282)" "(cdr" -" s_584)))" -"(let-values(((s_289)" +" s_583)))" +"(let-values(((s_283)" "(if(syntax?$1" -" s_288)" +" s_282)" "(syntax-e$1" -" s_288)" -" s_288)))" +" s_282)" +" s_282)))" "(if(null?" -" s_289)" +" s_283)" "(values)" "(raise-syntax-error$1" " #f" @@ -66313,42 +66322,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t _256_1 _257_1 kw258_1))))))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_553) datum247_0)" -"(let-values(((s265_0) s_553)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum247_0)" +"(let-values(((s265_0) s_552)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" "(rebuild5.1 #f #f s265_0 temp266_1))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_87))))" "(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_553) datum-s_0)" -"(let-values(((s267_0) s_553)((temp268_0)(list quote-syntax251_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum-s_0)" +"(let-values(((s267_0) s_552)((temp268_0)(list quote-syntax251_0 datum-s_0)))" "(rebuild5.1 #f #f s267_0 temp268_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_585 ctx_88)" +"(lambda(s_584 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_88)))" "(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_585)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_584)))" "(let-values(((ok?_46 _269_0 _270_0 _271_0)" -"(let-values(((s_297) disarmed-s_13))" -"(if(let-values(((s_298)(if(syntax?$1 s_297)(syntax-e$1 s_297) s_297)))" -"(if(pair? s_298)" -"(if(let-values(((s_299)(car s_298))) #t)" -"(let-values(((s_586)(cdr s_298)))" -"(let-values(((s_587)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" -"(if(pair? s_587)" -"(if(let-values(((s_300)(car s_587))) #t)" -"(let-values(((s_301)(cdr s_587)))" -"(let-values(((s_302)(if(syntax?$1 s_301)(syntax-e$1 s_301) s_301)))" -"(if(pair? s_302)" -"(if(let-values(((s_588)(car s_302))) #t)" -"(let-values(((s_589)(cdr s_302)))" -"(let-values(((s_590)" -"(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))" -"(null? s_590)))" +"(let-values(((s_291) disarmed-s_13))" +"(if(let-values(((s_292)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(if(pair? s_292)" +"(if(let-values(((s_293)(car s_292))) #t)" +"(let-values(((s_585)(cdr s_292)))" +"(let-values(((s_586)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" +"(if(pair? s_586)" +"(if(let-values(((s_294)(car s_586))) #t)" +"(let-values(((s_295)(cdr s_586)))" +"(let-values(((s_296)(if(syntax?$1 s_295)(syntax-e$1 s_295) s_295)))" +"(if(pair? s_296)" +"(if(let-values(((s_587)(car s_296))) #t)" +"(let-values(((s_588)(cdr s_296)))" +"(let-values(((s_589)" +"(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" +"(null? s_589)))" " #f)" " #f)))" " #f)" @@ -66357,37 +66366,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_269_1 _270_1 _271_1)" -"(let-values(((s_591)(if(syntax?$1 s_297)(syntax-e$1 s_297) s_297)))" -"(let-values(((_272_0)(let-values(((s_592)(car s_591))) s_592))" +"(let-values(((s_590)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(let-values(((_272_0)(let-values(((s_591)(car s_590))) s_591))" "((_273_0 _274_0)" -"(let-values(((s_593)(cdr s_591)))" -"(let-values(((s_594)" -"(if(syntax?$1 s_593)" -"(syntax-e$1 s_593)" -" s_593)))" +"(let-values(((s_592)(cdr s_590)))" +"(let-values(((s_593)" +"(if(syntax?$1 s_592)" +"(syntax-e$1 s_592)" +" s_592)))" "(let-values(((_275_0)" -"(let-values(((s_595)(car s_594))) s_595))" +"(let-values(((s_594)(car s_593))) s_594))" "((_276_0)" -"(let-values(((s_596)(cdr s_594)))" -"(let-values(((s_597)" -"(if(syntax?$1 s_596)" -"(syntax-e$1 s_596)" -" s_596)))" +"(let-values(((s_595)(cdr s_593)))" +"(let-values(((s_596)" +"(if(syntax?$1 s_595)" +"(syntax-e$1 s_595)" +" s_595)))" "(let-values(((_277_0)" -"(let-values(((s_598)" +"(let-values(((s_597)" "(car" -" s_597)))" -" s_598))" +" s_596)))" +" s_597))" "(()" -"(let-values(((s_599)" +"(let-values(((s_598)" "(cdr" -" s_597)))" -"(let-values(((s_600)" +" s_596)))" +"(let-values(((s_599)" "(if(syntax?$1" -" s_599)" +" s_598)" "(syntax-e$1" -" s_599)" -" s_599)))" +" s_598)" +" s_598)))" "(values)))))" "(values _277_0))))))" "(values _275_0 _276_0))))))" @@ -66397,67 +66406,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_46" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_585))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_584))" "(void))" "(values))))" "(let-values(((ok?_47 if278_0 tst279_0 thn280_0 els281_0)" -"(let-values(((s_601) disarmed-s_13))" -"(let-values(((orig-s_53) s_601))" +"(let-values(((s_600) disarmed-s_13))" +"(let-values(((orig-s_53) s_600))" "(let-values(((if278_1 tst279_1 thn280_1 els281_1)" -"(let-values(((s_602)(if(syntax?$1 s_601)(syntax-e$1 s_601) s_601)))" -"(if(pair? s_602)" -"(let-values(((if282_0)(let-values(((s_603)(car s_602))) s_603))" +"(let-values(((s_601)(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" +"(if(pair? s_601)" +"(let-values(((if282_0)(let-values(((s_602)(car s_601))) s_602))" "((tst283_0 thn284_0 els285_0)" -"(let-values(((s_604)(cdr s_602)))" -"(let-values(((s_605)" -"(if(syntax?$1 s_604)" -"(syntax-e$1 s_604)" -" s_604)))" -"(if(pair? s_605)" +"(let-values(((s_603)(cdr s_601)))" +"(let-values(((s_604)" +"(if(syntax?$1 s_603)" +"(syntax-e$1 s_603)" +" s_603)))" +"(if(pair? s_604)" "(let-values(((tst286_0)" -"(let-values(((s_606)(car s_605)))" -" s_606))" +"(let-values(((s_605)(car s_604)))" +" s_605))" "((thn287_0 els288_0)" -"(let-values(((s_607)(cdr s_605)))" -"(let-values(((s_608)" -"(if(syntax?$1 s_607)" -"(syntax-e$1 s_607)" -" s_607)))" -"(if(pair? s_608)" +"(let-values(((s_606)(cdr s_604)))" +"(let-values(((s_607)" +"(if(syntax?$1 s_606)" +"(syntax-e$1 s_606)" +" s_606)))" +"(if(pair? s_607)" "(let-values(((thn289_0)" -"(let-values(((s_609)" +"(let-values(((s_608)" "(car" -" s_608)))" -" s_609))" +" s_607)))" +" s_608))" "((els290_0)" +"(let-values(((s_609)" +"(cdr" +" s_607)))" "(let-values(((s_610)" -"(cdr" -" s_608)))" -"(let-values(((s_611)" "(if(syntax?$1" -" s_610)" +" s_609)" "(syntax-e$1" -" s_610)" -" s_610)))" +" s_609)" +" s_609)))" "(if(pair?" -" s_611)" +" s_610)" "(let-values(((els291_0)" -"(let-values(((s_612)" +"(let-values(((s_611)" "(car" -" s_611)))" -" s_612))" +" s_610)))" +" s_611))" "(()" -"(let-values(((s_613)" +"(let-values(((s_612)" "(cdr" -" s_611)))" -"(let-values(((s_614)" +" s_610)))" +"(let-values(((s_613)" "(if(syntax?$1" -" s_613)" +" s_612)" "(syntax-e$1" -" s_613)" -" s_613)))" +" s_612)" +" s_612)))" "(if(null?" -" s_614)" +" s_613)" "(values)" "(raise-syntax-error$1" " #f" @@ -66487,7 +66496,7 @@ static const char *startup_source = "(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_88))" "(as-tail-context23.1 ctx293_0 expr-ctx292_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx294_0) ctx_88)((s295_0) s_585))" +"(let-values(((ctx294_0) ctx_88)((s295_0) s_584))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx294_0 s295_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp296_0) tst279_0)((expr-ctx297_0) expr-ctx_2))" @@ -66520,7 +66529,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_615 ctx_89)" +"(lambda(s_614 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_89)))" @@ -66528,65 +66537,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_615)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_614)))" "(let-values(((ok?_48 with-continuation-mark304_0 key305_0 val306_0 body307_0)" -"(let-values(((s_616) disarmed-s_14))" -"(let-values(((orig-s_54) s_616))" +"(let-values(((s_615) disarmed-s_14))" +"(let-values(((orig-s_54) s_615))" "(let-values(((with-continuation-mark304_1 key305_1 val306_1 body307_1)" -"(let-values(((s_617)(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" -"(if(pair? s_617)" +"(let-values(((s_616)(if(syntax?$1 s_615)(syntax-e$1 s_615) s_615)))" +"(if(pair? s_616)" "(let-values(((with-continuation-mark308_0)" -"(let-values(((s_618)(car s_617))) s_618))" +"(let-values(((s_617)(car s_616))) s_617))" "((key309_0 val310_0 body311_0)" -"(let-values(((s_619)(cdr s_617)))" -"(let-values(((s_620)" -"(if(syntax?$1 s_619)" -"(syntax-e$1 s_619)" -" s_619)))" -"(if(pair? s_620)" +"(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(((key312_0)" -"(let-values(((s_621)(car s_620)))" -" s_621))" +"(let-values(((s_620)(car s_619)))" +" s_620))" "((val313_0 body314_0)" -"(let-values(((s_622)(cdr s_620)))" -"(let-values(((s_623)" -"(if(syntax?$1 s_622)" -"(syntax-e$1 s_622)" -" s_622)))" -"(if(pair? s_623)" +"(let-values(((s_621)(cdr s_619)))" +"(let-values(((s_622)" +"(if(syntax?$1 s_621)" +"(syntax-e$1 s_621)" +" s_621)))" +"(if(pair? s_622)" "(let-values(((val315_0)" -"(let-values(((s_624)" +"(let-values(((s_623)" "(car" -" s_623)))" -" s_624))" +" s_622)))" +" s_623))" "((body316_0)" +"(let-values(((s_624)" +"(cdr" +" s_622)))" "(let-values(((s_625)" -"(cdr" -" s_623)))" -"(let-values(((s_626)" "(if(syntax?$1" -" s_625)" +" s_624)" "(syntax-e$1" -" s_625)" -" s_625)))" -"(if(pair? s_626)" +" s_624)" +" s_624)))" +"(if(pair? s_625)" "(let-values(((body317_0)" -"(let-values(((s_627)" +"(let-values(((s_626)" "(car" -" s_626)))" -" s_627))" +" s_625)))" +" s_626))" "(()" -"(let-values(((s_628)" +"(let-values(((s_627)" "(cdr" -" s_626)))" -"(let-values(((s_629)" +" s_625)))" +"(let-values(((s_628)" "(if(syntax?$1" -" s_628)" +" s_627)" "(syntax-e$1" -" s_628)" -" s_628)))" +" s_627)" +" s_627)))" "(if(null?" -" s_629)" +" s_628)" "(values)" "(raise-syntax-error$1" " #f" @@ -66610,7 +66619,7 @@ static const char *startup_source = "(values #t with-continuation-mark304_1 key305_1 val306_1 body307_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx318_0) ctx_89)((s319_0) s_615))" +"(let-values(((ctx318_0) ctx_89)((s319_0) s_614))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx318_0 s319_0))))" "(let-values(((exp-key_0)" "(let-values(((temp320_0) key305_0)((expr-ctx321_0) expr-ctx_3))" @@ -66653,7 +66662,7 @@ 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_630 ctx_90)" +"(lambda(s_629 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_114)(expand-context-observer ctx_90)))" @@ -66661,24 +66670,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_114 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_630)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_629)))" "(let-values(((ok?_49 begin330_0 e331_0)" -"(let-values(((s_631) disarmed-s_15))" -"(let-values(((orig-s_55) s_631))" +"(let-values(((s_630) disarmed-s_15))" +"(let-values(((orig-s_55) s_630))" "(let-values(((begin330_1 e331_1)" -"(let-values(((s_632)" -"(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" -"(if(pair? s_632)" +"(let-values(((s_631)" +"(if(syntax?$1 s_630)(syntax-e$1 s_630) s_630)))" +"(if(pair? s_631)" "(let-values(((begin332_0)" -"(let-values(((s_633)(car s_632))) s_633))" +"(let-values(((s_632)(car s_631))) s_632))" "((e333_0)" -"(let-values(((s_634)(cdr s_632)))" -"(let-values(((s_635)" -"(if(syntax?$1 s_634)" -"(syntax-e$1 s_634)" -" s_634)))" +"(let-values(((s_633)(cdr s_631)))" +"(let-values(((s_634)" +"(if(syntax?$1 s_633)" +"(syntax-e$1 s_633)" +" s_633)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_635)))" +"(to-syntax-list.1 s_634)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" @@ -66700,7 +66709,7 @@ static const char *startup_source = "(as-begin-expression-context ctx_90)" "(as-expression-context ctx_90))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx334_0) ctx_90)((s335_0) s_630))" +"(let-values(((ctx334_0) ctx_90)((s335_0) s_629))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx334_0 s335_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -66786,39 +66795,39 @@ static const char *startup_source = "((temp344_0) 0)" "((temp345_0) #t))" "(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))" -"(lambda(s_636 ctx_91)" +"(lambda(s_635 ctx_91)" "(let-values(((context_24)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_383)(eq? context_24 'top-level)))" -"(if or-part_383 or-part_383(eq? context_24 'module)))" +"(if(let-values(((or-part_386)(eq? context_24 'top-level)))" +"(if or-part_386 or-part_386(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_636)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_635)))" "(let-values(((ok?_50 begin346_0)" -"(let-values(((s_637) disarmed-s_16))" -"(if(let-values(((s_638)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" -"(if(pair? s_638)" -"(if(let-values(((s_639)(car s_638))) #t)" -"(let-values(((s_640)(cdr s_638)))" -"(let-values(((s_641)(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))" -"(null? s_641)))" +"(let-values(((s_636) disarmed-s_16))" +"(if(let-values(((s_637)(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" +"(if(pair? s_637)" +"(if(let-values(((s_638)(car s_637))) #t)" +"(let-values(((s_639)(cdr s_637)))" +"(let-values(((s_640)(if(syntax?$1 s_639)(syntax-e$1 s_639) s_639)))" +"(null? s_640)))" " #f)" " #f))" "(let-values()" "(let-values(((begin346_1)" -"(let-values(((s_642)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" +"(let-values(((s_641)(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" "(let-values(((begin347_0)" -"(let-values(((s_643)(car s_642))) s_643))" +"(let-values(((s_642)(car s_641))) s_642))" "(()" -"(let-values(((s_644)(cdr s_642)))" -"(let-values(((s_645)" -"(if(syntax?$1 s_644)" -"(syntax-e$1 s_644)" -" s_644)))" +"(let-values(((s_643)(cdr s_641)))" +"(let-values(((s_644)" +"(if(syntax?$1 s_643)" +"(syntax-e$1 s_643)" +" s_643)))" "(values)))))" "(values begin347_0)))))" "(values #t begin346_1)))" "(values #f #f)))))" -"(if ok?_50 s_636(nonempty-begin_0 s_636 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_636 ctx_91))))))))" +"(if ok?_50 s_635(nonempty-begin_0 s_635 ctx_91)))))" +"(let-values()(nonempty-begin_0 s_635 ctx_91))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -66845,7 +66854,7 @@ static const char *startup_source = "(lambda(s354_0 ctx355_0 implicit-omitted?352_0 implicit-omitted?353_0)" "(begin" " 'core356" -"(let-values(((s_646) s354_0))" +"(let-values(((s_645) s354_0))" "(let-values(((ctx_93) ctx355_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?353_0 implicit-omitted?352_0 #f)))" "(let-values()" @@ -66857,46 +66866,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_118 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_646)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_645)))" "(let-values(((id_124)" "(if implicit-omitted?_0" -"(let-values() s_646)" +"(let-values() s_645)" "(let-values()" "(let-values(((ok?_51 #%top358_0 id359_0)" -"(let-values(((s_647) disarmed-s_17))" -"(let-values(((orig-s_56) s_647))" +"(let-values(((s_646) disarmed-s_17))" +"(let-values(((orig-s_56) s_646))" "(let-values(((#%top358_1 id359_1)" -"(let-values(((s_648)" -"(if(syntax?$1 s_647)" -"(syntax-e$1 s_647)" -" s_647)))" -"(if(pair? s_648)" +"(let-values(((s_647)" +"(if(syntax?$1 s_646)" +"(syntax-e$1 s_646)" +" s_646)))" +"(if(pair? s_647)" "(let-values(((#%top360_0)" -"(let-values(((s_649)" +"(let-values(((s_648)" "(car" -" s_648)))" -" s_649))" +" s_647)))" +" s_648))" "((id361_0)" -"(let-values(((s_650)" +"(let-values(((s_649)" "(cdr" -" s_648)))" -"(if(let-values(((or-part_384)" +" s_647)))" +"(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_650)" +" s_649)" "(symbol?" "(syntax-e$1" -" s_650))" +" s_649))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_387" +" or-part_387" "(symbol?" -" s_650)))" -" s_650" +" s_649)))" +" s_649" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_56" -" s_650)))))" +" s_649)))))" "(values #%top360_0 id361_0))" "(raise-syntax-error$1" " #f" @@ -66932,7 +66941,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_93)" "(parsed-id2.1 id_124 b_87 #f)" "(if(top-level-module-path-index?(module-binding-module b_87))" -"(let-values() s_646)" +"(let-values() s_645)" "(let-values() id_124))))" "(if(register-eventual-variable!? id_124 ctx_93)" "(let-values()" @@ -66977,42 +66986,42 @@ static const char *startup_source = "(let-values() id_124)" "(let-values()" "(let-values(((ok?_52 #%top367_0 id368_0)" -"(let-values(((s_651) disarmed-s_17))" -"(let-values(((orig-s_57) s_651))" +"(let-values(((s_650) disarmed-s_17))" +"(let-values(((orig-s_57) s_650))" "(let-values(((#%top367_1 id368_1)" -"(let-values(((s_652)" +"(let-values(((s_651)" "(if(syntax?$1" -" s_651)" +" s_650)" "(syntax-e$1" -" s_651)" -" s_651)))" -"(if(pair? s_652)" +" s_650)" +" s_650)))" +"(if(pair? s_651)" "(let-values(((#%top369_0)" -"(let-values(((s_653)" +"(let-values(((s_652)" "(car" -" s_652)))" -" s_653))" +" s_651)))" +" s_652))" "((id370_0)" -"(let-values(((s_654)" +"(let-values(((s_653)" "(cdr" -" s_652)))" -"(if(let-values(((or-part_385)" +" s_651)))" +"(if(let-values(((or-part_388)" "(if(syntax?$1" -" s_654)" +" s_653)" "(symbol?" "(syntax-e$1" -" s_654))" +" s_653))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_388" +" or-part_388" "(symbol?" -" s_654)))" -" s_654" +" s_653)))" +" s_653" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_654)))))" +" s_653)))))" "(values" " #%top369_0" " id370_0))" @@ -67021,80 +67030,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_57)))))" "(values #t #%top367_1 id368_1))))))" -"(let-values(((s371_0) s_646)" +"(let-values(((s371_0) s_645)" "((temp372_0)(cons #%top367_0 id_124)))" "(rebuild5.1 #f #f s371_0 temp372_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" "(parsed-top-id4.1 id_124 b_87 #f)" -" s_646)))))))))))))))))))))))" +" s_645)))))))))))))))))))))))" "(case-lambda" -"((s_655 ctx_94)(core356_0 s_655 ctx_94 #f #f))" -"((s_656 ctx_95 implicit-omitted?352_1)(core356_0 s_656 ctx_95 implicit-omitted?352_1 #t))))))" +"((s_654 ctx_94)(core356_0 s_654 ctx_94 #f #f))" +"((s_655 ctx_95 implicit-omitted?352_1)(core356_0 s_655 ctx_95 implicit-omitted?352_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_657 ctx_96)" +"(lambda(s_656 ctx_96)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_96)))" "(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_657)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_656)))" "(let-values(((ok?_53 set!373_0 id374_0 rhs375_0)" -"(let-values(((s_658) disarmed-s_18))" -"(let-values(((orig-s_58) s_658))" +"(let-values(((s_657) disarmed-s_18))" +"(let-values(((orig-s_58) s_657))" "(let-values(((set!373_1 id374_1 rhs375_1)" -"(let-values(((s_659)(if(syntax?$1 s_658)(syntax-e$1 s_658) s_658)))" -"(if(pair? s_659)" -"(let-values(((set!376_0)(let-values(((s_660)(car s_659))) s_660))" +"(let-values(((s_658)(if(syntax?$1 s_657)(syntax-e$1 s_657) s_657)))" +"(if(pair? s_658)" +"(let-values(((set!376_0)(let-values(((s_659)(car s_658))) s_659))" "((id377_0 rhs378_0)" -"(let-values(((s_661)(cdr s_659)))" -"(let-values(((s_662)" -"(if(syntax?$1 s_661)" -"(syntax-e$1 s_661)" -" s_661)))" -"(if(pair? s_662)" +"(let-values(((s_660)(cdr s_658)))" +"(let-values(((s_661)" +"(if(syntax?$1 s_660)" +"(syntax-e$1 s_660)" +" s_660)))" +"(if(pair? s_661)" "(let-values(((id379_0)" -"(let-values(((s_663)(car s_662)))" -"(if(let-values(((or-part_386)" -"(if(syntax?$1 s_663)" +"(let-values(((s_662)(car s_661)))" +"(if(let-values(((or-part_389)" +"(if(syntax?$1 s_662)" "(symbol?" "(syntax-e$1" -" s_663))" +" s_662))" " #f)))" -"(if or-part_386" -" or-part_386" -"(symbol? s_663)))" -" s_663" +"(if or-part_389" +" or-part_389" +"(symbol? s_662)))" +" s_662" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_663))))" +" s_662))))" "((rhs380_0)" -"(let-values(((s_664)(cdr s_662)))" -"(let-values(((s_665)" -"(if(syntax?$1 s_664)" -"(syntax-e$1 s_664)" -" s_664)))" -"(if(pair? s_665)" +"(let-values(((s_663)(cdr s_661)))" +"(let-values(((s_664)" +"(if(syntax?$1 s_663)" +"(syntax-e$1 s_663)" +" s_663)))" +"(if(pair? s_664)" "(let-values(((rhs381_0)" -"(let-values(((s_666)" +"(let-values(((s_665)" "(car" -" s_665)))" -" s_666))" +" s_664)))" +" s_665))" "(()" -"(let-values(((s_667)" +"(let-values(((s_666)" "(cdr" -" s_665)))" -"(let-values(((s_668)" +" s_664)))" +"(let-values(((s_667)" "(if(syntax?$1" -" s_667)" +" s_666)" "(syntax-e$1" -" s_667)" -" s_667)))" -"(if(null? s_668)" +" s_666)" +" s_666)))" +"(if(null? s_667)" "(values)" "(raise-syntax-error$1" " #f" @@ -67139,11 +67148,11 @@ static const char *startup_source = "(let-values()(raise-ambiguous-error id_126 ctx_96))" "(void))" "(values))))" -"(let-values(((t_57 primitive?_11 insp_24 protected?_12)" +"(let-values(((t_58 primitive?_11 insp_24 protected?_12)" "(if binding_30" "(let-values(((binding386_0) binding_30)" "((ctx387_0) ctx_96)" -"((s388_0) s_657))" +"((s388_0) s_656))" "(lookup17.1 #f #f #f #f binding386_0 ctx387_0 s388_0))" "(values #f #f #f #f))))" "(begin" @@ -67152,14 +67161,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_120 'resolve id_126)))" "(void)))" -"(if(let-values(((or-part_387)(variable? t_57)))" -"(if or-part_387" -" or-part_387" +"(if(let-values(((or-part_390)(variable? t_58)))" +"(if or-part_390" +" or-part_390" "(if(not binding_30)" -"(let-values(((or-part_388)" +"(let-values(((or-part_391)" "(register-eventual-variable!? id_126 ctx_96)))" -"(if or-part_388" -" or-part_388" +"(if or-part_391" +" or-part_391" "(expand-context-allow-unbound? ctx_96)))" " #f)))" "(let-values()" @@ -67175,7 +67184,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_657" +" s_656" " id_126))" "(void))" "(values))))" @@ -67194,7 +67203,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx389_0) ctx_96)((s390_0) s_657))" +"(let-values(((ctx389_0) ctx_96)((s390_0) s_656))" "(keep-as-needed74.1" " #f" " #f" @@ -67219,7 +67228,7 @@ static const char *startup_source = "(list" " set!373_0" "(let-values(((id395_0) id_126)" -"((t396_0) t_57)" +"((t396_0) t_58)" "((temp397_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" @@ -67235,34 +67244,34 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_657" +" s_656" " id_126" " null" "(syntax-debug-info-string id_126 ctx_96)))" -"(if(1/set!-transformer? t_57)" +"(if(1/set!-transformer? t_58)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_96)" +"(if(not-in-this-expand-context? t_58 ctx_96)" "(let-values()" "(let-values(((temp398_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_657" +" s_656" " disarmed-s_18" " set!373_0" " rhs375_0" " id_126" " from-rename?_0" " ctx_96)" -" t_57" +" t_58" " ctx_96))" "((ctx399_0) ctx_96))" "(expand7.1 #f #f #f #f temp398_0 ctx399_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" "(apply-transformer" -" t_57" +" t_58" " insp_24" -" s_657" +" s_656" " id_126" " ctx_96" " binding_30)))" @@ -67272,34 +67281,34 @@ static const char *startup_source = "(let-values(((exp-s400_0) exp-s_14)" "((re-ctx401_0) re-ctx_1))" "(expand7.1 #f #f #f #f exp-s400_0 re-ctx401_0))))))))" -"(if(1/rename-transformer? t_57)" +"(if(1/rename-transformer? t_58)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_96)" +"(if(not-in-this-expand-context? t_58 ctx_96)" "(let-values()" "(let-values(((temp402_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_657" +" s_656" " disarmed-s_18" " set!373_0" " rhs375_0" " id_126" " from-rename?_0" " ctx_96" -" t_57)" -" t_57" +" t_58)" +" t_58" " ctx_96))" "((ctx403_0) ctx_96))" "(expand7.1 #f #f #f #f temp402_0 ctx403_0)))" "(let-values()" "(rename-loop_0" -"(rename-transformer-target-in-context t_57 ctx_96)" +"(rename-transformer-target-in-context t_58 ctx_96)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_657" +" s_656" " id_126))))))))))))))" " rename-loop_0)" " id_125" @@ -67310,21 +67319,21 @@ static const char *startup_source = "(lambda(s25_1 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_669) s25_1))" +"(let-values(((s_668) s25_1))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_127) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" "(let-values(((ctx_97) ctx31_0))" -"(let-values(((t_58)(if t24_0 t23_0 #f)))" +"(let-values(((t_59)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_389) t_58))" -"(if or-part_389 or-part_389 from-rename?_1))" +"(if(let-values(((or-part_392) t_59))" +"(if or-part_392 or-part_392 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" -"(if t_58" -"(rename-transformer-target-in-context t_58 ctx_97)" +"(if t_59" +"(rename-transformer-target-in-context t_59 ctx_97)" " id_127)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -67332,17 +67341,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_669)))" -"(let-values() s_669)))))))))))))))" +" s_668)))" +"(let-values() s_668)))))))))))))))" "(case-lambda" -"((s_670 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename32_0 s_670 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" -"((s_671 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename32_0 s_671 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" +"((s_669 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98)" +"(begin(substitute-set!-rename32_0 s_669 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" +"((s_670 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1)" +"(substitute-set!-rename32_0 s_670 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_672 ctx_100)" +"(lambda(s_671 ctx_100)" "(let-values((()" "(begin" "(let-values(((obs_122)(expand-context-observer ctx_100)))" @@ -67350,75 +67359,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_672)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_671)))" "(let-values(((ok?_54 #%variable-reference404_0 id405_0)" -"(let-values(((s_673) disarmed-s_22))" -"(if(let-values(((s_674)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" -"(if(pair? s_674)" -"(if(let-values(((s_675)(car s_674))) #t)" -"(let-values(((s_676)(cdr s_674)))" -"(let-values(((s_677)(if(syntax?$1 s_676)(syntax-e$1 s_676) s_676)))" -"(if(pair? s_677)" -"(if(let-values(((s_678)(car s_677)))" -"(let-values(((or-part_390)" -"(if(syntax?$1 s_678)(symbol?(syntax-e$1 s_678)) #f)))" -"(if or-part_390 or-part_390(symbol? s_678))))" -"(let-values(((s_679)(cdr s_677)))" -"(let-values(((s_680)(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" -"(null? s_680)))" +"(let-values(((s_672) disarmed-s_22))" +"(if(let-values(((s_673)(if(syntax?$1 s_672)(syntax-e$1 s_672) s_672)))" +"(if(pair? s_673)" +"(if(let-values(((s_674)(car s_673))) #t)" +"(let-values(((s_675)(cdr s_673)))" +"(let-values(((s_676)(if(syntax?$1 s_675)(syntax-e$1 s_675) s_675)))" +"(if(pair? s_676)" +"(if(let-values(((s_677)(car s_676)))" +"(let-values(((or-part_393)" +"(if(syntax?$1 s_677)(symbol?(syntax-e$1 s_677)) #f)))" +"(if or-part_393 or-part_393(symbol? s_677))))" +"(let-values(((s_678)(cdr s_676)))" +"(let-values(((s_679)(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" +"(null? s_679)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference404_1 id405_1)" -"(let-values(((s_681)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" +"(let-values(((s_680)(if(syntax?$1 s_672)(syntax-e$1 s_672) s_672)))" "(let-values(((#%variable-reference406_0)" -"(let-values(((s_682)(car s_681))) s_682))" +"(let-values(((s_681)(car s_680))) s_681))" "((id407_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_682)(cdr s_680)))" +"(let-values(((s_683)" +"(if(syntax?$1 s_682)" +"(syntax-e$1 s_682)" +" s_682)))" "(let-values(((id408_0)" -"(let-values(((s_685)(car s_684))) s_685))" +"(let-values(((s_684)(car s_683))) s_684))" "(()" -"(let-values(((s_686)(cdr s_684)))" -"(let-values(((s_687)" -"(if(syntax?$1 s_686)" -"(syntax-e$1 s_686)" -" s_686)))" +"(let-values(((s_685)(cdr s_683)))" +"(let-values(((s_686)" +"(if(syntax?$1 s_685)" +"(syntax-e$1 s_685)" +" s_685)))" "(values)))))" "(values id408_0))))))" "(values #%variable-reference406_0 id407_0)))))" "(values #t #%variable-reference404_1 id405_1)))" "(values #f #f #f)))))" "(let-values(((ok?_55 #%variable-reference409_0 #%top410_0 id411_0)" -"(let-values(((s_688) disarmed-s_22))" +"(let-values(((s_687) disarmed-s_22))" "(if(if(not ok?_54)" -"(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" -"(if(pair? s_689)" -"(if(let-values(((s_690)(car s_689))) #t)" -"(let-values(((s_691)(cdr s_689)))" -"(let-values(((s_692)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" -"(if(pair? s_692)" -"(if(let-values(((s_693)(car s_692)))" -"(let-values(((s_694)" -"(if(syntax?$1 s_693)(syntax-e$1 s_693) s_693)))" -"(if(pair? s_694)" -"(if(let-values(((s_695)(car s_694))) #t)" -"(let-values(((s_696)(cdr s_694)))" -"(let-values(((or-part_391)" -"(if(syntax?$1 s_696)" -"(symbol?(syntax-e$1 s_696))" +"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" +"(if(pair? s_688)" +"(if(let-values(((s_689)(car s_688))) #t)" +"(let-values(((s_690)(cdr s_688)))" +"(let-values(((s_691)(if(syntax?$1 s_690)(syntax-e$1 s_690) s_690)))" +"(if(pair? s_691)" +"(if(let-values(((s_692)(car s_691)))" +"(let-values(((s_693)" +"(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" +"(if(pair? s_693)" +"(if(let-values(((s_694)(car s_693))) #t)" +"(let-values(((s_695)(cdr s_693)))" +"(let-values(((or-part_394)" +"(if(syntax?$1 s_695)" +"(symbol?(syntax-e$1 s_695))" " #f)))" -"(if or-part_391 or-part_391(symbol? s_696))))" +"(if or-part_394 or-part_394(symbol? s_695))))" " #f)" " #f)))" -"(let-values(((s_697)(cdr s_692)))" -"(let-values(((s_698)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" -"(null? s_698)))" +"(let-values(((s_696)(cdr s_691)))" +"(let-values(((s_697)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" +"(null? s_697)))" " #f)" " #f)))" " #f)" @@ -67426,61 +67435,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference409_1 #%top410_1 id411_1)" -"(let-values(((s_699)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" +"(let-values(((s_698)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" "(let-values(((#%variable-reference412_0)" -"(let-values(((s_700)(car s_699))) s_700))" +"(let-values(((s_699)(car s_698))) s_699))" "((#%top413_0 id414_0)" -"(let-values(((s_701)(cdr s_699)))" -"(let-values(((s_702)" -"(if(syntax?$1 s_701)" -"(syntax-e$1 s_701)" -" s_701)))" +"(let-values(((s_700)(cdr s_698)))" +"(let-values(((s_701)" +"(if(syntax?$1 s_700)" +"(syntax-e$1 s_700)" +" s_700)))" "(let-values(((#%top415_0 id416_0)" -"(let-values(((s_703)(car s_702)))" -"(let-values(((s_704)" -"(if(syntax?$1 s_703)" -"(syntax-e$1 s_703)" -" s_703)))" +"(let-values(((s_702)(car s_701)))" +"(let-values(((s_703)" +"(if(syntax?$1 s_702)" +"(syntax-e$1 s_702)" +" s_702)))" "(let-values(((#%top417_0)" -"(let-values(((s_705)" +"(let-values(((s_704)" "(car" -" s_704)))" -" s_705))" +" s_703)))" +" s_704))" "((id418_0)" -"(let-values(((s_706)" +"(let-values(((s_705)" "(cdr" -" s_704)))" -" s_706)))" +" s_703)))" +" s_705)))" "(values #%top417_0 id418_0)))))" "(()" -"(let-values(((s_707)(cdr s_702)))" -"(let-values(((s_708)" -"(if(syntax?$1 s_707)" -"(syntax-e$1 s_707)" -" s_707)))" +"(let-values(((s_706)(cdr s_701)))" +"(let-values(((s_707)" +"(if(syntax?$1 s_706)" +"(syntax-e$1 s_706)" +" s_706)))" "(values)))))" "(values #%top415_0 id416_0))))))" "(values #%variable-reference412_0 #%top413_0 id414_0)))))" "(values #t #%variable-reference409_1 #%top410_1 id411_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference419_0)" -"(let-values(((s_709) disarmed-s_22))" -"(if(if(not(let-values(((or-part_392) ok?_54))(if or-part_392 or-part_392 ok?_55)))" +"(let-values(((s_708) disarmed-s_22))" +"(if(if(not(let-values(((or-part_395) ok?_54))(if or-part_395 or-part_395 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_59) s_709))" +"(let-values(((orig-s_59) s_708))" "(let-values(((#%variable-reference419_1)" -"(let-values(((s_710)(if(syntax?$1 s_709)(syntax-e$1 s_709) s_709)))" -"(if(pair? s_710)" +"(let-values(((s_709)(if(syntax?$1 s_708)(syntax-e$1 s_708) s_708)))" +"(if(pair? s_709)" "(let-values(((#%variable-reference420_0)" -"(let-values(((s_711)(car s_710))) s_711))" +"(let-values(((s_710)(car s_709))) s_710))" "(()" -"(let-values(((s_712)(cdr s_710)))" -"(let-values(((s_713)" -"(if(syntax?$1 s_712)" -"(syntax-e$1 s_712)" -" s_712)))" -"(if(null? s_713)" +"(let-values(((s_711)(cdr s_709)))" +"(let-values(((s_712)" +"(if(syntax?$1 s_711)" +"(syntax-e$1 s_711)" +" s_711)))" +"(if(null? s_712)" "(values)" "(raise-syntax-error$1" " #f" @@ -67490,7 +67499,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference419_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_393) ok?_54))(if or-part_393 or-part_393 ok?_55))" +"(if(let-values(((or-part_396) ok?_54))(if or-part_396 or-part_396 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id405_0 id411_0)))" "(let-values(((binding_31)" @@ -67506,47 +67515,47 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_394) binding_31))" -"(if or-part_394 or-part_394(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_397) binding_31))" +"(if or-part_397 or-part_397(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_672" +" s_671" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_100))))" "(values))))" -"(let-values(((t_59 primitive?_12 insp-of-t_7 protected?_13)" +"(let-values(((t_60 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_31" "(let-values(((binding424_0) binding_31)" "((ctx425_0) ctx_100)" "((var-id426_0) var-id_0)" -"((s427_0) s_672)" +"((s427_0) s_671)" "((temp428_0)(expand-context-in-local-expand? ctx_100)))" "(lookup17.1 s427_0 #t temp428_0 #t binding424_0 ctx425_0 var-id426_0))" "(values #f #f #f #f))))" "(begin" -"(if(if t_59(not(variable? t_59)) #f)" +"(if(if t_60(not(variable? t_60)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_672))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_671))" "(void))" "(if(expand-context-to-parsed? ctx_100)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_672)" +"(keep-properties-only~ s_671)" "(if ok?_55" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_672))))))))" +" s_671))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_672) #f)" -" s_672)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_671) #f)" +" s_671)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_714 ctx_101)" +"(lambda(s_713 ctx_101)" "(let-values((()" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_101)))" @@ -67554,32 +67563,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_123 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_714)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_713)))" "(let-values(((ok?_57 #%expression429_0 e430_0)" -"(let-values(((s_715) disarmed-s_23))" -"(let-values(((orig-s_60) s_715))" +"(let-values(((s_714) disarmed-s_23))" +"(let-values(((orig-s_60) s_714))" "(let-values(((#%expression429_1 e430_1)" -"(let-values(((s_716)(if(syntax?$1 s_715)(syntax-e$1 s_715) s_715)))" -"(if(pair? s_716)" +"(let-values(((s_715)(if(syntax?$1 s_714)(syntax-e$1 s_714) s_714)))" +"(if(pair? s_715)" "(let-values(((#%expression431_0)" -"(let-values(((s_717)(car s_716))) s_717))" +"(let-values(((s_716)(car s_715))) s_716))" "((e432_0)" -"(let-values(((s_718)(cdr s_716)))" -"(let-values(((s_719)" -"(if(syntax?$1 s_718)" -"(syntax-e$1 s_718)" -" s_718)))" -"(if(pair? s_719)" +"(let-values(((s_717)(cdr s_715)))" +"(let-values(((s_718)" +"(if(syntax?$1 s_717)" +"(syntax-e$1 s_717)" +" s_717)))" +"(if(pair? s_718)" "(let-values(((e433_0)" -"(let-values(((s_720)(car s_719)))" -" s_720))" +"(let-values(((s_719)(car s_718)))" +" s_719))" "(()" -"(let-values(((s_721)(cdr s_719)))" -"(let-values(((s_722)" -"(if(syntax?$1 s_721)" -"(syntax-e$1 s_721)" -" s_721)))" -"(if(null? s_722)" +"(let-values(((s_720)(cdr s_718)))" +"(let-values(((s_721)" +"(if(syntax?$1 s_720)" +"(syntax-e$1 s_720)" +" s_720)))" +"(if(null? s_721)" "(values)" "(raise-syntax-error$1" " #f" @@ -67591,7 +67600,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%expression429_1 e430_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx434_0) ctx_101)((s435_0) s_714)((temp436_0) #t))" +"(let-values(((ctx434_0) ctx_101)((s435_0) s_713)((temp436_0) #t))" "(keep-as-needed74.1 temp436_0 #t #f #f #f #f ctx434_0 s435_0))))" "(let-values(((exp-e_0)" "(let-values(((temp437_0) e430_0)" @@ -67602,11 +67611,11 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp437_0 temp438_0))))" "(if(expand-context-to-parsed? ctx_101)" " exp-e_0" -"(let-values(((tmp_62)" +"(let-values(((tmp_61)" "(if(not(expand-context-in-local-expand? ctx_101))" "(expand-context-context ctx_101)" " #f)))" -"(if(equal? tmp_62 'expression)" +"(if(equal? tmp_61 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" @@ -67618,8 +67627,8 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s441_0) rebuild-s_13)((temp442_0)(list #%expression429_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s441_0 temp442_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_723 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_723))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_724 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))" +" (void (add-core-form!* 'unquote (lambda (s_722 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_722))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_723 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_723))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_130 at-phase_12 ns_122)" @@ -67657,25 +67666,25 @@ static const char *startup_source = " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_78) specs_1))" +"(let-values(((lst_79) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_95)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_94)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_404)" +" lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_404)" +"(if(pair? lst_403)" "(let-values(((spec_0)" "(unsafe-car" -" lst_404))" +" lst_403))" "((rest_230)" "(unsafe-cdr" -" lst_404)))" +" lst_403)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -67723,11 +67732,11 @@ static const char *startup_source = " fm_2)" " orig-s_61" " spec_0)))))))" -"(let-values(((tmp_63)" +"(let-values(((tmp_62)" " fm_2))" "(let-values(((index_7)" "(if(symbol?" -" tmp_63)" +" tmp_62)" "(hash-ref" " '#hasheq((all-defined" " ." @@ -67767,7 +67776,7 @@ static const char *startup_source = "(struct" " ." " 6))" -" tmp_63" +" tmp_62" "(lambda()" " 0))" " 0)))" @@ -67814,57 +67823,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_308)" +"(let-values(((s_302)" " disarmed-spec_0))" "(let-values(((orig-s_62)" -" s_308))" +" s_302))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_309)" +"(let-values(((s_303)" "(if(syntax?$1" -" s_308)" +" s_302)" "(syntax-e$1" -" s_308)" -" s_308)))" +" s_302)" +" s_302)))" "(if(pair?" -" s_309)" +" s_303)" "(let-values(((for-meta6_0)" -"(let-values(((s_178)" +"(let-values(((s_177)" "(car" -" s_309)))" -" s_178))" +" s_303)))" +" s_177))" "((phase-level7_0" " spec8_0)" "(let-values(((s_75)" "(cdr" -" s_309)))" -"(let-values(((s_725)" +" s_303)))" +"(let-values(((s_724)" "(if(syntax?$1" " s_75)" "(syntax-e$1" " s_75)" " s_75)))" "(if(pair?" -" s_725)" +" s_724)" "(let-values(((phase-level9_0)" -"(let-values(((s_180)" +"(let-values(((s_179)" "(car" -" s_725)))" -" s_180))" +" s_724)))" +" s_179))" "((spec10_0)" -"(let-values(((s_469)" +"(let-values(((s_463)" "(cdr" -" s_725)))" -"(let-values(((s_476)" +" s_724)))" +"(let-values(((s_471)" "(if(syntax?$1" -" s_469)" +" s_463)" "(syntax-e$1" -" s_469)" -" s_469)))" +" s_463)" +" s_463)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_476)))" +" s_471)))" "(if(not" " flat-s_42)" "(let-values()" @@ -67894,13 +67903,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_71)" +"(let-values(((p_72)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_71)" +" p_72)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -67914,7 +67923,7 @@ static const char *startup_source = "(loop_114" " spec5_0" "(phase+" -" p_71" +" p_72" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -67962,15 +67971,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_432)" +"(let-values(((s_428)" "(car" " s_23)))" -" s_432))" +" s_428))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_726)" +"(let-values(((s_725)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -67978,7 +67987,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_726)))" +" s_725)))" "(if(not" " flat-s_43)" "(let-values()" @@ -68042,24 +68051,24 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_484)" +"(let-values(((s_479)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_484)" +" s_479)" "(let-values(((for-label21_0)" -"(let-values(((s_482)" +"(let-values(((s_477)" "(car" -" s_484)))" -" s_482))" +" s_479)))" +" s_477))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_484)))" -"(let-values(((s_310)" +" s_479)))" +"(let-values(((s_304)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -68067,7 +68076,7 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_310)))" +" s_304)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68134,18 +68143,18 @@ static const char *startup_source = "(let-values(((ok?_61" " protect25_0" " p-spec26_0)" -"(let-values(((s_727)" +"(let-values(((s_726)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_727))" +" s_726))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_727)" +" s_726)" "(syntax-e$1" -" s_727)" -" s_727)))" +" s_726)" +" s_726)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" @@ -68154,18 +68163,18 @@ static const char *startup_source = " s_31)))" " s_83))" "((p-spec28_0)" -"(let-values(((s_313)" +"(let-values(((s_307)" "(cdr" " s_31)))" -"(let-values(((s_487)" +"(let-values(((s_482)" "(if(syntax?$1" -" s_313)" +" s_307)" "(syntax-e$1" -" s_313)" -" s_313)))" +" s_307)" +" s_307)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_487)))" +" s_482)))" "(if(not" " flat-s_45)" "(let-values()" @@ -68219,43 +68228,43 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_728)" +"(let-values(((s_727)" " disarmed-spec_0))" "(let-values(((orig-s_66)" -" s_728))" +" s_727))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_490)" +"(let-values(((s_485)" "(if(syntax?$1" -" s_728)" +" s_727)" "(syntax-e$1" -" s_728)" -" s_728)))" +" s_727)" +" s_727)))" "(if(pair?" -" s_490)" +" s_485)" "(let-values(((rename34_0)" -"(let-values(((s_319)" +"(let-values(((s_313)" "(car" -" s_490)))" -" s_319))" +" s_485)))" +" s_313))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_402)" +"(let-values(((s_396)" "(cdr" -" s_490)))" -"(let-values(((s_320)" +" s_485)))" +"(let-values(((s_314)" "(if(syntax?$1" -" s_402)" +" s_396)" "(syntax-e$1" -" s_402)" -" s_402)))" +" s_396)" +" s_396)))" "(if(pair?" -" s_320)" +" s_314)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_320)))" +" s_314)))" "(if(let-values(((or-part_58)" "(if(syntax?$1" " s_33)" @@ -68274,50 +68283,50 @@ static const char *startup_source = " orig-s_66" " s_33))))" "((id:to38_0)" -"(let-values(((s_729)" +"(let-values(((s_728)" "(cdr" -" s_320)))" -"(let-values(((s_730)" +" s_314)))" +"(let-values(((s_729)" "(if(syntax?$1" -" s_729)" +" s_728)" "(syntax-e$1" -" s_729)" -" s_729)))" +" s_728)" +" s_728)))" "(if(pair?" -" s_730)" +" s_729)" "(let-values(((id:to39_0)" -"(let-values(((s_436)" +"(let-values(((s_432)" "(car" -" s_730)))" -"(if(let-values(((or-part_395)" +" s_729)))" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_436)" +" s_432)" "(symbol?" "(syntax-e$1" -" s_436))" +" s_432))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_436)))" -" s_436" +" s_432)))" +" s_432" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_66" -" s_436))))" +" s_432))))" "(()" -"(let-values(((s_731)" +"(let-values(((s_730)" "(cdr" -" s_730)))" -"(let-values(((s_389)" +" s_729)))" +"(let-values(((s_384)" "(if(syntax?$1" -" s_731)" +" s_730)" "(syntax-e$1" -" s_731)" -" s_731)))" +" s_730)" +" s_730)))" "(if(null?" -" s_389)" +" s_384)" "(values)" "(raise-syntax-error$1" " #f" @@ -68386,70 +68395,70 @@ static const char *startup_source = "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_416)" +"(let-values(((s_410)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_416)" +" s_410)" "(let-values(((struct43_0)" -"(let-values(((s_200)" +"(let-values(((s_199)" "(car" -" s_416)))" -" s_200))" +" s_410)))" +" s_199))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_732)" +"(let-values(((s_731)" "(cdr" -" s_416)))" -"(let-values(((s_733)" +" s_410)))" +"(let-values(((s_732)" "(if(syntax?$1" -" s_732)" +" s_731)" "(syntax-e$1" -" s_732)" -" s_732)))" +" s_731)" +" s_731)))" "(if(pair?" -" s_733)" +" s_732)" "(let-values(((id:struct46_0)" -"(let-values(((s_734)" +"(let-values(((s_733)" "(car" -" s_733)))" -"(if(let-values(((or-part_363)" +" s_732)))" +"(if(let-values(((or-part_366)" "(if(syntax?$1" -" s_734)" +" s_733)" "(symbol?" "(syntax-e$1" -" s_734))" +" s_733))" " #f)))" -"(if or-part_363" -" or-part_363" +"(if or-part_366" +" or-part_366" "(symbol?" -" s_734)))" -" s_734" +" s_733)))" +" s_733" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_734))))" +" s_733))))" "((id:field47_0)" -"(let-values(((s_735)" +"(let-values(((s_734)" "(cdr" -" s_733)))" -"(let-values(((s_396)" +" s_732)))" +"(let-values(((s_390)" "(if(syntax?$1" -" s_735)" +" s_734)" "(syntax-e$1" -" s_735)" -" s_735)))" +" s_734)" +" s_734)))" "(if(pair?" -" s_396)" +" s_390)" "(let-values(((id:field48_0)" "(let-values(((s_62)" "(car" -" s_396)))" -"(let-values(((s_736)" +" s_390)))" +"(let-values(((s_735)" "(if(syntax?$1" " s_62)" "(syntax-e$1" @@ -68457,7 +68466,7 @@ static const char *startup_source = " s_62)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_736)))" +" s_735)))" "(if(not" " flat-s_46)" "(let-values()" @@ -68496,15 +68505,15 @@ 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_38)" "(symbol?" "(syntax-e$1" " s_38))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_399" +" or-part_399" "(symbol?" " s_38)))" " s_38" @@ -68531,17 +68540,17 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_204)" +"(let-values(((s_203)" "(cdr" -" s_396)))" -"(let-values(((s_737)" +" s_390)))" +"(let-values(((s_736)" "(if(syntax?$1" -" s_204)" +" s_203)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_203)" +" s_203)))" "(if(null?" -" s_737)" +" s_736)" "(values)" "(raise-syntax-error$1" " #f" @@ -68598,54 +68607,54 @@ static const char *startup_source = "(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_738)" +"(let-values(((s_737)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_738))" +" s_737))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_739)" +"(let-values(((s_738)" "(if(syntax?$1" -" s_738)" +" s_737)" "(syntax-e$1" -" s_738)" -" s_738)))" +" s_737)" +" s_737)))" "(if(pair?" -" s_739)" +" s_738)" "(let-values(((all-from52_0)" +"(let-values(((s_739)" +"(car" +" s_738)))" +" s_739))" +"((mod-path53_0)" +"(let-values(((s_206)" +"(cdr" +" s_738)))" +"(let-values(((s_207)" +"(if(syntax?$1" +" s_206)" +"(syntax-e$1" +" s_206)" +" s_206)))" +"(if(pair?" +" s_207)" +"(let-values(((mod-path54_0)" "(let-values(((s_740)" "(car" -" s_739)))" -" s_740))" -"((mod-path53_0)" -"(let-values(((s_207)" -"(cdr" -" s_739)))" -"(let-values(((s_88)" -"(if(syntax?$1" -" s_207)" -"(syntax-e$1" -" s_207)" " s_207)))" -"(if(pair?" -" s_88)" -"(let-values(((mod-path54_0)" -"(let-values(((s_741)" -"(car" -" s_88)))" -" s_741))" +" s_740))" "(()" -"(let-values(((s_413)" +"(let-values(((s_88)" "(cdr" -" s_88)))" -"(let-values(((s_326)" +" s_207)))" +"(let-values(((s_320)" "(if(syntax?$1" -" s_413)" +" s_88)" "(syntax-e$1" -" s_413)" -" s_413)))" +" s_88)" +" s_88)))" "(if(null?" -" s_326)" +" s_320)" "(values)" "(raise-syntax-error$1" " #f" @@ -68693,57 +68702,57 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_210)" +"(let-values(((s_91)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_210))" +" s_91))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_212)" +"(let-values(((s_210)" "(if(syntax?$1" -" s_210)" +" s_91)" "(syntax-e$1" -" s_210)" -" s_210)))" +" s_91)" +" s_91)))" "(if(pair?" -" s_212)" +" s_210)" "(let-values(((all-from-except58_0)" -"(let-values(((s_742)" +"(let-values(((s_741)" "(car" -" s_212)))" -" s_742))" +" s_210)))" +" s_741))" "((mod-path59_0" " id60_0)" -"(let-values(((s_162)" +"(let-values(((s_161)" "(cdr" -" s_212)))" -"(let-values(((s_493)" +" s_210)))" +"(let-values(((s_488)" "(if(syntax?$1" -" s_162)" +" s_161)" "(syntax-e$1" -" s_162)" -" s_162)))" +" s_161)" +" s_161)))" "(if(pair?" -" s_493)" +" s_488)" "(let-values(((mod-path61_0)" -"(let-values(((s_94)" +"(let-values(((s_399)" "(car" -" s_493)))" -" s_94))" +" s_488)))" +" s_399))" "((id62_0)" -"(let-values(((s_743)" +"(let-values(((s_742)" "(cdr" -" s_493)))" -"(let-values(((s_744)" +" s_488)))" +"(let-values(((s_743)" "(if(syntax?$1" -" s_743)" +" s_742)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_742)" +" s_742)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_744)))" +" s_743)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68753,7 +68762,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id_131)" -"(let-values(((lst_44)" +"(let-values(((lst_43)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68761,20 +68770,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_44)))" -"((letrec-values(((for-loop_317)" +" lst_43)))" +"((letrec-values(((for-loop_56)" "(lambda(id_132" -" lst_405)" +" lst_44)" "(begin" " 'for-loop" "(if(pair?" -" lst_405)" -"(let-values(((s_97)" +" lst_44)" +"(let-values(((s_491)" "(unsafe-car" -" lst_405))" -"((rest_231)" +" lst_44))" +"((rest_18)" "(unsafe-cdr" -" lst_405)))" +" lst_44)))" "(let-values(((id_133)" "(let-values(((id_134)" " id_132))" @@ -68782,23 +68791,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_97)" +" s_491)" "(symbol?" "(syntax-e$1" -" s_97))" +" s_491))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_400" +" or-part_400" "(symbol?" -" s_97)))" -" s_97" +" s_491)))" +" s_491" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_97)))))" +" s_491)))))" "(cons" " id63_0" " id_134)))))" @@ -68806,14 +68815,14 @@ static const char *startup_source = " id_135)))))" "(if(not" " #f)" -"(for-loop_317" +"(for-loop_56" " id_133" -" rest_231)" +" rest_18)" " id_133)))" " id_132)))))" -" for-loop_317)" +" for-loop_56)" " null" -" lst_44)))))" +" lst_43)))))" "(reverse$1" " id_131)))))))))" "(values" @@ -68865,36 +68874,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_66" " all-defined64_0)" -"(let-values(((s_218)" +"(let-values(((s_215)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_218))" +" s_215))" "(let-values(((all-defined64_1)" -"(let-values(((s_398)" +"(let-values(((s_392)" "(if(syntax?$1" -" s_218)" +" s_215)" "(syntax-e$1" -" s_218)" -" s_218)))" +" s_215)" +" s_215)))" "(if(pair?" -" s_398)" +" s_392)" "(let-values(((all-defined65_0)" -"(let-values(((s_745)" -"(car" -" s_398)))" -" s_745))" -"(()" "(let-values(((s_103)" +"(car" +" s_392)))" +" s_103))" +"(()" +"(let-values(((s_744)" "(cdr" -" s_398)))" -"(let-values(((s_104)" +" s_392)))" +"(let-values(((s_745)" "(if(syntax?$1" -" s_103)" +" s_744)" "(syntax-e$1" -" s_103)" -" s_103)))" +" s_744)" +" s_744)))" "(if(null?" -" s_104)" +" s_745)" "(values)" "(raise-syntax-error$1" " #f" @@ -68933,38 +68942,38 @@ static const char *startup_source = "(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_420)" +"(let-values(((s_414)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_420))" +" s_414))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_221)" +"(let-values(((s_217)" "(if(syntax?$1" -" s_420)" +" s_414)" "(syntax-e$1" -" s_420)" -" s_420)))" +" s_414)" +" s_414)))" "(if(pair?" -" s_221)" +" s_217)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_110)" +"(let-values(((s_746)" "(car" -" s_221)))" -" s_110))" +" s_217)))" +" s_746))" "((id69_0)" -"(let-values(((s_222)" +"(let-values(((s_218)" "(cdr" -" s_221)))" -"(let-values(((s_223)" +" s_217)))" +"(let-values(((s_219)" "(if(syntax?$1" -" s_222)" +" s_218)" "(syntax-e$1" -" s_222)" -" s_222)))" +" s_218)" +" s_218)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_223)))" +" s_219)))" "(if(not" " flat-s_48)" "(let-values()" @@ -68974,7 +68983,7 @@ static const char *startup_source = " orig-s_71))" "(let-values()" "(let-values(((id_136)" -"(let-values(((lst_406)" +"(let-values(((lst_404)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68982,20 +68991,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_406)))" +" lst_404)))" "((letrec-values(((for-loop_318)" "(lambda(id_137" -" lst_407)" +" lst_405)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" -"(let-values(((s_746)" +" lst_405)" +"(let-values(((s_114)" "(unsafe-car" -" lst_407))" -"((rest_232)" +" lst_405))" +"((rest_231)" "(unsafe-cdr" -" lst_407)))" +" lst_405)))" "(let-values(((id_138)" "(let-values(((id_139)" " id_137))" @@ -69003,23 +69012,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_182)" +"(if(let-values(((or-part_184)" "(if(syntax?$1" -" s_746)" +" s_114)" "(symbol?" "(syntax-e$1" -" s_746))" +" s_114))" " #f)))" -"(if or-part_182" -" or-part_182" +"(if or-part_184" +" or-part_184" "(symbol?" -" s_746)))" -" s_746" +" s_114)))" +" s_114" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_746)))))" +" s_114)))))" "(cons" " id70_0" " id_139)))))" @@ -69029,12 +69038,12 @@ static const char *startup_source = " #f)" "(for-loop_318" " id_138" -" rest_232)" +" rest_231)" " id_138)))" " id_137)))))" " for-loop_318)" " null" -" lst_406)))))" +" lst_404)))))" "(reverse$1" " id_136)))))))))" "(values" @@ -69075,70 +69084,70 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_118)" +"(let-values(((s_747)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_118))" +" s_747))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_422)" -"(if(syntax?$1" -" s_118)" -"(syntax-e$1" -" s_118)" -" s_118)))" -"(if(pair?" -" s_422)" -"(let-values(((prefix-all-defined73_0)" -"(let-values(((s_119)" -"(car" -" s_422)))" -" s_119))" -"((id:prefix74_0)" -"(let-values(((s_747)" -"(cdr" -" s_422)))" -"(let-values(((s_508)" +"(let-values(((s_418)" "(if(syntax?$1" " s_747)" "(syntax-e$1" " s_747)" " s_747)))" "(if(pair?" -" s_508)" -"(let-values(((id:prefix75_0)" -"(let-values(((s_120)" +" s_418)" +"(let-values(((prefix-all-defined73_0)" +"(let-values(((s_748)" "(car" -" s_508)))" -"(if(let-values(((or-part_109)" +" s_418)))" +" s_748))" +"((id:prefix74_0)" +"(let-values(((s_749)" +"(cdr" +" s_418)))" +"(let-values(((s_505)" "(if(syntax?$1" -" s_120)" +" s_749)" +"(syntax-e$1" +" s_749)" +" s_749)))" +"(if(pair?" +" s_505)" +"(let-values(((id:prefix75_0)" +"(let-values(((s_506)" +"(car" +" s_505)))" +"(if(let-values(((or-part_401)" +"(if(syntax?$1" +" s_506)" "(symbol?" "(syntax-e$1" -" s_120))" +" s_506))" " #f)))" -"(if or-part_109" -" or-part_109" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_120)))" -" s_120" +" s_506)))" +" s_506" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_120))))" +" s_506))))" "(()" -"(let-values(((s_748)" +"(let-values(((s_750)" "(cdr" -" s_508)))" -"(let-values(((s_749)" +" s_505)))" +"(let-values(((s_121)" "(if(syntax?$1" -" s_748)" +" s_750)" "(syntax-e$1" -" s_748)" -" s_748)))" +" s_750)" +" s_750)))" "(if(null?" -" s_749)" +" s_121)" "(values)" "(raise-syntax-error$1" " #f" @@ -69190,73 +69199,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_236)" +"(let-values(((s_230)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_236))" +" s_230))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" +"(let-values(((s_332)" +"(if(syntax?$1" +" s_230)" +"(syntax-e$1" +" s_230)" +" s_230)))" +"(if(pair?" +" s_332)" +"(let-values(((prefix-all-defined-except79_0)" +"(let-values(((s_335)" +"(car" +" s_332)))" +" s_335))" +"((id:prefix80_0" +" id81_0)" +"(let-values(((s_336)" +"(cdr" +" s_332)))" "(let-values(((s_337)" "(if(syntax?$1" -" s_236)" +" s_336)" "(syntax-e$1" -" s_236)" -" s_236)))" +" s_336)" +" s_336)))" "(if(pair?" " s_337)" -"(let-values(((prefix-all-defined-except79_0)" +"(let-values(((id:prefix82_0)" "(let-values(((s_340)" "(car" " s_337)))" +"(if(let-values(((or-part_402)" +"(if(syntax?$1" +" s_340)" +"(symbol?" +"(syntax-e$1" " s_340))" -"((id:prefix80_0" -" id81_0)" -"(let-values(((s_341)" -"(cdr" -" s_337)))" -"(let-values(((s_342)" -"(if(syntax?$1" -" s_341)" -"(syntax-e$1" -" s_341)" -" s_341)))" -"(if(pair?" -" s_342)" -"(let-values(((id:prefix82_0)" -"(let-values(((s_345)" -"(car" -" s_342)))" -"(if(let-values(((or-part_398)" -"(if(syntax?$1" -" s_345)" -"(symbol?" -"(syntax-e$1" -" s_345))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_402" +" or-part_402" "(symbol?" -" s_345)))" -" s_345" +" s_340)))" +" s_340" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_345))))" +" s_340))))" "((id83_1)" -"(let-values(((s_347)" +"(let-values(((s_342)" "(cdr" -" s_342)))" -"(let-values(((s_511)" +" s_337)))" +"(let-values(((s_510)" "(if(syntax?$1" -" s_347)" +" s_342)" "(syntax-e$1" -" s_347)" -" s_347)))" +" s_342)" +" s_342)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_511)))" +" s_510)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69277,17 +69286,17 @@ static const char *startup_source = " lst_4)))" "((letrec-values(((for-loop_319)" "(lambda(id_141" -" lst_408)" +" lst_406)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" -"(let-values(((s_512)" +" lst_406)" +"(let-values(((s_511)" "(unsafe-car" -" lst_408))" +" lst_406))" "((rest_189)" "(unsafe-cdr" -" lst_408)))" +" lst_406)))" "(let-values(((id_142)" "(let-values(((id_143)" " id_141))" @@ -69295,23 +69304,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_403)" "(if(syntax?$1" -" s_512)" +" s_511)" "(symbol?" "(syntax-e$1" -" s_512))" +" s_511))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_403" +" or-part_403" "(symbol?" -" s_512)))" -" s_512" +" s_511)))" +" s_511" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_512)))))" +" s_511)))))" "(cons" " id84_2" " id_143)))))" @@ -69370,78 +69379,78 @@ static const char *startup_source = " expand85_0" " id86_1" " datum87_0)" -"(let-values(((s_518)" +"(let-values(((s_517)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_518))" +" s_517))" "(let-values(((expand85_1" " id86_2" " datum87_1)" -"(let-values(((s_250)" +"(let-values(((s_244)" "(if(syntax?$1" -" s_518)" +" s_517)" "(syntax-e$1" -" s_518)" -" s_518)))" +" s_517)" +" s_517)))" "(if(pair?" -" s_250)" +" s_244)" "(let-values(((expand88_0)" -"(let-values(((s_251)" +"(let-values(((s_245)" "(car" -" s_250)))" -" s_251))" +" s_244)))" +" s_245))" "((id89_1" " datum90_0)" -"(let-values(((s_750)" -"(cdr" -" s_250)))" -"(let-values(((s_252)" -"(if(syntax?$1" -" s_750)" -"(syntax-e$1" -" s_750)" -" s_750)))" -"(if(pair?" -" s_252)" -"(let-values(((id91_0" -" datum92_0)" "(let-values(((s_751)" -"(car" -" s_252)))" -"(let-values(((s_254)" +"(cdr" +" s_244)))" +"(let-values(((s_246)" "(if(syntax?$1" " s_751)" "(syntax-e$1" " s_751)" " s_751)))" "(if(pair?" -" s_254)" -"(let-values(((id93_1)" -"(let-values(((s_522)" +" s_246)" +"(let-values(((id91_0" +" datum92_0)" +"(let-values(((s_752)" "(car" -" s_254)))" -"(if(let-values(((or-part_400)" +" s_246)))" +"(let-values(((s_248)" "(if(syntax?$1" -" s_522)" +" s_752)" +"(syntax-e$1" +" s_752)" +" s_752)))" +"(if(pair?" +" s_248)" +"(let-values(((id93_1)" +"(let-values(((s_521)" +"(car" +" s_248)))" +"(if(let-values(((or-part_404)" +"(if(syntax?$1" +" s_521)" "(symbol?" "(syntax-e$1" -" s_522))" +" s_521))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_404" +" or-part_404" "(symbol?" -" s_522)))" -" s_522" +" s_521)))" +" s_521" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_522))))" +" s_521))))" "((datum94_0)" -"(let-values(((s_454)" +"(let-values(((s_449)" "(cdr" -" s_254)))" -" s_454)))" +" s_248)))" +" s_449)))" "(values" " id93_1" " datum94_0))" @@ -69450,17 +69459,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74)))))" "(()" -"(let-values(((s_455)" +"(let-values(((s_450)" "(cdr" -" s_252)))" -"(let-values(((s_365)" +" s_246)))" +"(let-values(((s_360)" "(if(syntax?$1" -" s_455)" +" s_450)" "(syntax-e$1" -" s_455)" -" s_455)))" +" s_450)" +" s_450)))" "(if(null?" -" s_365)" +" s_360)" "(values)" "(raise-syntax-error$1" " #f" @@ -69489,54 +69498,54 @@ static const char *startup_source = "(let-values(((ok?_71" " expand95_0" " form96_0)" -"(let-values(((s_366)" +"(let-values(((s_361)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_366))" +" s_361))" "(let-values(((expand95_1" " form96_1)" +"(let-values(((s_364)" +"(if(syntax?$1" +" s_361)" +"(syntax-e$1" +" s_361)" +" s_361)))" +"(if(pair?" +" s_364)" +"(let-values(((expand97_0)" +"(let-values(((s_367)" +"(car" +" s_364)))" +" s_367))" +"((form98_0)" +"(let-values(((s_368)" +"(cdr" +" s_364)))" "(let-values(((s_369)" "(if(syntax?$1" -" s_366)" +" s_368)" "(syntax-e$1" -" s_366)" -" s_366)))" +" s_368)" +" s_368)))" "(if(pair?" " s_369)" -"(let-values(((expand97_0)" -"(let-values(((s_372)" -"(car" -" s_369)))" -" s_372))" -"((form98_0)" -"(let-values(((s_373)" -"(cdr" -" s_369)))" -"(let-values(((s_374)" -"(if(syntax?$1" -" s_373)" -"(syntax-e$1" -" s_373)" -" s_373)))" -"(if(pair?" -" s_374)" "(let-values(((form99_0)" -"(let-values(((s_376)" +"(let-values(((s_371)" "(car" -" s_374)))" -" s_376))" +" s_369)))" +" s_371))" "(()" -"(let-values(((s_377)" +"(let-values(((s_372)" "(cdr" -" s_374)))" -"(let-values(((s_752)" +" s_369)))" +"(let-values(((s_753)" "(if(syntax?$1" -" s_377)" +" s_372)" "(syntax-e$1" -" s_377)" -" s_377)))" +" s_372)" +" s_372)))" "(if(null?" -" s_752)" +" s_753)" "(values)" "(raise-syntax-error$1" " #f" @@ -69563,21 +69572,21 @@ static const char *startup_source = "(let-values(((temp104_4)" " form96_0)" "((temp105_4)" -"(let-values(((v_258)" +"(let-values(((v_256)" " ctx_104))" "(let-values(((the-struct_93)" -" v_258))" +" v_256))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_24)" +"(let-values(((the-struct_94)" "(root-expand-context/outer-inner" -" v_258)))" +" v_256)))" "(if(expand-context/inner?" -" the-struct_24)" +" the-struct_94)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -69587,58 +69596,58 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_24)" +" the-struct_94)" "(root-expand-context/inner-module-scopes" -" the-struct_24)" +" the-struct_94)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_24)" +" the-struct_94)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_24)" +" the-struct_94)" "(root-expand-context/inner-defined-syms" -" the-struct_24)" +" the-struct_94)" "(root-expand-context/inner-counter" -" the-struct_24)" +" the-struct_94)" "(root-expand-context/inner-lift-key" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-to-parsed?" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-phase" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-namespace" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-just-once?" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-module-begin-k" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-allow-unbound?" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-in-local-expand?" -" the-struct_24)" +" the-struct_94)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-lifts" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-lift-envs" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-module-lifts" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-require-lifts" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-to-module-lifts" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-requires+provides" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-observer" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-for-serializable?" -" the-struct_24)" +" the-struct_94)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_24)))" +" the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_24)))))" +" the-struct_94)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" @@ -69706,38 +69715,38 @@ static const char *startup_source = "(let-values(((ok?_72" " begin100_0" " spec101_0)" -"(let-values(((s_753)" +"(let-values(((s_754)" " exp-spec_0))" "(let-values(((orig-s_76)" -" s_753))" +" s_754))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_754)" +"(let-values(((s_755)" "(if(syntax?$1" -" s_753)" -"(syntax-e$1" -" s_753)" -" s_753)))" -"(if(pair?" " s_754)" -"(let-values(((begin102_0)" -"(let-values(((s_382)" -"(car" -" s_754)))" -" s_382))" -"((spec103_0)" -"(let-values(((s_383)" -"(cdr" -" s_754)))" -"(let-values(((s_384)" -"(if(syntax?$1" -" s_383)" "(syntax-e$1" -" s_383)" -" s_383)))" +" s_754)" +" s_754)))" +"(if(pair?" +" s_755)" +"(let-values(((begin102_0)" +"(let-values(((s_377)" +"(car" +" s_755)))" +" s_377))" +"((spec103_0)" +"(let-values(((s_378)" +"(cdr" +" s_755)))" +"(let-values(((s_379)" +"(if(syntax?$1" +" s_378)" +"(syntax-e$1" +" s_378)" +" s_378)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_384)))" +" s_379)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69782,7 +69791,7 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_94" " track-stxes_2" " exp-specs_2" " rest_230)" @@ -69792,10 +69801,10 @@ static const char *startup_source = "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_95)" +" for-loop_94)" " null" " null" -" lst_78)))))" +" lst_79)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_114)" @@ -69867,11 +69876,11 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_123)))" "((letrec-values(((for-loop_320)" -"(lambda(lst_409)" +"(lambda(lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_409)" -"(let-values(((fmt_3)(unsafe-car lst_409))((rest_233)(unsafe-cdr lst_409)))" +"(if(pair? lst_407)" +"(let-values(((fmt_3)(unsafe-car lst_407))((rest_232)(unsafe-cdr lst_407)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69889,22 +69898,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_233)(values))))" +"(if(not #f)(for-loop_320 rest_232)(values))))" "(values))))))" " for-loop_320)" " lst_123)))" "(void)" -"(let-values(((lst_356) fields_0))" +"(let-values(((lst_355) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_356)))" +"(let-values()(check-list lst_355)))" "((letrec-values(((for-loop_321)" -"(lambda(lst_410)" +"(lambda(lst_408)" "(begin" " 'for-loop" -"(if(pair? lst_410)" -"(let-values(((field_0)(unsafe-car lst_410))((rest_234)(unsafe-cdr lst_410)))" +"(if(pair? lst_408)" +"(let-values(((field_0)(unsafe-car lst_408))((rest_233)(unsafe-cdr lst_408)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69936,10 +69945,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_234)(values))))" +"(if(not #f)(for-loop_321 rest_233)(values))))" "(values))))))" " for-loop_321)" -" lst_356)))" +" lst_355)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -69993,12 +70002,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_241)))" "((letrec-values(((for-loop_322)" -"(lambda(lst_411)" +"(lambda(lst_409)" "(begin" " 'for-loop" -"(if(pair? lst_411)" -"(let-values(((i_190)(unsafe-car lst_411))" -"((rest_235)(unsafe-cdr lst_411)))" +"(if(pair? lst_409)" +"(let-values(((i_190)(unsafe-car lst_409))" +"((rest_234)(unsafe-cdr lst_409)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70010,7 +70019,7 @@ static const char *startup_source = "(let-values(((phase_148)" "(required-phase" " i_190)))" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_405)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -70026,9 +70035,9 @@ static const char *startup_source = " phase_148)" " #f))" " #f)))" -"(if or-part_401" -" or-part_401" -"(let-values(((lst_412)" +"(if or-part_405" +" or-part_405" +"(let-values(((lst_410)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70036,20 +70045,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_412)))" +" lst_410)))" "((letrec-values(((for-loop_323)" "(lambda(result_125" -" lst_413)" +" lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_413)" +" lst_411)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_413))" -"((rest_236)" +" lst_411))" +"((rest_235)" "(unsafe-cdr" -" lst_413)))" +" lst_411)))" "(let-values(((result_126)" "(let-values()" "(let-values(((result_127)" @@ -70076,12 +70085,12 @@ static const char *startup_source = " #f)" "(for-loop_323" " result_126" -" rest_236)" +" rest_235)" " result_126)))" " result_125)))))" " for-loop_323)" " #f" -" lst_412)))))" +" lst_410)))))" "(void)" "(let-values()" "(let-values(((b_89)" @@ -70142,7 +70151,7 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_235)(values))))" +"(if(not #f)(for-loop_322 rest_234)(values))))" "(values))))))" " for-loop_322)" " lst_241)))" @@ -70169,14 +70178,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_406)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_402" -" or-part_402" -"(let-values(((lst_414)" +"(if or-part_406" +" or-part_406" +"(let-values(((lst_412)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70184,20 +70193,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_414)))" -"((letrec-values(((for-loop_142)" +" lst_412)))" +"((letrec-values(((for-loop_141)" "(lambda(result_128" -" lst_415)" +" lst_413)" "(begin" " 'for-loop" "(if(pair?" -" lst_415)" +" lst_413)" "(let-values(((i_191)" "(unsafe-car" -" lst_415))" -"((rest_237)" +" lst_413))" +"((rest_236)" "(unsafe-cdr" -" lst_415)))" +" lst_413)))" "(let-values(((result_129)" "(let-values()" "(let-values(((result_130)" @@ -70223,14 +70232,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_142" +"(for-loop_141" " result_129" -" rest_237)" +" rest_236)" " result_129)))" " result_128)))))" -" for-loop_142)" +" for-loop_141)" " #f" -" lst_414)))))" +" lst_412)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70258,63 +70267,63 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_416) bodys_14))" +"(let-values(((lst_414) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_416)))" +"(let-values()(check-list lst_414)))" "((letrec-values(((for-loop_324)" -"(lambda(lst_85)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((body_21)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((body_21)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_35)" +"(let-values(((p_36)" "(if(expanded+parsed?" " body_21)" "(expanded+parsed-parsed" " body_21)" " body_21)))" "(if(parsed-define-values?" -" p_35)" +" p_36)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_35)" +" p_36)" "(length" "(parsed-define-values-syms" -" p_35))" -" p_35))" -"(if(let-values(((or-part_218)" +" p_36))" +" p_36))" +"(if(let-values(((or-part_221)" "(parsed-#%declare?" -" p_35)))" -"(if or-part_218" -" or-part_218" +" p_36)))" +"(if or-part_221" +" or-part_221" "(let-values(((or-part_3)" "(parsed-module?" -" p_35)))" +" p_36)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_35)))))" +" p_36)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_35))))))" +" p_36))))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_324 rest_40)(values))))" "(values))))))" " for-loop_324)" -" lst_416)))" +" lst_414)))" "(void)))))" "((check-expr_0)" "(lambda(e_90 num-results_0 enclosing_15)" @@ -70335,18 +70344,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_90)))" "(begin" -"(let-values(((lst_79) rands_1))" +"(let-values(((lst_80) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_72)" -"(lambda(lst_86)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_71)" +"(lambda(lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_238)(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((rand_0)(unsafe-car lst_87))" +"((rest_237)(unsafe-cdr lst_87)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70359,29 +70368,29 @@ static const char *startup_source = " e_90))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_72 rest_238)(values))))" +"(if(not #f)(for-loop_71 rest_237)(values))))" "(values))))))" -" for-loop_72)" -" lst_79)))" +" for-loop_71)" +" lst_80)))" "(void)" -"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_90))))" -"(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" +"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_90))))" +"(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" -"(if(equal? tmp_64 'make-struct-type)" +"(if(equal? tmp_63 'make-struct-type)" "(let-values()(check-count 5 num-results_0 enclosing_15))" -"(if(equal? tmp_64 'make-struct-type-property)" +"(if(equal? tmp_63 'make-struct-type-property)" "(let-values()(check-count 3 num-results_0 enclosing_15))" -"(if(equal? tmp_64 'gensym)" +"(if(equal? tmp_63 'gensym)" "(let-values()" -"(if(let-values(((or-part_403)(= 0(length rands_1))))" -"(if or-part_403" -" or-part_403" +"(if(let-values(((or-part_407)(= 0(length rands_1))))" +"(if or-part_407" +" or-part_407" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" "(let-values()(disallow e_90))))" -"(if(equal? tmp_64 'string->uninterned-symbol)" +"(if(equal? tmp_63 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" @@ -70403,12 +70412,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_271)))" "((letrec-values(((for-loop_240)" -"(lambda(lst_417)" +"(lambda(lst_415)" "(begin" " 'for-loop" -"(if(pair? lst_417)" -"(let-values(((clause_4)(unsafe-car lst_417))" -"((rest_239)(unsafe-cdr lst_417)))" +"(if(pair? lst_415)" +"(let-values(((clause_4)(unsafe-car lst_415))" +"((rest_238)(unsafe-cdr lst_415)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70419,7 +70428,7 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_239)(values))))" +"(if(not #f)(for-loop_240 rest_238)(values))))" "(values))))))" " for-loop_240)" " lst_271)))" @@ -70433,7 +70442,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_105)" "(lambda(lst_267)" "(begin" " 'for-loop" @@ -70450,9 +70459,9 @@ static const char *startup_source = " e_91))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_190)(values))))" +"(if(not #f)(for-loop_105 rest_190)(values))))" "(values))))))" -" for-loop_106)" +" for-loop_105)" " lst_223)))" "(void)))" "(if(parsed-if? e_39)" @@ -70497,14 +70506,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_24)))" "((letrec-values(((for-loop_253)" -"(lambda(lst_90)" +"(lambda(lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_91)" "(let-values(((clause_5)" -"(unsafe-car lst_90))" +"(unsafe-car lst_91))" "((rest_151)" -"(unsafe-cdr lst_90)))" +"(unsafe-cdr lst_91)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70533,11 +70542,11 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_82) l_48))" +"(let-values(((lst_83) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" +"(let-values()(check-list lst_83)))" "((letrec-values(((for-loop_325)" "(lambda(lst_273)" "(begin" @@ -70558,7 +70567,7 @@ static const char *startup_source = "(if(not #f)(for-loop_325 rest_146)(values))))" "(values))))))" " for-loop_325)" -" lst_82)))" +" lst_83)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -70567,21 +70576,21 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_38 e_93)" +"(lambda(d_37 e_93)" "(begin" -"(if(let-values(((or-part_160)(number? d_38)))" -"(if or-part_160" -" or-part_160" -"(let-values(((or-part_167)(boolean? d_38)))" -"(if or-part_167" -" or-part_167" -"(let-values(((or-part_168)(symbol? d_38)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_169)(string? d_38)))" +"(if(let-values(((or-part_162)(number? d_37)))" +"(if or-part_162" +" or-part_162" +"(let-values(((or-part_169)(boolean? d_37)))" "(if or-part_169" " or-part_169" -"(let-values(((or-part_170)(bytes? d_38)))(if or-part_170 or-part_170(null? d_38)))))))))))" +"(let-values(((or-part_170)(symbol? d_37)))" +"(if or-part_170" +" or-part_170" +"(let-values(((or-part_171)(string? d_37)))" +"(if or-part_171" +" or-part_171" +"(let-values(((or-part_172)(bytes? d_37)))(if or-part_172 or-part_172(null? d_37)))))))))))" "(let-values()(void))" "(let-values()(disallow e_93))))))" "(define-values" @@ -70611,7 +70620,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_183 ctx_106)" +"(lambda(s_182 ctx_106)" "(begin" "(if(eq?(expand-context-context ctx_106) 'top-level)" "(void)" @@ -70619,18 +70628,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_125)(expand-context-observer ctx_106)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_182))))" "(let-values()" -"(let-values(((s223_0) s_183)((ctx224_0) ctx_106)((temp225_1) #f))" +"(let-values(((s223_0) s_182)((ctx224_0) ctx_106)((temp225_1) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_308 ctx_107)" +"(lambda(s_302 ctx_107)" "(begin" "(let-values(((obs_126)(expand-context-observer ctx_107)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_308)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_302)))))" "(void" "(add-core-form!*" " '#%module-begin" @@ -70646,65 +70655,65 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_80)))" "((expand-context-module-begin-k ctx_108)" " s_80" -"(let-values(((v_259) ctx_108))" -"(let-values(((the-struct_94) v_259))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((v_257) ctx_108))" +"(let-values(((the-struct_95) v_257))" +"(if(expand-context/outer? the-struct_95)" "(let-values(((inner226_0)" -"(let-values(((the-struct_95)(root-expand-context/outer-inner v_259)))" -"(if(expand-context/inner? the-struct_95)" +"(let-values(((the-struct_96)(root-expand-context/outer-inner v_257)))" +"(if(expand-context/inner? the-struct_96)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_95)" -"(root-expand-context/inner-module-scopes the-struct_95)" -"(root-expand-context/inner-top-level-bind-scope the-struct_95)" -"(root-expand-context/inner-all-scopes-stx the-struct_95)" -"(root-expand-context/inner-defined-syms the-struct_95)" -"(root-expand-context/inner-counter the-struct_95)" -"(root-expand-context/inner-lift-key the-struct_95)" -"(expand-context/inner-to-parsed? the-struct_95)" -"(expand-context/inner-phase the-struct_95)" -"(expand-context/inner-namespace the-struct_95)" -"(expand-context/inner-just-once? the-struct_95)" +"(root-expand-context/inner-self-mpi the-struct_96)" +"(root-expand-context/inner-module-scopes the-struct_96)" +"(root-expand-context/inner-top-level-bind-scope the-struct_96)" +"(root-expand-context/inner-all-scopes-stx the-struct_96)" +"(root-expand-context/inner-defined-syms the-struct_96)" +"(root-expand-context/inner-counter the-struct_96)" +"(root-expand-context/inner-lift-key the-struct_96)" +"(expand-context/inner-to-parsed? the-struct_96)" +"(expand-context/inner-phase the-struct_96)" +"(expand-context/inner-namespace the-struct_96)" +"(expand-context/inner-just-once? the-struct_96)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_95)" -"(expand-context/inner-in-local-expand? the-struct_95)" -"(expand-context/inner-stops the-struct_95)" -"(expand-context/inner-declared-submodule-names the-struct_95)" -"(expand-context/inner-lifts the-struct_95)" -"(expand-context/inner-lift-envs the-struct_95)" -"(expand-context/inner-module-lifts the-struct_95)" -"(expand-context/inner-require-lifts the-struct_95)" -"(expand-context/inner-to-module-lifts the-struct_95)" -"(expand-context/inner-requires+provides the-struct_95)" -"(expand-context/inner-observer the-struct_95)" -"(expand-context/inner-for-serializable? the-struct_95)" -"(expand-context/inner-should-not-encounter-macros? the-struct_95)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_95)))))" +"(expand-context/inner-allow-unbound? the-struct_96)" +"(expand-context/inner-in-local-expand? the-struct_96)" +"(expand-context/inner-stops the-struct_96)" +"(expand-context/inner-declared-submodule-names the-struct_96)" +"(expand-context/inner-lifts the-struct_96)" +"(expand-context/inner-lift-envs the-struct_96)" +"(expand-context/inner-module-lifts the-struct_96)" +"(expand-context/inner-require-lifts the-struct_96)" +"(expand-context/inner-to-module-lifts the-struct_96)" +"(expand-context/inner-requires+provides the-struct_96)" +"(expand-context/inner-observer the-struct_96)" +"(expand-context/inner-for-serializable? the-struct_96)" +"(expand-context/inner-should-not-encounter-macros? the-struct_96)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_96)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_94)" -"(root-expand-context/outer-use-site-scopes the-struct_94)" -"(root-expand-context/outer-frame-id the-struct_94)" -"(expand-context/outer-context the-struct_94)" -"(expand-context/outer-env the-struct_94)" -"(expand-context/outer-post-expansion-scope-action the-struct_94)" -"(expand-context/outer-scopes the-struct_94)" -"(expand-context/outer-def-ctx-scopes the-struct_94)" -"(expand-context/outer-binding-layer the-struct_94)" -"(expand-context/outer-reference-records the-struct_94)" -"(expand-context/outer-only-immediate? the-struct_94)" -"(expand-context/outer-need-eventually-defined the-struct_94)" -"(expand-context/outer-current-introduction-scopes the-struct_94)" -"(expand-context/outer-name the-struct_94)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_94)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_95)" +"(root-expand-context/outer-use-site-scopes the-struct_95)" +"(root-expand-context/outer-frame-id the-struct_95)" +"(expand-context/outer-context the-struct_95)" +"(expand-context/outer-env the-struct_95)" +"(expand-context/outer-post-expansion-scope-action the-struct_95)" +"(expand-context/outer-scopes the-struct_95)" +"(expand-context/outer-def-ctx-scopes the-struct_95)" +"(expand-context/outer-binding-layer the-struct_95)" +"(expand-context/outer-reference-records the-struct_95)" +"(expand-context/outer-only-immediate? the-struct_95)" +"(expand-context/outer-need-eventually-defined the-struct_95)" +"(expand-context/outer-current-introduction-scopes the-struct_95)" +"(expand-context/outer-name the-struct_95)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_95)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_725 ctx_109)" +"(lambda(s_724 ctx_109)" "(begin" "(let-values(((obs_128)(expand-context-observer ctx_109)))" "(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_725)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_724)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -70755,81 +70764,81 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_502) disarmed-s_24))" -"(let-values(((orig-s_81) s_502))" +"(let-values(((s_498) disarmed-s_24))" +"(let-values(((orig-s_81) s_498))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_316)" -"(if(syntax?$1 s_502)" -"(syntax-e$1 s_502)" -" s_502)))" -"(if(pair? s_316)" +"(let-values(((s_310)" +"(if(syntax?$1 s_498)" +"(syntax-e$1 s_498)" +" s_498)))" +"(if(pair? s_310)" "(let-values(((module232_0)" -"(let-values(((s_503)(car s_316)))" -" s_503))" +"(let-values(((s_499)(car s_310)))" +" s_499))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_728)(cdr s_316)))" -"(let-values(((s_755)" -"(if(syntax?$1 s_728)" -"(syntax-e$1 s_728)" -" s_728)))" -"(if(pair? s_755)" +"(let-values(((s_727)(cdr s_310)))" +"(let-values(((s_756)" +"(if(syntax?$1 s_727)" +"(syntax-e$1 s_727)" +" s_727)))" +"(if(pair? s_756)" "(let-values(((id:module-name236_0)" -"(let-values(((s_490)" +"(let-values(((s_485)" "(car" -" s_755)))" -"(if(let-values(((or-part_377)" +" s_756)))" +"(if(let-values(((or-part_380)" "(if(syntax?$1" -" s_490)" +" s_485)" "(symbol?" "(syntax-e$1" -" s_490))" +" s_485))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_380" +" or-part_380" "(symbol?" -" s_490)))" -" s_490" +" s_485)))" +" s_485" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_81" -" s_490))))" +" s_485))))" "((initial-require237_0" " body238_0)" "(let-values(((s_54)" "(cdr" -" s_755)))" -"(let-values(((s_318)" +" s_756)))" +"(let-values(((s_312)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_318)" +" s_312)" "(let-values(((initial-require239_0)" -"(let-values(((s_320)" +"(let-values(((s_314)" "(car" -" s_318)))" -" s_320))" +" s_312)))" +" s_314))" "((body240_0)" -"(let-values(((s_321)" +"(let-values(((s_315)" "(cdr" -" s_318)))" -"(let-values(((s_322)" +" s_312)))" +"(let-values(((s_316)" "(if(syntax?$1" -" s_321)" +" s_315)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_315)" +" s_315)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_322)))" +" s_316)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70883,9 +70892,9 @@ static const char *startup_source = "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_395) keep-enclosing-scope-at-phase_0))" -"(if or-part_395" -" or-part_395" +"(if(let-values(((or-part_398) keep-enclosing-scope-at-phase_0))" +"(if or-part_398" +" or-part_398" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -71008,22 +71017,22 @@ static const char *startup_source = " #f" " temp266_2))))" "(let-values(((ctx_110)" -"(let-values(((v_103)" +"(let-values(((v_102)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_96)" -" v_103))" +"(let-values(((the-struct_97)" +" v_102))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_97)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_98)" "(root-expand-context/outer-inner" -" v_103)))" +" v_102)))" "(if(expand-context/inner?" -" the-struct_97)" +" the-struct_98)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" @@ -71034,88 +71043,88 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-module-scopes" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-defined-syms" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-counter" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-lift-key" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-to-parsed?" -" the-struct_97)" +" the-struct_98)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_97)" +" the-struct_98)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-stops" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-declared-submodule-names" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-lift-envs" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-module-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-require-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-to-module-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-requires+provides" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-observer" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-for-serializable?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_97)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_97)))))" +" the-struct_98)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_97)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-reference-records" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_97))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -71125,77 +71134,77 @@ static const char *startup_source = " _274_1" " _275_1" " body276_0)" -"(let-values(((s_756)" +"(let-values(((s_757)" " scoped-s_0))" "(let-values(((orig-s_82)" -" s_756))" +" s_757))" "(let-values(((_273_2" " _274_2" " _275_2" " body276_1)" -"(let-values(((s_412)" +"(let-values(((s_408)" "(if(syntax?$1" -" s_756)" +" s_757)" "(syntax-e$1" -" s_756)" -" s_756)))" +" s_757)" +" s_757)))" "(if(pair?" -" s_412)" +" s_408)" "(let-values(((_277_1)" -"(let-values(((s_739)" +"(let-values(((s_738)" "(car" -" s_412)))" -" s_739))" +" s_408)))" +" s_738))" "((_278_0" " _279_0" " body280_0)" -"(let-values(((s_206)" +"(let-values(((s_205)" "(cdr" -" s_412)))" -"(let-values(((s_397)" +" s_408)))" +"(let-values(((s_391)" "(if(syntax?$1" -" s_206)" +" s_205)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_205)" +" s_205)))" "(if(pair?" -" s_397)" +" s_391)" "(let-values(((_281_0)" "(let-values(((s_208)" "(car" -" s_397)))" +" s_391)))" " s_208))" "((_282_0" " body283_0)" -"(let-values(((s_741)" +"(let-values(((s_740)" "(cdr" -" s_397)))" -"(let-values(((s_413)" +" s_391)))" +"(let-values(((s_88)" "(if(syntax?$1" -" s_741)" +" s_740)" "(syntax-e$1" -" s_741)" -" s_741)))" +" s_740)" +" s_740)))" "(if(pair?" -" s_413)" +" s_88)" "(let-values(((_284_0)" "(let-values(((s_39)" "(car" -" s_413)))" +" s_88)))" " s_39))" "((body285_0)" -"(let-values(((s_89)" +"(let-values(((s_321)" "(cdr" -" s_413)))" -"(let-values(((s_327)" +" s_88)))" +"(let-values(((s_322)" "(if(syntax?$1" -" s_89)" +" s_321)" "(syntax-e$1" -" s_89)" -" s_89)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_327)))" +" s_322)))" "(if(not" " flat-s_52)" "(let-values()" @@ -71369,20 +71378,20 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_111)" -"(let-values(((v_260)" +"(let-values(((v_258)" " mb-init-ctx_0))" -"(let-values(((the-struct_98)" -" v_260))" -"(if(expand-context/outer?" -" the-struct_98)" -"(let-values(((inner306_0)" "(let-values(((the-struct_99)" -"(root-expand-context/outer-inner" -" v_260)))" -"(if(expand-context/inner?" +" v_258))" +"(if(expand-context/outer?" " the-struct_99)" +"(let-values(((inner306_0)" +"(let-values(((the-struct_100)" +"(root-expand-context/outer-inner" +" v_258)))" +"(if(expand-context/inner?" +" the-struct_100)" "(let-values(((module-begin-k307_0)" -"(lambda(s_305" +"(lambda(s_299" " ctx_112)" "(begin" " 'module-begin-k307" @@ -71419,7 +71428,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_305" +" s_299" " ctx_112))" "(lambda()" "(begin" @@ -71431,92 +71440,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-phase" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-namespace" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-just-once?" -" the-struct_99)" +" the-struct_100)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-stops" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-declared-submodule-names" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_99)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_99)))))" +" the-struct_100)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" +" the-struct_99)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_99)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-env" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-def-ctx-scopes" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-binding-layer" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-reference-records" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_99))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -71541,35 +71550,35 @@ static const char *startup_source = "(let-values(((ok?_75" " #%module-begin301_0" " body302_0)" -"(let-values(((s_223)" +"(let-values(((s_219)" " disarmed-mb-s_0))" "(let-values(((orig-s_83)" -" s_223))" +" s_219))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_113)" +"(let-values(((s_220)" "(if(syntax?$1" -" s_223)" +" s_219)" "(syntax-e$1" -" s_223)" -" s_223)))" +" s_219)" +" s_219)))" "(if(pair?" -" s_113)" +" s_220)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_746)" +"(let-values(((s_114)" "(car" -" s_113)))" -" s_746))" +" s_220)))" +" s_114))" "((body304_0)" -"(let-values(((s_757)" +"(let-values(((s_115)" "(cdr" -" s_113)))" +" s_220)))" "(let-values(((s_758)" "(if(syntax?$1" -" s_757)" +" s_115)" "(syntax-e$1" -" s_757)" -" s_757)))" +" s_115)" +" s_115)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" " s_758)))" @@ -71630,12 +71639,12 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_111)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_261)" +"(let-values(((v_259)" " ctx_111))" -"(let-values(((the-struct_19)" -" v_261))" +"(let-values(((the-struct_101)" +" v_259))" "(if(expand-context/outer?" -" the-struct_19)" +" the-struct_101)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -71643,11 +71652,11 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" -" v_261)))" +" v_259)))" "(if(expand-context/inner?" -" the-struct_100)" +" the-struct_102)" "(let-values(((phase330_0)" " phase_151)" "((namespace331_0)" @@ -71709,81 +71718,81 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-module-scopes" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_100)" +" the-struct_102)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_100)" +" the-struct_102)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-module-begin-k" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-allow-unbound?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-in-local-expand?" -" the-struct_100)" +" the-struct_102)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_100)" +" the-struct_102)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_100)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_100)))))" +" the-struct_102)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_19)" +" the-struct_101)" "(root-expand-context/outer-use-site-scopes" -" the-struct_19)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_19)" +" the-struct_101)" " context326_0" "(expand-context/outer-env" -" the-struct_19)" +" the-struct_101)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_19)" +" the-struct_101)" "(expand-context/outer-scopes" -" the-struct_19)" +" the-struct_101)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_19)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_19)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_19)" +" the-struct_101)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_19)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_19)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_19))))))" +" the-struct_101))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" @@ -71848,24 +71857,24 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_262)" +"(let-values(((v_260)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_101)" -" v_262))" +"(let-values(((the-struct_103)" +" v_260))" "(if(expand-context/outer?" -" the-struct_101)" +" the-struct_103)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_262)))" +" v_260)))" "(if(expand-context/inner?" -" the-struct_102)" +" the-struct_104)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" @@ -71881,89 +71890,89 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-module-begin-k" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-allow-unbound?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_102)" +" the-struct_104)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_102)" +" the-struct_104)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_102)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_102)))))" +" the-struct_104)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_101)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-context" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_101)" +" the-struct_103)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_101)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_101))))))" +" the-struct_103))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" @@ -72084,110 +72093,110 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_263)" +"(let-values(((v_261)" " ctx_111))" -"(let-values(((the-struct_103)" -" v_263))" +"(let-values(((the-struct_105)" +" v_261))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_105)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_20)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_263)))" +" v_261)))" "(if(expand-context/inner?" -" the-struct_20)" +" the-struct_106)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_20)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_20)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_20)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_20)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_20)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_20)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_20)" +" the-struct_106)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-stops" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-declared-submodule-names" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-to-module-lifts" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-requires+provides" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_20)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_20)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_20)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_105)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-def-ctx-scopes" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_105))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -72304,110 +72313,110 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_264)" +"(let-values(((v_262)" " ctx_110))" -"(let-values(((the-struct_104)" -" v_264))" +"(let-values(((the-struct_107)" +" v_262))" "(if(expand-context/outer?" -" the-struct_104)" +" the-struct_107)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_264)))" +" v_262)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_108)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-namespace" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_108)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_108)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-to-module-lifts" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_105)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" +" the-struct_107)" "(root-expand-context/outer-use-site-scopes" -" the-struct_104)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_104)" +" the-struct_107)" " context409_0" "(expand-context/outer-env" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_104)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_104)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_107))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -72464,11 +72473,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_357)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_354" -" or-part_354" +"(if or-part_357" +" or-part_357" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -72514,18 +72523,18 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_144)))" -"((letrec-values(((for-loop_140)" -"(lambda(lst_418)" +"((letrec-values(((for-loop_139)" +"(lambda(lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_416)" "(let-values(((mpi_54)" "(unsafe-car" -" lst_418))" -"((rest_240)" +" lst_416))" +"((rest_239)" "(unsafe-cdr" -" lst_418)))" +" lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72538,11 +72547,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_140" -" rest_240)" +"(for-loop_139" +" rest_239)" "(values))))" "(values))))))" -" for-loop_140)" +" for-loop_139)" " lst_144)))" "(void)" "(let-values(((result-s_15)" @@ -72632,33 +72641,33 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_265) ctx_113))" -"(let-values(((the-struct_106) v_265))" -"(if(expand-context/outer? the-struct_106)" +"(let-values(((v_263) ctx_113))" +"(let-values(((the-struct_109) v_263))" +"(if(expand-context/outer? the-struct_109)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" -"((inner431_0)(root-expand-context/outer-inner v_265)))" +"((inner431_0)(root-expand-context/outer-inner v_263)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_106)" -"(root-expand-context/outer-use-site-scopes the-struct_106)" -"(root-expand-context/outer-frame-id the-struct_106)" +"(root-expand-context/outer-post-expansion-scope the-struct_109)" +"(root-expand-context/outer-use-site-scopes the-struct_109)" +"(root-expand-context/outer-frame-id the-struct_109)" " context428_0" -"(expand-context/outer-env the-struct_106)" -"(expand-context/outer-post-expansion-scope-action the-struct_106)" -"(expand-context/outer-scopes the-struct_106)" +"(expand-context/outer-env the-struct_109)" +"(expand-context/outer-post-expansion-scope-action the-struct_109)" +"(expand-context/outer-scopes the-struct_109)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_106)" -"(expand-context/outer-reference-records the-struct_106)" +"(expand-context/outer-binding-layer the-struct_109)" +"(expand-context/outer-reference-records the-struct_109)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_106)" -"(expand-context/outer-current-introduction-scopes the-struct_106)" -"(expand-context/outer-name the-struct_106)))" +"(expand-context/outer-need-eventually-defined the-struct_109)" +"(expand-context/outer-current-introduction-scopes the-struct_109)" +"(expand-context/outer-name the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_106))))))))" +" the-struct_109))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -72735,7 +72744,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_760) s42_0))" +"(let-values(((s_133) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_153) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -72753,10 +72762,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_760)))" +" s_133)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_760 s_760)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_133 s_133)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -72792,12 +72801,12 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_760" +" s_133" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" "(add-enclosing-name-property)" -"(lambda(stx_19 module-name-sym_3)(begin(syntax-property$1 stx_19 'enclosing-module-name module-name-sym_3))))" +"(lambda(stx_20 module-name-sym_3)(begin(syntax-property$1 stx_20 'enclosing-module-name module-name-sym_3))))" "(define-values" "(make-apply-module-scopes)" "(lambda(inside-scope_1" @@ -72808,13 +72817,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_761)" +"(lambda(s_760)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_761" +" s_760" "(remove-use-site-scopes" -"(remove-scopes s_761(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_760(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)))" @@ -72994,29 +73003,29 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_65)" +"(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_1" " phase_154)))" "(if(equal?" -" tmp_65" +" tmp_64" " 'begin)" "(let-values()" "(let-values(((ok?_76" " begin460_0" " e461_0)" -"(let-values(((s_141)" +"(let-values(((s_761)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_141))" +" s_761))" "(let-values(((begin460_1" " e461_1)" "(let-values(((s_762)" "(if(syntax?$1" -" s_141)" +" s_761)" "(syntax-e$1" -" s_141)" -" s_141)))" +" s_761)" +" s_761)))" "(if(pair?" " s_762)" "(let-values(((begin462_0)" @@ -73086,7 +73095,7 @@ static const char *startup_source = " tail?_52" " spliced-bodys_0))))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'begin-for-syntax)" "(let-values()" "(let-values((()" @@ -73229,7 +73238,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_419)" +"(let-values(((lst_417)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73237,20 +73246,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_419)))" +" lst_417)))" "((letrec-values(((for-loop_326)" "(lambda(fold-var_373" -" lst_420)" +" lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_420)" +" lst_418)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_420))" -"((rest_241)" +" lst_418))" +"((rest_240)" "(unsafe-cdr" -" lst_420)))" +" lst_418)))" "(let-values(((fold-var_374)" "(let-values(((fold-var_375)" " fold-var_373))" @@ -73267,12 +73276,12 @@ static const char *startup_source = " #f)" "(for-loop_326" " fold-var_374" -" rest_241)" +" rest_240)" " fold-var_374)))" " fold-var_373)))))" " for-loop_326)" " null" -" lst_419))))))" +" lst_417))))))" "(datum->syntax$1" " #f" "(cons" @@ -73288,7 +73297,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'define-values)" "(let-values()" "(let-values((()" @@ -73335,15 +73344,15 @@ static const char *startup_source = " s_773))" "((id472_0" " rhs473_0)" -"(let-values(((s_193)" +"(let-values(((s_191)" "(cdr" " s_772)))" "(let-values(((s_774)" "(if(syntax?$1" -" s_193)" +" s_191)" "(syntax-e$1" -" s_193)" -" s_193)))" +" s_191)" +" s_191)))" "(if(pair?" " s_774)" "(let-values(((id474_0)" @@ -73368,7 +73377,7 @@ static const char *startup_source = " orig-s_86))" "(let-values()" "(let-values(((id_149)" -"(let-values(((lst_421)" +"(let-values(((lst_419)" " flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73376,20 +73385,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_421)))" +" lst_419)))" "((letrec-values(((for-loop_327)" "(lambda(id_150" -" lst_422)" +" lst_420)" "(begin" " 'for-loop" "(if(pair?" -" lst_422)" +" lst_420)" "(let-values(((s_777)" "(unsafe-car" -" lst_422))" -"((rest_242)" +" lst_420))" +"((rest_241)" "(unsafe-cdr" -" lst_422)))" +" lst_420)))" "(let-values(((id_151)" "(let-values(((id_152)" " id_150))" @@ -73397,15 +73406,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_408)" "(if(syntax?$1" " s_777)" "(symbol?" "(syntax-e$1" " s_777))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_408" +" or-part_408" "(symbol?" " s_777)))" " s_777" @@ -73423,12 +73432,12 @@ static const char *startup_source = " #f)" "(for-loop_327" " id_151" -" rest_242)" +" rest_241)" " id_151)))" " id_150)))))" " for-loop_327)" " null" -" lst_421)))))" +" lst_419)))))" "(reverse$1" " id_149))))))))" "((rhs475_0)" @@ -73592,7 +73601,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'define-syntaxes)" "(let-values()" "(let-values((()" @@ -73663,19 +73672,19 @@ static const char *startup_source = "(let-values(((s_786)" "(cdr" " s_784)))" -"(let-values(((s_534)" +"(let-values(((s_533)" "(if(syntax?$1" " s_786)" "(syntax-e$1" " s_786)" " s_786)))" "(if(pair?" -" s_534)" +" s_533)" "(let-values(((id499_0)" "(let-values(((s_787)" "(car" -" s_534)))" -"(let-values(((s_535)" +" s_533)))" +"(let-values(((s_534)" "(if(syntax?$1" " s_787)" "(syntax-e$1" @@ -73683,7 +73692,7 @@ static const char *startup_source = " s_787)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_535)))" +" s_534)))" "(if(not" " flat-s_57)" "(let-values()" @@ -73693,7 +73702,7 @@ static const char *startup_source = " orig-s_87))" "(let-values()" "(let-values(((id_154)" -"(let-values(((lst_423)" +"(let-values(((lst_421)" " flat-s_57))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73701,20 +73710,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_423)))" +" lst_421)))" "((letrec-values(((for-loop_328)" "(lambda(id_155" -" lst_424)" +" lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_424)" -"(let-values(((s_538)" +" lst_422)" +"(let-values(((s_537)" "(unsafe-car" -" lst_424))" -"((rest_243)" +" lst_422))" +"((rest_242)" "(unsafe-cdr" -" lst_424)))" +" lst_422)))" "(let-values(((id_156)" "(let-values(((id_157)" " id_155))" @@ -73722,23 +73731,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_409)" "(if(syntax?$1" -" s_538)" +" s_537)" "(symbol?" "(syntax-e$1" -" s_538))" +" s_537))" " #f)))" -"(if or-part_405" -" or-part_405" +"(if or-part_409" +" or-part_409" "(symbol?" -" s_538)))" -" s_538" +" s_537)))" +" s_537" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_538)))))" +" s_537)))))" "(cons" " id509_0" " id_157)))))" @@ -73748,18 +73757,18 @@ static const char *startup_source = " #f)" "(for-loop_328" " id_156" -" rest_243)" +" rest_242)" " id_156)))" " id_155)))))" " for-loop_328)" " null" -" lst_423)))))" +" lst_421)))))" "(reverse$1" " id_154))))))))" "((rhs500_0)" "(let-values(((s_788)" "(cdr" -" s_534)))" +" s_533)))" "(let-values(((s_789)" "(if(syntax?$1" " s_788)" @@ -73902,20 +73911,20 @@ static const char *startup_source = "((ids520_0)" " ids_44)" "((temp521_0)" -"(let-values(((v_266)" +"(let-values(((v_264)" " partial-body-ctx_1))" -"(let-values(((the-struct_107)" -" v_266))" +"(let-values(((the-struct_110)" +" v_264))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_110)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_266)))" +" v_264)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_111)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -73924,89 +73933,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_111)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_111)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_111)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_111)))))" "(expand-context/outer1.1" " inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_107)" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_110)" " need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107)))))" +" the-struct_110)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -74017,11 +74026,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_425)" +"(let-values(((lst_423)" " syms_25)" -"((lst_426)" +"((lst_424)" " vals_10)" -"((lst_427)" +"((lst_425)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74029,51 +74038,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_423)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_424)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_425)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_426)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_427)))" "((letrec-values(((for-loop_329)" -"(lambda(lst_428" -" lst_429" -" lst_430)" +"(lambda(lst_426" +" lst_427" +" lst_428)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_428)" +" lst_426)" "(if(pair?" -" lst_429)" +" lst_427)" "(pair?" -" lst_430)" +" lst_428)" " #f)" " #f)" "(let-values(((sym_104)" "(unsafe-car" -" lst_428))" -"((rest_244)" +" lst_426))" +"((rest_243)" "(unsafe-cdr" -" lst_428))" +" lst_426))" "((val_85)" "(unsafe-car" -" lst_429))" -"((rest_245)" +" lst_427))" +"((rest_244)" "(unsafe-cdr" -" lst_429))" +" lst_427))" "((id_159)" "(unsafe-car" -" lst_430))" +" lst_428))" "((rest_229)" "(unsafe-cdr" -" lst_430)))" +" lst_428)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74096,15 +74105,15 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_329" +" rest_243" " rest_244" -" rest_245" " rest_229)" "(values))))" "(values))))))" " for-loop_329)" -" lst_425" -" lst_426" -" lst_427)))" +" lst_423" +" lst_424" +" lst_425)))" "(values))))" "(let-values()" "(let-values((()" @@ -74155,7 +74164,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_65" +" tmp_64" " '#%require)" "(let-values()" "(let-values((()" @@ -74296,7 +74305,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))))))" "(if(equal?" -" tmp_65" +" tmp_64" " '#%provide)" "(let-values()" "(cons" @@ -74305,7 +74314,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))" "(if(equal?" -" tmp_65" +" tmp_64" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -74352,7 +74361,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'module*)" "(let-values()" "(begin" @@ -74381,7 +74390,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1))))" "(if(equal?" -" tmp_65" +" tmp_64" " '#%declare)" "(let-values()" "(let-values(((ok?_81" @@ -74407,18 +74416,18 @@ static const char *startup_source = " s_799)))" " s_800))" "((kw554_0)" -"(let-values(((s_554)" +"(let-values(((s_553)" "(cdr" " s_799)))" -"(let-values(((s_555)" +"(let-values(((s_554)" "(if(syntax?$1" -" s_554)" +" s_553)" "(syntax-e$1" -" s_554)" -" s_554)))" +" s_553)" +" s_553)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_555)))" +" s_554)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74441,7 +74450,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_431)" +"(let-values(((lst_429)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74449,19 +74458,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_431)))" +" lst_429)))" "((letrec-values(((for-loop_330)" -"(lambda(lst_432)" +"(lambda(lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_432)" +" lst_430)" "(let-values(((kw_1)" "(unsafe-car" -" lst_432))" -"((rest_246)" +" lst_430))" +"((rest_245)" "(unsafe-cdr" -" lst_432)))" +" lst_430)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74513,11 +74522,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_330" -" rest_246)" +" rest_245)" "(values))))" "(values))))))" " for-loop_330)" -" lst_431)))" +" lst_429)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74567,18 +74576,18 @@ static const char *startup_source = "(lambda(ids_45 rhs_24 phase_155)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_433) ids_45))" +"(let-values(((lst_431) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_433)))" +"(let-values()(check-list lst_431)))" "((letrec-values(((for-loop_331)" -"(lambda(fold-var_377 lst_434)" +"(lambda(fold-var_377 lst_432)" "(begin" " 'for-loop" -"(if(pair? lst_434)" -"(let-values(((id_160)(unsafe-car lst_434))" -"((rest_247)(unsafe-cdr lst_434)))" +"(if(pair? lst_432)" +"(let-values(((id_160)(unsafe-car lst_432))" +"((rest_246)(unsafe-cdr lst_432)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379) fold-var_377))" "(let-values(((fold-var_380)" @@ -74590,11 +74599,11 @@ static const char *startup_source = " inside-scope_2))" " fold-var_379))))" "(values fold-var_380)))))" -"(if(not #f)(for-loop_331 fold-var_378 rest_247) fold-var_378)))" +"(if(not #f)(for-loop_331 fold-var_378 rest_246) fold-var_378)))" " fold-var_377)))))" " for-loop_331)" " null" -" lst_433))))))" +" lst_431))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" @@ -74635,15 +74644,15 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_114)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_435) bodys_23))" +"(let-values(((lst_433) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_435)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_433)))" "((letrec-values(((for-loop_332)" -"(lambda(fold-var_381 lst_436)" +"(lambda(fold-var_381 lst_434)" "(begin" " 'for-loop" -"(if(pair? lst_436)" -"(let-values(((body_23)(unsafe-car lst_436))((rest_248)(unsafe-cdr lst_436)))" +"(if(pair? lst_434)" +"(let-values(((body_23)(unsafe-car lst_434))((rest_247)(unsafe-cdr lst_434)))" "(let-values(((fold-var_382)" "(let-values(((fold-var_383) fold-var_381))" "(let-values(((fold-var_384)" @@ -74652,11 +74661,11 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_383))))" "(values fold-var_384)))))" -"(if(not #f)(for-loop_332 fold-var_382 rest_248) fold-var_382)))" +"(if(not #f)(for-loop_332 fold-var_382 rest_247) fold-var_382)))" " fold-var_381)))))" " for-loop_332)" " null" -" lst_435))))" +" lst_433))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -74739,14 +74748,14 @@ static const char *startup_source = "(let-values(((body_24)(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_410)" "(parsed? body_24)))" -"(if or-part_406" -" or-part_406" -"(let-values(((or-part_407)" +"(if or-part_410" +" or-part_410" +"(let-values(((or-part_411)" "(expanded+parsed? body_24)))" -"(if or-part_407" -" or-part_407" +"(if or-part_411" +" or-part_411" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -74798,26 +74807,26 @@ static const char *startup_source = " s_805))" "((_566_0" " _567_0)" -"(let-values(((s_612)" +"(let-values(((s_611)" "(cdr" " s_804)))" -"(let-values(((s_613)" +"(let-values(((s_612)" "(if(syntax?$1" -" s_612)" +" s_611)" "(syntax-e$1" -" s_612)" -" s_612)))" +" s_611)" +" s_611)))" "(if(pair?" -" s_613)" +" s_612)" "(let-values(((_568_0)" "(let-values(((s_806)" "(car" -" s_613)))" +" s_612)))" " s_806))" "((_569_0)" "(let-values(((s_807)" "(cdr" -" s_613)))" +" s_612)))" "(let-values(((s_808)" "(if(syntax?$1" " s_807)" @@ -74962,15 +74971,15 @@ static const char *startup_source = "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_66)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" " phase_156)))" -"(if(if(equal? tmp_66 '#%require)" +"(if(if(equal? tmp_65 '#%require)" " #t" -"(if(equal? tmp_66 '#%provide)" +"(if(equal? tmp_65 '#%provide)" " #t" -"(equal? tmp_66 'module*)))" +"(equal? tmp_65 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" @@ -75115,24 +75124,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_437) l_84))" +"(let-values(((lst_435) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_437)))" +"(let-values()(check-list lst_435)))" "((letrec-values(((for-loop_334)" -"(lambda(lst_438)" +"(lambda(lst_436)" "(begin" " 'for-loop" "(if(pair?" -" lst_438)" +" lst_436)" "(let-values(((id_161)" "(unsafe-car" -" lst_438))" -"((rest_249)" +" lst_436))" +"((rest_248)" "(unsafe-cdr" -" lst_438)))" +" lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75187,11 +75196,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_334" -" rest_249)" +" rest_248)" "(values))))" "(values))))))" " for-loop_334)" -" lst_437)))" +" lst_435)))" "(void)))" "(values)))))" "(values)))))" @@ -75226,8 +75235,8 @@ static const char *startup_source = " '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_412)(parsed?(car bodys_26))))" +"(if or-part_412 or-part_412(expanded+parsed?(car bodys_26))))" "(let-values()" "(cons(car bodys_26)(loop_127(cdr bodys_26) phase_159)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" @@ -75237,22 +75246,22 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body(car bodys_26))" "(add1 phase_159))))" "(cons" -"(let-values(((the-struct_109)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_109)" +"(let-values(((the-struct_112)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_112)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_109)" +"(semi-parsed-begin-for-syntax-s the-struct_112)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_109)))" +" the-struct_112)))" "(loop_127(cdr bodys_26) phase_159))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_67)" +"(let-values(((tmp_66)" "(core-form-sym disarmed-body_1 phase_159)))" -"(if(equal? tmp_67 '#%provide)" +"(if(equal? tmp_66 '#%provide)" "(let-values()" "(let-values((()" "(begin" @@ -75273,16 +75282,16 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_83 #%provide595_0 spec596_0)" -"(let-values(((s_634) disarmed-body_1))" -"(let-values(((orig-s_91) s_634))" +"(let-values(((s_633) disarmed-body_1))" +"(let-values(((orig-s_91) s_633))" "(let-values(((#%provide595_1" " spec596_1)" "(let-values(((s_812)" "(if(syntax?$1" -" s_634)" +" s_633)" "(syntax-e$1" -" s_634)" -" s_634)))" +" s_633)" +" s_633)))" "(if(pair? s_812)" "(let-values(((#%provide597_0)" "(let-values(((s_813)" @@ -75329,19 +75338,19 @@ static const char *startup_source = " requires+provides_9" " self_38" " phase_159" -"(let-values(((v_267) ctx_116))" -"(let-values(((the-struct_110)" -" v_267))" +"(let-values(((v_265) ctx_116))" +"(let-values(((the-struct_113)" +" v_265))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_113)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" -" v_267)))" +" v_265)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_114)" "(let-values(((phase601_0)" " phase_159)" "((namespace602_0)" @@ -75354,88 +75363,88 @@ static const char *startup_source = " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_114)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_114)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-module-lifts" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-to-module-lifts" -" the-struct_111)" +" the-struct_114)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner600_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_110)" +" the-struct_113)" " context599_0" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-need-eventually-defined" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110)))))))" +" the-struct_113)))))))" "(if(expand-context-to-parsed? ctx_116)" "(let-values()" "(loop_127(cdr bodys_26) phase_159))" @@ -75522,8 +75531,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_413) enclosing-self_3))" +"(if or-part_413 or-part_413 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -75589,10 +75598,10 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_656 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_655 root-ctx_8 orig-self_1 new-self_2)" "(begin" "(let-values(((s_816)" -"(syntax-property$1 s_656 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(syntax-property$1 s_655 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_817)" "(syntax-property$1" " s_816" @@ -75736,20 +75745,20 @@ static const char *startup_source = " temp624_0))" " parsed-bfs_0))" "(loop_128 rest-bodys_3 phase_161))))))))" -"(if(let-values(((or-part_410)(parsed? body_25)))" -"(if or-part_410" -" or-part_410" +"(if(let-values(((or-part_414)(parsed? body_25)))" +"(if or-part_414" +" or-part_414" "(expanded+parsed? body_25)))" "(let-values()" "(cons body_25(loop_128 rest-bodys_3 phase_161)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_68)" +"(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_2" " phase_161)))" -"(if(equal? tmp_68 'module*)" +"(if(equal? tmp_67 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -75780,21 +75789,21 @@ static const char *startup_source = "(let-values(((s_826)" "(cdr" " s_824)))" -"(let-values(((s_669)" +"(let-values(((s_668)" "(if(syntax?$1" " s_826)" "(syntax-e$1" " s_826)" " s_826)))" "(if(pair?" -" s_669)" +" s_668)" "(if(let-values(((s_827)" "(car" -" s_669)))" +" s_668)))" " #t)" "(let-values(((s_828)" "(cdr" -" s_669)))" +" s_668)))" "(let-values(((s_829)" "(if(syntax?$1" " s_828)" @@ -75845,7 +75854,7 @@ static const char *startup_source = "(let-values(((s_835)" "(cdr" " s_833)))" -"(let-values(((s_671)" +"(let-values(((s_670)" "(if(syntax?$1" " s_835)" "(syntax-e$1" @@ -75854,12 +75863,12 @@ static const char *startup_source = "(let-values(((name631_0)" "(let-values(((s_836)" "(car" -" s_671)))" +" s_670)))" " s_836))" "((_632_0)" "(let-values(((s_837)" "(cdr" -" s_671)))" +" s_670)))" "(let-values(((s_838)" "(if(syntax?$1" " s_837)" @@ -75870,7 +75879,7 @@ static const char *startup_source = "(let-values(((s_839)" "(car" " s_838)))" -"(let-values(((s_672)" +"(let-values(((s_671)" "(if(syntax?$1" " s_839)" "(syntax-e$1" @@ -75961,10 +75970,10 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_115)" " submod_4))" "(if(expanded+parsed?" -" the-struct_112)" +" the-struct_115)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" @@ -75973,11 +75982,11 @@ static const char *startup_source = "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_112)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_112))))" +" the-struct_115))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" @@ -76046,21 +76055,21 @@ static const char *startup_source = "(let-values(((ids_47) ids170_0))" "(let-values(((phase_162) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_706) in168_0))" +"(let-values(((s_705) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_439) ids_47))" +"(let-values(((lst_437) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_439)))" +"(let-values()(check-list lst_437)))" "((letrec-values(((for-loop_335)" -"(lambda(lst_440)" +"(lambda(lst_438)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((id_162)(unsafe-car lst_440))" -"((rest_250)(unsafe-cdr lst_440)))" +"(if(pair? lst_438)" +"(let-values(((id_162)(unsafe-car lst_438))" +"((rest_249)(unsafe-cdr lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76072,7 +76081,7 @@ static const char *startup_source = "((id656_0) id_162)" "((phase657_0)" " phase_162)" -"((s658_0) s_706)" +"((s658_0) s_705)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -76092,103 +76101,103 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_335 rest_250)(values))))" +"(if(not #f)(for-loop_335 rest_249)(values))))" "(values))))))" " for-loop_335)" -" lst_439)))" +" lst_437)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_28 phase_163 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_441) bodys_28))" +"(let-values(((lst_439) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))" "((letrec-values(((for-loop_336)" -"(lambda(lst_442)" +"(lambda(lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((body_26)(unsafe-car lst_442))((rest_251)(unsafe-cdr lst_442)))" +"(if(pair? lst_440)" +"(let-values(((body_26)(unsafe-car lst_440))((rest_250)(unsafe-cdr lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_86)" +"(let-values(((p_87)" "(if(expanded+parsed? body_26)" "(expanded+parsed-parsed" " body_26)" " body_26)))" -"(if(parsed-define-values? p_86)" +"(if(parsed-define-values? p_87)" "(let-values()" "(let-values(((ids_48)" "(parsed-define-values-ids" -" p_86)))" +" p_87)))" "(let-values(((vals_11)" "(eval-for-bindings" " ids_48" "(parsed-define-values-rhs" -" p_86)" +" p_87)" " phase_163" " m-ns_23" " ctx_119)))" "(begin" -"(let-values(((lst_443) ids_48)" -"((lst_444)" +"(let-values(((lst_441) ids_48)" +"((lst_442)" "(parsed-define-values-syms" -" p_86))" -"((lst_445) vals_11))" +" p_87))" +"((lst_443) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_441)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_442)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_443)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_444)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_445)))" "((letrec-values(((for-loop_337)" -"(lambda(lst_446" -" lst_447" -" lst_448)" +"(lambda(lst_444" +" lst_445" +" lst_446)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_446)" +" lst_444)" "(if(pair?" -" lst_447)" +" lst_445)" "(pair?" -" lst_448)" +" lst_446)" " #f)" " #f)" "(let-values(((id_163)" "(unsafe-car" -" lst_446))" -"((rest_252)" +" lst_444))" +"((rest_251)" "(unsafe-cdr" -" lst_446))" +" lst_444))" "((sym_105)" "(unsafe-car" -" lst_447))" -"((rest_253)" +" lst_445))" +"((rest_252)" "(unsafe-cdr" -" lst_447))" +" lst_445))" "((val_86)" "(unsafe-car" -" lst_448))" -"((rest_254)" +" lst_446))" +"((rest_253)" "(unsafe-cdr" -" lst_448)))" +" lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76205,30 +76214,30 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_337" +" rest_251" " rest_252" -" rest_253" -" rest_254)" +" rest_253)" "(values))))" "(values))))))" " for-loop_337)" -" lst_443" -" lst_444" -" lst_445)))" +" lst_441" +" lst_442" +" lst_443)))" "(void)))))" -"(if(let-values(((or-part_411)" +"(if(let-values(((or-part_415)" "(parsed-define-syntaxes?" -" p_86)))" -"(if or-part_411" -" or-part_411" +" p_87)))" +"(if or-part_415" +" or-part_415" "(semi-parsed-begin-for-syntax?" -" p_86)))" +" p_87)))" "(let-values()(void))" -"(if(let-values(((or-part_412)" +"(if(let-values(((or-part_416)" "(parsed-#%declare?" -" p_86)))" -"(if or-part_412" -" or-part_412" -"(syntax?$1 p_86)))" +" p_87)))" +"(if or-part_416" +" or-part_416" +"(syntax?$1 p_87)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -76244,7 +76253,7 @@ static const char *startup_source = "(let-values()" "(eval-single-top" "(compile-single" -" p_86" +" p_87" "(let-values(((m-ns660_0)" " m-ns_23)" "((phase661_0)" @@ -76265,10 +76274,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_336 rest_251)(values))))" +"(if(not #f)(for-loop_336 rest_250)(values))))" "(values))))))" " for-loop_336)" -" lst_441)))" +" lst_439)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76397,106 +76406,106 @@ static const char *startup_source = "(let-values(((submod_5)" "(let-values(((s670_0) s_841)" "((temp671_0)" -"(let-values(((v_268) ctx_120))" -"(let-values(((the-struct_113) v_268))" -"(if(expand-context/outer? the-struct_113)" +"(let-values(((v_266) ctx_120))" +"(let-values(((the-struct_116) v_266))" +"(if(expand-context/outer? the-struct_116)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_117)" "(root-expand-context/outer-inner" -" v_268)))" +" v_266)))" "(if(expand-context/inner?" -" the-struct_114)" +" the-struct_117)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_117)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_117)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_117)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_117)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_117)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_117)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-to-parsed?" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-phase" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-namespace" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-module-begin-k" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-in-local-expand?" -" the-struct_114)" +" the-struct_117)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-lifts" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-module-lifts" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-to-module-lifts" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-requires+provides" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_117)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_114)))))" +" the-struct_117)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/outer-frame-id" -" the-struct_113)" +" the-struct_116)" " context680_0" "(expand-context/outer-env" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-scopes" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-def-ctx-scopes" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-binding-layer" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-reference-records" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-only-immediate?" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-need-eventually-defined" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-current-introduction-scopes" -" the-struct_113)" +" the-struct_116)" "(expand-context/outer-name" -" the-struct_113)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113)))))" +" the-struct_116)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -76630,67 +76639,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_115) submod_5))" -"(if(expanded+parsed? the-struct_115)" +"(let-values(((the-struct_118) submod_5))" +"(if(expanded+parsed? the-struct_118)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_119)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_116)" +"(if(parsed-module? the-struct_119)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_116)" +"(parsed-s the-struct_119)" " star?696_0" "(parsed-module-name-id" -" the-struct_116)" +" the-struct_119)" "(parsed-module-self" -" the-struct_116)" +" the-struct_119)" "(parsed-module-requires" -" the-struct_116)" +" the-struct_119)" "(parsed-module-provides" -" the-struct_116)" +" the-struct_119)" "(parsed-module-root-ctx-simple?" -" the-struct_116)" +" the-struct_119)" "(parsed-module-encoded-root-ctx" -" the-struct_116)" +" the-struct_119)" "(parsed-module-body" -" the-struct_116)" +" the-struct_119)" "(parsed-module-compiled-module" -" the-struct_116)" +" the-struct_119)" "(parsed-module-compiled-submodules" -" the-struct_116)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_116)))))" +" the-struct_119)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_115)" +"(expanded+parsed-s the-struct_118)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_115))))" +" the-struct_118))))" "(let-values()" -"(let-values(((the-struct_117) submod_5))" -"(if(parsed-module? the-struct_117)" +"(let-values(((the-struct_120) submod_5))" +"(if(parsed-module? the-struct_120)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_117)" +"(parsed-s the-struct_120)" " star?697_0" -"(parsed-module-name-id the-struct_117)" -"(parsed-module-self the-struct_117)" -"(parsed-module-requires the-struct_117)" -"(parsed-module-provides the-struct_117)" -"(parsed-module-root-ctx-simple? the-struct_117)" -"(parsed-module-encoded-root-ctx the-struct_117)" -"(parsed-module-body the-struct_117)" -"(parsed-module-compiled-module the-struct_117)" +"(parsed-module-name-id the-struct_120)" +"(parsed-module-self the-struct_120)" +"(parsed-module-requires the-struct_120)" +"(parsed-module-provides the-struct_120)" +"(parsed-module-root-ctx-simple? the-struct_120)" +"(parsed-module-encoded-root-ctx the-struct_120)" +"(parsed-module-body the-struct_120)" +"(parsed-module-compiled-module the-struct_120)" "(parsed-module-compiled-submodules" -" the-struct_117)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_117)))))))))))))))))))))))))))))))))))" +" the-struct_120)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -76713,30 +76722,30 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_449) bodys_29))" +"(let-values(((lst_447) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_449)))" +"(let-values()(check-list lst_447)))" "((letrec-values(((for-loop_338)" -"(lambda(fold-var_385 lst_450)" +"(lambda(fold-var_385 lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((body_27)(unsafe-car lst_450))" -"((rest_255)(unsafe-cdr lst_450)))" +"(if(pair? lst_448)" +"(let-values(((body_27)(unsafe-car lst_448))" +"((rest_254)(unsafe-cdr lst_448)))" "(let-values(((fold-var_386)" "(let-values(((fold-var_387) fold-var_385))" "(let-values(((fold-var_388)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_69)" +"(let-values(((tmp_68)" "(core-form-sym" "(syntax-disarm$1" " body_27)" " phase_164)))" -"(if(equal? tmp_69 'module)" +"(if(equal? tmp_68 'module)" "(let-values()" "(let-values(((body698_0)" " body_27)" @@ -76775,12 +76784,12 @@ static const char *startup_source = " fold-var_387))))" "(values fold-var_388)))))" "(if(not #f)" -"(for-loop_338 fold-var_386 rest_255)" +"(for-loop_338 fold-var_386 rest_254)" " fold-var_386)))" " fold-var_385)))))" " for-loop_338)" " null" -" lst_449))))))))))))))))" +" lst_447))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -76882,16 +76891,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_451) lifted-defns_2))" +"(let-values(((lst_449) lifted-defns_2))" "(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_449)))" "((letrec-values(((for-loop_339)" -"(lambda(fold-var_389 lst_452)" +"(lambda(fold-var_389 lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_452)" -"(let-values(((lifted-defn_0)(unsafe-car lst_452))" -"((rest_256)(unsafe-cdr lst_452)))" +"(if(pair? lst_450)" +"(let-values(((lifted-defn_0)(unsafe-car lst_450))" +"((rest_255)(unsafe-cdr lst_450)))" "(let-values(((fold-var_390)" "(let-values(((fold-var_391) fold-var_389))" "(let-values(((fold-var_392)" @@ -76901,11 +76910,11 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_391))))" "(values fold-var_392)))))" -"(if(not #f)(for-loop_339 fold-var_390 rest_256) fold-var_390)))" +"(if(not #f)(for-loop_339 fold-var_390 rest_255) fold-var_390)))" " fold-var_389)))))" " for-loop_339)" " null" -" lst_451)))))))" +" lst_449)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -76921,18 +76930,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_453) s-lifted-defns_0))" +"(let-values(((lst_451) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_453)))" +"(let-values()(check-list lst_451)))" "((letrec-values(((for-loop_340)" -"(lambda(lst_454)" +"(lambda(lst_452)" "(begin" " 'for-loop" -"(if(pair? lst_454)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_454))" -"((rest_257)(unsafe-cdr lst_454)))" +"(if(pair? lst_452)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_452))" +"((rest_256)(unsafe-cdr lst_452)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77038,10 +77047,10 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_257)(values))))" +"(if(not #f)(for-loop_340 rest_256)(values))))" "(values))))))" " for-loop_340)" -" lst_453)))" +" lst_451)))" "(values))))" "(let-values()" "(let-values(((ok?_89 form-id720_0 _721_0)" @@ -77122,7 +77131,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_154 ctx_124)" +"(lambda(ids_49 s_153 ctx_124)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" "(let-values(((tl-ids_2)" @@ -77132,13 +77141,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_393 lst_85)" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_393 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((id_164)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((id_164)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_393))" "(let-values(((fold-var_394)" @@ -77150,30 +77159,30 @@ static const char *startup_source = " ctx_124))" " fold-var_62))))" "(values fold-var_394)))))" -"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" +"(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" " fold-var_393)))))" -" for-loop_104)" +" for-loop_103)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_154))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_153))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_100) tl-ids_2))" +"(let-values(((lst_101) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_341)" -"(lambda(fold-var_218 lst_86)" +"(lambda(fold-var_218 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_165)(unsafe-car lst_86))" -"((rest_238)(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((id_165)(unsafe-car lst_87))" +"((rest_237)(unsafe-cdr lst_87)))" "(let-values(((fold-var_228)" "(let-values(((fold-var_31) fold-var_218))" "(let-values(((fold-var_32)" @@ -77186,12 +77195,12 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_341 fold-var_228 rest_238)" +"(for-loop_341 fold-var_228 rest_237)" " fold-var_228)))" " fold-var_218)))))" " for-loop_341)" " null" -" lst_100))))))" +" lst_101))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" @@ -77212,26 +77221,26 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_171) s_0))" -"(let-values(((orig-s_98) s_171))" +"(let-values(((s_170) s_0))" +"(let-values(((orig-s_98) s_170))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(let-values(((s_40)(if(syntax?$1 s_170)(syntax-e$1 s_170) s_170)))" "(if(pair? s_40)" "(let-values(((define-values4_0)" -"(let-values(((s_181)(car s_40))) s_181))" +"(let-values(((s_180)(car s_40))) s_180))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_173)" +"(let-values(((s_172)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_173)" +"(if(pair? s_172)" "(let-values(((id7_0)" -"(let-values(((s_160)(car s_173)))" +"(let-values(((s_159)(car s_172)))" "(let-values(((s_5)" -"(if(syntax?$1 s_160)" -"(syntax-e$1 s_160)" -" s_160)))" +"(if(syntax?$1 s_159)" +"(syntax-e$1 s_159)" +" s_159)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" " s_5)))" @@ -77254,17 +77263,17 @@ static const char *startup_source = " lst_24)))" "((letrec-values(((for-loop_253)" "(lambda(id_6" -" lst_80)" +" lst_81)" "(begin" " 'for-loop" "(if(pair?" -" lst_80)" -"(let-values(((s_182)" +" lst_81)" +"(let-values(((s_181)" "(unsafe-car" -" lst_80))" +" lst_81))" "((rest_141)" "(unsafe-cdr" -" lst_80)))" +" lst_81)))" "(let-values(((id_167)" "(let-values(((id_52)" " id_6))" @@ -77274,21 +77283,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_182)" +" s_181)" "(symbol?" "(syntax-e$1" -" s_182))" +" s_181))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_182)))" -" s_182" +" s_181)))" +" s_181" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_98" -" s_182)))))" +" s_181)))))" "(cons" " id10_1" " id_52)))))" @@ -77306,27 +77315,27 @@ static const char *startup_source = " lst_24)))))" "(reverse$1 id_166))))))))" "((rhs8_0)" -"(let-values(((s_79)(cdr s_173)))" -"(let-values(((s_388)" +"(let-values(((s_79)(cdr s_172)))" +"(let-values(((s_383)" "(if(syntax?$1 s_79)" "(syntax-e$1 s_79)" " s_79)))" -"(if(pair? s_388)" +"(if(pair? s_383)" "(let-values(((rhs9_0)" "(let-values(((s_43)" "(car" -" s_388)))" +" s_383)))" " s_43))" "(()" -"(let-values(((s_308)" +"(let-values(((s_302)" "(cdr" -" s_388)))" +" s_383)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_308)" +" s_302)" "(syntax-e$1" -" s_308)" -" s_308)))" +" s_302)" +" s_302)))" "(if(null?" " s_35)" "(values)" @@ -77377,29 +77386,29 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_26)(syntax-disarm$1 s_872)))" "(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_431) disarmed-s_26))" -"(let-values(((orig-s_99) s_431))" +"(let-values(((s_427) disarmed-s_26))" +"(let-values(((orig-s_99) s_427))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_431)(syntax-e$1 s_431) s_431)))" +"(let-values(((s_20)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_470)(cdr s_20)))" +"(let-values(((s_464)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_470)" -"(syntax-e$1 s_470)" -" s_470)))" +"(if(syntax?$1 s_464)" +"(syntax-e$1 s_464)" +" s_464)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_726)(car s_24)))" -"(let-values(((s_477)" -"(if(syntax?$1 s_726)" -"(syntax-e$1 s_726)" -" s_726)))" +"(let-values(((s_725)(car s_24)))" +"(let-values(((s_472)" +"(if(syntax?$1 s_725)" +"(syntax-e$1 s_725)" +" s_725)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_477)))" +" s_472)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -77419,17 +77428,17 @@ static const char *startup_source = " lst_181)))" "((letrec-values(((for-loop_342)" "(lambda(id_169" -" lst_455)" +" lst_453)" "(begin" " 'for-loop" "(if(pair?" -" lst_455)" -"(let-values(((s_146)" +" lst_453)" +"(let-values(((s_147)" "(unsafe-car" -" lst_455))" -"((rest_258)" +" lst_453))" +"((rest_257)" "(unsafe-cdr" -" lst_455)))" +" lst_453)))" "(let-values(((id_100)" "(let-values(((id_101)" " id_169))" @@ -77437,23 +77446,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_360)" +"(if(let-values(((or-part_363)" "(if(syntax?$1" -" s_146)" +" s_147)" "(symbol?" "(syntax-e$1" -" s_146))" +" s_147))" " #f)))" -"(if or-part_360" -" or-part_360" +"(if or-part_363" +" or-part_363" "(symbol?" -" s_146)))" -" s_146" +" s_147)))" +" s_147" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_99" -" s_146)))))" +" s_147)))))" "(cons" " id24_1" " id_101)))))" @@ -77463,7 +77472,7 @@ static const char *startup_source = " #f)" "(for-loop_342" " id_100" -" rest_258)" +" rest_257)" " id_100)))" " id_169)))))" " for-loop_342)" @@ -77471,29 +77480,29 @@ static const char *startup_source = " lst_181)))))" "(reverse$1 id_77))))))))" "((rhs22_0)" -"(let-values(((s_499)(cdr s_24)))" -"(let-values(((s_483)" -"(if(syntax?$1 s_499)" -"(syntax-e$1 s_499)" -" s_499)))" -"(if(pair? s_483)" +"(let-values(((s_495)(cdr s_24)))" +"(let-values(((s_478)" +"(if(syntax?$1 s_495)" +"(syntax-e$1 s_495)" +" s_495)))" +"(if(pair? s_478)" "(let-values(((rhs23_2)" -"(let-values(((s_167)" +"(let-values(((s_166)" "(car" -" s_483)))" -" s_167))" +" s_478)))" +" s_166))" "(()" "(let-values(((s_44)" "(cdr" -" s_483)))" -"(let-values(((s_466)" +" s_478)))" +"(let-values(((s_460)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_466)" +" s_460)" "(values)" "(raise-syntax-error$1" " #f" @@ -77523,15 +77532,15 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_486 ctx_10)" +"(lambda(s_481 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_486)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_481)))" "(values))))" "(let-values(((ok?_92 begin-for-syntax29_0 form30_0)" -"(let-values(((s_873) s_486))" +"(let-values(((s_873) s_481))" "(let-values(((orig-s_100) s_873))" "(let-values(((begin-for-syntax29_1 form30_1)" "(let-values(((s_874)(if(syntax?$1 s_873)(syntax-e$1 s_873) s_873)))" @@ -77540,9 +77549,9 @@ static const char *startup_source = "(let-values(((s_31)(car s_874))) s_31))" "((form32_0)" "(let-values(((s_46)(cdr s_874)))" -"(let-values(((s_147)" +"(let-values(((s_148)" "(if(syntax?$1 s_46)(syntax-e$1 s_46) s_46)))" -"(let-values(((flat-s_66)(to-syntax-list.1 s_147)))" +"(let-values(((flat-s_66)(to-syntax-list.1 s_148)))" "(if(not flat-s_66)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100))" @@ -77572,63 +77581,63 @@ static const char *startup_source = "(make-lift-context6.1 #f #f temp36_8))))" "(let-values(((capture-ctx_1)" "(let-values(((v_77) trans-ctx_1))" -"(let-values(((the-struct_118) v_77))" -"(if(expand-context/outer? the-struct_118)" +"(let-values(((the-struct_121) v_77))" +"(if(expand-context/outer? the-struct_121)" "(let-values(((inner37_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_122)" "(root-expand-context/outer-inner v_77)))" -"(if(expand-context/inner? the-struct_119)" +"(if(expand-context/inner? the-struct_122)" "(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_119)" -"(root-expand-context/inner-module-scopes the-struct_119)" +"(root-expand-context/inner-self-mpi the-struct_122)" +"(root-expand-context/inner-module-scopes the-struct_122)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" -"(root-expand-context/inner-all-scopes-stx the-struct_119)" -"(root-expand-context/inner-defined-syms the-struct_119)" -"(root-expand-context/inner-counter the-struct_119)" +" the-struct_122)" +"(root-expand-context/inner-all-scopes-stx the-struct_122)" +"(root-expand-context/inner-defined-syms the-struct_122)" +"(root-expand-context/inner-counter the-struct_122)" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_119)" -"(expand-context/inner-phase the-struct_119)" -"(expand-context/inner-namespace the-struct_119)" -"(expand-context/inner-just-once? the-struct_119)" -"(expand-context/inner-module-begin-k the-struct_119)" -"(expand-context/inner-allow-unbound? the-struct_119)" -"(expand-context/inner-in-local-expand? the-struct_119)" -"(expand-context/inner-stops the-struct_119)" -"(expand-context/inner-declared-submodule-names the-struct_119)" +"(expand-context/inner-to-parsed? the-struct_122)" +"(expand-context/inner-phase the-struct_122)" +"(expand-context/inner-namespace the-struct_122)" +"(expand-context/inner-just-once? the-struct_122)" +"(expand-context/inner-module-begin-k the-struct_122)" +"(expand-context/inner-allow-unbound? the-struct_122)" +"(expand-context/inner-in-local-expand? the-struct_122)" +"(expand-context/inner-stops the-struct_122)" +"(expand-context/inner-declared-submodule-names the-struct_122)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_119)" -"(expand-context/inner-module-lifts the-struct_119)" -"(expand-context/inner-require-lifts the-struct_119)" -"(expand-context/inner-to-module-lifts the-struct_119)" -"(expand-context/inner-requires+provides the-struct_119)" -"(expand-context/inner-observer the-struct_119)" -"(expand-context/inner-for-serializable? the-struct_119)" +"(expand-context/inner-lift-envs the-struct_122)" +"(expand-context/inner-module-lifts the-struct_122)" +"(expand-context/inner-require-lifts the-struct_122)" +"(expand-context/inner-to-module-lifts the-struct_122)" +"(expand-context/inner-requires+provides the-struct_122)" +"(expand-context/inner-observer the-struct_122)" +"(expand-context/inner-for-serializable? the-struct_122)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_119)))))" +" the-struct_122)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_118)" -"(root-expand-context/outer-use-site-scopes the-struct_118)" -"(root-expand-context/outer-frame-id the-struct_118)" -"(expand-context/outer-context the-struct_118)" -"(expand-context/outer-env the-struct_118)" -"(expand-context/outer-post-expansion-scope-action the-struct_118)" -"(expand-context/outer-scopes the-struct_118)" -"(expand-context/outer-def-ctx-scopes the-struct_118)" -"(expand-context/outer-binding-layer the-struct_118)" -"(expand-context/outer-reference-records the-struct_118)" -"(expand-context/outer-only-immediate? the-struct_118)" -"(expand-context/outer-need-eventually-defined the-struct_118)" -"(expand-context/outer-current-introduction-scopes the-struct_118)" -"(expand-context/outer-name the-struct_118)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_118))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_121)" +"(root-expand-context/outer-use-site-scopes the-struct_121)" +"(root-expand-context/outer-frame-id the-struct_121)" +"(expand-context/outer-context the-struct_121)" +"(expand-context/outer-env the-struct_121)" +"(expand-context/outer-post-expansion-scope-action the-struct_121)" +"(expand-context/outer-scopes the-struct_121)" +"(expand-context/outer-def-ctx-scopes the-struct_121)" +"(expand-context/outer-binding-layer the-struct_121)" +"(expand-context/outer-reference-records the-struct_121)" +"(expand-context/outer-only-immediate? the-struct_121)" +"(expand-context/outer-need-eventually-defined the-struct_121)" +"(expand-context/outer-current-introduction-scopes the-struct_121)" +"(expand-context/outer-name the-struct_121)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_121))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_87)" "(lambda(forms_0)" @@ -77644,7 +77653,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_486))))" +"(datum->syntax$1 #f form30_0 s_481))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -77670,7 +77679,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_486))))" +" s_481))))" "(void)))" " forms_2)))" "(let-values()" @@ -77751,8 +77760,8 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_486 all-exp-forms_0)" -"(let-values(((s45_1) s_486)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_481 all-exp-forms_0)" +"(let-values(((s45_1) s_481)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_1 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -77771,19 +77780,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_93 #%require47_0 req48_0)" -"(let-values(((s_195) disarmed-s_27))" -"(let-values(((orig-s_4) s_195))" +"(let-values(((s_194) disarmed-s_27))" +"(let-values(((orig-s_4) s_194))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_58)(if(syntax?$1 s_195)(syntax-e$1 s_195) s_195)))" +"(let-values(((s_58)(if(syntax?$1 s_194)(syntax-e$1 s_194) s_194)))" "(if(pair? s_58)" "(let-values(((#%require49_0)(let-values(((s_36)(car s_58))) s_36))" "((req50_0)" "(let-values(((s_875)(cdr s_58)))" -"(let-values(((s_197)" +"(let-values(((s_196)" "(if(syntax?$1 s_875)" "(syntax-e$1 s_875)" " s_875)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_197)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_196)))" "(if(not flat-s_67)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -77795,18 +77804,18 @@ static const char *startup_source = "(begin" "(let-values(((temp51_4)" "(reverse$1" -"(let-values(((lst_456) req48_0))" +"(let-values(((lst_454) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_456)))" +"(let-values()(check-list lst_454)))" "((letrec-values(((for-loop_343)" "(lambda(fold-var_286 lst_152)" "(begin" " 'for-loop" "(if(pair? lst_152)" "(let-values(((req_20)(unsafe-car lst_152))" -"((rest_259)(unsafe-cdr lst_152)))" +"((rest_258)(unsafe-cdr lst_152)))" "(let-values(((fold-var_395)" "(let-values(((fold-var_289) fold-var_286))" "(let-values(((fold-var_396)" @@ -77819,12 +77828,12 @@ static const char *startup_source = " fold-var_289))))" "(values fold-var_396)))))" "(if(not #f)" -"(for-loop_343 fold-var_395 rest_259)" +"(for-loop_343 fold-var_395 rest_258)" " fold-var_395)))" " fold-var_286)))))" " for-loop_343)" " null" -" lst_456)))))" +" lst_454)))))" "((s52_0) s_33)" "((temp53_5) #f)" "((temp54_6)(expand-context-namespace ctx_126))" @@ -77861,11 +77870,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_324 ctx_127)" +"(lambda(s_318 ctx_127)" "(begin" "(let-values(((obs_175)(expand-context-observer ctx_127)))" "(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_324)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_318)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -77978,12 +77987,12 @@ static const char *startup_source = "(let-values(((name30_0) name_82)" "((ns31_5) ns)" "((temp32_6)" -"(let-values(((or-part_291)" +"(let-values(((or-part_295)" "(eq?" " name_82" " '#%foreign)))" -"(if or-part_291" -" or-part_291" +"(if or-part_295" +" or-part_295" "(let-values(((or-part_94)" "(eq?" " name_82"