From 407c1b49c591f6a7d77845ffe790ab3d45493d60 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 7 Mar 2018 18:07:37 -0700 Subject: [PATCH] reader: repair `#lang` change Commit d5d8249c12 added too many syntax wrappers on list forms. --- racket/src/expander/syntax/read-syntax.rkt | 5 + racket/src/racket/src/startup.inc | 1416 ++++++++++---------- 2 files changed, 729 insertions(+), 692 deletions(-) diff --git a/racket/src/expander/syntax/read-syntax.rkt b/racket/src/expander/syntax/read-syntax.rkt index 2e7165094a..80319dacba 100644 --- a/racket/src/expander/syntax/read-syntax.rkt +++ b/racket/src/expander/syntax/read-syntax.rkt @@ -118,6 +118,11 @@ [(syntax? v) (syntax->datum v)] [else v])] [(syntax? v) v] + [(list? v) + (read-to-syntax (for/list ([e (in-list v)]) + (read-coerce #t e srcloc)) + srcloc + #f)] [(pair? v) (read-to-syntax (cons (read-coerce #t (car v) srcloc) (read-coerce #t (cdr v) srcloc)) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 230e5a9fc8..8bd81e3373 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -56650,13 +56650,45 @@ static const char *startup_source = "(let-values()(if(syntax?$1 v_246)(let-values()(syntax->datum$1 v_246))(let-values() v_246)))" "(if(syntax?$1 v_246)" "(let-values() v_246)" +"(if(list? v_246)" +"(let-values()" +"(read-to-syntax" +"(reverse$1" +"(let-values(((lst_269) v_246))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_269)))" +"((letrec-values(((for-loop_279)" +"(lambda(fold-var_286 lst_282)" +"(begin" +" 'for-loop" +"(if(pair? lst_282)" +"(let-values(((e_86)(unsafe-car lst_282))" +"((rest_176)(unsafe-cdr lst_282)))" +"(let-values(((fold-var_287)" +"(let-values(((fold-var_288) fold-var_286))" +"(let-values(((fold-var_244)" +"(let-values()" +"(cons" +"(let-values()" +"(read-coerce #t e_86 srcloc_12))" +" fold-var_288))))" +"(values fold-var_244)))))" +"(if(not #f)(for-loop_279 fold-var_287 rest_176) fold-var_287)))" +" fold-var_286)))))" +" for-loop_279)" +" null" +" lst_269))))" +" srcloc_12" +" #f))" "(if(pair? v_246)" "(let-values()" "(read-to-syntax" "(cons(read-coerce #t(car v_246) srcloc_12)(read-coerce #t(cdr v_246) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_246 srcloc_12 #f))))))))" +"(let-values()(read-to-syntax v_246 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_42)" @@ -56969,7 +57001,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_267)" "(let-values(((sym_95)(unsafe-car lst_267))" -"((rest_176)(unsafe-cdr lst_267)))" +"((rest_177)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -56988,7 +57020,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_176)" +"(for-loop_20 rest_177)" "(values))))" "(values))))))" " for-loop_20)" @@ -57057,7 +57089,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_86)(1/exn:fail:filesystem:missing-module-path e_86))))" +"(cons 1/prop:exn:missing-module(lambda(e_87)(1/exn:fail:filesystem:missing-module-path e_87))))" " #f" " #f" " '(0)" @@ -58378,7 +58410,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_279)" +"((letrec-values(((for-loop_280)" "(lambda(ht_165 i_184)" "(begin" " 'for-loop" @@ -58398,12 +58430,12 @@ static const char *startup_source = " v_50))))" "(values ht_49)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_280" " ht_166" "(hash-iterate-next ht_164 i_184))" " ht_166)))" " ht_165)))))" -" for-loop_279)" +" for-loop_280)" " ht_162" "(hash-iterate-first ht_164))))))" "(let-values(((to-name61_0) to-name_0)" @@ -58462,7 +58494,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_169)))" -"((letrec-values(((for-loop_280)" +"((letrec-values(((for-loop_281)" "(lambda(table_223 i_185)" "(begin" " 'for-loop" @@ -58537,14 +58569,14 @@ static const char *startup_source = "(values" " table_226)))))" "(if(not #f)" -"(for-loop_280" +"(for-loop_281" " table_224" "(hash-iterate-next" " ht_169" " i_185))" " table_224)))" " table_223)))))" -" for-loop_280)" +" for-loop_281)" " '#hash()" "(hash-iterate-first ht_169))))))" "((temp75_2)" @@ -58564,7 +58596,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_170)))" -"((letrec-values(((for-loop_281)" +"((letrec-values(((for-loop_282)" "(lambda(i_47)" "(begin" " 'for-loop" @@ -58587,13 +58619,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_282" "(hash-iterate-next" " ht_170" " i_47))" "(values))))" "(values))))))" -" for-loop_281)" +" for-loop_282)" "(hash-iterate-first ht_170))))" "(void)))" "(void)))))" @@ -58658,9 +58690,9 @@ static const char *startup_source = "(if(pair? lst_205)" "(let-values(((require-name_0)(unsafe-car lst_205))" "((rest_105)(unsafe-cdr lst_205)))" -"(let-values(((fold-var_286)" -"(let-values(((fold-var_287) fold-var_41))" -"(let-values(((fold-var_288)" +"(let-values(((fold-var_289)" +"(let-values(((fold-var_290) fold-var_41))" +"(let-values(((fold-var_291)" "(let-values()" "(cons" "(let-values()" @@ -58669,11 +58701,11 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_287))))" -"(values fold-var_288)))))" +" fold-var_290))))" +"(values fold-var_291)))))" "(if(not #f)" -"(for-loop_203 fold-var_286 rest_105)" -" fold-var_286)))" +"(for-loop_203 fold-var_289 rest_105)" +" fold-var_289)))" " fold-var_41)))))" " for-loop_203)" " null" @@ -58693,14 +58725,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_282)" +"((letrec-values(((for-loop_283)" "(lambda(table_227 lst_317)" "(begin" " 'for-loop" "(if(pair? lst_317)" "(let-values(((require-mpi_0)" "(unsafe-car lst_317))" -"((rest_177)" +"((rest_178)" "(unsafe-cdr lst_317)))" "(let-values(((table_228)" "(let-values(((m_29)" @@ -58710,7 +58742,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_283)" +"((letrec-values(((for-loop_284)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -58774,13 +58806,13 @@ static const char *startup_source = "(hash-iterate-first" " ht_37))))))" " table_32))))))" -" for-loop_283)" +" for-loop_284)" " table_227)))))" "(if(not #f)" -"(for-loop_282 table_228 rest_177)" +"(for-loop_283 table_228 rest_178)" " table_228)))" " table_227)))))" -" for-loop_282)" +" for-loop_283)" " '#hash()" " lst_56))))" " '#hasheqv()))" @@ -60016,7 +60048,7 @@ static const char *startup_source = "(define-values" "(registry-table-ref)" "(lambda(reg_0)" -"(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" +"(begin(let-values(((e_88)(hash-ref -module-hash-table-table reg_0 #f)))(if e_88(ephemeron-value e_88) #f)))))" "(define-values" "(registry-table-set!)" "(lambda(reg_1 v_198)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_198)))))" @@ -60793,13 +60825,13 @@ static const char *startup_source = " s_59" "(1/current-namespace)" "(let-values(((c_118)(1/current-compile)))" -"(lambda(e_88 ns_16)" +"(lambda(e_89 ns_16)" "(if(eq? ns_16(1/current-namespace))" -"(c_118 e_88 #t)" +"(c_118 e_89 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)" -"(let-values()(c_118 e_88 #t))))))))))" +"(let-values()(c_118 e_89 #t))))))))))" "(define-values" "(default-compile-handler)" "(lambda(s_60 immediate-eval?_0)(begin(1/compile s_60(1/current-namespace)(not immediate-eval?_0)))))" @@ -60874,7 +60906,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_68 lst_102)" "(begin" " 'for-loop" @@ -60893,10 +60925,10 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_284 fold-var_11 rest_140)" +"(for-loop_285 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_68)))))" -" for-loop_284)" +" for-loop_285)" " null" " lst_265))))))" "(let-values((()" @@ -61155,11 +61187,11 @@ static const char *startup_source = " begin79_1" " e80_1))))))" "(let-values(((track_0)" -"(lambda(e_89)" +"(lambda(e_90)" "(begin" " 'track" "(syntax-track-origin$1" -" e_89" +" e_90" " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" @@ -61271,7 +61303,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_194)))" -"((letrec-values(((for-loop_285)" +"((letrec-values(((for-loop_286)" "(lambda(id_108" " lst_319)" "(begin" @@ -61281,7 +61313,7 @@ static const char *startup_source = "(let-values(((s_313)" "(unsafe-car" " lst_319))" -"((rest_178)" +"((rest_179)" "(unsafe-cdr" " lst_319)))" "(let-values(((id_70)" @@ -61315,12 +61347,12 @@ static const char *startup_source = " id_110)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_286" " id_70" -" rest_178)" +" rest_179)" " id_70)))" " id_108)))))" -" for-loop_285)" +" for-loop_286)" " null" " lst_194)))))" "(reverse$1" @@ -61438,7 +61470,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_52)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_287)" "(lambda(fold-var_182" " lst_320)" "(begin" @@ -61448,13 +61480,13 @@ static const char *startup_source = "(let-values(((id_111)" "(unsafe-car" " lst_320))" -"((rest_179)" +"((rest_180)" "(unsafe-cdr" " lst_320)))" "(let-values(((fold-var_238)" -"(let-values(((fold-var_289)" +"(let-values(((fold-var_292)" " fold-var_182))" -"(let-values(((fold-var_290)" +"(let-values(((fold-var_293)" "(let-values()" "(cons" "(let-values()" @@ -61476,17 +61508,17 @@ static const char *startup_source = " id97_1" " phase98_0" " counter99_0)))" -" fold-var_289))))" +" fold-var_292))))" "(values" -" fold-var_290)))))" +" fold-var_293)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_287" " fold-var_238" -" rest_179)" +" rest_180)" " fold-var_238)))" " fold-var_182)))))" -" for-loop_286)" +" for-loop_287)" " null" " lst_52))))))" "(let-values(((extended-env_0)" @@ -61507,7 +61539,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_197)))" -"((letrec-values(((for-loop_287)" +"((letrec-values(((for-loop_288)" "(lambda(env_17" " lst_321" " lst_274)" @@ -61527,7 +61559,7 @@ static const char *startup_source = "((id_9)" "(unsafe-car" " lst_274))" -"((rest_180)" +"((rest_181)" "(unsafe-cdr" " lst_274)))" "(let-values(((env_18)" @@ -61544,13 +61576,13 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_288" " env_18" " rest_147" -" rest_180)" +" rest_181)" " env_18)))" " env_17)))))" -" for-loop_287)" +" for-loop_288)" "(expand-context-env" " body-ctx_2)" " lst_231" @@ -61618,8 +61650,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_322)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_291" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_294" " lst_323)" "(begin" " 'for-loop" @@ -61628,28 +61660,28 @@ static const char *startup_source = "(let-values(((done-body_0)" "(unsafe-car" " lst_323))" -"((rest_181)" +"((rest_182)" "(unsafe-cdr" " lst_323)))" -"(let-values(((fold-var_292)" -"(let-values(((fold-var_293)" -" fold-var_291))" -"(let-values(((fold-var_294)" +"(let-values(((fold-var_295)" +"(let-values(((fold-var_296)" +" fold-var_294))" +"(let-values(((fold-var_297)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_293))))" +" fold-var_296))))" "(values" -" fold-var_294)))))" +" fold-var_297)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_292" -" rest_181)" -" fold-var_292)))" -" fold-var_291)))))" -" for-loop_288)" +"(for-loop_289" +" fold-var_295" +" rest_182)" +" fold-var_295)))" +" fold-var_294)))))" +" for-loop_289)" " null" " lst_322))))" " val-idss_0))" @@ -61666,8 +61698,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_324)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_295" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_298" " lst_325)" "(begin" " 'for-loop" @@ -61676,28 +61708,28 @@ static const char *startup_source = "(let-values(((done-body_1)" "(unsafe-car" " lst_325))" -"((rest_182)" +"((rest_183)" "(unsafe-cdr" " lst_325)))" -"(let-values(((fold-var_296)" -"(let-values(((fold-var_297)" -" fold-var_295))" -"(let-values(((fold-var_298)" +"(let-values(((fold-var_299)" +"(let-values(((fold-var_300)" +" fold-var_298))" +"(let-values(((fold-var_301)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_297))))" +" fold-var_300))))" "(values" -" fold-var_298)))))" +" fold-var_301)))))" "(if(not" " #f)" -"(for-loop_289" -" fold-var_296" -" rest_182)" -" fold-var_296)))" -" fold-var_295)))))" -" for-loop_289)" +"(for-loop_290" +" fold-var_299" +" rest_183)" +" fold-var_299)))" +" fold-var_298)))))" +" for-loop_290)" " null" " lst_324))))" " val-keyss_0))" @@ -61715,7 +61747,7 @@ static const char *startup_source = "(check-list" " lst_326)))" "((letrec-values(((for-loop_261)" -"(lambda(fold-var_299" +"(lambda(fold-var_302" " lst_202)" "(begin" " 'for-loop" @@ -61724,13 +61756,13 @@ static const char *startup_source = "(let-values(((done-body_2)" "(unsafe-car" " lst_202))" -"((rest_183)" +"((rest_184)" "(unsafe-cdr" " lst_202)))" -"(let-values(((fold-var_300)" +"(let-values(((fold-var_303)" "(let-values(((fold-var_138)" -" fold-var_299))" -"(let-values(((fold-var_301)" +" fold-var_302))" +"(let-values(((fold-var_304)" "(let-values()" "(cons" "(let-values()" @@ -61740,14 +61772,14 @@ static const char *startup_source = " phase_17))" " fold-var_138))))" "(values" -" fold-var_301)))))" +" fold-var_304)))))" "(if(not" " #f)" "(for-loop_261" -" fold-var_300" -" rest_183)" -" fold-var_300)))" -" fold-var_299)))))" +" fold-var_303" +" rest_184)" +" fold-var_303)))" +" fold-var_302)))))" " for-loop_261)" " null" " lst_326))))" @@ -61765,7 +61797,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_107)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_291)" "(lambda(fold-var_139" " lst_108)" "(begin" @@ -61775,28 +61807,28 @@ static const char *startup_source = "(let-values(((done-body_3)" "(unsafe-car" " lst_108))" -"((rest_184)" +"((rest_185)" "(unsafe-cdr" " lst_108)))" -"(let-values(((fold-var_302)" +"(let-values(((fold-var_305)" "(let-values(((fold-var_39)" " fold-var_139))" -"(let-values(((fold-var_303)" +"(let-values(((fold-var_306)" "(let-values()" "(cons" "(let-values()" " #f)" " fold-var_39))))" "(values" -" fold-var_303)))))" +" fold-var_306)))))" "(if(not" " #f)" -"(for-loop_290" -" fold-var_302" -" rest_184)" -" fold-var_302)))" +"(for-loop_291" +" fold-var_305" +" rest_185)" +" fold-var_305)))" " fold-var_139)))))" -" for-loop_290)" +" for-loop_291)" " null" " lst_107))))" " track-stxs_0))" @@ -61886,7 +61918,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_327)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_292)" "(lambda(id_113" " lst_35)" "(begin" @@ -61896,7 +61928,7 @@ static const char *startup_source = "(let-values(((s_494)" "(unsafe-car" " lst_35))" -"((rest_185)" +"((rest_186)" "(unsafe-cdr" " lst_35)))" "(let-values(((id_114)" @@ -61930,12 +61962,12 @@ static const char *startup_source = " id_116)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_292" " id_114" -" rest_185)" +" rest_186)" " id_114)))" " id_113)))))" -" for-loop_291)" +" for-loop_292)" " null" " lst_327)))))" "(reverse$1" @@ -62053,8 +62085,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_328)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_304" +"((letrec-values(((for-loop_293)" +"(lambda(fold-var_307" " lst_329)" "(begin" " 'for-loop" @@ -62063,13 +62095,13 @@ static const char *startup_source = "(let-values(((id_117)" "(unsafe-car" " lst_329))" -"((rest_186)" +"((rest_187)" "(unsafe-cdr" " lst_329)))" -"(let-values(((fold-var_305)" -"(let-values(((fold-var_306)" -" fold-var_304))" -"(let-values(((fold-var_307)" +"(let-values(((fold-var_308)" +"(let-values(((fold-var_309)" +" fold-var_307))" +"(let-values(((fold-var_310)" "(let-values()" "(cons" "(let-values()" @@ -62091,17 +62123,17 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_306))))" +" fold-var_309))))" "(values" -" fold-var_307)))))" +" fold-var_310)))))" "(if(not" " #f)" -"(for-loop_292" -" fold-var_305" -" rest_186)" -" fold-var_305)))" -" fold-var_304)))))" -" for-loop_292)" +"(for-loop_293" +" fold-var_308" +" rest_187)" +" fold-var_308)))" +" fold-var_307)))))" +" for-loop_293)" " null" " lst_328))))))" "(let-values((()" @@ -62166,7 +62198,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_331)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_294)" "(lambda(env_21" " lst_332" " lst_333" @@ -62184,19 +62216,19 @@ static const char *startup_source = "(let-values(((key_95)" "(unsafe-car" " lst_332))" -"((rest_187)" +"((rest_188)" "(unsafe-cdr" " lst_332))" "((val_86)" "(unsafe-car" " lst_333))" -"((rest_188)" +"((rest_189)" "(unsafe-cdr" " lst_333))" "((id_118)" "(unsafe-car" " lst_334))" -"((rest_189)" +"((rest_190)" "(unsafe-cdr" " lst_334)))" "(let-values(((env_22)" @@ -62218,14 +62250,14 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_294" " env_22" -" rest_187" " rest_188" -" rest_189)" +" rest_189" +" rest_190)" " env_22)))" " env_21)))))" -" for-loop_293)" +" for-loop_294)" "(expand-context-env" " body-ctx_2)" " lst_46" @@ -62503,8 +62535,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_294)" -"(lambda(fold-var_308" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_311" " lst_336" " pos_129)" "(begin" @@ -62516,15 +62548,15 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_336))" -"((rest_190)" +"((rest_191)" "(unsafe-cdr" " lst_336))" "((i_190)" " pos_129))" -"(let-values(((fold-var_309)" -"(let-values(((fold-var_310)" -" fold-var_308))" -"(let-values(((fold-var_311)" +"(let-values(((fold-var_312)" +"(let-values(((fold-var_313)" +" fold-var_311))" +"(let-values(((fold-var_314)" "(let-values()" "(cons" "(let-values()" @@ -62599,20 +62631,20 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_3))))" -" fold-var_310))))" +" fold-var_313))))" "(values" -" fold-var_311)))))" +" fold-var_314)))))" "(if(not" " #f)" -"(for-loop_294" -" fold-var_309" -" rest_190" +"(for-loop_295" +" fold-var_312" +" rest_191" "(+" " pos_129" " 1))" -" fold-var_309)))" -" fold-var_308)))))" -" for-loop_294)" +" fold-var_312)))" +" fold-var_311)))))" +" for-loop_295)" " null" " lst_335" " start_66))))))" @@ -63070,8 +63102,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_285)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_312 lst_337 lst_287 lst_288)" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_315 lst_337 lst_287 lst_288)" "(begin" " 'for-loop" "(if(if(pair? lst_337)(if(pair? lst_287)(pair? lst_288) #f) #f)" @@ -63081,9 +63113,9 @@ static const char *startup_source = "((rest_158)(unsafe-cdr lst_287))" "((track-stx_2)(unsafe-car lst_288))" "((rest_62)(unsafe-cdr lst_288)))" -"(let-values(((fold-var_313)" -"(let-values(((fold-var_314) fold-var_312))" -"(let-values(((fold-var_315)" +"(let-values(((fold-var_316)" +"(let-values(((fold-var_317) fold-var_315))" +"(let-values(((fold-var_318)" "(let-values()" "(cons" "(let-values()" @@ -63091,13 +63123,13 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_314))))" -"(values fold-var_315)))))" +" fold-var_317))))" +"(values fold-var_318)))))" "(if(not #f)" -"(for-loop_295 fold-var_313 rest_157 rest_158 rest_62)" -" fold-var_313)))" -" fold-var_312)))))" -" for-loop_295)" +"(for-loop_296 fold-var_316 rest_157 rest_158 rest_62)" +" fold-var_316)))" +" fold-var_315)))))" +" for-loop_296)" " null" " lst_246" " lst_247" @@ -63169,15 +63201,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_316 lst_266)" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_319 lst_266)" "(begin" " 'for-loop" "(if(pair? lst_266)" "(let-values(((id_119)(unsafe-car lst_266))" -"((rest_191)(unsafe-cdr lst_266)))" +"((rest_192)(unsafe-cdr lst_266)))" "(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_316))" +"(let-values(((fold-var_34) fold-var_319))" "(let-values(((fold-var_154)" "(let-values()" "(cons" @@ -63201,10 +63233,10 @@ static const char *startup_source = " fold-var_34))))" "(values fold-var_154)))))" "(if(not #f)" -"(for-loop_296 fold-var_33 rest_191)" +"(for-loop_297 fold-var_33 rest_192)" " fold-var_33)))" -" fold-var_316)))))" -" for-loop_296)" +" fold-var_319)))))" +" for-loop_297)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63224,7 +63256,7 @@ static const char *startup_source = "(let-values(((key_96)(unsafe-car lst_83))" "((rest_146)(unsafe-cdr lst_83))" "((id_120)(unsafe-car lst_272))" -"((rest_192)(unsafe-cdr lst_272)))" +"((rest_193)(unsafe-cdr lst_272)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63236,7 +63268,7 @@ static const char *startup_source = " id_120)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_233 env_26 rest_146 rest_192)" +"(for-loop_233 env_26 rest_146 rest_193)" " env_26)))" " env_25)))))" " for-loop_233)" @@ -63491,7 +63523,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_338)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_298)" "(lambda(formals_4" " body_15" " lst_31)" @@ -63502,7 +63534,7 @@ static const char *startup_source = "(let-values(((s_61)" "(unsafe-car" " lst_31))" -"((rest_193)" +"((rest_194)" "(unsafe-cdr" " lst_31)))" "(let-values(((formals_5" @@ -63578,17 +63610,17 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_298" " formals_5" " body_16" -" rest_193)" +" rest_194)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_297)" +" for-loop_298)" " null" " null" " lst_338)))))" @@ -63636,21 +63668,21 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_205)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_317 lst_275 lst_155 lst_341)" +"(lambda(fold-var_320 lst_275 lst_155 lst_341)" "(begin" " 'for-loop" "(if(if(pair? lst_275)" "(if(pair? lst_155)(pair? lst_341) #f)" " #f)" "(let-values(((formals_8)(unsafe-car lst_275))" -"((rest_194)(unsafe-cdr lst_275))" +"((rest_195)(unsafe-cdr lst_275))" "((body_19)(unsafe-car lst_155))" "((rest_79)(unsafe-cdr lst_155))" "((clause_3)(unsafe-car lst_341))" -"((rest_195)(unsafe-cdr lst_341)))" +"((rest_196)(unsafe-cdr lst_341)))" "(let-values(((fold-var_146)" -"(let-values(((fold-var_318) fold-var_317))" -"(let-values(((fold-var_319)" +"(let-values(((fold-var_321) fold-var_320))" +"(let-values(((fold-var_322)" "(let-values()" "(cons" "(let-values()" @@ -63706,12 +63738,12 @@ static const char *startup_source = " #f" " rebuild-clause98_0" " temp99_4)))))))" -" fold-var_318))))" -"(values fold-var_319)))))" +" fold-var_321))))" +"(values fold-var_322)))))" "(if(not #f)" -"(for-loop_122 fold-var_146 rest_194 rest_79 rest_195)" +"(for-loop_122 fold-var_146 rest_195 rest_79 rest_196)" " fold-var_146)))" -" fold-var_317)))))" +" fold-var_320)))))" " for-loop_122)" " null" " lst_339" @@ -63868,7 +63900,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_342)))" -"((letrec-values(((for-loop_298)" +"((letrec-values(((for-loop_299)" "(lambda(id:trans_1" " trans-rhs_1" " lst_2)" @@ -63879,7 +63911,7 @@ static const char *startup_source = "(let-values(((s_230)" "(unsafe-car" " lst_2))" -"((rest_196)" +"((rest_197)" "(unsafe-cdr" " lst_2)))" "(let-values(((id:trans_2" @@ -63933,7 +63965,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_343)))" -"((letrec-values(((for-loop_299)" +"((letrec-values(((for-loop_300)" "(lambda(id:trans_6" " lst_213)" "(begin" @@ -63943,7 +63975,7 @@ static const char *startup_source = "(let-values(((s_517)" "(unsafe-car" " lst_213))" -"((rest_197)" +"((rest_198)" "(unsafe-cdr" " lst_213)))" "(let-values(((id:trans_7)" @@ -63977,12 +64009,12 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_300" " id:trans_7" -" rest_197)" +" rest_198)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_299)" +" for-loop_300)" " null" " lst_343)))))" "(reverse$1" @@ -64046,17 +64078,17 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_299" " id:trans_2" " trans-rhs_2" -" rest_196)" +" rest_197)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_298)" +" for-loop_299)" " null" " null" " lst_342)))))" @@ -64111,7 +64143,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_142)))" -"((letrec-values(((for-loop_300)" +"((letrec-values(((for-loop_301)" "(lambda(id:val_1" " val-rhs_2" " lst_344)" @@ -64122,7 +64154,7 @@ static const char *startup_source = "(let-values(((s_352)" "(unsafe-car" " lst_344))" -"((rest_198)" +"((rest_199)" "(unsafe-cdr" " lst_344)))" "(let-values(((id:val_2" @@ -64176,7 +64208,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_345)))" -"((letrec-values(((for-loop_301)" +"((letrec-values(((for-loop_302)" "(lambda(id:val_6" " lst_346)" "(begin" @@ -64186,7 +64218,7 @@ static const char *startup_source = "(let-values(((s_522)" "(unsafe-car" " lst_346))" -"((rest_199)" +"((rest_200)" "(unsafe-cdr" " lst_346)))" "(let-values(((id:val_7)" @@ -64220,12 +64252,12 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_302" " id:val_7" -" rest_199)" +" rest_200)" " id:val_7)))" " id:val_6)))))" -" for-loop_301)" +" for-loop_302)" " null" " lst_345)))))" "(reverse$1" @@ -64289,17 +64321,17 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_301" " id:val_2" " val-rhs_3" -" rest_198)" +" rest_199)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_300)" +" for-loop_301)" " null" " null" " lst_142)))))" @@ -64425,7 +64457,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_347)))" -"((letrec-values(((for-loop_302)" +"((letrec-values(((for-loop_303)" "(lambda(id:val_11" " val-rhs_7" " lst_348)" @@ -64436,7 +64468,7 @@ static const char *startup_source = "(let-values(((s_372)" "(unsafe-car" " lst_348))" -"((rest_200)" +"((rest_201)" "(unsafe-cdr" " lst_348)))" "(let-values(((id:val_12" @@ -64490,7 +64522,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_349)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_304)" "(lambda(id:val_16" " lst_350)" "(begin" @@ -64500,7 +64532,7 @@ static const char *startup_source = "(let-values(((s_381)" "(unsafe-car" " lst_350))" -"((rest_201)" +"((rest_202)" "(unsafe-cdr" " lst_350)))" "(let-values(((id:val_17)" @@ -64534,12 +64566,12 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_303" +"(for-loop_304" " id:val_17" -" rest_201)" +" rest_202)" " id:val_17)))" " id:val_16)))))" -" for-loop_303)" +" for-loop_304)" " null" " lst_349)))))" "(reverse$1" @@ -64603,17 +64635,17 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_303" " id:val_12" " val-rhs_8" -" rest_200)" +" rest_201)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_302)" +" for-loop_303)" " null" " null" " lst_347)))))" @@ -64677,19 +64709,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_351)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_320 lst_352)" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_323 lst_352)" "(begin" " 'for-loop" "(if(pair? lst_352)" "(let-values(((ids_35)" "(unsafe-car lst_352))" -"((rest_202)" +"((rest_203)" "(unsafe-cdr lst_352)))" -"(let-values(((fold-var_321)" -"(let-values(((fold-var_322)" -" fold-var_320))" -"(let-values(((fold-var_323)" +"(let-values(((fold-var_324)" +"(let-values(((fold-var_325)" +" fold-var_323))" +"(let-values(((fold-var_326)" "(let-values()" "(cons" "(let-values()" @@ -64703,8 +64735,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_353)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_324" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_327" " lst_354)" "(begin" " 'for-loop" @@ -64713,40 +64745,40 @@ static const char *startup_source = "(let-values(((id_121)" "(unsafe-car" " lst_354))" -"((rest_203)" +"((rest_204)" "(unsafe-cdr" " lst_354)))" -"(let-values(((fold-var_325)" -"(let-values(((fold-var_326)" -" fold-var_324))" -"(let-values(((fold-var_327)" +"(let-values(((fold-var_328)" +"(let-values(((fold-var_329)" +" fold-var_327))" +"(let-values(((fold-var_330)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_121" " sc_37))" -" fold-var_326))))" +" fold-var_329))))" "(values" -" fold-var_327)))))" +" fold-var_330)))))" "(if(not" " #f)" -"(for-loop_305" -" fold-var_325" -" rest_203)" -" fold-var_325)))" -" fold-var_324)))))" -" for-loop_305)" +"(for-loop_306" +" fold-var_328" +" rest_204)" +" fold-var_328)))" +" fold-var_327)))))" +" for-loop_306)" " null" " lst_353)))))" -" fold-var_322))))" +" fold-var_325))))" "(values" -" fold-var_323)))))" +" fold-var_326)))))" "(if(not #f)" -"(for-loop_304 fold-var_321 rest_202)" -" fold-var_321)))" -" fold-var_320)))))" -" for-loop_304)" +"(for-loop_305 fold-var_324 rest_203)" +" fold-var_324)))" +" fold-var_323)))))" +" for-loop_305)" " null" " lst_351))))))" "(let-values(((val-idss_3)" @@ -64756,19 +64788,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_328 lst_121)" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_331 lst_121)" "(begin" " 'for-loop" "(if(pair? lst_121)" "(let-values(((ids_36)" "(unsafe-car lst_121))" -"((rest_204)" +"((rest_205)" "(unsafe-cdr lst_121)))" -"(let-values(((fold-var_329)" -"(let-values(((fold-var_330)" -" fold-var_328))" -"(let-values(((fold-var_331)" +"(let-values(((fold-var_332)" +"(let-values(((fold-var_333)" +" fold-var_331))" +"(let-values(((fold-var_334)" "(let-values()" "(cons" "(let-values()" @@ -64782,8 +64814,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_356)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_332" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_335" " lst_357)" "(begin" " 'for-loop" @@ -64792,13 +64824,13 @@ static const char *startup_source = "(let-values(((id_122)" "(unsafe-car" " lst_357))" -"((rest_205)" +"((rest_206)" "(unsafe-cdr" " lst_357)))" "(let-values(((fold-var_108)" "(let-values(((fold-var_109)" -" fold-var_332))" -"(let-values(((fold-var_333)" +" fold-var_335))" +"(let-values(((fold-var_336)" "(let-values()" "(cons" "(let-values()" @@ -64807,27 +64839,27 @@ static const char *startup_source = " sc_37))" " fold-var_109))))" "(values" -" fold-var_333)))))" +" fold-var_336)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_308" " fold-var_108" -" rest_205)" +" rest_206)" " fold-var_108)))" -" fold-var_332)))))" -" for-loop_307)" +" fold-var_335)))))" +" for-loop_308)" " null" " lst_356)))))" -" fold-var_330))))" +" fold-var_333))))" "(values" -" fold-var_331)))))" +" fold-var_334)))))" "(if(not #f)" -"(for-loop_306" -" fold-var_329" -" rest_204)" -" fold-var_329)))" -" fold-var_328)))))" -" for-loop_306)" +"(for-loop_307" +" fold-var_332" +" rest_205)" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_307)" " null" " lst_355))))))" "(let-values(((val-rhss_3)" @@ -64840,33 +64872,33 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_358)))" "((letrec-values(((for-loop_274)" -"(lambda(fold-var_334 lst_359)" +"(lambda(fold-var_337 lst_359)" "(begin" " 'for-loop" "(if(pair? lst_359)" "(let-values(((rhs_20)" "(unsafe-car lst_359))" -"((rest_206)" +"((rest_207)" "(unsafe-cdr lst_359)))" -"(let-values(((fold-var_335)" -"(let-values(((fold-var_336)" -" fold-var_334))" -"(let-values(((fold-var_337)" +"(let-values(((fold-var_338)" +"(let-values(((fold-var_339)" +" fold-var_337))" +"(let-values(((fold-var_340)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_37))" -" fold-var_336))))" +" fold-var_339))))" "(values" -" fold-var_337)))))" +" fold-var_340)))))" "(if(not #f)" "(for-loop_274" -" fold-var_335" -" rest_206)" -" fold-var_335)))" -" fold-var_334)))))" +" fold-var_338" +" rest_207)" +" fold-var_338)))" +" fold-var_337)))))" " for-loop_274)" " null" " lst_358))))" @@ -64894,21 +64926,21 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_338 lst_361)" +"((letrec-values(((for-loop_309)" +"(lambda(fold-var_341 lst_361)" "(begin" " 'for-loop" "(if(pair? lst_361)" "(let-values(((ids_37)" "(unsafe-car" " lst_361))" -"((rest_207)" +"((rest_208)" "(unsafe-cdr" " lst_361)))" -"(let-values(((fold-var_339)" -"(let-values(((fold-var_340)" -" fold-var_338))" -"(let-values(((fold-var_341)" +"(let-values(((fold-var_342)" +"(let-values(((fold-var_343)" +" fold-var_341))" +"(let-values(((fold-var_344)" "(let-values()" "(cons" "(let-values()" @@ -64922,8 +64954,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_362)))" -"((letrec-values(((for-loop_309)" -"(lambda(fold-var_342" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_345" " lst_363)" "(begin" " 'for-loop" @@ -64932,13 +64964,13 @@ static const char *startup_source = "(let-values(((id_26)" "(unsafe-car" " lst_363))" -"((rest_208)" +"((rest_209)" "(unsafe-cdr" " lst_363)))" -"(let-values(((fold-var_343)" -"(let-values(((fold-var_344)" -" fold-var_342))" -"(let-values(((fold-var_345)" +"(let-values(((fold-var_346)" +"(let-values(((fold-var_347)" +" fold-var_345))" +"(let-values(((fold-var_348)" "(let-values()" "(cons" "(let-values()" @@ -64960,29 +64992,29 @@ static const char *startup_source = " id154_1" " phase155_0" " counter156_0)))" -" fold-var_344))))" +" fold-var_347))))" "(values" -" fold-var_345)))))" +" fold-var_348)))))" "(if(not" " #f)" -"(for-loop_309" -" fold-var_343" -" rest_208)" -" fold-var_343)))" -" fold-var_342)))))" -" for-loop_309)" +"(for-loop_310" +" fold-var_346" +" rest_209)" +" fold-var_346)))" +" fold-var_345)))))" +" for-loop_310)" " null" " lst_362)))))" -" fold-var_340))))" +" fold-var_343))))" "(values" -" fold-var_341)))))" +" fold-var_344)))))" "(if(not #f)" -"(for-loop_308" -" fold-var_339" -" rest_207)" -" fold-var_339)))" -" fold-var_338)))))" -" for-loop_308)" +"(for-loop_309" +" fold-var_342" +" rest_208)" +" fold-var_342)))" +" fold-var_341)))))" +" for-loop_309)" " null" " lst_360))))))" "(let-values(((val-keyss_2)" @@ -64993,21 +65025,21 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_310)" -"(lambda(fold-var_346 lst_244)" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_349 lst_244)" "(begin" " 'for-loop" "(if(pair? lst_244)" "(let-values(((ids_38)" "(unsafe-car" " lst_244))" -"((rest_209)" +"((rest_210)" "(unsafe-cdr" " lst_244)))" -"(let-values(((fold-var_347)" -"(let-values(((fold-var_348)" -" fold-var_346))" -"(let-values(((fold-var_349)" +"(let-values(((fold-var_350)" +"(let-values(((fold-var_351)" +" fold-var_349))" +"(let-values(((fold-var_352)" "(let-values()" "(cons" "(let-values()" @@ -65021,8 +65053,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_365)))" -"((letrec-values(((for-loop_311)" -"(lambda(fold-var_350" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_353" " lst_366)" "(begin" " 'for-loop" @@ -65031,13 +65063,13 @@ static const char *startup_source = "(let-values(((id_123)" "(unsafe-car" " lst_366))" -"((rest_210)" +"((rest_211)" "(unsafe-cdr" " lst_366)))" -"(let-values(((fold-var_351)" -"(let-values(((fold-var_352)" -" fold-var_350))" -"(let-values(((fold-var_353)" +"(let-values(((fold-var_354)" +"(let-values(((fold-var_355)" +" fold-var_353))" +"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" @@ -65059,29 +65091,29 @@ static const char *startup_source = " id159_0" " phase160_1" " counter161_0)))" -" fold-var_352))))" +" fold-var_355))))" "(values" -" fold-var_353)))))" +" fold-var_356)))))" "(if(not" " #f)" -"(for-loop_311" -" fold-var_351" -" rest_210)" -" fold-var_351)))" -" fold-var_350)))))" -" for-loop_311)" +"(for-loop_312" +" fold-var_354" +" rest_211)" +" fold-var_354)))" +" fold-var_353)))))" +" for-loop_312)" " null" " lst_365)))))" -" fold-var_348))))" +" fold-var_351))))" "(values" -" fold-var_349)))))" +" fold-var_352)))))" "(if(not #f)" -"(for-loop_310" -" fold-var_347" -" rest_209)" -" fold-var_347)))" -" fold-var_346)))))" -" for-loop_310)" +"(for-loop_311" +" fold-var_350" +" rest_210)" +" fold-var_350)))" +" fold-var_349)))))" +" for-loop_311)" " null" " lst_364))))))" "(let-values(((bodys_10)" @@ -65094,7 +65126,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_145)))" "((letrec-values(((for-loop_172)" -"(lambda(fold-var_354 lst_146)" +"(lambda(fold-var_357 lst_146)" "(begin" " 'for-loop" "(if(pair? lst_146)" @@ -65104,25 +65136,25 @@ static const char *startup_source = "((rest_74)" "(unsafe-cdr" " lst_146)))" -"(let-values(((fold-var_314)" -"(let-values(((fold-var_315)" -" fold-var_354))" -"(let-values(((fold-var_355)" +"(let-values(((fold-var_317)" +"(let-values(((fold-var_318)" +" fold-var_357))" +"(let-values(((fold-var_358)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_37))" -" fold-var_315))))" +" fold-var_318))))" "(values" -" fold-var_355)))))" +" fold-var_358)))))" "(if(not #f)" "(for-loop_172" -" fold-var_314" +" fold-var_317" " rest_74)" -" fold-var_314)))" -" fold-var_354)))))" +" fold-var_317)))" +" fold-var_357)))))" " for-loop_172)" " null" " lst_145))))))" @@ -65175,8 +65207,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_368)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_356" +"((letrec-values(((for-loop_313)" +"(lambda(fold-var_359" " lst_369" " lst_370)" "(begin" @@ -65187,19 +65219,19 @@ static const char *startup_source = "(let-values(((rhs_21)" "(unsafe-car" " lst_369))" -"((rest_211)" +"((rest_212)" "(unsafe-cdr" " lst_369))" "((ids_39)" "(unsafe-car" " lst_370))" -"((rest_212)" +"((rest_213)" "(unsafe-cdr" " lst_370)))" -"(let-values(((fold-var_357)" -"(let-values(((fold-var_358)" -" fold-var_356))" -"(let-values(((fold-var_359)" +"(let-values(((fold-var_360)" +"(let-values(((fold-var_361)" +" fold-var_359))" +"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" @@ -65239,17 +65271,17 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_358))))" +" fold-var_361))))" "(values" -" fold-var_359)))))" +" fold-var_362)))))" "(if(not #f)" -"(for-loop_312" -" fold-var_357" -" rest_211" -" rest_212)" -" fold-var_357)))" -" fold-var_356)))))" -" for-loop_312)" +"(for-loop_313" +" fold-var_360" +" rest_212" +" rest_213)" +" fold-var_360)))" +" fold-var_359)))))" +" for-loop_313)" " null" " lst_367" " lst_368))))))" @@ -65265,7 +65297,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_372)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_314)" "(lambda(env_29" " lst_373" " lst_374)" @@ -65277,13 +65309,13 @@ static const char *startup_source = "(let-values(((keys_10)" "(unsafe-car" " lst_373))" -"((rest_213)" +"((rest_214)" "(unsafe-cdr" " lst_373))" "((ids_40)" "(unsafe-car" " lst_374))" -"((rest_214)" +"((rest_215)" "(unsafe-cdr" " lst_374)))" "(let-values(((env_30)" @@ -65306,7 +65338,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_376)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_315)" "(lambda(env_32" " lst_377" " lst_378)" @@ -65320,13 +65352,13 @@ static const char *startup_source = "(let-values(((key_97)" "(unsafe-car" " lst_377))" -"((rest_215)" +"((rest_216)" "(unsafe-cdr" " lst_377))" "((id_124)" "(unsafe-car" " lst_378))" -"((rest_216)" +"((rest_217)" "(unsafe-cdr" " lst_378)))" "(let-values(((env_33)" @@ -65343,24 +65375,24 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_315" " env_33" -" rest_215" -" rest_216)" +" rest_216" +" rest_217)" " env_33)))" " env_32)))))" -" for-loop_314)" +" for-loop_315)" " env_31" " lst_375" " lst_376))))))" "(if(not #f)" -"(for-loop_313" +"(for-loop_314" " env_30" -" rest_213" -" rest_214)" +" rest_214" +" rest_215)" " env_30)))" " env_29)))))" -" for-loop_313)" +" for-loop_314)" "(expand-context-env ctx_83)" " lst_371" " lst_372)))))" @@ -65381,7 +65413,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_380)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_316)" "(lambda(env_36" " lst_381" " lst_382" @@ -65399,19 +65431,19 @@ static const char *startup_source = "(let-values(((keys_11)" "(unsafe-car" " lst_381))" -"((rest_217)" +"((rest_218)" "(unsafe-cdr" " lst_381))" "((vals_9)" "(unsafe-car" " lst_382))" -"((rest_218)" +"((rest_219)" "(unsafe-cdr" " lst_382))" "((ids_41)" "(unsafe-car" " lst_383))" -"((rest_219)" +"((rest_220)" "(unsafe-cdr" " lst_383)))" "(let-values(((env_37)" @@ -65468,13 +65500,13 @@ static const char *startup_source = "((val_87)" "(unsafe-car" " lst_386))" -"((rest_220)" +"((rest_221)" "(unsafe-cdr" " lst_386))" "((id_125)" "(unsafe-car" " lst_387))" -"((rest_221)" +"((rest_222)" "(unsafe-cdr" " lst_387)))" "(let-values(((env_41)" @@ -65499,8 +65531,8 @@ static const char *startup_source = "(for-loop_160" " env_41" " rest_135" -" rest_220" -" rest_221)" +" rest_221" +" rest_222)" " env_41)))" " env_40)))))" " for-loop_160)" @@ -65511,14 +65543,14 @@ static const char *startup_source = "(values" " env_39)))))" "(if(not #f)" -"(for-loop_315" +"(for-loop_316" " env_37" -" rest_217" " rest_218" -" rest_219)" +" rest_219" +" rest_220)" " env_37)))" " env_36)))))" -" for-loop_315)" +" for-loop_316)" " rec-val-env_0" " lst_379" " lst_126" @@ -65616,7 +65648,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_388)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_317)" "(lambda(fold-var_120" " lst_131)" "(begin" @@ -65626,13 +65658,13 @@ static const char *startup_source = "(let-values(((val-ids_1)" "(unsafe-car" " lst_131))" -"((rest_222)" +"((rest_223)" "(unsafe-cdr" " lst_131)))" -"(let-values(((fold-var_360)" -"(let-values(((fold-var_361)" +"(let-values(((fold-var_363)" +"(let-values(((fold-var_364)" " fold-var_120))" -"(let-values(((fold-var_362)" +"(let-values(((fold-var_365)" "(let-values()" "(cons" "(let-values()" @@ -65646,8 +65678,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_389)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_363" +"((letrec-values(((for-loop_318)" +"(lambda(fold-var_366" " lst_390)" "(begin" " 'for-loop" @@ -65656,13 +65688,13 @@ static const char *startup_source = "(let-values(((val-id_0)" "(unsafe-car" " lst_390))" -"((rest_223)" +"((rest_224)" "(unsafe-cdr" " lst_390)))" -"(let-values(((fold-var_364)" +"(let-values(((fold-var_367)" "(let-values(((fold-var_124)" -" fold-var_363))" -"(let-values(((fold-var_365)" +" fold-var_366))" +"(let-values(((fold-var_368)" "(let-values()" "(cons" "(let-values()" @@ -65674,28 +65706,28 @@ static const char *startup_source = " val-id_0))" " fold-var_124))))" "(values" +" fold-var_368)))))" +"(if(not" +" #f)" +"(for-loop_318" +" fold-var_367" +" rest_224)" +" fold-var_367)))" +" fold-var_366)))))" +" for-loop_318)" +" null" +" lst_389)))))" +" fold-var_364))))" +"(values" " fold-var_365)))))" "(if(not" " #f)" "(for-loop_317" -" fold-var_364" +" fold-var_363" " rest_223)" -" fold-var_364)))" -" fold-var_363)))))" -" for-loop_317)" -" null" -" lst_389)))))" -" fold-var_361))))" -"(values" -" fold-var_362)))))" -"(if(not" -" #f)" -"(for-loop_316" -" fold-var_360" -" rest_222)" -" fold-var_360)))" +" fold-var_363)))" " fold-var_120)))))" -" for-loop_316)" +" for-loop_317)" " null" " lst_388))))" " val-idss_3)))" @@ -65833,8 +65865,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_393)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_366" +"((letrec-values(((for-loop_319)" +"(lambda(fold-var_369" " lst_394" " lst_62" " lst_395)" @@ -65851,25 +65883,25 @@ static const char *startup_source = "(let-values(((ids_42)" "(unsafe-car" " lst_394))" -"((rest_224)" +"((rest_225)" "(unsafe-cdr" " lst_394))" "((keys_12)" "(unsafe-car" " lst_62))" -"((rest_225)" +"((rest_226)" "(unsafe-cdr" " lst_62))" "((rhs_22)" "(unsafe-car" " lst_395))" -"((rest_226)" +"((rest_227)" "(unsafe-cdr" " lst_395)))" "(let-values(((fold-var_47)" -"(let-values(((fold-var_367)" -" fold-var_366))" -"(let-values(((fold-var_368)" +"(let-values(((fold-var_370)" +" fold-var_369))" +"(let-values(((fold-var_371)" "(let-values()" "(cons" "(let-values()" @@ -65912,19 +65944,19 @@ static const char *startup_source = "(list" " ids_42" " exp-rhs_3)))))" -" fold-var_367))))" +" fold-var_370))))" "(values" -" fold-var_368)))))" +" fold-var_371)))))" "(if(not" " #f)" -"(for-loop_318" +"(for-loop_319" " fold-var_47" -" rest_224" " rest_225" -" rest_226)" +" rest_226" +" rest_227)" " fold-var_47)))" -" fold-var_366)))))" -" for-loop_318)" +" fold-var_369)))))" +" for-loop_319)" " null" " lst_391" " lst_392" @@ -65980,8 +66012,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_396)))" -"((letrec-values(((for-loop_319)" -"(lambda(fold-var_369" +"((letrec-values(((for-loop_320)" +"(lambda(fold-var_372" " lst_397)" "(begin" " 'for-loop" @@ -65990,28 +66022,28 @@ static const char *startup_source = "(let-values(((rhs_23)" "(unsafe-car" " lst_397))" -"((rest_227)" +"((rest_228)" "(unsafe-cdr" " lst_397)))" -"(let-values(((fold-var_370)" -"(let-values(((fold-var_371)" -" fold-var_369))" -"(let-values(((fold-var_372)" +"(let-values(((fold-var_373)" +"(let-values(((fold-var_374)" +" fold-var_372))" +"(let-values(((fold-var_375)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_371))))" +" fold-var_374))))" "(values" -" fold-var_372)))))" +" fold-var_375)))))" "(if(not" " #f)" -"(for-loop_319" -" fold-var_370" -" rest_227)" -" fold-var_370)))" -" fold-var_369)))))" -" for-loop_319)" +"(for-loop_320" +" fold-var_373" +" rest_228)" +" fold-var_373)))" +" fold-var_372)))))" +" for-loop_320)" " null" " lst_396)))))" "((temp187_2)" @@ -66060,18 +66092,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_399)))" -"((letrec-values(((for-loop_320)" -"(lambda(fold-var_373 lst_400 lst_138)" +"((letrec-values(((for-loop_321)" +"(lambda(fold-var_376 lst_400 lst_138)" "(begin" " 'for-loop" "(if(if(pair? lst_400)(pair? lst_138) #f)" "(let-values(((val-ids_2)(unsafe-car lst_400))" "((rest_69)(unsafe-cdr lst_400))" "((val-rhs_11)(unsafe-car lst_138))" -"((rest_228)(unsafe-cdr lst_138)))" +"((rest_229)(unsafe-cdr lst_138)))" "(let-values(((fold-var_136)" -"(let-values(((fold-var_137) fold-var_373))" -"(let-values(((fold-var_374)" +"(let-values(((fold-var_137) fold-var_376))" +"(let-values(((fold-var_377)" "(let-values()" "(cons" "(let-values()" @@ -66079,12 +66111,12 @@ static const char *startup_source = " #f" "(list val-ids_2 val-rhs_11)))" " fold-var_137))))" -"(values fold-var_374)))))" +"(values fold-var_377)))))" "(if(not #f)" -"(for-loop_320 fold-var_136 rest_69 rest_228)" +"(for-loop_321 fold-var_136 rest_69 rest_229)" " fold-var_136)))" -" fold-var_373)))))" -" for-loop_320)" +" fold-var_376)))))" +" for-loop_321)" " null" " lst_398" " lst_399))))" @@ -66104,18 +66136,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_321)" -"(lambda(fold-var_375 lst_70 lst_147)" +"((letrec-values(((for-loop_322)" +"(lambda(fold-var_378 lst_70 lst_147)" "(begin" " 'for-loop" "(if(if(pair? lst_70)(pair? lst_147) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_70))" -"((rest_229)(unsafe-cdr lst_70))" +"((rest_230)(unsafe-cdr lst_70))" "((trans-rhs_5)(unsafe-car lst_147))" "((rest_75)(unsafe-cdr lst_147)))" -"(let-values(((fold-var_376)" -"(let-values(((fold-var_377) fold-var_375))" -"(let-values(((fold-var_378)" +"(let-values(((fold-var_379)" +"(let-values(((fold-var_380) fold-var_378))" +"(let-values(((fold-var_381)" "(let-values()" "(cons" "(let-values()" @@ -66124,11 +66156,11 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_377))))" -"(values fold-var_378)))))" -"(if(not #f)(for-loop_321 fold-var_376 rest_229 rest_75) fold-var_376)))" -" fold-var_375)))))" -" for-loop_321)" +" fold-var_380))))" +"(values fold-var_381)))))" +"(if(not #f)(for-loop_322 fold-var_379 rest_230 rest_75) fold-var_379)))" +" fold-var_378)))))" +" for-loop_322)" " null" " lst_401" " lst_402))))" @@ -66339,18 +66371,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_322)" -"(lambda(fold-var_379 lst_404)" +"((letrec-values(((for-loop_323)" +"(lambda(fold-var_382 lst_404)" "(begin" " 'for-loop" "(if(pair? lst_404)" -"(let-values(((e_90)(unsafe-car lst_404))" -"((rest_230)" +"(let-values(((e_91)(unsafe-car lst_404))" +"((rest_231)" "(unsafe-cdr lst_404)))" -"(let-values(((fold-var_380)" -"(let-values(((fold-var_381)" -" fold-var_379))" -"(let-values(((fold-var_382)" +"(let-values(((fold-var_383)" +"(let-values(((fold-var_384)" +" fold-var_382))" +"(let-values(((fold-var_385)" "(let-values()" "(cons" "(let-values()" @@ -66366,7 +66398,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(let-values(((e235_0)" -" e_90)" +" e_91)" "((expr-ctx236_0)" " expr-ctx_1))" "(expand7.1" @@ -66376,14 +66408,14 @@ static const char *startup_source = " #f" " e235_0" " expr-ctx236_0))))" -" fold-var_381))))" +" fold-var_384))))" "(values" -" fold-var_382)))))" +" fold-var_385)))))" "(if(not #f)" -"(for-loop_322 fold-var_380 rest_230)" -" fold-var_380)))" -" fold-var_379)))))" -" for-loop_322)" +"(for-loop_323 fold-var_383 rest_231)" +" fold-var_383)))" +" fold-var_382)))))" +" for-loop_323)" " null" " lst_403))))))" "(if(expand-context-to-parsed? ctx_86)" @@ -68015,7 +68047,7 @@ static const char *startup_source = "(let-values(((spec_0)" "(unsafe-car" " lst_405))" -"((rest_231)" +"((rest_232)" "(unsafe-cdr" " lst_405)))" "(let-values(((track-stxes_2" @@ -68828,7 +68860,7 @@ static const char *startup_source = "(let-values(((s_65)" "(unsafe-car" " lst_406))" -"((rest_232)" +"((rest_233)" "(unsafe-cdr" " lst_406)))" "(let-values(((id:field_2)" @@ -68864,7 +68896,7 @@ static const char *startup_source = " #f)" "(for-loop_278" " id:field_2" -" rest_232)" +" rest_233)" " id:field_2)))" " id:field_1)))))" " for-loop_278)" @@ -69325,7 +69357,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_407)))" -"((letrec-values(((for-loop_323)" +"((letrec-values(((for-loop_324)" "(lambda(id_140" " lst_408)" "(begin" @@ -69335,7 +69367,7 @@ static const char *startup_source = "(let-values(((s_120)" "(unsafe-car" " lst_408))" -"((rest_233)" +"((rest_234)" "(unsafe-cdr" " lst_408)))" "(let-values(((id_141)" @@ -69369,12 +69401,12 @@ static const char *startup_source = " id_29)))))" "(if(not" " #f)" -"(for-loop_323" +"(for-loop_324" " id_141" -" rest_233)" +" rest_234)" " id_141)))" " id_140)))))" -" for-loop_323)" +" for-loop_324)" " null" " lst_407)))))" "(reverse$1" @@ -69617,7 +69649,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_325)" "(lambda(id_144" " lst_409)" "(begin" @@ -69627,7 +69659,7 @@ static const char *startup_source = "(let-values(((s_518)" "(unsafe-car" " lst_409))" -"((rest_190)" +"((rest_191)" "(unsafe-cdr" " lst_409)))" "(let-values(((id_145)" @@ -69661,12 +69693,12 @@ static const char *startup_source = " id_147)))))" "(if(not" " #f)" -"(for-loop_324" +"(for-loop_325" " id_145" -" rest_190)" +" rest_191)" " id_145)))" " id_144)))))" -" for-loop_324)" +" for-loop_325)" " null" " lst_4)))))" "(reverse$1" @@ -70127,7 +70159,7 @@ static const char *startup_source = "(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_231)" +" rest_232)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -70208,12 +70240,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_122)))" -"((letrec-values(((for-loop_325)" +"((letrec-values(((for-loop_326)" "(lambda(lst_410)" "(begin" " 'for-loop" "(if(pair? lst_410)" -"(let-values(((fmt_3)(unsafe-car lst_410))((rest_234)(unsafe-cdr lst_410)))" +"(let-values(((fmt_3)(unsafe-car lst_410))((rest_235)(unsafe-cdr lst_410)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70231,9 +70263,9 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_325 rest_234)(values))))" +"(if(not #f)(for-loop_326 rest_235)(values))))" "(values))))))" -" for-loop_325)" +" for-loop_326)" " lst_122)))" "(void)" "(let-values(((lst_357) fields_0))" @@ -70241,12 +70273,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_327)" "(lambda(lst_411)" "(begin" " 'for-loop" "(if(pair? lst_411)" -"(let-values(((field_0)(unsafe-car lst_411))((rest_235)(unsafe-cdr lst_411)))" +"(let-values(((field_0)(unsafe-car lst_411))((rest_236)(unsafe-cdr lst_411)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70278,9 +70310,9 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_235)(values))))" +"(if(not #f)(for-loop_327 rest_236)(values))))" "(values))))))" -" for-loop_326)" +" for-loop_327)" " lst_357)))" "(void)))))))" "(define-values" @@ -70334,13 +70366,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_240)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_328)" "(lambda(lst_412)" "(begin" " 'for-loop" "(if(pair? lst_412)" "(let-values(((i_191)(unsafe-car lst_412))" -"((rest_236)(unsafe-cdr lst_412)))" +"((rest_237)(unsafe-cdr lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70379,7 +70411,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_413)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_329)" "(lambda(result_125" " lst_414)" "(begin" @@ -70389,7 +70421,7 @@ static const char *startup_source = "(let-values(((except-id_0)" "(unsafe-car" " lst_414))" -"((rest_237)" +"((rest_238)" "(unsafe-cdr" " lst_414)))" "(let-values(((result_126)" @@ -70416,12 +70448,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_328" +"(for-loop_329" " result_126" -" rest_237)" +" rest_238)" " result_126)))" " result_125)))))" -" for-loop_328)" +" for-loop_329)" " #f" " lst_413)))))" "(void)" @@ -70484,9 +70516,9 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_327 rest_236)(values))))" +"(if(not #f)(for-loop_328 rest_237)(values))))" "(values))))))" -" for-loop_327)" +" for-loop_328)" " lst_240)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" @@ -70537,7 +70569,7 @@ static const char *startup_source = "(let-values(((i_192)" "(unsafe-car" " lst_416))" -"((rest_238)" +"((rest_239)" "(unsafe-cdr" " lst_416)))" "(let-values(((result_129)" @@ -70567,7 +70599,7 @@ static const char *startup_source = " #f)" "(for-loop_142" " result_129" -" rest_238)" +" rest_239)" " result_129)))" " result_128)))))" " for-loop_142)" @@ -70605,7 +70637,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_417)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_330)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -70653,29 +70685,29 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_40)(values))))" +"(if(not #f)(for-loop_330 rest_40)(values))))" "(values))))))" -" for-loop_329)" +" for-loop_330)" " lst_417)))" "(void)))))" "((check-expr_0)" -"(lambda(e_91 num-results_0 enclosing_15)" +"(lambda(e_92 num-results_0 enclosing_15)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_91)" +"(if(parsed-lambda? e_92)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))" -"(if(parsed-case-lambda? e_91)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_92)))" +"(if(parsed-case-lambda? e_92)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))" -"(if(parsed-quote? e_91)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_92)))" +"(if(parsed-quote? e_92)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_91) e_91)" +"(check-datum(parsed-quote-datum e_92) e_92)" "(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_91)" +"(if(parsed-app? e_92)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_91)))" +"(let-values(((rands_1)(parsed-app-rands e_92)))" "(begin" "(let-values(((lst_79) rands_1))" "(begin" @@ -70688,7 +70720,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_239)(unsafe-cdr lst_86)))" +"((rest_240)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70698,15 +70730,15 @@ static const char *startup_source = "(check-expr_0" " rand_0" " 1" -" e_91))" +" e_92))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_239)(values))))" +"(if(not #f)(for-loop_81 rest_240)(values))))" "(values))))))" " for-loop_81)" " lst_79)))" "(void)" -"(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_91))))" +"(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_92))))" "(if(if(equal? tmp_66 'cons) #t(equal? tmp_66 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" "(if(equal? tmp_66 'make-struct-type)" @@ -70722,14 +70754,14 @@ static const char *startup_source = "(quoted-string?(car rands_1))" " #f)))" "(void)" -"(let-values()(disallow e_91))))" +"(let-values()(disallow e_92))))" "(if(equal? tmp_66 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" -"(let-values()(disallow e_91))))" -"(let-values()(disallow e_91)))))))))))" -"(let-values()(check-no-disallowed-expr_0 e_91)))))))))" +"(let-values()(disallow e_92))))" +"(let-values()(disallow e_92)))))))))))" +"(let-values()(check-no-disallowed-expr_0 e_92)))))))))" "((check-no-disallowed-expr_0)" "(lambda(e_39)" "(begin" @@ -70750,7 +70782,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_418)" "(let-values(((clause_4)(unsafe-car lst_418))" -"((rest_240)(unsafe-cdr lst_418)))" +"((rest_241)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70761,7 +70793,7 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_240)(values))))" +"(if(not #f)(for-loop_241 rest_241)(values))))" "(values))))))" " for-loop_241)" " lst_270)))" @@ -70780,8 +70812,8 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_266)" -"(let-values(((e_92)(unsafe-car lst_266))" -"((rest_191)(unsafe-cdr lst_266)))" +"(let-values(((e_93)(unsafe-car lst_266))" +"((rest_192)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70789,10 +70821,10 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_92))" +" e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_191)(values))))" +"(if(not #f)(for-loop_106 rest_192)(values))))" "(values))))))" " for-loop_106)" " lst_222)))" @@ -70880,12 +70912,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_331)" "(lambda(lst_272)" "(begin" " 'for-loop" "(if(pair? lst_272)" -"(let-values(((e_93)(unsafe-car lst_272))" +"(let-values(((e_94)(unsafe-car lst_272))" "((rest_146)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" @@ -70894,12 +70926,12 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_93))" +" e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_146)(values))))" +"(if(not #f)(for-loop_331 rest_146)(values))))" "(values))))))" -" for-loop_330)" +" for-loop_331)" " lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -70909,7 +70941,7 @@ 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_37 e_94)" +"(lambda(d_37 e_95)" "(begin" "(if(let-values(((or-part_163)(number? d_37)))" "(if or-part_163" @@ -70925,10 +70957,10 @@ static const char *startup_source = " or-part_172" "(let-values(((or-part_173)(bytes? d_37)))(if or-part_173 or-part_173(null? d_37)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_94))))))" +"(let-values()(disallow e_95))))))" "(define-values" "(quoted-string?)" -"(lambda(e_95)(begin(if(parsed-quote? e_95)(string?(parsed-quote-datum e_95)) #f))))" +"(lambda(e_96)(begin(if(parsed-quote? e_96)(string?(parsed-quote-datum e_96)) #f))))" "(define-values" "(cross-phase-primitive-name)" "(lambda(id_151)" @@ -72865,7 +72897,7 @@ static const char *startup_source = "(let-values(((mpi_56)" "(unsafe-car" " lst_419))" -"((rest_241)" +"((rest_242)" "(unsafe-cdr" " lst_419)))" "(let-values((()" @@ -72881,7 +72913,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_140" -" rest_241)" +" rest_242)" "(values))))" "(values))))))" " for-loop_140)" @@ -73400,11 +73432,11 @@ static const char *startup_source = " begin460_1" " e461_1))))))" "(let-values(((track_1)" -"(lambda(e_96)" +"(lambda(e_97)" "(begin" " 'track" "(syntax-track-origin$1" -" e_96" +" e_97" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -73580,8 +73612,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_420)))" -"((letrec-values(((for-loop_331)" -"(lambda(fold-var_383" +"((letrec-values(((for-loop_332)" +"(lambda(fold-var_386" " lst_421)" "(begin" " 'for-loop" @@ -73590,29 +73622,29 @@ static const char *startup_source = "(let-values(((nested-body_0)" "(unsafe-car" " lst_421))" -"((rest_242)" +"((rest_243)" "(unsafe-cdr" " lst_421)))" -"(let-values(((fold-var_384)" -"(let-values(((fold-var_385)" -" fold-var_383))" -"(let-values(((fold-var_386)" +"(let-values(((fold-var_387)" +"(let-values(((fold-var_388)" +" fold-var_386))" +"(let-values(((fold-var_389)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_385))))" +" fold-var_388))))" "(values" -" fold-var_386)))))" +" fold-var_389)))))" "(if(not" " #f)" -"(for-loop_331" -" fold-var_384" -" rest_242)" -" fold-var_384)))" -" fold-var_383)))))" -" for-loop_331)" +"(for-loop_332" +" fold-var_387" +" rest_243)" +" fold-var_387)))" +" fold-var_386)))))" +" for-loop_332)" " null" " lst_420))))))" "(datum->syntax$1" @@ -73719,7 +73751,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_422)))" -"((letrec-values(((for-loop_332)" +"((letrec-values(((for-loop_333)" "(lambda(id_153" " lst_423)" "(begin" @@ -73729,7 +73761,7 @@ static const char *startup_source = "(let-values(((s_783)" "(unsafe-car" " lst_423))" -"((rest_243)" +"((rest_244)" "(unsafe-cdr" " lst_423)))" "(let-values(((id_154)" @@ -73763,12 +73795,12 @@ static const char *startup_source = " id_156)))))" "(if(not" " #f)" -"(for-loop_332" +"(for-loop_333" " id_154" -" rest_243)" +" rest_244)" " id_154)))" " id_153)))))" -" for-loop_332)" +" for-loop_333)" " null" " lst_422)))))" "(reverse$1" @@ -74044,7 +74076,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_424)))" -"((letrec-values(((for-loop_333)" +"((letrec-values(((for-loop_334)" "(lambda(id_158" " lst_425)" "(begin" @@ -74054,7 +74086,7 @@ static const char *startup_source = "(let-values(((s_544)" "(unsafe-car" " lst_425))" -"((rest_244)" +"((rest_245)" "(unsafe-cdr" " lst_425)))" "(let-values(((id_159)" @@ -74088,12 +74120,12 @@ static const char *startup_source = " id_161)))))" "(if(not" " #f)" -"(for-loop_333" +"(for-loop_334" " id_159" -" rest_244)" +" rest_245)" " id_159)))" " id_158)))))" -" for-loop_333)" +" for-loop_334)" " null" " lst_424)))))" "(reverse$1" @@ -74384,7 +74416,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_428)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_335)" "(lambda(lst_429" " lst_430" " lst_431)" @@ -74401,19 +74433,19 @@ static const char *startup_source = "(let-values(((sym_104)" "(unsafe-car" " lst_429))" -"((rest_245)" +"((rest_246)" "(unsafe-cdr" " lst_429))" "((val_88)" "(unsafe-car" " lst_430))" -"((rest_246)" +"((rest_247)" "(unsafe-cdr" " lst_430))" "((id_162)" "(unsafe-car" " lst_431))" -"((rest_230)" +"((rest_231)" "(unsafe-cdr" " lst_431)))" "(let-values((()" @@ -74437,13 +74469,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_245" +"(for-loop_335" " rest_246" -" rest_230)" +" rest_247" +" rest_231)" "(values))))" "(values))))))" -" for-loop_334)" +" for-loop_335)" " lst_426" " lst_427" " lst_428)))" @@ -74792,7 +74824,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_432)))" -"((letrec-values(((for-loop_335)" +"((letrec-values(((for-loop_336)" "(lambda(lst_433)" "(begin" " 'for-loop" @@ -74801,7 +74833,7 @@ static const char *startup_source = "(let-values(((kw_1)" "(unsafe-car" " lst_433))" -"((rest_247)" +"((rest_248)" "(unsafe-cdr" " lst_433)))" "(let-values((()" @@ -74854,11 +74886,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_335" -" rest_247)" +"(for-loop_336" +" rest_248)" "(values))))" "(values))))))" -" for-loop_335)" +" for-loop_336)" " lst_432)))" "(values))))" "(let-values()" @@ -74914,27 +74946,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_434)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_387 lst_435)" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_390 lst_435)" "(begin" " 'for-loop" "(if(pair? lst_435)" "(let-values(((id_163)(unsafe-car lst_435))" -"((rest_248)(unsafe-cdr lst_435)))" -"(let-values(((fold-var_388)" -"(let-values(((fold-var_389) fold-var_387))" -"(let-values(((fold-var_390)" +"((rest_249)(unsafe-cdr lst_435)))" +"(let-values(((fold-var_391)" +"(let-values(((fold-var_392) fold-var_390))" +"(let-values(((fold-var_393)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_163" " inside-scope_2))" -" fold-var_389))))" -"(values fold-var_390)))))" -"(if(not #f)(for-loop_336 fold-var_388 rest_248) fold-var_388)))" -" fold-var_387)))))" -" for-loop_336)" +" fold-var_392))))" +"(values fold-var_393)))))" +"(if(not #f)(for-loop_337 fold-var_391 rest_249) fold-var_391)))" +" fold-var_390)))))" +" for-loop_337)" " null" " lst_434))))))" "(let-values(((syms_26)" @@ -74980,23 +75012,23 @@ static const char *startup_source = "(let-values(((lst_436) bodys_23))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_436)))" -"((letrec-values(((for-loop_337)" -"(lambda(fold-var_391 lst_437)" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_394 lst_437)" "(begin" " 'for-loop" "(if(pair? lst_437)" -"(let-values(((body_23)(unsafe-car lst_437))((rest_249)(unsafe-cdr lst_437)))" -"(let-values(((fold-var_392)" -"(let-values(((fold-var_393) fold-var_391))" -"(let-values(((fold-var_394)" +"(let-values(((body_23)(unsafe-car lst_437))((rest_250)(unsafe-cdr lst_437)))" +"(let-values(((fold-var_395)" +"(let-values(((fold-var_396) fold-var_394))" +"(let-values(((fold-var_397)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_393))))" -"(values fold-var_394)))))" -"(if(not #f)(for-loop_337 fold-var_392 rest_249) fold-var_392)))" -" fold-var_391)))))" -" for-loop_337)" +" fold-var_396))))" +"(values fold-var_397)))))" +"(if(not #f)(for-loop_338 fold-var_395 rest_250) fold-var_395)))" +" fold-var_394)))))" +" for-loop_338)" " null" " lst_436))))" " bodys_23)))))" @@ -75444,7 +75476,7 @@ static const char *startup_source = "(let-values(((ht_171) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_171)))" -"((letrec-values(((for-loop_338)" +"((letrec-values(((for-loop_339)" "(lambda(i_193)" "(begin" " 'for-loop" @@ -75463,7 +75495,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_339)" +"((letrec-values(((for-loop_340)" "(lambda(lst_439)" "(begin" " 'for-loop" @@ -75472,7 +75504,7 @@ static const char *startup_source = "(let-values(((id_164)" "(unsafe-car" " lst_439))" -"((rest_250)" +"((rest_251)" "(unsafe-cdr" " lst_439)))" "(let-values((()" @@ -75528,18 +75560,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_339" -" rest_250)" +"(for-loop_340" +" rest_251)" "(values))))" "(values))))))" -" for-loop_339)" +" for-loop_340)" " lst_438)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_338(hash-iterate-next ht_171 i_193))(values))))" +"(if(not #f)(for-loop_339(hash-iterate-next ht_171 i_193))(values))))" "(values))))))" -" for-loop_338)" +" for-loop_339)" "(hash-iterate-first ht_171))))" "(void)))))" "(define-values" @@ -76396,13 +76428,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_340)" +"((letrec-values(((for-loop_341)" "(lambda(lst_441)" "(begin" " 'for-loop" "(if(pair? lst_441)" "(let-values(((id_165)(unsafe-car lst_441))" -"((rest_251)(unsafe-cdr lst_441)))" +"((rest_252)(unsafe-cdr lst_441)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76434,9 +76466,9 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_251)(values))))" +"(if(not #f)(for-loop_341 rest_252)(values))))" "(values))))))" -" for-loop_340)" +" for-loop_341)" " lst_440)))" "(void))))))))))" "(define-values" @@ -76447,12 +76479,12 @@ static const char *startup_source = "(let-values(((lst_442) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_341)" +"((letrec-values(((for-loop_342)" "(lambda(lst_443)" "(begin" " 'for-loop" "(if(pair? lst_443)" -"(let-values(((body_26)(unsafe-car lst_443))((rest_252)(unsafe-cdr lst_443)))" +"(let-values(((body_26)(unsafe-car lst_443))((rest_253)(unsafe-cdr lst_443)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76499,7 +76531,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_446)))" -"((letrec-values(((for-loop_342)" +"((letrec-values(((for-loop_343)" "(lambda(lst_447" " lst_448" " lst_449)" @@ -76516,19 +76548,19 @@ static const char *startup_source = "(let-values(((id_166)" "(unsafe-car" " lst_447))" -"((rest_253)" +"((rest_254)" "(unsafe-cdr" " lst_447))" "((sym_105)" "(unsafe-car" " lst_448))" -"((rest_254)" +"((rest_255)" "(unsafe-cdr" " lst_448))" "((val_89)" "(unsafe-car" " lst_449))" -"((rest_255)" +"((rest_256)" "(unsafe-cdr" " lst_449)))" "(let-values((()" @@ -76546,13 +76578,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_342" -" rest_253" +"(for-loop_343" " rest_254" -" rest_255)" +" rest_255" +" rest_256)" "(values))))" "(values))))))" -" for-loop_342)" +" for-loop_343)" " lst_444" " lst_445" " lst_446)))" @@ -76607,9 +76639,9 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_341 rest_252)(values))))" +"(if(not #f)(for-loop_342 rest_253)(values))))" "(values))))))" -" for-loop_341)" +" for-loop_342)" " lst_442)))" "(void)))))" "(define-values" @@ -77060,16 +77092,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_450)))" -"((letrec-values(((for-loop_343)" -"(lambda(fold-var_395 lst_451)" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_398 lst_451)" "(begin" " 'for-loop" "(if(pair? lst_451)" "(let-values(((body_27)(unsafe-car lst_451))" -"((rest_256)(unsafe-cdr lst_451)))" -"(let-values(((fold-var_396)" -"(let-values(((fold-var_397) fold-var_395))" -"(let-values(((fold-var_398)" +"((rest_257)(unsafe-cdr lst_451)))" +"(let-values(((fold-var_399)" +"(let-values(((fold-var_400) fold-var_398))" +"(let-values(((fold-var_401)" "(let-values()" "(cons" "(let-values()" @@ -77114,13 +77146,13 @@ static const char *startup_source = " self699_0" " ctx700_0)))" "(let-values() body_27))))" -" fold-var_397))))" -"(values fold-var_398)))))" +" fold-var_400))))" +"(values fold-var_401)))))" "(if(not #f)" -"(for-loop_343 fold-var_396 rest_256)" -" fold-var_396)))" -" fold-var_395)))))" -" for-loop_343)" +"(for-loop_344 fold-var_399 rest_257)" +" fold-var_399)))" +" fold-var_398)))))" +" for-loop_344)" " null" " lst_450))))))))))))))))" "(define-values" @@ -77227,25 +77259,25 @@ static const char *startup_source = "(let-values(((lst_452) lifted-defns_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_452)))" -"((letrec-values(((for-loop_344)" -"(lambda(fold-var_399 lst_453)" +"((letrec-values(((for-loop_345)" +"(lambda(fold-var_402 lst_453)" "(begin" " 'for-loop" "(if(pair? lst_453)" "(let-values(((lifted-defn_0)(unsafe-car lst_453))" -"((rest_257)(unsafe-cdr lst_453)))" -"(let-values(((fold-var_400)" -"(let-values(((fold-var_401) fold-var_399))" -"(let-values(((fold-var_402)" +"((rest_258)(unsafe-cdr lst_453)))" +"(let-values(((fold-var_403)" +"(let-values(((fold-var_404) fold-var_402))" +"(let-values(((fold-var_405)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_401))))" -"(values fold-var_402)))))" -"(if(not #f)(for-loop_344 fold-var_400 rest_257) fold-var_400)))" -" fold-var_399)))))" -" for-loop_344)" +" fold-var_404))))" +"(values fold-var_405)))))" +"(if(not #f)(for-loop_345 fold-var_403 rest_258) fold-var_403)))" +" fold-var_402)))))" +" for-loop_345)" " null" " lst_452)))))))" "(define-values" @@ -77268,13 +77300,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_345)" +"((letrec-values(((for-loop_346)" "(lambda(lst_455)" "(begin" " 'for-loop" "(if(pair? lst_455)" "(let-values(((s-lifted-defn_0)(unsafe-car lst_455))" -"((rest_258)(unsafe-cdr lst_455)))" +"((rest_259)(unsafe-cdr lst_455)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77380,9 +77412,9 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_345 rest_258)(values))))" +"(if(not #f)(for-loop_346 rest_259)(values))))" "(values))))))" -" for-loop_345)" +" for-loop_346)" " lst_454)))" "(values))))" "(let-values()" @@ -77475,15 +77507,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_403 lst_85)" +"(lambda(fold-var_406 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((id_167)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_403))" -"(let-values(((fold-var_404)" +"(let-values(((fold-var_62) fold-var_406))" +"(let-values(((fold-var_407)" "(let-values()" "(cons" "(let-values()" @@ -77491,9 +77523,9 @@ static const char *startup_source = " id_167" " ctx_125))" " fold-var_62))))" -"(values fold-var_404)))))" +"(values fold-var_407)))))" "(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" -" fold-var_403)))))" +" fold-var_406)))))" " for-loop_104)" " null" " lst_6))))))" @@ -77509,13 +77541,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_346)" +"((letrec-values(((for-loop_347)" "(lambda(fold-var_217 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((id_168)(unsafe-car lst_86))" -"((rest_239)(unsafe-cdr lst_86)))" +"((rest_240)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_152) fold-var_217))" "(let-values(((fold-var_220)" @@ -77528,10 +77560,10 @@ static const char *startup_source = " fold-var_152))))" "(values fold-var_220)))))" "(if(not #f)" -"(for-loop_346 fold-var_26 rest_239)" +"(for-loop_347 fold-var_26 rest_240)" " fold-var_26)))" " fold-var_217)))))" -" for-loop_346)" +" for-loop_347)" " null" " lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" @@ -77758,7 +77790,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_180)))" -"((letrec-values(((for-loop_347)" +"((letrec-values(((for-loop_348)" "(lambda(id_173" " lst_456)" "(begin" @@ -77768,7 +77800,7 @@ static const char *startup_source = "(let-values(((s_150)" "(unsafe-car" " lst_456))" -"((rest_259)" +"((rest_260)" "(unsafe-cdr" " lst_456)))" "(let-values(((id_174)" @@ -77802,12 +77834,12 @@ static const char *startup_source = " id_97)))))" "(if(not" " #f)" -"(for-loop_347" +"(for-loop_348" " id_174" -" rest_259)" +" rest_260)" " id_174)))" " id_173)))))" -" for-loop_347)" +" for-loop_348)" " null" " lst_180)))))" "(reverse$1 id_172))))))))" @@ -78141,29 +78173,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_348)" -"(lambda(fold-var_292 lst_151)" +"((letrec-values(((for-loop_349)" +"(lambda(fold-var_295 lst_151)" "(begin" " 'for-loop" "(if(pair? lst_151)" "(let-values(((req_20)(unsafe-car lst_151))" -"((rest_260)(unsafe-cdr lst_151)))" -"(let-values(((fold-var_405)" -"(let-values(((fold-var_295) fold-var_292))" -"(let-values(((fold-var_406)" +"((rest_261)(unsafe-cdr lst_151)))" +"(let-values(((fold-var_408)" +"(let-values(((fold-var_298) fold-var_295))" +"(let-values(((fold-var_409)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" " sc_40))" -" fold-var_295))))" -"(values fold-var_406)))))" +" fold-var_298))))" +"(values fold-var_409)))))" "(if(not #f)" -"(for-loop_348 fold-var_405 rest_260)" -" fold-var_405)))" -" fold-var_292)))))" -" for-loop_348)" +"(for-loop_349 fold-var_408 rest_261)" +" fold-var_408)))" +" fold-var_295)))))" +" for-loop_349)" " null" " lst_457)))))" "((s52_0) s_33)" @@ -78272,7 +78304,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_173)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_331)" "(lambda(table_189 i_187)" "(begin" " 'for-loop" @@ -78293,10 +78325,10 @@ static const char *startup_source = " val_91)))))" "(values table_110)))))" "(if(not #f)" -"(for-loop_330 table_116(hash-iterate-next ht_173 i_187))" +"(for-loop_331 table_116(hash-iterate-next ht_173 i_187))" " table_116)))" " table_189)))))" -" for-loop_330)" +" for-loop_331)" " '#hash()" "(hash-iterate-first ht_173))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_4 ns26_3))"