From 60471c26918f8e25d615c0aa485f2a894876ac78 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 18 Mar 2018 13:08:53 -0600 Subject: [PATCH] improve continuation-mark fast path Follow the metacontinuation chain, and also distinguish between "definitely not found" and "not easily found, so try the slow path". --- racket/src/expander/syntax/scope.rkt | 18 +- racket/src/racket/src/fun.c | 132 +- racket/src/racket/src/startup.inc | 16554 +++++++++++++------------ 3 files changed, 8378 insertions(+), 8326 deletions(-) diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index 476203cf0b..a9c5bdea9e 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -394,13 +394,19 @@ (syntax-content s))) (define (syntax-e s) - (define content (syntax-e/no-taint s)) - ;; Since we just called `syntax-e/no-taint`, we know that - ;; `(syntax-scope-propagations+tamper s)` is not a propagation + (define e (syntax-content s)) (cond - [(not (tamper-armed? (syntax-scope-propagations+tamper s))) content] - [(datum-has-elements? content) (taint-content content)] - [else content])) + ;; Shortcut for most common case: + [(symbol? e) e] + ;; General case: + [else + (define content (syntax-e/no-taint s)) + ;; Since we just called `syntax-e/no-taint`, we know that + ;; `(syntax-scope-propagations+tamper s)` is not a propagation + (cond + [(not (tamper-armed? (syntax-scope-propagations+tamper s))) content] + [(datum-has-elements? content) (taint-content content)] + [else content])])) ;; When a representative-scope is manipulated, we want to ;; manipulate the multi scope, instead (at a particular diff --git a/racket/src/racket/src/fun.c b/racket/src/racket/src/fun.c index a74ec23c5d..10c7fe6713 100644 --- a/racket/src/racket/src/fun.c +++ b/racket/src/racket/src/fun.c @@ -95,6 +95,8 @@ THREAD_LOCAL_DECL(static Scheme_Overflow *offstack_overflow); THREAD_LOCAL_DECL(int scheme_cont_capture_count); THREAD_LOCAL_DECL(static int scheme_prompt_capture_count); +#define MARK_CACHE_THRESHOLD 16 + /* locals */ static Scheme_Object *procedure_p (int argc, Scheme_Object *argv[]); static Scheme_Object *apply (int argc, Scheme_Object *argv[]); @@ -8098,6 +8100,16 @@ extract_cc_proc_marks(int argc, Scheme_Object *argv[]) return scheme_get_stack_trace(argv[0]); } +XFORM_NONGCING static Scheme_Object *default_mark_value(Scheme_Object *key) +{ + if (key == scheme_parameterization_key) + return (Scheme_Object *)scheme_current_thread->init_config; + else if (key == scheme_break_enabled_key) + return scheme_current_thread->init_break_cell; + + return NULL; +} + static Scheme_Object * scheme_extract_one_cc_mark_with_meta(Scheme_Object *mark_set, Scheme_Object *key_arg, Scheme_Object *prompt_tag, Scheme_Meta_Continuation **_meta, @@ -8196,7 +8208,7 @@ scheme_extract_one_cc_mark_with_meta(Scheme_Object *mark_set, Scheme_Object *key val = scheme_chaperone_do_continuation_mark("continuation-mark-set-first", 1, key_arg, val); pos = startpos - findpos; - if (pos > 16) { + if (pos > MARK_CACHE_THRESHOLD) { pos >>= 1; findpos = findpos + pos; if (mc) { @@ -8285,68 +8297,95 @@ scheme_extract_one_cc_mark_with_meta(Scheme_Object *mark_set, Scheme_Object *key } } while (mc); } - - if (key == scheme_parameterization_key) { - return (Scheme_Object *)scheme_current_thread->init_config; - } - if (key == scheme_break_enabled_key) { - return scheme_current_thread->init_break_cell; - } - - return NULL; + + return default_mark_value(key); } XFORM_NONGCING static Scheme_Object * -extract_one_cc_mark_fast(Scheme_Object *key) +extract_one_cc_mark_fast(Scheme_Object *key, int *_conclusive) /* A non-GCing fast path for scheme_extract_one_cc_mark_with_meta() where there are no complications. */ { - intptr_t findpos, bottom, startpos, minbottom; + intptr_t findpos, bottom, startpos; intptr_t pos; Scheme_Object *val = NULL; Scheme_Object *cache; Scheme_Cont_Mark *seg; Scheme_Thread *p = scheme_current_thread; - - startpos = (intptr_t)MZ_CONT_MARK_STACK; + Scheme_Meta_Continuation *mc = NULL; - bottom = p->cont_mark_stack_bottom; - minbottom = startpos - 32; - if (bottom < minbottom) - bottom = minbottom; + do { + if (mc) { + startpos = mc->cont_mark_total; + bottom = 0; + } else { + startpos = (intptr_t)MZ_CONT_MARK_STACK; + bottom = p->cont_mark_stack_bottom; + } - findpos = startpos; + findpos = startpos; - /* Search mark stack, checking caches along the way: */ - while (findpos-- > bottom) { - seg = p->cont_mark_stack_segments[findpos >> SCHEME_LOG_MARK_SEGMENT_SIZE]; - pos = findpos & SCHEME_MARK_SEGMENT_MASK; + /* Search mark stack, checking caches along the way: */ + while (findpos-- > bottom) { + if ((startpos - findpos) > MARK_CACHE_THRESHOLD) { + /* Use full search to trigger caching */ + return NULL; + } - if (SAME_OBJ(seg[pos].key, key)) - return seg[pos].val; - else { - cache = seg[pos].cache; - if (cache && SCHEME_HASHTP(cache)) - cache = scheme_eq_hash_get((Scheme_Hash_Table *)cache, scheme_false); - if (cache && SCHEME_VECTORP(cache)) { - /* If slot 1 has a key, this cache has just one key--value - pair. Otherwise, slot 2 is a hash table. */ - if (SCHEME_VEC_ELS(cache)[1]) { - if (SAME_OBJ(SCHEME_VEC_ELS(cache)[1], key)) - return SCHEME_VEC_ELS(cache)[2]; - } else { - Scheme_Hash_Table *ht; - ht = (Scheme_Hash_Table *)SCHEME_VEC_ELS(cache)[2]; - val = scheme_eq_hash_get(ht, key); - if (val) { - return SCHEME_CAR(val); + if (mc) { + seg = mc->cont_mark_stack_copied; + pos = findpos; + } else { + seg = p->cont_mark_stack_segments[findpos >> SCHEME_LOG_MARK_SEGMENT_SIZE]; + pos = findpos & SCHEME_MARK_SEGMENT_MASK; + } + + if (SAME_OBJ(seg[pos].key, key)) { + *_conclusive = 1; + return seg[pos].val; + } else { + cache = seg[pos].cache; + if (cache && SCHEME_HASHTP(cache)) + cache = scheme_eq_hash_get((Scheme_Hash_Table *)cache, scheme_false); + if (cache && SCHEME_VECTORP(cache)) { + /* If slot 1 has a key, this cache has just one key--value + pair. Otherwise, slot 2 is a hash table. */ + if (SCHEME_VEC_ELS(cache)[1]) { + if (SAME_OBJ(SCHEME_VEC_ELS(cache)[1], key)) { + val = SCHEME_VEC_ELS(cache)[2]; + if (val) { + *_conclusive = 1; + return val; + } else + break; /* cached absence of a value */ + } + } else { + Scheme_Hash_Table *ht; + ht = (Scheme_Hash_Table *)SCHEME_VEC_ELS(cache)[2]; + val = scheme_eq_hash_get(ht, key); + if (val) { + val = SCHEME_CAR(val); + if (val) { + *_conclusive = 1; + return val; + } else + break; /* cached absence of a value */ + } } } } } - } - - return NULL; + + if (mc) + mc = mc->next; + else + mc = p->meta_continuation; + } while (mc); + + /* Since we searched the metacontinuation chain, + the absence of a value is conclusive */ + *_conclusive = 1; + return default_mark_value(key); } static Scheme_Object *get_set_cont_mark_by_pos(Scheme_Object *key, @@ -8418,8 +8457,9 @@ scheme_extract_one_cc_mark(Scheme_Object *mark_set, Scheme_Object *key) Scheme_Object *v; if (!mark_set) { - v = extract_one_cc_mark_fast(key); - if (v) return v; + int conclusive = 0; + v = extract_one_cc_mark_fast(key, &conclusive); + if (conclusive) return v; } return scheme_extract_one_cc_mark_with_meta(mark_set, key, NULL, NULL, NULL); diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 939f481346..1b8393a7c2 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -8837,10 +8837,16 @@ static const char *startup_source = "(lambda(s_96)" "(begin" " 'syntax-e" +"(let-values(((e_15)(syntax-content s_96)))" +"(if(symbol? e_15)" +"(let-values() e_15)" +"(let-values()" "(let-values(((content_6)(syntax-e/no-taint s_96)))" "(if(not(tamper-armed?(syntax-scope-propagations+tamper s_96)))" "(let-values() content_6)" -"(if(datum-has-elements? content_6)(let-values()(taint-content content_6))(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)" @@ -8908,7 +8914,7 @@ static const char *startup_source = "(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_38)" +"((letrec-values(((for-loop_58)" "(lambda(s_100 lst_44)" "(begin" " 'for-loop" @@ -8918,9 +8924,9 @@ static const char *startup_source = "(let-values(((s_102) s_100))" "(let-values(((s_103)(let-values()(add-scope s_102 sc_10))))" "(values s_103)))))" -"(if(not #f)(for-loop_38 s_101 rest_18) s_101)))" +"(if(not #f)(for-loop_58 s_101 rest_18) s_101)))" " s_100)))))" -" for-loop_38)" +" for-loop_58)" " s_99" " lst_43))))))" "(define-values" @@ -8986,7 +8992,7 @@ static const char *startup_source = "(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_58)" +"((letrec-values(((for-loop_40)" "(lambda(s_107 lst_46)" "(begin" " 'for-loop" @@ -8996,14 +9002,14 @@ static const char *startup_source = "(let-values(((s_109) s_107))" "(let-values(((s_110)(let-values()(remove-scope s_109 sc_13))))" "(values s_110)))))" -"(if(not #f)(for-loop_58 s_108 rest_19) s_108)))" +"(if(not #f)(for-loop_40 s_108 rest_19) s_108)))" " s_107)))))" -" for-loop_58)" +" for-loop_40)" " s_106" " lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_111 e_15)(begin(if(set-member? s_111 e_15)(set-remove s_111 e_15)(set-add s_111 e_15)))))" +"(lambda(s_111 e_16)(begin(if(set-member? s_111 e_16)(set-remove s_111 e_16)(set-add s_111 e_16)))))" "(define-values" "(flip-scope)" "(lambda(s_112 sc_14)" @@ -9590,8 +9596,8 @@ static const char *startup_source = "(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_17)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_17 or-part_17(tamper-tainted?(propagation-tamper base-prop_0))))" +"(if(let-values(((or-part_114)(tamper-tainted?(propagation-tamper prop_13))))" +"(if or-part_114 or-part_114(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -9608,10 +9614,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_114) add_2))(if or-part_114 or-part_114 base-add_1))))" +"(let-values(((or-part_115) add_2))(if or-part_115 or-part_115 base-add_1))))" "((inspector78_0)" -"(let-values(((or-part_115)(propagation-inspector base-prop_0)))" -"(if or-part_115 or-part_115(propagation-inspector prop_13))))" +"(let-values(((or-part_116)(propagation-inspector base-prop_0)))" +"(if or-part_116 or-part_116(propagation-inspector prop_13))))" "((tamper79_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_28)" @@ -9791,19 +9797,19 @@ static const char *startup_source = "(let-values()(f_32 #f s_132))" "(if(number? s_132)" "(let-values()(f_32 #f s_132))" -"(if(let-values(((or-part_116)" +"(if(let-values(((or-part_117)" "(vector? s_132)))" -"(if or-part_116" -" or-part_116" -"(let-values(((or-part_117)" -"(box? s_132)))" "(if or-part_117" " or-part_117" "(let-values(((or-part_118)" -"(prefab-struct-key" -" s_132)))" +"(box? s_132)))" "(if or-part_118" " or-part_118" +"(let-values(((or-part_119)" +"(prefab-struct-key" +" s_132)))" +"(if or-part_119" +" or-part_119" "(hash? s_132)))))))" "(let-values()" "(datum-map-slow" @@ -10009,19 +10015,19 @@ static const char *startup_source = "(let-values()(f_34 #f s_140))" "(if(number? s_140)" "(let-values()(f_34 #f s_140))" -"(if(let-values(((or-part_119)" +"(if(let-values(((or-part_120)" "(vector? s_140)))" -"(if or-part_119" -" or-part_119" -"(let-values(((or-part_120)" -"(box? s_140)))" "(if or-part_120" " or-part_120" "(let-values(((or-part_121)" -"(prefab-struct-key" -" s_140)))" +"(box? s_140)))" "(if or-part_121" " or-part_121" +"(let-values(((or-part_122)" +"(prefab-struct-key" +" s_140)))" +"(if or-part_122" +" or-part_122" "(hash? s_140)))))))" "(let-values()" "(datum-map-slow" @@ -10059,9 +10065,9 @@ static const char *startup_source = "(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_122)(label-phase? phase_13)))" -"(if or-part_122" -" or-part_122" +"(if(let-values(((or-part_123)(label-phase? phase_13)))" +"(if or-part_123" +" or-part_123" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -10454,12 +10460,12 @@ static const char *startup_source = "(cdr" " i_76))" "(let-values()" -"(let-values(((or-part_123)" +"(let-values(((or-part_124)" "(hash-iterate-next" " ht_62" " i_76)))" -"(if or-part_123" -" or-part_123" +"(if or-part_124" +" or-part_124" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -10470,11 +10476,11 @@ static const char *startup_source = " for-loop_71)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_124)" +"(let-values(((or-part_125)" "(hash-iterate-first" " ht_62)))" -"(if or-part_124" -" or-part_124" +"(if or-part_125" +" or-part_125" " bulk-bindings_2)))))))" "(if(not #f)" "(for-loop_70" @@ -10507,9 +10513,9 @@ static const char *startup_source = "(syntax-scopes s_146)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_125)(not exactly?_0)))" -"(if or-part_125" -" or-part_125" +"(if(let-values(((or-part_126)(not exactly?_0)))" +"(if or-part_126" +" or-part_126" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -10879,8 +10885,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_11)" "(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_148)))" "((inspector71_0)" -"(let-values(((or-part_126)(syntax-inspector s_148)))" -"(if or-part_126 or-part_126 inspector_3)))" +"(let-values(((or-part_127)(syntax-inspector s_148)))" +"(if or-part_127 or-part_127 inspector_3)))" "((scope-propagations+tamper72_0)" "(if(datum-has-elements?(syntax-content s_148))" "(propagation-mpi-shift" @@ -11213,22 +11219,22 @@ static const char *startup_source = " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_152 insp_3)" +"(lambda(s_104 insp_3)" "(begin" -"(let-values(((the-struct_31) s_152))" +"(let-values(((the-struct_31) s_104))" "(if(syntax?$1 the-struct_31)" "(let-values(((inspector100_0)" -"(let-values(((or-part_127)(syntax-inspector s_152)))(if or-part_127 or-part_127 insp_3)))" +"(let-values(((or-part_128)(syntax-inspector s_104)))(if or-part_128 or-part_128 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_152))" +"(if(datum-has-elements?(syntax-content s_104))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_152)" +"(syntax-scope-propagations+tamper s_104)" " #f" " insp_3" -"(syntax-scopes s_152)" -"(syntax-shifted-multi-scopes s_152)" -"(syntax-mpi-shifts s_152))" -"(syntax-scope-propagations+tamper s_152))))" +"(syntax-scopes s_104)" +"(syntax-shifted-multi-scopes s_104)" +"(syntax-mpi-shifts s_104))" +"(syntax-scope-propagations+tamper s_104))))" "(syntax1.1" "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" @@ -11245,25 +11251,25 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_153) s44_0))" +"(let-values(((s_152) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_153)" +"(if(syntax?$1 s_152)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_153)))" -"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_153))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" +"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_152))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_57)))" "((letrec-values(((for-loop_76)" -"(lambda(result_50 lst_58)" +"(lambda(result_50 lst_45)" "(begin" " 'for-loop" -"(if(pair? lst_58)" -"(let-values(((shift_4)(unsafe-car lst_58))" -"((rest_25)(unsafe-cdr lst_58)))" +"(if(pair? lst_45)" +"(let-values(((shift_4)(unsafe-car lst_45))" +"((rest_25)(unsafe-cdr lst_45)))" "(let-values(((result_51)" "(let-values(((result_52) result_50))" "(if(non-source-shift? shift_4)" @@ -11286,7 +11292,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_153))))" +" s_152))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11304,8 +11310,8 @@ static const char *startup_source = " #f" " lst_57)))))))))))" "(case-lambda" -"((s_113)(begin 'syntax-source-module(syntax-source-module45_0 s_113 #f #f)))" -"((s_154 source?42_1)(syntax-source-module45_0 s_154 source?42_1 #t)))))" +"((s_153)(begin 'syntax-source-module(syntax-source-module45_0 s_153 #f #f)))" +"((s_113 source?42_1)(syntax-source-module45_0 s_113 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11315,19 +11321,19 @@ static const char *startup_source = "(if(identifier? id_7)" "(void)" " (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_7)))" -"(let-values(((the-struct_20)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))" -"(if(syntax?$1 the-struct_20)" +"(let-values(((the-struct_32)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))" +"(if(syntax?$1 the-struct_32)" "(let-values(((mpi-shifts102_0)(syntax-mpi-shifts id_7)))" "(syntax1.1" -"(syntax-content the-struct_20)" -"(syntax-scopes the-struct_20)" -"(syntax-shifted-multi-scopes the-struct_20)" -"(syntax-scope-propagations+tamper the-struct_20)" +"(syntax-content the-struct_32)" +"(syntax-scopes the-struct_32)" +"(syntax-shifted-multi-scopes the-struct_32)" +"(syntax-scope-propagations+tamper the-struct_32)" " mpi-shifts102_0" -"(syntax-srcloc the-struct_20)" -"(syntax-props the-struct_20)" -"(syntax-inspector the-struct_20)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))))))" +"(syntax-srcloc the-struct_32)" +"(syntax-props the-struct_32)" +"(syntax-inspector the-struct_32)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_32)))))))" "(define-values" "(struct:provided provided1.1 provided? provided-binding provided-protected? provided-syntax?)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -11456,9 +11462,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_55 mpi-shifts_3)" -"(let-values(((or-part_128)(bulk-binding-provides b_55)))" -"(if or-part_128" -" or-part_128" +"(let-values(((or-part_129)(bulk-binding-provides b_55)))" +"(if or-part_129" +" or-part_129" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" @@ -11495,9 +11501,9 @@ static const char *startup_source = "(let-values(((excepts_0)(bulk-binding-excepts b_55)))" "(let-values(((prefix_0)(bulk-binding-prefix b_55)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_129) prefix_0))" -"(if or-part_129" -" or-part_129" +"(if(let-values(((or-part_130) prefix_0))" +"(if or-part_130" +" or-part_130" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11784,8 +11790,8 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_130) all-scopes-stx_1))" -"(if or-part_130 or-part_130(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_131) all-scopes-stx_1))" +"(if or-part_131 or-part_131(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -11950,7 +11956,7 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" +"(lambda(stx_11)(begin(let-values(((s_154)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_154))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_91)" @@ -12246,8 +12252,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_131)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_131 or-part_131 share-from-ns_0))" +"(let-values(((or-part_132)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_132 or-part_132 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12281,60 +12287,60 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_132)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_132" -" or-part_132" +"(let-values(((or-part_133)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_133" +" or-part_133" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_26)" "(begin" -"(let-values(((or-part_133)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" -"(if or-part_133" -" or-part_133" +"(let-values(((or-part_134)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" +"(if or-part_134" +" or-part_134" "(let-values(((p-ns_0)" -"(let-values(((the-struct_32) ns_6))" -"(if(1/namespace? the-struct_32)" +"(let-values(((the-struct_33) ns_6))" +"(if(1/namespace? the-struct_33)" "(let-values(((phase23_0) phase_26))" "(namespace1.1" -"(namespace-mpi the-struct_32)" -"(namespace-source-name the-struct_32)" -"(namespace-root-expand-ctx the-struct_32)" +"(namespace-mpi the-struct_33)" +"(namespace-source-name the-struct_33)" +"(namespace-root-expand-ctx the-struct_33)" " phase23_0" -"(namespace-0-phase the-struct_32)" -"(namespace-phase-to-namespace the-struct_32)" -"(namespace-phase-level-to-definitions the-struct_32)" -"(namespace-module-registry$1 the-struct_32)" -"(namespace-bulk-binding-registry the-struct_32)" -"(namespace-submodule-declarations the-struct_32)" -"(namespace-root-namespace the-struct_32)" -"(namespace-declaration-inspector the-struct_32)" -"(namespace-inspector the-struct_32)" -"(namespace-available-module-instances the-struct_32)" -"(namespace-module-instances the-struct_32)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_32)))))" +"(namespace-0-phase the-struct_33)" +"(namespace-phase-to-namespace the-struct_33)" +"(namespace-phase-level-to-definitions the-struct_33)" +"(namespace-module-registry$1 the-struct_33)" +"(namespace-bulk-binding-registry the-struct_33)" +"(namespace-submodule-declarations the-struct_33)" +"(namespace-root-namespace the-struct_33)" +"(namespace-declaration-inspector the-struct_33)" +"(namespace-inspector the-struct_33)" +"(namespace-available-module-instances the-struct_33)" +"(namespace-module-instances the-struct_33)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_33)))))" "(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_26 p-ns_0) p-ns_0)))))))" "(define-values" "(namespace->name)" "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_156)" +"(let-values(((s_155)" "(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_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_156)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_155 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_155)))))))" "(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_134) d_8))" -"(if or-part_134" -" or-part_134" +"(let-values(((or-part_135) d_8))" +"(if or-part_135" +" or-part_135" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12467,19 +12473,19 @@ static const char *startup_source = "(if(eq? old-origin_0 missing$1)" "(list id_10)" "(cons id_10 old-origin_0))))" -"(let-values(((the-struct_33) new-stx_0))" -"(if(syntax?$1 the-struct_33)" +"(let-values(((the-struct_34) new-stx_0))" +"(if(syntax?$1 the-struct_34)" "(let-values(((props7_1)(hash-set old-props_0 'origin origin_0)))" "(syntax1.1" -"(syntax-content the-struct_33)" -"(syntax-scopes the-struct_33)" -"(syntax-shifted-multi-scopes the-struct_33)" -"(syntax-scope-propagations+tamper the-struct_33)" -"(syntax-mpi-shifts the-struct_33)" -"(syntax-srcloc the-struct_33)" +"(syntax-content the-struct_34)" +"(syntax-scopes the-struct_34)" +"(syntax-shifted-multi-scopes the-struct_34)" +"(syntax-scope-propagations+tamper the-struct_34)" +"(syntax-mpi-shifts the-struct_34)" +"(syntax-srcloc the-struct_34)" " props7_1" -"(syntax-inspector the-struct_33)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_33))))))" +"(syntax-inspector the-struct_34)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_34))))))" "(let-values()" "(let-values(((the-struct_4) new-stx_0))" "(if(syntax?$1 the-struct_4)" @@ -12604,22 +12610,22 @@ static const char *startup_source = " for-loop_82)" " old-props-with-origin_0" "(unsafe-immutable-hash-iterate-first ht_71))))))))" -"(let-values(((the-struct_34) new-stx_0))" -"(if(syntax?$1 the-struct_34)" +"(let-values(((the-struct_35) new-stx_0))" +"(if(syntax?$1 the-struct_35)" "(let-values(((props9_0) updated-props_0))" "(syntax1.1" -"(syntax-content the-struct_34)" -"(syntax-scopes the-struct_34)" -"(syntax-shifted-multi-scopes the-struct_34)" -"(syntax-scope-propagations+tamper the-struct_34)" -"(syntax-mpi-shifts the-struct_34)" -"(syntax-srcloc the-struct_34)" +"(syntax-content the-struct_35)" +"(syntax-scopes the-struct_35)" +"(syntax-shifted-multi-scopes the-struct_35)" +"(syntax-scope-propagations+tamper the-struct_35)" +"(syntax-mpi-shifts the-struct_35)" +"(syntax-srcloc the-struct_35)" " props9_0" -"(syntax-inspector the-struct_34)))" +"(syntax-inspector the-struct_35)))" "(raise-argument-error" " 'struct-copy" " \"syntax?\"" -" the-struct_34)))))))))))))))))))" +" the-struct_35)))))))))))))))))))" "(case-lambda" "((new-stx_1 old-stx_1)(begin 'syntax-track-origin(syntax-track-origin5_0 new-stx_1 old-stx_1 #f #f)))" "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" @@ -12635,15 +12641,15 @@ static const char *startup_source = "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" "(begin" -"(let-values(((lst_59) old-stxes_0))" +"(let-values(((lst_58) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_59)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" "((letrec-values(((for-loop_83)" -"(lambda(new-stx_4 lst_60)" +"(lambda(new-stx_4 lst_59)" "(begin" " 'for-loop" -"(if(pair? lst_60)" -"(let-values(((old-stx_3)(unsafe-car lst_60))((rest_26)(unsafe-cdr lst_60)))" +"(if(pair? lst_59)" +"(let-values(((old-stx_3)(unsafe-car lst_59))((rest_26)(unsafe-cdr lst_59)))" "(let-values(((new-stx_5)" "(let-values(((new-stx_6) new-stx_4))" "(let-values(((new-stx_7)" @@ -12654,7 +12660,7 @@ static const char *startup_source = " new-stx_4)))))" " for-loop_83)" " new-stx_3" -" lst_59))))))" +" lst_58))))))" "(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)" @@ -12669,7 +12675,7 @@ static const char *startup_source = "(list" "(cons" " prop:exn:srclocs" -"(lambda(e_16)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_16))))))" +"(lambda(e_17)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_17))))))" " #f" " #f" " '(0)" @@ -12802,7 +12808,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_12)" -"(let-values(((or-part_135)(not x_12)))(if or-part_135 or-part_135(symbol? x_12))))" +"(let-values(((or-part_136)(not x_12)))(if or-part_136 or-part_136(symbol? x_12))))" " given-name_12)" "(void)" " (let-values () (raise-argument-error who_9 \"(or/c symbol? #f)\" given-name_12)))" @@ -12828,32 +12834,32 @@ 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_137)(extract-form-name expr_8)))" -"(if or-part_137 or-part_137 '?)))))))" +"(let-values(((or-part_137) given-name_12))" +"(if or-part_137" +" or-part_137" +"(let-values(((or-part_138)(extract-form-name expr_8)))" +"(if or-part_138 or-part_138 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_131)" +"(let-values(((or-part_132)" "(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_131 or-part_131 \"\"))))" +" (if or-part_132 or-part_132 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_138)" +"(let-values(((or-part_139)" "(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_138 or-part_138 \"\"))))" +" (if or-part_139 or-part_139 \"\"))))" "(let-values(((src-loc-str_0)" "(let-values(((or-part_54)" "(if(error-print-source-location)" -"(let-values(((or-part_139)(extract-source-location sub-expr_6)))" -"(if or-part_139 or-part_139(extract-source-location expr_8)))" +"(let-values(((or-part_140)(extract-source-location sub-expr_6)))" +"(if or-part_140 or-part_140(extract-source-location expr_8)))" " #f)))" " (if or-part_54 or-part_54 \"\"))))" "(raise" @@ -12862,33 +12868,33 @@ static const char *startup_source = "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_140) sub-expr_6))(if or-part_140 or-part_140 expr_8))" +"(if(let-values(((or-part_141) sub-expr_6))(if or-part_141 or-part_141 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_141) sub-expr_6))(if or-part_141 or-part_141 expr_8)))" +"(let-values(((or-part_142) sub-expr_6))(if or-part_142 or-part_142 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_157)" +"(lambda(s_156)" "(begin" -"(if(syntax?$1 s_157)" +"(if(syntax?$1 s_156)" "(let-values()" -"(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)" -"(let-values()(syntax-e$1(car e_17)))" +"(let-values(((e_18)(syntax-e$1 s_156)))" +"(if(symbol? e_18)" +"(let-values() e_18)" +"(if(if(pair? e_18)(identifier?(car e_18)) #f)" +"(let-values()(syntax-e$1(car e_18)))" "(let-values() #f)))))" "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_158)" +"(lambda(s_157)" "(begin" -"(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))" +"(if(syntax?$1 s_157)" +"(if(syntax-srcloc s_157)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_157)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13152,12 +13158,12 @@ static const char *startup_source = "(let-values(((phase_27) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" -"(let-values(((the-struct_35)" +"(let-values(((the-struct_36)" "(let-values(((ns160_0) ns_20)" "((root-expand-ctx161_0) root-expand-ctx_1)" "((temp162_0) #f))" "(new-namespace9.1 temp162_0 #t root-expand-ctx161_0 #t ns160_0 #t))))" -"(if(1/namespace? the-struct_35)" +"(if(1/namespace? the-struct_36)" "(let-values(((mpi152_0) name-mpi_0)" "((source-name153_0)(resolved-module-path-root-name name_28))" "((phase154_0) phase_27)" @@ -13172,20 +13178,20 @@ static const char *startup_source = "(namespace1.1" " mpi152_0" " source-name153_0" -"(namespace-root-expand-ctx the-struct_35)" +"(namespace-root-expand-ctx the-struct_36)" " phase154_0" " 0-phase155_0" -"(namespace-phase-to-namespace the-struct_35)" -"(namespace-phase-level-to-definitions the-struct_35)" -"(namespace-module-registry$1 the-struct_35)" -"(namespace-bulk-binding-registry the-struct_35)" +"(namespace-phase-to-namespace the-struct_36)" +"(namespace-phase-level-to-definitions the-struct_36)" +"(namespace-module-registry$1 the-struct_36)" +"(namespace-bulk-binding-registry the-struct_36)" " submodule-declarations156_0" -"(namespace-root-namespace the-struct_35)" +"(namespace-root-namespace the-struct_36)" " declaration-inspector159_0" -"(namespace-inspector the-struct_35)" +"(namespace-inspector the-struct_36)" " available-module-instances157_0" " module-instances158_0))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_35)))))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_36)))))" "(let-values((()" "(begin" "(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_27 m-ns_1)" @@ -13293,9 +13299,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_142)(module-instance-attached? prior-mi_1)))" -"(if or-part_142" -" or-part_142" +"(let-values(((or-part_143)(module-instance-attached? prior-mi_1)))" +"(if or-part_143" +" or-part_143" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13335,21 +13341,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_143)" +"(let-values(((or-part_144)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" " name_30" " #f)))" -"(if or-part_143" -" or-part_143" -"(let-values(((or-part_144)" -"(let-values(((c-ns_0)" -"(let-values(((or-part_145)" -"(namespace-root-namespace ns_23)))" -"(if or-part_145 or-part_145 ns_23))))" -"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" "(if or-part_144" " or-part_144" +"(let-values(((or-part_145)" +"(let-values(((c-ns_0)" +"(let-values(((or-part_146)" +"(namespace-root-namespace ns_23)))" +"(if or-part_146 or-part_146 ns_23))))" +"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" +"(if or-part_145" +" or-part_145" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13361,8 +13367,8 @@ static const char *startup_source = "(lambda(ns_24 name_31 0-phase_2 m_4 existing-m-ns_0)" "(begin" "(let-values(((m-ns_3)" -"(let-values(((the-struct_36) ns_24))" -"(if(1/namespace? the-struct_36)" +"(let-values(((the-struct_37) ns_24))" +"(if(1/namespace? the-struct_37)" "(let-values(((mpi172_0)(namespace-mpi existing-m-ns_0))" "((source-name173_0)(namespace-source-name existing-m-ns_0))" "((root-expand-ctx174_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))" @@ -13383,15 +13389,15 @@ static const char *startup_source = " 0-phase176_0" " phase-to-namespace177_0" " phase-level-to-definitions178_0" -"(namespace-module-registry$1 the-struct_36)" -"(namespace-bulk-binding-registry the-struct_36)" -"(namespace-submodule-declarations the-struct_36)" -"(namespace-root-namespace the-struct_36)" +"(namespace-module-registry$1 the-struct_37)" +"(namespace-bulk-binding-registry the-struct_37)" +"(namespace-submodule-declarations the-struct_37)" +"(namespace-root-namespace the-struct_37)" " declaration-inspector179_0" " inspector180_0" -"(namespace-available-module-instances the-struct_36)" -"(namespace-module-instances the-struct_36)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_36)))))" +"(namespace-available-module-instances the-struct_37)" +"(namespace-module-instances the-struct_37)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_37)))))" "(let-values(((mi_1)(make-module-instance m-ns_3 m_4)))" "(if(module-cross-phase-persistent? m_4)" "(let-values()" @@ -13408,7 +13414,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_146)(namespace-root-namespace ns_24)))(if or-part_146 or-part_146 ns_24)))" +"(let-values(((or-part_147)(namespace-root-namespace ns_24)))(if or-part_147 or-part_147 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13427,10 +13433,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_147)" +"(let-values(((or-part_148)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_147" -" or-part_147" +"(if or-part_148" +" or-part_148" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13441,13 +13447,13 @@ static const char *startup_source = "(lambda(ns_25 name_32 0-phase_3 m_5 mpi_16)" "(begin" "(let-values(((m-ns_4)" -"(let-values(((the-struct_37) ns_25))" -"(if(1/namespace? the-struct_37)" +"(let-values(((the-struct_38) ns_25))" +"(if(1/namespace? the-struct_38)" "(let-values(((mpi181_0) mpi_16)" "((source-name182_0)" -"(let-values(((or-part_148)(module-source-name m_5)))" -"(if or-part_148" -" or-part_148" +"(let-values(((or-part_149)(module-source-name m_5)))" +"(if or-part_149" +" or-part_149" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_16)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" @@ -13464,24 +13470,24 @@ static const char *startup_source = " 0-phase185_0" " phase-to-namespace186_0" " phase-level-to-definitions187_0" -"(namespace-module-registry$1 the-struct_37)" -"(namespace-bulk-binding-registry the-struct_37)" -"(namespace-submodule-declarations the-struct_37)" -"(namespace-root-namespace the-struct_37)" +"(namespace-module-registry$1 the-struct_38)" +"(namespace-bulk-binding-registry the-struct_38)" +"(namespace-submodule-declarations the-struct_38)" +"(namespace-root-namespace the-struct_38)" " declaration-inspector188_0" " inspector189_0" -"(namespace-available-module-instances the-struct_37)" -"(namespace-module-instances the-struct_37)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_37)))))" +"(namespace-available-module-instances the-struct_38)" +"(namespace-module-instances the-struct_38)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" "(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_149)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_149" -" or-part_149" +"(let-values(((or-part_150)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_150" +" or-part_150" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13596,7 +13602,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_150)" +"(let-values(((or-part_151)" "(let-values(((ns205_0) ns_30)" "((name206_0) name_34)" "((instance-phase207_0)" @@ -13611,8 +13617,8 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_150" -" or-part_150" +"(if or-part_151" +" or-part_151" "(namespace-create-module-instance!" " ns_30" " name_34" @@ -13638,8 +13644,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_151)(namespace-root-namespace ns_29)))" -"(if or-part_151 or-part_151 ns_29))))" +"(let-values(((or-part_152)(namespace-root-namespace ns_29)))" +"(if or-part_152 or-part_152 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13710,17 +13716,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_152) skip-run?_1))" -"(if or-part_152" -" or-part_152" +"(if(if(let-values(((or-part_153) skip-run?_1))" +"(if or-part_153" +" or-part_153" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_153)(not otherwise-available?_1)))" -"(if or-part_153 or-part_153(module-instance-made-available? mi_7)))" +"(let-values(((or-part_154)(not otherwise-available?_1)))" +"(if or-part_154 or-part_154(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -13739,20 +13745,20 @@ static const char *startup_source = "(set-module-instance-shifted-requires!" " mi_7" "(reverse$1" -"(let-values(((lst_61)(module-requires m_9)))" +"(let-values(((lst_60)(module-requires m_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_61)))" +"(let-values()(check-list lst_60)))" "((letrec-values(((for-loop_84)" -"(lambda(fold-var_43 lst_62)" +"(lambda(fold-var_43 lst_61)" "(begin" " 'for-loop" -"(if(pair? lst_62)" +"(if(pair? lst_61)" "(let-values(((phase+mpis_0)" -"(unsafe-car lst_62))" +"(unsafe-car lst_61))" "((rest_27)" -"(unsafe-cdr lst_62)))" +"(unsafe-cdr lst_61)))" "(let-values(((fold-var_44)" "(let-values(((fold-var_45)" " fold-var_43))" @@ -13764,7 +13770,7 @@ static const char *startup_source = "(car" " phase+mpis_0)" "(reverse$1" -"(let-values(((lst_63)" +"(let-values(((lst_62)" "(cdr" " phase+mpis_0)))" "(begin" @@ -13773,20 +13779,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_63)))" +" lst_62)))" "((letrec-values(((for-loop_85)" "(lambda(fold-var_47" -" lst_64)" +" lst_63)" "(begin" " 'for-loop" "(if(pair?" -" lst_64)" +" lst_63)" "(let-values(((req-mpi_0)" "(unsafe-car" -" lst_64))" +" lst_63))" "((rest_28)" "(unsafe-cdr" -" lst_64)))" +" lst_63)))" "(let-values(((fold-var_48)" "(let-values(((fold-var_49)" " fold-var_47))" @@ -13811,7 +13817,7 @@ static const char *startup_source = " fold-var_47)))))" " for-loop_85)" " null" -" lst_63))))))" +" lst_62))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" @@ -13820,19 +13826,19 @@ static const char *startup_source = " fold-var_43)))))" " for-loop_84)" " null" -" lst_61)))))))" -"(let-values(((lst_65)(module-instance-shifted-requires mi_7)))" +" lst_60)))))))" +"(let-values(((lst_64)(module-instance-shifted-requires mi_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_65)))" +"(let-values()(check-list lst_64)))" "((letrec-values(((for-loop_86)" -"(lambda(lst_66)" +"(lambda(lst_65)" "(begin" " 'for-loop" -"(if(pair? lst_66)" -"(let-values(((phase+mpis_1)(unsafe-car lst_66))" -"((rest_29)(unsafe-cdr lst_66)))" +"(if(pair? lst_65)" +"(let-values(((phase+mpis_1)(unsafe-car lst_65))" +"((rest_29)(unsafe-cdr lst_65)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13843,7 +13849,7 @@ static const char *startup_source = "(car" " phase+mpis_1)))" "(begin" -"(let-values(((lst_67)" +"(let-values(((lst_66)" "(cdr" " phase+mpis_1)))" "(begin" @@ -13852,19 +13858,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_67)))" +" lst_66)))" "((letrec-values(((for-loop_87)" -"(lambda(lst_68)" +"(lambda(lst_67)" "(begin" " 'for-loop" "(if(pair?" -" lst_68)" +" lst_67)" "(let-values(((req-mpi_1)" "(unsafe-car" -" lst_68))" +" lst_67))" "((rest_30)" "(unsafe-cdr" -" lst_68)))" +" lst_67)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13911,14 +13917,14 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_87)" -" lst_67)))" +" lst_66)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_86 rest_29)(values))))" "(values))))))" " for-loop_86)" -" lst_65)))" +" lst_64)))" "(void)" "(if(label-phase? instance-phase_4)" "(void)" @@ -13931,7 +13937,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_71)" +"((letrec-values(((for-loop_88)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -14042,10 +14048,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_71(+ pos_10 inc_3))" +"(for-loop_88(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_71)" +" for-loop_88)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14102,23 +14108,23 @@ static const char *startup_source = "(namespace-available-module-instances ns_37)" " run-phase_4" " null)" -"(let-values(((lst_69)(reverse$1 mis_0)))" +"(let-values(((lst_68)(reverse$1 mis_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_88)" -"(lambda(lst_70)" +"(let-values()(check-list lst_68)))" +"((letrec-values(((for-loop_89)" +"(lambda(lst_69)" "(begin" " 'for-loop" -"(if(pair? lst_70)" +"(if(pair? lst_69)" "(let-values(((mi_8)" "(unsafe-car" -" lst_70))" +" lst_69))" "((rest_31)" "(unsafe-cdr" -" lst_70)))" +" lst_69)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -14146,11 +14152,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_88 rest_31)" +"(for-loop_89 rest_31)" "(values))))" "(values))))))" -" for-loop_88)" -" lst_69)))" +" for-loop_89)" +" lst_68)))" "(void)" "(loop_75)))))))))" " loop_75)))))))))))))" @@ -14218,15 +14224,15 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_71) requires_1))" +"(let-values(((lst_70) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_89)" -"(lambda(fold-var_51 lst_72)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_70)))" +"((letrec-values(((for-loop_90)" +"(lambda(fold-var_51 lst_71)" "(begin" " 'for-loop" -"(if(pair? lst_72)" -"(let-values(((phase+mpis_2)(unsafe-car lst_72))((rest_32)(unsafe-cdr lst_72)))" +"(if(pair? lst_71)" +"(let-values(((phase+mpis_2)(unsafe-car lst_71))((rest_32)(unsafe-cdr lst_71)))" "(let-values(((fold-var_52)" "(let-values(((fold-var_53) fold-var_51))" "(let-values(((fold-var_54)" @@ -14236,24 +14242,24 @@ static const char *startup_source = "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_73)(cdr phase+mpis_2)))" +"(let-values(((lst_72)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_90)" +"(let-values()(check-list lst_72)))" +"((letrec-values(((for-loop_91)" "(lambda(fold-var_55" -" lst_74)" +" lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_74)" +"(if(pair? lst_73)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_74))" +" lst_73))" "((rest_33)" "(unsafe-cdr" -" lst_74)))" +" lst_73)))" "(let-values(((fold-var_56)" "(let-values(((fold-var_57)" " fold-var_55))" @@ -14267,21 +14273,21 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_90" +"(for-loop_91" " fold-var_56" " rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_90)" +" for-loop_91)" " null" -" lst_73))))))" +" lst_72))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_89 fold-var_52 rest_32) fold-var_52)))" +"(if(not #f)(for-loop_90 fold-var_52 rest_32) fold-var_52)))" " fold-var_51)))))" -" for-loop_89)" +" for-loop_90)" " null" -" lst_71)))))))" +" lst_70)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" @@ -14292,7 +14298,7 @@ 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)" +"((letrec-values(((for-loop_92)" "(lambda(table_103 i_86)" "(begin" " 'for-loop" @@ -14316,7 +14322,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_73)))" -"((letrec-values(((for-loop_92)" +"((letrec-values(((for-loop_93)" "(lambda(table_107" " i_87)" "(begin" @@ -14351,14 +14357,14 @@ static const char *startup_source = " table_110)))))" "(if(not" " #f)" -"(for-loop_92" +"(for-loop_93" " table_108" "(hash-iterate-next" " ht_73" " i_87))" " table_108)))" " table_107)))))" -" for-loop_92)" +" for-loop_93)" " '#hash()" "(hash-iterate-first" " ht_73))))))))" @@ -14368,10 +14374,10 @@ static const char *startup_source = " val_32)))))" "(values table_106)))))" "(if(not #f)" -"(for-loop_91 table_104(hash-iterate-next ht_72 i_86))" +"(for-loop_92 table_104(hash-iterate-next ht_72 i_86))" " table_104)))" " table_103)))))" -" for-loop_91)" +" for-loop_92)" " '#hasheqv()" "(hash-iterate-first ht_72))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" @@ -14440,13 +14446,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_154)" +"(if(let-values(((or-part_155)" "(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_154" -" or-part_154" +"(if or-part_155" +" or-part_155" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14642,7 +14648,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_94)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_159)(v_94 t_37 s_159)))))))" +"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_158)(v_94 t_37 s_158)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14691,15 +14697,15 @@ static const char *startup_source = "(let-values(((or-part_21)(procedure? t_39)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_155)(1/set!-transformer? t_39)))" -"(if or-part_155 or-part_155(1/rename-transformer? t_39))))))))" +"(let-values(((or-part_156)(1/set!-transformer? t_39)))" +"(if or-part_156 or-part_156(1/rename-transformer? t_39))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_40)" "(begin" "(if(1/set!-transformer? t_40)" "(let-values()(1/set!-transformer-procedure t_40))" -"(if(1/rename-transformer? t_40)(let-values()(lambda(s_160) s_160))(let-values() t_40))))))" +"(if(1/rename-transformer? t_40)(let-values()(lambda(s_159) s_159))(let-values() t_40))))))" "(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)" @@ -14746,17 +14752,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_161) s24_0))" +"(let-values(((s_160) 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_161)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_161))" +"(if(syntax-tainted?$1 s_160)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_160))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_161 phase_35))" +"(let-values(((temp59_1)(syntax-scope-set s_160 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))))))))))))" @@ -14856,21 +14862,21 @@ static const char *startup_source = "(if(eq? t_42 missing)" "(let-values()" "(values" -"(let-values(((or-part_156)" -"(let-values(((lst_75) lift-envs_0))" +"(let-values(((or-part_157)" +"(let-values(((lst_74) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_93)" -"(lambda(result_60 lst_76)" +"(let-values()(check-list lst_74)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_60 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_76)" +"(if(pair? lst_75)" "(let-values(((lift-env_0)" -"(unsafe-car lst_76))" +"(unsafe-car lst_75))" "((rest_34)" -"(unsafe-cdr lst_76)))" +"(unsafe-cdr lst_75)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14889,14 +14895,14 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_93 result_61 rest_34)" +"(for-loop_94 result_61 rest_34)" " result_61)))" " result_60)))))" -" for-loop_93)" +" for-loop_94)" " #f" -" lst_75)))))" -"(if or-part_156" -" or-part_156" +" lst_74)))))" +"(if or-part_157" +" or-part_157" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_19))))" @@ -14917,15 +14923,15 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_77) ids_0))" +"(let-values(((lst_76) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_94)" -"(lambda(ht_74 lst_78)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_95)" +"(lambda(ht_74 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((id_21)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((id_21)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((ht_75)" "(let-values(((ht_76) ht_74))" "(let-values(((ht_77)" @@ -14941,11 +14947,11 @@ static const char *startup_source = " id_21" "(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_95 ht_75 rest_35) ht_75)))" " ht_74)))))" -" for-loop_94)" +" for-loop_95)" " '#hasheq()" -" lst_77))))))" +" lst_76))))))" "(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" @@ -14954,16 +14960,16 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_79)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_78)(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_80)" +"((letrec-values(((for-loop_96)" +"(lambda(result_3 lst_79)" "(begin" " 'for-loop" -"(if(not(null? lst_80))" -"(let-values(((id_2)(if(pair? lst_80)(car lst_80) lst_80))" -"((rest_36)(if(pair? lst_80)(cdr lst_80) null)))" +"(if(not(null? lst_79))" +"(let-values(((id_2)(if(pair? lst_79)(car lst_79) lst_79))" +"((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" "(let-values(((result_63)" "(let-values()" "(let-values(((result_64)" @@ -14976,12 +14982,12 @@ static const char *startup_source = " phase_39)))))" "(values result_64)))))" "(if(if(not((lambda x_39 result_63) id_2))(not #f) #f)" -"(for-loop_95 result_63 rest_36)" +"(for-loop_96 result_63 rest_36)" " result_63)))" " result_3)))))" -" for-loop_95)" +" for-loop_96)" " #f" -" lst_79)))))))" +" lst_78)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15301,15 +15307,15 @@ static const char *startup_source = "(lambda(ctx_1 root-ctx_2)" "(begin" "(let-values(((v_124) ctx_1))" -"(let-values(((the-struct_38) v_124))" -"(if(expand-context/outer? the-struct_38)" +"(let-values(((the-struct_39) v_124))" +"(if(expand-context/outer? the-struct_39)" "(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_39)(root-expand-context/outer-inner v_124)))" -"(if(expand-context/inner? the-struct_39)" +"(let-values(((the-struct_40)(root-expand-context/outer-inner v_124)))" +"(if(expand-context/inner? the-struct_40)" "(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)" @@ -15326,42 +15332,42 @@ static const char *startup_source = " defined-syms37_0" " counter38_0" " lift-key39_0" -"(expand-context/inner-to-parsed? the-struct_39)" -"(expand-context/inner-phase the-struct_39)" -"(expand-context/inner-namespace the-struct_39)" -"(expand-context/inner-just-once? the-struct_39)" -"(expand-context/inner-module-begin-k the-struct_39)" -"(expand-context/inner-allow-unbound? the-struct_39)" -"(expand-context/inner-in-local-expand? the-struct_39)" -"(expand-context/inner-stops the-struct_39)" -"(expand-context/inner-declared-submodule-names the-struct_39)" -"(expand-context/inner-lifts the-struct_39)" -"(expand-context/inner-lift-envs the-struct_39)" -"(expand-context/inner-module-lifts the-struct_39)" -"(expand-context/inner-require-lifts the-struct_39)" -"(expand-context/inner-to-module-lifts the-struct_39)" -"(expand-context/inner-requires+provides the-struct_39)" -"(expand-context/inner-observer the-struct_39)" -"(expand-context/inner-for-serializable? the-struct_39)" -"(expand-context/inner-should-not-encounter-macros? the-struct_39)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_39)))))" +"(expand-context/inner-to-parsed? the-struct_40)" +"(expand-context/inner-phase the-struct_40)" +"(expand-context/inner-namespace the-struct_40)" +"(expand-context/inner-just-once? the-struct_40)" +"(expand-context/inner-module-begin-k the-struct_40)" +"(expand-context/inner-allow-unbound? the-struct_40)" +"(expand-context/inner-in-local-expand? the-struct_40)" +"(expand-context/inner-stops the-struct_40)" +"(expand-context/inner-declared-submodule-names the-struct_40)" +"(expand-context/inner-lifts the-struct_40)" +"(expand-context/inner-lift-envs the-struct_40)" +"(expand-context/inner-module-lifts the-struct_40)" +"(expand-context/inner-require-lifts the-struct_40)" +"(expand-context/inner-to-module-lifts the-struct_40)" +"(expand-context/inner-requires+provides the-struct_40)" +"(expand-context/inner-observer the-struct_40)" +"(expand-context/inner-for-serializable? the-struct_40)" +"(expand-context/inner-should-not-encounter-macros? the-struct_40)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_40)))))" "(expand-context/outer1.1" " inner32_0" " post-expansion-scope28_0" " use-site-scopes29_0" " frame-id30_1" -"(expand-context/outer-context the-struct_38)" -"(expand-context/outer-env the-struct_38)" -"(expand-context/outer-post-expansion-scope-action the-struct_38)" -"(expand-context/outer-scopes the-struct_38)" -"(expand-context/outer-def-ctx-scopes the-struct_38)" +"(expand-context/outer-context the-struct_39)" +"(expand-context/outer-env the-struct_39)" +"(expand-context/outer-post-expansion-scope-action the-struct_39)" +"(expand-context/outer-scopes the-struct_39)" +"(expand-context/outer-def-ctx-scopes the-struct_39)" " binding-layer31_0" -"(expand-context/outer-reference-records the-struct_38)" -"(expand-context/outer-only-immediate? the-struct_38)" -"(expand-context/outer-need-eventually-defined the-struct_38)" -"(expand-context/outer-current-introduction-scopes the-struct_38)" -"(expand-context/outer-name the-struct_38)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_38)))))))" +"(expand-context/outer-reference-records the-struct_39)" +"(expand-context/outer-only-immediate? the-struct_39)" +"(expand-context/outer-need-eventually-defined the-struct_39)" +"(expand-context/outer-current-introduction-scopes the-struct_39)" +"(expand-context/outer-name the-struct_39)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_39)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context17.1)" @@ -15371,9 +15377,9 @@ static const char *startup_source = "(let-values(((who_11)(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_157)(force(current-expand-context))))" -"(if or-part_157" -" or-part_157" +"(let-values(((or-part_158)(force(current-expand-context))))" +"(if or-part_158" +" or-part_158" " (if fail-ok?_0 #f (raise-arguments-error who_11 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" @@ -15381,8 +15387,8 @@ static const char *startup_source = " #f" "(lambda(v_125)" "(begin" -"(if(let-values(((or-part_158)(not v_125)))" -"(if or-part_158 or-part_158(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" +"(if(let-values(((or-part_159)(not v_125)))" +"(if or-part_159 or-part_159(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" "(void)" "(let-values()" " (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_125)))" @@ -15395,8 +15401,8 @@ static const char *startup_source = "(let-values() ctx_2)" "(let-values()" "(let-values(((v_126) ctx_2))" -"(let-values(((the-struct_40) v_126))" -"(if(expand-context/outer? the-struct_40)" +"(let-values(((the-struct_19) v_126))" +"(if(expand-context/outer? the-struct_19)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" @@ -15404,20 +15410,20 @@ static const char *startup_source = "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" -"(root-expand-context/outer-use-site-scopes the-struct_40)" -"(root-expand-context/outer-frame-id the-struct_40)" +"(root-expand-context/outer-use-site-scopes the-struct_19)" +"(root-expand-context/outer-frame-id the-struct_19)" " context40_0" -"(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)" -"(expand-context/outer-binding-layer the-struct_40)" -"(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-env the-struct_19)" +"(expand-context/outer-post-expansion-scope-action the-struct_19)" +"(expand-context/outer-scopes the-struct_19)" +"(expand-context/outer-def-ctx-scopes the-struct_19)" +"(expand-context/outer-binding-layer the-struct_19)" +"(expand-context/outer-reference-records the-struct_19)" +"(expand-context/outer-only-immediate? the-struct_19)" +"(expand-context/outer-need-eventually-defined the-struct_19)" +"(expand-context/outer-current-introduction-scopes the-struct_19)" " name41_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_40)))))))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_19)))))))))" "(define-values" "(as-begin-expression-context)" "(lambda(ctx_3)" @@ -15566,14 +15572,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))" "(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_28)(to-syntax-list.1(cdr s_162))))(if r_28(cons(car s_162) r_28) #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_28)(to-syntax-list.1(cdr s_161))))(if r_28(cons(car s_161) r_28) #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))" @@ -15589,8 +15595,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_163)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_163) s_163)))))" +"(let-values(((s_162)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_162) s_162)))))" "(if(eq? phase_33 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" @@ -15653,23 +15659,23 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_81)(list core-primitives core-forms))((lst_82) '(#f #t)))" +"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#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)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_96)" -"(lambda(table_111 lst_83 lst_84)" +"((letrec-values(((for-loop_97)" +"(lambda(table_111 lst_82 lst_83)" "(begin" " 'for-loop" -"(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)))" +"(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)))" "(let-values(((table_112)" "(let-values(((table_113) table_111))" "(let-values(((ht_78) syms_12))" @@ -15679,7 +15685,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_78)))" -"((letrec-values(((for-loop_97)" +"((letrec-values(((for-loop_98)" "(lambda(table_114" " i_40)" "(begin" @@ -15742,24 +15748,24 @@ static const char *startup_source = " table_117)))))" "(if(not" " #f)" -"(for-loop_97" +"(for-loop_98" " table_115" "(hash-iterate-next" " ht_78" " i_40))" " table_115)))" " table_114)))))" -" for-loop_97)" +" for-loop_98)" " table_113" "(hash-iterate-first ht_78)))))))" "(if(not #f)" -"(for-loop_96 table_112 rest_37 rest_38)" +"(for-loop_97 table_112 rest_37 rest_38)" " table_112)))" " table_111)))))" -" for-loop_96)" +" for-loop_97)" " '#hasheq()" -" lst_81" -" lst_82)))))" +" lst_80" +" lst_81)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15798,7 +15804,7 @@ 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)" +"((letrec-values(((for-loop_99)" "(lambda(i_88)" "(begin" " 'for-loop" @@ -15821,11 +15827,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_98" +"(for-loop_99" "(hash-iterate-next ht_79 i_88))" "(values))))" "(values))))))" -" for-loop_98)" +" for-loop_99)" "(hash-iterate-first ht_79))))" "(void)" "(let-values(((ht_80) core-forms))" @@ -15833,7 +15839,7 @@ 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)" +"((letrec-values(((for-loop_100)" "(lambda(i_89)" "(begin" " 'for-loop" @@ -15862,11 +15868,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" +"(for-loop_100" "(hash-iterate-next ht_80 i_89))" "(values))))" "(values))))))" -" for-loop_99)" +" for-loop_100)" "(hash-iterate-first ht_80))))" "(void)))" "(let-values()(void)))))))" @@ -15911,20 +15917,20 @@ static const char *startup_source = "(lambda(s_23 phase_42)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_164) s_23))" -"(if(let-values(((s_165)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" -"(if(pair? s_165)" -"(if(let-values(((s_166)(car s_165)))" -"(let-values(((or-part_72)(if(syntax?$1 s_166)(symbol?(syntax-e$1 s_166)) #f)))" -"(if or-part_72 or-part_72(symbol? s_166))))" -"(let-values(((s_167)(cdr s_165))) #t)" +"(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_72)(if(syntax?$1 s_165)(symbol?(syntax-e$1 s_165)) #f)))" +"(if or-part_72 or-part_72(symbol? s_165))))" +"(let-values(((s_166)(cdr s_164))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_168)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" -"(let-values(((id25_0)(let-values(((s_67)(car s_168))) s_67))" -"((_26_0)(let-values(((s_169)(cdr s_168))) s_169)))" +"(let-values(((s_167)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" +"(let-values(((id25_0)(let-values(((s_67)(car s_167))) s_67))" +"((_26_0)(let-values(((s_168)(cdr s_167))) s_168)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15954,19 +15960,19 @@ static const char *startup_source = "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_170)" +"(let-values(((s_169)" "(let-values(((or-part_13)(syntax->list$1 s_70)))" "(if or-part_13 or-part_13(syntax-e$1 s_70))))" "((f_35)(lambda(tail?_40 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_171)" +"(lambda(s_170)" "(begin" " 's->" "(loop_33" -" s_171" -"(syntax-taint-mode-property s_171)))))" +" s_170" +"(syntax-taint-mode-property s_170)))))" "((seen_19) #f))" -"(let-values(((s_172) s_170)" +"(let-values(((s_171) s_169)" "((f_36) f_35)" "((gf_8)" "(lambda(tail?_41 v_29)" @@ -15987,8 +15993,8 @@ static const char *startup_source = "(datum-map-slow" " tail?_42" " s_4" -"(lambda(tail?_43 s_173)" -"(gf_8 tail?_43 s_173))" +"(lambda(tail?_43 s_172)" +"(gf_8 tail?_43 s_172))" " seen_20))" "(if(null? s_4)" "(let-values()(f_36 tail?_42 s_4))" @@ -16031,10 +16037,10 @@ static const char *startup_source = " tail?_42" " s_4" "(lambda(tail?_44" -" s_174)" +" s_173)" "(gf_8" " tail?_44" -" s_174))" +" s_173))" " seen_20))" "(let-values()" "(gf_8" @@ -16042,7 +16048,7 @@ static const char *startup_source = " s_4))))))))))))))" " loop_77)" " #f" -" s_172" +" s_171" " 0)))))" "(datum->syntax$1" " #f" @@ -16070,17 +16076,17 @@ static const char *startup_source = "(cons" "(loop_33(car d_19) 'transparent)" "(let-values(((s_5)" -"(let-values(((or-part_159)" +"(let-values(((or-part_160)" "(syntax->list$1(cdr d_19))))" -"(if or-part_159 or-part_159(cdr d_19))))" +"(if or-part_160 or-part_160(cdr d_19))))" "((f_37)(lambda(tail?_1 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_0) #f))" "(let-values(((s_42) s_5)" "((f_38) f_37)" @@ -16093,7 +16099,7 @@ static const char *startup_source = "(let-values()(f_37 tail?_45 v_39))))))" "((seen_21) seen_0))" "((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)" @@ -16104,66 +16110,66 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" -"(lambda(tail?_47 s_177)" -"(gf_9 tail?_47 s_177))" +" s_175" +"(lambda(tail?_47 s_176)" +"(gf_9 tail?_47 s_176))" " seen_21))" -"(if(null? s_176)" +"(if(null? s_175)" "(let-values()" -"(f_38 tail?_46 s_176))" -"(if(pair? s_176)" +"(f_38 tail?_46 s_175))" +"(if(pair? s_175)" "(let-values()" "(f_38" " 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(symbol? s_176)" +"(if(symbol? s_175)" "(let-values()" -"(f_38 #f s_176))" -"(if(boolean? s_176)" +"(f_38 #f s_175))" +"(if(boolean? s_175)" "(let-values()" -"(f_38 #f s_176))" -"(if(number? s_176)" +"(f_38 #f s_175))" +"(if(number? s_175)" "(let-values()" -"(f_38 #f s_176))" -"(if(let-values(((or-part_160)" +"(f_38 #f s_175))" +"(if(let-values(((or-part_161)" "(vector?" -" s_176)))" -"(if or-part_160" -" or-part_160" -"(let-values(((or-part_161)" -"(box?" -" s_176)))" +" s_175)))" "(if or-part_161" " or-part_161" "(let-values(((or-part_162)" -"(prefab-struct-key" -" s_176)))" +"(box?" +" s_175)))" "(if or-part_162" " or-part_162" +"(let-values(((or-part_163)" +"(prefab-struct-key" +" s_175)))" +"(if or-part_163" +" or-part_163" "(hash?" -" s_176)))))))" +" s_175)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" +" s_175" "(lambda(tail?_48" -" s_178)" +" s_177)" "(gf_9" " tail?_48" -" s_178))" +" s_177))" " seen_21))" "(let-values()" "(gf_9" " #f" -" s_176))))))))))))))" +" s_175))))))))))))))" " loop_78)" " #f" " s_42" @@ -16195,11 +16201,11 @@ static const char *startup_source = "(syntax-taint-mode-property)" "(lambda(s_78)" "(begin" -"(let-values(((or-part_163)(syntax-property$1 s_78 'taint-mode)))" -"(if or-part_163 or-part_163(syntax-property$1 s_78 'certify-mode))))))" +"(let-values(((or-part_164)(syntax-property$1 s_78 'taint-mode)))" +"(if or-part_164 or-part_164(syntax-property$1 s_78 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_179)(begin(1/syntax-property-remove(1/syntax-property-remove s_179 'taint-mode) 'certify-mode))))" +"(lambda(s_178)(begin(1/syntax-property-remove(1/syntax-property-remove s_178 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16208,18 +16214,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_78)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_59 lst_85)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_59 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((smss_26)(unsafe-car lst_85))" -"((rest_39)(unsafe-cdr lst_85)))" +"(if(pair? lst_84)" +"(let-values(((smss_26)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16304,7 +16310,7 @@ static const char *startup_source = " null))" "(begin" " #t" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_102)" "(lambda(bindings_4" " covered-scope-sets_2" " i_91)" @@ -16423,7 +16429,7 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_101" +"(for-loop_102" " bindings_5" " covered-scope-sets_3" "(if(pair?" @@ -16445,7 +16451,7 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_101)" +" for-loop_102)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" @@ -16484,11 +16490,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_101 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_100)" +" for-loop_101)" " null" -" lst_78))))))" +" lst_77))))))" "(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)" @@ -16501,7 +16507,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_82)))" -"((letrec-values(((for-loop_102)" +"((letrec-values(((for-loop_103)" "(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" @@ -16526,12 +16532,12 @@ static const char *startup_source = " fold-var_65))))" "(values fold-var_66)))))" "(if(not #f)" -"(for-loop_102" +"(for-loop_103" " fold-var_64" "(unsafe-immutable-hash-iterate-next ht_82 i_92))" " fold-var_64)))" " fold-var_63)))))" -" for-loop_102)" +" for-loop_103)" " null" "(unsafe-immutable-hash-iterate-first ht_82))))))" "((<2_0) <)" @@ -16550,9 +16556,9 @@ static const char *startup_source = "(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_180 ctx_8)" +"(lambda(s_179 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_180(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_179(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16562,13 +16568,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_103)" -"(lambda(result_65 lst_86)" +"((letrec-values(((for-loop_104)" +"(lambda(result_65 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((fb-info_0)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((fb-info_0)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16581,10 +16587,10 @@ static const char *startup_source = " null))))))" "(values result_66)))))" "(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)" -"(for-loop_103 result_1 rest_40)" +"(for-loop_104 result_1 rest_40)" " result_1)))" " result_65)))))" -" for-loop_103)" +" for-loop_104)" " #f" " lst_6))))))" " (let-values () \"\")" @@ -16599,19 +16605,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_87)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_67 lst_88)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_67 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((b_21)(unsafe-car lst_88))" +"(if(pair? lst_87)" +"(let-values(((b_21)(unsafe-car lst_87))" "((rest_41)" -"(unsafe-cdr lst_88)))" +"(unsafe-cdr lst_87)))" "(let-values(((fold-var_68)" "(let-values(((fold-var_27)" " fold-var_67))" @@ -16626,31 +16632,31 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_104 fold-var_68 rest_41)" +"(for-loop_105 fold-var_68 rest_41)" " fold-var_68)))" " fold-var_67)))))" -" for-loop_104)" +" for-loop_105)" " null" -" lst_87)))))" +" lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_89) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_69 lst_90 pos_11)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_69 lst_89 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_90) #t #f)" +"(if(if(pair? lst_89) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_90))" +"(unsafe-car lst_89))" "((rest_42)" -"(unsafe-cdr lst_90))" +"(unsafe-cdr lst_89))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_70)" @@ -16666,15 +16672,15 @@ static const char *startup_source = "(values" " fold-var_71)))))" "(if(not #f)" -"(for-loop_105" +"(for-loop_106" " fold-var_9" " rest_42" "(+ pos_11 1))" " fold-var_9)))" " fold-var_69)))))" -" for-loop_105)" +" for-loop_106)" " null" -" lst_89" +" lst_88" " start_14))))))))))" " loop_76)" " info_3" @@ -16682,31 +16688,31 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_91) relevant-scope-sets_0))" +"(let-values(((lst_90) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_106)" -"(lambda(s_175 lst_92)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(s_174 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" -"(let-values(((l_48)(unsafe-car lst_92))" -"((rest_43)(unsafe-cdr lst_92)))" +"(if(pair? lst_91)" +"(let-values(((l_48)(unsafe-car lst_91))" +"((rest_43)(unsafe-cdr lst_91)))" "(let-values(((s_82)" -"(let-values(((s_43) s_175))" -"(let-values(((s_181)" +"(let-values(((s_43) s_174))" +"(let-values(((s_180)" "(let-values()" "(set-intersect" " s_43" "(list->set l_48)))))" -"(values s_181)))))" -"(if(not #f)(for-loop_106 s_82 rest_43) s_82)))" -" s_175)))))" -" for-loop_106)" +"(values s_180)))))" +"(if(not #f)(for-loop_107 s_82 rest_43) s_82)))" +" s_174)))))" +" for-loop_107)" "(list->set(car relevant-scope-sets_0))" -" lst_91))))))" +" lst_90))))))" "(string-append" "((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" @@ -16720,7 +16726,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_93)" +"(let-values(((lst_92)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_37 b_62)" @@ -16733,14 +16739,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_63 lst_94)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_63 lst_93)" "(begin" " 'for-loop" -"(if(pair? lst_94)" -"(let-values(((b_38)(unsafe-car lst_94))" -"((rest_44)(unsafe-cdr lst_94)))" +"(if(pair? lst_93)" +"(let-values(((b_38)(unsafe-car lst_93))" +"((rest_44)(unsafe-cdr lst_93)))" "(let-values(((fold-var_65)" "(let-values(((fold-var_66)" " fold-var_63))" @@ -16780,31 +16786,31 @@ static const char *startup_source = " fold-var_66))))" "(values fold-var_72)))))" "(if(not #f)" -"(for-loop_102 fold-var_65 rest_44)" +"(for-loop_103 fold-var_65 rest_44)" " fold-var_65)))" " fold-var_63)))))" -" for-loop_102)" +" for-loop_103)" " null" -" lst_93)))))" +" lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_95) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" +"(let-values()(check-list lst_94)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_73 lst_96 pos_12)" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_73 lst_95 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_96) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_96))" -"((rest_0)(unsafe-cdr lst_96))" +"(if(if(pair? lst_95) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_95))" +"((rest_0)(unsafe-cdr lst_95))" "((layer_3) pos_12))" "(let-values(((fold-var_74)" "(let-values(((fold-var_75)" @@ -16819,15 +16825,15 @@ static const char *startup_source = " fold-var_75))))" "(values fold-var_76)))))" "(if(not #f)" -"(for-loop_107" +"(for-loop_108" " fold-var_74" " rest_0" "(+ pos_12 1))" " fold-var_74)))" " fold-var_73)))))" -" for-loop_107)" +" for-loop_108)" " null" -" lst_95" +" lst_94" " start_15)))))))))))" " loop_78)" " info_3" @@ -16848,16 +16854,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_182)(unsafe-car lst_10))" +"(let-values(((s_181)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_78)" "(let-values(((fold-var_79) fold-var_77))" -"(if(set-member? common-scopes_0 s_182)" +"(if(set-member? common-scopes_0 s_181)" "(let-values(((fold-var_5) fold-var_79))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_182)" +"(let-values() s_181)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_79))))" @@ -16893,34 +16899,34 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_97) scopes_19))" +"(let-values(((lst_96) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_80 lst_98)" +"(let-values()(check-list lst_96)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_80 lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((s_183)(unsafe-car lst_98))" -"((rest_45)(unsafe-cdr lst_98)))" +"(if(pair? lst_97)" +"(let-values(((s_182)(unsafe-car lst_97))" +"((rest_45)(unsafe-cdr lst_97)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_80))" -"(if(not(set-member? common-scopes_1 s_183))" +"(if(not(set-member? common-scopes_1 s_182))" "(let-values(((fold-var_83) fold-var_82))" "(let-values(((fold-var_84)" "(let-values()" "(cons" -"(let-values() s_183)" +"(let-values() s_182)" " fold-var_83))))" "(values fold-var_84)))" " fold-var_82))))" -"(if(not #f)(for-loop_108 fold-var_81 rest_45) fold-var_81)))" +"(if(not #f)(for-loop_109 fold-var_81 rest_45) fold-var_81)))" " fold-var_80)))))" -" for-loop_108)" +" for-loop_109)" " null" -" lst_97))))" +" lst_96))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16928,17 +16934,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_99) strs_0))" +"(let-values(((lst_98) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_85 lst_100)" +"(let-values()(check-list lst_98)))" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_85 lst_99)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((str_4)(unsafe-car lst_100))((rest_46)(unsafe-cdr lst_100)))" +"(if(pair? lst_99)" +"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" "(let-values(((fold-var_86)" "(let-values(((fold-var_87) fold-var_85))" "(let-values(((fold-var_14)" @@ -16948,11 +16954,11 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_87))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_109 fold-var_86 rest_46) fold-var_86)))" +"(if(not #f)(for-loop_110 fold-var_86 rest_46) fold-var_86)))" " fold-var_85)))))" -" for-loop_109)" +" for-loop_110)" " null" -" lst_99)))))))))))" +" lst_98)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" @@ -17004,7 +17010,7 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_45) phase6_0))" -"(let-values(((s_184) s7_1))" +"(let-values(((s_183) 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()" @@ -17016,19 +17022,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_7)(hash-ref ht_83(syntax-e$1 v_132) null)))" "(begin" -"(let-values(((lst_79) l_7))" +"(let-values(((lst_78) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_95)" -"(lambda(lst_101)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" +"(lambda(lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_101)" -"(let-values(((id_14)(unsafe-car lst_101))" +"(if(pair? lst_100)" +"(let-values(((id_14)(unsafe-car lst_100))" "((rest_47)" -"(unsafe-cdr lst_101)))" +"(unsafe-cdr lst_100)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17045,17 +17051,17 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_184" +" s_183" " v_132))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_95 rest_47)" +"(for-loop_96 rest_47)" "(values))))" "(values))))))" -" for-loop_95)" -" lst_79)))" +" for-loop_96)" +" lst_78)))" "(void)" "(hash-set ht_83(syntax-e$1 v_132)(cons v_132 l_7)))))" "(if(pair? v_132)" @@ -17073,12 +17079,12 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_102) s_0))" +"(let-values(((lst_101) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_110)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_88 lst_6)" "(begin" " 'for-loop" @@ -17093,11 +17099,11 @@ static const char *startup_source = "(remove-scopes id_10(unbox use-sites_0)))" " fold-var_90))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_110 fold-var_89 rest_48) fold-var_89)))" +"(if(not #f)(for-loop_111 fold-var_89 rest_48) fold-var_89)))" " fold-var_88)))))" -" for-loop_110)" +" for-loop_111)" " null" -" lst_102)))))" +" lst_101)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17242,9 +17248,9 @@ static const char *startup_source = "(define-values(built-in-symbol?)(lambda(s_69)(begin(hash-ref built-in-symbols s_69 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_180)" +"(lambda(s_179)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_180))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_179))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17363,18 +17369,18 @@ static const char *startup_source = " 'unique-list" "(if(pair? v_133)" "(reverse$1" -"(let-values(((lst_103) v_133))" +"(let-values(((lst_102) v_133))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_111)" -"(lambda(fold-var_10 lst_82)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_112)" +"(lambda(fold-var_10 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((i_93)(unsafe-car lst_82))" -"((rest_49)(unsafe-cdr lst_82)))" +"(if(pair? lst_81)" +"(let-values(((i_93)(unsafe-car lst_81))" +"((rest_49)(unsafe-cdr lst_81)))" "(let-values(((fold-var_91)" "(let-values(((fold-var_92) fold-var_10))" "(let-values(((fold-var_93)" @@ -17384,12 +17390,12 @@ static const char *startup_source = " fold-var_92))))" "(values fold-var_93)))))" "(if(not #f)" -"(for-loop_111 fold-var_91 rest_49)" +"(for-loop_112 fold-var_91 rest_49)" " fold-var_91)))" " fold-var_10)))))" -" for-loop_111)" +" for-loop_112)" " null" -" lst_103))))" +" lst_102))))" " v_133)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" @@ -17433,7 +17439,7 @@ 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_113)" "(lambda(pos_15)" "(begin" " 'for-loop" @@ -17478,9 +17484,9 @@ static const char *startup_source = " mpi_25)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_112(+ pos_15 inc_4))(values))))" +"(if(not #f)(for-loop_113(+ pos_15 inc_4))(values))))" "(values))))))" -" for-loop_112)" +" for-loop_113)" " start_16)))" "(values))))" "(let-values()" @@ -17569,13 +17575,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_164)" +"(let-values(((or-part_165)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_27)))))" -"(if or-part_164" -" or-part_164" +"(if or-part_165" +" or-part_165" " 'self))))" "(if(not" " base_17)" @@ -17677,7 +17683,7 @@ 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_114)" "(lambda(pos_18 pos_19)" "(begin" " 'for-loop" @@ -17709,9 +17715,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_114(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_113)" +" for-loop_114)" " 0" " start_19)))" "(void)" @@ -17730,7 +17736,7 @@ 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)" +"((letrec-values(((for-loop_115)" "(lambda(i_103 pos_20)" "(begin" " 'for-loop" @@ -17751,10 +17757,10 @@ static const char *startup_source = "(if(if(not((lambda x_40(unsafe-fx= i_45 len_13)) p_31))" "(not #f)" " #f)" -"(for-loop_114 i_45(unsafe-fx+ 1 pos_20))" +"(for-loop_115 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" " i_103)))))" -" for-loop_114)" +" for-loop_115)" " 0" " 0)))))" " v_136)))))))))" @@ -17770,7 +17776,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_86)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_116)" "(lambda(i_106)" "(begin" " 'for-loop" @@ -17785,9 +17791,9 @@ static const char *startup_source = "(vector-set! vec_34 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_115(hash-iterate-next ht_86 i_106))(values))))" +"(if(not #f)(for-loop_116(hash-iterate-next ht_86 i_106))(values))))" "(values))))))" -" for-loop_115)" +" for-loop_116)" "(hash-iterate-first ht_86))))" "(void)" " vec_34))))))" @@ -17796,15 +17802,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_104) mus_0))" +"(let-values(((lst_103) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_94 lst_105)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"((letrec-values(((for-loop_117)" +"(lambda(fold-var_94 lst_104)" "(begin" " 'for-loop" -"(if(pair? lst_105)" -"(let-values(((mu_1)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" +"(if(pair? lst_104)" +"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" "(let-values(((fold-var_95)" "(let-values(((fold-var_96) fold-var_94))" "(let-values(((fold-var_97)" @@ -17819,30 +17825,30 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_96))))" "(values fold-var_97)))))" -"(if(not #f)(for-loop_116 fold-var_95 rest_50) fold-var_95)))" +"(if(not #f)(for-loop_117 fold-var_95 rest_50) fold-var_95)))" " fold-var_94)))))" -" for-loop_116)" +" for-loop_117)" " null" -" lst_104)))))))" +" lst_103)))))))" "(define-values" "(interned-literal?)" "(lambda(v_90)" "(begin" -"(let-values(((or-part_165)(null? v_90)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_166)(boolean? v_90)))" +"(let-values(((or-part_166)(null? v_90)))" "(if or-part_166" " or-part_166" -"(let-values(((or-part_167)" -"(if(fixnum? v_90)(if(< v_90(sub1(expt 2 30)))(> v_90(-(expt 2 30))) #f) #f)))" +"(let-values(((or-part_167)(boolean? v_90)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_168)(symbol? v_90)))" +"(let-values(((or-part_168)" +"(if(fixnum? v_90)(if(< v_90(sub1(expt 2 30)))(> v_90(-(expt 2 30))) #f) #f)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)(char? v_90)))" -"(if or-part_169 or-part_169(keyword? v_90))))))))))))))" +"(let-values(((or-part_169)(symbol? v_90)))" +"(if or-part_169" +" or-part_169" +"(let-values(((or-part_170)(char? v_90)))" +"(if or-part_170 or-part_170(keyword? v_90))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17855,15 +17861,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_106) phases-in-order_0))" +"(let-values(((lst_105) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_117)" -"(lambda(fold-var_98 lst_107)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" +"((letrec-values(((for-loop_118)" +"(lambda(fold-var_98 lst_106)" "(begin" " 'for-loop" -"(if(pair? lst_107)" -"(let-values(((phase_47)(unsafe-car lst_107))((rest_51)(unsafe-cdr lst_107)))" +"(if(pair? lst_106)" +"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" "(let-values(((fold-var_99)" "(let-values(((fold-var_100) fold-var_98))" "(let-values(((fold-var_35)" @@ -17881,11 +17887,11 @@ static const char *startup_source = " mpis_5))))" " fold-var_100))))" "(values fold-var_35)))))" -"(if(not #f)(for-loop_117 fold-var_99 rest_51) fold-var_99)))" +"(if(not #f)(for-loop_118 fold-var_99 rest_51) fold-var_99)))" " fold-var_98)))))" -" for-loop_117)" +" for-loop_118)" " null" -" lst_106))))))))))" +" lst_105))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -17917,11 +17923,11 @@ static const char *startup_source = "(lambda(v_106)" "(begin" " 'loop" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_171)" "(interned-literal?" " v_106)))" -"(if or-part_170" -" or-part_170" +"(if or-part_171" +" or-part_171" "(1/module-path-index?" " v_106)))" "(let-values()(void))" @@ -17984,11 +17990,11 @@ static const char *startup_source = "(if(vector?" " v_106)" "(let-values()" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_172)" "(immutable?" " v_106)))" -"(if or-part_171" -" or-part_171" +"(if or-part_172" +" or-part_172" "(zero?" "(vector-length" " v_106))))" @@ -18006,14 +18012,14 @@ static const char *startup_source = " vec_36))))))" "(begin" " #f" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_119)" "(lambda(pos_22)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_22" " len_15)" -"(let-values(((e_18)" +"(let-values(((e_19)" "(unsafe-vector-ref" " vec_35" " pos_22)))" @@ -18024,18 +18030,18 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_82" -" e_18))" +" e_19))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_119" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_118)" +" for-loop_119)" " 0)))" "(void))" "(begin" @@ -18058,14 +18064,14 @@ static const char *startup_source = " vec_38))))))" "(begin" " #f" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_120)" "(lambda(pos_23)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_23" " len_16)" -"(let-values(((e_19)" +"(let-values(((e_20)" "(unsafe-vector-ref" " vec_37" " pos_23)))" @@ -18076,18 +18082,18 @@ static const char *startup_source = "(begin" "(let-values()" "(add-frontier!_0" -" e_19))" +" e_20))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_120)" " 0)))" "(void)))))" "(if(box?" @@ -18113,7 +18119,7 @@ static const char *startup_source = "(if(immutable?" " v_106)" "(begin" -"(let-values(((lst_76)" +"(let-values(((lst_75)" "(sorted-hash-keys" " v_106)))" "(begin" @@ -18122,19 +18128,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_76)))" -"((letrec-values(((for-loop_120)" -"(lambda(lst_108)" +" lst_75)))" +"((letrec-values(((for-loop_121)" +"(lambda(lst_107)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_107)" "(let-values(((k_21)" "(unsafe-car" -" lst_108))" +" lst_107))" "((rest_52)" "(unsafe-cdr" -" lst_108)))" +" lst_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18152,12 +18158,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_121" " rest_52)" "(values))))" "(values))))))" -" for-loop_120)" -" lst_76)))" +" for-loop_121)" +" lst_75)))" "(void))" "(begin" "(hash-set!" @@ -18166,7 +18172,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_109)" +"(let-values(((lst_108)" "(sorted-hash-keys" " v_106)))" "(begin" @@ -18175,19 +18181,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_109)))" -"((letrec-values(((for-loop_121)" -"(lambda(lst_110)" +" lst_108)))" +"((letrec-values(((for-loop_122)" +"(lambda(lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_110)" +" lst_109)" "(let-values(((k_22)" "(unsafe-car" -" lst_110))" +" lst_109))" "((rest_53)" "(unsafe-cdr" -" lst_110)))" +" lst_109)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18205,12 +18211,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_122" " rest_53)" "(values))))" "(values))))))" -" for-loop_121)" -" lst_109)))" +" for-loop_122)" +" lst_108)))" "(void)))))" "(if(prefab-struct-key" " v_106)" @@ -18236,14 +18242,14 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_123)" "(lambda(idx_1)" "(begin" " 'for-loop" "(if(unsafe-fx<" " idx_1" " stop*_2)" -"(let-values(((e_20)" +"(let-values(((e_21)" "(unsafe-vector-ref" " v*_2" " idx_1)))" @@ -18254,18 +18260,18 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_82" -" e_20))" +" e_21))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_123" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_122)" +" for-loop_123)" " start*_1)))" "(void)))" "(if(srcloc?" @@ -18292,14 +18298,14 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_124)" "(lambda(idx_2)" "(begin" " 'for-loop" "(if(unsafe-fx<" " idx_2" " stop*_3)" -"(let-values(((e_21)" +"(let-values(((e_22)" "(unsafe-vector-ref" " v*_3" " idx_2)))" @@ -18310,18 +18316,18 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_82" -" e_21))" +" e_22))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_123)" +" for-loop_124)" " start*_2)))" "(void)))" "(let-values()" @@ -18341,25 +18347,25 @@ static const char *startup_source = "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_111) l_49))" +"(let-values(((lst_110) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_111)))" +"(check-list lst_110)))" "((letrec-values(((for-loop_75)" -"(lambda(lst_112)" +"(lambda(lst_111)" "(begin" " 'for-loop" "(if(pair?" -" lst_112)" +" lst_111)" "(let-values(((v_79)" "(unsafe-car" -" lst_112))" +" lst_111))" "((rest_54)" "(unsafe-cdr" -" lst_112)))" +" lst_111)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18377,7 +18383,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_75)" -" lst_111)))" +" lst_110)))" "(void))))))))))" " frontier-loop_0)" " v_137)" @@ -18392,7 +18398,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_87)))" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_125)" "(lambda(fold-var_101 i_107)" "(begin" " 'for-loop" @@ -18415,17 +18421,17 @@ static const char *startup_source = "(values" " fold-var_104)))))" "(if(not #f)" -"(for-loop_124" +"(for-loop_125" " fold-var_102" "(hash-iterate-next" " ht_87" " i_107))" " fold-var_102)))" " fold-var_101)))))" -" for-loop_124)" +" for-loop_125)" " null" "(hash-iterate-first ht_87)))))))" -"(let-values(((lst_113)" +"(let-values(((lst_112)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18433,19 +18439,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_113)))" +"(let-values()(check-list lst_112)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_125)" -"(lambda(table_124 lst_114 pos_24)" +"((letrec-values(((for-loop_126)" +"(lambda(table_124 lst_113 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_114) #t #f)" +"(if(if(pair? lst_113) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_114))" +"(unsafe-car lst_113))" "((rest_55)" -"(unsafe-cdr lst_114))" +"(unsafe-cdr lst_113))" "((pos_25) pos_24))" "(let-values(((table_125)" "(let-values(((table_126)" @@ -18464,15 +18470,15 @@ static const char *startup_source = " val_39)))))" "(values table_127)))))" "(if(not #f)" -"(for-loop_125" +"(for-loop_126" " table_125" " rest_55" "(+ pos_24 1))" " table_125)))" " table_124)))))" -" for-loop_125)" +" for-loop_126)" " '#hasheqv()" -" lst_113" +" lst_112" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18486,8 +18492,8 @@ static const char *startup_source = "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_157)(not(keyword? v_138))))" -"(if or-part_157 or-part_157(eq? '#:quote v_138))))))))" +"(let-values(((or-part_158)(not(keyword? v_138))))" +"(if or-part_158 or-part_158(eq? '#:quote v_138))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18605,7 +18611,7 @@ static const char *startup_source = "(length v_141))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_115)" +"(let-values(((lst_114)" " v_141))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18613,20 +18619,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_115)))" -"((letrec-values(((for-loop_126)" +" lst_114)))" +"((letrec-values(((for-loop_127)" "(lambda(all-quoted?_1" -" lst_116)" +" lst_115)" "(begin" " 'for-loop" "(if(pair?" -" lst_116)" +" lst_115)" "(let-values(((i_108)" "(unsafe-car" -" lst_116))" +" lst_115))" "((rest_56)" "(unsafe-cdr" -" lst_116)))" +" lst_115)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18645,14 +18651,14 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_127" " all-quoted?_2" " rest_56)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_126)" +" for-loop_127)" " #t" -" lst_115)))))" +" lst_114)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18750,7 +18756,7 @@ static const char *startup_source = " vec_40))))))" "(begin" " #f" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18780,14 +18786,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_128" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_127)" +" for-loop_128)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18890,7 +18896,7 @@ static const char *startup_source = "(sorted-hash-keys" " v_141)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_117)" +"(let-values(((lst_48)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18898,20 +18904,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_117)))" -"((letrec-values(((for-loop_128)" +" lst_48)))" +"((letrec-values(((for-loop_129)" "(lambda(all-quoted?_11" -" lst_118)" +" lst_116)" "(begin" " 'for-loop" "(if(pair?" -" lst_118)" +" lst_116)" "(let-values(((k_23)" "(unsafe-car" -" lst_118))" +" lst_116))" "((rest_57)" "(unsafe-cdr" -" lst_118)))" +" lst_116)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18937,10 +18943,10 @@ static const char *startup_source = "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_172)" +"(let-values(((or-part_173)" " as-set?_0))" -"(if or-part_172" -" or-part_172" +"(if or-part_173" +" or-part_173" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18949,14 +18955,14 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_129" " all-quoted?_12" " rest_57)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_128)" +" for-loop_129)" " #t" -" lst_117)))))" +" lst_48)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -19017,7 +19023,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_130)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -19047,14 +19053,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_130" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_129)" +" for-loop_130)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -19126,30 +19132,30 @@ static const char *startup_source = " \"unknown mutable: ~e\"" " v_142))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_80)" +"(lambda(v_143)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_80)" +"(if(serialize-fill!? v_143)" "(let-values()" -"((serialize-fill!-ref v_80)" -" v_80" +"((serialize-fill!-ref v_143)" +" v_143" " ser-push!_15" " state_24))" -"(if(box? v_80)" +"(if(box? v_143)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_80))))" -"(if(vector? v_80)" +"(ser-push!_15(unbox v_143))))" +"(if(vector? v_143)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_80))" +"(vector-length v_143))" "(let-values(((vec_42 len_18)" "(let-values(((vec_43)" -" v_80))" +" v_143))" "(begin" "(check-vector vec_43)" "(values" @@ -19158,14 +19164,14 @@ static const char *startup_source = " vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_131)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_143)" +"(let-values(((v_144)" "(unsafe-vector-ref" " vec_42" " pos_29)))" @@ -19176,21 +19182,21 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_143))" +" v_144))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_131" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_130)" +" for-loop_131)" " 0)))" "(void)))" -"(if(hash? v_80)" +"(if(hash? v_143)" "(let-values()" "(let-values((()" "(begin" @@ -19202,31 +19208,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_80))" +"(hash-count v_143))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_80)))" +" v_143)))" "(begin" -"(let-values(((lst_119) ks_1))" +"(let-values(((lst_117) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_119)))" -"((letrec-values(((for-loop_131)" -"(lambda(lst_120)" +"(check-list lst_117)))" +"((letrec-values(((for-loop_132)" +"(lambda(lst_118)" "(begin" " 'for-loop" "(if(pair?" -" lst_120)" +" lst_118)" "(let-values(((k_25)" "(unsafe-car" -" lst_120))" +" lst_118))" "((rest_58)" "(unsafe-cdr" -" lst_120)))" +" lst_118)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19238,24 +19244,24 @@ static const char *startup_source = " k_25)" "(ser-push!_15" "(hash-ref" -" v_80" +" v_143" " k_25))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_132" " rest_58)" "(values))))" "(values))))))" -" for-loop_131)" -" lst_119)))" +" for-loop_132)" +" lst_117)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_80))))))))))" +" v_143))))))))))" "(let-values(((rev-mutables_0)" "(let-values(((ht_89) mutables_0))" "(begin" @@ -19263,13 +19269,13 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_89)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_133)" "(lambda(table_128 i_7)" "(begin" " 'for-loop" "(if i_7" "(let-values(((k_26" -" v_144)" +" v_145)" "(hash-iterate-key+value" " ht_89" " i_7)))" @@ -19282,7 +19288,7 @@ static const char *startup_source = " val_41)" "(let-values()" "(values" -" v_144" +" v_145" " k_26))))" "(hash-set" " table_130" @@ -19291,14 +19297,14 @@ static const char *startup_source = "(values" " table_131)))))" "(if(not #f)" -"(for-loop_132" +"(for-loop_133" " table_129" "(hash-iterate-next" " ht_89" " i_7))" " table_129)))" " table_128)))))" -" for-loop_132)" +" for-loop_133)" " '#hasheqv()" "(hash-iterate-first ht_89))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19314,7 +19320,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_134)" "(lambda(pos_30)" "(begin" " 'for-loop" @@ -19336,13 +19342,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_133" +"(for-loop_134" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_133)" +" for-loop_134)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19354,7 +19360,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_90)))" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_135)" "(lambda(table_132 i_113)" "(begin" " 'for-loop" @@ -19385,14 +19391,14 @@ static const char *startup_source = "(values" " table_135)))))" "(if(not #f)" -"(for-loop_134" +"(for-loop_135" " table_133" "(hash-iterate-next" " ht_90" " i_113))" " table_133)))" " table_132)))))" -" for-loop_134)" +" for-loop_135)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((shared-bindings_0)" @@ -19413,7 +19419,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_136)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -19436,13 +19442,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_135" +"(for-loop_136" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_135)" +" for-loop_136)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19462,7 +19468,7 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_137)" "(lambda(pos_32)" "(begin" " 'for-loop" @@ -19485,13 +19491,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_136" +"(for-loop_137" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_137)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19552,7 +19558,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_24 end_16 inc_10)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_138)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" @@ -19577,9 +19583,9 @@ static const char *startup_source = " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_137 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_138 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_137)" +" for-loop_138)" " 0" " start_24)))" "(values))))" @@ -19592,7 +19598,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_25 end_17 inc_11)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_139)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" @@ -19617,9 +19623,9 @@ static const char *startup_source = " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_138 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_139 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_138)" +" for-loop_139)" " 0" " start_25)))" "(values))))" @@ -19638,18 +19644,18 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_140)" "(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_145)(unsafe-vector-ref vec_44 pos_45)))" +"(let-values(((v_146)(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_145" +" v_146" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19658,13 +19664,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_139" +"(for-loop_140" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_139)" +" for-loop_140)" " 0" " start_26" " 0)))" @@ -19905,7 +19911,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_146 next-pos_18)" +"(let-values(((v_147 next-pos_18)" "(decode" " vec_47" "(add1 pos_50)" @@ -19913,7 +19919,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_146) next-pos_18)))" +"(values(box-immutable v_147) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" @@ -19942,7 +19948,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_140)" +"((letrec-values(((for-loop_141)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" @@ -19952,9 +19958,9 @@ static const char *startup_source = "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_147" -" next-pos_22)" "(let-values(((v_148" +" next-pos_22)" +"(let-values(((v_149" " next-pos_23)" "(decode" " vec_47" @@ -19964,20 +19970,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_148" +" v_149" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_124" -" v_147)" +" v_148)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_140 pos_53(+ pos_52 inc_13))" +"(for-loop_141 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_140)" +" for-loop_141)" "(+ pos_50 2)" " start_27)))))" "(values" @@ -20004,7 +20010,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_141)" +"((letrec-values(((for-loop_142)" "(lambda(ht_93 pos_56 pos_57)" "(begin" " 'for-loop" @@ -20022,7 +20028,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_149" +"(let-values(((v_150" " next-pos_25)" "(decode" " vec_47" @@ -20032,20 +20038,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_95 k_27 v_149)" +"(hash-set ht_95 k_27 v_150)" " next-pos_25))))))" "(values ht_96 pos_60)))))" "(if(not #f)" -"(for-loop_141 ht_94 pos_58(+ pos_57 inc_14))" +"(for-loop_142 ht_94 pos_58(+ pos_57 inc_14))" "(values ht_94 pos_58))))" "(values ht_93 pos_56))))))" -" for-loop_141)" +" for-loop_142)" " ht_92" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_185)" +"(let-values(((s_139)" "(let-values(((tmp_22)(vector*-ref vec_47 pos_50)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" @@ -20060,14 +20066,14 @@ 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_142)" -"(lambda(s_140 pos_61 pos_62)" +"((letrec-values(((for-loop_143)" +"(lambda(s_184 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_141 pos_63)" -"(let-values(((s_186) s_140)((pos_64) pos_61))" +"(let-values(((s_185 pos_63)" +"(let-values(((s_186) s_184)((pos_64) pos_61))" "(let-values(((s_187 pos_65)" "(let-values()" "(let-values(((k_28" @@ -20084,11 +20090,11 @@ static const char *startup_source = " next-pos_26)))))" "(values s_187 pos_65)))))" "(if(not #f)" -"(for-loop_142 s_141 pos_63(+ pos_62 inc_15))" -"(values s_141 pos_63))))" -"(values s_140 pos_61))))))" -" for-loop_142)" -" s_185" +"(for-loop_143 s_185 pos_63(+ pos_62 inc_15))" +"(values s_185 pos_63))))" +"(values s_184 pos_61))))))" +" for-loop_143)" +" s_139" "(+ pos_50 2)" " start_29))))))" "(let-values()" @@ -20109,7 +20115,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_143)" +"((letrec-values(((for-loop_144)" "(lambda(r_31 pos_66 pos_67)" "(begin" " 'for-loop" @@ -20120,7 +20126,7 @@ static const char *startup_source = "((pos_69) pos_66))" "(let-values(((r_34 pos_70)" "(let-values()" -"(let-values(((v_150" +"(let-values(((v_151" " next-pos_29)" "(decode" " vec_47" @@ -20131,15 +20137,15 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_150" +" v_151" " r_33)" " next-pos_29)))))" "(values r_34 pos_70)))))" "(if(not #f)" -"(for-loop_143 r_32 pos_68(+ pos_67 inc_16))" +"(for-loop_144 r_32 pos_68(+ pos_67 inc_16))" "(values r_32 pos_68))))" "(values r_31 pos_66))))))" -" for-loop_143)" +" for-loop_144)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20479,7 +20485,7 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_151 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_152 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)" @@ -20488,7 +20494,7 @@ static const char *startup_source = "(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_151 c_21) next-pos_66)))" +"(begin(set-box! v_152 c_21) next-pos_66)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" @@ -20497,7 +20503,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_144)" +"((letrec-values(((for-loop_145)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" @@ -20516,12 +20522,12 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_151 i_125 c_22)" +"(vector-set! v_152 i_125 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_144 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_144)" +" for-loop_145)" "(+ pos_71 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" @@ -20532,7 +20538,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_145)" +"((letrec-values(((for-loop_70)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20559,30 +20565,30 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_151 key_52 val_43)" +"(hash-set! v_152 key_52 val_43)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_145 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_70 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_145)" +" for-loop_70)" "(+ pos_71 2)" " start_32)))))" "(if(equal? tmp_23 '#: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_151 c_23) next-pos_69)))" +"(begin(deserialize-scope-fill! v_152 c_23) next-pos_69)))" "(if(equal? tmp_23 '#: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_151 a_39 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_152 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_152)" +"(lambda(v_153)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20590,35 +20596,35 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_83)" -"(lambda(v_153)" +"(lambda(v_154)" "(begin" " 'loop" -"(if(interned-literal? v_153)" +"(if(interned-literal? v_154)" "(let-values()(void))" -"(if(hash-ref seen_22 v_153 #f)" +"(if(hash-ref seen_22 v_154 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_153 #t)" -"(if(scope-with-bindings? v_153)" +"(hash-set! seen_22 v_154 #t)" +"(if(scope-with-bindings? v_154)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" -"((reach-scopes-ref v_153) v_153 loop_83)" -"(let-values(((lst_121)(hash-ref scope-triggers_0 v_153 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_154))" +"((reach-scopes-ref v_154) v_154 loop_83)" +"(let-values(((lst_119)(hash-ref scope-triggers_0 v_154 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_121)))" +"(let-values()(check-list lst_119)))" "((letrec-values(((for-loop_146)" -"(lambda(lst_122)" +"(lambda(lst_120)" "(begin" " 'for-loop" -"(if(pair? lst_122)" +"(if(pair? lst_120)" "(let-values(((proc_7)" -"(unsafe-car lst_122))" +"(unsafe-car lst_120))" "((rest_59)" -"(unsafe-cdr lst_122)))" +"(unsafe-cdr lst_120)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20634,11 +20640,11 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_146)" -" lst_121)))" +" lst_119)))" "(void)" -"(hash-remove! scope-triggers_0 v_153)" -"((scope-with-bindings-ref v_153)" -" v_153" +"(hash-remove! scope-triggers_0 v_154)" +"((scope-with-bindings-ref v_154)" +" v_154" " get-reachable-scopes_4" " loop_83" "(lambda(sc-unreachable_0 b_63)" @@ -20647,15 +20653,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_50)(cons b_63 l_50))" " null)))))" -"(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)" +"(if(reach-scopes? v_154)" +"(let-values()((reach-scopes-ref v_154) v_154 loop_83))" +"(if(pair? v_154)" +"(let-values()(begin(loop_83(car v_154))(loop_83(cdr v_154))))" +"(if(vector? v_154)" "(let-values()" "(begin" "(let-values(((vec_49 len_26)" -"(let-values(((vec_50) v_153))" +"(let-values(((vec_50) v_154))" "(begin" "(check-vector vec_50)" "(values" @@ -20668,7 +20674,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_82 len_26)" -"(let-values(((e_22)" +"(let-values(((e_23)" "(unsafe-vector-ref" " vec_49" " pos_82)))" @@ -20679,7 +20685,7 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_83" -" e_22))" +" e_23))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20690,12 +20696,12 @@ static const char *startup_source = " for-loop_147)" " 0)))" "(void)))" -"(if(box? v_153)" -"(let-values()(loop_83(unbox v_153)))" -"(if(hash? v_153)" +"(if(box? v_154)" +"(let-values()(loop_83(unbox v_154)))" +"(if(hash? v_154)" "(let-values()" "(begin" -"(let-values(((ht_97) v_153))" +"(let-values(((ht_97) v_154))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -20706,7 +20712,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_126" -"(let-values(((k_30 v_154)" +"(let-values(((k_30 v_155)" "(hash-iterate-key+value" " ht_97" " i_126)))" @@ -20720,7 +20726,7 @@ static const char *startup_source = "(loop_83" " k_30)" "(loop_83" -" v_154)))" +" v_155)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20733,7 +20739,7 @@ static const char *startup_source = " for-loop_148)" "(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_153)" +"(if(prefab-struct-key v_154)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20743,7 +20749,7 @@ static const char *startup_source = "(lambda(x_47)(vector? x_47))" "(lambda(x_48)" "(unsafe-vector-length x_48))" -"(struct->vector v_153)" +"(struct->vector v_154)" " 1" " #f" " 1)))" @@ -20754,7 +20760,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< idx_4 stop*_5)" -"(let-values(((e_23)" +"(let-values(((e_24)" "(unsafe-vector-ref" " v*_5" " idx_4)))" @@ -20765,7 +20771,7 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_83" -" e_23))" +" e_24))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20776,11 +20782,11 @@ static const char *startup_source = " for-loop_149)" " start*_4)))" "(void)))" -"(if(srcloc? v_153)" -"(let-values()(loop_83(srcloc-source v_153)))" +"(if(srcloc? v_154)" +"(let-values()(loop_83(srcloc-source v_154)))" "(let-values()(void))))))))))))))))))" " loop_83)" -" v_152)" +" v_153)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21420,7 +21426,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_98)))" -"((letrec-values(((for-loop_110)" +"((letrec-values(((for-loop_111)" "(lambda(syms_14 i_127)" "(begin" " 'for-loop" @@ -21439,10 +21445,10 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_110 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_127))" +"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_127))" " syms_15)))" " syms_14)))))" -" for-loop_110)" +" for-loop_111)" "(seteq)" "(unsafe-immutable-hash-iterate-first ht_98))))))))" "(define-values" @@ -21807,11 +21813,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_173)" +"(let-values(((or-part_174)" "(not" " shortcut-table_0)))" -"(if or-part_173" -" or-part_173" +"(if or-part_174" +" or-part_174" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21976,7 +21982,7 @@ static const char *startup_source = " ht_101" " i_130)))" "(let-values((()" -"(let-values(((ht_102)" +"(let-values(((ht_52)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -21984,40 +21990,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_102)))" -"((letrec-values(((for-loop_153)" -"(lambda(i_65)" +" ht_52)))" +"((letrec-values(((for-loop_60)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_65" +"(if i_131" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" -" ht_102" -" i_65)))" +" ht_52" +" i_131)))" "(let-values((()" -"(let-values(((lst_123)" +"(let-values(((lst_121)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_154)" -"(lambda(lst_124)" +"((letrec-values(((for-loop_153)" +"(lambda(lst_122)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_124))" +" lst_122))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_124)" +" lst_122)" "(car" -" lst_124)" -" lst_124))" +" lst_122)" +" lst_122))" "((rest_60)" "(if(pair?" -" lst_124)" +" lst_122)" "(cdr" -" lst_124)" +" lst_122)" " null)))" "(let-values((()" "(let-values()" @@ -22078,23 +22084,23 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_154" +"(for-loop_153" " rest_60)" "(values))))" "(values))))))" -" for-loop_154)" -" lst_123)))))" +" for-loop_153)" +" lst_121)))))" "(if(not" " #f)" -"(for-loop_153" +"(for-loop_60" "(hash-iterate-next" -" ht_102" -" i_65))" +" ht_52" +" i_131))" "(values))))" "(values))))))" -" for-loop_153)" +" for-loop_60)" "(hash-iterate-first" -" ht_102))))))" +" ht_52))))))" "(if(not" " #f)" "(for-loop_152" @@ -22165,16 +22171,16 @@ static const char *startup_source = "(lambda(reqds_1 id_26 phase_59 mpi_34 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_125) reqds_1))" +"(let-values(((lst_123) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_155)" -"(lambda(fold-var_105 lst_126)" +"((letrec-values(((for-loop_154)" +"(lambda(fold-var_105 lst_124)" "(begin" " 'for-loop" -"(if(not(null? lst_126))" -"(let-values(((r_36)(if(pair? lst_126)(car lst_126) lst_126))" -"((rest_61)(if(pair? lst_126)(cdr lst_126) null)))" +"(if(not(null? lst_124))" +"(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" +"((rest_61)(if(pair? lst_124)(cdr lst_124) null)))" "(let-values(((fold-var_106)" "(let-values(((r_37)" "(normalize-required" @@ -22184,7 +22190,7 @@ static const char *startup_source = " sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_156)" +"((letrec-values(((for-loop_155)" "(lambda(fold-var_107)" "(begin" " 'for-loop" @@ -22214,13 +22220,13 @@ static const char *startup_source = "(values" " fold-var_111)))))))" " fold-var_108))))))" -" for-loop_156)" -" fold-var_105)))))" -"(if(not #f)(for-loop_155 fold-var_106 rest_61) fold-var_106)))" -" fold-var_105)))))" " for-loop_155)" +" fold-var_105)))))" +"(if(not #f)(for-loop_154 fold-var_106 rest_61) fold-var_106)))" +" fold-var_105)))))" +" for-loop_154)" " null" -" lst_125)))))))" +" lst_123)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22418,28 +22424,28 @@ static const char *startup_source = "(syntax-e$1 id_27)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_127) reqds_2))" +"(let-values(((lst_125) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_156)" "(lambda(only-can-can-shadow-require?_1" -" lst_128)" +" lst_126)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_128))" -"(let-values(((r_38)" +" lst_126))" +"(let-values(((r_24)" "(if(pair?" -" lst_128)" +" lst_126)" "(car" -" lst_128)" -" lst_128))" +" lst_126)" +" lst_126))" "((rest_62)" "(if(pair?" -" lst_128)" +" lst_126)" "(cdr" -" lst_128)" +" lst_126)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22447,11 +22453,11 @@ static const char *startup_source = "(let-values(((only-can-can-shadow-require?_4)" "(let-values()" "(if(if(bulk-required?" -" r_38)" +" r_24)" "(bulk-required-can-be-shadowed?" -" r_38)" +" r_24)" "(required-can-be-shadowed?" -" r_38))" +" r_24))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" @@ -22468,14 +22474,14 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_157" +"(for-loop_156" " only-can-can-shadow-require?_2" " rest_62)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_157)" +" for-loop_156)" " #t" -" lst_127)))))" +" lst_125)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22514,18 +22520,18 @@ static const char *startup_source = "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_129) syms_18))" +"(let-values(((lst_127) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_129)))" -"((letrec-values(((for-loop_143)" -"(lambda(defined-syms_3 lst_130)" +"(let-values()(check-list lst_127)))" +"((letrec-values(((for-loop_144)" +"(lambda(defined-syms_3 lst_128)" "(begin" " 'for-loop" -"(if(pair? lst_130)" -"(let-values(((sym_37)(unsafe-car lst_130))" -"((rest_63)(unsafe-cdr lst_130)))" +"(if(pair? lst_128)" +"(let-values(((sym_37)(unsafe-car lst_128))" +"((rest_63)(unsafe-cdr lst_128)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22536,12 +22542,12 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_143 defined-syms_4 rest_63)" +"(for-loop_144 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_143)" +" for-loop_144)" " defined-syms_2" -" lst_129)))))" +" lst_127)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" @@ -22551,33 +22557,33 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_103)(hash-ref at-mod_5 phase_62 '#hasheq())))" +"(let-values(((ht_102)(hash-ref at-mod_5 phase_62 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_103)))" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_112 i_131)" +"(let-values()(check-in-hash ht_102)))" +"((letrec-values(((for-loop_157)" +"(lambda(fold-var_112 i_132)" "(begin" " 'for-loop" -"(if i_131" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_103 i_131)))" +"(if i_132" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_102 i_132)))" "(let-values(((fold-var_113)" -"(let-values(((lst_131) reqds_3))" +"(let-values(((lst_129) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_114 lst_132)" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_114 lst_130)" "(begin" " 'for-loop" -"(if(not(null? lst_132))" +"(if(not(null? lst_130))" "(let-values(((reqd_1)" -"(if(pair? lst_132)" -"(car lst_132)" -" lst_132))" +"(if(pair? lst_130)" +"(car lst_130)" +" lst_130))" "((rest_64)" -"(if(pair? lst_132)" -"(cdr lst_132)" +"(if(pair? lst_130)" +"(cdr lst_130)" " null)))" "(let-values(((fold-var_115)" "(let-values(((fold-var_116)" @@ -22595,28 +22601,28 @@ static const char *startup_source = "(values" " fold-var_117)))))" "(if(not #f)" -"(for-loop_159" +"(for-loop_158" " fold-var_115" " rest_64)" " fold-var_115)))" " fold-var_114)))))" -" for-loop_159)" +" for-loop_158)" " fold-var_112" -" lst_131)))))" +" lst_129)))))" "(if(not #f)" -"(for-loop_158 fold-var_113(hash-iterate-next ht_103 i_131))" +"(for-loop_157 fold-var_113(hash-iterate-next ht_102 i_132))" " fold-var_113)))" " fold-var_112)))))" -" for-loop_158)" +" for-loop_157)" " null" -"(hash-iterate-first ht_103)))))" +"(hash-iterate-first ht_102)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_174)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_174 or-part_174 null)))))" +"(let-values(((or-part_175)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_175 or-part_175 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_49)" @@ -22626,18 +22632,18 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_133)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_133)))" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_118 lst_134)" +"(let-values()(check-list lst_131)))" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_118 lst_132)" "(begin" " 'for-loop" -"(if(pair? lst_134)" -"(let-values(((mod-name_13)(unsafe-car lst_134))" -"((rest_65)(unsafe-cdr lst_134)))" +"(if(pair? lst_132)" +"(let-values(((mod-name_13)(unsafe-car lst_132))" +"((rest_65)(unsafe-cdr lst_132)))" "(let-values(((fold-var_119)" "(let-values(((fold-var_120) fold-var_118))" "(if(eq? mod-name_13 self_10)" @@ -22649,13 +22655,13 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_160)" "(lambda(fold-var_121)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_122)" -"(let-values(((lst_135)" +"(let-values(((lst_133)" "(if(eq?" " phase_49" " 'all)" @@ -22669,22 +22675,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_135)))" -"((letrec-values(((for-loop_162)" +" lst_133)))" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_123" -" lst_136)" +" lst_134)" "(begin" " 'for-loop" "(if(pair?" -" lst_136)" +" lst_134)" "(let-values(((phase_63)" "(unsafe-car" -" lst_136))" +" lst_134))" "((rest_66)" "(unsafe-cdr" -" lst_136)))" +" lst_134)))" "(let-values(((fold-var_124)" -"(let-values(((ht_104)" +"(let-values(((ht_103)" "(hash-ref" " phase-to-requireds_0" " phase_63" @@ -22697,42 +22703,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_104)))" -"((letrec-values(((for-loop_163)" +" ht_103)))" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_125" -" i_132)" +" i_133)" "(begin" " 'for-loop" -"(if i_132" +"(if i_133" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_104" -" i_132)))" +" ht_103" +" i_133)))" "(let-values(((fold-var_126)" -"(let-values(((lst_137)" +"(let-values(((lst_135)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_164)" +"((letrec-values(((for-loop_163)" "(lambda(fold-var_127" -" lst_138)" +" lst_136)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_138))" +" lst_136))" "(let-values(((reqd_2)" "(if(pair?" -" lst_138)" +" lst_136)" "(car" -" lst_138)" -" lst_138))" +" lst_136)" +" lst_136))" "((rest_67)" "(if(pair?" -" lst_138)" +" lst_136)" "(cdr" -" lst_138)" +" lst_136)" " null)))" "(let-values(((fold-var_128)" "(let-values(((fold-var_129)" @@ -22751,45 +22757,45 @@ static const char *startup_source = " fold-var_130)))))" "(if(not" " #f)" -"(for-loop_164" +"(for-loop_163" " fold-var_128" " rest_67)" " fold-var_128)))" " fold-var_127)))))" -" for-loop_164)" -" fold-var_125" -" lst_137)))))" -"(if(not" -" #f)" -"(for-loop_163" -" fold-var_126" -"(hash-iterate-next" -" ht_104" -" i_132))" -" fold-var_126)))" -" fold-var_125)))))" " for-loop_163)" -" fold-var_123" -"(hash-iterate-first" -" ht_104))))))" +" fold-var_125" +" lst_135)))))" "(if(not" " #f)" "(for-loop_162" +" fold-var_126" +"(hash-iterate-next" +" ht_103" +" i_133))" +" fold-var_126)))" +" fold-var_125)))))" +" for-loop_162)" +" fold-var_123" +"(hash-iterate-first" +" ht_103))))))" +"(if(not" +" #f)" +"(for-loop_161" " fold-var_124" " rest_66)" " fold-var_124)))" " fold-var_123)))))" -" for-loop_162)" -" fold-var_121" -" lst_135)))))" -" fold-var_122))))))" " for-loop_161)" -" fold-var_120)))))))" -"(if(not #f)(for-loop_160 fold-var_119 rest_65) fold-var_119)))" -" fold-var_118)))))" +" fold-var_121" +" lst_133)))))" +" fold-var_122))))))" " for-loop_160)" +" fold-var_120)))))))" +"(if(not #f)(for-loop_159 fold-var_119 rest_65) fold-var_119)))" +" fold-var_118)))))" +" for-loop_159)" " null" -" lst_133)))))))))))" +" lst_131)))))))))))" "(define-values" "(add-provide!109.1)" "(lambda(as-protected?98_0" @@ -22859,8 +22865,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_175) as-protected?_0))" -"(if or-part_175 or-part_175 as-transformer?_2))" +"(if(let-values(((or-part_176) as-protected?_0))" +"(if or-part_176 or-part_176 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_66 binding_13)" @@ -22886,18 +22892,18 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_149) ids_3))" +"(let-values(((lst_147) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_149)))" -"((letrec-values(((for-loop_171)" -"(lambda(table_144 lst_150)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" +"((letrec-values(((for-loop_170)" +"(lambda(table_144 lst_148)" "(begin" " 'for-loop" -"(if(pair? lst_150)" -"(let-values(((id_44)(unsafe-car lst_150))((rest_74)(unsafe-cdr lst_150)))" +"(if(pair? lst_148)" +"(let-values(((id_44)(unsafe-car lst_148))((rest_74)(unsafe-cdr lst_148)))" "(let-values(((table_145)" "(let-values(((table_146) table_144))" "(let-values(((table_147)" @@ -24833,11 +24839,11 @@ static const char *startup_source = " #t))))" "(hash-set table_146 key_55 val_46)))))" "(values table_147)))))" -"(if(not #f)(for-loop_171 table_145 rest_74) table_145)))" +"(if(not #f)(for-loop_170 table_145 rest_74) table_145)))" " table_144)))))" -" for-loop_171)" +" for-loop_170)" " '#hash()" -" lst_149))))))" +" lst_147))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -25029,10 +25035,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_195)" +"(let-values(((or-part_196)" " visit?_2))" -"(if or-part_195" -" or-part_195" +"(if or-part_196" +" or-part_196" " run?_2)))" "(let-values()" "(let-values(((m-ns260_0) m-ns_10)" @@ -25051,15 +25057,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_196)" +"(if(let-values(((or-part_197)" "(not adjust_1)))" -"(if or-part_196" -" or-part_196" -"(let-values(((or-part_197)" -"(adjust-prefix?" -" adjust_1)))" "(if or-part_197" " or-part_197" +"(let-values(((or-part_198)" +"(adjust-prefix?" +" adjust_1)))" +"(if or-part_198" +" or-part_198" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25190,11 +25196,11 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_198)" +"(if(let-values(((or-part_199)" "(not" " can-bulk-bind?_0)))" -"(if or-part_198" -" or-part_198" +"(if or-part_199" +" or-part_199" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_3)" @@ -25410,7 +25416,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_151)" +"(let-values(((lst_149)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25419,19 +25425,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" -"((letrec-values(((for-loop_172)" -"(lambda(lst_152)" +" lst_149)))" +"((letrec-values(((for-loop_171)" +"(lambda(lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_152)" +" lst_150)" "(let-values(((update!_1)" "(unsafe-car" -" lst_152))" +" lst_150))" "((rest_75)" "(unsafe-cdr" -" lst_152)))" +" lst_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25443,12 +25449,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_171" " rest_75)" "(values))))" "(values))))))" -" for-loop_172)" -" lst_151)))" +" for-loop_171)" +" lst_149)))" "(void)))" "(void))" "(values))))" @@ -25478,7 +25484,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_107)" +"(let-values(((ht_106)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25486,16 +25492,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_107)))" -"((letrec-values(((for-loop_173)" -"(lambda(i_135)" +" ht_106)))" +"((letrec-values(((for-loop_172)" +"(lambda(i_136)" "(begin" " 'for-loop" -"(if i_135" +"(if i_136" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_107" -" i_135)))" +" ht_106" +" i_136)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25517,15 +25523,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_173" +"(for-loop_172" "(unsafe-immutable-hash-iterate-next" -" ht_107" -" i_135))" +" ht_106" +" i_136))" "(values))))" "(values))))))" -" for-loop_173)" +" for-loop_172)" "(unsafe-immutable-hash-iterate-first" -" ht_107))))" +" ht_106))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25567,28 +25573,28 @@ static const char *startup_source = "(let-values()" "(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_108)(module-provides m_14)))" +"(let-values(((ht_107)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_108)))" -"((letrec-values(((for-loop_174)" -"(lambda(i_136)" +"(let-values()(check-in-hash ht_107)))" +"((letrec-values(((for-loop_173)" +"(lambda(i_137)" "(begin" " 'for-loop" -"(if i_136" +"(if i_137" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_108" -" i_136)))" +" ht_107" +" i_137)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_199)" +"(if(let-values(((or-part_200)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_199" -" or-part_199" +"(if or-part_200" +" or-part_200" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25613,11 +25619,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_153)" -"(let-values(((or-part_200)" +"(let-values(((lst_151)" +"(let-values(((or-part_201)" " only-syms_0))" -"(if or-part_200" -" or-part_200" +"(if or-part_201" +" or-part_201" "(hash-keys" " provides_7)))))" "(begin" @@ -25626,19 +25632,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_153)))" -"((letrec-values(((for-loop_175)" -"(lambda(lst_154)" +" lst_151)))" +"((letrec-values(((for-loop_174)" +"(lambda(lst_152)" "(begin" " 'for-loop" "(if(pair?" -" lst_154)" +" lst_152)" "(let-values(((sym_44)" "(unsafe-car" -" lst_154))" +" lst_152))" "((rest_76)" "(unsafe-cdr" -" lst_154)))" +" lst_152)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25704,12 +25710,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_175" +"(for-loop_174" " rest_76)" "(values))))" "(values))))))" -" for-loop_175)" -" lst_153)))" +" for-loop_174)" +" lst_151)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25721,7 +25727,7 @@ static const char *startup_source = " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_201)" +"(let-values(((or-part_202)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25730,8 +25736,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_201" -" or-part_201" +"(if or-part_202" +" or-part_202" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25770,12 +25776,12 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_174" -"(hash-iterate-next ht_108 i_136))" +"(for-loop_173" +"(hash-iterate-next ht_107 i_137))" "(values))))" "(values))))))" -" for-loop_174)" -"(hash-iterate-first ht_108))))" +" for-loop_173)" +"(hash-iterate-first ht_107))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" @@ -26420,7 +26426,7 @@ static const char *startup_source = "(begin(check-vector vec_54)(values vec_54(unsafe-vector-length vec_54))))))" "(begin" " #f" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_175)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -26435,9 +26441,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_176(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_175(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_176)" +" for-loop_175)" " 0)))" "(void)" "(cons pos_84(vector-length vec_52)))))))" @@ -26585,8 +26591,8 @@ static const char *startup_source = "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_165)(built-in-symbol? sym_48)))" -"(if or-part_165 or-part_165(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_166)(built-in-symbol? sym_48)))" +"(if or-part_166 or-part_166(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)" @@ -26603,9 +26609,9 @@ static const char *startup_source = "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" "(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_56 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_202) prev-var-sym_0))" -"(if or-part_202" -" or-part_202" +"(let-values(((or-part_203) prev-var-sym_0))" +"(if or-part_203" +" or-part_203" "(let-values(((sym_50)(select-fresh(variable-use-sym key_56) header_2)))" "(begin" "(hash-set! variable-uses_0 key_56 sym_50)" @@ -26640,69 +26646,69 @@ static const char *startup_source = "(lambda(header_5 phase_69 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_155)(header-require-vars-in-order header_5)))" +"(let-values(((lst_153)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_177)" -"(lambda(ht_109 link-mod-uses_1 lst_156)" +"(let-values()(check-list lst_153)))" +"((letrec-values(((for-loop_176)" +"(lambda(ht_108 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" -"(if(pair? lst_156)" -"(let-values(((vu_0)(unsafe-car lst_156))" -"((rest_77)(unsafe-cdr lst_156)))" -"(let-values(((ht_110 link-mod-uses_2)" -"(let-values(((ht_111) ht_109)" +"(if(pair? lst_154)" +"(let-values(((vu_0)(unsafe-car lst_154))" +"((rest_77)(unsafe-cdr lst_154)))" +"(let-values(((ht_109 link-mod-uses_2)" +"(let-values(((ht_110) ht_108)" "((link-mod-uses_3) link-mod-uses_1))" -"(let-values(((ht_112 link-mod-uses_4)" +"(let-values(((ht_111 link-mod-uses_4)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_156)" +"(if(let-values(((or-part_157)" "(hash-ref" -" ht_111" +" ht_110" " mu_2" " #f)))" -"(if or-part_156" -" or-part_156" -"(let-values(((or-part_203)" +"(if or-part_157" +" or-part_157" +"(let-values(((or-part_204)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_203" -" or-part_203" +"(if or-part_204" +" or-part_204" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -"(values ht_111 link-mod-uses_3)" +"(values ht_110 link-mod-uses_3)" "(values" -"(hash-set ht_111 mu_2 #t)" +"(hash-set ht_110 mu_2 #t)" "(cons mu_2 link-mod-uses_3)))))))" -"(values ht_112 link-mod-uses_4)))))" +"(values ht_111 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_177 ht_110 link-mod-uses_2 rest_77)" -"(values ht_110 link-mod-uses_2))))" -"(values ht_109 link-mod-uses_1))))))" -" for-loop_177)" +"(for-loop_176 ht_109 link-mod-uses_2 rest_77)" +"(values ht_109 link-mod-uses_2))))" +"(values ht_108 link-mod-uses_1))))))" +" for-loop_176)" " '#hash()" " null" -" lst_155)))))" +" lst_153)))))" "(values" " link-mod-uses_0" "(reverse$1" "(let-values(((lst_34) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_140 lst_157)" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_140 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_157)" -"(let-values(((mu_3)(unsafe-car lst_157))((rest_78)(unsafe-cdr lst_157)))" +"(if(pair? lst_155)" +"(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" "(let-values(((fold-var_141)" "(let-values(((fold-var_142) fold-var_140))" "(let-values(((fold-var_143)" @@ -26710,27 +26716,27 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_110)" +"(let-values(((lst_109)" "(header-require-vars-in-order" " header_5)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_110)))" -"((letrec-values(((for-loop_179)" +"(let-values()(check-list lst_109)))" +"((letrec-values(((for-loop_178)" "(lambda(fold-var_144" -" lst_158)" +" lst_156)" "(begin" " 'for-loop" "(if(pair?" -" lst_158)" +" lst_156)" "(let-values(((vu_1)" "(unsafe-car" -" lst_158))" +" lst_156))" "((rest_79)" "(unsafe-cdr" -" lst_158)))" +" lst_156)))" "(let-values(((fold-var_145)" "(let-values(((fold-var_40)" " fold-var_144))" @@ -26764,31 +26770,31 @@ static const char *startup_source = " fold-var_42)))" " fold-var_40))))" "(if(not #f)" -"(for-loop_179" +"(for-loop_178" " fold-var_145" " rest_79)" " fold-var_145)))" " fold-var_144)))))" -" for-loop_179)" +" for-loop_178)" " null" -" lst_110)))))" +" lst_109)))))" " fold-var_142))))" "(values fold-var_143)))))" -"(if(not #f)(for-loop_178 fold-var_141 rest_78) fold-var_141)))" +"(if(not #f)(for-loop_177 fold-var_141 rest_78) fold-var_141)))" " fold-var_140)))))" -" for-loop_178)" +" for-loop_177)" " null" " lst_34))))" "(reverse$1" -"(let-values(((lst_159) link-mod-uses_0))" +"(let-values(((lst_157) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_146 lst_160)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" +"((letrec-values(((for-loop_179)" +"(lambda(fold-var_146 lst_158)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((mu_4)(unsafe-car lst_160))((rest_80)(unsafe-cdr lst_160)))" +"(if(pair? lst_158)" +"(let-values(((mu_4)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" "(let-values(((fold-var_147)" "(let-values(((fold-var_148) fold-var_146))" "(let-values(((fold-var_149)" @@ -26796,7 +26802,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_111)" +"(let-values(((lst_110)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26804,7 +26810,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_111)))" +"(check-list lst_110)))" "((letrec-values(((for-loop_75)" "(lambda(table_148" " lst_56)" @@ -26832,7 +26838,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_180)" "(lambda(table_32)" "(begin" " 'for-loop" @@ -26846,7 +26852,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_182)" +"((letrec-values(((for-loop_181)" "(lambda(table_150)" "(begin" " 'for-loop" @@ -26854,10 +26860,10 @@ static const char *startup_source = "(let-values(((table_151)" "(let-values(((table_152)" " table_150))" -"(if(let-values(((or-part_204)" +"(if(let-values(((or-part_205)" " extra-inspectors_1))" -"(if or-part_204" -" or-part_204" +"(if or-part_205" +" or-part_205" " cross-linklet-inlining?_0))" "(let-values(((table_153)" " table_152))" @@ -26877,10 +26883,10 @@ static const char *startup_source = " table_124)))" " table_152))))" " table_151))))))" -" for-loop_182)" +" for-loop_181)" " table_32)))))" " table_35))))))" -" for-loop_181)" +" for-loop_180)" " table_34)))" " table_34))))" "(if(not" @@ -26892,36 +26898,36 @@ static const char *startup_source = " table_148)))))" " for-loop_75)" " '#hash()" -" lst_111)))))" +" lst_110)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" " fold-var_148))))" "(values fold-var_149)))))" -"(if(not #f)(for-loop_180 fold-var_147 rest_80) fold-var_147)))" +"(if(not #f)(for-loop_179 fold-var_147 rest_80) fold-var_147)))" " fold-var_146)))))" -" for-loop_180)" +" for-loop_179)" " null" -" lst_159))))" +" lst_157))))" "(reverse$1" -"(let-values(((lst_161)(header-require-vars-in-order header_5)))" +"(let-values(((lst_159)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_161)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_150 lst_162)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" +"((letrec-values(((for-loop_182)" +"(lambda(fold-var_150 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_162)" -"(let-values(((vu_3)(unsafe-car lst_162))((rest_82)(unsafe-cdr lst_162)))" +"(if(pair? lst_160)" +"(let-values(((vu_3)(unsafe-car lst_160))((rest_82)(unsafe-cdr lst_160)))" "(let-values(((fold-var_151)" "(let-values(((fold-var_152) fold-var_150))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_205)" +"(let-values(((or-part_206)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_205" -" or-part_205" +"(if or-part_206" +" or-part_206" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_153) fold-var_152))" "(let-values(((fold-var_154)" @@ -26941,11 +26947,11 @@ static const char *startup_source = " fold-var_153))))" "(values fold-var_154)))" " fold-var_152))))" -"(if(not #f)(for-loop_183 fold-var_151 rest_82) fold-var_151)))" +"(if(not #f)(for-loop_182 fold-var_151 rest_82) fold-var_151)))" " fold-var_150)))))" -" for-loop_183)" +" for-loop_182)" " null" -" lst_161)))))))))" +" lst_159)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27049,7 +27055,7 @@ static const char *startup_source = "(define-values(syntax-property$2) syntax-property)" "(define-values(syntax-e$2) syntax-e)" "(define-values(1/syntax?) syntax?)" -"(define-values(correlated?)(lambda(e_24)(begin(1/syntax? e_24))))" +"(define-values(correlated?)(lambda(e_25)(begin(1/syntax? e_25))))" "(define-values" "(datum->correlated)" "(let-values(((datum->correlated4_0)" @@ -27062,35 +27068,35 @@ static const char *startup_source = "(case-lambda" "((d_27)(begin(datum->correlated4_0 d_27 #f #f)))" "((d_28 srcloc1_1)(datum->correlated4_0 d_28 srcloc1_1 #t)))))" -"(define-values(correlated-e)(lambda(e_25)(begin(if(1/syntax? e_25)(syntax-e$2 e_25) e_25))))" -"(define-values(correlated-cadr)(lambda(e_26)(begin(car(correlated-e(cdr(correlated-e e_26)))))))" +"(define-values(correlated-e)(lambda(e_26)(begin(if(1/syntax? e_26)(syntax-e$2 e_26) e_26))))" +"(define-values(correlated-cadr)(lambda(e_27)(begin(car(correlated-e(cdr(correlated-e e_27)))))))" "(define-values" "(correlated-length)" -"(lambda(e_27)(begin(let-values(((l_53)(correlated-e e_27)))(if(list? l_53)(length l_53) #f)))))" +"(lambda(e_28)(begin(let-values(((l_53)(correlated-e e_28)))(if(list? l_53)(length l_53) #f)))))" "(define-values" "(correlated->list)" -"(lambda(e_28)" -"(begin" -"((letrec-values(((loop_88)" "(lambda(e_29)" "(begin" +"((letrec-values(((loop_88)" +"(lambda(e_30)" +"(begin" " 'loop" -"(if(list? e_29)" -"(let-values() e_29)" -"(if(pair? e_29)" -"(let-values()(cons(car e_29)(loop_88(cdr e_29))))" -"(if(null? e_29)" +"(if(list? e_30)" +"(let-values() e_30)" +"(if(pair? e_30)" +"(let-values()(cons(car e_30)(loop_88(cdr e_30))))" +"(if(null? e_30)" "(let-values() null)" -"(if(1/syntax? e_29)" -"(let-values()(loop_88(syntax-e$2 e_29)))" +"(if(1/syntax? e_30)" +"(let-values()(loop_88(syntax-e$2 e_30)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" " loop_88)" -" e_28))))" +" e_29))))" "(define-values" "(correlated-property)" "(case-lambda" -"((e_30 k_31)(begin(syntax-property$2 e_30 k_31)))" -"((e_31 k_32 v_155)(syntax-property$2 e_31 k_32 v_155))))" +"((e_16 k_31)(begin(syntax-property$2 e_16 k_31)))" +"((e_31 k_32 v_156)(syntax-property$2 e_31 k_32 v_156))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_297)" @@ -27099,7 +27105,7 @@ static const char *startup_source = "(if(list? s_297)" "(let-values() s_297)" "(if(pair? s_297)" -"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_297))))(if r_39(cons(car s_297) r_39) #f)))" +"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_297))))(if r_38(cons(car s_297) r_38) #f)))" "(if(1/syntax? s_297)(let-values()(to-syntax-list.1$1(syntax-e$2 s_297)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" @@ -27163,20 +27169,20 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_163)(parsed-case-lambda-clauses p_35)))" +"(let-values(((lst_161)(parsed-case-lambda-clauses p_35)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_155 lst_164)" +"(let-values()(check-list lst_161)))" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_155 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_164)" +"(if(pair? lst_162)" "(let-values(((clause_0)" -"(unsafe-car lst_164))" +"(unsafe-car lst_162))" "((rest_83)" -"(unsafe-cdr lst_164)))" +"(unsafe-cdr lst_162)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29)" " fold-var_155))" @@ -27194,12 +27200,12 @@ static const char *startup_source = "(values" " fold-var_30)))))" "(if(not #f)" -"(for-loop_184 fold-var_28 rest_83)" +"(for-loop_183 fold-var_28 rest_83)" " fold-var_28)))" " fold-var_155)))))" -" for-loop_184)" +" for-loop_183)" " null" -" lst_163))))))" +" lst_161))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" @@ -27216,14 +27222,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_156 lst_165)" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_156 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_165)" -"(let-values(((r_40)(unsafe-car lst_165))" +"(if(pair? lst_163)" +"(let-values(((r_39)(unsafe-car lst_163))" "((rest_42)" -"(unsafe-cdr lst_165)))" +"(unsafe-cdr lst_163)))" "(let-values(((fold-var_157)" "(let-values(((fold-var_9)" " fold-var_156))" @@ -27232,17 +27238,17 @@ static const char *startup_source = "(cons" "(let-values()" "(compile_0" -" r_40" +" r_39" " #f" " #t))" " fold-var_9))))" "(values" " fold-var_70)))))" "(if(not #f)" -"(for-loop_185 fold-var_157 rest_42)" +"(for-loop_184 fold-var_157 rest_42)" " fold-var_157)))" " fold-var_156)))))" -" for-loop_185)" +" for-loop_184)" " null" " lst_42))))))))" "(if(parsed-if? p_35)" @@ -27282,20 +27288,20 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_35)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_91)(cdr(parsed-begin0-body p_35))))" +"(let-values(((lst_90)(cdr(parsed-begin0-body p_35))))" "(begin" "(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)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_11 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" +"(if(pair? lst_91)" "(let-values(((e_32)" -"(unsafe-car lst_92))" +"(unsafe-car lst_91))" "((rest_43)" -"(unsafe-cdr lst_92)))" +"(unsafe-cdr lst_91)))" "(let-values(((fold-var_92)" "(let-values(((fold-var_93)" " fold-var_11))" @@ -27311,14 +27317,14 @@ static const char *startup_source = "(values" " fold-var_158)))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_107" " fold-var_92" " rest_43)" " fold-var_92)))" " fold-var_11)))))" -" for-loop_106)" +" for-loop_107)" " null" -" lst_91)))))))" +" lst_90)))))))" "(if(parsed-begin? p_35)" "(let-values()" "(correlate~" @@ -27431,19 +27437,19 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_166) es_0)((start_33) 0))" +"(let-values(((lst_164) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_166)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_159 lst_97 pos_90)" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_159 lst_96 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_97) #t #f)" -"(let-values(((e_33)(unsafe-car lst_97))" -"((rest_84)(unsafe-cdr lst_97))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((e_33)(unsafe-car lst_96))" +"((rest_84)(unsafe-cdr lst_96))" "((i_43) pos_90))" "(let-values(((fold-var_160)" "(let-values(((fold-var_81) fold-var_159))" @@ -27459,37 +27465,37 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_81))))" "(values fold-var_82)))))" -"(if(not #f)(for-loop_186 fold-var_160 rest_84(+ pos_90 1)) fold-var_160)))" +"(if(not #f)(for-loop_185 fold-var_160 rest_84(+ pos_90 1)) fold-var_160)))" " fold-var_159)))))" -" for-loop_186)" +" for-loop_185)" " null" -" lst_166" +" lst_164" " start_33)))))))))" "(define-values" "(add-lambda-properties)" "(lambda(s_298 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_156)" +"(lambda(v_157)" "(begin" " 'simplify-name" -"(if(pair? v_156)" +"(if(pair? v_157)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_156))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_156))))(if(eq? n1_0 n2_0) n1_0 v_156))))" -"(let-values() v_156))))))" +"(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(((name_45)" -"(let-values(((or-part_206)" -"(let-values(((v_157)" +"(let-values(((or-part_207)" +"(let-values(((v_158)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_128)(symbol? v_157)))" -"(if or-part_128" -" or-part_128" -"(let-values(((or-part_207)(syntax?$1 v_157)))" -"(if or-part_207 or-part_207(void? v_157)))))" -" v_157" +"(if(let-values(((or-part_129)(symbol? v_158)))" +"(if or-part_129" +" or-part_129" +"(let-values(((or-part_208)(syntax?$1 v_158)))" +"(if or-part_208 or-part_208(void? v_158)))))" +" v_158" " #f))))" -"(if or-part_206 or-part_206 inferred-name_0))))" +"(if or-part_207 or-part_207 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" @@ -27518,24 +27524,24 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_167)(parsed-let_-values-clauses p_40))" -"((lst_168)(parsed-let_-values-idss p_40)))" +"(let-values(((lst_165)(parsed-let_-values-clauses p_40))" +"((lst_166)(parsed-let_-values-idss p_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_167)))" +"(let-values()(check-list lst_165)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_168)))" -"((letrec-values(((for-loop_187)" -"(lambda(fold-var_161 lst_169 lst_170)" +"(let-values()(check-list lst_166)))" +"((letrec-values(((for-loop_186)" +"(lambda(fold-var_161 lst_167 lst_168)" "(begin" " 'for-loop" -"(if(if(pair? lst_169)(pair? lst_170) #f)" -"(let-values(((clause_1)(unsafe-car lst_169))" -"((rest_85)(unsafe-cdr lst_169))" -"((ids_4)(unsafe-car lst_170))" -"((rest_86)(unsafe-cdr lst_170)))" +"(if(if(pair? lst_167)(pair? lst_168) #f)" +"(let-values(((clause_1)(unsafe-car lst_167))" +"((rest_85)(unsafe-cdr lst_167))" +"((ids_4)(unsafe-car lst_168))" +"((rest_86)(unsafe-cdr lst_168)))" "(let-values(((fold-var_162)" "(let-values(((fold-var_163) fold-var_161))" "(let-values(((fold-var_0)" @@ -27545,10 +27551,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_171)" +"(let-values(((lst_169)" "(car" " clause_1))" -"((lst_172)" +"((lst_170)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27556,36 +27562,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_171)))" +" lst_169)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_172)))" -"((letrec-values(((for-loop_188)" +" lst_170)))" +"((letrec-values(((for-loop_187)" "(lambda(fold-var_2" -" lst_173" -" lst_174)" +" lst_171" +" lst_172)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_173)" +" lst_171)" "(pair?" -" lst_174)" +" lst_172)" " #f)" "(let-values(((sym_51)" "(unsafe-car" -" lst_173))" +" lst_171))" "((rest_87)" "(unsafe-cdr" -" lst_173))" +" lst_171))" "((id_46)" "(unsafe-car" -" lst_174))" +" lst_172))" "((rest_88)" "(unsafe-cdr" -" lst_174)))" +" lst_172)))" "(let-values(((fold-var_94)" "(let-values(((fold-var_164)" " fold-var_2))" @@ -27601,16 +27607,16 @@ static const char *startup_source = " fold-var_165)))))" "(if(not" " #f)" -"(for-loop_188" +"(for-loop_187" " fold-var_94" " rest_87" " rest_88)" " fold-var_94)))" " fold-var_2)))))" -" for-loop_188)" +" for-loop_187)" " null" -" lst_171" -" lst_172))))" +" lst_169" +" lst_170))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27621,13 +27627,13 @@ static const char *startup_source = " fold-var_163))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_187 fold-var_162 rest_85 rest_86)" +"(for-loop_186 fold-var_162 rest_85 rest_86)" " fold-var_162)))" " fold-var_161)))))" -" for-loop_187)" +" for-loop_186)" " null" -" lst_167" -" lst_168))))" +" lst_165" +" lst_166))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27651,9 +27657,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_41)))" "(let-values(((b_69)" -"(let-values(((or-part_208) normal-b_0))" -"(if or-part_208" -" or-part_208" +"(let-values(((or-part_209) normal-b_0))" +"(if or-part_209" +" or-part_209" "(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))))" @@ -27718,10 +27724,10 @@ static const char *startup_source = "(module-binding-extra-inspector b_69)))" "(if or-part_102" " or-part_102" -"(let-values(((or-part_209)" +"(let-values(((or-part_210)" "(parsed-id-inspector p_41)))" -"(if or-part_209" -" or-part_209" +"(if or-part_210" +" or-part_210" "(if(parsed-s p_41)" "(syntax-inspector(parsed-s p_41))" " #f)))))))" @@ -27755,17 +27761,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_113) extra-inspectors_2))" +"(let-values(((ht_112) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_113)))" -"((letrec-values(((for-loop_94)" -"(lambda(result_78 i_137)" +"(let-values()(check-in-immutable-hash-keys ht_112)))" +"((letrec-values(((for-loop_95)" +"(lambda(result_78 i_138)" "(begin" " 'for-loop" -"(if i_137" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_113 i_137)))" +"(if i_138" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_138)))" "(let-values(((result_79)" "(let-values()" "(let-values(((result_80)" @@ -27776,12 +27782,12 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_80)))))" "(if(if(not((lambda x_51(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_94 result_79(unsafe-immutable-hash-iterate-next ht_113 i_137))" +"(for-loop_95 result_79(unsafe-immutable-hash-iterate-next ht_112 i_138))" " result_79)))" " result_78)))))" -" for-loop_94)" +" for-loop_95)" " #t" -"(unsafe-immutable-hash-iterate-first ht_113)))))" +"(unsafe-immutable-hash-iterate-first ht_112)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27793,8 +27799,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_210)(not extra-inspectors-1_0)))" -"(if or-part_210 or-part_210(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_211)(not extra-inspectors-1_0)))" +"(if or-part_211 or-part_211(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))" @@ -27841,19 +27847,19 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_103) mus_1)((lst_91) extra-inspectorsss_0))" +"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" "(begin" -"(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_175)" +"(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)" "(begin" " 'for-loop" -"(if(if(pair? lst_92)(pair? lst_175) #f)" -"(let-values(((mu_5)(unsafe-car lst_92))" -"((rest_89)(unsafe-cdr lst_92))" -"((extra-inspectorss_1)(unsafe-car lst_175))" -"((rest_37)(unsafe-cdr lst_175)))" +"(if(if(pair? lst_91)(pair? lst_173) #f)" +"(let-values(((mu_5)(unsafe-car lst_91))" +"((rest_89)(unsafe-cdr lst_91))" +"((extra-inspectorss_1)(unsafe-car lst_173))" +"((rest_37)(unsafe-cdr lst_173)))" "(let-values(((fold-var_166)" "(let-values(((fold-var_167) fold-var_11))" "(let-values(((fold-var_168)" @@ -27867,18 +27873,18 @@ static const char *startup_source = " #f))" " fold-var_167))))" "(values fold-var_168)))))" -"(if(not #f)(for-loop_106 fold-var_166 rest_89 rest_37) fold-var_166)))" +"(if(not #f)(for-loop_107 fold-var_166 rest_89 rest_37) fold-var_166)))" " fold-var_11)))))" -" for-loop_106)" +" for-loop_107)" " null" -" lst_103" -" lst_91)))))" +" lst_102" +" lst_90)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_93) mus_1))" +"(let-values(((lst_92) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_189)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_188)" "(lambda(fold-var_169 lst_17)" "(begin" " 'for-loop" @@ -27897,25 +27903,25 @@ static const char *startup_source = " #f))" " fold-var_170))))" "(values fold-var_171)))))" -"(if(not #f)(for-loop_189 fold-var_63 rest_90) fold-var_63)))" +"(if(not #f)(for-loop_188 fold-var_63 rest_90) fold-var_63)))" " fold-var_169)))))" -" for-loop_189)" +" for-loop_188)" " null" -" lst_93)))))))))" +" lst_92)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_176) mu*s_0))" +"(let-values(((lst_174) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" -"((letrec-values(((for-loop_190)" -"(lambda(fold-var_72 lst_177)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_72 lst_175)" "(begin" " 'for-loop" -"(if(pair? lst_177)" -"(let-values(((mu*_0)(unsafe-car lst_177))((rest_91)(unsafe-cdr lst_177)))" +"(if(pair? lst_175)" +"(let-values(((mu*_0)(unsafe-car lst_175))((rest_91)(unsafe-cdr lst_175)))" "(let-values(((fold-var_17)" "(let-values(((fold-var_73) fold-var_72))" "(let-values(((fold-var_172)" @@ -27927,11 +27933,11 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_73))))" "(values fold-var_172)))))" -"(if(not #f)(for-loop_190 fold-var_17 rest_91) fold-var_17)))" +"(if(not #f)(for-loop_189 fold-var_17 rest_91) fold-var_17)))" " fold-var_72)))))" -" for-loop_190)" +" for-loop_189)" " null" -" lst_176)))))))" +" lst_174)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27939,10 +27945,10 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_178) mu*s_1))" +"(let-values(((lst_176) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_191)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_190)" "(lambda(fold-var_76 lst_9)" "(begin" " 'for-loop" @@ -27957,26 +27963,26 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_174)))))" -"(if(not #f)(for-loop_191 fold-var_173 rest_92) fold-var_173)))" +"(if(not #f)(for-loop_190 fold-var_173 rest_92) fold-var_173)))" " fold-var_76)))))" -" for-loop_191)" +" for-loop_190)" " null" -" lst_178)))))" +" lst_176)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_179) mu*s_1)((lst_180)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_177) mu*s_1)((lst_178)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_180)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" "((letrec-values(((for-loop_28)" -"(lambda(fold-var_6 lst_181 lst_182)" +"(lambda(fold-var_6 lst_179 lst_180)" "(begin" " 'for-loop" -"(if(if(pair? lst_181)(pair? lst_182) #f)" -"(let-values(((mu*_2)(unsafe-car lst_181))" -"((rest_93)(unsafe-cdr lst_181))" -"((imports_0)(unsafe-car lst_182))" -"((rest_94)(unsafe-cdr lst_182)))" +"(if(if(pair? lst_179)(pair? lst_180) #f)" +"(let-values(((mu*_2)(unsafe-car lst_179))" +"((rest_93)(unsafe-cdr lst_179))" +"((imports_0)(unsafe-car lst_180))" +"((rest_94)(unsafe-cdr lst_180)))" "(let-values(((fold-var_159)" "(let-values(((fold-var_175) fold-var_6))" "(let-values(((fold-var_176)" @@ -27986,25 +27992,25 @@ static const char *startup_source = "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_98) imports_0))" +"(let-values(((lst_97) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" +"(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_183)" +" lst_181)" "(begin" " 'for-loop" "(if(pair?" -" lst_183)" +" lst_181)" "(let-values(((import_0)" "(unsafe-car" -" lst_183))" +" lst_181))" "((rest_95)" "(unsafe-cdr" -" lst_183)))" +" lst_181)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -28036,15 +28042,15 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_98)))))" +" lst_97)))))" " fold-var_175))))" "(values fold-var_176)))))" "(if(not #f)(for-loop_28 fold-var_159 rest_93 rest_94) fold-var_159)))" " fold-var_6)))))" " for-loop_28)" " null" -" lst_179" -" lst_180)))))))))" +" lst_177" +" lst_178)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" @@ -28057,20 +28063,20 @@ 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_211) add-insp?_0))(if or-part_211 or-part_211 add-extra-insp?_0))" +"(if(let-values(((or-part_212) add-insp?_0))(if or-part_212 or-part_212 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_184) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_192)" -"(lambda(table_154 lst_185)" +"(let-values()(check-list lst_182)))" +"((letrec-values(((for-loop_191)" +"(lambda(table_154 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((import_1)(unsafe-car lst_185))" -"((rest_96)(unsafe-cdr lst_185)))" +"(if(pair? lst_183)" +"(let-values(((import_1)(unsafe-car lst_183))" +"((rest_96)(unsafe-cdr lst_183)))" "(let-values(((table_155)" "(let-values(((table_156) table_154))" "(let-values(((table_157)" @@ -28096,14 +28102,14 @@ static const char *startup_source = " #f)))" "(if or-part_54" " or-part_54" -"(let-values(((or-part_139)" +"(let-values(((or-part_140)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_139" -" or-part_139" +"(if or-part_140" +" or-part_140" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" @@ -28112,24 +28118,24 @@ static const char *startup_source = " key_58" " val_50)))))" "(values table_157)))))" -"(if(not #f)(for-loop_192 table_155 rest_96) table_155)))" +"(if(not #f)(for-loop_191 table_155 rest_96) table_155)))" " table_154)))))" -" for-loop_192)" +" for-loop_191)" " '#hash()" -" lst_184))))" +" lst_182))))" "(let-values()" -"(let-values(((lst_186) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_186)))" -"((letrec-values(((for-loop_193)" -"(lambda(extra-inspectorss_8 lst_187)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_192)" +"(lambda(extra-inspectorss_8 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_187)" -"(let-values(((import_2)(unsafe-car lst_187))" -"((rest_97)(unsafe-cdr lst_187)))" +"(if(pair? lst_185)" +"(let-values(((import_2)(unsafe-car lst_185))" +"((rest_97)(unsafe-cdr lst_185)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28146,13 +28152,13 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_193 extra-inspectorss_9 rest_97)" +"(for-loop_192 extra-inspectorss_9 rest_97)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_193)" -"(let-values(((or-part_212) extra-inspectorss_7))" -"(if or-part_212 or-part_212(seteq)))" -" lst_186)))))))" +" for-loop_192)" +"(let-values(((or-part_213) extra-inspectorss_7))" +"(if or-part_213 or-part_213(seteq)))" +" lst_184)))))))" "(module-use*1.1 mpi_44 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" @@ -28161,18 +28167,18 @@ static const char *startup_source = "(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))" "(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))" "(let-values(((new-extra-inspectorss_1)" -"(let-values(((ht_114) extra-inspectorss_12))" +"(let-values(((ht_113) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_114)))" -"((letrec-values(((for-loop_194)" -"(lambda(new-extra-inspectorss_2 i_138)" +"(let-values()(check-in-hash ht_113)))" +"((letrec-values(((for-loop_193)" +"(lambda(new-extra-inspectorss_2 i_139)" "(begin" " 'for-loop" -"(if i_138" +"(if i_139" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_114 i_138)))" +"(hash-iterate-key+value ht_113 i_139)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28189,14 +28195,14 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_193" " new-extra-inspectorss_3" -"(hash-iterate-next ht_114 i_138))" +"(hash-iterate-next ht_113 i_139))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_194)" +" for-loop_193)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_114))))))" +"(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -28293,13 +28299,13 @@ static const char *startup_source = "(lambda(phase_72)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_206)" +"(let-values(((or-part_207)" "(hash-ref" " phase-to-header_0" " phase_72" " #f)))" -"(if or-part_206" -" or-part_206" +"(if or-part_207" +" or-part_207" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28312,23 +28318,23 @@ static const char *startup_source = " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_188) force-phases_0))" +"(let-values(((lst_186) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_188)))" -"((letrec-values(((for-loop_195)" -"(lambda(lst_189)" +"(let-values()(check-list lst_186)))" +"((letrec-values(((for-loop_194)" +"(lambda(lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_189)" +"(if(pair? lst_187)" "(let-values(((phase_73)" "(unsafe-car" -" lst_189))" +" lst_187))" "((rest_98)" "(unsafe-cdr" -" lst_189)))" +" lst_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28344,12 +28350,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_195" +"(for-loop_194" " rest_98)" "(values))))" "(values))))))" -" for-loop_195)" -" lst_188)))" +" for-loop_194)" +" lst_186)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28364,7 +28370,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_190)" +"(let-values(((lst_188)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28372,6 +28378,38 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_188)))" +"((letrec-values(((for-loop_195)" +"(lambda(lst_189)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_189)" +"(let-values(((body_2)" +"(unsafe-car" +" lst_189))" +"((rest_99)" +"(unsafe-cdr" +" lst_189)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(if(parsed-define-values?" +" body_2)" +"(let-values()" +"(begin" +"(let-values(((lst_190)" +"(parsed-define-values-syms" +" body_2)))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_190)))" "((letrec-values(((for-loop_196)" "(lambda(lst_191)" @@ -28379,44 +28417,12 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_191)" -"(let-values(((body_2)" -"(unsafe-car" -" lst_191))" -"((rest_99)" -"(unsafe-cdr" -" lst_191)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(if(parsed-define-values?" -" body_2)" -"(let-values()" -"(begin" -"(let-values(((lst_192)" -"(parsed-define-values-syms" -" body_2)))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_192)))" -"((letrec-values(((for-loop_197)" -"(lambda(lst_193)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_193)" "(let-values(((sym_53)" "(unsafe-car" -" lst_193))" +" lst_191))" "((rest_100)" "(unsafe-cdr" -" lst_193)))" +" lst_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28446,12 +28452,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_197" +"(for-loop_196" " rest_100)" "(values))))" "(values))))))" -" for-loop_197)" -" lst_192)))" +" for-loop_196)" +" lst_190)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28469,12 +28475,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_196" +"(for-loop_195" " rest_99)" "(values))))" "(values))))))" -" for-loop_196)" -" lst_190)))" +" for-loop_195)" +" lst_188)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28500,7 +28506,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_194)" +"(let-values(((lst_192)" " bodys_4)" "((start_34)" " 0))" @@ -28510,29 +28516,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" +" lst_192)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_115)" -"(lambda(lst_195" +"((letrec-values(((for-loop_116)" +"(lambda(lst_193" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_195)" +" lst_193)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_195))" +" lst_193))" "((rest_86)" "(unsafe-cdr" -" lst_195))" -"((i_139)" +" lst_193))" +"((i_140)" " pos_92))" "(let-values((()" "(let-values()" @@ -28554,7 +28560,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_196)" +"(let-values(((lst_194)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28562,20 +28568,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_196)))" -"((letrec-values(((for-loop_198)" +" lst_194)))" +"((letrec-values(((for-loop_197)" "(lambda(fold-var_3" -" lst_174)" +" lst_172)" "(begin" " 'for-loop" "(if(pair?" -" lst_174)" +" lst_172)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_174))" +" lst_172))" "((rest_87)" "(unsafe-cdr" -" lst_174)))" +" lst_172)))" "(let-values(((fold-var_177)" "(let-values(((fold-var_178)" " fold-var_3))" @@ -28592,17 +28598,17 @@ static const char *startup_source = " fold-var_94)))))" "(if(not" " #f)" -"(for-loop_198" +"(for-loop_197" " fold-var_177" " rest_87)" " fold-var_177)))" " fold-var_3)))))" -" for-loop_198)" +" for-loop_197)" " null" -" lst_196)))))" +" lst_194)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_105)" +"(let-values(((lst_104)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28610,20 +28616,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_105)))" -"((letrec-values(((for-loop_199)" +" lst_104)))" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_179" -" lst_197)" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_197)" +" lst_195)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_197))" +" lst_195))" "((rest_101)" "(unsafe-cdr" -" lst_197)))" +" lst_195)))" "(let-values(((fold-var_180)" "(let-values(((fold-var_181)" " fold-var_179))" @@ -28657,14 +28663,14 @@ static const char *startup_source = " fold-var_182)))))" "(if(not" " #f)" -"(for-loop_199" +"(for-loop_198" " fold-var_180" " rest_101)" " fold-var_180)))" " fold-var_179)))))" -" for-loop_199)" +" for-loop_198)" " null" -" lst_105))))))))" +" lst_104))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" @@ -28740,7 +28746,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_106)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28748,8 +28754,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" -"((letrec-values(((for-loop_200)" +" lst_106)))" +"((letrec-values(((for-loop_199)" "(lambda(fold-var_183" " lst_51)" "(begin" @@ -28778,14 +28784,14 @@ static const char *startup_source = " fold-var_186)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_199" " fold-var_184" " rest_102)" " fold-var_184)))" " fold-var_183)))))" -" for-loop_200)" +" for-loop_199)" " null" -" lst_107)))))" +" lst_106)))))" " '((void))))" "(add-body!_0" " phase_75" @@ -28833,7 +28839,7 @@ static const char *startup_source = " phase_75))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_198)" +"(let-values(((lst_196)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28841,20 +28847,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" -"((letrec-values(((for-loop_201)" +" lst_196)))" +"((letrec-values(((for-loop_200)" "(lambda(fold-var_187" -" lst_199)" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_199)" +" lst_197)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_199))" +" lst_197))" "((rest_103)" "(unsafe-cdr" -" lst_199)))" +" lst_197)))" "(let-values(((fold-var_188)" "(let-values(((fold-var_189)" " fold-var_187))" @@ -28876,14 +28882,14 @@ static const char *startup_source = " fold-var_190)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_200" " fold-var_188" " rest_103)" " fold-var_188)))" " fold-var_187)))))" -" for-loop_201)" +" for-loop_200)" " null" -" lst_198))))))" +" lst_196))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -28933,7 +28939,7 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_29)" " binding-syms_1)" -"((lst_200)" +"((lst_198)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28947,30 +28953,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_200)))" -"((letrec-values(((for-loop_202)" +" lst_198)))" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_191" -" lst_201" -" lst_202)" +" lst_199" +" lst_200)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_201)" +" lst_199)" "(pair?" -" lst_202)" +" lst_200)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_201))" +" lst_199))" "((rest_104)" "(unsafe-cdr" -" lst_201))" +" lst_199))" "((gen-sym_1)" "(unsafe-car" -" lst_202))" +" lst_200))" "((rest_105)" "(unsafe-cdr" -" lst_202)))" +" lst_200)))" "(let-values(((fold-var_192)" "(let-values(((fold-var_193)" " fold-var_191))" @@ -28989,16 +28995,16 @@ static const char *startup_source = " fold-var_194)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_201" " fold-var_192" " rest_104" " rest_105)" " fold-var_192)))" " fold-var_191)))))" -" for-loop_202)" +" for-loop_201)" " null" " lst_29" -" lst_200))))))" +" lst_198))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" @@ -29067,16 +29073,16 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_75))))" -"(if(let-values(((or-part_213)" +"(if(let-values(((or-part_214)" "(parsed-#%declare?" " body_3)))" -"(if or-part_213" -" or-part_213" -"(let-values(((or-part_214)" -"(parsed-module?" -" body_3)))" "(if or-part_214" " or-part_214" +"(let-values(((or-part_215)" +"(parsed-module?" +" body_3)))" +"(if or-part_215" +" or-part_215" "(parsed-require?" " body_3)))))" "(let-values()" @@ -29152,7 +29158,7 @@ static const char *startup_source = " the-struct_51)))" " #f" "(=" -" i_139" +" i_140" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29168,15 +29174,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_115" +"(for-loop_116" " rest_86" "(+" " pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_115)" -" lst_194" +" for-loop_116)" +" lst_192" " start_34)))" "(void))))))" " loop!_1)" @@ -29226,27 +29232,27 @@ static const char *startup_source = " phases-in-order_2))" " phase_71)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_203)" +"(let-values(((lst_201)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_203)))" -"((letrec-values(((for-loop_119)" +"(check-list lst_201)))" +"((letrec-values(((for-loop_120)" "(lambda(table_158" -" lst_204)" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" +" lst_202)" "(let-values(((phase_76)" "(unsafe-car" -" lst_204))" +" lst_202))" "((rest_106)" "(unsafe-cdr" -" lst_204)))" +" lst_202)))" "(let-values(((table_159)" "(let-values(((table_160)" " table_158))" @@ -29284,16 +29290,16 @@ static const char *startup_source = " table_161)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" " table_159" " rest_106)" " table_159)))" " table_158)))))" -" for-loop_119)" +" for-loop_120)" " '#hash()" -" lst_203)))))" +" lst_201)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_205)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29301,20 +29307,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_205)))" -"((letrec-values(((for-loop_203)" +" lst_203)))" +"((letrec-values(((for-loop_202)" "(lambda(table_162" -" lst_206)" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_206)" +" lst_204)" "(let-values(((phase_77)" "(unsafe-car" -" lst_206))" +" lst_204))" "((rest_107)" "(unsafe-cdr" -" lst_206)))" +" lst_204)))" "(let-values(((table_163)" "(let-values(((table_164)" " table_162))" @@ -29375,7 +29381,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_207)" +"(let-values(((lst_205)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29386,20 +29392,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_207)))" -"((letrec-values(((for-loop_181)" +" lst_205)))" +"((letrec-values(((for-loop_180)" "(lambda(fold-var_195" -" lst_208)" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_208)" +" lst_206)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_208))" +" lst_206))" "((rest_108)" "(unsafe-cdr" -" lst_208)))" +" lst_206)))" "(let-values(((fold-var_196)" "(let-values(((fold-var_197)" " fold-var_195))" @@ -29423,14 +29429,14 @@ static const char *startup_source = " fold-var_198)))))" "(if(not" " #f)" -"(for-loop_181" +"(for-loop_180" " fold-var_196" " rest_108)" " fold-var_196)))" " fold-var_195)))))" -" for-loop_181)" +" for-loop_180)" " null" -" lst_207)))))" +" lst_205)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29463,16 +29469,16 @@ static const char *startup_source = " table_165)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_202" " table_163" " rest_107)" " table_163)))" " table_162)))))" -" for-loop_203)" +" for-loop_202)" " '#hasheq()" -" lst_205)))))" +" lst_203)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_115)" +"(let-values(((ht_114)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29480,18 +29486,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_115)))" -"((letrec-values(((for-loop_204)" +" ht_114)))" +"((letrec-values(((for-loop_203)" "(lambda(table_166" -" i_140)" +" i_141)" "(begin" " 'for-loop" -"(if i_140" +"(if i_141" "(let-values(((phase_53" " l+mu*s_0)" "(hash-iterate-key+value" -" ht_115" -" i_140)))" +" ht_114" +" i_141)))" "(let-values(((table_167)" "(let-values(((table_125)" " table_166))" @@ -29512,19 +29518,19 @@ static const char *startup_source = " table_126)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_203" " table_167" "(hash-iterate-next" -" ht_115" -" i_140))" +" ht_114" +" i_141))" " table_167)))" " table_166)))))" -" for-loop_204)" +" for-loop_203)" " '#hasheq()" "(hash-iterate-first" -" ht_115))))))" +" ht_114))))))" "(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_116)" +"(let-values(((ht_115)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29532,18 +29538,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_116)))" -"((letrec-values(((for-loop_205)" +" ht_115)))" +"((letrec-values(((for-loop_204)" "(lambda(table_168" -" i_141)" +" i_142)" "(begin" " 'for-loop" -"(if i_141" +"(if i_142" "(let-values(((phase_78" " l+mu*s_1)" "(hash-iterate-key+value" -" ht_116" -" i_141)))" +" ht_115" +" i_142)))" "(let-values(((table_169)" "(let-values(((table_42)" " table_168))" @@ -29565,23 +29571,23 @@ static const char *startup_source = " table_170)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_204" " table_169" "(hash-iterate-next" -" ht_116" -" i_141))" +" ht_115" +" i_142))" " table_169)))" " table_168)))))" -" for-loop_205)" +" for-loop_204)" " '#hasheq()" "(hash-iterate-first" -" ht_116))))))" +" ht_115))))))" "(let-values(((phase-to-link-module-uses-expr_0)" "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_1" " mpis_15)))" "(let-values(((phase-to-link-extra-inspectorsss_0)" -"(let-values(((ht_117)" +"(let-values(((ht_116)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29589,18 +29595,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_117)))" -"((letrec-values(((for-loop_206)" +" ht_116)))" +"((letrec-values(((for-loop_205)" "(lambda(table_171" -" i_142)" +" i_143)" "(begin" " 'for-loop" -"(if i_142" +"(if i_143" "(let-values(((phase_79" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_117" -" i_142)))" +" ht_116" +" i_143)))" "(let-values(((table_172)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" @@ -29613,7 +29619,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_127)" "(lambda(table_173)" "(begin" " 'for-loop" @@ -29640,21 +29646,21 @@ static const char *startup_source = " table_46)))" " table_175))))" " table_174))))))" -" for-loop_126)" +" for-loop_127)" " table_171)))))" "(if(not" " #f)" -"(for-loop_206" +"(for-loop_205" " table_172" "(hash-iterate-next" -" ht_117" -" i_142))" +" ht_116" +" i_143))" " table_172)))" " table_171)))))" -" for-loop_206)" +" for-loop_205)" " '#hash()" "(hash-iterate-first" -" ht_117))))))" +" ht_116))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29679,25 +29685,25 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_209) ids_7)" -"((lst_210) binding-syms_2)" -"((lst_119)" -"(let-values(((or-part_109) trans-exprs_0))" -"(if or-part_109" -" or-part_109" +"(let-values(((lst_207) ids_7)" +"((lst_208) binding-syms_2)" +"((lst_117)" +"(let-values(((or-part_108) trans-exprs_0))" +"(if or-part_108" +" or-part_108" "(reverse$1" -"(let-values(((lst_120) ids_7))" +"(let-values(((lst_118) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_120)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_199 lst_211)" +"(let-values()(check-list lst_118)))" +"((letrec-values(((for-loop_206)" +"(lambda(fold-var_199 lst_209)" "(begin" " 'for-loop" -"(if(pair? lst_211)" -"(let-values(((id_48)(unsafe-car lst_211))" -"((rest_109)(unsafe-cdr lst_211)))" +"(if(pair? lst_209)" +"(let-values(((id_48)(unsafe-car lst_209))" +"((rest_109)(unsafe-cdr lst_209)))" "(let-values(((fold-var_200)" "(let-values(((fold-var_201)" " fold-var_199))" @@ -29709,33 +29715,33 @@ static const char *startup_source = " fold-var_201))))" "(values fold-var_202)))))" "(if(not #f)" -"(for-loop_207 fold-var_200 rest_109)" +"(for-loop_206 fold-var_200 rest_109)" " fold-var_200)))" " fold-var_199)))))" -" for-loop_207)" +" for-loop_206)" " null" -" lst_120))))))))" +" lst_118))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_209)))" +"(let-values()(check-list lst_207)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_210)))" +"(let-values()(check-list lst_208)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_119)))" -"((letrec-values(((for-loop_208)" -"(lambda(fold-var_203 lst_212 lst_3 lst_213)" +"(let-values()(check-list lst_117)))" +"((letrec-values(((for-loop_207)" +"(lambda(fold-var_203 lst_210 lst_3 lst_211)" "(begin" " 'for-loop" -"(if(if(pair? lst_212)(if(pair? lst_3)(pair? lst_213) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_212))" -"((rest_110)(unsafe-cdr lst_212))" +"(if(if(pair? lst_210)(if(pair? lst_3)(pair? lst_211) #f) #f)" +"(let-values(((id_49)(unsafe-car lst_210))" +"((rest_110)(unsafe-cdr lst_210))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_111)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_213))" -"((rest_112)(unsafe-cdr lst_213)))" +"((trans-expr_0)(unsafe-car lst_211))" +"((rest_112)(unsafe-cdr lst_211)))" "(let-values(((fold-var_204)" "(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" @@ -29761,14 +29767,14 @@ static const char *startup_source = " fold-var_205))))" "(values fold-var_206)))))" "(if(not #f)" -"(for-loop_208 fold-var_204 rest_110 rest_111 rest_112)" +"(for-loop_207 fold-var_204 rest_110 rest_111 rest_112)" " fold-var_204)))" " fold-var_203)))))" -" for-loop_208)" +" for-loop_207)" " null" -" lst_209" -" lst_210" -" lst_119))))))))))))))" +" lst_207" +" lst_208" +" lst_117))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29789,36 +29795,36 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_214) gen-syms_1))" +"(let-values(((lst_212) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_214)))" -"((letrec-values(((for-loop_209)" -"(lambda(fold-var_207 lst_215)" +"(let-values()(check-list lst_212)))" +"((letrec-values(((for-loop_208)" +"(lambda(fold-var_207 lst_213)" "(begin" " 'for-loop" -"(if(pair? lst_215)" -"(let-values(((s_299)(unsafe-car lst_215))((rest_113)(unsafe-cdr lst_215)))" +"(if(pair? lst_213)" +"(let-values(((s_299)(unsafe-car lst_213))((rest_113)(unsafe-cdr lst_213)))" "(let-values(((fold-var_208)" "(let-values(((fold-var_209) fold-var_207))" "(let-values(((fold-var_210)" "(let-values()" "(cons(let-values() ''#f) fold-var_209))))" "(values fold-var_210)))))" -"(if(not #f)(for-loop_209 fold-var_208 rest_113) fold-var_208)))" +"(if(not #f)(for-loop_208 fold-var_208 rest_113) fold-var_208)))" " fold-var_207)))))" -" for-loop_209)" +" for-loop_208)" " null" -" lst_214)))))))" +" lst_212)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_158)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_158(correlated-property e_36 'compiler-hint:cross-module-inline v_158) e_36)))))" +"(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)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29839,17 +29845,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_145) init-mu*s_0))" +"(let-values(((lst_143) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_145)))" -"((letrec-values(((for-loop_170)" -"(lambda(lst_216)" +"(let-values()(check-list lst_143)))" +"((letrec-values(((for-loop_169)" +"(lambda(lst_214)" "(begin" " 'for-loop" -"(if(pair? lst_216)" -"(let-values(((mu*_6)(unsafe-car lst_216))((rest_114)(unsafe-cdr lst_216)))" +"(if(pair? lst_214)" +"(let-values(((mu*_6)(unsafe-car lst_214))((rest_114)(unsafe-cdr lst_214)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29858,10 +29864,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_170 rest_114)(values))))" +"(if(not #f)(for-loop_169 rest_114)(values))))" "(values))))))" -" for-loop_170)" -" lst_145)))" +" for-loop_169)" +" lst_143)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29873,10 +29879,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_215)" +"(let-values(((or-part_216)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_215" -" or-part_215" +"(if or-part_216" +" or-part_216" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -29897,37 +29903,37 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_217) mus_2)" -"((lst_218)" +"(let-values(((lst_215) mus_2)" +"((lst_216)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_219)" -"(let-values(((or-part_216) extra-inspectorsss_3))" -"(if or-part_216 or-part_216 mus_2))))" +"((lst_217)" +"(let-values(((or-part_217) extra-inspectorsss_3))" +"(if or-part_217 or-part_217 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_215)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_216)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_217)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_218)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_210)" -"(lambda(fold-var_211 lst_220 lst_221 lst_222)" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_211 lst_218 lst_219 lst_220)" "(begin" " 'for-loop" -"(if(if(pair? lst_220)" -"(if(pair? lst_221)(pair? lst_222) #f)" +"(if(if(pair? lst_218)" +"(if(pair? lst_219)(pair? lst_220) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_220))" -"((rest_115)(unsafe-cdr lst_220))" -"((imports_3)(unsafe-car lst_221))" -"((rest_116)(unsafe-cdr lst_221))" +"(let-values(((sub-mu_0)(unsafe-car lst_218))" +"((rest_115)(unsafe-cdr lst_218))" +"((imports_3)(unsafe-car lst_219))" +"((rest_116)(unsafe-cdr lst_219))" "((extra-inspectorss_13)" -"(unsafe-car lst_222))" -"((rest_117)(unsafe-cdr lst_222)))" +"(unsafe-car lst_220))" +"((rest_117)(unsafe-cdr lst_220)))" "(let-values(((fold-var_212)" "(let-values(((fold-var_213)" " fold-var_211))" @@ -29957,18 +29963,18 @@ static const char *startup_source = " fold-var_213))))" "(values fold-var_214)))))" "(if(not #f)" -"(for-loop_210" +"(for-loop_209" " fold-var_212" " rest_115" " rest_116" " rest_117)" " fold-var_212)))" " fold-var_211)))))" -" for-loop_210)" +" for-loop_209)" " null" -" lst_217" -" lst_218" -" lst_219)))))))" +" lst_215" +" lst_216" +" lst_217)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29981,7 +29987,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_55 i_143)" +"(let-values(((vec_55 i_144)" "(let-values(((vec_56 len_28)" "(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29989,17 +29995,17 @@ static const char *startup_source = "(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_95)" -"(lambda(vec_58 i_144 pos_93)" +"((letrec-values(((for-loop_96)" +"(lambda(vec_58 i_145 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" "(let-values(((mpi_45)" "(unsafe-vector-ref vec_56 pos_93)))" -"(let-values(((vec_59 i_145)" +"(let-values(((vec_59 i_146)" "(let-values(((vec_60) vec_58)" -"((i_57) i_144))" -"(let-values(((vec_61 i_146)" +"((i_57) i_145))" +"(let-values(((vec_61 i_147)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" @@ -30022,19 +30028,19 @@ static const char *startup_source = "(unsafe-fx+" " i_57" " 1)))))))" -"(values vec_61 i_146)))))" +"(values vec_61 i_147)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_96" " vec_59" -" i_145" +" i_146" "(unsafe-fx+ 1 pos_93))" -"(values vec_59 i_145))))" -"(values vec_58 i_144))))))" -" for-loop_95)" +"(values vec_59 i_146))))" +"(values vec_58 i_145))))))" +" for-loop_96)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_55 i_143))))))" +"(shrink-vector vec_55 i_144))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30061,19 +30067,19 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_223)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_221)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_69 lst_90)" +"(let-values()(check-list lst_221)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_69 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_90))" -"((rest_118)(unsafe-cdr lst_90)))" +"(unsafe-car lst_89))" +"((rest_118)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_157)" " fold-var_69))" @@ -30087,12 +30093,12 @@ static const char *startup_source = " fold-var_157))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_105 fold-var_34 rest_118)" +"(for-loop_106 fold-var_34 rest_118)" " fold-var_34)))" " fold-var_69)))))" -" for-loop_105)" +" for-loop_106)" " null" -" lst_223)))))))" +" lst_221)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30125,18 +30131,18 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_82) cims_2))" +"(let-values(((lst_81) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_215 lst_83)" +"(let-values()(check-list lst_81)))" +"((letrec-values(((for-loop_97)" +"(lambda(fold-var_215 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((cim_4)(unsafe-car lst_83))" -"((rest_119)(unsafe-cdr lst_83)))" +"(if(pair? lst_82)" +"(let-values(((cim_4)(unsafe-car lst_82))" +"((rest_119)(unsafe-cdr lst_82)))" "(let-values(((fold-var_158)" "(let-values(((fold-var_166) fold-var_215))" "(let-values(((fold-var_167)" @@ -30154,12 +30160,12 @@ static const char *startup_source = " fold-var_166))))" "(values fold-var_167)))))" "(if(not #f)" -"(for-loop_96 fold-var_158 rest_119)" +"(for-loop_97 fold-var_158 rest_119)" " fold-var_158)))" " fold-var_215)))))" -" for-loop_96)" +" for-loop_97)" " null" -" lst_82))))))))" +" lst_81))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -30183,21 +30189,21 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_224) cims_3)((start_35) 0))" +"(let-values(((lst_222) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_224)))" +"(let-values()(check-list lst_222)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_211)" -"(lambda(table_177 lst_101 pos_95)" +"((letrec-values(((for-loop_210)" +"(lambda(table_177 lst_100 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_101) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_101))" -"((rest_36)(unsafe-cdr lst_101))" +"(if(if(pair? lst_100) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_100))" +"((rest_36)(unsafe-cdr lst_100))" "((i_84) pos_95))" "(let-values(((table_178)" "(let-values(((table_179) table_177))" @@ -30220,14 +30226,14 @@ static const char *startup_source = " val_56)))))" "(values table_180)))))" "(if(not #f)" -"(for-loop_211 table_178 rest_36(+ pos_95 1))" +"(for-loop_210 table_178 rest_36(+ pos_95 1))" " table_178)))" " table_177)))))" -" for-loop_211)" +" for-loop_210)" " '#hasheq()" -" lst_224" +" lst_222" " start_35)))))" -"(let-values(((ht_118)" +"(let-values(((ht_117)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -30239,10 +30245,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_118)" +"(let-values() ht_117)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_118)" +"(1/hash->linklet-directory ht_117)" " #f" " #f" " #f" @@ -30259,9 +30265,9 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_119)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_118)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_119))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_118))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -30275,12 +30281,12 @@ static const char *startup_source = "(let-values(((fold-var_171)" "(let-values(((top_0)" "(hash-ref" -" ht_119" +" ht_118" "(string->symbol(number->string i_92))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_113)" "(lambda(fold-var_66)" "(begin" " 'for-loop" @@ -30301,7 +30307,7 @@ static const char *startup_source = " fold-var_219)))" " fold-var_217))))" " fold-var_72))))))" -" for-loop_112)" +" for-loop_113)" " fold-var_216)))))" "(if(not #f)(for-loop_10 fold-var_171(+ pos_96 inc_19)) fold-var_171)))" " fold-var_216)))))" @@ -30529,15 +30535,15 @@ static const char *startup_source = " s_300)))" " s_84))" "((e20_0)" -"(let-values(((s_160)" +"(let-values(((s_159)" "(cdr" " s_300)))" "(let-values(((s_301)" "(if(1/syntax?" -" s_160)" +" s_159)" "(syntax-e$2" -" s_160)" -" s_160)))" +" s_159)" +" s_159)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" " s_301)))" @@ -30571,8 +30577,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_217)" "(if(let-values(((or-part_218)" +"(if(let-values(((or-part_219)" "(if(known-struct-op?" " d_19)" "(if(eq?" @@ -30585,8 +30591,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_219" +" or-part_219" "(if(known-function?" " d_19)" "(if(known-function-pure?" @@ -30606,19 +30612,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_8)))" -"((letrec-values(((for-loop_212)" +"((letrec-values(((for-loop_211)" "(lambda(result_81" -" lst_225)" +" lst_223)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_223)" "(let-values(((e_42)" "(unsafe-car" -" lst_225))" +" lst_223))" "((rest_120)" "(unsafe-cdr" -" lst_225)))" +" lst_223)))" "(let-values(((result_40)" "(let-values()" "(let-values(((result_82)" @@ -30639,17 +30645,17 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_212" +"(for-loop_211" " result_40" " rest_120)" " result_40)))" " result_81)))))" -" for-loop_212)" +" for-loop_211)" " #t" " lst_8)))" " #f)))" -"(if or-part_217" -" or-part_217" +"(if or-part_218" +" or-part_218" "(if(known-function-of-satisfying?" " d_19)" "(if(=" @@ -30659,7 +30665,7 @@ static const char *startup_source = " d_19)))" "(let-values(((lst_10)" " e18_0)" -"((lst_226)" +"((lst_224)" "(known-function-of-satisfying-arg-predicate-keys" " d_19)))" "(begin" @@ -30674,30 +30680,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" -"((letrec-values(((for-loop_98)" +" lst_224)))" +"((letrec-values(((for-loop_99)" "(lambda(result_83" -" lst_180" -" lst_227)" +" lst_178" +" lst_225)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_180)" +" lst_178)" "(pair?" -" lst_227)" +" lst_225)" " #f)" "(let-values(((e_43)" "(unsafe-car" -" lst_180))" +" lst_178))" "((rest_121)" "(unsafe-cdr" -" lst_180))" +" lst_178))" "((key_65)" "(unsafe-car" -" lst_227))" +" lst_225))" "((rest_122)" "(unsafe-cdr" -" lst_227)))" +" lst_225)))" "(let-values(((result_42)" "(let-values()" "(let-values(((result_43)" @@ -30730,27 +30736,27 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_98" +"(for-loop_99" " result_42" " rest_121" " rest_122)" " result_42)))" " result_83)))))" -" for-loop_98)" +" for-loop_99)" " #t" " lst_10" -" lst_226)))" +" lst_224)))" " #f)" " #f)))" " 1" " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_165)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_164" -" or-part_164" +"(if or-part_165" +" or-part_165" "(if(symbol? v_4)" "(let-values(((or-part_35)" "(hash-ref" @@ -30783,18 +30789,18 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_169) e_39))" -"(let-values(((orig-s_24) s_169))" +"(let-values(((s_168) e_39))" +"(let-values(((orig-s_24) s_168))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" "(let-values(((s_302)" "(if(1/syntax?" -" s_169)" +" s_168)" "(syntax-e$2" -" s_169)" -" s_169)))" +" s_168)" +" s_168)))" "(if(pair? s_302)" "(let-values(((_25_0)" "(let-values(((s_28)" @@ -30820,7 +30826,7 @@ static const char *startup_source = "(let-values(((s_303)" "(car" " s_30)))" -"(let-values(((s_157)" +"(let-values(((s_156)" "(if(1/syntax?" " s_303)" "(syntax-e$2" @@ -30828,7 +30834,7 @@ static const char *startup_source = " s_303)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_157)))" +" s_156)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30843,7 +30849,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_228)" +"(let-values(((lst_226)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30851,21 +30857,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_228)))" -"((letrec-values(((for-loop_213)" +" lst_226)))" +"((letrec-values(((for-loop_212)" "(lambda(ids_9" " rhs_5" -" lst_229)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_229)" +" lst_227)" "(let-values(((s_304)" "(unsafe-car" -" lst_229))" +" lst_227))" "((rest_123)" "(unsafe-cdr" -" lst_229)))" +" lst_227)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30912,14 +30918,14 @@ static const char *startup_source = "(let-values(((s_308)" "(cdr" " s_307)))" -"(let-values(((s_156)" +"(let-values(((s_155)" "(if(1/syntax?" " s_308)" "(syntax-e$2" " s_308)" " s_308)))" "(if(null?" -" s_156)" +" s_155)" "(values)" "((lambda(false_3" " str_7" @@ -30962,7 +30968,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_213" +"(for-loop_212" " ids_10" " rhs_6" " rest_123)" @@ -30972,10 +30978,10 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_213)" +" for-loop_212)" " null" " null" -" lst_228)))))" +" lst_226)))))" "(values" "(reverse$1" " ids_8)" @@ -31061,40 +31067,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_230) ids22_0)" -"((lst_231) rhs23_0))" +"(let-values(((lst_228) ids22_0)" +"((lst_229) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_230)))" +"(let-values()(check-list lst_228)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_231)))" -"((letrec-values(((for-loop_214)" +"(let-values()(check-list lst_229)))" +"((letrec-values(((for-loop_213)" "(lambda(result_84" -" lst_232" -" lst_199)" +" lst_230" +" lst_197)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_232)" +" lst_230)" "(pair?" -" lst_199)" +" lst_197)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_232))" +" lst_230))" "((rest_103)" "(unsafe-cdr" -" lst_232))" +" lst_230))" "((rhs_9)" "(unsafe-car" -" lst_199))" +" lst_197))" "((rest_124)" "(unsafe-cdr" -" lst_199)))" +" lst_197)))" "(let-values(((result_85)" "(let-values()" "(let-values(((result_14)" @@ -31119,16 +31125,16 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_214" +"(for-loop_213" " result_85" " rest_103" " rest_124)" " result_85)))" " result_84)))))" -" for-loop_214)" +" for-loop_213)" " #f" -" lst_230" -" lst_231))))" +" lst_228" +" lst_229))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31189,25 +31195,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_157) e39_0))" +"(if(let-values(((lst_155) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_157)))" -"((letrec-values(((for-loop_215)" +"(let-values()(check-list lst_155)))" +"((letrec-values(((for-loop_214)" "(lambda(result_61" -" lst_233)" +" lst_231)" "(begin" " 'for-loop" "(if(pair?" -" lst_233)" +" lst_231)" "(let-values(((e_54)" "(unsafe-car" -" lst_233))" +" lst_231))" "((rest_125)" "(unsafe-cdr" -" lst_233)))" +" lst_231)))" "(let-values(((result_86)" "(let-values()" "(let-values(((result_87)" @@ -31228,14 +31234,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_215" +"(for-loop_214" " result_86" " rest_125)" " result_86)))" " result_61)))))" -" for-loop_215)" +" for-loop_214)" " #t" -" lst_157)))" +" lst_155)))" "(length e39_0)" " #f)))" "(let-values()" @@ -31294,25 +31300,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_234) e43_0))" +"(if(let-values(((lst_232) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_234)))" -"((letrec-values(((for-loop_216)" +"(let-values()(check-list lst_232)))" +"((letrec-values(((for-loop_215)" "(lambda(result_88" -" lst_235)" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_235)" +" lst_233)" "(let-values(((e_57)" "(unsafe-car" -" lst_235))" +" lst_233))" "((rest_126)" "(unsafe-cdr" -" lst_235)))" +" lst_233)))" "(let-values(((result_89)" "(let-values()" "(let-values(((result_90)" @@ -31333,14 +31339,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_216" +"(for-loop_215" " result_89" " rest_126)" " result_89)))" " result_88)))))" -" for-loop_216)" +" for-loop_215)" " #t" -" lst_234)))" +" lst_232)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" @@ -31350,31 +31356,31 @@ static const char *startup_source = "(let-values(((s_318) e_39))" "(let-values(((orig-s_27) s_318))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_103)" +"(let-values(((s_102)" "(if(1/syntax?" " s_318)" "(syntax-e$2" " s_318)" " s_318)))" -"(if(pair? s_103)" +"(if(pair? s_102)" "(let-values(((_48_0)" -"(let-values(((s_105)" -"(car" -" s_103)))" -" s_105))" -"((e49_0)" -"(let-values(((s_208)" -"(cdr" -" s_103)))" "(let-values(((s_319)" +"(car" +" s_102)))" +" s_319))" +"((e49_0)" +"(let-values(((s_105)" +"(cdr" +" s_102)))" +"(let-values(((s_320)" "(if(1/syntax?" -" s_208)" +" s_105)" "(syntax-e$2" -" s_208)" -" s_208)))" +" s_105)" +" s_105)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_319)))" +" s_320)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31444,35 +31450,35 @@ static const char *startup_source = " s_216))" "((e054_0" " e55_0)" -"(let-values(((s_115)" +"(let-values(((s_217)" "(cdr" " s_215)))" -"(let-values(((s_217)" +"(let-values(((s_115)" "(if(1/syntax?" -" s_115)" -"(syntax-e$2" -" s_115)" -" s_115)))" -"(if(pair?" " s_217)" -"(let-values(((e056_0)" -"(let-values(((s_116)" -"(car" -" s_217)))" -" s_116))" -"((e57_0)" -"(let-values(((s_117)" -"(cdr" -" s_217)))" -"(let-values(((s_118)" -"(if(1/syntax?" -" s_117)" "(syntax-e$2" -" s_117)" -" s_117)))" +" s_217)" +" s_217)))" +"(if(pair?" +" s_115)" +"(let-values(((e056_0)" +"(let-values(((s_218)" +"(car" +" s_115)))" +" s_218))" +"((e57_0)" +"(let-values(((s_116)" +"(cdr" +" s_115)))" +"(let-values(((s_117)" +"(if(1/syntax?" +" s_116)" +"(syntax-e$2" +" s_116)" +" s_116)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_118)))" +" s_117)))" "(if(not" " flat-s_5)" "(let-values()" @@ -31522,17 +31528,17 @@ static const char *startup_source = "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_45)" "(lambda(result_91" -" lst_236)" +" lst_234)" "(begin" " 'for-loop" "(if(pair?" -" lst_236)" +" lst_234)" "(let-values(((e_63)" "(unsafe-car" -" lst_236))" +" lst_234))" "((rest_127)" "(unsafe-cdr" -" lst_236)))" +" lst_234)))" "(let-values(((result_92)" "(let-values()" "(let-values(((result_93)" @@ -31600,134 +31606,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_320) e_39))" -"(if(let-values(((s_223)" -"(if(1/syntax?" -" s_320)" -"(syntax-e$2" -" s_320)" -" s_320)))" -"(if(pair? s_223)" +"(let-values(((s_321) e_39))" "(if(let-values(((s_224)" -"(car" -" s_223)))" -" #t)" -"(let-values(((s_321)" -"(cdr" -" s_223)))" -"(let-values(((s_225)" "(if(1/syntax?" " s_321)" "(syntax-e$2" " s_321)" " s_321)))" -"(if(pair? s_225)" -"(if(let-values(((s_226)" +"(if(pair? s_224)" +"(if(let-values(((s_225)" "(car" -" s_225)))" -"(let-values(((s_227)" -"(if(1/syntax?" -" s_226)" -"(syntax-e$2" -" s_226)" -" s_226)))" -"(if(pair?" -" s_227)" -"(if(let-values(((s_322)" -"(car" -" s_227)))" -"(let-values(((or-part_219)" +" s_224)))" +" #t)" +"(let-values(((s_322)" +"(cdr" +" s_224)))" +"(let-values(((s_226)" "(if(1/syntax?" " s_322)" -"(symbol?" "(syntax-e$2" -" s_322))" -" #f)))" -"(if or-part_219" -" or-part_219" -"(symbol?" -" s_322))))" -"(let-values(((s_323)" -"(cdr" -" s_227)))" -"(let-values(((s_324)" -"(if(1/syntax?" -" s_323)" -"(syntax-e$2" -" s_323)" -" s_323)))" -"(if(pair?" -" s_324)" -"(if(let-values(((s_325)" +" s_322)" +" s_322)))" +"(if(pair? s_226)" +"(if(let-values(((s_227)" "(car" -" s_324)))" +" s_226)))" +"(let-values(((s_228)" +"(if(1/syntax?" +" s_227)" +"(syntax-e$2" +" s_227)" +" s_227)))" +"(if(pair?" +" s_228)" +"(if(let-values(((s_323)" +"(car" +" s_228)))" "(let-values(((or-part_220)" "(if(1/syntax?" -" s_325)" +" s_323)" "(symbol?" "(syntax-e$2" -" s_325))" +" s_323))" " #f)))" "(if or-part_220" " or-part_220" "(symbol?" -" s_325))))" -"(let-values(((s_326)" +" s_323))))" +"(let-values(((s_324)" "(cdr" +" s_228)))" +"(let-values(((s_325)" +"(if(1/syntax?" +" s_324)" +"(syntax-e$2" +" s_324)" " s_324)))" +"(if(pair?" +" s_325)" +"(if(let-values(((s_326)" +"(car" +" s_325)))" +"(let-values(((or-part_221)" +"(if(1/syntax?" +" s_326)" +"(symbol?" +"(syntax-e$2" +" s_326))" +" #f)))" +"(if or-part_221" +" or-part_221" +"(symbol?" +" s_326))))" "(let-values(((s_327)" -"(if(1/syntax?" -" s_326)" -"(syntax-e$2" -" s_326)" -" s_326)))" -"(null?" -" s_327)))" -" #f)" -" #f)))" -" #f)" -" #f)))" +"(cdr" +" s_325)))" "(let-values(((s_328)" -"(cdr" -" s_225)))" -"(let-values(((s_329)" "(if(1/syntax?" -" s_328)" +" s_327)" "(syntax-e$2" -" s_328)" -" s_328)))" -"(if(pair?" -" s_329)" -"(if(let-values(((s_330)" -"(car" -" s_329)))" -" #t)" -"(let-values(((s_331)" -"(cdr" -" s_329)))" -"(let-values(((s_332)" -"(if(1/syntax?" -" s_331)" -"(syntax-e$2" -" s_331)" -" s_331)))" -"(if(pair?" -" s_332)" -"(if(let-values(((s_333)" -"(car" -" s_332)))" -" #t)" -"(let-values(((s_334)" -"(cdr" -" s_332)))" -"(let-values(((s_335)" -"(if(1/syntax?" -" s_334)" -"(syntax-e$2" -" s_334)" -" s_334)))" +" s_327)" +" s_327)))" "(null?" +" s_328)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_329)" +"(cdr" +" s_226)))" +"(let-values(((s_330)" +"(if(1/syntax?" +" s_329)" +"(syntax-e$2" +" s_329)" +" s_329)))" +"(if(pair?" +" s_330)" +"(if(let-values(((s_331)" +"(car" +" s_330)))" +" #t)" +"(let-values(((s_332)" +"(cdr" +" s_330)))" +"(let-values(((s_333)" +"(if(1/syntax?" +" s_332)" +"(syntax-e$2" +" s_332)" +" s_332)))" +"(if(pair?" +" s_333)" +"(if(let-values(((s_334)" +"(car" +" s_333)))" +" #t)" +"(let-values(((s_335)" +"(cdr" +" s_333)))" +"(let-values(((s_336)" +"(if(1/syntax?" +" s_335)" +"(syntax-e$2" +" s_335)" " s_335)))" +"(null?" +" s_336)))" " #f)" " #f)))" " #f)" @@ -31742,71 +31748,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_229)" +"(let-values(((s_230)" "(if(1/syntax?" -" s_320)" +" s_321)" "(syntax-e$2" -" s_320)" -" s_320)))" +" s_321)" +" s_321)))" "(let-values(((_63_0)" -"(let-values(((s_232)" +"(let-values(((s_233)" "(car" -" s_229)))" -" s_232))" +" s_230)))" +" s_233))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_336)" -"(cdr" -" s_229)))" "(let-values(((s_337)" +"(cdr" +" s_230)))" +"(let-values(((s_338)" "(if(1/syntax?" -" s_336)" +" s_337)" "(syntax-e$2" -" s_336)" -" s_336)))" +" s_337)" +" s_337)))" "(let-values(((id:rator68_0" " id:arg69_0)" -"(let-values(((s_338)" -"(car" -" s_337)))" "(let-values(((s_339)" -"(if(1/syntax?" -" s_338)" -"(syntax-e$2" -" s_338)" +"(car" " s_338)))" -"(let-values(((id:rator72_0)" "(let-values(((s_340)" -"(car" -" s_339)))" -" s_340))" -"((id:arg73_0)" -"(let-values(((s_236)" -"(cdr" +"(if(1/syntax?" +" s_339)" +"(syntax-e$2" +" s_339)" " s_339)))" +"(let-values(((id:rator72_0)" "(let-values(((s_341)" -"(if(1/syntax?" -" s_236)" -"(syntax-e$2" -" s_236)" -" s_236)))" -"(let-values(((id:arg74_0)" -"(let-values(((s_342)" "(car" -" s_341)))" -" s_342))" -"(()" -"(let-values(((s_343)" +" s_340)))" +" s_341))" +"((id:arg73_0)" +"(let-values(((s_237)" "(cdr" -" s_341)))" -"(let-values(((s_344)" +" s_340)))" +"(let-values(((s_342)" "(if(1/syntax?" -" s_343)" +" s_237)" "(syntax-e$2" -" s_343)" -" s_343)))" +" s_237)" +" s_237)))" +"(let-values(((id:arg74_0)" +"(let-values(((s_343)" +"(car" +" s_342)))" +" s_343))" +"(()" +"(let-values(((s_344)" +"(cdr" +" s_342)))" +"(let-values(((s_345)" +"(if(1/syntax?" +" s_344)" +"(syntax-e$2" +" s_344)" +" s_344)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31815,45 +31821,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_345)" -"(cdr" -" s_337)))" "(let-values(((s_346)" -"(if(1/syntax?" -" s_345)" -"(syntax-e$2" -" s_345)" -" s_345)))" -"(let-values(((thn75_0)" +"(cdr" +" s_338)))" "(let-values(((s_347)" -"(car" +"(if(1/syntax?" +" s_346)" +"(syntax-e$2" +" s_346)" " s_346)))" -" s_347))" -"((els76_0)" +"(let-values(((thn75_0)" "(let-values(((s_348)" -"(cdr" -" s_346)))" -"(let-values(((s_349)" -"(if(1/syntax?" -" s_348)" -"(syntax-e$2" -" s_348)" -" s_348)))" -"(let-values(((els77_0)" -"(let-values(((s_350)" "(car" -" s_349)))" -" s_350))" -"(()" -"(let-values(((s_351)" +" s_347)))" +" s_348))" +"((els76_0)" +"(let-values(((s_349)" "(cdr" -" s_349)))" -"(let-values(((s_352)" +" s_347)))" +"(let-values(((s_350)" "(if(1/syntax?" -" s_351)" +" s_349)" "(syntax-e$2" -" s_351)" -" s_351)))" +" s_349)" +" s_349)))" +"(let-values(((els77_0)" +"(let-values(((s_351)" +"(car" +" s_350)))" +" s_351))" +"(()" +"(let-values(((s_352)" +"(cdr" +" s_350)))" +"(let-values(((s_353)" +"(if(1/syntax?" +" s_352)" +"(syntax-e$2" +" s_352)" +" s_352)))" "(values)))))" "(values" " els77_0))))))" @@ -31882,13 +31888,13 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_111)" +"(let-values(((or-part_222)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_111" -" or-part_111" +"(if or-part_222" +" or-part_222" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -31916,74 +31922,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_353) e_39))" -"(if(let-values(((s_354)" +"(let-values(((s_354) e_39))" +"(if(let-values(((s_355)" "(if(1/syntax?" -" s_353)" +" s_354)" "(syntax-e$2" -" s_353)" -" s_353)))" -"(if(pair? s_354)" -"(if(let-values(((s_248)" +" s_354)" +" s_354)))" +"(if(pair? s_355)" +"(if(let-values(((s_249)" "(car" -" s_354)))" -" #t)" -"(let-values(((s_355)" -"(cdr" -" s_354)))" -"(let-values(((s_356)" -"(if(1/syntax?" -" s_355)" -"(syntax-e$2" -" s_355)" " s_355)))" -"(if(pair?" +" #t)" +"(let-values(((s_356)" +"(cdr" +" s_355)))" +"(let-values(((s_357)" +"(if(1/syntax?" " s_356)" -"(if(let-values(((s_357)" +"(syntax-e$2" +" s_356)" +" s_356)))" +"(if(pair?" +" s_357)" +"(if(let-values(((s_358)" "(car" -" s_356)))" +" s_357)))" " #t)" -"(let-values(((s_358)" -"(cdr" -" s_356)))" "(let-values(((s_359)" +"(cdr" +" s_357)))" +"(let-values(((s_360)" "(if(1/syntax?" -" s_358)" -"(syntax-e$2" -" s_358)" -" s_358)))" -"(if(pair?" " s_359)" -"(if(let-values(((s_360)" -"(car" -" s_359)))" -" #t)" -"(let-values(((s_361)" -"(cdr" -" s_359)))" -"(let-values(((s_362)" -"(if(1/syntax?" -" s_361)" "(syntax-e$2" -" s_361)" -" s_361)))" +" s_359)" +" s_359)))" "(if(pair?" -" s_362)" -"(if(let-values(((s_363)" +" s_360)" +"(if(let-values(((s_361)" "(car" -" s_362)))" +" s_360)))" " #t)" -"(let-values(((s_364)" +"(let-values(((s_362)" "(cdr" -" s_362)))" -"(let-values(((s_365)" +" s_360)))" +"(let-values(((s_363)" "(if(1/syntax?" -" s_364)" +" s_362)" "(syntax-e$2" -" s_364)" -" s_364)))" -"(null?" +" 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)))" +"(null?" +" s_366)))" " #f)" " #f)))" " #f)" @@ -31997,75 +32003,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_366)" -"(if(1/syntax?" -" s_353)" -"(syntax-e$2" -" s_353)" -" s_353)))" -"(let-values(((_82_0)" "(let-values(((s_367)" +"(if(1/syntax?" +" s_354)" +"(syntax-e$2" +" s_354)" +" s_354)))" +"(let-values(((_82_0)" +"(let-values(((s_368)" "(car" -" s_366)))" -" s_367))" +" s_367)))" +" s_368))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_368)" -"(cdr" -" s_366)))" "(let-values(((s_369)" -"(if(1/syntax?" -" s_368)" -"(syntax-e$2" -" s_368)" -" s_368)))" -"(let-values(((tst86_0)" +"(cdr" +" s_367)))" "(let-values(((s_370)" -"(car" +"(if(1/syntax?" +" s_369)" +"(syntax-e$2" +" s_369)" " s_369)))" -" s_370))" +"(let-values(((tst86_0)" +"(let-values(((s_371)" +"(car" +" s_370)))" +" s_371))" "((thn87_0" " els88_0)" -"(let-values(((s_371)" -"(cdr" -" s_369)))" "(let-values(((s_372)" -"(if(1/syntax?" -" s_371)" -"(syntax-e$2" -" s_371)" -" s_371)))" -"(let-values(((thn89_0)" -"(let-values(((s_250)" -"(car" -" s_372)))" -" s_250))" -"((els90_0)" +"(cdr" +" s_370)))" "(let-values(((s_373)" -"(cdr" +"(if(1/syntax?" +" s_372)" +"(syntax-e$2" +" s_372)" " s_372)))" -"(let-values(((s_374)" -"(if(1/syntax?" -" s_373)" -"(syntax-e$2" -" s_373)" -" s_373)))" -"(let-values(((els91_0)" -"(let-values(((s_375)" -"(car" -" s_374)))" -" s_375))" -"(()" +"(let-values(((thn89_0)" "(let-values(((s_251)" +"(car" +" s_373)))" +" s_251))" +"((els90_0)" +"(let-values(((s_374)" "(cdr" -" s_374)))" -"(let-values(((s_252)" +" s_373)))" +"(let-values(((s_375)" "(if(1/syntax?" -" s_251)" +" s_374)" "(syntax-e$2" -" s_251)" -" s_251)))" +" s_374)" +" s_374)))" +"(let-values(((els91_0)" +"(let-values(((s_376)" +"(car" +" s_375)))" +" s_376))" +"(()" +"(let-values(((s_252)" +"(cdr" +" s_375)))" +"(let-values(((s_253)" +"(if(1/syntax?" +" s_252)" +"(syntax-e$2" +" s_252)" +" s_252)))" "(values)))))" "(values" " els91_0))))))" @@ -32117,27 +32123,27 @@ static const char *startup_source = "(satisfies?)" "(lambda(e_64 key_66 defns_2 locals_3)" "(begin" -"(let-values(((d_5)" -"(let-values(((or-part_221)(hash-ref locals_3 e_64 #f)))" -"(if or-part_221 or-part_221(lookup-defn defns_2 e_64)))))" -"(if d_5(if(known-satisfies? d_5)(eq? key_66(known-satisfies-predicate-key d_5)) #f) #f)))))" +"(let-values(((d_31)" +"(let-values(((or-part_223)(hash-ref locals_3 e_64 #f)))" +"(if or-part_223 or-part_223(lookup-defn defns_2 e_64)))))" +"(if d_31(if(known-satisfies? d_31)(eq? key_66(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_237) idss_0)((lst_238) rhss_0))" +"(let-values(((lst_235) idss_0)((lst_236) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_238)))" -"((letrec-values(((for-loop_217)" -"(lambda(locals_5 lst_239 lst_240)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" +"((letrec-values(((for-loop_216)" +"(lambda(locals_5 lst_237 lst_238)" "(begin" " 'for-loop" -"(if(if(pair? lst_239)(pair? lst_240) #f)" -"(let-values(((ids_14)(unsafe-car lst_239))" -"((rest_128)(unsafe-cdr lst_239))" -"((rhs_10)(unsafe-car lst_240))" -"((rest_129)(unsafe-cdr lst_240)))" +"(if(if(pair? lst_237)(pair? lst_238) #f)" +"(let-values(((ids_14)(unsafe-car lst_237))" +"((rest_128)(unsafe-cdr lst_237))" +"((rhs_10)(unsafe-car lst_238))" +"((rest_129)(unsafe-cdr lst_238)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32162,10 +32168,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_241)" +"(let-values(((lst_239)" "(correlated->list" " ids_14))" -"((lst_242)" +"((lst_240)" " '(struct-type" " constructor" " predicate" @@ -32177,36 +32183,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_241)))" +" lst_239)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_242)))" -"((letrec-values(((for-loop_218)" +" lst_240)))" +"((letrec-values(((for-loop_217)" "(lambda(locals_9" -" lst_243" -" lst_244)" +" lst_241" +" lst_242)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_243)" +" lst_241)" "(pair?" -" lst_244)" +" lst_242)" " #f)" "(let-values(((id_51)" "(unsafe-car" -" lst_243))" +" lst_241))" "((rest_130)" "(unsafe-cdr" -" lst_243))" +" lst_241))" "((type_0)" "(unsafe-car" -" lst_244))" +" lst_242))" "((rest_131)" "(unsafe-cdr" -" lst_244)))" +" lst_242)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32223,16 +32229,16 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_218" +"(for-loop_217" " locals_10" " rest_130" " rest_131)" " locals_10)))" " locals_9)))))" -" for-loop_218)" +" for-loop_217)" " locals_7" -" lst_241" -" lst_242)))))" +" lst_239" +" lst_240)))))" "(if(equal?" " tmp_27" " 'let-values)" @@ -32247,7 +32253,7 @@ static const char *startup_source = " rhs_11)))" "(loop_90 #f)))" "(let-values()" -"(let-values(((lst_245)" +"(let-values(((lst_243)" "(correlated->list" " ids_14)))" "(begin" @@ -32256,20 +32262,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_245)))" -"((letrec-values(((for-loop_219)" +" lst_243)))" +"((letrec-values(((for-loop_218)" "(lambda(locals_13" -" lst_246)" +" lst_244)" "(begin" " 'for-loop" "(if(pair?" -" lst_246)" +" lst_244)" "(let-values(((id_52)" "(unsafe-car" -" lst_246))" +" lst_244))" "((rest_132)" "(unsafe-cdr" -" lst_246)))" +" lst_244)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32284,50 +32290,50 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_219" +"(for-loop_218" " locals_14" " rest_132)" " locals_14)))" " locals_13)))))" -" for-loop_219)" +" for-loop_218)" " locals_7" -" lst_245)))))))))))" +" lst_243)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_217 locals_6 rest_128 rest_129) locals_6)))" +"(if(not #f)(for-loop_216 locals_6 rest_128 rest_129) locals_6)))" " locals_5)))))" -" for-loop_217)" +" for-loop_216)" " locals_4" -" lst_237" -" lst_238))))))" +" lst_235" +" lst_236))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_65 defns_3)" "(begin" "(let-values(((l_57)(correlated->list e_65)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_247)(cdr l_57))" -"((lst_248)" +"(let-values(((lst_245)(cdr l_57))" +"((lst_246)" "(list" -"(lambda(v_159)(quoted? symbol? v_159))" -"(lambda(v_160)(is-lambda? v_160 2 defns_3))" -"(lambda(v_161)(ok-make-struct-type-property-super? v_161 defns_3))" -"(lambda(v_162)" -"(let-values(((v92_0) v_162)((temp93_1) 1)((defns94_0) defns_3))" +"(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))" "(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)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_171)" -"(lambda(result_94 lst_150 lst_249)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" +"((letrec-values(((for-loop_170)" +"(lambda(result_94 lst_148 lst_247)" "(begin" " 'for-loop" -"(if(if(pair? lst_150)(pair? lst_249) #f)" -"(let-values(((arg_0)(unsafe-car lst_150))" -"((rest_133)(unsafe-cdr lst_150))" -"((pred_1)(unsafe-car lst_249))" -"((rest_134)(unsafe-cdr lst_249)))" +"(if(if(pair? lst_148)(pair? lst_247) #f)" +"(let-values(((arg_0)(unsafe-car lst_148))" +"((rest_133)(unsafe-cdr lst_148))" +"((pred_1)(unsafe-car lst_247))" +"((rest_134)(unsafe-cdr lst_247)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" @@ -32336,38 +32342,38 @@ static const char *startup_source = "(if(if(not((lambda x_59(not result_95)) arg_0))" "(if(not((lambda x_60(not result_95)) pred_1))(not #f) #f)" " #f)" -"(for-loop_171 result_95 rest_133 rest_134)" +"(for-loop_170 result_95 rest_133 rest_134)" " result_95)))" " result_94)))))" -" for-loop_171)" +" for-loop_170)" " #t" -" lst_247" -" lst_248)))" +" lst_245" +" lst_246)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_163 defns_4)" +"(lambda(v_164 defns_4)" "(begin" -"(let-values(((or-part_222)(quoted? null? v_163)))" -"(if or-part_222" -" or-part_222" -"(let-values(((or-part_223)(eq? 'null(correlated-e v_163))))" -"(if or-part_223" -" or-part_223" -"(if(pair?(correlated-e v_163))" -"(if(eq?(correlated-e(car(correlated-e v_163))) 'list)" -"(if(let-values(((lst_250)(cdr(correlated->list v_163))))" +"(let-values(((or-part_224)(quoted? null? v_164)))" +"(if or-part_224" +" or-part_224" +"(let-values(((or-part_225)(eq? 'null(correlated-e v_164))))" +"(if or-part_225" +" or-part_225" +"(if(pair?(correlated-e v_164))" +"(if(eq?(correlated-e(car(correlated-e v_164))) 'list)" +"(if(let-values(((lst_248)(cdr(correlated->list v_164))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_220)" -"(lambda(result_97 lst_251)" +"(let-values()(check-list lst_248)))" +"((letrec-values(((for-loop_219)" +"(lambda(result_97 lst_249)" "(begin" " 'for-loop" -"(if(pair? lst_251)" -"(let-values(((prop+val_0)(unsafe-car lst_251))" -"((rest_135)(unsafe-cdr lst_251)))" +"(if(pair? lst_249)" +"(let-values(((prop+val_0)(unsafe-car lst_249))" +"((rest_135)(unsafe-cdr lst_249)))" "(let-values(((result_98)" "(let-values()" "(let-values(((result_99)" @@ -32384,7 +32390,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_224)" +"(if(let-values(((or-part_226)" "(memq" "(correlated-e" "(list-ref" @@ -32393,8 +32399,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_224" -" or-part_224" +"(if or-part_226" +" or-part_226" "(known-property?" "(lookup-defn" " defns_4" @@ -32427,27 +32433,27 @@ static const char *startup_source = "(if(if(not((lambda x_61(not result_98)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_220 result_98 rest_135)" +"(for-loop_219 result_98 rest_135)" " result_98)))" " result_97)))))" -" for-loop_220)" +" for-loop_219)" " #t" -" lst_250)))" +" lst_248)))" "(=" -"(sub1(correlated-length v_163))" +"(sub1(correlated-length v_164))" "(set-count" -"(let-values(((lst_252)(cdr(correlated->list v_163))))" +"(let-values(((lst_250)(cdr(correlated->list v_164))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_252)))" -"((letrec-values(((for-loop_221)" -"(lambda(table_181 lst_253)" +"(let-values()(check-list lst_250)))" +"((letrec-values(((for-loop_220)" +"(lambda(table_181 lst_251)" "(begin" " 'for-loop" -"(if(pair? lst_253)" -"(let-values(((prop+val_2)(unsafe-car lst_253))" -"((rest_136)(unsafe-cdr lst_253)))" +"(if(pair? lst_251)" +"(let-values(((prop+val_2)(unsafe-car lst_251))" +"((rest_136)(unsafe-cdr lst_251)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" @@ -32467,11 +32473,11 @@ static const char *startup_source = " key_67" " val_57)))))" "(values table_184)))))" -"(if(not #f)(for-loop_221 table_182 rest_136) table_182)))" +"(if(not #f)(for-loop_220 table_182 rest_136) table_182)))" " table_181)))))" -" for-loop_221)" +" for-loop_220)" " '#hash()" -" lst_252)))))" +" lst_250)))))" " #f)" " #f)" " #f))))))))" @@ -32487,21 +32493,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_225)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_225 or-part_225 'null))))" +"(let-values(((or-part_227)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_227 or-part_227 '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)" +"(let-values(((lst_252)(cdr l_58))" +"((lst_253)" "(list" -"(lambda(v_164)(quoted? symbol? v_164))" -"(lambda(v_165)(super-ok? v_165 defns_5))" -"(lambda(v_166)(field-count-expr-to-field-count v_166))" +"(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)" +"(lambda(v_168)(field-count-expr-to-field-count v_168))" +"(lambda(v_169)" "(not" -"(let-values(((v98_0) v_168)" +"(let-values(((v98_0) v_169)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32514,27 +32520,27 @@ static const char *startup_source = " #t" " v98_0" " temp99_0))))" -"(lambda(v_169)" -"(known-good-struct-properties? v_169 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_170)(inspector-or-false? v_170))" -"(lambda(v_171)(procedure-spec? v_171 num-fields_0))" -"(lambda(v_172)(immutables-ok? v_172 init-field-count-expr_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)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_254)))" +"(let-values()(check-list lst_252)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_100 lst_256 lst_132)" +"(let-values()(check-list lst_253)))" +"((letrec-values(((for-loop_221)" +"(lambda(result_100 lst_254 lst_130)" "(begin" " 'for-loop" -"(if(if(pair? lst_256)(pair? lst_132) #f)" -"(let-values(((arg_1)(unsafe-car lst_256))" -"((rest_64)(unsafe-cdr lst_256))" -"((pred_2)(unsafe-car lst_132))" -"((rest_137)(unsafe-cdr lst_132)))" +"(if(if(pair? lst_254)(pair? lst_130) #f)" +"(let-values(((arg_1)(unsafe-car lst_254))" +"((rest_64)(unsafe-cdr lst_254))" +"((pred_2)(unsafe-car lst_130))" +"((rest_137)(unsafe-cdr lst_130)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" @@ -32546,22 +32552,22 @@ static const char *startup_source = "(not #f)" " #f)" " #f)" -"(for-loop_222 result_101 rest_64 rest_137)" +"(for-loop_221 result_101 rest_64 rest_137)" " result_101)))" " result_100)))))" -" for-loop_222)" +" for-loop_221)" " #t" -" lst_254" -" lst_255)))" +" lst_252" +" lst_253)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" "(lambda(e_67 defns_6)" "(begin" -"(let-values(((or-part_226)(quoted? false? e_67)))" -"(if or-part_226" -" or-part_226" +"(let-values(((or-part_228)(quoted? false? e_67)))" +"(if or-part_228" +" or-part_228" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_67))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32572,60 +32578,60 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_173)" +"(lambda(val?_0 v_174)" "(begin" -"(let-values(((or-part_227)" -"(if(pair?(correlated-e v_173))" -"(if(eq?(correlated-e(car(correlated-e v_173))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_173)))" +"(let-values(((or-part_229)" +"(if(pair?(correlated-e v_174))" +"(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_174)))" " #f)" " #f)))" -"(if or-part_227 or-part_227(val?_0(correlated-e v_173)))))))" +"(if or-part_229 or-part_229(val?_0(correlated-e v_174)))))))" "(define-values" "(quoted-value)" -"(lambda(v_174)" -"(begin(if(pair?(correlated-e v_174))(correlated-e(correlated-cadr v_174))(correlated-e v_174)))))" -"(define-values(false?)(lambda(v_175)(begin(eq?(correlated-e v_175) #f))))" +"(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))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_176)(begin(if(quoted? exact-nonnegative-integer? v_176)(quoted-value v_176) #f))))" +"(lambda(v_177)(begin(if(quoted? exact-nonnegative-integer? v_177)(quoted-value v_177) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_177)" +"(lambda(v_178)" "(begin" -"(let-values(((or-part_228)(quoted? false? v_177)))" -"(if or-part_228" -" or-part_228" -"(let-values(((or-part_229)(if(quoted? symbol? v_177)(eq? 'prefab(quoted-value v_177)) #f)))" -"(if or-part_229" -" or-part_229" -"(if(= 1(correlated-length v_177))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_177))))" +"(let-values(((or-part_230)(quoted? false? v_178)))" +"(if or-part_230" +" or-part_230" +"(let-values(((or-part_231)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" +"(if or-part_231" +" or-part_231" +"(if(= 1(correlated-length v_178))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_178 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_230)(quoted? null? v_178)))" -"(if or-part_230" -" or-part_230" -"(let-values(((or-part_231)(eq? 'null(correlated-e v_178))))" -"(if or-part_231" -" or-part_231" -"(if(pair?(correlated-e v_178))" -"(if(eq?(correlated-e(car(correlated-e v_178))) 'list)" -"(if(let-values(((lst_257)(cdr(correlated->list v_178))))" +"(let-values(((or-part_232)(quoted? null? v_179)))" +"(if or-part_232" +" or-part_232" +"(let-values(((or-part_233)(eq? 'null(correlated-e v_179))))" +"(if or-part_233" +" or-part_233" +"(if(pair?(correlated-e v_179))" +"(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" +"(if(let-values(((lst_255)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_223)" -"(lambda(result_103 lst_258)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_222)" +"(lambda(result_103 lst_256)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((prop+val_3)(unsafe-car lst_258))" -"((rest_138)(unsafe-cdr lst_258)))" +"(if(pair? lst_256)" +"(let-values(((prop+val_3)(unsafe-car lst_256))" +"((rest_138)(unsafe-cdr lst_256)))" "(let-values(((result_104)" "(let-values()" "(let-values(((result_105)" @@ -32654,27 +32660,27 @@ static const char *startup_source = "(if(if(not((lambda x_64(not result_104)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_223 result_104 rest_138)" +"(for-loop_222 result_104 rest_138)" " result_104)))" " result_103)))))" -" for-loop_223)" +" for-loop_222)" " #t" -" lst_257)))" +" lst_255)))" "(=" -"(sub1(correlated-length v_178))" +"(sub1(correlated-length v_179))" "(set-count" -"(let-values(((lst_259)(cdr(correlated->list v_178))))" +"(let-values(((lst_257)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_259)))" -"((letrec-values(((for-loop_224)" -"(lambda(table_185 lst_260)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_223)" +"(lambda(table_185 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((prop+val_5)(unsafe-car lst_260))" -"((rest_139)(unsafe-cdr lst_260)))" +"(if(pair? lst_258)" +"(let-values(((prop+val_5)(unsafe-car lst_258))" +"((rest_139)(unsafe-cdr lst_258)))" "(let-values(((table_186)" "(let-values(((table_187) table_185))" "(let-values(((table_188)" @@ -32694,11 +32700,11 @@ static const char *startup_source = " key_68" " val_58)))))" "(values table_188)))))" -"(if(not #f)(for-loop_224 table_186 rest_139) table_186)))" +"(if(not #f)(for-loop_223 table_186 rest_139) table_186)))" " table_185)))))" -" for-loop_224)" +" for-loop_223)" " '#hash()" -" lst_259)))))" +" lst_257)))))" " #f)" " #f)" " #f))))))))" @@ -32710,12 +32716,12 @@ static const char *startup_source = "(let-values(((tmp_28) prop-name_0))" "(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_232)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_232 or-part_232(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_234)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_234 or-part_234(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_233)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_233 or-part_233(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_235)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_235 or-part_235(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_28 'prop:equal+hash)" @@ -32751,26 +32757,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_234)" +"(let-values(((or-part_236)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_235)(not arity_0)))" -"(if or-part_235 or-part_235(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_237)(not arity_0)))" +"(if or-part_237 or-part_237(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_234" -" or-part_234" -"(let-values(((or-part_236)" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" -" #f)))" "(if or-part_236" " or-part_236" +"(let-values(((or-part_238)" +"(if(pair?(correlated-e expr_9))" +"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" +" #f)))" +"(if or-part_238" +" or-part_238" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_237)(not arity_0)))" -"(if or-part_237" -" or-part_237" +"(let-values(((or-part_239)(not arity_0)))" +"(if or-part_239" +" or-part_239" "((letrec-values(((loop_91)" "(lambda(args_4 arity_1)" "(begin" @@ -32791,19 +32797,19 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_238)(equal? a_40 n_25)))" -"(if or-part_238" -" or-part_238" +"(let-values(((or-part_240)(equal? a_40 n_25)))" +"(if or-part_240" +" or-part_240" "(if(list? a_40)" -"(let-values(((lst_68) a_40))" +"(let-values(((lst_67) a_40))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_106 lst_261)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" +"((letrec-values(((for-loop_224)" +"(lambda(result_106 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((a_41)(unsafe-car lst_261))((rest_140)(unsafe-cdr lst_261)))" +"(if(pair? lst_259)" +"(let-values(((a_41)(unsafe-car lst_259))((rest_140)(unsafe-cdr lst_259)))" "(let-values(((result_107)" "(let-values()" "(let-values(((result_108)" @@ -32811,12 +32817,12 @@ static const char *startup_source = "(let-values()(equal? a_41 n_25)))))" "(values result_108)))))" "(if(if(not((lambda x_65 result_107) a_41))(not #f) #f)" -"(for-loop_225 result_107 rest_140)" +"(for-loop_224 result_107 rest_140)" " result_107)))" " result_106)))))" -" for-loop_225)" +" for-loop_224)" " #f" -" lst_68)))" +" lst_67)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32832,28 +32838,28 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_69))(correlated-e(car(correlated-e e_69))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_179)(correlated-cadr e_69)))" -"(let-values(((or-part_239)" -"(if(correlated-length v_179)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_179))))" +"(let-values(((v_180)(correlated-cadr e_69)))" +"(let-values(((or-part_241)" +"(if(correlated-length v_180)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_180))))" "(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_239 or-part_239 fail-v_0))))" +"(if or-part_241 or-part_241 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_70 field-count_1)" "(begin" -"(let-values(((or-part_240)(quoted? false? e_70)))" -"(if or-part_240" -" or-part_240" -"(let-values(((or-part_241)" +"(let-values(((or-part_242)(quoted? false? e_70)))" +"(if or-part_242" +" or-part_242" +"(let-values(((or-part_243)" "(if(quoted? exact-nonnegative-integer? e_70)" "(if field-count_1(<(quoted-value e_70) field-count_1) #f)" " #f)))" -"(if or-part_241 or-part_241(is-lambda? e_70 #f '#hasheq()))))))))" +"(if or-part_243 or-part_243(is-lambda? e_70 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_71 init-field-count-expr_1)" @@ -32861,29 +32867,29 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_71 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_262) l_62))" +"(let-values(((lst_260) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_226)" -"(lambda(result_109 lst_122)" +"(let-values()(check-list lst_260)))" +"((letrec-values(((for-loop_225)" +"(lambda(result_109 lst_120)" "(begin" " 'for-loop" -"(if(pair? lst_122)" -"(let-values(((n_26)(unsafe-car lst_122))((rest_59)(unsafe-cdr lst_122)))" -"(let-values(((result_47)" -"(let-values()" +"(if(pair? lst_120)" +"(let-values(((n_26)(unsafe-car lst_120))((rest_59)(unsafe-cdr lst_120)))" "(let-values(((result_110)" +"(let-values()" +"(let-values(((result_111)" "(let-values()(let-values()(< n_26 c_24)))))" -"(values result_110)))))" -"(if(if(not((lambda x_66(not result_47)) n_26))(not #f) #f)" -"(for-loop_226 result_47 rest_59)" -" result_47)))" +"(values result_111)))))" +"(if(if(not((lambda x_66(not result_110)) n_26))(not #f) #f)" +"(for-loop_225 result_110 rest_59)" +" result_110)))" " result_109)))))" -" for-loop_226)" +" for-loop_225)" " #t" -" lst_262)))" +" lst_260)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -32893,14 +32899,14 @@ static const char *startup_source = "(let-values(((a_42)" "(if(let-values(((or-part_125)(=(length l_63) 3)))" "(if or-part_125 or-part_125(=(length l_63) 4)))" -"(let-values(((or-part_242)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_242 or-part_242(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(let-values(((or-part_126)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_126 or-part_126(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_243)(=(length l_63) 3)))" -"(if or-part_243 or-part_243(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_244)(=(length l_63) 3)))" +"(if or-part_244 or-part_244(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" @@ -32979,10 +32985,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_376 cctx_14)" +"(lambda(s_377 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_376 cctx_14))))" +"(compile-top-level-require s_377 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -33013,12 +33019,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_119)" +"(lambda(ht_118)" "(begin" " 'add-metadata" -"(let-values(((ht_78)(hash-set ht_119 'original-phase phase_81)))" -"(let-values(((ht_120)(hash-set ht_78 'max-phase max-phase_1)))" -" ht_120))))))" +"(let-values(((ht_78)(hash-set ht_118 'original-phase phase_81)))" +"(let-values(((ht_119)(hash-set ht_78 'max-phase max-phase_1)))" +" ht_119))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -33035,11 +33041,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_160)" +"(lambda(s_159)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_160" +" s_159" " #f" "(vector" " deserialize-instance" @@ -33130,24 +33136,24 @@ 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_159)(hash-ref defined-syms_7 phase_83 #f)))" -"(if or-part_159" -" or-part_159" -"(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_83 ht_121) ht_121))))))" +"(let-values(((or-part_160)(hash-ref defined-syms_7 phase_83 #f)))" +"(if or-part_160" +" or-part_160" +"(let-values(((ht_120)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_83 ht_120) ht_120))))))" "(reverse$1" -"(let-values(((lst_81) ids_15))" +"(let-values(((lst_80) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_227)" -"(lambda(fold-var_12 lst_175)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_226)" +"(lambda(fold-var_12 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_175)" -"(let-values(((id_53)(unsafe-car lst_175))" -"((rest_89)(unsafe-cdr lst_175)))" +"(if(pair? lst_173)" +"(let-values(((id_53)(unsafe-car lst_173))" +"((rest_89)(unsafe-cdr lst_173)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_158) fold-var_12))" "(let-values(((fold-var_166)" @@ -33181,7 +33187,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\"" @@ -33190,7 +33196,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_177" +" s_176" " #f)" " id_53" " phase_83" @@ -33198,7 +33204,7 @@ static const char *startup_source = "(loop_92" "(add1" " pos_97))" -" s_177))))))" +" s_176))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33299,20 +33305,20 @@ static const char *startup_source = " fold-var_158))))" "(values fold-var_166)))))" "(if(not #f)" -"(for-loop_227 fold-var_93 rest_89)" +"(for-loop_226 fold-var_93 rest_89)" " fold-var_93)))" " fold-var_12)))))" -" for-loop_227)" +" for-loop_226)" " null" -" lst_81)))))))))))))))))))" +" lst_80)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" "(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_84)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_128)(bound-identifier=?$1 id_54 m-id_0 phase_84)))" -"(if or-part_128" -" or-part_128" +"(let-values(((or-part_129)(bound-identifier=?$1 id_54 m-id_0 phase_84)))" +"(if or-part_129" +" or-part_129" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_84)" " #f)))))))" @@ -33322,9 +33328,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_73))" -"(let-values(((or-part_244)(not top-level-bind-scope_5)))" -"(if or-part_244" -" or-part_244" +"(let-values(((or-part_245)(not top-level-bind-scope_5)))" +"(if or-part_245" +" or-part_245" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33366,8 +33372,8 @@ static const char *startup_source = "(let-values(((or-part_94)(hash-ref defined-syms_8 phase_85 #f)))" "(if or-part_94" " or-part_94" -"(let-values(((ht_122)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_85 ht_122) ht_122))))))" +"(let-values(((ht_121)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_85 ht_121) ht_121))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33380,12 +33386,12 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_263) requires_3))" +"(let-values(((lst_261) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_228)" +"(let-values()(check-list lst_261)))" +"((letrec-values(((for-loop_227)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33402,7 +33408,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_262)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33411,19 +33417,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_264)))" -"((letrec-values(((for-loop_229)" -"(lambda(lst_80)" +" lst_262)))" +"((letrec-values(((for-loop_228)" +"(lambda(lst_79)" "(begin" " 'for-loop" "(if(pair?" -" lst_80)" +" lst_79)" "(let-values(((req_4)" "(unsafe-car" -" lst_80))" +" lst_79))" "((rest_36)" "(unsafe-cdr" -" lst_80)))" +" lst_79)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33488,35 +33494,35 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_228" " rest_36)" "(values))))" "(values))))))" -" for-loop_229)" -" lst_264)))" +" for-loop_228)" +" lst_262)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_228 rest_4)(values))))" +"(if(not #f)(for-loop_227 rest_4)(values))))" "(values))))))" -" for-loop_228)" -" lst_263)))" +" for-loop_227)" +" lst_261)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_123) evaled-ld-h_0))" +"(let-values(((ht_122) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_105)" -"(lambda(i_147)" +"(let-values()(check-in-hash ht_122)))" +"((letrec-values(((for-loop_106)" +"(lambda(i_148)" "(begin" " 'for-loop" -"(if i_147" +"(if i_148" "(let-values(((phase_86 linklet_3)" -"(hash-iterate-key+value ht_123 i_147)))" +"(hash-iterate-key+value ht_122 i_148)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33524,7 +33530,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_265)" +"(let-values(((lst_263)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33532,19 +33538,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_265)))" -"((letrec-values(((for-loop_230)" -"(lambda(lst_266)" +"(check-list lst_263)))" +"((letrec-values(((for-loop_229)" +"(lambda(lst_264)" "(begin" " 'for-loop" "(if(pair?" -" lst_266)" +" lst_264)" "(let-values(((sym_56)" "(unsafe-car" -" lst_266))" +" lst_264))" "((rest_141)" "(unsafe-cdr" -" lst_266)))" +" lst_264)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33606,21 +33612,21 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_230" +"(for-loop_229" " rest_141)" "(values))))" "(values))))))" -" for-loop_230)" -" lst_265)))" +" for-loop_229)" +" lst_263)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_105(hash-iterate-next ht_123 i_147))" +"(for-loop_106(hash-iterate-next ht_122 i_148))" "(values))))" "(values))))))" -" for-loop_105)" -"(hash-iterate-first ht_123))))" +" for-loop_106)" +"(hash-iterate-first ht_122))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33629,11 +33635,11 @@ 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_180) root-context_0))" -"(let-values(((the-struct_52) v_180))" +"(let-values(((v_181) root-context_0))" +"(let-values(((the-struct_52) v_181))" "(if(root-expand-context/outer? the-struct_52)" "(let-values(((inner16_0)" -"(let-values(((the-struct_53)(root-expand-context/outer-inner v_180)))" +"(let-values(((the-struct_53)(root-expand-context/outer-inner v_181)))" "(if(root-expand-context/inner? the-struct_53)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -33685,9 +33691,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_267) import-module-uses_0)" -"((lst_90) import-module-instances_0)" -"((lst_165)" +"((lst_265) import-module-uses_0)" +"((lst_89) import-module-instances_0)" +"((lst_163)" "(let-values(((or-part_83) extra-inspectorsss_4))" "(if or-part_83 or-part_83 import-module-uses_0))))" "(begin" @@ -33696,28 +33702,28 @@ static const char *startup_source = "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_265)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_165)))" -"((letrec-values(((for-loop_230)" -"(lambda(lst_266 lst_268 lst_24 lst_103)" +"(let-values()(check-list lst_163)))" +"((letrec-values(((for-loop_229)" +"(lambda(lst_264 lst_266 lst_24 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_266)" -"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_103) #f) #f)" +"(if(if(pair? lst_264)" +"(if(pair? lst_266)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_266))" -"((rest_142)(unsafe-cdr lst_266))" -"((mu_7)(unsafe-car lst_268))" -"((rest_143)(unsafe-cdr lst_268))" +"(let-values(((import-syms_0)(unsafe-car lst_264))" +"((rest_142)(unsafe-cdr lst_264))" +"((mu_7)(unsafe-car lst_266))" +"((rest_143)(unsafe-cdr lst_266))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_103))" -"((rest_119)(unsafe-cdr lst_103)))" +"((extra-inspectorss_14)(unsafe-car lst_102))" +"((rest_119)(unsafe-cdr lst_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33740,7 +33746,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_60)" +"(let-values(((lst_59)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33748,8 +33754,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_60)))" -"((letrec-values(((for-loop_231)" +" lst_59)))" +"((letrec-values(((for-loop_230)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -33776,12 +33782,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_161)" +"(if(let-values(((or-part_162)" "(eq?" " a_43" " 'unexported)))" -"(if or-part_161" -" or-part_161" +"(if or-part_162" +" or-part_162" "(eq?" " a_43" " 'protected)))" @@ -33790,20 +33796,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_245)" +"(if(let-values(((or-part_246)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_246)" +"(if or-part_246" +" or-part_246" +"(let-values(((or-part_247)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_246" -" or-part_246" +"(if or-part_247" +" or-part_247" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33833,24 +33839,24 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_231" +"(for-loop_230" " rest_9)" "(values))))" "(values))))))" -" for-loop_231)" -" lst_60)))" +" for-loop_230)" +" lst_59)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_230 rest_142 rest_143 rest_43 rest_119)" +"(for-loop_229 rest_142 rest_143 rest_43 rest_119)" "(values))))" "(values))))))" -" for-loop_230)" +" for-loop_229)" " lst_42" -" lst_267" -" lst_90" -" lst_165)))" +" lst_265" +" lst_89" +" lst_163)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" @@ -33861,15 +33867,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_247)(module-access m_16)))" -"(if or-part_247 or-part_247(module-compute-access! m_16)))))" +"(let-values(((or-part_248)(module-access m_16)))" +"(if or-part_248 or-part_248(module-compute-access! m_16)))))" "(let-values(((a_44)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_57 'unexported)))" -"(if(let-values(((or-part_248)(eq? a_44 'unexported)))" -"(if or-part_248 or-part_248(eq? a_44 'protected)))" +"(if(let-values(((or-part_249)(eq? a_44 'unexported)))" +"(if or-part_249 or-part_249(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_249)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_249 or-part_249(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_250)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_250 or-part_250(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -33938,7 +33944,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_231)" "(lambda(table_189 pos_98)" "(begin" " 'for-loop" @@ -33946,7 +33952,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_98))" "(let-values(((table_190)" -"(let-values(((v_181)" +"(let-values(((v_182)" "(hash-ref" " h_1" " phase-level_17" @@ -33961,7 +33967,7 @@ static const char *startup_source = "(let-values(((table_192)" "(let-values(((table_193)" " table_191))" -"(if v_181" +"(if v_182" "(let-values(((table_194)" " table_193))" "(let-values(((table_195)" @@ -33972,7 +33978,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_181)))))" +" v_182)))))" "(hash-set" " table_194" " key_71" @@ -33984,12 +33990,12 @@ static const char *startup_source = " for-loop_50)" " table_189)))))" "(if(not #f)" -"(for-loop_232" +"(for-loop_231" " table_190" "(+ pos_98 inc_20))" " table_190)))" " table_189)))))" -" for-loop_232)" +" for-loop_231)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34031,18 +34037,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_233)" -"(lambda(lst_94)" +"((letrec-values(((for-loop_232)" +"(lambda(lst_93)" "(begin" " 'for-loop" "(if(pair?" -" lst_94)" +" lst_93)" "(let-values(((c_25)" "(unsafe-car" -" lst_94))" +" lst_93))" "((rest_44)" "(unsafe-cdr" -" lst_94)))" +" lst_93)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34067,21 +34073,21 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_232" " rest_44)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_232)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_95) names_0))" +"(let-values(((lst_94) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_95)))" +"(check-list lst_94)))" "((letrec-values(((for-loop_26)" "(lambda(lst_7)" "(begin" @@ -34135,7 +34141,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_26)" -" lst_95)))" +" lst_94)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34248,7 +34254,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_269)" +"(let-values(((lst_267)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34256,21 +34262,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_269)))" -"((letrec-values(((for-loop_234)" +" lst_267)))" +"((letrec-values(((for-loop_233)" "(lambda(mis_2" " is_1" -" lst_270)" +" lst_268)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" +" lst_268)" "(let-values(((mu_8)" "(unsafe-car" -" lst_270))" +" lst_268))" "((rest_145)" "(unsafe-cdr" -" lst_270)))" +" lst_268)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34318,7 +34324,7 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_233" " mis_3" " is_2" " rest_145)" @@ -34328,10 +34334,10 @@ static const char *startup_source = "(values" " mis_2" " is_1))))))" -" for-loop_234)" +" for-loop_233)" " null" " null" -" lst_269)))))" +" lst_267)))))" "(values" "(reverse$1" " mis_1)" @@ -34713,15 +34719,15 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_124) phases-h_1))" +"(let-values(((ht_123) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_235)" -"(lambda(table_196 i_148)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" +"((letrec-values(((for-loop_234)" +"(lambda(table_196 i_149)" "(begin" " 'for-loop" -"(if i_148" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_124 i_148)))" +"(if i_149" +"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_123 i_149)))" "(let-values(((table_197)" "(let-values(((table_198) table_196))" "(let-values(((table_148)" @@ -34735,12 +34741,12 @@ static const char *startup_source = "(hash-set table_198 key_72 val_62)))))" "(values table_148)))))" "(if(not #f)" -"(for-loop_235 table_197(hash-iterate-next ht_124 i_148))" +"(for-loop_234 table_197(hash-iterate-next ht_123 i_149))" " table_197)))" " table_196)))))" -" for-loop_235)" +" for-loop_234)" " '#hash()" -"(hash-iterate-first ht_124)))))))" +"(hash-iterate-first ht_123)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34751,22 +34757,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_125) provides_9))" +"(let-values(((ht_124) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_59 i_149)" +"(let-values()(check-in-hash ht_124)))" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_59 i_150)" "(begin" " 'for-loop" -"(if i_149" +"(if i_150" "(let-values(((phase_89 at-phase_11)" -"(hash-iterate-key+value ht_125 i_149)))" +"(hash-iterate-key+value ht_124 i_150)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" "(reverse$1" -"(let-values(((ht_118)" +"(let-values(((ht_117)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34774,18 +34780,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_118)))" -"((letrec-values(((for-loop_236)" +" ht_117)))" +"((letrec-values(((for-loop_235)" "(lambda(fold-var_220" -" i_150)" +" i_151)" "(begin" " 'for-loop" -"(if i_150" +"(if i_151" "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" -" ht_118" -" i_150)))" +" ht_117" +" i_151)))" "(let-values(((fold-var_221)" "(let-values(((fold-var_222)" " fold-var_220))" @@ -34810,7 +34816,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_88)" +"(let-values(((lst_87)" "(cons" " b_71" "(module-binding-extra-nominal-bindings" @@ -34821,20 +34827,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_88)))" -"((letrec-values(((for-loop_237)" +" lst_87)))" +"((letrec-values(((for-loop_236)" "(lambda(fold-var_225" -" lst_271)" +" lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" +" lst_269)" "(let-values(((b_72)" "(unsafe-car" -" lst_271))" +" lst_269))" "((rest_146)" "(unsafe-cdr" -" lst_271)))" +" lst_269)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" " fold-var_225))" @@ -34869,34 +34875,34 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_237" +"(for-loop_236" " fold-var_29" " rest_146)" " fold-var_29)))" " fold-var_225)))))" -" for-loop_237)" +" for-loop_236)" " null" -" lst_88)))))))))" +" lst_87)))))))))" " fold-var_223))))" "(values" " fold-var_224)))" " fold-var_222))))" "(if(not" " #f)" -"(for-loop_236" +"(for-loop_235" " fold-var_221" "(hash-iterate-next" -" ht_118" -" i_150))" +" ht_117" +" i_151))" " fold-var_221)))" " fold-var_220)))))" -" for-loop_236)" +" for-loop_235)" " null" "(hash-iterate-first" -" ht_118)))))))" +" ht_117)))))))" "(begin" " #t" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_69)" "(begin" " 'for-loop" @@ -34932,17 +34938,17 @@ static const char *startup_source = "(values" " fold-var_34)))))))" " fold-var_156))))))" -" for-loop_105)" +" for-loop_106)" " fold-var_59)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_101" " fold-var_60" -"(hash-iterate-next ht_125 i_149))" +"(hash-iterate-next ht_124 i_150))" " fold-var_60)))" " fold-var_59)))))" -" for-loop_100)" +" for-loop_101)" " null" -"(hash-iterate-first ht_125)))))))" +"(hash-iterate-first ht_124)))))))" "(let-values(((result-l1_0) result-l_0)((phaselinklet-directory" -"(let-values(((ht_126)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_125)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_239)" -"(lambda(table_199 i_151)" +"(let-values()(check-in-hash ht_125)))" +"((letrec-values(((for-loop_238)" +"(lambda(table_199 i_152)" "(begin" " 'for-loop" -"(if i_151" -"(let-values(((key_73 val_63)(hash-iterate-key+value ht_126 i_151)))" +"(if i_152" +"(let-values(((key_73 val_63)(hash-iterate-key+value ht_125 i_152)))" "(let-values(((table_200)" "(let-values(((table_118) table_199))" "(let-values(((table_201)" @@ -35174,12 +35180,12 @@ static const char *startup_source = " val_64)))))" "(values table_201)))))" "(if(not #f)" -"(for-loop_239 table_200(hash-iterate-next ht_126 i_151))" +"(for-loop_238 table_200(hash-iterate-next ht_125 i_152))" " table_200)))" " table_199)))))" -" for-loop_239)" +" for-loop_238)" " '#hasheq()" -"(hash-iterate-first ht_126))))))" +"(hash-iterate-first ht_125))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -35197,26 +35203,26 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_175) submods_0))" +"(let-values(((lst_173) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_240)" -"(lambda(ht_127 lst_273)" +"(let-values()(check-list lst_173)))" +"((letrec-values(((for-loop_239)" +"(lambda(ht_126 lst_271)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((submod_1)(unsafe-car lst_273))" -"((rest_148)(unsafe-cdr lst_273)))" -"(let-values(((ht_128)" -"(let-values(((ht_129) ht_127))" -"(let-values(((ht_119)" +"(if(pair? lst_271)" +"(let-values(((submod_1)(unsafe-car lst_271))" +"((rest_148)(unsafe-cdr lst_271)))" +"(let-values(((ht_127)" +"(let-values(((ht_128) ht_126))" +"(let-values(((ht_118)" "(let-values()" "(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_129 name_53 #f)" +"(if(hash-ref ht_128 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -35225,16 +35231,16 @@ static const char *startup_source = " name_53))" "(let-values()" "(hash-set" -" ht_129" +" ht_128" " name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_119)))))" -"(if(not #f)(for-loop_240 ht_128 rest_148) ht_128)))" -" ht_127)))))" -" for-loop_240)" +"(values ht_118)))))" +"(if(not #f)(for-loop_239 ht_127 rest_148) ht_127)))" +" ht_126)))))" +" for-loop_239)" " '#hasheq()" -" lst_175)))" +" lst_173)))" " #f" " main_0))))))))))" "(define-values" @@ -35286,9 +35292,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_210)(symbol? name_54)))" -"(if or-part_210" -" or-part_210" +"(if(let-values(((or-part_211)(symbol? name_54)))" +"(if or-part_211" +" or-part_211" "(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" @@ -35300,7 +35306,7 @@ static const char *startup_source = "(let-values(((i-name_0 prefix_5)" "(if(symbol? name_54)" "(values name_54 null)" -"(let-values(((r_41)(reverse$1 name_54)))(values(car r_41)(reverse$1(cdr r_41)))))))" +"(let-values(((r_40)(reverse$1 name_54)))(values(car r_40)(reverse$1(cdr r_40)))))))" "(change-module-name c_37 i-name_0 prefix_5)))))))))" "(define-values" "(1/module-compiled-submodules)" @@ -35322,38 +35328,38 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_13)" "(let-values()" -"(let-values(((ht_130)(1/linklet-directory->hash c_13)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_130 #f))))" +"(let-values(((ht_129)(1/linklet-directory->hash c_13)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_129 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_87) names_1))" +"(let-values(((lst_86) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_67 lst_88)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_67 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((name_55)(unsafe-car lst_88))" -"((rest_41)(unsafe-cdr lst_88)))" +"(if(pair? lst_87)" +"(let-values(((name_55)(unsafe-car lst_87))" +"((rest_41)(unsafe-cdr lst_87)))" "(let-values(((fold-var_68)" "(let-values(((fold-var_27) fold-var_67))" "(let-values(((fold-var_28)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_130 name_55))" +"(hash-ref ht_129 name_55))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" -"(for-loop_104 fold-var_68 rest_41)" +"(for-loop_105 fold-var_68 rest_41)" " fold-var_68)))" " fold-var_67)))))" -" for-loop_104)" +" for-loop_105)" " null" -" lst_87))))))))" +" lst_86))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35509,7 +35515,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_190)" +"((letrec-values(((for-loop_189)" "(lambda(table_64 pos_100)" "(begin" " 'for-loop" @@ -35537,9 +35543,9 @@ static const char *startup_source = " key_75" " val_65)))))" "(values table_203)))))" -"(if(not #f)(for-loop_190 table_67(+ pos_100 inc_21)) table_67)))" +"(if(not #f)(for-loop_189 table_67(+ pos_100 inc_21)) table_67)))" " table_64)))))" -" for-loop_190)" +" for-loop_189)" " '#hash()" " start_38)))))))))))))" "(define-values" @@ -35640,20 +35646,20 @@ static const char *startup_source = "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_123) compiled-submodules_0))" +"(let-values(((ht_122) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_69 i_152)" +"(let-values()(check-in-hash ht_122)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_69 i_153)" "(begin" " 'for-loop" -"(if i_152" +"(if i_153" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" -" ht_123" -" i_152)))" +" ht_122" +" i_153)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_157)" " fold-var_69))" @@ -35684,14 +35690,14 @@ static const char *startup_source = "(values fold-var_70)))" " fold-var_157))))" "(if(not #f)" -"(for-loop_105" +"(for-loop_106" " fold-var_34" -"(hash-iterate-next ht_123 i_152))" +"(hash-iterate-next ht_122 i_153))" " fold-var_34)))" " fold-var_69)))))" -" for-loop_105)" +" for-loop_106)" " null" -"(hash-iterate-first ht_123)))))))))" +"(hash-iterate-first ht_122)))))))))" "(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)))" @@ -35882,32 +35888,32 @@ static const char *startup_source = " s_57))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_377)" +"(let-values(((s_378)" "(if(syntax?$1" " s_57)" "(syntax-e$1" " s_57)" " s_57)))" "(if(pair?" -" s_377)" +" s_378)" "(let-values(((_71_0)" -"(let-values(((s_378)" -"(car" -" s_377)))" -" s_378))" -"((kw72_0)" "(let-values(((s_379)" -"(cdr" -" s_377)))" +"(car" +" s_378)))" +" s_379))" +"((kw72_0)" "(let-values(((s_380)" +"(cdr" +" s_378)))" +"(let-values(((s_381)" "(if(syntax?$1" -" s_379)" +" s_380)" "(syntax-e$1" -" s_379)" -" s_379)))" +" s_380)" +" s_380)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_380)))" +" s_381)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35929,7 +35935,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_274)" +"(let-values(((lst_272)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35937,19 +35943,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_274)))" +" lst_272)))" "((letrec-values(((for-loop_13)" -"(lambda(lst_275)" +"(lambda(lst_273)" "(begin" " 'for-loop" "(if(pair?" -" lst_275)" +" lst_273)" "(let-values(((kw_0)" "(unsafe-car" -" lst_275))" +" lst_273))" "((rest_149)" "(unsafe-cdr" -" lst_275)))" +" lst_273)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35986,22 +35992,22 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_13)" -" lst_274)))" +" lst_272)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" "(lambda(mod-name_17 phase_91)" -"(let-values(((ht_131)" +"(let-values(((ht_130)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_131" +"(if ht_130" "(hash-ref" -" ht_131" +" ht_130" " phase_91" " #f)" " #f))))" @@ -36043,25 +36049,25 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_132)" +"(let-values(((ht_131)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_132)))" +"(check-in-hash ht_131)))" "((letrec-values(((for-loop_23)" "(lambda(table_204" -" i_153)" +" i_154)" "(begin" " 'for-loop" -"(if i_153" +"(if i_154" "(let-values(((phase_92" " linklet_6)" "(hash-iterate-key+value" -" ht_132" -" i_153)))" +" ht_131" +" i_154)))" "(let-values(((table_205)" "(let-values(((table_206)" " table_204))" @@ -36098,13 +36104,13 @@ static const char *startup_source = "(for-loop_23" " table_205" "(hash-iterate-next" -" ht_132" -" i_153))" +" ht_131" +" i_154))" " table_205)))" " table_204)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_132))))))" +"(hash-iterate-first ht_131))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -36234,10 +36240,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_381)" +"(lambda(s_382)" "(let-values()" "(1/compile-linklet" -" s_381" +" s_382" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36295,10 +36301,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_250)" +"(let-values(((or-part_251)" " declaration-linklet_0))" -"(if or-part_250" -" or-part_250" +"(if or-part_251" +" or-part_251" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36412,7 +36418,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_206)" +"(let-values(((lst_204)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36422,27 +36428,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_206)))" -"((letrec-values(((for-loop_122)" -"(lambda(ht_133" -" lst_276)" +" lst_204)))" +"((letrec-values(((for-loop_123)" +"(lambda(ht_132" +" lst_274)" "(begin" " 'for-loop" "(if(pair?" -" lst_276)" +" lst_274)" "(let-values(((sm_0)" "(unsafe-car" -" lst_276))" +" lst_274))" "((rest_150)" "(unsafe-cdr" -" lst_276)))" +" lst_274)))" +"(let-values(((ht_133)" "(let-values(((ht_134)" -"(let-values(((ht_135)" -" ht_133))" -"(let-values(((ht_124)" +" ht_132))" +"(let-values(((ht_123)" "(let-values()" "(hash-set" -" ht_135" +" ht_134" "(car" " sm_0)" "((if to-source?_4" @@ -36451,17 +36457,17 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_124)))))" +" ht_123)))))" "(if(not" " #f)" -"(for-loop_122" -" ht_134" +"(for-loop_123" +" ht_133" " rest_150)" -" ht_134)))" -" ht_133)))))" -" for-loop_122)" +" ht_133)))" +" ht_132)))))" +" for-loop_123)" "(hasheq #f bundle_1)" -" lst_206))))))))" +" lst_204))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36493,23 +36499,23 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_277) pre-submodules_2))" +"(let-values(((lst_275) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_241)" -"(lambda(lst_278)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" +"((letrec-values(((for-loop_240)" +"(lambda(lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((s_152)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" +"(if(pair? lst_276)" +"(let-values(((s_104)(unsafe-car lst_276))((rest_151)(unsafe-cdr lst_276)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_152)))" -"(let-values(((cim_10)(cdr s_152)))" +"(let-values(((name_60)(car s_104)))" +"(let-values(((cim_10)(cdr s_104)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36530,7 +36536,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_136)" +"(let-values(((ht_135)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36544,8 +36550,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_136)))" -"((letrec-values(((for-loop_242)" +"(check-in-hash ht_135)))" +"((letrec-values(((for-loop_241)" "(lambda(table_208" " i_5)" "(begin" @@ -36554,7 +36560,7 @@ static const char *startup_source = "(let-values(((phase_2" " linklet_8)" "(hash-iterate-key+value" -" ht_136" +" ht_135" " i_5)))" "(let-values(((table_209)" "(let-values(((table_210)" @@ -36596,23 +36602,23 @@ static const char *startup_source = " table_210))))" "(if(not" " #f)" -"(for-loop_242" +"(for-loop_241" " table_209" "(hash-iterate-next" -" ht_136" +" ht_135" " i_5))" " table_209)))" " table_208)))))" -" for-loop_242)" +" for-loop_241)" " '#hasheq()" "(hash-iterate-first" -" ht_136))))))))))))" +" ht_135))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_151)(values))))" +"(if(not #f)(for-loop_240 rest_151)(values))))" "(values))))))" -" for-loop_241)" -" lst_277)))" +" for-loop_240)" +" lst_275)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36635,17 +36641,17 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_137)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_136)(1/linklet-bundle->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_137)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_212 i_154)" +"(let-values()(check-in-hash ht_136)))" +"((letrec-values(((for-loop_242)" +"(lambda(table_212 i_155)" "(begin" " 'for-loop" -"(if i_154" -"(let-values(((k_33 v_68)(hash-iterate-key+value ht_137 i_154)))" +"(if i_155" +"(let-values(((k_33 v_68)(hash-iterate-key+value ht_136 i_155)))" "(let-values(((table_213)" "(let-values(((table_214) table_212))" "(let-values(((table_215)" @@ -36663,26 +36669,26 @@ static const char *startup_source = "(hash-set table_214 key_78 val_68)))))" "(values table_215)))))" "(if(not #f)" -"(for-loop_243 table_213(hash-iterate-next ht_137 i_154))" +"(for-loop_242 table_213(hash-iterate-next ht_136 i_155))" " table_213)))" " table_212)))))" -" for-loop_243)" +" for-loop_242)" " '#hasheq()" -"(hash-iterate-first ht_137))))))" +"(hash-iterate-first ht_136))))))" "(if(1/linklet-directory? c_31)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_138)(1/linklet-directory->hash c_31)))" +"(let-values(((ht_137)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_138)))" -"((letrec-values(((for-loop_244)" -"(lambda(table_216 i_155)" +"(let-values()(check-in-hash ht_137)))" +"((letrec-values(((for-loop_243)" +"(lambda(table_216 i_156)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_138 i_155)))" +"(if i_156" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_137 i_156)))" "(let-values(((table_217)" "(let-values(((table_218) table_216))" "(let-values(((table_219)" @@ -36701,12 +36707,12 @@ static const char *startup_source = "(hash-set table_218 key_79 val_69)))))" "(values table_219)))))" "(if(not #f)" -"(for-loop_244 table_217(hash-iterate-next ht_138 i_155))" +"(for-loop_243 table_217(hash-iterate-next ht_137 i_156))" " table_217)))" " table_216)))))" -" for-loop_244)" +" for-loop_243)" " '#hasheq()" -"(hash-iterate-first ht_138))))))" +"(hash-iterate-first ht_137))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -36766,16 +36772,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_267) l_10)" -"((lst_90)" +"(let-values(((lst_265) l_10)" +"((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_165)" +"((lst_163)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_265)" +"((lst_263)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36783,44 +36789,44 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_90)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_165)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_230)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_89)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_163)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_263)))" +"((letrec-values(((for-loop_229)" "(lambda(fold-var_157" -" lst_268" +" lst_266" " lst_24" -" lst_103" -" lst_91)" +" lst_102" +" lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_268)" +" lst_266)" "(if(pair?" " lst_24)" "(if(pair?" -" lst_103)" +" lst_102)" "(pair?" -" lst_91)" +" lst_90)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_268))" +" lst_266))" "((rest_152)" "(unsafe-cdr" -" lst_268))" +" lst_266))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36829,16 +36835,16 @@ static const char *startup_source = " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_103))" +" lst_102))" "((rest_89)" "(unsafe-cdr" -" lst_103))" +" lst_102))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_91))" +" lst_90))" "((rest_37)" "(unsafe-cdr" -" lst_91)))" +" lst_90)))" "(let-values(((fold-var_166)" "(let-values(((fold-var_167)" " fold-var_157))" @@ -36855,7 +36861,7 @@ static const char *startup_source = "(values" " fold-var_168)))))" "(if(not #f)" -"(for-loop_230" +"(for-loop_229" " fold-var_166" " rest_152" " rest_49" @@ -36863,12 +36869,12 @@ static const char *startup_source = " rest_37)" " fold-var_166)))" " fold-var_157)))))" -" for-loop_230)" +" for-loop_229)" " null" -" lst_267" -" lst_90" -" lst_165" -" lst_265))))))))" +" lst_265" +" lst_89" +" lst_163" +" lst_263))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36904,8 +36910,8 @@ static const char *startup_source = " vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_102)" -"(lambda(i_156 pos_101)" +"((letrec-values(((for-loop_103)" +"(lambda(i_157 pos_101)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36915,10 +36921,10 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_62" " pos_101)))" -"(let-values(((i_157)" -"(let-values(((i_59)" -" i_156))" "(let-values(((i_158)" +"(let-values(((i_59)" +" i_157))" +"(let-values(((i_159)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36932,23 +36938,23 @@ static const char *startup_source = " 1" " i_59)))))" "(values" -" i_158)))))" +" i_159)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_157" +" i_158" " len_29))" " pos_102))" "(not #f)" " #f)" -"(for-loop_102" -" i_157" +"(for-loop_103" +" i_158" "(unsafe-fx+" " 1" " pos_101))" -" i_157)))" -" i_156)))))" -" for-loop_102)" +" i_158)))" +" i_157)))))" +" for-loop_103)" " 0" " 0)))))" " v_64))))" @@ -36976,17 +36982,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_245)" -"(lambda(i_159 pos_103)" +"((letrec-values(((for-loop_244)" +"(lambda(i_160 pos_103)" "(begin" " 'for-loop" "(if(< pos_103 end_28)" "(let-values(((i_20)" " pos_103))" -"(let-values(((i_160)" -"(let-values(((i_34)" -" i_159))" "(let-values(((i_161)" +"(let-values(((i_34)" +" i_160))" +"(let-values(((i_162)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -37005,23 +37011,23 @@ static const char *startup_source = " 1" " i_34)))))" "(values" -" i_161)))))" +" i_162)))))" "(if(if(not" "((lambda x_68" "(unsafe-fx=" -" i_160" +" i_161" " len_31))" " i_20))" "(not #f)" " #f)" -"(for-loop_245" -" i_160" +"(for-loop_244" +" i_161" "(+" " pos_103" " inc_22))" -" i_160)))" -" i_159)))))" -" for-loop_245)" +" i_161)))" +" i_160)))))" +" for-loop_244)" " 0" " start_15)))))" " v_34))))" @@ -37048,18 +37054,18 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_179) names_2))" +"(let-values(((lst_177) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_5 lst_279)" +"(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_245)" +"(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((name_44)(unsafe-car lst_279))" -"((rest_153)(unsafe-cdr lst_279)))" +"(if(pair? lst_277)" +"(let-values(((name_44)(unsafe-car lst_277))" +"((rest_153)(unsafe-cdr lst_277)))" "(let-values(((fold-var_227)" "(let-values(((fold-var_228) fold-var_5))" "(let-values(((fold-var_229)" @@ -37075,11 +37081,11 @@ static const char *startup_source = " name_44))))" " fold-var_228))))" "(values fold-var_229)))))" -"(if(not #f)(for-loop_246 fold-var_227 rest_153) fold-var_227)))" +"(if(not #f)(for-loop_245 fold-var_227 rest_153) fold-var_227)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_245)" " null" -" lst_179))))))))))))))" +" lst_177))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -37227,7 +37233,7 @@ static const char *startup_source = " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_226)" +"(let-values(((lst_224)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37235,21 +37241,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" -"((letrec-values(((for-loop_98)" +" lst_224)))" +"((letrec-values(((for-loop_99)" "(lambda(mis_7" " is_6" -" lst_227)" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" +" lst_225)" "(let-values(((mu_9)" "(unsafe-car" -" lst_227))" +" lst_225))" "((rest_121)" "(unsafe-cdr" -" lst_227)))" +" lst_225)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37293,7 +37299,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_98" +"(for-loop_99" " mis_8" " is_7" " rest_121)" @@ -37303,10 +37309,10 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_98)" +" for-loop_99)" " null" " null" -" lst_226)))))" +" lst_224)))))" "(values" "(reverse$1" " mis_6)" @@ -37492,7 +37498,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_182)(make-vector len_32 0)))" +"(let-values(((v_183)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37504,44 +37510,44 @@ static const char *startup_source = "(values vec_65(unsafe-vector-length vec_65))))))" "(begin" " #f" -"((letrec-values(((for-loop_247)" -"(lambda(i_162 pos_105)" +"((letrec-values(((for-loop_246)" +"(lambda(i_163 pos_105)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_33)" -"(let-values(((s_382)" +"(let-values(((s_383)" "(unsafe-vector-ref vec_64 pos_105)))" -"(let-values(((i_163)" -"(let-values(((i_164) i_162))" -"(let-values(((i_165)" +"(let-values(((i_164)" +"(let-values(((i_165) i_163))" +"(let-values(((i_166)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_182" -" i_164" +" v_183" +" i_165" "(let-values()" "(swap-top-level-scopes" -" s_382" +" s_383" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" "(unsafe-fx+" " 1" -" i_164)))))" -"(values i_165)))))" +" i_165)))))" +"(values i_166)))))" "(if(if(not" "((lambda x_69" -"(unsafe-fx= i_163 len_32))" -" s_382))" +"(unsafe-fx= i_164 len_32))" +" s_383))" "(not #f)" " #f)" -"(for-loop_247 i_163(unsafe-fx+ 1 pos_105))" -" i_163)))" -" i_162)))))" -" for-loop_247)" +"(for-loop_246 i_164(unsafe-fx+ 1 pos_105))" +" i_164)))" +" i_163)))))" +" for-loop_246)" " 0" " 0)))))" -" v_182)))))))))" +" v_183)))))))))" "(1/make-instance" " 'link" " #f" @@ -37559,31 +37565,31 @@ static const char *startup_source = "(if(parsed-app? p_43)" "(let-values()" "(if(can-direct-eval?(parsed-app-rator p_43) ns_42 self-mpi_3)" -"(let-values(((lst_102)(parsed-app-rands p_43)))" +"(let-values(((lst_101)(parsed-app-rands p_43)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_110)" -"(lambda(result_111 lst_6)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" +"(lambda(result_112 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_42)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" +"(let-values(((r_41)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((result_80)" "(let-values()" -"(let-values(((result_112)" +"(let-values(((result_113)" "(let-values()" "(let-values()" -"(can-direct-eval? r_42 ns_42 self-mpi_3)))))" -"(values result_112)))))" -"(if(if(not((lambda x_70(not result_80)) r_42))(not #f) #f)" -"(for-loop_110 result_80 rest_48)" +"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" +"(values result_113)))))" +"(if(if(not((lambda x_70(not result_80)) r_41))(not #f) #f)" +"(for-loop_111 result_80 rest_48)" " result_80)))" -" result_111)))))" -" for-loop_110)" +" result_112)))))" +" for-loop_111)" " #t" -" lst_102)))" +" lst_101)))" " #f))" "(if(parsed-id? p_43)" "(let-values()(not(eq?(get-id-value p_43 ns_42 self-mpi_3) not-available)))" @@ -37599,15 +37605,15 @@ static const char *startup_source = "(apply" "(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_79)(parsed-app-rands p_47)))" +"(let-values(((lst_78)(parsed-app-rands p_47)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_95)" -"(lambda(fold-var_230 lst_80)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_230 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((r_8)(unsafe-car lst_80))((rest_36)(unsafe-cdr lst_80)))" +"(if(pair? lst_79)" +"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_67) fold-var_230))" "(let-values(((fold-var_26)" @@ -37617,11 +37623,11 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_67))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_95 fold-var_224 rest_36) fold-var_224)))" +"(if(not #f)(for-loop_96 fold-var_224 rest_36) fold-var_224)))" " fold-var_230)))))" -" for-loop_95)" +" for-loop_96)" " null" -" lst_79))))))" +" lst_78))))))" "(if(parsed-id? p_47)" "(let-values()(get-id-value p_47 ns_71 self-mpi_4))" "(if(parsed-quote? p_47)" @@ -37784,18 +37790,18 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_95)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_280) ids_17))" +"(let-values(((lst_278) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_231 lst_281)" +"(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_231 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((id_58)(unsafe-car lst_281))" -"((rest_154)(unsafe-cdr lst_281)))" +"(if(pair? lst_279)" +"(let-values(((id_58)(unsafe-car lst_279))" +"((rest_154)(unsafe-cdr lst_279)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_231))" "(let-values(((fold-var_232)" @@ -37827,11 +37833,11 @@ static const char *startup_source = " key_81)))" " fold-var_84))))" "(values fold-var_232)))))" -"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" +"(if(not #f)(for-loop_247 fold-var_83 rest_154) fold-var_83)))" " fold-var_231)))))" -" for-loop_248)" +" for-loop_247)" " null" -" lst_280))))))" +" lst_278))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37843,18 +37849,18 @@ static const char *startup_source = "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_282) ids_18))" +"(let-values(((lst_280) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_233 lst_184)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_233 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_184)" -"(let-values(((id_59)(unsafe-car lst_184))" -"((rest_155)(unsafe-cdr lst_184)))" +"(if(pair? lst_182)" +"(let-values(((id_59)(unsafe-car lst_182))" +"((rest_155)(unsafe-cdr lst_182)))" "(let-values(((fold-var_234)" "(let-values(((fold-var_235) fold-var_233))" "(let-values(((fold-var_236)" @@ -37867,12 +37873,12 @@ static const char *startup_source = " fold-var_235))))" "(values fold-var_236)))))" "(if(not #f)" -"(for-loop_249 fold-var_234 rest_155)" +"(for-loop_248 fold-var_234 rest_155)" " fold-var_234)))" " fold-var_233)))))" -" for-loop_249)" +" for-loop_248)" " null" -" lst_282))))))" +" lst_280))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" @@ -37881,15 +37887,15 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_283)(reverse$1 lifts_3)))" +"(let-values(((lst_281)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_283)))" -"((letrec-values(((for-loop_250)" -"(lambda(body_6 lst_193)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_249)" +"(lambda(body_6 lst_191)" "(begin" " 'for-loop" -"(if(pair? lst_193)" -"(let-values(((lift_0)(unsafe-car lst_193))((rest_100)(unsafe-cdr lst_193)))" +"(if(pair? lst_191)" +"(let-values(((lift_0)(unsafe-car lst_191))((rest_100)(unsafe-cdr lst_191)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37909,11 +37915,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_250 body_7 rest_100) body_7)))" +"(if(not #f)(for-loop_249 body_7 rest_100) body_7)))" " body_6)))))" -" for-loop_250)" +" for-loop_249)" " body_5" -" lst_283)))))))" +" lst_281)))))))" "(define-values" "(wrap-lifts-as-begin16.1)" "(lambda(adjust-body10_0 adjust-body12_0 adjust-form9_0 adjust-form11_0 lifts13_0 body14_0 phase15_0)" @@ -37931,18 +37937,18 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_97) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_284) lifts_4))" +"(let-values(((lst_282) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_194)" -"(lambda(fold-var_237 lst_172)" +"(let-values()(check-list lst_282)))" +"((letrec-values(((for-loop_193)" +"(lambda(fold-var_237 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_172)" -"(let-values(((lift_1)(unsafe-car lst_172))" -"((rest_156)(unsafe-cdr lst_172)))" +"(if(pair? lst_170)" +"(let-values(((lift_1)(unsafe-car lst_170))" +"((rest_156)(unsafe-cdr lst_170)))" "(let-values(((fold-var_3)" "(let-values(((fold-var_238) fold-var_237))" "(let-values(((fold-var_239)" @@ -37966,11 +37972,11 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_238))))" "(values fold-var_239)))))" -"(if(not #f)(for-loop_194 fold-var_3 rest_156) fold-var_3)))" +"(if(not #f)(for-loop_193 fold-var_3 rest_156) fold-var_3)))" " fold-var_237)))))" -" for-loop_194)" +" for-loop_193)" " null" -" lst_284))))" +" lst_282))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" @@ -38043,12 +38049,12 @@ static const char *startup_source = "(lambda(module-lifts_2 s_63 phase_99)" "(begin" "(begin" -"(if(let-values(((or-part_214)" +"(if(let-values(((or-part_215)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_214" -" or-part_214" +"(if or-part_215" +" or-part_215" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" @@ -38106,11 +38112,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_383 phase_100)" +"(lambda(require-lifts_2 s_384 phase_100)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_383 phase_100)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_383)))))" +"((require-lift-context-do-require require-lifts_2) s_384 phase_100)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_384)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38160,12 +38166,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_106 phase_102)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_106))))" +"(lambda(to-module-lifts_3 s_213 phase_102)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_213))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_384 phase_103)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_384))))" +"(lambda(to-module-lifts_4 s_385 phase_103)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_385))))" "(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)" @@ -38217,20 +38223,20 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_77) v_26))" +"(let-values(((lst_76) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_94)" -"(lambda(result_78 lst_78)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_95)" +"(lambda(result_78 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((s_2)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((result_65)" "(let-values()" -"(let-values(((result_113)" +"(let-values(((result_114)" "(let-values()" "(let-values()" "(memq" @@ -38240,14 +38246,14 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_113)))))" +"(values result_114)))))" "(if(if(not((lambda x_71(not result_65)) s_2))(not #f) #f)" -"(for-loop_94 result_65 rest_35)" +"(for-loop_95 result_65 rest_35)" " result_65)))" " result_78)))))" -" for-loop_94)" +" for-loop_95)" " #t" -" lst_77)))" +" lst_76)))" " #f)" "(void)" "(let-values()" @@ -38266,7 +38272,7 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_171 t_45 ctx_13)" +"(lambda(s_170 t_45 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38276,7 +38282,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_171))))))" +" s_170))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38286,7 +38292,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_171)))))" +" s_170)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38347,12 +38353,12 @@ static const char *startup_source = "(let-values(((lst_42) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_185)" -"(lambda(lst_90)" +"((letrec-values(((for-loop_184)" +"(lambda(lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((rr_1)(unsafe-car lst_90))((rest_118)(unsafe-cdr lst_90)))" +"(if(pair? lst_89)" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_118)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38364,9 +38370,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_185 rest_118)(values))))))))" +"(if(post-guard-var_0)(for-loop_184 rest_118)(values))))))))" "(values))))))" -" for-loop_185)" +" for-loop_184)" " lst_42)))" "(void)))))" "(define-values" @@ -38379,27 +38385,27 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_251)" -"(lambda(ab_3 lst_81)" +"((letrec-values(((for-loop_250)" +"(lambda(ab_3 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((key_82)(unsafe-car lst_81))((rest_143)(unsafe-cdr lst_81)))" +"(if(pair? lst_80)" +"(let-values(((key_82)(unsafe-car lst_80))((rest_143)(unsafe-cdr lst_80)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_82))))" "(values ab_6)))))" -"(if(not #f)(for-loop_251 ab_4 rest_143) ab_4)))" +"(if(not #f)(for-loop_250 ab_4 rest_143) ab_4)))" " ab_3)))))" -" for-loop_251)" +" for-loop_250)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_273) keys_3))" +"(let-values(((lst_271) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" -"((letrec-values(((for-loop_252)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" +"((letrec-values(((for-loop_251)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" @@ -38409,17 +38415,17 @@ static const char *startup_source = "(let-values(((rbb_2) rbb_0))" "(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_83))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_252 rbb_1 rest_157) rbb_1)))" +"(if(not #f)(for-loop_251 rbb_1 rest_157) rbb_1)))" " rbb_0)))))" -" for-loop_252)" +" for-loop_251)" "(reference-record-reference-before-bound rr_2)" -" lst_273))))))))" +" lst_271))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_161)(reference-record-all-referenced? rr_3)))" -"(if or-part_161 or-part_161(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_162)(reference-record-all-referenced? rr_3)))" +"(if or-part_162 or-part_162(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -38615,26 +38621,26 @@ 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_182)(begin(if(expanded+parsed? s_182)(expanded+parsed-s s_182) s_182))))" +"(define-values(extract-syntax)(lambda(s_181)(begin(if(expanded+parsed? s_181)(expanded+parsed-s s_181) s_181))))" "(define-values" "(parsed-only)" "(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_179) l_66))" +"(let-values(((lst_177) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_5 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_245)" +"(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_26)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" +"(if(pair? lst_277)" +"(let-values(((i_26)(unsafe-car lst_277))((rest_153)(unsafe-cdr lst_277)))" "(let-values(((fold-var_227)" "(let-values(((fold-var_228) fold-var_5))" -"(if(let-values(((or-part_251)(parsed? i_26)))" -"(if or-part_251" -" or-part_251" +"(if(let-values(((or-part_252)(parsed? i_26)))" +"(if or-part_252" +" or-part_252" "(let-values(((or-part_33)(expanded+parsed? i_26)))" "(if or-part_33" " or-part_33" @@ -38658,33 +38664,33 @@ static const char *startup_source = " fold-var_159))))" "(values fold-var_175)))" " fold-var_228))))" -"(if(not #f)(for-loop_246 fold-var_227 rest_153) fold-var_227)))" +"(if(not #f)(for-loop_245 fold-var_227 rest_153) fold-var_227)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_245)" " null" -" lst_179)))))))" +" lst_177)))))))" "(define-values" "(syntax-only)" "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_280) l_67))" +"(let-values(((lst_278) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_231 lst_281)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_231 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((i_35)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" +"(if(pair? lst_279)" +"(let-values(((i_35)(unsafe-car lst_279))((rest_154)(unsafe-cdr lst_279)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_231))" -"(if(let-values(((or-part_126)(syntax?$1 i_35)))" -"(if or-part_126" -" or-part_126" -"(let-values(((or-part_252)(expanded+parsed? i_35)))" -"(if or-part_252" -" or-part_252" +"(if(let-values(((or-part_127)(syntax?$1 i_35)))" +"(if or-part_127" +" or-part_127" +"(let-values(((or-part_253)(expanded+parsed? i_35)))" +"(if or-part_253" +" or-part_253" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_85) fold-var_84))" "(let-values(((fold-var_240)" @@ -38695,7 +38701,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_166)" +"(let-values(((s_165)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38703,7 +38709,7 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_166)))" +" s_165)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" @@ -38727,18 +38733,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_161)" +"(let-values(((s_160)" "(cdr" " s_27)))" -"(let-values(((s_385)" +"(let-values(((s_386)" "(if(syntax?$1" -" s_161)" +" s_160)" "(syntax-e$1" -" s_161)" -" s_161)))" +" s_160)" +" s_160)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_385)))" +" s_386)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38759,7 +38765,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_166)" +"(let-values(((s11_0) s_165)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38774,17 +38780,17 @@ static const char *startup_source = " fold-var_85))))" "(values fold-var_240)))" " fold-var_84))))" -"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" +"(if(not #f)(for-loop_247 fold-var_83 rest_154) fold-var_83)))" " fold-var_231)))))" -" for-loop_248)" +" for-loop_247)" " null" -" lst_280)))))))" +" lst_278)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_386) s5_1))" +"(let-values(((s_387) 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)))" @@ -38798,24 +38804,24 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_386))" +" s_387))" "(void)))" "(void)))" -"(if(identifier? s_386)" -"(let-values()(expand-identifier s_386 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_386))(identifier?(car(syntax-content s_386))) #f)" -"(let-values()(expand-id-application-form s_386 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_78)(pair?(syntax-content s_386))))" -"(if or-part_78 or-part_78(null?(syntax-content s_386))))" -"(let-values()(expand-implicit '#%app s_386 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_386))" -"(let-values()(expand-already-expanded s_386 ctx_14))" -"(let-values()(expand-implicit '#%datum s_386 ctx_14 #f)))))))))))))))" +"(if(identifier? s_387)" +"(let-values()(expand-identifier s_387 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_387))(identifier?(car(syntax-content s_387))) #f)" +"(let-values()(expand-id-application-form s_387 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_78)(pair?(syntax-content s_387))))" +"(if or-part_78 or-part_78(null?(syntax-content s_387))))" +"(let-values()(expand-implicit '#%app s_387 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_387))" +"(let-values()(expand-already-expanded s_387 ctx_14))" +"(let-values()(expand-implicit '#%datum s_387 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_44 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_160) alternate-id_1))(if or-part_160 or-part_160 s_44))))" +"(let-values(((id_60)(let-values(((or-part_161) alternate-id_1))(if or-part_161 or-part_161 s_44))))" "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" "(let-values()" "(begin" @@ -38866,8 +38872,8 @@ static const char *startup_source = "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_61)" -"(let-values(((or-part_253) alternate-id_2))" -"(if or-part_253 or-part_253(car(syntax-e/no-taint s_13))))))" +"(let-values(((or-part_254) alternate-id_2))" +"(if or-part_254 or-part_254(car(syntax-e/no-taint s_13))))))" "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" "(let-values()" "(begin" @@ -38927,16 +38933,16 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_183 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_182 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_183)))(void)))" -" s_183))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_182)))(void)))" +" s_182))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_183)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_182)))" "(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" "(let-values()" @@ -38948,13 +38954,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_62)" -"(call-expand-observe obs_6 'enter-prim s_183)" +"(call-expand-observe obs_6 'enter-prim s_182)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_183)" -"(call-expand-observe obs_6 'return s_183)))" +"(call-expand-observe obs_6 'exit-prim s_182)" +"(call-expand-observe obs_6 'return s_182)))" "(void)))" "(void)))" -" s_183))" +" s_182))" "(let-values()" "(let-values((()" "(begin" @@ -38982,7 +38988,7 @@ static const char *startup_source = "(dispatch-transformer" " t_48" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_182 disarmed-s_1)" " id_62" " ctx_17" " b_76))" @@ -38993,17 +38999,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_48 s_183 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_48 s_182 ctx_17))" "(let-values()" "(dispatch-core-form" " t_48" -"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_182 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_183(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_182(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -39021,7 +39027,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_183" +" s_182" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -39032,14 +39038,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_46)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_135)(syntax-any-macro-scopes? s_46)))" -"(if or-part_135" -" or-part_135" -"(let-values(((or-part_136)" -"(not" -"(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" +"(if(let-values(((or-part_136)(syntax-any-macro-scopes? s_46)))" "(if or-part_136" " or-part_136" +"(let-values(((or-part_137)" +"(not" +"(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" +"(if or-part_137" +" or-part_137" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39081,15 +39087,15 @@ static const char *startup_source = " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_49 insp-of-t_3 s_387 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_49 insp-of-t_3 s_388 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_49)" -"(let-values()(dispatch-core-form t_49 s_387 ctx_20))" +"(let-values()(dispatch-core-form t_49 s_388 ctx_20))" "(if(transformer? t_49)" -"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_387 id_63 ctx_20 binding_20))" +"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_388 id_63 ctx_20 binding_20))" "(if(variable? t_49)" -"(let-values()(dispatch-variable t_49 s_387 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_387))))))))" +"(let-values()(dispatch-variable t_49 s_388 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_388))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_50 s_47 ctx_21)" @@ -39145,7 +39151,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_52 insp-of-t_4 s_382 id_64 ctx_23 binding_21)" +"(lambda(t_52 insp-of-t_4 s_383 id_64 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_52 ctx_23)" "(let-values()" @@ -39153,18 +39159,18 @@ static const char *startup_source = "(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_382)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_383)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_382 id_64) t_52 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_383 id_64) t_52 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_382)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_383)))(void)))" "(let-values(((adj-s117_0) adj-s_0)((ctx118_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s117_0 ctx118_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_382))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_383))" "(let-values()" "(let-values((()" "(begin" @@ -39174,17 +39180,17 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_382)" +"(call-expand-observe obs_17 'visit s_383)" "(call-expand-observe obs_17 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_52)" -"(values s_382 ctx_23)" +"(values s_383 ctx_23)" "(let-values(((t119_0) t_52)" "((insp-of-t120_0) insp-of-t_4)" -"((s121_0) s_382)" +"((s121_0) s_383)" "((id122_0) id_64)" "((ctx123_0) ctx_23)" "((binding124_0) binding_21))" @@ -39218,25 +39224,25 @@ static const char *startup_source = " id_64)" " #f))" "((temp128_0)" -"(let-values(((or-part_254)(expand-context-only-immediate? ctx_23)))" -"(if or-part_254 or-part_254(1/rename-transformer? t_52)))))" +"(let-values(((or-part_255)(expand-context-only-immediate? ctx_23)))" +"(if or-part_255 or-part_255(1/rename-transformer? t_52)))))" "(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_53 s_388 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_53 s_389 id_65 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_388)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_389)))(void)))" " id_65))" "(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_388 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_389 id_65)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" @@ -39307,9 +39313,9 @@ static const char *startup_source = "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_255) origin-id_0))" -"(if or-part_255" -" or-part_255" +"(let-values(((or-part_256) origin-id_0))" +"(if or-part_256" +" or-part_256" "(if(identifier? s_60) s_60(car(syntax-e$1 s_60))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" @@ -39341,9 +39347,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_256)(expand-context-only-immediate? ctx_26)))" -"(if or-part_256" -" or-part_256" +"(let-values(((or-part_257)(expand-context-only-immediate? ctx_26)))" +"(if or-part_257" +" or-part_257" "(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" @@ -39354,15 +39360,15 @@ 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_183) accum-ctx_0))" -"(let-values(((the-struct_56) v_183))" +"(let-values(((v_184) accum-ctx_0))" +"(let-values(((the-struct_56) v_184))" "(if(expand-context/outer? the-struct_56)" "(let-values(((current-introduction-scopes132_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes133_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner134_0)(root-expand-context/outer-inner v_183)))" +"((inner134_0)(root-expand-context/outer-inner v_184)))" "(expand-context/outer1.1" " inner134_0" "(root-expand-context/outer-post-expansion-scope the-struct_56)" @@ -39392,8 +39398,8 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_257) insp-of-t_6))" -"(if or-part_257 or-part_257(current-module-code-inspector))))" +"(let-values(((or-part_258) insp-of-t_6))" +"(if or-part_258 or-part_258(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_55) cleaned-s_1)))))))" @@ -39429,45 +39435,45 @@ static const char *startup_source = "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_258)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_258 or-part_258(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_259)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_259 or-part_259(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_207 ctx_28)" +"(lambda(s_97 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_207(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_207)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_97(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_97)))))" "(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_16) v_184))" -"(if(expand-context/outer? the-struct_16)" +"(let-values(((v_185) ctx_29))" +"(let-values(((the-struct_57) v_185))" +"(if(expand-context/outer? the-struct_57)" "(let-values(((scopes135_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner136_0)(root-expand-context/outer-inner v_184)))" +"((inner136_0)(root-expand-context/outer-inner v_185)))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_16)" -"(root-expand-context/outer-use-site-scopes the-struct_16)" -"(root-expand-context/outer-frame-id the-struct_16)" -"(expand-context/outer-context the-struct_16)" -"(expand-context/outer-env the-struct_16)" -"(expand-context/outer-post-expansion-scope-action the-struct_16)" +"(root-expand-context/outer-post-expansion-scope the-struct_57)" +"(root-expand-context/outer-use-site-scopes the-struct_57)" +"(root-expand-context/outer-frame-id the-struct_57)" +"(expand-context/outer-context the-struct_57)" +"(expand-context/outer-env the-struct_57)" +"(expand-context/outer-post-expansion-scope-action the-struct_57)" " scopes135_0" -"(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)" -"(expand-context/outer-name the-struct_16)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_57)" +"(expand-context/outer-binding-layer the-struct_57)" +"(expand-context/outer-reference-records the-struct_57)" +"(expand-context/outer-only-immediate? the-struct_57)" +"(expand-context/outer-need-eventually-defined the-struct_57)" +"(expand-context/outer-current-introduction-scopes the-struct_57)" +"(expand-context/outer-name the-struct_57)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))))" "(define-values" "(lookup28.1)" "(lambda(in21_0 in23_0 out-of-context-as-variable?22_0 out-of-context-as-variable?24_0 b25_0 ctx26_0 id27_0)" @@ -39501,19 +39507,19 @@ static const char *startup_source = " id142_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_389 alternate-id_3)" +"(lambda(s_390 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_389)" -"(if(identifier? s_389)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_389) s_389))" +"(let-values() s_390)" +"(if(identifier? s_390)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_390) s_390))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_389)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_390)))" "(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_389)" -" s_389)" -" s_389))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_390)" +" s_390)" +" s_390))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39535,7 +39541,7 @@ static const char *startup_source = " ctx40_0)" "(begin" " 'expand/capture-lifts41" -"(let-values(((s_390) s39_0))" +"(let-values(((s_391) s39_0))" "(let-values(((ctx_31) ctx40_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?35_0 expand-lifts?31_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?36_0 begin-form?32_0 #f)))" @@ -39546,7 +39552,7 @@ static const char *startup_source = "(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" -"(lambda(s_218 always-wrap?_1 ctx_32)" +"(lambda(s_219 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39564,14 +39570,14 @@ static const char *startup_source = "(make-lift-context6.1 temp146_1 #t temp145_1))))" "(let-values(((capture-ctx_0)" "(let-values(((v_76) ctx_32))" -"(let-values(((the-struct_57) v_76))" -"(if(expand-context/outer? the-struct_57)" +"(let-values(((the-struct_58) v_76))" +"(if(expand-context/outer? the-struct_58)" "(let-values(((inner147_0)" -"(let-values(((the-struct_58)" +"(let-values(((the-struct_59)" "(root-expand-context/outer-inner" " v_76)))" "(if(expand-context/inner?" -" the-struct_58)" +" the-struct_59)" "(let-values(((lift-key148_0)" " lift-key_2)" "((lifts149_0)" @@ -39585,10 +39591,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts151_0)" -"(if(let-values(((or-part_259)" +"(if(let-values(((or-part_260)" " local?_0))" -"(if or-part_259" -" or-part_259" +"(if or-part_260" +" or-part_260" "(not" "(memq" " context_6" @@ -39599,88 +39605,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-module-scopes" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-defined-syms" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-counter" -" the-struct_58)" +" the-struct_59)" " lift-key148_0" "(expand-context/inner-to-parsed?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-phase" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-namespace" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-just-once?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-module-begin-k" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-allow-unbound?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-in-local-expand?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-stops" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-declared-submodule-names" -" the-struct_58)" +" the-struct_59)" " lifts149_0" " lift-envs150_0" " module-lifts151_0" "(expand-context/inner-require-lifts" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-to-module-lifts" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-requires+provides" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-observer" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-for-serializable?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_58)))" +" the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_58)))))" +" the-struct_59)))))" "(expand-context/outer1.1" " inner147_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/outer-use-site-scopes" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/outer-frame-id" -" the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" +" 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_57)" -"(expand-context/outer-scopes the-struct_57)" +" the-struct_58)" +"(expand-context/outer-scopes the-struct_58)" "(expand-context/outer-def-ctx-scopes" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-binding-layer" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-reference-records" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-only-immediate?" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-need-eventually-defined" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-current-introduction-scopes" -" the-struct_57)" -"(expand-context/outer-name the-struct_57)))" +" the-struct_58)" +"(expand-context/outer-name the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_57))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_218)))" +" the-struct_58))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_219)))" "(let-values(((exp-s_2)" -"(let-values(((s152_0) s_218)" +"(let-values(((s152_0) s_219)" "((capture-ctx153_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39693,10 +39699,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_260)" +"(if(let-values(((or-part_261)" "(pair? lifts_6)))" -"(if or-part_260" -" or-part_260" +"(if or-part_261" +" or-part_261" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39733,12 +39739,12 @@ static const char *startup_source = " exp-s_2" " phase_104)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_109)(not expand-lifts?_0)))" +"(if(let-values(((or-part_108)(not expand-lifts?_0)))" +"(if or-part_108" +" or-part_108" +"(let-values(((or-part_109)(null? lifts_6)))" "(if or-part_109" " or-part_109" -"(let-values(((or-part_110)(null? lifts_6)))" -"(if or-part_110" -" or-part_110" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -39755,7 +39761,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_93)" -" s_390" +" s_391" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39776,7 +39782,7 @@ static const char *startup_source = " ctx57_0)" "(begin" " 'expand-transformer58" -"(let-values(((s_339) s56_0))" +"(let-values(((s_340) s56_0))" "(let-values(((ctx_33) ctx57_0))" "(let-values(((context_7)(if context50_0 context44_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?51_0 begin-form?45_0 #f)))" @@ -39796,7 +39802,7 @@ static const char *startup_source = " ctx163_0" " context164_0" " #t))))" -"(let-values(((s157_0) s_339)" +"(let-values(((s157_0) s_340)" "((trans-ctx158_0) trans-ctx_0)" "((expand-lifts?159_0) expand-lifts?_1)" "((begin-form?160_0) begin-form?_1)" @@ -39826,9 +39832,9 @@ static const char *startup_source = "(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_105)" -"(let-values(((v_185) ctx_34))" -"(let-values(((the-struct_59) v_185))" -"(if(expand-context/outer? the-struct_59)" +"(let-values(((v_186) ctx_34))" +"(let-values(((the-struct_60) v_186))" +"(if(expand-context/outer? the-struct_60)" "(let-values(((context166_0) context_8)" "((scopes167_0) null)" "((env168_0) empty-env)" @@ -39837,8 +39843,8 @@ static const char *startup_source = "((def-ctx-scopes170_0) #f)" "((post-expansion-scope171_0) #f)" "((inner172_0)" -"(let-values(((the-struct_60)(root-expand-context/outer-inner v_185)))" -"(if(expand-context/inner? the-struct_60)" +"(let-values(((the-struct_61)(root-expand-context/outer-inner v_186)))" +"(if(expand-context/inner? the-struct_61)" "(let-values(((phase173_0) phase_105)" "((namespace174_0) ns_73)" "((stops175_0)" @@ -39846,52 +39852,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_60)" -"(root-expand-context/inner-module-scopes the-struct_60)" -"(root-expand-context/inner-top-level-bind-scope the-struct_60)" -"(root-expand-context/inner-all-scopes-stx the-struct_60)" -"(root-expand-context/inner-defined-syms the-struct_60)" -"(root-expand-context/inner-counter the-struct_60)" -"(root-expand-context/inner-lift-key the-struct_60)" -"(expand-context/inner-to-parsed? the-struct_60)" +"(root-expand-context/inner-self-mpi the-struct_61)" +"(root-expand-context/inner-module-scopes the-struct_61)" +"(root-expand-context/inner-top-level-bind-scope the-struct_61)" +"(root-expand-context/inner-all-scopes-stx the-struct_61)" +"(root-expand-context/inner-defined-syms the-struct_61)" +"(root-expand-context/inner-counter the-struct_61)" +"(root-expand-context/inner-lift-key the-struct_61)" +"(expand-context/inner-to-parsed? the-struct_61)" " phase173_0" " namespace174_0" -"(expand-context/inner-just-once? the-struct_60)" -"(expand-context/inner-module-begin-k the-struct_60)" -"(expand-context/inner-allow-unbound? the-struct_60)" -"(expand-context/inner-in-local-expand? the-struct_60)" +"(expand-context/inner-just-once? the-struct_61)" +"(expand-context/inner-module-begin-k the-struct_61)" +"(expand-context/inner-allow-unbound? the-struct_61)" +"(expand-context/inner-in-local-expand? the-struct_61)" " stops175_0" -"(expand-context/inner-declared-submodule-names the-struct_60)" -"(expand-context/inner-lifts the-struct_60)" -"(expand-context/inner-lift-envs the-struct_60)" -"(expand-context/inner-module-lifts the-struct_60)" -"(expand-context/inner-require-lifts the-struct_60)" -"(expand-context/inner-to-module-lifts the-struct_60)" -"(expand-context/inner-requires+provides the-struct_60)" -"(expand-context/inner-observer the-struct_60)" -"(expand-context/inner-for-serializable? the-struct_60)" -"(expand-context/inner-should-not-encounter-macros? the-struct_60)))" +"(expand-context/inner-declared-submodule-names the-struct_61)" +"(expand-context/inner-lifts the-struct_61)" +"(expand-context/inner-lift-envs the-struct_61)" +"(expand-context/inner-module-lifts the-struct_61)" +"(expand-context/inner-require-lifts the-struct_61)" +"(expand-context/inner-to-module-lifts the-struct_61)" +"(expand-context/inner-requires+provides the-struct_61)" +"(expand-context/inner-observer the-struct_61)" +"(expand-context/inner-for-serializable? the-struct_61)" +"(expand-context/inner-should-not-encounter-macros? the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_60)))))" +" the-struct_61)))))" "(expand-context/outer1.1" " inner172_0" " post-expansion-scope171_0" -"(root-expand-context/outer-use-site-scopes the-struct_59)" -"(root-expand-context/outer-frame-id the-struct_59)" +"(root-expand-context/outer-use-site-scopes the-struct_60)" +"(root-expand-context/outer-frame-id the-struct_60)" " context166_0" " env168_0" -"(expand-context/outer-post-expansion-scope-action the-struct_59)" +"(expand-context/outer-post-expansion-scope-action the-struct_60)" " scopes167_0" " def-ctx-scopes170_0" -"(expand-context/outer-binding-layer the-struct_59)" -"(expand-context/outer-reference-records the-struct_59)" +"(expand-context/outer-binding-layer the-struct_60)" +"(expand-context/outer-reference-records the-struct_60)" " only-immediate?169_0" -"(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))))))))))))))" +"(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))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding74.1)" "(lambda(log-next?69_0 log-next?70_0 rhs71_0 ids72_0 ctx73_0)" @@ -39971,8 +39977,8 @@ static const char *startup_source = "(void)" " (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_391)(begin(datum->syntax$1 #f 'props s_391 s_391))))" -"(define-values(keep-properties-only~)(lambda(s_392)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_392)(begin(datum->syntax$1 #f 'props s_392 s_392))))" +"(define-values(keep-properties-only~)(lambda(s_393)(begin #f)))" "(define-values" "(keep-as-needed85.1)" "(lambda(for-track?77_0" @@ -39986,42 +39992,42 @@ static const char *startup_source = "(begin" " 'keep-as-needed85" "(let-values(((ctx_38) ctx83_0))" -"(let-values(((s_393) s84_0))" +"(let-values(((s_394) s84_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?81_0 keep-for-parsed?78_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?82_0 keep-for-error?79_0 #f)))" "(let-values()" -"(let-values(((d_31)(syntax-e$1 s_393)))" +"(let-values(((d_32)(syntax-e$1 s_394)))" "(let-values(((keep-e_0)" -"(if(symbol? d_31)" -"(let-values() d_31)" -"(if(if(pair? d_31)(identifier?(car d_31)) #f)" -"(let-values()(syntax-e$1(car d_31)))" +"(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_261) keep-for-parsed?_0))" -"(if or-part_261 or-part_261 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_393 s_393)" +"(if(let-values(((or-part_262) keep-for-parsed?_0))" +"(if or-part_262 or-part_262 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_394 s_394)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_393) keep-e_0 s_393 s_393)" -" s_393))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_394) keep-e_0 s_394 s_394)" +" s_394))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_394 trans-idss_0)" +"(lambda(s_395 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_394)" +"(let-values() s_395)" "(let-values()" "(syntax-property$1" -" s_394" +" s_395" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_262)(syntax-property$1 s_394 'disappeared-binding)))" -"(if or-part_262 or-part_262 null)))))))))" +"(let-values(((or-part_263)(syntax-property$1 s_395 'disappeared-binding)))" +"(if or-part_263 or-part_263 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -40030,12 +40036,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_263)(identifier? ids_23)))" -"(if or-part_263" -" or-part_263" +"(let-values(((or-part_264)(identifier? ids_23)))" +"(if or-part_264" +" or-part_264" "(if(pair? ids_23)" -"(let-values(((or-part_264)(loop_94(car ids_23))))" -"(if or-part_264 or-part_264(loop_94(cdr ids_23))))" +"(let-values(((or-part_265)(loop_94(car ids_23))))" +"(if or-part_265 or-part_265(loop_94(cdr ids_23))))" " #f)))))))" " loop_94)" " ids_22)" @@ -40064,39 +40070,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_186) rhs-ctx_1))" -"(let-values(((the-struct_61) v_186))" -"(if(expand-context/outer? the-struct_61)" +"(let-values(((v_187) rhs-ctx_1))" +"(let-values(((the-struct_62) v_187))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((env186_0)" -"(let-values(((lst_285) ids_24)((lst_286) keys_4))" +"(let-values(((lst_283) ids_24)((lst_284) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" +"(let-values()(check-list lst_283)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_286)))" -"((letrec-values(((for-loop_253)" -"(lambda(env_3 lst_287 lst_288)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_252)" +"(lambda(env_3 lst_285 lst_286)" "(begin" " 'for-loop" -"(if(if(pair? lst_287)" -"(pair? lst_288)" +"(if(if(pair? lst_285)" +"(pair? lst_286)" " #f)" "(let-values(((id_69)" "(unsafe-car" -" lst_287))" +" lst_285))" "((rest_158)" "(unsafe-cdr" -" lst_287))" +" lst_285))" "((key_85)" "(unsafe-car" -" lst_288))" +" lst_286))" "((rest_159)" "(unsafe-cdr" -" lst_288)))" +" lst_286)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40110,37 +40116,37 @@ static const char *startup_source = "(values" " env_6)))))" "(if(not #f)" -"(for-loop_253" +"(for-loop_252" " env_4" " rest_158" " rest_159)" " env_4)))" " env_3)))))" -" for-loop_253)" +" for-loop_252)" "(expand-context-env rhs-ctx_1)" -" lst_285" -" lst_286))))" -"((inner187_0)(root-expand-context/outer-inner v_186)))" +" lst_283" +" lst_284))))" +"((inner187_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" " inner187_0" -"(root-expand-context/outer-post-expansion-scope the-struct_61)" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" -"(expand-context/outer-context the-struct_61)" +"(root-expand-context/outer-post-expansion-scope the-struct_62)" +"(root-expand-context/outer-use-site-scopes the-struct_62)" +"(root-expand-context/outer-frame-id the-struct_62)" +"(expand-context/outer-context the-struct_62)" " env186_0" -"(expand-context/outer-post-expansion-scope-action the-struct_61)" -"(expand-context/outer-scopes the-struct_61)" -"(expand-context/outer-def-ctx-scopes the-struct_61)" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" -"(expand-context/outer-only-immediate? the-struct_61)" -"(expand-context/outer-need-eventually-defined the-struct_61)" -"(expand-context/outer-current-introduction-scopes the-struct_61)" -"(expand-context/outer-name the-struct_61)))" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" +"(expand-context/outer-scopes the-struct_62)" +"(expand-context/outer-def-ctx-scopes the-struct_62)" +"(expand-context/outer-binding-layer the-struct_62)" +"(expand-context/outer-reference-records the-struct_62)" +"(expand-context/outer-only-immediate? the-struct_62)" +"(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_61)))))))))))))))))" +" the-struct_62)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -40169,19 +40175,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_62) new-s_1))" -"(if(syntax?$1 the-struct_62)" +"(let-values(((the-struct_63) new-s_1))" +"(if(syntax?$1 the-struct_63)" "(let-values(((srcloc188_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_62)" -"(syntax-scopes the-struct_62)" -"(syntax-shifted-multi-scopes the-struct_62)" -"(syntax-scope-propagations+tamper the-struct_62)" -"(syntax-mpi-shifts the-struct_62)" +"(syntax-content the-struct_63)" +"(syntax-scopes the-struct_63)" +"(syntax-shifted-multi-scopes the-struct_63)" +"(syntax-scope-propagations+tamper the-struct_63)" +"(syntax-mpi-shifts the-struct_63)" " srcloc188_0" -"(syntax-props the-struct_62)" -"(syntax-inspector the-struct_62)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_62)))" +"(syntax-props the-struct_63)" +"(syntax-inspector the-struct_63)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_63)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -40199,12 +40205,12 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_102) auto-stop-syms))" +"(let-values(((lst_101) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_110)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_88 lst_6)" "(begin" " 'for-loop" @@ -40221,11 +40227,11 @@ static const char *startup_source = " sym_63))" " fold-var_90))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_110 fold-var_89 rest_48) fold-var_89)))" +"(if(not #f)(for-loop_111 fold-var_89 rest_48) fold-var_89)))" " fold-var_88)))))" -" for-loop_110)" +" for-loop_111)" " null" -" lst_102)))))))))))))" +" lst_101)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40249,15 +40255,15 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" "(reverse$1" -"(let-values(((lst_224) module-stop-syms))" +"(let-values(((lst_222) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_241 lst_264)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_253)" +"(lambda(fold-var_241 lst_262)" "(begin" " 'for-loop" -"(if(pair? lst_264)" -"(let-values(((sym_16)(unsafe-car lst_264))((rest_160)(unsafe-cdr lst_264)))" +"(if(pair? lst_262)" +"(let-values(((sym_16)(unsafe-car lst_262))((rest_160)(unsafe-cdr lst_262)))" "(let-values(((fold-var_222)" "(let-values(((fold-var_223) fold-var_241))" "(let-values(((fold-var_224)" @@ -40267,11 +40273,11 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_16))" " fold-var_223))))" "(values fold-var_224)))))" -"(if(not #f)(for-loop_254 fold-var_222 rest_160) fold-var_222)))" +"(if(not #f)(for-loop_253 fold-var_222 rest_160) fold-var_222)))" " fold-var_241)))))" -" for-loop_254)" +" for-loop_253)" " null" -" lst_224))))))))" +" lst_222))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40351,11 +40357,11 @@ static const char *startup_source = "(let-values(((or-part_66)(root-expand-context-frame-id ctx_43)))" "(if or-part_66" " or-part_66" -"(let-values(((or-part_164)" +"(let-values(((or-part_165)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_164 or-part_164(gensym)))))))" +"(if or-part_165 or-part_165(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40375,7 +40381,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_395 intdef_0)" +"(lambda(ids_25 s_396 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40387,9 +40393,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_72)(not s_395)))(if or-part_72 or-part_72(syntax?$1 s_395)))" +"(if(let-values(((or-part_72)(not s_396)))(if or-part_72 or-part_72(syntax?$1 s_396)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_395)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_396)))" "(values))))" "(let-values((()" "(begin" @@ -40414,18 +40420,18 @@ static const char *startup_source = "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_289) ids_25))" +"(let-values(((lst_287) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" -"((letrec-values(((for-loop_176)" -"(lambda(fold-var_16 lst_188)" +"(let-values()(check-list lst_287)))" +"((letrec-values(((for-loop_175)" +"(lambda(fold-var_16 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_188)" -"(let-values(((id_71)(unsafe-car lst_188))" -"((rest_161)(unsafe-cdr lst_188)))" +"(if(pair? lst_186)" +"(let-values(((id_71)(unsafe-car lst_186))" +"((rest_161)(unsafe-cdr lst_186)))" "(let-values(((fold-var_233)" "(let-values(((fold-var_242)" " fold-var_16))" @@ -40455,12 +40461,12 @@ static const char *startup_source = " fold-var_242))))" "(values fold-var_243)))))" "(if(not #f)" -"(for-loop_176 fold-var_233 rest_161)" +"(for-loop_175 fold-var_233 rest_161)" " fold-var_233)))" " fold-var_16)))))" -" for-loop_176)" +" for-loop_175)" " null" -" lst_289))))))" +" lst_287))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40471,18 +40477,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_290) intdef-ids_0))" +"(let-values(((lst_288) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_244 lst_291)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_254)" +"(lambda(fold-var_244 lst_289)" "(begin" " 'for-loop" -"(if(pair? lst_291)" -"(let-values(((intdef-id_0)(unsafe-car lst_291))" -"((rest_162)(unsafe-cdr lst_291)))" +"(if(pair? lst_289)" +"(let-values(((intdef-id_0)(unsafe-car lst_289))" +"((rest_162)(unsafe-cdr lst_289)))" "(let-values(((fold-var_245)" "(let-values(((fold-var_246)" " fold-var_244))" @@ -40511,40 +40517,40 @@ static const char *startup_source = " fold-var_246))))" "(values fold-var_247)))))" "(if(not #f)" -"(for-loop_255 fold-var_245 rest_162)" +"(for-loop_254 fold-var_245 rest_162)" " fold-var_245)))" " fold-var_244)))))" -" for-loop_255)" +" for-loop_254)" " null" -" lst_290))))))" +" lst_288))))))" "(let-values(((vals_5)" -"(if s_395" +"(if s_396" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_395)" +"(let-values(((s51_0) s_396)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_292) syms_21))" +"(let-values(((lst_290) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_171)" +"(lambda(env_7 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_171)" +"(if(pair? lst_169)" "(let-values(((sym_64)" "(unsafe-car" -" lst_171))" +" lst_169))" "((rest_163)" "(unsafe-cdr" -" lst_171)))" +" lst_169)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40564,7 +40570,7 @@ static const char *startup_source = " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_292)))))" +" lst_290)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40580,47 +40586,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_187) ctx_44))" -"(let-values(((the-struct_63) v_187))" +"(let-values(((v_188) ctx_44))" +"(let-values(((the-struct_64) v_188))" "(if(expand-context/outer?" -" the-struct_63)" +" the-struct_64)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_187)))" +" v_188)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/outer-use-site-scopes" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/outer-frame-id" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-context" -" the-struct_63)" +" the-struct_64)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-scopes" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-def-ctx-scopes" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-binding-layer" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-reference-records" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-only-immediate?" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-need-eventually-defined" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-current-introduction-scopes" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-name" -" the-struct_63)))" +" the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63)))))" +" the-struct_64)))))" "((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40644,18 +40650,18 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_293) ids_25))" +"(let-values(((lst_291) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_181 lst_294)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_181 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((id_72)(unsafe-car lst_294))" -"((rest_164)(unsafe-cdr lst_294)))" +"(if(pair? lst_292)" +"(let-values(((id_72)(unsafe-car lst_292))" +"((rest_164)(unsafe-cdr lst_292)))" "(let-values(((fold-var_248)" "(let-values(((fold-var_249)" " fold-var_181))" @@ -40667,42 +40673,42 @@ static const char *startup_source = " fold-var_249))))" "(values fold-var_250)))))" "(if(not #f)" -"(for-loop_256 fold-var_248 rest_164)" +"(for-loop_255 fold-var_248 rest_164)" " fold-var_248)))" " fold-var_181)))))" -" for-loop_256)" +" for-loop_255)" " null" -" lst_293))))))))" +" lst_291))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_21)((lst_297) vals_5))" +"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_293)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_294)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_295)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_296)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_297)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_251 lst_298 lst_107 lst_299)" +"(lambda(fold-var_251 lst_296 lst_106 lst_297)" "(begin" " 'for-loop" -"(if(if(pair? lst_298)" -"(if(pair? lst_107)(pair? lst_299) #f)" +"(if(if(pair? lst_296)" +"(if(pair? lst_106)(pair? lst_297) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_298))" -"((rest_165)(unsafe-cdr lst_298))" -"((sym_65)(unsafe-car lst_107))" -"((rest_102)(unsafe-cdr lst_107))" -"((val_27)(unsafe-car lst_299))" -"((rest_166)(unsafe-cdr lst_299)))" +"(let-values(((intdef-id_1)(unsafe-car lst_296))" +"((rest_165)(unsafe-cdr lst_296))" +"((sym_65)(unsafe-car lst_106))" +"((rest_102)(unsafe-cdr lst_106))" +"((val_27)(unsafe-car lst_297))" +"((rest_166)(unsafe-cdr lst_297)))" "(let-values(((fold-var_186)" "(let-values(((fold-var_36)" " fold-var_251))" @@ -40733,9 +40739,9 @@ static const char *startup_source = " fold-var_251)))))" " for-loop_79)" " null" -" lst_295" -" lst_296" -" lst_297))))" +" lst_293" +" lst_294" +" lst_295))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40755,16 +40761,16 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_300)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_252 lst_230)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_252 lst_228)" "(begin" " 'for-loop" -"(if(pair? lst_230)" -"(let-values(((env-mixin_0)(unsafe-car lst_230))" -"((rest_167)(unsafe-cdr lst_230)))" +"(if(pair? lst_228)" +"(let-values(((env-mixin_0)(unsafe-car lst_228))" +"((rest_167)(unsafe-cdr lst_228)))" "(let-values(((fold-var_253)" "(let-values(((fold-var_187) fold-var_252))" "(let-values(((fold-var_254)" @@ -40773,11 +40779,11 @@ static const char *startup_source = "(let-values()(env-mixin-id env-mixin_0))" " fold-var_187))))" "(values fold-var_254)))))" -"(if(not #f)(for-loop_257 fold-var_253 rest_167) fold-var_253)))" +"(if(not #f)(for-loop_256 fold-var_253 rest_167) fold-var_253)))" " fold-var_252)))))" -" for-loop_257)" +" for-loop_256)" " null" -" lst_300))))))))" +" lst_298))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40785,7 +40791,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_396) s12_1))" +"(let-values(((s_397) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40796,11 +40802,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_396)" +"(if(syntax?$1 s_397)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_396)))" -"(let-values(((s59_0) s_396)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_397)))" +"(let-values(((s59_0) s_397)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_32) mode_12))" @@ -40840,8 +40846,8 @@ static const char *startup_source = "(if(identifier? id_73)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" -"(if(let-values(((or-part_265)(1/internal-definition-context? intdef_6)))" -"(if or-part_265 or-part_265(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_266)(1/internal-definition-context? intdef_6)))" +"(if or-part_266 or-part_266(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40855,7 +40861,7 @@ static const char *startup_source = "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_176)" "(lambda(id_19 a_46)" "(begin" " 'for-loop" @@ -40870,9 +40876,9 @@ static const char *startup_source = " id_75" " 'remove))))" "(values id_76)))))" -"(if(not #f)(for-loop_177 id_74(cdr a_46)) id_74)))" +"(if(not #f)(for-loop_176 id_74(cdr a_46)) id_74)))" " id_19)))))" -" for-loop_177)" +" for-loop_176)" " id_73" " x_72)))))))" "(define-values" @@ -40886,7 +40892,7 @@ static const char *startup_source = "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_258)" +"((letrec-values(((for-loop_257)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40910,14 +40916,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_266)" +"(let-values(((or-part_267)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_266" -" or-part_266" +"(if or-part_267" +" or-part_267" "(let-values(((new-env_0)" "(env-extend" "(loop_95" @@ -40939,9 +40945,9 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_258 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_257 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_258)" +" for-loop_257)" " env_11" " x_73))))))" "(define-values" @@ -40949,7 +40955,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_397) s19_0))" +"(let-values(((s_398) 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)))" @@ -40961,17 +40967,17 @@ static const char *startup_source = "(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" "(begin" " #t" -"((letrec-values(((for-loop_180)" -"(lambda(s_383 a_50)" +"((letrec-values(((for-loop_179)" +"(lambda(s_384 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" "(let-values(((s_204)" -"(let-values(((s_205) s_383))" -"(if(let-values(((or-part_267) always?_0))" -"(if or-part_267" -" or-part_267" +"(let-values(((s_205) s_384))" +"(if(let-values(((or-part_268) always?_0))" +"(if or-part_268" +" or-part_268" "(internal-definition-context-add-scope?" " intdef_9)))" "(let-values(((s_92) s_205))" @@ -40983,10 +40989,10 @@ static const char *startup_source = " intdef_9)))))" "(values s_315)))" " s_205))))" -"(if(not #f)(for-loop_180 s_204(cdr a_50)) s_204)))" -" s_383)))))" -" for-loop_180)" -" s_397" +"(if(not #f)(for-loop_179 s_204(cdr a_50)) s_204)))" +" s_384)))))" +" for-loop_179)" +" s_398" " x_74)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -41012,9 +41018,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_268)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_268" -" or-part_268" +"(let-values(((or-part_269)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_269" +" or-part_269" "(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_111) #f)))" @@ -41022,20 +41028,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_188) ctx_45))" -"(let-values(((the-struct_64) v_188))" -"(if(expand-context/outer? the-struct_64)" +"(let-values(((v_189) ctx_45))" +"(let-values(((the-struct_18) v_189))" +"(if(expand-context/outer? the-struct_18)" "(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_269)(eq? context_9 'module)))" -"(if or-part_269" -" or-part_269" -"(let-values(((or-part_270)(eq? context_9 'module-begin)))" -"(if or-part_270 or-part_270(list? context_9)))))" -"(let-values(((or-part_271)" +"(if(let-values(((or-part_270)(eq? context_9 'module)))" +"(if or-part_270" +" or-part_270" +"(let-values(((or-part_271)(eq? context_9 'module-begin)))" +"(if or-part_271 or-part_271(list? context_9)))))" +"(let-values(((or-part_272)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_271 or-part_271(box null)))" +"(if or-part_272 or-part_272(box null)))" " #f))" "((frame-id65_0)" "(let-values(((x_75)" @@ -41047,7 +41053,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -41072,17 +41078,17 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_272)" +"(let-values(((or-part_273)" " frame-id_11))" -"(if or-part_272" -" or-part_272" +"(if or-part_273" +" or-part_273" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_127 frame-id_10(cdr a_52))" +"(for-loop_128 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_127)" +" for-loop_128)" "(root-expand-context-frame-id ctx_45)" " x_75))))" "((post-expansion-scope66_0)" @@ -41105,12 +41111,12 @@ static const char *startup_source = "((only-immediate?69_0)(not stop-ids_1))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_139)(expand-context-need-eventually-defined ctx_45)))" +"(let-values(((ht_138)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_139)" -"(if ht_139(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_138)" +"(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_65)(root-expand-context/outer-inner v_188)))" +"(let-values(((the-struct_65)(root-expand-context/outer-inner v_189)))" "(if(expand-context/inner? the-struct_65)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" @@ -41121,8 +41127,8 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_111" -"(let-values(((or-part_273) all-stop-ids_0))" -"(if or-part_273 or-part_273 null)))))" +"(let-values(((or-part_274) all-stop-ids_0))" +"(if or-part_274 or-part_274 null)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_65)" "(root-expand-context/inner-module-scopes the-struct_65)" @@ -41163,20 +41169,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(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-def-ctx-scopes the-struct_18)" +"(expand-context/outer-binding-layer the-struct_18)" +"(expand-context/outer-reference-records the-struct_18)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_64)))" +"(expand-context/outer-name the-struct_18)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64))))))))))))))))))" +" the-struct_18))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_123 ctx_46)(begin(flip-scopes s_123(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_122 ctx_46)(begin(flip-scopes s_122(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41215,21 +41221,21 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_398)" +"(lambda(s_399)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_398)" +"(if(syntax?$1 s_399)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_398)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_399)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_398 ctx_51))))))))" +"(flip-introduction-scopes s_399 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_77)" @@ -41302,7 +41308,7 @@ static const char *startup_source = " mode_13))))))))))))))" "(case-lambda" "((s_43)(core77_0 s_43 #f #f))" -"((s_181 mode74_1)(core77_0 s_181 mode74_1 #t)))))))))))" +"((s_180 mode74_1)(core77_0 s_180 mode74_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" "((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))" @@ -41331,8 +41337,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_14)" -"(let-values(((or-part_274)(not x_14)))" -"(if or-part_274 or-part_274(syntax?$1 x_14))))" +"(let-values(((or-part_275)(not x_14)))" +"(if or-part_275 or-part_275(syntax?$1 x_14))))" " base-s_0)" "(void)" "(let-values()" @@ -41386,7 +41392,7 @@ static const char *startup_source = "(lambda(s85_0 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_399) s85_0))" +"(let-values(((s_400) s85_0))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" @@ -41394,13 +41400,13 @@ static const char *startup_source = "(let-values(((tmp_34) mode_14))" "(if(equal? tmp_34 'add)" "(let-values()" -"(add-scopes s_399 delta-scs_0))" +"(add-scopes s_400 delta-scs_0))" "(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_399 delta-scs_0))" +"(remove-scopes s_400 delta-scs_0))" "(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_399 delta-scs_0))" +"(flip-scopes s_400 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41408,7 +41414,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_15)(core86_0 s_15 #f #f))" -"((s_400 mode83_1)(core86_0 s_400 mode83_1 #t))))))))))))))))))))))" +"((s_401 mode83_1)(core86_0 s_401 mode83_1 #t))))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" "((ext-s_2 base-s_2 phase5_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))" @@ -41447,9 +41453,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_76)" -"(let-values(((or-part_206)(not x_76)))" -"(if or-part_206" -" or-part_206" +"(let-values(((or-part_207)(not x_76)))" +"(if or-part_207" +" or-part_207" "((lambda(p_49)" "(if(procedure? p_49)(procedure-arity-includes? p_49 0) #f))" " x_76))))" @@ -41464,8 +41470,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_21)" -"(let-values(((or-part_207)(not x_21)))" -"(if or-part_207 or-part_207(1/internal-definition-context? x_21))))" +"(let-values(((or-part_208)(not x_21)))" +"(if or-part_208 or-part_208(1/internal-definition-context? x_21))))" " intdef_11)" "(void)" "(let-values()" @@ -41479,14 +41485,14 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who89_0 #t))))" "(let-values(((ctx_55)" "(if intdef_11" -"(let-values(((v_189) current-ctx_0))" -"(let-values(((the-struct_13) v_189))" +"(let-values(((v_190) current-ctx_0))" +"(let-values(((the-struct_13) v_190))" "(if(expand-context/outer? the-struct_13)" "(let-values(((env90_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner91_0)(root-expand-context/outer-inner v_189)))" +"((inner91_0)(root-expand-context/outer-inner v_190)))" "(expand-context/outer1.1" " inner91_0" "(root-expand-context/outer-post-expansion-scope the-struct_13)" @@ -41580,8 +41586,8 @@ static const char *startup_source = " b95_0" " ctx96_0" " id97_1))))" -"(if(let-values(((or-part_275)(variable? v_37)))" -"(if or-part_275 or-part_275(core-form? v_37)))" +"(if(let-values(((or-part_276)(variable? v_37)))" +"(if or-part_276 or-part_276(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_35)" @@ -41708,7 +41714,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_258)" "(lambda(fold-var_255 pos_106)" "(begin" " 'for-loop" @@ -41743,10 +41749,10 @@ static const char *startup_source = " fold-var_257))))" "(values fold-var_258)))))" "(if(not #f)" -"(for-loop_259 fold-var_256(+ pos_106 inc_24))" +"(for-loop_258 fold-var_256(+ pos_106 inc_24))" " fold-var_256)))" " fold-var_255)))))" -" for-loop_259)" +" for-loop_258)" " null" " start_40))))))" "(begin" @@ -41763,10 +41769,10 @@ static const char *startup_source = "(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_401)" +"(lambda(s_402)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_401)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_402)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" "(lambda(n_29 s_312)" @@ -41786,23 +41792,23 @@ static const char *startup_source = "(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_402)" +"(lambda(s_403)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_402)" +"(if(syntax?$1 s_403)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_402)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_403)))" "(values))))" "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" "(let-values(((phase_114)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_402 phase_114)))" +"(let-values(((tmp_35)(core-form-sym s_403 phase_114)))" "(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" @@ -41814,13 +41820,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_402)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_402 ctx_58) phase_114))))" +" s_403)))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_403 ctx_58) phase_114))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_402))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_403))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" "(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_402)))" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_403)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41843,7 +41849,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_19) who52_0))" -"(let-values(((s_403) s53_1))" +"(let-values(((s_404) 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)))" @@ -41857,7 +41863,7 @@ static const char *startup_source = "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_404 phase_116 lift-ctx_2)(begin 'shift-wrap s_404)))))" +"(lambda(s_405 phase_116 lift-ctx_2)(begin 'shift-wrap s_405)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" @@ -41865,9 +41871,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_403)" +"(if(syntax?$1 s_404)" "(void)" -" (let-values () (raise-argument-error who_19 \"syntax?\" s_403)))" +" (let-values () (raise-argument-error who_19 \"syntax?\" s_404)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_59)" @@ -41883,12 +41889,12 @@ static const char *startup_source = " who_19" " no-target-msg_0" " \"form to lift\"" -" s_403)))" +" s_404)))" "(values))))" "(let-values(((phase_118)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_403 ctx_59) s_403)))" +"(if intro?_0(flip-introduction-scopes s_404 ctx_59) s_404)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_118)" @@ -41900,32 +41906,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_31 inc_25)))" -"((letrec-values(((for-loop_204)" -"(lambda(s_207 pos_24)" +"((letrec-values(((for-loop_203)" +"(lambda(s_97 pos_24)" "(begin" " 'for-loop" "(if(> pos_24 end_31)" "(let-values(((phase_53)" " pos_24))" -"(let-values(((s_405)" "(let-values(((s_406)" -" s_207))" "(let-values(((s_407)" +" s_97))" +"(let-values(((s_408)" "(let-values()" "(shift-wrap_0" -" s_406" +" s_407" "(sub1" " phase_53)" " lift-ctx_4))))" "(values" -" s_407)))))" +" s_408)))))" "(if(not #f)" -"(for-loop_204" -" s_405" +"(for-loop_203" +" s_406" "(+ pos_24 inc_25))" -" s_405)))" -" s_207)))))" -" for-loop_204)" +" s_406)))" +" s_97)))))" +" for-loop_203)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" @@ -41935,7 +41941,7 @@ static const char *startup_source = "(values ctx_59 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_110 use-s_1)" +"(lambda(s_109 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values()" @@ -41943,7 +41949,7 @@ static const char *startup_source = "(let-values(((sc_33)(new-scope 'macro)))" "(let-values(((ctx_4 added-s_1)" "(let-values(((who118_0) 'syntax-local-lift-require)" -"((temp119_1)(datum->syntax$1 #f s_110))" +"((temp119_1)(datum->syntax$1 #f s_109))" " ((temp120_1) \"could not find target context\")" "((temp121_0) #f)" "((temp122_0)" @@ -41956,11 +41962,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_1)" -"(lambda(s_408 phase_119 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_408)))" +"(lambda(s_409 phase_119 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_409)))" "((temp127_1)" -"(lambda(s_217 phase_120 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_217 sc_33) phase_120))))" +"(lambda(s_115 phase_120 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_115 sc_33) phase_120))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -41994,23 +42000,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_117)" +"(lambda(s_116)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" "(let-values(((ctx_60 result-s_7)" "(let-values(((who129_0) 'syntax-local-lift-provide)" -"((s130_0) s_117)" +"((s130_0) s_116)" " ((temp131_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts132_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_409 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_409 #f)))" +"(lambda(s_410 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_410 #f)))" "((temp136_0)" -"(lambda(s_410 phase_122 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_410 phase_122))))" +"(lambda(s_411 phase_122 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_411 phase_122))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -42034,14 +42040,14 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_411)" +"(lambda(s_412)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" "(let-values(((ctx_61 also-s_0)" "(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" -"((s139_0) s_411)" +"((s139_0) s_412)" "((temp140_2)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" @@ -42053,8 +42059,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_123)" " orig-s_32)))" "((temp145_2)" -"(lambda(s_219 phase_124 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_219 phase_124))))" +"(lambda(s_125 phase_124 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_125 phase_124))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -42074,15 +42080,15 @@ static const char *startup_source = " s139_0))))" "(let-values(((obs_26)(expand-context-observer ctx_61)))" "(if obs_26" -"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_411)))" +"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_412)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_220 phase_125)" +"(lambda(sym_66 s_126 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_220)))))" +"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_126)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42112,8 +42118,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_183)(not mod-path_8)))" -"(if or-part_183 or-part_183(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_184)(not mod-path_8)))" +"(if or-part_184 or-part_184(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42123,8 +42129,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_219)(eq? phase-level_21 #t)))" -"(if or-part_219 or-part_219(phase? phase-level_21)))" +"(if(let-values(((or-part_220)(eq? phase-level_21 #t)))" +"(if or-part_220 or-part_220(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42153,18 +42159,18 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_140)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_139)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_140)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_204 i_166)" +"(let-values()(check-in-hash ht_139)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_204 i_167)" "(begin" " 'for-loop" -"(if i_166" +"(if i_167" "(let-values(((phase_126 ids_27)" -"(hash-iterate-key+value ht_140 i_166)))" +"(hash-iterate-key+value ht_139 i_167)))" "(let-values(((fold-var_259)" "(let-values(((fold-var_260) fold-var_204))" "(let-values(((fold-var_261)" @@ -42175,43 +42181,43 @@ static const char *startup_source = " fold-var_260))))" "(values fold-var_261)))))" "(if(not #f)" -"(for-loop_260" +"(for-loop_259" " fold-var_259" -"(hash-iterate-next ht_140 i_166))" +"(hash-iterate-next ht_139 i_167))" " fold-var_259)))" " fold-var_204)))))" -" for-loop_260)" +" for-loop_259)" " null" -"(hash-iterate-first ht_140)))))" +"(hash-iterate-first ht_139)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_301) requireds_1))" +"(let-values(((lst_299) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_261)" -"(lambda(ht_141 lst_302)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_260)" +"(lambda(ht_140 lst_300)" "(begin" " 'for-loop" -"(if(pair? lst_302)" -"(let-values(((r_43)(unsafe-car lst_302))((rest_168)(unsafe-cdr lst_302)))" -"(let-values(((ht_142)" -"(let-values(((ht_143) ht_141))" -"(let-values(((ht_144)" +"(if(pair? lst_300)" +"(let-values(((r_42)(unsafe-car lst_300))((rest_168)(unsafe-cdr lst_300)))" +"(let-values(((ht_141)" +"(let-values(((ht_142) ht_140))" +"(let-values(((ht_143)" "(let-values()" "(hash-update" -" ht_143" -"(required-phase r_43)" -"(lambda(l_68)(cons(required-id r_43) l_68))" +" ht_142" +"(required-phase r_42)" +"(lambda(l_68)(cons(required-id r_42) l_68))" " null))))" -"(values ht_144)))))" -"(if(not #f)(for-loop_261 ht_142 rest_168) ht_142)))" -" ht_141)))))" -" for-loop_261)" +"(values ht_143)))))" +"(if(not #f)(for-loop_260 ht_141 rest_168) ht_141)))" +" ht_140)))))" +" for-loop_260)" "(hasheqv)" -" lst_301))))))" +" lst_299))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42221,9 +42227,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_276)(1/module-path? mod-path_9)))" -"(if or-part_276" -" or-part_276" +"(if(let-values(((or-part_277)(1/module-path? mod-path_9)))" +"(if or-part_277" +" or-part_277" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42252,18 +42258,18 @@ static const char *startup_source = "(void)" "(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_145)(module-provides m_19)))" +"(let-values(((ht_144)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_262)" +"(let-values()(check-in-hash ht_144)))" +"((letrec-values(((for-loop_261)" "(lambda(fold-var_262 i_12)" "(begin" " 'for-loop" "(if i_12" "(let-values(((phase_127 syms_22)" -"(hash-iterate-key+value ht_145 i_12)))" +"(hash-iterate-key+value ht_144 i_12)))" "(let-values(((fold-var_263)" "(let-values(((fold-var_264) fold-var_262))" "(let-values(((fold-var_265)" @@ -42273,7 +42279,7 @@ static const char *startup_source = "(cons" " phase_127" "(reverse$1" -"(let-values(((ht_146)" +"(let-values(((ht_145)" " syms_22))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42281,17 +42287,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys" -" ht_146)))" -"((letrec-values(((for-loop_263)" +" ht_145)))" +"((letrec-values(((for-loop_262)" "(lambda(fold-var_266" -" i_167)" +" i_168)" "(begin" " 'for-loop" -"(if i_167" +"(if i_168" "(let-values(((sym_67)" "(hash-iterate-key" -" ht_146" -" i_167)))" +" ht_145" +" i_168)))" "(let-values(((fold-var_267)" "(let-values(((fold-var_268)" " fold-var_266))" @@ -42305,26 +42311,26 @@ static const char *startup_source = " fold-var_269)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_262" " fold-var_267" "(hash-iterate-next" -" ht_146" -" i_167))" +" ht_145" +" i_168))" " fold-var_267)))" " fold-var_266)))))" -" for-loop_263)" +" for-loop_262)" " null" "(hash-iterate-first" -" ht_146)))))))" +" ht_145)))))))" " fold-var_264))))" "(values fold-var_265)))))" "(if(not #f)" -"(for-loop_262 fold-var_263(hash-iterate-next ht_145 i_12))" +"(for-loop_261 fold-var_263(hash-iterate-next ht_144 i_12))" " fold-var_263)))" " fold-var_262)))))" -" for-loop_262)" +" for-loop_261)" " null" -"(hash-iterate-first ht_145))))))))))))))))" +"(hash-iterate-first ht_144))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42337,17 +42343,17 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who153_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" -"(let-values(((ht_147) submods_3))" +"(let-values(((ht_146) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_147)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_270 i_168)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_270 i_169)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_147 i_168)))" +"(if i_169" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_146 i_169)))" "(let-values(((fold-var_271)" "(let-values(((fold-var_272) fold-var_270))" "(if(eq? kind_7 'module)" @@ -42360,12 +42366,12 @@ static const char *startup_source = "(values fold-var_274)))" " fold-var_272))))" "(if(not #f)" -"(for-loop_264 fold-var_271(hash-iterate-next ht_147 i_168))" +"(for-loop_263 fold-var_271(hash-iterate-next ht_146 i_169))" " fold-var_271)))" " fold-var_270)))))" -" for-loop_264)" +" for-loop_263)" " null" -"(hash-iterate-first ht_147))))))))))))" +"(hash-iterate-first ht_146))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -42399,12 +42405,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_180)" +"(lambda(s_179)" "(let-values((()" "(begin" -" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_180)))" +" (if (syntax?$1 s_179) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_179)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_180)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_179)))(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))" @@ -42420,26 +42426,26 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_68)" "(begin" -"(if(let-values(((or-part_277)(not(vector-ref v_68 1))))" -"(if or-part_277 or-part_277(exact-positive-integer?(vector-ref v_68 1))))" +"(if(let-values(((or-part_278)(not(vector-ref v_68 1))))" +"(if or-part_278 or-part_278(exact-positive-integer?(vector-ref v_68 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_68 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_68 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_68 3))))" "(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_68 3))))" -"(let-values(((or-part_154)(not(vector-ref v_68 4))))" -"(if or-part_154 or-part_154(exact-nonnegative-integer?(vector-ref v_68 4))))" +"(let-values(((or-part_155)(not(vector-ref v_68 4))))" +"(if or-part_155 or-part_155(exact-nonnegative-integer?(vector-ref v_68 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_190)" +"(lambda(v_191)" "(begin" -"(if(srcloc? v_190)" +"(if(srcloc? v_191)" "(let-values()" "(let-values(((the-struct_66) empty-syntax))" "(if(syntax?$1 the-struct_66)" -"(let-values(((srcloc1_2) v_190))" +"(let-values(((srcloc1_2) v_191))" "(syntax1.1" "(syntax-content the-struct_66)" "(syntax-scopes the-struct_66)" @@ -42450,19 +42456,19 @@ static const char *startup_source = "(syntax-props the-struct_66)" "(syntax-inspector the-struct_66)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" -"(if(pair? v_190)" -"(let-values()(to-srcloc-stx(list->vector v_190)))" -"(if(vector? v_190)" +"(if(pair? v_191)" +"(let-values()(to-srcloc-stx(list->vector v_191)))" +"(if(vector? v_191)" "(let-values()" "(let-values(((the-struct_67) empty-syntax))" "(if(syntax?$1 the-struct_67)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_190 0)" -"(vector-ref v_190 1)" -"(vector-ref v_190 2)" -"(vector-ref v_190 3)" -"(vector-ref v_190 4))))" +"(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))))" "(syntax1.1" "(syntax-content the-struct_67)" "(syntax-scopes the-struct_67)" @@ -42473,7 +42479,7 @@ static const char *startup_source = "(syntax-props the-struct_67)" "(syntax-inspector the-struct_67)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" -"(let-values() v_190)))))))" +"(let-values() v_191)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42486,14 +42492,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_180)" +"(lambda(s_179)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_180)))" -"(syntax->datum$1 s_180)))))))" +" (if (syntax?$1 s_179) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_179)))" +"(syntax->datum$1 s_179)))))))" "(define-values(maybe-syntax->datum)(lambda(s_70)(begin(if(syntax?$1 s_70)(syntax->datum$1 s_70) s_70))))" "(define-values" "(1/datum->syntax)" @@ -42502,7 +42508,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_171) s8_0))" +"(let-values(((s_170) 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()" @@ -42510,15 +42516,15 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_278)(not stx-c_4)))" -"(if or-part_278 or-part_278(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_279)(not stx-c_4)))" +"(if or-part_279 or-part_279(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_279)(not stx-l_2)))" -"(if or-part_279" -" or-part_279" -"(let-values(((or-part_280)(syntax?$1 stx-l_2)))" -"(if or-part_280 or-part_280(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_280)(not stx-l_2)))" +"(if or-part_280" +" or-part_280" +"(let-values(((or-part_281)(syntax?$1 stx-l_2)))" +"(if or-part_281 or-part_281(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -42536,16 +42542,16 @@ 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_281)(not stx-p_1)))" -"(if or-part_281 or-part_281(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_282)(not stx-p_1)))" +"(if or-part_282 or-part_282(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_171(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_170(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_295)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_295 #f #f #f #f #f #f)))" -"((stx-c_6 s_412 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_412 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_6 s_413 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_413 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_73 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_73 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_413 stx-l1_1)(datum->syntax9_0 stx-c_8 s_413 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_8 s_414 stx-l1_1)(datum->syntax9_0 stx-c_8 s_414 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -42805,22 +42811,22 @@ 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_414) s51_1))" +"(let-values(((s_415) s51_1))" "(let-values(((phase_134)(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()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_414)" +"(if(syntax?$1 s_415)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_414)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_415)))" "(if(phase? phase_134)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_134)))" -"(syntax-debug-info$1 s_414 phase_134 all-bindings?_1))))))))))))" +"(syntax-debug-info$1 s_415 phase_134 all-bindings?_1))))))))))))" "(case-lambda" -"((s_415)(begin 'syntax-debug-info(syntax-debug-info52_0 s_415 #f #f #f #f)))" +"((s_416)(begin 'syntax-debug-info(syntax-debug-info52_0 s_416 #f #f #f #f)))" "((s_86 phase_97 all-bindings?48_1)(syntax-debug-info52_0 s_86 phase_97 all-bindings?48_1 #t #t))" "((s_47 phase47_3)(syntax-debug-info52_0 s_47 phase47_3 #f #t #f)))))" "(define-values" @@ -43014,10 +43020,10 @@ static const char *startup_source = " '#hasheqv())" " phase_135" " missing_0)))" -"(if(let-values(((or-part_245)" +"(if(let-values(((or-part_246)" "(eq? missing_0 m-ns_12)))" -"(if or-part_245" -" or-part_245" +"(if or-part_246" +" or-part_246" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -43072,10 +43078,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_163)" +"(if(let-values(((or-part_164)" " attach-this-instance?_0))" -"(if or-part_163" -" or-part_163" +"(if or-part_164" +" or-part_164" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43210,9 +43216,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_148)" +"(lambda(ht_147)" "(hash-set" -" ht_148" +" ht_147" " phase_135" " m-ns_13))" " '#hasheqv())" @@ -43231,19 +43237,19 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_226)" +"(lambda(lst_224)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_224)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_226))" +" lst_224))" "((rest_169)" "(unsafe-cdr" -" lst_226)))" +" lst_224)))" "(let-values((()" -"(let-values(((lst_180)" +"(let-values(((lst_178)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43252,19 +43258,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_180)))" +" lst_178)))" "((letrec-values(((for-loop_28)" -"(lambda(lst_279)" +"(lambda(lst_277)" "(begin" " 'for-loop" "(if(pair?" -" lst_279)" +" lst_277)" "(let-values(((req_5)" "(unsafe-car" -" lst_279))" +" lst_277))" "((rest_153)" "(unsafe-cdr" -" lst_279)))" +" lst_277)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43292,7 +43298,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_28)" -" lst_180)))))" +" lst_178)))))" "(if(not" " #f)" "(for-loop_17" @@ -43302,7 +43308,7 @@ static const char *startup_source = " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_303)" +"(let-values(((lst_301)" "(module-submodule-names" " m_20)))" "(begin" @@ -43311,19 +43317,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_303)))" -"((letrec-values(((for-loop_265)" -"(lambda(lst_304)" +" lst_301)))" +"((letrec-values(((for-loop_264)" +"(lambda(lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_304)" +" lst_302)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_304))" +" lst_302))" "((rest_170)" "(unsafe-cdr" -" lst_304)))" +" lst_302)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43344,12 +43350,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_265" +"(for-loop_264" " rest_170)" "(values))))" "(values))))))" -" for-loop_265)" -" lst_303)))" +" for-loop_264)" +" lst_301)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43376,22 +43382,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_149) todo_0))" +"(let-values(((ht_148) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_108)" -"(lambda(i_169)" +"(let-values()(check-in-hash ht_148)))" +"((letrec-values(((for-loop_109)" +"(lambda(i_170)" "(begin" " 'for-loop" -"(if i_169" +"(if i_170" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_149" -" i_169)))" +" ht_148" +" i_170)))" "(let-values((()" -"(let-values(((ht_150)" +"(let-values(((ht_149)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43399,17 +43405,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_150)))" -"((letrec-values(((for-loop_266)" -"(lambda(i_170)" +" ht_149)))" +"((letrec-values(((for-loop_265)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_170" +"(if i_171" "(let-values(((phase_136" " m-ns_15)" "(hash-iterate-key+value" -" ht_150" -" i_170)))" +" ht_149" +" i_171)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43482,22 +43488,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_266" +"(for-loop_265" "(hash-iterate-next" -" ht_150" -" i_170))" +" ht_149" +" i_171))" "(values))))" "(values))))))" -" for-loop_266)" +" for-loop_265)" "(hash-iterate-first" -" ht_150))))))" +" ht_149))))))" "(if(not #f)" -"(for-loop_108" -"(hash-iterate-next ht_149 i_169))" +"(for-loop_109" +"(hash-iterate-next ht_148 i_170))" "(values))))" "(values))))))" -" for-loop_108)" -"(hash-iterate-first ht_149))))" +" for-loop_109)" +"(hash-iterate-first ht_148))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -43514,13 +43520,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_51)))" -"((letrec-values(((for-loop_176)" -"(lambda(i_171)" +"((letrec-values(((for-loop_175)" +"(lambda(i_172)" "(begin" " 'for-loop" -"(if i_171" +"(if i_172" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_51 i_171)))" +"(hash-iterate-key ht_51 i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43533,11 +43539,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_176" -"(hash-iterate-next ht_51 i_171))" +"(for-loop_175" +"(hash-iterate-next ht_51 i_172))" "(values))))" "(values))))))" -" for-loop_176)" +" for-loop_175)" "(hash-iterate-first ht_51))))" "(void))))))))))))))))))))))))" "(define-values" @@ -43584,23 +43590,23 @@ static const char *startup_source = "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_151)" +"(let-values(((ht_150)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_60))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_151)))" -"((letrec-values(((for-loop_211)" -"(lambda(fold-var_275 i_172)" +"(let-values()(check-in-immutable-hash-keys ht_150)))" +"((letrec-values(((for-loop_210)" +"(lambda(fold-var_275 i_173)" "(begin" " 'for-loop" -"(if i_172" +"(if i_173" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_151" -" i_172)))" +" ht_150" +" i_173)))" "(let-values(((fold-var_222)" "(let-values(((fold-var_223)" " fold-var_275))" @@ -43619,16 +43625,16 @@ static const char *startup_source = "(values" " fold-var_67)))))))" "(if(not #f)" -"(for-loop_211" +"(for-loop_210" " fold-var_222" "(unsafe-immutable-hash-iterate-next" -" ht_151" -" i_172))" +" ht_150" +" i_173))" " fold-var_222)))" " fold-var_275)))))" -" for-loop_211)" +" for-loop_210)" " null" -"(unsafe-immutable-hash-iterate-first ht_151)))))))" +"(unsafe-immutable-hash-iterate-first ht_150)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_4)" "(begin" @@ -43674,7 +43680,7 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_416)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_416 #f #f)))" +"((s_417)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_417 #f #f)))" "((s_73 ns1_4)(namespace-syntax-introduce4_0 s_73 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" @@ -43690,8 +43696,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_282)(1/namespace? where_0)))" -"(if or-part_282 or-part_282(phase? where_0)))" +"(if(let-values(((or-part_283)(1/namespace? where_0)))" +"(if or-part_283 or-part_283(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43989,9 +43995,9 @@ static const char *startup_source = "(if(symbol? sym_69)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" -"(if(let-values(((or-part_283)(not failure-thunk_5)))" -"(if or-part_283" -" or-part_283" +"(if(let-values(((or-part_284)(not failure-thunk_5)))" +"(if or-part_284" +" or-part_284" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44024,7 +44030,7 @@ static const char *startup_source = " ns_81))" "(void))" "(values))))" -"(let-values(((v_191" +"(let-values(((v_192" " primitive?_8" " extra-inspector_8" " protected?_9)" @@ -44050,13 +44056,13 @@ static const char *startup_source = " id136_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_191)" +"(if(variable? v_192)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_284) failure-thunk_5))" -"(if or-part_284" -" or-part_284" +"(let-values(((or-part_285) failure-thunk_5))" +"(if or-part_285" +" or-part_285" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44092,9 +44098,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_265) failure-thunk_5))" -"(if or-part_265" -" or-part_265" +"(let-values(((or-part_266) failure-thunk_5))" +"(if or-part_266" +" or-part_266" "(raise" "(exn:fail:contract:variable" "(format" @@ -44258,29 +44264,29 @@ static const char *startup_source = "(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_172) s5_2))" +"(let-values(((s_171) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_417 ns_87)(begin 'compile(1/compile s_417 ns_87 #f))))))" +"(lambda(s_418 ns_87)(begin 'compile(1/compile s_418 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_279)(compiled-in-memory? s_172)))" -"(if or-part_279" -" or-part_279" -"(let-values(((or-part_280)(1/linklet-directory? s_172)))" -"(if or-part_280 or-part_280(1/linklet-bundle? s_172)))))" -"(let-values()(eval-compiled s_172 ns_43))" -"(if(if(syntax?$1 s_172)" -"(let-values(((or-part_281)(compiled-in-memory?(1/syntax-e s_172))))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_285)(1/linklet-directory?(1/syntax-e s_172))))" -"(if or-part_285 or-part_285(1/linklet-bundle?(1/syntax-e s_172))))))" +"(if(let-values(((or-part_280)(compiled-in-memory? s_171)))" +"(if or-part_280" +" or-part_280" +"(let-values(((or-part_281)(1/linklet-directory? s_171)))" +"(if or-part_281 or-part_281(1/linklet-bundle? s_171)))))" +"(let-values()(eval-compiled s_171 ns_43))" +"(if(if(syntax?$1 s_171)" +"(let-values(((or-part_282)(compiled-in-memory?(1/syntax-e s_171))))" +"(if or-part_282" +" or-part_282" +"(let-values(((or-part_286)(1/linklet-directory?(1/syntax-e s_171))))" +"(if or-part_286 or-part_286(1/linklet-bundle?(1/syntax-e s_171))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_172) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_171) ns_43))" "(let-values()" -"(let-values(((s80_0) s_172)" +"(let-values(((s80_0) s_171)" "((ns81_0) ns_43)" "((temp82_3)" "(lambda(s_75 ns_88 tail?_44)" @@ -44302,9 +44308,9 @@ static const char *startup_source = " s80_0" " ns81_0)))))))))))))" "(case-lambda" -"((s_174)(begin 'eval(eval6_0 s_174 #f #f #f #f)))" +"((s_173)(begin 'eval(eval6_0 s_173 #f #f #f #f)))" "((s_76 ns_53 compile2_1)(eval6_0 s_76 ns_53 compile2_1 #t #t))" -"((s_159 ns1_6)(eval6_0 s_159 ns1_6 #f #t #f)))))" +"((s_158 ns1_6)(eval6_0 s_158 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -44337,21 +44343,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_418) s22_0))" +"(let-values(((s_419) 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_418)" -"(let-values()(list s_418))" -"(if(if(syntax?$1 s_418)" -"(1/compiled-expression?(1/syntax-e s_418))" +"(if(1/compiled-expression? s_419)" +"(let-values()(list s_419))" +"(if(if(syntax?$1 s_419)" +"(1/compiled-expression?(1/syntax-e s_419))" " #f)" -"(let-values()(list(1/syntax-e s_418)))" +"(let-values()(list(1/syntax-e s_419)))" "(let-values()" -"(let-values(((s86_0) s_418)" +"(let-values(((s86_0) s_419)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44394,9 +44400,9 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_182)(begin 'compile(compile23_0 s_182 #f #f #f #f #f #f #f #f)))" -"((s_419 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_419 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_181)(begin 'compile(compile23_0 s_181 #f #f #f #f #f #f #f #f)))" +"((s_420 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_420 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_148 ns14_3)(compile23_0 s_148 ns14_3 #f #f #f #t #f #f #f)))))" @@ -44406,11 +44412,11 @@ static const char *startup_source = "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_395) s27_0))" +"(let-values(((s_396) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_395 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_396 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_420)(begin(compile-to-linklets28_0 s_420 #f #f)))" +"((s_421)(begin(compile-to-linklets28_0 s_421 #f #f)))" "((s_298 ns25_1)(compile-to-linklets28_0 s_298 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44474,23 +44480,23 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_292)" +"(let-values(((lst_290)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_171)" +"(lambda(fold-var_0 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_171)" +"(if(pair? lst_169)" "(let-values(((e_76)" -"(unsafe-car lst_171))" +"(unsafe-car lst_169))" "((rest_163)" -"(unsafe-cdr lst_171)))" +"(unsafe-cdr lst_169)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" @@ -44509,7 +44515,7 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_292)))))" +" lst_290)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" @@ -44556,7 +44562,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_421) s39_1))" +"(let-values(((s_422) s39_1))" "(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)))" @@ -44572,12 +44578,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_421)" +"(let-values(((s108_0) s_422)" "((ns109_1) ns_98)" "((temp110_0)" -"(lambda(s_422 ns_99 as-tail?_5)" +"(lambda(s_423 ns_99 as-tail?_5)" "(expand-single" -" s_422" +" s_423" " ns_99" " observer_2" " to-parsed?_2" @@ -44602,23 +44608,23 @@ static const char *startup_source = " ns109_1))))))))))))))))" "(case-lambda" "((s_296)(begin 'expand(expand40_0 s_296 #f #f #f #f #f #f #f #f)))" -"((s_423 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_423 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_424 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_424 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_424 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_424 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_425 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_425 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" -"((s_380 ns31_4)(expand40_0 s_380 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_381 ns31_4)(expand40_0 s_381 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_425 ns_103 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_426 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_425)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_426)))" "(let-values(((ctx_68)" "(let-values(((ns114_0) ns_103)" "((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_9 exp-s_6)(expand-capturing-lifts s_425 ctx_68)))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_426 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44691,13 +44697,13 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_381) s44_1))" +"(let-values(((s_382) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_381)" +"(let-values(((s128_0) s_382)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_426 ns_105 as-tail?_6)(expand-single-once s_426 ns_105)))" +"(lambda(s_427 ns_105 as-tail?_6)(expand-single-once s_427 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -44718,22 +44724,22 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_427)(begin 'expand-once(expand-once45_0 s_427 #f #f)))" -"((s_428 ns42_2)(expand-once45_0 s_428 ns42_2 #t)))))" +"((s_428)(begin 'expand-once(expand-once45_0 s_428 #f #f)))" +"((s_429 ns42_2)(expand-once45_0 s_429 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_429 ns_106)" +"(lambda(s_430 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_429" -"(let-values(((v_192)" +" s_430" +"(let-values(((v_193)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_68) v_192))" +"(let-values(((the-struct_68) v_193))" "(if(expand-context/outer? the-struct_68)" "(let-values(((inner136_1)" -"(let-values(((the-struct_69)(root-expand-context/outer-inner v_192)))" +"(let-values(((the-struct_69)(root-expand-context/outer-inner v_193)))" "(if(expand-context/inner? the-struct_69)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" @@ -44830,7 +44836,7 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_430)(begin 'expand-to-top-form(expand-to-top-form50_0 s_430 #f #f)))" +"((s_431)(begin 'expand-to-top-form(expand-to-top-form50_0 s_431 #f #f)))" "((s_206 ns47_3)(expand-to-top-form50_0 s_206 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" @@ -44860,7 +44866,7 @@ 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_104)(maybe-intro given-s_0 ns_107)))" +"(let-values(((s_103)(maybe-intro given-s_0 ns_107)))" "(let-values(((ctx_69)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" @@ -44987,8 +44993,8 @@ static const char *startup_source = "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" " s_209" -"(let-values(((v_193) tl-ctx_0))" -"(let-values(((the-struct_71) v_193))" +"(let-values(((v_194) tl-ctx_0))" +"(let-values(((the-struct_71) v_194))" "(if(expand-context/outer? the-struct_71)" "(let-values(((only-immediate?153_0)" " #t)" @@ -44997,7 +45003,7 @@ static const char *startup_source = "((inner155_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_193)))" +" v_194)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase156_1)" @@ -45091,9 +45097,9 @@ static const char *startup_source = " the-struct_71)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_286)" +"(if(let-values(((or-part_287)" "(pair? require-lifts_5)))" -"(if or-part_286 or-part_286(pair? lifts_11)))" +"(if or-part_287 or-part_287(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -45167,38 +45173,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_431)" +"(let-values(((s_432)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_431))" +" s_432))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_409)" -"(if(syntax?$1" -" s_431)" -"(syntax-e$1" -" s_431)" -" s_431)))" -"(if(pair?" -" s_409)" -"(let-values(((begin163_0)" "(let-values(((s_410)" -"(car" -" s_409)))" -" s_410))" -"((e164_0)" -"(let-values(((s_121)" -"(cdr" -" s_409)))" -"(let-values(((s_432)" "(if(syntax?$1" -" s_121)" +" s_432)" "(syntax-e$1" -" s_121)" -" s_121)))" +" s_432)" +" s_432)))" +"(if(pair?" +" s_410)" +"(let-values(((begin163_0)" +"(let-values(((s_411)" +"(car" +" s_410)))" +" s_411))" +"((e164_0)" +"(let-values(((s_433)" +"(cdr" +" s_410)))" +"(let-values(((s_121)" +"(if(syntax?$1" +" s_433)" +"(syntax-e$1" +" s_433)" +" s_433)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_432)))" +" s_121)))" "(if(not" " flat-s_20)" "(let-values()" @@ -45320,38 +45326,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_220)" +"(let-values(((s_126)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_220))" +" s_126))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_222)" +"(let-values(((s_223)" "(if(syntax?$1" -" s_220)" +" s_126)" "(syntax-e$1" -" s_220)" -" s_220)))" +" s_126)" +" s_126)))" "(if(pair?" -" s_222)" +" s_223)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_224)" -"(car" -" s_222)))" -" s_224))" -"((e168_0)" -"(let-values(((s_321)" -"(cdr" -" s_222)))" "(let-values(((s_225)" +"(car" +" s_223)))" +" s_225))" +"((e168_0)" +"(let-values(((s_322)" +"(cdr" +" s_223)))" +"(let-values(((s_226)" "(if(syntax?$1" -" s_321)" +" s_322)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_322)" +" s_322)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_225)))" +" s_226)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45406,7 +45412,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_305)" +"(let-values(((lst_303)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45414,20 +45420,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_305)))" -"((letrec-values(((for-loop_267)" +" lst_303)))" +"((letrec-values(((for-loop_266)" "(lambda(fold-var_276" -" lst_306)" +" lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_306)" -"(let-values(((s_325)" +" lst_304)" +"(let-values(((s_326)" "(unsafe-car" -" lst_306))" +" lst_304))" "((rest_171)" "(unsafe-cdr" -" lst_306)))" +" lst_304)))" "(let-values(((fold-var_205)" "(let-values(((fold-var_206)" " fold-var_276))" @@ -45447,7 +45453,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_325" +" s_326" " next-phase_0" " next-ns_0" " #f)))" @@ -45456,14 +45462,14 @@ static const char *startup_source = " fold-var_277)))))" "(if(not" " #f)" -"(for-loop_267" +"(for-loop_266" " fold-var_205" " rest_171)" " fold-var_205)))" " fold-var_276)))))" -" for-loop_267)" +" for-loop_266)" " null" -" lst_305))))))" +" lst_303))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45497,21 +45503,21 @@ static const char *startup_source = " ns_108" " as-tail?_7))))))))))))))))))" " loop_98)" -" s_104" +" s_103" " phase_137" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_433 ns_109)" -"(begin(if(syntax?$1 s_433) s_433(1/namespace-syntax-introduce(1/datum->syntax #f s_433) ns_109)))))" +"(lambda(s_434 ns_109)" +"(begin(if(syntax?$1 s_434) s_434(1/namespace-syntax-introduce(1/datum->syntax #f s_434) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_434 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_434)(cons form-id_0 r_44) s_434 s_434) s_434))))" +"(lambda(form-id_0 s_435 r_43)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_435)(cons form-id_0 r_43) s_435 s_435) s_435))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_435 ctx_70)" +"(lambda(s_436 ctx_70)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_70)))" @@ -45524,63 +45530,63 @@ 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_435)" +"(let-values(((s170_0) s_436)" "((temp171_0)" -"(let-values(((v_194) ctx_70))" -"(let-values(((the-struct_73) v_194))" +"(let-values(((v_195) ctx_70))" +"(let-values(((the-struct_73) v_195))" "(if(expand-context/outer? the-struct_73)" "(let-values(((inner172_1)" -"(let-values(((the-struct_74)" -"(root-expand-context/outer-inner v_194)))" -"(if(expand-context/inner? the-struct_74)" +"(let-values(((the-struct_25)" +"(root-expand-context/outer-inner v_195)))" +"(if(expand-context/inner? the-struct_25)" "(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_74)" +" the-struct_25)" "(root-expand-context/inner-module-scopes" -" the-struct_74)" +" the-struct_25)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_74)" +" the-struct_25)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_74)" +" the-struct_25)" "(root-expand-context/inner-defined-syms" -" the-struct_74)" -"(root-expand-context/inner-counter the-struct_74)" +" the-struct_25)" +"(root-expand-context/inner-counter the-struct_25)" "(root-expand-context/inner-lift-key" -" 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)" +" the-struct_25)" +"(expand-context/inner-to-parsed? the-struct_25)" +"(expand-context/inner-phase the-struct_25)" +"(expand-context/inner-namespace the-struct_25)" +"(expand-context/inner-just-once? the-struct_25)" "(expand-context/inner-module-begin-k" -" the-struct_74)" +" the-struct_25)" "(expand-context/inner-allow-unbound?" -" the-struct_74)" +" the-struct_25)" "(expand-context/inner-in-local-expand?" -" the-struct_74)" -"(expand-context/inner-stops the-struct_74)" +" the-struct_25)" +"(expand-context/inner-stops the-struct_25)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_25)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_74)" +"(expand-context/inner-lift-envs the-struct_25)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_25)" "(expand-context/inner-requires+provides" -" the-struct_74)" -"(expand-context/inner-observer the-struct_74)" +" the-struct_25)" +"(expand-context/inner-observer the-struct_25)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_25)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" +" the-struct_25)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_25)))))" "(expand-context/outer1.1" " inner172_1" "(root-expand-context/outer-post-expansion-scope the-struct_73)" @@ -45610,31 +45616,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_436 phase_139)" +"(lambda(s_437 phase_139)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_437)(syntax-disarm$1 s_436)))" -"(let-values(((orig-s_35) s_437))" +"(let-values(((s_438)(syntax-disarm$1 s_437)))" +"(let-values(((orig-s_35) s_438))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_244)(if(syntax?$1 s_437)(syntax-e$1 s_437) s_437)))" -"(if(pair? s_244)" -"(let-values(((#%require178_0)(let-values(((s_245)(car s_244))) s_245))" +"(let-values(((s_245)(if(syntax?$1 s_438)(syntax-e$1 s_438) s_438)))" +"(if(pair? s_245)" +"(let-values(((#%require178_0)(let-values(((s_246)(car s_245))) s_246))" "((req179_0)" -"(let-values(((s_246)(cdr s_244)))" -"(let-values(((s_247)" -"(if(syntax?$1 s_246)" -"(syntax-e$1 s_246)" -" s_246)))" -"(if(pair? s_247)" +"(let-values(((s_247)(cdr s_245)))" +"(let-values(((s_248)" +"(if(syntax?$1 s_247)" +"(syntax-e$1 s_247)" +" s_247)))" +"(if(pair? s_248)" "(let-values(((req180_0)" -"(let-values(((s_438)(car s_247)))" -" s_438))" +"(let-values(((s_439)(car s_248)))" +" s_439))" "(()" -"(let-values(((s_439)(cdr s_247)))" -"(let-values(((s_440)" -"(if(syntax?$1 s_439)" -"(syntax-e$1 s_439)" -" s_439)))" -"(if(null? s_440)" +"(let-values(((s_440)(cdr s_248)))" +"(let-values(((s_441)" +"(if(syntax?$1 s_440)" +"(syntax-e$1 s_440)" +" s_440)))" +"(if(null? s_441)" "(values)" "(raise-syntax-error$1" " #f" @@ -45646,7 +45652,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_436)" +"((s182_0) s_437)" "((ns183_0) ns_111)" "((phase184_1) phase_139)" "((phase185_1) phase_139)" @@ -45691,18 +45697,18 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_307) require-lifts_6))" +"(let-values(((lst_305) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_278 lst_308)" +"(let-values()(check-list lst_305)))" +"((letrec-values(((for-loop_267)" +"(lambda(fold-var_278 lst_306)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((req_19)(unsafe-car lst_308))" -"((rest_172)(unsafe-cdr lst_308)))" +"(if(pair? lst_306)" +"(let-values(((req_19)(unsafe-car lst_306))" +"((rest_172)(unsafe-cdr lst_306)))" "(let-values(((fold-var_279)" "(let-values(((fold-var_280) fold-var_278))" "(let-values(((fold-var_281)" @@ -45712,24 +45718,24 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_280))))" "(values fold-var_281)))))" -"(if(not #f)(for-loop_268 fold-var_279 rest_172) fold-var_279)))" +"(if(not #f)(for-loop_267 fold-var_279 rest_172) fold-var_279)))" " fold-var_278)))))" -" for-loop_268)" +" for-loop_267)" " null" -" lst_307))))" +" lst_305))))" "(reverse$1" -"(let-values(((lst_309)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_307)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_309)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_282 lst_310)" +"(let-values()(check-list lst_307)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_282 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_310))" -"((rest_173)(unsafe-cdr lst_310)))" +"(if(pair? lst_308)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" +"((rest_173)(unsafe-cdr lst_308)))" "(let-values(((fold-var_283)" "(let-values(((fold-var_284) fold-var_282))" "(let-values(((fold-var_285)" @@ -45756,28 +45762,28 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_75)" +"(let-values(((the-struct_74)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_75)" +" the-struct_74)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_75)" +" the-struct_74)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_75)))" +" the-struct_74)))" " dv_0)))))" " fold-var_284))))" "(values fold-var_285)))))" -"(if(not #f)(for-loop_269 fold-var_283 rest_173) fold-var_283)))" +"(if(not #f)(for-loop_268 fold-var_283 rest_173) fold-var_283)))" " fold-var_282)))))" -" for-loop_269)" +" for-loop_268)" " null" -" lst_309)))))" +" lst_307)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45801,19 +45807,19 @@ static const char *startup_source = "(if obs_54" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_131) new-s_7))" -"(let-values(((orig-s_36) s_131))" +"(let-values(((s_130) new-s_7))" +"(let-values(((orig-s_36) s_130))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_441)(if(syntax?$1 s_131)(syntax-e$1 s_131) s_131)))" -"(if(pair? s_441)" -"(let-values(((begin195_0)(let-values(((s_442)(car s_441))) s_442))" +"(let-values(((s_442)(if(syntax?$1 s_130)(syntax-e$1 s_130) s_130)))" +"(if(pair? s_442)" +"(let-values(((begin195_0)(let-values(((s_443)(car s_442))) s_443))" "((e196_0)" -"(let-values(((s_132)(cdr s_441)))" -"(let-values(((s_443)" -"(if(syntax?$1 s_132)" -"(syntax-e$1 s_132)" -" s_132)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_443)))" +"(let-values(((s_444)(cdr s_442)))" +"(let-values(((s_132)" +"(if(syntax?$1 s_444)" +"(syntax-e$1 s_444)" +" s_444)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_132)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45839,19 +45845,19 @@ static const char *startup_source = "(if obs_55" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_444) new-s_8))" -"(let-values(((orig-s_37) s_444))" +"(let-values(((s_445) new-s_8))" +"(let-values(((orig-s_37) s_445))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_445)(if(syntax?$1 s_444)(syntax-e$1 s_444) s_444)))" -"(if(pair? s_445)" -"(let-values(((begin199_0)(let-values(((s_446)(car s_445))) s_446))" +"(let-values(((s_446)(if(syntax?$1 s_445)(syntax-e$1 s_445) s_445)))" +"(if(pair? s_446)" +"(let-values(((begin199_0)(let-values(((s_447)(car s_446))) s_447))" "((e200_0)" -"(let-values(((s_447)(cdr s_445)))" -"(let-values(((s_448)" -"(if(syntax?$1 s_447)" -"(syntax-e$1 s_447)" -" s_447)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_448)))" +"(let-values(((s_448)(cdr s_446)))" +"(let-values(((s_449)" +"(if(syntax?$1 s_448)" +"(syntax-e$1 s_448)" +" s_448)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_449)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45905,8 +45911,8 @@ static const char *startup_source = "(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_287)(equal? sym_82 0)))" -"(if or-part_287 or-part_287(void? sym_82)))))))" +"(let-values(((or-part_288)(equal? sym_82 0)))" +"(if or-part_288 or-part_288(void? sym_82)))))))" "(void)" "(let-values()" " (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_82)))" @@ -46316,29 +46322,29 @@ static const char *startup_source = "(if(list? l_8)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_279)(not p_55)))" -"(if or-part_279" -" or-part_279" -"(let-values(((or-part_280)(complete-path-string? p_55)))" +"(let-values(((or-part_280)(not p_55)))" "(if or-part_280" " or-part_280" +"(let-values(((or-part_281)(complete-path-string? p_55)))" +"(if or-part_281" +" or-part_281" "(if(hash? p_55)" -"(let-values(((ht_152) p_55))" +"(let-values(((ht_151) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_152)))" -"((letrec-values(((for-loop_184)" -"(lambda(result_114 i_90)" +"(let-values()(check-in-hash ht_151)))" +"((letrec-values(((for-loop_183)" +"(lambda(result_115 i_90)" "(begin" " 'for-loop" "(if i_90" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_152 i_90)))" -"(let-values(((result_115)" -"(let-values()" +"(hash-iterate-key+value ht_151 i_90)))" "(let-values(((result_116)" "(let-values()" +"(let-values(((result_117)" +"(let-values()" "(let-values()" "(if(let-values(((or-part_79)" "(not" @@ -46356,18 +46362,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_116)))))" -"(if(if(not((lambda x_77(not result_115)) k_35 v_3))" +"(values result_117)))))" +"(if(if(not((lambda x_77(not result_116)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_184" -" result_115" -"(hash-iterate-next ht_152 i_90))" -" result_115)))" -" result_114)))))" -" for-loop_184)" +"(for-loop_183" +" result_116" +"(hash-iterate-next ht_151 i_90))" +" result_116)))" +" result_115)))))" +" for-loop_183)" " #t" -"(hash-iterate-first ht_152))))" +"(hash-iterate-first ht_151))))" " #f))))))" " l_8)" " #f))" @@ -46391,17 +46397,17 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_153) p_3))" +"(let-values(((ht_152) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_153)))" -"((letrec-values(((for-loop_270)" +"(let-values()(check-in-hash ht_152)))" +"((letrec-values(((for-loop_269)" "(lambda(table_220 i_91)" "(begin" " 'for-loop" "(if i_91" -"(let-values(((k_36 v_195)(hash-iterate-key+value ht_153 i_91)))" +"(let-values(((k_36 v_196)(hash-iterate-key+value ht_152 i_91)))" "(let-values(((table_221)" "(let-values(((table_189) table_220))" "(let-values(((table_222)" @@ -46410,19 +46416,19 @@ static const char *startup_source = "(let-values()" "(values" " k_36" -"(to-path v_195)))))" +"(to-path v_196)))))" "(hash-set" " table_189" " key_86" " val_78)))))" "(values table_222)))))" "(if(not #f)" -"(for-loop_270 table_221(hash-iterate-next ht_153 i_91))" +"(for-loop_269 table_221(hash-iterate-next ht_152 i_91))" " table_221)))" " table_220)))))" -" for-loop_270)" +" for-loop_269)" " '#hash()" -"(hash-iterate-first ht_153)))))))))" +"(hash-iterate-first ht_152)))))))))" " l_71)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46463,17 +46469,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_196)" +"(lambda(v_197)" "(begin" "(if((lambda(v_64)" "(let-values(((or-part_21)(eq? v_64 'modify-seconds)))" "(if or-part_21 or-part_21(eq? v_64 'exists))))" -" v_196)" +" v_197)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_196)))" -" v_196))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_197)))" +" v_197))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_77)(if v_77 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_197)(if v_197 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_198)(if v_198 #t #f))))" "(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" @@ -46537,17 +46543,17 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_42 end_32 str_23 as-predefined?_0)" "(begin" -"(let-values(((s_163)" +"(let-values(((s_162)" "(if str_23" " str_23" "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_43)" -"(let-values(((or-part_280)(1/string->number start_42)))" -"(if or-part_280 or-part_280 0))))" +"(let-values(((or-part_281)(1/string->number start_42)))" +"(if or-part_281 or-part_281 0))))" "(let-values(((end_33)" -"(let-values(((or-part_285)(1/string->number end_32)))" -"(if or-part_285 or-part_285 0))))" +"(let-values(((or-part_286)(1/string->number end_32)))" +"(if or-part_286 or-part_286 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -46557,7 +46563,7 @@ static const char *startup_source = "(file-position(current-input-port) start_43)" "(read-bytes(max 0(- end_33 start_43))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_163)))" +"(let-values(((p_62)(open-input-bytes s_162)))" "((letrec-values(((loop_66)" "(lambda()" "(begin" @@ -46618,12 +46624,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_25 s_180 l_4)" +"(lambda(who_25 s_179 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_180)" +"(if(relative-path-string? s_179)" "(void)" -" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_180)))" +" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_179)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_25 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46662,10 +46668,10 @@ 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_32)" +"(lambda(d_33)" "(begin" -" (let-values (((p_63) (if d_32 (build-path d_32 \"config.rktd\") #f)))" -"(let-values(((or-part_278)" +" (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" +"(let-values(((or-part_279)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p9_0) p_63)" @@ -46678,7 +46684,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_278 or-part_278 '#hash()))))))" +"(if or-part_279 or-part_279 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -46703,9 +46709,9 @@ static const char *startup_source = "(let-values(((or-part_74)(find-main-collects)))(if or-part_74 or-part_74(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_154 key_87 orig-l_9)" +"(lambda(ht_153 key_87 orig-l_9)" "(begin" -"(let-values(((l_75)(hash-ref ht_154 key_87 #f)))" +"(let-values(((l_75)(hash-ref ht_153 key_87 #f)))" "(if l_75" "((letrec-values(((loop_99)" "(lambda(l_76)" @@ -46724,22 +46730,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_155)(get-config-table(find-main-config))))" +"(let-values(((ht_154)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_82)(hash-ref ht_155 'links-file #f)))" +"(let-values(((or-part_82)(hash-ref ht_154 'links-file #f)))" "(if or-part_82" " or-part_82" "(build-path" -"(let-values(((or-part_83)(hash-ref ht_155 'share-dir #f)))" +"(let-values(((or-part_83)(hash-ref ht_154 'share-dir #f)))" " (if or-part_83 or-part_83 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)" -" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_155) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_154) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_155 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_154 'links-search-files(list lf_0)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" @@ -46854,7 +46860,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_198)" +"(let-values(((v_199)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" @@ -46871,41 +46877,41 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_198)" +"(if(if(list? v_199)" "(andmap2" "(lambda(p_67)" "(if(list? p_67)" -"(if(let-values(((or-part_218)(= 2(length p_67))))" -"(if or-part_218 or-part_218(= 3(length p_67))))" -"(if(let-values(((or-part_288)(string?(car p_67))))" -"(if or-part_288" -" or-part_288" -"(let-values(((or-part_289)" -"(eq? 'root(car p_67))))" +"(if(let-values(((or-part_219)(= 2(length p_67))))" +"(if or-part_219 or-part_219(= 3(length p_67))))" +"(if(let-values(((or-part_289)(string?(car p_67))))" "(if or-part_289" " or-part_289" +"(let-values(((or-part_290)" +"(eq? 'root(car p_67))))" +"(if or-part_290" +" or-part_290" "(eq? 'static-root(car p_67))))))" "(if(path-string?(cadr p_67))" -"(let-values(((or-part_290)(null?(cddr p_67))))" -"(if or-part_290 or-part_290(regexp?(caddr p_67))))" +"(let-values(((or-part_291)(null?(cddr p_67))))" +"(if or-part_291 or-part_291(regexp?(caddr p_67))))" " #f)" " #f)" " #f)" " #f))" -" v_198)" +" v_199)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_156)(make-hasheq)))" +"(let-values(((ht_155)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" " base_21)))" "(begin" "(for-each2" "(lambda(p_68)" -"(if(let-values(((or-part_291)(null?(cddr p_68))))" -"(if or-part_291 or-part_291(regexp-match?(caddr p_68)(version))))" +"(if(let-values(((or-part_292)(null?(cddr p_68))))" +"(if or-part_292 or-part_292(regexp-match?(caddr p_68)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_68) dir_0))))" @@ -46917,34 +46923,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_156" +" ht_155" " k_37" -"(cons dir_1(hash-ref ht_156 k_37 null)))))" +"(cons dir_1(hash-ref ht_155 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_68) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_156 #f #f)" +"(if(hash-ref ht_155 #f #f)" "(void)" -"(let-values()(hash-set! ht_156 #f null)))" +"(let-values()(hash-set! ht_155 #f null)))" "(hash-for-each" -" ht_156" -"(lambda(k_38 v_199)" -"(hash-set! ht_156 k_38(cons dir_1 v_199))))))" +" ht_155" +"(lambda(k_38 v_200)" +"(hash-set! ht_155 k_38(cons dir_1 v_200))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_68))))" "(hash-set!" -" ht_156" +" ht_155" " s_16" -"(cons(box dir_1)(hash-ref ht_156 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_155 s_16 null)))))))))" "(void)))" -" v_198)" +" v_199)" "(hash-for-each" -" ht_156" -"(lambda(k_39 v_200)(hash-set! ht_156 k_39(reverse$1 v_200))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_156))" -" ht_156))))))))))))))))))))))" +" ht_155" +"(lambda(k_39 v_201)(hash-set! ht_155 k_39(reverse$1 v_201))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_155))" +" ht_155))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -46991,10 +46997,10 @@ static const char *startup_source = "(hash-ref(car l_78) #f null)" "(loop_101(cdr l_78))))" "(let-values()" -"(let-values(((ht_157)(get-linked-collections(car l_78))))" +"(let-values(((ht_156)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_157 sym_90 null)" -"(hash-ref ht_157 #f null)" +"(hash-ref ht_156 sym_90 null)" +"(hash-ref ht_156 #f null)" "(loop_101(cdr l_78))))))))))))" " loop_101)" "(1/current-library-collection-links)))))" @@ -47076,13 +47082,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_137)" +"(if(let-values(((or-part_138)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_137" -" or-part_137" +"(if or-part_138" +" or-part_138" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -47113,8 +47119,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_139) found-col_0))" -"(if or-part_139 or-part_139 cpath_0))))" +"(let-values(((or-part_140) found-col_0))" +"(if or-part_140 or-part_140 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -47125,24 +47131,24 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_292)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_292" -" or-part_292" +"(let-values(((or-part_293)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_293" +" or-part_293" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" "((roots_0)(1/current-compiled-file-roots)))" "(ormap2" -"(lambda(d_33)" +"(lambda(d_34)" "(ormap2" "(lambda(mode_15)" "(file-exists?" "(let-values(((p_73)(build-path dir_3 mode_15 try-path_0)))" -"(if(eq? d_33 'same)" +"(if(eq? d_34 'same)" "(let-values() p_73)" -"(if(relative-path? d_33)" -"(let-values()(build-path p_73 d_33))" -"(let-values()(reroot-path p_73 d_33)))))))" +"(if(relative-path? d_34)" +"(let-values()(build-path p_73 d_34))" +"(let-values()(reroot-path p_73 d_34)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -47157,7 +47163,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_40 r_45)(begin 'cons-if(if f_40(cons f_40 r_45) r_45))))" +"(lambda(f_40 r_44)(begin 'cons-if(if f_40(cons f_40 r_44) r_44))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -47184,13 +47190,13 @@ static const char *startup_source = "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_201)" +"(let-values(((v_202)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_201" +"(if v_202" "(cons" "(simplify-path" -"(path->complete-path v_201(current-directory)))" +"(path->complete-path v_202(current-directory)))" "(loop_85(cdr l_79)))" "(loop_85(cdr l_79))))))))))" " loop_85)" @@ -47210,14 +47216,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_202)" +"(lambda(v_203)" "(begin" "(if((lambda(x_78)" "(let-values(((or-part_11)(not x_78)))(if or-part_11 or-part_11(prop:readtable? x_78))))" -" v_202)" +" v_203)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_202)))" -" v_202))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_203)))" +" v_203))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47343,42 +47349,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_204)(begin(read-config/outer-wrap v_204))))" +"(define-values(read-config-line)(lambda(v_205)(begin(read-config/outer-line v_205))))" +"(define-values(read-config-col)(lambda(v_206)(begin(read-config/outer-col v_206))))" +"(define-values(read-config-pos)(lambda(v_207)(begin(read-config/outer-pos v_207))))" +"(define-values(read-config-indentations)(lambda(v_208)(begin(read-config/outer-indentations v_208))))" +"(define-values(read-config-keep-comment?)(lambda(v_209)(begin(read-config/outer-keep-comment? v_209))))" "(define-values" "(read-config-readtable)" -"(lambda(v_209)(begin(read-config/inner-readtable(read-config/outer-inner v_209)))))" +"(lambda(v_210)(begin(read-config/inner-readtable(read-config/outer-inner v_210)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_210)(begin(read-config/inner-next-readtable(read-config/outer-inner v_210)))))" +"(lambda(v_211)(begin(read-config/inner-next-readtable(read-config/outer-inner v_211)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_211)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_211)))))" +"(lambda(v_212)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_212)))))" "(define-values(read-config-source)(lambda(v_71)(begin(read-config/inner-source(read-config/outer-inner v_71)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_182)(begin(read-config/inner-read-compiled(read-config/outer-inner v_182)))))" +"(lambda(v_183)(begin(read-config/inner-read-compiled(read-config/outer-inner v_183)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_212)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_212)))))" +"(lambda(v_213)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_213)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_213)(begin(read-config/inner-module-declared?(read-config/outer-inner v_213)))))" +"(lambda(v_214)(begin(read-config/inner-module-declared?(read-config/outer-inner v_214)))))" "(define-values(read-config-coerce)(lambda(v_78)(begin(read-config/inner-coerce(read-config/outer-inner v_78)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_214)(begin(read-config/inner-coerce-key(read-config/outer-inner v_214)))))" +"(lambda(v_215)(begin(read-config/inner-coerce-key(read-config/outer-inner v_215)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_201)(begin(read-config/inner-parameter-override(read-config/outer-inner v_201)))))" +"(lambda(v_202)(begin(read-config/inner-parameter-override(read-config/outer-inner v_202)))))" "(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_187)(begin(read-config/inner-st(read-config/outer-inner v_187)))))" +"(lambda(v_216)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_216)))))" +"(define-values(read-config-st)(lambda(v_188)(begin(read-config/inner-st(read-config/outer-inner v_188)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47457,19 +47463,19 @@ static const char *startup_source = " wrap_4" "(let-values(((or-part_89) read-compiled_1))" " (if or-part_89 or-part_89 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_293) dynamic-require_1))" -"(if or-part_293" -" or-part_293" -"(lambda(mod-path_25 sym_91 failure-k_0)" -" (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_294) module-declared?_1))" +"(let-values(((or-part_294) dynamic-require_1))" "(if or-part_294" " or-part_294" +"(lambda(mod-path_25 sym_91 failure-k_0)" +" (error 'read \"no `dynamic-require` provided\"))))" +"(let-values(((or-part_295) module-declared?_1))" +"(if or-part_295" +" or-part_295" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_213) coerce_1))" -"(if or-part_213 or-part_213(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" -"(let-values(((or-part_255) coerce-key_1))" -"(if or-part_255 or-part_255(lambda(for-syntax?_3 v_114) v_114)))" +"(let-values(((or-part_214) coerce_1))" +"(if or-part_214 or-part_214(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" +"(let-values(((or-part_256) coerce-key_1))" +"(if or-part_256 or-part_256(lambda(for-syntax?_3 v_114) v_114)))" " #f" " #f" " #f" @@ -47499,13 +47505,13 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_216) config_0))" -"(let-values(((the-struct_19) v_216))" -"(if(read-config/outer? the-struct_19)" +"(let-values(((v_217) config_0))" +"(let-values(((the-struct_75) v_217))" +"(if(read-config/outer? the-struct_75)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_76)(read-config/outer-inner v_216)))" +"(let-values(((the-struct_76)(read-config/outer-inner v_217)))" "(if(read-config/inner? the-struct_76)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -47531,12 +47537,12 @@ static const char *startup_source = "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(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)" +"(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)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_19)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -47547,16 +47553,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_295) given-end-pos_0))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_296) given-end-pos_0))" +"(if or-part_296" +" or-part_296" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" -"(let-values(((or-part_172)(read-config-source config_1)))" -"(if or-part_172" -" or-part_172" -" (let-values (((or-part_296) (object-name in_1))) (if or-part_296 or-part_296 \"UNKNOWN\"))))" +"(let-values(((or-part_173)(read-config-source config_1)))" +"(if or-part_173" +" or-part_173" +" (let-values (((or-part_297) (object-name in_1))) (if or-part_297 or-part_297 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47567,13 +47573,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_77) v_217))" +"(let-values(((v_218) config_2))" +"(let-values(((the-struct_77) v_218))" "(if(read-config/outer? the-struct_77)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" -"((inner65_0)(read-config/outer-inner v_217)))" +"((inner65_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_77)" @@ -47587,10 +47593,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_218) config_3))" -"(let-values(((the-struct_78) v_218))" +"(let-values(((v_219) config_3))" +"(let-values(((the-struct_78) v_219))" "(if(read-config/outer? the-struct_78)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_218)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -47604,10 +47610,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_219) config_4))" -"(let-values(((the-struct_79) v_219))" +"(let-values(((v_220) config_4))" +"(let-values(((the-struct_79) v_220))" "(if(read-config/outer? the-struct_79)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_219)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_220)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_79)" @@ -47624,10 +47630,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_220) config_5))" -"(let-values(((the-struct_80) v_220))" +"(let-values(((v_221) config_5))" +"(let-values(((the-struct_80) v_221))" "(if(read-config/outer? the-struct_80)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_220)))" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_221)))" "(read-config/outer1.1" " inner71_0" "(read-config/outer-wrap the-struct_80)" @@ -47644,11 +47650,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_221) config_6))" -"(let-values(((the-struct_81) v_221))" +"(let-values(((v_222) config_6))" +"(let-values(((the-struct_81) v_222))" "(if(read-config/outer? the-struct_81)" "(let-values(((inner72_1)" -"(let-values(((the-struct_82)(read-config/outer-inner v_221)))" +"(let-values(((the-struct_82)(read-config/outer-inner v_222)))" "(if(read-config/inner? the-struct_82)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -47685,26 +47691,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_222)(begin 'default-reader-guard v_222)))" +"(define-values(default-reader-guard$1)(lambda(v_223)(begin 'default-reader-guard v_223)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_223)" +"(lambda(v_224)" "(begin" -"(if(if(procedure? v_223)(procedure-arity-includes? v_223 1) #f)" +"(if(if(procedure? v_224)(procedure-arity-includes? v_224 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_223)))" -" v_223))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_224)))" +" v_224))))" "(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_224)(if v_224 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_225)(if v_225 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_225)(if v_225 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_226)(if v_226 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_61)(if v_61 #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_62)(if v_62 #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_93)(if v_93 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_226)(if v_226 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_227)(if v_227 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_63)(if v_63 #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))))" @@ -47850,8 +47856,8 @@ static const char *startup_source = "(let-values(((key_88)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_162)(not key_88)))" -"(if or-part_162 or-part_162(char? key_88)))" +"(if(let-values(((or-part_163)(not key_88)))" +"(if or-part_163 or-part_163(char? key_88)))" "(void)" "(let-values()" "(raise-argument-error" @@ -47883,20 +47889,20 @@ static const char *startup_source = "(begin" "(if key_88" "(let-values()" -"(if(let-values(((or-part_245)" +"(if(let-values(((or-part_246)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_246)" +"(if or-part_246" +" or-part_246" +"(let-values(((or-part_247)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_246" -" or-part_246" -"(let-values(((or-part_297)" +"(if or-part_247" +" or-part_247" +"(let-values(((or-part_298)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_297" -" or-part_297" +"(if or-part_298" +" or-part_298" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47980,14 +47986,14 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_274)" +"(let-values(((or-part_275)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_274 or-part_274 mode_16))))" +"(if or-part_275 or-part_275 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" @@ -48080,7 +48086,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 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_227)" +"(let-values(((v_228)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48102,7 +48108,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_227) v_227(coerce v_227 in_3 config_14)))))))" +"(if(1/special-comment? v_228) v_228(coerce v_228 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48120,7 +48126,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_164)" +"(let-values(((or-part_165)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -48128,28 +48134,28 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_164 or-part_164 c_63))" +"(if or-part_165 or-part_165 c_63))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_158)(readtable-char-ht rt_6)))" +"(let-values(((ht_157)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_158 c_64 #f) null(list c_64))" +"(if(hash-ref ht_157 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_150) ht_158))" +"(let-values(((ht_149) ht_157))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_266)" -"(lambda(fold-var_82 i_173)" +"(let-values()(check-in-hash ht_149)))" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_82 i_174)" "(begin" " 'for-loop" -"(if i_173" -"(let-values(((k_40 v_88)(hash-iterate-key+value ht_150 i_173)))" +"(if i_174" +"(let-values(((k_40 v_88)(hash-iterate-key+value ht_149 i_174)))" "(let-values(((fold-var_286)" "(let-values(((fold-var_85) fold-var_82))" "(if(eqv? v_88 c_64)" @@ -48160,12 +48166,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_266 fold-var_286(hash-iterate-next ht_150 i_173))" +"(for-loop_265 fold-var_286(hash-iterate-next ht_149 i_174))" " fold-var_286)))" " fold-var_82)))))" -" for-loop_266)" +" for-loop_265)" " null" -"(hash-iterate-first ht_150))))))))))" +"(hash-iterate-first ht_149))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" @@ -48302,9 +48308,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_154) init-c_2))" -"(if or-part_154" -" or-part_154" +"(let-values(((or-part_155) init-c_2))" +"(if or-part_155" +" or-part_155" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -48339,10 +48345,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_281)" +"(if(let-values(((or-part_282)" "(eof-object? c_65)))" -"(if or-part_281" -" or-part_281" +"(if or-part_282" +" or-part_282" "(eqv?" " '#\\newline" "(effective-char c_65 config_15))))" @@ -48396,8 +48402,8 @@ static const char *startup_source = "(if(eq? c_67 'special)" "(special1.1 'special)" " c_67)))))" -"(let-values(((or-part_282)(eqv? '#\\space c3_1)))" -"(if or-part_282 or-part_282(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_283)(eqv? '#\\space c3_1)))" +"(if or-part_283 or-part_283(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -48422,13 +48428,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_181)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_182)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_181)" +"(if(eof-object? v_182)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_181)" +"((v3_0) v_182)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48525,30 +48531,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_298)(char=? dc_0 '#\\()))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_277)(char=? dc_0 '#\\))))" -"(if or-part_277" -" or-part_277" +"(let-values(((or-part_299)(char=? dc_0 '#\\()))" +"(if or-part_299" +" or-part_299" +"(let-values(((or-part_278)(char=? dc_0 '#\\))))" +"(if or-part_278" +" or-part_278" "(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_154)(char=? dc_0 '#\\{)))" -"(if or-part_154" -" or-part_154" +"(let-values(((or-part_155)(char=? dc_0 '#\\{)))" +"(if or-part_155" +" or-part_155" "(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_210)(char=? dc_0 '#\\`)))" -"(if or-part_210" -" or-part_210" +"(let-values(((or-part_211)(char=? dc_0 '#\\`)))" +"(if or-part_211" +" or-part_211" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -48626,9 +48632,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_69 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))" -"(if(let-values(((or-part_280) s_10))(if or-part_280 or-part_280 c_69))" +"(if(let-values(((or-part_281) s_10))(if or-part_281 or-part_281 c_69))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_281) s_10)) (if or-part_281 or-part_281 c_69))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_282) s_10)) (if or-part_282 or-part_282 c_69))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -48698,8 +48704,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_181)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" -"(begin(accum-string-abandon! a_69 config_27) s_181)))))))))" +"(let-values(((s_180)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" +"(begin(accum-string-abandon! a_69 config_27) s_180)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48810,23 +48816,23 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_289)" -"(let-values(((lst_311)(cdr indts_1)))" +"(let-values(((or-part_290)" +"(let-values(((lst_309)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_311)))" -"((letrec-values(((for-loop_271)" -"(lambda(result_39 lst_312)" +"(let-values()(check-list lst_309)))" +"((letrec-values(((for-loop_270)" +"(lambda(result_39 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_312)" -"(let-values(((indt_3)(unsafe-car lst_312))" +"(if(pair? lst_310)" +"(let-values(((indt_3)(unsafe-car lst_310))" "((rest_174)" -"(unsafe-cdr lst_312)))" +"(unsafe-cdr lst_310)))" "(let-values(((result_82)" "(let-values()" -"(let-values(((result_117)" +"(let-values(((result_118)" "(let-values()" "(let-values()" "(if(char=?" @@ -48835,19 +48841,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_117)))))" +"(values result_118)))))" "(if(if(not" "((lambda x_79 result_82)" " indt_3))" "(not #f)" " #f)" -"(for-loop_271 result_82 rest_174)" +"(for-loop_270 result_82 rest_174)" " result_82)))" " result_39)))))" -" for-loop_271)" +" for-loop_270)" " #f" -" lst_311)))))" -" (if or-part_289 or-part_289 \"expected\"))))" +" lst_309)))))" +" (if or-part_290 or-part_290 \"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`\"" @@ -48894,14 +48900,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_228) elem-config_0))" -"(let-values(((the-struct_85) v_228))" +"(let-values(((v_229) elem-config_0))" +"(let-values(((the-struct_85) v_229))" "(if(read-config/outer? the-struct_85)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_228)))" +"((inner21_0)(read-config/outer-inner v_229)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_85)" @@ -49207,12 +49213,12 @@ static const char *startup_source = " temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_229)" +"(let-values(((v_230)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_229)" +"(if(1/special-comment? v_230)" "(let-values()" "(loop_39" " depth_11" @@ -49224,13 +49230,13 @@ static const char *startup_source = "(let-values()" "(loop_39" " depth_11" -"(cons v_229 accum_0)" +"(cons v_230 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_229" +" v_230" "(loop_39" "(add1 depth_11)" " null" @@ -49295,11 +49301,11 @@ static const char *startup_source = "(consume-char in_12 c_75)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_75))(void))" "((letrec-values(((loop_60)" -"(lambda(v_230 max-count_1)" +"(lambda(v_231 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_230)" +"(let-values() v_231)" "(let-values()" "(let-values(((c_68)" "(let-values(((in_24) in_12)" @@ -49323,9 +49329,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" "(loop_60" -"(+(digit->number c_68)(* v_230 base_23))" +"(+(digit->number c_68)(* v_231 base_23))" "(sub1 max-count_1))))" -"(let-values() v_230)))))))))" +"(let-values() v_231)))))))))" " loop_60)" "(+(digit->number c_75)(* init-v_0 base_23))" "(sub1 max-count_0))))" @@ -49348,9 +49354,9 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_78)" "(begin" -"(let-values(((or-part_299)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" -"(if or-part_299" -" or-part_299" +"(let-values(((or-part_300)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_300" +" or-part_300" "(let-values(((or-part_98)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" "(if or-part_98 or-part_98(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" "(define-values" @@ -49369,7 +49375,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_175) s7_2))" +"(let-values(((s_174) 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)" @@ -49380,9 +49386,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_175)" +"(if(string? s_174)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_175)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_174)))" "(if((lambda(p_74)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -49407,9 +49413,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_175)" +"(let-values(((s69_0) s_174)" "((temp70_1) 0)" -"((temp71_1)(string-length s_175))" +"((temp71_1)(string-length s_174))" "((radix72_0) radix_0)" "((temp73_1) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -49425,11 +49431,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_178)(begin 'string->number(string->number8_0 s_178 #f #f #f #f #f #f)))" -"((s_449 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_449 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_450 radix1_1)(string->number8_0 s_450 radix1_1 #f #f #t #f #f)))))" +"((s_177)(begin 'string->number(string->number8_0 s_177 #f #f #f #f #f #f)))" +"((s_450 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_450 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_451 radix1_1)(string->number8_0 s_451 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49443,7 +49449,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_451) s14_1))" +"(let-values(((s_452) s14_1))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49458,18 +49464,18 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_80)(string-ref s_451 start_44)))" +"(let-values(((c_80)(string-ref s_452 start_44)))" "(if(char=? '#\\# c_80)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_451))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_452))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_173)(string-ref s_451 next_4)))" -"(let-values(((tmp_39) i_173))" +"(let-values(((i_174)(string-ref s_452 next_4)))" +"(let-values(((tmp_39) i_174))" "(let-values(((index_2)" "(if(char? tmp_39)" "(let-values(((codepoint_0)(char->integer tmp_39)))" @@ -49543,8 +49549,8 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_173" -"(substring s_451 start_44 end_34)))" +" i_174" +"(substring s_452 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" @@ -49555,20 +49561,20 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_451 start_44 end_34)))" +"(substring s_452 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_451)" +"(let-values(((s76_1) s_452)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_207)" -"(char=? i_173 '#\\e)))" -"(if or-part_207" -" or-part_207" -"(char=? i_173 '#\\E)))" +"(if(let-values(((or-part_208)" +"(char=? i_174 '#\\e)))" +"(if or-part_208" +" or-part_208" +"(char=? i_174 '#\\E)))" " 'exact" " 'inexact))" "((temp82_4)" @@ -49586,18 +49592,18 @@ static const char *startup_source = " temp81_1" " temp82_4)))))" "(let-values()" -"(if(let-values(((or-part_300) radix-set?_0))" -"(if or-part_300 or-part_300 in-complex_0))" +"(if(let-values(((or-part_301) radix-set?_0))" +"(if or-part_301 or-part_301 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_451 start_44 end_34)))" +"(substring s_452 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_40) i_173))" +"(let-values(((tmp_40) i_174))" "(if(if(equal? tmp_40 '#\\b)" " #t" "(equal? tmp_40 '#\\B))" @@ -49611,7 +49617,7 @@ static const char *startup_source = "(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_451)" +"(let-values(((s83_0) s_452)" "((temp84_0)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49633,25 +49639,25 @@ static const char *startup_source = " temp89_2)))))))))))))))" "(let-values(((c1_28)" "(if(char-sign? c_80)" -"(read-special-number s_451 start_44 end_34 convert-mode_2)" +"(read-special-number s_452 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_231)" +"((lambda(v_232)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_231))" +" (let-values () (format \"no exact representation for `~a`\" v_232))" "(let-values() #f)))" -"(let-values() v_231)))" +"(let-values() v_232)))" " c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_451(sub1 end_34)))" -"(if(char-sign?(string-ref s_451 6))" +"(if(char=? '#\\i(string-ref s_452(sub1 end_34)))" +"(if(char-sign?(string-ref s_452 6))" "(read-special-number" -" s_451" +" s_452" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49661,15 +49667,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_232)" -"(let-values(((s90_1) s_451)" +"((lambda(v_233)" +"(let-values(((s90_1) s_452)" "((temp91_1)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_232)" +"((v97_0) v_233)" "((temp98_3)" "(lambda(v_53 v2_0)" "(begin 'temp98(make-rectangular v_53 v2_0)))))" @@ -49689,10 +49695,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_451(sub1 end_34)))" -"(if(char-sign?(string-ref s_451(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_452(sub1 end_34)))" +"(if(char-sign?(string-ref s_452(- end_34 7)))" "(read-special-number" -" s_451" +" s_452" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49705,7 +49711,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_451)" +"(let-values(((s99_0) s_452)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49734,9 +49740,9 @@ static const char *startup_source = "(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_451(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_452(+ start_44 6)))" "(read-special-number" -" s_451" +" s_452" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49745,18 +49751,18 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_201)" -"(let-values(((s109_0) s_451)" +"((lambda(v_202)" +"(let-values(((s109_0) s_452)" "((temp110_1)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_201)" +"((v116_0) v_202)" "((temp117_0)" -"(lambda(v_233 v2_3)" -"(begin 'temp117(make-polar v_233 v2_3)))))" +"(lambda(v_234 v2_3)" +"(begin 'temp117(make-polar v_234 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -49773,9 +49779,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_451(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_452(- end_34 7)))" "(read-special-number" -" s_451" +" s_452" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49784,7 +49790,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_451)" +"(let-values(((s118_0) s_452)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49794,8 +49800,8 @@ static const char *startup_source = "((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_234)" -"(begin 'temp127(make-polar v_234 v2_5)))))" +"(lambda(v2_5 v_235)" +"(begin 'temp127(make-polar v_235 v2_5)))))" "(read-for-special-compound65.1" " temp124_2" " temp125_1" @@ -49810,7 +49816,7 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_451)" +"(let-values(((s128_1) s_452)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49851,7 +49857,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_106)" -"(lambda(i_174" +"(lambda(i_175" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49863,7 +49869,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_174 end_35)" +"(if(= i_175 end_35)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49882,10 +49888,10 @@ static const char *startup_source = "(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_301)" +"(let-values(((or-part_302)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_301" -" or-part_301" +"(if or-part_302" +" or-part_302" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49962,11 +49968,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_199 i_174)))" +"(let-values(((c_81)(string-ref s_199 i_175)))" "(if(digit? c_81 radix_5)" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " #t" " any-hashes?_0" " i-pos_3" @@ -49979,7 +49985,7 @@ static const char *startup_source = "(if(char=? c_81 '#\\#)" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " #t" " #t" " i-pos_3" @@ -50001,37 +50007,37 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_174" +" i_175" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_174 start_45)" -"(let-values(((or-part_302)(not @-pos_0)))" -"(if or-part_302" -" or-part_302" -"(> i_174(add1 @-pos_0))))" +"(if(> i_175 start_45)" +"(let-values(((or-part_303)(not @-pos_0)))" +"(if or-part_303" +" or-part_303" +"(> i_175(add1 @-pos_0))))" " #f)))))" "(if(char=? c_81 '#\\.)" "(let-values()" -"(if(let-values(((or-part_204)" +"(if(let-values(((or-part_205)" "(if exp-pos_0" -"(let-values(((or-part_303)" +"(let-values(((or-part_304)" "(not sign-pos_0)))" -"(if or-part_303" -" or-part_303" +"(if or-part_304" +" or-part_304" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_204" -" or-part_204" +"(if or-part_205" +" or-part_205" "(if dot-pos_1" -"(let-values(((or-part_258)(not sign-pos_0)))" -"(if or-part_258" -" or-part_258" +"(let-values(((or-part_259)(not sign-pos_0)))" +"(if or-part_259" +" or-part_259" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50042,9 +50048,9 @@ static const char *startup_source = "(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_304)(not sign-pos_0)))" -"(if or-part_304" -" or-part_304" +"(let-values(((or-part_305)(not sign-pos_0)))" +"(if or-part_305" +" or-part_305" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50056,22 +50062,22 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_174" +" i_175" " #f" " #f" " must-i?_0)))))" "(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_305)(not sign-pos_0)))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_306)(not sign-pos_0)))" +"(if or-part_306" +" or-part_306" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50081,21 +50087,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_306)" +"(if(let-values(((or-part_307)" "(if exp-pos_0" -"(let-values(((or-part_178)" +"(let-values(((or-part_179)" "(not sign-pos_0)))" -"(if or-part_178" -" or-part_178" +"(if or-part_179" +" or-part_179" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_306" -" or-part_306" -"(if slash-pos_0" -"(let-values(((or-part_307)" -"(not sign-pos_0)))" "(if or-part_307" " or-part_307" +"(if slash-pos_0" +"(let-values(((or-part_308)" +"(not sign-pos_0)))" +"(if or-part_308" +" or-part_308" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50107,68 +50113,68 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_174" +" i_175" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_308)(char=? c_81 '#\\e)))" -"(if or-part_308" -" or-part_308" -"(let-values(((or-part_309)(char=? c_81 '#\\E)))" +"(if(let-values(((or-part_309)(char=? c_81 '#\\e)))" "(if or-part_309" " or-part_309" -"(let-values(((or-part_310)" -"(char=? c_81 '#\\f)))" +"(let-values(((or-part_310)(char=? c_81 '#\\E)))" "(if or-part_310" " or-part_310" "(let-values(((or-part_311)" -"(char=? c_81 '#\\F)))" +"(char=? c_81 '#\\f)))" "(if or-part_311" " or-part_311" "(let-values(((or-part_312)" -"(char=? c_81 '#\\d)))" +"(char=? c_81 '#\\F)))" "(if or-part_312" " or-part_312" "(let-values(((or-part_313)" -"(char=? c_81 '#\\D)))" +"(char=? c_81 '#\\d)))" "(if or-part_313" " or-part_313" -"(let-values(((or-part_205)" +"(let-values(((or-part_314)" +"(char=? c_81 '#\\D)))" +"(if or-part_314" +" or-part_314" +"(let-values(((or-part_206)" "(char=?" " c_81" " '#\\s)))" -"(if or-part_205" -" or-part_205" -"(let-values(((or-part_157)" +"(if or-part_206" +" or-part_206" +"(let-values(((or-part_158)" "(char=?" " c_81" " '#\\S)))" -"(if or-part_157" -" or-part_157" -"(let-values(((or-part_314)" -"(char=?" -" c_81" -" '#\\l)))" -"(if or-part_314" -" or-part_314" +"(if or-part_158" +" or-part_158" "(let-values(((or-part_315)" "(char=?" " c_81" -" '#\\L)))" +" '#\\l)))" "(if or-part_315" " or-part_315" "(let-values(((or-part_316)" "(char=?" " c_81" -" '#\\t)))" +" '#\\L)))" "(if or-part_316" " or-part_316" +"(let-values(((or-part_317)" +"(char=?" +" c_81" +" '#\\t)))" +"(if or-part_317" +" or-part_317" "(char=?" " c_81" " '#\\T)))))))))))))))))))))))" @@ -50182,25 +50188,12 @@ static const char *startup_source = " c_81" "(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(if(<(add1 i_174) end_35)" -"(char-sign?(string-ref s_199(add1 i_174)))" +"(if(if(<(add1 i_175) end_35)" +"(char-sign?(string-ref s_199(add1 i_175)))" " #f)" "(let-values()" "(loop_106" -"(+ i_174 2)" -" any-digits?_0" -" any-hashes?_0" -" i-pos_3" -" @-pos_0" -" sign-pos_0" -" dot-pos_1" -" slash-pos_0" -"(let-values(((or-part_317) exp-pos_0))" -"(if or-part_317 or-part_317 i_174))" -" must-i?_0))" -"(let-values()" -"(loop_106" -"(+ i_174 1)" +"(+ i_175 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50209,7 +50202,20 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_318) exp-pos_0))" -"(if or-part_318 or-part_318 i_174))" +"(if or-part_318 or-part_318 i_175))" +" must-i?_0))" +"(let-values()" +"(loop_106" +"(+ i_175 1)" +" any-digits?_0" +" any-hashes?_0" +" i-pos_3" +" @-pos_0" +" sign-pos_0" +" dot-pos_1" +" slash-pos_0" +"(let-values(((or-part_319) exp-pos_0))" +"(if or-part_319 or-part_319 i_175))" " must-i?_0)))))" "(if(char=? c_81 '#\\@)" "(let-values()" @@ -50221,9 +50227,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_319) @-pos_0))" -"(if or-part_319" -" or-part_319" +"(if(let-values(((or-part_320) @-pos_0))" +"(if or-part_320" +" or-part_320" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50232,7 +50238,7 @@ static const char *startup_source = " \"too many `@`s in `~.a`\"" "(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(= i_174 start_45)" +"(if(= i_175 start_45)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -50250,27 +50256,27 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_174" +" i_175" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_320)" +"(if(if(let-values(((or-part_321)" "(char=? c_81 '#\\i)))" -"(if or-part_320" -" or-part_320" +"(if or-part_321" +" or-part_321" "(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_321) @-pos_0))" -"(if or-part_321" -" or-part_321" +"(if(let-values(((or-part_322) @-pos_0))" +"(if or-part_322" +" or-part_322" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50279,10 +50285,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_322)" -"(<(add1 i_174) end_35)))" -"(if or-part_322" -" or-part_322" +"(if(let-values(((or-part_323)" +"(<(add1 i_175) end_35)))" +"(if or-part_323" +" or-part_323" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50293,10 +50299,10 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_174)" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" -" i_174" +" i_175" " @-pos_0" " sign-pos_0" " #f" @@ -50342,7 +50348,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_218) s40_0))" +"(let-values(((s_219) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -50359,7 +50365,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_218)" +"(let-values(((s160_0) s_219)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -50380,12 +50386,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_218 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_219 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_218)" +"(let-values(((s168_0) s_219)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -50403,11 +50409,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_323)(not v1_0)))" -"(if or-part_323 or-part_323(not v2_6)))" +"(if(let-values(((or-part_324)(not v1_0)))" +"(if or-part_324 or-part_324(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_324)(extflonum? v1_0)))" -"(if or-part_324 or-part_324(extflonum? v2_6)))" +"(if(if(let-values(((or-part_325)(extflonum? v1_0)))" +"(if or-part_325 or-part_325(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50428,33 +50434,33 @@ static const char *startup_source = " p_76))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_229 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_230 start_46 end_36 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_229 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_230 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_325)(eq? exactness_3 'inexact)))" -"(if or-part_325" -" or-part_325" -"(let-values(((or-part_326)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_326 or-part_326(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_327)(not exp-pos_1)))" -"(if or-part_327" -" or-part_327" -"(let-values(((or-part_328)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_328 or-part_328(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_229 start_46 end_36) #f))" +"(if(let-values(((or-part_326)(eq? exactness_3 'inexact)))" +"(if or-part_326" +" or-part_326" +"(let-values(((or-part_327)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_327 or-part_327(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_328)(not exp-pos_1)))" +"(if or-part_328" +" or-part_328" +"(let-values(((or-part_329)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_329 or-part_329(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_230 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_229 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_230 start_46)) #f)))" "(if(=(- end_36 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_36 start_46)" " (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_229 start_46 end_36)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_230 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50466,37 +50472,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_229 start_46 end_36)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_230 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_329)(= exp-pos_1(sub1 end_36))))" -"(if or-part_329" -" or-part_329" -"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_229(sub1 end_36))) #f)))" +"(let-values(((or-part_330)(= exp-pos_1(sub1 end_36))))" +"(if or-part_330" +" or-part_330" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_230(sub1 end_36))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_229 start_46 end_36)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_230 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_229 start_46 end_36)" +"(maybe-substring s_230 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_330)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_330" -" or-part_330" -"(let-values(((or-part_331)(not exp-pos_1)))" -"(if or-part_331 or-part_331(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_331)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_331" +" or-part_331" +"(let-values(((or-part_332)(not exp-pos_1)))" +"(if or-part_332 or-part_332(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_332)(not n_30)))(if or-part_332 or-part_332(string? n_30)))" +"(if(let-values(((or-part_333)(not n_30)))(if or-part_333 or-part_333(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_229 start_46 end_36)))" +"(substring s_230 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50505,9 +50511,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_229 start_46 end_36)))" +"(substring s_230 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_229 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_230 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50515,7 +50521,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_229" +" s_230" " start_46" " exp-pos_1" " dot-pos_2" @@ -50526,29 +50532,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_229(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_230(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_46)" +"(lambda(r_45)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_229 exp-pos_1)))" +"(let-values(((tmp_41)(string-ref s_230 exp-pos_1)))" "(if(if(equal? tmp_41 '#\\s)" " #t" "(if(equal? tmp_41 '#\\S)" " #t" "(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" -"(let-values()(real->single-flonum r_46))" +"(let-values()(real->single-flonum r_45))" "(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_46)" +"(real->extfl r_45)" "(string->number$1" -"(replace-hashes s_229 start_46 end_36)" +"(replace-hashes s_230 start_46 end_36)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_46)))))))))" +"(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_333)(not m-v_0)))(if or-part_333 or-part_333(not e-v_0)))" +"(if(let-values(((or-part_334)(not m-v_0)))(if or-part_334 or-part_334(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50556,14 +50562,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_216)(eq? exactness_3 'inexact)))" -"(if or-part_216 or-part_216(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_217)(eq? exactness_3 'inexact)))" +"(if or-part_217 or-part_217(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_229 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_230 start_46) '#\\-) -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))))))" @@ -50573,24 +50579,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_229 start_46 end_36)" +"(substring s_230 start_46 end_36)" " 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_334)(eq? exactness_3 'exact)))" -"(if or-part_334 or-part_334(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_335)(eq? exactness_3 'exact)))" +"(if or-part_335 or-part_335(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_229 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_230 start_46) '#\\-) #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_229" +" s_230" " start_46" " slash-pos_1" " #f" @@ -50602,7 +50608,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_229" +" s_230" "(add1 slash-pos_1)" " end_36" " #f" @@ -50616,13 +50622,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_144)(eq? exactness_3 'inexact)))" -"(if or-part_144" -" or-part_144" +"(let-values(((or-part_145)(eq? exactness_3 'inexact)))" +"(if or-part_145" +" or-part_145" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_229 from-pos_0 end_36)" +"(hashes? s_230 from-pos_0 end_36)" " #f)))))))" -"(if(let-values(((or-part_335)(not n-v_0)))(if or-part_335 or-part_335(not d-v_0)))" +"(if(let-values(((or-part_336)(not n-v_0)))(if or-part_336 or-part_336(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50635,14 +50641,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_229 start_46 end_36)))" +" (format \"division by zero in `~.a`\" (substring s_230 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_229" +" s_230" " start_46" " end_36" " dot-pos_2" @@ -50651,11 +50657,11 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_351 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_352 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_336)(eq? exactness_4 'exact)))" -"(if or-part_336 or-part_336(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_337)(eq? exactness_4 'exact)))" +"(if or-part_337 or-part_337(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_107)" "(lambda(i_116 j_3 hashes-pos_0)" @@ -50667,22 +50673,22 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_351 start_47 end_37)))" +" (format \"misplaced `#` in `~.a`\" (substring s_352 start_47 end_37)))" "(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_351 start_47 end_37))" +"(let-values()(fail-bad-number convert-mode_6 s_352 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_351 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_352 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_82)(string-ref s_351 i_116)))" +"(let-values(((c_82)(string-ref s_352 i_116)))" "(if(char=? c_82 '#\\.)" "(let-values()" "(if get-exact?_0" @@ -50698,8 +50704,8 @@ static const char *startup_source = "(sub1 i_116)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0))))))" -"(if(let-values(((or-part_112)(char=? c_82 '#\\-)))" -"(if or-part_112 or-part_112(char=? c_82 '#\\+)))" +"(if(let-values(((or-part_111)(char=? c_82 '#\\-)))" +"(if or-part_111 or-part_111(char=? c_82 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" @@ -50719,7 +50725,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_351 start_47 end_37)))" +"(substring s_352 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" @@ -50731,69 +50737,69 @@ static const char *startup_source = " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_239 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_240 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_239 start_48 end_38)" +"(if(hashes? s_240 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_239 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_240 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_239 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_240 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_239 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_240 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_242 start_49 end_39 convert-mode_8)" +"(lambda(s_243 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_337)(char=?(string-ref s_242 start_49) '#\\+)))" -"(if or-part_337 or-part_337(char=?(string-ref s_242 start_49) '#\\-)))" -"(let-values(((or-part_338)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 4))) '#\\.)" +"(if(let-values(((or-part_338)(char=?(string-ref s_243 start_49) '#\\+)))" +"(if or-part_338 or-part_338(char=?(string-ref s_243 start_49) '#\\-)))" "(let-values(((or-part_339)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_242 start_49) '#\\+) +inf.0 -inf.0)" -" #f)))" -"(if or-part_339" -" or-part_339" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 4))) '#\\.)" "(let-values(((or-part_340)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_242 start_49) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_243 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_340" " or-part_340" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\t)" +"(let-values(((or-part_341)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_243 start_49) '#\\+) +inf.f -inf.f)" +" #f)))" +"(if or-part_341" +" or-part_341" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_242 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_243 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_338" -" or-part_338" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 4))) '#\\.)" -"(let-values(((or-part_341)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_341" -" or-part_341" +"(if or-part_339" +" or-part_339" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 4))) '#\\.)" "(let-values(((or-part_342)" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\0) +nan.0 #f)))" "(if or-part_342" " or-part_342" -"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\t)" +"(let-values(((or-part_343)" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_343" +" or-part_343" +"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50804,10 +50810,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_235)" +"(lambda(convert-mode_9 v_236)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_235))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_236))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -50824,7 +50830,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_452) s57_0))" +"(let-values(((s_453) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50832,22 +50838,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_236) v63_0))" +"(let-values(((v_237) 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_236))" +" (let-values () (format \"no exact representation for `~a`\" v_237))" "(let-values() #f)))" -"(if(if(extflonum? v_236)" -"(let-values(((or-part_343)(not reading-first?_0)))" -"(if or-part_343 or-part_343(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_237)" +"(let-values(((or-part_344)(not reading-first?_0)))" +"(if or-part_344 or-part_344(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_236))" +"(let-values()(fail-extflonum convert-mode_10 v_237))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_452)" +"(let-values(((s176_0) s_453)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50869,12 +50875,12 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_236)" -"(let-values()(fail-extflonum convert-mode_10 v_236))" -"(let-values()(combine_1 v_236 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_237)" +"(let-values()(fail-extflonum convert-mode_10 v_237))" +"(let-values()(combine_1 v_237 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_453 start_51 end_41)" +"(lambda(s_454 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -50882,33 +50888,33 @@ static const char *startup_source = " \"string\"" "(lambda(x_80)(string? x_80))" "(lambda(x_81)(unsafe-string-length x_81))" -" s_453" +" s_454" " start_51" " end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_272)" -"(lambda(result_118 idx_5)" +"((letrec-values(((for-loop_271)" +"(lambda(result_119 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" "(let-values(((c_83)(string-ref v*_6 idx_5)))" -"(let-values(((result_119)" -"(let-values()" "(let-values(((result_120)" +"(let-values()" +"(let-values(((result_121)" "(let-values()(let-values()(char=? c_83 '#\\#)))))" -"(values result_120)))))" -"(if(if(not((lambda x_82 result_119) c_83))(not #f) #f)" -"(for-loop_272 result_119(unsafe-fx+ idx_5 1))" -" result_119)))" -" result_118)))))" -" for-loop_272)" +"(values result_121)))))" +"(if(if(not((lambda x_82 result_120) c_83))(not #f) #f)" +"(for-loop_271 result_120(unsafe-fx+ idx_5 1))" +" result_120)))" +" result_119)))))" +" for-loop_271)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_130 start_52 end_42)" +"(lambda(s_455 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -50918,7 +50924,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_83)(string? x_83))" "(lambda(x_84)(unsafe-string-length x_84))" -" s_130" +" s_455" " start_52" " end_42" " 1))" @@ -50928,12 +50934,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_272)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_84)(string-ref v*_7 idx_6))((i_175) pos_114))" +"(let-values(((c_84)(string-ref v*_7 idx_6))((i_176) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50941,52 +50947,52 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_84 '#\\#)" -"(string-set! new-s_9 i_175 '#\\0)" -"(string-set! new-s_9 i_175 c_84)))" +"(string-set! new-s_9 i_176 '#\\0)" +"(string-set! new-s_9 i_176 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_273(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_272(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_273)" +" for-loop_272)" " start*_6" " start_53)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_392 start_54 end_43)" -"(begin(if(if(= 0 start_54)(= end_43(string-length s_392)) #f) s_392(substring s_392 start_54 end_43)))))" +"(lambda(s_393 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_393)) #f) s_393(substring s_393 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_344)(eq? exactness_6 'exact)))(if or-part_344 or-part_344(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_345)(eq? exactness_6 'exact)))(if or-part_345 or-part_345(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_85)" -"(begin(let-values(((or-part_345)(char=? c_85 '#\\-)))(if or-part_345 or-part_345(char=? c_85 '#\\+))))))" +"(begin(let-values(((or-part_346)(char=? c_85 '#\\-)))(if or-part_346 or-part_346(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_86 radix_11)" "(begin" -"(let-values(((v_237)(char->integer c_86)))" -"(let-values(((or-part_346)" -"(if(>= v_237(char->integer '#\\0))(<(- v_237(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_346" -" or-part_346" -"(if(> radix_11 10)" +"(let-values(((v_238)(char->integer c_86)))" "(let-values(((or-part_347)" -"(if(>= v_237(char->integer '#\\a))(<(- v_237(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_238(char->integer '#\\0))(<(- v_238(char->integer '#\\0)) radix_11) #f)))" "(if or-part_347" " or-part_347" -"(if(>= v_237(char->integer '#\\A))(<(- v_237(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(> radix_11 10)" +"(let-values(((or-part_348)" +"(if(>= v_238(char->integer '#\\a))(<(- v_238(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_348" +" or-part_348" +"(if(>= v_238(char->integer '#\\A))(<(- v_238(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_454 start_55 end_44)" +"(lambda(convert-mode_11 s_456 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_454 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_456 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51284,9 +51290,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_155)" +"(if(let-values(((or-part_156)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_155 or-part_155(string? mode_17)))" +"(if or-part_156 or-part_156(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -51341,9 +51347,9 @@ static const char *startup_source = "(list temp30_2))))" "(void))" "(wrap" -"(let-values(((or-part_163) num_0))" -"(if or-part_163" -" or-part_163" +"(let-values(((or-part_164) num_0))" +"(if or-part_164" +" or-part_164" "(let-values(((or-part_95)" "(if(eq? mode_17 'keyword)" "(string->keyword str_28)" @@ -51470,7 +51476,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_0) 0))" -"(let-values(((v_195)(make-fxvector len_37 fill_0)))" +"(let-values(((v_196)(make-fxvector len_37 fill_0)))" "(begin" "(if(zero? len_37)" "(void)" @@ -51481,20 +51487,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_251)" -"(lambda(i_176 lst_81)" +"((letrec-values(((for-loop_250)" +"(lambda(i_177 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" +"(if(pair? lst_80)" "(let-values(((e_73)" "(unsafe-car" -" lst_81))" +" lst_80))" "((rest_143)" "(unsafe-cdr" -" lst_81)))" -"(let-values(((i_177)" +" lst_80)))" "(let-values(((i_178)" -" i_176))" +"(let-values(((i_179)" +" i_177))" "(let-values(((i_58)" "(let-values()" "(begin" @@ -51504,34 +51510,34 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_195" -" i_178" +" v_196" +" i_179" " elem_0)" "(not-an-fX.1" " 'for*/vector" " elem_0)))" "(unsafe-fx+" " 1" -" i_178)))))" +" i_179)))))" "(values" " i_58)))))" "(if(if(not" "((lambda x_85" "(unsafe-fx=" -" i_177" +" i_178" " len_37))" " e_73))" "(not #f)" " #f)" -"(for-loop_251" -" i_177" +"(for-loop_250" +" i_178" " rest_143)" -" i_177)))" -" i_176)))))" -" for-loop_251)" +" i_178)))" +" i_177)))))" +" for-loop_250)" " 0" " lst_24)))))" -" v_195))))))" +" v_196))))))" "(if(equal? tmp_42 'flonum)" "(let-values()" "(let-values(((len_8)(length seq_2)))" @@ -51544,19 +51550,19 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_8)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_238)(make-flvector len_8 fill_1)))" +"(let-values(((v_239)(make-flvector len_8 fill_1)))" "(begin" "(if(zero? len_8)" "(void)" "(let-values()" -"(let-values(((lst_93) seq_2))" +"(let-values(((lst_92) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_189)" -"(lambda(i_179 lst_17)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_188)" +"(lambda(i_180 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" @@ -51566,10 +51572,10 @@ static const char *startup_source = "((rest_90)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_156)" +"(let-values(((i_157)" "(let-values(((i_92)" -" i_179))" -"(let-values(((i_180)" +" i_180))" +"(let-values(((i_181)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -51578,7 +51584,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_238" +" v_239" " i_92" " elem_1)" "(not-an-fX.1$1" @@ -51588,24 +51594,24 @@ static const char *startup_source = " 1" " i_92)))))" "(values" -" i_180)))))" +" i_181)))))" "(if(if(not" "((lambda x_86" "(unsafe-fx=" -" i_156" +" i_157" " len_8))" " e_80))" "(not #f)" " #f)" -"(for-loop_189" -" i_156" +"(for-loop_188" +" i_157" " rest_90)" -" i_156)))" -" i_179)))))" -" for-loop_189)" +" i_157)))" +" i_180)))))" +" for-loop_188)" " 0" -" lst_93)))))" -" v_238))))))" +" lst_92)))))" +" v_239))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_38)(length seq_2)))" @@ -51643,11 +51649,11 @@ static const char *startup_source = "(list temp25_6 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_239)" +"(lambda(v_240)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_239 in_30 config_40 #f)" +"(wrap v_240 in_30 config_40 #f)" "((letrec-values(((loop_109)" "(lambda(seq_3)" "(begin" @@ -51701,7 +51707,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_274)" +"((letrec-values(((for-loop_273)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" @@ -51714,7 +51720,7 @@ static const char *startup_source = "((rest_169)" "(unsafe-cdr" " lst_10))" -"((i_181)" +"((i_182)" " pos_116))" "(let-values((()" "(let-values()" @@ -51724,48 +51730,48 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_67" -" i_181" +" i_182" " e_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_274" +"(for-loop_273" " rest_169" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_274)" +" for-loop_273)" " lst_9" " start_56)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_227) seq_2)((start_57) 0))" +"(let-values(((lst_225) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_227)))" +"(let-values()(check-list lst_225)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_57)))" -"((letrec-values(((for-loop_99)" -"(lambda(lst_182 pos_109)" +"((letrec-values(((for-loop_100)" +"(lambda(lst_180 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_182)" +" lst_180)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_182))" +" lst_180))" "((rest_175)" "(unsafe-cdr" -" lst_182))" -"((i_182)" +" lst_180))" +"((i_183)" " pos_109))" "(let-values((()" "(let-values()" @@ -51775,51 +51781,51 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_67" -" i_182" +" i_183" " e_82))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" +"(for-loop_100" " rest_175" "(+" " pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_99)" -" lst_227" +" for-loop_100)" +" lst_225" " start_57)))" "(void)))" "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_313) seq_2)((start_58) 0))" +"(let-values(((lst_311) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_313)))" +"(let-values()(check-list lst_311)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_58)))" -"((letrec-values(((for-loop_108)" -"(lambda(lst_280" +"((letrec-values(((for-loop_109)" +"(lambda(lst_278" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_280)" +" lst_278)" " #t" " #f)" "(let-values(((e_83)" "(unsafe-car" -" lst_280))" +" lst_278))" "((rest_45)" "(unsafe-cdr" -" lst_280))" +" lst_278))" "((i_35)" " pos_117))" "(let-values((()" @@ -51835,15 +51841,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_108" +"(for-loop_109" " rest_45" "(+" " pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_108)" -" lst_313" +" for-loop_109)" +" lst_311" " start_58)))" "(void)))" "(let-values()(void))))))" @@ -52304,9 +52310,9 @@ static const char *startup_source = "(if(if(equal? tmp_49 '#\\=) #t(equal? tmp_49 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_348)(read-config-for-syntax? config_47)))" -"(if or-part_348" -" or-part_348" +"(if(let-values(((or-part_349)(read-config-for-syntax? config_47)))" +"(if or-part_349" +" or-part_349" "(not(check-parameter 1/read-accept-graph config_47))))" "(let-values()" "(let-values(((in37_1) in_39)" @@ -52360,10 +52366,10 @@ static const char *startup_source = "(if(equal? tmp_50 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_159)(get-graph-hash config_47)))" +"(let-values(((ht_158)(get-graph-hash config_47)))" "(let-values((()" "(begin" -"(if(hash-ref ht_159 v_28 #f)" +"(if(hash-ref ht_158 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_39)" "((config51_0) config_47)" @@ -52395,7 +52401,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_159 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_158 v_28 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_39(next-readtable config_47))))" "(begin" @@ -52496,10 +52502,10 @@ static const char *startup_source = "(lambda(config_48)" "(begin" "(let-values(((st_3)(read-config-st config_48)))" -"(let-values(((or-part_137)(read-config-state-graph st_3)))" -"(if or-part_137" -" or-part_137" -"(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))" +"(let-values(((or-part_138)(read-config-state-graph st_3)))" +"(if or-part_138" +" or-part_138" +"(let-values(((ht_159)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_159) ht_159))))))))" "(define-values" "(coerce-key)" "(lambda(key_89 config_8)" @@ -52881,8 +52887,8 @@ static const char *startup_source = "((temp64_3)(indentation-unexpected-closer-message ec_8 c_80 config_49)))" "(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_3))))" "(let-values()" -"(let-values(((v_240)(read-one_8 c_80 in_42(keep-comment elem-config_1))))" -"(if(1/special-comment? v_240)" +"(let-values(((v_241)(read-one_8 c_80 in_42(keep-comment elem-config_1))))" +"(if(1/special-comment? v_241)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -52953,7 +52959,7 @@ static const char *startup_source = " temp72_1" "(list temp73_4)))))" "(values))))" -"(let-values(((v_232)(read-one_8 #f in_42 elem-config_1)))" +"(let-values(((v_233)(read-one_8 #f in_42 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_42 config_49)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -52986,7 +52992,7 @@ static const char *startup_source = " temp75_1" " temp77_1" "(list temp78_2)))))" -"(cons(coerce-key k_41 elem-config_1) v_232))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_233))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -53415,7 +53421,7 @@ static const char *startup_source = "(let-values(((pos_103)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_239)" +"(let-values(((v_240)" "(let-values(((in40_1)" " in_44)" "((config41_1)" @@ -53438,13 +53444,13 @@ static const char *startup_source = " accum-str42_0" " #t))))" "(begin" -"(if(integer? v_239)" +"(if(integer? v_240)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_239" +" v_240" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53453,7 +53459,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_239))))))" +" v_240))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53468,7 +53474,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_241)" +"(let-values(((v_242)" "(let-values(((in45_0)" " in_44)" "((config46_0)" @@ -53492,23 +53498,23 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_241)" +" v_242)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_241" +" v_242" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_247)" +"(if(let-values(((or-part_248)" "(<" -" v_241" +" v_242" " 55296)))" -"(if or-part_247" -" or-part_247" +"(if or-part_248" +" or-part_248" "(>" -" v_241" +" v_242" " 57343)))" "(let-values()" "(begin" @@ -53518,7 +53524,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_241))))" +" v_242))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53602,7 +53608,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_241" +" v_242" " 55296)" " 10)" "(-" @@ -53708,7 +53714,7 @@ static const char *startup_source = "(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_242)" +"(let-values(((v_243)" "(let-values(((in72_0)" " in_44)" "((config73_0)" @@ -53732,26 +53738,26 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_242)" +" v_243)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_242" +" v_243" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_54)" "(<" -" v_242" +" v_243" " 55296)))" "(if or-part_54" " or-part_54" "(>" -" v_242" +" v_243" " 57343)))" "(<=" -" v_242" +" v_243" " 1114111)" " #f)" "(let-values()" @@ -53762,7 +53768,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_242))))" +" v_243))))" "(let-values()" "(let-values(((in77_1)" " in_44)" @@ -53970,24 +53976,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_314)" +"(let-values(((lst_312)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_314)))" -"((letrec-values(((for-loop_275)" -"(lambda(lst_315)" +"(let-values()(check-list lst_312)))" +"((letrec-values(((for-loop_274)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_315)" +"(if(pair? lst_313)" "(let-values(((c_12)" "(unsafe-car" -" lst_315))" +" lst_313))" "((rest_176)" "(unsafe-cdr" -" lst_315)))" +" lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54000,12 +54006,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_275" +"(for-loop_274" " rest_176)" "(values))))" "(values))))))" -" for-loop_275)" -" lst_314)))" +" for-loop_274)" +" lst_312)))" "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" @@ -54801,10 +54807,10 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_169)" +"(if(let-values(((or-part_170)" "(char-lang-nonsep? c_9)))" -"(if or-part_169" -" or-part_169" +"(if or-part_170" +" or-part_170" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" @@ -54946,17 +54952,17 @@ static const char *startup_source = "(lambda(c_103)" "(begin" "(if(<(char->integer c_103) 128)" -"(let-values(((or-part_265)(char-alphabetic? c_103)))" -"(if or-part_265" -" or-part_265" -"(let-values(((or-part_349)(char-numeric? c_103)))" -"(if or-part_349" -" or-part_349" -"(let-values(((or-part_294)(char=? '#\\- c_103)))" -"(if or-part_294" -" or-part_294" -"(let-values(((or-part_170)(char=? '#\\+ c_103)))" -"(if or-part_170 or-part_170(char=? '#\\_ c_103)))))))))" +"(let-values(((or-part_266)(char-alphabetic? c_103)))" +"(if or-part_266" +" or-part_266" +"(let-values(((or-part_350)(char-numeric? c_103)))" +"(if or-part_350" +" or-part_350" +"(let-values(((or-part_295)(char=? '#\\- c_103)))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_171)(char=? '#\\+ c_103)))" +"(if or-part_171 or-part_171(char=? '#\\_ c_103)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -54964,15 +54970,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_55)))" "(begin" -"(let-values(((lst_316) already_0))" +"(let-values(((lst_314) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_316)))" -"((letrec-values(((for-loop_276)" -"(lambda(lst_317)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" +"((letrec-values(((for-loop_275)" +"(lambda(lst_315)" "(begin" " 'for-loop" -"(if(pair? lst_317)" -"(let-values(((c_104)(unsafe-car lst_317))((rest_177)(unsafe-cdr lst_317)))" +"(if(pair? lst_315)" +"(let-values(((c_104)(unsafe-car lst_315))((rest_177)(unsafe-cdr lst_315)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54982,10 +54988,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_104))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_276 rest_177)(values))))" +"(if(not #f)(for-loop_275 rest_177)(values))))" "(values))))))" -" for-loop_276)" -" lst_316)))" +" for-loop_275)" +" lst_314)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -55329,7 +55335,7 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_243)(read-one init-c_15 in_12 config_58)))" +"(let-values(((v_244)(read-one init-c_15 in_12 config_58)))" "(if(if(let-values(((or-part_95)(not recursive?_0)))" "(if or-part_95 or-part_95 local-graph?_1))" "(read-config-state-graph(read-config-st config_58))" @@ -55338,17 +55344,17 @@ static const char *startup_source = "(catch-and-reraise-as-reader/proc" " #f" " config_58" -"(lambda()(make-reader-graph v_243))))" +"(lambda()(make-reader-graph v_244))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_243))(not(1/special-comment? v_243)) #f)" +"(if(not(eof-object? v_244))(not(1/special-comment? v_244)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_58)(make-placeholder v_243)))" -"(let-values() v_243))))))))))))))))))))))))" +"(begin(get-graph-hash config_58)(make-placeholder v_244)))" +"(let-values() v_244))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -55423,12 +55429,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_61)" "(let-values()" "(let-values(((line_11 col_10 pos_122)(port-next-location in_64)))" -"(let-values(((v_244)(read-undotted init-c_16 in_64 config_61)))" -"(if(1/special-comment? v_244)" -"(let-values() v_244)" +"(let-values(((v_245)(read-undotted init-c_16 in_64 config_61)))" +"(if(1/special-comment? v_245)" +"(let-values() v_245)" "(let-values()" "((letrec-values(((loop_115)" -"(lambda(v_245)" +"(lambda(v_246)" "(begin" " 'loop" "(let-values(((c_105)" @@ -55444,9 +55450,9 @@ static const char *startup_source = "(if(eq? c_106 'special)(special1.1 'special) c_106)))))" "(let-values(((ec_9)(effective-char c_105 config_61)))" "(if(not(char? ec_9))" -"(let-values() v_245)" +"(let-values() v_246)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_105)(loop_115 v_245)))" +"(let-values()(begin(consume-char in_64 c_105)(loop_115 v_246)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55466,13 +55472,13 @@ static const char *startup_source = "(read-undotted #f in_64 config_61)))" "(loop_115" "(wrap" -"(list cdot_0 v_245 post-v_0)" +"(list cdot_0 v_246 post-v_0)" " in_64" "(reading-at config_61 line_11 col_10 pos_122)" " '#\\.)))))))" -"(let-values() v_245))))))))))" +"(let-values() v_246))))))))))" " loop_115)" -" v_244))))))" +" v_245))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55484,10 +55490,10 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_107))" "(let-values()" -"(let-values(((v_246)(special-value c_107)))" -"(if(1/special-comment? v_246)" -"(let-values()(if(read-config-keep-comment? config_56) v_246(read-undotted #f in_62 config_56)))" -"(let-values()(coerce v_246 in_62(reading-at config_56 line_12 col_11 pos_123))))))" +"(let-values(((v_247)(special-value c_107)))" +"(if(1/special-comment? v_247)" +"(let-values()(if(read-config-keep-comment? config_56) v_247(read-undotted #f in_62 config_56)))" +"(let-values()(coerce v_247 in_62(reading-at config_56 line_12 col_11 pos_123))))))" "(let-values(((c2_8)(readtable-handler config_56 c_107)))" "(if c2_8" "((lambda(handler_3)" @@ -55561,14 +55567,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_247)" +"(let-values(((v_248)" "(let-values(((c79_1) c_107)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_315)(eq? c_107 ec_10)))" -"(if or-part_315" -" or-part_315" +"(if(let-values(((or-part_316)(eq? c_107 ec_10)))" +"(if or-part_316" +" or-part_316" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55582,7 +55588,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_247 in_62 config_56)))" +"(retry-special-comment v_248 in_62 config_56)))" "(let-values()(read-dispatch c_107 in_62 r-config_0 config_56)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_107 in_62 r-config_0))" @@ -55719,10 +55725,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_350)" +"(if(let-values(((or-part_351)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_350" -" or-part_350" +"(if or-part_351" +" or-part_351" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(wrap" @@ -55772,10 +55778,10 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_351)" +"(if(let-values(((or-part_352)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_351" -" or-part_351" +"(if or-part_352" +" or-part_352" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(let-values(((in113_1) in_62)" @@ -55819,10 +55825,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_352)" +"(if(let-values(((or-part_353)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_352" -" or-part_352" +"(if or-part_353" +" or-part_353" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(wrap" @@ -55873,10 +55879,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_354)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_353" -" or-part_353" +"(if or-part_354" +" or-part_354" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -55964,9 +55970,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_62)))" "(let-values(((col_12)(read-config-col config_62)))" "(let-values(((pos_124)(read-config-pos config_62)))" -"(let-values(((v_248)" +"(let-values(((v_249)" "(readtable-apply handler_4 c_109 in_67 config_62 line_13 col_12 pos_124)))" -"(retry-special-comment v_248 in_67 orig-config_0))))))" +"(retry-special-comment v_249 in_67 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -56302,8 +56308,8 @@ static const char *startup_source = "(if(eq? c_113 'special)(special1.1 'special) c_113)))))" "(if(char-delimiter? c2_13 config_62)" "(let-values()(wrap #f in_67 config_62 c_109))" -"(if(let-values(((or-part_338)(char=? c2_13 '#\\x)))" -"(if or-part_338 or-part_338(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_339)(char=? c2_13 '#\\x)))" +"(if or-part_339 or-part_339(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56575,11 +56581,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_249 in_76 config_63)" +"(lambda(v_250 in_76 config_63)" "(begin" -"(if(1/special-comment? v_249)" -"(let-values()(if(read-config-keep-comment? config_63) v_249(read-undotted #f in_76 config_63)))" -"(let-values() v_249)))))" +"(if(1/special-comment? v_250)" +"(let-values()(if(read-config-keep-comment? config_63) v_250(read-undotted #f in_76 config_63)))" +"(let-values() v_250)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -56867,19 +56873,19 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_33 ns_116 name_71)" "(begin" -"(let-values(((or-part_211)(namespace->module ns_116 name_71)))" -"(if or-part_211" -" or-part_211" +"(let-values(((or-part_212)(namespace->module ns_116 name_71)))" +"(if or-part_212" +" or-part_212" " (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_244)(1/module-path? mod_24)))" -"(if or-part_244" -" or-part_244" -"(let-values(((or-part_354)(1/module-path-index? mod_24)))" -"(if or-part_354 or-part_354(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_245)(1/module-path? mod_24)))" +"(if or-part_245" +" or-part_245" +"(let-values(((or-part_355)(1/module-path-index? mod_24)))" +"(if or-part_355 or-part_355(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)" @@ -57076,28 +57082,28 @@ 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_250 srcloc_12)" +"(lambda(for-syntax?_12 v_251 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_250)(let-values()(syntax->datum$1 v_250))(let-values() v_250)))" -"(if(syntax?$1 v_250)" -"(let-values() v_250)" -"(if(list? v_250)" +"(let-values()(if(syntax?$1 v_251)(let-values()(syntax->datum$1 v_251))(let-values() v_251)))" +"(if(syntax?$1 v_251)" +"(let-values() v_251)" +"(if(list? v_251)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_270) v_250))" +"(let-values(((lst_268) v_251))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_270)))" +"(let-values()(check-list lst_268)))" "((letrec-values(((for-loop_53)" -"(lambda(fold-var_287 lst_283)" +"(lambda(fold-var_287 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((e_87)(unsafe-car lst_283))" -"((rest_178)(unsafe-cdr lst_283)))" +"(if(pair? lst_281)" +"(let-values(((e_87)(unsafe-car lst_281))" +"((rest_178)(unsafe-cdr lst_281)))" "(let-values(((fold-var_288)" "(let-values(((fold-var_289) fold-var_287))" "(let-values(((fold-var_245)" @@ -57111,16 +57117,16 @@ static const char *startup_source = " fold-var_287)))))" " for-loop_53)" " null" -" lst_270))))" +" lst_268))))" " srcloc_12" " #f))" -"(if(pair? v_250)" +"(if(pair? v_251)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_250) srcloc_12)(read-coerce #t(cdr v_250) srcloc_12))" +"(cons(read-coerce #t(car v_251) srcloc_12)(read-coerce #t(cdr v_251) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_250 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_251 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_42)" @@ -57340,18 +57346,18 @@ static const char *startup_source = "((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_79)(1/instance-variable-names inst_7)))" +"(let-values(((lst_78)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_95)" -"(lambda(table_217 lst_80)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" +"(lambda(table_217 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((sym_60)(unsafe-car lst_80))" -"((rest_36)(unsafe-cdr lst_80)))" +"(if(pair? lst_79)" +"(let-values(((sym_60)(unsafe-car lst_79))" +"((rest_36)(unsafe-cdr lst_79)))" "(let-values(((table_223)" "(let-values(((table_178) table_217))" "(let-values(((table_179)" @@ -57405,12 +57411,12 @@ static const char *startup_source = " val_81)))))" "(values table_179)))))" "(if(not #f)" -"(for-loop_95 table_223 rest_36)" +"(for-loop_96 table_223 rest_36)" " table_223)))" " table_217)))))" -" for-loop_95)" +" for-loop_96)" " '#hash()" -" lst_79)))))" +" lst_78)))))" "((temp9_8)" "(lambda(data-box_5" " ns_46" @@ -57428,12 +57434,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_268)" +"(lambda(lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_268)" -"(let-values(((sym_95)(unsafe-car lst_268))" -"((rest_179)(unsafe-cdr lst_268)))" +"(if(pair? lst_266)" +"(let-values(((sym_95)(unsafe-car lst_266))" +"((rest_179)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57554,13 +57560,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_181)" +"(lambda(v_182)" "(begin" -"(if(let-values(((or-part_68)(not v_181)))" +"(if(let-values(((or-part_68)(not v_182)))" "(if or-part_68" " or-part_68" -"(let-values(((or-part_69)(1/module-path? v_181)))" -"(if or-part_69 or-part_69(if(syntax?$1 v_181)(1/module-path?(syntax->datum$1 v_181)) #f)))))" +"(let-values(((or-part_69)(1/module-path? v_182)))" +"(if or-part_69 or-part_69(if(syntax?$1 v_182)(1/module-path?(syntax->datum$1 v_182)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57569,8 +57575,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_181)))" -" v_181))))" +" v_182)))" +" v_182))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57654,8 +57660,8 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_171 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_171 context_1 stop-ids_3 #f #f)))" -"((s_163 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_163 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" +"((s_162 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_162 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" @@ -57699,8 +57705,8 @@ static const char *startup_source = "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_80 context_13 stop-ids_6 #f #f #f #f)))" "((s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1)" "(local-expand/capture-lifts15_0 s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_181 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_181 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_180 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_180 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" @@ -57738,10 +57744,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_455 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_455 context_17 stop-ids_10 #f #f)))" -"((s_456 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_456 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_457 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_457 context_17 stop-ids_10 #f #f)))" +"((s_458 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_458 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57782,12 +57788,12 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_457 context_20 stop-ids_13)" +"((s_459 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_457 context_20 stop-ids_13 #f #f #f #f)))" -"((s_395 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_395 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"(local-transformer-expand/capture-lifts31_0 s_459 context_20 stop-ids_13 #f #f #f #f)))" +"((s_396 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_396 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_85 context_22 stop-ids_15 intdefs24_1)" "(local-transformer-expand/capture-lifts31_0 s_85 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" @@ -57796,12 +57802,12 @@ static const char *startup_source = "(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_458) s35_1))" +"(let-values(((s_460) s35_1))" "(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_458)" +"((s86_1) s_460)" "((temp87_4) 'expression)" "((null88_0) null)" "((temp89_4) #f)" @@ -57884,8 +57890,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_1" " lift-key41_0" -"(if(let-values(((or-part_355) capture-lifts?_0))" -"(if or-part_355 or-part_355 as-transformer?_5))" +"(if(let-values(((or-part_356) capture-lifts?_0))" +"(if or-part_356 or-part_356 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57893,12 +57899,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_382)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_383)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_165)(list? context_23)))" -"(if or-part_165" -" or-part_165" +"(if(let-values(((or-part_166)(list? context_23)))" +"(if or-part_166" +" or-part_166" "(memq" " context_23" "(if as-transformer?_5" @@ -57915,9 +57921,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_166)(not stop-ids_16)))" -"(if or-part_166" -" or-part_166" +"(if(let-values(((or-part_167)(not stop-ids_16)))" +"(if or-part_167" +" or-part_167" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -57930,13 +57936,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not intdefs_9)))" -"(if or-part_167" -" or-part_167" -"(let-values(((or-part_168)" -"(1/internal-definition-context? intdefs_9)))" +"(if(let-values(((or-part_168)(not intdefs_9)))" "(if or-part_168" " or-part_168" +"(let-values(((or-part_169)" +"(1/internal-definition-context? intdefs_9)))" +"(if or-part_169" +" or-part_169" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" @@ -57991,12 +57997,12 @@ static const char *startup_source = "(call-expand-observe" " obs_59" " 'enter-local" -" s_382)))" +" s_383)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_382 ctx_75))" +"(flip-introduction-scopes s_383 ctx_75))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -58184,7 +58190,7 @@ static const char *startup_source = "(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_170) s5_3))" +"(let-values(((s_169) s5_3))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" @@ -58192,14 +58198,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_170)" +"(if(syntax?$1 s_169)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_170)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_169)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_210)(not maybe-insp_0)))" -"(if or-part_210 or-part_210(inspector? maybe-insp_0)))" +"(if(let-values(((or-part_211)(not maybe-insp_0)))" +"(if or-part_211 or-part_211(inspector? maybe-insp_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58211,63 +58217,63 @@ static const char *startup_source = "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_170" -"(lambda(s_459)(syntax-arm$1 s_459 insp_21))" +" s_169" +"(lambda(s_461)(syntax-arm$1 s_461 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_170 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_169 insp_21))))))))))))))))" "(case-lambda" -"((s_171)(begin 'syntax-arm(syntax-arm6_0 s_171 #f #f #f #f)))" -"((s_172 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_172 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_417 maybe-insp1_1)(syntax-arm6_0 s_417 maybe-insp1_1 #f #t #f)))))" +"((s_170)(begin 'syntax-arm(syntax-arm6_0 s_170 #f #f #f #f)))" +"((s_171 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_171 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_418 maybe-insp1_1)(syntax-arm6_0 s_418 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_460 maybe-insp_2)" +"(lambda(s_462 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_460)" +"(if(syntax?$1 s_462)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_460)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_462)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_356)(not maybe-insp_2)))" -"(if or-part_356 or-part_356(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_357)(not maybe-insp_2)))" +"(if or-part_357 or-part_357(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_460 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_462 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_416) s10_0))" +"(let-values(((s_417) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_416)" +"(if(syntax?$1 s_417)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_416)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_417)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_416" -"(lambda(s_461)(syntax-rearm$1 s_461 from-s_2))" +" s_417" +"(lambda(s_463)(syntax-rearm$1 s_463 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_416 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_417 from-s_2))))))))))))))" "(case-lambda" -"((s_413 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_413 from-s_3 #f #f)))" +"((s_414 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_414 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" @@ -58283,9 +58289,9 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_357) maybe-insp_3))" -"(if or-part_357" -" or-part_357" +"(let-values(((or-part_358) maybe-insp_3))" +"(if or-part_358" +" or-part_358" "(let-values(((or-part_93)(current-module-code-inspector)))" "(if or-part_93 or-part_93(current-code-inspector))))))))" "(define-values" @@ -58798,21 +58804,21 @@ static const char *startup_source = "(hash-iterate-first ht_25))))" "(values))))" "(let-values()" -"(let-values(((ht_161)" -"(let-values(((ht_162) prims_0))" +"(let-values(((ht_160)" +"(let-values(((ht_161) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_265)" -"(lambda(table_11 i_182)" +"(let-values()(check-in-hash ht_161)))" +"((letrec-values(((for-loop_264)" +"(lambda(table_11 i_183)" "(begin" " 'for-loop" -"(if i_182" +"(if i_183" "(let-values(((sym_97 val_5)" "(hash-iterate-key+value" -" ht_162" -" i_182)))" +" ht_161" +" i_183)))" "(let-values(((table_224)" "(let-values(((table_225)" " table_11))" @@ -58843,47 +58849,47 @@ static const char *startup_source = " val_82)))))" "(values table_226)))))))" "(if(not #f)" -"(for-loop_265" +"(for-loop_264" " table_224" -"(hash-iterate-next ht_162 i_182))" +"(hash-iterate-next ht_161 i_183))" " table_224)))" " table_11)))))" -" for-loop_265)" +" for-loop_264)" " '#hasheq()" -"(hash-iterate-first ht_162))))))" +"(hash-iterate-first ht_161))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_163) extras_0))" +"(let-values(((ht_162) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_163)))" -"((letrec-values(((for-loop_277)" -"(lambda(ht_164 i_183)" +"(let-values()(check-in-hash ht_162)))" +"((letrec-values(((for-loop_276)" +"(lambda(ht_163 i_184)" "(begin" " 'for-loop" -"(if i_183" +"(if i_184" "(let-values(((k_43 v_50)" "(hash-iterate-key+value" -" ht_163" -" i_183)))" +" ht_162" +" i_184)))" +"(let-values(((ht_164)" +"(let-values(((ht_48) ht_163))" "(let-values(((ht_165)" -"(let-values(((ht_48) ht_164))" -"(let-values(((ht_166)" "(let-values()" "(hash-set" " ht_48" " k_43" " v_50))))" -"(values ht_166)))))" +"(values ht_165)))))" "(if(not #f)" -"(for-loop_277" -" ht_165" -"(hash-iterate-next ht_163 i_183))" -" ht_165)))" -" ht_164)))))" -" for-loop_277)" -" ht_161" -"(hash-iterate-first ht_163))))))" +"(for-loop_276" +" ht_164" +"(hash-iterate-next ht_162 i_184))" +" ht_164)))" +" ht_163)))))" +" for-loop_276)" +" ht_160" +"(hash-iterate-first ht_162))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_119)" @@ -58917,7 +58923,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_167) ht40_0))" +"(let-values(((ht_166) ht40_0))" "(let-values(((ns_120) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" @@ -58935,20 +58941,20 @@ static const char *startup_source = "((temp74_0)" "(hasheqv" " 0" -"(let-values(((ht_168) ht_167))" +"(let-values(((ht_167) ht_166))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_168)))" -"((letrec-values(((for-loop_278)" -"(lambda(table_227 i_184)" +"(let-values()(check-in-hash-keys ht_167)))" +"((letrec-values(((for-loop_277)" +"(lambda(table_227 i_185)" "(begin" " 'for-loop" -"(if i_184" +"(if i_185" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_168" -" i_184)))" +" ht_167" +" i_185)))" "(let-values(((table_228)" "(let-values(((table_229)" " table_227))" @@ -58996,10 +59002,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_359)" " protected?_11))" -"(if or-part_358" -" or-part_358" +"(if or-part_359" +" or-part_359" "(member" " sym_98" " protected-syms_0)))" @@ -59015,16 +59021,16 @@ static const char *startup_source = "(values" " table_230)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_277" " table_228" "(hash-iterate-next" -" ht_168" -" i_184))" +" ht_167" +" i_185))" " table_228)))" " table_227)))))" -" for-loop_278)" +" for-loop_277)" " '#hash()" -"(hash-iterate-first ht_168))))))" +"(hash-iterate-first ht_167))))))" "((temp75_3)" "(lambda(data-box_6" " ns_121" @@ -59036,20 +59042,20 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_169) ht_167))" +"(let-values(((ht_168) ht_166))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_169)))" -"((letrec-values(((for-loop_279)" +"(let-values()(check-in-hash ht_168)))" +"((letrec-values(((for-loop_278)" "(lambda(i_47)" "(begin" " 'for-loop" "(if i_47" "(let-values(((sym_6 val_31)" "(hash-iterate-key+value" -" ht_169" +" ht_168" " i_47)))" "(let-values((()" "(let-values()" @@ -59065,14 +59071,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_278" "(hash-iterate-next" -" ht_169" +" ht_168" " i_47))" "(values))))" "(values))))))" -" for-loop_279)" -"(hash-iterate-first ht_169))))" +" for-loop_278)" +"(hash-iterate-first ht_168))))" "(void)))" "(void)))))" "(make-module39.1" @@ -59124,18 +59130,18 @@ static const char *startup_source = "(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_205) require-names_0))" +"(let-values(((lst_203) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_205)))" -"((letrec-values(((for-loop_203)" -"(lambda(fold-var_40 lst_206)" +"(let-values()(check-list lst_203)))" +"((letrec-values(((for-loop_202)" +"(lambda(fold-var_40 lst_204)" "(begin" " 'for-loop" -"(if(pair? lst_206)" -"(let-values(((require-name_0)(unsafe-car lst_206))" -"((rest_107)(unsafe-cdr lst_206)))" +"(if(pair? lst_204)" +"(let-values(((require-name_0)(unsafe-car lst_204))" +"((rest_107)(unsafe-cdr lst_204)))" "(let-values(((fold-var_290)" "(let-values(((fold-var_291) fold-var_40))" "(let-values(((fold-var_292)" @@ -59150,12 +59156,12 @@ static const char *startup_source = " fold-var_291))))" "(values fold-var_292)))))" "(if(not #f)" -"(for-loop_203 fold-var_290 rest_107)" +"(for-loop_202 fold-var_290 rest_107)" " fold-var_290)))" " fold-var_40)))))" -" for-loop_203)" +" for-loop_202)" " null" -" lst_205))))))" +" lst_203))))))" "(let-values(((ns79_1) ns_122)" "((temp80_4)" "(let-values(((temp82_7) #t)" @@ -59166,20 +59172,20 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_112) require-mpis_0))" +"(let-values(((lst_111) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_112)))" +"(let-values()(check-list lst_111)))" "((letrec-values(((for-loop_32)" -"(lambda(table_29 lst_318)" +"(lambda(table_29 lst_316)" "(begin" " 'for-loop" -"(if(pair? lst_318)" +"(if(pair? lst_316)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_318))" +"(unsafe-car lst_316))" "((rest_180)" -"(unsafe-cdr lst_318)))" +"(unsafe-cdr lst_316)))" "(let-values(((table_30)" "(let-values(((m_29)" "(namespace->module" @@ -59188,7 +59194,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_280)" +"((letrec-values(((for-loop_279)" "(lambda(table_35)" "(begin" " 'for-loop" @@ -59252,7 +59258,7 @@ static const char *startup_source = "(hash-iterate-first" " ht_36))))))" " table_36))))))" -" for-loop_280)" +" for-loop_279)" " table_29)))))" "(if(not #f)" "(for-loop_32 table_30 rest_180)" @@ -59260,7 +59266,7 @@ static const char *startup_source = " table_29)))))" " for-loop_32)" " '#hash()" -" lst_112))))" +" lst_111))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -59360,13 +59366,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_69)(begin 'eval((1/current-eval)(intro s_69))))" -"((s_180 ns_123)" +"((s_179 ns_123)" "(begin" " (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_123)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)" -"(let-values()((1/current-eval)(intro s_180 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_179 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -59386,52 +59392,52 @@ static const char *startup_source = " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_124)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_170)(begin 'compile((1/current-compile)(intro s_170) #f))))" +"(define-values(compile$1)(lambda(s_169)(begin 'compile((1/current-compile)(intro s_169) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_184)" +"(lambda(s_183)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_184) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_184)))" -"((1/current-compile) s_184 #f)))))))" +" (if (syntax?$1 s_183) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_183)))" +"((1/current-compile) s_183 #f)))))))" "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_462)" +"(lambda(s_464)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_462) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_462)))" -"(expand$1 s_462(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_459)(begin 'expand-once(expand-once$1(intro s_459)))))" +" (if (syntax?$1 s_464) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_464)))" +"(expand$1 s_464(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_461)(begin 'expand-once(expand-once$1(intro s_461)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_171)" +"(lambda(s_170)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_171) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_171)))" -"(expand-once$1 s_171)))))))" +" (if (syntax?$1 s_170) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_170)))" +"(expand-once$1 s_170)))))))" "(define-values(1/expand-to-top-form)(lambda(s_72)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_72)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_163)" +"(lambda(s_162)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_163)" +"(if(syntax?$1 s_162)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_163)))" -"(expand-to-top-form$1 s_163)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_162)))" +"(expand-to-top-form$1 s_162)))))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -59441,8 +59447,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_386)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_386 ns_68)))))))))" +"(let-values(((s_387)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_387 ns_68)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" "(define-values" "(main-primitives)" @@ -59738,8 +59744,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_298)(eof-object? exp_0)))" -"(if or-part_298 or-part_298(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_299)(eof-object? exp_0)))" +"(if or-part_299 or-part_299(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59752,9 +59758,9 @@ static const char *startup_source = "(if(if(syntax?$1 exp_0)" "(if(pair?(1/syntax-e exp_0))" "(if(eq? 'module(1/syntax-e(car(1/syntax-e exp_0))))" -"(let-values(((r_42)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_47)(if(syntax?$1 r_42)(1/syntax-e r_42) r_42)))" -"(if(pair? r_47)(identifier?(car r_47)) #f)))" +"(let-values(((r_41)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_46)(if(syntax?$1 r_41)(1/syntax-e r_41) r_41)))" +"(if(pair? r_46)(identifier?(car r_46)) #f)))" " #f)" " #f)" " #f)" @@ -59811,25 +59817,25 @@ static const char *startup_source = "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_185)" +"(lambda(i_186)" "(begin" -"(maybe-count-lines!_0 i_185)" +"(maybe-count-lines!_0 i_186)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_185)))" +"(let-values(((c1_31)(linklet-directory-start i_186)))" "(if c1_31" "((lambda(pos_125)" "(let-values(((b-pos_0)" -"(search-directory i_185 pos_125(encode-symbols expected-mod_0))))" +"(search-directory i_186 pos_125(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_185 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_185)))" +"(file-position i_186 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_186)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_185)))" +"(let-values(((v_0)(1/read i_186)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -59838,7 +59844,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_185)" +"(object-name i_186)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -59846,18 +59852,18 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_185)))))))" +"(object-name i_186)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_185)))" +"(let-values(((c2_17)(cached-bundle i_186)))" "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_171)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s_170)(1/read-syntax(object-name i_186) i_186)))" "(let-values((()" "(begin" -"(if(eof-object? s_171)" +"(if(eof-object? s_170)" "(let-values()" "(error" " 'default-load-handler" @@ -59865,11 +59871,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_185)))" +"(object-name i_186)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_171 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((m-s_0)(check-module-form s_170 path_12)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -59881,16 +59887,16 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_185)" +"(object-name i_186)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_417)" +"(lambda(s_418)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_417) s_417))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_418) s_418))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_84)" @@ -59952,22 +59958,22 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_146 tag_1)" +"(lambda(i_147 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_146)(char->integer '#\\#))" -"(if(equal?(peek-byte i_146 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_146 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_146)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_146(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_147)(char->integer '#\\#))" +"(if(equal?(peek-byte i_147 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_147 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_147)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_147(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_151)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_151 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_152)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_152 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" "(lambda(i_85)" @@ -59981,23 +59987,23 @@ static const char *startup_source = "(begin(check-bytes vec_69)(values vec_69(unsafe-bytes-length vec_69))))))" "(begin" " #f" -"((letrec-values(((for-loop_230)" -"(lambda(result_121 pos_126)" +"((letrec-values(((for-loop_229)" +"(lambda(result_122 pos_126)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_126 len_39)" "(let-values(((c_76)(unsafe-bytes-ref vec_68 pos_126)))" -"(let-values(((result_122)" -"(let-values()" "(let-values(((result_123)" "(let-values()" +"(let-values(((result_124)" +"(let-values()" "(let-values()(not(eq? c_76 0))))))" -"(values result_123)))))" -"(if(if(not((lambda x_91 result_122) c_76))(not #f) #f)" -"(for-loop_230 result_122(unsafe-fx+ 1 pos_126))" -" result_122)))" -" result_121)))))" -" for-loop_230)" +"(values result_124)))))" +"(if(if(not((lambda x_91 result_123) c_76))(not #f) #f)" +"(for-loop_229 result_123(unsafe-fx+ 1 pos_126))" +" result_123)))" +" result_122)))))" +" for-loop_229)" " #f" " 0)))" " hash-code_5" @@ -60017,10 +60023,10 @@ static const char *startup_source = "(lambda(i_58)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_186)" +"(lambda(i_187)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_180)(read-byte i_186)))(if(eof-object? v_180) 0 v_180))))))" +"(let-values(((v_181)(read-byte i_187)))(if(eof-object? v_181) 0 v_181))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_58)" "(arithmetic-shift(read-byte/not-eof_0 i_58) 8)" @@ -60028,16 +60034,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_58) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_187 pos_118 bstr_5)" +"(lambda(i_188 pos_118 bstr_5)" "(begin" "(if(zero? pos_118)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_187 pos_118)(values))))" -"(let-values(((name-len_0)(read-number i_187)))" -"(let-values(((v_251)(read-bytes name-len_0 i_187)))" +"(let-values((()(begin(file-position i_188 pos_118)(values))))" +"(let-values(((name-len_0)(read-number i_188)))" +"(let-values(((v_252)(read-bytes name-len_0 i_188)))" "(begin" -"(if(if(bytes? v_251)(=(bytes-length v_251) name-len_0) #f)" +"(if(if(bytes? v_252)(=(bytes-length v_252) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -60048,24 +60054,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_187)" +"(object-name i_188)" " pos_118" " name-len_0" -" v_251)))" -"(if(bytes=? bstr_5 v_251)" -"(let-values()(read-number i_187))" -"(if(bytesbytes/utf-8" -"(symbol->string s_178))))" +"(symbol->string s_177))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -60114,11 +60120,11 @@ static const char *startup_source = " bstr_6))))))" " fold-var_66))))" "(values fold-var_72)))))" -"(if(not #f)(for-loop_102 fold-var_65 rest_44) fold-var_65)))" +"(if(not #f)(for-loop_103 fold-var_65 rest_44) fold-var_65)))" " fold-var_63)))))" -" for-loop_102)" +" for-loop_103)" " null" -" lst_319))))))))))" +" lst_317))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -60136,12 +60142,12 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_159) #f))" +"(let-values(((i_160) #f))" "(dynamic-wind" "(lambda()" -"(set! i_159(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" -"(lambda()(proc_10 i_159))" -"(lambda()(close-input-port i_159)))))))" +"(set! i_160(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" +"(lambda()(proc_10 i_160))" +"(lambda()(close-input-port i_160)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -60151,8 +60157,8 @@ static const char *startup_source = " 'resolve" "(if(complete-path? s_69)" " s_69" -"(let-values(((d_34)(current-load-relative-directory)))" -"(if d_34(path->complete-path s_69 d_34) s_69)))))))" +"(let-values(((d_35)(current-load-relative-directory)))" +"(if d_35(path->complete-path s_69 d_35) s_69)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -60268,14 +60274,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_77 d_35)" +"(lambda(p_77 d_36)" "(begin" " 'reroot" -"(if(eq? d_35 'same)" +"(if(eq? d_36 'same)" "(let-values() p_77)" -"(if(relative-path? d_35)" -"(let-values()(build-path p_77 d_35))" -"(let-values()(reroot-path p_77 d_35))))))))" +"(if(relative-path? d_36)" +"(let-values()(build-path p_77 d_36))" +"(let-values()(reroot-path p_77 d_36))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -60316,16 +60322,16 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_359) main-path-d_0))" -"(if or-part_359" -" or-part_359" +"(let-values(((or-part_360) main-path-d_0))" +"(if or-part_360" +" or-part_360" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_163)" +"(let-values(((or-part_164)" " alt-path-d_0))" -"(if or-part_163" -" or-part_163" +"(if or-part_164" +" or-part_164" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -60447,12 +60453,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_348)" +"(if(let-values(((or-part_349)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_348" -" or-part_348" +"(if or-part_349" +" or-part_349" "(car expect-module_0)))" "(let-values()" "(let-values(((p_39)" @@ -60497,7 +60503,7 @@ static const char *startup_source = "(begin(let-values(((e_89)(hash-ref -module-hash-table-table reg_0 #f)))(if e_89(ephemeron-value e_89) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_200)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_200)))))" +"(lambda(reg_1 v_201)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_201)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -60510,46 +60516,46 @@ static const char *startup_source = "(if l_80(let-values(((a_71)(1/assoc p_22 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_78 v_252)" +"(lambda(p_78 v_253)" "(begin" -"(let-values(((i_188)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_188)))" +"(let-values(((i_189)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_189)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_188" +" i_189" "(make-weak-box" -"(cons(cons p_78 v_252)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_78 v_253)(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_457 coll-mode?_0)" +"(lambda(s_459 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_117)" -"(lambda(s_463)" +"(lambda(s_465)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_463)))" +"(let-values(((len_41)(string-length s_465)))" "((letrec-values(((iloop_2)" "(lambda(i_100)" "(begin" " 'iloop" "(if(= i_100 len_41)" -"(let-values()(list s_463))" -"(if(char=? '#\\/(string-ref s_463 i_100))" +"(let-values()(list s_465))" +"(if(char=? '#\\/(string-ref s_465 i_100))" "(let-values()" "(cons" -"(substring s_463 0 i_100)" -"(loop_117(substring s_463(add1 i_100)))))" +"(substring s_465 0 i_100)" +"(loop_117(substring s_465(add1 i_100)))))" "(let-values()(iloop_2(add1 i_100)))))))))" " iloop_2)" " 0))))))" " loop_117)" -" s_457)))" +" s_459)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -60592,29 +60598,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_458 from-namespace_1)" +"((s_460 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_458)" +"(if(1/resolved-module-path? s_460)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_458)))" -"(if(let-values(((or-part_128)(not from-namespace_1)))" -"(if or-part_128 or-part_128(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_460)))" +"(if(let-values(((or-part_129)(not from-namespace_1)))" +"(if or-part_129 or-part_129(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_458))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_460))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_300)" +"(let-values(((or-part_301)" "(registry-table-ref" "(namespace-module-registry$1(1/current-namespace)))))" -"(if or-part_300" -" or-part_300" +"(if or-part_301" +" or-part_301" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -60622,14 +60628,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_458 'declared)" +"(hash-set!(car hts_1) s_460 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_458))" +"(if(pair?(1/resolved-module-path-name s_460))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_458)))" -" s_458))" +"(car(1/resolved-module-path-name s_460)))" +" s_460))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60641,14 +60647,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_464 relto_0 stx_18)" +"((s_466 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_464 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_466 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60664,8 +60670,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_131)(not relto_1)))" -"(if or-part_131 or-part_131(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_132)(not relto_1)))" +"(if or-part_132 or-part_132(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60675,8 +60681,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_138)(not stx_19)))" -"(if or-part_138 or-part_138(syntax?$1 stx_19)))" +"(if(let-values(((or-part_139)(not stx_19)))" +"(if or-part_139 or-part_139(syntax?$1 stx_19)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60734,13 +60740,13 @@ static const char *startup_source = "(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_26)(cddr s_26))))" "(if(if(pair? s_26)" "(if(eq?(car s_26) 'submod)" -" (if (let-values (((or-part_292) (equal? (cadr s_26) \".\")))" -" (if or-part_292 or-part_292 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_293) (equal? (cadr s_26) \".\")))" +" (if or-part_293 or-part_293 (equal? (cadr s_26) \"..\")))" "(if relto_1" "(let-values(((p_79)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_360)(symbol? p_79)))" -"(if or-part_360" -" or-part_360" +"(let-values(((or-part_361)(symbol? p_79)))" +"(if or-part_361" +" or-part_361" "(if(pair? p_79)(symbol?(car p_79)) #f))))" " #f)" " #f)" @@ -60751,9 +60757,9 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_48)" +"(let-values(((r_47)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_48) r_48))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" "(if(if(pair? s_26)(eq?(car s_26) 'planet) #f)" "(let-values()" "(begin" @@ -60779,7 +60785,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_361)" +"(let-values(((or-part_362)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" @@ -60803,8 +60809,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_361" -" or-part_361" +"(if or-part_362" +" or-part_362" "(let-values(((or-part_42)" "(current-load-relative-directory)))" "(if or-part_42" @@ -60821,15 +60827,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_362)" +"(let-values(((or-part_363)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_362" -" or-part_362" +"(if or-part_363" +" or-part_363" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60883,8 +60889,8 @@ static const char *startup_source = "((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_363) (equal? v_38 \".\")))" -" (if or-part_363 or-part_363 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_364) (equal? v_38 \".\")))" +" (if or-part_364 or-part_364 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_83)" "(1/resolved-module-path-name" @@ -60899,12 +60905,12 @@ static const char *startup_source = "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((p_84)" -"(if(if(let-values(((or-part_165)" +"(if(if(let-values(((or-part_166)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_165" -" or-part_165" +"(if or-part_166" +" or-part_166" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" @@ -60932,11 +60938,11 @@ static const char *startup_source = "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_169)" +"(let-values(((or-part_170)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_169" -" or-part_169" +"(if or-part_170" +" or-part_170" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -60956,11 +60962,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_364)" +"(let-values(((or-part_365)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_364" -" or-part_364" +"(if or-part_365" +" or-part_365" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -61051,8 +61057,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_365)(path? s-parsed_0)))" -"(if or-part_365 or-part_365(vector? s-parsed_0)))" +"(if(let-values(((or-part_366)(path? s-parsed_0)))" +"(if or-part_366 or-part_366(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -61090,11 +61096,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_366)" +"(let-values(((or-part_367)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_366" -" or-part_366" +"(if or-part_367" +" or-part_367" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -61137,11 +61143,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_425)" +"(lambda(s_426)" "(if(if(equal?" -"(cdr s_425)" +"(cdr s_426)" " normal-filename_0)" -"(eq?(car s_425) nsr_0)" +"(eq?(car s_426) nsr_0)" " #f)" "(let-values()" "(error" @@ -61236,10 +61242,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_367)" +"(let-values(((or-part_368)" "(string? s_31)))" -"(if or-part_367" -" or-part_367" +"(if or-part_368" +" or-part_368" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -61332,7 +61338,7 @@ static const char *startup_source = " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" "(let-values(((ctx_14) ctx6_0))" -"(let-values(((s_173) source1_0))" +"(let-values(((s_172) source1_0))" "(let-values(((stratified?_0)(if stratified?4_0 stratified?2_0 #f)))" "(let-values()" "(let-values((()" @@ -61347,18 +61353,18 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_266) bodys_7))" +"(let-values(((lst_264) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_281)" -"(lambda(fold-var_70 lst_103)" +"(let-values()(check-list lst_264)))" +"((letrec-values(((for-loop_280)" +"(lambda(fold-var_70 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_103)" -"(let-values(((body_11)(unsafe-car lst_103))" -"((rest_142)(unsafe-cdr lst_103)))" +"(if(pair? lst_102)" +"(let-values(((body_11)(unsafe-car lst_102))" +"((rest_142)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_70))" "(let-values(((fold-var_215)" @@ -61371,12 +61377,12 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_215)))))" "(if(not #f)" -"(for-loop_281 fold-var_11 rest_142)" +"(for-loop_280 fold-var_11 rest_142)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_281)" +" for-loop_280)" " null" -" lst_266))))))" +" lst_264))))))" "(let-values((()" "(begin" "(let-values(((obs_66)(expand-context-observer ctx_14)))" @@ -61394,8 +61400,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_253) ctx_14))" -"(let-values(((the-struct_87) v_253))" +"(let-values(((v_254) ctx_14))" +"(let-values(((the-struct_87) v_254))" "(if(expand-context/outer? the-struct_87)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" @@ -61411,7 +61417,7 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_253)))" +"((inner61_0)(root-expand-context/outer-inner v_254)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -61466,7 +61472,7 @@ static const char *startup_source = "((temp68_4)(reverse$1 track-stxs_0))" "((temp69_4)(reverse$1 stx-clauses_0))" "((temp70_4)(reverse$1 done-bodys_0))" -"((s71_0) s_173)" +"((s71_0) s_172)" "((stratified?72_0) stratified?_0)" "((name73_0) name_78)" "((temp74_1)(reverse$1 trans-idss_1)))" @@ -61506,17 +61512,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_227)" +"(let-values(((v_228)" " body-ctx_2))" "(let-values(((the-struct_88)" -" v_227))" +" v_228))" "(if(expand-context/outer?" " the-struct_88)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_227)))" +" v_228)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -61580,38 +61586,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_465)" +"(let-values(((s_467)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_465))" +" s_467))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_466)" -"(if(syntax?$1" -" s_465)" -"(syntax-e$1" -" s_465)" -" s_465)))" -"(if(pair?" -" s_466)" -"(let-values(((begin81_0)" -"(let-values(((s_467)" -"(car" -" s_466)))" -" s_467))" -"((e82_0)" "(let-values(((s_468)" -"(cdr" -" s_466)))" -"(let-values(((s_469)" "(if(syntax?$1" -" s_468)" +" s_467)" "(syntax-e$1" +" s_467)" +" s_467)))" +"(if(pair?" " s_468)" +"(let-values(((begin81_0)" +"(let-values(((s_469)" +"(car" " s_468)))" +" s_469))" +"((e82_0)" +"(let-values(((s_470)" +"(cdr" +" s_468)))" +"(let-values(((s_471)" +"(if(syntax?$1" +" s_470)" +"(syntax-e$1" +" s_470)" +" s_470)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_469)))" +" s_471)))" "(if(not" " flat-s_24)" "(let-values()" @@ -61692,37 +61698,37 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_470)" +"(let-values(((s_472)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_470)" +" s_472)" "(let-values(((define-values86_0)" "(let-values(((s_50)" "(car" -" s_470)))" +" s_472)))" " s_50))" "((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_470)))" -"(let-values(((s_471)" +" s_472)))" +"(let-values(((s_473)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_471)" +" s_473)" "(let-values(((id89_0)" "(let-values(((s_305)" "(car" -" s_471)))" -"(let-values(((s_382)" +" s_473)))" +"(let-values(((s_383)" "(if(syntax?$1" " s_305)" "(syntax-e$1" @@ -61730,7 +61736,7 @@ static const char *startup_source = " s_305)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_382)))" +" s_383)))" "(if(not" " flat-s_25)" "(let-values()" @@ -61740,7 +61746,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_109)" -"(let-values(((lst_197)" +"(let-values(((lst_195)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61748,20 +61754,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_197)))" -"((letrec-values(((for-loop_282)" +" lst_195)))" +"((letrec-values(((for-loop_281)" "(lambda(id_110" -" lst_320)" +" lst_318)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_318)" "(let-values(((s_308)" "(unsafe-car" -" lst_320))" +" lst_318))" "((rest_181)" "(unsafe-cdr" -" lst_320)))" +" lst_318)))" "(let-values(((id_72)" "(let-values(((id_111)" " id_110))" @@ -61769,15 +61775,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id92_1)" "(let-values()" -"(if(let-values(((or-part_134)" +"(if(let-values(((or-part_135)" "(if(syntax?$1" " s_308)" "(symbol?" "(syntax-e$1" " s_308))" " #f)))" -"(if or-part_134" -" or-part_134" +"(if or-part_135" +" or-part_135" "(symbol?" " s_308)))" " s_308" @@ -61793,37 +61799,37 @@ static const char *startup_source = " id_112)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_281" " id_72" " rest_181)" " id_72)))" " id_110)))))" -" for-loop_282)" +" for-loop_281)" " null" -" lst_197)))))" +" lst_195)))))" "(reverse$1" " id_109))))))))" "((rhs90_0)" "(let-values(((s_54)" "(cdr" -" s_471)))" -"(let-values(((s_472)" +" s_473)))" +"(let-values(((s_474)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_472)" +" s_474)" "(let-values(((rhs91_0)" -"(let-values(((s_473)" +"(let-values(((s_475)" "(car" -" s_472)))" -" s_473))" +" s_474)))" +" s_475))" "(()" "(let-values(((s_55)" "(cdr" -" s_472)))" +" s_474)))" "(let-values(((s_309)" "(if(syntax?$1" " s_55)" @@ -61907,7 +61913,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_321)" +"(let-values(((lst_319)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61915,20 +61921,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_283)" +" lst_319)))" +"((letrec-values(((for-loop_282)" "(lambda(fold-var_185" -" lst_322)" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_322)" +" lst_320)" "(let-values(((id_113)" "(unsafe-car" -" lst_322))" +" lst_320))" "((rest_182)" "(unsafe-cdr" -" lst_322)))" +" lst_320)))" "(let-values(((fold-var_38)" "(let-values(((fold-var_293)" " fold-var_185))" @@ -61959,18 +61965,18 @@ static const char *startup_source = " fold-var_294)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_282" " fold-var_38" " rest_182)" " fold-var_38)))" " fold-var_185)))))" -" for-loop_283)" +" for-loop_282)" " null" -" lst_321))))))" +" lst_319))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_232)" +"(let-values(((lst_230)" " keys_5)" -"((lst_199)" +"((lst_197)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61978,36 +61984,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_232)))" +" lst_230)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_199)))" -"((letrec-values(((for-loop_284)" +" lst_197)))" +"((letrec-values(((for-loop_283)" "(lambda(env_17" -" lst_323" -" lst_275)" +" lst_321" +" lst_273)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_323)" +" lst_321)" "(pair?" -" lst_275)" +" lst_273)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_323))" +" lst_321))" "((rest_149)" "(unsafe-cdr" -" lst_323))" +" lst_321))" "((id_9)" "(unsafe-car" -" lst_275))" +" lst_273))" "((rest_183)" "(unsafe-cdr" -" lst_275)))" +" lst_273)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -62022,22 +62028,22 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_283" " env_18" " rest_149" " rest_183)" " env_18)))" " env_17)))))" -" for-loop_284)" +" for-loop_283)" "(expand-context-env" " body-ctx_2)" -" lst_232" -" lst_199)))))" +" lst_230" +" lst_197)))))" "(loop_120" -"(let-values(((v_254)" +"(let-values(((v_255)" " body-ctx_2))" "(let-values(((the-struct_89)" -" v_254))" +" v_255))" "(if(expand-context/outer?" " the-struct_89)" "(let-values(((env102_0)" @@ -62048,7 +62054,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_254)))" +" v_255)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -62087,7 +62093,7 @@ static const char *startup_source = " ids_29" "(append" "(reverse$1" -"(let-values(((lst_324)" +"(let-values(((lst_322)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62095,20 +62101,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" -"((letrec-values(((for-loop_285)" +" lst_322)))" +"((letrec-values(((for-loop_284)" "(lambda(fold-var_295" -" lst_325)" +" lst_323)" "(begin" " 'for-loop" "(if(pair?" -" lst_325)" +" lst_323)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_325))" +" lst_323))" "((rest_184)" "(unsafe-cdr" -" lst_325)))" +" lst_323)))" "(let-values(((fold-var_296)" "(let-values(((fold-var_297)" " fold-var_295))" @@ -62122,14 +62128,14 @@ static const char *startup_source = " fold-var_298)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_284" " fold-var_296" " rest_184)" " fold-var_296)))" " fold-var_295)))))" -" for-loop_285)" +" for-loop_284)" " null" -" lst_324))))" +" lst_322))))" " val-idss_0))" "(cons" " keys_5" @@ -62144,19 +62150,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_32)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_299" -" lst_326)" +" lst_324)" "(begin" " 'for-loop" "(if(pair?" -" lst_326)" +" lst_324)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_326))" +" lst_324))" "((rest_185)" "(unsafe-cdr" -" lst_326)))" +" lst_324)))" "(let-values(((fold-var_300)" "(let-values(((fold-var_301)" " fold-var_299))" @@ -62170,12 +62176,12 @@ static const char *startup_source = " fold-var_302)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_285" " fold-var_300" " rest_185)" " fold-var_300)))" " fold-var_299)))))" -" for-loop_286)" +" for-loop_285)" " null" " lst_32))))" " val-keyss_0))" @@ -62183,7 +62189,7 @@ static const char *startup_source = " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_327)" +"(let-values(((lst_325)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62191,20 +62197,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" -"((letrec-values(((for-loop_258)" +" lst_325)))" +"((letrec-values(((for-loop_257)" "(lambda(fold-var_303" -" lst_203)" +" lst_201)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" +" lst_201)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_203))" +" lst_201))" "((rest_186)" "(unsafe-cdr" -" lst_203)))" +" lst_201)))" "(let-values(((fold-var_304)" "(let-values(((fold-var_140)" " fold-var_303))" @@ -62214,27 +62220,27 @@ static const char *startup_source = "(let-values()" "(no-binds" " done-body_2" -" s_173" +" s_172" " phase_142))" " fold-var_140))))" "(values" " fold-var_305)))))" "(if(not" " #f)" -"(for-loop_258" +"(for-loop_257" " fold-var_304" " rest_186)" " fold-var_304)))" " fold-var_303)))))" -" for-loop_258)" +" for-loop_257)" " null" -" lst_327))))" +" lst_325))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_108)" +"(let-values(((lst_107)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62242,20 +62248,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" -"((letrec-values(((for-loop_287)" +" lst_107)))" +"((letrec-values(((for-loop_286)" "(lambda(fold-var_141" -" lst_109)" +" lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" +" lst_108)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_109))" +" lst_108))" "((rest_187)" "(unsafe-cdr" -" lst_109)))" +" lst_108)))" "(let-values(((fold-var_306)" "(let-values(((fold-var_144)" " fold-var_141))" @@ -62269,14 +62275,14 @@ static const char *startup_source = " fold-var_39)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_286" " fold-var_306" " rest_187)" " fold-var_306)))" " fold-var_141)))))" -" for-loop_287)" +" for-loop_286)" " null" -" lst_108))))" +" lst_107))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -62300,26 +62306,26 @@ static const char *startup_source = " define-syntaxes105_0" " id106_2" " rhs107_0)" -"(let-values(((s_474)" +"(let-values(((s_476)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_474))" +" s_476))" "(let-values(((define-syntaxes105_1" " id106_3" " rhs107_1)" "(let-values(((s_94)" "(if(syntax?$1" -" s_474)" +" s_476)" "(syntax-e$1" -" s_474)" -" s_474)))" +" s_476)" +" s_476)))" "(if(pair?" " s_94)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_475)" +"(let-values(((s_477)" "(car" " s_94)))" -" s_475))" +" s_477))" "((id109_0" " rhs110_0)" "(let-values(((s_95)" @@ -62334,18 +62340,18 @@ static const char *startup_source = "(if(pair?" " s_96)" "(let-values(((id111_0)" -"(let-values(((s_97)" +"(let-values(((s_207)" "(car" " s_96)))" -"(let-values(((s_207)" +"(let-values(((s_97)" "(if(syntax?$1" -" s_97)" +" s_207)" "(syntax-e$1" -" s_97)" -" s_97)))" +" s_207)" +" s_207)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_207)))" +" s_97)))" "(if(not" " flat-s_26)" "(let-values()" @@ -62355,7 +62361,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_114)" -"(let-values(((lst_328)" +"(let-values(((lst_326)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62363,15 +62369,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_328)))" -"((letrec-values(((for-loop_288)" +" lst_326)))" +"((letrec-values(((for-loop_287)" "(lambda(id_115" " lst_35)" "(begin" " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_476)" +"(let-values(((s_478)" "(unsafe-car" " lst_35))" "((rest_188)" @@ -62384,23 +62390,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_314)" +"(if(let-values(((or-part_315)" "(if(syntax?$1" -" s_476)" +" s_478)" "(symbol?" "(syntax-e$1" -" s_476))" +" s_478))" " #f)))" -"(if or-part_314" -" or-part_314" +"(if or-part_315" +" or-part_315" "(symbol?" -" s_476)))" -" s_476" +" s_478)))" +" s_478" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_476)))))" +" s_478)))))" "(cons" " id114_0" " id_117)))))" @@ -62408,45 +62414,45 @@ static const char *startup_source = " id_118)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_287" " id_116" " rest_188)" " id_116)))" " id_115)))))" -" for-loop_288)" +" for-loop_287)" " null" -" lst_328)))))" +" lst_326)))))" "(reverse$1" " id_114))))))))" "((rhs112_0)" -"(let-values(((s_477)" +"(let-values(((s_479)" "(cdr" " s_96)))" -"(let-values(((s_478)" +"(let-values(((s_480)" "(if(syntax?$1" -" s_477)" +" s_479)" "(syntax-e$1" -" s_477)" -" s_477)))" +" s_479)" +" s_479)))" "(if(pair?" -" s_478)" +" s_480)" "(let-values(((rhs113_0)" -"(let-values(((s_479)" +"(let-values(((s_100)" "(car" -" s_478)))" -" s_479))" +" s_480)))" +" s_100))" "(()" "(let-values(((s_318)" "(cdr" -" s_478)))" -"(let-values(((s_480)" +" s_480)))" +"(let-values(((s_481)" "(if(syntax?$1" " s_318)" "(syntax-e$1" " s_318)" " s_318)))" "(if(null?" -" s_480)" +" s_481)" "(values)" "(raise-syntax-error$1" " #f" @@ -62522,7 +62528,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_329)" +"(let-values(((lst_327)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62530,20 +62536,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_329)))" -"((letrec-values(((for-loop_289)" +" lst_327)))" +"((letrec-values(((for-loop_288)" "(lambda(fold-var_307" -" lst_330)" +" lst_328)" "(begin" " 'for-loop" "(if(pair?" -" lst_330)" +" lst_328)" "(let-values(((id_119)" "(unsafe-car" -" lst_330))" +" lst_328))" "((rest_189)" "(unsafe-cdr" -" lst_330)))" +" lst_328)))" "(let-values(((fold-var_308)" "(let-values(((fold-var_309)" " fold-var_307))" @@ -62574,14 +62580,14 @@ static const char *startup_source = " fold-var_310)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_288" " fold-var_308" " rest_189)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_289)" +" for-loop_288)" " null" -" lst_329))))))" +" lst_327))))))" "(let-values((()" "(begin" "(let-values(((obs_72)" @@ -62619,11 +62625,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_331)" +"(let-values(((lst_46)" " keys_6)" -"((lst_332)" +"((lst_329)" " vals_8)" -"((lst_333)" +"((lst_330)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62631,52 +62637,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_331)))" +" lst_46)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_332)))" +" lst_329)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_333)))" -"((letrec-values(((for-loop_290)" +" lst_330)))" +"((letrec-values(((for-loop_289)" "(lambda(env_21" -" lst_334" -" lst_335" -" lst_336)" +" lst_331" +" lst_332" +" lst_333)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_334)" +" lst_331)" "(if(pair?" -" lst_335)" +" lst_332)" "(pair?" -" lst_336)" +" lst_333)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_334))" +" lst_331))" "((rest_190)" "(unsafe-cdr" -" lst_334))" +" lst_331))" "((val_85)" "(unsafe-car" -" lst_335))" +" lst_332))" "((rest_191)" "(unsafe-cdr" -" lst_335))" +" lst_332))" "((id_7)" "(unsafe-car" -" lst_336))" +" lst_333))" "((rest_192)" "(unsafe-cdr" -" lst_336)))" +" lst_333)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62696,19 +62702,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_289" " env_22" " rest_190" " rest_191" " rest_192)" " env_22)))" " env_21)))))" -" for-loop_290)" +" for-loop_289)" "(expand-context-env" " body-ctx_2)" -" lst_331" -" lst_332" -" lst_333)))))" +" lst_46" +" lst_329" +" lst_330)))))" "(begin" "(let-values(((obs_74)" "(expand-context-observer" @@ -62721,10 +62727,10 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_120" -"(let-values(((v_255)" +"(let-values(((v_256)" " body-ctx_2))" "(let-values(((the-struct_65)" -" v_255))" +" v_256))" "(if(expand-context/outer?" " the-struct_65)" "(let-values(((env124_0)" @@ -62735,7 +62741,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_255)))" +" v_256)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -62871,7 +62877,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_225) source10_0))" +"(let-values(((s_226) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -62883,15 +62889,15 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_225))" +" s_226))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_256)" +"(let-values(((v_257)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_90) v_256))" +"(let-values(((the-struct_90) v_257))" "(if(expand-context/outer? the-struct_90)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62905,7 +62911,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_256)))" +"(root-expand-context/outer-inner v_257)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -62968,36 +62974,36 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_337) done-bodys_1)" +"(let-values(((lst_334) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_337)))" +"(check-list lst_334)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_311" -" lst_338" +" lst_335" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_338)" +" lst_335)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_338))" +" lst_335))" "((rest_193)" "(unsafe-cdr" -" lst_338))" -"((i_189)" +" lst_335))" +"((i_190)" " pos_127))" "(let-values(((fold-var_312)" "(let-values(((fold-var_313)" @@ -63022,20 +63028,20 @@ static const char *startup_source = "((temp135_3)" "(if(if name_79" "(=" -" i_189" +" i_190" " last-i_1)" " #f)" -"(let-values(((v_257)" +"(let-values(((v_258)" " finish-ctx_0))" "(let-values(((the-struct_91)" -" v_257))" +" v_258))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_257)))" +" v_258)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -63082,7 +63088,7 @@ static const char *startup_source = " fold-var_314)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_290" " fold-var_312" " rest_193" "(+" @@ -63090,9 +63096,9 @@ static const char *startup_source = " 1))" " fold-var_312)))" " fold-var_311)))))" -" for-loop_291)" +" for-loop_290)" " null" -" lst_337" +" lst_334" " start_66))))))" "(begin" "(let-values(((obs_78)" @@ -63117,7 +63123,7 @@ static const char *startup_source = "(call-expand-observe" " obs_79" " 'block->list" -"(datum->syntax$1 s_225 done-bodys_1))))" +"(datum->syntax$1 s_226 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -63130,7 +63136,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_80" " finish-ctx_0" -" s_225" +" s_226" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -63146,7 +63152,7 @@ static const char *startup_source = "((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_225)" +"((s145_0) s_226)" "((temp146_3)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -63199,7 +63205,7 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_77) ctx32_0))" -"(let-values(((s_481) source33_0))" +"(let-values(((s_482) 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))" @@ -63229,12 +63235,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_481)" +"(keep-properties-only s_482)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_481)" +"(keep-properties-only s_482)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -63243,7 +63249,7 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_481)" +"((s150_0) s_482)" "((temp151_3)" "(list*" "(if(null? accum-idss_0)" @@ -63348,7 +63354,7 @@ static const char *startup_source = " ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_481)" +" s_482)" "(list ids_31)" "(list" "(list" @@ -63358,7 +63364,7 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_481)" +" s_482)" "((temp156_0)" "(list*" "(core-id" @@ -63397,9 +63403,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_368) split?_0))" -"(if or-part_368" -" or-part_368" +"(let-values(((or-part_369) split?_0))" +"(if or-part_369" +" or-part_369" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63421,7 +63427,7 @@ static const char *startup_source = " ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_481)" +" s_482)" "(reverse$1" "(cons" " ids_31" @@ -63439,7 +63445,7 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_481)" +" s_482)" "((temp159_0)" "(list*" "(core-id" @@ -63519,46 +63525,46 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_482 phase_144)" +"(lambda(expr_10 s_483 phase_144)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_144)))" "(datum->syntax$1" "(core-id '#%app phase_144)" "(list(core-id 'begin phase_144) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_482)))))" +" s_483)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_79 s_483 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_484 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" "(let-values(((phase_145)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_339) track-stxs_4))" +"(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_336) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_247)))" +"(let-values()(check-list lst_245)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" +"(let-values()(check-list lst_246)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_339)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_315 lst_340 lst_341 lst_342)" +"(let-values()(check-list lst_336)))" +"((letrec-values(((for-loop_291)" +"(lambda(fold-var_315 lst_337 lst_338 lst_339)" "(begin" " 'for-loop" -"(if(if(pair? lst_340)(if(pair? lst_341)(pair? lst_342) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_340))" -"((rest_194)(unsafe-cdr lst_340))" -"((val-rhs_0)(unsafe-car lst_341))" -"((rest_195)(unsafe-cdr lst_341))" -"((track-stx_2)(unsafe-car lst_342))" -"((rest_62)(unsafe-cdr lst_342)))" +"(if(if(pair? lst_337)(if(pair? lst_338)(pair? lst_339) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_337))" +"((rest_194)(unsafe-cdr lst_337))" +"((val-rhs_0)(unsafe-car lst_338))" +"((rest_195)(unsafe-cdr lst_338))" +"((track-stx_2)(unsafe-car lst_339))" +"((rest_62)(unsafe-cdr lst_339)))" "(let-values(((fold-var_316)" "(let-values(((fold-var_317) fold-var_315))" "(let-values(((fold-var_318)" @@ -63572,14 +63578,14 @@ static const char *startup_source = " fold-var_317))))" "(values fold-var_318)))))" "(if(not #f)" -"(for-loop_292 fold-var_316 rest_194 rest_195 rest_62)" +"(for-loop_291 fold-var_316 rest_194 rest_195 rest_62)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_292)" +" for-loop_291)" " null" -" lst_247" -" lst_248" -" lst_339))))))" +" lst_245" +" lst_246" +" lst_336))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" "(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_145)))" "(let-values(((lv-s_0)" @@ -63588,7 +63594,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_483)))" +" s_484)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63603,7 +63609,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_483))" +"(datum->syntax$1 #f done-bodys_2 s_484))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63615,7 +63621,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_483)))))))" +"(datum->syntax$1 #f done-bodys_2 s_484)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63623,7 +63629,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_483))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_484))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_71 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" @@ -63642,18 +63648,18 @@ static const char *startup_source = "(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_89) ids_33))" +"(let-values(((lst_88) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_293)" -"(lambda(fold-var_319 lst_267)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_292)" +"(lambda(fold-var_319 lst_265)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((id_120)(unsafe-car lst_267))" -"((rest_196)(unsafe-cdr lst_267)))" +"(if(pair? lst_265)" +"(let-values(((id_120)(unsafe-car lst_265))" +"((rest_196)(unsafe-cdr lst_265)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_319))" "(let-values(((fold-var_157)" @@ -63679,30 +63685,30 @@ static const char *startup_source = " fold-var_34))))" "(values fold-var_157)))))" "(if(not #f)" -"(for-loop_293 fold-var_33 rest_196)" +"(for-loop_292 fold-var_33 rest_196)" " fold-var_33)))" " fold-var_319)))))" -" for-loop_293)" +" for-loop_292)" " null" -" lst_89))))))" +" lst_88))))))" "(let-values(((body-env_0)" -"(let-values(((lst_82) keys_7)((lst_92) ids_33))" +"(let-values(((lst_81) keys_7)((lst_91) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" +"(let-values()(check-list lst_81)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_50)" -"(lambda(env_25 lst_84 lst_273)" +"(lambda(env_25 lst_83 lst_271)" "(begin" " 'for-loop" -"(if(if(pair? lst_84)(pair? lst_273) #f)" -"(let-values(((key_95)(unsafe-car lst_84))" -"((rest_148)(unsafe-cdr lst_84))" -"((id_121)(unsafe-car lst_273))" -"((rest_197)(unsafe-cdr lst_273)))" +"(if(if(pair? lst_83)(pair? lst_271) #f)" +"(let-values(((key_95)(unsafe-car lst_83))" +"((rest_148)(unsafe-cdr lst_83))" +"((id_121)(unsafe-car lst_271))" +"((rest_197)(unsafe-cdr lst_271)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63719,8 +63725,8 @@ static const char *startup_source = " env_25)))))" " for-loop_50)" "(expand-context-env ctx_80)" -" lst_82" -" lst_92)))))" +" lst_81" +" lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -63769,15 +63775,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_258) ctx_80))" -"(let-values(((the-struct_92) v_258))" +"(let-values(((v_259) ctx_80))" +"(let-values(((the-struct_92) v_259))" "(if(expand-context/outer? the-struct_92)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" "((binding-layer44_0)" "(increment-binding-layer ids_33 ctx_80 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_258)))" +"((inner46_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_92)" @@ -63821,31 +63827,31 @@ 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_420) disarmed-s_6))" -"(let-values(((orig-s_41) s_420))" +"(let-values(((s_421) disarmed-s_6))" +"(let-values(((orig-s_41) s_421))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_165)(if(syntax?$1 s_420)(syntax-e$1 s_420) s_420)))" -"(if(pair? s_165)" -"(let-values(((lambda56_0)(let-values(((s_484)(car s_165))) s_484))" +"(let-values(((s_164)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" +"(if(pair? s_164)" +"(let-values(((lambda56_0)(let-values(((s_485)(car s_164))) s_485))" "((formals57_0 body58_0)" -"(let-values(((s_465)(cdr s_165)))" -"(let-values(((s_458)" -"(if(syntax?$1 s_465)" -"(syntax-e$1 s_465)" -" s_465)))" -"(if(pair? s_458)" +"(let-values(((s_467)(cdr s_164)))" +"(let-values(((s_460)" +"(if(syntax?$1 s_467)" +"(syntax-e$1 s_467)" +" s_467)))" +"(if(pair? s_460)" "(let-values(((formals59_0)" -"(let-values(((s_466)(car s_458)))" -" s_466))" +"(let-values(((s_468)(car s_460)))" +" s_468))" "((body60_0)" -"(let-values(((s_67)(cdr s_458)))" -"(let-values(((s_169)" +"(let-values(((s_67)(cdr s_460)))" +"(let-values(((s_168)" "(if(syntax?$1 s_67)" "(syntax-e$1 s_67)" " s_67)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_169)))" +" s_168)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -63877,12 +63883,12 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_485)" +"(lambda(s_486)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_486) s_485))" -"(let-values(((orig-s_42) s_486))" +"(let-values(((s_487) s_486))" +"(let-values(((orig-s_42) s_487))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_304)(if(syntax?$1 s_486)(syntax-e$1 s_486) s_486)))" +"(let-values(((s_304)(if(syntax?$1 s_487)(syntax-e$1 s_487) s_487)))" "(if(pair? s_304)" "(let-values(((lam-id69_0)(let-values(((s_49)(car s_304))) s_49))" "((formals70_0 _71_1)" @@ -63891,15 +63897,15 @@ static const char *startup_source = "(if(syntax?$1 s_50)(syntax-e$1 s_50) s_50)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_487)(car s_32))) s_487))" +"(let-values(((s_488)(car s_32))) s_488))" "((_73_0)" "(let-values(((s_305)(cdr s_32)))" -"(let-values(((s_382)" +"(let-values(((s_383)" "(if(syntax?$1 s_305)" "(syntax-e$1 s_305)" " s_305)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_382)))" +"(to-syntax-list.1 s_383)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -63918,23 +63924,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_485)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_486)))" "(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" "(let-values(((phase_147)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_147) ((s76_2) s_485) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_147) ((s76_2) s_486) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" -" s_485" +" s_486" "(cons" "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_147) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_485)))" -" s_485" -" s_485)))))))))" +"(cdr(syntax-e$1 s_486)))" +" s_486" +" s_486)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_488 ctx_83)" +"(lambda(s_489 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_86)(expand-context-observer ctx_83)))" @@ -63942,47 +63948,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_86 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_488)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_489)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" "(let-values(((s_58) disarmed-s_7))" "(let-values(((orig-s_43) s_58))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_489)(if(syntax?$1 s_58)(syntax-e$1 s_58) s_58)))" -"(if(pair? s_489)" -"(let-values(((case-lambda82_0)(let-values(((s_60)(car s_489))) s_60))" +"(let-values(((s_490)(if(syntax?$1 s_58)(syntax-e$1 s_58) s_58)))" +"(if(pair? s_490)" +"(let-values(((case-lambda82_0)(let-values(((s_60)(car s_490))) s_60))" "((formals83_0 body84_0)" -"(let-values(((s_490)(cdr s_489)))" +"(let-values(((s_491)(cdr s_490)))" "(let-values(((s_36)" -"(if(syntax?$1 s_490)" -"(syntax-e$1 s_490)" -" s_490)))" +"(if(syntax?$1 s_491)" +"(syntax-e$1 s_491)" +" s_491)))" "(let-values(((flat-s_28)(to-syntax-list.1 s_36)))" "(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_343) flat-s_28))" +"(let-values(((lst_340) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_343)))" -"((letrec-values(((for-loop_294)" +"(check-list lst_340)))" +"((letrec-values(((for-loop_293)" "(lambda(formals_4" " body_15" -" lst_344)" +" lst_341)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" +" lst_341)" "(let-values(((s_312)" "(unsafe-car" -" lst_344))" +" lst_341))" "((rest_198)" "(unsafe-cdr" -" lst_344)))" +" lst_341)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -64012,7 +64018,7 @@ static const char *startup_source = "(let-values(((s_198)" "(cdr" " s_65)))" -"(let-values(((s_491)" +"(let-values(((s_492)" "(if(syntax?$1" " s_198)" "(syntax-e$1" @@ -64020,7 +64026,7 @@ static const char *startup_source = " s_198)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_491)))" +" s_492)))" "(if(not" " flat-s_29)" "(let-values()" @@ -64056,7 +64062,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_293" " formals_5" " body_16" " rest_198)" @@ -64066,10 +64072,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_294)" +" for-loop_293)" " null" " null" -" lst_343)))))" +" lst_340)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64080,16 +64086,16 @@ static const char *startup_source = "(let-values(((s_199) disarmed-s_7))" "(let-values(((orig-s_44) s_199))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_492)(if(syntax?$1 s_199)(syntax-e$1 s_199) s_199)))" -"(if(pair? s_492)" -"(let-values(((case-lambda89_0)(let-values(((s_90)(car s_492))) s_90))" +"(let-values(((s_493)(if(syntax?$1 s_199)(syntax-e$1 s_199) s_199)))" +"(if(pair? s_493)" +"(let-values(((case-lambda89_0)(let-values(((s_90)(car s_493))) s_90))" "((clause90_0)" -"(let-values(((s_493)(cdr s_492)))" -"(let-values(((s_426)" -"(if(syntax?$1 s_493)" -"(syntax-e$1 s_493)" -" s_493)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_426)))" +"(let-values(((s_494)(cdr s_493)))" +"(let-values(((s_427)" +"(if(syntax?$1 s_494)" +"(syntax-e$1 s_494)" +" s_494)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_427)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -64098,34 +64104,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_1) ctx_83)((s94_0) s_488)((temp95_3) #t))" +"(let-values(((ctx93_1) ctx_83)((s94_0) s_489)((temp95_3) #t))" "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_345) formals80_0)((lst_346) body81_0)((lst_206) clause88_0))" +"(let-values(((lst_342) formals80_0)((lst_343) body81_0)((lst_204) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_345)))" +"(let-values()(check-list lst_342)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_346)))" +"(let-values()(check-list lst_343)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_206)))" -"((letrec-values(((for-loop_122)" -"(lambda(fold-var_320 lst_276 lst_159 lst_347)" +"(let-values()(check-list lst_204)))" +"((letrec-values(((for-loop_123)" +"(lambda(fold-var_320 lst_274 lst_157 lst_344)" "(begin" " 'for-loop" -"(if(if(pair? lst_276)" -"(if(pair? lst_159)(pair? lst_347) #f)" +"(if(if(pair? lst_274)" +"(if(pair? lst_157)(pair? lst_344) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_276))" -"((rest_199)(unsafe-cdr lst_276))" -"((body_19)(unsafe-car lst_159))" -"((rest_80)(unsafe-cdr lst_159))" -"((clause_3)(unsafe-car lst_347))" -"((rest_200)(unsafe-cdr lst_347)))" +"(let-values(((formals_8)(unsafe-car lst_274))" +"((rest_199)(unsafe-cdr lst_274))" +"((body_19)(unsafe-car lst_157))" +"((rest_80)(unsafe-cdr lst_157))" +"((clause_3)(unsafe-car lst_344))" +"((rest_200)(unsafe-cdr lst_344)))" "(let-values(((fold-var_149)" "(let-values(((fold-var_321) fold-var_320))" "(let-values(((fold-var_322)" @@ -64162,7 +64168,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_488" +" s_489" " disarmed-s_7" " formals_8" " body_19" @@ -64187,21 +64193,21 @@ static const char *startup_source = " fold-var_321))))" "(values fold-var_322)))))" "(if(not #f)" -"(for-loop_122 fold-var_149 rest_199 rest_80 rest_200)" +"(for-loop_123 fold-var_149 rest_199 rest_80 rest_200)" " fold-var_149)))" " fold-var_320)))))" -" for-loop_122)" +" for-loop_123)" " null" -" lst_345" -" lst_346" -" lst_206))))))" +" lst_342" +" lst_343" +" lst_204))))))" "(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_494)" +"(lambda(all-formals_0 sc_36 s_495)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -64216,21 +64222,21 @@ static const char *startup_source = "(let-values()(loop_122 p_88))" "(if(null? p_88)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_494 p_88))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_495 p_88))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_494 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_495 (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_494 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_495 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -64286,47 +64292,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_121) disarmed-s_8))" +"(let-values(((s_433) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_121))" +"(let-values(((orig-s_45) s_433))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_495)" -"(if(syntax?$1 s_121)" -"(syntax-e$1 s_121)" -" s_121)))" -"(if(pair? s_495)" +"(let-values(((s_123)" +"(if(syntax?$1 s_433)" +"(syntax-e$1 s_433)" +" s_433)))" +"(if(pair? s_123)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_124)(car s_495))) s_124))" +"(let-values(((s_220)(car s_123))) s_220))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_496)(cdr s_495)))" -"(let-values(((s_497)" -"(if(syntax?$1 s_496)" -"(syntax-e$1 s_496)" -" s_496)))" -"(if(pair? s_497)" +"(let-values(((s_124)(cdr s_123)))" +"(let-values(((s_496)" +"(if(syntax?$1 s_124)" +"(syntax-e$1 s_124)" +" s_124)))" +"(if(pair? s_496)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_498)" +"(let-values(((s_497)" "(car" -" s_497)))" -"(let-values(((s_126)" +" s_496)))" +"(let-values(((s_221)" "(if(syntax?$1" -" s_498)" +" s_497)" "(syntax-e$1" -" s_498)" -" s_498)))" +" s_497)" +" s_497)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_126)))" +" s_221)))" "(if(not" " flat-s_31)" "(let-values()" @@ -64337,7 +64343,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_348)" +"(let-values(((lst_345)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64345,21 +64351,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_348)))" +" lst_345)))" "((letrec-values(((for-loop_48)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_349)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_349)" -"(let-values(((s_321)" +" lst_346)" +"(let-values(((s_322)" "(unsafe-car" -" lst_349))" +" lst_346))" "((rest_201)" "(unsafe-cdr" -" lst_349)))" +" lst_346)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64372,27 +64378,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_326)" +"(let-values(((s_327)" "(if(syntax?$1" -" s_321)" +" s_322)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_322)" +" s_322)))" "(if(pair?" -" s_326)" +" s_327)" "(let-values(((id:trans119_0)" -"(let-values(((s_329)" -"(car" -" s_326)))" "(let-values(((s_330)" +"(car" +" s_327)))" +"(let-values(((s_331)" "(if(syntax?$1" -" s_329)" +" s_330)" "(syntax-e$1" -" s_329)" -" s_329)))" +" s_330)" +" s_330)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_330)))" +" s_331)))" "(if(not" " flat-s_32)" "(let-values()" @@ -64402,7 +64408,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_301)" +"(let-values(((lst_299)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64410,20 +64416,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_301)))" -"((letrec-values(((for-loop_261)" +" lst_299)))" +"((letrec-values(((for-loop_260)" "(lambda(id:trans_6" -" lst_302)" +" lst_300)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" -"(let-values(((s_228)" +" lst_300)" +"(let-values(((s_229)" "(unsafe-car" -" lst_302))" +" lst_300))" "((rest_168)" "(unsafe-cdr" -" lst_302)))" +" lst_300)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64431,23 +64437,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_369)" +"(if(let-values(((or-part_370)" "(if(syntax?$1" -" s_228)" +" s_229)" "(symbol?" "(syntax-e$1" -" s_228))" +" s_229))" " #f)))" -"(if or-part_369" -" or-part_369" +"(if or-part_370" +" or-part_370" "(symbol?" -" s_228)))" -" s_228" +" s_229)))" +" s_229" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_228)))))" +" s_229)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -64455,45 +64461,45 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_261" +"(for-loop_260" " id:trans_7" " rest_168)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_261)" +" for-loop_260)" " null" -" lst_301)))))" +" lst_299)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" +"(let-values(((s_498)" +"(cdr" +" s_327)))" "(let-values(((s_499)" -"(cdr" -" s_326)))" -"(let-values(((s_500)" "(if(syntax?$1" -" s_499)" +" s_498)" "(syntax-e$1" -" s_499)" -" s_499)))" +" s_498)" +" s_498)))" "(if(pair?" -" s_500)" +" s_499)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_231)" -"(car" -" s_500)))" -" s_231))" -"(()" "(let-values(((s_232)" +"(car" +" s_499)))" +" s_232))" +"(()" +"(let-values(((s_233)" "(cdr" -" s_500)))" -"(let-values(((s_336)" +" s_499)))" +"(let-values(((s_337)" "(if(syntax?$1" -" s_232)" +" s_233)" "(syntax-e$1" -" s_232)" -" s_232)))" +" s_233)" +" s_233)))" "(if(null?" -" s_336)" +" s_337)" "(values)" "(raise-syntax-error$1" " #f" @@ -64537,7 +64543,7 @@ static const char *startup_source = " for-loop_48)" " null" " null" -" lst_348)))))" +" lst_345)))))" "(values" "(reverse$1" " id:trans_0)" @@ -64546,30 +64552,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_337)" -"(cdr" -" s_497)))" -"(let-values(((s_233)" -"(if(syntax?$1" -" s_337)" -"(syntax-e$1" -" s_337)" -" s_337)))" -"(if(pair? s_233)" -"(let-values(((id:val122_0" -" val-rhs123_0)" "(let-values(((s_338)" -"(car" -" s_233)))" -"(let-values(((s_339)" +"(cdr" +" s_496)))" +"(let-values(((s_234)" "(if(syntax?$1" " s_338)" "(syntax-e$1" " s_338)" " s_338)))" +"(if(pair? s_234)" +"(let-values(((id:val122_0" +" val-rhs123_0)" +"(let-values(((s_339)" +"(car" +" s_234)))" +"(let-values(((s_340)" +"(if(syntax?$1" +" s_339)" +"(syntax-e$1" +" s_339)" +" s_339)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_339)))" +" s_340)))" "(if(not" " flat-s_33)" "(let-values()" @@ -64580,7 +64586,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_350)" +"(let-values(((lst_347)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64588,21 +64594,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" -"((letrec-values(((for-loop_263)" +" lst_347)))" +"((letrec-values(((for-loop_262)" "(lambda(id:val_1" " val-rhs_2" -" lst_351)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" -"(let-values(((s_344)" +" lst_348)" +"(let-values(((s_345)" "(unsafe-car" -" lst_351))" +" lst_348))" "((rest_202)" "(unsafe-cdr" -" lst_351)))" +" lst_348)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64615,27 +64621,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" +"(let-values(((s_500)" +"(if(syntax?$1" +" s_345)" +"(syntax-e$1" +" s_345)" +" s_345)))" +"(if(pair?" +" s_500)" +"(let-values(((id:val125_0)" +"(let-values(((s_350)" +"(car" +" s_500)))" "(let-values(((s_501)" "(if(syntax?$1" -" s_344)" +" s_350)" "(syntax-e$1" -" s_344)" -" s_344)))" -"(if(pair?" -" s_501)" -"(let-values(((id:val125_0)" -"(let-values(((s_349)" -"(car" -" s_501)))" -"(let-values(((s_502)" -"(if(syntax?$1" -" s_349)" -"(syntax-e$1" -" s_349)" -" s_349)))" +" s_350)" +" s_350)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_502)))" +" s_501)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64645,7 +64651,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_352)" +"(let-values(((lst_349)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64653,20 +64659,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_352)))" -"((letrec-values(((for-loop_295)" +" lst_349)))" +"((letrec-values(((for-loop_294)" "(lambda(id:val_6" -" lst_353)" +" lst_350)" "(begin" " 'for-loop" "(if(pair?" -" lst_353)" -"(let-values(((s_503)" +" lst_350)" +"(let-values(((s_502)" "(unsafe-car" -" lst_353))" +" lst_350))" "((rest_203)" "(unsafe-cdr" -" lst_353)))" +" lst_350)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -64674,23 +64680,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_370)" +"(if(let-values(((or-part_371)" "(if(syntax?$1" -" s_503)" +" s_502)" "(symbol?" "(syntax-e$1" -" s_503))" +" s_502))" " #f)))" -"(if or-part_370" -" or-part_370" +"(if or-part_371" +" or-part_371" "(symbol?" -" s_503)))" -" s_503" +" s_502)))" +" s_502" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_503)))))" +" s_502)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -64698,45 +64704,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_294" " id:val_7" " rest_203)" " id:val_7)))" " id:val_6)))))" -" for-loop_295)" +" for-loop_294)" " null" -" lst_352)))))" +" lst_349)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_238)" -"(cdr" -" s_501)))" -"(let-values(((s_504)" -"(if(syntax?$1" -" s_238)" -"(syntax-e$1" -" s_238)" -" s_238)))" -"(if(pair?" -" s_504)" -"(let-values(((val-rhs127_0)" -"(let-values(((s_505)" -"(car" -" s_504)))" -" s_505))" -"(()" -"(let-values(((s_506)" -"(cdr" -" s_504)))" "(let-values(((s_239)" +"(cdr" +" s_500)))" +"(let-values(((s_503)" "(if(syntax?$1" -" s_506)" -"(syntax-e$1" -" s_506)" -" s_506)))" -"(if(null?" " s_239)" +"(syntax-e$1" +" s_239)" +" s_239)))" +"(if(pair?" +" s_503)" +"(let-values(((val-rhs127_0)" +"(let-values(((s_504)" +"(car" +" s_503)))" +" s_504))" +"(()" +"(let-values(((s_505)" +"(cdr" +" s_503)))" +"(let-values(((s_240)" +"(if(syntax?$1" +" s_505)" +"(syntax-e$1" +" s_505)" +" s_505)))" +"(if(null?" +" s_240)" "(values)" "(raise-syntax-error$1" " #f" @@ -64767,7 +64773,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_262" " id:val_2" " val-rhs_3" " rest_202)" @@ -64777,28 +64783,28 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_263)" +" for-loop_262)" " null" " null" -" lst_350)))))" +" lst_347)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_240)" -"(cdr" -" s_233)))" "(let-values(((s_241)" +"(cdr" +" s_234)))" +"(let-values(((s_242)" "(if(syntax?$1" -" s_240)" +" s_241)" "(syntax-e$1" -" s_240)" -" s_240)))" +" s_241)" +" s_241)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_241)))" +" s_242)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64851,39 +64857,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_507) disarmed-s_8))" +"(let-values(((s_506) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_507))" +"(let-values(((orig-s_46) s_506))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_508)" -"(if(syntax?$1 s_507)" -"(syntax-e$1 s_507)" -" s_507)))" -"(if(pair? s_508)" +"(let-values(((s_507)" +"(if(syntax?$1 s_506)" +"(syntax-e$1 s_506)" +" s_506)))" +"(if(pair? s_507)" "(let-values(((let-values132_0)" -"(let-values(((s_509)(car s_508)))" -" s_509))" +"(let-values(((s_508)(car s_507)))" +" s_508))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_438)(cdr s_508)))" -"(let-values(((s_439)" -"(if(syntax?$1 s_438)" -"(syntax-e$1 s_438)" -" s_438)))" -"(if(pair? s_439)" +"(let-values(((s_439)(cdr s_507)))" +"(let-values(((s_440)" +"(if(syntax?$1 s_439)" +"(syntax-e$1 s_439)" +" s_439)))" +"(if(pair? s_440)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_248)" +"(let-values(((s_249)" "(car" -" s_439)))" -"(let-values(((s_355)" +" s_440)))" +"(let-values(((s_356)" "(if(syntax?$1" -" s_248)" +" s_249)" "(syntax-e$1" -" s_248)" -" s_248)))" +" s_249)" +" s_249)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_355)))" +" s_356)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64894,7 +64900,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_354)" +"(let-values(((lst_351)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64902,21 +64908,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_354)))" -"((letrec-values(((for-loop_296)" +" lst_351)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_11" " val-rhs_7" -" lst_355)" +" lst_352)" "(begin" " 'for-loop" "(if(pair?" -" lst_355)" -"(let-values(((s_364)" +" lst_352)" +"(let-values(((s_365)" "(unsafe-car" -" lst_355))" +" lst_352))" "((rest_204)" "(unsafe-cdr" -" lst_355)))" +" lst_352)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64929,27 +64935,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_481)" +"(let-values(((s_482)" "(if(syntax?$1" -" s_364)" +" s_365)" "(syntax-e$1" -" s_364)" -" s_364)))" +" s_365)" +" s_365)))" "(if(pair?" -" s_481)" +" s_482)" "(let-values(((id:val139_0)" -"(let-values(((s_368)" -"(car" -" s_481)))" "(let-values(((s_369)" +"(car" +" s_482)))" +"(let-values(((s_370)" "(if(syntax?$1" -" s_368)" +" s_369)" "(syntax-e$1" -" s_368)" -" s_368)))" +" s_369)" +" s_369)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_369)))" +" s_370)))" "(if(not" " flat-s_37)" "(let-values()" @@ -64959,7 +64965,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_307)" +"(let-values(((lst_305)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64967,20 +64973,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_307)))" -"((letrec-values(((for-loop_268)" +" lst_305)))" +"((letrec-values(((for-loop_267)" "(lambda(id:val_16" -" lst_308)" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_308)" -"(let-values(((s_510)" +" lst_306)" +"(let-values(((s_509)" "(unsafe-car" -" lst_308))" +" lst_306))" "((rest_172)" "(unsafe-cdr" -" lst_308)))" +" lst_306)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64988,23 +64994,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_372)" "(if(syntax?$1" -" s_510)" +" s_509)" "(symbol?" "(syntax-e$1" -" s_510))" +" s_509))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_372" +" or-part_372" "(symbol?" -" s_510)))" -" s_510" +" s_509)))" +" s_509" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_510)))))" +" s_509)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -65012,45 +65018,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_267" " id:val_17" " rest_172)" " id:val_17)))" " id:val_16)))))" -" for-loop_268)" +" for-loop_267)" " null" -" lst_307)))))" +" lst_305)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_251)" -"(cdr" -" s_481)))" "(let-values(((s_252)" -"(if(syntax?$1" -" s_251)" -"(syntax-e$1" -" s_251)" -" s_251)))" -"(if(pair?" -" s_252)" -"(let-values(((val-rhs141_0)" -"(let-values(((s_511)" -"(car" -" s_252)))" -" s_511))" -"(()" -"(let-values(((s_512)" "(cdr" -" s_252)))" -"(let-values(((s_513)" +" s_482)))" +"(let-values(((s_253)" "(if(syntax?$1" -" s_512)" +" s_252)" "(syntax-e$1" -" s_512)" -" s_512)))" +" s_252)" +" s_252)))" +"(if(pair?" +" s_253)" +"(let-values(((val-rhs141_0)" +"(let-values(((s_510)" +"(car" +" s_253)))" +" s_510))" +"(()" +"(let-values(((s_511)" +"(cdr" +" s_253)))" +"(let-values(((s_512)" +"(if(syntax?$1" +" s_511)" +"(syntax-e$1" +" s_511)" +" s_511)))" "(if(null?" -" s_513)" +" s_512)" "(values)" "(raise-syntax-error$1" " #f" @@ -65081,7 +65087,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_295" " id:val_12" " val-rhs_8" " rest_204)" @@ -65091,28 +65097,28 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_296)" +" for-loop_295)" " null" " null" -" lst_354)))))" +" lst_351)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_254)" -"(cdr" -" s_439)))" "(let-values(((s_255)" +"(cdr" +" s_440)))" +"(let-values(((s_256)" "(if(syntax?$1" -" s_254)" +" s_255)" "(syntax-e$1" -" s_254)" -" s_254)))" +" s_255)" +" s_255)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_255)))" +" s_256)))" "(if(not" " flat-s_38)" "(let-values()" @@ -65150,20 +65156,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_356)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_353)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_356)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_323 lst_357)" +"(let-values()(check-list lst_353)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_323 lst_354)" "(begin" " 'for-loop" -"(if(pair? lst_357)" +"(if(pair? lst_354)" "(let-values(((ids_35)" -"(unsafe-car lst_357))" +"(unsafe-car lst_354))" "((rest_205)" -"(unsafe-cdr lst_357)))" +"(unsafe-cdr lst_354)))" "(let-values(((fold-var_324)" "(let-values(((fold-var_325)" " fold-var_323))" @@ -65172,7 +65178,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_358)" +"(let-values(((lst_355)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65180,20 +65186,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_358)))" -"((letrec-values(((for-loop_298)" +" lst_355)))" +"((letrec-values(((for-loop_297)" "(lambda(fold-var_327" -" lst_359)" +" lst_356)" "(begin" " 'for-loop" "(if(pair?" -" lst_359)" +" lst_356)" "(let-values(((id_122)" "(unsafe-car" -" lst_359))" +" lst_356))" "((rest_206)" "(unsafe-cdr" -" lst_359)))" +" lst_356)))" "(let-values(((fold-var_328)" "(let-values(((fold-var_329)" " fold-var_327))" @@ -65209,40 +65215,40 @@ static const char *startup_source = " fold-var_330)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_297" " fold-var_328" " rest_206)" " fold-var_328)))" " fold-var_327)))))" -" for-loop_298)" +" for-loop_297)" " null" -" lst_358)))))" +" lst_355)))))" " fold-var_325))))" "(values" " fold-var_326)))))" "(if(not #f)" -"(for-loop_297 fold-var_324 rest_205)" +"(for-loop_296 fold-var_324 rest_205)" " fold-var_324)))" " fold-var_323)))))" -" for-loop_297)" +" for-loop_296)" " null" -" lst_356))))))" +" lst_353))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_360)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_357)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_331 lst_361)" +"(let-values()(check-list lst_357)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_331 lst_358)" "(begin" " 'for-loop" -"(if(pair? lst_361)" +"(if(pair? lst_358)" "(let-values(((ids_36)" -"(unsafe-car lst_361))" +"(unsafe-car lst_358))" "((rest_207)" -"(unsafe-cdr lst_361)))" +"(unsafe-cdr lst_358)))" "(let-values(((fold-var_332)" "(let-values(((fold-var_333)" " fold-var_331))" @@ -65251,7 +65257,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_362)" +"(let-values(((lst_359)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65259,20 +65265,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_362)))" -"((letrec-values(((for-loop_156)" +" lst_359)))" +"((letrec-values(((for-loop_155)" "(lambda(fold-var_107" -" lst_363)" +" lst_360)" "(begin" " 'for-loop" "(if(pair?" -" lst_363)" +" lst_360)" "(let-values(((id_123)" "(unsafe-car" -" lst_363))" +" lst_360))" "((rest_208)" "(unsafe-cdr" -" lst_363)))" +" lst_360)))" "(let-values(((fold-var_111)" "(let-values(((fold-var_334)" " fold-var_107))" @@ -65288,44 +65294,44 @@ static const char *startup_source = " fold-var_335)))))" "(if(not" " #f)" -"(for-loop_156" +"(for-loop_155" " fold-var_111" " rest_208)" " fold-var_111)))" " fold-var_107)))))" -" for-loop_156)" +" for-loop_155)" " null" -" lst_362)))))" +" lst_359)))))" " fold-var_333))))" "(values" " fold-var_106)))))" "(if(not #f)" -"(for-loop_299" +"(for-loop_298" " fold-var_332" " rest_207)" " fold-var_332)))" " fold-var_331)))))" -" for-loop_299)" +" for-loop_298)" " null" -" lst_360))))))" +" lst_357))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_364)" +"(let-values(((lst_361)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_336 lst_365)" +"(let-values()(check-list lst_361)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_336 lst_362)" "(begin" " 'for-loop" -"(if(pair? lst_365)" +"(if(pair? lst_362)" "(let-values(((rhs_17)" -"(unsafe-car lst_365))" +"(unsafe-car lst_362))" "((rest_209)" -"(unsafe-cdr lst_365)))" +"(unsafe-cdr lst_362)))" "(let-values(((fold-var_337)" "(let-values(((fold-var_338)" " fold-var_336))" @@ -65340,60 +65346,72 @@ static const char *startup_source = "(values" " fold-var_339)))))" "(if(not #f)" -"(for-loop_300" +"(for-loop_299" " fold-var_337" " rest_209)" " fold-var_337)))" " fold-var_336)))))" -" for-loop_300)" +" for-loop_299)" " null" -" lst_364))))" +" lst_361))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_39 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_514) disarmed-s_8))" -"(let-values(((orig-s_47) s_514))" +"(let-values(((s_135) disarmed-s_8))" +"(let-values(((orig-s_47) s_135))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" -"(let-values(((s_393)" +"(let-values(((s_394)" +"(if(syntax?$1" +" s_135)" +"(syntax-e$1" +" s_135)" +" s_135)))" +"(if(pair? s_394)" +"(let-values(((_158_0)" +"(let-values(((s_484)" +"(car" +" s_394)))" +" s_484))" +"((_159_0" +" clause160_0" +" _161_0)" +"(let-values(((s_446)" +"(cdr" +" s_394)))" +"(let-values(((s_513)" +"(if(syntax?$1" +" s_446)" +"(syntax-e$1" +" s_446)" +" s_446)))" +"(if(pair?" +" s_513)" +"(let-values(((_162_0)" +"(let-values(((s_449)" +"(car" +" s_513)))" +" s_449))" +"((clause163_0" +" _164_0)" +"(let-values(((s_514)" +"(cdr" +" s_513)))" +"(let-values(((s_515)" "(if(syntax?$1" " s_514)" "(syntax-e$1" " s_514)" " s_514)))" -"(if(pair? s_393)" -"(let-values(((_158_0)" -"(let-values(((s_483)" -"(car" -" s_393)))" -" s_483))" -"((_159_0" -" clause160_0" -" _161_0)" -"(let-values(((s_445)" -"(cdr" -" s_393)))" -"(let-values(((s_515)" -"(if(syntax?$1" -" s_445)" -"(syntax-e$1" -" s_445)" -" s_445)))" "(if(pair?" " s_515)" -"(let-values(((_162_0)" -"(let-values(((s_448)" -"(car" -" s_515)))" -" s_448))" -"((clause163_0" -" _164_0)" +"(let-values(((clause165_0)" "(let-values(((s_516)" -"(cdr" +"(car" " s_515)))" "(let-values(((s_517)" "(if(syntax?$1" @@ -65401,21 +65419,9 @@ static const char *startup_source = "(syntax-e$1" " s_516)" " s_516)))" -"(if(pair?" -" s_517)" -"(let-values(((clause165_0)" -"(let-values(((s_518)" -"(car" -" s_517)))" -"(let-values(((s_519)" -"(if(syntax?$1" -" s_518)" -"(syntax-e$1" -" s_518)" -" s_518)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_519)))" +" s_517)))" "(if(not" " flat-s_39)" "(let-values()" @@ -65426,10 +65432,10 @@ static const char *startup_source = "(let-values()" " flat-s_39))))))" "((_166_0)" -"(let-values(((s_520)" +"(let-values(((s_518)" "(cdr" -" s_517)))" -" s_520)))" +" s_515)))" +" s_518)))" "(values" " clause165_0" " _166_0))" @@ -65463,47 +65469,47 @@ static const char *startup_source = " clause156_0))" "(let-values()" "(let-values(((ok?_40 _167_0 clause168_0 _169_0)" -"(let-values(((s_394) disarmed-s_8))" -"(let-values(((orig-s_48) s_394))" +"(let-values(((s_395) disarmed-s_8))" +"(let-values(((orig-s_48) s_395))" "(let-values(((_167_1 clause168_1 _169_1)" -"(let-values(((s_521)" +"(let-values(((s_519)" "(if(syntax?$1" -" s_394)" +" s_395)" "(syntax-e$1" -" s_394)" -" s_394)))" -"(if(pair? s_521)" +" s_395)" +" s_395)))" +"(if(pair? s_519)" "(let-values(((_170_0)" -"(let-values(((s_138)" +"(let-values(((s_520)" "(car" -" s_521)))" -" s_138))" +" s_519)))" +" s_520))" "((clause171_0" " _172_0)" -"(let-values(((s_139)" +"(let-values(((s_138)" "(cdr" -" s_521)))" -"(let-values(((s_185)" +" s_519)))" +"(let-values(((s_139)" "(if(syntax?$1" -" s_139)" +" s_138)" "(syntax-e$1" -" s_139)" -" s_139)))" +" s_138)" +" s_138)))" "(if(pair?" -" s_185)" +" s_139)" "(let-values(((clause173_0)" -"(let-values(((s_522)" +"(let-values(((s_521)" "(car" -" s_185)))" -"(let-values(((s_523)" +" s_139)))" +"(let-values(((s_522)" "(if(syntax?$1" -" s_522)" +" s_521)" "(syntax-e$1" -" s_522)" -" s_522)))" +" s_521)" +" s_521)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_523)))" +" s_522)))" "(if(not" " flat-s_40)" "(let-values()" @@ -65514,10 +65520,10 @@ static const char *startup_source = "(let-values()" " flat-s_40))))))" "((_174_0)" -"(let-values(((s_524)" +"(let-values(((s_523)" "(cdr" -" s_185)))" -" s_524)))" +" s_139)))" +" s_523)))" "(values" " clause173_0" " _174_0))" @@ -65552,23 +65558,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_366) trans-idss_2))" +"(let-values(((lst_363) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_340 lst_367)" +"(let-values()(check-list lst_363)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_340 lst_364)" "(begin" " 'for-loop" -"(if(pair? lst_367)" +"(if(pair? lst_364)" "(let-values(((ids_37)" "(unsafe-car" -" lst_367))" +" lst_364))" "((rest_210)" "(unsafe-cdr" -" lst_367)))" +" lst_364)))" "(let-values(((fold-var_341)" "(let-values(((fold-var_342)" " fold-var_340))" @@ -65577,7 +65583,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_368)" +"(let-values(((lst_365)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65585,20 +65591,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_368)))" -"((letrec-values(((for-loop_302)" +" lst_365)))" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_344" -" lst_369)" +" lst_366)" "(begin" " 'for-loop" "(if(pair?" -" lst_369)" +" lst_366)" "(let-values(((id_124)" "(unsafe-car" -" lst_369))" +" lst_366))" "((rest_211)" "(unsafe-cdr" -" lst_369)))" +" lst_366)))" "(let-values(((fold-var_345)" "(let-values(((fold-var_346)" " fold-var_344))" @@ -65629,45 +65635,45 @@ static const char *startup_source = " fold-var_347)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " fold-var_345" " rest_211)" " fold-var_345)))" " fold-var_344)))))" -" for-loop_302)" +" for-loop_301)" " null" -" lst_368)))))" +" lst_365)))))" " fold-var_342))))" "(values" " fold-var_343)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_300" " fold-var_341" " rest_210)" " fold-var_341)))" " fold-var_340)))))" -" for-loop_301)" +" for-loop_300)" " null" -" lst_366))))))" +" lst_363))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_255) val-idss_3))" +"(let-values(((lst_253) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_68)" -"(lambda(fold-var_348 lst_370)" +"(let-values()(check-list lst_253)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_348 lst_367)" "(begin" " 'for-loop" -"(if(pair? lst_370)" +"(if(pair? lst_367)" "(let-values(((ids_38)" "(unsafe-car" -" lst_370))" +" lst_367))" "((rest_212)" "(unsafe-cdr" -" lst_370)))" +" lst_367)))" "(let-values(((fold-var_349)" "(let-values(((fold-var_350)" " fold-var_348))" @@ -65676,7 +65682,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_371)" +"(let-values(((lst_368)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65684,20 +65690,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_371)))" +" lst_368)))" "((letrec-values(((for-loop_303)" "(lambda(fold-var_352" -" lst_372)" +" lst_369)" "(begin" " 'for-loop" "(if(pair?" -" lst_372)" +" lst_369)" "(let-values(((id_125)" "(unsafe-car" -" lst_372))" +" lst_369))" "((rest_213)" "(unsafe-cdr" -" lst_372)))" +" lst_369)))" "(let-values(((fold-var_353)" "(let-values(((fold-var_354)" " fold-var_352))" @@ -65735,39 +65741,39 @@ static const char *startup_source = " fold-var_352)))))" " for-loop_303)" " null" -" lst_371)))))" +" lst_368)))))" " fold-var_350))))" "(values" " fold-var_351)))))" "(if(not #f)" -"(for-loop_68" +"(for-loop_302" " fold-var_349" " rest_212)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_68)" +" for-loop_302)" " null" -" lst_255))))))" +" lst_253))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_373)" +"(let-values(((lst_370)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_373)))" +"(let-values()(check-list lst_370)))" "((letrec-values(((for-loop_304)" -"(lambda(fold-var_355 lst_374)" +"(lambda(fold-var_355 lst_371)" "(begin" " 'for-loop" -"(if(pair? lst_374)" +"(if(pair? lst_371)" "(let-values(((body_20)" "(unsafe-car" -" lst_374))" +" lst_371))" "((rest_214)" "(unsafe-cdr" -" lst_374)))" +" lst_371)))" "(let-values(((fold-var_356)" "(let-values(((fold-var_357)" " fold-var_355))" @@ -65789,7 +65795,7 @@ static const char *startup_source = " fold-var_355)))))" " for-loop_304)" " null" -" lst_373))))))" +" lst_370))))))" "(let-values((()" "(begin" "(let-values(((obs_88)" @@ -65827,41 +65833,41 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_134)" +"(let-values(((lst_132)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" -"((lst_375) trans-idss_2))" +"((lst_372) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_134)))" +"(let-values()(check-list lst_132)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_375)))" +"(let-values()(check-list lst_372)))" "((letrec-values(((for-loop_305)" "(lambda(fold-var_119" -" lst_376" -" lst_377)" +" lst_373" +" lst_374)" "(begin" " 'for-loop" -"(if(if(pair? lst_376)" -"(pair? lst_377)" +"(if(if(pair? lst_373)" +"(pair? lst_374)" " #f)" "(let-values(((rhs_20)" "(unsafe-car" -" lst_376))" +" lst_373))" "((rest_215)" "(unsafe-cdr" -" lst_376))" +" lst_373))" "((ids_39)" "(unsafe-car" -" lst_377))" +" lst_374))" "((rest_216)" "(unsafe-cdr" -" lst_377)))" +" lst_374)))" "(let-values(((fold-var_359)" "(let-values(((fold-var_123)" " fold-var_119))" @@ -65917,48 +65923,48 @@ static const char *startup_source = " fold-var_119)))))" " for-loop_305)" " null" -" lst_134" -" lst_375))))))" +" lst_132" +" lst_372))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_378) val-keyss_2)" -"((lst_258) val-idss_3))" +"(let-values(((lst_375) val-keyss_2)" +"((lst_256) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_378)))" +"(let-values()(check-list lst_375)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" +"(let-values()(check-list lst_256)))" "((letrec-values(((for-loop_306)" "(lambda(env_29" -" lst_379" -" lst_380)" +" lst_376" +" lst_377)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" -"(pair? lst_380)" +" lst_376)" +"(pair? lst_377)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_379))" +" lst_376))" "((rest_217)" "(unsafe-cdr" -" lst_379))" +" lst_376))" "((ids_40)" "(unsafe-car" -" lst_380))" +" lst_377))" "((rest_218)" "(unsafe-cdr" -" lst_380)))" +" lst_377)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_260)" +"(let-values(((lst_258)" " keys_10)" -"((lst_381)" +"((lst_378)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65966,36 +65972,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_260)))" +" lst_258)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_381)))" +" lst_378)))" "((letrec-values(((for-loop_307)" "(lambda(env_32" -" lst_382" -" lst_383)" +" lst_379" +" lst_380)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_382)" +" lst_379)" "(pair?" -" lst_383)" +" lst_380)" " #f)" "(let-values(((key_68)" "(unsafe-car" -" lst_382))" +" lst_379))" "((rest_219)" "(unsafe-cdr" -" lst_382))" +" lst_379))" "((id_126)" "(unsafe-car" -" lst_383))" +" lst_380))" "((rest_220)" "(unsafe-cdr" -" lst_383)))" +" lst_380)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -66018,8 +66024,8 @@ static const char *startup_source = " env_32)))))" " for-loop_307)" " env_31" -" lst_260" -" lst_381))))))" +" lst_258" +" lst_378))))))" "(if(not #f)" "(for-loop_306" " env_30" @@ -66029,68 +66035,68 @@ static const char *startup_source = " env_29)))))" " for-loop_306)" "(expand-context-env ctx_84)" -" lst_378" -" lst_258)))))" +" lst_375" +" lst_256)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_384) trans-keyss_0)" -"((lst_385) trans-valss_0)" -"((lst_61) trans-idss_2))" +"(let-values(((lst_381) trans-keyss_0)" +"((lst_382) trans-valss_0)" +"((lst_60) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_384)))" +"(let-values()(check-list lst_381)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_385)))" +"(let-values()(check-list lst_382)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_61)))" +"(let-values()(check-list lst_60)))" "((letrec-values(((for-loop_84)" "(lambda(env_36" -" lst_62" -" lst_386" -" lst_387)" +" lst_61" +" lst_383" +" lst_384)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_62)" +" lst_61)" "(if(pair?" -" lst_386)" +" lst_383)" "(pair?" -" lst_387)" +" lst_384)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_62))" +" lst_61))" "((rest_221)" "(unsafe-cdr" -" lst_62))" +" lst_61))" "((vals_9)" "(unsafe-car" -" lst_386))" +" lst_383))" "((rest_222)" "(unsafe-cdr" -" lst_386))" +" lst_383))" "((ids_41)" "(unsafe-car" -" lst_387))" +" lst_384))" "((rest_223)" "(unsafe-cdr" -" lst_387)))" +" lst_384)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_388)" +"(let-values(((lst_385)" " keys_11)" -"((lst_389)" +"((lst_386)" " vals_9)" -"((lst_390)" +"((lst_387)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66098,52 +66104,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_388)))" +" lst_385)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_389)))" +" lst_386)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_390)))" +" lst_387)))" "((letrec-values(((for-loop_308)" "(lambda(env_40" -" lst_66" -" lst_391" -" lst_392)" +" lst_65" +" lst_388" +" lst_389)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_66)" +" lst_65)" "(if(pair?" -" lst_391)" +" lst_388)" "(pair?" -" lst_392)" +" lst_389)" " #f)" " #f)" "(let-values(((key_96)" "(unsafe-car" -" lst_66))" +" lst_65))" "((rest_224)" "(unsafe-cdr" -" lst_66))" +" lst_65))" "((val_86)" "(unsafe-car" -" lst_391))" +" lst_388))" "((rest_225)" "(unsafe-cdr" -" lst_391))" +" lst_388))" "((id_127)" "(unsafe-car" -" lst_392))" +" lst_389))" "((rest_30)" "(unsafe-cdr" -" lst_392)))" +" lst_389)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -66172,9 +66178,9 @@ static const char *startup_source = " env_40)))))" " for-loop_308)" " env_38" -" lst_388" -" lst_389" -" lst_390))))))" +" lst_385" +" lst_386" +" lst_387))))))" "(values" " env_39)))))" "(if(not #f)" @@ -66187,17 +66193,17 @@ static const char *startup_source = " env_36)))))" " for-loop_84)" " rec-val-env_0" -" lst_384" -" lst_385" -" lst_61)))))" +" lst_381" +" lst_382" +" lst_60)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_259) expr-ctx_0))" -"(let-values(((the-struct_93) v_259))" +"(let-values(((v_260) expr-ctx_0))" +"(let-values(((the-struct_93) v_260))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((env185_0)" @@ -66222,7 +66228,7 @@ static const char *startup_source = " sc_37))" "((inner189_0)" "(root-expand-context/outer-inner" -" v_259)))" +" v_260)))" "(expand-context/outer1.1" " inner189_0" "(root-expand-context/outer-post-expansion-scope" @@ -66278,27 +66284,27 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_84)" "(reverse$1" -"(let-values(((lst_393)" +"(let-values(((lst_390)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_393)))" +"(check-list lst_390)))" "((letrec-values(((for-loop_309)" "(lambda(fold-var_361" -" lst_394)" +" lst_391)" "(begin" " 'for-loop" "(if(pair?" -" lst_394)" +" lst_391)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_394))" +" lst_391))" "((rest_226)" "(unsafe-cdr" -" lst_394)))" +" lst_391)))" "(let-values(((fold-var_362)" "(let-values(((fold-var_363)" " fold-var_361))" @@ -66307,7 +66313,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_262)" +"(let-values(((lst_260)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66315,20 +66321,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_262)))" -"((letrec-values(((for-loop_226)" +" lst_260)))" +"((letrec-values(((for-loop_225)" "(lambda(fold-var_365" -" lst_122)" +" lst_120)" "(begin" " 'for-loop" "(if(pair?" -" lst_122)" +" lst_120)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_122))" +" lst_120))" "((rest_59)" "(unsafe-cdr" -" lst_122)))" +" lst_120)))" "(let-values(((fold-var_366)" "(let-values(((fold-var_367)" " fold-var_365))" @@ -66347,14 +66353,14 @@ static const char *startup_source = " fold-var_368)))))" "(if(not" " #f)" -"(for-loop_226" +"(for-loop_225" " fold-var_366" " rest_59)" " fold-var_366)))" " fold-var_365)))))" -" for-loop_226)" +" for-loop_225)" " null" -" lst_262)))))" +" lst_260)))))" " fold-var_363))))" "(values" " fold-var_364)))))" @@ -66367,7 +66373,7 @@ static const char *startup_source = " fold-var_361)))))" " for-loop_309)" " null" -" lst_393))))" +" lst_390))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -66410,17 +66416,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_260)" +"(let-values(((v_261)" " rec-ctx_0))" "(let-values(((the-struct_94)" -" v_260))" +" v_261))" "(if(expand-context/outer?" " the-struct_94)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" "(root-expand-context/outer-inner" -" v_260)))" +" v_261)))" "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" @@ -66478,13 +66484,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_395)" +"(let-values(((lst_392)" " val-name-idss_0)" -"((lst_142)" +"((lst_140)" " val-keyss_2)" -"((lst_396)" +"((lst_393)" " val-rhss_3)" -"((lst_397)" +"((lst_394)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66492,68 +66498,68 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_395)))" +" lst_392)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_142)))" +" lst_140)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_396)))" +" lst_393)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_397)))" +" lst_394)))" "((letrec-values(((for-loop_310)" "(lambda(fold-var_137" -" lst_398" -" lst_399" -" lst_400" -" lst_401)" +" lst_395" +" lst_396" +" lst_397" +" lst_398)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_398)" +" lst_395)" "(if(pair?" -" lst_399)" +" lst_396)" "(if(pair?" -" lst_400)" +" lst_397)" "(pair?" -" lst_401)" +" lst_398)" " #f)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_398))" +" lst_395))" "((rest_227)" "(unsafe-cdr" -" lst_398))" +" lst_395))" "((keys_12)" "(unsafe-car" -" lst_399))" +" lst_396))" "((rest_228)" "(unsafe-cdr" -" lst_399))" +" lst_396))" "((rhs_21)" "(unsafe-car" -" lst_400))" +" lst_397))" "((rest_31)" "(unsafe-cdr" -" lst_400))" +" lst_397))" "((clause_4)" "(unsafe-car" -" lst_401))" +" lst_398))" "((rest_229)" "(unsafe-cdr" -" lst_401)))" +" lst_398)))" "(let-values(((fold-var_369)" "(let-values(((fold-var_370)" " fold-var_137))" @@ -66619,10 +66625,10 @@ static const char *startup_source = " fold-var_137)))))" " for-loop_310)" " null" -" lst_395" -" lst_142" -" lst_396" -" lst_397))))))" +" lst_392" +" lst_140" +" lst_393" +" lst_394))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66703,23 +66709,23 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_402) val-idss_4)((lst_403) val-rhss_4))" +"(let-values(((lst_399) val-idss_4)((lst_400) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_402)))" +"(let-values()(check-list lst_399)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" +"(let-values()(check-list lst_400)))" "((letrec-values(((for-loop_311)" -"(lambda(fold-var_372 lst_404 lst_405)" +"(lambda(fold-var_372 lst_401 lst_402)" "(begin" " 'for-loop" -"(if(if(pair? lst_404)(pair? lst_405) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_404))" -"((rest_230)(unsafe-cdr lst_404))" -"((val-rhs_11)(unsafe-car lst_405))" -"((rest_231)(unsafe-cdr lst_405)))" +"(if(if(pair? lst_401)(pair? lst_402) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_401))" +"((rest_230)(unsafe-cdr lst_401))" +"((val-rhs_11)(unsafe-car lst_402))" +"((rest_231)(unsafe-cdr lst_402)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_51)" @@ -66737,8 +66743,8 @@ static const char *startup_source = " fold-var_372)))))" " for-loop_311)" " null" -" lst_402" -" lst_403))))" +" lst_399" +" lst_400))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_95" @@ -66747,23 +66753,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_72) trans-idss_3)((lst_406) trans-rhss_0))" +"(let-values(((lst_71) trans-idss_3)((lst_403) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_72)))" +"(let-values()(check-list lst_71)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_406)))" +"(let-values()(check-list lst_403)))" "((letrec-values(((for-loop_312)" -"(lambda(fold-var_52 lst_407 lst_408)" +"(lambda(fold-var_52 lst_404 lst_405)" "(begin" " 'for-loop" -"(if(if(pair? lst_407)(pair? lst_408) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_407))" -"((rest_232)(unsafe-cdr lst_407))" -"((trans-rhs_5)(unsafe-car lst_408))" -"((rest_233)(unsafe-cdr lst_408)))" +"(if(if(pair? lst_404)(pair? lst_405) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_404))" +"((rest_232)(unsafe-cdr lst_404))" +"((trans-rhs_5)(unsafe-car lst_405))" +"((rest_233)(unsafe-cdr lst_405)))" "(let-values(((fold-var_375)" "(let-values(((fold-var_376) fold-var_52))" "(let-values(((fold-var_56)" @@ -66781,8 +66787,8 @@ static const char *startup_source = " fold-var_52)))))" " for-loop_312)" " null" -" lst_72" -" lst_406))))" +" lst_71" +" lst_403))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -66817,7 +66823,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_525 ctx_85)" +"(lambda(s_524 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_97)(expand-context-observer ctx_85)))" @@ -66825,22 +66831,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_525)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_524)))" "(let-values(((ok?_41 #%stratified-body223_0 body224_0)" -"(let-values(((s_526) disarmed-s_9))" -"(let-values(((orig-s_49) s_526))" +"(let-values(((s_525) disarmed-s_9))" +"(let-values(((orig-s_49) s_525))" "(let-values(((#%stratified-body223_1 body224_1)" -"(let-values(((s_527)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" -"(if(pair? s_527)" +"(let-values(((s_526)(if(syntax?$1 s_525)(syntax-e$1 s_525) s_525)))" +"(if(pair? s_526)" "(let-values(((#%stratified-body225_0)" -"(let-values(((s_528)(car s_527))) s_528))" +"(let-values(((s_527)(car s_526))) s_527))" "((body226_0)" -"(let-values(((s_529)(cdr s_527)))" -"(let-values(((s_530)" -"(if(syntax?$1 s_529)" -"(syntax-e$1 s_529)" -" s_529)))" -"(let-values(((flat-s_41)(to-syntax-list.1 s_530)))" +"(let-values(((s_528)(cdr s_526)))" +"(let-values(((s_529)" +"(if(syntax?$1 s_528)" +"(syntax-e$1 s_528)" +" s_528)))" +"(let-values(((flat-s_41)(to-syntax-list.1 s_529)))" "(if(not flat-s_41)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -66852,7 +66858,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx227_0) ctx_85)((s228_0) s_525)((temp229_1) #t))" +"(let-values(((ctx227_0) ctx_85)((s228_0) s_524)((temp229_1) #t))" "(keep-as-needed85.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" @@ -66871,21 +66877,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_531 ctx_86)" +"(lambda(s_530 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_98)(expand-context-observer ctx_86)))" "(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_531)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_530)))" "(let-values(((ok?_42 #%datum236_0 datum237_0)" -"(let-values(((s_532) disarmed-s_10))" -"(let-values(((orig-s_50) s_532))" +"(let-values(((s_531) disarmed-s_10))" +"(let-values(((orig-s_50) s_531))" "(let-values(((#%datum236_1 datum237_1)" -"(let-values(((s_533)(if(syntax?$1 s_532)(syntax-e$1 s_532) s_532)))" -"(if(pair? s_533)" -"(let-values(((#%datum238_0)(let-values(((s_534)(car s_533))) s_534))" -"((datum239_0)(let-values(((s_535)(cdr s_533))) s_535)))" +"(let-values(((s_532)(if(syntax?$1 s_531)(syntax-e$1 s_531) s_531)))" +"(if(pair? s_532)" +"(let-values(((#%datum238_0)(let-values(((s_533)(car s_532))) s_533))" +"((datum239_0)(let-values(((s_534)(cdr s_532))) s_534)))" "(values #%datum238_0 datum239_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t #%datum236_1 datum237_1))))))" @@ -66899,33 +66905,33 @@ static const char *startup_source = "(values))))" "(let-values(((phase_149)(expand-context-phase ctx_86)))" "(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_531)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_531)((temp241_1)(list(core-id 'quote phase_149) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_530)(syntax->datum$1 datum_2))" +"(let-values(((s240_0) s_530)((temp241_1)(list(core-id 'quote phase_149) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_536 ctx_87)" +"(lambda(s_535 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_99)(expand-context-observer ctx_87)))" "(if obs_99(let-values()(let-values()(call-expand-observe obs_99 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_536)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_535)))" "(let-values(((ok?_43 #%app242_0 e243_0)" -"(let-values(((s_537) disarmed-s_11))" -"(let-values(((orig-s_51) s_537))" +"(let-values(((s_536) disarmed-s_11))" +"(let-values(((orig-s_51) s_536))" "(let-values(((#%app242_1 e243_1)" -"(let-values(((s_538)(if(syntax?$1 s_537)(syntax-e$1 s_537) s_537)))" -"(if(pair? s_538)" -"(let-values(((#%app244_0)(let-values(((s_539)(car s_538))) s_539))" +"(let-values(((s_537)(if(syntax?$1 s_536)(syntax-e$1 s_536) s_536)))" +"(if(pair? s_537)" +"(let-values(((#%app244_0)(let-values(((s_538)(car s_537))) s_538))" "((e245_0)" -"(let-values(((s_540)(cdr s_538)))" -"(let-values(((s_541)" -"(if(syntax?$1 s_540)" -"(syntax-e$1 s_540)" -" s_540)))" -"(let-values(((flat-s_42)(to-syntax-list.1 s_541)))" +"(let-values(((s_539)(cdr s_537)))" +"(let-values(((s_540)" +"(if(syntax?$1 s_539)" +"(syntax-e$1 s_539)" +" s_539)))" +"(let-values(((flat-s_42)(to-syntax-list.1 s_540)))" "(if(not flat-s_42)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51))" @@ -66938,14 +66944,14 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_150)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_536) null)" -"(let-values(((s246_0) s_536)((temp247_0)(list(core-id 'quote phase_150) null)))" +"(parsed-quote14.1(keep-properties-only~ s_535) null)" +"(let-values(((s246_0) s_535)((temp247_0)(list(core-id 'quote phase_150) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx248_0) ctx_87)" -"((s249_0) s_536)" +"((s249_0) s_535)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" "(keep-as-needed85.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -66975,7 +66981,7 @@ static const char *startup_source = "(call-expand-observe" " obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_536))" +"(datum->syntax$1 #f es_3 s_535))" "(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" @@ -66985,19 +66991,19 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_409) rest-es_0))" +"(let-values(((lst_406) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_409)))" +"(let-values()(check-list lst_406)))" "((letrec-values(((for-loop_313)" -"(lambda(fold-var_377 lst_410)" +"(lambda(fold-var_377 lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_410)" -"(let-values(((e_92)(unsafe-car lst_410))" +"(if(pair? lst_407)" +"(let-values(((e_92)(unsafe-car lst_407))" "((rest_234)" -"(unsafe-cdr lst_410)))" +"(unsafe-cdr lst_407)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379)" " fold-var_377))" @@ -67036,12 +67042,12 @@ static const char *startup_source = " fold-var_377)))))" " for-loop_313)" " null" -" lst_409))))))" +" lst_406))))))" "(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_372) rebuild-prefixless_0))" -"(if or-part_372 or-part_372 rebuild-s_8))" +"(let-values(((or-part_373) rebuild-prefixless_0))" +"(if or-part_373 or-part_373 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -67078,25 +67084,25 @@ static const char *startup_source = "(let-values(((s_271)(syntax-disarm$1 s_264)))" "(let-values(((orig-s_52) s_271))" "(let-values(((quote262_1 datum263_1)" -"(let-values(((s_542)(if(syntax?$1 s_271)(syntax-e$1 s_271) s_271)))" -"(if(pair? s_542)" -"(let-values(((quote264_0)(let-values(((s_543)(car s_542))) s_543))" +"(let-values(((s_541)(if(syntax?$1 s_271)(syntax-e$1 s_271) s_271)))" +"(if(pair? s_541)" +"(let-values(((quote264_0)(let-values(((s_542)(car s_541))) s_542))" "((datum265_0)" -"(let-values(((s_544)(cdr s_542)))" -"(let-values(((s_545)" -"(if(syntax?$1 s_544)" -"(syntax-e$1 s_544)" -" s_544)))" -"(if(pair? s_545)" +"(let-values(((s_543)(cdr s_541)))" +"(let-values(((s_544)" +"(if(syntax?$1 s_543)" +"(syntax-e$1 s_543)" +" s_543)))" +"(if(pair? s_544)" "(let-values(((datum266_0)" -"(let-values(((s_546)(car s_545))) s_546))" +"(let-values(((s_545)(car s_544))) s_545))" "(()" -"(let-values(((s_547)(cdr s_545)))" -"(let-values(((s_548)" -"(if(syntax?$1 s_547)" -"(syntax-e$1 s_547)" -" s_547)))" -"(if(null? s_548)" +"(let-values(((s_546)(cdr s_544)))" +"(let-values(((s_547)" +"(if(syntax?$1 s_546)" +"(syntax-e$1 s_546)" +" s_546)))" +"(if(null? s_547)" "(values)" "(raise-syntax-error$1" " #f" @@ -67113,7 +67119,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_549 ctx_89)" +"(lambda(s_548 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer ctx_89)))" @@ -67121,27 +67127,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_549)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_548)))" "(let-values(((ok?_45 quote-syntax267_0 datum268_0)" -"(let-values(((s_550) disarmed-s_12))" -"(if(let-values(((s_551)(if(syntax?$1 s_550)(syntax-e$1 s_550) s_550)))" -"(if(pair? s_551)" -"(if(let-values(((s_279)(car s_551))) #t)" -"(let-values(((s_280)(cdr s_551)))" +"(let-values(((s_549) disarmed-s_12))" +"(if(let-values(((s_550)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" +"(if(pair? s_550)" +"(if(let-values(((s_279)(car s_550))) #t)" +"(let-values(((s_280)(cdr s_550)))" "(let-values(((s_281)(if(syntax?$1 s_280)(syntax-e$1 s_280) s_280)))" "(if(pair? s_281)" -"(if(let-values(((s_552)(car s_281))) #t)" -"(let-values(((s_553)(cdr s_281)))" -"(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)))" -"(let-values(((s_556)" -"(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" -"(eq? '#:local s_556)))" -"(let-values(((s_557)(cdr s_554)))" -"(let-values(((s_558)" -"(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" -"(null? s_558)))" +"(if(let-values(((s_551)(car s_281))) #t)" +"(let-values(((s_552)(cdr s_281)))" +"(let-values(((s_553)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" +"(if(pair? s_553)" +"(if(let-values(((s_554)(car s_553)))" +"(let-values(((s_555)" +"(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" +"(eq? '#:local s_555)))" +"(let-values(((s_556)(cdr s_553)))" +"(let-values(((s_557)" +"(if(syntax?$1 s_556)(syntax-e$1 s_556) s_556)))" +"(null? s_557)))" " #f)" " #f)))" " #f)" @@ -67150,38 +67156,38 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax267_1 datum268_1)" -"(let-values(((s_559)(if(syntax?$1 s_550)(syntax-e$1 s_550) s_550)))" +"(let-values(((s_558)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" "(let-values(((quote-syntax269_0)" -"(let-values(((s_560)(car s_559))) s_560))" +"(let-values(((s_559)(car s_558))) s_559))" "((datum270_0)" -"(let-values(((s_282)(cdr s_559)))" -"(let-values(((s_561)" +"(let-values(((s_282)(cdr s_558)))" +"(let-values(((s_560)" "(if(syntax?$1 s_282)" "(syntax-e$1 s_282)" " s_282)))" "(let-values(((datum271_0)" -"(let-values(((s_562)(car s_561))) s_562))" +"(let-values(((s_561)(car s_560))) s_561))" "(()" -"(let-values(((s_283)(cdr s_561)))" -"(let-values(((s_563)" +"(let-values(((s_283)(cdr s_560)))" +"(let-values(((s_562)" "(if(syntax?$1 s_283)" "(syntax-e$1 s_283)" " s_283)))" "(let-values((()" -"(let-values(((s_564)" +"(let-values(((s_563)" "(car" -" s_563)))" +" s_562)))" "(let-values(((s_284)" "(if(syntax?$1" -" s_564)" +" s_563)" "(syntax-e$1" -" s_564)" -" s_564)))" +" s_563)" +" s_563)))" "(values))))" "(()" "(let-values(((s_285)" "(cdr" -" s_563)))" +" s_562)))" "(let-values(((s_286)" "(if(syntax?$1" " s_285)" @@ -67195,31 +67201,31 @@ static const char *startup_source = "(values #t quote-syntax267_1 datum268_1)))" "(values #f #f #f)))))" "(let-values(((ok?_46 quote-syntax272_0 datum273_0)" -"(let-values(((s_565) disarmed-s_12))" +"(let-values(((s_564) disarmed-s_12))" "(if(if(not ok?_45) #t #f)" -"(let-values(((orig-s_53) s_565))" +"(let-values(((orig-s_53) s_564))" "(let-values(((quote-syntax272_1 datum273_1)" -"(let-values(((s_566)(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" -"(if(pair? s_566)" +"(let-values(((s_565)(if(syntax?$1 s_564)(syntax-e$1 s_564) s_564)))" +"(if(pair? s_565)" "(let-values(((quote-syntax274_0)" -"(let-values(((s_567)(car s_566))) s_567))" +"(let-values(((s_566)(car s_565))) s_566))" "((datum275_0)" -"(let-values(((s_568)(cdr s_566)))" -"(let-values(((s_569)" -"(if(syntax?$1 s_568)" -"(syntax-e$1 s_568)" -" s_568)))" -"(if(pair? s_569)" +"(let-values(((s_567)(cdr s_565)))" +"(let-values(((s_568)" +"(if(syntax?$1 s_567)" +"(syntax-e$1 s_567)" +" s_567)))" +"(if(pair? s_568)" "(let-values(((datum276_0)" -"(let-values(((s_570)(car s_569)))" -" s_570))" +"(let-values(((s_569)(car s_568)))" +" s_569))" "(()" -"(let-values(((s_571)(cdr s_569)))" -"(let-values(((s_572)" -"(if(syntax?$1 s_571)" -"(syntax-e$1 s_571)" -" s_571)))" -"(if(null? s_572)" +"(let-values(((s_570)(cdr s_568)))" +"(let-values(((s_571)" +"(if(syntax?$1 s_570)" +"(syntax-e$1 s_570)" +" s_570)))" +"(if(null? s_571)" "(values)" "(raise-syntax-error$1" " #f" @@ -67241,52 +67247,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_47 _277_0 _278_0 kw279_0)" -"(let-values(((s_573) disarmed-s_12))" -"(let-values(((orig-s_54) s_573))" +"(let-values(((s_572) disarmed-s_12))" +"(let-values(((orig-s_54) s_572))" "(let-values(((_277_1 _278_1 kw279_1)" -"(let-values(((s_574)" -"(if(syntax?$1 s_573)(syntax-e$1 s_573) s_573)))" -"(if(pair? s_574)" +"(let-values(((s_573)" +"(if(syntax?$1 s_572)(syntax-e$1 s_572) s_572)))" +"(if(pair? s_573)" "(let-values(((_280_0)" -"(let-values(((s_575)(car s_574))) s_575))" +"(let-values(((s_574)(car s_573))) s_574))" "((_281_0 kw282_0)" -"(let-values(((s_576)(cdr s_574)))" -"(let-values(((s_577)" -"(if(syntax?$1 s_576)" -"(syntax-e$1 s_576)" -" s_576)))" -"(if(pair? s_577)" +"(let-values(((s_575)(cdr s_573)))" +"(let-values(((s_576)" +"(if(syntax?$1 s_575)" +"(syntax-e$1 s_575)" +" s_575)))" +"(if(pair? s_576)" "(let-values(((_283_0)" -"(let-values(((s_578)" -"(car s_577)))" -" s_578))" +"(let-values(((s_577)" +"(car s_576)))" +" s_577))" "((kw284_0)" +"(let-values(((s_578)" +"(cdr s_576)))" "(let-values(((s_579)" -"(cdr s_577)))" -"(let-values(((s_580)" "(if(syntax?$1" -" s_579)" +" s_578)" "(syntax-e$1" -" s_579)" -" s_579)))" -"(if(pair? s_580)" +" s_578)" +" s_578)))" +"(if(pair? s_579)" "(let-values(((kw285_0)" -"(let-values(((s_581)" +"(let-values(((s_580)" "(car" -" s_580)))" -" s_581))" +" s_579)))" +" s_580))" "(()" -"(let-values(((s_582)" +"(let-values(((s_581)" "(cdr" -" s_580)))" -"(let-values(((s_583)" +" s_579)))" +"(let-values(((s_582)" "(if(syntax?$1" -" s_582)" +" s_581)" "(syntax-e$1" -" s_582)" -" s_582)))" +" s_581)" +" s_581)))" "(if(null?" -" s_583)" +" s_582)" "(values)" "(raise-syntax-error$1" " #f" @@ -67306,42 +67312,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t _277_1 _278_1 kw279_1))))))" "(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_549) datum268_0)" -"(let-values(((s286_0) s_549)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum268_0)" +"(let-values(((s286_0) s_548)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" "(rebuild5.1 #f #f s286_0 temp287_0))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_89))))" "(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_549) datum-s_0)" -"(let-values(((s288_0) s_549)((temp289_0)(list quote-syntax272_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum-s_0)" +"(let-values(((s288_0) s_548)((temp289_0)(list quote-syntax272_0 datum-s_0)))" "(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_584 ctx_90)" +"(lambda(s_583 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_90)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_584)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_583)))" "(let-values(((ok?_48 _290_0 _291_0 _292_0)" -"(let-values(((s_585) disarmed-s_13))" -"(if(let-values(((s_586)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" -"(if(pair? s_586)" -"(if(let-values(((s_587)(car s_586))) #t)" -"(let-values(((s_588)(cdr s_586)))" -"(let-values(((s_589)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" -"(if(pair? s_589)" -"(if(let-values(((s_590)(car s_589))) #t)" -"(let-values(((s_591)(cdr s_589)))" -"(let-values(((s_592)(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))" -"(if(pair? s_592)" -"(if(let-values(((s_593)(car s_592))) #t)" -"(let-values(((s_594)(cdr s_592)))" -"(let-values(((s_595)" -"(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" -"(null? s_595)))" +"(let-values(((s_584) disarmed-s_13))" +"(if(let-values(((s_585)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))" +"(if(pair? s_585)" +"(if(let-values(((s_586)(car s_585))) #t)" +"(let-values(((s_587)(cdr s_585)))" +"(let-values(((s_588)(if(syntax?$1 s_587)(syntax-e$1 s_587) s_587)))" +"(if(pair? s_588)" +"(if(let-values(((s_589)(car s_588))) #t)" +"(let-values(((s_590)(cdr s_588)))" +"(let-values(((s_591)(if(syntax?$1 s_590)(syntax-e$1 s_590) s_590)))" +"(if(pair? s_591)" +"(if(let-values(((s_592)(car s_591))) #t)" +"(let-values(((s_593)(cdr s_591)))" +"(let-values(((s_594)" +"(if(syntax?$1 s_593)(syntax-e$1 s_593) s_593)))" +"(null? s_594)))" " #f)" " #f)))" " #f)" @@ -67350,37 +67356,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_290_1 _291_1 _292_1)" -"(let-values(((s_596)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" -"(let-values(((_293_0)(let-values(((s_597)(car s_596))) s_597))" +"(let-values(((s_595)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))" +"(let-values(((_293_0)(let-values(((s_596)(car s_595))) s_596))" "((_294_0 _295_0)" -"(let-values(((s_598)(cdr s_596)))" -"(let-values(((s_599)" -"(if(syntax?$1 s_598)" -"(syntax-e$1 s_598)" -" s_598)))" +"(let-values(((s_597)(cdr s_595)))" +"(let-values(((s_598)" +"(if(syntax?$1 s_597)" +"(syntax-e$1 s_597)" +" s_597)))" "(let-values(((_296_0)" -"(let-values(((s_600)(car s_599))) s_600))" +"(let-values(((s_599)(car s_598))) s_599))" "((_297_0)" -"(let-values(((s_601)(cdr s_599)))" -"(let-values(((s_602)" -"(if(syntax?$1 s_601)" -"(syntax-e$1 s_601)" -" s_601)))" +"(let-values(((s_600)(cdr s_598)))" +"(let-values(((s_601)" +"(if(syntax?$1 s_600)" +"(syntax-e$1 s_600)" +" s_600)))" "(let-values(((_298_0)" -"(let-values(((s_603)" +"(let-values(((s_602)" "(car" -" s_602)))" -" s_603))" +" s_601)))" +" s_602))" "(()" -"(let-values(((s_604)" +"(let-values(((s_603)" "(cdr" -" s_602)))" -"(let-values(((s_605)" +" s_601)))" +"(let-values(((s_604)" "(if(syntax?$1" -" s_604)" +" s_603)" "(syntax-e$1" -" s_604)" -" s_604)))" +" s_603)" +" s_603)))" "(values)))))" "(values _298_0))))))" "(values _296_0 _297_0))))))" @@ -67390,67 +67396,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_48" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_584))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_583))" "(void))" "(values))))" "(let-values(((ok?_49 if299_0 tst300_0 thn301_0 els302_0)" -"(let-values(((s_606) disarmed-s_13))" -"(let-values(((orig-s_55) s_606))" +"(let-values(((s_605) disarmed-s_13))" +"(let-values(((orig-s_55) s_605))" "(let-values(((if299_1 tst300_1 thn301_1 els302_1)" -"(let-values(((s_607)(if(syntax?$1 s_606)(syntax-e$1 s_606) s_606)))" -"(if(pair? s_607)" -"(let-values(((if303_0)(let-values(((s_608)(car s_607))) s_608))" +"(let-values(((s_606)(if(syntax?$1 s_605)(syntax-e$1 s_605) s_605)))" +"(if(pair? s_606)" +"(let-values(((if303_0)(let-values(((s_607)(car s_606))) s_607))" "((tst304_0 thn305_0 els306_0)" -"(let-values(((s_609)(cdr s_607)))" -"(let-values(((s_610)" -"(if(syntax?$1 s_609)" -"(syntax-e$1 s_609)" -" s_609)))" -"(if(pair? s_610)" +"(let-values(((s_608)(cdr s_606)))" +"(let-values(((s_609)" +"(if(syntax?$1 s_608)" +"(syntax-e$1 s_608)" +" s_608)))" +"(if(pair? s_609)" "(let-values(((tst307_0)" -"(let-values(((s_611)(car s_610)))" -" s_611))" +"(let-values(((s_610)(car s_609)))" +" s_610))" "((thn308_0 els309_0)" -"(let-values(((s_612)(cdr s_610)))" -"(let-values(((s_613)" -"(if(syntax?$1 s_612)" -"(syntax-e$1 s_612)" -" s_612)))" -"(if(pair? s_613)" +"(let-values(((s_611)(cdr s_609)))" +"(let-values(((s_612)" +"(if(syntax?$1 s_611)" +"(syntax-e$1 s_611)" +" s_611)))" +"(if(pair? s_612)" "(let-values(((thn310_0)" -"(let-values(((s_614)" +"(let-values(((s_613)" "(car" -" s_613)))" -" s_614))" +" s_612)))" +" s_613))" "((els311_0)" +"(let-values(((s_614)" +"(cdr" +" s_612)))" "(let-values(((s_615)" -"(cdr" -" s_613)))" -"(let-values(((s_616)" "(if(syntax?$1" -" s_615)" +" s_614)" "(syntax-e$1" -" s_615)" -" s_615)))" +" s_614)" +" s_614)))" "(if(pair?" -" s_616)" +" s_615)" "(let-values(((els312_0)" -"(let-values(((s_617)" +"(let-values(((s_616)" "(car" -" s_616)))" -" s_617))" +" s_615)))" +" s_616))" "(()" -"(let-values(((s_618)" +"(let-values(((s_617)" "(cdr" -" s_616)))" -"(let-values(((s_619)" +" s_615)))" +"(let-values(((s_618)" "(if(syntax?$1" -" s_618)" +" s_617)" "(syntax-e$1" -" s_618)" -" s_618)))" +" s_617)" +" s_617)))" "(if(null?" -" s_619)" +" s_618)" "(values)" "(raise-syntax-error$1" " #f" @@ -67480,7 +67486,7 @@ static const char *startup_source = "(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_90))" "(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx315_0) ctx_90)((s316_0) s_584))" +"(let-values(((ctx315_0) ctx_90)((s316_0) s_583))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx315_0 s316_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))" @@ -67513,7 +67519,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_620 ctx_91)" +"(lambda(s_619 ctx_91)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_91)))" @@ -67521,65 +67527,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_620)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_619)))" "(let-values(((ok?_50 with-continuation-mark325_0 key326_0 val327_0 body328_0)" -"(let-values(((s_621) disarmed-s_14))" -"(let-values(((orig-s_56) s_621))" +"(let-values(((s_620) disarmed-s_14))" +"(let-values(((orig-s_56) s_620))" "(let-values(((with-continuation-mark325_1 key326_1 val327_1 body328_1)" -"(let-values(((s_622)(if(syntax?$1 s_621)(syntax-e$1 s_621) s_621)))" -"(if(pair? s_622)" +"(let-values(((s_621)(if(syntax?$1 s_620)(syntax-e$1 s_620) s_620)))" +"(if(pair? s_621)" "(let-values(((with-continuation-mark329_0)" -"(let-values(((s_623)(car s_622))) s_623))" +"(let-values(((s_622)(car s_621))) s_622))" "((key330_0 val331_0 body332_0)" -"(let-values(((s_624)(cdr s_622)))" -"(let-values(((s_625)" -"(if(syntax?$1 s_624)" -"(syntax-e$1 s_624)" -" s_624)))" -"(if(pair? s_625)" +"(let-values(((s_623)(cdr s_621)))" +"(let-values(((s_624)" +"(if(syntax?$1 s_623)" +"(syntax-e$1 s_623)" +" s_623)))" +"(if(pair? s_624)" "(let-values(((key333_0)" -"(let-values(((s_626)(car s_625)))" -" s_626))" +"(let-values(((s_625)(car s_624)))" +" s_625))" "((val334_0 body335_0)" -"(let-values(((s_627)(cdr s_625)))" -"(let-values(((s_628)" -"(if(syntax?$1 s_627)" -"(syntax-e$1 s_627)" -" s_627)))" -"(if(pair? s_628)" +"(let-values(((s_626)(cdr s_624)))" +"(let-values(((s_627)" +"(if(syntax?$1 s_626)" +"(syntax-e$1 s_626)" +" s_626)))" +"(if(pair? s_627)" "(let-values(((val336_0)" -"(let-values(((s_629)" +"(let-values(((s_628)" "(car" -" s_628)))" -" s_629))" +" s_627)))" +" s_628))" "((body337_0)" +"(let-values(((s_629)" +"(cdr" +" s_627)))" "(let-values(((s_630)" -"(cdr" -" s_628)))" -"(let-values(((s_631)" "(if(syntax?$1" -" s_630)" +" s_629)" "(syntax-e$1" -" s_630)" -" s_630)))" -"(if(pair? s_631)" +" s_629)" +" s_629)))" +"(if(pair? s_630)" "(let-values(((body338_0)" -"(let-values(((s_632)" +"(let-values(((s_631)" "(car" -" s_631)))" -" s_632))" +" s_630)))" +" s_631))" "(()" -"(let-values(((s_633)" +"(let-values(((s_632)" "(cdr" -" s_631)))" -"(let-values(((s_634)" +" s_630)))" +"(let-values(((s_633)" "(if(syntax?$1" -" s_633)" +" s_632)" "(syntax-e$1" -" s_633)" -" s_633)))" +" s_632)" +" s_632)))" "(if(null?" -" s_634)" +" s_633)" "(values)" "(raise-syntax-error$1" " #f" @@ -67603,7 +67609,7 @@ static const char *startup_source = "(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx339_0) ctx_91)((s340_0) s_620))" +"(let-values(((ctx339_0) ctx_91)((s340_0) s_619))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx339_0 s340_0))))" "(let-values(((exp-key_0)" "(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))" @@ -67646,7 +67652,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_635 ctx_92)" +"(lambda(s_634 ctx_92)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_92)))" @@ -67654,24 +67660,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_635)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_634)))" "(let-values(((ok?_51 begin351_0 e352_0)" -"(let-values(((s_636) disarmed-s_15))" -"(let-values(((orig-s_57) s_636))" +"(let-values(((s_635) disarmed-s_15))" +"(let-values(((orig-s_57) s_635))" "(let-values(((begin351_1 e352_1)" -"(let-values(((s_637)" -"(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" -"(if(pair? s_637)" +"(let-values(((s_636)" +"(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" +"(if(pair? s_636)" "(let-values(((begin353_0)" -"(let-values(((s_638)(car s_637))) s_638))" +"(let-values(((s_637)(car s_636))) s_637))" "((e354_0)" -"(let-values(((s_639)(cdr s_637)))" -"(let-values(((s_640)" -"(if(syntax?$1 s_639)" -"(syntax-e$1 s_639)" -" s_639)))" +"(let-values(((s_638)(cdr s_636)))" +"(let-values(((s_639)" +"(if(syntax?$1 s_638)" +"(syntax-e$1 s_638)" +" s_638)))" "(let-values(((flat-s_43)" -"(to-syntax-list.1 s_640)))" +"(to-syntax-list.1 s_639)))" "(if(not flat-s_43)" "(let-values()" "(raise-syntax-error$1" @@ -67693,7 +67699,7 @@ static const char *startup_source = "(as-begin-expression-context ctx_92)" "(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx355_0) ctx_92)((s356_0) s_635))" +"(let-values(((ctx355_0) ctx_92)((s356_0) s_634))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -67779,39 +67785,39 @@ static const char *startup_source = "((temp365_0) 0)" "((temp366_0) #t))" "(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))" -"(lambda(s_641 ctx_93)" +"(lambda(s_640 ctx_93)" "(let-values(((context_24)(expand-context-context ctx_93)))" -"(if(let-values(((or-part_373)(eq? context_24 'top-level)))" -"(if or-part_373 or-part_373(eq? context_24 'module)))" +"(if(let-values(((or-part_374)(eq? context_24 'top-level)))" +"(if or-part_374 or-part_374(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_641)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_640)))" "(let-values(((ok?_52 begin367_0)" -"(let-values(((s_642) disarmed-s_16))" -"(if(let-values(((s_643)(if(syntax?$1 s_642)(syntax-e$1 s_642) s_642)))" -"(if(pair? s_643)" -"(if(let-values(((s_644)(car s_643))) #t)" -"(let-values(((s_645)(cdr s_643)))" -"(let-values(((s_646)(if(syntax?$1 s_645)(syntax-e$1 s_645) s_645)))" -"(null? s_646)))" +"(let-values(((s_641) disarmed-s_16))" +"(if(let-values(((s_642)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" +"(if(pair? s_642)" +"(if(let-values(((s_643)(car s_642))) #t)" +"(let-values(((s_644)(cdr s_642)))" +"(let-values(((s_645)(if(syntax?$1 s_644)(syntax-e$1 s_644) s_644)))" +"(null? s_645)))" " #f)" " #f))" "(let-values()" "(let-values(((begin367_1)" -"(let-values(((s_647)(if(syntax?$1 s_642)(syntax-e$1 s_642) s_642)))" +"(let-values(((s_646)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" "(let-values(((begin368_0)" -"(let-values(((s_648)(car s_647))) s_648))" +"(let-values(((s_647)(car s_646))) s_647))" "(()" -"(let-values(((s_649)(cdr s_647)))" -"(let-values(((s_650)" -"(if(syntax?$1 s_649)" -"(syntax-e$1 s_649)" -" s_649)))" +"(let-values(((s_648)(cdr s_646)))" +"(let-values(((s_649)" +"(if(syntax?$1 s_648)" +"(syntax-e$1 s_648)" +" s_648)))" "(values)))))" "(values begin368_0)))))" "(values #t begin367_1)))" "(values #f #f)))))" -"(if ok?_52 s_641(nonempty-begin_0 s_641 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_641 ctx_93))))))))" +"(if ok?_52 s_640(nonempty-begin_0 s_640 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_640 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67838,7 +67844,7 @@ static const char *startup_source = "(lambda(s375_0 ctx376_0 implicit-omitted?373_0 implicit-omitted?374_0)" "(begin" " 'core377" -"(let-values(((s_651) s375_0))" +"(let-values(((s_650) s375_0))" "(let-values(((ctx_95) ctx376_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))" "(let-values()" @@ -67850,46 +67856,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_651)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_650)))" "(let-values(((id_129)" "(if implicit-omitted?_0" -"(let-values() s_651)" +"(let-values() s_650)" "(let-values()" "(let-values(((ok?_53 #%top379_0 id380_0)" -"(let-values(((s_652) disarmed-s_17))" -"(let-values(((orig-s_58) s_652))" +"(let-values(((s_651) disarmed-s_17))" +"(let-values(((orig-s_58) s_651))" "(let-values(((#%top379_1 id380_1)" -"(let-values(((s_653)" -"(if(syntax?$1 s_652)" -"(syntax-e$1 s_652)" -" s_652)))" -"(if(pair? s_653)" +"(let-values(((s_652)" +"(if(syntax?$1 s_651)" +"(syntax-e$1 s_651)" +" s_651)))" +"(if(pair? s_652)" "(let-values(((#%top381_0)" -"(let-values(((s_654)" +"(let-values(((s_653)" "(car" -" s_653)))" -" s_654))" +" s_652)))" +" s_653))" "((id382_0)" -"(let-values(((s_655)" +"(let-values(((s_654)" "(cdr" -" s_653)))" -"(if(let-values(((or-part_374)" +" s_652)))" +"(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_655)" +" s_654)" "(symbol?" "(syntax-e$1" -" s_655))" +" s_654))" " #f)))" -"(if or-part_374" -" or-part_374" +"(if or-part_375" +" or-part_375" "(symbol?" -" s_655)))" -" s_655" +" s_654)))" +" s_654" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_655)))))" +" s_654)))))" "(values #%top381_0 id382_0))" "(raise-syntax-error$1" " #f" @@ -67925,7 +67931,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_95)" "(parsed-id2.1 id_129 b_91 #f)" "(if(top-level-module-path-index?(module-binding-module b_91))" -"(let-values() s_651)" +"(let-values() s_650)" "(let-values() id_129))))" "(if(register-eventual-variable!? id_129 ctx_95)" "(let-values()" @@ -67970,42 +67976,42 @@ static const char *startup_source = "(let-values() id_129)" "(let-values()" "(let-values(((ok?_54 #%top388_0 id389_0)" -"(let-values(((s_656) disarmed-s_17))" -"(let-values(((orig-s_59) s_656))" +"(let-values(((s_655) disarmed-s_17))" +"(let-values(((orig-s_59) s_655))" "(let-values(((#%top388_1 id389_1)" -"(let-values(((s_657)" +"(let-values(((s_656)" "(if(syntax?$1" -" s_656)" +" s_655)" "(syntax-e$1" -" s_656)" -" s_656)))" -"(if(pair? s_657)" +" s_655)" +" s_655)))" +"(if(pair? s_656)" "(let-values(((#%top390_0)" -"(let-values(((s_658)" +"(let-values(((s_657)" "(car" -" s_657)))" -" s_658))" +" s_656)))" +" s_657))" "((id391_0)" -"(let-values(((s_659)" +"(let-values(((s_658)" "(cdr" -" s_657)))" -"(if(let-values(((or-part_375)" +" s_656)))" +"(if(let-values(((or-part_376)" "(if(syntax?$1" -" s_659)" +" s_658)" "(symbol?" "(syntax-e$1" -" s_659))" +" s_658))" " #f)))" -"(if or-part_375" -" or-part_375" +"(if or-part_376" +" or-part_376" "(symbol?" -" s_659)))" -" s_659" +" s_658)))" +" s_658" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_659)))))" +" s_658)))))" "(values" " #%top390_0" " id391_0))" @@ -68014,80 +68020,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_59)))))" "(values #t #%top388_1 id389_1))))))" -"(let-values(((s392_0) s_651)" +"(let-values(((s392_0) s_650)" "((temp393_0)(cons #%top388_0 id_129)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 id_129 b_91 #f)" -" s_651)))))))))))))))))))))))" +" s_650)))))))))))))))))))))))" "(case-lambda" -"((s_660 ctx_96)(core377_0 s_660 ctx_96 #f #f))" -"((s_661 ctx_97 implicit-omitted?373_1)(core377_0 s_661 ctx_97 implicit-omitted?373_1 #t))))))" +"((s_659 ctx_96)(core377_0 s_659 ctx_96 #f #f))" +"((s_660 ctx_97 implicit-omitted?373_1)(core377_0 s_660 ctx_97 implicit-omitted?373_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_662 ctx_98)" +"(lambda(s_661 ctx_98)" "(let-values((()" "(begin" "(let-values(((obs_116)(expand-context-observer ctx_98)))" "(if obs_116(let-values()(let-values()(call-expand-observe obs_116 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_662)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_661)))" "(let-values(((ok?_55 set!394_0 id395_0 rhs396_0)" -"(let-values(((s_663) disarmed-s_18))" -"(let-values(((orig-s_60) s_663))" +"(let-values(((s_662) disarmed-s_18))" +"(let-values(((orig-s_60) s_662))" "(let-values(((set!394_1 id395_1 rhs396_1)" -"(let-values(((s_664)(if(syntax?$1 s_663)(syntax-e$1 s_663) s_663)))" -"(if(pair? s_664)" -"(let-values(((set!397_0)(let-values(((s_665)(car s_664))) s_665))" +"(let-values(((s_663)(if(syntax?$1 s_662)(syntax-e$1 s_662) s_662)))" +"(if(pair? s_663)" +"(let-values(((set!397_0)(let-values(((s_664)(car s_663))) s_664))" "((id398_0 rhs399_0)" -"(let-values(((s_666)(cdr s_664)))" -"(let-values(((s_667)" -"(if(syntax?$1 s_666)" -"(syntax-e$1 s_666)" -" s_666)))" -"(if(pair? s_667)" +"(let-values(((s_665)(cdr s_663)))" +"(let-values(((s_666)" +"(if(syntax?$1 s_665)" +"(syntax-e$1 s_665)" +" s_665)))" +"(if(pair? s_666)" "(let-values(((id400_0)" -"(let-values(((s_668)(car s_667)))" -"(if(let-values(((or-part_376)" -"(if(syntax?$1 s_668)" +"(let-values(((s_667)(car s_666)))" +"(if(let-values(((or-part_377)" +"(if(syntax?$1 s_667)" "(symbol?" "(syntax-e$1" -" s_668))" +" s_667))" " #f)))" -"(if or-part_376" -" or-part_376" -"(symbol? s_668)))" -" s_668" +"(if or-part_377" +" or-part_377" +"(symbol? s_667)))" +" s_667" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_60" -" s_668))))" +" s_667))))" "((rhs401_0)" -"(let-values(((s_669)(cdr s_667)))" -"(let-values(((s_670)" -"(if(syntax?$1 s_669)" -"(syntax-e$1 s_669)" -" s_669)))" -"(if(pair? s_670)" +"(let-values(((s_668)(cdr s_666)))" +"(let-values(((s_669)" +"(if(syntax?$1 s_668)" +"(syntax-e$1 s_668)" +" s_668)))" +"(if(pair? s_669)" "(let-values(((rhs402_0)" -"(let-values(((s_671)" +"(let-values(((s_670)" "(car" -" s_670)))" -" s_671))" +" s_669)))" +" s_670))" "(()" -"(let-values(((s_672)" +"(let-values(((s_671)" "(cdr" -" s_670)))" -"(let-values(((s_673)" +" s_669)))" +"(let-values(((s_672)" "(if(syntax?$1" -" s_672)" +" s_671)" "(syntax-e$1" -" s_672)" -" s_672)))" -"(if(null? s_673)" +" s_671)" +" s_671)))" +"(if(null? s_672)" "(values)" "(raise-syntax-error$1" " #f" @@ -68136,7 +68142,7 @@ static const char *startup_source = "(if binding_30" "(let-values(((binding407_0) binding_30)" "((ctx408_0) ctx_98)" -"((s409_0) s_662))" +"((s409_0) s_661))" "(lookup28.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" @@ -68145,14 +68151,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_117 'resolve id_130)))" "(void)))" -"(if(let-values(((or-part_377)(variable? t_60)))" -"(if or-part_377" -" or-part_377" -"(if(not binding_30)" -"(let-values(((or-part_378)" -"(register-eventual-variable!? id_130 ctx_98)))" +"(if(let-values(((or-part_378)(variable? t_60)))" "(if or-part_378" " or-part_378" +"(if(not binding_30)" +"(let-values(((or-part_379)" +"(register-eventual-variable!? id_130 ctx_98)))" +"(if or-part_379" +" or-part_379" "(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" @@ -68168,7 +68174,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_662" +" s_661" " id_130))" "(void))" "(values))))" @@ -68187,7 +68193,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx410_0) ctx_98)((s411_0) s_662))" +"(let-values(((ctx410_0) ctx_98)((s411_0) s_661))" "(keep-as-needed85.1" " #f" " #f" @@ -68228,7 +68234,7 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_662" +" s_661" " id_130" " null" "(syntax-debug-info-string id_130 ctx_98)))" @@ -68239,7 +68245,7 @@ static const char *startup_source = "(let-values(((temp419_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_662" +" s_661" " disarmed-s_18" " set!394_0" " rhs396_0" @@ -68254,7 +68260,7 @@ static const char *startup_source = "(let-values(((exp-s_14 re-ctx_1)" "(let-values(((t421_0) t_60)" "((insp422_0) insp_24)" -"((s423_0) s_662)" +"((s423_0) s_661)" "((orig-id424_0) orig-id_1)" "((ctx425_0) ctx_98)" "((binding426_0) binding_30)" @@ -68281,7 +68287,7 @@ static const char *startup_source = "(let-values(((temp430_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_662" +" s_661" " disarmed-s_18" " set!394_0" " rhs396_0" @@ -68304,7 +68310,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_662" +" s_661" " id_130))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -68315,7 +68321,7 @@ static const char *startup_source = "(lambda(s25_0 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_674) s25_0))" +"(let-values(((s_673) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_131) id28_0))" @@ -68324,8 +68330,8 @@ static const char *startup_source = "(let-values(((ctx_99) ctx31_0))" "(let-values(((t_61)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_379) t_61))" -"(if or-part_379 or-part_379 from-rename?_1))" +"(if(let-values(((or-part_380) t_61))" +"(if or-part_380 or-part_380 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_61" @@ -68337,17 +68343,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_674)))" -"(let-values() s_674)))))))))))))))" +" s_673)))" +"(let-values() s_673)))))))))))))))" "(case-lambda" -"((s_675 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_675 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_676 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_676 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_674 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_674 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_675 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_675 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_677 ctx_102)" +"(lambda(s_676 ctx_102)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_102)))" @@ -68355,75 +68361,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_677)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_676)))" "(let-values(((ok?_56 #%variable-reference432_0 id433_0)" -"(let-values(((s_678) disarmed-s_22))" -"(if(let-values(((s_679)(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" -"(if(pair? s_679)" -"(if(let-values(((s_680)(car s_679))) #t)" -"(let-values(((s_681)(cdr s_679)))" -"(let-values(((s_682)(if(syntax?$1 s_681)(syntax-e$1 s_681) s_681)))" -"(if(pair? s_682)" -"(if(let-values(((s_683)(car s_682)))" -"(let-values(((or-part_380)" -"(if(syntax?$1 s_683)(symbol?(syntax-e$1 s_683)) #f)))" -"(if or-part_380 or-part_380(symbol? s_683))))" -"(let-values(((s_684)(cdr s_682)))" -"(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" -"(null? s_685)))" +"(let-values(((s_677) disarmed-s_22))" +"(if(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" +"(if(pair? s_678)" +"(if(let-values(((s_679)(car s_678))) #t)" +"(let-values(((s_680)(cdr s_678)))" +"(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" +"(if(pair? s_681)" +"(if(let-values(((s_682)(car s_681)))" +"(let-values(((or-part_381)" +"(if(syntax?$1 s_682)(symbol?(syntax-e$1 s_682)) #f)))" +"(if or-part_381 or-part_381(symbol? s_682))))" +"(let-values(((s_683)(cdr s_681)))" +"(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(null? s_684)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference432_1 id433_1)" -"(let-values(((s_686)(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" +"(let-values(((s_685)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" "(let-values(((#%variable-reference434_0)" -"(let-values(((s_687)(car s_686))) s_687))" +"(let-values(((s_686)(car s_685))) s_686))" "((id435_0)" -"(let-values(((s_688)(cdr s_686)))" -"(let-values(((s_689)" -"(if(syntax?$1 s_688)" -"(syntax-e$1 s_688)" -" s_688)))" +"(let-values(((s_687)(cdr s_685)))" +"(let-values(((s_688)" +"(if(syntax?$1 s_687)" +"(syntax-e$1 s_687)" +" s_687)))" "(let-values(((id436_0)" -"(let-values(((s_690)(car s_689))) s_690))" +"(let-values(((s_689)(car s_688))) s_689))" "(()" -"(let-values(((s_691)(cdr s_689)))" -"(let-values(((s_692)" -"(if(syntax?$1 s_691)" -"(syntax-e$1 s_691)" -" s_691)))" +"(let-values(((s_690)(cdr s_688)))" +"(let-values(((s_691)" +"(if(syntax?$1 s_690)" +"(syntax-e$1 s_690)" +" s_690)))" "(values)))))" "(values id436_0))))))" "(values #%variable-reference434_0 id435_0)))))" "(values #t #%variable-reference432_1 id433_1)))" "(values #f #f #f)))))" "(let-values(((ok?_57 #%variable-reference437_0 #%top438_0 id439_0)" -"(let-values(((s_693) disarmed-s_22))" +"(let-values(((s_692) disarmed-s_22))" "(if(if(not ok?_56)" -"(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(((s_697)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" -"(if(pair? s_697)" -"(if(let-values(((s_698)(car s_697)))" -"(let-values(((s_699)" -"(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" -"(if(pair? s_699)" -"(if(let-values(((s_700)(car s_699))) #t)" -"(let-values(((s_701)(cdr s_699)))" -"(let-values(((or-part_381)" -"(if(syntax?$1 s_701)" -"(symbol?(syntax-e$1 s_701))" +"(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(((s_696)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" +"(if(pair? s_696)" +"(if(let-values(((s_697)(car s_696)))" +"(let-values(((s_698)" +"(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" +"(if(pair? s_698)" +"(if(let-values(((s_699)(car s_698))) #t)" +"(let-values(((s_700)(cdr s_698)))" +"(let-values(((or-part_382)" +"(if(syntax?$1 s_700)" +"(symbol?(syntax-e$1 s_700))" " #f)))" -"(if or-part_381 or-part_381(symbol? s_701))))" +"(if or-part_382 or-part_382(symbol? s_700))))" " #f)" " #f)))" -"(let-values(((s_702)(cdr s_697)))" -"(let-values(((s_703)(if(syntax?$1 s_702)(syntax-e$1 s_702) s_702)))" -"(null? s_703)))" +"(let-values(((s_701)(cdr s_696)))" +"(let-values(((s_702)(if(syntax?$1 s_701)(syntax-e$1 s_701) s_701)))" +"(null? s_702)))" " #f)" " #f)))" " #f)" @@ -68431,61 +68437,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference437_1 #%top438_1 id439_1)" -"(let-values(((s_704)(if(syntax?$1 s_693)(syntax-e$1 s_693) s_693)))" +"(let-values(((s_703)(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" "(let-values(((#%variable-reference440_0)" -"(let-values(((s_705)(car s_704))) s_705))" +"(let-values(((s_704)(car s_703))) s_704))" "((#%top441_0 id442_0)" -"(let-values(((s_706)(cdr s_704)))" -"(let-values(((s_707)" -"(if(syntax?$1 s_706)" -"(syntax-e$1 s_706)" -" s_706)))" +"(let-values(((s_705)(cdr s_703)))" +"(let-values(((s_706)" +"(if(syntax?$1 s_705)" +"(syntax-e$1 s_705)" +" s_705)))" "(let-values(((#%top443_0 id444_0)" -"(let-values(((s_708)(car s_707)))" -"(let-values(((s_709)" -"(if(syntax?$1 s_708)" -"(syntax-e$1 s_708)" -" s_708)))" +"(let-values(((s_707)(car s_706)))" +"(let-values(((s_708)" +"(if(syntax?$1 s_707)" +"(syntax-e$1 s_707)" +" s_707)))" "(let-values(((#%top445_0)" -"(let-values(((s_710)" +"(let-values(((s_709)" "(car" -" s_709)))" -" s_710))" +" s_708)))" +" s_709))" "((id446_0)" -"(let-values(((s_711)" +"(let-values(((s_710)" "(cdr" -" s_709)))" -" s_711)))" +" s_708)))" +" s_710)))" "(values #%top445_0 id446_0)))))" "(()" -"(let-values(((s_712)(cdr s_707)))" -"(let-values(((s_713)" -"(if(syntax?$1 s_712)" -"(syntax-e$1 s_712)" -" s_712)))" +"(let-values(((s_711)(cdr s_706)))" +"(let-values(((s_712)" +"(if(syntax?$1 s_711)" +"(syntax-e$1 s_711)" +" s_711)))" "(values)))))" "(values #%top443_0 id444_0))))))" "(values #%variable-reference440_0 #%top441_0 id442_0)))))" "(values #t #%variable-reference437_1 #%top438_1 id439_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_58 #%variable-reference447_0)" -"(let-values(((s_714) disarmed-s_22))" -"(if(if(not(let-values(((or-part_382) ok?_56))(if or-part_382 or-part_382 ok?_57)))" +"(let-values(((s_713) disarmed-s_22))" +"(if(if(not(let-values(((or-part_383) ok?_56))(if or-part_383 or-part_383 ok?_57)))" " #t" " #f)" -"(let-values(((orig-s_61) s_714))" +"(let-values(((orig-s_61) s_713))" "(let-values(((#%variable-reference447_1)" -"(let-values(((s_715)(if(syntax?$1 s_714)(syntax-e$1 s_714) s_714)))" -"(if(pair? s_715)" +"(let-values(((s_714)(if(syntax?$1 s_713)(syntax-e$1 s_713) s_713)))" +"(if(pair? s_714)" "(let-values(((#%variable-reference448_0)" -"(let-values(((s_716)(car s_715))) s_716))" +"(let-values(((s_715)(car s_714))) s_715))" "(()" -"(let-values(((s_717)(cdr s_715)))" -"(let-values(((s_718)" -"(if(syntax?$1 s_717)" -"(syntax-e$1 s_717)" -" s_717)))" -"(if(null? s_718)" +"(let-values(((s_716)(cdr s_714)))" +"(let-values(((s_717)" +"(if(syntax?$1 s_716)" +"(syntax-e$1 s_716)" +" s_716)))" +"(if(null? s_717)" "(values)" "(raise-syntax-error$1" " #f" @@ -68495,7 +68501,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%variable-reference447_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_383) ok?_56))(if or-part_383 or-part_383 ok?_57))" +"(if(let-values(((or-part_384) ok?_56))(if or-part_384 or-part_384 ok?_57))" "(let-values()" "(let-values(((var-id_0)(if ok?_56 id433_0 id439_0)))" "(let-values(((binding_31)" @@ -68511,14 +68517,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_384) binding_31))" -"(if or-part_384 or-part_384(expand-context-allow-unbound? ctx_102)))" +"(if(let-values(((or-part_385) binding_31))" +"(if or-part_385 or-part_385(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_677" +" s_676" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_102))))" @@ -68528,30 +68534,30 @@ static const char *startup_source = "(let-values(((binding452_0) binding_31)" "((ctx453_0) ctx_102)" "((var-id454_0) var-id_0)" -"((s455_0) s_677)" +"((s455_0) s_676)" "((temp456_0)(expand-context-in-local-expand? ctx_102)))" "(lookup28.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_62(not(variable? t_62)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_677))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_676))" "(void))" "(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_677)" +"(keep-properties-only~ s_676)" "(if ok?_57" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_677))))))))" +" s_676))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_677) #f)" -" s_677)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_676) #f)" +" s_676)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_719 ctx_103)" +"(lambda(s_718 ctx_103)" "(let-values((()" "(begin" "(let-values(((obs_120)(expand-context-observer ctx_103)))" @@ -68559,32 +68565,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_719)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_718)))" "(let-values(((ok?_59 #%expression457_0 e458_0)" -"(let-values(((s_720) disarmed-s_23))" -"(let-values(((orig-s_62) s_720))" +"(let-values(((s_719) disarmed-s_23))" +"(let-values(((orig-s_62) s_719))" "(let-values(((#%expression457_1 e458_1)" -"(let-values(((s_721)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" -"(if(pair? s_721)" +"(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" +"(if(pair? s_720)" "(let-values(((#%expression459_0)" -"(let-values(((s_722)(car s_721))) s_722))" +"(let-values(((s_721)(car s_720))) s_721))" "((e460_0)" -"(let-values(((s_723)(cdr s_721)))" -"(let-values(((s_724)" -"(if(syntax?$1 s_723)" -"(syntax-e$1 s_723)" -" s_723)))" -"(if(pair? s_724)" +"(let-values(((s_722)(cdr s_720)))" +"(let-values(((s_723)" +"(if(syntax?$1 s_722)" +"(syntax-e$1 s_722)" +" s_722)))" +"(if(pair? s_723)" "(let-values(((e461_0)" -"(let-values(((s_725)(car s_724)))" -" s_725))" +"(let-values(((s_724)(car s_723)))" +" s_724))" "(()" -"(let-values(((s_726)(cdr s_724)))" -"(let-values(((s_727)" -"(if(syntax?$1 s_726)" -"(syntax-e$1 s_726)" -" s_726)))" -"(if(null? s_727)" +"(let-values(((s_725)(cdr s_723)))" +"(let-values(((s_726)" +"(if(syntax?$1 s_725)" +"(syntax-e$1 s_725)" +" s_725)))" +"(if(null? s_726)" "(values)" "(raise-syntax-error$1" " #f" @@ -68596,7 +68602,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_62)))))" "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx462_0) ctx_103)((s463_0) s_719)((temp464_0) #t))" +"(let-values(((ctx462_0) ctx_103)((s463_0) s_718)((temp464_0) #t))" "(keep-as-needed85.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" @@ -68623,8 +68629,8 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s469_0) rebuild-s_13)((temp470_0)(list #%expression457_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s469_0 temp470_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_728 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_728))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_729 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_729))))" +" (void (add-core-form!* 'unquote (lambda (s_727 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_727))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_728 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_728))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_134 at-phase_12 ns_123)" @@ -68662,25 +68668,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_79) specs_1))" +"(let-values(((lst_78) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_95)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_411)" +" lst_408)" "(begin" " 'for-loop" -"(if(pair? lst_411)" +"(if(pair? lst_408)" "(let-values(((spec_0)" "(unsafe-car" -" lst_411))" +" lst_408))" "((rest_235)" "(unsafe-cdr" -" lst_411)))" +" lst_408)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68835,41 +68841,41 @@ static const char *startup_source = "(if(pair?" " s_301)" "(let-values(((for-meta6_0)" -"(let-values(((s_418)" +"(let-values(((s_419)" "(car" " s_301)))" -" s_418))" +" s_419))" "((phase-level7_0" " spec8_0)" "(let-values(((s_78)" "(cdr" " s_301)))" -"(let-values(((s_730)" +"(let-values(((s_729)" "(if(syntax?$1" " s_78)" "(syntax-e$1" " s_78)" " s_78)))" "(if(pair?" -" s_730)" +" s_729)" "(let-values(((phase-level9_0)" -"(let-values(((s_731)" +"(let-values(((s_730)" "(car" -" s_730)))" -" s_731))" +" s_729)))" +" s_730))" "((spec10_0)" -"(let-values(((s_450)" +"(let-values(((s_451)" "(cdr" -" s_730)))" -"(let-values(((s_455)" +" s_729)))" +"(let-values(((s_457)" "(if(syntax?$1" -" s_450)" +" s_451)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_451)" +" s_451)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_455)))" +" s_457)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68975,7 +68981,7 @@ static const char *startup_source = "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_732)" +"(let-values(((s_731)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -68983,7 +68989,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_732)))" +" s_731)))" "(if(not" " flat-s_45)" "(let-values()" @@ -69047,23 +69053,23 @@ static const char *startup_source = " s_45))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_467)" +"(let-values(((s_469)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(pair?" -" s_467)" +" s_469)" "(let-values(((for-label21_0)" -"(let-values(((s_464)" +"(let-values(((s_466)" "(car" -" s_467)))" -" s_464))" +" s_469)))" +" s_466))" "((spec22_0)" "(let-values(((s_46)" "(cdr" -" s_467)))" +" s_469)))" "(let-values(((s_302)" "(if(syntax?$1" " s_46)" @@ -69139,18 +69145,18 @@ static const char *startup_source = "(let-values(((ok?_63" " protect25_0" " p-spec26_0)" -"(let-values(((s_733)" +"(let-values(((s_732)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_733))" +" s_732))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_733)" +" s_732)" "(syntax-e$1" -" s_733)" -" s_733)))" +" s_732)" +" s_732)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" @@ -69162,7 +69168,7 @@ static const char *startup_source = "(let-values(((s_304)" "(cdr" " s_31)))" -"(let-values(((s_470)" +"(let-values(((s_472)" "(if(syntax?$1" " s_304)" "(syntax-e$1" @@ -69170,7 +69176,7 @@ static const char *startup_source = " s_304)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_470)))" +" s_472)))" "(if(not" " flat-s_47)" "(let-values()" @@ -69224,52 +69230,52 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_734)" +"(let-values(((s_733)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_734))" +" s_733))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_472)" +"(let-values(((s_474)" +"(if(syntax?$1" +" s_733)" +"(syntax-e$1" +" s_733)" +" s_733)))" +"(if(pair?" +" s_474)" +"(let-values(((rename34_0)" +"(let-values(((s_309)" +"(car" +" s_474)))" +" s_309))" +"((id:from35_0" +" id:to36_0)" +"(let-values(((s_734)" +"(cdr" +" s_474)))" +"(let-values(((s_310)" "(if(syntax?$1" " s_734)" "(syntax-e$1" " s_734)" " s_734)))" "(if(pair?" -" s_472)" -"(let-values(((rename34_0)" -"(let-values(((s_309)" -"(car" -" s_472)))" -" s_309))" -"((id:from35_0" -" id:to36_0)" -"(let-values(((s_735)" -"(cdr" -" s_472)))" -"(let-values(((s_310)" -"(if(syntax?$1" -" s_735)" -"(syntax-e$1" -" s_735)" -" s_735)))" -"(if(pair?" " s_310)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" " s_310)))" -"(if(let-values(((or-part_202)" +"(if(let-values(((or-part_203)" "(if(syntax?$1" " s_33)" "(symbol?" "(syntax-e$1" " s_33))" " #f)))" -"(if or-part_202" -" or-part_202" +"(if or-part_203" +" or-part_203" "(symbol?" " s_33)))" " s_33" @@ -69279,48 +69285,48 @@ static const char *startup_source = " orig-s_68" " s_33))))" "((id:to38_0)" -"(let-values(((s_388)" +"(let-values(((s_389)" "(cdr" " s_310)))" -"(let-values(((s_736)" +"(let-values(((s_735)" "(if(syntax?$1" -" s_388)" +" s_389)" "(syntax-e$1" -" s_388)" -" s_388)))" +" s_389)" +" s_389)))" "(if(pair?" -" s_736)" +" s_735)" "(let-values(((id:to39_0)" -"(let-values(((s_423)" +"(let-values(((s_424)" "(car" -" s_736)))" +" s_735)))" "(if(let-values(((or-part_57)" "(if(syntax?$1" -" s_423)" +" s_424)" "(symbol?" "(syntax-e$1" -" s_423))" +" s_424))" " #f)))" "(if or-part_57" " or-part_57" "(symbol?" -" s_423)))" -" s_423" +" s_424)))" +" s_424" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_423))))" +" s_424))))" "(()" -"(let-values(((s_737)" +"(let-values(((s_736)" "(cdr" -" s_736)))" +" s_735)))" "(let-values(((s_57)" "(if(syntax?$1" -" s_737)" +" s_736)" "(syntax-e$1" -" s_737)" -" s_737)))" +" s_736)" +" s_736)))" "(if(null?" " s_57)" "(values)" @@ -69384,77 +69390,77 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_489)" +"(let-values(((s_490)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_489))" +" s_490))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_490)" +"(let-values(((s_491)" "(if(syntax?$1" -" s_489)" -"(syntax-e$1" -" s_489)" -" s_489)))" -"(if(pair?" " s_490)" +"(syntax-e$1" +" s_490)" +" s_490)))" +"(if(pair?" +" s_491)" "(let-values(((struct43_0)" "(let-values(((s_197)" "(car" -" s_490)))" +" s_491)))" " s_197))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_738)" +"(let-values(((s_737)" "(cdr" -" s_490)))" -"(let-values(((s_739)" +" s_491)))" +"(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(((id:struct46_0)" -"(let-values(((s_740)" +"(let-values(((s_739)" "(car" -" s_739)))" -"(if(let-values(((or-part_349)" +" s_738)))" +"(if(let-values(((or-part_350)" "(if(syntax?$1" -" s_740)" +" s_739)" "(symbol?" "(syntax-e$1" -" s_740))" +" s_739))" " #f)))" -"(if or-part_349" -" or-part_349" +"(if or-part_350" +" or-part_350" "(symbol?" -" s_740)))" -" s_740" +" s_739)))" +" s_739" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_740))))" +" s_739))))" "((id:field47_0)" -"(let-values(((s_741)" +"(let-values(((s_740)" "(cdr" -" s_739)))" +" s_738)))" "(let-values(((s_63)" "(if(syntax?$1" -" s_741)" +" s_740)" "(syntax-e$1" -" s_741)" -" s_741)))" +" s_740)" +" s_740)))" "(if(pair?" " s_63)" "(let-values(((id:field48_0)" "(let-values(((s_37)" "(car" " s_63)))" -"(let-values(((s_402)" +"(let-values(((s_403)" "(if(syntax?$1" " s_37)" "(syntax-e$1" @@ -69462,7 +69468,7 @@ static const char *startup_source = " s_37)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_402)))" +" s_403)))" "(if(not" " flat-s_48)" "(let-values()" @@ -69472,7 +69478,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_316)" +"(let-values(((lst_314)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69480,20 +69486,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_316)))" -"((letrec-values(((for-loop_276)" +" lst_314)))" +"((letrec-values(((for-loop_275)" "(lambda(id:field_1" -" lst_412)" +" lst_409)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" -"(let-values(((s_742)" +" lst_409)" +"(let-values(((s_741)" "(unsafe-car" -" lst_412))" +" lst_409))" "((rest_236)" "(unsafe-cdr" -" lst_412)))" +" lst_409)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -69501,23 +69507,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_385)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_742)" +" s_741)" "(symbol?" "(syntax-e$1" -" s_742))" +" s_741))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_386" +" or-part_386" "(symbol?" -" s_742)))" -" s_742" +" s_741)))" +" s_741" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_742)))))" +" s_741)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69525,28 +69531,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_276" +"(for-loop_275" " id:field_2" " rest_236)" " id:field_2)))" " id:field_1)))))" -" for-loop_276)" +" for-loop_275)" " null" -" lst_316)))))" +" lst_314)))))" "(reverse$1" " id:field_0))))))))" "(()" "(let-values(((s_200)" "(cdr" " s_63)))" -"(let-values(((s_743)" +"(let-values(((s_742)" "(if(syntax?$1" " s_200)" "(syntax-e$1" " s_200)" " s_200)))" "(if(null?" -" s_743)" +" s_742)" "(values)" "(raise-syntax-error$1" " #f" @@ -69603,29 +69609,29 @@ static const char *startup_source = "(let-values(((ok?_66" " all-from50_0" " mod-path51_0)" -"(let-values(((s_744)" +"(let-values(((s_743)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_744))" +" s_743))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_745)" +"(let-values(((s_744)" "(if(syntax?$1" -" s_744)" +" s_743)" "(syntax-e$1" -" s_744)" -" s_744)))" +" s_743)" +" s_743)))" "(if(pair?" -" s_745)" +" s_744)" "(let-values(((all-from52_0)" -"(let-values(((s_746)" +"(let-values(((s_745)" "(car" -" s_745)))" -" s_746))" +" s_744)))" +" s_745))" "((mod-path53_0)" "(let-values(((s_203)" "(cdr" -" s_745)))" +" s_744)))" "(let-values(((s_204)" "(if(syntax?$1" " s_203)" @@ -69635,10 +69641,10 @@ static const char *startup_source = "(if(pair?" " s_204)" "(let-values(((mod-path54_0)" -"(let-values(((s_747)" +"(let-values(((s_746)" "(car" " s_204)))" -" s_747))" +" s_746))" "(()" "(let-values(((s_92)" "(cdr" @@ -69705,50 +69711,50 @@ static const char *startup_source = "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_98)" +"(let-values(((s_208)" "(if(syntax?$1" " s_96)" "(syntax-e$1" " s_96)" " s_96)))" "(if(pair?" -" s_98)" +" s_208)" "(let-values(((all-from-except58_0)" -"(let-values(((s_407)" +"(let-values(((s_408)" "(car" -" s_98)))" -" s_407))" +" s_208)))" +" s_408))" "((mod-path59_0" " id60_0)" -"(let-values(((s_162)" +"(let-values(((s_161)" "(cdr" -" s_98)))" -"(let-values(((s_476)" +" s_208)))" +"(let-values(((s_478)" "(if(syntax?$1" -" s_162)" +" s_161)" "(syntax-e$1" -" s_162)" -" s_162)))" +" s_161)" +" s_161)))" "(if(pair?" -" s_476)" +" s_478)" "(let-values(((mod-path61_0)" -"(let-values(((s_748)" +"(let-values(((s_747)" "(car" -" s_476)))" -" s_748))" +" s_478)))" +" s_747))" "((id62_0)" -"(let-values(((s_749)" +"(let-values(((s_748)" "(cdr" -" s_476)))" -"(let-values(((s_99)" +" s_478)))" +"(let-values(((s_749)" "(if(syntax?$1" -" s_749)" +" s_748)" "(syntax-e$1" -" s_749)" -" s_749)))" +" s_748)" +" s_748)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_99)))" +" s_749)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69758,7 +69764,7 @@ static const char *startup_source = " orig-s_71))" "(let-values()" "(let-values(((id_135)" -"(let-values(((lst_413)" +"(let-values(((lst_43)" " flat-s_49))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69766,20 +69772,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_413)))" -"((letrec-values(((for-loop_314)" +" lst_43)))" +"((letrec-values(((for-loop_58)" "(lambda(id_68" -" lst_414)" +" lst_44)" "(begin" " 'for-loop" "(if(pair?" -" lst_414)" -"(let-values(((s_480)" +" lst_44)" +"(let-values(((s_481)" "(unsafe-car" -" lst_414))" -"((rest_237)" +" lst_44))" +"((rest_18)" "(unsafe-cdr" -" lst_414)))" +" lst_44)))" "(let-values(((id_136)" "(let-values(((id_137)" " id_68))" @@ -69787,23 +69793,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_386)" +"(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_480)" +" s_481)" "(symbol?" "(syntax-e$1" -" s_480))" +" s_481))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_387" +" or-part_387" "(symbol?" -" s_480)))" -" s_480" +" s_481)))" +" s_481" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_480)))))" +" s_481)))))" "(cons" " id63_0" " id_137)))))" @@ -69811,14 +69817,14 @@ static const char *startup_source = " id_138)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_58" " id_136" -" rest_237)" +" rest_18)" " id_136)))" " id_68)))))" -" for-loop_314)" +" for-loop_58)" " null" -" lst_413)))))" +" lst_43)))))" "(reverse$1" " id_135)))))))))" "(values" @@ -69870,36 +69876,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_68" " all-defined64_0)" -"(let-values(((s_106)" +"(let-values(((s_213)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_106))" +" s_213))" "(let-values(((all-defined64_1)" -"(let-values(((s_384)" +"(let-values(((s_385)" "(if(syntax?$1" -" s_106)" +" s_213)" "(syntax-e$1" -" s_106)" -" s_106)))" +" s_213)" +" s_213)))" "(if(pair?" -" s_384)" +" s_385)" "(let-values(((all-defined65_0)" -"(let-values(((s_750)" +"(let-values(((s_107)" "(car" -" s_384)))" -" s_750))" +" s_385)))" +" s_107))" "(()" -"(let-values(((s_751)" +"(let-values(((s_750)" "(cdr" -" s_384)))" -"(let-values(((s_752)" +" s_385)))" +"(let-values(((s_751)" "(if(syntax?$1" -" s_751)" +" s_750)" "(syntax-e$1" -" s_751)" -" s_751)))" +" s_750)" +" s_750)))" "(if(null?" -" s_752)" +" s_751)" "(values)" "(raise-syntax-error$1" " #f" @@ -69938,30 +69944,30 @@ static const char *startup_source = "(let-values(((ok?_69" " all-defined-except66_0" " id67_0)" -"(let-values(((s_753)" +"(let-values(((s_752)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_753))" +" s_752))" "(let-values(((all-defined-except66_1" " id67_1)" "(let-values(((s_215)" "(if(syntax?$1" -" s_753)" +" s_752)" "(syntax-e$1" -" s_753)" -" s_753)))" +" s_752)" +" s_752)))" "(if(pair?" " s_215)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_408)" +"(let-values(((s_409)" "(car" " s_215)))" -" s_408))" +" s_409))" "((id69_0)" "(let-values(((s_216)" "(cdr" " s_215)))" -"(let-values(((s_115)" +"(let-values(((s_217)" "(if(syntax?$1" " s_216)" "(syntax-e$1" @@ -69969,7 +69975,7 @@ static const char *startup_source = " s_216)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_115)))" +" s_217)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69979,7 +69985,7 @@ static const char *startup_source = " orig-s_73))" "(let-values()" "(let-values(((id_139)" -"(let-values(((lst_415)" +"(let-values(((lst_410)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69987,20 +69993,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" -"((letrec-values(((for-loop_315)" +" lst_410)))" +"((letrec-values(((for-loop_314)" "(lambda(id_140" -" lst_416)" +" lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" -"(let-values(((s_119)" +" lst_411)" +"(let-values(((s_118)" "(unsafe-car" -" lst_416))" -"((rest_238)" +" lst_411))" +"((rest_237)" "(unsafe-cdr" -" lst_416)))" +" lst_411)))" "(let-values(((id_141)" "(let-values(((id_142)" " id_140))" @@ -70008,23 +70014,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_173)" "(if(syntax?$1" -" s_119)" +" s_118)" "(symbol?" "(syntax-e$1" -" s_119))" +" s_118))" " #f)))" -"(if or-part_172" -" or-part_172" +"(if or-part_173" +" or-part_173" "(symbol?" -" s_119)))" -" s_119" +" s_118)))" +" s_118" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_119)))))" +" s_118)))))" "(cons" " id70_0" " id_142)))))" @@ -70032,14 +70038,14 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_314" " id_141" -" rest_238)" +" rest_237)" " id_141)))" " id_140)))))" -" for-loop_315)" +" for-loop_314)" " null" -" lst_415)))))" +" lst_410)))))" "(reverse$1" " id_139)))))))))" "(values" @@ -70080,70 +70086,70 @@ static const char *startup_source = "(let-values(((ok?_70" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_754)" +"(let-values(((s_753)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_754))" +" s_753))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_755)" +"(let-values(((s_754)" "(if(syntax?$1" -" s_754)" +" s_753)" "(syntax-e$1" -" s_754)" -" s_754)))" +" s_753)" +" s_753)))" "(if(pair?" -" s_755)" +" s_754)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_756)" +"(let-values(((s_755)" "(car" -" s_755)))" -" s_756))" +" s_754)))" +" s_755))" "((id:prefix74_0)" -"(let-values(((s_757)" +"(let-values(((s_756)" "(cdr" -" s_755)))" -"(let-values(((s_758)" +" s_754)))" +"(let-values(((s_757)" "(if(syntax?$1" -" s_757)" +" s_756)" "(syntax-e$1" -" s_757)" -" s_757)))" +" s_756)" +" s_756)))" "(if(pair?" -" s_758)" +" s_757)" "(let-values(((id:prefix75_0)" -"(let-values(((s_496)" +"(let-values(((s_124)" "(car" -" s_758)))" -"(if(let-values(((or-part_387)" +" s_757)))" +"(if(let-values(((or-part_388)" "(if(syntax?$1" -" s_496)" +" s_124)" "(symbol?" "(syntax-e$1" -" s_496))" +" s_124))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_388" +" or-part_388" "(symbol?" -" s_496)))" -" s_496" +" s_124)))" +" s_124" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_496))))" +" s_124))))" "(()" -"(let-values(((s_759)" +"(let-values(((s_758)" "(cdr" -" s_758)))" -"(let-values(((s_125)" +" s_757)))" +"(let-values(((s_759)" "(if(syntax?$1" -" s_759)" +" s_758)" "(syntax-e$1" -" s_759)" -" s_759)))" +" s_758)" +" s_758)))" "(if(null?" -" s_125)" +" s_759)" "(values)" "(raise-syntax-error$1" " #f" @@ -70195,70 +70201,70 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_227)" +"(let-values(((s_228)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_227))" +" s_228))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_325)" +"(let-values(((s_326)" "(if(syntax?$1" -" s_227)" +" s_228)" "(syntax-e$1" -" s_227)" -" s_227)))" +" s_228)" +" s_228)))" "(if(pair?" -" s_325)" +" s_326)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_328)" +"(let-values(((s_329)" "(car" -" s_325)))" -" s_328))" +" s_326)))" +" s_329))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_329)" -"(cdr" -" s_325)))" "(let-values(((s_330)" +"(cdr" +" s_326)))" +"(let-values(((s_331)" "(if(syntax?$1" -" s_329)" -"(syntax-e$1" -" s_329)" -" s_329)))" -"(if(pair?" " s_330)" -"(let-values(((id:prefix82_0)" -"(let-values(((s_333)" -"(car" +"(syntax-e$1" +" s_330)" " s_330)))" -"(if(let-values(((or-part_388)" +"(if(pair?" +" s_331)" +"(let-values(((id:prefix82_0)" +"(let-values(((s_334)" +"(car" +" s_331)))" +"(if(let-values(((or-part_389)" "(if(syntax?$1" -" s_333)" +" s_334)" "(symbol?" "(syntax-e$1" -" s_333))" +" s_334))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_389" +" or-part_389" "(symbol?" -" s_333)))" -" s_333" +" s_334)))" +" s_334" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_333))))" +" s_334))))" "((id83_0)" -"(let-values(((s_335)" +"(let-values(((s_336)" "(cdr" -" s_330)))" +" s_331)))" "(let-values(((s_760)" "(if(syntax?$1" -" s_335)" +" s_336)" "(syntax-e$1" -" s_335)" -" s_335)))" +" s_336)" +" s_336)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" " s_760)))" @@ -70280,19 +70286,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_315)" "(lambda(id_144" -" lst_417)" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_417)" +" lst_412)" "(let-values(((s_761)" "(unsafe-car" -" lst_417))" +" lst_412))" "((rest_193)" "(unsafe-cdr" -" lst_417)))" +" lst_412)))" "(let-values(((id_145)" "(let-values(((id_146)" " id_144))" @@ -70300,15 +70306,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_276)" +"(if(let-values(((or-part_277)" "(if(syntax?$1" " s_761)" "(symbol?" "(syntax-e$1" " s_761))" " #f)))" -"(if or-part_276" -" or-part_276" +"(if or-part_277" +" or-part_277" "(symbol?" " s_761)))" " s_761" @@ -70324,12 +70330,12 @@ static const char *startup_source = " id_147)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_315" " id_145" " rest_193)" " id_145)))" " id_144)))))" -" for-loop_316)" +" for-loop_315)" " null" " lst_4)))))" "(reverse$1" @@ -70382,71 +70388,71 @@ static const char *startup_source = "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_241)" +"(let-values(((s_242)" "(if(syntax?$1" " s_762)" "(syntax-e$1" " s_762)" " s_762)))" "(if(pair?" -" s_241)" +" s_242)" "(let-values(((expand88_0)" -"(let-values(((s_242)" +"(let-values(((s_243)" "(car" -" s_241)))" -" s_242))" +" s_242)))" +" s_243))" "((id89_1" " datum90_0)" "(let-values(((s_763)" "(cdr" -" s_241)))" -"(let-values(((s_243)" +" s_242)))" +"(let-values(((s_244)" "(if(syntax?$1" " s_763)" "(syntax-e$1" " s_763)" " s_763)))" "(if(pair?" -" s_243)" +" s_244)" "(let-values(((id91_0" " datum92_0)" "(let-values(((s_764)" "(car" -" s_243)))" -"(let-values(((s_245)" +" s_244)))" +"(let-values(((s_246)" "(if(syntax?$1" " s_764)" "(syntax-e$1" " s_764)" " s_764)))" "(if(pair?" -" s_245)" +" s_246)" "(let-values(((id93_1)" -"(let-values(((s_509)" +"(let-values(((s_508)" "(car" -" s_245)))" -"(if(let-values(((or-part_389)" +" s_246)))" +"(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_509)" +" s_508)" "(symbol?" "(syntax-e$1" -" s_509))" +" s_508))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_390" +" or-part_390" "(symbol?" -" s_509)))" -" s_509" +" s_508)))" +" s_508" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_76" -" s_509))))" +" s_508))))" "((datum94_0)" -"(let-values(((s_439)" +"(let-values(((s_440)" "(cdr" -" s_245)))" -" s_439)))" +" s_246)))" +" s_440)))" "(values" " id93_1" " datum94_0))" @@ -70455,17 +70461,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_76)))))" "(()" -"(let-values(((s_440)" +"(let-values(((s_441)" "(cdr" -" s_243)))" -"(let-values(((s_353)" +" s_244)))" +"(let-values(((s_354)" "(if(syntax?$1" -" s_440)" +" s_441)" "(syntax-e$1" -" s_440)" -" s_440)))" +" s_441)" +" s_441)))" "(if(null?" -" s_353)" +" s_354)" "(values)" "(raise-syntax-error$1" " #f" @@ -70494,52 +70500,52 @@ static const char *startup_source = "(let-values(((ok?_73" " expand95_0" " form96_0)" -"(let-values(((s_354)" +"(let-values(((s_355)" " disarmed-spec_0))" "(let-values(((orig-s_77)" -" s_354))" +" s_355))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_357)" +"(let-values(((s_358)" "(if(syntax?$1" -" s_354)" +" s_355)" "(syntax-e$1" -" s_354)" -" s_354)))" +" s_355)" +" s_355)))" "(if(pair?" -" s_357)" +" s_358)" "(let-values(((expand97_0)" -"(let-values(((s_360)" -"(car" -" s_357)))" -" s_360))" -"((form98_0)" "(let-values(((s_361)" -"(cdr" -" s_357)))" -"(let-values(((s_362)" -"(if(syntax?$1" -" s_361)" -"(syntax-e$1" -" s_361)" -" s_361)))" -"(if(pair?" -" s_362)" -"(let-values(((form99_0)" -"(let-values(((s_364)" "(car" -" s_362)))" -" s_364))" -"(()" -"(let-values(((s_365)" +" s_358)))" +" s_361))" +"((form98_0)" +"(let-values(((s_362)" "(cdr" +" s_358)))" +"(let-values(((s_363)" +"(if(syntax?$1" +" s_362)" +"(syntax-e$1" +" s_362)" " s_362)))" +"(if(pair?" +" s_363)" +"(let-values(((form99_0)" +"(let-values(((s_365)" +"(car" +" s_363)))" +" s_365))" +"(()" +"(let-values(((s_366)" +"(cdr" +" s_363)))" "(let-values(((s_765)" "(if(syntax?$1" -" s_365)" +" s_366)" "(syntax-e$1" -" s_365)" -" s_365)))" +" s_366)" +" s_366)))" "(if(null?" " s_765)" "(values)" @@ -70568,10 +70574,10 @@ static const char *startup_source = "(let-values(((temp104_5)" " form96_0)" "((temp105_5)" -"(let-values(((v_261)" +"(let-values(((v_262)" " ctx_106))" "(let-values(((the-struct_95)" -" v_261))" +" v_262))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((def-ctx-scopes106_0)" @@ -70580,7 +70586,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_96)" "(root-expand-context/outer-inner" -" v_261)))" +" v_262)))" "(if(expand-context/inner?" " the-struct_96)" "(let-values(((stops108_0)" @@ -70726,23 +70732,23 @@ static const char *startup_source = "(if(pair?" " s_767)" "(let-values(((begin102_0)" -"(let-values(((s_370)" +"(let-values(((s_371)" "(car" " s_767)))" -" s_370))" +" s_371))" "((spec103_0)" -"(let-values(((s_371)" +"(let-values(((s_372)" "(cdr" " s_767)))" -"(let-values(((s_372)" +"(let-values(((s_373)" "(if(syntax?$1" -" s_371)" +" s_372)" "(syntax-e$1" -" s_371)" -" s_371)))" +" s_372)" +" s_372)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_372)))" +" s_373)))" "(if(not" " flat-s_52)" "(let-values()" @@ -70787,7 +70793,7 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_96" " track-stxes_2" " exp-specs_2" " rest_235)" @@ -70797,10 +70803,10 @@ static const char *startup_source = "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_95)" +" for-loop_96)" " null" " null" -" lst_79)))))" +" lst_78)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_113)" @@ -70866,17 +70872,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" "(begin" -" (let-values (((lst_126) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_124) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_126)))" -"((letrec-values(((for-loop_317)" -"(lambda(lst_418)" +"(let-values()(check-list lst_124)))" +"((letrec-values(((for-loop_64)" +"(lambda(lst_413)" "(begin" " 'for-loop" -"(if(pair? lst_418)" -"(let-values(((fmt_3)(unsafe-car lst_418))((rest_239)(unsafe-cdr lst_418)))" +"(if(pair? lst_413)" +"(let-values(((fmt_3)(unsafe-car lst_413))((rest_238)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70894,22 +70900,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_317 rest_239)(values))))" +"(if(not #f)(for-loop_64 rest_238)(values))))" "(values))))))" -" for-loop_317)" -" lst_126)))" +" for-loop_64)" +" lst_124)))" "(void)" -"(let-values(((lst_419) fields_0))" +"(let-values(((lst_414) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_419)))" -"((letrec-values(((for-loop_318)" -"(lambda(lst_420)" +"(let-values()(check-list lst_414)))" +"((letrec-values(((for-loop_316)" +"(lambda(lst_415)" "(begin" " 'for-loop" -"(if(pair? lst_420)" -"(let-values(((field_0)(unsafe-car lst_420))((rest_240)(unsafe-cdr lst_420)))" +"(if(pair? lst_415)" +"(let-values(((field_0)(unsafe-car lst_415))((rest_239)(unsafe-cdr lst_415)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70941,10 +70947,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_318 rest_240)(values))))" +"(if(not #f)(for-loop_316 rest_239)(values))))" "(values))))))" -" for-loop_318)" -" lst_419)))" +" for-loop_316)" +" lst_414)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -70992,18 +70998,18 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_241) requireds_2))" +"(let-values(((lst_239) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_241)))" -"((letrec-values(((for-loop_319)" -"(lambda(lst_421)" +"(let-values()(check-list lst_239)))" +"((letrec-values(((for-loop_317)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_421)" -"(let-values(((i_190)(unsafe-car lst_421))" -"((rest_241)(unsafe-cdr lst_421)))" +"(if(pair? lst_416)" +"(let-values(((i_191)(unsafe-car lst_416))" +"((rest_240)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71011,11 +71017,11 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_149)" -"(required-id i_190)))" +"(required-id i_191)))" "(let-values(((phase_151)" "(required-phase" -" i_190)))" -"(if(let-values(((or-part_390)" +" i_191)))" +"(if(let-values(((or-part_391)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -71031,9 +71037,9 @@ static const char *startup_source = " phase_151)" " #f))" " #f)))" -"(if or-part_390" -" or-part_390" -"(let-values(((lst_422)" +"(if or-part_391" +" or-part_391" +"(let-values(((lst_417)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71041,24 +71047,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_422)))" -"((letrec-values(((for-loop_320)" -"(lambda(result_124" -" lst_423)" +" lst_417)))" +"((letrec-values(((for-loop_318)" +"(lambda(result_125" +" lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" +" lst_418)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_423))" -"((rest_242)" +" lst_418))" +"((rest_241)" "(unsafe-cdr" -" lst_423)))" -"(let-values(((result_125)" -"(let-values()" +" lst_418)))" "(let-values(((result_126)" "(let-values()" +"(let-values(((result_127)" +"(let-values()" "(let-values()" "(if(free-identifier=?$1" " id_149" @@ -71071,22 +71077,22 @@ static const char *startup_source = " #t)" " #f)))))" "(values" -" result_126)))))" +" result_127)))))" "(if(if(not" "((lambda x_92" -" result_125)" +" result_126)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_320" -" result_125" -" rest_242)" -" result_125)))" -" result_124)))))" -" for-loop_320)" +"(for-loop_318" +" result_126" +" rest_241)" +" result_126)))" +" result_125)))))" +" for-loop_318)" " #f" -" lst_422)))))" +" lst_417)))))" "(void)" "(let-values()" "(let-values(((b_93)" @@ -71134,7 +71140,7 @@ static const char *startup_source = " protected?_19)" "((temp129_2)" "(required-as-transformer?" -" i_190)))" +" i_191)))" "(add-provide!109.1" " protected?128_0" " temp129_2" @@ -71147,41 +71153,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_241)(values))))" +"(if(not #f)(for-loop_317 rest_240)(values))))" "(values))))))" -" for-loop_319)" -" lst_241)))" +" for-loop_317)" +" lst_239)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_149) except-ids_1))" +"(let-values(((lst_147) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_149)))" -"((letrec-values(((for-loop_171)" -"(lambda(lst_128)" +"(let-values()(check-list lst_147)))" +"((letrec-values(((for-loop_170)" +"(lambda(lst_126)" "(begin" " 'for-loop" -"(if(pair? lst_128)" -"(let-values(((except-id_1)(unsafe-car lst_128))" -"((rest_62)(unsafe-cdr lst_128)))" +"(if(pair? lst_126)" +"(let-values(((except-id_1)(unsafe-car lst_126))" +"((rest_62)(unsafe-cdr lst_126)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_391)" +"(if(let-values(((or-part_392)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_391" -" or-part_391" -"(let-values(((lst_424)" +"(if or-part_392" +" or-part_392" +"(let-values(((lst_419)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71189,53 +71195,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_424)))" -"((letrec-values(((for-loop_141)" -"(lambda(result_127" -" lst_425)" +" lst_419)))" +"((letrec-values(((for-loop_142)" +"(lambda(result_128" +" lst_420)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" -"(let-values(((i_191)" +" lst_420)" +"(let-values(((i_192)" "(unsafe-car" -" lst_425))" -"((rest_243)" +" lst_420))" +"((rest_242)" "(unsafe-cdr" -" lst_425)))" -"(let-values(((result_128)" -"(let-values()" +" lst_420)))" "(let-values(((result_129)" "(let-values()" +"(let-values(((result_130)" +"(let-values()" "(let-values()" "(let-values(((id_150)" "(required-id" -" i_191)))" +" i_192)))" "(let-values(((phase_152)" "(required-phase" -" i_191)))" +" i_192)))" "(free-identifier=?$1" " id_150" " except-id_1" " phase_152" " phase_152)))))))" "(values" -" result_129)))))" +" result_130)))))" "(if(if(not" "((lambda x_93" -" result_128)" -" i_191))" +" result_129)" +" i_192))" "(not" " #f)" " #f)" -"(for-loop_141" -" result_128" -" rest_243)" -" result_128)))" -" result_127)))))" -" for-loop_141)" +"(for-loop_142" +" result_129" +" rest_242)" +" result_129)))" +" result_128)))))" +" for-loop_142)" " #f" -" lst_424)))))" +" lst_419)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71249,10 +71255,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171 rest_62)(values))))" +"(if(not #f)(for-loop_170 rest_62)(values))))" "(values))))))" -" for-loop_171)" -" lst_149)))" +" for-loop_170)" +" lst_147)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -71263,18 +71269,18 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_426) bodys_14))" +"(let-values(((lst_421) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_426)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_86)" +"(let-values()(check-list lst_421)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((body_21)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((body_21)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71297,11 +71303,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_35))" " p_35))" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_211)" "(parsed-#%declare?" " p_35)))" -"(if or-part_210" -" or-part_210" +"(if or-part_211" +" or-part_211" "(let-values(((or-part_3)" "(parsed-module?" " p_35)))" @@ -71316,10 +71322,10 @@ static const char *startup_source = " p_35))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_40)(values))))" +"(if(not #f)(for-loop_319 rest_40)(values))))" "(values))))))" -" for-loop_321)" -" lst_426)))" +" for-loop_319)" +" lst_421)))" "(void)))))" "((check-expr_0)" "(lambda(e_93 num-results_0 enclosing_15)" @@ -71340,18 +71346,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_93)))" "(begin" -"(let-values(((lst_80) rands_1))" +"(let-values(((lst_79) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_81)" -"(lambda(lst_87)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((rand_0)(unsafe-car lst_87))" -"((rest_244)(unsafe-cdr lst_87)))" +"(if(pair? lst_86)" +"(let-values(((rand_0)(unsafe-car lst_86))" +"((rest_243)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71364,10 +71370,10 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_244)(values))))" +"(if(not #f)(for-loop_81 rest_243)(values))))" "(values))))))" " for-loop_81)" -" lst_80)))" +" lst_79)))" "(void)" "(let-values(((tmp_67)(cross-phase-primitive-name(parsed-app-rator e_93))))" "(if(if(equal? tmp_67 'cons) #t(equal? tmp_67 'list))" @@ -71378,9 +71384,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_67 'gensym)" "(let-values()" -"(if(let-values(((or-part_356)(= 0(length rands_1))))" -"(if or-part_356" -" or-part_356" +"(if(let-values(((or-part_357)(= 0(length rands_1))))" +"(if or-part_357" +" or-part_357" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -71402,18 +71408,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_271)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_269)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_239)" -"(lambda(lst_427)" +"(let-values()(check-list lst_269)))" +"((letrec-values(((for-loop_238)" +"(lambda(lst_422)" "(begin" " 'for-loop" -"(if(pair? lst_427)" -"(let-values(((clause_5)(unsafe-car lst_427))" -"((rest_245)(unsafe-cdr lst_427)))" +"(if(pair? lst_422)" +"(let-values(((clause_5)(unsafe-car lst_422))" +"((rest_244)(unsafe-cdr lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71424,27 +71430,27 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_239 rest_245)(values))))" +"(if(not #f)(for-loop_238 rest_244)(values))))" "(values))))))" -" for-loop_239)" -" lst_271)))" +" for-loop_238)" +" lst_269)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_39))" -"(let-values(((lst_223)(parsed-app-rands e_39)))" +"(let-values(((lst_221)(parsed-app-rands e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_105)" -"(lambda(lst_267)" +"(let-values()(check-list lst_221)))" +"((letrec-values(((for-loop_106)" +"(lambda(lst_265)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((e_94)(unsafe-car lst_267))" -"((rest_196)(unsafe-cdr lst_267)))" +"(if(pair? lst_265)" +"(let-values(((e_94)(unsafe-car lst_265))" +"((rest_196)(unsafe-cdr lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71455,10 +71461,10 @@ static const char *startup_source = " e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_105 rest_196)(values))))" +"(if(not #f)(for-loop_106 rest_196)(values))))" "(values))))))" -" for-loop_105)" -" lst_223)))" +" for-loop_106)" +" lst_221)))" "(void)))" "(if(parsed-if? e_39)" "(let-values()" @@ -71474,9 +71480,9 @@ static const char *startup_source = "(if(let-values(((or-part_85)(not normal-b_1)))" "(if or-part_85" " or-part_85" -"(let-values(((or-part_282)(parsed-top-id? id_151)))" -"(if or-part_282" -" or-part_282" +"(let-values(((or-part_283)(parsed-top-id? id_151)))" +"(if or-part_283" +" or-part_283" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71501,15 +71507,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_251)" -"(lambda(lst_91)" +"((letrec-values(((for-loop_250)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_91)" +"(if(pair? lst_90)" "(let-values(((clause_6)" -"(unsafe-car lst_91))" +"(unsafe-car lst_90))" "((rest_152)" -"(unsafe-cdr lst_91)))" +"(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71522,15 +71528,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_251 rest_152)" +"(for-loop_250 rest_152)" "(values))))" "(values))))))" -" for-loop_251)" +" for-loop_250)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" -"(if(let-values(((or-part_392)(parsed-quote-syntax? e_39)))" -"(if or-part_392 or-part_392(parsed-#%variable-reference? e_39)))" +"(if(let-values(((or-part_393)(parsed-quote-syntax? e_39)))" +"(if or-part_393 or-part_393(parsed-#%variable-reference? e_39)))" "(let-values()(disallow e_39))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71538,18 +71544,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_83) l_48))" +"(let-values(((lst_82) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_83)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_273)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_271)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((e_95)(unsafe-car lst_273))" -"((rest_148)(unsafe-cdr lst_273)))" +"(if(pair? lst_271)" +"(let-values(((e_95)(unsafe-car lst_271))" +"((rest_148)(unsafe-cdr lst_271)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71560,10 +71566,10 @@ static const char *startup_source = " e_95))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_148)(values))))" +"(if(not #f)(for-loop_320 rest_148)(values))))" "(values))))))" -" for-loop_322)" -" lst_83)))" +" for-loop_320)" +" lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -71572,21 +71578,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_36 e_13)" +"(lambda(d_37 e_13)" "(begin" -"(if(let-values(((or-part_155)(number? d_36)))" -"(if or-part_155" -" or-part_155" -"(let-values(((or-part_160)(boolean? d_36)))" -"(if or-part_160" -" or-part_160" -"(let-values(((or-part_161)(symbol? d_36)))" +"(if(let-values(((or-part_156)(number? d_37)))" +"(if or-part_156" +" or-part_156" +"(let-values(((or-part_161)(boolean? d_37)))" "(if or-part_161" " or-part_161" -"(let-values(((or-part_162)(string? d_36)))" +"(let-values(((or-part_162)(symbol? d_37)))" "(if or-part_162" " or-part_162" -"(let-values(((or-part_245)(bytes? d_36)))(if or-part_245 or-part_245(null? d_36)))))))))))" +"(let-values(((or-part_163)(string? d_37)))" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_246)(bytes? d_37)))(if or-part_246 or-part_246(null? d_37)))))))))))" "(let-values()(void))" "(let-values()(disallow e_13))))))" "(define-values" @@ -71651,11 +71657,11 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_84)))" "((expand-context-module-begin-k ctx_110)" " s_84" -"(let-values(((v_262) ctx_110))" -"(let-values(((the-struct_97) v_262))" +"(let-values(((v_263) ctx_110))" +"(let-values(((the-struct_97) v_263))" "(if(expand-context/outer? the-struct_97)" "(let-values(((inner226_0)" -"(let-values(((the-struct_98)(root-expand-context/outer-inner v_262)))" +"(let-values(((the-struct_98)(root-expand-context/outer-inner v_263)))" "(if(expand-context/inner? the-struct_98)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -71705,11 +71711,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_730 ctx_111)" +"(lambda(s_729 ctx_111)" "(begin" "(let-values(((obs_125)(expand-context-observer ctx_111)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_730)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_729)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71760,61 +71766,61 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_75 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_487) disarmed-s_24))" -"(let-values(((orig-s_83) s_487))" +"(let-values(((s_488) disarmed-s_24))" +"(let-values(((orig-s_83) s_488))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" "(let-values(((s_307)" -"(if(syntax?$1 s_487)" -"(syntax-e$1 s_487)" -" s_487)))" +"(if(syntax?$1 s_488)" +"(syntax-e$1 s_488)" +" s_488)))" "(if(pair? s_307)" "(let-values(((module232_0)" -"(let-values(((s_488)(car s_307)))" -" s_488))" +"(let-values(((s_489)(car s_307)))" +" s_489))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_734)(cdr s_307)))" +"(let-values(((s_733)(cdr s_307)))" "(let-values(((s_768)" -"(if(syntax?$1 s_734)" -"(syntax-e$1 s_734)" -" s_734)))" +"(if(syntax?$1 s_733)" +"(syntax-e$1 s_733)" +" s_733)))" "(if(pair? s_768)" "(let-values(((id:module-name236_0)" -"(let-values(((s_472)" +"(let-values(((s_474)" "(car" " s_768)))" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_365)" "(if(syntax?$1" -" s_472)" +" s_474)" "(symbol?" "(syntax-e$1" -" s_472))" +" s_474))" " #f)))" -"(if or-part_364" -" or-part_364" +"(if or-part_365" +" or-part_365" "(symbol?" -" s_472)))" -" s_472" +" s_474)))" +" s_474" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_83" -" s_472))))" +" s_474))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_473)" +"(let-values(((s_475)" "(cdr" " s_768)))" "(let-values(((s_55)" "(if(syntax?$1" -" s_473)" +" s_475)" "(syntax-e$1" -" s_473)" -" s_473)))" +" s_475)" +" s_475)))" "(if(pair?" " s_55)" "(let-values(((initial-require239_0)" @@ -72138,49 +72144,49 @@ static const char *startup_source = " _274_1" " _275_1" " body276_1)" -"(let-values(((s_397)" +"(let-values(((s_398)" "(if(syntax?$1" " s_769)" "(syntax-e$1" " s_769)" " s_769)))" "(if(pair?" -" s_397)" +" s_398)" "(let-values(((_277_2)" -"(let-values(((s_745)" +"(let-values(((s_744)" "(car" -" s_397)))" -" s_745))" +" s_398)))" +" s_744))" "((_278_2" " _279_0" " body280_0)" "(let-values(((s_202)" "(cdr" -" s_397)))" -"(let-values(((s_383)" +" s_398)))" +"(let-values(((s_384)" "(if(syntax?$1" " s_202)" "(syntax-e$1" " s_202)" " s_202)))" "(if(pair?" -" s_383)" +" s_384)" "(let-values(((_281_1)" "(let-values(((s_205)" "(car" -" s_383)))" +" s_384)))" " s_205))" "((_282_0" " body283_0)" -"(let-values(((s_747)" +"(let-values(((s_746)" "(cdr" -" s_383)))" +" s_384)))" "(let-values(((s_92)" "(if(syntax?$1" -" s_747)" +" s_746)" "(syntax-e$1" -" s_747)" -" s_747)))" +" s_746)" +" s_746)))" "(if(pair?" " s_92)" "(let-values(((_284_0)" @@ -72374,16 +72380,16 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_113)" -"(let-values(((v_263)" +"(let-values(((v_264)" " mb-init-ctx_0))" "(let-values(((the-struct_100)" -" v_263))" +" v_264))" "(if(expand-context/outer?" " the-struct_100)" "(let-values(((inner306_0)" "(let-values(((the-struct_101)" "(root-expand-context/outer-inner" -" v_263)))" +" v_264)))" "(if(expand-context/inner?" " the-struct_101)" "(let-values(((module-begin-k307_0)" @@ -72546,38 +72552,38 @@ static const char *startup_source = "(let-values(((ok?_77" " #%module-begin301_0" " body302_0)" -"(let-values(((s_115)" +"(let-values(((s_217)" " disarmed-mb-s_0))" "(let-values(((orig-s_85)" -" s_115))" +" s_217))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_116)" +"(let-values(((s_218)" "(if(syntax?$1" -" s_115)" +" s_217)" "(syntax-e$1" -" s_115)" -" s_115)))" +" s_217)" +" s_217)))" "(if(pair?" -" s_116)" +" s_218)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_119)" +"(let-values(((s_118)" "(car" -" s_116)))" -" s_119))" +" s_218)))" +" s_118))" "((body304_0)" -"(let-values(((s_771)" +"(let-values(((s_119)" "(cdr" -" s_116)))" -"(let-values(((s_772)" +" s_218)))" +"(let-values(((s_771)" "(if(syntax?$1" -" s_771)" +" s_119)" "(syntax-e$1" -" s_771)" -" s_771)))" +" s_119)" +" s_119)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_772)))" +" s_771)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72635,10 +72641,10 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_113)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_264)" +"(let-values(((v_265)" " ctx_113))" "(let-values(((the-struct_102)" -" v_264))" +" v_265))" "(if(expand-context/outer?" " the-struct_102)" "(let-values(((context326_0)" @@ -72648,11 +72654,11 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_57)" +"(let-values(((the-struct_58)" "(root-expand-context/outer-inner" -" v_264)))" +" v_265)))" "(if(expand-context/inner?" -" the-struct_57)" +" the-struct_58)" "(let-values(((phase330_0)" " phase_154)" "((namespace331_0)" @@ -72714,50 +72720,50 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/inner-module-scopes" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/inner-defined-syms" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/inner-counter" -" the-struct_57)" +" the-struct_58)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_57)" +" the-struct_58)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_57)" +" the-struct_58)" "(expand-context/inner-module-begin-k" -" the-struct_57)" +" the-struct_58)" "(expand-context/inner-allow-unbound?" -" the-struct_57)" +" the-struct_58)" "(expand-context/inner-in-local-expand?" -" the-struct_57)" +" the-struct_58)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_57)" +" the-struct_58)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_57)" +" the-struct_58)" "(expand-context/inner-observer" -" the-struct_57)" +" the-struct_58)" "(expand-context/inner-for-serializable?" -" the-struct_57)" +" the-struct_58)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_57)))" +" the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_57)))))" +" the-struct_58)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" @@ -72853,12 +72859,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_265)" +"(let-values(((v_266)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_103)" -" v_265))" +" v_266))" "(if(expand-context/outer?" " the-struct_103)" "(let-values(((def-ctx-scopes363_0)" @@ -72868,7 +72874,7 @@ static const char *startup_source = "((inner365_0)" "(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_265)))" +" v_266)))" "(if(expand-context/inner?" " the-struct_104)" "(let-values(((stops366_0)" @@ -73089,10 +73095,10 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_266)" +"(let-values(((v_81)" " ctx_113))" "(let-values(((the-struct_105)" -" v_266))" +" v_81))" "(if(expand-context/outer?" " the-struct_105)" "(let-values(((frame-id380_0)" @@ -73102,7 +73108,7 @@ static const char *startup_source = "((inner382_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_266)))" +" v_81)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((namespace383_0)" @@ -73469,11 +73475,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_342)" +"(if(let-values(((or-part_343)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_342" -" or-part_342" +"(if or-part_343" +" or-part_343" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73509,7 +73515,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_147)" +"(let-values(((lst_145)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73518,19 +73524,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_147)))" -"((letrec-values(((for-loop_139)" -"(lambda(lst_428)" +" lst_145)))" +"((letrec-values(((for-loop_140)" +"(lambda(lst_423)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" +" lst_423)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_428))" -"((rest_246)" +" lst_423))" +"((rest_245)" "(unsafe-cdr" -" lst_428)))" +" lst_423)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73543,12 +73549,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_139" -" rest_246)" +"(for-loop_140" +" rest_245)" "(values))))" "(values))))))" -" for-loop_139)" -" lst_147)))" +" for-loop_140)" +" lst_145)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -73631,7 +73637,7 @@ static const char *startup_source = "(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_155) phase26_3))" -"(let-values(((s_773) s27_2))" +"(let-values(((s_772) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" @@ -73695,7 +73701,7 @@ static const char *startup_source = "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_773)" +"((s435_0) s_772)" "((scopes-s436_0) scopes-s_0)" "((phase437_0) phase_155)" "((module-name-sym438_0) module-name-sym_1)" @@ -73712,7 +73718,7 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_773)" +"((s442_0) s_772)" "((scopes-s443_0) scopes-s_0)" "((phase444_0) phase_155)" "((module-name-sym445_0) module-name-sym_1)" @@ -73740,7 +73746,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_521) s42_0))" +"(let-values(((s_519) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_156) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -73758,10 +73764,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_521)))" +" s_519)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_521 s_521)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_519 s_519)))" "(let-values((()" "(begin" "(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" @@ -73797,7 +73803,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_521" +" s_519" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73813,13 +73819,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_774)" +"(lambda(s_773)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_774" +" s_773" "(remove-use-site-scopes" -"(remove-scopes s_774(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_773(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)))" @@ -74010,38 +74016,38 @@ static const char *startup_source = "(let-values(((ok?_78" " begin460_0" " e461_1)" -"(let-values(((s_775)" +"(let-values(((s_146)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_775))" +" s_146))" "(let-values(((begin460_1" " e461_2)" -"(let-values(((s_776)" +"(let-values(((s_774)" "(if(syntax?$1" -" s_775)" +" s_146)" "(syntax-e$1" -" s_775)" -" s_775)))" +" s_146)" +" s_146)))" "(if(pair?" -" s_776)" +" s_774)" "(let-values(((begin462_0)" -"(let-values(((s_777)" +"(let-values(((s_775)" "(car" -" s_776)))" -" s_777))" +" s_774)))" +" s_775))" "((e463_0)" -"(let-values(((s_778)" +"(let-values(((s_776)" "(cdr" -" s_776)))" -"(let-values(((s_779)" +" s_774)))" +"(let-values(((s_777)" "(if(syntax?$1" -" s_778)" +" s_776)" "(syntax-e$1" -" s_778)" -" s_778)))" +" s_776)" +" s_776)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_779)))" +" s_777)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74141,38 +74147,38 @@ static const char *startup_source = "(let-values(((ok?_79" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_780)" +"(let-values(((s_778)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_780))" +" s_778))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_781)" +"(let-values(((s_779)" "(if(syntax?$1" -" s_780)" +" s_778)" "(syntax-e$1" -" s_780)" -" s_780)))" +" s_778)" +" s_778)))" "(if(pair?" -" s_781)" +" s_779)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_782)" +"(let-values(((s_780)" "(car" -" s_781)))" -" s_782))" +" s_779)))" +" s_780))" "((e467_0)" -"(let-values(((s_783)" +"(let-values(((s_781)" "(cdr" -" s_781)))" -"(let-values(((s_784)" +" s_779)))" +"(let-values(((s_782)" "(if(syntax?$1" -" s_783)" +" s_781)" "(syntax-e$1" -" s_783)" -" s_783)))" +" s_781)" +" s_781)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_784)))" +" s_782)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74234,7 +74240,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_429)" +"(let-values(((lst_424)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74242,20 +74248,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" -"((letrec-values(((for-loop_323)" +" lst_424)))" +"((letrec-values(((for-loop_321)" "(lambda(fold-var_368" -" lst_430)" +" lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_430)" +" lst_425)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_430))" -"((rest_247)" +" lst_425))" +"((rest_246)" "(unsafe-cdr" -" lst_430)))" +" lst_425)))" "(let-values(((fold-var_381)" "(let-values(((fold-var_382)" " fold-var_368))" @@ -74270,14 +74276,14 @@ static const char *startup_source = " fold-var_383)))))" "(if(not" " #f)" -"(for-loop_323" +"(for-loop_321" " fold-var_381" -" rest_247)" +" rest_246)" " fold-var_381)))" " fold-var_368)))))" -" for-loop_323)" +" for-loop_321)" " null" -" lst_429))))))" +" lst_424))))))" "(datum->syntax$1" " #f" "(cons" @@ -74318,52 +74324,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_785)" +"(let-values(((s_783)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_785))" +" s_783))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_786)" +"(let-values(((s_784)" "(if(syntax?$1" -" s_785)" +" s_783)" "(syntax-e$1" -" s_785)" -" s_785)))" +" s_783)" +" s_783)))" "(if(pair?" -" s_786)" +" s_784)" "(let-values(((define-values471_0)" -"(let-values(((s_787)" +"(let-values(((s_785)" "(car" -" s_786)))" -" s_787))" +" s_784)))" +" s_785))" "((id472_0" " rhs473_0)" "(let-values(((s_189)" "(cdr" -" s_786)))" -"(let-values(((s_788)" +" s_784)))" +"(let-values(((s_786)" "(if(syntax?$1" " s_189)" "(syntax-e$1" " s_189)" " s_189)))" "(if(pair?" -" s_788)" +" s_786)" "(let-values(((id474_0)" -"(let-values(((s_789)" +"(let-values(((s_787)" "(car" -" s_788)))" -"(let-values(((s_790)" +" s_786)))" +"(let-values(((s_788)" "(if(syntax?$1" -" s_789)" +" s_787)" "(syntax-e$1" -" s_789)" -" s_789)))" +" s_787)" +" s_787)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_790)))" +" s_788)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74373,7 +74379,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_153)" -"(let-values(((lst_431)" +"(let-values(((lst_426)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74381,20 +74387,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_431)))" -"((letrec-values(((for-loop_324)" +" lst_426)))" +"((letrec-values(((for-loop_322)" "(lambda(id_154" -" lst_432)" +" lst_427)" "(begin" " 'for-loop" "(if(pair?" -" lst_432)" -"(let-values(((s_791)" +" lst_427)" +"(let-values(((s_789)" "(unsafe-car" -" lst_432))" -"((rest_248)" +" lst_427))" +"((rest_247)" "(unsafe-cdr" -" lst_432)))" +" lst_427)))" "(let-values(((id_155)" "(let-values(((id_156)" " id_154))" @@ -74402,23 +74408,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_791)" +" s_789)" "(symbol?" "(syntax-e$1" -" s_791))" +" s_789))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_394" +" or-part_394" "(symbol?" -" s_791)))" -" s_791" +" s_789)))" +" s_789" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_791)))))" +" s_789)))))" "(cons" " id484_0" " id_156)))))" @@ -74426,45 +74432,45 @@ static const char *startup_source = " id_157)))))" "(if(not" " #f)" -"(for-loop_324" +"(for-loop_322" " id_155" -" rest_248)" +" rest_247)" " id_155)))" " id_154)))))" -" for-loop_324)" +" for-loop_322)" " null" -" lst_431)))))" +" lst_426)))))" "(reverse$1" " id_153))))))))" "((rhs475_0)" -"(let-values(((s_792)" +"(let-values(((s_790)" "(cdr" -" s_788)))" -"(let-values(((s_793)" +" s_786)))" +"(let-values(((s_791)" "(if(syntax?$1" -" s_792)" +" s_790)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_790)" +" s_790)))" "(if(pair?" -" s_793)" +" s_791)" "(let-values(((rhs476_0)" -"(let-values(((s_794)" +"(let-values(((s_792)" "(car" -" s_793)))" -" s_794))" +" s_791)))" +" s_792))" "(()" -"(let-values(((s_795)" +"(let-values(((s_793)" "(cdr" -" s_793)))" -"(let-values(((s_796)" +" s_791)))" +"(let-values(((s_794)" "(if(syntax?$1" -" s_795)" +" s_793)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_793)" +" s_793)))" "(if(null?" -" s_796)" +" s_794)" "(values)" "(raise-syntax-error$1" " #f" @@ -74643,52 +74649,52 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_797)" +"(let-values(((s_795)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_797))" +" s_795))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_798)" +"(let-values(((s_796)" "(if(syntax?$1" -" s_797)" +" s_795)" "(syntax-e$1" -" s_797)" -" s_797)))" +" s_795)" +" s_795)))" "(if(pair?" -" s_798)" +" s_796)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_799)" +"(let-values(((s_797)" "(car" -" s_798)))" -" s_799))" +" s_796)))" +" s_797))" "((id497_0" " rhs498_0)" -"(let-values(((s_800)" +"(let-values(((s_798)" "(cdr" +" s_796)))" +"(let-values(((s_799)" +"(if(syntax?$1" +" s_798)" +"(syntax-e$1" +" s_798)" " s_798)))" +"(if(pair?" +" s_799)" +"(let-values(((id499_0)" +"(let-values(((s_800)" +"(car" +" s_799)))" "(let-values(((s_801)" "(if(syntax?$1" " s_800)" "(syntax-e$1" " s_800)" " s_800)))" -"(if(pair?" -" s_801)" -"(let-values(((id499_0)" -"(let-values(((s_802)" -"(car" -" s_801)))" -"(let-values(((s_803)" -"(if(syntax?$1" -" s_802)" -"(syntax-e$1" -" s_802)" -" s_802)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_803)))" +" s_801)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74698,7 +74704,7 @@ static const char *startup_source = " orig-s_89))" "(let-values()" "(let-values(((id_158)" -"(let-values(((lst_433)" +"(let-values(((lst_428)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74706,20 +74712,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_433)))" -"((letrec-values(((for-loop_325)" +" lst_428)))" +"((letrec-values(((for-loop_323)" "(lambda(id_159" -" lst_434)" +" lst_429)" "(begin" " 'for-loop" "(if(pair?" -" lst_434)" -"(let-values(((s_804)" +" lst_429)" +"(let-values(((s_802)" "(unsafe-car" -" lst_434))" -"((rest_249)" +" lst_429))" +"((rest_248)" "(unsafe-cdr" -" lst_434)))" +" lst_429)))" "(let-values(((id_160)" "(let-values(((id_161)" " id_159))" @@ -74727,23 +74733,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_804)" +" s_802)" "(symbol?" "(syntax-e$1" -" s_804))" +" s_802))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_395" +" or-part_395" "(symbol?" -" s_804)))" -" s_804" +" s_802)))" +" s_802" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_89" -" s_804)))))" +" s_802)))))" "(cons" " id509_0" " id_161)))))" @@ -74751,45 +74757,45 @@ static const char *startup_source = " id_162)))))" "(if(not" " #f)" -"(for-loop_325" +"(for-loop_323" " id_160" -" rest_249)" +" rest_248)" " id_160)))" " id_159)))))" -" for-loop_325)" +" for-loop_323)" " null" -" lst_433)))))" +" lst_428)))))" "(reverse$1" " id_158))))))))" "((rhs500_0)" -"(let-values(((s_805)" +"(let-values(((s_803)" "(cdr" -" s_801)))" -"(let-values(((s_806)" +" s_799)))" +"(let-values(((s_804)" "(if(syntax?$1" -" s_805)" +" s_803)" "(syntax-e$1" -" s_805)" -" s_805)))" +" s_803)" +" s_803)))" "(if(pair?" -" s_806)" +" s_804)" "(let-values(((rhs501_0)" -"(let-values(((s_807)" +"(let-values(((s_805)" "(car" -" s_806)))" -" s_807))" +" s_804)))" +" s_805))" "(()" -"(let-values(((s_808)" +"(let-values(((s_806)" "(cdr" -" s_806)))" -"(let-values(((s_809)" +" s_804)))" +"(let-values(((s_807)" "(if(syntax?$1" -" s_808)" +" s_806)" "(syntax-e$1" -" s_808)" -" s_808)))" +" s_806)" +" s_806)))" "(if(null?" -" s_809)" +" s_807)" "(values)" "(raise-syntax-error$1" " #f" @@ -75022,11 +75028,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_435)" +"(let-values(((lst_430)" " syms_25)" -"((lst_436)" +"((lst_431)" " vals_10)" -"((lst_437)" +"((lst_432)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75034,51 +75040,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_435)))" +" lst_430)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_436)))" +" lst_431)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_437)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_438" -" lst_439" -" lst_440)" +" lst_432)))" +"((letrec-values(((for-loop_324)" +"(lambda(lst_433" +" lst_434" +" lst_435)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_438)" +" lst_433)" "(if(pair?" -" lst_439)" +" lst_434)" "(pair?" -" lst_440)" +" lst_435)" " #f)" " #f)" "(let-values(((sym_104)" "(unsafe-car" -" lst_438))" -"((rest_250)" +" lst_433))" +"((rest_249)" "(unsafe-cdr" -" lst_438))" +" lst_433))" "((val_87)" "(unsafe-car" -" lst_439))" -"((rest_251)" +" lst_434))" +"((rest_250)" "(unsafe-cdr" -" lst_439))" +" lst_434))" "((id_163)" "(unsafe-car" -" lst_440))" -"((rest_252)" +" lst_435))" +"((rest_251)" "(unsafe-cdr" -" lst_440)))" +" lst_435)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75100,16 +75106,16 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_326" +"(for-loop_324" +" rest_249" " rest_250" -" rest_251" -" rest_252)" +" rest_251)" "(values))))" "(values))))))" -" for-loop_326)" -" lst_435" -" lst_436" -" lst_437)))" +" for-loop_324)" +" lst_430" +" lst_431" +" lst_432)))" "(values))))" "(let-values()" "(let-values((()" @@ -75188,38 +75194,38 @@ static const char *startup_source = "(let-values(((ok?_82" " #%require530_0" " req531_0)" -"(let-values(((s_536)" +"(let-values(((s_535)" " ready-body_0))" "(let-values(((orig-s_90)" -" s_536))" +" s_535))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_810)" +"(let-values(((s_808)" "(if(syntax?$1" -" s_536)" +" s_535)" "(syntax-e$1" -" s_536)" -" s_536)))" +" s_535)" +" s_535)))" "(if(pair?" -" s_810)" +" s_808)" "(let-values(((#%require532_0)" -"(let-values(((s_811)" +"(let-values(((s_809)" "(car" -" s_810)))" -" s_811))" +" s_808)))" +" s_809))" "((req533_0)" -"(let-values(((s_812)" +"(let-values(((s_810)" "(cdr" -" s_810)))" -"(let-values(((s_813)" +" s_808)))" +"(let-values(((s_811)" "(if(syntax?$1" -" s_812)" +" s_810)" "(syntax-e$1" -" s_812)" -" s_812)))" +" s_810)" +" s_810)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_813)))" +" s_811)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75392,38 +75398,38 @@ static const char *startup_source = "(let-values(((ok?_83" " #%declare551_0" " kw552_0)" -"(let-values(((s_814)" +"(let-values(((s_812)" " disarmed-exp-body_1))" "(let-values(((orig-s_91)" -" s_814))" +" s_812))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_815)" +"(let-values(((s_813)" "(if(syntax?$1" -" s_814)" +" s_812)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_812)" +" s_812)))" "(if(pair?" -" s_815)" +" s_813)" "(let-values(((#%declare553_0)" -"(let-values(((s_816)" +"(let-values(((s_814)" "(car" -" s_815)))" -" s_816))" +" s_813)))" +" s_814))" "((kw554_0)" -"(let-values(((s_817)" +"(let-values(((s_815)" "(cdr" -" s_815)))" -"(let-values(((s_818)" +" s_813)))" +"(let-values(((s_816)" "(if(syntax?$1" -" s_817)" +" s_815)" "(syntax-e$1" -" s_817)" -" s_817)))" +" s_815)" +" s_815)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_818)))" +" s_816)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75446,7 +75452,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_441)" +"(let-values(((lst_436)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75454,19 +75460,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_441)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_442)" +" lst_436)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_437)" "(begin" " 'for-loop" "(if(pair?" -" lst_442)" +" lst_437)" "(let-values(((kw_1)" "(unsafe-car" -" lst_442))" -"((rest_253)" +" lst_437))" +"((rest_252)" "(unsafe-cdr" -" lst_442)))" +" lst_437)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75517,12 +75523,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_327" -" rest_253)" +"(for-loop_325" +" rest_252)" "(values))))" "(values))))))" -" for-loop_327)" -" lst_441)))" +" for-loop_325)" +" lst_436)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75572,18 +75578,18 @@ static const char *startup_source = "(lambda(ids_45 rhs_22 phase_158)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_443) ids_45))" +"(let-values(((lst_438) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_328)" -"(lambda(fold-var_384 lst_444)" +"(let-values()(check-list lst_438)))" +"((letrec-values(((for-loop_326)" +"(lambda(fold-var_384 lst_439)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((id_164)(unsafe-car lst_444))" -"((rest_254)(unsafe-cdr lst_444)))" +"(if(pair? lst_439)" +"(let-values(((id_164)(unsafe-car lst_439))" +"((rest_253)(unsafe-cdr lst_439)))" "(let-values(((fold-var_385)" "(let-values(((fold-var_386) fold-var_384))" "(let-values(((fold-var_387)" @@ -75595,11 +75601,11 @@ static const char *startup_source = " inside-scope_2))" " fold-var_386))))" "(values fold-var_387)))))" -"(if(not #f)(for-loop_328 fold-var_385 rest_254) fold-var_385)))" +"(if(not #f)(for-loop_326 fold-var_385 rest_253) fold-var_385)))" " fold-var_384)))))" -" for-loop_328)" +" for-loop_326)" " null" -" lst_443))))))" +" lst_438))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" @@ -75623,7 +75629,7 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_558)" +"(let-values(((s_557)" "(add-scope" "(datum->syntax$1" " #f" @@ -75632,7 +75638,7 @@ static const char *startup_source = " scoped-ids_0" " rhs_22))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_558 syms_26 scoped-ids_0 rhs_22)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_557 syms_26 scoped-ids_0 rhs_22)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_116)" @@ -75640,15 +75646,15 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_116)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_445) bodys_23))" +"(let-values(((lst_440) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_329)" -"(lambda(fold-var_388 lst_446)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" +"((letrec-values(((for-loop_327)" +"(lambda(fold-var_388 lst_441)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((body_23)(unsafe-car lst_446))((rest_255)(unsafe-cdr lst_446)))" +"(if(pair? lst_441)" +"(let-values(((body_23)(unsafe-car lst_441))((rest_254)(unsafe-cdr lst_441)))" "(let-values(((fold-var_389)" "(let-values(((fold-var_390) fold-var_388))" "(let-values(((fold-var_391)" @@ -75657,11 +75663,11 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_390))))" "(values fold-var_391)))))" -"(if(not #f)(for-loop_329 fold-var_389 rest_255) fold-var_389)))" +"(if(not #f)(for-loop_327 fold-var_389 rest_254) fold-var_389)))" " fold-var_388)))))" -" for-loop_329)" +" for-loop_327)" " null" -" lst_445))))" +" lst_440))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75744,14 +75750,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_395)" +"(if(let-values(((or-part_396)" "(parsed? body_24)))" -"(if or-part_395" -" or-part_395" -"(let-values(((or-part_396)" -"(expanded+parsed? body_24)))" "(if or-part_396" " or-part_396" +"(let-values(((or-part_397)" +"(expanded+parsed? body_24)))" +"(if or-part_397" +" or-part_397" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -75768,86 +75774,86 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_819)" +"(let-values(((s_817)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_84" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_820)" +"(let-values(((s_818)" "(syntax-disarm$1" -" s_819)))" +" s_817)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_92)" -" s_820))" +" s_818))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_821)" +"(let-values(((s_819)" "(if(syntax?$1" -" s_820)" +" s_818)" "(syntax-e$1" -" s_820)" -" s_820)))" +" s_818)" +" s_818)))" "(if(pair?" -" s_821)" +" s_819)" "(let-values(((define-values565_0)" -"(let-values(((s_822)" +"(let-values(((s_820)" "(car" -" s_821)))" -" s_822))" +" s_819)))" +" s_820))" "((_566_0" " _567_0)" -"(let-values(((s_823)" +"(let-values(((s_821)" "(cdr" +" s_819)))" +"(let-values(((s_822)" +"(if(syntax?$1" +" s_821)" +"(syntax-e$1" +" s_821)" " s_821)))" -"(let-values(((s_824)" -"(if(syntax?$1" -" s_823)" -"(syntax-e$1" -" s_823)" -" s_823)))" "(if(pair?" -" s_824)" +" s_822)" "(let-values(((_568_0)" -"(let-values(((s_825)" +"(let-values(((s_823)" "(car" -" s_824)))" -" s_825))" +" s_822)))" +" s_823))" "((_569_0)" -"(let-values(((s_826)" +"(let-values(((s_824)" "(cdr" +" s_822)))" +"(let-values(((s_825)" +"(if(syntax?$1" +" s_824)" +"(syntax-e$1" +" s_824)" " s_824)))" -"(let-values(((s_827)" -"(if(syntax?$1" -" s_826)" -"(syntax-e$1" -" s_826)" -" s_826)))" "(if(pair?" -" s_827)" +" s_825)" "(let-values(((_570_0)" -"(let-values(((s_828)" +"(let-values(((s_826)" "(car" -" s_827)))" -" s_828))" +" s_825)))" +" s_826))" "(()" -"(let-values(((s_829)" +"(let-values(((s_827)" "(cdr" -" s_827)))" -"(let-values(((s_830)" +" s_825)))" +"(let-values(((s_828)" "(if(syntax?$1" -" s_829)" +" s_827)" "(syntax-e$1" -" s_829)" -" s_829)))" +" s_827)" +" s_827)))" "(if(null?" -" s_830)" +" s_828)" "(values)" "(raise-syntax-error$1" " #f" @@ -75888,7 +75894,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_819)" +" s_817)" "((temp573_0)" " #t))" "(keep-as-needed85.1" @@ -76104,15 +76110,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_117)" "(begin" "(begin" -"(let-values(((ht_170) need-eventually-defined_3))" +"(let-values(((ht_169) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))" -"((letrec-values(((for-loop_330)" -"(lambda(i_192)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_169)))" +"((letrec-values(((for-loop_328)" +"(lambda(i_193)" "(begin" " 'for-loop" -"(if i_192" -"(let-values(((phase_160 l_84)(hash-iterate-key+value ht_170 i_192)))" +"(if i_193" +"(let-values(((phase_160 l_84)(hash-iterate-key+value ht_169 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76120,24 +76126,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_447) l_84))" +"(let-values(((lst_442) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_448)" +"(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_329)" +"(lambda(lst_443)" "(begin" " 'for-loop" "(if(pair?" -" lst_448)" +" lst_443)" "(let-values(((id_165)" "(unsafe-car" -" lst_448))" -"((rest_256)" +" lst_443))" +"((rest_255)" "(unsafe-cdr" -" lst_448)))" +" lst_443)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76191,19 +76197,19 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_331" -" rest_256)" +"(for-loop_329" +" rest_255)" "(values))))" "(values))))))" -" for-loop_331)" -" lst_447)))" +" for-loop_329)" +" lst_442)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330(hash-iterate-next ht_170 i_192))(values))))" +"(if(not #f)(for-loop_328(hash-iterate-next ht_169 i_193))(values))))" "(values))))))" -" for-loop_330)" -"(hash-iterate-first ht_170))))" +" for-loop_328)" +"(hash-iterate-first ht_169))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -76231,8 +76237,8 @@ static const char *startup_source = " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_397)(parsed?(car bodys_26))))" -"(if or-part_397 or-part_397(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_398)(parsed?(car bodys_26))))" +"(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))" "(let-values()" "(cons(car bodys_26)(loop_127(cdr bodys_26) phase_162)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" @@ -76278,35 +76284,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_85 #%provide595_0 spec596_0)" -"(let-values(((s_623) disarmed-body_1))" -"(let-values(((orig-s_93) s_623))" +"(let-values(((s_622) disarmed-body_1))" +"(let-values(((orig-s_93) s_622))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_831)" +"(let-values(((s_829)" "(if(syntax?$1" -" s_623)" +" s_622)" "(syntax-e$1" -" s_623)" -" s_623)))" -"(if(pair? s_831)" +" s_622)" +" s_622)))" +"(if(pair? s_829)" "(let-values(((#%provide597_0)" -"(let-values(((s_627)" +"(let-values(((s_626)" "(car" -" s_831)))" -" s_627))" +" s_829)))" +" s_626))" "((spec598_0)" -"(let-values(((s_628)" +"(let-values(((s_627)" "(cdr" -" s_831)))" -"(let-values(((s_832)" +" s_829)))" +"(let-values(((s_830)" "(if(syntax?$1" -" s_628)" +" s_627)" "(syntax-e$1" -" s_628)" -" s_628)))" +" s_627)" +" s_627)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_832)))" +" s_830)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76527,8 +76533,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_398) enclosing-self_3))" -"(if or-part_398 or-part_398 self_39)))))" +"(let-values(((or-part_399) enclosing-self_3))" +"(if or-part_399 or-part_399 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -76594,16 +76600,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_833 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_831 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_834)" -"(syntax-property$1 s_833 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_835)" +"(let-values(((s_832)" +"(syntax-property$1 s_831 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_833)" "(syntax-property$1" -" s_834" +" s_832" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_835)))))" +" s_833)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76648,37 +76654,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_86 begin-for-syntax617_0 _618_0)" -"(let-values(((s_836)" +"(let-values(((s_834)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_94) s_836))" +"(let-values(((orig-s_94) s_834))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_837)" +"(let-values(((s_835)" "(if(syntax?$1" -" s_836)" +" s_834)" "(syntax-e$1" -" s_836)" -" s_836)))" -"(if(pair? s_837)" +" s_834)" +" s_834)))" +"(if(pair? s_835)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_838)" +"(let-values(((s_836)" "(car" -" s_837)))" -" s_838))" +" s_835)))" +" s_836))" "((_620_0)" -"(let-values(((s_839)" +"(let-values(((s_837)" "(cdr" -" s_837)))" -"(let-values(((s_657)" +" s_835)))" +"(let-values(((s_656)" "(if(syntax?$1" -" s_839)" +" s_837)" "(syntax-e$1" -" s_839)" -" s_839)))" +" s_837)" +" s_837)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_657)))" +" s_656)))" "(if(not" " flat-s_63)" "(let-values()" @@ -76741,9 +76747,9 @@ static const char *startup_source = " temp624_0))" " parsed-bfs_0))" "(loop_128 rest-bodys_3 phase_164))))))))" -"(if(let-values(((or-part_399)(parsed? body_25)))" -"(if or-part_399" -" or-part_399" +"(if(let-values(((or-part_400)(parsed? body_25)))" +"(if or-part_400" +" or-part_400" "(expanded+parsed? body_25)))" "(let-values()" "(cons body_25(loop_128 rest-bodys_3 phase_164)))" @@ -76769,60 +76775,60 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_840)" +"(let-values(((s_838)" " disarmed-body_2))" -"(if(let-values(((s_841)" +"(if(let-values(((s_839)" "(if(syntax?$1" -" s_840)" +" s_838)" "(syntax-e$1" -" s_840)" -" s_840)))" -"(if(pair? s_841)" -"(if(let-values(((s_842)" +" s_838)" +" s_838)))" +"(if(pair? s_839)" +"(if(let-values(((s_840)" "(car" -" s_841)))" +" s_839)))" " #t)" -"(let-values(((s_843)" +"(let-values(((s_841)" "(cdr" -" s_841)))" -"(let-values(((s_844)" +" s_839)))" +"(let-values(((s_842)" "(if(syntax?$1" -" s_843)" +" s_841)" "(syntax-e$1" -" s_843)" -" s_843)))" +" s_841)" +" s_841)))" "(if(pair?" +" s_842)" +"(if(let-values(((s_843)" +"(car" +" s_842)))" +" #t)" +"(let-values(((s_844)" +"(cdr" +" s_842)))" +"(let-values(((s_662)" +"(if(syntax?$1" " s_844)" +"(syntax-e$1" +" s_844)" +" s_844)))" +"(if(pair?" +" s_662)" "(if(let-values(((s_845)" "(car" -" s_844)))" -" #t)" +" s_662)))" "(let-values(((s_846)" -"(cdr" -" s_844)))" -"(let-values(((s_663)" "(if(syntax?$1" -" s_846)" +" s_845)" "(syntax-e$1" -" s_846)" -" s_846)))" -"(if(pair?" -" s_663)" -"(if(let-values(((s_847)" -"(car" -" s_663)))" -"(let-values(((s_848)" -"(if(syntax?$1" -" s_847)" -"(syntax-e$1" -" s_847)" -" s_847)))" +" s_845)" +" s_845)))" "(eq?" " #f" -" s_848)))" -"(let-values(((s_849)" +" s_846)))" +"(let-values(((s_847)" "(cdr" -" s_663)))" +" s_662)))" " #t)" " #f)" " #f)))" @@ -76834,59 +76840,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_850)" +"(let-values(((s_848)" "(if(syntax?$1" -" s_840)" +" s_838)" "(syntax-e$1" -" s_840)" -" s_840)))" +" s_838)" +" s_838)))" "(let-values(((module*628_0)" -"(let-values(((s_851)" +"(let-values(((s_849)" "(car" -" s_850)))" -" s_851))" +" s_848)))" +" s_849))" "((name629_0" " _630_0)" -"(let-values(((s_852)" +"(let-values(((s_850)" "(cdr" +" s_848)))" +"(let-values(((s_667)" +"(if(syntax?$1" +" s_850)" +"(syntax-e$1" +" s_850)" " s_850)))" -"(let-values(((s_668)" -"(if(syntax?$1" -" s_852)" -"(syntax-e$1" -" s_852)" -" s_852)))" "(let-values(((name631_0)" -"(let-values(((s_670)" +"(let-values(((s_669)" "(car" -" s_668)))" -" s_670))" +" s_667)))" +" s_669))" "((_632_0)" -"(let-values(((s_853)" +"(let-values(((s_851)" "(cdr" -" s_668)))" -"(let-values(((s_671)" +" s_667)))" +"(let-values(((s_670)" "(if(syntax?$1" -" s_853)" +" s_851)" "(syntax-e$1" -" s_853)" -" s_853)))" +" s_851)" +" s_851)))" "(let-values((()" -"(let-values(((s_673)" +"(let-values(((s_672)" "(car" -" s_671)))" -"(let-values(((s_854)" +" s_670)))" +"(let-values(((s_852)" "(if(syntax?$1" -" s_673)" +" s_672)" "(syntax-e$1" -" s_673)" -" s_673)))" +" s_672)" +" s_672)))" "(values))))" "((_633_0)" -"(let-values(((s_855)" +"(let-values(((s_853)" "(cdr" -" s_671)))" -" s_855)))" +" s_670)))" +" s_853)))" "(values" " _633_0))))))" "(values" @@ -77051,21 +77057,21 @@ static const char *startup_source = "(let-values(((ids_47) ids170_0))" "(let-values(((phase_165) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_856) in168_0))" +"(let-values(((s_854) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_449) ids_47))" +"(let-values(((lst_444) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_450)" +"(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((id_166)(unsafe-car lst_450))" -"((rest_257)(unsafe-cdr lst_450)))" +"(if(pair? lst_445)" +"(let-values(((id_166)(unsafe-car lst_445))" +"((rest_256)(unsafe-cdr lst_445)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77077,7 +77083,7 @@ static const char *startup_source = "((id656_0) id_166)" "((phase657_0)" " phase_165)" -"((s658_0) s_856)" +"((s658_0) s_854)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -77097,25 +77103,25 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_332 rest_257)(values))))" +"(if(not #f)(for-loop_330 rest_256)(values))))" "(values))))))" -" for-loop_332)" -" lst_449)))" +" for-loop_330)" +" lst_444)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_28 phase_166 m-ns_22 self_41 ctx_121)" "(begin" "(begin" -"(let-values(((lst_451) bodys_28))" +"(let-values(((lst_446) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_452)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" +"((letrec-values(((for-loop_331)" +"(lambda(lst_447)" "(begin" " 'for-loop" -"(if(pair? lst_452)" -"(let-values(((body_26)(unsafe-car lst_452))((rest_258)(unsafe-cdr lst_452)))" +"(if(pair? lst_447)" +"(let-values(((body_26)(unsafe-car lst_447))((rest_257)(unsafe-cdr lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77141,59 +77147,59 @@ static const char *startup_source = " m-ns_22" " ctx_121)))" "(begin" -"(let-values(((lst_453) ids_48)" -"((lst_454)" +"(let-values(((lst_448) ids_48)" +"((lst_449)" "(parsed-define-values-syms" " p_89))" -"((lst_455) vals_11))" +"((lst_450) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_453)))" +"(check-list lst_448)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_454)))" +"(check-list lst_449)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_455)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_456" -" lst_457" -" lst_458)" +"(check-list lst_450)))" +"((letrec-values(((for-loop_332)" +"(lambda(lst_451" +" lst_452" +" lst_453)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_456)" +" lst_451)" "(if(pair?" -" lst_457)" +" lst_452)" "(pair?" -" lst_458)" +" lst_453)" " #f)" " #f)" "(let-values(((id_167)" "(unsafe-car" -" lst_456))" -"((rest_259)" +" lst_451))" +"((rest_258)" "(unsafe-cdr" -" lst_456))" +" lst_451))" "((sym_105)" "(unsafe-car" -" lst_457))" -"((rest_260)" +" lst_452))" +"((rest_259)" "(unsafe-cdr" -" lst_457))" +" lst_452))" "((val_88)" "(unsafe-car" -" lst_458))" -"((rest_261)" +" lst_453))" +"((rest_260)" "(unsafe-cdr" -" lst_458)))" +" lst_453)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77209,30 +77215,30 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_334" +"(for-loop_332" +" rest_258" " rest_259" -" rest_260" -" rest_261)" +" rest_260)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_453" -" lst_454" -" lst_455)))" +" for-loop_332)" +" lst_448" +" lst_449" +" lst_450)))" "(void)))))" -"(if(let-values(((or-part_400)" -"(parsed-define-syntaxes?" -" p_89)))" -"(if or-part_400" -" or-part_400" -"(semi-parsed-begin-for-syntax?" -" p_89)))" -"(let-values()(void))" "(if(let-values(((or-part_401)" -"(parsed-#%declare?" +"(parsed-define-syntaxes?" " p_89)))" "(if or-part_401" " or-part_401" +"(semi-parsed-begin-for-syntax?" +" p_89)))" +"(let-values()(void))" +"(if(let-values(((or-part_402)" +"(parsed-#%declare?" +" p_89)))" +"(if or-part_402" +" or-part_402" "(syntax?$1 p_89)))" "(let-values()(void))" "(let-values()" @@ -77270,10 +77276,10 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_258)(values))))" +"(if(not #f)(for-loop_331 rest_257)(values))))" "(values))))))" -" for-loop_333)" -" lst_451)))" +" for-loop_331)" +" lst_446)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77295,7 +77301,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_857) s194_0))" +"(let-values(((s_855) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77324,42 +77330,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_857)" +"(call-expand-observe obs_158 'enter-prim s_855)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_88 module662_0 name663_0 _664_0)" -"(let-values(((s_858) s_857))" -"(let-values(((orig-s_95) s_858))" +"(let-values(((s_856) s_855))" +"(let-values(((orig-s_95) s_856))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_859)" -"(if(syntax?$1 s_858)" -"(syntax-e$1 s_858)" -" s_858)))" -"(if(pair? s_859)" +"(let-values(((s_857)" +"(if(syntax?$1 s_856)" +"(syntax-e$1 s_856)" +" s_856)))" +"(if(pair? s_857)" "(let-values(((module665_0)" -"(let-values(((s_860)(car s_859)))" -" s_860))" +"(let-values(((s_858)(car s_857)))" +" s_858))" "((name666_0 _667_0)" -"(let-values(((s_861)(cdr s_859)))" -"(let-values(((s_862)" +"(let-values(((s_859)(cdr s_857)))" +"(let-values(((s_860)" "(if(syntax?$1" -" s_861)" -"(syntax-e$1 s_861)" -" s_861)))" -"(if(pair? s_862)" +" s_859)" +"(syntax-e$1 s_859)" +" s_859)))" +"(if(pair? s_860)" "(let-values(((name668_0)" -"(let-values(((s_863)" +"(let-values(((s_861)" "(car" -" s_862)))" -" s_863))" +" s_860)))" +" s_861))" "((_669_0)" -"(let-values(((s_864)" +"(let-values(((s_862)" "(cdr" +" s_860)))" " s_862)))" -" s_864)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -77379,7 +77385,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_857" +" s_855" " name_80))" "(void))" "(values))))" @@ -77396,11 +77402,11 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_857)))" +"(call-expand-observe obs_159 'enter-prim s_855)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_857)" +"(let-values(((s670_0) s_855)" "((temp671_0)" "(let-values(((v_271) ctx_122))" "(let-values(((the-struct_116) v_271))" @@ -77718,18 +77724,18 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_459) bodys_29))" +"(let-values(((lst_454) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_335)" -"(lambda(fold-var_392 lst_460)" +"(let-values()(check-list lst_454)))" +"((letrec-values(((for-loop_333)" +"(lambda(fold-var_392 lst_455)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((body_27)(unsafe-car lst_460))" -"((rest_262)(unsafe-cdr lst_460)))" +"(if(pair? lst_455)" +"(let-values(((body_27)(unsafe-car lst_455))" +"((rest_261)(unsafe-cdr lst_455)))" "(let-values(((fold-var_393)" "(let-values(((fold-var_394) fold-var_392))" "(let-values(((fold-var_395)" @@ -77780,12 +77786,12 @@ static const char *startup_source = " fold-var_394))))" "(values fold-var_395)))))" "(if(not #f)" -"(for-loop_335 fold-var_393 rest_262)" +"(for-loop_333 fold-var_393 rest_261)" " fold-var_393)))" " fold-var_392)))))" -" for-loop_335)" +" for-loop_333)" " null" -" lst_459))))))))))))))))" +" lst_454))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77796,37 +77802,37 @@ static const char *startup_source = "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_865 phase_168)" +"(lambda(s_863 phase_168)" "(let-values(((ok?_89 #%require706_0 req707_0)" -"(let-values(((s_866)(syntax-disarm$1 s_865)))" -"(let-values(((orig-s_96) s_866))" +"(let-values(((s_864)(syntax-disarm$1 s_863)))" +"(let-values(((orig-s_96) s_864))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_867)" -"(if(syntax?$1 s_866)(syntax-e$1 s_866) s_866)))" -"(if(pair? s_867)" +"(let-values(((s_865)" +"(if(syntax?$1 s_864)(syntax-e$1 s_864) s_864)))" +"(if(pair? s_865)" "(let-values(((#%require708_0)" -"(let-values(((s_868)(car s_867))) s_868))" +"(let-values(((s_866)(car s_865))) s_866))" "((req709_0)" -"(let-values(((s_869)(cdr s_867)))" -"(let-values(((s_870)" -"(if(syntax?$1 s_869)" -"(syntax-e$1 s_869)" -" s_869)))" -"(if(pair? s_870)" +"(let-values(((s_867)(cdr s_865)))" +"(let-values(((s_868)" +"(if(syntax?$1 s_867)" +"(syntax-e$1 s_867)" +" s_867)))" +"(if(pair? s_868)" "(let-values(((req710_0)" -"(let-values(((s_871)" -"(car s_870)))" -" s_871))" +"(let-values(((s_869)" +"(car s_868)))" +" s_869))" "(()" -"(let-values(((s_872)" -"(cdr s_870)))" -"(let-values(((s_873)" +"(let-values(((s_870)" +"(cdr s_868)))" +"(let-values(((s_871)" "(if(syntax?$1" -" s_872)" +" s_870)" "(syntax-e$1" -" s_872)" -" s_872)))" -"(if(null? s_873)" +" s_870)" +" s_870)))" +"(if(null? s_871)" "(values)" "(raise-syntax-error$1" " #f" @@ -77841,7 +77847,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_865)" +"((s712_0) s_863)" "((self713_0) self_44)" "((m-ns714_0) m-ns_23)" "((phase715_0) phase_168)" @@ -77887,16 +77893,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_461) lifted-defns_2))" +"(let-values(((lst_456) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_396 lst_462)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" +"((letrec-values(((for-loop_334)" +"(lambda(fold-var_396 lst_457)" "(begin" " 'for-loop" -"(if(pair? lst_462)" -"(let-values(((lifted-defn_0)(unsafe-car lst_462))" -"((rest_263)(unsafe-cdr lst_462)))" +"(if(pair? lst_457)" +"(let-values(((lifted-defn_0)(unsafe-car lst_457))" +"((rest_262)(unsafe-cdr lst_457)))" "(let-values(((fold-var_397)" "(let-values(((fold-var_398) fold-var_396))" "(let-values(((fold-var_399)" @@ -77906,11 +77912,11 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_398))))" "(values fold-var_399)))))" -"(if(not #f)(for-loop_336 fold-var_397 rest_263) fold-var_397)))" +"(if(not #f)(for-loop_334 fold-var_397 rest_262) fold-var_397)))" " fold-var_396)))))" -" for-loop_336)" +" for-loop_334)" " null" -" lst_461)))))))" +" lst_456)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -77926,18 +77932,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_162 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_463) s-lifted-defns_0))" +"(let-values(((lst_458) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_463)))" -"((letrec-values(((for-loop_337)" -"(lambda(lst_464)" +"(let-values()(check-list lst_458)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_459)" "(begin" " 'for-loop" -"(if(pair? lst_464)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_464))" -"((rest_264)(unsafe-cdr lst_464)))" +"(if(pair? lst_459)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" +"((rest_263)(unsafe-cdr lst_459)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77947,38 +77953,38 @@ static const char *startup_source = "(let-values(((ok?_90" " define-values724_0" " _725_0)" -"(let-values(((s_874)" +"(let-values(((s_872)" " s-lifted-defn_0))" "(let-values(((orig-s_97)" -" s_874))" +" s_872))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_875)" +"(let-values(((s_873)" "(if(syntax?$1" -" s_874)" +" s_872)" "(syntax-e$1" -" s_874)" -" s_874)))" +" s_872)" +" s_872)))" "(if(pair?" -" s_875)" +" s_873)" "(let-values(((define-values726_0)" -"(let-values(((s_876)" +"(let-values(((s_874)" "(car" -" s_875)))" -" s_876))" +" s_873)))" +" s_874))" "((_727_0)" -"(let-values(((s_877)" +"(let-values(((s_875)" "(cdr" -" s_875)))" -"(let-values(((s_878)" +" s_873)))" +"(let-values(((s_876)" "(if(syntax?$1" -" s_877)" +" s_875)" "(syntax-e$1" -" s_877)" -" s_877)))" +" s_875)" +" s_875)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_878)))" +" s_876)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78043,23 +78049,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_337 rest_264)(values))))" +"(if(not #f)(for-loop_335 rest_263)(values))))" "(values))))))" -" for-loop_337)" -" lst_463)))" +" for-loop_335)" +" lst_458)))" "(values))))" "(let-values()" "(let-values(((ok?_91 form-id720_0 _721_0)" -"(let-values(((s_879) exp-body_10))" -"(let-values(((orig-s_98) s_879))" +"(let-values(((s_877) exp-body_10))" +"(let-values(((orig-s_98) s_877))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_880)" -"(if(syntax?$1 s_879)(syntax-e$1 s_879) s_879)))" -"(if(pair? s_880)" +"(let-values(((s_878)" +"(if(syntax?$1 s_877)(syntax-e$1 s_877) s_877)))" +"(if(pair? s_878)" "(let-values(((form-id722_0)" -"(let-values(((s_881)(car s_880))) s_881))" +"(let-values(((s_879)(car s_878))) s_879))" "((_723_0)" -"(let-values(((s_882)(cdr s_880))) s_882)))" +"(let-values(((s_880)(cdr s_878))) s_880)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t form-id720_1 _721_1))))))" @@ -78081,20 +78087,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_92 define-values728_0 _729_0)" -"(let-values(((s_883) s-defn_0))" -"(let-values(((orig-s_99) s_883))" +"(let-values(((s_881) s-defn_0))" +"(let-values(((orig-s_99) s_881))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_884)(if(syntax?$1 s_883)(syntax-e$1 s_883) s_883)))" -"(if(pair? s_884)" +"(let-values(((s_882)(if(syntax?$1 s_881)(syntax-e$1 s_881) s_881)))" +"(if(pair? s_882)" "(let-values(((define-values730_0)" -"(let-values(((s_885)(car s_884))) s_885))" +"(let-values(((s_883)(car s_882))) s_883))" "((_731_0)" -"(let-values(((s_886)(cdr s_884)))" -"(let-values(((s_887)" -"(if(syntax?$1 s_886)" -"(syntax-e$1 s_886)" -" s_886)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_887)))" +"(let-values(((s_884)(cdr s_882)))" +"(let-values(((s_885)" +"(if(syntax?$1 s_884)" +"(syntax-e$1 s_884)" +" s_884)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_885)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78137,13 +78143,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_400 lst_86)" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_400 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_168)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((id_168)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_400))" "(let-values(((fold-var_401)" @@ -78155,9 +78161,9 @@ static const char *startup_source = " ctx_126))" " fold-var_62))))" "(values fold-var_401)))))" -"(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" +"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" " fold-var_400)))))" -" for-loop_103)" +" for-loop_104)" " null" " lst_6))))))" "(let-values((()" @@ -78167,18 +78173,18 @@ static const char *startup_source = "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_101) tl-ids_2))" +"(let-values(((lst_100) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_222 lst_87)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_222 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((id_169)(unsafe-car lst_87))" -"((rest_244)(unsafe-cdr lst_87)))" +"(if(pair? lst_86)" +"(let-values(((id_169)(unsafe-car lst_86))" +"((rest_243)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_155) fold-var_222))" "(let-values(((fold-var_225)" @@ -78191,12 +78197,12 @@ static const char *startup_source = " fold-var_155))))" "(values fold-var_225)))))" "(if(not #f)" -"(for-loop_338 fold-var_26 rest_244)" +"(for-loop_336 fold-var_26 rest_243)" " fold-var_26)))" " fold-var_222)))))" -" for-loop_338)" +" for-loop_336)" " null" -" lst_101))))))" +" lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" "(void" "(add-core-form!*" @@ -78217,26 +78223,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_398) s_0))" -"(let-values(((orig-s_100) s_398))" +"(let-values(((s_399) s_0))" +"(let-values(((orig-s_100) s_399))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_173)(if(syntax?$1 s_398)(syntax-e$1 s_398) s_398)))" -"(if(pair? s_173)" +"(let-values(((s_172)(if(syntax?$1 s_399)(syntax-e$1 s_399) s_399)))" +"(if(pair? s_172)" "(let-values(((define-values4_0)" -"(let-values(((s_73)(car s_173))) s_73))" +"(let-values(((s_73)(car s_172))) s_73))" "((id5_0 rhs6_0)" -"(let-values(((s_174)(cdr s_173)))" +"(let-values(((s_173)(cdr s_172)))" "(let-values(((s_76)" -"(if(syntax?$1 s_174)" -"(syntax-e$1 s_174)" -" s_174)))" +"(if(syntax?$1 s_173)" +"(syntax-e$1 s_173)" +" s_173)))" "(if(pair? s_76)" "(let-values(((id7_0)" -"(let-values(((s_159)(car s_76)))" +"(let-values(((s_158)(car s_76)))" "(let-values(((s_5)" -"(if(syntax?$1 s_159)" -"(syntax-e$1 s_159)" -" s_159)))" +"(if(syntax?$1 s_158)" +"(syntax-e$1 s_158)" +" s_158)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" " s_5)))" @@ -78257,19 +78263,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_251)" +"((letrec-values(((for-loop_250)" "(lambda(id_170" -" lst_81)" +" lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_81)" -"(let-values(((s_175)" +" lst_80)" +"(let-values(((s_174)" "(unsafe-car" -" lst_81))" +" lst_80))" "((rest_143)" "(unsafe-cdr" -" lst_81)))" +" lst_80)))" "(let-values(((id_171)" "(let-values(((id_53)" " id_170))" @@ -78279,21 +78285,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_175)" +" s_174)" "(symbol?" "(syntax-e$1" -" s_175))" +" s_174))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_175)))" -" s_175" +" s_174)))" +" s_174" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_175)))))" +" s_174)))))" "(cons" " id10_1" " id_53)))))" @@ -78301,31 +78307,31 @@ static const char *startup_source = " id_172)))))" "(if(not" " #f)" -"(for-loop_251" +"(for-loop_250" " id_171" " rest_143)" " id_171)))" " id_170)))))" -" for-loop_251)" +" for-loop_250)" " null" " lst_24)))))" "(reverse$1 id_5))))))))" "((rhs8_0)" "(let-values(((s_83)(cdr s_76)))" -"(let-values(((s_376)" +"(let-values(((s_377)" "(if(syntax?$1 s_83)" "(syntax-e$1 s_83)" " s_83)))" -"(if(pair? s_376)" +"(if(pair? s_377)" "(let-values(((rhs9_0)" "(let-values(((s_44)" "(car" -" s_376)))" +" s_377)))" " s_44))" "(()" "(let-values(((s_300)" "(cdr" -" s_376)))" +" s_377)))" "(let-values(((s_35)" "(if(syntax?$1" " s_300)" @@ -78364,7 +78370,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_888 ctx_127)" +"(lambda(s_886 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78381,33 +78387,33 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_888)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_886)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_888)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_886)))" "(let-values(((ok?_93 define-syntaxes15_0 id16_1 rhs17_0)" -"(let-values(((s_419) disarmed-s_26))" -"(let-values(((orig-s_101) s_419))" +"(let-values(((s_420) disarmed-s_26))" +"(let-values(((orig-s_101) s_420))" "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_419)(syntax-e$1 s_419) s_419)))" +"(let-values(((s_20)(if(syntax?$1 s_420)(syntax-e$1 s_420) s_420)))" "(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_451)(cdr s_20)))" +"(let-values(((s_452)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_451)" -"(syntax-e$1 s_451)" -" s_451)))" +"(if(syntax?$1 s_452)" +"(syntax-e$1 s_452)" +" s_452)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_732)(car s_24)))" -"(let-values(((s_457)" -"(if(syntax?$1 s_732)" -"(syntax-e$1 s_732)" -" s_732)))" +"(let-values(((s_731)(car s_24)))" +"(let-values(((s_459)" +"(if(syntax?$1 s_731)" +"(syntax-e$1 s_731)" +" s_731)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" -" s_457)))" +" s_459)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -78416,7 +78422,7 @@ static const char *startup_source = " orig-s_101))" "(let-values()" "(let-values(((id_173)" -"(let-values(((lst_183)" +"(let-values(((lst_181)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78424,20 +78430,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_183)))" -"((letrec-values(((for-loop_339)" +" lst_181)))" +"((letrec-values(((for-loop_337)" "(lambda(id_174" -" lst_465)" +" lst_460)" "(begin" " 'for-loop" "(if(pair?" -" lst_465)" -"(let-values(((s_889)" +" lst_460)" +"(let-values(((s_887)" "(unsafe-car" -" lst_465))" -"((rest_265)" +" lst_460))" +"((rest_264)" "(unsafe-cdr" -" lst_465)))" +" lst_460)))" "(let-values(((id_175)" "(let-values(((id_98)" " id_174))" @@ -78447,21 +78453,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_73)" "(if(syntax?$1" -" s_889)" +" s_887)" "(symbol?" "(syntax-e$1" -" s_889))" +" s_887))" " #f)))" "(if or-part_73" " or-part_73" "(symbol?" -" s_889)))" -" s_889" +" s_887)))" +" s_887" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_101" -" s_889)))))" +" s_887)))))" "(cons" " id24_1" " id_98)))))" @@ -78469,39 +78475,39 @@ static const char *startup_source = " id_99)))))" "(if(not" " #f)" -"(for-loop_339" +"(for-loop_337" " id_175" -" rest_265)" +" rest_264)" " id_175)))" " id_174)))))" -" for-loop_339)" +" for-loop_337)" " null" -" lst_183)))))" +" lst_181)))))" "(reverse$1 id_173))))))))" "((rhs22_0)" -"(let-values(((s_484)(cdr s_24)))" -"(let-values(((s_465)" -"(if(syntax?$1 s_484)" -"(syntax-e$1 s_484)" -" s_484)))" -"(if(pair? s_465)" +"(let-values(((s_485)(cdr s_24)))" +"(let-values(((s_467)" +"(if(syntax?$1 s_485)" +"(syntax-e$1 s_485)" +" s_485)))" +"(if(pair? s_467)" "(let-values(((rhs23_2)" -"(let-values(((s_168)" +"(let-values(((s_167)" "(car" -" s_465)))" -" s_168))" +" s_467)))" +" s_167))" "(()" "(let-values(((s_45)" "(cdr" -" s_465)))" -"(let-values(((s_466)" +" s_467)))" +"(let-values(((s_468)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(null?" -" s_466)" +" s_468)" "(values)" "(raise-syntax-error$1" " #f" @@ -78520,37 +78526,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_888 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_886 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-define-syntaxes20.1 s_888 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_888)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_886 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_886)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_469 ctx_10)" +"(lambda(s_471 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_469)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_471)))" "(values))))" "(let-values(((ok?_94 begin-for-syntax29_0 form30_0)" -"(let-values(((s_414) s_469))" -"(let-values(((orig-s_102) s_414))" +"(let-values(((s_415) s_471))" +"(let-values(((orig-s_102) s_415))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_415)(if(syntax?$1 s_414)(syntax-e$1 s_414) s_414)))" -"(if(pair? s_415)" +"(let-values(((s_416)(if(syntax?$1 s_415)(syntax-e$1 s_415) s_415)))" +"(if(pair? s_416)" "(let-values(((begin-for-syntax31_0)" -"(let-values(((s_31)(car s_415))) s_31))" +"(let-values(((s_31)(car s_416))) s_31))" "((form32_0)" -"(let-values(((s_47)(cdr s_415)))" -"(let-values(((s_890)" +"(let-values(((s_47)(cdr s_416)))" +"(let-values(((s_888)" "(if(syntax?$1 s_47)(syntax-e$1 s_47) s_47)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_890)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_888)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102))" @@ -78652,7 +78658,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_469))))" +"(datum->syntax$1 #f form30_0 s_471))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -78678,7 +78684,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_469))))" +" s_471))))" "(void)))" " forms_2)))" "(let-values()" @@ -78759,8 +78765,8 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_469 all-exp-forms_0)" -"(let-values(((s45_0) s_469)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_471 all-exp-forms_0)" +"(let-values(((s45_0) s_471)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -78782,15 +78788,15 @@ static const char *startup_source = "(let-values(((s_192) disarmed-s_27))" "(let-values(((orig-s_4) s_192))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_891)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" -"(if(pair? s_891)" -"(let-values(((#%require49_0)(let-values(((s_489)(car s_891))) s_489))" +"(let-values(((s_889)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" +"(if(pair? s_889)" +"(let-values(((#%require49_0)(let-values(((s_490)(car s_889))) s_490))" "((req50_0)" -"(let-values(((s_892)(cdr s_891)))" +"(let-values(((s_890)(cdr s_889)))" "(let-values(((s_194)" -"(if(syntax?$1 s_892)" -"(syntax-e$1 s_892)" -" s_892)))" +"(if(syntax?$1 s_890)" +"(syntax-e$1 s_890)" +" s_890)))" "(let-values(((flat-s_69)(to-syntax-list.1 s_194)))" "(if(not flat-s_69)" "(let-values()" @@ -78803,18 +78809,18 @@ static const char *startup_source = "(begin" "(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_466) req48_0))" +"(let-values(((lst_461) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_466)))" -"((letrec-values(((for-loop_340)" -"(lambda(fold-var_296 lst_155)" +"(let-values()(check-list lst_461)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_296 lst_153)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((req_20)(unsafe-car lst_155))" -"((rest_266)(unsafe-cdr lst_155)))" +"(if(pair? lst_153)" +"(let-values(((req_20)(unsafe-car lst_153))" +"((rest_265)(unsafe-cdr lst_153)))" "(let-values(((fold-var_402)" "(let-values(((fold-var_299) fold-var_296))" "(let-values(((fold-var_403)" @@ -78827,12 +78833,12 @@ static const char *startup_source = " fold-var_299))))" "(values fold-var_403)))))" "(if(not #f)" -"(for-loop_340 fold-var_402 rest_266)" +"(for-loop_338 fold-var_402 rest_265)" " fold-var_402)))" " fold-var_296)))))" -" for-loop_340)" +" for-loop_338)" " null" -" lst_466)))))" +" lst_461)))))" "((s52_0) s_33)" "((temp53_5) #f)" "((temp54_7)(expand-context-namespace ctx_128))" @@ -78904,17 +78910,17 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_8)" -"(let-values(((ht_171) main-primitives))" +"(let-values(((ht_170) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_171)))" +"(let-values()(check-in-hash-keys ht_170)))" "((letrec-values(((for-loop_20)" "(lambda(table_232 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_171 i_3)))" +"(let-values(((name_81)(hash-iterate-key ht_170 i_3)))" "(let-values(((table_222)" "(let-values(((table_233) table_232))" "(let-values(((table_190)" @@ -78927,24 +78933,24 @@ static const char *startup_source = "(hash-set table_233 key_97 val_89)))))" "(values table_190)))))" "(if(not #f)" -"(for-loop_20 table_222(hash-iterate-next ht_171 i_3))" +"(for-loop_20 table_222(hash-iterate-next ht_170 i_3))" " table_222)))" " table_232)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_171)))))" +"(hash-iterate-first ht_170)))))" "((temp29_5)" -"(let-values(((ht_172) read-primitives))" +"(let-values(((ht_171) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_172)))" -"((letrec-values(((for-loop_322)" -"(lambda(table_193 i_186)" +"(let-values()(check-in-hash-keys ht_171)))" +"((letrec-values(((for-loop_320)" +"(lambda(table_193 i_187)" "(begin" " 'for-loop" -"(if i_186" -"(let-values(((name_82)(hash-iterate-key ht_172 i_186)))" +"(if i_187" +"(let-values(((name_82)(hash-iterate-key ht_171 i_187)))" "(let-values(((table_119)" "(let-values(((table_112) table_193))" "(let-values(((table_113)" @@ -78957,12 +78963,12 @@ static const char *startup_source = "(hash-set table_112 key_98 val_90)))))" "(values table_113)))))" "(if(not #f)" -"(for-loop_322 table_119(hash-iterate-next ht_172 i_186))" +"(for-loop_320 table_119(hash-iterate-next ht_171 i_187))" " table_119)))" " table_193)))))" -" for-loop_322)" +" for-loop_320)" " '#hash()" -"(hash-iterate-first ht_172))))))" +"(hash-iterate-first ht_171))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" @@ -78986,12 +78992,12 @@ static const char *startup_source = "(let-values(((name30_0) name_83)" "((ns31_5) ns)" "((temp32_5)" -"(let-values(((or-part_163)" +"(let-values(((or-part_164)" "(eq?" " name_83" " '#%foreign)))" -"(if or-part_163" -" or-part_163" +"(if or-part_164" +" or-part_164" "(let-values(((or-part_95)" "(eq?" " name_83" @@ -79030,5 +79036,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_893)(begin(1/datum->syntax core-stx s_893)))))" +"(define-values(datum->kernel-syntax)(lambda(s_891)(begin(1/datum->syntax core-stx s_891)))))" ;