diff --git a/racket/src/expander/expand/syntax-id-error.rkt b/racket/src/expander/expand/syntax-id-error.rkt index 5317ce87c3..d4ff470545 100644 --- a/racket/src/expander/expand/syntax-id-error.rkt +++ b/racket/src/expander/expand/syntax-id-error.rkt @@ -18,7 +18,7 @@ ;; ---------------------------------------- (define (syntax-debug-info-string s ctx) - (define info (syntax-debug-info s (expand-context-phase ctx) #t)) + (define info (syntax-debug-info s (expand-context-phase ctx) #f)) (cond [(not (or (pair? (hash-ref info 'bindings null)) (for*/or ([fb-info (in-list (hash-ref info 'fallbacks null))]) diff --git a/racket/src/expander/syntax/debug.rkt b/racket/src/expander/syntax/debug.rkt index 45b2e3867a..60ce7ad7b9 100644 --- a/racket/src/expander/syntax/debug.rkt +++ b/racket/src/expander/syntax/debug.rkt @@ -40,8 +40,6 @@ ([sc (in-set s-scs)] [(scs b) (in-binding-table sym (scope-binding-table sc) s null)] #:when (and scs b - (or all-bindings? - (subset? scs s-scs)) ;; Skip overidden: (not (set-member? covered-scope-sets scs)))) (values diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index b193125387..e8f4b614d6 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -16572,20 +16572,12 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_65" -"(if(let-values(((or-part_54)" -" all-bindings?_0))" -"(if or-part_54" -" or-part_54" -"(subset?" -" scs_15" -" s-scs_0)))" "(not" "(set-member?" " covered-scope-sets_4" " scs_15))" " #f)" " #f)" -" #f)" "(let-values(((bindings_7)" " bindings_6)" "((covered-scope-sets_5)" @@ -16631,12 +16623,12 @@ static const char *startup_source = "(cdr" " i_38))" "(let-values()" -"(let-values(((or-part_31)" +"(let-values(((or-part_30)" "(hash-iterate-next" " ht_81" " i_38)))" -"(if or-part_31" -" or-part_31" +"(if or-part_30" +" or-part_30" " bulk-bindings_3)))))" "(values" " bindings_5" @@ -16647,11 +16639,11 @@ static const char *startup_source = " for-loop_20)" " bindings_2" " covered-scope-sets_0" -"(let-values(((or-part_32)" +"(let-values(((or-part_31)" "(hash-iterate-first" " ht_81)))" -"(if or-part_32" -" or-part_32" +"(if or-part_31" +" or-part_31" " bulk-bindings_3)))))))" "(if(not" " #f)" @@ -16687,26 +16679,26 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_82)))" -"((letrec-values(((for-loop_10)" +"((letrec-values(((for-loop_15)" "(lambda(fold-var_63" -" i_93)" +" i_43)" "(begin" " 'for-loop" -"(if i_93" +"(if i_43" "(let-values(((sc_29)" "(unsafe-immutable-hash-iterate-key" " ht_82" -" i_93)))" +" i_43)))" "(let-values(((fold-var_64)" "(let-values(((sym-ht_1)" -"(let-values(((table_118)" +"(let-values(((table_63)" "(scope-binding-table" " sc_29)))" "(if(hash?" -" table_118)" -" table_118" +" table_63)" +" table_63" "(table-with-bulk-bindings-syms" -" table_118)))))" +" table_63)))))" "(begin" " #t" "((letrec-values(((for-loop_103)" @@ -16737,16 +16729,16 @@ static const char *startup_source = " 2)" "(cdr" " state_25))))" +"(let-values(((fold-var_17)" "(let-values(((fold-var_66)" -"(let-values(((fold-var_67)" " fold-var_65))" "(if(eq?" " o-sym_0" " sym_18)" -" fold-var_67" +" fold-var_66" +"(let-values(((fold-var_67)" +" fold-var_66))" "(let-values(((fold-var_18)" -" fold-var_67))" -"(let-values(((fold-var_19)" "(let-values()" "(cons" "(let-values()" @@ -16762,28 +16754,28 @@ static const char *startup_source = " b_66)" "(extract-binding_0" " b_66)))" -" fold-var_18))))" +" fold-var_67))))" "(values" -" fold-var_19)))))))" +" fold-var_18)))))))" "(if(not" " #f)" "(for-loop_103" -" fold-var_66" -"(let-values(((ht_83)" +" fold-var_17" +"(let-values(((ht_22)" "(vector-ref" "(car" " state_25)" " 2)))" -"(let-values(((i_94)" +"(let-values(((i_93)" "(hash-iterate-next" -" ht_83" +" ht_22" "(cdr" " state_25))))" -"(if i_94" +"(if i_93" "(cons" "(car" " state_25)" -" i_94)" +" i_93)" "(next-state-in-full-binding-table" " sym-ht_1" "(hash-iterate-next" @@ -16792,7 +16784,7 @@ static const char *startup_source = "(car" " state_25)" " 0)))))))" -" fold-var_66)))" +" fold-var_17)))" " fold-var_65)))))" " for-loop_103)" " fold-var_63" @@ -16812,14 +16804,14 @@ static const char *startup_source = " sym-ht_1)))))))" "(if(not" " #f)" -"(for-loop_10" +"(for-loop_15" " fold-var_64" "(unsafe-immutable-hash-iterate-next" " ht_82" -" i_93))" +" i_43))" " fold-var_64)))" " fold-var_63)))))" -" for-loop_10)" +" for-loop_15)" " null" "(unsafe-immutable-hash-iterate-first" " ht_82))))))" @@ -16846,20 +16838,20 @@ static const char *startup_source = "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_78) scs_17))" +"(let-values(((ht_83) scs_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_78)))" -"((letrec-values(((for-loop_99)" -"(lambda(fold-var_68 i_95)" +"(let-values()(check-in-immutable-hash-keys ht_83)))" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_68 i_28)" "(begin" " 'for-loop" -"(if i_95" -"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_78 i_95)))" -"(let-values(((fold-var_6)" -"(let-values(((fold-var_7) fold-var_68))" -"(let-values(((fold-var_8)" +"(if i_28" +"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_83 i_28)))" +"(let-values(((fold-var_5)" +"(let-values(((fold-var_6) fold-var_68))" +"(let-values(((fold-var_7)" "(let-values()" "(cons" "(let-values()" @@ -16882,19 +16874,19 @@ static const char *startup_source = "(vector" "(scope-id sc_30)" "(scope-kind sc_30))))))" -" fold-var_7))))" -"(values fold-var_8)))))" +" fold-var_6))))" +"(values fold-var_7)))))" "(if(not #f)" -"(for-loop_99" -" fold-var_6" -"(unsafe-immutable-hash-iterate-next ht_78 i_95))" -" fold-var_6)))" +"(for-loop_104" +" fold-var_5" +"(unsafe-immutable-hash-iterate-next ht_83 i_28))" +" fold-var_5)))" " fold-var_68)))))" -" for-loop_99)" +" for-loop_104)" " null" -"(unsafe-immutable-hash-iterate-first ht_78))))))" +"(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_64)(vector-ref v_64 0))))" +"((temp3_2)(lambda(v_137)(vector-ref v_137 0))))" "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16911,7 +16903,7 @@ static const char *startup_source = "(syntax-debug-info-string)" "(lambda(s_189 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #f)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16921,7 +16913,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_104)" +"((letrec-values(((for-loop_105)" "(lambda(result_64 lst_85)" "(begin" " 'for-loop" @@ -16940,10 +16932,10 @@ static const char *startup_source = " null))))))" "(values result_65)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_104 result_1 rest_40)" +"(for-loop_105 result_1 rest_40)" " result_1)))" " result_64)))))" -" for-loop_104)" +" for-loop_105)" " #f" " lst_84))))))" " (let-values () \"\")" @@ -16963,7 +16955,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" @@ -16985,10 +16977,10 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_105 fold-var_70 rest_41)" +"(for-loop_106 fold-var_70 rest_41)" " fold-var_70)))" " fold-var_69)))))" -" for-loop_105)" +" for-loop_106)" " null" " lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" @@ -17001,7 +16993,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_71 lst_89 pos_12)" "(begin" " 'for-loop" @@ -17025,13 +17017,13 @@ static const char *startup_source = "(values" " fold-var_73)))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_107" " fold-var_9" " rest_42" "(+ pos_12 1))" " fold-var_9)))" " fold-var_71)))))" -" for-loop_106)" +" for-loop_107)" " null" " lst_88" " start_14))))))))))" @@ -17046,7 +17038,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_108)" "(lambda(s_182 lst_91)" "(begin" " 'for-loop" @@ -17061,9 +17053,9 @@ static const char *startup_source = " s_43" "(list->set l_48)))))" "(values s_190)))))" -"(if(not #f)(for-loop_107 s_89 rest_43) s_89)))" +"(if(not #f)(for-loop_108 s_89 rest_43) s_89)))" " s_182)))))" -" for-loop_107)" +" for-loop_108)" "(list->set(car relevant-scope-sets_0))" " lst_90))))))" "(string-append" @@ -17093,7 +17085,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_108)" +"((letrec-values(((for-loop_109)" "(lambda(fold-var_74 lst_93)" "(begin" " 'for-loop" @@ -17101,9 +17093,9 @@ static const char *startup_source = "(let-values(((b_39)(unsafe-car lst_93))" "((rest_44)(unsafe-cdr lst_93)))" "(let-values(((fold-var_75)" -"(let-values(((fold-var_76)" -" fold-var_74))" "(let-values(((fold-var_65)" +" fold-var_74))" +"(let-values(((fold-var_76)" "(let-values()" "(cons" "(let-values()" @@ -17136,13 +17128,13 @@ static const char *startup_source = " b_39" " 'context)" " common-scopes_0)))" -" fold-var_76))))" -"(values fold-var_65)))))" +" fold-var_65))))" +"(values fold-var_76)))))" "(if(not #f)" -"(for-loop_108 fold-var_75 rest_44)" +"(for-loop_109 fold-var_75 rest_44)" " fold-var_75)))" " fold-var_74)))))" -" for-loop_108)" +" for-loop_109)" " null" " lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" @@ -17157,7 +17149,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_109)" +"((letrec-values(((for-loop_110)" "(lambda(fold-var_66 lst_95 pos_13)" "(begin" " 'for-loop" @@ -17178,13 +17170,13 @@ static const char *startup_source = " fold-var_78))))" "(values fold-var_79)))))" "(if(not #f)" -"(for-loop_109" +"(for-loop_110" " fold-var_77" " rest_45" "(+ pos_13 1))" " fold-var_77)))" " fold-var_66)))))" -" for-loop_109)" +" for-loop_110)" " null" " lst_94" " start_15)))))))))))" @@ -17202,27 +17194,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_110)" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_80 lst_97)" "(begin" " 'for-loop" "(if(pair? lst_97)" "(let-values(((s_191)(unsafe-car lst_97))" "((rest_46)(unsafe-cdr lst_97)))" -"(let-values(((fold-var_68)" -"(let-values(((fold-var_81) fold-var_80))" +"(let-values(((fold-var_81)" +"(let-values(((fold-var_82) fold-var_80))" "(if(set-member? common-scopes_0 s_191)" -"(let-values(((fold-var_5) fold-var_81))" +"(let-values(((fold-var_5) fold-var_82))" "(let-values(((fold-var_6)" "(let-values()" "(cons" "(let-values() s_191)" " fold-var_5))))" "(values fold-var_6)))" -" fold-var_81))))" -"(if(not #f)(for-loop_110 fold-var_68 rest_46) fold-var_68)))" +" fold-var_82))))" +"(if(not #f)(for-loop_111 fold-var_81 rest_46) fold-var_81)))" " fold-var_80)))))" -" for-loop_110)" +" for-loop_111)" " null" " lst_96))))" "(set)))))))))))))" @@ -17257,27 +17249,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_111)" -"(lambda(fold-var_82 lst_99)" +"((letrec-values(((for-loop_112)" +"(lambda(fold-var_83 lst_99)" "(begin" " 'for-loop" "(if(pair? lst_99)" "(let-values(((s_24)(unsafe-car lst_99))" "((rest_47)(unsafe-cdr lst_99)))" -"(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_82))" +"(let-values(((fold-var_84)" +"(let-values(((fold-var_85) fold-var_83))" "(if(not(set-member? common-scopes_1 s_24))" -"(let-values(((fold-var_85) fold-var_84))" -"(let-values(((fold-var_86)" +"(let-values(((fold-var_86) fold-var_85))" +"(let-values(((fold-var_87)" "(let-values()" "(cons" "(let-values() s_24)" +" fold-var_86))))" +"(values fold-var_87)))" " fold-var_85))))" -"(values fold-var_86)))" -" fold-var_84))))" -"(if(not #f)(for-loop_111 fold-var_83 rest_47) fold-var_83)))" -" fold-var_82)))))" -" for-loop_111)" +"(if(not #f)(for-loop_112 fold-var_84 rest_47) fold-var_84)))" +" fold-var_83)))))" +" for-loop_112)" " null" " lst_98))))" " (list \"[common scopes]\"))))))" @@ -17292,24 +17284,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_112)" -"(lambda(fold-var_87 lst_101)" +"((letrec-values(((for-loop_113)" +"(lambda(fold-var_88 lst_101)" "(begin" " 'for-loop" "(if(pair? lst_101)" "(let-values(((str_4)(unsafe-car lst_101))((rest_48)(unsafe-cdr lst_101)))" -"(let-values(((fold-var_88)" -"(let-values(((fold-var_89) fold-var_87))" +"(let-values(((fold-var_89)" +"(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_14)" "(let-values()" "(cons" "(let-values()" " (string-append \"\\n \" str_4))" -" fold-var_89))))" +" fold-var_90))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_112 fold-var_88 rest_48) fold-var_88)))" -" fold-var_87)))))" -" for-loop_112)" +"(if(not #f)(for-loop_113 fold-var_89 rest_48) fold-var_89)))" +" fold-var_88)))))" +" for-loop_113)" " null" " lst_100)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" @@ -17368,19 +17360,19 @@ static const char *startup_source = " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" "((letrec-values(((loop_6)" -"(lambda(v_137 ht_84)" +"(lambda(v_138 ht_84)" "(begin" " 'loop" -"(if(identifier? v_137)" +"(if(identifier? v_138)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_137) null)))" +"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_138) null)))" "(begin" "(let-values(((lst_102) l_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_113)" +"((letrec-values(((for-loop_114)" "(lambda(lst_77)" "(begin" " 'for-loop" @@ -17396,7 +17388,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_20" -" v_137" +" v_138" " phase_44)" "(let-values()" "(raise-syntax-error$1" @@ -17405,20 +17397,20 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_3" -" v_137))" +" v_138))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_113 rest_49)" +"(for-loop_114 rest_49)" "(values))))" "(values))))))" -" for-loop_113)" +" for-loop_114)" " lst_102)))" "(void)" -"(hash-set ht_84(syntax-e$1 v_137)(cons v_137 l_49)))))" -"(if(pair? v_137)" -"(let-values()(loop_6(cdr v_137)(loop_6(car v_137) ht_84)))" +"(hash-set ht_84(syntax-e$1 v_138)(cons v_138 l_49)))))" +"(if(pair? v_138)" +"(let-values()(loop_6(cdr v_138)(loop_6(car v_138) ht_84)))" "(let-values() ht_84)))))))" " loop_6)" " ids_2" @@ -17437,24 +17429,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_90 lst_84)" +"((letrec-values(((for-loop_115)" +"(lambda(fold-var_91 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" "(let-values(((id_21)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_91)" -"(let-values(((fold-var_92) fold-var_90))" +"(let-values(((fold-var_92)" +"(let-values(((fold-var_93) fold-var_91))" "(let-values(((fold-var_60)" "(let-values()" "(cons" "(let-values()" "(remove-scopes id_21(unbox use-sites_0)))" -" fold-var_92))))" +" fold-var_93))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_114 fold-var_91 rest_50) fold-var_91)))" -" fold-var_90)))))" -" for-loop_114)" +"(if(not #f)(for-loop_115 fold-var_92 rest_50) fold-var_92)))" +" fold-var_91)))))" +" for-loop_115)" " null" " lst_103)))))" " s_0)))))" @@ -17705,39 +17697,39 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_138)" +"(lambda(v_139)" "(begin" " 'unique-list" -"(if(pair? v_138)" +"(if(pair? v_139)" "(reverse$1" -"(let-values(((lst_104) v_138))" +"(let-values(((lst_104) v_139))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_104)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_116)" "(lambda(fold-var_10 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" -"(let-values(((i_96)(unsafe-car lst_80))" +"(let-values(((i_94)(unsafe-car lst_80))" "((rest_51)(unsafe-cdr lst_80)))" -"(let-values(((fold-var_93)" -"(let-values(((fold-var_94) fold-var_10))" -"(let-values(((fold-var_95)" +"(let-values(((fold-var_94)" +"(let-values(((fold-var_95) fold-var_10))" +"(let-values(((fold-var_96)" "(let-values()" "(cons" -"(let-values() i_96)" -" fold-var_94))))" -"(values fold-var_95)))))" +"(let-values() i_94)" +" fold-var_95))))" +"(values fold-var_96)))))" "(if(not #f)" -"(for-loop_115 fold-var_93 rest_51)" -" fold-var_93)))" +"(for-loop_116 fold-var_94 rest_51)" +" fold-var_94)))" " fold-var_10)))))" -" for-loop_115)" +" for-loop_116)" " null" " lst_104))))" -" v_138)))))" +" v_139)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" @@ -17746,15 +17738,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_116)" -"(lambda(table_119 i_97)" +"((letrec-values(((for-loop_117)" +"(lambda(table_118 i_95)" "(begin" " 'for-loop" -"(if i_97" -"(let-values(((k_19 v_69)(hash-iterate-key+value ht_85 i_97)))" +"(if i_95" +"(let-values(((k_19 v_69)(hash-iterate-key+value ht_85 i_95)))" +"(let-values(((table_119)" +"(let-values(((table_113) table_118))" "(let-values(((table_120)" -"(let-values(((table_113) table_119))" -"(let-values(((table_121)" "(let-values()" "(let-values(((key_45 val_38)" "(let-values()" @@ -17765,12 +17757,12 @@ static const char *startup_source = " table_113" " key_45" " val_38)))))" -"(values table_121)))))" +"(values table_120)))))" "(if(not #f)" -"(for-loop_116 table_120(hash-iterate-next ht_85 i_97))" -" table_120)))" -" table_119)))))" -" for-loop_116)" +"(for-loop_117 table_119(hash-iterate-next ht_85 i_95))" +" table_119)))" +" table_118)))))" +" for-loop_117)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" "(let-values((()" @@ -17780,12 +17772,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_16 end_10 inc_4)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_103)" "(lambda(pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_10)" -"(let-values(((i_98) pos_16))" +"(let-values(((i_96) pos_16))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17795,7 +17787,7 @@ static const char *startup_source = "(let-values(((mpi_24)" "(hash-ref" " rev-positions_0" -" i_98)))" +" i_96)))" "((letrec-values(((loop_85)" "(lambda(mpi_25)" "(begin" @@ -17825,9 +17817,9 @@ static const char *startup_source = " mpi_24)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_117(+ pos_16 inc_4))(values))))" +"(if(not #f)(for-loop_103(+ pos_16 inc_4))(values))))" "(values))))))" -" for-loop_117)" +" for-loop_103)" " start_16)))" "(values))))" "(let-values()" @@ -17838,14 +17830,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_86)))" "((letrec-values(((for-loop_118)" -"(lambda(table_122 i_99)" +"(lambda(table_121 i_93)" "(begin" " 'for-loop" -"(if i_99" +"(if i_93" "(let-values(((k_20 v_38)" -"(hash-iterate-key+value ht_86 i_99)))" +"(hash-iterate-key+value ht_86 i_93)))" "(let-values(((table_15)" -"(let-values(((table_123) table_122))" +"(let-values(((table_122) table_121))" "(let-values(((table_9)" "(let-values()" "(let-values(((key_46" @@ -17855,14 +17847,14 @@ static const char *startup_source = " v_38" " k_20))))" "(hash-set" -" table_123" +" table_122" " key_46" " val_39)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_118 table_15(hash-iterate-next ht_86 i_99))" +"(for-loop_118 table_15(hash-iterate-next ht_86 i_93))" " table_15)))" -" table_122)))))" +" table_121)))))" " for-loop_118)" " '#hasheqv()" "(hash-iterate-first ht_86))))))" @@ -17873,7 +17865,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_139)(make-vector len_12 0)))" +"(let-values(((v_140)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17886,19 +17878,19 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_28)" -"(lambda(i_100 pos_17)" +"(lambda(i_97 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_11)" "(let-values(((i_91) pos_17))" -"(let-values(((i_101)" -"(let-values(((i_102) i_100))" +"(let-values(((i_98)" +"(let-values(((i_99) i_97))" "(let-values(((i_29)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_139" -" i_102" +" v_140" +" i_99" "(let-values()" "(let-values(((mpi_26)" "(hash-ref" @@ -17939,21 +17931,21 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_102)))))" +" i_99)))))" "(values i_29)))))" "(if(if(not" "((lambda x_43" -"(unsafe-fx= i_101 len_12))" +"(unsafe-fx= i_98 len_12))" " i_91))" "(not #f)" " #f)" -"(for-loop_28 i_101(+ pos_17 inc_5))" -" i_101)))" -" i_100)))))" +"(for-loop_28 i_98(+ pos_17 inc_5))" +" i_98)))" +" i_97)))))" " for-loop_28)" " 0" " start_17)))))" -" v_139))))))" +" v_140))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -17966,15 +17958,15 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" "((letrec-values(((for-loop_53)" -"(lambda(vec_31 i_103 pos_18)" +"(lambda(vec_31 i_100 pos_18)" "(begin" " 'for-loop" "(if(< pos_18 end_12)" -"(let-values(((i_104) pos_18))" -"(let-values(((vec_32 i_105)" +"(let-values(((i_101) pos_18))" +"(let-values(((vec_32 i_102)" "(let-values(((vec_33) vec_31)" -"((i_39) i_103))" -"(let-values(((vec_34 i_106)" +"((i_39) i_100))" +"(let-values(((vec_34 i_103)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17993,17 +17985,17 @@ static const char *startup_source = " gen-order_0" "(hash-ref" " rev-positions_0" -" i_104))))" +" i_101))))" "(values" " new-vec_2" "(unsafe-fx+" " i_39" " 1)))))))" -"(values vec_34 i_106)))))" +"(values vec_34 i_103)))))" "(if(not #f)" -"(for-loop_53 vec_32 i_105(+ pos_18 inc_6))" -"(values vec_32 i_105))))" -"(values vec_31 i_103))))))" +"(for-loop_53 vec_32 i_102(+ pos_18 inc_6))" +"(values vec_32 i_102))))" +"(values vec_31 i_100))))))" " for-loop_53)" "(make-vector 16)" " 0" @@ -18029,7 +18021,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_19 len_13) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_35 pos_19))((i_107) pos_20))" +"(let-values(((d_21)(unsafe-vector-ref vec_35 pos_19))((i_104) pos_20))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18038,7 +18030,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_107" +" i_104" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -18067,7 +18059,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_14)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_140)(make-vector len_14 0)))" +"(let-values(((v_141)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -18078,33 +18070,33 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_120)" -"(lambda(i_108 pos_21)" +"(lambda(i_105 pos_21)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_21 len_4)" "(let-values(((p_33)(unsafe-vector-ref vec_36 pos_21)))" "(let-values(((i_48)" -"(let-values(((i_109) i_108))" -"(let-values(((i_110)" +"(let-values(((i_106) i_105))" +"(let-values(((i_107)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_140" -" i_109" +" v_141" +" i_106" "(let-values()" "(vector*-ref gen_0 p_33)))" -"(unsafe-fx+ 1 i_109)))))" -"(values i_110)))))" +"(unsafe-fx+ 1 i_106)))))" +"(values i_107)))))" "(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_33))" "(not #f)" " #f)" "(for-loop_120 i_48(unsafe-fx+ 1 pos_21))" " i_48)))" -" i_108)))))" +" i_105)))))" " for-loop_120)" " 0" " 0)))))" -" v_140)))))))))" +" v_141)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -18147,14 +18139,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_96 lst_11)" +"(lambda(fold-var_97 lst_11)" "(begin" " 'for-loop" "(if(pair? lst_11)" "(let-values(((mu_1)(unsafe-car lst_11))((rest_52)(unsafe-cdr lst_11)))" -"(let-values(((fold-var_97)" -"(let-values(((fold-var_98) fold-var_96))" -"(let-values(((fold-var_99)" +"(let-values(((fold-var_98)" +"(let-values(((fold-var_99) fold-var_97))" +"(let-values(((fold-var_100)" "(let-values()" "(cons" "(let-values()" @@ -18164,31 +18156,31 @@ static const char *startup_source = " mpis_4" "(module-use-module mu_1))" "(module-use-phase mu_1)))" -" fold-var_98))))" -"(values fold-var_99)))))" -"(if(not #f)(for-loop_122 fold-var_97 rest_52) fold-var_97)))" -" fold-var_96)))))" +" fold-var_99))))" +"(values fold-var_100)))))" +"(if(not #f)(for-loop_122 fold-var_98 rest_52) fold-var_98)))" +" fold-var_97)))))" " for-loop_122)" " null" " lst_105)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_141)" +"(lambda(v_142)" "(begin" -"(let-values(((or-part_167)(null? v_141)))" +"(let-values(((or-part_167)(null? v_142)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_168)(boolean? v_141)))" +"(let-values(((or-part_168)(boolean? v_142)))" "(if or-part_168" " or-part_168" "(let-values(((or-part_139)" -"(if(fixnum? v_141)(if(< v_141(sub1(expt 2 30)))(> v_141(-(expt 2 30))) #f) #f)))" +"(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" "(if or-part_139" " or-part_139" -"(let-values(((or-part_169)(symbol? v_141)))" +"(let-values(((or-part_169)(symbol? v_142)))" "(if or-part_169" " or-part_169" -"(let-values(((or-part_46)(char? v_141)))(if or-part_46 or-part_46(keyword? v_141))))))))))))))" +"(let-values(((or-part_46)(char? v_142)))(if or-part_46 or-part_46(keyword? v_142))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -18205,13 +18197,13 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" "((letrec-values(((for-loop_123)" -"(lambda(fold-var_100 lst_107)" +"(lambda(fold-var_101 lst_107)" "(begin" " 'for-loop" "(if(pair? lst_107)" "(let-values(((phase_9)(unsafe-car lst_107))((rest_53)(unsafe-cdr lst_107)))" -"(let-values(((fold-var_101)" -"(let-values(((fold-var_36) fold-var_100))" +"(let-values(((fold-var_102)" +"(let-values(((fold-var_36) fold-var_101))" "(let-values(((fold-var_37)" "(let-values()" "(cons" @@ -18227,8 +18219,8 @@ static const char *startup_source = " mpis_5))))" " fold-var_36))))" "(values fold-var_37)))))" -"(if(not #f)(for-loop_123 fold-var_101 rest_53) fold-var_101)))" -" fold-var_100)))))" +"(if(not #f)(for-loop_123 fold-var_102 rest_53) fold-var_102)))" +" fold-var_101)))))" " for-loop_123)" " null" " lst_106))))))))))" @@ -18237,11 +18229,11 @@ static const char *startup_source = "(lambda(syntax-support?2_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_142) v4_0))" +"(let-values(((v_143) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0) syntax-support?2_0))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_142)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_143)))" "(let-values(((state_26)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -18250,7 +18242,7 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_143)(begin 'add-frontier!(set! frontier_0(cons v_143 frontier_0))))" +"((v_144)(begin 'add-frontier!(set! frontier_0(cons v_144 frontier_0))))" "((kind_3 v_100)(add-frontier!_0 v_100)))))" "(let-values((()" "(begin" @@ -18700,7 +18692,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_113)" -"(let-values(((v_144)" +"(let-values(((v_145)" "(unsafe-car" " lst_113))" "((rest_56)" @@ -18713,7 +18705,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_144))" +" v_145))" "(values)))))" "(values)))))" "(if(not" @@ -18726,7 +18718,7 @@ static const char *startup_source = " lst_112)))" "(void))))))))))" " frontier-loop_0)" -" v_142)" +" v_143)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" @@ -18739,35 +18731,35 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_88)))" "((letrec-values(((for-loop_130)" -"(lambda(fold-var_102 i_111)" +"(lambda(fold-var_103 i_108)" "(begin" " 'for-loop" -"(if i_111" +"(if i_108" "(let-values(((obj_0)" "(hash-iterate-key" " ht_88" -" i_111)))" -"(let-values(((fold-var_103)" +" i_108)))" "(let-values(((fold-var_104)" -" fold-var_102))" "(let-values(((fold-var_105)" +" fold-var_103))" +"(let-values(((fold-var_106)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " objs_0" " obj_0))" -" fold-var_104))))" +" fold-var_105))))" "(values" -" fold-var_105)))))" +" fold-var_106)))))" "(if(not #f)" "(for-loop_130" -" fold-var_103" +" fold-var_104" "(hash-iterate-next" " ht_88" -" i_111))" -" fold-var_103)))" -" fold-var_102)))))" +" i_108))" +" fold-var_104)))" +" fold-var_103)))))" " for-loop_130)" " null" "(hash-iterate-first ht_88)))))))" @@ -18784,7 +18776,7 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_131)" -"(lambda(table_124 lst_115 pos_25)" +"(lambda(table_123 lst_115 pos_25)" "(begin" " 'for-loop" "(if(if(pair? lst_115) #t #f)" @@ -18793,9 +18785,9 @@ static const char *startup_source = "((rest_57)" "(unsafe-cdr lst_115))" "((pos_26) pos_25))" -"(let-values(((table_125)" +"(let-values(((table_124)" "(let-values(((table_35)" -" table_124))" +" table_123))" "(let-values(((table_36)" "(let-values()" "(let-values(((key_47" @@ -18811,11 +18803,11 @@ static const char *startup_source = "(values table_36)))))" "(if(not #f)" "(for-loop_131" -" table_125" +" table_124" " rest_57" "(+ pos_25 1))" -" table_125)))" -" table_124)))))" +" table_124)))" +" table_123)))))" " for-loop_131)" " '#hasheqv()" " lst_114" @@ -18828,12 +18820,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_145)" +"(let-values(((v_146)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_172)(not(keyword? v_145))))" -"(if or-part_172 or-part_172(eq? '#:quote v_145))))))))" +"(let-values(((or-part_172)(not(keyword? v_146))))" +"(if or-part_172 or-part_172(eq? '#:quote v_146))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18852,20 +18844,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_146)" +"((v_147)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_146 #f)" +"(if(hash-ref shares_0 v_147 #f)" "(let-values()" "(let-values(((n_22)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_146))))" +"(hash-ref objs_0 v_147))))" "(begin" "(ser-push!_16 'tag '#:ref)" "(ser-push!_16 'exact n_22))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_146 #f)))" +"(hash-ref mutables_0 v_147 #f)))" "(if c1_25" "((lambda(n_23)" "(begin" @@ -18873,49 +18865,49 @@ static const char *startup_source = "(ser-push!_16 'exact n_23)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_146)))))))" -"((kind_5 v_147)" +"(ser-push-encoded!_0 v_147)))))))" +"((kind_5 v_148)" "(let-values(((tmp_18) kind_5))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_147 stream_0))" +"(set! stream_0(cons v_148 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_147))" +"(let-values()(ser-push!_16 'exact v_148))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_147 #f)" +"(if(hash-ref shares_0 v_148 #f)" "(let-values()" "(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_147))))" +" v_148))))" "(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_147" +" v_148" " #f)))" "(if c2_1" "((lambda(n_25)" "(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_16 v_147))))))" -"(let-values()(ser-push!_16 v_147)))))))))" +"(ser-push!_16 v_148))))))" +"(let-values()(ser-push!_16 v_148)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_148)" +"(lambda(v_149)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_148)" +"(if(keyword? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_148)))" -"(if(1/module-path-index? v_148)" +"(ser-push!_16 'exact v_149)))" +"(if(1/module-path-index? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -18923,16 +18915,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_148))))" -"(if(serialize? v_148)" +" v_149))))" +"(if(serialize? v_149)" "(let-values()" -"((serialize-ref v_148)" -" v_148" +"((serialize-ref v_149)" +" v_149" " ser-push!_16" " state_26))" -"(if(if(list? v_148)" -"(if(pair? v_148)" -"(pair?(cdr v_148))" +"(if(if(list? v_149)" +"(if(pair? v_149)" +"(pair?(cdr v_149))" " #f)" " #f)" "(let-values()" @@ -18948,11 +18940,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_148))" +"(length v_149))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_116)" -" v_148))" +" v_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18967,7 +18959,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_56)" -"(let-values(((i_112)" +"(let-values(((i_109)" "(unsafe-car" " lst_56))" "((rest_58)" @@ -18982,7 +18974,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_16" -" i_112)" +" i_109)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -19006,9 +18998,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))" +" v_149)))" "(void)))))))" -"(if(pair? v_148)" +"(if(pair? v_149)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -19023,12 +19015,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_148))" +"(car v_149))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_148))" +"(ser-push!_16(cdr v_149))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -19039,9 +19031,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))" +" v_149)))" "(void)))))))))" -"(if(box? v_148)" +"(if(box? v_149)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -19054,7 +19046,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(unbox v_148))" +"(ser-push!_16(unbox v_149))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -19063,9 +19055,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))" +" v_149)))" "(void)))))))" -"(if(vector? v_148)" +"(if(vector? v_149)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -19080,13 +19072,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_148))" +" v_149))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_148))" +" v_149))" "(begin" "(check-vector" " vec_43)" @@ -19104,7 +19096,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_29" " len_17)" -"(let-values(((i_113)" +"(let-values(((i_110)" "(unsafe-vector-ref" " vec_42" " pos_29)))" @@ -19117,7 +19109,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_16" -" i_113)" +" i_110)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -19144,15 +19136,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))" +" v_149)))" "(void)))))))" -"(if(hash? v_148)" +"(if(hash? v_149)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_148))" +" v_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19162,14 +19154,14 @@ static const char *startup_source = " ht_89)))" "((letrec-values(((for-loop_133)" "(lambda(result_66" -" i_114)" +" i_111)" "(begin" " 'for-loop" -"(if i_114" +"(if i_111" "(let-values(((val_41)" "(hash-iterate-value" " ht_89" -" i_114)))" +" i_111)))" "(let-values(((result_67)" "(let-values()" "(let-values(((result_68)" @@ -19192,7 +19184,7 @@ static const char *startup_source = " result_67" "(hash-iterate-next" " ht_89" -" i_114))" +" i_111))" " result_67)))" " result_66)))))" " for-loop_133)" @@ -19205,21 +19197,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_148)" +" v_149)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_148)" +" v_149)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_148)" +" v_149)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_148)" +" v_149)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19230,11 +19222,11 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_148))" +" v_149))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_148)))" +" v_149)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_117)" " ks_0))" @@ -19278,7 +19270,7 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_148" +" v_149" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -19311,16 +19303,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))" +" v_149)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_148)))" +" v_149)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_148)))" +" v_149)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19371,7 +19363,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_115)" +"(let-values(((i_112)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -19384,7 +19376,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_16" -" i_115)" +" i_112)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -19411,66 +19403,66 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))" +" v_149)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_148)" +"(if(srcloc? v_149)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_148))" +"(srcloc-source v_149))" "(ser-push!_16" -"(srcloc-line v_148))" +"(srcloc-line v_149))" "(ser-push!_16" -"(srcloc-column v_148))" +"(srcloc-column v_149))" "(ser-push!_16" -"(srcloc-position v_148))" +"(srcloc-position v_149))" "(ser-push!_16" -"(srcloc-span v_148))))" +"(srcloc-span v_149))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_148)))))))))))))))))" +" v_149)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_149)" +"(lambda(v_150)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_149)" +"(if(serialize-fill!? v_150)" "(let-values()" -"((serialize-ref v_149)" -" v_149" +"((serialize-ref v_150)" +" v_150" " ser-push!_16" " state_26))" -"(if(box? v_149)" +"(if(box? v_150)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_149)" +"(if(vector? v_150)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_149))))" -"(if(hash? v_149)" +"(vector-length v_150))))" +"(if(hash? v_150)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_149)" +"(if(hash-eq? v_150)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_149)" +"(if(hash-eqv? v_150)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_149))))))))))" +" v_150))))))))))" "(let-values(((ser-shell-fill!_0)" "(lambda(v_80)" "(begin" @@ -19511,7 +19503,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_150)" +"(let-values(((v_151)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19522,7 +19514,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_150))" +" v_151))" "(values)))))" "(values)))))" "(if(not" @@ -19610,40 +19602,40 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_90)))" "((letrec-values(((for-loop_137)" -"(lambda(table_126 i_116)" +"(lambda(table_125 i_113)" "(begin" " 'for-loop" -"(if i_116" +"(if i_113" "(let-values(((k_26" -" v_151)" +" v_152)" "(hash-iterate-key+value" " ht_90" -" i_116)))" +" i_113)))" "(let-values(((table_59)" "(let-values(((table_60)" -" table_126))" -"(let-values(((table_127)" +" table_125))" +"(let-values(((table_126)" "(let-values()" "(let-values(((key_48" " val_42)" "(let-values()" "(values" -" v_151" +" v_152" " k_26))))" "(hash-set" " table_60" " key_48" " val_42)))))" "(values" -" table_127)))))" +" table_126)))))" "(if(not #f)" "(for-loop_137" " table_59" "(hash-iterate-next" " ht_90" -" i_116))" +" i_113))" " table_59)))" -" table_126)))))" +" table_125)))))" " for-loop_137)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" @@ -19701,7 +19693,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys ht_91)))" "((letrec-values(((for-loop_139)" -"(lambda(table_128 i_60)" +"(lambda(table_127 i_60)" "(begin" " 'for-loop" "(if i_60" @@ -19709,10 +19701,10 @@ static const char *startup_source = "(hash-iterate-key" " ht_91" " i_60)))" +"(let-values(((table_128)" "(let-values(((table_129)" +" table_127))" "(let-values(((table_130)" -" table_128))" -"(let-values(((table_131)" "(let-values()" "(let-values(((key_49" " val_43)" @@ -19725,19 +19717,19 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_130" +" table_129" " key_49" " val_43)))))" "(values" -" table_131)))))" +" table_130)))))" "(if(not #f)" "(for-loop_139" -" table_129" +" table_128" "(hash-iterate-next" " ht_91" " i_60))" -" table_129)))" -" table_128)))))" +" table_128)))" +" table_127)))))" " for-loop_139)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" @@ -19766,7 +19758,7 @@ static const char *startup_source = "(if(<" " pos_32" " end_14)" -"(let-values(((i_117)" +"(let-values(((i_114)" " pos_32))" "(let-values((()" "(let-values()" @@ -19777,7 +19769,7 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_117)))" +" i_114)))" "(values)))))" "(values)))))" "(if(not" @@ -19815,7 +19807,7 @@ static const char *startup_source = "(if(<" " pos_33" " end_15)" -"(let-values(((i_118)" +"(let-values(((i_115)" " pos_33))" "(let-values((()" "(let-values()" @@ -19826,7 +19818,7 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_118)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" @@ -19854,7 +19846,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_16 v_142)" +"(ser-push!_16 v_143)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -19903,7 +19895,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_35 end_16)" -"(let-values(((i_119) pos_35))" +"(let-values(((i_116) pos_35))" "(let-values(((pos_36)" "(let-values(((pos_37) pos_34))" "(let-values(((pos_38)" @@ -19919,7 +19911,7 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_119" +" i_116" " d_22)" " next-pos_0)))))" "(values pos_38)))))" @@ -19943,7 +19935,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_40 end_17)" -"(let-values(((i_120) pos_40))" +"(let-values(((i_117) pos_40))" "(let-values(((pos_41)" "(let-values(((pos_42) pos_39))" "(let-values(((pos_43)" @@ -19959,7 +19951,7 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_120" +" i_117" " d_23)" " next-pos_1)))))" "(values pos_43)))))" @@ -19989,13 +19981,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_45 end_18)(unsafe-fx< pos_46 len_19) #f)" -"(let-values(((v_152)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_153)(unsafe-vector-ref vec_47 pos_46)))" "(let-values(((pos_47)" "(let-values(((pos_48) pos_44))" "(let-values(((pos_49)" "(let-values()" "(decode-fill!" -" v_152" +" v_153" " mutable-fill-vec_0" " pos_48" " mpis_7" @@ -20100,9 +20092,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_121)(vector*-ref vec_50 next-pos_2)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_2))" +"(let-values(((i_118)(vector*-ref vec_50 next-pos_2)))" +"(if(exact-integer? i_118)" +"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" "(decode" " vec_50" " next-pos_2" @@ -20111,9 +20103,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_122)(vector*-ref vec_50 next-pos_3)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_3))" +"(let-values(((i_119)(vector*-ref vec_50 next-pos_3)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" "(decode" " vec_50" " next-pos_3" @@ -20134,9 +20126,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_123)(vector*-ref vec_50 next-pos_5)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_5))" +"(let-values(((i_120)(vector*-ref vec_50 next-pos_5)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" "(decode" " vec_50" " next-pos_5" @@ -20145,9 +20137,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_124)(vector*-ref vec_50 next-pos_6)))" -"(if(exact-integer? i_124)" -"(values(vector*-ref shared_2 i_124)(add1 next-pos_6))" +"(let-values(((i_121)(vector*-ref vec_50 next-pos_6)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" "(decode" " vec_50" " next-pos_6" @@ -20164,9 +20156,9 @@ static const char *startup_source = "(let-values(((content_10 next-pos_8)" "(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_125)(vector*-ref vec_50 next-pos_8)))" -"(if(exact-integer? i_125)" -"(values(vector*-ref shared_2 i_125)(add1 next-pos_8))" +"(let-values(((i_122)(vector*-ref vec_50 next-pos_8)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" "(decode" " vec_50" " next-pos_8" @@ -20175,9 +20167,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_126)(vector*-ref vec_50 next-pos_9)))" -"(if(exact-integer? i_126)" -"(values(vector*-ref shared_2 i_126)(add1 next-pos_9))" +"(let-values(((i_123)(vector*-ref vec_50 next-pos_9)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" "(decode" " vec_50" " next-pos_9" @@ -20252,7 +20244,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 10)" "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))" "(let-values()" -"(let-values(((v_153 next-pos_18)" +"(let-values(((v_154 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" @@ -20260,7 +20252,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_153) next-pos_18))))" +"(values(box-immutable v_154) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_39 next-pos_19)" @@ -20295,14 +20287,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_53 end_19)" -"(let-values(((i_127) pos_53))" +"(let-values(((i_124) pos_53))" "(let-values(((pos_54)" "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_154" -" next-pos_22)" "(let-values(((v_155" +" next-pos_22)" +"(let-values(((v_156" " next-pos_23)" "(decode" " vec_50" @@ -20312,13 +20304,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_155" +" v_156" " next-pos_23))))" "(begin" "(vector-set!" " r_29" -" i_127" -" v_154)" +" i_124" +" v_155)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" @@ -20369,7 +20361,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_156" +"(let-values(((v_157" " next-pos_25)" "(decode" " vec_50" @@ -20382,7 +20374,7 @@ static const char *startup_source = "(hash-set" " ht_95" " k_27" -" v_156)" +" v_157)" " next-pos_25))))))" "(values ht_96 pos_61)))))" "(if(not #f)" @@ -20472,7 +20464,7 @@ static const char *startup_source = "((pos_70) pos_67))" "(let-values(((r_34 pos_71)" "(let-values()" -"(let-values(((v_157" +"(let-values(((v_158" " next-pos_29)" "(decode" " vec_50" @@ -20483,7 +20475,7 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_157" +" v_158" " r_33)" " next-pos_29)))))" "(values r_34 pos_71)))))" @@ -20835,7 +20827,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_158 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_159 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" "(if(equal? tmp_23 #f)" @@ -20844,7 +20836,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_67)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_158 c_21) next-pos_67)))" +"(begin(set-box! v_159 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20872,7 +20864,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_158 i_78 c_22)" +"(vector-set! v_159 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" "(if(not #f)(for-loop_149 pos_75(+ pos_74 inc_17)) pos_75)))" @@ -20915,7 +20907,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_158 key_52 val_44)" +"(hash-set! v_159 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" "(if(not #f)(for-loop_150 pos_80(+ pos_79 inc_18)) pos_80)))" @@ -20927,18 +20919,18 @@ static const char *startup_source = "(let-values()" "(let-values(((c_23 next-pos_70)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_158 c_23) next-pos_70)))" +"(begin(deserialize-scope-fill! v_159 c_23) next-pos_70)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_40 next-pos_71)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_51 next-pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_158 a_40 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_159 a_40 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_159)" +"(lambda(v_160)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20946,22 +20938,22 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_86)" -"(lambda(v_160)" +"(lambda(v_161)" "(begin" " 'loop" -"(if(interned-literal? v_160)" +"(if(interned-literal? v_161)" "(let-values()(void))" -"(if(hash-ref seen_22 v_160 #f)" +"(if(hash-ref seen_22 v_161 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_160 #t)" -"(if(scope-with-bindings? v_160)" +"(hash-set! seen_22 v_161 #t)" +"(if(scope-with-bindings? v_161)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_160))" -"((reach-scopes-ref v_160) v_160 loop_86)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_160 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_161))" +"((reach-scopes-ref v_161) v_161 loop_86)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_161 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -20992,9 +20984,9 @@ static const char *startup_source = " for-loop_151)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_160)" -"((scope-with-bindings-ref v_160)" -" v_160" +"(hash-remove! scope-triggers_0 v_161)" +"((scope-with-bindings-ref v_161)" +" v_161" " get-reachable-scopes_4" " loop_86" "(lambda(sc-unreachable_0 b_68)" @@ -21003,15 +20995,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_51)(cons b_68 l_51))" " null)))))" -"(if(reach-scopes? v_160)" -"(let-values()((reach-scopes-ref v_160) v_160 loop_86))" -"(if(pair? v_160)" -"(let-values()(begin(loop_86(car v_160))(loop_86(cdr v_160))))" -"(if(vector? v_160)" +"(if(reach-scopes? v_161)" +"(let-values()((reach-scopes-ref v_161) v_161 loop_86))" +"(if(pair? v_161)" +"(let-values()(begin(loop_86(car v_161))(loop_86(cdr v_161))))" +"(if(vector? v_161)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_160))" +"(let-values(((vec_53) v_161))" "(begin" "(check-vector vec_53)" "(values" @@ -21046,26 +21038,26 @@ static const char *startup_source = " for-loop_152)" " 0)))" "(void)))" -"(if(box? v_160)" -"(let-values()(loop_86(unbox v_160)))" -"(if(hash? v_160)" +"(if(box? v_161)" +"(let-values()(loop_86(unbox v_161)))" +"(if(hash? v_161)" "(let-values()" "(begin" -"(let-values(((ht_97) v_160))" +"(let-values(((ht_97) v_161))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_97)))" "((letrec-values(((for-loop_153)" -"(lambda(i_128)" +"(lambda(i_125)" "(begin" " 'for-loop" -"(if i_128" -"(let-values(((k_30 v_161)" +"(if i_125" +"(let-values(((k_30 v_162)" "(hash-iterate-key+value" " ht_97" -" i_128)))" +" i_125)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21076,20 +21068,20 @@ static const char *startup_source = "(loop_86" " k_30)" "(loop_86" -" v_161)))" +" v_162)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_153" "(hash-iterate-next" " ht_97" -" i_128))" +" i_125))" "(values))))" "(values))))))" " for-loop_153)" "(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_160)" +"(if(prefab-struct-key v_161)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -21099,7 +21091,7 @@ static const char *startup_source = "(lambda(x_52)(vector? x_52))" "(lambda(x_53)" "(unsafe-vector-length x_53))" -"(struct->vector v_160)" +"(struct->vector v_161)" " 1" " #f" " 1)))" @@ -21132,11 +21124,11 @@ static const char *startup_source = " for-loop_154)" " start*_4)))" "(void)))" -"(if(srcloc? v_160)" -"(let-values()(loop_86(srcloc-source v_160)))" +"(if(srcloc? v_161)" +"(let-values()(loop_86(srcloc-source v_161)))" "(let-values()(void))))))))))))))))))" " loop_86)" -" v_159)" +" v_160)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21774,12 +21766,12 @@ 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_114)" -"(lambda(syms_14 i_129)" +"((letrec-values(((for-loop_115)" +"(lambda(syms_14 i_126)" "(begin" " 'for-loop" -"(if i_129" -"(let-values(((sc_31)(unsafe-immutable-hash-iterate-key ht_98 i_129)))" +"(if i_126" +"(let-values(((sc_31)(unsafe-immutable-hash-iterate-key ht_98 i_126)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21793,10 +21785,10 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_114 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_129))" +"(for-loop_115 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_126))" " syms_15)))" " syms_14)))))" -" for-loop_114)" +" for-loop_115)" "(seteq)" "(unsafe-immutable-hash-iterate-first ht_98))))))))" "(define-values" @@ -22114,14 +22106,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_99)))" "((letrec-values(((for-loop_155)" -"(lambda(result_70 i_130)" +"(lambda(result_70 i_127)" "(begin" " 'for-loop" -"(if i_130" +"(if i_127" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" " ht_99" -" i_130)))" +" i_127)))" "(let-values(((result_71)" "(let-values(((result_72)" " result_70))" @@ -22251,7 +22243,7 @@ static const char *startup_source = " #f)" "(for-loop_155" " result_71" -"(hash-iterate-next ht_99 i_130))" +"(hash-iterate-next ht_99 i_127))" " result_71)))" " result_70)))))" " for-loop_155)" @@ -22294,12 +22286,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_100)))" "((letrec-values(((for-loop_156)" -"(lambda(i_131)" +"(lambda(i_128)" "(begin" " 'for-loop" -"(if i_131" +"(if i_128" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_100 i_131)))" +"(hash-iterate-key+value ht_100 i_128)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -22315,15 +22307,15 @@ static const char *startup_source = "(let-values()" "(check-in-hash ht_101)))" "((letrec-values(((for-loop_157)" -"(lambda(i_132)" +"(lambda(i_129)" "(begin" " 'for-loop" -"(if i_132" +"(if i_129" "(let-values(((phase_55" " at-phase_8)" "(hash-iterate-key+value" " ht_101" -" i_132)))" +" i_129)))" "(let-values((()" "(let-values(((ht_102)" " at-phase_8))" @@ -22335,15 +22327,15 @@ static const char *startup_source = "(check-in-hash" " ht_102)))" "((letrec-values(((for-loop_158)" -"(lambda(i_120)" +"(lambda(i_117)" "(begin" " 'for-loop" -"(if i_120" +"(if i_117" "(let-values(((sym_38" " reqds_0)" "(hash-iterate-key+value" " ht_102" -" i_120)))" +" i_117)))" "(let-values((()" "(let-values(((lst_122)" " reqds_0))" @@ -22436,7 +22428,7 @@ static const char *startup_source = "(for-loop_158" "(hash-iterate-next" " ht_102" -" i_120))" +" i_117))" "(values))))" "(values))))))" " for-loop_158)" @@ -22447,7 +22439,7 @@ static const char *startup_source = "(for-loop_157" "(hash-iterate-next" " ht_101" -" i_132))" +" i_129))" "(values))))" "(values))))))" " for-loop_157)" @@ -22457,7 +22449,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_156(hash-iterate-next ht_100 i_131))" +"(for-loop_156(hash-iterate-next ht_100 i_128))" "(values))))" "(values))))))" " for-loop_156)" @@ -22516,13 +22508,13 @@ static const char *startup_source = "(begin" "(void)" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_106 lst_125)" +"(lambda(fold-var_107 lst_125)" "(begin" " 'for-loop" "(if(not(null? lst_125))" "(let-values(((r_36)(if(pair? lst_125)(car lst_125) lst_125))" "((rest_63)(if(pair? lst_125)(cdr lst_125) null)))" -"(let-values(((fold-var_107)" +"(let-values(((fold-var_108)" "(let-values(((r_37)" "(normalize-required" " r_36" @@ -22532,13 +22524,13 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_161)" -"(lambda(fold-var_108)" +"(lambda(fold-var_109)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_109)" "(let-values(((fold-var_110)" -" fold-var_108))" +"(let-values(((fold-var_111)" +" fold-var_109))" "(if(if(eqv?" " phase_57" "(required-phase" @@ -22549,22 +22541,22 @@ static const char *startup_source = " phase_57" " phase_57)" " #f)" -" fold-var_110" -"(let-values(((fold-var_111)" -" fold-var_110))" +" fold-var_111" "(let-values(((fold-var_112)" +" fold-var_111))" +"(let-values(((fold-var_113)" "(let-values()" "(cons" "(let-values()" " r_37)" -" fold-var_111))))" +" fold-var_112))))" "(values" -" fold-var_112)))))))" -" fold-var_109))))))" +" fold-var_113)))))))" +" fold-var_110))))))" " for-loop_161)" -" fold-var_106)))))" -"(if(not #f)(for-loop_160 fold-var_107 rest_63) fold-var_107)))" -" fold-var_106)))))" +" fold-var_107)))))" +"(if(not #f)(for-loop_160 fold-var_108 rest_63) fold-var_108)))" +" fold-var_107)))))" " for-loop_160)" " null" " lst_124)))))))" @@ -22896,17 +22888,17 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_103)))" "((letrec-values(((for-loop_164)" -"(lambda(fold-var_113 i_133)" +"(lambda(fold-var_114 i_130)" "(begin" " 'for-loop" -"(if i_133" -"(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_103 i_133)))" -"(let-values(((fold-var_114)" +"(if i_130" +"(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_103 i_130)))" +"(let-values(((fold-var_115)" "(let-values(((lst_130) reqds_3))" "(begin" "(void)" "((letrec-values(((for-loop_165)" -"(lambda(fold-var_115 lst_131)" +"(lambda(fold-var_116 lst_131)" "(begin" " 'for-loop" "(if(not(null? lst_131))" @@ -22918,10 +22910,10 @@ static const char *startup_source = "(if(pair? lst_131)" "(cdr lst_131)" " null)))" -"(let-values(((fold-var_116)" "(let-values(((fold-var_117)" -" fold-var_115))" "(let-values(((fold-var_118)" +" fold-var_116))" +"(let-values(((fold-var_119)" "(let-values()" "(cons" "(let-values()" @@ -22930,22 +22922,22 @@ static const char *startup_source = " mpi_35" " phase_61" " sym_43))" -" fold-var_117))))" +" fold-var_118))))" "(values" -" fold-var_118)))))" +" fold-var_119)))))" "(if(not #f)" "(for-loop_165" -" fold-var_116" +" fold-var_117" " rest_66)" -" fold-var_116)))" -" fold-var_115)))))" +" fold-var_117)))" +" fold-var_116)))))" " for-loop_165)" -" fold-var_113" +" fold-var_114" " lst_130)))))" "(if(not #f)" -"(for-loop_164 fold-var_114(hash-iterate-next ht_103 i_133))" -" fold-var_114)))" -" fold-var_113)))))" +"(for-loop_164 fold-var_115(hash-iterate-next ht_103 i_130))" +" fold-var_115)))" +" fold-var_114)))))" " for-loop_164)" " null" "(hash-iterate-first ht_103)))))" @@ -22977,10 +22969,10 @@ static const char *startup_source = "(if(pair? lst_61)" "(let-values(((mod-name_13)(unsafe-car lst_61))" "((rest_67)(unsafe-cdr lst_61)))" -"(let-values(((fold-var_119)" -"(let-values(((fold-var_120) fold-var_46))" +"(let-values(((fold-var_120)" +"(let-values(((fold-var_121) fold-var_46))" "(if(eq? mod-name_13 self_9)" -" fold-var_120" +" fold-var_121" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -23010,7 +23002,7 @@ static const char *startup_source = "(check-list" " lst_63)))" "((letrec-values(((for-loop_86)" -"(lambda(fold-var_121" +"(lambda(fold-var_122" " lst_133)" "(begin" " 'for-loop" @@ -23022,7 +23014,7 @@ static const char *startup_source = "((rest_68)" "(unsafe-cdr" " lst_133)))" -"(let-values(((fold-var_122)" +"(let-values(((fold-var_123)" "(let-values(((ht_104)" "(hash-ref" " phase-to-requireds_0" @@ -23038,23 +23030,23 @@ static const char *startup_source = "(check-in-hash" " ht_104)))" "((letrec-values(((for-loop_168)" -"(lambda(fold-var_123" -" i_134)" +"(lambda(fold-var_124" +" i_131)" "(begin" " 'for-loop" -"(if i_134" +"(if i_131" "(let-values(((sym_44" " reqds_4)" "(hash-iterate-key+value" " ht_104" -" i_134)))" -"(let-values(((fold-var_124)" +" i_131)))" +"(let-values(((fold-var_125)" "(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" "((letrec-values(((for-loop_169)" -"(lambda(fold-var_125" +"(lambda(fold-var_126" " lst_135)" "(begin" " 'for-loop" @@ -23073,10 +23065,10 @@ static const char *startup_source = "(cdr" " lst_135)" " null)))" -"(let-values(((fold-var_126)" "(let-values(((fold-var_127)" -" fold-var_125))" "(let-values(((fold-var_128)" +" fold-var_126))" +"(let-values(((fold-var_129)" "(let-values()" "(cons" "(let-values()" @@ -23085,46 +23077,46 @@ static const char *startup_source = " mod-name_13" " phase_63" " sym_44))" -" fold-var_127))))" +" fold-var_128))))" "(values" -" fold-var_128)))))" +" fold-var_129)))))" "(if(not" " #f)" "(for-loop_169" -" fold-var_126" +" fold-var_127" " rest_69)" -" fold-var_126)))" -" fold-var_125)))))" +" fold-var_127)))" +" fold-var_126)))))" " for-loop_169)" -" fold-var_123" +" fold-var_124" " lst_134)))))" "(if(not" " #f)" "(for-loop_168" -" fold-var_124" +" fold-var_125" "(hash-iterate-next" " ht_104" -" i_134))" -" fold-var_124)))" -" fold-var_123)))))" +" i_131))" +" fold-var_125)))" +" fold-var_124)))))" " for-loop_168)" -" fold-var_121" +" fold-var_122" "(hash-iterate-first" " ht_104))))))" "(if(not" " #f)" "(for-loop_86" -" fold-var_122" +" fold-var_123" " rest_68)" -" fold-var_122)))" -" fold-var_121)))))" +" fold-var_123)))" +" fold-var_122)))))" " for-loop_86)" " fold-var_49" " lst_63)))))" " fold-var_50))))))" " for-loop_167)" -" fold-var_120)))))))" -"(if(not #f)(for-loop_166 fold-var_119 rest_67) fold-var_119)))" +" fold-var_121)))))))" +"(if(not #f)(for-loop_166 fold-var_120 rest_67) fold-var_120)))" " fold-var_46)))))" " for-loop_166)" " null" @@ -23220,15 +23212,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_136)))" "((letrec-values(((for-loop_170)" -"(lambda(fold-var_129 lst_137)" +"(lambda(fold-var_130 lst_137)" "(begin" " 'for-loop" "(if(pair? lst_137)" "(let-values(((phase_65)(unsafe-car lst_137))" "((rest_70)(unsafe-cdr lst_137)))" -"(let-values(((fold-var_130)" -"(let-values(((fold-var_131) fold-var_129))" -"(let-values(((fold-var_132)" +"(let-values(((fold-var_131)" +"(let-values(((fold-var_132) fold-var_130))" +"(let-values(((fold-var_133)" "(let-values()" "(cons" "(let-values()" @@ -23248,7 +23240,7 @@ static const char *startup_source = "(check-list" " lst_138)))" "((letrec-values(((for-loop_171)" -"(lambda(fold-var_133" +"(lambda(fold-var_134" " lst_139)" "(begin" " 'for-loop" @@ -23260,16 +23252,16 @@ static const char *startup_source = "((rest_71)" "(unsafe-cdr" " lst_139)))" -"(let-values(((fold-var_134)" "(let-values(((fold-var_135)" -" fold-var_133))" +"(let-values(((fold-var_136)" +" fold-var_134))" "(if(eq?" " mpi_36" " old-self_0)" -" fold-var_135" -"(let-values(((fold-var_136)" -" fold-var_135))" +" fold-var_136" "(let-values(((fold-var_137)" +" fold-var_136))" +"(let-values(((fold-var_138)" "(let-values()" "(cons" "(let-values()" @@ -23277,25 +23269,25 @@ static const char *startup_source = " mpi_36" " old-self_0" " new-self_1))" -" fold-var_136))))" +" fold-var_137))))" "(values" -" fold-var_137)))))))" +" fold-var_138)))))))" "(if(not" " #f)" "(for-loop_171" -" fold-var_134" +" fold-var_135" " rest_71)" -" fold-var_134)))" -" fold-var_133)))))" +" fold-var_135)))" +" fold-var_134)))))" " for-loop_171)" " null" " lst_138))))))" -" fold-var_131))))" -"(values fold-var_132)))))" +" fold-var_132))))" +"(values fold-var_133)))))" "(if(not #f)" -"(for-loop_170 fold-var_130 rest_70)" -" fold-var_130)))" -" fold-var_129)))))" +"(for-loop_170 fold-var_131 rest_70)" +" fold-var_131)))" +" fold-var_130)))))" " for-loop_170)" " null" " lst_136))))))))))" @@ -23316,14 +23308,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_105)))" "((letrec-values(((for-loop_91)" -"(lambda(table_132 i_135)" +"(lambda(table_131 i_132)" "(begin" " 'for-loop" -"(if i_135" -"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_105 i_135)))" -"(let-values(((table_133)" -"(let-values(((table_134) table_132))" -"(let-values(((table_135)" +"(if i_132" +"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_105 i_132)))" +"(let-values(((table_132)" +"(let-values(((table_133) table_131))" +"(let-values(((table_134)" "(let-values()" "(let-values(((key_53 val_45)" "(let-values()" @@ -23404,10 +23396,10 @@ static const char *startup_source = " '#hasheq()" "(hash-iterate-first" " ht_71))))))))" -"(hash-set table_134 key_53 val_45)))))" -"(values table_135)))))" -"(if(not #f)(for-loop_91 table_133(hash-iterate-next ht_105 i_135)) table_133)))" -" table_132)))))" +"(hash-set table_133 key_53 val_45)))))" +"(values table_134)))))" +"(if(not #f)(for-loop_91 table_132(hash-iterate-next ht_105 i_132)) table_132)))" +" table_131)))))" " for-loop_91)" " '#hasheqv()" "(hash-iterate-first ht_105)))))))" @@ -25116,24 +25108,24 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_148)))" "((letrec-values(((for-loop_176)" -"(lambda(table_136 lst_149)" +"(lambda(table_135 lst_149)" "(begin" " 'for-loop" "(if(pair? lst_149)" "(let-values(((id_44)(unsafe-car lst_149))((rest_76)(unsafe-cdr lst_149)))" -"(let-values(((table_137)" -"(let-values(((table_138) table_136))" -"(let-values(((table_139)" +"(let-values(((table_136)" +"(let-values(((table_137) table_135))" +"(let-values(((table_138)" "(let-values()" "(let-values(((key_54 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_138 key_54 val_46)))))" -"(values table_139)))))" -"(if(not #f)(for-loop_176 table_137 rest_76) table_137)))" -" table_136)))))" +"(hash-set table_137 key_54 val_46)))))" +"(values table_138)))))" +"(if(not #f)(for-loop_176 table_136 rest_76) table_136)))" +" table_135)))))" " for-loop_176)" " '#hash()" " lst_148))))))" @@ -25746,14 +25738,14 @@ static const char *startup_source = "(check-in-immutable-hash-keys" " ht_106)))" "((letrec-values(((for-loop_178)" -"(lambda(i_136)" +"(lambda(i_133)" "(begin" " 'for-loop" -"(if i_136" +"(if i_133" "(let-values(((sym_48)" "(unsafe-immutable-hash-iterate-key" " ht_106" -" i_136)))" +" i_133)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25778,7 +25770,7 @@ static const char *startup_source = "(for-loop_178" "(unsafe-immutable-hash-iterate-next" " ht_106" -" i_136))" +" i_133))" "(values))))" "(values))))))" " for-loop_178)" @@ -25831,14 +25823,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_107)))" "((letrec-values(((for-loop_179)" -"(lambda(i_137)" +"(lambda(i_134)" "(begin" " 'for-loop" -"(if i_137" +"(if i_134" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" " ht_107" -" i_137)))" +" i_134)))" "(let-values((()" "(let-values()" "(if(let-values(((or-part_200)" @@ -26025,7 +26017,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_179" -"(hash-iterate-next ht_107 i_137))" +"(hash-iterate-next ht_107 i_134))" "(values))))" "(values))))))" " for-loop_179)" @@ -26934,14 +26926,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" "((letrec-values(((for-loop_183)" -"(lambda(fold-var_138 lst_108)" +"(lambda(fold-var_139 lst_108)" "(begin" " 'for-loop" "(if(pair? lst_108)" "(let-values(((mu_3)(unsafe-car lst_108))((rest_80)(unsafe-cdr lst_108)))" -"(let-values(((fold-var_139)" -"(let-values(((fold-var_140) fold-var_138))" -"(let-values(((fold-var_141)" +"(let-values(((fold-var_140)" +"(let-values(((fold-var_141) fold-var_139))" +"(let-values(((fold-var_142)" "(let-values()" "(cons" "(let-values()" @@ -26975,7 +26967,7 @@ static const char *startup_source = " vu_1))" "(let-values(((fold-var_42)" " fold-var_41))" -"(let-values(((fold-var_142)" +"(let-values(((fold-var_143)" "(let-values()" "(cons" "(let-values()" @@ -26996,7 +26988,7 @@ static const char *startup_source = " var-sym_2)))))" " fold-var_42))))" "(values" -" fold-var_142)))" +" fold-var_143)))" " fold-var_41))))" "(if(not #f)" "(for-loop_74" @@ -27007,10 +26999,10 @@ static const char *startup_source = " for-loop_74)" " null" " lst_52)))))" -" fold-var_140))))" -"(values fold-var_141)))))" -"(if(not #f)(for-loop_183 fold-var_139 rest_80) fold-var_139)))" -" fold-var_138)))))" +" fold-var_141))))" +"(values fold-var_142)))))" +"(if(not #f)(for-loop_183 fold-var_140 rest_80) fold-var_140)))" +" fold-var_139)))))" " for-loop_183)" " null" " lst_33))))" @@ -27019,14 +27011,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_143 lst_157)" +"(lambda(fold-var_144 lst_157)" "(begin" " 'for-loop" "(if(pair? lst_157)" "(let-values(((mu_4)(unsafe-car lst_157))((rest_81)(unsafe-cdr lst_157)))" -"(let-values(((fold-var_144)" -"(let-values(((fold-var_145) fold-var_143))" -"(let-values(((fold-var_146)" +"(let-values(((fold-var_145)" +"(let-values(((fold-var_146) fold-var_144))" +"(let-values(((fold-var_147)" "(let-values()" "(cons" "(let-values()" @@ -27041,7 +27033,7 @@ static const char *startup_source = "(let-values()" "(check-list lst_55)))" "((letrec-values(((for-loop_185)" -"(lambda(table_140" +"(lambda(table_139" " lst_113)" "(begin" " 'for-loop" @@ -27053,9 +27045,9 @@ static const char *startup_source = "((rest_56)" "(unsafe-cdr" " lst_113)))" +"(let-values(((table_140)" "(let-values(((table_141)" -"(let-values(((table_142)" -" table_140))" +" table_139))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -27082,21 +27074,21 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_187)" -"(lambda(table_143)" +"(lambda(table_142)" "(begin" " 'for-loop" "(let-values()" "(let-values(((table_33)" -"(let-values(((table_144)" -" table_143))" +"(let-values(((table_143)" +" table_142))" "(if(let-values(((or-part_207)" " extra-inspectors_1))" "(if or-part_207" " or-part_207" " cross-linklet-inlining?_0))" +"(let-values(((table_144)" +" table_143))" "(let-values(((table_145)" -" table_144))" -"(let-values(((table_146)" "(let-values()" "(let-values(((key_56" " val_48)" @@ -27105,36 +27097,36 @@ static const char *startup_source = " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_145" +" table_144" " key_56" " val_48)))))" "(values" -" table_146)))" -" table_144))))" +" table_145)))" +" table_143))))" " table_33))))))" " for-loop_187)" " table_31)))))" " table_32))))))" " for-loop_186)" -" table_142)))" -" table_142))))" +" table_141)))" +" table_141))))" "(if(not" " #f)" "(for-loop_185" -" table_141" +" table_140" " rest_56)" -" table_141)))" -" table_140)))))" +" table_140)))" +" table_139)))))" " for-loop_185)" " '#hash()" " lst_55)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_145))))" -"(values fold-var_146)))))" -"(if(not #f)(for-loop_184 fold-var_144 rest_81) fold-var_144)))" -" fold-var_143)))))" +" fold-var_146))))" +"(values fold-var_147)))))" +"(if(not #f)(for-loop_184 fold-var_145 rest_81) fold-var_145)))" +" fold-var_144)))))" " for-loop_184)" " null" " lst_156))))" @@ -27143,13 +27135,13 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" "((letrec-values(((for-loop_188)" -"(lambda(fold-var_147 lst_159)" +"(lambda(fold-var_148 lst_159)" "(begin" " 'for-loop" "(if(pair? lst_159)" "(let-values(((vu_3)(unsafe-car lst_159))((rest_82)(unsafe-cdr lst_159)))" -"(let-values(((fold-var_148)" -"(let-values(((fold-var_149) fold-var_147))" +"(let-values(((fold-var_149)" +"(let-values(((fold-var_150) fold-var_148))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" @@ -27158,8 +27150,8 @@ static const char *startup_source = "(if or-part_208" " or-part_208" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_150) fold-var_149))" -"(let-values(((fold-var_151)" +"(let-values(((fold-var_151) fold-var_150))" +"(let-values(((fold-var_152)" "(let-values()" "(cons" "(let-values()" @@ -27173,11 +27165,11 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" +" fold-var_151))))" +"(values fold-var_152)))" " fold-var_150))))" -"(values fold-var_151)))" -" fold-var_149))))" -"(if(not #f)(for-loop_188 fold-var_148 rest_82) fold-var_148)))" -" fold-var_147)))))" +"(if(not #f)(for-loop_188 fold-var_149 rest_82) fold-var_149)))" +" fold-var_148)))))" " for-loop_188)" " null" " lst_158)))))))))" @@ -27324,7 +27316,7 @@ static const char *startup_source = "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_162)(syntax-property$2 e_32 k_32 v_162))))" +"((e_32 k_32 v_163)(syntax-property$2 e_32 k_32 v_163))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_109)" @@ -27402,7 +27394,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" @@ -27428,10 +27420,10 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_105 fold-var_70 rest_41)" +"(for-loop_106 fold-var_70 rest_41)" " fold-var_70)))" " fold-var_69)))))" -" for-loop_105)" +" for-loop_106)" " null" " lst_86))))))" " name_40" @@ -27451,7 +27443,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_88)))" "((letrec-values(((for-loop_189)" -"(lambda(fold-var_152 lst_160)" +"(lambda(fold-var_153 lst_160)" "(begin" " 'for-loop" "(if(pair? lst_160)" @@ -27460,8 +27452,8 @@ static const char *startup_source = "(unsafe-cdr lst_160)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" -" fold-var_152))" -"(let-values(((fold-var_153)" +" fold-var_153))" +"(let-values(((fold-var_154)" "(let-values()" "(cons" "(let-values()" @@ -27471,11 +27463,11 @@ static const char *startup_source = " #t))" " fold-var_34))))" "(values" -" fold-var_153)))))" +" fold-var_154)))))" "(if(not #f)" "(for-loop_189 fold-var_33 rest_83)" " fold-var_33)))" -" fold-var_152)))))" +" fold-var_153)))))" " for-loop_189)" " null" " lst_88))))))))" @@ -27522,7 +27514,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_190)" -"(lambda(fold-var_154 lst_79)" +"(lambda(fold-var_155 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" @@ -27530,10 +27522,10 @@ static const char *startup_source = "(unsafe-car lst_79))" "((rest_84)" "(unsafe-cdr lst_79)))" -"(let-values(((fold-var_155)" -"(let-values(((fold-var_93)" -" fold-var_154))" +"(let-values(((fold-var_156)" "(let-values(((fold-var_94)" +" fold-var_155))" +"(let-values(((fold-var_95)" "(let-values()" "(cons" "(let-values()" @@ -27541,15 +27533,15 @@ static const char *startup_source = " e_33" " #f" " #f))" -" fold-var_93))))" +" fold-var_94))))" "(values" -" fold-var_94)))))" +" fold-var_95)))))" "(if(not #f)" "(for-loop_190" -" fold-var_155" +" fold-var_156" " rest_84)" -" fold-var_155)))" -" fold-var_154)))))" +" fold-var_156)))" +" fold-var_155)))))" " for-loop_190)" " null" " lst_23)))))))" @@ -27662,30 +27654,30 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_191)" -"(lambda(fold-var_156 lst_162 pos_91)" +"(lambda(fold-var_157 lst_162 pos_91)" "(begin" " 'for-loop" "(if(if(pair? lst_162) #t #f)" "(let-values(((e_4)(unsafe-car lst_162))" "((rest_85)(unsafe-cdr lst_162))" -"((i_138) pos_91))" -"(let-values(((fold-var_157)" -"(let-values(((fold-var_158) fold-var_156))" -"(let-values(((fold-var_159)" +"((i_135) pos_91))" +"(let-values(((fold-var_158)" +"(let-values(((fold-var_159) fold-var_157))" +"(let-values(((fold-var_160)" "(let-values()" "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_138 used-pos_0)))" +"(= i_135 used-pos_0)))" "(compile$2" " e_4" " cctx_7" "(if used?_0 name_43 #f)" "(if used?_0 result-used?_3 #f))))" -" fold-var_158))))" -"(values fold-var_159)))))" -"(if(not #f)(for-loop_191 fold-var_157 rest_85(+ pos_91 1)) fold-var_157)))" -" fold-var_156)))))" +" fold-var_159))))" +"(values fold-var_160)))))" +"(if(not #f)(for-loop_191 fold-var_158 rest_85(+ pos_91 1)) fold-var_158)))" +" fold-var_157)))))" " for-loop_191)" " null" " lst_161" @@ -27695,14 +27687,14 @@ static const char *startup_source = "(lambda(s_305 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_163)" +"(lambda(v_164)" "(begin" " 'simplify-name" -"(if(pair? v_163)" +"(if(pair? v_164)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_163))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_163))))(if(eq? n1_0 n2_0) n1_0 v_163))))" -"(let-values() v_163))))))" +"(let-values(((n1_0)(simplify-name_0(car v_164))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_164))))(if(eq? n1_0 n2_0) n1_0 v_164))))" +"(let-values() v_164))))))" "(let-values(((name_44)" "(let-values(((or-part_209)" "(let-values(((v_54)" @@ -27753,7 +27745,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_192)" -"(lambda(fold-var_160 lst_165 lst_166)" +"(lambda(fold-var_161 lst_165 lst_166)" "(begin" " 'for-loop" "(if(if(pair? lst_165)(pair? lst_166) #f)" @@ -27761,9 +27753,9 @@ static const char *startup_source = "((rest_86)(unsafe-cdr lst_165))" "((ids_4)(unsafe-car lst_166))" "((rest_87)(unsafe-cdr lst_166)))" -"(let-values(((fold-var_161)" -"(let-values(((fold-var_162) fold-var_160))" -"(let-values(((fold-var_163)" +"(let-values(((fold-var_162)" +"(let-values(((fold-var_163) fold-var_161))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" @@ -27789,7 +27781,7 @@ static const char *startup_source = "(check-list" " lst_168)))" "((letrec-values(((for-loop_78)" -"(lambda(fold-var_164" +"(lambda(fold-var_165" " lst_169" " lst_170)" "(begin" @@ -27813,8 +27805,8 @@ static const char *startup_source = " lst_170)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" -" fold-var_164))" -"(let-values(((fold-var_96)" +" fold-var_165))" +"(let-values(((fold-var_97)" "(let-values()" "(cons" "(let-values()" @@ -27823,7 +27815,7 @@ static const char *startup_source = " id_46))" " fold-var_3))))" "(values" -" fold-var_96)))))" +" fold-var_97)))))" "(if(not" " #f)" "(for-loop_78" @@ -27831,7 +27823,7 @@ static const char *startup_source = " rest_88" " rest_89)" " fold-var_2)))" -" fold-var_164)))))" +" fold-var_165)))))" " for-loop_78)" " null" " lst_167" @@ -27843,12 +27835,12 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_162))))" -"(values fold-var_163)))))" +" fold-var_163))))" +"(values fold-var_164)))))" "(if(not #f)" -"(for-loop_192 fold-var_161 rest_86 rest_87)" -" fold-var_161)))" -" fold-var_160)))))" +"(for-loop_192 fold-var_162 rest_86 rest_87)" +" fold-var_162)))" +" fold-var_161)))))" " for-loop_192)" " null" " lst_163" @@ -27976,11 +27968,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_112)))" "((letrec-values(((for-loop_95)" -"(lambda(result_77 i_139)" +"(lambda(result_77 i_136)" "(begin" " 'for-loop" -"(if i_139" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_139)))" +"(if i_136" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_136)))" "(let-values(((result_78)" "(let-values()" "(let-values(((result_79)" @@ -27991,7 +27983,7 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_79)))))" "(if(if(not((lambda x_56(not result_78)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_78(unsafe-immutable-hash-iterate-next ht_112 i_139))" +"(for-loop_95 result_78(unsafe-immutable-hash-iterate-next ht_112 i_136))" " result_78)))" " result_77)))))" " for-loop_95)" @@ -28060,7 +28052,7 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_108)" "(lambda(fold-var_11 lst_91 lst_171)" "(begin" " 'for-loop" @@ -28069,9 +28061,9 @@ static const char *startup_source = "((rest_90)(unsafe-cdr lst_91))" "((extra-inspectorss_1)(unsafe-car lst_171))" "((rest_37)(unsafe-cdr lst_171)))" -"(let-values(((fold-var_165)" -"(let-values(((fold-var_166) fold-var_11))" -"(let-values(((fold-var_167)" +"(let-values(((fold-var_166)" +"(let-values(((fold-var_167) fold-var_11))" +"(let-values(((fold-var_168)" "(let-values()" "(cons" "(let-values()" @@ -28080,11 +28072,11 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_166))))" -"(values fold-var_167)))))" -"(if(not #f)(for-loop_107 fold-var_165 rest_90 rest_37) fold-var_165)))" +" fold-var_167))))" +"(values fold-var_168)))))" +"(if(not #f)(for-loop_108 fold-var_166 rest_90 rest_37) fold-var_166)))" " fold-var_11)))))" -" for-loop_107)" +" for-loop_108)" " null" " lst_104" " lst_90)))))" @@ -28094,14 +28086,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_193)" -"(lambda(fold-var_168 lst_17)" +"(lambda(fold-var_169 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_91)(unsafe-cdr lst_17)))" "(let-values(((fold-var_74)" -"(let-values(((fold-var_169) fold-var_168))" -"(let-values(((fold-var_64)" +"(let-values(((fold-var_64) fold-var_169))" +"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -28110,10 +28102,10 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_169))))" -"(values fold-var_64)))))" +" fold-var_64))))" +"(values fold-var_170)))))" "(if(not #f)(for-loop_193 fold-var_74 rest_91) fold-var_74)))" -" fold-var_168)))))" +" fold-var_169)))))" " for-loop_193)" " null" " lst_92)))))))))" @@ -28125,14 +28117,14 @@ static const char *startup_source = "(let-values(((lst_172) mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_65 lst_173)" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_76 lst_173)" "(begin" " 'for-loop" "(if(pair? lst_173)" "(let-values(((mu*_0)(unsafe-car lst_173))((rest_92)(unsafe-cdr lst_173)))" "(let-values(((fold-var_17)" -"(let-values(((fold-var_66) fold-var_65))" +"(let-values(((fold-var_66) fold-var_76))" "(let-values(((fold-var_67)" "(let-values()" "(cons" @@ -28142,9 +28134,9 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_66))))" "(values fold-var_67)))))" -"(if(not #f)(for-loop_103 fold-var_17 rest_92) fold-var_17)))" -" fold-var_65)))))" -" for-loop_103)" +"(if(not #f)(for-loop_194 fold-var_17 rest_92) fold-var_17)))" +" fold-var_76)))))" +" for-loop_194)" " null" " lst_172)))))))" "(define-values" @@ -28157,24 +28149,24 @@ static const char *startup_source = "(let-values(((lst_174) mu*s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_195)" "(lambda(fold-var_79 lst_96)" "(begin" " 'for-loop" "(if(pair? lst_96)" "(let-values(((mu*_1)(unsafe-car lst_96))((rest_93)(unsafe-cdr lst_96)))" -"(let-values(((fold-var_170)" -"(let-values(((fold-var_4) fold-var_79))" "(let-values(((fold-var_171)" +"(let-values(((fold-var_4) fold-var_79))" +"(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_171)))))" -"(if(not #f)(for-loop_194 fold-var_170 rest_93) fold-var_170)))" +"(values fold-var_68)))))" +"(if(not #f)(for-loop_195 fold-var_171 rest_93) fold-var_171)))" " fold-var_79)))))" -" for-loop_194)" +" for-loop_195)" " null" " lst_174)))))" "(let-values()" @@ -28279,16 +28271,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_195)" -"(lambda(table_147 lst_180)" +"((letrec-values(((for-loop_196)" +"(lambda(table_146 lst_180)" "(begin" " 'for-loop" "(if(pair? lst_180)" "(let-values(((import_1)(unsafe-car lst_180))" "((rest_97)(unsafe-cdr lst_180)))" -"(let-values(((table_148)" -"(let-values(((table_149) table_147))" -"(let-values(((table_150)" +"(let-values(((table_147)" +"(let-values(((table_148) table_146))" +"(let-values(((table_149)" "(let-values()" "(let-values(((key_57" " val_50)" @@ -28323,13 +28315,13 @@ static const char *startup_source = " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_149" +" table_148" " key_57" " val_50)))))" -"(values table_150)))))" -"(if(not #f)(for-loop_195 table_148 rest_97) table_148)))" -" table_147)))))" -" for-loop_195)" +"(values table_149)))))" +"(if(not #f)(for-loop_196 table_147 rest_97) table_147)))" +" table_146)))))" +" for-loop_196)" " '#hash()" " lst_179))))" "(let-values()" @@ -28338,7 +28330,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_181)))" -"((letrec-values(((for-loop_196)" +"((letrec-values(((for-loop_197)" "(lambda(extra-inspectorss_8 lst_164)" "(begin" " 'for-loop" @@ -28361,10 +28353,10 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_196 extra-inspectorss_9 rest_98)" +"(for-loop_197 extra-inspectorss_9 rest_98)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_196)" +" for-loop_197)" "(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))" " lst_181)))))))" "(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))" @@ -28380,13 +28372,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_113)))" -"((letrec-values(((for-loop_197)" -"(lambda(new-extra-inspectorss_2 i_140)" +"((letrec-values(((for-loop_198)" +"(lambda(new-extra-inspectorss_2 i_137)" "(begin" " 'for-loop" -"(if i_140" +"(if i_137" "(let-values(((sym_57 extra-inspectors_4)" -"(hash-iterate-key+value ht_113 i_140)))" +"(hash-iterate-key+value ht_113 i_137)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28403,12 +28395,12 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_197" +"(for-loop_198" " new-extra-inspectorss_3" -"(hash-iterate-next ht_113 i_140))" +"(hash-iterate-next ht_113 i_137))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_197)" +" for-loop_198)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28522,7 +28514,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_113)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -28548,11 +28540,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_112" +"(for-loop_113" " rest_99)" "(values))))" "(values))))))" -" for-loop_112)" +" for-loop_113)" " lst_100)))" "(values))))" "(let-values()" @@ -28577,7 +28569,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_182)))" -"((letrec-values(((for-loop_198)" +"((letrec-values(((for-loop_199)" "(lambda(lst_183)" "(begin" " 'for-loop" @@ -28673,11 +28665,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_198" +"(for-loop_199" " rest_100)" "(values))))" "(values))))))" -" for-loop_198)" +" for-loop_199)" " lst_182)))" "(void))))))" " loop!_0)" @@ -28721,7 +28713,7 @@ static const char *startup_source = "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_199)" +"((letrec-values(((for-loop_200)" "(lambda(lst_187" " pos_93)" "(begin" @@ -28736,7 +28728,7 @@ static const char *startup_source = "((rest_102)" "(unsafe-cdr" " lst_187))" -"((i_110)" +"((i_107)" " pos_93))" "(let-values((()" "(let-values()" @@ -28780,7 +28772,7 @@ static const char *startup_source = "((rest_103)" "(unsafe-cdr" " lst_189)))" -"(let-values(((fold-var_163)" +"(let-values(((fold-var_164)" "(let-values(((fold-var_176)" " fold-var_175))" "(let-values(((fold-var_177)" @@ -28797,9 +28789,9 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_121" -" fold-var_163" +" fold-var_164" " rest_103)" -" fold-var_163)))" +" fold-var_164)))" " fold-var_175)))))" " for-loop_121)" " null" @@ -28815,7 +28807,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_190)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_178" " lst_170)" "(begin" @@ -28860,12 +28852,12 @@ static const char *startup_source = " fold-var_2)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_201" " fold-var_179" " rest_88)" " fold-var_179)))" " fold-var_178)))))" -" for-loop_200)" +" for-loop_201)" " null" " lst_190))))))))" "(let-values(((rhs_1)" @@ -28952,7 +28944,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_191)))" -"((letrec-values(((for-loop_201)" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_180" " lst_13)" "(begin" @@ -28981,12 +28973,12 @@ static const char *startup_source = " fold-var_183)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_202" " fold-var_181" " rest_104)" " fold-var_181)))" " fold-var_180)))))" -" for-loop_201)" +" for-loop_202)" " null" " lst_191)))))" " '((void))))" @@ -29045,7 +29037,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_192)))" -"((letrec-values(((for-loop_202)" +"((letrec-values(((for-loop_203)" "(lambda(fold-var_184" " lst_193)" "(begin" @@ -29079,12 +29071,12 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_203" " fold-var_185" " rest_105)" " fold-var_185)))" " fold-var_184)))))" -" for-loop_202)" +" for-loop_203)" " null" " lst_192))))))" "(let-values(((rhs_2)" @@ -29151,7 +29143,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_195)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_204)" "(lambda(fold-var_188" " lst_196" " lst_197)" @@ -29192,13 +29184,13 @@ static const char *startup_source = " fold-var_191)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_204" " fold-var_189" " rest_106" " rest_107)" " fold-var_189)))" " fold-var_188)))))" -" for-loop_203)" +" for-loop_204)" " null" " lst_194" " lst_195))))))" @@ -29355,7 +29347,7 @@ static const char *startup_source = " the-struct_53)))" " #f" "(=" -" i_110" +" i_107" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29371,14 +29363,14 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_199" +"(for-loop_200" " rest_102" "(+" " pos_93" " 1))" "(values))))" "(values))))))" -" for-loop_199)" +" for-loop_200)" " lst_186" " start_34)))" "(void))))))" @@ -29431,8 +29423,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_198)))" -"((letrec-values(((for-loop_204)" -"(lambda(table_151" +"((letrec-values(((for-loop_205)" +"(lambda(table_150" " lst_199)" "(begin" " 'for-loop" @@ -29444,10 +29436,10 @@ static const char *startup_source = "((rest_108)" "(unsafe-cdr" " lst_199)))" +"(let-values(((table_151)" "(let-values(((table_152)" +" table_150))" "(let-values(((table_153)" -" table_151))" -"(let-values(((table_154)" "(let-values()" "(let-values(((key_58" " val_51)" @@ -29474,19 +29466,19 @@ static const char *startup_source = " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_153" +" table_152" " key_58" " val_51)))))" "(values" -" table_154)))))" +" table_153)))))" "(if(not" " #f)" -"(for-loop_204" -" table_152" +"(for-loop_205" +" table_151" " rest_108)" -" table_152)))" -" table_151)))))" -" for-loop_204)" +" table_151)))" +" table_150)))))" +" for-loop_205)" " '#hash()" " lst_198)))))" "(let-values(((body-linklets+module-use*s_0)" @@ -29499,8 +29491,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_109)))" -"((letrec-values(((for-loop_205)" -"(lambda(table_155" +"((letrec-values(((for-loop_206)" +"(lambda(table_154" " lst_110)" "(begin" " 'for-loop" @@ -29512,10 +29504,10 @@ static const char *startup_source = "((rest_109)" "(unsafe-cdr" " lst_110)))" +"(let-values(((table_155)" "(let-values(((table_156)" +" table_154))" "(let-values(((table_157)" -" table_155))" -"(let-values(((table_158)" "(let-values()" "(let-values(((key_59" " val_52)" @@ -29584,7 +29576,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_200)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_207)" "(lambda(fold-var_192" " lst_201)" "(begin" @@ -29620,12 +29612,12 @@ static const char *startup_source = " fold-var_195)))))" "(if(not" " #f)" -"(for-loop_206" +"(for-loop_207" " fold-var_193" " rest_110)" " fold-var_193)))" " fold-var_192)))))" -" for-loop_206)" +" for-loop_207)" " null" " lst_200)))))" "(qq-append" @@ -29653,19 +29645,19 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_157" +" table_156" " key_59" " val_52)))))" "(values" -" table_158)))))" +" table_157)))))" "(if(not" " #f)" -"(for-loop_205" -" table_156" +"(for-loop_206" +" table_155" " rest_109)" -" table_156)))" -" table_155)))))" -" for-loop_205)" +" table_155)))" +" table_154)))))" +" for-loop_206)" " '#hasheq()" " lst_109)))))" "(let-values(((body-linklets_0)" @@ -29678,21 +29670,21 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_208)" "(lambda(table_32" -" i_141)" +" i_138)" "(begin" " 'for-loop" -"(if i_141" +"(if i_138" "(let-values(((phase_78" " l+mu*s_0)" "(hash-iterate-key+value" " ht_114" -" i_141)))" +" i_138)))" "(let-values(((table_33)" -"(let-values(((table_144)" +"(let-values(((table_143)" " table_32))" -"(let-values(((table_159)" +"(let-values(((table_158)" "(let-values()" "(let-values(((key_60" " val_53)" @@ -29702,21 +29694,21 @@ static const char *startup_source = "(car" " l+mu*s_0)))))" "(hash-set" -" table_144" +" table_143" " key_60" " val_53)))))" "(values" -" table_159)))))" +" table_158)))))" "(if(not" " #f)" -"(for-loop_207" +"(for-loop_208" " table_33" "(hash-iterate-next" " ht_114" -" i_141))" +" i_138))" " table_33)))" " table_32)))))" -" for-loop_207)" +" for-loop_208)" " '#hasheq()" "(hash-iterate-first" " ht_114))))))" @@ -29730,20 +29722,20 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_115)))" -"((letrec-values(((for-loop_208)" -"(lambda(table_160" -" i_142)" +"((letrec-values(((for-loop_209)" +"(lambda(table_159" +" i_139)" "(begin" " 'for-loop" -"(if i_142" +"(if i_139" "(let-values(((phase_79" " l+mu*s_1)" "(hash-iterate-key+value" " ht_115" -" i_142)))" -"(let-values(((table_125)" +" i_139)))" +"(let-values(((table_124)" "(let-values(((table_35)" -" table_160))" +" table_159))" "(let-values(((table_36)" "(let-values()" "(let-values(((key_47" @@ -29762,14 +29754,14 @@ static const char *startup_source = " table_36)))))" "(if(not" " #f)" -"(for-loop_208" -" table_125" +"(for-loop_209" +" table_124" "(hash-iterate-next" " ht_115" -" i_142))" -" table_125)))" -" table_160)))))" -" for-loop_208)" +" i_139))" +" table_124)))" +" table_159)))))" +" for-loop_209)" " '#hasheq()" "(hash-iterate-first" " ht_115))))))" @@ -29787,18 +29779,18 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_209)" -"(lambda(table_161" -" i_143)" +"((letrec-values(((for-loop_210)" +"(lambda(table_160" +" i_140)" "(begin" " 'for-loop" -"(if i_143" +"(if i_140" "(let-values(((phase_80" " l+mu*s_2)" "(hash-iterate-key+value" " ht_116" -" i_143)))" -"(let-values(((table_162)" +" i_140)))" +"(let-values(((table_161)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29810,17 +29802,17 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_210)" -"(lambda(table_163)" +"((letrec-values(((for-loop_211)" +"(lambda(table_162)" "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_163)" "(let-values(((table_164)" -"(let-values(((table_165)" -" table_163))" +" table_162))" "(if extra-inspectorsss_2" -"(let-values(((table_166)" -" table_165))" +"(let-values(((table_165)" +" table_164))" "(let-values(((table_39)" "(let-values()" "(let-values(((key_61" @@ -29830,25 +29822,25 @@ static const char *startup_source = " phase_80" " extra-inspectorsss_2))))" "(hash-set" -" table_166" +" table_165" " key_61" " val_54)))))" "(values" " table_39)))" -" table_165))))" -" table_164))))))" -" for-loop_210)" -" table_161)))))" +" table_164))))" +" table_163))))))" +" for-loop_211)" +" table_160)))))" "(if(not" " #f)" -"(for-loop_209" -" table_162" +"(for-loop_210" +" table_161" "(hash-iterate-next" " ht_116" -" i_143))" -" table_162)))" -" table_161)))))" -" for-loop_209)" +" i_140))" +" table_161)))" +" table_160)))))" +" for-loop_210)" " '#hash()" "(hash-iterate-first" " ht_116))))))" @@ -29888,7 +29880,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_212)" "(lambda(fold-var_196 lst_39)" "(begin" " 'for-loop" @@ -29906,10 +29898,10 @@ static const char *startup_source = " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_211 fold-var_197 rest_16)" +"(for-loop_212 fold-var_197 rest_16)" " fold-var_197)))" " fold-var_196)))))" -" for-loop_211)" +" for-loop_212)" " null" " lst_204))))))))" "(begin" @@ -30014,8 +30006,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_164)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_164(correlated-property e_36 'compiler-hint:cross-module-inline v_164) e_36)))))" +"(let-values(((v_165)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_165(correlated-property e_36 'compiler-hint:cross-module-inline v_165) 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)" @@ -30041,7 +30033,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_212)" +"((letrec-values(((for-loop_213)" "(lambda(lst_210)" "(begin" " 'for-loop" @@ -30055,9 +30047,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_212 rest_115)(values))))" +"(if(not #f)(for-loop_213 rest_115)(values))))" "(values))))))" -" for-loop_212)" +" for-loop_213)" " lst_209)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -30111,7 +30103,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_214)" "(lambda(fold-var_208 lst_214 lst_215 lst_216)" "(begin" " 'for-loop" @@ -30154,14 +30146,14 @@ static const char *startup_source = " fold-var_210))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_213" +"(for-loop_214" " fold-var_209" " rest_116" " rest_117" " rest_118)" " fold-var_209)))" " fold-var_208)))))" -" for-loop_213)" +" for-loop_214)" " null" " lst_211" " lst_212" @@ -30178,7 +30170,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_58 i_144)" +"(let-values(((vec_58 i_141)" "(let-values(((vec_59 len_28)" "(let-values(((vec_60)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -30187,16 +30179,16 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_96)" -"(lambda(vec_61 i_145 pos_94)" +"(lambda(vec_61 i_142 pos_94)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_94 len_28)" "(let-values(((mpi_43)" "(unsafe-vector-ref vec_59 pos_94)))" -"(let-values(((vec_62 i_146)" +"(let-values(((vec_62 i_143)" "(let-values(((vec_63) vec_61)" -"((i_61) i_145))" -"(let-values(((vec_64 i_147)" +"((i_61) i_142))" +"(let-values(((vec_64 i_144)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" @@ -30219,19 +30211,19 @@ static const char *startup_source = "(unsafe-fx+" " i_61" " 1)))))))" -"(values vec_64 i_147)))))" +"(values vec_64 i_144)))))" "(if(not #f)" "(for-loop_96" " vec_62" -" i_146" +" i_143" "(unsafe-fx+ 1 pos_94))" -"(values vec_62 i_146))))" -"(values vec_61 i_145))))))" +"(values vec_62 i_143))))" +"(values vec_61 i_142))))))" " for-loop_96)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_58 i_144))))))" +"(shrink-vector vec_58 i_141))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30263,7 +30255,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_71 lst_89)" "(begin" " 'for-loop" @@ -30272,7 +30264,7 @@ static const char *startup_source = "(unsafe-car lst_89))" "((rest_119)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_153)" +"(let-values(((fold-var_154)" " fold-var_71))" "(let-values(((fold-var_9)" "(let-values()" @@ -30281,13 +30273,13 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_153))))" +" fold-var_154))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_106 fold-var_34 rest_119)" +"(for-loop_107 fold-var_34 rest_119)" " fold-var_34)))" " fold-var_71)))))" -" for-loop_106)" +" for-loop_107)" " null" " lst_217)))))))" "(1/compile-linklet" @@ -30328,15 +30320,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_97)" -"(lambda(fold-var_155 lst_81)" +"(lambda(fold-var_156 lst_81)" "(begin" " 'for-loop" "(if(pair? lst_81)" "(let-values(((cim_4)(unsafe-car lst_81))" "((rest_120)(unsafe-cdr lst_81)))" "(let-values(((fold-var_212)" -"(let-values(((fold-var_165) fold-var_155))" -"(let-values(((fold-var_166)" +"(let-values(((fold-var_166) fold-var_156))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -30348,12 +30340,12 @@ static const char *startup_source = "(loop_92" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_165))))" -"(values fold-var_166)))))" +" fold-var_166))))" +"(values fold-var_167)))))" "(if(not #f)" "(for-loop_97 fold-var_212 rest_120)" " fold-var_212)))" -" fold-var_155)))))" +" fold-var_156)))))" " for-loop_97)" " null" " lst_80))))))))" @@ -30382,17 +30374,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_214)" -"(lambda(table_167 lst_219 pos_96)" +"((letrec-values(((for-loop_215)" +"(lambda(table_166 lst_219 pos_96)" "(begin" " 'for-loop" "(if(if(pair? lst_219) #t #f)" "(let-values(((cim_5)(unsafe-car lst_219))" "((rest_49)(unsafe-cdr lst_219))" -"((i_145) pos_96))" -"(let-values(((table_168)" -"(let-values(((table_169) table_167))" -"(let-values(((table_170)" +"((i_142) pos_96))" +"(let-values(((table_167)" +"(let-values(((table_168) table_166))" +"(let-values(((table_169)" "(let-values()" "(let-values(((key_62" " val_35)" @@ -30400,21 +30392,21 @@ static const char *startup_source = "(values" "(string->symbol" "(number->string" -" i_145))" +" i_142))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_169" +" table_168" " key_62" " val_35)))))" -"(values table_170)))))" +"(values table_169)))))" "(if(not #f)" -"(for-loop_214 table_168 rest_49(+ pos_96 1))" -" table_168)))" -" table_167)))))" -" for-loop_214)" +"(for-loop_215 table_167 rest_49(+ pos_96 1))" +" table_167)))" +" table_166)))))" +" for-loop_215)" " '#hasheq()" " lst_218" " start_35)))))" @@ -30458,12 +30450,12 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" "((letrec-values(((for-loop_193)" -"(lambda(fold-var_168 pos_97)" +"(lambda(fold-var_169 pos_97)" "(begin" " 'for-loop" "(if(< pos_97 end_25)" "(let-values(((i_42) pos_97))" -"(let-values(((fold-var_63)" +"(let-values(((fold-var_213)" "(let-values(((top_0)" "(hash-ref" " ht_117" @@ -30471,31 +30463,31 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_215)" -"(lambda(fold-var_64)" +"((letrec-values(((for-loop_216)" +"(lambda(fold-var_170)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_213)" +"(let-values(((fold-var_214)" "(let-values(((fold-var_75)" -" fold-var_64))" +" fold-var_170))" "(if top_0" -"(let-values(((fold-var_76)" -" fold-var_75))" "(let-values(((fold-var_65)" +" fold-var_75))" +"(let-values(((fold-var_76)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_76))))" +" fold-var_65))))" "(values" -" fold-var_65)))" +" fold-var_76)))" " fold-var_75))))" -" fold-var_213))))))" -" for-loop_215)" -" fold-var_168)))))" -"(if(not #f)(for-loop_193 fold-var_63(+ pos_97 inc_19)) fold-var_63)))" -" fold-var_168)))))" +" fold-var_214))))))" +" for-loop_216)" +" fold-var_169)))))" +"(if(not #f)(for-loop_193 fold-var_213(+ pos_97 inc_19)) fold-var_213)))" +" fold-var_169)))))" " for-loop_193)" " null" " start_36))))))))" @@ -30791,7 +30783,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_220)))" -"((letrec-values(((for-loop_216)" +"((letrec-values(((for-loop_217)" "(lambda(result_80" " lst_221)" "(begin" @@ -30824,12 +30816,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_216" +"(for-loop_217" " result_81" " rest_121)" " result_81)))" " result_80)))))" -" for-loop_216)" +" for-loop_217)" " #t" " lst_220)))" " #f)))" @@ -31037,7 +31029,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_190)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_201)" "(lambda(ids_9" " rhs_5" " lst_223)" @@ -31147,7 +31139,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_201" " ids_10" " rhs_6" " rest_123)" @@ -31157,7 +31149,7 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_200)" +" for-loop_201)" " null" " null" " lst_190)))))" @@ -31257,7 +31249,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_217)" +"((letrec-values(((for-loop_218)" "(lambda(result_13" " lst_197" " lst_225)" @@ -31304,13 +31296,13 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_217" +"(for-loop_218" " result_86" " rest_124" " rest_125)" " result_86)))" " result_13)))))" -" for-loop_217)" +" for-loop_218)" " #f" " lst_195" " lst_224))))" @@ -31381,7 +31373,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_226)))" -"((letrec-values(((for-loop_218)" +"((letrec-values(((for-loop_219)" "(lambda(result_88" " lst_227)" "(begin" @@ -31414,12 +31406,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_218" +"(for-loop_219" " result_89" " rest_126)" " result_89)))" " result_88)))))" -" for-loop_218)" +" for-loop_219)" " #t" " lst_226)))" "(length e39_0)" @@ -31489,7 +31481,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_228)))" -"((letrec-values(((for-loop_219)" +"((letrec-values(((for-loop_220)" "(lambda(result_91" " lst_229)" "(begin" @@ -31522,12 +31514,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_219" +"(for-loop_220" " result_29" " rest_127)" " result_29)))" " result_91)))))" -" for-loop_219)" +" for-loop_220)" " #t" " lst_228)))" " 1" @@ -31708,7 +31700,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_230)))" -"((letrec-values(((for-loop_220)" +"((letrec-values(((for-loop_221)" "(lambda(result_92" " lst_119)" "(begin" @@ -31739,12 +31731,12 @@ static const char *startup_source = " e_61))" "(not #f)" " #f)" -"(for-loop_220" +"(for-loop_221" " result_93" " rest_128)" " result_93)))" " result_92)))))" -" for-loop_220)" +" for-loop_221)" " #t" " lst_230)))" "(loop_82 e051_0 locals_2)" @@ -32569,7 +32561,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_236)))" -"((letrec-values(((for-loop_221)" +"((letrec-values(((for-loop_222)" "(lambda(locals_9" " lst_237" " lst_238)" @@ -32608,13 +32600,13 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_221" +"(for-loop_222" " locals_10" " rest_131" " rest_132)" " locals_10)))" " locals_9)))))" -" for-loop_221)" +" for-loop_222)" " locals_7" " lst_235" " lst_236)))))" @@ -32642,7 +32634,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_239)))" -"((letrec-values(((for-loop_222)" +"((letrec-values(((for-loop_223)" "(lambda(locals_13" " lst_240)" "(begin" @@ -32669,12 +32661,12 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_222" +"(for-loop_223" " locals_14" " rest_133)" " locals_14)))" " locals_13)))))" -" for-loop_222)" +" for-loop_223)" " locals_7" " lst_239)))))))))))" " loop_93)" @@ -32695,16 +32687,16 @@ static const char *startup_source = "(let-values(((lst_241)(cdr l_57))" "((lst_242)" "(list" -"(lambda(v_165)(quoted? symbol? v_165))" -"(lambda(v_166)(is-lambda? v_166 2 defns_3))" -"(lambda(v_167)(ok-make-struct-type-property-super? v_167 defns_3))" -"(lambda(v_168)" -"(let-values(((v103_0) v_168)((temp104_0) 1)((defns105_0) defns_3))" +"(lambda(v_166)(quoted? symbol? v_166))" +"(lambda(v_167)(is-lambda? v_167 2 defns_3))" +"(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))" +"(lambda(v_169)" +"(let-values(((v103_0) v_169)((temp104_0) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_0))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" -"((letrec-values(((for-loop_223)" +"((letrec-values(((for-loop_224)" "(lambda(result_95 lst_243 lst_60)" "(begin" " 'for-loop" @@ -32721,32 +32713,32 @@ static const char *startup_source = "(if(if(not((lambda x_63(not result_96)) arg_0))" "(if(not((lambda x_64(not result_96)) pred_1))(not #f) #f)" " #f)" -"(for-loop_223 result_96 rest_27 rest_134)" +"(for-loop_224 result_96 rest_27 rest_134)" " result_96)))" " result_95)))))" -" for-loop_223)" +" for-loop_224)" " #t" " lst_241" " lst_242)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_169 defns_4)" +"(lambda(v_170 defns_4)" "(begin" -"(let-values(((or-part_234)(quoted? null? v_169)))" +"(let-values(((or-part_234)(quoted? null? v_170)))" "(if or-part_234" " or-part_234" -"(let-values(((or-part_235)(eq? 'null(correlated-e v_169))))" +"(let-values(((or-part_235)(eq? 'null(correlated-e v_170))))" "(if or-part_235" " or-part_235" -"(if(pair?(correlated-e v_169))" -"(if(eq?(correlated-e(car(correlated-e v_169))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_169))))" +"(if(pair?(correlated-e v_170))" +"(if(eq?(correlated-e(car(correlated-e v_170))) 'list)" +"(if(let-values(((lst_244)(cdr(correlated->list v_170))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_244)))" -"((letrec-values(((for-loop_224)" +"((letrec-values(((for-loop_225)" "(lambda(result_98 lst_64)" "(begin" " 'for-loop" @@ -32809,30 +32801,30 @@ static const char *startup_source = "(if(if(not((lambda x_65(not result_99)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_224 result_99 rest_29)" +"(for-loop_225 result_99 rest_29)" " result_99)))" " result_98)))))" -" for-loop_224)" +" for-loop_225)" " #t" " lst_244)))" "(=" -"(sub1(correlated-length v_169))" +"(sub1(correlated-length v_170))" "(set-count" -"(let-values(((lst_245)(cdr(correlated->list v_169))))" +"(let-values(((lst_245)(cdr(correlated->list v_170))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_225)" -"(lambda(table_171 lst_246)" +"((letrec-values(((for-loop_226)" +"(lambda(table_170 lst_246)" "(begin" " 'for-loop" "(if(pair? lst_246)" "(let-values(((prop+val_2)(unsafe-car lst_246))" "((rest_135)(unsafe-cdr lst_246)))" -"(let-values(((table_172)" -"(let-values(((table_173) table_171))" -"(let-values(((table_174)" +"(let-values(((table_171)" +"(let-values(((table_172) table_170))" +"(let-values(((table_173)" "(let-values()" "(let-values(((key_64 val_55)" "(let-values()" @@ -32845,13 +32837,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_173" +" table_172" " key_64" " val_55)))))" -"(values table_174)))))" -"(if(not #f)(for-loop_225 table_172 rest_135) table_172)))" -" table_171)))))" -" for-loop_225)" +"(values table_173)))))" +"(if(not #f)(for-loop_226 table_171 rest_135) table_171)))" +" table_170)))))" +" for-loop_226)" " '#hash()" " lst_245)))))" " #f)" @@ -32877,13 +32869,13 @@ static const char *startup_source = "(let-values(((lst_247)(cdr l_58))" "((lst_248)" "(list" -"(lambda(v_170)(quoted? symbol? v_170))" -"(lambda(v_171)(super-ok? v_171 defns_5))" -"(lambda(v_172)(field-count-expr-to-field-count v_172))" +"(lambda(v_171)(quoted? symbol? v_171))" +"(lambda(v_172)(super-ok? v_172 defns_5))" "(lambda(v_173)(field-count-expr-to-field-count v_173))" -"(lambda(v_174)" +"(lambda(v_174)(field-count-expr-to-field-count v_174))" +"(lambda(v_175)" "(not" -"(let-values(((v109_0) v_174)" +"(let-values(((v109_0) v_175)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32893,11 +32885,11 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_175)" -"(known-good-struct-properties? v_175 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_176)(inspector-or-false? v_176))" -"(lambda(v_177)(procedure-spec? v_177 num-fields_0))" -"(lambda(v_178)(immutables-ok? v_178 init-field-count-expr_0)))))" +"(lambda(v_176)" +"(known-good-struct-properties? v_176 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_177)(inspector-or-false? v_177))" +"(lambda(v_178)(procedure-spec? v_178 num-fields_0))" +"(lambda(v_179)(immutables-ok? v_179 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32905,7 +32897,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_226)" +"((letrec-values(((for-loop_227)" "(lambda(result_101 lst_249 lst_250)" "(begin" " 'for-loop" @@ -32925,10 +32917,10 @@ static const char *startup_source = "(not #f)" " #f)" " #f)" -"(for-loop_226 result_102 rest_136 rest_137)" +"(for-loop_227 result_102 rest_136 rest_137)" " result_102)))" " result_101)))))" -" for-loop_226)" +" for-loop_227)" " #t" " lst_247" " lst_248)))" @@ -32951,54 +32943,54 @@ 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_179)" +"(lambda(val?_0 v_180)" "(begin" "(let-values(((or-part_239)" -"(if(pair?(correlated-e v_179))" -"(if(eq?(correlated-e(car(correlated-e v_179))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_179)))" +"(if(pair?(correlated-e v_180))" +"(if(eq?(correlated-e(car(correlated-e v_180))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_180)))" " #f)" " #f)))" -"(if or-part_239 or-part_239(val?_0(correlated-e v_179)))))))" +"(if or-part_239 or-part_239(val?_0(correlated-e v_180)))))))" "(define-values" "(quoted-value)" -"(lambda(v_180)" -"(begin(if(pair?(correlated-e v_180))(correlated-e(correlated-cadr v_180))(correlated-e v_180)))))" -"(define-values(false?)(lambda(v_181)(begin(eq?(correlated-e v_181) #f))))" +"(lambda(v_181)" +"(begin(if(pair?(correlated-e v_181))(correlated-e(correlated-cadr v_181))(correlated-e v_181)))))" +"(define-values(false?)(lambda(v_182)(begin(eq?(correlated-e v_182) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_182)(begin(if(quoted? exact-nonnegative-integer? v_182)(quoted-value v_182) #f))))" +"(lambda(v_183)(begin(if(quoted? exact-nonnegative-integer? v_183)(quoted-value v_183) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_183)" +"(lambda(v_184)" "(begin" -"(let-values(((or-part_240)(quoted? false? v_183)))" +"(let-values(((or-part_240)(quoted? false? v_184)))" "(if or-part_240" " or-part_240" -"(let-values(((or-part_241)(if(quoted? symbol? v_183)(eq? 'prefab(quoted-value v_183)) #f)))" +"(let-values(((or-part_241)(if(quoted? symbol? v_184)(eq? 'prefab(quoted-value v_184)) #f)))" "(if or-part_241" " or-part_241" -"(if(= 1(correlated-length v_183))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_183))))" +"(if(= 1(correlated-length v_184))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_184))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_184 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_185 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_242)(quoted? null? v_184)))" +"(let-values(((or-part_242)(quoted? null? v_185)))" "(if or-part_242" " or-part_242" -"(let-values(((or-part_243)(eq? 'null(correlated-e v_184))))" +"(let-values(((or-part_243)(eq? 'null(correlated-e v_185))))" "(if or-part_243" " or-part_243" -"(if(pair?(correlated-e v_184))" -"(if(eq?(correlated-e(car(correlated-e v_184))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_184))))" +"(if(pair?(correlated-e v_185))" +"(if(eq?(correlated-e(car(correlated-e v_185))) 'list)" +"(if(let-values(((lst_251)(cdr(correlated->list v_185))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_251)))" -"((letrec-values(((for-loop_227)" +"((letrec-values(((for-loop_228)" "(lambda(result_104 lst_252)" "(begin" " 'for-loop" @@ -33033,30 +33025,30 @@ static const char *startup_source = "(if(if(not((lambda x_68(not result_105)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_227 result_105 rest_138)" +"(for-loop_228 result_105 rest_138)" " result_105)))" " result_104)))))" -" for-loop_227)" +" for-loop_228)" " #t" " lst_251)))" "(=" -"(sub1(correlated-length v_184))" +"(sub1(correlated-length v_185))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_184))))" +"(let-values(((lst_253)(cdr(correlated->list v_185))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_228)" -"(lambda(table_175 lst_136)" +"((letrec-values(((for-loop_229)" +"(lambda(table_174 lst_136)" "(begin" " 'for-loop" "(if(pair? lst_136)" "(let-values(((prop+val_5)(unsafe-car lst_136))" "((rest_139)(unsafe-cdr lst_136)))" -"(let-values(((table_176)" -"(let-values(((table_177) table_175))" -"(let-values(((table_178)" +"(let-values(((table_175)" +"(let-values(((table_176) table_174))" +"(let-values(((table_177)" "(let-values()" "(let-values(((key_65 val_56)" "(let-values()" @@ -33069,13 +33061,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_177" +" table_176" " key_65" " val_56)))))" -"(values table_178)))))" -"(if(not #f)(for-loop_228 table_176 rest_139) table_176)))" -" table_175)))))" -" for-loop_228)" +"(values table_177)))))" +"(if(not #f)(for-loop_229 table_175 rest_139) table_175)))" +" table_174)))))" +" for-loop_229)" " '#hash()" " lst_253)))))" " #f)" @@ -33184,7 +33176,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_229)" +"((letrec-values(((for-loop_230)" "(lambda(result_107 lst_255)" "(begin" " 'for-loop" @@ -33197,10 +33189,10 @@ static const char *startup_source = "(let-values()(equal? a_42 n_26)))))" "(values result_109)))))" "(if(if(not((lambda x_69 result_108) a_42))(not #f) #f)" -"(for-loop_229 result_108 rest_140)" +"(for-loop_230 result_108 rest_140)" " result_108)))" " result_107)))))" -" for-loop_229)" +" for-loop_230)" " #f" " lst_254)))" " #f))))))" @@ -33218,10 +33210,10 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_185)(correlated-cadr e_67)))" +"(let-values(((v_186)(correlated-cadr e_67)))" "(let-values(((or-part_251)" -"(if(correlated-length v_185)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_185))))" +"(if(correlated-length v_186)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_186))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" @@ -33502,7 +33494,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_230)" +"((letrec-values(((for-loop_231)" "(lambda(fold-var_73 lst_90)" "(begin" " 'for-loop" @@ -33510,8 +33502,8 @@ static const char *startup_source = "(let-values(((id_53)(unsafe-car lst_90))" "((rest_142)(unsafe-cdr lst_90)))" "(let-values(((fold-var_12)" -"(let-values(((fold-var_155) fold-var_73))" -"(let-values(((fold-var_93)" +"(let-values(((fold-var_156) fold-var_73))" +"(let-values(((fold-var_94)" "(let-values()" "(cons" "(let-values()" @@ -33645,13 +33637,13 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_155))))" -"(values fold-var_93)))))" +" fold-var_156))))" +"(values fold-var_94)))))" "(if(not #f)" -"(for-loop_230 fold-var_12 rest_142)" +"(for-loop_231 fold-var_12 rest_142)" " fold-var_12)))" " fold-var_73)))))" -" for-loop_230)" +" for-loop_231)" " null" " lst_258)))))))))))))))))))" "(define-values" @@ -33730,7 +33722,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_231)" +"((letrec-values(((for-loop_232)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33757,7 +33749,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_259)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_233)" "(lambda(lst_78)" "(begin" " 'for-loop" @@ -33822,18 +33814,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_232" +"(for-loop_233" " rest_36)" "(values))))" "(values))))))" -" for-loop_232)" +" for-loop_233)" " lst_259)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_231 rest_4)(values))))" +"(if(not #f)(for-loop_232 rest_4)(values))))" "(values))))))" -" for-loop_231)" +" for-loop_232)" " lst_218)))" "(values))))" "(let-values()" @@ -33844,13 +33836,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_122)))" -"((letrec-values(((for-loop_106)" -"(lambda(i_148)" +"((letrec-values(((for-loop_107)" +"(lambda(i_145)" "(begin" " 'for-loop" -"(if i_148" +"(if i_145" "(let-values(((phase_86 linklet_3)" -"(hash-iterate-key+value ht_122 i_148)))" +"(hash-iterate-key+value ht_122 i_145)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33867,7 +33859,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_260)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_234)" "(lambda(lst_261)" "(begin" " 'for-loop" @@ -33929,20 +33921,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_234" " rest_143)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_234)" " lst_260)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_122 i_148))" +"(for-loop_107(hash-iterate-next ht_122 i_145))" "(values))))" "(values))))))" -" for-loop_106)" +" for-loop_107)" "(hash-iterate-first ht_122))))" "(void)" " root-ctx_4))))))))))" @@ -33952,11 +33944,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_186) root-context_0))" -"(let-values(((the-struct_54) v_186))" +"(let-values(((v_187) root-context_0))" +"(let-values(((the-struct_54) v_187))" "(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_186)))" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_187)))" "(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -34024,7 +34016,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_234)" "(lambda(lst_261 lst_258 lst_23 lst_104)" "(begin" " 'for-loop" @@ -34070,7 +34062,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_263)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_235)" "(lambda(lst_25)" "(begin" " 'for-loop" @@ -34154,20 +34146,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_235" " rest_9)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_235)" " lst_263)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_233 rest_144 rest_84 rest_43 rest_120)" +"(for-loop_234 rest_144 rest_84 rest_43 rest_120)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_234)" " lst_41" " lst_160" " lst_89" @@ -34253,33 +34245,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_233)" -"(lambda(table_179 pos_99)" +"((letrec-values(((for-loop_234)" +"(lambda(table_178 pos_99)" "(begin" " 'for-loop" "(if(< pos_99 end_26)" "(let-values(((phase-level_17)" " pos_99))" -"(let-values(((table_180)" -"(let-values(((v_187)" +"(let-values(((table_179)" +"(let-values(((v_188)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_107)" -"(lambda(table_181)" +"((letrec-values(((for-loop_108)" +"(lambda(table_180)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_182)" +"(let-values(((table_181)" "(let-values(((table_110)" -" table_181))" -"(if v_187" -"(let-values(((table_183)" +" table_180))" +"(if v_188" +"(let-values(((table_182)" " table_110))" -"(let-values(((table_184)" +"(let-values(((table_183)" "(let-values()" "(let-values(((key_68" " val_57)" @@ -34287,24 +34279,24 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_187)))))" +" v_188)))))" "(hash-set" -" table_183" +" table_182" " key_68" " val_57)))))" "(values" -" table_184)))" +" table_183)))" " table_110))))" -" table_182))))))" -" for-loop_107)" -" table_179)))))" +" table_181))))))" +" for-loop_108)" +" table_178)))))" "(if(not #f)" -"(for-loop_233" -" table_180" +"(for-loop_234" +" table_179" "(+ pos_99 inc_20))" -" table_180)))" -" table_179)))))" -" for-loop_233)" +" table_179)))" +" table_178)))))" +" for-loop_234)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34394,7 +34386,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_265)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_236)" "(lambda(lst_173)" "(begin" " 'for-loop" @@ -34439,11 +34431,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_235" +"(for-loop_236" " rest_92)" "(values))))" "(values))))))" -" for-loop_235)" +" for-loop_236)" " lst_265)))" "(void)))))" " void)))" @@ -35006,15 +34998,15 @@ static const char *startup_source = "(let-values(((ht_123) phases-h_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_236)" -"(lambda(table_185 i_149)" +"((letrec-values(((for-loop_237)" +"(lambda(table_184 i_146)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_123 i_149)))" -"(let-values(((table_186)" -"(let-values(((table_187) table_185))" -"(let-values(((table_140)" +"(if i_146" +"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_123 i_146)))" +"(let-values(((table_185)" +"(let-values(((table_186) table_184))" +"(let-values(((table_139)" "(let-values()" "(let-values(((key_69 val_60)" "(let-values()" @@ -35022,13 +35014,13 @@ static const char *startup_source = " phase_88" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_187 key_69 val_60)))))" -"(values table_140)))))" +"(hash-set table_186 key_69 val_60)))))" +"(values table_139)))))" "(if(not #f)" -"(for-loop_236 table_186(hash-iterate-next ht_123 i_149))" -" table_186)))" -" table_185)))))" -" for-loop_236)" +"(for-loop_237 table_185(hash-iterate-next ht_123 i_146))" +" table_185)))" +" table_184)))))" +" for-loop_237)" " '#hash()" "(hash-iterate-first ht_123)))))))" "(define-values" @@ -35047,12 +35039,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_124)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 i_150)" +"(lambda(fold-var_59 i_147)" "(begin" " 'for-loop" -"(if i_150" +"(if i_147" "(let-values(((phase_89 at-phase_11)" -"(hash-iterate-key+value ht_124 i_150)))" +"(hash-iterate-key+value ht_124 i_147)))" "(let-values(((fold-var_60)" "(let-values(((l_65)" "(reverse$1" @@ -35065,25 +35057,25 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_125)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_214" -" i_151)" +"((letrec-values(((for-loop_238)" +"(lambda(fold-var_215" +" i_148)" "(begin" " 'for-loop" -"(if i_151" +"(if i_148" "(let-values(((sym_65" " b/p_1)" "(hash-iterate-key+value" " ht_125" -" i_151)))" -"(let-values(((fold-var_215)" +" i_148)))" "(let-values(((fold-var_216)" -" fold-var_214))" +"(let-values(((fold-var_217)" +" fold-var_215))" "(if(ok?_26" " b/p_1)" -"(let-values(((fold-var_217)" -" fold-var_216))" "(let-values(((fold-var_218)" +" fold-var_217))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" @@ -35112,8 +35104,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_238)" -"(lambda(fold-var_219" +"((letrec-values(((for-loop_239)" +"(lambda(fold-var_220" " lst_266)" "(begin" " 'for-loop" @@ -35127,7 +35119,7 @@ static const char *startup_source = " lst_266)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" -" fold-var_219))" +" fold-var_220))" "(let-values(((fold-var_31)" "(let-values()" "(cons" @@ -35159,39 +35151,39 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_238" +"(for-loop_239" " fold-var_29" " rest_146)" " fold-var_29)))" -" fold-var_219)))))" -" for-loop_238)" +" fold-var_220)))))" +" for-loop_239)" " null" " lst_87)))))))))" -" fold-var_217))))" +" fold-var_218))))" "(values" -" fold-var_218)))" -" fold-var_216))))" +" fold-var_219)))" +" fold-var_217))))" "(if(not" " #f)" -"(for-loop_237" -" fold-var_215" +"(for-loop_238" +" fold-var_216" "(hash-iterate-next" " ht_125" -" i_151))" -" fold-var_215)))" -" fold-var_214)))))" -" for-loop_237)" +" i_148))" +" fold-var_216)))" +" fold-var_215)))))" +" for-loop_238)" " null" "(hash-iterate-first" " ht_125)))))))" "(begin" " #t" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_71)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_220)" +"(let-values(((fold-var_221)" "(let-values(((fold-var_32)" " fold-var_71))" "(if(null?" @@ -35219,13 +35211,13 @@ static const char *startup_source = " fold-var_33))))" "(values" " fold-var_34)))))))" -" fold-var_220))))))" -" for-loop_106)" +" fold-var_221))))))" +" for-loop_107)" " fold-var_59)))))" "(if(not #f)" "(for-loop_101" " fold-var_60" -"(hash-iterate-next ht_124 i_150))" +"(hash-iterate-next ht_124 i_147))" " fold-var_60)))" " fold-var_59)))))" " for-loop_101)" @@ -35247,14 +35239,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_166 i_97)" +"((letrec-values(((for-loop_117)" +"(lambda(fold-var_167 i_95)" "(begin" " 'for-loop" -"(if i_97" -"(let-values(((phase_90 vars_0)(hash-iterate-key+value ht_85 i_97)))" -"(let-values(((fold-var_168)" -"(let-values(((fold-var_221) fold-var_166))" +"(if i_95" +"(let-values(((phase_90 vars_0)(hash-iterate-key+value ht_85 i_95)))" +"(let-values(((fold-var_169)" +"(let-values(((fold-var_222) fold-var_167))" "(let-values(((l_66)" "(let-values(((syms_19)" "(hash-ref" @@ -35269,8 +35261,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_18)))" -"((letrec-values(((for-loop_215)" -"(lambda(fold-var_64" +"((letrec-values(((for-loop_216)" +"(lambda(fold-var_170" " lst_267)" "(begin" " 'for-loop" @@ -35282,37 +35274,37 @@ static const char *startup_source = "((rest_147)" "(unsafe-cdr" " lst_267)))" -"(let-values(((fold-var_65)" -"(let-values(((fold-var_222)" -" fold-var_64))" +"(let-values(((fold-var_76)" +"(let-values(((fold-var_223)" +" fold-var_170))" "(if(hash-ref" " syms_19" " var-sym_5" " #f)" -" fold-var_222" -"(let-values(((fold-var_223)" -" fold-var_222))" +" fold-var_223" "(let-values(((fold-var_224)" +" fold-var_223))" +"(let-values(((fold-var_225)" "(let-values()" "(cons" "(let-values()" " var-sym_5)" -" fold-var_223))))" +" fold-var_224))))" "(values" -" fold-var_224)))))))" +" fold-var_225)))))))" "(if(not" " #f)" -"(for-loop_215" -" fold-var_65" +"(for-loop_216" +" fold-var_76" " rest_147)" -" fold-var_65)))" -" fold-var_64)))))" -" for-loop_215)" +" fold-var_76)))" +" fold-var_170)))))" +" for-loop_216)" " null" " lst_18)))))))" "(begin" " #t" -"((letrec-values(((for-loop_109)" +"((letrec-values(((for-loop_110)" "(lambda(fold-var_66)" "(begin" " 'for-loop" @@ -35344,13 +35336,13 @@ static const char *startup_source = "(values" " fold-var_20)))))))" " fold-var_67))))))" -" for-loop_109)" -" fold-var_221))))))" +" for-loop_110)" +" fold-var_222))))))" "(if(not #f)" -"(for-loop_116 fold-var_168(hash-iterate-next ht_85 i_97))" -" fold-var_168)))" -" fold-var_166)))))" -" for-loop_116)" +"(for-loop_117 fold-var_169(hash-iterate-next ht_85 i_95))" +" fold-var_169)))" +" fold-var_167)))))" +" for-loop_117)" " null" "(hash-iterate-first ht_85)))))))" "(let-values(((result-l7_0) result-l_1)((phasenamespace-at-phase(expand-context-namespace ctx_34) phase_103)))" "(begin" "(namespace-visit-available-modules! ns_74 phase_103)" -"(let-values(((v_191) ctx_34))" -"(let-values(((the-struct_61) v_191))" +"(let-values(((v_192) ctx_34))" +"(let-values(((the-struct_61) v_192))" "(if(expand-context/outer? the-struct_61)" "(let-values(((context236_0) context_8)" "((scopes237_0) null)" @@ -40180,7 +40172,7 @@ static const char *startup_source = "((def-ctx-scopes240_0) #f)" "((post-expansion-scope241_0) #f)" "((inner242_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_191)))" +"(let-values(((the-struct_62)(root-expand-context/outer-inner v_192)))" "(if(expand-context/inner? the-struct_62)" "(let-values(((phase243_0) phase_103)" "((namespace244_0) ns_74)" @@ -40423,8 +40415,8 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_192) rhs-ctx_1))" -"(let-values(((the-struct_63) v_192))" +"(let-values(((v_193) rhs-ctx_1))" +"(let-values(((the-struct_63) v_193))" "(if(expand-context/outer? the-struct_63)" "(let-values(((env257_0)" "(let-values(((lst_281) ids_24)((lst_282) keys_4))" @@ -40437,7 +40429,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_251)" +"((letrec-values(((for-loop_252)" "(lambda(env_3 lst_283 lst_284)" "(begin" " 'for-loop" @@ -40469,17 +40461,17 @@ static const char *startup_source = "(values" " env_6)))))" "(if(not #f)" -"(for-loop_251" +"(for-loop_252" " env_4" " rest_159" " rest_160)" " env_4)))" " env_3)))))" -" for-loop_251)" +" for-loop_252)" "(expand-context-env rhs-ctx_1)" " lst_281" " lst_282))))" -"((inner258_0)(root-expand-context/outer-inner v_192)))" +"((inner258_0)(root-expand-context/outer-inner v_193)))" "(expand-context/outer1.1" " inner258_0" "(root-expand-context/outer-post-expansion-scope the-struct_63)" @@ -40563,15 +40555,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_90 lst_84)" +"((letrec-values(((for-loop_115)" +"(lambda(fold-var_91 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" "(let-values(((sym_70)(unsafe-car lst_84))" "((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_91)" -"(let-values(((fold-var_92) fold-var_90))" +"(let-values(((fold-var_92)" +"(let-values(((fold-var_93) fold-var_91))" "(let-values(((fold-var_60)" "(let-values()" "(cons" @@ -40579,11 +40571,11 @@ static const char *startup_source = "(datum->syntax$1" " p-core-stx_0" " sym_70))" -" fold-var_92))))" +" fold-var_93))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_114 fold-var_91 rest_50) fold-var_91)))" -" fold-var_90)))))" -" for-loop_114)" +"(if(not #f)(for-loop_115 fold-var_92 rest_50) fold-var_92)))" +" fold-var_91)))))" +" for-loop_115)" " null" " lst_103)))))))))))))" "(define-values" @@ -40612,24 +40604,24 @@ static const char *startup_source = "(let-values(((lst_102) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_113)" -"(lambda(fold-var_237 lst_259)" +"((letrec-values(((for-loop_114)" +"(lambda(fold-var_238 lst_259)" "(begin" " 'for-loop" "(if(pair? lst_259)" "(let-values(((sym_18)(unsafe-car lst_259))((rest_161)(unsafe-cdr lst_259)))" -"(let-values(((fold-var_216)" -"(let-values(((fold-var_217) fold-var_237))" -"(let-values(((fold-var_218)" +"(let-values(((fold-var_217)" +"(let-values(((fold-var_218) fold-var_238))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_18))" -" fold-var_217))))" -"(values fold-var_218)))))" -"(if(not #f)(for-loop_113 fold-var_216 rest_161) fold-var_216)))" -" fold-var_237)))))" -" for-loop_113)" +" fold-var_218))))" +"(values fold-var_219)))))" +"(if(not #f)(for-loop_114 fold-var_217 rest_161) fold-var_217)))" +" fold-var_238)))))" +" for-loop_114)" " null" " lst_102))))))))" "(define-values" @@ -40813,7 +40805,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_185)))" "((letrec-values(((for-loop_119)" -"(lambda(fold-var_230 lst_285)" +"(lambda(fold-var_231 lst_285)" "(begin" " 'for-loop" "(if(pair? lst_285)" @@ -40823,10 +40815,10 @@ static const char *startup_source = "((rest_162)" "(unsafe-cdr" " lst_285)))" -"(let-values(((fold-var_238)" "(let-values(((fold-var_239)" -" fold-var_230))" "(let-values(((fold-var_240)" +" fold-var_231))" +"(let-values(((fold-var_241)" "(let-values()" "(cons" "(let-values()" @@ -40855,15 +40847,15 @@ static const char *startup_source = " #f" " temp49_1" " extra-intdefs50_0))))" -" fold-var_239))))" +" fold-var_240))))" "(values" -" fold-var_240)))))" +" fold-var_241)))))" "(if(not #f)" "(for-loop_119" -" fold-var_238" +" fold-var_239" " rest_162)" -" fold-var_238)))" -" fold-var_230)))))" +" fold-var_239)))" +" fold-var_231)))))" " for-loop_119)" " null" " lst_185))))))" @@ -40889,7 +40881,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_192)" -"(lambda(fold-var_160 lst_165)" +"(lambda(fold-var_161 lst_165)" "(begin" " 'for-loop" "(if(pair? lst_165)" @@ -40899,10 +40891,10 @@ static const char *startup_source = "((rest_163)" "(unsafe-cdr" " lst_165)))" -"(let-values(((fold-var_241)" -"(let-values(((fold-var_175)" -" fold-var_160))" "(let-values(((fold-var_242)" +"(let-values(((fold-var_175)" +" fold-var_161))" +"(let-values(((fold-var_243)" "(let-values()" "(cons" "(let-values()" @@ -40924,13 +40916,13 @@ static const char *startup_source = " temp56_2)))" " fold-var_175))))" "(values" -" fold-var_242)))))" +" fold-var_243)))))" "(if(not #f)" "(for-loop_192" -" fold-var_241" +" fold-var_242" " rest_163)" -" fold-var_241)))" -" fold-var_160)))))" +" fold-var_242)))" +" fold-var_161)))))" " for-loop_192)" " null" " lst_164))))))" @@ -40956,7 +40948,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_286)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_253)" "(lambda(env_7" " lst_105)" "(begin" @@ -40982,12 +40974,12 @@ static const char *startup_source = " env_10)))))" "(if(not" " #f)" -"(for-loop_252" +"(for-loop_253" " env_8" " rest_164)" " env_8)))" " env_7)))))" -" for-loop_252)" +" for-loop_253)" "(expand-context-env ctx_44)" " lst_286)))))" "(let-values((()" @@ -41009,17 +41001,17 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp60_3)" -"(let-values(((v_193)" +"(let-values(((v_194)" " ctx_44))" "(let-values(((the-struct_65)" -" v_193))" +" v_194))" "(if(expand-context/outer?" " the-struct_65)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" "(root-expand-context/outer-inner" -" v_193)))" +" v_194)))" "(expand-context/outer1.1" " inner64_0" "(root-expand-context/outer-post-expansion-scope" @@ -41086,7 +41078,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_253)" +"((letrec-values(((for-loop_254)" "(lambda(fold-var_181" " lst_288)" "(begin" @@ -41098,24 +41090,24 @@ static const char *startup_source = "((rest_165)" "(unsafe-cdr" " lst_288)))" -"(let-values(((fold-var_100)" +"(let-values(((fold-var_101)" "(let-values(((fold-var_35)" " fold-var_181))" -"(let-values(((fold-var_243)" +"(let-values(((fold-var_244)" "(let-values()" "(cons" "(let-values()" " variable)" " fold-var_35))))" "(values" -" fold-var_243)))))" +" fold-var_244)))))" "(if(not #f)" -"(for-loop_253" -" fold-var_100" +"(for-loop_254" +" fold-var_101" " rest_165)" -" fold-var_100)))" +" fold-var_101)))" " fold-var_181)))))" -" for-loop_253)" +" for-loop_254)" " null" " lst_287))))))))" "(let-values(((env-mixins_0)" @@ -41141,7 +41133,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_255)" "(lambda(fold-var_38" " lst_192" " lst_291" @@ -41171,10 +41163,10 @@ static const char *startup_source = "((rest_168)" "(unsafe-cdr" " lst_292)))" -"(let-values(((fold-var_244)" "(let-values(((fold-var_245)" -" fold-var_38))" "(let-values(((fold-var_246)" +" fold-var_38))" +"(let-values(((fold-var_247)" "(let-values()" "(cons" "(let-values()" @@ -41189,18 +41181,18 @@ static const char *startup_source = " sym_72" " val_70" "(make-weak-hasheq))))" -" fold-var_245))))" +" fold-var_246))))" "(values" -" fold-var_246)))))" +" fold-var_247)))))" "(if(not #f)" -"(for-loop_254" -" fold-var_244" +"(for-loop_255" +" fold-var_245" " rest_166" " rest_167" " rest_168)" -" fold-var_244)))" +" fold-var_245)))" " fold-var_38)))))" -" for-loop_254)" +" for-loop_255)" " null" " lst_289" " lst_278" @@ -41233,24 +41225,24 @@ static const char *startup_source = "(let-values(((lst_293)(unbox(internal-definition-context-env-mixins intdef_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_255)" +"((letrec-values(((for-loop_256)" "(lambda(fold-var_189 lst_294)" "(begin" " 'for-loop" "(if(pair? lst_294)" "(let-values(((env-mixin_0)(unsafe-car lst_294))" "((rest_169)(unsafe-cdr lst_294)))" -"(let-values(((fold-var_247)" -"(let-values(((fold-var_248) fold-var_189))" -"(let-values(((fold-var_249)" +"(let-values(((fold-var_248)" +"(let-values(((fold-var_249) fold-var_189))" +"(let-values(((fold-var_250)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_248))))" -"(values fold-var_249)))))" -"(if(not #f)(for-loop_255 fold-var_247 rest_169) fold-var_247)))" +" fold-var_249))))" +"(values fold-var_250)))))" +"(if(not #f)(for-loop_256 fold-var_248 rest_169) fold-var_248)))" " fold-var_189)))))" -" for-loop_255)" +" for-loop_256)" " null" " lst_293))))))))" "(define-values" @@ -41331,7 +41323,7 @@ static const char *startup_source = "(if(not a_46)(let-values() null)(let-values()(list a_46)))))))" "(begin" " #t" -"((letrec-values(((for-loop_256)" +"((letrec-values(((for-loop_257)" "(lambda(id_72 a_47)" "(begin" " 'for-loop" @@ -41346,9 +41338,9 @@ static const char *startup_source = " id_74" " 'remove))))" "(values id_75)))))" -"(if(not #f)(for-loop_256 id_73(cdr a_47)) id_73)))" +"(if(not #f)(for-loop_257 id_73(cdr a_47)) id_73)))" " id_72)))))" -" for-loop_256)" +" for-loop_257)" " id_71" " x_76)))))))" "(define-values" @@ -41375,7 +41367,7 @@ static const char *startup_source = "(if(not a_48)(let-values() null)(let-values()(list a_48)))))))" "(begin" " #t" -"((letrec-values(((for-loop_257)" +"((letrec-values(((for-loop_258)" "(lambda(env_12 a_49)" "(begin" " 'for-loop" @@ -41438,9 +41430,9 @@ static const char *startup_source = " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" -"(if(not #f)(for-loop_257 env_13(cdr a_49)) env_13)))" +"(if(not #f)(for-loop_258 env_13(cdr a_49)) env_13)))" " env_12)))))" -" for-loop_257)" +" for-loop_258)" " env_11" " x_79))))))" "(define-values" @@ -41460,7 +41452,7 @@ static const char *startup_source = "(if(not a_50)(let-values() null)(let-values()(list a_50)))))))" "(begin" " #t" -"((letrec-values(((for-loop_258)" +"((letrec-values(((for-loop_259)" "(lambda(s_424 a_51)" "(begin" " 'for-loop" @@ -41482,9 +41474,9 @@ static const char *startup_source = " intdef_11)))))" "(values s_426)))" " s_71))))" -"(if(not #f)(for-loop_258 s_321(cdr a_51)) s_321)))" +"(if(not #f)(for-loop_259 s_321(cdr a_51)) s_321)))" " s_424)))))" -" for-loop_258)" +" for-loop_259)" " s_39" " x_80)))))))))))" "(define-values" @@ -41519,8 +41511,8 @@ 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_194) ctx_45))" -"(let-values(((the-struct_66) v_194))" +"(let-values(((v_195) ctx_45))" +"(let-values(((the-struct_66) v_195))" "(if(expand-context/outer? the-struct_66)" "(let-values(((context69_0) context_9)" "((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" @@ -41544,7 +41536,7 @@ static const char *startup_source = "(let-values()(list a_52)))))))" "(begin" " #t" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_260)" "(lambda(frame-id_9 a_53)" "(begin" " 'for-loop" @@ -41577,12 +41569,12 @@ static const char *startup_source = "(values" " frame-id_12)))))" "(if(not #f)" -"(for-loop_259" +"(for-loop_260" " frame-id_10" "(cdr a_53))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_259)" +" for-loop_260)" "(root-expand-context-frame-id ctx_45)" " x_81))))" "((post-expansion-scope73_0)" @@ -41616,7 +41608,7 @@ static const char *startup_source = "(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner79_0)" "(let-values(((the-struct_67)" -"(root-expand-context/outer-inner v_194)))" +"(root-expand-context/outer-inner v_195)))" "(if(expand-context/inner? the-struct_67)" "(let-values(((to-parsed?82_0)" "(if to-parsed-ok?_0" @@ -41987,14 +41979,14 @@ static const char *startup_source = "(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" "(let-values(((ctx_11)" "(if intdefs_3" -"(let-values(((v_195) current-ctx_0))" -"(let-values(((the-struct_68) v_195))" +"(let-values(((v_196) current-ctx_0))" +"(let-values(((the-struct_68) v_196))" "(if(expand-context/outer? the-struct_68)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_195)))" +"((inner83_0)(root-expand-context/outer-inner v_196)))" "(expand-context/outer1.1" " inner83_0" "(root-expand-context/outer-post-expansion-scope the-struct_68)" @@ -42204,15 +42196,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_217)" -"(lambda(fold-var_250 pos_106)" +"((letrec-values(((for-loop_218)" +"(lambda(fold-var_251 pos_106)" "(begin" " 'for-loop" "(if(< pos_106 end_29)" "(let-values()" -"(let-values(((fold-var_251)" -"(let-values(((fold-var_252) fold-var_250))" -"(let-values(((fold-var_253)" +"(let-values(((fold-var_252)" +"(let-values(((fold-var_253) fold-var_251))" +"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" @@ -42236,13 +42228,13 @@ static const char *startup_source = " name_61)" "(new-scope" " 'macro)))))" -" fold-var_252))))" -"(values fold-var_253)))))" +" fold-var_253))))" +"(values fold-var_254)))))" "(if(not #f)" -"(for-loop_217 fold-var_251(+ pos_106 inc_23))" -" fold-var_251)))" -" fold-var_250)))))" -" for-loop_217)" +"(for-loop_218 fold-var_252(+ pos_106 inc_23))" +" fold-var_252)))" +" fold-var_251)))))" +" for-loop_218)" " null" " start_39))))))" "(begin" @@ -42634,29 +42626,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_254 i_163)" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_255 i_162)" "(begin" " 'for-loop" -"(if i_163" +"(if i_162" "(let-values(((phase_118 ids_29)" -"(hash-iterate-key+value ht_136 i_163)))" +"(hash-iterate-key+value ht_136 i_162)))" "(let-values(((fold-var_203)" -"(let-values(((fold-var_255) fold-var_254))" -"(let-values(((fold-var_256)" +"(let-values(((fold-var_256) fold-var_255))" +"(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()" "(cons phase_118 ids_29))" -" fold-var_255))))" -"(values fold-var_256)))))" +" fold-var_256))))" +"(values fold-var_257)))))" "(if(not #f)" -"(for-loop_260" +"(for-loop_261" " fold-var_203" -"(hash-iterate-next ht_136 i_163))" +"(hash-iterate-next ht_136 i_162))" " fold-var_203)))" -" fold-var_254)))))" -" for-loop_260)" +" fold-var_255)))))" +" for-loop_261)" " null" "(hash-iterate-first ht_136)))))" " #f)))))))))))))" @@ -42733,16 +42725,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_257 i_164)" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_258 i_163)" "(begin" " 'for-loop" -"(if i_164" +"(if i_163" "(let-values(((phase_119 syms_21)" -"(hash-iterate-key+value ht_141 i_164)))" -"(let-values(((fold-var_258)" -"(let-values(((fold-var_259) fold-var_257))" -"(let-values(((fold-var_260)" +"(hash-iterate-key+value ht_141 i_163)))" +"(let-values(((fold-var_259)" +"(let-values(((fold-var_260) fold-var_258))" +"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" @@ -42758,8 +42750,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_142)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_261" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_262" " i_12)" "(begin" " 'for-loop" @@ -42768,37 +42760,37 @@ static const char *startup_source = "(hash-iterate-key" " ht_142" " i_12)))" -"(let-values(((fold-var_262)" "(let-values(((fold-var_263)" -" fold-var_261))" "(let-values(((fold-var_264)" +" fold-var_262))" +"(let-values(((fold-var_265)" "(let-values()" "(cons" "(let-values()" " sym_74)" -" fold-var_263))))" +" fold-var_264))))" "(values" -" fold-var_264)))))" +" fold-var_265)))))" "(if(not" " #f)" -"(for-loop_262" -" fold-var_262" +"(for-loop_263" +" fold-var_263" "(hash-iterate-next" " ht_142" " i_12))" -" fold-var_262)))" -" fold-var_261)))))" -" for-loop_262)" +" fold-var_263)))" +" fold-var_262)))))" +" for-loop_263)" " null" "(hash-iterate-first" " ht_142)))))))" -" fold-var_259))))" -"(values fold-var_260)))))" +" fold-var_260))))" +"(values fold-var_261)))))" "(if(not #f)" -"(for-loop_261 fold-var_258(hash-iterate-next ht_141 i_164))" -" fold-var_258)))" -" fold-var_257)))))" -" for-loop_261)" +"(for-loop_262 fold-var_259(hash-iterate-next ht_141 i_163))" +" fold-var_259)))" +" fold-var_258)))))" +" for-loop_262)" " null" "(hash-iterate-first ht_141))))))))))))))))" "(define-values" @@ -42818,28 +42810,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_263)" -"(lambda(fold-var_265 i_165)" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_266 i_164)" "(begin" " 'for-loop" -"(if i_165" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_165)))" -"(let-values(((fold-var_266)" -"(let-values(((fold-var_267) fold-var_265))" +"(if i_164" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_164)))" +"(let-values(((fold-var_267)" +"(let-values(((fold-var_268) fold-var_266))" "(if(eq? kind_8 'module)" -"(let-values(((fold-var_268) fold-var_267))" -"(let-values(((fold-var_269)" +"(let-values(((fold-var_269) fold-var_268))" +"(let-values(((fold-var_270)" "(let-values()" "(cons" "(let-values() name_62)" +" fold-var_269))))" +"(values fold-var_270)))" " fold-var_268))))" -"(values fold-var_269)))" -" fold-var_267))))" "(if(not #f)" -"(for-loop_263 fold-var_266(hash-iterate-next ht_143 i_165))" -" fold-var_266)))" -" fold-var_265)))))" -" for-loop_263)" +"(for-loop_264 fold-var_267(hash-iterate-next ht_143 i_164))" +" fold-var_267)))" +" fold-var_266)))))" +" for-loop_264)" " null" "(hash-iterate-first ht_143))))))))))))" "(define-values" @@ -42909,13 +42901,13 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_137)" +"(lambda(v_138)" "(begin" -"(if(srcloc? v_137)" +"(if(srcloc? v_138)" "(let-values()" "(let-values(((the-struct_35) empty-syntax))" "(if(syntax?$1 the-struct_35)" -"(let-values(((srcloc1_2) v_137))" +"(let-values(((srcloc1_2) v_138))" "(syntax1.1" "(syntax-content the-struct_35)" "(syntax-scopes the-struct_35)" @@ -42926,19 +42918,19 @@ static const char *startup_source = "(syntax-props the-struct_35)" "(syntax-inspector the-struct_35)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))" -"(if(pair? v_137)" -"(let-values()(to-srcloc-stx(list->vector v_137)))" -"(if(vector? v_137)" +"(if(pair? v_138)" +"(let-values()(to-srcloc-stx(list->vector v_138)))" +"(if(vector? v_138)" "(let-values()" "(let-values(((the-struct_36) empty-syntax))" "(if(syntax?$1 the-struct_36)" "(let-values(((srcloc2_0)" "(srcloc" -"(vector-ref v_137 0)" -"(vector-ref v_137 1)" -"(vector-ref v_137 2)" -"(vector-ref v_137 3)" -"(vector-ref v_137 4))))" +"(vector-ref v_138 0)" +"(vector-ref v_138 1)" +"(vector-ref v_138 2)" +"(vector-ref v_138 3)" +"(vector-ref v_138 4))))" "(syntax1.1" "(syntax-content the-struct_36)" "(syntax-scopes the-struct_36)" @@ -42949,7 +42941,7 @@ static const char *startup_source = "(syntax-props the-struct_36)" "(syntax-inspector the-struct_36)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))" -"(let-values() v_137)))))))" +"(let-values() v_138)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -43702,7 +43694,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_297)))" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_265)" "(lambda(lst_298)" "(begin" " 'for-loop" @@ -43767,11 +43759,11 @@ static const char *startup_source = " lst_222)))))" "(if(not" " #f)" -"(for-loop_264" +"(for-loop_265" " rest_171)" "(values))))" "(values))))))" -" for-loop_264)" +" for-loop_265)" " lst_297)))" "(void)" "(let-values(((lst_273)" @@ -43853,15 +43845,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_265)" -"(lambda(i_166)" +"((letrec-values(((for-loop_266)" +"(lambda(i_165)" "(begin" " 'for-loop" -"(if i_166" +"(if i_165" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" " ht_145" -" i_166)))" +" i_165)))" "(let-values((()" "(let-values(((ht_146)" " phases_0))" @@ -43872,7 +43864,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_146)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_251)" "(lambda(i_46)" "(begin" " 'for-loop" @@ -43950,21 +43942,21 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_250" +"(for-loop_251" "(hash-iterate-next" " ht_146" " i_46))" "(values))))" "(values))))))" -" for-loop_250)" +" for-loop_251)" "(hash-iterate-first" " ht_146))))))" "(if(not #f)" -"(for-loop_265" -"(hash-iterate-next ht_145 i_166))" +"(for-loop_266" +"(hash-iterate-next ht_145 i_165))" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_266)" "(hash-iterate-first ht_145))))" "(values))))" "(let-values()" @@ -43982,7 +43974,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_147)))" -"((letrec-values(((for-loop_266)" +"((letrec-values(((for-loop_267)" "(lambda(i_21)" "(begin" " 'for-loop" @@ -44001,11 +43993,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_266" +"(for-loop_267" "(hash-iterate-next ht_147 i_21))" "(values))))" "(values))))))" -" for-loop_266)" +" for-loop_267)" "(hash-iterate-first ht_147))))" "(void))))))))))))))))))))))))" "(define-values" @@ -44060,41 +44052,41 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_148)))" -"((letrec-values(((for-loop_113)" -"(lambda(fold-var_237 i_167)" +"((letrec-values(((for-loop_114)" +"(lambda(fold-var_238 i_166)" "(begin" " 'for-loop" -"(if i_167" +"(if i_166" "(let-values(((sc_36)" "(unsafe-immutable-hash-iterate-key" " ht_148" -" i_167)))" -"(let-values(((fold-var_215)" +" i_166)))" "(let-values(((fold-var_216)" -" fold-var_237))" +"(let-values(((fold-var_217)" +" fold-var_238))" "(if(equal?" " sc_36" " post-scope_1)" -" fold-var_216" -"(let-values(((fold-var_217)" -" fold-var_216))" +" fold-var_217" "(let-values(((fold-var_218)" +" fold-var_217))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" " sc_36)" -" fold-var_217))))" +" fold-var_218))))" "(values" -" fold-var_218)))))))" +" fold-var_219)))))))" "(if(not #f)" -"(for-loop_113" -" fold-var_215" +"(for-loop_114" +" fold-var_216" "(unsafe-immutable-hash-iterate-next" " ht_148" -" i_167))" -" fold-var_215)))" -" fold-var_237)))))" -" for-loop_113)" +" i_166))" +" fold-var_216)))" +" fold-var_238)))))" +" for-loop_114)" " null" "(unsafe-immutable-hash-iterate-first ht_148)))))))" "(let-values(((add-ns-scopes_0)" @@ -44433,7 +44425,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_196" +"(let-values(((v_197" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44457,7 +44449,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_196)" +"(if(variable? v_197)" "(void)" "(let-values()" "(escape_0" @@ -44851,7 +44843,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_165)))" "((letrec-values(((for-loop_5)" -"(lambda(fold-var_270 lst_299)" +"(lambda(fold-var_271 lst_299)" "(begin" " 'for-loop" "(if(pair? lst_299)" @@ -44859,22 +44851,22 @@ static const char *startup_source = "(unsafe-car lst_299))" "((rest_87)" "(unsafe-cdr lst_299)))" -"(let-values(((fold-var_161)" "(let-values(((fold-var_162)" -" fold-var_270))" "(let-values(((fold-var_163)" +" fold-var_271))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" "(loop_100" " e_74))" -" fold-var_162))))" +" fold-var_163))))" "(values" -" fold-var_163)))))" +" fold-var_164)))))" "(if(not #f)" -"(for-loop_5 fold-var_161 rest_87)" -" fold-var_161)))" -" fold-var_270)))))" +"(for-loop_5 fold-var_162 rest_87)" +" fold-var_162)))" +" fold-var_271)))))" " for-loop_5)" " null" " lst_165)))))" @@ -45188,13 +45180,13 @@ static const char *startup_source = "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_197) ctx_68))" -"(let-values(((the-struct_71) v_197))" +"(let-values(((v_198) ctx_68))" +"(let-values(((the-struct_71) v_198))" "(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_197)))" +" v_198)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase135_1)" @@ -45307,15 +45299,15 @@ static const char *startup_source = "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" " s_460" -"(let-values(((v_198) tl-ctx_0))" -"(let-values(((the-struct_73) v_198))" +"(let-values(((v_199) tl-ctx_0))" +"(let-values(((the-struct_73) v_199))" "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" "(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_198)))" +" v_199)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase141_0)" @@ -45734,8 +45726,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_205)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_271" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_272" " lst_300)" "(begin" " 'for-loop" @@ -45747,9 +45739,9 @@ static const char *startup_source = "((rest_112)" "(unsafe-cdr" " lst_300)))" -"(let-values(((fold-var_254)" -"(let-values(((fold-var_272)" -" fold-var_271))" +"(let-values(((fold-var_255)" +"(let-values(((fold-var_273)" +" fold-var_272))" "(let-values(((fold-var_201)" "(let-values()" "(cons" @@ -45770,17 +45762,17 @@ static const char *startup_source = " next-phase_0" " next-ns_0" " #f)))" -" fold-var_272))))" +" fold-var_273))))" "(values" " fold-var_201)))))" "(if(not" " #f)" -"(for-loop_267" -" fold-var_254" +"(for-loop_268" +" fold-var_255" " rest_112)" -" fold-var_254)))" -" fold-var_271)))))" -" for-loop_267)" +" fold-var_255)))" +" fold-var_272)))))" +" for-loop_268)" " null" " lst_205))))))" "(if wrap_2" @@ -45845,12 +45837,12 @@ static const char *startup_source = "(let-values(((exp-s_8)" "(let-values(((s155_0) s_343)" "((temp156_0)" -"(let-values(((v_199) ctx_27))" -"(let-values(((the-struct_75) v_199))" +"(let-values(((v_200) ctx_27))" +"(let-values(((the-struct_75) v_200))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_199)))" +"(root-expand-context/outer-inner v_200)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" @@ -46008,25 +46000,25 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_273 lst_302)" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_274 lst_302)" "(begin" " 'for-loop" "(if(pair? lst_302)" "(let-values(((req_19)(unsafe-car lst_302))" "((rest_173)(unsafe-cdr lst_302)))" -"(let-values(((fold-var_274)" -"(let-values(((fold-var_275) fold-var_273))" -"(let-values(((fold-var_276)" +"(let-values(((fold-var_275)" +"(let-values(((fold-var_276) fold-var_274))" +"(let-values(((fold-var_277)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_275))))" -"(values fold-var_276)))))" -"(if(not #f)(for-loop_268 fold-var_274 rest_173) fold-var_274)))" -" fold-var_273)))))" -" for-loop_268)" +" fold-var_276))))" +"(values fold-var_277)))))" +"(if(not #f)(for-loop_269 fold-var_275 rest_173) fold-var_275)))" +" fold-var_274)))))" +" for-loop_269)" " null" " lst_301))))" "(reverse$1" @@ -46035,16 +46027,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_303)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_277 lst_304)" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_278 lst_304)" "(begin" " 'for-loop" "(if(pair? lst_304)" "(let-values(((ids+syms+rhs_0)(unsafe-car lst_304))" "((rest_174)(unsafe-cdr lst_304)))" -"(let-values(((fold-var_278)" -"(let-values(((fold-var_279) fold-var_277))" -"(let-values(((fold-var_280)" +"(let-values(((fold-var_279)" +"(let-values(((fold-var_280) fold-var_278))" +"(let-values(((fold-var_281)" "(let-values()" "(cons" "(let-values()" @@ -46083,11 +46075,11 @@ static const char *startup_source = " \"lifted-parsed-begin?\"" " the-struct_77)))" " dv_0)))))" -" fold-var_279))))" -"(values fold-var_280)))))" -"(if(not #f)(for-loop_269 fold-var_278 rest_174) fold-var_278)))" -" fold-var_277)))))" -" for-loop_269)" +" fold-var_280))))" +"(values fold-var_281)))))" +"(if(not #f)(for-loop_270 fold-var_279 rest_174) fold-var_279)))" +" fold-var_278)))))" +" for-loop_270)" " null" " lst_303)))))" " exp-s_9))))))))))" @@ -46634,13 +46626,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_270)" -"(lambda(result_116 i_168)" +"((letrec-values(((for-loop_271)" +"(lambda(result_116 i_167)" "(begin" " 'for-loop" -"(if i_168" +"(if i_167" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_149 i_168)))" +"(hash-iterate-key+value ht_149 i_167)))" "(let-values(((result_117)" "(let-values()" "(let-values(((result_118)" @@ -46666,12 +46658,12 @@ static const char *startup_source = "(if(if(not((lambda x_83(not result_117)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_270" +"(for-loop_271" " result_117" -"(hash-iterate-next ht_149 i_168))" +"(hash-iterate-next ht_149 i_167))" " result_117)))" " result_116)))))" -" for-loop_270)" +" for-loop_271)" " #t" "(hash-iterate-first ht_149))))" " #f))))))" @@ -46702,31 +46694,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_271)" -"(lambda(table_209 i_169)" +"((letrec-values(((for-loop_272)" +"(lambda(table_208 i_168)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((k_36 v_200)(hash-iterate-key+value ht_150 i_169)))" +"(if i_168" +"(let-values(((k_36 v_201)(hash-iterate-key+value ht_150 i_168)))" +"(let-values(((table_209)" +"(let-values(((table_179) table_208))" "(let-values(((table_210)" -"(let-values(((table_180) table_209))" -"(let-values(((table_211)" "(let-values()" "(let-values(((key_82 val_77)" "(let-values()" "(values" " k_36" -"(to-path v_200)))))" +"(to-path v_201)))))" "(hash-set" -" table_180" +" table_179" " key_82" " val_77)))))" -"(values table_211)))))" +"(values table_210)))))" "(if(not #f)" -"(for-loop_271 table_210(hash-iterate-next ht_150 i_169))" -" table_210)))" -" table_209)))))" -" for-loop_271)" +"(for-loop_272 table_209(hash-iterate-next ht_150 i_168))" +" table_209)))" +" table_208)))))" +" for-loop_272)" " '#hash()" "(hash-iterate-first ht_150)))))))))" " l_8)))))))" @@ -46769,17 +46761,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_201)" +"(lambda(v_202)" "(begin" "(if((lambda(v_69)" "(let-values(((or-part_32)(eq? v_69 'modify-seconds)))" "(if or-part_32 or-part_32(eq? v_69 'exists))))" -" v_201)" +" v_202)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_201)))" -" v_201))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_202)))" +" v_202))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_202)(if v_202 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_203)(if v_203 #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)" @@ -47160,7 +47152,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_203)" +"(let-values(((v_204)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" @@ -47177,7 +47169,7 @@ static const char *startup_source = "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_203)" +"(if(if(list? v_204)" "(andmap2" "(lambda(p_66)" "(if(list? p_66)" @@ -47198,7 +47190,7 @@ static const char *startup_source = " #f)" " #f)" " #f))" -" v_203)" +" v_204)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -47236,8 +47228,8 @@ static const char *startup_source = "(let-values()(hash-set! ht_151 #f null)))" "(hash-for-each" " ht_151" -"(lambda(k_38 v_204)" -"(hash-set! ht_151 k_38(cons dir_1 v_204))))))" +"(lambda(k_38 v_205)" +"(hash-set! ht_151 k_38(cons dir_1 v_205))))))" "(let-values()" "(let-values(((s_483)(string->symbol(car p_67))))" "(hash-set!" @@ -47245,10 +47237,10 @@ static const char *startup_source = " s_483" "(cons(box dir_1)(hash-ref ht_151 s_483 null)))))))))" "(void)))" -" v_203)" +" v_204)" "(hash-for-each" " ht_151" -"(lambda(k_39 v_205)(hash-set! ht_151 k_39(reverse$1 v_205))))" +"(lambda(k_39 v_206)(hash-set! ht_151 k_39(reverse$1 v_206))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_151))" " ht_151))))))))))))))))))))))" "(define-values" @@ -47490,13 +47482,13 @@ static const char *startup_source = "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_206)" +"(let-values(((v_207)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_206" +"(if v_207" "(cons" "(simplify-path" -"(path->complete-path v_206(current-directory)))" +"(path->complete-path v_207(current-directory)))" "(loop_105(cdr l_83)))" "(loop_105(cdr l_83))))))))))" " loop_105)" @@ -47516,14 +47508,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_207)" +"(lambda(v_208)" "(begin" "(if((lambda(x_84)" "(let-values(((or-part_11)(not x_84)))(if or-part_11 or-part_11(prop:readtable? x_84))))" -" v_207)" +" v_208)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_207)))" -" v_207))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_208)))" +" v_208))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47650,43 +47642,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_27)(begin(read-config/outer-wrap v_27))))" -"(define-values(read-config-line)(lambda(v_208)(begin(read-config/outer-line v_208))))" -"(define-values(read-config-col)(lambda(v_209)(begin(read-config/outer-col v_209))))" -"(define-values(read-config-pos)(lambda(v_210)(begin(read-config/outer-pos v_210))))" -"(define-values(read-config-indentations)(lambda(v_211)(begin(read-config/outer-indentations v_211))))" +"(define-values(read-config-line)(lambda(v_209)(begin(read-config/outer-line v_209))))" +"(define-values(read-config-col)(lambda(v_210)(begin(read-config/outer-col v_210))))" +"(define-values(read-config-pos)(lambda(v_211)(begin(read-config/outer-pos v_211))))" +"(define-values(read-config-indentations)(lambda(v_212)(begin(read-config/outer-indentations v_212))))" "(define-values(read-config-keep-comment?)(lambda(v_98)(begin(read-config/outer-keep-comment? v_98))))" "(define-values" "(read-config-readtable)" -"(lambda(v_212)(begin(read-config/inner-readtable(read-config/outer-inner v_212)))))" +"(lambda(v_213)(begin(read-config/inner-readtable(read-config/outer-inner v_213)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_213)(begin(read-config/inner-next-readtable(read-config/outer-inner v_213)))))" +"(lambda(v_214)(begin(read-config/inner-next-readtable(read-config/outer-inner v_214)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_214)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_214)))))" +"(lambda(v_215)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_215)))))" "(define-values(read-config-source)(lambda(v_76)(begin(read-config/inner-source(read-config/outer-inner v_76)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_215)(begin(read-config/inner-read-compiled(read-config/outer-inner v_215)))))" +"(lambda(v_216)(begin(read-config/inner-read-compiled(read-config/outer-inner v_216)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_216)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_216)))))" +"(lambda(v_217)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_217)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_217)(begin(read-config/inner-module-declared?(read-config/outer-inner v_217)))))" +"(lambda(v_218)(begin(read-config/inner-module-declared?(read-config/outer-inner v_218)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" +"(lambda(v_207)(begin(read-config/inner-coerce(read-config/outer-inner v_207)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_218)(begin(read-config/inner-coerce-key(read-config/outer-inner v_218)))))" +"(lambda(v_219)(begin(read-config/inner-coerce-key(read-config/outer-inner v_219)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_219)(begin(read-config/inner-parameter-override(read-config/outer-inner v_219)))))" +"(lambda(v_220)(begin(read-config/inner-parameter-override(read-config/outer-inner v_220)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_40)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_40)))))" -"(define-values(read-config-st)(lambda(v_220)(begin(read-config/inner-st(read-config/outer-inner v_220)))))" +"(define-values(read-config-st)(lambda(v_221)(begin(read-config/inner-st(read-config/outer-inner v_221)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47765,7 +47757,7 @@ static const char *startup_source = " or-part_177" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_220) coerce_1))" -"(if or-part_220 or-part_220(lambda(for-syntax?_2 v_143 srcloc_9) v_143)))" +"(if or-part_220 or-part_220(lambda(for-syntax?_2 v_144 srcloc_9) v_144)))" "(let-values(((or-part_305) coerce-key_1))" "(if or-part_305 or-part_305(lambda(for-syntax?_3 v_102) v_102)))" " #f" @@ -47792,13 +47784,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_221) config_0))" -"(let-values(((the-struct_78) v_221))" +"(let-values(((v_222) config_0))" +"(let-values(((the-struct_78) v_222))" "(if(read-config/outer? the-struct_78)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_221)))" +"(let-values(((the-struct_79)(read-config/outer-inner v_222)))" "(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -47860,13 +47852,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_222) config_2))" -"(let-values(((the-struct_80) v_222))" +"(let-values(((v_223) config_2))" +"(let-values(((the-struct_80) v_223))" "(if(read-config/outer? the-struct_80)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_222)))" +"((inner65_0)(read-config/outer-inner v_223)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_80)" @@ -47880,10 +47872,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_223) config_3))" -"(let-values(((the-struct_81) v_223))" +"(let-values(((v_224) config_3))" +"(let-values(((the-struct_81) v_224))" "(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_223)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -47897,10 +47889,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_224) config_4))" -"(let-values(((the-struct_82) v_224))" +"(let-values(((v_225) config_4))" +"(let-values(((the-struct_82) v_225))" "(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_224)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_225)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_82)" @@ -47937,11 +47929,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_225) config_6))" -"(let-values(((the-struct_84) v_225))" +"(let-values(((v_226) config_6))" +"(let-values(((the-struct_84) v_226))" "(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_225)))" +"(let-values(((the-struct_85)(read-config/outer-inner v_226)))" "(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -47978,26 +47970,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_226)(begin 'default-reader-guard v_226)))" +"(define-values(default-reader-guard$1)(lambda(v_227)(begin 'default-reader-guard v_227)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_227)" +"(lambda(v_228)" "(begin" -"(if(if(procedure? v_227)(procedure-arity-includes? v_227 1) #f)" +"(if(if(procedure? v_228)(procedure-arity-includes? v_228 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_227)))" -" v_227))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_228)))" +" v_228))))" "(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_228)(if v_228 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_229)(if v_229 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_229)(if v_229 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_230)(if v_230 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_66)(if v_66 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_67)(if v_67 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_230)(if v_230 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -48018,11 +48010,11 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_30)" "(begin" -"(let-values(((v_232) config_9))" -"(let-values(((the-struct_86) v_232))" +"(let-values(((v_233) config_9))" +"(let-values(((the-struct_86) v_233))" "(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_232)))" +"(let-values(((the-struct_87)(read-config/outer-inner v_233)))" "(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_30)))" @@ -48373,7 +48365,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_233)" +"(let-values(((v_234)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48395,7 +48387,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_233) v_233(coerce v_233 in_3 config_14)))))))" +"(if(1/special-comment? v_234) v_234(coerce v_234 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48437,26 +48429,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_154)))" -"((letrec-values(((for-loop_272)" -"(lambda(fold-var_84 i_170)" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_85 i_169)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((k_40 v_94)(hash-iterate-key+value ht_154 i_170)))" -"(let-values(((fold-var_281)" -"(let-values(((fold-var_87) fold-var_84))" +"(if i_169" +"(let-values(((k_40 v_94)(hash-iterate-key+value ht_154 i_169)))" +"(let-values(((fold-var_282)" +"(let-values(((fold-var_88) fold-var_85))" "(if(eqv? v_94 c_64)" -"(let-values(((fold-var_236) fold-var_87))" +"(let-values(((fold-var_237) fold-var_88))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_40) fold-var_236))))" +"(cons(let-values() k_40) fold-var_237))))" "(values fold-var_13)))" -" fold-var_87))))" +" fold-var_88))))" "(if(not #f)" -"(for-loop_272 fold-var_281(hash-iterate-next ht_154 i_170))" -" fold-var_281)))" -" fold-var_84)))))" -" for-loop_272)" +"(for-loop_273 fold-var_282(hash-iterate-next ht_154 i_169))" +" fold-var_282)))" +" fold-var_85)))))" +" for-loop_273)" " null" "(hash-iterate-first ht_154))))))))))" "(define-values" @@ -48714,13 +48706,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_234)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_235)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_234)" +"(if(eof-object? v_235)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_234)" +"((v3_0) v_235)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -49190,14 +49182,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_235) elem-config_0))" -"(let-values(((the-struct_88) v_235))" +"(let-values(((v_236) elem-config_0))" +"(let-values(((the-struct_88) v_236))" "(if(read-config/outer? the-struct_88)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_235)))" +"((inner21_0)(read-config/outer-inner v_236)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_88)" @@ -49338,7 +49330,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_236)" +"(let-values(((v_237)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49359,11 +49351,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_236" +" v_237" "(append" "(reverse$1" " accum_0)" -" v_236)))" +" v_237)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49402,7 +49394,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_236))" +" v_237))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49487,12 +49479,12 @@ static const char *startup_source = " temp40_2" "(list)))))))))))))" "(let-values()" -"(let-values(((v_237)" +"(let-values(((v_137)" "(read-one/not-eof_0" " c_74" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_237)" +"(if(1/special-comment? v_137)" "(let-values()" "(loop_109" " depth_11" @@ -49504,13 +49496,13 @@ static const char *startup_source = "(let-values()" "(loop_109" " depth_11" -"(cons v_237 accum_0)" +"(cons v_137 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_237" +" v_137" "(loop_109" "(add1 depth_11)" " null" @@ -49566,11 +49558,11 @@ static const char *startup_source = "(consume-char in_6 c_68)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))" "((letrec-values(((loop_110)" -"(lambda(v_200 max-count_1)" +"(lambda(v_201 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_200)" +"(let-values() v_201)" "(let-values()" "(let-values(((c_76)" "(let-values(((in_25) in_6)" @@ -49594,9 +49586,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_76))" "(void))" "(loop_110" -"(+(digit->number c_76)(* v_200 base_15))" +"(+(digit->number c_76)(* v_201 base_15))" "(sub1 max-count_1))))" -"(let-values() v_200)))))))))" +"(let-values() v_201)))))))))" " loop_110)" "(+(digit->number c_68)(* init-v_0 base_15))" "(sub1 max-count_0))))" @@ -49729,8 +49721,8 @@ static const char *startup_source = " (let-values () (format \"no character after `#` indicator in `~.a`\" s_17))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_171)(string-ref s_17 next_4)))" -"(let-values(((tmp_38) i_171))" +"(let-values(((i_170)(string-ref s_17 next_4)))" +"(let-values(((tmp_38) i_170))" "(let-values(((index_2)" "(if(char? tmp_38)" "(let-values(((codepoint_0)(char->integer tmp_38)))" @@ -49804,7 +49796,7 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_171" +" i_170" "(substring s_17 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" @@ -49826,10 +49818,10 @@ static const char *startup_source = "((radix-set?77_0) radix-set?_0)" "((temp78_2)" "(if(let-values(((or-part_210)" -"(char=? i_171 '#\\e)))" +"(char=? i_170 '#\\e)))" "(if or-part_210" " or-part_210" -"(char=? i_171 '#\\E)))" +"(char=? i_170 '#\\E)))" " 'exact" " 'inexact))" "((temp79_0)" @@ -49857,7 +49849,7 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_171))" +"(let-values(((tmp_39) i_170))" "(if(if(equal? tmp_39 '#\\b)" " #t" "(equal? tmp_39 '#\\B))" @@ -49973,8 +49965,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_0)" -"(lambda(v2_2 v_215)" -"(begin 'temp105(make-rectangular v_215 v2_2)))))" +"(lambda(v2_2 v_216)" +"(begin 'temp105(make-rectangular v_216 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -50002,7 +49994,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_217)" +"((lambda(v_218)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -50010,10 +50002,10 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_217)" +"((v113_0) v_218)" "((temp114_3)" -"(lambda(v_141 v2_3)" -"(begin 'temp114(make-polar v_141 v2_3)))))" +"(lambda(v_142 v2_3)" +"(begin 'temp114(make-polar v_142 v2_3)))))" "(read-for-special-compound62.1" " temp112_1" " #f" @@ -50097,7 +50089,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode29_0))" "(let-values()" "((letrec-values(((loop_111)" -"(lambda(i_172" +"(lambda(i_171" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50109,7 +50101,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_172 end_34)" +"(if(= i_171 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -50208,11 +50200,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_79)(string-ref s_456 i_172)))" +"(let-values(((c_79)(string-ref s_456 i_171)))" "(if(digit? c_79 radix_5)" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " #t" " any-hashes?_0" " i-pos_3" @@ -50225,7 +50217,7 @@ static const char *startup_source = "(if(char=? c_79 '#\\#)" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " #t" " #t" " i-pos_3" @@ -50247,20 +50239,20 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_172" +" i_171" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_172 start_44)" +"(if(> i_171 start_44)" "(let-values(((or-part_315)(not @-pos_0)))" "(if or-part_315" " or-part_315" -"(> i_172(add1 @-pos_0))))" +"(> i_171(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" @@ -50302,13 +50294,13 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_172" +" i_171" " #f" " #f" " must-i?_0)))))" @@ -50353,14 +50345,14 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_172" +" i_171" " #f" " must-i?_0)))))" "(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" @@ -50428,12 +50420,12 @@ static const char *startup_source = " c_79" "(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_172) end_34)" -"(char-sign?(string-ref s_456(add1 i_172)))" +"(if(if(<(add1 i_171) end_34)" +"(char-sign?(string-ref s_456(add1 i_171)))" " #f)" "(let-values()" "(loop_111" -"(+ i_172 2)" +"(+ i_171 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50442,11 +50434,11 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_172))" +"(if or-part_330 or-part_330 i_171))" " must-i?_0))" "(let-values()" "(loop_111" -"(+ i_172 1)" +"(+ i_171 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50455,7 +50447,7 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_331) exp-pos_0))" -"(if or-part_331 or-part_331 i_172))" +"(if or-part_331 or-part_331 i_171))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50478,7 +50470,7 @@ static const char *startup_source = " \"too many `@`s in `~.a`\"" "(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_172 start_44)" +"(if(= i_171 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -50496,11 +50488,11 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_172" +" i_171" " #f" " #f" " #f" @@ -50526,7 +50518,7 @@ static const char *startup_source = "(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_334)" -"(<(add1 i_172) end_34)))" +"(<(add1 i_171) end_34)))" "(if or-part_334" " or-part_334" "(eq? in-complex_1 'i)))" @@ -50539,10 +50531,10 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_172)" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" -" i_172" +" i_171" " @-pos_0" " sign-pos_0" " #f" @@ -50902,10 +50894,10 @@ static const char *startup_source = "(if or-part_186 or-part_186(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_112)" -"(lambda(i_173 j_3 hashes-pos_0)" +"(lambda(i_172 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_173 start_46)" +"(if(< i_172 start_46)" "(let-values()" "(if(= hashes-pos_0 start_46)" "(let-values()" @@ -50926,38 +50918,38 @@ static const char *startup_source = "(let-values()(/ n_34(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_34))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_487 i_173)))" +"(let-values(((c_80)(string-ref s_487 i_172)))" "(if(char=? c_80 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_112" -"(sub1 i_173)" +"(sub1 i_172)" " j_3" -"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_172)) i_172 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" "(loop_112" -"(sub1 i_173)" +"(sub1 i_172)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))" +"(if(= hashes-pos_0(add1 i_172)) i_172 hashes-pos_0))))))" "(if(let-values(((or-part_347)(char=? c_80 '#\\-)))" "(if or-part_347 or-part_347(char=? c_80 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" "(loop_112" -"(sub1 i_173)" +"(sub1 i_172)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_172)) i_172 hashes-pos_0))))" "(if(char=? c_80 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_173))" +"(if(= hashes-pos_0(add1 i_172))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_112(sub1 i_173)(sub1 j_3) i_173)))" +"(loop_112(sub1 i_172)(sub1 j_3) i_172)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" @@ -50968,7 +50960,7 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_112(sub1 i_173)(sub1 j_3) hashes-pos_0)))))))))))))" +"(loop_112(sub1 i_172)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_112)" "(sub1 end_36)" "(sub1(string-length new-str_0))" @@ -51130,7 +51122,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_274)" "(lambda(result_121 idx_5)" "(begin" " 'for-loop" @@ -51142,10 +51134,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_81 '#\\#)))))" "(values result_123)))))" "(if(if(not((lambda x_88 result_122) c_81))(not #f) #f)" -"(for-loop_273 result_122(unsafe-fx+ idx_5 1))" +"(for-loop_274 result_122(unsafe-fx+ idx_5 1))" " result_122)))" " result_121)))))" -" for-loop_273)" +" for-loop_274)" " #f" " start*_5))))))" "(define-values" @@ -51170,12 +51162,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_274)" +"((letrec-values(((for-loop_275)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_82)(string-ref v*_7 idx_6))((i_124) pos_115))" +"(let-values(((c_82)(string-ref v*_7 idx_6))((i_121) pos_115))" "(let-values((()" "(let-values()" "(let-values((()" @@ -51183,13 +51175,13 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_82 '#\\#)" -"(string-set! new-s_9 i_124 '#\\0)" -"(string-set! new-s_9 i_124 c_82)))" +"(string-set! new-s_9 i_121 '#\\0)" +"(string-set! new-s_9 i_121 c_82)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_274)" +" for-loop_275)" " start*_6" " start_52)))" "(void)" @@ -51584,16 +51576,16 @@ static const char *startup_source = "(begin" "(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_232) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_232)" -"(let-values() v_232)" -"(if(eof-object? v_232)" -"(let-values() v_232)" +" (let-values (((v_233) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_233)" +"(let-values() v_233)" +"(if(eof-object? v_233)" +"(let-values() v_233)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_232))" +"((v4_1) v_233))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51718,7 +51710,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_276)" "(lambda(i_3 lst_104)" "(begin" " 'for-loop" @@ -51729,10 +51721,10 @@ static const char *startup_source = "((rest_144)" "(unsafe-cdr" " lst_104)))" -"(let-values(((i_174)" -"(let-values(((i_96)" +"(let-values(((i_173)" +"(let-values(((i_94)" " i_3))" -"(let-values(((i_175)" +"(let-values(((i_174)" "(let-values()" "(begin" "(let-values(((elem_0)" @@ -51742,30 +51734,30 @@ static const char *startup_source = " elem_0)" "(unsafe-fxvector-set!" " v_35" -" i_96" +" i_94" " elem_0)" "(not-an-fX.1" " 'for*/vector" " elem_0)))" "(unsafe-fx+" " 1" -" i_96)))))" +" i_94)))))" "(values" -" i_175)))))" +" i_174)))))" "(if(if(not" "((lambda x_91" "(unsafe-fx=" -" i_174" +" i_173" " len_37))" " e_78))" "(not #f)" " #f)" -"(for-loop_275" -" i_174" +"(for-loop_276" +" i_173" " rest_144)" -" i_174)))" +" i_173)))" " i_3)))))" -" for-loop_275)" +" for-loop_276)" " 0" " lst_261)))))" " v_35))))))" @@ -51781,7 +51773,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_186)(make-flvector len_38 fill_1)))" +"(let-values(((v_187)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -51806,7 +51798,7 @@ static const char *startup_source = "(let-values(((i_42)" "(let-values(((i_43)" " i_40))" -"(let-values(((i_93)" +"(let-values(((i_153)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -51815,7 +51807,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_186" +" v_187" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -51825,7 +51817,7 @@ static const char *startup_source = " 1" " i_43)))))" "(values" -" i_93)))))" +" i_153)))))" "(if(if(not" "((lambda x_92" "(unsafe-fx=" @@ -51842,7 +51834,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_186))))))" +" v_187))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -51934,7 +51926,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_265)" "(lambda(lst_298 pos_117)" "(begin" " 'for-loop" @@ -51947,7 +51939,7 @@ static const char *startup_source = "((rest_175)" "(unsafe-cdr" " lst_298))" -"((i_176)" +"((i_175)" " pos_117))" "(let-values((()" "(let-values()" @@ -51957,17 +51949,17 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_69" -" i_176" +" i_175" " e_79))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_264" +"(for-loop_265" " rest_175" "(+ pos_117 1))" "(values))))" "(values))))))" -" for-loop_264)" +" for-loop_265)" " lst_8" " start_54)))" "(void)))" @@ -51998,7 +51990,7 @@ static const char *startup_source = "((rest_122)" "(unsafe-cdr" " lst_273))" -"((i_102)" +"((i_99)" " pos_17))" "(let-values((()" "(let-values()" @@ -52008,7 +52000,7 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_69" -" i_102" +" i_99" " e_80))" "(values)))))" "(values)))))" @@ -52036,7 +52028,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_277)" "(lambda(lst_98 pos_118)" "(begin" " 'for-loop" @@ -52065,14 +52057,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" +"(for-loop_277" " rest_176" "(+" " pos_118" " 1))" "(values))))" "(values))))))" -" for-loop_276)" +" for-loop_277)" " lst_305" " start_56)))" "(void)))" @@ -53429,7 +53421,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_201)" +"(let-values(((v_202)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53453,7 +53445,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_201 255)" +"(if(<= v_202 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53495,7 +53487,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_201)))))))))" +" v_202)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" @@ -54016,7 +54008,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_306)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_278)" "(lambda(lst_28)" "(begin" " 'for-loop" @@ -54039,11 +54031,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" +"(for-loop_278" " rest_177)" "(values))))" "(values))))))" -" for-loop_277)" +" for-loop_278)" " lst_306)))" "(void))))" "(if(char=? c_93 '#\\newline)" @@ -54140,7 +54132,7 @@ static const char *startup_source = "(let-values(((in_52) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_52 special1.1 source_6))))" -"(let-values(((v_230)" +"(let-values(((v_231)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -54149,7 +54141,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_230(<= v_230 255) #f)" +"(if(if v_231(<= v_231 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -54168,7 +54160,7 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_6)))))" -"(integer->char v_230))))))" +"(integer->char v_231))))))" "(let-values() c_96))))" "(if(let-values(((or-part_80)(char=? c_96 '#\\u)))" "(if or-part_80 or-part_80(char=? c_96 '#\\U)))" @@ -54943,7 +54935,7 @@ static const char *startup_source = "(let-values(((lst_198) already_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_198)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_205)" "(lambda(lst_307)" "(begin" " 'for-loop" @@ -54958,9 +54950,9 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_102))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_204 rest_178)(values))))" +"(if(not #f)(for-loop_205 rest_178)(values))))" "(values))))))" -" for-loop_204)" +" for-loop_205)" " lst_198)))" "(void)" "((letrec-values(((loop_12)" @@ -56914,23 +56906,23 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_185)))" "((letrec-values(((for-loop_119)" -"(lambda(fold-var_230 lst_285)" +"(lambda(fold-var_231 lst_285)" "(begin" " 'for-loop" "(if(pair? lst_285)" "(let-values(((e_85)(unsafe-car lst_285))" "((rest_162)(unsafe-cdr lst_285)))" -"(let-values(((fold-var_238)" -"(let-values(((fold-var_239) fold-var_230))" -"(let-values(((fold-var_240)" +"(let-values(((fold-var_239)" +"(let-values(((fold-var_240) fold-var_231))" +"(let-values(((fold-var_241)" "(let-values()" "(cons" "(let-values()" "(read-coerce #t e_85 srcloc_12))" -" fold-var_239))))" -"(values fold-var_240)))))" -"(if(not #f)(for-loop_119 fold-var_238 rest_162) fold-var_238)))" -" fold-var_230)))))" +" fold-var_240))))" +"(values fold-var_241)))))" +"(if(not #f)(for-loop_119 fold-var_239 rest_162) fold-var_239)))" +" fold-var_231)))))" " for-loop_119)" " null" " lst_185))))" @@ -57165,15 +57157,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_96)" -"(lambda(table_207 lst_78)" +"(lambda(table_206 lst_78)" "(begin" " 'for-loop" "(if(pair? lst_78)" "(let-values(((sym_67)(unsafe-car lst_78))" "((rest_36)(unsafe-cdr lst_78)))" -"(let-values(((table_170)" -"(let-values(((table_212) table_207))" -"(let-values(((table_213)" +"(let-values(((table_169)" +"(let-values(((table_211) table_206))" +"(let-values(((table_212)" "(let-values()" "(let-values(((key_33" " val_80)" @@ -57210,14 +57202,14 @@ static const char *startup_source = " #f)" " binding_26))))))" "(hash-set" -" table_212" +" table_211" " key_33" " val_80)))))" -"(values table_213)))))" +"(values table_212)))))" "(if(not #f)" -"(for-loop_96 table_170 rest_36)" -" table_170)))" -" table_207)))))" +"(for-loop_96 table_169 rest_36)" +" table_169)))" +" table_206)))))" " for-loop_96)" " '#hash()" " lst_77)))))" @@ -57349,13 +57341,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_234)" +"(lambda(v_235)" "(begin" -"(if(let-values(((or-part_67)(not v_234)))" +"(if(let-values(((or-part_67)(not v_235)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_68)(1/module-path? v_234)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_234)(1/module-path?(syntax->datum$1 v_234)) #f)))))" +"(let-values(((or-part_68)(1/module-path? v_235)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_235)(1/module-path?(syntax->datum$1 v_235)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57364,8 +57356,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_234)))" -" v_234))))" +" v_235)))" +" v_235))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -58521,12 +58513,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_156)))" "((letrec-values(((for-loop_17)" -"(lambda(i_177)" +"(lambda(i_176)" "(begin" " 'for-loop" -"(if i_177" +"(if i_176" "(let-values(((sym_64)" -"(hash-iterate-key ht_156 i_177)))" +"(hash-iterate-key ht_156 i_176)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58539,7 +58531,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_17" -"(hash-iterate-next ht_156 i_177))" +"(hash-iterate-next ht_156 i_176))" "(values))))" "(values))))))" " for-loop_17)" @@ -58552,18 +58544,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_158)))" -"((letrec-values(((for-loop_245)" -"(lambda(table_214 i_100)" +"((letrec-values(((for-loop_246)" +"(lambda(table_213 i_97)" "(begin" " 'for-loop" -"(if i_100" +"(if i_97" "(let-values(((sym_92 val_82)" "(hash-iterate-key+value" " ht_158" -" i_100)))" -"(let-values(((table_215)" +" i_97)))" +"(let-values(((table_214)" "(let-values(((table_10)" -" table_214))" +" table_213))" "(if(set-member?" " skip-syms_0" " sym_92)" @@ -58591,12 +58583,12 @@ static const char *startup_source = " val_5)))))" "(values table_12)))))))" "(if(not #f)" -"(for-loop_245" -" table_215" -"(hash-iterate-next ht_158 i_100))" -" table_215)))" -" table_214)))))" -" for-loop_245)" +"(for-loop_246" +" table_214" +"(hash-iterate-next ht_158 i_97))" +" table_214)))" +" table_213)))))" +" for-loop_246)" " '#hasheq()" "(hash-iterate-first ht_158))))))" "(let-values(((ht+extras_0)" @@ -58605,15 +58597,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_250)" -"(lambda(ht_153 i_171)" +"((letrec-values(((for-loop_251)" +"(lambda(ht_153 i_170)" "(begin" " 'for-loop" -"(if i_171" +"(if i_170" "(let-values(((k_43 v_48)" "(hash-iterate-key+value" " ht_146" -" i_171)))" +" i_170)))" "(let-values(((ht_159)" "(let-values(((ht_160)" " ht_153))" @@ -58625,12 +58617,12 @@ static const char *startup_source = " v_48))))" "(values ht_161)))))" "(if(not #f)" -"(for-loop_250" +"(for-loop_251" " ht_159" -"(hash-iterate-next ht_146 i_171))" +"(hash-iterate-next ht_146 i_170))" " ht_159)))" " ht_153)))))" -" for-loop_250)" +" for-loop_251)" " ht_157" "(hash-iterate-first ht_146))))))" "(let-values(((to-name61_0) to-name_0)" @@ -58675,19 +58667,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_163)))" -"((letrec-values(((for-loop_278)" -"(lambda(table_216 i_178)" +"((letrec-values(((for-loop_279)" +"(lambda(table_215 i_177)" "(begin" " 'for-loop" -"(if i_178" +"(if i_177" "(let-values(((sym_102)" "(hash-iterate-key" " ht_163" -" i_178)))" +" i_177)))" "(let-values(((table_6)" "(let-values(((table_7)" -" table_216))" -"(let-values(((table_217)" +" table_215))" +"(let-values(((table_216)" "(let-values()" "(let-values(((key_86" " val_83)" @@ -58739,16 +58731,16 @@ static const char *startup_source = " key_86" " val_83)))))" "(values" -" table_217)))))" +" table_216)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_279" " table_6" "(hash-iterate-next" " ht_163" -" i_178))" +" i_177))" " table_6)))" -" table_216)))))" -" for-loop_278)" +" table_215)))))" +" for-loop_279)" " '#hash()" "(hash-iterate-first ht_163))))))" "((temp75_4)" @@ -58768,15 +58760,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_279)" -"(lambda(i_179)" +"((letrec-values(((for-loop_280)" +"(lambda(i_178)" "(begin" " 'for-loop" -"(if i_179" +"(if i_178" "(let-values(((sym_103 val_84)" "(hash-iterate-key+value" " ht_164" -" i_179)))" +" i_178)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58791,13 +58783,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_280" "(hash-iterate-next" " ht_164" -" i_179))" +" i_178))" "(values))))" "(values))))))" -" for-loop_279)" +" for-loop_280)" "(hash-iterate-first ht_164))))" "(void)))" "(void)))))" @@ -58840,16 +58832,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_109)))" -"((letrec-values(((for-loop_205)" -"(lambda(fold-var_140 lst_110)" +"((letrec-values(((for-loop_206)" +"(lambda(fold-var_141 lst_110)" "(begin" " 'for-loop" "(if(pair? lst_110)" "(let-values(((require-name_0)(unsafe-car lst_110))" "((rest_109)(unsafe-cdr lst_110)))" "(let-values(((fold-var_39)" -"(let-values(((fold-var_282) fold-var_140))" -"(let-values(((fold-var_283)" +"(let-values(((fold-var_283) fold-var_141))" +"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" @@ -58858,13 +58850,13 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_282))))" -"(values fold-var_283)))))" +" fold-var_283))))" +"(values fold-var_284)))))" "(if(not #f)" -"(for-loop_205 fold-var_39 rest_109)" +"(for-loop_206 fold-var_39 rest_109)" " fold-var_39)))" -" fold-var_140)))))" -" for-loop_205)" +" fold-var_141)))))" +" for-loop_206)" " null" " lst_109))))))" "(let-values(((ns79_1) ns_122)" @@ -58882,8 +58874,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_157)))" -"((letrec-values(((for-loop_280)" -"(lambda(table_218 lst_54)" +"((letrec-values(((for-loop_281)" +"(lambda(table_217 lst_54)" "(begin" " 'for-loop" "(if(pair? lst_54)" @@ -58891,7 +58883,7 @@ static const char *startup_source = "(unsafe-car lst_54))" "((rest_180)" "(unsafe-cdr lst_54)))" -"(let-values(((table_219)" +"(let-values(((table_218)" "(let-values(((m_29)" "(namespace->module" " ns_122" @@ -58900,11 +58892,11 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_185)" -"(lambda(table_140)" +"(lambda(table_139)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_220)" +"(let-values(((table_219)" "(let-values(((ht_165)" "(hash-ref" "(shift-provides-module-path-index" @@ -58921,21 +58913,21 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_165)))" -"((letrec-values(((for-loop_281)" -"(lambda(table_141" -" i_180)" +"((letrec-values(((for-loop_282)" +"(lambda(table_140" +" i_179)" "(begin" " 'for-loop" -"(if i_180" +"(if i_179" "(let-values(((sym_104" " binding_28)" "(hash-iterate-key+value" " ht_165" -" i_180)))" +" i_179)))" "(let-values(((table_31)" "(let-values(((table_32)" -" table_141))" -"(let-values(((table_221)" +" table_140))" +"(let-values(((table_220)" "(let-values()" "(let-values(((key_87" " val_85)" @@ -58948,28 +58940,28 @@ static const char *startup_source = " key_87" " val_85)))))" "(values" -" table_221)))))" +" table_220)))))" "(if(not" " #f)" -"(for-loop_281" +"(for-loop_282" " table_31" "(hash-iterate-next" " ht_165" -" i_180))" +" i_179))" " table_31)))" -" table_141)))))" -" for-loop_281)" -" table_140" +" table_140)))))" +" for-loop_282)" +" table_139" "(hash-iterate-first" " ht_165))))))" -" table_220))))))" +" table_219))))))" " for-loop_185)" -" table_218)))))" +" table_217)))))" "(if(not #f)" -"(for-loop_280 table_219 rest_180)" -" table_219)))" -" table_218)))))" -" for-loop_280)" +"(for-loop_281 table_218 rest_180)" +" table_218)))" +" table_217)))))" +" for-loop_281)" " '#hash()" " lst_157))))" " '#hasheqv()))" @@ -59499,35 +59491,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_129)" +"(lambda(i_126)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_129)))))))" +"(let-values()(port-count-lines! i_126)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_181)" +"(lambda(i_180)" "(begin" -"(maybe-count-lines!_0 i_181)" +"(maybe-count-lines!_0 i_180)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_32)(linklet-directory-start i_181)))" +"(let-values(((c1_32)(linklet-directory-start i_180)))" "(if c1_32" "((lambda(pos_123)" "(let-values(((b-pos_0)" -"(search-directory i_181 pos_123(encode-symbols expected-mod_0))))" +"(search-directory i_180 pos_123(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_181 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_181)))" +"(file-position i_180 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_180)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_181)))" +"(let-values(((v_0)(1/read i_180)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -59536,7 +59528,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_181)" +"(object-name i_180)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -59544,15 +59536,15 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_181)))))))" +"(object-name i_180)))))))" " c1_32)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_181)))" +"(let-values(((c2_17)(cached-bundle i_180)))" "(if c2_17" "((lambda(thunk_8) thunk_8) c2_17)" "(let-values()" -"(let-values(((s_178)(1/read-syntax(object-name i_181) i_181)))" +"(let-values(((s_178)(1/read-syntax(object-name i_180) i_180)))" "(let-values((()" "(begin" "(if(eof-object? s_178)" @@ -59563,11 +59555,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_181)))" +"(object-name i_180)))" "(void))" "(values))))" "(let-values(((m-s_0)(check-module-form s_178 path_12)))" -"(let-values(((s2_10)(1/read-syntax(object-name i_181) i_181)))" +"(let-values(((s2_10)(1/read-syntax(object-name i_180) i_180)))" "(begin" "(if(eof-object? s2_10)" "(void)" @@ -59579,7 +59571,7 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_181)" +"(object-name i_180)" " s2_10)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" @@ -59591,11 +59583,11 @@ static const char *startup_source = "(1/datum->syntax #f(cons '#%top-interaction s_496) s_496))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" -"(lambda(i_182)" +"(lambda(i_181)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_182)" +"(maybe-count-lines!_0 i_181)" "((letrec-values(((loop_35)" "(lambda(vals_7)" "(begin" @@ -59625,11 +59617,11 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_182)" -" i_182)))" +"(object-name i_181)" +" i_181)))" "(1/read-syntax" -"(object-name i_182)" -" i_182))))))" +"(object-name i_181)" +" i_181))))))" "(if(eof-object? s_304)" "(apply values vals_7)" "(loop_35" @@ -59650,14 +59642,14 @@ static const char *startup_source = "(call-with-input-file*61.1 'binary path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_147 tag_1)" +"(lambda(i_144 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(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)" +"(if(equal?(peek-byte i_144)(char->integer '#\\#))" +"(if(equal?(peek-byte i_144 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_144 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_144)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_144(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" @@ -59668,10 +59660,10 @@ static const char *startup_source = "(begin(let-values(((pos_95)(linklet-bundle-or-directory-start i_92 '#\\D)))(if pos_95(+ pos_95 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_183)" +"(lambda(i_182)" "(begin" -"(let-values(((pos_15)(linklet-bundle-or-directory-start i_183 '#\\B)))" -"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_183) #f)))" +"(let-values(((pos_15)(linklet-bundle-or-directory-start i_182 '#\\B)))" +"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_182) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_70 len_37)" @@ -59679,7 +59671,7 @@ static const char *startup_source = "(begin(check-bytes vec_71)(values vec_71(unsafe-bytes-length vec_71))))))" "(begin" " #f" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_234)" "(lambda(result_124 pos_99)" "(begin" " 'for-loop" @@ -59692,10 +59684,10 @@ static const char *startup_source = "(let-values()(not(eq? c_52 0))))))" "(values result_126)))))" "(if(if(not((lambda x_99 result_125) c_52))(not #f) #f)" -"(for-loop_233 result_125(unsafe-fx+ 1 pos_99))" +"(for-loop_234 result_125(unsafe-fx+ 1 pos_99))" " result_125)))" " result_124)))))" -" for-loop_233)" +" for-loop_234)" " #f" " 0)))" " hash-code_5" @@ -59704,9 +59696,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_96)" +"(lambda(i_94)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_96)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" @@ -59715,10 +59707,10 @@ static const char *startup_source = "(lambda(i_62)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_184)" +"(lambda(i_183)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_186)(read-byte i_184)))(if(eof-object? v_186) 0 v_186))))))" +"(let-values(((v_187)(read-byte i_183)))(if(eof-object? v_187) 0 v_187))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59726,14 +59718,14 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_62) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_185 pos_124 bstr_5)" +"(lambda(i_184 pos_124 bstr_5)" "(begin" "(if(zero? pos_124)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_185 pos_124)(values))))" -"(let-values(((name-len_0)(read-number i_185)))" -"(let-values(((v_256)(read-bytes name-len_0 i_185)))" +"(let-values((()(begin(file-position i_184 pos_124)(values))))" +"(let-values(((name-len_0)(read-number i_184)))" +"(let-values(((v_256)(read-bytes name-len_0 i_184)))" "(begin" "(if(if(bytes? v_256)(=(bytes-length v_256) name-len_0) #f)" "(void)" @@ -59746,24 +59738,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_185)" +"(object-name i_184)" " pos_124" " name-len_0" " v_256)))" "(if(bytes=? bstr_5 v_256)" -"(let-values()(read-number i_185))" +"(let-values()(read-number i_184))" "(if(bytessyntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_363))))" -"(values fold-var_364)))))" +" fold-var_364))))" +"(values fold-var_365)))))" "(if(not #f)" -"(for-loop_315 fold-var_362 rest_233 rest_234)" -" fold-var_362)))" -" fold-var_361)))))" -" for-loop_315)" +"(for-loop_316 fold-var_363 rest_233 rest_234)" +" fold-var_363)))" +" fold-var_362)))))" +" for-loop_316)" " null" " lst_394" " lst_395))))" @@ -66416,8 +66408,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_399)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_365 lst_400 lst_401)" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_366 lst_400 lst_401)" "(begin" " 'for-loop" "(if(if(pair? lst_400)(pair? lst_401) #f)" @@ -66425,9 +66417,9 @@ static const char *startup_source = "((rest_235)(unsafe-cdr lst_400))" "((trans-rhs_5)(unsafe-car lst_401))" "((rest_236)(unsafe-cdr lst_401)))" -"(let-values(((fold-var_366)" -"(let-values(((fold-var_367) fold-var_365))" -"(let-values(((fold-var_368)" +"(let-values(((fold-var_367)" +"(let-values(((fold-var_368) fold-var_366))" +"(let-values(((fold-var_369)" "(let-values()" "(cons" "(let-values()" @@ -66436,11 +66428,11 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_40))))" -" fold-var_367))))" -"(values fold-var_368)))))" -"(if(not #f)(for-loop_316 fold-var_366 rest_235 rest_236) fold-var_366)))" -" fold-var_365)))))" -" for-loop_316)" +" fold-var_368))))" +"(values fold-var_369)))))" +"(if(not #f)(for-loop_317 fold-var_367 rest_235 rest_236) fold-var_367)))" +" fold-var_366)))))" +" for-loop_317)" " null" " lst_398" " lst_399))))" @@ -66643,18 +66635,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_369 lst_403)" +"((letrec-values(((for-loop_318)" +"(lambda(fold-var_370 lst_403)" "(begin" " 'for-loop" "(if(pair? lst_403)" "(let-values(((e_90)(unsafe-car lst_403))" "((rest_237)" "(unsafe-cdr lst_403)))" -"(let-values(((fold-var_370)" "(let-values(((fold-var_371)" -" fold-var_369))" "(let-values(((fold-var_372)" +" fold-var_370))" +"(let-values(((fold-var_373)" "(let-values()" "(cons" "(let-values()" @@ -66679,14 +66671,14 @@ static const char *startup_source = " #f" " e255_0" " expr-ctx256_0))))" -" fold-var_371))))" +" fold-var_372))))" "(values" -" fold-var_372)))))" +" fold-var_373)))))" "(if(not #f)" -"(for-loop_317 fold-var_370 rest_237)" -" fold-var_370)))" -" fold-var_369)))))" -" for-loop_317)" +"(for-loop_318 fold-var_371 rest_237)" +" fold-var_371)))" +" fold-var_370)))))" +" for-loop_318)" " null" " lst_402))))))" "(if(expand-context-to-parsed? ctx_85)" @@ -69098,7 +69090,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_405)))" -"((letrec-values(((for-loop_318)" +"((letrec-values(((for-loop_319)" "(lambda(id:field_1" " lst_269)" "(begin" @@ -69142,12 +69134,12 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_318" +"(for-loop_319" " id:field_2" " rest_239)" " id:field_2)))" " id:field_1)))))" -" for-loop_318)" +" for-loop_319)" " null" " lst_405)))))" "(reverse$1" @@ -69384,7 +69376,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_406)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_320)" "(lambda(id_129" " lst_407)" "(begin" @@ -69428,12 +69420,12 @@ static const char *startup_source = " id_132)))))" "(if(not" " #f)" -"(for-loop_319" +"(for-loop_320" " id_130" " rest_240)" " id_130)))" " id_129)))))" -" for-loop_319)" +" for-loop_320)" " null" " lst_406)))))" "(reverse$1" @@ -69897,7 +69889,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_409)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_321)" "(lambda(id_36" " lst_410)" "(begin" @@ -69941,12 +69933,12 @@ static const char *startup_source = " id_140)))))" "(if(not" " #f)" -"(for-loop_320" +"(for-loop_321" " id_138" " rest_242)" " id_138)))" " id_36)))))" -" for-loop_320)" +" for-loop_321)" " null" " lst_409)))))" "(reverse$1" @@ -70488,7 +70480,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_411)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_322)" "(lambda(lst_412)" "(begin" " 'for-loop" @@ -70511,9 +70503,9 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_243)(values))))" +"(if(not #f)(for-loop_322 rest_243)(values))))" "(values))))))" -" for-loop_321)" +" for-loop_322)" " lst_411)))" "(void)" "(let-values(((lst_413) fields_0))" @@ -70521,7 +70513,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_413)))" -"((letrec-values(((for-loop_322)" +"((letrec-values(((for-loop_323)" "(lambda(lst_414)" "(begin" " 'for-loop" @@ -70558,9 +70550,9 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_244)(values))))" +"(if(not #f)(for-loop_323 rest_244)(values))))" "(values))))))" -" for-loop_322)" +" for-loop_323)" " lst_413)))" "(void)))))))" "(define-values" @@ -70614,12 +70606,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_323)" +"((letrec-values(((for-loop_324)" "(lambda(lst_416)" "(begin" " 'for-loop" "(if(pair? lst_416)" -"(let-values(((i_186)(unsafe-car lst_416))" +"(let-values(((i_185)(unsafe-car lst_416))" "((rest_245)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" @@ -70628,10 +70620,10 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_142)" -"(required-id i_186)))" +"(required-id i_185)))" "(let-values(((phase_140)" "(required-phase" -" i_186)))" +" i_185)))" "(if(let-values(((or-part_401)" "(if matching-stx_0" "(not" @@ -70659,7 +70651,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_417)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_325)" "(lambda(result_127" " lst_418)" "(begin" @@ -70696,12 +70688,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_324" +"(for-loop_325" " result_128" " rest_246)" " result_128)))" " result_127)))))" -" for-loop_324)" +" for-loop_325)" " #f" " lst_417)))))" "(void)" @@ -70746,7 +70738,7 @@ static const char *startup_source = " protected?_19)" "((temp129_2)" "(required-as-transformer?" -" i_186)))" +" i_185)))" "(add-provide!117.1" " protected?128_0" " temp129_2" @@ -70759,9 +70751,9 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_245)(values))))" +"(if(not #f)(for-loop_324 rest_245)(values))))" "(values))))))" -" for-loop_323)" +" for-loop_324)" " lst_415)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" @@ -70773,7 +70765,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_419)))" -"((letrec-values(((for-loop_325)" +"((letrec-values(((for-loop_326)" "(lambda(lst_420)" "(begin" " 'for-loop" @@ -70802,14 +70794,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_421)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_327)" "(lambda(result_130" " lst_422)" "(begin" " 'for-loop" "(if(pair?" " lst_422)" -"(let-values(((i_187)" +"(let-values(((i_186)" "(unsafe-car" " lst_422))" "((rest_248)" @@ -70822,10 +70814,10 @@ static const char *startup_source = "(let-values()" "(let-values(((id_143)" "(required-id" -" i_187)))" +" i_186)))" "(let-values(((phase_141)" "(required-phase" -" i_187)))" +" i_186)))" "(free-identifier=?$1" " id_143" " except-id_1" @@ -70836,16 +70828,16 @@ static const char *startup_source = "(if(if(not" "((lambda x_101" " result_131)" -" i_187))" +" i_186))" "(not" " #f)" " #f)" -"(for-loop_326" +"(for-loop_327" " result_131" " rest_248)" " result_131)))" " result_130)))))" -" for-loop_326)" +" for-loop_327)" " #f" " lst_421)))))" "(void)" @@ -70861,9 +70853,9 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_325 rest_247)(values))))" +"(if(not #f)(for-loop_326 rest_247)(values))))" "(values))))))" -" for-loop_325)" +" for-loop_326)" " lst_419)))" "(void)))))))))))))" "(define-values" @@ -70880,7 +70872,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_328)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -70928,9 +70920,9 @@ static const char *startup_source = " p_46))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_327 rest_40)(values))))" +"(if(not #f)(for-loop_328 rest_40)(values))))" "(values))))))" -" for-loop_327)" +" for-loop_328)" " lst_423)))" "(void)))))" "((check-expr_0)" @@ -70957,7 +70949,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_329)" "(lambda(lst_86)" "(begin" " 'for-loop" @@ -70977,10 +70969,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_328 rest_249)" +"(for-loop_329 rest_249)" "(values))))" "(values))))))" -" for-loop_328)" +" for-loop_329)" " lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))" @@ -71021,7 +71013,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_239)" +"((letrec-values(((for-loop_240)" "(lambda(lst_424)" "(begin" " 'for-loop" @@ -71038,9 +71030,9 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_239 rest_250)(values))))" +"(if(not #f)(for-loop_240 rest_250)(values))))" "(values))))))" -" for-loop_239)" +" for-loop_240)" " lst_266)))" "(void)))" "(if(parsed-app? e_92)" @@ -71052,7 +71044,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(lst_160)" "(begin" " 'for-loop" @@ -71069,9 +71061,9 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_83)(values))))" +"(if(not #f)(for-loop_107 rest_83)(values))))" "(values))))))" -" for-loop_106)" +" for-loop_107)" " lst_217)))" "(void)))" "(if(parsed-if? e_92)" @@ -71157,7 +71149,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_330)" "(lambda(lst_58)" "(begin" " 'for-loop" @@ -71174,9 +71166,9 @@ static const char *startup_source = " e_82))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_195)(values))))" +"(if(not #f)(for-loop_330 rest_195)(values))))" "(values))))))" -" for-loop_329)" +" for-loop_330)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -73167,7 +73159,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_425)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_331)" "(lambda(lst_426)" "(begin" " 'for-loop" @@ -73191,11 +73183,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_330" +"(for-loop_331" " rest_251)" "(values))))" "(values))))))" -" for-loop_330)" +" for-loop_331)" " lst_425)))" "(void)" "(let-values(((result-s_15)" @@ -73874,8 +73866,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_252)))" -"((letrec-values(((for-loop_331)" -"(lambda(fold-var_373" +"((letrec-values(((for-loop_332)" +"(lambda(fold-var_374" " lst_427)" "(begin" " 'for-loop" @@ -73887,26 +73879,26 @@ static const char *startup_source = "((rest_252)" "(unsafe-cdr" " lst_427)))" -"(let-values(((fold-var_374)" "(let-values(((fold-var_375)" -" fold-var_373))" -"(let-values(((fold-var_355)" +"(let-values(((fold-var_376)" +" fold-var_374))" +"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_375))))" +" fold-var_376))))" "(values" -" fold-var_355)))))" +" fold-var_356)))))" "(if(not" " #f)" -"(for-loop_331" -" fold-var_374" +"(for-loop_332" +" fold-var_375" " rest_252)" -" fold-var_374)))" -" fold-var_373)))))" -" for-loop_331)" +" fold-var_375)))" +" fold-var_374)))))" +" for-loop_332)" " null" " lst_252))))))" "(datum->syntax$1" @@ -74013,7 +74005,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_70)))" -"((letrec-values(((for-loop_332)" +"((letrec-values(((for-loop_333)" "(lambda(id_146" " lst_428)" "(begin" @@ -74057,12 +74049,12 @@ static const char *startup_source = " id_149)))))" "(if(not" " #f)" -"(for-loop_332" +"(for-loop_333" " id_147" " rest_253)" " id_147)))" " id_146)))))" -" for-loop_332)" +" for-loop_333)" " null" " lst_70)))))" "(reverse$1" @@ -74200,7 +74192,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_429)))" -"((letrec-values(((for-loop_333)" +"((letrec-values(((for-loop_334)" "(lambda(lst_430)" "(begin" " 'for-loop" @@ -74226,11 +74218,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_333" +"(for-loop_334" " rest_254)" "(values))))" "(values))))))" -" for-loop_333)" +" for-loop_334)" " lst_429)))" "(void)" "(let-values(((requires+provides492_0)" @@ -74381,7 +74373,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_431)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_335)" "(lambda(id_151" " lst_432)" "(begin" @@ -74425,12 +74417,12 @@ static const char *startup_source = " id_154)))))" "(if(not" " #f)" -"(for-loop_334" +"(for-loop_335" " id_152" " rest_255)" " id_152)))" " id_151)))))" -" for-loop_334)" +" for-loop_335)" " null" " lst_431)))))" "(reverse$1" @@ -74728,7 +74720,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_435)))" -"((letrec-values(((for-loop_335)" +"((letrec-values(((for-loop_336)" "(lambda(lst_436" " lst_437" " lst_438)" @@ -74781,13 +74773,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_335" +"(for-loop_336" " rest_256" " rest_257" " rest_258)" "(values))))" "(values))))))" -" for-loop_335)" +" for-loop_336)" " lst_433" " lst_434" " lst_435)))" @@ -75122,7 +75114,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_439)))" -"((letrec-values(((for-loop_336)" +"((letrec-values(((for-loop_337)" "(lambda(lst_440)" "(begin" " 'for-loop" @@ -75184,11 +75176,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_336" +"(for-loop_337" " rest_259)" "(values))))" "(values))))))" -" for-loop_336)" +" for-loop_337)" " lst_439)))" "(values))))" "(let-values()" @@ -75244,27 +75236,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_337)" -"(lambda(fold-var_376 lst_442)" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_377 lst_442)" "(begin" " 'for-loop" "(if(pair? lst_442)" "(let-values(((id_156)(unsafe-car lst_442))" "((rest_260)(unsafe-cdr lst_442)))" -"(let-values(((fold-var_377)" -"(let-values(((fold-var_378) fold-var_376))" -"(let-values(((fold-var_379)" +"(let-values(((fold-var_378)" +"(let-values(((fold-var_379) fold-var_377))" +"(let-values(((fold-var_380)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_156" " inside-scope_2))" -" fold-var_378))))" -"(values fold-var_379)))))" -"(if(not #f)(for-loop_337 fold-var_377 rest_260) fold-var_377)))" -" fold-var_376)))))" -" for-loop_337)" +" fold-var_379))))" +"(values fold-var_380)))))" +"(if(not #f)(for-loop_338 fold-var_378 rest_260) fold-var_378)))" +" fold-var_377)))))" +" for-loop_338)" " null" " lst_441))))))" "(let-values(((syms_25)" @@ -75306,23 +75298,23 @@ static const char *startup_source = "(let-values(((lst_443) bodys_23))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_380 lst_444)" +"((letrec-values(((for-loop_339)" +"(lambda(fold-var_381 lst_444)" "(begin" " 'for-loop" "(if(pair? lst_444)" "(let-values(((body_21)(unsafe-car lst_444))((rest_261)(unsafe-cdr lst_444)))" -"(let-values(((fold-var_381)" -"(let-values(((fold-var_382) fold-var_380))" -"(let-values(((fold-var_383)" +"(let-values(((fold-var_382)" +"(let-values(((fold-var_383) fold-var_381))" +"(let-values(((fold-var_384)" "(let-values()" "(cons" "(let-values()(add-scope body_21 sc_41))" -" fold-var_382))))" -"(values fold-var_383)))))" -"(if(not #f)(for-loop_338 fold-var_381 rest_261) fold-var_381)))" -" fold-var_380)))))" -" for-loop_338)" +" fold-var_383))))" +"(values fold-var_384)))))" +"(if(not #f)(for-loop_339 fold-var_382 rest_261) fold-var_382)))" +" fold-var_381)))))" +" for-loop_339)" " null" " lst_443))))" " bodys_23)))))" @@ -75762,12 +75754,12 @@ static const char *startup_source = "(let-values(((ht_166) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" -"((letrec-values(((for-loop_339)" -"(lambda(i_188)" +"((letrec-values(((for-loop_340)" +"(lambda(i_187)" "(begin" " 'for-loop" -"(if i_188" -"(let-values(((phase_148 l_89)(hash-iterate-key+value ht_166 i_188)))" +"(if i_187" +"(let-values(((phase_148 l_89)(hash-iterate-key+value ht_166 i_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75781,7 +75773,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_340)" +"((letrec-values(((for-loop_341)" "(lambda(lst_446)" "(begin" " 'for-loop" @@ -75875,18 +75867,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_340" +"(for-loop_341" " rest_262)" "(values))))" "(values))))))" -" for-loop_340)" +" for-loop_341)" " lst_445)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_339(hash-iterate-next ht_166 i_188))(values))))" +"(if(not #f)(for-loop_340(hash-iterate-next ht_166 i_187))(values))))" "(values))))))" -" for-loop_339)" +" for-loop_340)" "(hash-iterate-first ht_166))))" "(void)))))" "(define-values" @@ -76718,7 +76710,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_341)" +"((letrec-values(((for-loop_342)" "(lambda(lst_448)" "(begin" " 'for-loop" @@ -76751,9 +76743,9 @@ static const char *startup_source = " phase673_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_341 rest_263)(values))))" +"(if(not #f)(for-loop_342 rest_263)(values))))" "(values))))))" -" for-loop_341)" +" for-loop_342)" " lst_447)))" "(void))))))))))" "(define-values" @@ -76764,7 +76756,7 @@ static const char *startup_source = "(let-values(((lst_449) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_342)" +"((letrec-values(((for-loop_343)" "(lambda(lst_450)" "(begin" " 'for-loop" @@ -76817,7 +76809,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_453)))" -"((letrec-values(((for-loop_343)" +"((letrec-values(((for-loop_344)" "(lambda(lst_454" " lst_455" " lst_456)" @@ -76864,13 +76856,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_343" +"(for-loop_344" " rest_265" " rest_266" " rest_267)" "(values))))" "(values))))))" -" for-loop_343)" +" for-loop_344)" " lst_451" " lst_452" " lst_453)))" @@ -76919,9 +76911,9 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_342 rest_264)(values))))" +"(if(not #f)(for-loop_343 rest_264)(values))))" "(values))))))" -" for-loop_342)" +" for-loop_343)" " lst_449)))" "(void)))))" "(define-values" @@ -77343,16 +77335,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_344)" -"(lambda(fold-var_384 lst_458)" +"((letrec-values(((for-loop_345)" +"(lambda(fold-var_385 lst_458)" "(begin" " 'for-loop" "(if(pair? lst_458)" "(let-values(((body_25)(unsafe-car lst_458))" "((rest_268)(unsafe-cdr lst_458)))" -"(let-values(((fold-var_385)" -"(let-values(((fold-var_386) fold-var_384))" -"(let-values(((fold-var_387)" +"(let-values(((fold-var_386)" +"(let-values(((fold-var_387) fold-var_385))" +"(let-values(((fold-var_388)" "(let-values()" "(cons" "(let-values()" @@ -77393,13 +77385,13 @@ static const char *startup_source = " self715_0" " ctx716_0)))" "(let-values() body_25))))" -" fold-var_386))))" -"(values fold-var_387)))))" +" fold-var_387))))" +"(values fold-var_388)))))" "(if(not #f)" -"(for-loop_344 fold-var_385 rest_268)" -" fold-var_385)))" -" fold-var_384)))))" -" for-loop_344)" +"(for-loop_345 fold-var_386 rest_268)" +" fold-var_386)))" +" fold-var_385)))))" +" for-loop_345)" " null" " lst_457))))))))))))))))" "(define-values" @@ -77497,25 +77489,25 @@ static const char *startup_source = "(let-values(((lst_459) lifted-defns_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_345)" -"(lambda(fold-var_388 lst_460)" +"((letrec-values(((for-loop_346)" +"(lambda(fold-var_389 lst_460)" "(begin" " 'for-loop" "(if(pair? lst_460)" "(let-values(((lifted-defn_0)(unsafe-car lst_460))" "((rest_269)(unsafe-cdr lst_460)))" -"(let-values(((fold-var_389)" -"(let-values(((fold-var_390) fold-var_388))" -"(let-values(((fold-var_391)" +"(let-values(((fold-var_390)" +"(let-values(((fold-var_391) fold-var_389))" +"(let-values(((fold-var_392)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_390))))" -"(values fold-var_391)))))" -"(if(not #f)(for-loop_345 fold-var_389 rest_269) fold-var_389)))" -" fold-var_388)))))" -" for-loop_345)" +" fold-var_391))))" +"(values fold-var_392)))))" +"(if(not #f)(for-loop_346 fold-var_390 rest_269) fold-var_390)))" +" fold-var_389)))))" +" for-loop_346)" " null" " lst_459)))))))" "(define-values" @@ -77538,7 +77530,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_346)" +"((letrec-values(((for-loop_347)" "(lambda(lst_462)" "(begin" " 'for-loop" @@ -77650,9 +77642,9 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_346 rest_270)(values))))" +"(if(not #f)(for-loop_347 rest_270)(values))))" "(values))))))" -" for-loop_346)" +" for-loop_347)" " lst_461)))" "(values))))" "(let-values()" @@ -77744,16 +77736,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_392 lst_85)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_393 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((id_50)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_392))" -"(let-values(((fold-var_393)" +"(let-values(((fold-var_62) fold-var_393))" +"(let-values(((fold-var_394)" "(let-values()" "(cons" "(let-values()" @@ -77761,10 +77753,10 @@ static const char *startup_source = " id_50" " ctx_124))" " fold-var_62))))" -"(values fold-var_393)))))" -"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" -" fold-var_392)))))" -" for-loop_104)" +"(values fold-var_394)))))" +"(if(not #f)(for-loop_105 fold-var_61 rest_40) fold-var_61)))" +" fold-var_393)))))" +" for-loop_105)" " null" " lst_84))))))" "(let-values((()" @@ -77780,27 +77772,27 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_463)))" "((letrec-values(((for-loop_81)" -"(lambda(fold-var_216 lst_86)" +"(lambda(fold-var_217 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((id_160)(unsafe-car lst_86))" "((rest_249)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_394) fold-var_216))" -"(let-values(((fold-var_219)" +"(let-values(((fold-var_395) fold-var_217))" +"(let-values(((fold-var_220)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_160" " top-level-bind-scope_6))" -" fold-var_394))))" -"(values fold-var_219)))))" +" fold-var_395))))" +"(values fold-var_220)))))" "(if(not #f)" "(for-loop_81 fold-var_26 rest_249)" " fold-var_26)))" -" fold-var_216)))))" +" fold-var_217)))))" " for-loop_81)" " null" " lst_463))))))" @@ -78415,27 +78407,27 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_32)))" "((letrec-values(((for-loop_25)" -"(lambda(fold-var_395 lst_33)" +"(lambda(fold-var_396 lst_33)" "(begin" " 'for-loop" "(if(pair? lst_33)" "(let-values(((req_20)(unsafe-car lst_33))" "((rest_13)(unsafe-cdr lst_33)))" -"(let-values(((fold-var_396)" -"(let-values(((fold-var_397) fold-var_395))" -"(let-values(((fold-var_292)" +"(let-values(((fold-var_397)" +"(let-values(((fold-var_398) fold-var_396))" +"(let-values(((fold-var_293)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" " sc_42))" -" fold-var_397))))" -"(values fold-var_292)))))" +" fold-var_398))))" +"(values fold-var_293)))))" "(if(not #f)" -"(for-loop_25 fold-var_396 rest_13)" -" fold-var_396)))" -" fold-var_395)))))" +"(for-loop_25 fold-var_397 rest_13)" +" fold-var_397)))" +" fold-var_396)))))" " for-loop_25)" " null" " lst_32)))))" @@ -78507,26 +78499,26 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_167)))" "((letrec-values(((for-loop_20)" -"(lambda(table_222 i_3)" +"(lambda(table_221 i_3)" "(begin" " 'for-loop" "(if i_3" "(let-values(((name_83)(hash-iterate-key ht_167 i_3)))" -"(let-values(((table_211)" -"(let-values(((table_223) table_222))" -"(let-values(((table_181)" +"(let-values(((table_210)" +"(let-values(((table_222) table_221))" +"(let-values(((table_180)" "(let-values()" "(let-values(((key_93 val_89)" "(let-values()" "(values" "(let-values() name_83)" " #t))))" -"(hash-set table_223 key_93 val_89)))))" -"(values table_181)))))" +"(hash-set table_222 key_93 val_89)))))" +"(values table_180)))))" "(if(not #f)" -"(for-loop_20 table_211(hash-iterate-next ht_167 i_3))" -" table_211)))" -" table_222)))))" +"(for-loop_20 table_210(hash-iterate-next ht_167 i_3))" +" table_210)))" +" table_221)))))" " for-loop_20)" " '#hash()" "(hash-iterate-first ht_167)))))" @@ -78536,14 +78528,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_127)))" -"((letrec-values(((for-loop_329)" -"(lambda(table_224 i_184)" +"((letrec-values(((for-loop_330)" +"(lambda(table_223 i_183)" "(begin" " 'for-loop" -"(if i_184" -"(let-values(((name_84)(hash-iterate-key ht_127 i_184)))" -"(let-values(((table_119)" -"(let-values(((table_111) table_224))" +"(if i_183" +"(let-values(((name_84)(hash-iterate-key ht_127 i_183)))" +"(let-values(((table_118)" +"(let-values(((table_111) table_223))" "(let-values(((table_112)" "(let-values()" "(let-values(((key_94 val_90)" @@ -78554,10 +78546,10 @@ static const char *startup_source = "(hash-set table_111 key_94 val_90)))))" "(values table_112)))))" "(if(not #f)" -"(for-loop_329 table_119(hash-iterate-next ht_127 i_184))" -" table_119)))" -" table_224)))))" -" for-loop_329)" +"(for-loop_330 table_118(hash-iterate-next ht_127 i_183))" +" table_118)))" +" table_223)))))" +" for-loop_330)" " '#hash()" "(hash-iterate-first ht_127))))))" "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))"