From 0d06ba284859eea0fa08623c7621cb99c5c086c1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Mar 2018 16:07:37 -0700 Subject: [PATCH] =?UTF-8?q?expander:=20treat=20unbound=20and=20top-level-b?= =?UTF-8?q?ound=20as=20`free-identifier=3D=3F`?= Restores quetionable but traditional behavior. --- pkgs/racket-test-core/tests/racket/stx.rktl | 14 + racket/src/expander/syntax/binding.rkt | 10 +- racket/src/racket/src/startup.inc | 15104 +++++++++--------- 3 files changed, 7582 insertions(+), 7546 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/stx.rktl b/pkgs/racket-test-core/tests/racket/stx.rktl index 04ba8a4231..c5cff0f984 100644 --- a/pkgs/racket-test-core/tests/racket/stx.rktl +++ b/pkgs/racket-test-core/tests/racket/stx.rktl @@ -1692,6 +1692,20 @@ (require (for-meta 4 racket/base)) (test #t free-identifier=? #'lambda #'lambda 0 4) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Unbound and bound at toplevel are equivalent by `free-identifier=?` + +(test #t free-identifier=? #'defined-at-the-top-level (datum->syntax #f 'defined-at-the-top-level)) +(define defined-at-the-top-level 'yep) +(test #t free-identifier=? #'defined-at-the-top-level (datum->syntax #f 'defined-at-the-top-level)) + +(define-syntax-rule (define-defined-at-the-top-level) + (begin + (define defined-at-the-top-level 10) + (test #f free-identifier=? #'defined-at-the-top-level (datum->syntax #f 'defined-at-the-top-level)))) +(define-defined-at-the-top-level) +(test #t free-identifier=? #'defined-at-the-top-level (datum->syntax #f 'defined-at-the-top-level)) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; certification example from the manual diff --git a/racket/src/expander/syntax/binding.rkt b/racket/src/expander/syntax/binding.rkt index 4b4cbd21f9..b38cc413e0 100644 --- a/racket/src/expander/syntax/binding.rkt +++ b/racket/src/expander/syntax/binding.rkt @@ -43,14 +43,20 @@ ;; ---------------------------------------- (define (free-identifier=? a b a-phase b-phase) - (define ab (resolve+shift a a-phase #:unbound-sym? #t)) - (define bb (resolve+shift b b-phase #:unbound-sym? #t)) + (define ab (toplevel-as-symbol (resolve+shift a a-phase #:unbound-sym? #t))) + (define bb (toplevel-as-symbol (resolve+shift b b-phase #:unbound-sym? #t))) (cond [(or (symbol? ab) (symbol? bb)) (eq? ab bb)] [else (same-binding? ab bb)])) +(define (toplevel-as-symbol b) + (if (and (module-binding? b) + (top-level-module-path-index? (module-binding-module b))) + (module-binding-sym b) + b)) + (define (same-binding? ab bb) (cond [(module-binding? ab) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 2709389bda..ce140f3a78 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -10667,15 +10667,24 @@ static const char *startup_source = "(begin" " 'free-identifier=?" "(let-values(((ab_0)" +"(toplevel-as-symbol" "(let-values(((a47_0) a_33)((a-phase48_0) a-phase_0)((temp49_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a47_0 a-phase48_0))))" +"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a47_0 a-phase48_0)))))" "(let-values(((bb_0)" +"(toplevel-as-symbol" "(let-values(((b50_0) b_45)((b-phase51_0) b-phase_0)((temp52_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp52_0 #t b50_0 b-phase51_0))))" +"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp52_0 #t b50_0 b-phase51_0)))))" "(if(let-values(((or-part_3)(symbol? ab_0)))(if or-part_3 or-part_3(symbol? bb_0)))" "(let-values()(eq? ab_0 bb_0))" "(let-values()(same-binding? ab_0 bb_0))))))))" "(define-values" +"(toplevel-as-symbol)" +"(lambda(b_46)" +"(begin" +"(if(if(module-binding? b_46)(top-level-module-path-index?(module-binding-module b_46)) #f)" +"(module-binding-sym b_46)" +" b_46))))" +"(define-values" "(same-binding?)" "(lambda(ab_1 bb_1)" "(begin" @@ -10709,14 +10718,14 @@ static const char *startup_source = "(lambda(id_2 phase_16)" "(begin" " 'identifier-binding-symbol" -"(let-values(((b_46)" +"(let-values(((b_42)" "(let-values(((id53_0) id_2)((phase54_1) phase_16)((temp55_0) #t))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f temp55_0 #t id53_0 phase54_1))))" -"(if(symbol? b_46)" -"(let-values() b_46)" -"(if(module-binding? b_46)" -"(let-values()(module-binding-sym b_46))" -"(if(local-binding? b_46)(let-values()(local-binding-key b_46))(let-values()(syntax-e$1 id_2)))))))))" +"(if(symbol? b_42)" +"(let-values() b_42)" +"(if(module-binding? b_42)" +"(let-values()(module-binding-sym b_42))" +"(if(local-binding? b_42)(let-values()(local-binding-key b_42))(let-values()(syntax-e$1 id_2)))))))))" "(define-values" "(identifier-binding$1)" "(let-values(((identifier-binding5_0)" @@ -10802,52 +10811,52 @@ static const char *startup_source = " (let-values () (error \"bad binding for free=id:\" b_49)))))))" "(define-values" "(struct:non-source-shift non-source-shift7.1 non-source-shift? non-source-shift-from non-source-shift-to)" -"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" +"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)" "(let-values()" "(let-values()" "(make-struct-type 'non-source-shift #f 2 0 #f null 'prefab #f '(0 1) #f 'non-source-shift)))))" "(values" -" struct:_19" -" make-_19" -" ?_19" -"(make-struct-field-accessor -ref_19 0 'from)" -"(make-struct-field-accessor -ref_19 1 'to))))" -"(define-values(shift-from)(lambda(s_17)(begin(if(pair? s_17)(car s_17)(non-source-shift-from s_17)))))" -"(define-values(shift-to)(lambda(s_18)(begin(if(pair? s_18)(cdr s_18)(non-source-shift-to s_18)))))" +" struct:_14" +" make-_14" +" ?_14" +"(make-struct-field-accessor -ref_14 0 'from)" +"(make-struct-field-accessor -ref_14 1 'to))))" +"(define-values(shift-from)(lambda(s_18)(begin(if(pair? s_18)(car s_18)(non-source-shift-from s_18)))))" +"(define-values(shift-to)(lambda(s_19)(begin(if(pair? s_19)(cdr s_19)(non-source-shift-to s_19)))))" "(define-values" "(syntax-module-path-index-shift15.1)" "(lambda(non-source?8_0 non-source?9_0 s12_0 from-mpi13_0 to-mpi14_0 inspector10_0 inspector11_0)" "(begin" " 'syntax-module-path-index-shift15" -"(let-values(((s_24) s12_0))" +"(let-values(((s_149) s12_0))" "(let-values(((from-mpi_1) from-mpi13_0))" "(let-values(((to-mpi_1) to-mpi14_0))" "(let-values(((inspector_3)(if inspector11_0 inspector10_0 #f)))" "(let-values(((non-source?_0)(if non-source?9_0 non-source?8_0 #f)))" "(let-values()" "(if(eq? from-mpi_1 to-mpi_1)" -"(let-values()(if inspector_3(syntax-set-inspector s_24 inspector_3) s_24))" +"(let-values()(if inspector_3(syntax-set-inspector s_149 inspector_3) s_149))" "(let-values()" "(let-values(((shift_0)" "(if non-source?_0" "(non-source-shift7.1 from-mpi_1 to-mpi_1)" "(cons from-mpi_1 to-mpi_1))))" -"(let-values(((the-struct_31) s_24))" +"(let-values(((the-struct_31) s_149))" "(if(syntax?$1 the-struct_31)" -"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_24)))" +"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_149)))" "((inspector71_0)" -"(let-values(((or-part_133)(syntax-inspector s_24)))" +"(let-values(((or-part_133)(syntax-inspector s_149)))" "(if or-part_133 or-part_133 inspector_3)))" "((scope-propagations+tamper72_0)" -"(if(datum-has-elements?(syntax-content s_24))" +"(if(datum-has-elements?(syntax-content s_149))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_24)" -"(lambda(s_149)(cons shift_0 s_149))" +"(syntax-scope-propagations+tamper s_149)" +"(lambda(s_86)(cons shift_0 s_86))" " inspector_3" -"(syntax-scopes s_24)" -"(syntax-shifted-multi-scopes s_24)" -"(syntax-mpi-shifts s_24))" -"(syntax-scope-propagations+tamper s_24))))" +"(syntax-scopes s_149)" +"(syntax-shifted-multi-scopes s_149)" +"(syntax-mpi-shifts s_149))" +"(syntax-scope-propagations+tamper s_149))))" "(syntax1.1" "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" @@ -10874,7 +10883,7 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_150) s28_0))" +"(let-values(((s_88) s28_0))" "(let-values(((phase_21) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" @@ -10883,7 +10892,7 @@ static const char *startup_source = "(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_150)" +"(let-values(((s73_0) s_88)" "((phase74_0) phase_21)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" @@ -10905,7 +10914,7 @@ static const char *startup_source = " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_21)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_150)))" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_88)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10925,7 +10934,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_150)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_88)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10950,7 +10959,7 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_150))" +"((s90_0) s_88))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_1)" @@ -11021,7 +11030,7 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_150))" +"(let-values()(syntax-e$1 s_88))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" @@ -11064,7 +11073,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_54)" -"(let-values(((b_37)(unsafe-car lst_54))" +"(let-values(((b_54)(unsafe-car lst_54))" "((rest_23)(unsafe-cdr lst_54)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41) fold-var_39))" @@ -11073,7 +11082,7 @@ static const char *startup_source = "(cons" "(let-values()" "(binding-module-path-index-shift" -" b_37" +" b_54" " from-mpi_2" " to-mpi_2))" " fold-var_41))))" @@ -11131,24 +11140,24 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_75)" -"(lambda(s_67 lst_56 pos_9)" +"(lambda(s_150 lst_56 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_56) #t #f)" "(let-values(((shift_3)(unsafe-car lst_56))" "((rest_24)(unsafe-cdr lst_56))" -"((i_77) pos_9))" -"(let-values(((s_39)" -"(let-values(((s_151) s_67))" -"(let-values(((s_95)" +"((i_46) pos_9))" +"(let-values(((s_151)" +"(let-values(((s_95) s_150))" +"(let-values(((s_152)" "(let-values()" -"(let-values(((s95_0) s_151)" +"(let-values(((s95_0) s_95)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_77)" +"(if(zero? i_46)" " inspector_4" " #f))" "((non-source?99_0)" @@ -11161,31 +11170,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_95)))))" -"(if(not #f)(for-loop_75 s_39 rest_24(+ pos_9 1)) s_39)))" -" s_67)))))" +"(values s_152)))))" +"(if(not #f)(for-loop_75 s_151 rest_24(+ pos_9 1)) s_151)))" +" s_150)))))" " for-loop_75)" " to-s_0" " lst_55" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_104 insp_3)" +"(lambda(s_105 insp_3)" "(begin" -"(let-values(((the-struct_32) s_104))" +"(let-values(((the-struct_32) s_105))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_134)(syntax-inspector s_104)))(if or-part_134 or-part_134 insp_3)))" +"(let-values(((or-part_134)(syntax-inspector s_105)))(if or-part_134 or-part_134 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_104))" +"(if(datum-has-elements?(syntax-content s_105))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_104)" +"(syntax-scope-propagations+tamper s_105)" " #f" " insp_3" -"(syntax-scopes s_104)" -"(syntax-shifted-multi-scopes s_104)" -"(syntax-mpi-shifts s_104))" -"(syntax-scope-propagations+tamper s_104))))" +"(syntax-scopes s_105)" +"(syntax-shifted-multi-scopes s_105)" +"(syntax-mpi-shifts s_105))" +"(syntax-scope-propagations+tamper s_105))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11202,25 +11211,25 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_152) s44_0))" +"(let-values(((s_153) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_152)" +"(if(syntax?$1 s_153)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" -"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_152))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_153)))" +"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_153))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_57)))" "((letrec-values(((for-loop_76)" -"(lambda(result_50 lst_58)" +"(lambda(result_50 lst_45)" "(begin" " 'for-loop" -"(if(pair? lst_58)" -"(let-values(((shift_4)(unsafe-car lst_58))" -"((rest_25)(unsafe-cdr lst_58)))" +"(if(pair? lst_45)" +"(let-values(((shift_4)(unsafe-car lst_45))" +"((rest_25)(unsafe-cdr lst_45)))" "(let-values(((result_51)" "(let-values(((result_52) result_50))" "(if(non-source-shift? shift_4)" @@ -11243,7 +11252,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_152))))" +" s_153))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11253,7 +11262,7 @@ static const char *startup_source = " #f)" " #f)))))))" "(values result_53)))))))" -"(if(if(not((lambda x_37 result_51) shift_4))(not #f) #f)" +"(if(if(not((lambda x_4 result_51) shift_4))(not #f) #f)" "(for-loop_76 result_51 rest_25)" " result_51)))" " result_50)))))" @@ -11261,8 +11270,8 @@ static const char *startup_source = " #f" " lst_57)))))))))))" "(case-lambda" -"((s_113)(begin 'syntax-source-module(syntax-source-module45_0 s_113 #f #f)))" -"((s_153 source?42_1)(syntax-source-module45_0 s_153 source?42_1 #t)))))" +"((s_154)(begin 'syntax-source-module(syntax-source-module45_0 s_154 #f #f)))" +"((s_114 source?42_1)(syntax-source-module45_0 s_114 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11411,16 +11420,16 @@ static const char *startup_source = "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_54 mpi-shifts_3)" -"(let-values(((or-part_135)(bulk-binding-provides b_54)))" +"(lambda(b_55 mpi-shifts_3)" +"(let-values(((or-part_135)(bulk-binding-provides b_55)))" "(if or-part_135" " or-part_135" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" -"(apply-syntax-shifts(bulk-binding-mpi b_54) mpi-shifts_3))))" +"(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_54)" +"(if(bulk-binding-bulk-binding-registry b_55)" "(void)" "(let-values()" "(error" @@ -11429,7 +11438,7 @@ static const char *startup_source = "(values))))" "(let-values(((table_81)" "(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_54))))" +"(bulk-binding-bulk-binding-registry b_55))))" "(let-values(((bulk-provide_0)(hash-ref table_81 mod-name_1 #f)))" "(let-values((()" "(begin" @@ -11442,14 +11451,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(set-bulk-binding-self! b_54(bulk-provide-self bulk-provide_0))" +"(set-bulk-binding-self! b_55(bulk-provide-self bulk-provide_0))" "(values))))" "(let-values(((provides_0)" "(hash-ref" "(bulk-provide-provides bulk-provide_0)" -"(bulk-binding-provide-phase-level b_54))))" -"(let-values(((excepts_0)(bulk-binding-excepts b_54)))" -"(let-values(((prefix_0)(bulk-binding-prefix b_54)))" +"(bulk-binding-provide-phase-level b_55))))" +"(let-values(((excepts_0)(bulk-binding-excepts b_55)))" +"(let-values(((prefix_0)(bulk-binding-prefix b_55)))" "(let-values(((adjusted-provides_0)" "(if(let-values(((or-part_136) prefix_0))" "(if or-part_136" @@ -11462,21 +11471,21 @@ static const char *startup_source = " excepts_0))" "(let-values() provides_0))))" "(begin" -"(set-bulk-binding-provides! b_54 adjusted-provides_0)" +"(set-bulk-binding-provides! b_55 adjusted-provides_0)" " adjusted-provides_0))))))))))))))" -"(lambda(b_55 binding_7 sym_1)" +"(lambda(b_56 binding_7 sym_1)" "(let-values(((binding27_0) binding_7)" "((temp28_2)" -"(if(bulk-binding-prefix b_55)" +"(if(bulk-binding-prefix b_56)" "(string->symbol" "(substring" "(symbol->string sym_1)" -"(string-length(symbol->string(bulk-binding-prefix b_55)))))" +"(string-length(symbol->string(bulk-binding-prefix b_56)))))" " sym_1))" -"((temp29_0)(bulk-binding-self b_55))" -"((temp30_0)(bulk-binding-mpi b_55))" -"((temp31_0)(bulk-binding-provide-phase-level b_55))" -"((temp32_0)(bulk-binding-phase-shift b_55)))" +"((temp29_0)(bulk-binding-self b_56))" +"((temp30_0)(bulk-binding-mpi b_56))" +"((temp31_0)(bulk-binding-provide-phase-level b_56))" +"((temp32_0)(bulk-binding-phase-shift b_56)))" "(provide-binding-to-require-binding11.1" " temp30_0" " temp32_0" @@ -11516,11 +11525,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" "((letrec-values(((for-loop_77)" -"(lambda(table_82 i_78)" +"(lambda(table_82 i_77)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_64 i_78)))" +"(if i_77" +"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_64 i_77)))" "(let-values(((table_83)" "(let-values(((table_84) table_82))" "(if(hash-ref excepts_2 sym_17 #f)" @@ -11544,7 +11553,7 @@ static const char *startup_source = "(hash-set table_86 key_37 val_24)))))" "(values table_87)))" " table_85))))))" -"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_78)) table_83)))" +"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_77)) table_83)))" " table_82)))))" " for-loop_77)" " '#hash()" @@ -11765,11 +11774,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" "((letrec-values(((for-loop_78)" -"(lambda(table_88 i_79)" +"(lambda(table_88 i_78)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_79)))" +"(if i_78" +"(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_78)))" "(let-values(((table_89)" "(let-values(((table_90) table_88))" "(let-values(((table_91)" @@ -11779,7 +11788,7 @@ static const char *startup_source = "(values phase_22 ht_66))))" "(hash-set table_90 key_38 val_25)))))" "(values table_91)))))" -"(if(not #f)(for-loop_78 table_89(hash-iterate-next ht_65 i_79)) table_89)))" +"(if(not #f)(for-loop_78 table_89(hash-iterate-next ht_65 i_78)) table_89)))" " table_88)))))" " for-loop_78)" " '#hasheqv()" @@ -11830,11 +11839,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_8)" -"(lambda(result_54 i_80)" +"(lambda(result_54 i_79)" "(begin" " 'for-loop" -"(if i_80" -"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_67 i_80)))" +"(if i_79" +"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_67 i_79)))" "(let-values(((result_55)" "(let-values()" "(let-values(((result_56)" @@ -11849,15 +11858,15 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_68)))" "((letrec-values(((for-loop_79)" -"(lambda(result_57 i_81)" +"(lambda(result_57 i_80)" "(begin" " 'for-loop" -"(if i_81" +"(if i_80" "(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" " ht_68" -" i_81)))" +" i_80)))" "(let-values(((result_58)" "(let-values()" "(let-values(((result_59)" @@ -11871,7 +11880,7 @@ static const char *startup_source = "(values" " result_59)))))" "(if(if(not" -"((lambda x_38" +"((lambda x_37" "(not" " result_58))" " sym_18" @@ -11882,7 +11891,7 @@ static const char *startup_source = " result_58" "(hash-iterate-next" " ht_68" -" i_81))" +" i_80))" " result_58)))" " result_57)))))" " for-loop_79)" @@ -11891,8 +11900,8 @@ static const char *startup_source = " #f)" " #f)))))" "(values result_56)))))" -"(if(if(not((lambda x_39(not result_55)) phase_23 ht-s_0))(not #f) #f)" -"(for-loop_8 result_55(hash-iterate-next ht_67 i_80))" +"(if(if(not((lambda x_38(not result_55)) phase_23 ht-s_0))(not #f) #f)" +"(for-loop_8 result_55(hash-iterate-next ht_67 i_79))" " result_55)))" " result_54)))))" " for-loop_8)" @@ -11906,7 +11915,7 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_154)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_154))))))" +"(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_90)" @@ -11916,11 +11925,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_69)))" "((letrec-values(((for-loop_80)" -"(lambda(table_92 i_82)" +"(lambda(table_92 i_81)" "(begin" " 'for-loop" -"(if i_82" -"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_82)))" +"(if i_81" +"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_81)))" "(let-values(((table_93)" "(let-values(((table_94) table_92))" "(let-values(((table_95)" @@ -11941,15 +11950,15 @@ static const char *startup_source = "(check-in-hash ht_70)))" "((letrec-values(((for-loop_13)" "(lambda(table_96" -" i_83)" +" i_82)" "(begin" " 'for-loop" -"(if i_83" +"(if i_82" "(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" " ht_70" -" i_83)))" +" i_82)))" "(let-values(((table_97)" "(let-values(((table_98)" " table_96))" @@ -11973,7 +11982,7 @@ static const char *startup_source = " table_97" "(hash-iterate-next" " ht_70" -" i_83))" +" i_82))" " table_97)))" " table_96)))))" " for-loop_13)" @@ -11982,7 +11991,7 @@ static const char *startup_source = " ht_70)))))))))" "(hash-set table_94 key_39 val_17)))))" "(values table_95)))))" -"(if(not #f)(for-loop_80 table_93(hash-iterate-next ht_69 i_82)) table_93)))" +"(if(not #f)(for-loop_80 table_93(hash-iterate-next ht_69 i_81)) table_93)))" " table_92)))))" " for-loop_80)" " '#hasheqv()" @@ -12263,14 +12272,14 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_155)" +"(let-values(((s_156)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" "(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_155 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_155)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_156)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12458,14 +12467,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_71)))" "((letrec-values(((for-loop_81)" -"(lambda(new-props_1 i_84)" +"(lambda(new-props_1 i_83)" "(begin" " 'for-loop" -"(if i_84" +"(if i_83" "(let-values(((k_17 v_92)" "(unsafe-immutable-hash-iterate-key+value" " ht_71" -" i_84)))" +" i_83)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12493,7 +12502,7 @@ static const char *startup_source = " new-props_2" "(unsafe-immutable-hash-iterate-next" " ht_71" -" i_84))" +" i_83))" " new-props_2)))" " new-props_1)))))" " for-loop_81)" @@ -12507,14 +12516,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_72)))" "((letrec-values(((for-loop_82)" -"(lambda(old-props_1 i_85)" +"(lambda(old-props_1 i_84)" "(begin" " 'for-loop" -"(if i_85" +"(if i_84" "(let-values(((k_18 v_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_72" -" i_85)))" +" i_84)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12542,7 +12551,7 @@ static const char *startup_source = " old-props_2" "(unsafe-immutable-hash-iterate-next" " ht_72" -" i_85))" +" i_84))" " old-props_2)))" " old-props_1)))))" " for-loop_82)" @@ -12569,25 +12578,25 @@ static const char *startup_source = "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" "(define-values" "(cons/preserve)" -"(lambda(a_34 b_56)" +"(lambda(a_34 b_48)" "(begin" "(if(let-values(((or-part_142)(preserved-property-value? a_34)))" -"(if or-part_142 or-part_142(preserved-property-value? b_56)))" -"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_56)))" -"(cons a_34 b_56)))))" +"(if or-part_142 or-part_142(preserved-property-value? b_48)))" +"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_48)))" +"(cons a_34 b_48)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" "(begin" -"(let-values(((lst_59) old-stxes_0))" +"(let-values(((lst_58) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_59)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" "((letrec-values(((for-loop_83)" -"(lambda(new-stx_4 lst_60)" +"(lambda(new-stx_4 lst_59)" "(begin" " 'for-loop" -"(if(pair? lst_60)" -"(let-values(((old-stx_3)(unsafe-car lst_60))((rest_26)(unsafe-cdr lst_60)))" +"(if(pair? lst_59)" +"(let-values(((old-stx_3)(unsafe-car lst_59))((rest_26)(unsafe-cdr lst_59)))" "(let-values(((new-stx_5)" "(let-values(((new-stx_6) new-stx_4))" "(let-values(((new-stx_7)" @@ -12598,7 +12607,7 @@ static const char *startup_source = " new-stx_4)))))" " for-loop_83)" " new-stx_3" -" lst_59))))))" +" lst_58))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" "(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" @@ -12815,11 +12824,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_156)" +"(lambda(s_157)" "(begin" -"(if(syntax?$1 s_156)" +"(if(syntax?$1 s_157)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_156)))" +"(let-values(((e_17)(syntax-e$1 s_157)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12828,11 +12837,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_157)" +"(lambda(s_158)" "(begin" -"(if(syntax?$1 s_157)" -"(if(syntax-srcloc s_157)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_157)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_158)" +"(if(syntax-srcloc s_158)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_158)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13683,20 +13692,20 @@ static const char *startup_source = "(set-module-instance-shifted-requires!" " mi_7" "(reverse$1" -"(let-values(((lst_61)(module-requires m_9)))" +"(let-values(((lst_60)(module-requires m_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_61)))" +"(let-values()(check-list lst_60)))" "((letrec-values(((for-loop_84)" -"(lambda(fold-var_43 lst_62)" +"(lambda(fold-var_43 lst_61)" "(begin" " 'for-loop" -"(if(pair? lst_62)" +"(if(pair? lst_61)" "(let-values(((phase+mpis_0)" -"(unsafe-car lst_62))" +"(unsafe-car lst_61))" "((rest_27)" -"(unsafe-cdr lst_62)))" +"(unsafe-cdr lst_61)))" "(let-values(((fold-var_44)" "(let-values(((fold-var_45)" " fold-var_43))" @@ -13708,7 +13717,7 @@ static const char *startup_source = "(car" " phase+mpis_0)" "(reverse$1" -"(let-values(((lst_63)" +"(let-values(((lst_62)" "(cdr" " phase+mpis_0)))" "(begin" @@ -13717,20 +13726,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_63)))" +" lst_62)))" "((letrec-values(((for-loop_85)" "(lambda(fold-var_47" -" lst_64)" +" lst_63)" "(begin" " 'for-loop" "(if(pair?" -" lst_64)" +" lst_63)" "(let-values(((req-mpi_0)" "(unsafe-car" -" lst_64))" +" lst_63))" "((rest_28)" "(unsafe-cdr" -" lst_64)))" +" lst_63)))" "(let-values(((fold-var_48)" "(let-values(((fold-var_49)" " fold-var_47))" @@ -13755,7 +13764,7 @@ static const char *startup_source = " fold-var_47)))))" " for-loop_85)" " null" -" lst_63))))))" +" lst_62))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" @@ -13764,19 +13773,19 @@ static const char *startup_source = " fold-var_43)))))" " for-loop_84)" " null" -" lst_61)))))))" -"(let-values(((lst_65)(module-instance-shifted-requires mi_7)))" +" lst_60)))))))" +"(let-values(((lst_64)(module-instance-shifted-requires mi_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_65)))" +"(let-values()(check-list lst_64)))" "((letrec-values(((for-loop_86)" -"(lambda(lst_66)" +"(lambda(lst_65)" "(begin" " 'for-loop" -"(if(pair? lst_66)" -"(let-values(((phase+mpis_1)(unsafe-car lst_66))" -"((rest_29)(unsafe-cdr lst_66)))" +"(if(pair? lst_65)" +"(let-values(((phase+mpis_1)(unsafe-car lst_65))" +"((rest_29)(unsafe-cdr lst_65)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13787,7 +13796,7 @@ static const char *startup_source = "(car" " phase+mpis_1)))" "(begin" -"(let-values(((lst_67)" +"(let-values(((lst_66)" "(cdr" " phase+mpis_1)))" "(begin" @@ -13796,19 +13805,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_67)))" +" lst_66)))" "((letrec-values(((for-loop_87)" -"(lambda(lst_68)" +"(lambda(lst_67)" "(begin" " 'for-loop" "(if(pair?" -" lst_68)" +" lst_67)" "(let-values(((req-mpi_1)" "(unsafe-car" -" lst_68))" +" lst_67))" "((rest_30)" "(unsafe-cdr" -" lst_68)))" +" lst_67)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13855,14 +13864,14 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_87)" -" lst_67)))" +" lst_66)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_86 rest_29)(values))))" "(values))))))" " for-loop_86)" -" lst_65)))" +" lst_64)))" "(void)" "(if(label-phase? instance-phase_4)" "(void)" @@ -14046,23 +14055,23 @@ static const char *startup_source = "(namespace-available-module-instances ns_37)" " run-phase_4" " null)" -"(let-values(((lst_69)(reverse$1 mis_0)))" +"(let-values(((lst_68)(reverse$1 mis_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_69)))" +"(let-values()(check-list lst_68)))" "((letrec-values(((for-loop_89)" -"(lambda(lst_70)" +"(lambda(lst_69)" "(begin" " 'for-loop" -"(if(pair? lst_70)" +"(if(pair? lst_69)" "(let-values(((mi_8)" "(unsafe-car" -" lst_70))" +" lst_69))" "((rest_31)" "(unsafe-cdr" -" lst_70)))" +" lst_69)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -14094,7 +14103,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_89)" -" lst_69)))" +" lst_68)))" "(void)" "(loop_76)))))))))" " loop_76)))))))))))))" @@ -14162,15 +14171,15 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_71) requires_1))" +"(let-values(((lst_70) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_70)))" "((letrec-values(((for-loop_90)" -"(lambda(fold-var_51 lst_72)" +"(lambda(fold-var_51 lst_71)" "(begin" " 'for-loop" -"(if(pair? lst_72)" -"(let-values(((phase+mpis_2)(unsafe-car lst_72))((rest_32)(unsafe-cdr lst_72)))" +"(if(pair? lst_71)" +"(let-values(((phase+mpis_2)(unsafe-car lst_71))((rest_32)(unsafe-cdr lst_71)))" "(let-values(((fold-var_52)" "(let-values(((fold-var_53) fold-var_51))" "(let-values(((fold-var_54)" @@ -14180,24 +14189,24 @@ static const char *startup_source = "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_73)(cdr phase+mpis_2)))" +"(let-values(((lst_72)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" +"(let-values()(check-list lst_72)))" "((letrec-values(((for-loop_91)" "(lambda(fold-var_55" -" lst_74)" +" lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_74)" +"(if(pair? lst_73)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_74))" +" lst_73))" "((rest_33)" "(unsafe-cdr" -" lst_74)))" +" lst_73)))" "(let-values(((fold-var_56)" "(let-values(((fold-var_57)" " fold-var_55))" @@ -14218,14 +14227,14 @@ static const char *startup_source = " fold-var_55)))))" " for-loop_91)" " null" -" lst_73))))))" +" lst_72))))))" " fold-var_53))))" "(values fold-var_54)))))" "(if(not #f)(for-loop_90 fold-var_52 rest_32) fold-var_52)))" " fold-var_51)))))" " for-loop_90)" " null" -" lst_71)))))))" +" lst_70)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" @@ -14237,12 +14246,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_73)))" "((letrec-values(((for-loop_92)" -"(lambda(table_100 i_86)" +"(lambda(table_100 i_85)" "(begin" " 'for-loop" -"(if i_86" +"(if i_85" "(let-values(((phase_31 at-phase_6)" -"(hash-iterate-key+value ht_73 i_86)))" +"(hash-iterate-key+value ht_73 i_85)))" "(let-values(((table_101)" "(let-values(((table_102) table_100))" "(let-values(((table_103)" @@ -14262,15 +14271,15 @@ static const char *startup_source = " ht_74)))" "((letrec-values(((for-loop_93)" "(lambda(table_104" -" i_87)" +" i_86)" "(begin" " 'for-loop" -"(if i_87" +"(if i_86" "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" " ht_74" -" i_87)))" +" i_86)))" "(let-values(((table_105)" "(let-values(((table_106)" " table_104))" @@ -14299,7 +14308,7 @@ static const char *startup_source = " table_105" "(hash-iterate-next" " ht_74" -" i_87))" +" i_86))" " table_105)))" " table_104)))))" " for-loop_93)" @@ -14312,7 +14321,7 @@ static const char *startup_source = " val_32)))))" "(values table_103)))))" "(if(not #f)" -"(for-loop_92 table_101(hash-iterate-next ht_73 i_86))" +"(for-loop_92 table_101(hash-iterate-next ht_73 i_85))" " table_101)))" " table_100)))))" " for-loop_92)" @@ -14426,45 +14435,45 @@ static const char *startup_source = "(lambda(id_13 phase_33 ns_43)" "(begin" "((letrec-values(((loop_77)" -"(lambda(id_2 in-s_1)" +"(lambda(id_14 in-s_1)" "(begin" " 'loop" -"(let-values(((b_46)" -"(let-values(((id1_2) id_2)((phase2_0) phase_33)((temp3_0) #t))" +"(let-values(((b_57)" +"(let-values(((id1_2) id_14)((phase2_0) phase_33)((temp3_0) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp3_0 #t #f #f id1_2 phase2_0))))" -"(let-values(((c1_22)(binding-free=id b_46)))" +"(let-values(((c1_22)(binding-free=id b_57)))" "(if c1_22" "((lambda(next-id_0)" "(let-values((()" "(begin" -"(if(if(module-binding? b_46)" +"(if(if(module-binding? b_57)" "(not" -"(top-level-module-path-index?(module-binding-module b_46)))" +"(top-level-module-path-index?(module-binding-module b_57)))" " #f)" "(let-values()" "(let-values(((mi_14)" "(binding->module-instance" -" b_46" +" b_57" " ns_43" " phase_33" -" id_2)))" -" (check-access b_46 mi_14 id_2 in-s_1 \"provided binding\")))" +" id_14)))" +" (check-access b_57 mi_14 id_14 in-s_1 \"provided binding\")))" "(void))" "(values))))" "(let-values(((next-b_0)" "(loop_77" " next-id_0" "(let-values(((or-part_72) in-s_1))" -"(if or-part_72 or-part_72 id_2)))))" +"(if or-part_72 or-part_72 id_14)))))" "(if(not next-b_0)" -"(let-values() b_46)" +"(let-values() b_57)" "(if(if(module-binding? next-b_0)" "(if(not(module-binding-extra-inspector next-b_0))" -"(syntax-inspector id_2)" +"(syntax-inspector id_14)" " #f)" " #f)" "(let-values()" -"(let-values(((next-b4_0) next-b_0)((temp5_1)(syntax-inspector id_2)))" +"(let-values(((next-b4_0) next-b_0)((temp5_1)(syntax-inspector id_14)))" "(module-binding-update48.1" " temp5_1" " #t" @@ -14491,7 +14500,7 @@ static const char *startup_source = " next-b4_0)))" "(let-values() next-b_0))))))" " c1_22)" -"(let-values() b_46))))))))" +"(let-values() b_57))))))))" " loop_77)" " id_13" " #f))))" @@ -14586,7 +14595,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_93)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_158)(v_93 t_37 s_158)))))))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_159)(v_93 t_37 s_159)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_43 val_21)(begin(hash-set env_0 key_43 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14617,14 +14626,16 @@ static const char *startup_source = "(lambda(no-stops?2_0 id4_0 t5_0)" "(begin" " 'substitute-variable6" -"(let-values(((id_5) id4_0))" +"(let-values(((id_15) id4_0))" "(let-values(((t_38) t5_0))" "(let-values(((no-stops?_0) no-stops?2_0))" "(let-values()" "(if(if no-stops?_0(local-variable? t_38) #f)" "(let-values(((bind-id_0)(local-variable-id t_38)))" -"(syntax-rearm$1(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_5 id_5) id_5))" -" id_5))))))))" +"(syntax-rearm$1" +"(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_15 id_15)" +" id_15))" +" id_15))))))))" "(define-values(missing)(gensym 'missing))" "(define-values" "(transformer?)" @@ -14641,7 +14652,7 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_159) s_159))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_160) s_160))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" @@ -14670,16 +14681,16 @@ static const char *startup_source = "(lambda(in10_0 in12_0 just-for-nominal?11_0 just-for-nominal?13_0 id14_0 binding15_0 phase16_0)" "(begin" " 'add-binding!17" -"(let-values(((id_14) id14_0))" +"(let-values(((id_16) id14_0))" "(let-values(((binding_8) binding15_0))" "(let-values(((phase_34) phase16_0))" "(let-values(((in-s_2)(if in12_0 in10_0 #f)))" "(let-values(((just-for-nominal?_2)(if just-for-nominal?13_0 just-for-nominal?11_0 #f)))" "(let-values()" "(begin" -"(check-id-taint id_14 in-s_2)" -"(let-values(((temp55_1)(syntax-scope-set id_14 phase_34))" -"((temp56_0)(syntax-e$1 id_14))" +"(check-id-taint id_16 in-s_2)" +"(let-values(((temp55_1)(syntax-scope-set id_16 phase_34))" +"((temp56_0)(syntax-e$1 id_16))" "((binding57_0) binding_8)" "((just-for-nominal?58_0) just-for-nominal?_2))" "(add-binding-in-scopes!20.1 just-for-nominal?58_0 #t temp55_1 temp56_0 binding57_0))))))))))))" @@ -14688,17 +14699,17 @@ static const char *startup_source = "(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_160) s24_0))" +"(let-values(((s_161) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_35) phase26_1))" "(let-values(((in-s_3)(if in22_0 in20_0 #f)))" "(let-values(((shadow-except_2)(if shadow-except23_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_160)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_160))" +"(if(syntax-tainted?$1 s_161)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_161))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_160 phase_35))" +"(let-values(((temp59_1)(syntax-scope-set s_161 phase_35))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" @@ -14707,19 +14718,19 @@ static const char *startup_source = "(lambda(frame-id30_0 frame-id32_1 in31_0 in33_0 id34_0 phase35_0 counter36_0)" "(begin" " 'add-local-binding!37" -"(let-values(((id_15) id34_0))" +"(let-values(((id_17) id34_0))" "(let-values(((phase_36) phase35_0))" "(let-values(((counter_1) counter36_0))" "(let-values(((frame-id_5)(if frame-id32_1 frame-id30_0 #f)))" "(let-values(((in-s_4)(if in33_0 in31_0 #f)))" "(let-values()" -"(let-values((()(begin(check-id-taint id_15 in-s_4)(values))))" +"(let-values((()(begin(check-id-taint id_17 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" "(let-values(((key_44)" -" (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_15) (unbox counter_1)))))" +" (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_17) (unbox counter_1)))))" "(begin" -"(let-values(((temp62_0)(syntax-scope-set id_15 phase_36))" -"((temp63_1)(syntax-e$1 id_15))" +"(let-values(((temp62_0)(syntax-scope-set id_17 phase_36))" +"((temp63_1)(syntax-e$1 id_17))" "((temp64_1)" "(let-values(((key65_0) key_44)((frame-id66_0) frame-id_5))" "(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))" @@ -14727,10 +14738,10 @@ static const char *startup_source = " key_44)))))))))))))" "(define-values" "(check-id-taint)" -"(lambda(id_16 in-s_5)" +"(lambda(id_18 in-s_5)" "(begin" -"(if(syntax-tainted?$1 id_16)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_16))" +"(if(syntax-tainted?$1 id_18)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_18))" "(void)))))" "(define-values" "(binding-lookup50.1)" @@ -14746,22 +14757,22 @@ static const char *startup_source = " id49_0)" "(begin" " 'binding-lookup50" -"(let-values(((b_57) b44_0))" +"(let-values(((b_58) b44_0))" "(let-values(((env_1) env45_0))" "(let-values(((lift-envs_0) lift-envs46_0))" "(let-values(((ns_44) ns47_0))" "(let-values(((phase_37) phase48_0))" -"(let-values(((id_17) id49_0))" +"(let-values(((id_19) id49_0))" "(let-values(((in-s_6)(if in42_0 in40_0 #f)))" "(let-values(((out-of-context-as-variable?_0)" "(if out-of-context-as-variable?43_0 out-of-context-as-variable?41_0 #f)))" "(let-values()" -"(if(module-binding? b_57)" +"(if(module-binding? b_58)" "(let-values()" -"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_57))))" +"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_58))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_57 ns_44 phase_37 id_17)" +"(binding->module-instance b_58 ns_44 phase_37 id_19)" " #f)))" "(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))" "(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))" @@ -14769,19 +14780,19 @@ static const char *startup_source = "(if top-level?_0" " ns_44" "(if mi_15(module-instance-namespace mi_15) #f))))" -"(let-values((()(begin(check-taint id_17)(values))))" +"(let-values((()(begin(check-taint id_19)(values))))" "(let-values(((t_40)" "(namespace-get-transformer" " m-ns_7" -"(module-binding-phase b_57)" -"(module-binding-sym b_57)" +"(module-binding-phase b_58)" +"(module-binding-sym b_58)" " variable)))" "(let-values(((protected?_1)" "(if mi_15" "(check-access" -" b_57" +" b_58" " mi_15" -" id_17" +" id_19" " in-s_6" " (if (variable? t_40) \"variable\" \"transformer\"))" " #f)))" @@ -14792,27 +14803,27 @@ static const char *startup_source = " #f)" " #f)))" "(values t_40 primitive?_1 insp_6 protected?_1)))))))))))" -"(if(local-binding? b_57)" +"(if(local-binding? b_58)" "(let-values()" -"(let-values(((t_41)(hash-ref env_1(local-binding-key b_57) missing)))" +"(let-values(((t_41)(hash-ref env_1(local-binding-key b_58) missing)))" "(if(eq? t_41 missing)" "(let-values()" "(values" "(let-values(((or-part_164)" -"(let-values(((lst_75) lift-envs_0))" +"(let-values(((lst_74) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" +"(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_94)" -"(lambda(result_60 lst_76)" +"(lambda(result_60 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_76)" +"(if(pair? lst_75)" "(let-values(((lift-env_0)" -"(unsafe-car lst_76))" +"(unsafe-car lst_75))" "((rest_34)" -"(unsafe-cdr lst_76)))" +"(unsafe-cdr lst_75)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14822,12 +14833,12 @@ static const char *startup_source = "(unbox" " lift-env_0)" "(local-binding-key" -" b_57)" +" b_58)" " #f)))))" "(values" " result_62)))))" "(if(if(not" -"((lambda x_40 result_61)" +"((lambda x_39 result_61)" " lift-env_0))" "(not #f)" " #f)" @@ -14836,58 +14847,58 @@ static const char *startup_source = " result_60)))))" " for-loop_94)" " #f" -" lst_75)))))" +" lst_74)))))" "(if or-part_164" " or-part_164" "(if out-of-context-as-variable?_0" " variable" -" (error \"identifier used out of context:\" id_17))))" +" (error \"identifier used out of context:\" id_19))))" " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_17)(values t_41 #f #f #f))))))" -" (let-values () (error \"internal error: unknown binding for lookup:\" b_57))))))))))))))))" +"(let-values()(begin(check-taint id_19)(values t_41 #f #f #f))))))" +" (let-values () (error \"internal error: unknown binding for lookup:\" b_58))))))))))))))))" "(define-values" "(check-taint)" -"(lambda(id_18)" +"(lambda(id_20)" "(begin" -"(if(syntax-tainted?$1 id_18)" -" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" +"(if(syntax-tainted?$1 id_20)" +" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_20))" "(void)))))" -"(define-values(cons-ish)(lambda(a_36 b_58)(begin(if(null? b_58) a_36(cons a_36 b_58)))))" +"(define-values(cons-ish)(lambda(a_36 b_59)(begin(if(null? b_59) a_36(cons a_36 b_59)))))" "(define-values" "(free-id-set)" "(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_77) ids_0))" +"(let-values(((lst_76) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_95)" -"(lambda(ht_75 lst_78)" +"(lambda(ht_75 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((id_19)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((id_21)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((ht_76)" "(let-values(((ht_77) ht_75))" "(let-values(((ht_78)" "(let-values()" "(let-values(((sym_21)" "(identifier-binding-symbol$1" -" id_19" +" id_21" " phase_38)))" "(hash-set" " ht_77" " sym_21" "(cons-ish" -" id_19" +" id_21" "(hash-ref ht_77 sym_21 null)))))))" "(values ht_78)))))" "(if(not #f)(for-loop_95 ht_76 rest_35) ht_76)))" " ht_75)))))" " for-loop_95)" " '#hasheq()" -" lst_77))))))" +" lst_76))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" @@ -14896,34 +14907,34 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_79)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" "((letrec-values(((for-loop_96)" -"(lambda(result_3 lst_80)" +"(lambda(result_3 lst_79)" "(begin" " 'for-loop" -"(if(not(null? lst_80))" -"(let-values(((id_20)(if(pair? lst_80)(car lst_80) lst_80))" -"((rest_36)(if(pair? lst_80)(cdr lst_80) null)))" +"(if(not(null? lst_79))" +"(let-values(((id_2)(if(pair? lst_79)(car lst_79) lst_79))" +"((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" "(let-values(((result_63)" "(let-values()" "(let-values(((result_64)" "(let-values()" "(let-values()" "(free-identifier=?$1" -" id_20" +" id_2" " given-id_0" " phase_39" " phase_39)))))" "(values result_64)))))" -"(if(if(not((lambda x_41 result_63) id_20))(not #f) #f)" +"(if(if(not((lambda x_40 result_63) id_2))(not #f) #f)" "(for-loop_96 result_63 rest_36)" " result_63)))" " result_3)))))" " for-loop_96)" " #f" -" lst_79)))))))" +" lst_78)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15508,14 +15519,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_161)" +"(lambda(s_162)" "(begin" " 'to-syntax-list" -"(if(list? s_161)" -"(let-values() s_161)" -"(if(pair? s_161)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_161))))(if r_28(cons(car s_161) r_28) #f)))" -"(if(syntax?$1 s_161)(let-values()(to-syntax-list.1(syntax-e$1 s_161)))(let-values() #f)))))))" +"(if(list? s_162)" +"(let-values() s_162)" +"(if(pair? s_162)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_162))))(if r_28(cons(car s_162) r_28) #f)))" +"(if(syntax?$1 s_162)(let-values()(to-syntax-list.1(syntax-e$1 s_162)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -15531,8 +15542,8 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_162)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_162) s_162)))))" +"(let-values(((s_163)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_163) s_163)))))" "(if(eq? phase_33 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" @@ -15595,23 +15606,23 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_81)(list core-primitives core-forms))((lst_82) '(#f #t)))" +"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_80)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_81)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_82)))" "((letrec-values(((for-loop_97)" -"(lambda(table_108 lst_83 lst_84)" +"(lambda(table_108 lst_82 lst_83)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_84) #f)" -"(let-values(((syms_12)(unsafe-car lst_83))" -"((rest_37)(unsafe-cdr lst_83))" -"((syntax?_2)(unsafe-car lst_84))" -"((rest_38)(unsafe-cdr lst_84)))" +"(if(if(pair? lst_82)(pair? lst_83) #f)" +"(let-values(((syms_12)(unsafe-car lst_82))" +"((rest_37)(unsafe-cdr lst_82))" +"((syntax?_2)(unsafe-car lst_83))" +"((rest_38)(unsafe-cdr lst_83)))" "(let-values(((table_109)" "(let-values(((table_110) table_108))" "(let-values(((ht_79) syms_12))" @@ -15623,14 +15634,14 @@ static const char *startup_source = "(check-in-hash-keys ht_79)))" "((letrec-values(((for-loop_98)" "(lambda(table_111" -" i_88)" +" i_87)" "(begin" " 'for-loop" -"(if i_88" +"(if i_87" "(let-values(((sym_24)" "(hash-iterate-key" " ht_79" -" i_88)))" +" i_87)))" "(let-values(((table_112)" "(let-values(((table_113)" " table_111))" @@ -15639,7 +15650,7 @@ static const char *startup_source = "(let-values(((key_45" " val_35)" "(let-values()" -"(let-values(((b_59)" +"(let-values(((b_60)" "(let-values(((core-mpi17_0)" " core-mpi)" "((temp18_3)" @@ -15672,10 +15683,10 @@ static const char *startup_source = " sym_24" "(if syntax?_2" "(provided1.1" -" b_59" +" b_60" " #f" " #t)" -" b_59))))))" +" b_60))))))" "(hash-set" " table_113" " key_45" @@ -15688,7 +15699,7 @@ static const char *startup_source = " table_112" "(hash-iterate-next" " ht_79" -" i_88))" +" i_87))" " table_112)))" " table_111)))))" " for-loop_98)" @@ -15700,8 +15711,8 @@ static const char *startup_source = " table_108)))))" " for-loop_97)" " '#hasheq()" -" lst_81" -" lst_82)))))" +" lst_80" +" lst_81)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15741,14 +15752,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_80)))" "((letrec-values(((for-loop_99)" -"(lambda(i_89)" +"(lambda(i_88)" "(begin" " 'for-loop" -"(if i_89" +"(if i_88" "(let-values(((sym_25 val_36)" "(hash-iterate-key+value" " ht_80" -" i_89)))" +" i_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15764,7 +15775,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_99" -"(hash-iterate-next ht_80 i_89))" +"(hash-iterate-next ht_80 i_88))" "(values))))" "(values))))))" " for-loop_99)" @@ -15776,14 +15787,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_81)))" "((letrec-values(((for-loop_100)" -"(lambda(i_90)" +"(lambda(i_89)" "(begin" " 'for-loop" -"(if i_90" +"(if i_89" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" " ht_81" -" i_90)))" +" i_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15805,7 +15816,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_100" -"(hash-iterate-next ht_81 i_90))" +"(hash-iterate-next ht_81 i_89))" "(values))))" "(values))))))" " for-loop_100)" @@ -15853,20 +15864,20 @@ static const char *startup_source = "(lambda(s_23 phase_42)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_163) s_23))" -"(if(let-values(((s_164)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(if(pair? s_164)" -"(if(let-values(((s_165)(car s_164)))" -"(let-values(((or-part_167)(if(syntax?$1 s_165)(symbol?(syntax-e$1 s_165)) #f)))" -"(if or-part_167 or-part_167(symbol? s_165))))" -"(let-values(((s_166)(cdr s_164))) #t)" +"(let-values(((s_164) s_23))" +"(if(let-values(((s_165)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" +"(if(pair? s_165)" +"(if(let-values(((s_166)(car s_165)))" +"(let-values(((or-part_167)(if(syntax?$1 s_166)(symbol?(syntax-e$1 s_166)) #f)))" +"(if or-part_167 or-part_167(symbol? s_166))))" +"(let-values(((s_167)(cdr s_165))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_167)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(let-values(((id25_0)(let-values(((s_66)(car s_167))) s_66))" -"((_26_0)(let-values(((s_79)(cdr s_167))) s_79)))" +"(let-values(((s_168)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" +"(let-values(((id25_0)(let-values(((s_66)(car s_168))) s_66))" +"((_26_0)(let-values(((s_79)(cdr s_168))) s_79)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15896,19 +15907,19 @@ static const char *startup_source = "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_168)" +"(let-values(((s_169)" "(let-values(((or-part_13)(syntax->list$1 s_69)))" "(if or-part_13 or-part_13(syntax-e$1 s_69))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_169)" +"(lambda(s_170)" "(begin" " 's->" "(loop_33" -" s_169" -"(syntax-taint-mode-property s_169)))))" +" s_170" +"(syntax-taint-mode-property s_170)))))" "((seen_19) #f))" -"(let-values(((s_170) s_168)" +"(let-values(((s_171) s_169)" "((f_36)" "(lambda(tail?_40 v_60)" "(begin" @@ -15918,7 +15929,7 @@ static const char *startup_source = "(let-values()(f_35 tail?_40 v_60))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_171 prev-depth_8)" +"(lambda(tail?_41 s_172 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15927,67 +15938,67 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_171" -"(lambda(tail?_42 s_172)" -"(f_36 tail?_42 s_172))" +" s_172" +"(lambda(tail?_42 s_173)" +"(f_36 tail?_42 s_173))" " seen_20))" -"(if(null? s_171)" +"(if(null? s_172)" "(let-values()" -"(f_36 tail?_41 s_171))" -"(if(pair? s_171)" +"(f_36 tail?_41 s_172))" +"(if(pair? s_172)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_171)" +"(car s_172)" " depth_8)" "(loop_7" " #t" -"(cdr s_171)" +"(cdr s_172)" " depth_8))))" "(if(let-values(((or-part_168)" "(symbol?" -" s_171)))" +" s_172)))" "(if or-part_168" " or-part_168" "(let-values(((or-part_71)" "(boolean?" -" s_171)))" +" s_172)))" "(if or-part_71" " or-part_71" -"(number? s_171)))))" -"(let-values()(f_36 #f s_171))" +"(number? s_172)))))" +"(let-values()(f_36 #f s_172))" "(if(let-values(((or-part_72)" "(vector?" -" s_171)))" +" s_172)))" "(if or-part_72" " or-part_72" "(let-values(((or-part_73)" "(box?" -" s_171)))" +" s_172)))" "(if or-part_73" " or-part_73" "(let-values(((or-part_74)" "(prefab-struct-key" -" s_171)))" +" s_172)))" "(if or-part_74" " or-part_74" "(hash?" -" s_171)))))))" +" s_172)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_171" -"(lambda(tail?_43 s_173)" -"(f_36 tail?_43 s_173))" +" s_172" +"(lambda(tail?_43 s_174)" +"(f_36 tail?_43 s_174))" " seen_20))" "(let-values()" -"(f_36 #f s_171))))))))))))" +"(f_36 #f s_172))))))))))))" " loop_7)" " #f" -" s_170" +" s_171" " 0)))))" "(datum->syntax$1" " #f" @@ -16014,20 +16025,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_174)" +"(let-values(((s_175)" "(let-values(((or-part_169)" "(syntax->list$1(cdr d_19))))" "(if or-part_169 or-part_169(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_175)" +"(lambda(s_176)" "(begin" " 's->" "(loop_33" -" s_175" -"(syntax-taint-mode-property s_175)))))" +" s_176" +"(syntax-taint-mode-property s_176)))))" "((seen_21) #f))" -"(let-values(((s_82) s_174)" +"(let-values(((s_82) s_175)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -16037,7 +16048,7 @@ static const char *startup_source = "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" "((letrec-values(((loop_78)" -"(lambda(tail?_46 s_176 prev-depth_9)" +"(lambda(tail?_46 s_177 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16046,71 +16057,71 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" -"(lambda(tail?_47 s_177)" -"(f_8 tail?_47 s_177))" +" s_177" +"(lambda(tail?_47 s_178)" +"(f_8 tail?_47 s_178))" " seen_22))" -"(if(null? s_176)" +"(if(null? s_177)" "(let-values()" -"(f_8 tail?_46 s_176))" -"(if(pair? s_176)" +"(f_8 tail?_46 s_177))" +"(if(pair? s_177)" "(let-values()" "(f_8" " tail?_46" "(cons" "(loop_78" " #f" -"(car s_176)" +"(car s_177)" " depth_9)" "(loop_78" " #t" -"(cdr s_176)" +"(cdr s_177)" " depth_9))))" "(if(let-values(((or-part_170)" "(symbol?" -" s_176)))" +" s_177)))" "(if or-part_170" " or-part_170" "(let-values(((or-part_171)" "(boolean?" -" s_176)))" +" s_177)))" "(if or-part_171" " or-part_171" "(number?" -" s_176)))))" +" s_177)))))" "(let-values()" -"(f_8 #f s_176))" +"(f_8 #f s_177))" "(if(let-values(((or-part_172)" "(vector?" -" s_176)))" +" s_177)))" "(if or-part_172" " or-part_172" "(let-values(((or-part_173)" "(box?" -" s_176)))" +" s_177)))" "(if or-part_173" " or-part_173" "(let-values(((or-part_174)" "(prefab-struct-key" -" s_176)))" +" s_177)))" "(if or-part_174" " or-part_174" "(hash?" -" s_176)))))))" +" s_177)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" +" s_177" "(lambda(tail?_48" -" s_178)" +" s_179)" "(f_8" " tail?_48" -" s_178))" +" s_179))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_176))))))))))))" +" s_177))))))))))))" " loop_78)" " #f" " s_82" @@ -16140,13 +16151,13 @@ static const char *startup_source = "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_179)" +"(lambda(s_180)" "(begin" -"(let-values(((or-part_175)(syntax-property$1 s_179 'taint-mode)))" -"(if or-part_175 or-part_175(syntax-property$1 s_179 'certify-mode))))))" +"(let-values(((or-part_175)(syntax-property$1 s_180 'taint-mode)))" +"(if or-part_175 or-part_175(syntax-property$1 s_180 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" +"(lambda(s_181)(begin(syntax-property-remove(syntax-property-remove s_181 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16155,18 +16166,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_78)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" +"(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 lst_85)" +"(lambda(fold-var_59 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((smss_26)(unsafe-car lst_85))" -"((rest_39)(unsafe-cdr lst_85)))" +"(if(pair? lst_84)" +"(let-values(((smss_26)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16214,14 +16225,14 @@ static const char *startup_source = "((letrec-values(((for-loop_49)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_91)" +" i_90)" "(begin" " 'for-loop" -"(if i_91" +"(if i_90" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" " ht_46" -" i_91)))" +" i_90)))" "(let-values(((bindings_3" " covered-scope-sets_1)" "(let-values(((ht_82" @@ -16254,31 +16265,31 @@ static const char *startup_source = "((letrec-values(((for-loop_102)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_92)" +" i_91)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_92))" +" i_91))" "(let-values(((scs_15)" "(if(pair?" -" i_92)" +" i_91)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_92)))" +" i_91)))" "(let-values()" "(hash-iterate-key" " ht_82" -" i_92))))" -"((b_60)" +" i_91))))" +"((b_61)" "(if(pair?" -" i_92)" +" i_91)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_92))))" +" i_91))))" "(let-values(((b-info_1)" "(if(symbol-interned?" " sym_16)" @@ -16300,7 +16311,7 @@ static const char *startup_source = "(let-values()" "(hash-iterate-value" " ht_82" -" i_92)))))" +" i_91)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16308,7 +16319,7 @@ static const char *startup_source = "((covered-scope-sets_4)" " covered-scope-sets_2))" "(if(if scs_15" -"(if b_60" +"(if b_61" "(if(let-values(((or-part_176)" " all-bindings?_0))" "(if or-part_176" @@ -16344,20 +16355,20 @@ static const char *startup_source = " scs_15" " s-scs_0)" "(if(local-binding?" -" b_60)" +" b_61)" " 'local" " 'module)" "(if(local-binding?" -" b_60)" +" b_61)" "(local-binding-key" -" b_60)" +" b_61)" "(vector" "(module-binding-sym" -" b_60)" +" b_61)" "(module-binding-module" -" b_60)" +" b_61)" "(module-binding-phase" -" b_60))))" +" b_61))))" " bindings_7)" "(set-add" " covered-scope-sets_5" @@ -16374,15 +16385,15 @@ static const char *startup_source = " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_92)" +" i_91)" "(let-values()" "(cdr" -" i_92))" +" i_91))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" " ht_82" -" i_92)))" +" i_91)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16408,7 +16419,7 @@ static const char *startup_source = " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" " ht_46" -" i_91))" +" i_90))" "(values" " bindings_3" " covered-scope-sets_1))))" @@ -16435,7 +16446,7 @@ static const char *startup_source = " fold-var_59)))))" " for-loop_101)" " null" -" lst_78))))))" +" lst_77))))))" "(let-values(((ht_75)(car hts_0)))(if(null?(cdr hts_0)) ht_75(hash-set ht_75 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" @@ -16449,11 +16460,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_83)))" "((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 i_93)" +"(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" -"(if i_93" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_93)))" +"(if i_92" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_92)))" "(let-values(((fold-var_19)" "(let-values(((fold-var_20) fold-var_63))" "(let-values(((fold-var_64)" @@ -16475,7 +16486,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_103" " fold-var_19" -"(unsafe-immutable-hash-iterate-next ht_83 i_93))" +"(unsafe-immutable-hash-iterate-next ht_83 i_92))" " fold-var_19)))" " fold-var_63)))))" " for-loop_103)" @@ -16486,20 +16497,20 @@ static const char *startup_source = "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" -"(lambda(id_21 ctx_7)" +"(lambda(id_22 ctx_7)" "(begin" "(raise-syntax-error$1" " #f" " \"identifier's binding is ambiguous\"" -" id_21" +" id_22" " #f" " null" -"(syntax-debug-info-string id_21 ctx_7)))))" +"(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_181 ctx_8)" +"(lambda(s_182 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_181(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_182(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16510,12 +16521,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(result_65 lst_86)" +"(lambda(result_65 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((fb-info_0)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((fb-info_0)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16546,19 +16557,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_87)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_86)))" "((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_88)" +"(lambda(fold-var_65 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((b_21)(unsafe-car lst_88))" +"(if(pair? lst_87)" +"(let-values(((b_21)(unsafe-car lst_87))" "((rest_41)" -"(unsafe-cdr lst_88)))" +"(unsafe-cdr lst_87)))" "(let-values(((fold-var_66)" "(let-values(((fold-var_27)" " fold-var_65))" @@ -16578,26 +16589,26 @@ static const char *startup_source = " fold-var_65)))))" " for-loop_105)" " null" -" lst_87)))))" +" lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_89) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_90 pos_11)" +"(lambda(fold-var_67 lst_89 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_90) #t #f)" +"(if(if(pair? lst_89) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_90))" +"(unsafe-car lst_89))" "((rest_42)" -"(unsafe-cdr lst_90))" +"(unsafe-cdr lst_89))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_68)" @@ -16621,7 +16632,7 @@ static const char *startup_source = " fold-var_67)))))" " for-loop_106)" " null" -" lst_89" +" lst_88" " start_14))))))))))" " loop_77)" " info_3" @@ -16629,31 +16640,31 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_91) relevant-scope-sets_0))" +"(let-values(((lst_90) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" +"(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_107)" -"(lambda(s_182 lst_92)" +"(lambda(s_183 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" -"(let-values(((l_48)(unsafe-car lst_92))" -"((rest_43)(unsafe-cdr lst_92)))" +"(if(pair? lst_91)" +"(let-values(((l_48)(unsafe-car lst_91))" +"((rest_43)(unsafe-cdr lst_91)))" "(let-values(((s_83)" -"(let-values(((s_183) s_182))" -"(let-values(((s_184)" +"(let-values(((s_184) s_183))" +"(let-values(((s_185)" "(let-values()" "(set-intersect" -" s_183" +" s_184" "(list->set l_48)))))" -"(values s_184)))))" +"(values s_185)))))" "(if(not #f)(for-loop_107 s_83 rest_43) s_83)))" -" s_182)))))" +" s_183)))))" " for-loop_107)" "(list->set(car relevant-scope-sets_0))" -" lst_91))))))" +" lst_90))))))" "(string-append" "((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" @@ -16667,27 +16678,27 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_93)" +"(let-values(((lst_92)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_37 b_61)" +"(lambda(a_37 b_62)" "(begin" " 'temp2" "(if(hash-ref a_37 'match? #f)" -"(not(hash-ref b_61 'match? #f))" +"(not(hash-ref b_62 'match? #f))" " #f)))))" "(sort7.1 #f #f #f #f temp1_1 temp2_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" +"(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 lst_94)" +"(lambda(fold-var_63 lst_93)" "(begin" " 'for-loop" -"(if(pair? lst_94)" -"(let-values(((b_38)(unsafe-car lst_94))" -"((rest_44)(unsafe-cdr lst_94)))" +"(if(pair? lst_93)" +"(let-values(((b_38)(unsafe-car lst_93))" +"((rest_44)(unsafe-cdr lst_93)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64)" " fold-var_63))" @@ -16732,26 +16743,26 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_103)" " null" -" lst_93)))))" +" lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_95) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" +"(let-values()(check-list lst_94)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" "((letrec-values(((for-loop_108)" -"(lambda(fold-var_71 lst_96 pos_12)" +"(lambda(fold-var_71 lst_95 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_96) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_96))" -"((rest_0)(unsafe-cdr lst_96))" +"(if(if(pair? lst_95) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_95))" +"((rest_0)(unsafe-cdr lst_95))" "((layer_3) pos_12))" "(let-values(((fold-var_72)" "(let-values(((fold-var_73)" @@ -16774,7 +16785,7 @@ static const char *startup_source = " fold-var_71)))))" " for-loop_108)" " null" -" lst_95" +" lst_94" " start_15)))))))))))" " loop_78)" " info_3" @@ -16795,16 +16806,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_185)(unsafe-car lst_10))" +"(let-values(((s_186)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_76)" "(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_185)" +"(if(set-member? common-scopes_0 s_186)" "(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_185)" +"(let-values() s_186)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_77))))" @@ -16840,26 +16851,26 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_97) scopes_19))" +"(let-values(((lst_96) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" +"(let-values()(check-list lst_96)))" "((letrec-values(((for-loop_109)" -"(lambda(fold-var_78 lst_98)" +"(lambda(fold-var_78 lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((s_186)(unsafe-car lst_98))" -"((rest_45)(unsafe-cdr lst_98)))" +"(if(pair? lst_97)" +"(let-values(((s_187)(unsafe-car lst_97))" +"((rest_45)(unsafe-cdr lst_97)))" "(let-values(((fold-var_79)" "(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_186))" +"(if(not(set-member? common-scopes_1 s_187))" "(let-values(((fold-var_81) fold-var_80))" "(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_186)" +"(let-values() s_187)" " fold-var_81))))" "(values fold-var_82)))" " fold-var_80))))" @@ -16867,7 +16878,7 @@ static const char *startup_source = " fold-var_78)))))" " for-loop_109)" " null" -" lst_97))))" +" lst_96))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16875,17 +16886,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_99) strs_0))" +"(let-values(((lst_98) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" +"(let-values()(check-list lst_98)))" "((letrec-values(((for-loop_110)" -"(lambda(fold-var_83 lst_100)" +"(lambda(fold-var_83 lst_99)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((str_4)(unsafe-car lst_100))((rest_46)(unsafe-cdr lst_100)))" +"(if(pair? lst_99)" +"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" "(let-values(((fold-var_84)" "(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" @@ -16899,7 +16910,7 @@ static const char *startup_source = " fold-var_83)))))" " for-loop_110)" " null" -" lst_99)))))))))))" +" lst_98)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" @@ -16951,7 +16962,7 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_45) phase6_0))" -"(let-values(((s_187) s7_1))" +"(let-values(((s_188) s7_1))" "(let-values(((ht_78)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" @@ -16963,19 +16974,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_79) l_7))" +"(let-values(((lst_78) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" -"(lambda(lst_101)" +"(lambda(lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_101)" -"(let-values(((id_2)(unsafe-car lst_101))" +"(if(pair? lst_100)" +"(let-values(((id_14)(unsafe-car lst_100))" "((rest_47)" -"(unsafe-cdr lst_101)))" +"(unsafe-cdr lst_100)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16983,7 +16994,7 @@ static const char *startup_source = "(begin" "(let-values()" "(if(bound-identifier=?$1" -" id_2" +" id_14" " v_131" " phase_45)" "(let-values()" @@ -16992,7 +17003,7 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_187" +" s_188" " v_131))" "(void)))" "(values)))))" @@ -17002,7 +17013,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_96)" -" lst_79)))" +" lst_78)))" "(void)" "(hash-set ht_84(syntax-e$1 v_131)(cons v_131 l_7)))))" "(if(pair? v_131)" @@ -17020,11 +17031,11 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_102) s_0))" +"(let-values(((lst_101) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" @@ -17044,7 +17055,7 @@ static const char *startup_source = " fold-var_86)))))" " for-loop_111)" " null" -" lst_102)))))" +" lst_101)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17189,9 +17200,9 @@ static const char *startup_source = "(define-values(built-in-symbol?)(lambda(s_68)(begin(hash-ref built-in-symbols s_68 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_181)" +"(lambda(s_182)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_181))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_182))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17310,31 +17321,31 @@ static const char *startup_source = " 'unique-list" "(if(pair? v_132)" "(reverse$1" -"(let-values(((lst_103) v_132))" +"(let-values(((lst_102) v_132))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_103)))" +"(let-values()(check-list lst_102)))" "((letrec-values(((for-loop_26)" -"(lambda(fold-var_10 lst_82)" +"(lambda(fold-var_10 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((i_94)(unsafe-car lst_82))" -"((rest_49)(unsafe-cdr lst_82)))" +"(if(pair? lst_81)" +"(let-values(((i_93)(unsafe-car lst_81))" +"((rest_49)(unsafe-cdr lst_81)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_10))" "(let-values(((fold-var_91)" "(let-values()" "(cons" -"(let-values() i_94)" +"(let-values() i_93)" " fold-var_90))))" "(values fold-var_91)))))" "(if(not #f)(for-loop_26 fold-var_89 rest_49) fold-var_89)))" " fold-var_10)))))" " for-loop_26)" " null" -" lst_103))))" +" lst_102))))" " v_132)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" @@ -17345,11 +17356,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_85)))" "((letrec-values(((for-loop_83)" -"(lambda(table_116 i_95)" +"(lambda(table_116 i_94)" "(begin" " 'for-loop" -"(if i_95" -"(let-values(((k_19 v_62)(hash-iterate-key+value ht_85 i_95)))" +"(if i_94" +"(let-values(((k_19 v_62)(hash-iterate-key+value ht_85 i_94)))" "(let-values(((table_117)" "(let-values(((table_111) table_116))" "(let-values(((table_118)" @@ -17365,7 +17376,7 @@ static const char *startup_source = " val_37)))))" "(values table_118)))))" "(if(not #f)" -"(for-loop_83 table_117(hash-iterate-next ht_85 i_95))" +"(for-loop_83 table_117(hash-iterate-next ht_85 i_94))" " table_117)))" " table_116)))))" " for-loop_83)" @@ -17383,7 +17394,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_96) pos_15))" +"(let-values(((i_95) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17393,7 +17404,7 @@ static const char *startup_source = "(let-values(((mpi_25)" "(hash-ref" " rev-positions_0" -" i_96)))" +" i_95)))" "((letrec-values(((loop_81)" "(lambda(mpi_26)" "(begin" @@ -17484,24 +17495,24 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_29)" -"(lambda(i_97 pos_16)" +"(lambda(i_96 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_90) pos_16))" -"(let-values(((i_98)" -"(let-values(((i_99) i_97))" -"(let-values(((i_100)" +"(let-values(((i_89) pos_16))" +"(let-values(((i_97)" +"(let-values(((i_98) i_96))" +"(let-values(((i_99)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_134" -" i_99" +" i_98" "(let-values()" "(let-values(((mpi_27)" "(hash-ref" " rev-gen-order_0" -" i_90)))" +" i_89)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17537,17 +17548,17 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_99)))))" -"(values i_100)))))" +" i_98)))))" +"(values i_99)))))" "(if(if(not" "((lambda x_9" -"(unsafe-fx= i_98 len_11))" -" i_90))" +"(unsafe-fx= i_97 len_11))" +" i_89))" "(not #f)" " #f)" -"(for-loop_29 i_98(+ pos_16 inc_5))" -" i_98)))" -" i_97)))))" +"(for-loop_29 i_97(+ pos_16 inc_5))" +" i_97)))" +" i_96)))))" " for-loop_29)" " 0" " start_17)))))" @@ -17557,22 +17568,22 @@ static const char *startup_source = "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_101)" +"(let-values(((vec_25 i_100)" "(let-values(((start_18) 0)((end_12)(hash-count rev-positions_0))((inc_6) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" "((letrec-values(((for-loop_57)" -"(lambda(vec_26 i_102 pos_17)" +"(lambda(vec_26 i_101 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_21) pos_17))" -"(let-values(((vec_27 i_103)" +"(let-values(((vec_27 i_102)" "(let-values(((vec_28) vec_26)" -"((i_37) i_102))" -"(let-values(((vec_29 i_104)" +"((i_37) i_101))" +"(let-values(((vec_29 i_103)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17597,16 +17608,16 @@ static const char *startup_source = "(unsafe-fx+" " i_37" " 1)))))))" -"(values vec_29 i_104)))))" +"(values vec_29 i_103)))))" "(if(not #f)" -"(for-loop_57 vec_27 i_103(+ pos_17 inc_6))" -"(values vec_27 i_103))))" -"(values vec_26 i_102))))))" +"(for-loop_57 vec_27 i_102(+ pos_17 inc_6))" +"(values vec_27 i_102))))" +"(values vec_26 i_101))))))" " for-loop_57)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_101)))))))))))))))" +"(shrink-vector vec_25 i_100)))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" @@ -17627,7 +17638,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_12) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_105) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_104) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17636,7 +17647,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_105" +" i_104" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17676,14 +17687,14 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_114)" -"(lambda(i_106 pos_20)" +"(lambda(i_105 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" "(let-values(((p_32)(unsafe-vector-ref vec_32 pos_20)))" "(let-values(((i_45)" -"(let-values(((i_63) i_106))" -"(let-values(((i_107)" +"(let-values(((i_63) i_105))" +"(let-values(((i_106)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -17692,13 +17703,13 @@ static const char *startup_source = "(let-values()" "(vector*-ref gen_0 p_32)))" "(unsafe-fx+ 1 i_63)))))" -"(values i_107)))))" -"(if(if(not((lambda x_42(unsafe-fx= i_45 len_13)) p_32))" +"(values i_106)))))" +"(if(if(not((lambda x_41(unsafe-fx= i_45 len_13)) p_32))" "(not #f)" " #f)" "(for-loop_114 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" -" i_106)))))" +" i_105)))))" " for-loop_114)" " 0" " 0)))))" @@ -17716,11 +17727,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_87)))" "((letrec-values(((for-loop_115)" -"(lambda(i_108)" +"(lambda(i_107)" "(begin" " 'for-loop" -"(if i_108" -"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_87 i_108)))" +"(if i_107" +"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_87 i_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17730,7 +17741,7 @@ static const char *startup_source = "(vector-set! vec_34 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_108))(values))))" +"(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_107))(values))))" "(values))))))" " for-loop_115)" "(hash-iterate-first ht_87))))" @@ -17741,15 +17752,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_104) mus_0))" +"(let-values(((lst_103) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" "((letrec-values(((for-loop_116)" -"(lambda(fold-var_92 lst_105)" +"(lambda(fold-var_92 lst_104)" "(begin" " 'for-loop" -"(if(pair? lst_105)" -"(let-values(((mu_1)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" +"(if(pair? lst_104)" +"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_94) fold-var_92))" "(let-values(((fold-var_95)" @@ -17768,7 +17779,7 @@ static const char *startup_source = " fold-var_92)))))" " for-loop_116)" " null" -" lst_104)))))))" +" lst_103)))))))" "(define-values" "(interned-literal?)" "(lambda(v_89)" @@ -17800,18 +17811,18 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_106) phases-in-order_0))" +"(let-values(((lst_105) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" "((letrec-values(((for-loop_117)" -"(lambda(fold-var_96 lst_107)" +"(lambda(fold-var_96 lst_106)" "(begin" " 'for-loop" -"(if(pair? lst_107)" -"(let-values(((phase_47)(unsafe-car lst_107))((rest_51)(unsafe-cdr lst_107)))" +"(if(pair? lst_106)" +"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" "(let-values(((fold-var_97)" -"(let-values(((fold-var_35) fold-var_96))" -"(let-values(((fold-var_98)" +"(let-values(((fold-var_98) fold-var_96))" +"(let-values(((fold-var_35)" "(let-values()" "(cons" "(let-values()" @@ -17824,13 +17835,13 @@ static const char *startup_source = " phase-to-link-module-uses_0" " phase_47)" " mpis_5))))" -" fold-var_35))))" -"(values fold-var_98)))))" +" fold-var_98))))" +"(values fold-var_35)))))" "(if(not #f)(for-loop_117 fold-var_97 rest_51) fold-var_97)))" " fold-var_96)))))" " for-loop_117)" " null" -" lst_106))))))))))" +" lst_105))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -18058,7 +18069,7 @@ static const char *startup_source = "(if(immutable?" " v_105)" "(begin" -"(let-values(((lst_76)" +"(let-values(((lst_75)" "(sorted-hash-keys" " v_105)))" "(begin" @@ -18067,19 +18078,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_76)))" +" lst_75)))" "((letrec-values(((for-loop_120)" -"(lambda(lst_108)" +"(lambda(lst_107)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_107)" "(let-values(((k_21)" "(unsafe-car" -" lst_108))" +" lst_107))" "((rest_52)" "(unsafe-cdr" -" lst_108)))" +" lst_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18102,7 +18113,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_120)" -" lst_76)))" +" lst_75)))" "(void))" "(begin" "(hash-set!" @@ -18111,7 +18122,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_109)" +"(let-values(((lst_108)" "(sorted-hash-keys" " v_105)))" "(begin" @@ -18120,19 +18131,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_109)))" +" lst_108)))" "((letrec-values(((for-loop_121)" -"(lambda(lst_53)" +"(lambda(lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_53)" +" lst_109)" "(let-values(((k_22)" "(unsafe-car" -" lst_53))" +" lst_109))" "((rest_53)" "(unsafe-cdr" -" lst_53)))" +" lst_109)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18155,7 +18166,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_121)" -" lst_109)))" +" lst_108)))" "(void)))))" "(if(prefab-struct-key" " v_105)" @@ -18171,9 +18182,9 @@ static const char *startup_source = "(lambda(x_33)" "(vector?" " x_33))" -"(lambda(x_43)" +"(lambda(x_42)" "(unsafe-vector-length" -" x_43))" +" x_42))" "(struct->vector" " v_105)" " 1" @@ -18224,12 +18235,12 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_44)" +"(lambda(x_43)" "(vector?" -" x_44))" -"(lambda(x_45)" +" x_43))" +"(lambda(x_44)" "(unsafe-vector-length" -" x_45))" +" x_44))" "(struct->vector" " v_105)" " 1" @@ -18293,18 +18304,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_110)))" -"((letrec-values(((for-loop_124)" -"(lambda(lst_56)" +"((letrec-values(((for-loop_75)" +"(lambda(lst_111)" "(begin" " 'for-loop" "(if(pair?" -" lst_56)" +" lst_111)" "(let-values(((v_137)" "(unsafe-car" -" lst_56))" +" lst_111))" "((rest_54)" "(unsafe-cdr" -" lst_56)))" +" lst_111)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18317,11 +18328,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_75" " rest_54)" "(values))))" "(values))))))" -" for-loop_124)" +" for-loop_75)" " lst_110)))" "(void))))))))))" " frontier-loop_0)" @@ -18337,15 +18348,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_125)" -"(lambda(fold-var_99 i_109)" +"((letrec-values(((for-loop_124)" +"(lambda(fold-var_99 i_108)" "(begin" " 'for-loop" -"(if i_109" +"(if i_108" "(let-values(((obj_0)" "(hash-iterate-key" " ht_88" -" i_109)))" +" i_108)))" "(let-values(((fold-var_100)" "(let-values(((fold-var_101)" " fold-var_99))" @@ -18360,17 +18371,17 @@ static const char *startup_source = "(values" " fold-var_102)))))" "(if(not #f)" -"(for-loop_125" +"(for-loop_124" " fold-var_100" "(hash-iterate-next" " ht_88" -" i_109))" +" i_108))" " fold-var_100)))" " fold-var_99)))))" -" for-loop_125)" +" for-loop_124)" " null" "(hash-iterate-first ht_88)))))))" -"(let-values(((lst_111)" +"(let-values(((lst_112)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18378,19 +18389,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_111)))" +"(let-values()(check-list lst_112)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_126)" -"(lambda(table_121 lst_112 pos_24)" +"((letrec-values(((for-loop_125)" +"(lambda(table_121 lst_113 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_112) #t #f)" +"(if(if(pair? lst_113) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_112))" +"(unsafe-car lst_113))" "((rest_55)" -"(unsafe-cdr lst_112))" +"(unsafe-cdr lst_113))" "((pos_25) pos_24))" "(let-values(((table_122)" "(let-values(((table_123)" @@ -18409,15 +18420,15 @@ static const char *startup_source = " val_39)))))" "(values table_124)))))" "(if(not #f)" -"(for-loop_126" +"(for-loop_125" " table_122" " rest_55" "(+ pos_24 1))" " table_122)))" " table_121)))))" -" for-loop_126)" +" for-loop_125)" " '#hasheqv()" -" lst_111" +" lst_112" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18550,7 +18561,7 @@ static const char *startup_source = "(length v_141))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_113)" +"(let-values(((lst_114)" " v_141))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18558,20 +18569,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_113)))" -"((letrec-values(((for-loop_127)" +" lst_114)))" +"((letrec-values(((for-loop_126)" "(lambda(all-quoted?_1" -" lst_114)" +" lst_115)" "(begin" " 'for-loop" "(if(pair?" -" lst_114)" -"(let-values(((i_110)" +" lst_115)" +"(let-values(((i_109)" "(unsafe-car" -" lst_114))" +" lst_115))" "((rest_56)" "(unsafe-cdr" -" lst_114)))" +" lst_115)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18581,7 +18592,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_110)" +" i_109)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18590,14 +18601,14 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_126" " all-quoted?_2" " rest_56)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_127)" +" for-loop_126)" " #t" -" lst_113)))))" +" lst_114)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18695,7 +18706,7 @@ static const char *startup_source = " vec_40))))))" "(begin" " #f" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_127)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18703,7 +18714,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_111)" +"(let-values(((i_110)" "(unsafe-vector-ref" " vec_39" " pos_28)))" @@ -18716,7 +18727,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_111)" +" i_110)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18725,14 +18736,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_127" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_128)" +" for-loop_127)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18761,14 +18772,14 @@ static const char *startup_source = " ht_89)))" "((letrec-values(((for-loop_42)" "(lambda(result_67" -" i_112)" +" i_111)" "(begin" " 'for-loop" -"(if i_112" +"(if i_111" "(let-values(((val_40)" "(hash-iterate-value" " ht_89" -" i_112)))" +" i_111)))" "(let-values(((result_68)" "(let-values()" "(let-values(((result_69)" @@ -18780,7 +18791,7 @@ static const char *startup_source = "(values" " result_69)))))" "(if(if(not" -"((lambda x_46" +"((lambda x_45" "(not" " result_68))" " val_40))" @@ -18791,7 +18802,7 @@ static const char *startup_source = " result_68" "(hash-iterate-next" " ht_89" -" i_112))" +" i_111))" " result_68)))" " result_67)))))" " for-loop_42)" @@ -18844,19 +18855,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_48)))" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_128)" "(lambda(all-quoted?_11" -" lst_115)" +" lst_116)" "(begin" " 'for-loop" "(if(pair?" -" lst_115)" +" lst_116)" "(let-values(((k_23)" "(unsafe-car" -" lst_115))" +" lst_116))" "((rest_57)" "(unsafe-cdr" -" lst_115)))" +" lst_116)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18894,12 +18905,12 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_128" " all-quoted?_12" " rest_57)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_129)" +" for-loop_128)" " #t" " lst_48)))))" "(if all-quoted?_10" @@ -18950,19 +18961,19 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_47)" +"(lambda(x_46)" "(vector?" -" x_47))" -"(lambda(x_48)" +" x_46))" +"(lambda(x_47)" "(unsafe-vector-length" -" x_48))" +" x_47))" " vec_41" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_129)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -18970,7 +18981,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_113)" +"(let-values(((i_112)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18983,7 +18994,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_113)" +" i_112)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -18992,14 +19003,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_129" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_130)" +" for-loop_129)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -19103,7 +19114,7 @@ static const char *startup_source = " vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_130)" "(lambda(pos_29)" "(begin" " 'for-loop" @@ -19126,13 +19137,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_130" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_131)" +" for-loop_130)" " 0)))" "(void)))" "(if(hash? v_79)" @@ -19153,25 +19164,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_79)))" "(begin" -"(let-values(((lst_116) ks_1))" +"(let-values(((lst_117) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_116)))" -"((letrec-values(((for-loop_132)" -"(lambda(lst_117)" +"(check-list lst_117)))" +"((letrec-values(((for-loop_131)" +"(lambda(lst_118)" "(begin" " 'for-loop" "(if(pair?" -" lst_117)" +" lst_118)" "(let-values(((k_25)" "(unsafe-car" -" lst_117))" +" lst_118))" "((rest_58)" "(unsafe-cdr" -" lst_117)))" +" lst_118)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19189,12 +19200,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_132" +"(for-loop_131" " rest_58)" "(values))))" "(values))))))" -" for-loop_132)" -" lst_116)))" +" for-loop_131)" +" lst_117)))" "(void))))))" "(let-values()" "(error" @@ -19208,7 +19219,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_132)" "(lambda(table_125 i_7)" "(begin" " 'for-loop" @@ -19236,14 +19247,14 @@ static const char *startup_source = "(values" " table_128)))))" "(if(not #f)" -"(for-loop_133" +"(for-loop_132" " table_126" "(hash-iterate-next" " ht_90" " i_7))" " table_126)))" " table_125)))))" -" for-loop_133)" +" for-loop_132)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19259,14 +19270,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_133)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(<" " pos_30" " end_13)" -"(let-values(((i_114)" +"(let-values(((i_113)" " pos_30))" "(let-values((()" "(let-values()" @@ -19277,17 +19288,17 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_114)))" +" i_113)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_134" +"(for-loop_133" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_134)" +" for-loop_133)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19299,15 +19310,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_135)" -"(lambda(table_129 i_115)" +"((letrec-values(((for-loop_134)" +"(lambda(table_129 i_114)" "(begin" " 'for-loop" -"(if i_115" +"(if i_114" "(let-values(((obj_1)" "(hash-iterate-key" " ht_91" -" i_115)))" +" i_114)))" "(let-values(((table_130)" "(let-values(((table_131)" " table_129))" @@ -19330,14 +19341,14 @@ static const char *startup_source = "(values" " table_132)))))" "(if(not #f)" -"(for-loop_135" +"(for-loop_134" " table_130" "(hash-iterate-next" " ht_91" -" i_115))" +" i_114))" " table_130)))" " table_129)))))" -" for-loop_135)" +" for-loop_134)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" @@ -19358,14 +19369,14 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_135)" "(lambda(pos_31)" "(begin" " 'for-loop" "(if(<" " pos_31" " end_14)" -"(let-values(((i_116)" +"(let-values(((i_115)" " pos_31))" "(let-values((()" "(let-values()" @@ -19376,18 +19387,18 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_116)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_136" +"(for-loop_135" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_135)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19407,14 +19418,14 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_136)" "(lambda(pos_32)" "(begin" " 'for-loop" "(if(<" " pos_32" " end_15)" -"(let-values(((i_117)" +"(let-values(((i_116)" " pos_32))" "(let-values((()" "(let-values()" @@ -19425,18 +19436,18 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_117)))" +" i_116)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_137" +"(for-loop_136" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_137)" +" for-loop_136)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19497,12 +19508,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_24 end_16 inc_10)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_137)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_118) pos_34))" +"(let-values(((i_117) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19518,13 +19529,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_118" +" i_117" " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_138 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_137 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_138)" +" for-loop_137)" " 0" " start_24)))" "(values))))" @@ -19537,12 +19548,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_25 end_17 inc_11)))" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_138)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_119) pos_39))" +"(let-values(((i_118) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19558,13 +19569,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_119" +" i_118" " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_139 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_138 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_139)" +" for-loop_138)" " 0" " start_25)))" "(values))))" @@ -19583,7 +19594,7 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_139)" "(lambda(pos_43 pos_44 pos_45)" "(begin" " 'for-loop" @@ -19603,13 +19614,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_140" +"(for-loop_139" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_140)" +" for-loop_139)" " 0" " start_26" " 0)))" @@ -19698,9 +19709,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_120)(vector*-ref vec_47 next-pos_2)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_2))" +"(let-values(((i_119)(vector*-ref vec_47 next-pos_2)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_2))" "(decode" " vec_47" " next-pos_2" @@ -19709,9 +19720,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_121)(vector*-ref vec_47 next-pos_3)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_3))" +"(let-values(((i_120)(vector*-ref vec_47 next-pos_3)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_3))" "(decode" " vec_47" " next-pos_3" @@ -19732,9 +19743,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_122)(vector*-ref vec_47 next-pos_5)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_5))" +"(let-values(((i_121)(vector*-ref vec_47 next-pos_5)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_5))" "(decode" " vec_47" " next-pos_5" @@ -19743,9 +19754,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_123)(vector*-ref vec_47 next-pos_6)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_6))" +"(let-values(((i_122)(vector*-ref vec_47 next-pos_6)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_6))" "(decode" " vec_47" " next-pos_6" @@ -19762,9 +19773,9 @@ static const char *startup_source = "(let-values(((content_10 next-pos_8)" "(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_124)(vector*-ref vec_47 next-pos_8)))" -"(if(exact-integer? i_124)" -"(values(vector*-ref shared_2 i_124)(add1 next-pos_8))" +"(let-values(((i_123)(vector*-ref vec_47 next-pos_8)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_8))" "(decode" " vec_47" " next-pos_8" @@ -19773,9 +19784,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_125)(vector*-ref vec_47 next-pos_9)))" -"(if(exact-integer? i_125)" -"(values(vector*-ref shared_2 i_125)(add1 next-pos_9))" +"(let-values(((i_124)(vector*-ref vec_47 next-pos_9)))" +"(if(exact-integer? i_124)" +"(values(vector*-ref shared_2 i_124)(add1 next-pos_9))" "(decode" " vec_47" " next-pos_9" @@ -19887,12 +19898,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_140)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_126) pos_52))" +"(let-values(((i_125) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" @@ -19914,15 +19925,15 @@ static const char *startup_source = "(begin" "(vector-set!" " r_29" -" i_126" +" i_125" " v_147)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_141 pos_53(+ pos_52 inc_13))" +"(for-loop_140 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_141)" +" for-loop_140)" "(+ pos_50 2)" " start_27)))))" "(values" @@ -19949,7 +19960,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_142)" +"((letrec-values(((for-loop_141)" "(lambda(ht_94 pos_56 pos_57)" "(begin" " 'for-loop" @@ -19981,16 +19992,16 @@ static const char *startup_source = " next-pos_25))))))" "(values ht_97 pos_60)))))" "(if(not #f)" -"(for-loop_142 ht_95 pos_58(+ pos_57 inc_14))" +"(for-loop_141 ht_95 pos_58(+ pos_57 inc_14))" "(values ht_95 pos_58))))" "(values ht_94 pos_56))))))" -" for-loop_142)" +" for-loop_141)" " ht_93" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_188)" +"(let-values(((s_189)" "(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" "(if(equal? tmp_21 '#:set)" "(let-values()(set))" @@ -20005,15 +20016,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" -"((letrec-values(((for-loop_143)" -"(lambda(s_189 pos_61 pos_62)" +"((letrec-values(((for-loop_142)" +"(lambda(s_190 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_190 pos_63)" -"(let-values(((s_142) s_189)((pos_64) pos_61))" -"(let-values(((s_191 pos_65)" +"(let-values(((s_191 pos_63)" +"(let-values(((s_142) s_190)((pos_64) pos_61))" +"(let-values(((s_192 pos_65)" "(let-values()" "(let-values(((k_28" " next-pos_26)" @@ -20027,13 +20038,13 @@ static const char *startup_source = "(values" "(set-add s_142 k_28)" " next-pos_26)))))" -"(values s_191 pos_65)))))" +"(values s_192 pos_65)))))" "(if(not #f)" -"(for-loop_143 s_190 pos_63(+ pos_62 inc_15))" -"(values s_190 pos_63))))" -"(values s_189 pos_61))))))" -" for-loop_143)" -" s_188" +"(for-loop_142 s_191 pos_63(+ pos_62 inc_15))" +"(values s_191 pos_63))))" +"(values s_190 pos_61))))))" +" for-loop_142)" +" s_189" "(+ pos_50 2)" " start_29))))))" "(let-values()" @@ -20054,7 +20065,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_143)" "(lambda(r_31 pos_66 pos_67)" "(begin" " 'for-loop" @@ -20081,10 +20092,10 @@ static const char *startup_source = " next-pos_29)))))" "(values r_34 pos_70)))))" "(if(not #f)" -"(for-loop_144 r_32 pos_68(+ pos_67 inc_16))" +"(for-loop_143 r_32 pos_68(+ pos_67 inc_16))" "(values r_32 pos_68))))" "(values r_31 pos_66))))))" -" for-loop_144)" +" for-loop_143)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20442,12 +20453,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_31 end_23 inc_17)))" -"((letrec-values(((for-loop_145)" +"((letrec-values(((for-loop_144)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_127) pos_73))" +"(let-values(((i_126) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" @@ -20461,12 +20472,12 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_151 i_127 c_22)" +"(vector-set! v_151 i_126 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_144 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_145)" +" for-loop_144)" "(+ pos_71 2)" " start_31)))))" "(if(equal? tmp_22 '#:set-hash!)" @@ -20477,7 +20488,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_32 end_24 inc_18)))" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_145)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20507,9 +20518,9 @@ static const char *startup_source = "(hash-set! v_151 key_53 val_43)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_146 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_145 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_146)" +" for-loop_145)" "(+ pos_71 2)" " start_32)))))" "(if(equal? tmp_22 '#:scope-fill!)" @@ -20550,20 +20561,20 @@ static const char *startup_source = "(begin" "(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" "((reach-scopes-ref v_153) v_153 loop_83)" -"(let-values(((lst_118)(hash-ref scope-triggers_0 v_153 null)))" +"(let-values(((lst_119)(hash-ref scope-triggers_0 v_153 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_118)))" -"((letrec-values(((for-loop_147)" -"(lambda(lst_119)" +"(let-values()(check-list lst_119)))" +"((letrec-values(((for-loop_146)" +"(lambda(lst_120)" "(begin" " 'for-loop" -"(if(pair? lst_119)" +"(if(pair? lst_120)" "(let-values(((proc_7)" -"(unsafe-car lst_119))" +"(unsafe-car lst_120))" "((rest_59)" -"(unsafe-cdr lst_119)))" +"(unsafe-cdr lst_120)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20575,22 +20586,22 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_147 rest_59)" +"(for-loop_146 rest_59)" "(values))))" "(values))))))" -" for-loop_147)" -" lst_118)))" +" for-loop_146)" +" lst_119)))" "(void)" "(hash-remove! scope-triggers_0 v_153)" "((scope-with-bindings-ref v_153)" " v_153" " get-reachable-scopes_4" " loop_83" -"(lambda(sc-unreachable_0 b_62)" +"(lambda(sc-unreachable_0 b_63)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" -"(lambda(l_50)(cons b_62 l_50))" +"(lambda(l_50)(cons b_63 l_50))" " null)))))" "(if(reach-scopes? v_153)" "(let-values()((reach-scopes-ref v_153) v_153 loop_83))" @@ -20608,7 +20619,7 @@ static const char *startup_source = "(unsafe-vector-length vec_50))))))" "(begin" " #f" -"((letrec-values(((for-loop_148)" +"((letrec-values(((for-loop_147)" "(lambda(pos_82)" "(begin" " 'for-loop" @@ -20628,11 +20639,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_148" +"(for-loop_147" "(unsafe-fx+ 1 pos_82))" "(values))))" "(values))))))" -" for-loop_148)" +" for-loop_147)" " 0)))" "(void)))" "(if(box? v_153)" @@ -20646,15 +20657,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_98)))" -"((letrec-values(((for-loop_149)" -"(lambda(i_128)" +"((letrec-values(((for-loop_148)" +"(lambda(i_127)" "(begin" " 'for-loop" -"(if i_128" +"(if i_127" "(let-values(((k_30 v_154)" "(hash-iterate-key+value" " ht_98" -" i_128)))" +" i_127)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20669,13 +20680,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_149" +"(for-loop_148" "(hash-iterate-next" " ht_98" -" i_128))" +" i_127))" "(values))))" "(values))))))" -" for-loop_149)" +" for-loop_148)" "(hash-iterate-first ht_98))))" "(void)))" "(if(prefab-struct-key v_153)" @@ -20685,16 +20696,16 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_49)(vector? x_49))" -"(lambda(x_50)" -"(unsafe-vector-length x_50))" +"(lambda(x_48)(vector? x_48))" +"(lambda(x_49)" +"(unsafe-vector-length x_49))" "(struct->vector v_153)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_150)" +"((letrec-values(((for-loop_149)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -20714,11 +20725,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_150" +"(for-loop_149" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_150)" +" for-loop_149)" " start*_4)))" "(void)))" "(if(srcloc? v_153)" @@ -20737,12 +20748,12 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_192) s24_1))" +"(let-values(((s_193) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_1) s_192)" +"(let-values(((s29_1) s_193)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20755,9 +20766,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_193 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_193 from-mpi_5 to-mpi_4 #f #f)))" -"((s_194 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_194 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_194 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_194 from-mpi_5 to-mpi_4 #f #f)))" +"((s_195 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_195 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21366,11 +21377,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_99)))" "((letrec-values(((for-loop_111)" -"(lambda(syms_14 i_129)" +"(lambda(syms_14 i_128)" "(begin" " 'for-loop" -"(if i_129" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_99 i_129)))" +"(if i_128" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_99 i_128)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21384,7 +21395,7 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_129))" +"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_128))" " syms_15)))" " syms_14)))))" " for-loop_111)" @@ -21566,7 +21577,7 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" -"(let-values(((id_22) id16_0))" +"(let-values(((id_23) id16_0))" "(let-values(((phase_52) phase17_0))" "(let-values(((binding_11) binding18_0))" "(let-values(((can-be-shadowed?_0)(if can-be-shadowed?13_0 can-be-shadowed?11_0 #f)))" @@ -21581,7 +21592,7 @@ static const char *startup_source = "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p116_0) r+p_3)" -"((id117_0) id_22)" +"((id117_0) id_23)" "((phase118_0) phase_52)" "((temp119_0)(module-binding-nominal-module binding_11))" "((temp120_0)(module-binding-nominal-require-phase binding_11))" @@ -21607,7 +21618,7 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" -"(let-values(((id_23) id31_0))" +"(let-values(((id_24) id31_0))" "(let-values(((phase_53) phase32_0))" "(let-values(((nominal-module_6) nominal-module22_0))" "(let-values(((nominal-require-phase_4) nominal-require-phase23_0))" @@ -21620,12 +21631,12 @@ static const char *startup_source = "(intern-mpi r+p_4 nominal-module_6)" " make-hasheqv)))" "(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))" -"(let-values(((sym_30)(syntax-e$1 id_23)))" +"(let-values(((sym_30)(syntax-e$1 id_24)))" "(hash-set!" " sym-to-reqds_0" " sym_30" "(cons-ish" -"(required2.1 id_23 phase_53 can-be-shadowed?_1 as-transformer?_1)" +"(required2.1 id_24 phase_53 can-be-shadowed?_1 as-transformer?_1)" "(hash-ref sym-to-reqds_0 sym_30 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" @@ -21647,7 +21658,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_195) s53_0))" +"(let-values(((s_196) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21666,7 +21677,7 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_195 phase_54)" +"(syntax-mapped-names s_196 phase_54)" " #f)" " #f)))" "(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))" @@ -21685,7 +21696,7 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_195" +" s_196" " provide-phase-level_3" " can-be-shadowed?_2)))" "(let-values(((ht_100) provides_4))" @@ -21693,15 +21704,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_151)" -"(lambda(result_71 i_130)" +"((letrec-values(((for-loop_150)" +"(lambda(result_71 i_129)" "(begin" " 'for-loop" -"(if i_130" +"(if i_129" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" " ht_100" -" i_130)))" +" i_129)))" "(let-values(((result_72)" "(let-values(((result_73)" " result_71))" @@ -21760,9 +21771,9 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_195" +" s_196" " sym_31" -" s_195))" +" s_196))" "((phase127_0)" " phase_54)" "((orig-s128_0)" @@ -21829,17 +21840,17 @@ static const char *startup_source = "(values" " result_74)))))))" "(if(if(not" -"((lambda x_51 result_72)" +"((lambda x_50 result_72)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" -"(for-loop_151" +"(for-loop_150" " result_72" -"(hash-iterate-next ht_100 i_130))" +"(hash-iterate-next ht_100 i_129))" " result_72)))" " result_71)))))" -" for-loop_151)" +" for-loop_150)" " #f" "(hash-iterate-first ht_100))))))))))))))))))))))))))))))" "(define-values" @@ -21878,13 +21889,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_101)))" -"((letrec-values(((for-loop_152)" -"(lambda(i_131)" +"((letrec-values(((for-loop_151)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_131" +"(if i_130" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_101 i_131)))" +"(hash-iterate-key+value ht_101 i_130)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21899,16 +21910,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_102)))" -"((letrec-values(((for-loop_153)" -"(lambda(i_132)" +"((letrec-values(((for-loop_152)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_132" +"(if i_131" "(let-values(((phase_57" " at-phase_8)" "(hash-iterate-key+value" " ht_102" -" i_132)))" +" i_131)))" "(let-values((()" "(let-values(((ht_103)" " at-phase_8))" @@ -21919,39 +21930,39 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_103)))" -"((letrec-values(((for-loop_154)" -"(lambda(i_133)" +"((letrec-values(((for-loop_153)" +"(lambda(i_132)" "(begin" " 'for-loop" -"(if i_133" +"(if i_132" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" " ht_103" -" i_133)))" +" i_132)))" "(let-values((()" -"(let-values(((lst_120)" +"(let-values(((lst_121)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_155)" -"(lambda(lst_121)" +"((letrec-values(((for-loop_154)" +"(lambda(lst_122)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_121))" +" lst_122))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_121)" +" lst_122)" "(car" -" lst_121)" -" lst_121))" +" lst_122)" +" lst_122))" "((rest_60)" "(if(pair?" -" lst_121)" +" lst_122)" "(cdr" -" lst_121)" +" lst_122)" " null)))" "(let-values((()" "(let-values()" @@ -22012,42 +22023,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_155" +"(for-loop_154" " rest_60)" "(values))))" "(values))))))" -" for-loop_155)" -" lst_120)))))" -"(if(not" -" #f)" -"(for-loop_154" -"(hash-iterate-next" -" ht_103" -" i_133))" -"(values))))" -"(values))))))" " for-loop_154)" -"(hash-iterate-first" -" ht_103))))))" +" lst_121)))))" "(if(not" " #f)" "(for-loop_153" "(hash-iterate-next" -" ht_102" +" ht_103" " i_132))" "(values))))" "(values))))))" " for-loop_153)" "(hash-iterate-first" +" ht_103))))))" +"(if(not" +" #f)" +"(for-loop_152" +"(hash-iterate-next" +" ht_102" +" i_131))" +"(values))))" +"(values))))))" +" for-loop_152)" +"(hash-iterate-first" " ht_102))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152(hash-iterate-next ht_101 i_131))" +"(for-loop_151(hash-iterate-next ht_101 i_130))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_151)" "(hash-iterate-first ht_101))))" "(void))))))))))" "(define-values" @@ -22056,29 +22067,29 @@ static const char *startup_source = "(begin" " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" -"(let-values(((id_24) id73_0))" +"(let-values(((id_25) id73_0))" "(let-values(((phase_58) phase74_1))" "(let-values(((binding_12) unless-matches70_0))" "(let-values()" -"(let-values(((b_63)" -"(let-values(((id149_0) id_24)((phase150_0) phase_58)((temp151_0) #t))" +"(let-values(((b_64)" +"(let-values(((id149_0) id_25)((phase150_0) phase_58)((temp151_0) #t))" "(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" -"(if b_63" +"(if b_64" "(let-values()" -"(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_63))))" +"(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_64))))" "(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_33 #f)))" "(if at-mod_3" "(let-values()" -"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_63)))" +"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_64)))" "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" -"(let-values(((sym_35)(syntax-e$1 id_24)))" +"(let-values(((sym_35)(syntax-e$1 id_25)))" "(let-values(((l_52)(hash-ref sym-to-reqds_2 sym_35 null)))" "(if(null? l_52)" "(void)" "(let-values()" -"(if(same-binding? b_63 binding_12)" +"(if(same-binding? b_64 binding_12)" "(void)" "(let-values()" "(hash-set!" @@ -22086,7 +22097,7 @@ static const char *startup_source = " sym_35" "(remove-non-matching-requireds" " l_52" -" id_24" +" id_25" " phase_58" " mpi_33" " nominal-phase_4" @@ -22096,19 +22107,19 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_25 phase_59 mpi_34 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_26 phase_59 mpi_34 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_122) reqds_1))" +"(let-values(((lst_123) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_156)" -"(lambda(fold-var_103 lst_123)" +"((letrec-values(((for-loop_155)" +"(lambda(fold-var_103 lst_124)" "(begin" " 'for-loop" -"(if(not(null? lst_123))" -"(let-values(((r_36)(if(pair? lst_123)(car lst_123) lst_123))" -"((rest_61)(if(pair? lst_123)(cdr lst_123) null)))" +"(if(not(null? lst_124))" +"(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" +"((rest_61)(if(pair? lst_124)(cdr lst_124) null)))" "(let-values(((fold-var_104)" "(let-values(((r_37)" "(normalize-required" @@ -22118,7 +22129,7 @@ static const char *startup_source = " sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_156)" "(lambda(fold-var_105)" "(begin" " 'for-loop" @@ -22132,7 +22143,7 @@ static const char *startup_source = " r_37))" "(free-identifier=?$1" "(required-id r_37)" -" id_25" +" id_26" " phase_59" " phase_59)" " #f)" @@ -22148,13 +22159,13 @@ static const char *startup_source = "(values" " fold-var_109)))))))" " fold-var_106))))))" -" for-loop_157)" -" fold-var_103)))))" -"(if(not #f)(for-loop_156 fold-var_104 rest_61) fold-var_104)))" -" fold-var_103)))))" " for-loop_156)" +" fold-var_103)))))" +"(if(not #f)(for-loop_155 fold-var_104 rest_61) fold-var_104)))" +" fold-var_103)))))" +" for-loop_155)" " null" -" lst_122)))))))" +" lst_123)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22177,7 +22188,7 @@ static const char *startup_source = "(let-values(((check-not-required?_0)(if check-not-required?85_0 check-not-required?78_0 #f)))" "(let-values(((allow-defined?_0)(if allow-defined?86_0 allow-defined?79_0 #f)))" "(let-values(((r+p_8) r+p92_0))" -"(let-values(((id_26) id93_0))" +"(let-values(((id_27) id93_0))" "(let-values(((phase_60) phase94_0))" "(let-values(((orig-s_1) in80_0))" "(let-values(((ok-binding/delayed_0)(if unless-matches88_0 unless-matches81_0 #f)))" @@ -22186,8 +22197,8 @@ static const char *startup_source = "(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))" "(let-values(((who_12) who84_0))" "(let-values()" -"(let-values(((b_64)" -"(let-values(((id152_0) id_26)((phase153_0) phase_60)((temp154_0) #t))" +"(let-values(((b_65)" +"(let-values(((id152_0) id_27)((phase153_0) phase_60)((temp154_0) #t))" "(resolve+shift30.1" " #f" " #f" @@ -22201,14 +22212,14 @@ static const char *startup_source = " #f" " id152_0" " phase153_0))))" -"(if(not b_64)" +"(if(not b_65)" "(let-values() #f)" -"(if(not(module-binding? b_64))" -" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_26))" +"(if(not(module-binding? b_65))" +" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))" "(let-values()" "(let-values(((defined?_0)" -"(if b_64" -"(eq?(requires+provides-self r+p_8)(module-binding-module b_64))" +"(if b_65" +"(eq?(requires+provides-self r+p_8)(module-binding-module b_65))" " #f)))" "(if(if defined?_0" "(not" @@ -22217,7 +22228,7 @@ static const char *startup_source = "(requires+provides-phase-to-defined-syms r+p_8)" " phase_60" " '#hasheq())" -"(module-binding-sym b_64)" +"(module-binding-sym b_65)" " #f))" " #f)" "(let-values() #f)" @@ -22225,7 +22236,7 @@ static const char *startup_source = "(let-values(((define-shadowing-require?_0)" "(if(not defined?_0)(not check-not-required?_0) #f)))" "(let-values(((mpi_35)" -"(intern-mpi r+p_8(module-binding-nominal-module b_64))))" +"(intern-mpi r+p_8(module-binding-nominal-module b_65))))" "(let-values(((at-mod_4)" "(hash-ref(requires+provides-requires r+p_8) mpi_35 #f)))" "(let-values(((ok-binding_0)" @@ -22252,13 +22263,13 @@ static const char *startup_source = "(let-values()" " (format \" for phase ~a\" phase_60))))))" " orig-s_1" -" id_26)))))" +" id_27)))))" "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" "(let-values() #f)" -"(if(if ok-binding_0(same-binding? b_64 ok-binding_0) #f)" +"(if(if ok-binding_0(same-binding? b_65 ok-binding_0) #f)" "(let-values()" "(begin" -"(if(same-binding-nominals? b_64 ok-binding_0)" +"(if(same-binding-nominals? b_65 ok-binding_0)" "(void)" "(let-values()" "(let-values(((update!_0)" @@ -22266,15 +22277,15 @@ static const char *startup_source = "(begin" " 'update!" "(let-values(((temp155_0) #t)" -"((id156_0) id_26)" +"((id156_0) id_27)" "((temp157_0)" "(let-values(((ok-binding159_0)" " ok-binding_0)" "((temp160_0)" "(cons" -" b_64" +" b_65" "(module-binding-extra-nominal-bindings" -" b_64))))" +" b_65))))" "(module-binding-update48.1" " #f" " #f" @@ -22324,7 +22335,7 @@ static const char *startup_source = "(let-values(((prev-b_0)" "(hash-ref" " also-required_0" -"(module-binding-sym b_64)" +"(module-binding-sym b_65)" " #f)))" "(begin" "(if(if prev-b_0" @@ -22334,13 +22345,13 @@ static const char *startup_source = "(void))" "(hash-set!" " also-required_0" -"(module-binding-sym b_64)" +"(module-binding-sym b_65)" " ok-binding_0)" "(set-requires+provides-all-bindings-simple?! r+p_8 #f)" " #t))))" "(let-values()" "(let-values(((nominal-phase_6)" -"(module-binding-nominal-require-phase b_64)))" +"(module-binding-nominal-require-phase b_65)))" "(let-values(((sym-to-reqds_3)" "(hash-ref" " at-mod_4" @@ -22349,31 +22360,31 @@ static const char *startup_source = "(let-values(((reqds_2)" "(hash-ref" " sym-to-reqds_3" -"(syntax-e$1 id_26)" +"(syntax-e$1 id_27)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_124) reqds_2))" +"(let-values(((lst_125) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_158)" +"((letrec-values(((for-loop_157)" "(lambda(only-can-can-shadow-require?_1" -" lst_125)" +" lst_126)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_125))" +" lst_126))" "(let-values(((r_38)" "(if(pair?" -" lst_125)" +" lst_126)" "(car" -" lst_125)" -" lst_125))" +" lst_126)" +" lst_126))" "((rest_62)" "(if(pair?" -" lst_125)" +" lst_126)" "(cdr" -" lst_125)" +" lst_126)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22402,14 +22413,14 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_158" +"(for-loop_157" " only-can-can-shadow-require?_2" " rest_62)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_158)" +" for-loop_157)" " #t" -" lst_124)))))" +" lst_125)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22422,8 +22433,8 @@ static const char *startup_source = "(let-values()" "(hash-set!" "(requires+provides-also-required r+p_8)" -"(module-binding-sym b_64)" -" b_64)))))" +"(module-binding-sym b_65)" +" b_65)))))" "(let-values()" "(if(if remove-shadowed!?_0" "(not(null? reqds_2))" @@ -22431,14 +22442,14 @@ static const char *startup_source = "(let-values()" "(hash-set!" " sym-to-reqds_3" -"(syntax-e$1 id_26)" +"(syntax-e$1 id_27)" "(remove-non-matching-requireds" " reqds_2" -" id_26" +" id_27" " phase_60" " mpi_35" " nominal-phase_6" -"(syntax-e$1 id_26))))" +"(syntax-e$1 id_27))))" "(void))))" " #f)))))))))))))))))))))))))))))))))))" "(define-values" @@ -22448,18 +22459,18 @@ static const char *startup_source = "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_126) syms_18))" +"(let-values(((lst_127) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_126)))" -"((letrec-values(((for-loop_144)" -"(lambda(defined-syms_3 lst_127)" +"(let-values()(check-list lst_127)))" +"((letrec-values(((for-loop_143)" +"(lambda(defined-syms_3 lst_128)" "(begin" " 'for-loop" -"(if(pair? lst_127)" -"(let-values(((sym_37)(unsafe-car lst_127))" -"((rest_63)(unsafe-cdr lst_127)))" +"(if(pair? lst_128)" +"(let-values(((sym_37)(unsafe-car lst_128))" +"((rest_63)(unsafe-cdr lst_128)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22470,12 +22481,12 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_144 defined-syms_4 rest_63)" +"(for-loop_143 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_144)" +" for-loop_143)" " defined-syms_2" -" lst_126)))))" +" lst_127)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" @@ -22490,28 +22501,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_104)))" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_110 i_134)" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_110 i_133)" "(begin" " 'for-loop" -"(if i_134" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_134)))" +"(if i_133" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_133)))" "(let-values(((fold-var_111)" -"(let-values(((lst_128) reqds_3))" +"(let-values(((lst_129) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_112 lst_129)" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_112 lst_130)" "(begin" " 'for-loop" -"(if(not(null? lst_129))" +"(if(not(null? lst_130))" "(let-values(((reqd_1)" -"(if(pair? lst_129)" -"(car lst_129)" -" lst_129))" +"(if(pair? lst_130)" +"(car lst_130)" +" lst_130))" "((rest_64)" -"(if(pair? lst_129)" -"(cdr lst_129)" +"(if(pair? lst_130)" +"(cdr lst_130)" " null)))" "(let-values(((fold-var_113)" "(let-values(((fold-var_114)" @@ -22529,19 +22540,19 @@ static const char *startup_source = "(values" " fold-var_115)))))" "(if(not #f)" -"(for-loop_160" +"(for-loop_159" " fold-var_113" " rest_64)" " fold-var_113)))" " fold-var_112)))))" -" for-loop_160)" +" for-loop_159)" " fold-var_110" -" lst_128)))))" +" lst_129)))))" "(if(not #f)" -"(for-loop_159 fold-var_111(hash-iterate-next ht_104 i_134))" +"(for-loop_158 fold-var_111(hash-iterate-next ht_104 i_133))" " fold-var_111)))" " fold-var_110)))))" -" for-loop_159)" +" for-loop_158)" " null" "(hash-iterate-first ht_104)))))" " #f))))))" @@ -22560,18 +22571,18 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_130)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_130)))" -"((letrec-values(((for-loop_161)" -"(lambda(fold-var_116 lst_131)" +"(let-values()(check-list lst_131)))" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_116 lst_132)" "(begin" " 'for-loop" -"(if(pair? lst_131)" -"(let-values(((mod-name_13)(unsafe-car lst_131))" -"((rest_65)(unsafe-cdr lst_131)))" +"(if(pair? lst_132)" +"(let-values(((mod-name_13)(unsafe-car lst_132))" +"((rest_65)(unsafe-cdr lst_132)))" "(let-values(((fold-var_117)" "(let-values(((fold-var_118) fold-var_116))" "(if(eq? mod-name_13 self_10)" @@ -22583,13 +22594,13 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_162)" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_119)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_120)" -"(let-values(((lst_132)" +"(let-values(((lst_133)" "(if(eq?" " phase_49" " 'all)" @@ -22603,20 +22614,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_132)))" -"((letrec-values(((for-loop_163)" +" lst_133)))" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_121" -" lst_133)" +" lst_134)" "(begin" " 'for-loop" "(if(pair?" -" lst_133)" +" lst_134)" "(let-values(((phase_63)" "(unsafe-car" -" lst_133))" +" lst_134))" "((rest_66)" "(unsafe-cdr" -" lst_133)))" +" lst_134)))" "(let-values(((fold-var_122)" "(let-values(((ht_105)" "(hash-ref" @@ -22632,41 +22643,41 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_105)))" -"((letrec-values(((for-loop_164)" +"((letrec-values(((for-loop_163)" "(lambda(fold-var_123" -" i_135)" +" i_134)" "(begin" " 'for-loop" -"(if i_135" +"(if i_134" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" " ht_105" -" i_135)))" +" i_134)))" "(let-values(((fold-var_124)" -"(let-values(((lst_134)" +"(let-values(((lst_135)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_165)" +"((letrec-values(((for-loop_164)" "(lambda(fold-var_125" -" lst_135)" +" lst_136)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_135))" +" lst_136))" "(let-values(((reqd_2)" "(if(pair?" -" lst_135)" +" lst_136)" "(car" -" lst_135)" -" lst_135))" +" lst_136)" +" lst_136))" "((rest_67)" "(if(pair?" -" lst_135)" +" lst_136)" "(cdr" -" lst_135)" +" lst_136)" " null)))" "(let-values(((fold-var_126)" "(let-values(((fold-var_127)" @@ -22685,45 +22696,45 @@ static const char *startup_source = " fold-var_128)))))" "(if(not" " #f)" -"(for-loop_165" +"(for-loop_164" " fold-var_126" " rest_67)" " fold-var_126)))" " fold-var_125)))))" -" for-loop_165)" +" for-loop_164)" " fold-var_123" -" lst_134)))))" +" lst_135)))))" "(if(not" " #f)" -"(for-loop_164" +"(for-loop_163" " fold-var_124" "(hash-iterate-next" " ht_105" -" i_135))" +" i_134))" " fold-var_124)))" " fold-var_123)))))" -" for-loop_164)" +" for-loop_163)" " fold-var_121" "(hash-iterate-first" " ht_105))))))" "(if(not" " #f)" -"(for-loop_163" +"(for-loop_162" " fold-var_122" " rest_66)" " fold-var_122)))" " fold-var_121)))))" -" for-loop_163)" -" fold-var_119" -" lst_132)))))" -" fold-var_120))))))" " for-loop_162)" -" fold-var_118)))))))" -"(if(not #f)(for-loop_161 fold-var_117 rest_65) fold-var_117)))" -" fold-var_116)))))" +" fold-var_119" +" lst_133)))))" +" fold-var_120))))))" " for-loop_161)" +" fold-var_118)))))))" +"(if(not #f)(for-loop_160 fold-var_117 rest_65) fold-var_117)))" +" fold-var_116)))))" +" for-loop_160)" " null" -" lst_130)))))))))))" +" lst_131)))))))))))" "(define-values" "(add-provide!109.1)" "(lambda(as-protected?98_0" @@ -22742,7 +22753,7 @@ static const char *startup_source = "(let-values(((phase_64) phase104_0))" "(let-values(((binding_13) binding105_0))" "(let-values(((immed-binding_0) immed-binding106_0))" -"(let-values(((id_27) id107_0))" +"(let-values(((id_28) id107_0))" "(let-values(((orig-s_2) orig-s108_0))" "(let-values(((as-protected?_0) as-protected?98_0))" "(let-values(((as-transformer?_2) as-transformer?99_0))" @@ -22759,8 +22770,8 @@ static const char *startup_source = " phase_64" "(lambda(at-phase_9)" "(let-values(((b/p_0)(hash-ref at-phase_9 sym_40 #f)))" -"(let-values(((b_65)(provided-as-binding b/p_0)))" -"(if(not b_65)" +"(let-values(((b_66)(provided-as-binding b/p_0)))" +"(if(not b_66)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_13)" @@ -22797,14 +22808,14 @@ static const char *startup_source = "(if or-part_189 or-part_189 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" -"(if(same-binding? b_65 binding_13)" +"(if(same-binding? b_66 binding_13)" "(let-values() at-phase_9)" "(let-values()" "(raise-syntax-error$1" " #f" " \"identifier already provided (as a different binding)\"" " orig-s_2" -" id_27)))))))" +" id_28)))))))" " '#hasheq())))))))))))))))" "(define-values" "(extract-requires-and-provides)" @@ -22820,18 +22831,18 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_146) ids_3))" +"(let-values(((lst_147) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_172)" -"(lambda(table_141 lst_147)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" +"((letrec-values(((for-loop_171)" +"(lambda(table_141 lst_148)" "(begin" " 'for-loop" -"(if(pair? lst_147)" -"(let-values(((id_43)(unsafe-car lst_147))((rest_74)(unsafe-cdr lst_147)))" +"(if(pair? lst_148)" +"(let-values(((id_44)(unsafe-car lst_148))((rest_74)(unsafe-cdr lst_148)))" "(let-values(((table_142)" "(let-values(((table_143) table_141))" "(let-values(((table_144)" @@ -24763,15 +24774,15 @@ static const char *startup_source = "(let-values(((key_56 val_46)" "(let-values()" "(values" -"(let-values()(syntax-e$1 id_43))" +"(let-values()(syntax-e$1 id_44))" " #t))))" "(hash-set table_143 key_56 val_46)))))" "(values table_144)))))" -"(if(not #f)(for-loop_172 table_142 rest_74) table_142)))" +"(if(not #f)(for-loop_171 table_142 rest_74) table_142)))" " table_141)))))" -" for-loop_172)" +" for-loop_171)" " '#hash()" -" lst_146))))))" +" lst_147))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -25224,7 +25235,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_266)" +"(let-values(((s_267)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25244,7 +25255,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_266)" +" s_267)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25278,7 +25289,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_266)" +" s_267)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25346,7 +25357,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_148)" +"(let-values(((lst_149)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25355,19 +25366,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_148)))" -"((letrec-values(((for-loop_173)" -"(lambda(lst_149)" +" lst_149)))" +"((letrec-values(((for-loop_172)" +"(lambda(lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_149)" +" lst_150)" "(let-values(((update!_1)" "(unsafe-car" -" lst_149))" +" lst_150))" "((rest_75)" "(unsafe-cdr" -" lst_149)))" +" lst_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25379,12 +25390,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_173" +"(for-loop_172" " rest_75)" "(values))))" "(values))))))" -" for-loop_173)" -" lst_148)))" +" for-loop_172)" +" lst_149)))" "(void)))" "(void))" "(values))))" @@ -25423,15 +25434,15 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_108)))" -"((letrec-values(((for-loop_174)" -"(lambda(i_138)" +"((letrec-values(((for-loop_173)" +"(lambda(i_137)" "(begin" " 'for-loop" -"(if i_138" +"(if i_137" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" " ht_108" -" i_138)))" +" i_137)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25453,13 +25464,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_174" +"(for-loop_173" "(unsafe-immutable-hash-iterate-next" " ht_108" -" i_138))" +" i_137))" "(values))))" "(values))))))" -" for-loop_174)" +" for-loop_173)" "(unsafe-immutable-hash-iterate-first" " ht_108))))" "(void)))" @@ -25508,15 +25519,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_109)))" -"((letrec-values(((for-loop_175)" -"(lambda(i_139)" +"((letrec-values(((for-loop_174)" +"(lambda(i_138)" "(begin" " 'for-loop" -"(if i_139" +"(if i_138" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" " ht_109" -" i_139)))" +" i_138)))" "(let-values((()" "(let-values()" "(if(let-values(((or-part_213)" @@ -25549,7 +25560,7 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_150)" +"(let-values(((lst_151)" "(let-values(((or-part_214)" " only-syms_0))" "(if or-part_214" @@ -25562,19 +25573,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_150)))" -"((letrec-values(((for-loop_176)" -"(lambda(lst_151)" +" lst_151)))" +"((letrec-values(((for-loop_175)" +"(lambda(lst_152)" "(begin" " 'for-loop" "(if(pair?" -" lst_151)" +" lst_152)" "(let-values(((sym_44)" "(unsafe-car" -" lst_151))" +" lst_152))" "((rest_76)" "(unsafe-cdr" -" lst_151)))" +" lst_152)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25588,7 +25599,7 @@ static const char *startup_source = " #f)))" "(if binding/p_4" "(let-values()" -"(let-values(((b_66)" +"(let-values(((b_67)" "(let-values(((binding/p294_0)" " binding/p_4)" "((sym295_0)" @@ -25610,7 +25621,7 @@ static const char *startup_source = " sym295_0))))" "(let-values(((sym_45)" "(filter_0" -" b_66" +" b_67" "(provided-as-transformer?" " binding/p_4))))" "(if(if sym_45" @@ -25623,7 +25634,7 @@ static const char *startup_source = " in-stx_2" " sym_45))" "((b301_0)" -" b_66)" +" b_67)" "((phase302_0)" " phase_67))" "(add-binding!17.1" @@ -25640,12 +25651,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_176" +"(for-loop_175" " rest_76)" "(values))))" "(values))))))" -" for-loop_176)" -" lst_150)))" +" for-loop_175)" +" lst_151)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25706,11 +25717,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_175" -"(hash-iterate-next ht_109 i_139))" +"(for-loop_174" +"(hash-iterate-next ht_109 i_138))" "(values))))" "(values))))))" -" for-loop_175)" +" for-loop_174)" "(hash-iterate-first ht_109))))" "(void)))))))))))))))))))))))" "(define-values" @@ -25734,46 +25745,46 @@ static const char *startup_source = "(if(equal? tmp_24 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_267) req_3))" -"(let-values(((orig-s_16) s_267))" +"(let-values(((s_268) req_3))" +"(let-values(((orig-s_16) s_268))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_268)" -"(if(syntax?$1 s_267)" -"(syntax-e$1 s_267)" -" s_267)))" -"(if(pair? s_268)" -"(let-values(((for-meta311_0)" "(let-values(((s_269)" -"(car s_268)))" -" s_269))" -"((phase-level312_0 spec313_0)" +"(if(syntax?$1 s_268)" +"(syntax-e$1 s_268)" +" s_268)))" +"(if(pair? s_269)" +"(let-values(((for-meta311_0)" "(let-values(((s_270)" -"(cdr s_268)))" +"(car s_269)))" +" s_270))" +"((phase-level312_0 spec313_0)" "(let-values(((s_271)" -"(if(syntax?$1" -" s_270)" -"(syntax-e$1" -" s_270)" -" s_270)))" -"(if(pair? s_271)" -"(let-values(((phase-level314_0)" +"(cdr s_269)))" "(let-values(((s_272)" -"(car" -" s_271)))" -" s_272))" -"((spec315_0)" -"(let-values(((s_273)" -"(cdr" -" s_271)))" -"(let-values(((s_274)" "(if(syntax?$1" -" s_273)" +" s_271)" "(syntax-e$1" -" s_273)" -" s_273)))" +" s_271)" +" s_271)))" +"(if(pair? s_272)" +"(let-values(((phase-level314_0)" +"(let-values(((s_273)" +"(car" +" s_272)))" +" s_273))" +"((spec315_0)" +"(let-values(((s_274)" +"(cdr" +" s_272)))" +"(let-values(((s_275)" +"(if(syntax?$1" +" s_274)" +"(syntax-e$1" +" s_274)" +" s_274)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_274)))" +" s_275)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25810,30 +25821,30 @@ static const char *startup_source = "(if(equal? tmp_24 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_275) req_3))" -"(let-values(((orig-s_17) s_275))" +"(let-values(((s_276) req_3))" +"(let-values(((orig-s_17) s_276))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_276)" -"(if(syntax?$1 s_275)" -"(syntax-e$1 s_275)" -" s_275)))" -"(if(pair? s_276)" -"(let-values(((for-syntax318_0)" "(let-values(((s_277)" -"(car s_276)))" -" s_277))" -"((spec319_0)" +"(if(syntax?$1 s_276)" +"(syntax-e$1 s_276)" +" s_276)))" +"(if(pair? s_277)" +"(let-values(((for-syntax318_0)" "(let-values(((s_278)" -"(cdr s_276)))" +"(car s_277)))" +" s_278))" +"((spec319_0)" "(let-values(((s_279)" +"(cdr s_277)))" +"(let-values(((s_280)" "(if(syntax?$1" -" s_278)" +" s_279)" "(syntax-e$1" -" s_278)" -" s_278)))" +" s_279)" +" s_279)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_279)))" +" s_280)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25852,30 +25863,30 @@ static const char *startup_source = "(if(equal? tmp_24 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_280) req_3))" -"(let-values(((orig-s_18) s_280))" +"(let-values(((s_281) req_3))" +"(let-values(((orig-s_18) s_281))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_281)" -"(if(syntax?$1 s_280)" -"(syntax-e$1 s_280)" -" s_280)))" -"(if(pair? s_281)" -"(let-values(((for-template322_0)" "(let-values(((s_282)" -"(car s_281)))" -" s_282))" -"((spec323_0)" +"(if(syntax?$1 s_281)" +"(syntax-e$1 s_281)" +" s_281)))" +"(if(pair? s_282)" +"(let-values(((for-template322_0)" "(let-values(((s_283)" -"(cdr s_281)))" +"(car s_282)))" +" s_283))" +"((spec323_0)" "(let-values(((s_284)" +"(cdr s_282)))" +"(let-values(((s_285)" "(if(syntax?$1" -" s_283)" +" s_284)" "(syntax-e$1" -" s_283)" -" s_283)))" +" s_284)" +" s_284)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_284)))" +" s_285)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25894,32 +25905,32 @@ static const char *startup_source = "(if(equal? tmp_24 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_285) req_3))" -"(let-values(((orig-s_19) s_285))" +"(let-values(((s_286) req_3))" +"(let-values(((orig-s_19) s_286))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_286)" -"(if(syntax?$1 s_285)" -"(syntax-e$1 s_285)" -" s_285)))" -"(if(pair? s_286)" -"(let-values(((for-label326_0)" "(let-values(((s_287)" -"(car" +"(if(syntax?$1 s_286)" +"(syntax-e$1 s_286)" " s_286)))" -" s_287))" -"((spec327_0)" +"(if(pair? s_287)" +"(let-values(((for-label326_0)" "(let-values(((s_288)" -"(cdr" -" s_286)))" +"(car" +" s_287)))" +" s_288))" +"((spec327_0)" "(let-values(((s_289)" +"(cdr" +" s_287)))" +"(let-values(((s_290)" "(if(syntax?$1" -" s_288)" +" s_289)" "(syntax-e$1" -" s_288)" -" s_288)))" +" s_289)" +" s_289)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_289)))" +" s_290)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25940,51 +25951,51 @@ static const char *startup_source = "(if(equal? tmp_24 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_290) req_3))" -"(let-values(((orig-s_20) s_290))" +"(let-values(((s_291) req_3))" +"(let-values(((orig-s_20) s_291))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_291)" -"(if(syntax?$1 s_290)" -"(syntax-e$1 s_290)" -" s_290)))" -"(if(pair? s_291)" -"(let-values(((just-meta331_0)" "(let-values(((s_292)" -"(car" +"(if(syntax?$1 s_291)" +"(syntax-e$1 s_291)" " s_291)))" -" s_292))" +"(if(pair? s_292)" +"(let-values(((just-meta331_0)" +"(let-values(((s_293)" +"(car" +" s_292)))" +" s_293))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_293)" -"(cdr" -" s_291)))" "(let-values(((s_294)" -"(if(syntax?$1" -" s_293)" -"(syntax-e$1" -" s_293)" -" s_293)))" -"(if(pair? s_294)" -"(let-values(((phase-level334_0)" -"(let-values(((s_295)" -"(car" -" s_294)))" -" s_295))" -"((spec335_0)" -"(let-values(((s_296)" "(cdr" -" s_294)))" -"(let-values(((s_297)" +" s_292)))" +"(let-values(((s_295)" "(if(syntax?$1" -" s_296)" +" s_294)" "(syntax-e$1" -" s_296)" -" s_296)))" +" s_294)" +" s_294)))" +"(if(pair? s_295)" +"(let-values(((phase-level334_0)" +"(let-values(((s_296)" +"(car" +" s_295)))" +" s_296))" +"((spec335_0)" +"(let-values(((s_297)" +"(cdr" +" s_295)))" +"(let-values(((s_298)" +"(if(syntax?$1" +" s_297)" +"(syntax-e$1" +" s_297)" +" s_297)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_297)))" +" s_298)))" "(if(not" " flat-s_12)" "(let-values()" @@ -26066,9 +26077,9 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_21 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" +"(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_45)(phase+ orig-phase_0 phase-shift_14)))" -"(let-values(((b_67)" +"(let-values(((b_68)" "(let-values(((mpi4_0) mpi_41)" "((phase5_0) phase_45)" "((sym6_1) sym_46)" @@ -26096,10 +26107,10 @@ static const char *startup_source = " phase5_0" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_21)((b2_4) b_67)((phase3_1) phase_45))" +"(let-values(((id1_3) id_22)((b2_4) b_68)((phase3_1) phase_45))" "(add-binding!17.1 #f #f #f #f id1_3 b2_4 phase3_1))" "(if trans?_0" -"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_21 phase_45))(void)))" +"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_45))(void)))" "(let-values()(namespace-unset-transformer! ns_51 phase_45 sym_46)))))))" " top-level-require!-id" "(lambda(stx_12 ns_52)" @@ -26204,7 +26215,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_298 original-scopes-s_0 new-ns_0)" +"(lambda(s_299 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -26212,7 +26223,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_298 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_299 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26356,7 +26367,7 @@ static const char *startup_source = "(begin(check-vector vec_54)(values vec_54(unsafe-vector-length vec_54))))))" "(begin" " #f" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_176)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -26371,9 +26382,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_177(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_176(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_177)" +" for-loop_176)" " 0)))" "(void)" "(cons pos_84(vector-length vec_52)))))))" @@ -26560,7 +26571,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_299)(set-add s_299 extra-inspector_4))" +"(lambda(s_300)(set-add s_300 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26576,18 +26587,18 @@ static const char *startup_source = "(lambda(header_5 phase_69 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_152)(header-require-vars-in-order header_5)))" +"(let-values(((lst_153)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_152)))" -"((letrec-values(((for-loop_178)" -"(lambda(ht_110 link-mod-uses_1 lst_153)" +"(let-values()(check-list lst_153)))" +"((letrec-values(((for-loop_177)" +"(lambda(ht_110 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" -"(if(pair? lst_153)" -"(let-values(((vu_0)(unsafe-car lst_153))" -"((rest_77)(unsafe-cdr lst_153)))" +"(if(pair? lst_154)" +"(let-values(((vu_0)(unsafe-car lst_154))" +"((rest_77)(unsafe-cdr lst_154)))" "(let-values(((ht_111 link-mod-uses_2)" "(let-values(((ht_112) ht_110)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26620,25 +26631,25 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_113 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_178 ht_111 link-mod-uses_2 rest_77)" +"(for-loop_177 ht_111 link-mod-uses_2 rest_77)" "(values ht_111 link-mod-uses_2))))" "(values ht_110 link-mod-uses_1))))))" -" for-loop_178)" +" for-loop_177)" " '#hash()" " null" -" lst_152)))))" +" lst_153)))))" "(values" " link-mod-uses_0" "(reverse$1" "(let-values(((lst_34) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" -"((letrec-values(((for-loop_179)" -"(lambda(fold-var_138 lst_154)" +"((letrec-values(((for-loop_178)" +"(lambda(fold-var_138 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((mu_3)(unsafe-car lst_154))((rest_78)(unsafe-cdr lst_154)))" +"(if(pair? lst_155)" +"(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" "(let-values(((fold-var_139)" "(let-values(((fold-var_140) fold-var_138))" "(let-values(((fold-var_141)" @@ -26646,36 +26657,37 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_53)" +"(let-values(((lst_109)" "(header-require-vars-in-order" " header_5)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_53)))" -"((letrec-values(((for-loop_74)" -"(lambda(fold-var_39" -" lst_54)" +"(let-values()(check-list lst_109)))" +"((letrec-values(((for-loop_179)" +"(lambda(fold-var_142" +" lst_156)" "(begin" " 'for-loop" -"(if(pair? lst_54)" +"(if(pair?" +" lst_156)" "(let-values(((vu_1)" "(unsafe-car" -" lst_54))" -"((rest_23)" +" lst_156))" +"((rest_79)" "(unsafe-cdr" -" lst_54)))" +" lst_156)))" +"(let-values(((fold-var_143)" "(let-values(((fold-var_40)" -"(let-values(((fold-var_41)" -" fold-var_39))" +" fold-var_142))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" +"(let-values(((fold-var_41)" +" fold-var_40))" "(let-values(((fold-var_42)" -" fold-var_41))" -"(let-values(((fold-var_142)" "(let-values()" "(cons" "(let-values()" @@ -26694,39 +26706,39 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_42))))" -"(values" -" fold-var_142)))" " fold-var_41))))" +"(values" +" fold-var_42)))" +" fold-var_40))))" "(if(not #f)" -"(for-loop_74" -" fold-var_40" -" rest_23)" -" fold-var_40)))" -" fold-var_39)))))" -" for-loop_74)" +"(for-loop_179" +" fold-var_143" +" rest_79)" +" fold-var_143)))" +" fold-var_142)))))" +" for-loop_179)" " null" -" lst_53)))))" +" lst_109)))))" " fold-var_140))))" "(values fold-var_141)))))" -"(if(not #f)(for-loop_179 fold-var_139 rest_78) fold-var_139)))" +"(if(not #f)(for-loop_178 fold-var_139 rest_78) fold-var_139)))" " fold-var_138)))))" -" for-loop_179)" +" for-loop_178)" " null" " lst_34))))" "(reverse$1" -"(let-values(((lst_155) link-mod-uses_0))" +"(let-values(((lst_157) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" "((letrec-values(((for-loop_180)" -"(lambda(fold-var_143 lst_156)" +"(lambda(fold-var_144 lst_158)" "(begin" " 'for-loop" -"(if(pair? lst_156)" -"(let-values(((mu_4)(unsafe-car lst_156))((rest_79)(unsafe-cdr lst_156)))" -"(let-values(((fold-var_144)" -"(let-values(((fold-var_145) fold-var_143))" -"(let-values(((fold-var_146)" +"(if(pair? lst_158)" +"(let-values(((mu_4)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" +"(let-values(((fold-var_145)" +"(let-values(((fold-var_146) fold-var_144))" +"(let-values(((fold-var_147)" "(let-values()" "(cons" "(let-values()" @@ -26740,19 +26752,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_110)))" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_75)" "(lambda(table_145" -" lst_157)" +" lst_56)" "(begin" " 'for-loop" "(if(pair?" -" lst_157)" +" lst_56)" "(let-values(((vu_2)" "(unsafe-car" -" lst_157))" -"((rest_24)" +" lst_56))" +"((rest_81)" "(unsafe-cdr" -" lst_157)))" +" lst_56)))" "(let-values(((table_29)" "(let-values(((table_34)" " table_145))" @@ -26820,36 +26832,36 @@ static const char *startup_source = " table_34))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_75" " table_29" -" rest_24)" +" rest_81)" " table_29)))" " table_145)))))" -" for-loop_124)" +" for-loop_75)" " '#hash()" " lst_110)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_145))))" -"(values fold-var_146)))))" -"(if(not #f)(for-loop_180 fold-var_144 rest_79) fold-var_144)))" -" fold-var_143)))))" +" fold-var_146))))" +"(values fold-var_147)))))" +"(if(not #f)(for-loop_180 fold-var_145 rest_80) fold-var_145)))" +" fold-var_144)))))" " for-loop_180)" " null" -" lst_155))))" +" lst_157))))" "(reverse$1" -"(let-values(((lst_158)(header-require-vars-in-order header_5)))" +"(let-values(((lst_159)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" "((letrec-values(((for-loop_183)" -"(lambda(fold-var_147 lst_159)" +"(lambda(fold-var_148 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((vu_3)(unsafe-car lst_159))((rest_80)(unsafe-cdr lst_159)))" -"(let-values(((fold-var_148)" -"(let-values(((fold-var_149) fold-var_147))" +"(if(pair? lst_160)" +"(let-values(((vu_3)(unsafe-car lst_160))((rest_82)(unsafe-cdr lst_160)))" +"(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))))" @@ -26858,8 +26870,8 @@ static const char *startup_source = "(if or-part_219" " or-part_219" "(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()" @@ -26873,14 +26885,14 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" +" fold-var_151))))" +"(values fold-var_152)))" " fold-var_150))))" -"(values fold-var_151)))" -" fold-var_149))))" -"(if(not #f)(for-loop_183 fold-var_148 rest_80) fold-var_148)))" -" fold-var_147)))))" +"(if(not #f)(for-loop_183 fold-var_149 rest_82) fold-var_149)))" +" fold-var_148)))))" " for-loop_183)" " null" -" lst_158)))))))))" +" lst_159)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27028,14 +27040,14 @@ static const char *startup_source = "((e_31 k_32 v_127)(syntax-property$2 e_31 k_32 v_127))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_300)" +"(lambda(s_301)" "(begin" " 'to-syntax-list" -"(if(list? s_300)" -"(let-values() s_300)" -"(if(pair? s_300)" -"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_300))))(if r_39(cons(car s_300) r_39) #f)))" -"(if(1/syntax? s_300)(let-values()(to-syntax-list.1$1(syntax-e$2 s_300)))(let-values() #f)))))))" +"(if(list? s_301)" +"(let-values() s_301)" +"(if(pair? s_301)" +"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_301))))(if r_39(cons(car s_301) r_39) #f)))" +"(if(1/syntax? s_301)(let-values()(to-syntax-list.1$1(syntax-e$2 s_301)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -27098,23 +27110,23 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_160)(parsed-case-lambda-clauses p_36)))" +"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_160)))" +"(let-values()(check-list lst_161)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_152 lst_161)" +"(lambda(fold-var_153 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_161)" +"(if(pair? lst_162)" "(let-values(((clause_0)" -"(unsafe-car lst_161))" -"((rest_81)" -"(unsafe-cdr lst_161)))" +"(unsafe-car lst_162))" +"((rest_83)" +"(unsafe-cdr lst_162)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29)" -" fold-var_152))" +" fold-var_153))" "(let-values(((fold-var_30)" "(let-values()" "(cons" @@ -27129,12 +27141,12 @@ static const char *startup_source = "(values" " fold-var_30)))))" "(if(not #f)" -"(for-loop_184 fold-var_28 rest_81)" +"(for-loop_184 fold-var_28 rest_83)" " fold-var_28)))" -" fold-var_152)))))" +" fold-var_153)))))" " for-loop_184)" " null" -" lst_160))))))" +" lst_161))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" @@ -27152,16 +27164,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_185)" -"(lambda(fold-var_153 lst_162)" +"(lambda(fold-var_154 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_162)" -"(let-values(((r_40)(unsafe-car lst_162))" +"(if(pair? lst_163)" +"(let-values(((r_40)(unsafe-car lst_163))" "((rest_42)" -"(unsafe-cdr lst_162)))" -"(let-values(((fold-var_154)" +"(unsafe-cdr lst_163)))" +"(let-values(((fold-var_155)" "(let-values(((fold-var_9)" -" fold-var_153))" +" fold-var_154))" "(let-values(((fold-var_68)" "(let-values()" "(cons" @@ -27174,9 +27186,9 @@ static const char *startup_source = "(values" " fold-var_68)))))" "(if(not #f)" -"(for-loop_185 fold-var_154 rest_42)" -" fold-var_154)))" -" fold-var_153)))))" +"(for-loop_185 fold-var_155 rest_42)" +" fold-var_155)))" +" fold-var_154)))))" " for-loop_185)" " null" " lst_42))))))))" @@ -27217,24 +27229,24 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_91)(cdr(parsed-begin0-body p_36))))" +"(let-values(((lst_90)(cdr(parsed-begin0-body p_36))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" +"(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_92)" +"(lambda(fold-var_11 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" +"(if(pair? lst_91)" "(let-values(((e_32)" -"(unsafe-car lst_92))" +"(unsafe-car lst_91))" "((rest_43)" -"(unsafe-cdr lst_92)))" +"(unsafe-cdr lst_91)))" "(let-values(((fold-var_90)" "(let-values(((fold-var_91)" " fold-var_11))" -"(let-values(((fold-var_155)" +"(let-values(((fold-var_156)" "(let-values()" "(cons" "(let-values()" @@ -27244,7 +27256,7 @@ static const char *startup_source = " #f))" " fold-var_91))))" "(values" -" fold-var_155)))))" +" fold-var_156)))))" "(if(not #f)" "(for-loop_107" " fold-var_90" @@ -27253,7 +27265,7 @@ static const char *startup_source = " fold-var_11)))))" " for-loop_107)" " null" -" lst_91)))))))" +" lst_90)))))))" "(if(parsed-begin? p_36)" "(let-values()" "(correlate~" @@ -27324,14 +27336,14 @@ static const char *startup_source = "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" "(if(parsed-#%variable-reference? p_36)" "(let-values()" -"(let-values(((id_44)" +"(let-values(((id_45)" "(parsed-#%variable-reference-id p_36)))" "(correlate~" " s_10" -"(if id_44" +"(if id_45" "(list" " '#%variable-reference" -"(let-values(((id43_0) id_44)((cctx44_0) cctx_1))" +"(let-values(((id43_0) id_45)((cctx44_0) cctx_1))" "(compile-identifier24.1" " #f" " #f" @@ -27366,28 +27378,28 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_163) es_0)((start_33) 0))" +"(let-values(((lst_164) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_163)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_186)" -"(lambda(fold-var_156 lst_97 pos_90)" +"(lambda(fold-var_157 lst_96 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_97) #t #f)" -"(let-values(((e_33)(unsafe-car lst_97))" -"((rest_82)(unsafe-cdr lst_97))" -"((i_101) pos_90))" -"(let-values(((fold-var_157)" -"(let-values(((fold-var_79) fold-var_156))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((e_33)(unsafe-car lst_96))" +"((rest_84)(unsafe-cdr lst_96))" +"((i_100) pos_90))" +"(let-values(((fold-var_158)" +"(let-values(((fold-var_79) fold-var_157))" "(let-values(((fold-var_80)" "(let-values()" "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_101 used-pos_0)))" +"(= i_100 used-pos_0)))" "(compile$2" " e_33" " cctx_7" @@ -27395,15 +27407,15 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_79))))" "(values fold-var_80)))))" -"(if(not #f)(for-loop_186 fold-var_157 rest_82(+ pos_90 1)) fold-var_157)))" -" fold-var_156)))))" +"(if(not #f)(for-loop_186 fold-var_158 rest_84(+ pos_90 1)) fold-var_158)))" +" fold-var_157)))))" " for-loop_186)" " null" -" lst_163" +" lst_164" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_301 inferred-name_0 orig-s_21)" +"(lambda(s_302 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" "(lambda(v_155)" @@ -27429,10 +27441,10 @@ static const char *startup_source = "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_301)" +"(->correlated s_302)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_301)))" +" s_302)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -27454,26 +27466,26 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_164)(parsed-let_-values-clauses p_41))" -"((lst_165)(parsed-let_-values-idss p_41)))" +"(let-values(((lst_165)(parsed-let_-values-clauses p_41))" +"((lst_166)(parsed-let_-values-idss p_41)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_165)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_166)))" "((letrec-values(((for-loop_187)" -"(lambda(fold-var_158 lst_166 lst_167)" +"(lambda(fold-var_159 lst_167 lst_168)" "(begin" " 'for-loop" -"(if(if(pair? lst_166)(pair? lst_167) #f)" -"(let-values(((clause_1)(unsafe-car lst_166))" -"((rest_83)(unsafe-cdr lst_166))" -"((ids_4)(unsafe-car lst_167))" -"((rest_84)(unsafe-cdr lst_167)))" -"(let-values(((fold-var_159)" -"(let-values(((fold-var_160) fold-var_158))" +"(if(if(pair? lst_167)(pair? lst_168) #f)" +"(let-values(((clause_1)(unsafe-car lst_167))" +"((rest_85)(unsafe-cdr lst_167))" +"((ids_4)(unsafe-car lst_168))" +"((rest_86)(unsafe-cdr lst_168)))" +"(let-values(((fold-var_160)" +"(let-values(((fold-var_161) fold-var_159))" "(let-values(((fold-var_0)" "(let-values()" "(cons" @@ -27481,10 +27493,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_168)" +"(let-values(((lst_169)" "(car" " clause_1))" -"((lst_169)" +"((lst_170)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27492,61 +27504,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_168)))" +" lst_169)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_169)))" +" lst_170)))" "((letrec-values(((for-loop_188)" "(lambda(fold-var_2" -" lst_170" -" lst_171)" +" lst_171" +" lst_172)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_170)" -"(pair?" " lst_171)" +"(pair?" +" lst_172)" " #f)" "(let-values(((sym_51)" "(unsafe-car" -" lst_170))" -"((rest_85)" -"(unsafe-cdr" -" lst_170))" -"((id_45)" -"(unsafe-car" " lst_171))" -"((rest_86)" +"((rest_87)" "(unsafe-cdr" -" lst_171)))" +" lst_171))" +"((id_46)" +"(unsafe-car" +" lst_172))" +"((rest_88)" +"(unsafe-cdr" +" lst_172)))" "(let-values(((fold-var_92)" -"(let-values(((fold-var_161)" -" fold-var_2))" "(let-values(((fold-var_162)" +" fold-var_2))" +"(let-values(((fold-var_163)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_51" -" id_45))" -" fold-var_161))))" +" id_46))" +" fold-var_162))))" "(values" -" fold-var_162)))))" +" fold-var_163)))))" "(if(not" " #f)" "(for-loop_188" " fold-var_92" -" rest_85" -" rest_86)" +" rest_87" +" rest_88)" " fold-var_92)))" " fold-var_2)))))" " for-loop_188)" " null" -" lst_168" -" lst_169))))" +" lst_169" +" lst_170))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27554,24 +27566,24 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_160))))" +" fold-var_161))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_187 fold-var_159 rest_83 rest_84)" -" fold-var_159)))" -" fold-var_158)))))" +"(for-loop_187 fold-var_160 rest_85 rest_86)" +" fold-var_160)))" +" fold-var_159)))))" " for-loop_187)" " null" -" lst_164" -" lst_165))))" +" lst_165" +" lst_166))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" "(lambda(sym_49 orig-id_0)" "(begin" -"(let-values(((id_46)(correlate~ orig-id_0 sym_49)))" +"(let-values(((id_47)(correlate~ orig-id_0 sym_49)))" "(correlated-property" -"(->correlated id_46)" +"(->correlated id_47)" " 'undefined-error-name" "(let-values(((or-part_49)(syntax-property$1 orig-id_0 'undefined-error-name)))" "(if or-part_49 or-part_49(syntax-e$1 orig-id_0))))))))" @@ -27586,7 +27598,7 @@ static const char *startup_source = "(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))" "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_42)))" -"(let-values(((b_68)" +"(let-values(((b_69)" "(let-values(((or-part_222) normal-b_0))" "(if or-part_222" " or-part_222" @@ -27616,18 +27628,18 @@ static const char *startup_source = " temp46_0" " temp47_0))))))" "(let-values(((sym_5)" -"(if(local-binding? b_68)" -"(let-values()(local-binding-key b_68))" -"(if(module-binding? b_68)" +"(if(local-binding? b_69)" +"(let-values()(local-binding-key b_69))" +"(if(module-binding? b_69)" "(let-values()" "(let-values(((mpi_43)" "(if(parsed-top-id? p_42)" "(compile-context-self cctx_9)" -"(module-binding-module b_68))))" +"(module-binding-module b_69))))" "(if(parsed-primitive-id? p_42)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_68))" +"(if(zero?(module-binding-phase b_69))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" @@ -27635,23 +27647,23 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: cannot assign to a primitive:\"" -"(module-binding-sym b_68)))" +"(module-binding-sym b_69)))" "(void))" -"(module-binding-sym b_68)))" +"(module-binding-sym b_69)))" "(if(eq? mpi_43(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" "(header-binding-sym-to-define-sym header_6)" -"(module-binding-sym b_68))))" +"(module-binding-sym b_69))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" "((mpi49_0) mpi_43)" -"((temp50_0)(module-binding-phase b_68))" -"((temp51_0)(module-binding-sym b_68))" +"((temp50_0)(module-binding-phase b_69))" +"((temp51_0)(module-binding-sym b_69))" "((temp52_1)" "(let-values(((or-part_100)" -"(module-binding-extra-inspector b_68)))" +"(module-binding-extra-inspector b_69)))" "(if or-part_100" " or-part_100" "(let-values(((or-part_223)" @@ -27672,7 +27684,7 @@ static const char *startup_source = "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_68" +" b_69" "(parsed-s p_42)))))))" "(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" @@ -27697,11 +27709,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_114)))" "((letrec-values(((for-loop_95)" -"(lambda(result_78 i_140)" +"(lambda(result_78 i_139)" "(begin" " 'for-loop" -"(if i_140" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_140)))" +"(if i_139" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_139)))" "(let-values(((result_79)" "(let-values()" "(let-values(((result_80)" @@ -27711,8 +27723,8 @@ static const char *startup_source = " extra-insp_0" " guard-insp_0)))))" "(values result_80)))))" -"(if(if(not((lambda x_53(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_79(unsafe-immutable-hash-iterate-next ht_114 i_140))" +"(if(if(not((lambda x_52(not result_79)) extra-insp_0))(not #f) #f)" +"(for-loop_95 result_79(unsafe-immutable-hash-iterate-next ht_114 i_139))" " result_79)))" " result_78)))))" " for-loop_95)" @@ -27777,22 +27789,22 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_103) mus_1)((lst_91) extra-inspectorsss_0))" +"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_92 lst_172)" +"(lambda(fold-var_11 lst_91 lst_173)" "(begin" " 'for-loop" -"(if(if(pair? lst_92)(pair? lst_172) #f)" -"(let-values(((mu_5)(unsafe-car lst_92))" -"((rest_87)(unsafe-cdr lst_92))" -"((extra-inspectorss_1)(unsafe-car lst_172))" -"((rest_37)(unsafe-cdr lst_172)))" -"(let-values(((fold-var_163)" -"(let-values(((fold-var_164) fold-var_11))" -"(let-values(((fold-var_165)" +"(if(if(pair? lst_91)(pair? lst_173) #f)" +"(let-values(((mu_5)(unsafe-car lst_91))" +"((rest_89)(unsafe-cdr lst_91))" +"((extra-inspectorss_1)(unsafe-car lst_173))" +"((rest_37)(unsafe-cdr lst_173)))" +"(let-values(((fold-var_164)" +"(let-values(((fold-var_165) fold-var_11))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -27801,27 +27813,27 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_164))))" -"(values fold-var_165)))))" -"(if(not #f)(for-loop_107 fold-var_163 rest_87 rest_37) fold-var_163)))" +" fold-var_165))))" +"(values fold-var_166)))))" +"(if(not #f)(for-loop_107 fold-var_164 rest_89 rest_37) fold-var_164)))" " fold-var_11)))))" " for-loop_107)" " null" -" lst_103" -" lst_91)))))" +" lst_102" +" lst_90)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_93) mus_1))" +"(let-values(((lst_92) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_189)" -"(lambda(fold-var_166 lst_17)" +"(lambda(fold-var_167 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" -"(let-values(((mu_6)(unsafe-car lst_17))((rest_88)(unsafe-cdr lst_17)))" +"(let-values(((mu_6)(unsafe-car lst_17))((rest_90)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_167) fold-var_166))" +"(let-values(((fold-var_168) fold-var_167))" "(let-values(((fold-var_18)" "(let-values()" "(cons" @@ -27831,30 +27843,30 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_167))))" +" fold-var_168))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_189 fold-var_63 rest_88) fold-var_63)))" -" fold-var_166)))))" +"(if(not #f)(for-loop_189 fold-var_63 rest_90) fold-var_63)))" +" fold-var_167)))))" " for-loop_189)" " null" -" lst_93)))))))))" +" lst_92)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_173) mu*s_0))" +"(let-values(((lst_174) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" "((letrec-values(((for-loop_190)" -"(lambda(fold-var_70 lst_174)" +"(lambda(fold-var_70 lst_175)" "(begin" " 'for-loop" -"(if(pair? lst_174)" -"(let-values(((mu*_0)(unsafe-car lst_174))((rest_89)(unsafe-cdr lst_174)))" -"(let-values(((fold-var_168)" -"(let-values(((fold-var_71) fold-var_70))" +"(if(pair? lst_175)" +"(let-values(((mu*_0)(unsafe-car lst_175))((rest_91)(unsafe-cdr lst_175)))" "(let-values(((fold-var_169)" +"(let-values(((fold-var_71) fold-var_70))" +"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -27862,12 +27874,12 @@ static const char *startup_source = "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" " fold-var_71))))" -"(values fold-var_169)))))" -"(if(not #f)(for-loop_190 fold-var_168 rest_89) fold-var_168)))" +"(values fold-var_170)))))" +"(if(not #f)(for-loop_190 fold-var_169 rest_91) fold-var_169)))" " fold-var_70)))))" " for-loop_190)" " null" -" lst_173)))))))" +" lst_174)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27875,72 +27887,72 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_175) mu*s_1))" +"(let-values(((lst_176) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" "((letrec-values(((for-loop_191)" "(lambda(fold-var_74 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" -"(let-values(((mu*_1)(unsafe-car lst_9))((rest_90)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_170)" -"(let-values(((fold-var_4) fold-var_74))" +"(let-values(((mu*_1)(unsafe-car lst_9))((rest_92)(unsafe-cdr lst_9)))" "(let-values(((fold-var_171)" +"(let-values(((fold-var_4) fold-var_74))" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_171)))))" -"(if(not #f)(for-loop_191 fold-var_170 rest_90) fold-var_170)))" +"(values fold-var_172)))))" +"(if(not #f)(for-loop_191 fold-var_171 rest_92) fold-var_171)))" " fold-var_74)))))" " for-loop_191)" " null" -" lst_175)))))" +" lst_176)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_176) mu*s_1)((lst_177)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_177) mu*s_1)((lst_178)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" "((letrec-values(((for-loop_29)" -"(lambda(fold-var_6 lst_178 lst_179)" +"(lambda(fold-var_6 lst_179 lst_180)" "(begin" " 'for-loop" -"(if(if(pair? lst_178)(pair? lst_179) #f)" -"(let-values(((mu*_2)(unsafe-car lst_178))" -"((rest_91)(unsafe-cdr lst_178))" -"((imports_0)(unsafe-car lst_179))" -"((rest_92)(unsafe-cdr lst_179)))" -"(let-values(((fold-var_156)" -"(let-values(((fold-var_172) fold-var_6))" -"(let-values(((fold-var_173)" +"(if(if(pair? lst_179)(pair? lst_180) #f)" +"(let-values(((mu*_2)(unsafe-car lst_179))" +"((rest_93)(unsafe-cdr lst_179))" +"((imports_0)(unsafe-car lst_180))" +"((rest_94)(unsafe-cdr lst_180)))" +"(let-values(((fold-var_157)" +"(let-values(((fold-var_173) fold-var_6))" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_98) imports_0))" +"(let-values(((lst_97) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" +"(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_180)" +" lst_181)" "(begin" " 'for-loop" "(if(pair?" -" lst_180)" +" lst_181)" "(let-values(((import_0)" "(unsafe-car" -" lst_180))" -"((rest_93)" +" lst_181))" +"((rest_95)" "(unsafe-cdr" -" lst_180)))" +" lst_181)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -27967,20 +27979,20 @@ static const char *startup_source = " #f)" "(for-loop_19" " extra-inspectorss_4" -" rest_93)" +" rest_95)" " extra-inspectorss_4)))" " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_98)))))" -" fold-var_172))))" -"(values fold-var_173)))))" -"(if(not #f)(for-loop_29 fold-var_156 rest_91 rest_92) fold-var_156)))" +" lst_97)))))" +" fold-var_173))))" +"(values fold-var_174)))))" +"(if(not #f)(for-loop_29 fold-var_157 rest_93 rest_94) fold-var_157)))" " fold-var_6)))))" " for-loop_29)" " null" -" lst_176" -" lst_177)))))))))" +" lst_177" +" lst_178)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" @@ -27995,18 +28007,18 @@ static const char *startup_source = "(let-values(((new-extra-inspectorss_0)" "(if(let-values(((or-part_225) add-insp?_0))(if or-part_225 or-part_225 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_181) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_181)))" +"(let-values()(check-list lst_182)))" "((letrec-values(((for-loop_192)" -"(lambda(table_150 lst_182)" +"(lambda(table_150 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_182)" -"(let-values(((import_1)(unsafe-car lst_182))" -"((rest_94)(unsafe-cdr lst_182)))" +"(if(pair? lst_183)" +"(let-values(((import_1)(unsafe-car lst_183))" +"((rest_96)(unsafe-cdr lst_183)))" "(let-values(((table_151)" "(let-values(((table_152) table_150))" "(let-values(((table_153)" @@ -28048,24 +28060,24 @@ static const char *startup_source = " key_59" " val_50)))))" "(values table_153)))))" -"(if(not #f)(for-loop_192 table_151 rest_94) table_151)))" +"(if(not #f)(for-loop_192 table_151 rest_96) table_151)))" " table_150)))))" " for-loop_192)" " '#hash()" -" lst_181))))" +" lst_182))))" "(let-values()" -"(let-values(((lst_183) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_183)))" +"(let-values()(check-list lst_184)))" "((letrec-values(((for-loop_193)" -"(lambda(extra-inspectorss_8 lst_184)" +"(lambda(extra-inspectorss_8 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_184)" -"(let-values(((import_2)(unsafe-car lst_184))" -"((rest_95)(unsafe-cdr lst_184)))" +"(if(pair? lst_185)" +"(let-values(((import_2)(unsafe-car lst_185))" +"((rest_97)(unsafe-cdr lst_185)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28082,13 +28094,13 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_193 extra-inspectorss_9 rest_95)" +"(for-loop_193 extra-inspectorss_9 rest_97)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" " for-loop_193)" "(let-values(((or-part_226) extra-inspectorss_7))" "(if or-part_226 or-part_226(seteq)))" -" lst_183)))))))" +" lst_184)))))))" "(module-use*1.1 mpi_44 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" @@ -28103,12 +28115,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_115)))" "((letrec-values(((for-loop_194)" -"(lambda(new-extra-inspectorss_2 i_141)" +"(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" -"(if i_141" +"(if i_140" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_115 i_141)))" +"(hash-iterate-key+value ht_115 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28127,7 +28139,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_194" " new-extra-inspectorss_3" -"(hash-iterate-next ht_115 i_141))" +"(hash-iterate-next ht_115 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" " for-loop_194)" @@ -28248,23 +28260,23 @@ static const char *startup_source = " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_185) force-phases_0))" +"(let-values(((lst_186) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_185)))" +"(let-values()(check-list lst_186)))" "((letrec-values(((for-loop_195)" -"(lambda(lst_186)" +"(lambda(lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_186)" +"(if(pair? lst_187)" "(let-values(((phase_73)" "(unsafe-car" -" lst_186))" -"((rest_96)" +" lst_187))" +"((rest_98)" "(unsafe-cdr" -" lst_186)))" +" lst_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28281,11 +28293,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_195" -" rest_96)" +" rest_98)" "(values))))" "(values))))))" " for-loop_195)" -" lst_185)))" +" lst_186)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28300,7 +28312,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_187)" +"(let-values(((lst_188)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28308,19 +28320,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_187)))" +" lst_188)))" "((letrec-values(((for-loop_196)" -"(lambda(lst_188)" +"(lambda(lst_189)" "(begin" " 'for-loop" "(if(pair?" -" lst_188)" +" lst_189)" "(let-values(((body_2)" "(unsafe-car" -" lst_188))" -"((rest_97)" +" lst_189))" +"((rest_99)" "(unsafe-cdr" -" lst_188)))" +" lst_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28331,7 +28343,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_189)" +"(let-values(((lst_190)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28340,19 +28352,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" +" lst_190)))" "((letrec-values(((for-loop_197)" -"(lambda(lst_190)" +"(lambda(lst_191)" "(begin" " 'for-loop" "(if(pair?" -" lst_190)" +" lst_191)" "(let-values(((sym_53)" "(unsafe-car" -" lst_190))" -"((rest_98)" +" lst_191))" +"((rest_100)" "(unsafe-cdr" -" lst_190)))" +" lst_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28383,11 +28395,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_197" -" rest_98)" +" rest_100)" "(values))))" "(values))))))" " for-loop_197)" -" lst_189)))" +" lst_190)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28406,11 +28418,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_196" -" rest_97)" +" rest_99)" "(values))))" "(values))))))" " for-loop_196)" -" lst_187)))" +" lst_188)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28436,7 +28448,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_191)" +"(let-values(((lst_192)" " bodys_4)" "((start_34)" " 0))" @@ -28446,7 +28458,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" +" lst_192)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -28454,21 +28466,21 @@ static const char *startup_source = "(check-naturals" " start_34)))" "((letrec-values(((for-loop_115)" -"(lambda(lst_192" +"(lambda(lst_193" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_192)" +" lst_193)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_192))" -"((rest_84)" +" lst_193))" +"((rest_86)" "(unsafe-cdr" -" lst_192))" -"((i_142)" +" lst_193))" +"((i_141)" " pos_92))" "(let-values((()" "(let-values()" @@ -28490,7 +28502,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_193)" +"(let-values(((lst_194)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28498,22 +28510,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_193)))" +" lst_194)))" "((letrec-values(((for-loop_198)" "(lambda(fold-var_3" -" lst_171)" +" lst_172)" "(begin" " 'for-loop" "(if(pair?" -" lst_171)" +" lst_172)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_171))" -"((rest_85)" +" lst_172))" +"((rest_87)" "(unsafe-cdr" -" lst_171)))" -"(let-values(((fold-var_174)" +" lst_172)))" "(let-values(((fold-var_175)" +"(let-values(((fold-var_176)" " fold-var_3))" "(let-values(((fold-var_92)" "(let-values()" @@ -28523,22 +28535,22 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_175))))" +" fold-var_176))))" "(values" " fold-var_92)))))" "(if(not" " #f)" "(for-loop_198" -" fold-var_174" -" rest_85)" -" fold-var_174)))" +" fold-var_175" +" rest_87)" +" fold-var_175)))" " fold-var_3)))))" " for-loop_198)" " null" -" lst_193)))))" +" lst_194)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_105)" +"(let-values(((lst_104)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28546,24 +28558,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_105)))" +" lst_104)))" "((letrec-values(((for-loop_199)" -"(lambda(fold-var_176" -" lst_194)" +"(lambda(fold-var_177" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_194)" +" lst_195)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_194))" -"((rest_99)" +" lst_195))" +"((rest_101)" "(unsafe-cdr" -" lst_194)))" -"(let-values(((fold-var_177)" +" lst_195)))" "(let-values(((fold-var_178)" -" fold-var_176))" "(let-values(((fold-var_179)" +" fold-var_177))" +"(let-values(((fold-var_180)" "(let-values()" "(cons" "(let-values()" @@ -28588,19 +28600,19 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_178))))" +" fold-var_179))))" "(values" -" fold-var_179)))))" +" fold-var_180)))))" "(if(not" " #f)" "(for-loop_199" -" fold-var_177" -" rest_99)" -" fold-var_177)))" -" fold-var_176)))))" +" fold-var_178" +" rest_101)" +" fold-var_178)))" +" fold-var_177)))))" " for-loop_199)" " null" -" lst_105))))))))" +" lst_104))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" @@ -28676,7 +28688,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_106)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28684,24 +28696,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" +" lst_106)))" "((letrec-values(((for-loop_200)" -"(lambda(fold-var_180" -" lst_195)" +"(lambda(fold-var_181" +" lst_51)" "(begin" " 'for-loop" "(if(pair?" -" lst_195)" +" lst_51)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_195))" -"((rest_100)" +" lst_51))" +"((rest_102)" "(unsafe-cdr" -" lst_195)))" -"(let-values(((fold-var_181)" +" lst_51)))" "(let-values(((fold-var_182)" -" fold-var_180))" -"(let-values(((fold-var_36)" +"(let-values(((fold-var_183)" +" fold-var_181))" +"(let-values(((fold-var_184)" "(let-values()" "(cons" "(let-values()" @@ -28709,19 +28721,19 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_182))))" +" fold-var_183))))" "(values" -" fold-var_36)))))" +" fold-var_184)))))" "(if(not" " #f)" "(for-loop_200" -" fold-var_181" -" rest_100)" -" fold-var_181)))" -" fold-var_180)))))" +" fold-var_182" +" rest_102)" +" fold-var_182)))" +" fold-var_181)))))" " for-loop_200)" " null" -" lst_107)))))" +" lst_106)))))" " '((void))))" "(add-body!_0" " phase_75" @@ -28779,7 +28791,7 @@ static const char *startup_source = "(check-list" " lst_196)))" "((letrec-values(((for-loop_201)" -"(lambda(fold-var_183" +"(lambda(fold-var_185" " lst_197)" "(begin" " 'for-loop" @@ -28788,13 +28800,13 @@ static const char *startup_source = "(let-values(((binding-sym_2)" "(unsafe-car" " lst_197))" -"((rest_101)" +"((rest_103)" "(unsafe-cdr" " lst_197)))" -"(let-values(((fold-var_184)" -"(let-values(((fold-var_185)" -" fold-var_183))" "(let-values(((fold-var_186)" +"(let-values(((fold-var_187)" +" fold-var_185))" +"(let-values(((fold-var_188)" "(let-values()" "(cons" "(let-values()" @@ -28807,16 +28819,16 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_185))))" +" fold-var_187))))" "(values" -" fold-var_186)))))" +" fold-var_188)))))" "(if(not" " #f)" "(for-loop_201" -" fold-var_184" -" rest_101)" -" fold-var_184)))" -" fold-var_183)))))" +" fold-var_186" +" rest_103)" +" fold-var_186)))" +" fold-var_185)))))" " for-loop_201)" " null" " lst_196))))))" @@ -28885,7 +28897,7 @@ static const char *startup_source = "(check-list" " lst_198)))" "((letrec-values(((for-loop_202)" -"(lambda(fold-var_187" +"(lambda(fold-var_189" " lst_199" " lst_200)" "(begin" @@ -28898,19 +28910,19 @@ static const char *startup_source = "(let-values(((binding-sym_3)" "(unsafe-car" " lst_199))" -"((rest_102)" +"((rest_104)" "(unsafe-cdr" " lst_199))" "((gen-sym_1)" "(unsafe-car" " lst_200))" -"((rest_103)" +"((rest_105)" "(unsafe-cdr" " lst_200)))" -"(let-values(((fold-var_188)" -"(let-values(((fold-var_189)" -" fold-var_187))" "(let-values(((fold-var_190)" +"(let-values(((fold-var_191)" +" fold-var_189))" +"(let-values(((fold-var_192)" "(let-values()" "(cons" "(let-values()" @@ -28920,17 +28932,17 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_189))))" +" fold-var_191))))" "(values" -" fold-var_190)))))" +" fold-var_192)))))" "(if(not" " #f)" "(for-loop_202" -" fold-var_188" -" rest_102" -" rest_103)" -" fold-var_188)))" -" fold-var_187)))))" +" fold-var_190" +" rest_104" +" rest_105)" +" fold-var_190)))" +" fold-var_189)))))" " for-loop_202)" " null" " lst_29" @@ -29088,7 +29100,7 @@ static const char *startup_source = " the-struct_51)))" " #f" "(=" -" i_142" +" i_141" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29105,14 +29117,14 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_115" -" rest_84" +" rest_86" "(+" " pos_92" " 1))" "(values))))" "(values))))))" " for-loop_115)" -" lst_191" +" lst_192" " start_34)))" "(void))))))" " loop!_1)" @@ -29180,7 +29192,7 @@ static const char *startup_source = "(let-values(((phase_76)" "(unsafe-car" " lst_202))" -"((rest_104)" +"((rest_106)" "(unsafe-cdr" " lst_202)))" "(let-values(((table_155)" @@ -29222,7 +29234,7 @@ static const char *startup_source = " #f)" "(for-loop_119" " table_155" -" rest_104)" +" rest_106)" " table_155)))" " table_154)))))" " for-loop_119)" @@ -29248,7 +29260,7 @@ static const char *startup_source = "(let-values(((phase_77)" "(unsafe-car" " lst_204))" -"((rest_105)" +"((rest_107)" "(unsafe-cdr" " lst_204)))" "(let-values(((table_159)" @@ -29322,7 +29334,7 @@ static const char *startup_source = "(check-list" " lst_205)))" "((letrec-values(((for-loop_181)" -"(lambda(fold-var_191" +"(lambda(fold-var_193" " lst_206)" "(begin" " 'for-loop" @@ -29331,13 +29343,13 @@ static const char *startup_source = "(let-values(((binding-sym_4)" "(unsafe-car" " lst_206))" -"((rest_106)" +"((rest_108)" "(unsafe-cdr" " lst_206)))" -"(let-values(((fold-var_192)" -"(let-values(((fold-var_193)" -" fold-var_191))" "(let-values(((fold-var_194)" +"(let-values(((fold-var_195)" +" fold-var_193))" +"(let-values(((fold-var_196)" "(let-values()" "(cons" "(let-values()" @@ -29352,16 +29364,16 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_193))))" +" fold-var_195))))" "(values" -" fold-var_194)))))" +" fold-var_196)))))" "(if(not" " #f)" "(for-loop_181" -" fold-var_192" -" rest_106)" -" fold-var_192)))" -" fold-var_191)))))" +" fold-var_194" +" rest_108)" +" fold-var_194)))" +" fold-var_193)))))" " for-loop_181)" " null" " lst_205)))))" @@ -29399,7 +29411,7 @@ static const char *startup_source = " #f)" "(for-loop_203" " table_159" -" rest_105)" +" rest_107)" " table_159)))" " table_158)))))" " for-loop_203)" @@ -29417,15 +29429,15 @@ static const char *startup_source = " ht_116)))" "((letrec-values(((for-loop_204)" "(lambda(table_162" -" i_143)" +" i_142)" "(begin" " 'for-loop" -"(if i_143" +"(if i_142" "(let-values(((phase_53" " l+mu*s_0)" "(hash-iterate-key+value" " ht_116" -" i_143)))" +" i_142)))" "(let-values(((table_163)" "(let-values(((table_122)" " table_162))" @@ -29450,7 +29462,7 @@ static const char *startup_source = " table_163" "(hash-iterate-next" " ht_116" -" i_143))" +" i_142))" " table_163)))" " table_162)))))" " for-loop_204)" @@ -29469,15 +29481,15 @@ static const char *startup_source = " ht_117)))" "((letrec-values(((for-loop_205)" "(lambda(table_164" -" i_144)" +" i_143)" "(begin" " 'for-loop" -"(if i_144" +"(if i_143" "(let-values(((phase_78" " l+mu*s_1)" "(hash-iterate-key+value" " ht_117" -" i_144)))" +" i_143)))" "(let-values(((table_165)" "(let-values(((table_40)" " table_164))" @@ -29503,7 +29515,7 @@ static const char *startup_source = " table_165" "(hash-iterate-next" " ht_117" -" i_144))" +" i_143))" " table_165)))" " table_164)))))" " for-loop_205)" @@ -29526,15 +29538,15 @@ static const char *startup_source = " ht_118)))" "((letrec-values(((for-loop_206)" "(lambda(table_167" -" i_145)" +" i_144)" "(begin" " 'for-loop" -"(if i_145" +"(if i_144" "(let-values(((phase_79" " l+mu*s_2)" "(hash-iterate-key+value" " ht_118" -" i_145)))" +" i_144)))" "(let-values(((table_168)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" @@ -29547,7 +29559,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_126)" "(lambda(table_169)" "(begin" " 'for-loop" @@ -29574,7 +29586,7 @@ static const char *startup_source = " table_44)))" " table_171))))" " table_170))))))" -" for-loop_127)" +" for-loop_126)" " table_167)))))" "(if(not" " #f)" @@ -29582,7 +29594,7 @@ static const char *startup_source = " table_168" "(hash-iterate-next" " ht_118" -" i_145))" +" i_144))" " table_168)))" " table_167)))))" " for-loop_206)" @@ -29615,40 +29627,40 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_207) ids_7)" "((lst_208) binding-syms_2)" -"((lst_116)" +"((lst_117)" "(let-values(((or-part_109) trans-exprs_0))" "(if or-part_109" " or-part_109" "(reverse$1" -"(let-values(((lst_117) ids_7))" +"(let-values(((lst_118) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_117)))" +"(let-values()(check-list lst_118)))" "((letrec-values(((for-loop_207)" -"(lambda(fold-var_195 lst_209)" +"(lambda(fold-var_197 lst_209)" "(begin" " 'for-loop" "(if(pair? lst_209)" -"(let-values(((id_47)(unsafe-car lst_209))" -"((rest_107)(unsafe-cdr lst_209)))" -"(let-values(((fold-var_196)" -"(let-values(((fold-var_197)" -" fold-var_195))" +"(let-values(((id_48)(unsafe-car lst_209))" +"((rest_109)(unsafe-cdr lst_209)))" "(let-values(((fold-var_198)" +"(let-values(((fold-var_199)" +" fold-var_197))" +"(let-values(((fold-var_200)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_197))))" -"(values fold-var_198)))))" +" fold-var_199))))" +"(values fold-var_200)))))" "(if(not #f)" -"(for-loop_207 fold-var_196 rest_107)" -" fold-var_196)))" -" fold-var_195)))))" +"(for-loop_207 fold-var_198 rest_109)" +" fold-var_198)))" +" fold-var_197)))))" " for-loop_207)" " null" -" lst_117))))))))" +" lst_118))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29658,28 +29670,28 @@ static const char *startup_source = "(let-values()(check-list lst_208)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_116)))" +"(let-values()(check-list lst_117)))" "((letrec-values(((for-loop_208)" -"(lambda(fold-var_199 lst_210 lst_3 lst_211)" +"(lambda(fold-var_201 lst_210 lst_3 lst_211)" "(begin" " 'for-loop" "(if(if(pair? lst_210)(if(pair? lst_3)(pair? lst_211) #f) #f)" -"(let-values(((id_48)(unsafe-car lst_210))" -"((rest_108)(unsafe-cdr lst_210))" +"(let-values(((id_49)(unsafe-car lst_210))" +"((rest_110)(unsafe-cdr lst_210))" "((binding-sym_5)(unsafe-car lst_3))" -"((rest_109)(unsafe-cdr lst_3))" +"((rest_111)(unsafe-cdr lst_3))" "((trans-expr_0)(unsafe-car lst_211))" -"((rest_110)(unsafe-cdr lst_211)))" -"(let-values(((fold-var_200)" -"(let-values(((fold-var_201) fold-var_199))" +"((rest_112)(unsafe-cdr lst_211)))" "(let-values(((fold-var_202)" +"(let-values(((fold-var_203) fold-var_201))" +"(let-values(((fold-var_204)" "(let-values()" "(cons" "(let-values()" "(let-values(((id-stx_0)" "(compile-quote-syntax" "(remove-scope" -" id_48" +" id_49" " top-level-bind-scope_2)" " cctx_11)))" "(list" @@ -29692,17 +29704,17 @@ static const char *startup_source = "(list 'quote binding-sym_5)" "(if trans-exprs_0 #t #f)" " trans-expr_0)))" -" fold-var_201))))" -"(values fold-var_202)))))" +" fold-var_203))))" +"(values fold-var_204)))))" "(if(not #f)" -"(for-loop_208 fold-var_200 rest_108 rest_109 rest_110)" -" fold-var_200)))" -" fold-var_199)))))" +"(for-loop_208 fold-var_202 rest_110 rest_111 rest_112)" +" fold-var_202)))" +" fold-var_201)))))" " for-loop_208)" " null" " lst_207" " lst_208" -" lst_116))))))))))))))" +" lst_117))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29729,19 +29741,19 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_212)))" "((letrec-values(((for-loop_209)" -"(lambda(fold-var_203 lst_213)" +"(lambda(fold-var_205 lst_213)" "(begin" " 'for-loop" "(if(pair? lst_213)" -"(let-values(((s_302)(unsafe-car lst_213))((rest_111)(unsafe-cdr lst_213)))" -"(let-values(((fold-var_204)" -"(let-values(((fold-var_205) fold-var_203))" +"(let-values(((s_303)(unsafe-car lst_213))((rest_113)(unsafe-cdr lst_213)))" "(let-values(((fold-var_206)" +"(let-values(((fold-var_207) fold-var_205))" +"(let-values(((fold-var_208)" "(let-values()" -"(cons(let-values() ''#f) fold-var_205))))" -"(values fold-var_206)))))" -"(if(not #f)(for-loop_209 fold-var_204 rest_111) fold-var_204)))" -" fold-var_203)))))" +"(cons(let-values() ''#f) fold-var_207))))" +"(values fold-var_208)))))" +"(if(not #f)(for-loop_209 fold-var_206 rest_113) fold-var_206)))" +" fold-var_205)))))" " for-loop_209)" " null" " lst_212)))))))" @@ -29773,17 +29785,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_142) init-mu*s_0))" +"(let-values(((lst_143) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_142)))" -"((letrec-values(((for-loop_171)" +"(let-values()(check-list lst_143)))" +"((letrec-values(((for-loop_170)" "(lambda(lst_214)" "(begin" " 'for-loop" "(if(pair? lst_214)" -"(let-values(((mu*_6)(unsafe-car lst_214))((rest_112)(unsafe-cdr lst_214)))" +"(let-values(((mu*_6)(unsafe-car lst_214))((rest_114)(unsafe-cdr lst_214)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29792,10 +29804,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171 rest_112)(values))))" +"(if(not #f)(for-loop_170 rest_114)(values))))" "(values))))))" -" for-loop_171)" -" lst_142)))" +" for-loop_170)" +" lst_143)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29849,23 +29861,23 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_217)))" "((letrec-values(((for-loop_210)" -"(lambda(fold-var_207 lst_218 lst_219 lst_220)" +"(lambda(fold-var_209 lst_218 lst_219 lst_220)" "(begin" " 'for-loop" "(if(if(pair? lst_218)" "(if(pair? lst_219)(pair? lst_220) #f)" " #f)" "(let-values(((sub-mu_0)(unsafe-car lst_218))" -"((rest_113)(unsafe-cdr lst_218))" +"((rest_115)(unsafe-cdr lst_218))" "((imports_3)(unsafe-car lst_219))" -"((rest_114)(unsafe-cdr lst_219))" +"((rest_116)(unsafe-cdr lst_219))" "((extra-inspectorss_13)" "(unsafe-car lst_220))" -"((rest_115)(unsafe-cdr lst_220)))" -"(let-values(((fold-var_208)" -"(let-values(((fold-var_209)" -" fold-var_207))" +"((rest_117)(unsafe-cdr lst_220)))" "(let-values(((fold-var_210)" +"(let-values(((fold-var_211)" +" fold-var_209))" +"(let-values(((fold-var_212)" "(let-values()" "(cons" "(let-values()" @@ -29888,16 +29900,16 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_209))))" -"(values fold-var_210)))))" +" fold-var_211))))" +"(values fold-var_212)))))" "(if(not #f)" "(for-loop_210" -" fold-var_208" -" rest_113" -" rest_114" -" rest_115)" -" fold-var_208)))" -" fold-var_207)))))" +" fold-var_210" +" rest_115" +" rest_116" +" rest_117)" +" fold-var_210)))" +" fold-var_209)))))" " for-loop_210)" " null" " lst_215" @@ -29915,7 +29927,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_55 i_146)" +"(let-values(((vec_55 i_145)" "(let-values(((vec_56 len_28)" "(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29924,16 +29936,16 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_96)" -"(lambda(vec_58 i_147 pos_93)" +"(lambda(vec_58 i_146 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" "(let-values(((mpi_45)" "(unsafe-vector-ref vec_56 pos_93)))" -"(let-values(((vec_59 i_148)" +"(let-values(((vec_59 i_147)" "(let-values(((vec_60) vec_58)" -"((i_57) i_147))" -"(let-values(((vec_61 i_149)" +"((i_57) i_146))" +"(let-values(((vec_61 i_148)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" @@ -29956,19 +29968,19 @@ static const char *startup_source = "(unsafe-fx+" " i_57" " 1)))))))" -"(values vec_61 i_149)))))" +"(values vec_61 i_148)))))" "(if(not #f)" "(for-loop_96" " vec_59" -" i_148" +" i_147" "(unsafe-fx+ 1 pos_93))" -"(values vec_59 i_148))))" -"(values vec_58 i_147))))))" +"(values vec_59 i_147))))" +"(values vec_58 i_146))))))" " for-loop_96)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_55 i_146))))))" +"(shrink-vector vec_55 i_145))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30001,15 +30013,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_221)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_90)" +"(lambda(fold-var_67 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_90))" -"((rest_116)(unsafe-cdr lst_90)))" +"(unsafe-car lst_89))" +"((rest_118)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_155)" " fold-var_67))" "(let-values(((fold-var_9)" "(let-values()" @@ -30018,10 +30030,10 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_154))))" +" fold-var_155))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_106 fold-var_34 rest_116)" +"(for-loop_106 fold-var_34 rest_118)" " fold-var_34)))" " fold-var_67)))))" " for-loop_106)" @@ -30059,21 +30071,21 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_82) cims_2))" +"(let-values(((lst_81) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" +"(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_97)" -"(lambda(fold-var_211 lst_83)" +"(lambda(fold-var_213 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((cim_4)(unsafe-car lst_83))" -"((rest_117)(unsafe-cdr lst_83)))" -"(let-values(((fold-var_155)" -"(let-values(((fold-var_163) fold-var_211))" -"(let-values(((fold-var_164)" +"(if(pair? lst_82)" +"(let-values(((cim_4)(unsafe-car lst_82))" +"((rest_119)(unsafe-cdr lst_82)))" +"(let-values(((fold-var_156)" +"(let-values(((fold-var_164) fold-var_213))" +"(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" @@ -30085,15 +30097,15 @@ static const char *startup_source = "(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_163))))" -"(values fold-var_164)))))" +" fold-var_164))))" +"(values fold-var_165)))))" "(if(not #f)" -"(for-loop_97 fold-var_155 rest_117)" -" fold-var_155)))" -" fold-var_211)))))" +"(for-loop_97 fold-var_156 rest_119)" +" fold-var_156)))" +" fold-var_213)))))" " for-loop_97)" " null" -" lst_82))))))))" +" lst_81))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -30126,13 +30138,13 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_35)))" "((letrec-values(((for-loop_211)" -"(lambda(table_173 lst_101 pos_95)" +"(lambda(table_173 lst_100 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_101) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_101))" -"((rest_36)(unsafe-cdr lst_101))" -"((i_84) pos_95))" +"(if(if(pair? lst_100) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_100))" +"((rest_36)(unsafe-cdr lst_100))" +"((i_83) pos_95))" "(let-values(((table_174)" "(let-values(((table_175) table_173))" "(let-values(((table_176)" @@ -30143,7 +30155,7 @@ static const char *startup_source = "(values" "(string->symbol" "(number->string" -" i_84))" +" i_83))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" @@ -30205,12 +30217,12 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_96 end_25)" -"(let-values(((i_93) pos_96))" +"(let-values(((i_92) pos_96))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" " ht_120" -"(string->symbol(number->string i_93))" +"(string->symbol(number->string i_92))" " #f)))" "(begin" " #t" @@ -30220,20 +30232,20 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((fold-var_70)" -"(let-values(((fold-var_212)" +"(let-values(((fold-var_214)" " fold-var_64))" "(if top_0" -"(let-values(((fold-var_213)" -" fold-var_212))" -"(let-values(((fold-var_214)" +"(let-values(((fold-var_215)" +" fold-var_214))" +"(let-values(((fold-var_216)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_213))))" +" fold-var_215))))" "(values" -" fold-var_214)))" -" fold-var_212))))" +" fold-var_216)))" +" fold-var_214))))" " fold-var_70))))))" " for-loop_112)" " fold-var_17)))))" @@ -30358,7 +30370,7 @@ static const char *startup_source = "(let-values(((locals_0)(if known-locals4_0 known-locals1_0 '#hasheq())))" "(let-values(((defns_1)(if known-defns5_0 known-defns2_0 '#hasheq())))" "(let-values(((ready-variable?_0)" -"(if ready-variable?6_0 ready-variable?3_0(lambda(id_49)(begin 'ready-variable? #f)))))" +"(if ready-variable?6_0 ready-variable?3_0(lambda(id_50)(begin 'ready-variable? #f)))))" "(let-values()" "(let-values(((effects?_0)" "(lambda(e_38 expected-results_1 locals_1)" @@ -30449,32 +30461,32 @@ static const char *startup_source = " s_84))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_303)" +"(let-values(((s_304)" "(if(1/syntax?" " s_84)" "(syntax-e$2" " s_84)" " s_84)))" "(if(pair?" -" s_303)" +" s_304)" "(let-values(((_19_0)" "(let-values(((s_85)" "(car" -" s_303)))" +" s_304)))" " s_85))" "((e20_0)" -"(let-values(((s_159)" +"(let-values(((s_160)" "(cdr" -" s_303)))" -"(let-values(((s_304)" +" s_304)))" +"(let-values(((s_305)" "(if(1/syntax?" -" s_159)" +" s_160)" "(syntax-e$2" -" s_159)" -" s_159)))" +" s_160)" +" s_160)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_304)))" +" s_305)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30550,7 +30562,7 @@ static const char *startup_source = "(let-values(((e_42)" "(unsafe-car" " lst_223))" -"((rest_118)" +"((rest_120)" "(unsafe-cdr" " lst_223)))" "(let-values(((result_40)" @@ -30566,7 +30578,7 @@ static const char *startup_source = "(values" " result_82)))))" "(if(if(not" -"((lambda x_54" +"((lambda x_53" "(not" " result_40))" " e_42))" @@ -30575,7 +30587,7 @@ static const char *startup_source = " #f)" "(for-loop_212" " result_40" -" rest_118)" +" rest_120)" " result_40)))" " result_81)))))" " for-loop_212)" @@ -30611,25 +30623,25 @@ static const char *startup_source = " lst_224)))" "((letrec-values(((for-loop_99)" "(lambda(result_83" -" lst_177" +" lst_178" " lst_225)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_177)" +" lst_178)" "(pair?" " lst_225)" " #f)" "(let-values(((e_43)" "(unsafe-car" -" lst_177))" -"((rest_119)" +" lst_178))" +"((rest_121)" "(unsafe-cdr" -" lst_177))" +" lst_178))" "((key_66)" "(unsafe-car" " lst_225))" -"((rest_120)" +"((rest_122)" "(unsafe-cdr" " lst_225)))" "(let-values(((result_42)" @@ -30656,7 +30668,7 @@ static const char *startup_source = " result_42))" " e_43))" "(if(not" -"((lambda x_55" +"((lambda x_54" "(not" " result_42))" " key_66))" @@ -30666,8 +30678,8 @@ static const char *startup_source = " #f)" "(for-loop_99" " result_42" -" rest_119" -" rest_120)" +" rest_121" +" rest_122)" " result_42)))" " result_83)))))" " for-loop_99)" @@ -30723,24 +30735,24 @@ static const char *startup_source = " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_305)" +"(let-values(((s_306)" "(if(1/syntax?" " s_79)" "(syntax-e$2" " s_79)" " s_79)))" -"(if(pair? s_305)" +"(if(pair? s_306)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_305)))" +" s_306)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_305)))" +" s_306)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30751,18 +30763,18 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_306)" +"(let-values(((s_307)" "(car" " s_30)))" -"(let-values(((s_156)" +"(let-values(((s_157)" "(if(1/syntax?" -" s_306)" +" s_307)" "(syntax-e$2" -" s_306)" -" s_306)))" +" s_307)" +" s_307)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_156)))" +" s_157)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30794,10 +30806,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_227)" -"(let-values(((s_307)" +"(let-values(((s_308)" "(unsafe-car" " lst_227))" -"((rest_121)" +"((rest_123)" "(unsafe-cdr" " lst_227)))" "(let-values(((ids_10" @@ -30812,48 +30824,48 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_308)" +"(let-values(((s_309)" "(if(1/syntax?" -" s_307)" -"(syntax-e$2" -" s_307)" -" s_307)))" -"(if(pair?" " s_308)" +"(syntax-e$2" +" s_308)" +" s_308)))" +"(if(pair?" +" s_309)" "(let-values(((ids32_0)" "(let-values(((s_50)" "(car" -" s_308)))" +" s_309)))" " s_50))" "((rhs33_0)" -"(let-values(((s_309)" -"(cdr" -" s_308)))" "(let-values(((s_310)" -"(if(1/syntax?" -" s_309)" -"(syntax-e$2" -" s_309)" +"(cdr" " s_309)))" -"(if(pair?" +"(let-values(((s_311)" +"(if(1/syntax?" " s_310)" +"(syntax-e$2" +" s_310)" +" s_310)))" +"(if(pair?" +" s_311)" "(let-values(((rhs34_0)" "(let-values(((s_52)" "(car" -" s_310)))" +" s_311)))" " s_52))" "(()" -"(let-values(((s_311)" +"(let-values(((s_312)" "(cdr" -" s_310)))" -"(let-values(((s_155)" -"(if(1/syntax?" -" s_311)" -"(syntax-e$2" -" s_311)" " s_311)))" +"(let-values(((s_156)" +"(if(1/syntax?" +" s_312)" +"(syntax-e$2" +" s_312)" +" s_312)))" "(if(null?" -" s_155)" +" s_156)" "(values)" "((lambda(false_3" " str_7" @@ -30899,7 +30911,7 @@ static const char *startup_source = "(for-loop_213" " ids_10" " rhs_6" -" rest_121)" +" rest_123)" "(values" " ids_10" " rhs_6))))" @@ -30916,34 +30928,34 @@ static const char *startup_source = "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_312)" +"(let-values(((s_313)" "(cdr" " s_30)))" -"(let-values(((s_313)" -"(if(1/syntax?" -" s_312)" -"(syntax-e$2" -" s_312)" -" s_312)))" -"(if(pair?" -" s_313)" -"(let-values(((body35_0)" "(let-values(((s_314)" -"(car" -" s_313)))" -" s_314))" -"(()" -"(let-values(((s_315)" -"(cdr" -" s_313)))" -"(let-values(((s_316)" "(if(1/syntax?" -" s_315)" +" s_313)" "(syntax-e$2" -" s_315)" -" s_315)))" -"(if(null?" +" s_313)" +" s_313)))" +"(if(pair?" +" s_314)" +"(let-values(((body35_0)" +"(let-values(((s_315)" +"(car" +" s_314)))" +" s_315))" +"(()" +"(let-values(((s_316)" +"(cdr" +" s_314)))" +"(let-values(((s_317)" +"(if(1/syntax?" " s_316)" +"(syntax-e$2" +" s_316)" +" s_316)))" +"(if(null?" +" s_317)" "(values)" "((lambda(false_6" " str_10" @@ -31020,13 +31032,13 @@ static const char *startup_source = "(let-values(((ids_13)" "(unsafe-car" " lst_230))" -"((rest_101)" +"((rest_103)" "(unsafe-cdr" " lst_230))" "((rhs_9)" "(unsafe-car" " lst_197))" -"((rest_122)" +"((rest_124)" "(unsafe-cdr" " lst_197)))" "(let-values(((result_85)" @@ -31042,11 +31054,11 @@ static const char *startup_source = "(values" " result_14)))))" "(if(if(not" -"((lambda x_56" +"((lambda x_55" " result_85)" " ids_13))" "(if(not" -"((lambda x_57" +"((lambda x_56" " result_85)" " rhs_9))" "(not" @@ -31055,8 +31067,8 @@ static const char *startup_source = " #f)" "(for-loop_214" " result_85" -" rest_101" -" rest_122)" +" rest_103" +" rest_124)" " result_85)))" " result_84)))))" " for-loop_214)" @@ -31081,23 +31093,23 @@ static const char *startup_source = " s_61)))" "(if(pair? s_37)" "(let-values(((_40_0)" -"(let-values(((s_317)" +"(let-values(((s_318)" "(car" " s_37)))" -" s_317))" +" s_318))" "((e41_0)" -"(let-values(((s_318)" +"(let-values(((s_319)" "(cdr" " s_37)))" -"(let-values(((s_319)" +"(let-values(((s_320)" "(if(1/syntax?" -" s_318)" +" s_319)" "(syntax-e$2" -" s_318)" -" s_318)))" +" s_319)" +" s_319)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_319)))" +" s_320)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31123,12 +31135,12 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_154) e39_0))" +"(if(let-values(((lst_155) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_154)))" +"(let-values()(check-list lst_155)))" "((letrec-values(((for-loop_215)" "(lambda(result_61" " lst_231)" @@ -31139,7 +31151,7 @@ static const char *startup_source = "(let-values(((e_54)" "(unsafe-car" " lst_231))" -"((rest_123)" +"((rest_125)" "(unsafe-cdr" " lst_231)))" "(let-values(((result_86)" @@ -31155,7 +31167,7 @@ static const char *startup_source = "(values" " result_87)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_57" "(not" " result_86))" " e_54))" @@ -31164,36 +31176,36 @@ static const char *startup_source = " #f)" "(for-loop_215" " result_86" -" rest_123)" +" rest_125)" " result_86)))" " result_61)))))" " for-loop_215)" " #t" -" lst_154)))" +" lst_155)))" "(length e39_0)" " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_208) e_39))" -"(let-values(((orig-s_26) s_208))" +"(let-values(((s_209) e_39))" +"(let-values(((orig-s_26) s_209))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_320)" -"(if(1/syntax?" -" s_208)" -"(syntax-e$2" -" s_208)" -" s_208)))" -"(if(pair?" -" s_320)" -"(let-values(((_44_0)" "(let-values(((s_321)" +"(if(1/syntax?" +" s_209)" +"(syntax-e$2" +" s_209)" +" s_209)))" +"(if(pair?" +" s_321)" +"(let-values(((_44_0)" +"(let-values(((s_150)" "(car" -" s_320)))" -" s_321))" +" s_321)))" +" s_150))" "((e45_0)" "(let-values(((s_322)" "(cdr" -" s_320)))" +" s_321)))" "(let-values(((s_323)" "(if(1/syntax?" " s_322)" @@ -31244,7 +31256,7 @@ static const char *startup_source = "(let-values(((e_57)" "(unsafe-car" " lst_233))" -"((rest_124)" +"((rest_126)" "(unsafe-cdr" " lst_233)))" "(let-values(((result_89)" @@ -31260,7 +31272,7 @@ static const char *startup_source = "(values" " result_90)))))" "(if(if(not" -"((lambda x_59" +"((lambda x_58" "(not" " result_89))" " e_57))" @@ -31269,7 +31281,7 @@ static const char *startup_source = " #f)" "(for-loop_216" " result_89" -" rest_124)" +" rest_126)" " result_89)))" " result_88)))))" " for-loop_216)" @@ -31358,42 +31370,42 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_217) e_39))" -"(let-values(((orig-s_9) s_217))" +"(let-values(((s_218) e_39))" +"(let-values(((orig-s_9) s_218))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_218)" -"(if(1/syntax?" -" s_217)" -"(syntax-e$2" -" s_217)" -" s_217)))" -"(if(pair?" -" s_218)" -"(let-values(((_53_0)" "(let-values(((s_219)" -"(car" +"(if(1/syntax?" +" s_218)" +"(syntax-e$2" +" s_218)" " s_218)))" -" s_219))" +"(if(pair?" +" s_219)" +"(let-values(((_53_0)" +"(let-values(((s_220)" +"(car" +" s_219)))" +" s_220))" "((e054_0" " e55_0)" -"(let-values(((s_220)" +"(let-values(((s_221)" "(cdr" -" s_218)))" +" s_219)))" "(let-values(((s_116)" "(if(1/syntax?" -" s_220)" +" s_221)" "(syntax-e$2" -" s_220)" -" s_220)))" +" s_221)" +" s_221)))" "(if(pair?" " s_116)" "(let-values(((e056_0)" -"(let-values(((s_221)" +"(let-values(((s_222)" "(car" " s_116)))" -" s_221))" +" s_222))" "((e57_0)" "(let-values(((s_117)" "(cdr" @@ -31464,7 +31476,7 @@ static const char *startup_source = "(let-values(((e_63)" "(unsafe-car" " lst_234))" -"((rest_125)" +"((rest_127)" "(unsafe-cdr" " lst_234)))" "(let-values(((result_92)" @@ -31480,7 +31492,7 @@ static const char *startup_source = "(values" " result_93)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_59" "(not" " result_92))" " e_63))" @@ -31489,7 +31501,7 @@ static const char *startup_source = " #f)" "(for-loop_45" " result_92" -" rest_125)" +" rest_127)" " result_92)))" " result_91)))))" " for-loop_45)" @@ -31535,41 +31547,41 @@ static const char *startup_source = " thn61_0" " els62_0)" "(let-values(((s_327) e_39))" -"(if(let-values(((s_227)" +"(if(let-values(((s_228)" "(if(1/syntax?" " s_327)" "(syntax-e$2" " s_327)" " s_327)))" -"(if(pair? s_227)" -"(if(let-values(((s_228)" +"(if(pair? s_228)" +"(if(let-values(((s_229)" "(car" -" s_227)))" +" s_228)))" " #t)" "(let-values(((s_328)" "(cdr" -" s_227)))" -"(let-values(((s_229)" +" s_228)))" +"(let-values(((s_230)" "(if(1/syntax?" " s_328)" "(syntax-e$2" " s_328)" " s_328)))" -"(if(pair? s_229)" -"(if(let-values(((s_230)" +"(if(pair? s_230)" +"(if(let-values(((s_231)" "(car" -" s_229)))" -"(let-values(((s_231)" -"(if(1/syntax?" -" s_230)" -"(syntax-e$2" -" s_230)" " s_230)))" -"(if(pair?" +"(let-values(((s_232)" +"(if(1/syntax?" " s_231)" +"(syntax-e$2" +" s_231)" +" s_231)))" +"(if(pair?" +" s_232)" "(if(let-values(((s_329)" "(car" -" s_231)))" +" s_232)))" "(let-values(((or-part_233)" "(if(1/syntax?" " s_329)" @@ -31583,7 +31595,7 @@ static const char *startup_source = " s_329))))" "(let-values(((s_330)" "(cdr" -" s_231)))" +" s_232)))" "(let-values(((s_331)" "(if(1/syntax?" " s_330)" @@ -31623,7 +31635,7 @@ static const char *startup_source = " #f)))" "(let-values(((s_335)" "(cdr" -" s_229)))" +" s_230)))" "(let-values(((s_336)" "(if(1/syntax?" " s_335)" @@ -31676,24 +31688,24 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_233)" +"(let-values(((s_234)" "(if(1/syntax?" " s_327)" "(syntax-e$2" " s_327)" " s_327)))" "(let-values(((_63_0)" -"(let-values(((s_236)" +"(let-values(((s_237)" "(car" -" s_233)))" -" s_236))" +" s_234)))" +" s_237))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" "(let-values(((s_343)" "(cdr" -" s_233)))" +" s_234)))" "(let-values(((s_344)" "(if(1/syntax?" " s_343)" @@ -31717,15 +31729,15 @@ static const char *startup_source = " s_346)))" " s_347))" "((id:arg73_0)" -"(let-values(((s_240)" +"(let-values(((s_241)" "(cdr" " s_346)))" "(let-values(((s_348)" "(if(1/syntax?" -" s_240)" +" s_241)" "(syntax-e$2" -" s_240)" -" s_240)))" +" s_241)" +" s_241)))" "(let-values(((id:arg74_0)" "(let-values(((s_349)" "(car" @@ -31858,7 +31870,7 @@ static const char *startup_source = " s_360)" " s_360)))" "(if(pair? s_361)" -"(if(let-values(((s_252)" +"(if(let-values(((s_253)" "(car" " s_361)))" " #t)" @@ -31971,10 +31983,10 @@ static const char *startup_source = " s_378)" " s_378)))" "(let-values(((thn89_0)" -"(let-values(((s_254)" +"(let-values(((s_255)" "(car" " s_379)))" -" s_254))" +" s_255))" "((els90_0)" "(let-values(((s_380)" "(cdr" @@ -31991,15 +32003,15 @@ static const char *startup_source = " s_381)))" " s_382))" "(()" -"(let-values(((s_255)" +"(let-values(((s_256)" "(cdr" " s_381)))" -"(let-values(((s_256)" +"(let-values(((s_257)" "(if(1/syntax?" -" s_255)" +" s_256)" "(syntax-e$2" -" s_255)" -" s_255)))" +" s_256)" +" s_256)))" "(values)))))" "(values" " els91_0))))))" @@ -32069,9 +32081,9 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_237)(pair? lst_238) #f)" "(let-values(((ids_14)(unsafe-car lst_237))" -"((rest_126)(unsafe-cdr lst_237))" +"((rest_128)(unsafe-cdr lst_237))" "((rhs_10)(unsafe-car lst_238))" -"((rest_127)(unsafe-cdr lst_238)))" +"((rest_129)(unsafe-cdr lst_238)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32129,16 +32141,16 @@ static const char *startup_source = "(pair?" " lst_242)" " #f)" -"(let-values(((id_50)" +"(let-values(((id_51)" "(unsafe-car" " lst_241))" -"((rest_128)" +"((rest_130)" "(unsafe-cdr" " lst_241))" "((type_0)" "(unsafe-car" " lst_242))" -"((rest_129)" +"((rest_131)" "(unsafe-cdr" " lst_242)))" "(let-values(((locals_10)" @@ -32149,7 +32161,7 @@ static const char *startup_source = "(hash-set" " locals_11" "(correlated-e" -" id_50)" +" id_51)" "(known-struct-op8.1" " type_0" " field-count_0)))))" @@ -32159,8 +32171,8 @@ static const char *startup_source = " #f)" "(for-loop_218" " locals_10" -" rest_128" -" rest_129)" +" rest_130" +" rest_131)" " locals_10)))" " locals_9)))))" " for-loop_218)" @@ -32198,10 +32210,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_244)" -"(let-values(((id_51)" +"(let-values(((id_52)" "(unsafe-car" " lst_244))" -"((rest_130)" +"((rest_132)" "(unsafe-cdr" " lst_244)))" "(let-values(((locals_14)" @@ -32212,7 +32224,7 @@ static const char *startup_source = "(hash-set" " locals_15" "(correlated-e" -" id_51)" +" id_52)" " #t))))" "(values" " locals_16)))))" @@ -32220,7 +32232,7 @@ static const char *startup_source = " #f)" "(for-loop_219" " locals_14" -" rest_130)" +" rest_132)" " locals_14)))" " locals_13)))))" " for-loop_219)" @@ -32229,7 +32241,7 @@ static const char *startup_source = " loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_217 locals_6 rest_126 rest_127) locals_6)))" +"(if(not #f)(for-loop_217 locals_6 rest_128 rest_129) locals_6)))" " locals_5)))))" " for-loop_217)" " locals_4" @@ -32253,27 +32265,27 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" -"((letrec-values(((for-loop_172)" -"(lambda(result_94 lst_147 lst_247)" +"((letrec-values(((for-loop_171)" +"(lambda(result_94 lst_148 lst_247)" "(begin" " 'for-loop" -"(if(if(pair? lst_147)(pair? lst_247) #f)" -"(let-values(((arg_0)(unsafe-car lst_147))" -"((rest_131)(unsafe-cdr lst_147))" +"(if(if(pair? lst_148)(pair? lst_247) #f)" +"(let-values(((arg_0)(unsafe-car lst_148))" +"((rest_133)(unsafe-cdr lst_148))" "((pred_1)(unsafe-car lst_247))" -"((rest_132)(unsafe-cdr lst_247)))" +"((rest_134)(unsafe-cdr lst_247)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" "(let-values()(let-values()(pred_1 arg_0)))))" "(values result_96)))))" -"(if(if(not((lambda x_61(not result_95)) arg_0))" -"(if(not((lambda x_62(not result_95)) pred_1))(not #f) #f)" +"(if(if(not((lambda x_60(not result_95)) arg_0))" +"(if(not((lambda x_61(not result_95)) pred_1))(not #f) #f)" " #f)" -"(for-loop_172 result_95 rest_131 rest_132)" +"(for-loop_171 result_95 rest_133 rest_134)" " result_95)))" " result_94)))))" -" for-loop_172)" +" for-loop_171)" " #t" " lst_245" " lst_246)))" @@ -32301,7 +32313,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_249)" "(let-values(((prop+val_0)(unsafe-car lst_249))" -"((rest_133)(unsafe-cdr lst_249)))" +"((rest_135)(unsafe-cdr lst_249)))" "(let-values(((result_98)" "(let-values()" "(let-values(((result_99)" @@ -32358,10 +32370,10 @@ static const char *startup_source = " #f))" " #f)))))" "(values result_99)))))" -"(if(if(not((lambda x_63(not result_98)) prop+val_0))" +"(if(if(not((lambda x_62(not result_98)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_220 result_98 rest_133)" +"(for-loop_220 result_98 rest_135)" " result_98)))" " result_97)))))" " for-loop_220)" @@ -32381,7 +32393,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_251)" "(let-values(((prop+val_2)(unsafe-car lst_251))" -"((rest_134)(unsafe-cdr lst_251)))" +"((rest_136)(unsafe-cdr lst_251)))" "(let-values(((table_178)" "(let-values(((table_179) table_177))" "(let-values(((table_180)" @@ -32401,7 +32413,7 @@ static const char *startup_source = " key_68" " val_57)))))" "(values table_180)))))" -"(if(not #f)(for-loop_221 table_178 rest_134) table_178)))" +"(if(not #f)(for-loop_221 table_178 rest_136) table_178)))" " table_177)))))" " for-loop_221)" " '#hash()" @@ -32461,26 +32473,26 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_253)))" "((letrec-values(((for-loop_222)" -"(lambda(result_100 lst_254 lst_129)" +"(lambda(result_100 lst_254 lst_130)" "(begin" " 'for-loop" -"(if(if(pair? lst_254)(pair? lst_129) #f)" +"(if(if(pair? lst_254)(pair? lst_130) #f)" "(let-values(((arg_1)(unsafe-car lst_254))" "((rest_64)(unsafe-cdr lst_254))" -"((pred_2)(unsafe-car lst_129))" -"((rest_135)(unsafe-cdr lst_129)))" +"((pred_2)(unsafe-car lst_130))" +"((rest_137)(unsafe-cdr lst_130)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" "(let-values()" "(let-values()(pred_2 arg_1)))))" "(values result_102)))))" -"(if(if(not((lambda x_64(not result_101)) arg_1))" -"(if(not((lambda x_65(not result_101)) pred_2))" +"(if(if(not((lambda x_63(not result_101)) arg_1))" +"(if(not((lambda x_64(not result_101)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_222 result_101 rest_64 rest_135)" +"(for-loop_222 result_101 rest_64 rest_137)" " result_101)))" " result_100)))))" " for-loop_222)" @@ -32559,7 +32571,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_256)" "(let-values(((prop+val_3)(unsafe-car lst_256))" -"((rest_136)(unsafe-cdr lst_256)))" +"((rest_138)(unsafe-cdr lst_256)))" "(let-values(((result_104)" "(let-values()" "(let-values(((result_105)" @@ -32585,10 +32597,10 @@ static const char *startup_source = " #f))" " #f)))))" "(values result_105)))))" -"(if(if(not((lambda x_66(not result_104)) prop+val_3))" +"(if(if(not((lambda x_65(not result_104)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_223 result_104 rest_136)" +"(for-loop_223 result_104 rest_138)" " result_104)))" " result_103)))))" " for-loop_223)" @@ -32608,7 +32620,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_258)" "(let-values(((prop+val_5)(unsafe-car lst_258))" -"((rest_137)(unsafe-cdr lst_258)))" +"((rest_139)(unsafe-cdr lst_258)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" @@ -32628,7 +32640,7 @@ static const char *startup_source = " key_69" " val_58)))))" "(values table_184)))))" -"(if(not #f)(for-loop_224 table_182 rest_137) table_182)))" +"(if(not #f)(for-loop_224 table_182 rest_139) table_182)))" " table_181)))))" " for-loop_224)" " '#hash()" @@ -32729,28 +32741,28 @@ static const char *startup_source = "(if or-part_254" " or-part_254" "(if(list? a_40)" -"(let-values(((lst_68) a_40))" +"(let-values(((lst_67) a_40))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" "((letrec-values(((for-loop_225)" "(lambda(result_106 lst_259)" "(begin" " 'for-loop" "(if(pair? lst_259)" -"(let-values(((a_41)(unsafe-car lst_259))((rest_138)(unsafe-cdr lst_259)))" +"(let-values(((a_41)(unsafe-car lst_259))((rest_140)(unsafe-cdr lst_259)))" "(let-values(((result_107)" "(let-values()" "(let-values(((result_108)" "(let-values()" "(let-values()(equal? a_41 n_25)))))" "(values result_108)))))" -"(if(if(not((lambda x_67 result_107) a_41))(not #f) #f)" -"(for-loop_225 result_107 rest_138)" +"(if(if(not((lambda x_66 result_107) a_41))(not #f) #f)" +"(for-loop_225 result_107 rest_140)" " result_107)))" " result_106)))))" " for-loop_225)" " #f" -" lst_68)))" +" lst_67)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32801,17 +32813,17 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_260)))" "((letrec-values(((for-loop_226)" -"(lambda(result_109 lst_119)" +"(lambda(result_109 lst_120)" "(begin" " 'for-loop" -"(if(pair? lst_119)" -"(let-values(((n_26)(unsafe-car lst_119))((rest_59)(unsafe-cdr lst_119)))" +"(if(pair? lst_120)" +"(let-values(((n_26)(unsafe-car lst_120))((rest_59)(unsafe-cdr lst_120)))" "(let-values(((result_110)" "(let-values()" "(let-values(((result_111)" "(let-values()(let-values()(< n_26 c_24)))))" "(values result_111)))))" -"(if(if(not((lambda x_68(not result_110)) n_26))(not #f) #f)" +"(if(if(not((lambda x_67(not result_110)) n_26))(not #f) #f)" "(for-loop_226 result_110 rest_59)" " result_110)))" " result_109)))))" @@ -32838,7 +32850,7 @@ static const char *startup_source = " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_69 y_10)(begin(if x_69(if y_10(+ x_69 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_68 y_10)(begin(if x_68(if y_10(+ x_68 y_10) #f) #f))))" "(define-values" "(compile-single)" "(lambda(p_44 cctx_12)" @@ -32864,7 +32876,7 @@ static const char *startup_source = "(let-values(((to-source?_2)(if to-source?6_0 to-source?3_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((phase_16)(compile-context-phase cctx_13)))" +"(let-values(((phase_81)(compile-context-phase cctx_13)))" "(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((purely-functional?_0) #t))" "(let-values(((body-linklets_1" @@ -32894,7 +32906,7 @@ static const char *startup_source = "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" "((temp24_3)" -"(lambda(e_73 expected-results_2 phase_81 required-reference?_0)" +"(lambda(e_73 expected-results_2 phase_82 required-reference?_0)" "(if(if purely-functional?_0" "(let-values(((e27_0) e_73)" "((expected-results28_0) expected-results_2)" @@ -32950,7 +32962,7 @@ static const char *startup_source = "(lambda(ht_120)" "(begin" " 'add-metadata" -"(let-values(((ht_79)(hash-set ht_120 'original-phase phase_16)))" +"(let-values(((ht_79)(hash-set ht_120 'original-phase phase_81)))" "(let-values(((ht_121)(hash-set ht_79 'max-phase max-phase_1)))" " ht_121))))))" "(let-values(((bundle_0)" @@ -32963,17 +32975,17 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_18" -" phase_16" +" phase_81" "(compile-context-self cctx_13)" "(compile-context-namespace cctx_13)))))" "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_159)" +"(lambda(s_160)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_159" +" s_160" " #f" "(vector" " deserialize-instance" @@ -32996,7 +33008,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_16) '(#f)))" +"(list* 'make-vector(add1 phase_81) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -33055,7 +33067,7 @@ static const char *startup_source = "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_7) defined-syms12_0))" "(let-values(((self_20) self13_0))" -"(let-values(((phase_82) phase14_0))" +"(let-values(((phase_83) phase14_0))" "(let-values(((all-scopes-stx_3) all-scopes-stx15_0))" "(let-values(((frame-id_7) frame-id1_0))" "(let-values(((top-level-bind-scope_3)(if top-level-bind-scope7_0 top-level-bind-scope2_0 #f)))" @@ -33064,33 +33076,33 @@ static const char *startup_source = "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_260)(hash-ref defined-syms_7 phase_82 #f)))" +"(let-values(((or-part_260)(hash-ref defined-syms_7 phase_83 #f)))" "(if or-part_260" " or-part_260" "(let-values(((ht_122)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_82 ht_122) ht_122))))))" +"(begin(hash-set! defined-syms_7 phase_83 ht_122) ht_122))))))" "(reverse$1" -"(let-values(((lst_81) ids_15))" +"(let-values(((lst_80) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" +"(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_227)" -"(lambda(fold-var_12 lst_172)" +"(lambda(fold-var_12 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_172)" -"(let-values(((id_52)(unsafe-car lst_172))" -"((rest_87)(unsafe-cdr lst_172)))" +"(if(pair? lst_173)" +"(let-values(((id_53)(unsafe-car lst_173))" +"((rest_89)(unsafe-cdr lst_173)))" "(let-values(((fold-var_91)" -"(let-values(((fold-var_155) fold-var_12))" -"(let-values(((fold-var_163)" +"(let-values(((fold-var_156) fold-var_12))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" "(let-values(((sym_12)" "(syntax-e$1" -" id_52)))" +" id_53)))" "(let-values(((defined-sym_0)" "(if(if(not" "(defined-as-other?" @@ -33098,14 +33110,14 @@ static const char *startup_source = " defined-syms-at-phase_0" " sym_12" " #f)" -" id_52" -" phase_82" +" id_53" +" phase_83" " top-level-bind-scope_3))" "(if(no-extra-scopes?" -" id_52" +" id_53" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_82)" +" phase_83)" "(symbol-interned?" " sym_12)" " #f)" @@ -33115,7 +33127,7 @@ static const char *startup_source = "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_177)" +"(let-values(((s_178)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33124,15 +33136,15 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_177" +" s_178" " #f)" -" id_52" -" phase_82" +" id_53" +" phase_83" " top-level-bind-scope_3)" "(loop_92" "(add1" " pos_97))" -" s_177))))))" +" s_178))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33140,13 +33152,13 @@ static const char *startup_source = "(hash-set!" " defined-syms-at-phase_0" " defined-sym_0" -" id_52)" +" id_53)" "(values))))" -"(let-values(((b_49)" +"(let-values(((b_70)" "(let-values(((self23_0)" " self_20)" "((phase24_0)" -" phase_82)" +" phase_83)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" @@ -33181,11 +33193,11 @@ static const char *startup_source = "(let-values(((requires+provides28_0)" " requires+provides_4)" "((id29_0)" -" id_52)" +" id_53)" "((phase30_0)" -" phase_82)" +" phase_83)" "((b31_0)" -" b_49))" +" b_70))" "(remove-required-id!75.1" " b31_0" " requires+provides28_0" @@ -33193,11 +33205,11 @@ static const char *startup_source = " phase30_0)))" "(void))" "(let-values(((id19_0)" -" id_52)" +" id_53)" "((b20_0)" -" b_49)" +" b_70)" "((phase21_0)" -" phase_82)" +" phase_83)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -33213,11 +33225,11 @@ static const char *startup_source = "(let-values(((requires+provides32_0)" " requires+provides_4)" "((id33_0)" -" id_52)" +" id_53)" "((phase34_0)" -" phase_82)" +" phase_83)" "((b35_0)" -" b_49)" +" b_70)" "((as-transformer?36_0)" " as-transformer?_4))" "(add-defined-or-required-id!19.1" @@ -33230,39 +33242,39 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_155))))" -"(values fold-var_163)))))" +" fold-var_156))))" +"(values fold-var_164)))))" "(if(not #f)" -"(for-loop_227 fold-var_91 rest_87)" +"(for-loop_227 fold-var_91 rest_89)" " fold-var_91)))" " fold-var_12)))))" " for-loop_227)" " null" -" lst_81)))))))))))))))))))" +" lst_80)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" +"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_84)" "(begin" -"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_53))))" -"(let-values(((or-part_135)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" +"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" +"(let-values(((or-part_135)(bound-identifier=?$1 id_54 m-id_0 phase_84)))" "(if or-part_135" " or-part_135" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_83)" +"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_84)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_54 phase_73 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_55 phase_73 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_73))" +"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_73))" "(let-values(((or-part_261)(not top-level-bind-scope_5)))" "(if or-part_261" " or-part_261" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" -"(remove-scope id_54 top-level-bind-scope_5)" +"(remove-scope id_55 top-level-bind-scope_5)" " phase_73))))" " #f)" " #f))))" @@ -33294,15 +33306,15 @@ static const char *startup_source = " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_84 sym_55 id_55)" +"(lambda(defined-syms_8 phase_85 sym_55 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_262)(hash-ref defined-syms_8 phase_84 #f)))" +"(let-values(((or-part_262)(hash-ref defined-syms_8 phase_85 #f)))" "(if or-part_262" " or-part_262" "(let-values(((ht_123)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_84 ht_123) ht_123))))))" -"(hash-set! defined-syms-at-phase_1 sym_55 id_55)))))" +"(begin(hash-set! defined-syms_8 phase_85 ht_123) ht_123))))))" +"(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" @@ -33347,17 +33359,17 @@ static const char *startup_source = "(check-list" " lst_262)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_80)" +"(lambda(lst_79)" "(begin" " 'for-loop" "(if(pair?" -" lst_80)" +" lst_79)" "(let-values(((req_4)" "(unsafe-car" -" lst_80))" +" lst_79))" "((rest_36)" "(unsafe-cdr" -" lst_80)))" +" lst_79)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33445,12 +33457,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_124)))" "((letrec-values(((for-loop_106)" -"(lambda(i_150)" +"(lambda(i_149)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_85 linklet_3)" -"(hash-iterate-key+value ht_124 i_150)))" +"(if i_149" +"(let-values(((phase_86 linklet_3)" +"(hash-iterate-key+value ht_124 i_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33476,7 +33488,7 @@ static const char *startup_source = "(let-values(((sym_56)" "(unsafe-car" " lst_264))" -"((rest_139)" +"((rest_141)" "(unsafe-cdr" " lst_264)))" "(let-values((()" @@ -33485,18 +33497,18 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((id_56)" +"(let-values(((id_57)" "(datum->syntax$1" " s_3" " sym_56)))" "(begin" "(let-values(((id10_0)" -" id_56)" +" id_57)" "((temp11_2)" "(let-values(((self13_1)" " self_7)" "((phase14_1)" -" phase_85)" +" phase_86)" "((sym15_0)" " sym_56))" "(make-module-binding22.1" @@ -33522,7 +33534,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_85))" +" phase_86))" "(add-binding!17.1" " #f" " #f" @@ -33533,15 +33545,15 @@ static const char *startup_source = " phase12_0))" "(add-defined-sym!" " defined-syms_9" -" phase_85" +" phase_86" " sym_56" -" id_56))))" +" id_57))))" "(values)))))" "(values)))))" "(if(not" " #f)" "(for-loop_230" -" rest_139)" +" rest_141)" "(values))))" "(values))))))" " for-loop_230)" @@ -33550,7 +33562,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_124 i_150))" +"(for-loop_106(hash-iterate-next ht_124 i_149))" "(values))))" "(values))))))" " for-loop_106)" @@ -33620,8 +33632,8 @@ static const char *startup_source = "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" "((lst_265) import-module-uses_0)" -"((lst_90) import-module-instances_0)" -"((lst_162)" +"((lst_89) import-module-instances_0)" +"((lst_163)" "(let-values(((or-part_69) extra-inspectorsss_4))" "(if or-part_69 or-part_69 import-module-uses_0))))" "(begin" @@ -33633,25 +33645,25 @@ static const char *startup_source = "(let-values()(check-list lst_265)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" +"(let-values()(check-list lst_163)))" "((letrec-values(((for-loop_230)" -"(lambda(lst_264 lst_266 lst_24 lst_103)" +"(lambda(lst_264 lst_266 lst_24 lst_102)" "(begin" " 'for-loop" "(if(if(pair? lst_264)" -"(if(pair? lst_266)(if(pair? lst_24)(pair? lst_103) #f) #f)" +"(if(pair? lst_266)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" "(let-values(((import-syms_0)(unsafe-car lst_264))" -"((rest_140)(unsafe-cdr lst_264))" +"((rest_142)(unsafe-cdr lst_264))" "((mu_7)(unsafe-car lst_266))" -"((rest_141)(unsafe-cdr lst_266))" +"((rest_143)(unsafe-cdr lst_266))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_103))" -"((rest_117)(unsafe-cdr lst_103)))" +"((extra-inspectorss_14)(unsafe-car lst_102))" +"((rest_119)(unsafe-cdr lst_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33674,7 +33686,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_60)" +"(let-values(((lst_59)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33682,7 +33694,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_60)))" +" lst_59)))" "((letrec-values(((for-loop_231)" "(lambda(lst_26)" "(begin" @@ -33772,23 +33784,23 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_231)" -" lst_60)))" +" lst_59)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_230 rest_140 rest_141 rest_43 rest_117)" +"(for-loop_230 rest_142 rest_143 rest_43 rest_119)" "(values))))" "(values))))))" " for-loop_230)" " lst_42" " lst_265" -" lst_90" -" lst_162)))" +" lst_89" +" lst_163)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_86 sym_57 insp_11)" +"(lambda(mi_17 phase_87 sym_57 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" @@ -33797,7 +33809,7 @@ static const char *startup_source = "(let-values(((access_3)" "(let-values(((or-part_263)(module-access m_16)))" "(if or-part_263 or-part_263(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_86 '#hasheq()) sym_57 'unexported)))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_57 'unexported)))" "(if(let-values(((or-part_264)(eq? a_44 'unexported)))" "(if or-part_264 or-part_264(eq? a_44 'protected)))" "(let-values()" @@ -33966,17 +33978,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_20)))" "((letrec-values(((for-loop_234)" -"(lambda(lst_94)" +"(lambda(lst_93)" "(begin" " 'for-loop" "(if(pair?" -" lst_94)" +" lst_93)" "(let-values(((c_25)" "(unsafe-car" -" lst_94))" +" lst_93))" "((rest_44)" "(unsafe-cdr" -" lst_94)))" +" lst_93)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34009,13 +34021,13 @@ static const char *startup_source = " lst_20)))" "(void))" "(begin" -"(let-values(((lst_95) names_0))" +"(let-values(((lst_94) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_95)))" +"(check-list lst_94)))" "((letrec-values(((for-loop_235)" "(lambda(lst_7)" "(begin" @@ -34025,7 +34037,7 @@ static const char *startup_source = "(let-values(((name_49)" "(unsafe-car" " lst_7))" -"((rest_142)" +"((rest_144)" "(unsafe-cdr" " lst_7)))" "(let-values((()" @@ -34065,11 +34077,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_235" -" rest_142)" +" rest_144)" "(values))))" "(values))))))" " for-loop_235)" -" lst_95)))" +" lst_94)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34202,7 +34214,7 @@ static const char *startup_source = "(let-values(((mu_8)" "(unsafe-car" " lst_268))" -"((rest_143)" +"((rest_145)" "(unsafe-cdr" " lst_268)))" "(let-values(((mis_3" @@ -34255,7 +34267,7 @@ static const char *startup_source = "(for-loop_236" " mis_3" " is_2" -" rest_143)" +" rest_145)" "(values" " mis_3" " is_2))))" @@ -34651,11 +34663,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_125)))" "((letrec-values(((for-loop_237)" -"(lambda(table_192 i_151)" +"(lambda(table_192 i_150)" "(begin" " 'for-loop" -"(if i_151" -"(let-values(((phase_87 linklet_5)(hash-iterate-key+value ht_125 i_151)))" +"(if i_150" +"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_125 i_150)))" "(let-values(((table_193)" "(let-values(((table_194) table_192))" "(let-values(((table_145)" @@ -34663,13 +34675,13 @@ static const char *startup_source = "(let-values(((key_73 val_62)" "(let-values()" "(values" -" phase_87" +" phase_88" "(1/linklet-export-variables" " linklet_5)))))" "(hash-set table_194 key_73 val_62)))))" "(values table_145)))))" "(if(not #f)" -"(for-loop_237 table_193(hash-iterate-next ht_125 i_151))" +"(for-loop_237 table_193(hash-iterate-next ht_125 i_150))" " table_193)))" " table_192)))))" " for-loop_237)" @@ -34691,12 +34703,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_126)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 i_152)" +"(lambda(fold-var_59 i_151)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((phase_88 at-phase_11)" -"(hash-iterate-key+value ht_126 i_152)))" +"(if i_151" +"(let-values(((phase_89 at-phase_11)" +"(hash-iterate-key+value ht_126 i_151)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" "(reverse$1" @@ -34710,28 +34722,28 @@ static const char *startup_source = "(check-in-hash" " ht_119)))" "((letrec-values(((for-loop_238)" -"(lambda(fold-var_215" -" i_153)" +"(lambda(fold-var_217" +" i_152)" "(begin" " 'for-loop" -"(if i_153" +"(if i_152" "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" " ht_119" -" i_153)))" -"(let-values(((fold-var_216)" -"(let-values(((fold-var_217)" -" fold-var_215))" +" i_152)))" +"(let-values(((fold-var_218)" +"(let-values(((fold-var_219)" +" fold-var_217))" "(if(ok?_24" " b/p_1)" -"(let-values(((fold-var_218)" -" fold-var_217))" -"(let-values(((fold-var_219)" +"(let-values(((fold-var_220)" +" fold-var_219))" +"(let-values(((fold-var_221)" "(let-values()" "(cons" "(let-values()" -"(let-values(((b_69)" +"(let-values(((b_71)" "(provided-as-binding" " b/p_1)))" "(list" @@ -34739,65 +34751,65 @@ static const char *startup_source = "(if(eq?" " self_24" "(module-binding-module" -" b_69))" +" b_71))" "(let-values()" " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_88)" +"(let-values(((lst_87)" "(cons" -" b_69" +" b_71" "(module-binding-extra-nominal-bindings" -" b_69))))" +" b_71))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_88)))" +" lst_87)))" "((letrec-values(((for-loop_239)" -"(lambda(fold-var_220" +"(lambda(fold-var_222" " lst_269)" "(begin" " 'for-loop" "(if(pair?" " lst_269)" -"(let-values(((b_70)" +"(let-values(((b_72)" "(unsafe-car" " lst_269))" -"((rest_144)" +"((rest_146)" "(unsafe-cdr" " lst_269)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" -" fold-var_220))" +" fold-var_222))" "(let-values(((fold-var_31)" "(let-values()" "(cons" "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_70)" -" phase_88)" +" b_72)" +" phase_89)" "(eq?" "(module-binding-nominal-sym" -" b_70)" +" b_72)" " sym_58)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_70))" +" b_72))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_70)" +" b_72)" "(module-binding-phase" -" b_70)" +" b_72)" "(module-binding-nominal-sym" -" b_70)" +" b_72)" "(module-binding-nominal-phase" -" b_70)))))" +" b_72)))))" " fold-var_30))))" "(values" " fold-var_31)))))" @@ -34805,25 +34817,25 @@ static const char *startup_source = " #f)" "(for-loop_239" " fold-var_29" -" rest_144)" +" rest_146)" " fold-var_29)))" -" fold-var_220)))))" +" fold-var_222)))))" " for-loop_239)" " null" -" lst_88)))))))))" -" fold-var_218))))" +" lst_87)))))))))" +" fold-var_220))))" "(values" -" fold-var_219)))" -" fold-var_217))))" +" fold-var_221)))" +" fold-var_219))))" "(if(not" " #f)" "(for-loop_238" -" fold-var_216" +" fold-var_218" "(hash-iterate-next" " ht_119" -" i_153))" -" fold-var_216)))" -" fold-var_215)))))" +" i_152))" +" fold-var_218)))" +" fold-var_217)))))" " for-loop_238)" " null" "(hash-iterate-first" @@ -34835,7 +34847,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_153)" +"(let-values(((fold-var_154)" "(let-values(((fold-var_32)" " fold-var_67))" "(if(null?" @@ -34848,7 +34860,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_88" +" phase_89" "(let-values(((l4_0)" " l_64)" "((symbollinklet-directory" "(hash-set" -"(let-values(((lst_172) submods_0))" +"(let-values(((lst_173) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_172)))" +"(let-values()(check-list lst_173)))" "((letrec-values(((for-loop_50)" "(lambda(ht_128 lst_271)" "(begin" " 'for-loop" "(if(pair? lst_271)" "(let-values(((submod_1)(unsafe-car lst_271))" -"((rest_146)(unsafe-cdr lst_271)))" +"((rest_148)(unsafe-cdr lst_271)))" "(let-values(((ht_129)" "(let-values(((ht_130) ht_128))" "(let-values(((ht_120)" @@ -35164,11 +35176,11 @@ static const char *startup_source = "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_120)))))" -"(if(not #f)(for-loop_50 ht_129 rest_146) ht_129)))" +"(if(not #f)(for-loop_50 ht_129 rest_148) ht_129)))" " ht_128)))))" " for-loop_50)" " '#hasheq()" -" lst_172)))" +" lst_173)))" " #f" " main_0))))))))))" "(define-values" @@ -35189,8 +35201,8 @@ static const char *startup_source = "(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))" "(let-values(((or-part_26)" "(if(1/linklet-directory? ld_3)" -"(if(let-values(((b_71)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_71(hash-ref(1/linklet-bundle->hash b_71) 'decl #f) #f))" +"(if(let-values(((b_73)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_73(hash-ref(1/linklet-bundle->hash b_73) 'decl #f) #f))" " #t" " #f)" " #f)))" @@ -35260,18 +35272,18 @@ static const char *startup_source = "(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_131 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_87) names_1))" +"(let-values(((lst_86) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_86)))" "((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_88)" +"(lambda(fold-var_65 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((name_55)(unsafe-car lst_88))" -"((rest_41)(unsafe-cdr lst_88)))" +"(if(pair? lst_87)" +"(let-values(((name_55)(unsafe-car lst_87))" +"((rest_41)(unsafe-cdr lst_87)))" "(let-values(((fold-var_66)" "(let-values(((fold-var_27) fold-var_65))" "(let-values(((fold-var_28)" @@ -35287,7 +35299,7 @@ static const char *startup_source = " fold-var_65)))))" " for-loop_105)" " null" -" lst_87))))))))" +" lst_86))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35524,11 +35536,11 @@ static const char *startup_source = "(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_72 pre?_1 submods_2)" +"(lambda(b_74 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_72)" +"(1/linklet-bundle->hash b_74)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35577,22 +35589,22 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_124)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 i_155)" +"(lambda(fold-var_67 i_154)" "(begin" " 'for-loop" -"(if i_155" +"(if i_154" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" " ht_124" -" i_155)))" +" i_154)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_155)" " fold-var_67))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_154))" +" fold-var_155))" "(let-values(((fold-var_68)" "(let-values()" "(cons" @@ -35613,11 +35625,11 @@ static const char *startup_source = " star?+compiled_0))))" " fold-var_9))))" "(values fold-var_68)))" -" fold-var_154))))" +" fold-var_155))))" "(if(not #f)" "(for-loop_106" " fold-var_34" -"(hash-iterate-next ht_124 i_155))" +"(hash-iterate-next ht_124 i_154))" " fold-var_34)))" " fold-var_67)))))" " for-loop_106)" @@ -35878,7 +35890,7 @@ static const char *startup_source = "(let-values(((kw_0)" "(unsafe-car" " lst_273))" -"((rest_147)" +"((rest_149)" "(unsafe-cdr" " lst_273)))" "(let-values((()" @@ -35913,7 +35925,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_13" -" rest_147)" +" rest_149)" "(values))))" "(values))))))" " for-loop_13)" @@ -35922,7 +35934,7 @@ static const char *startup_source = " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_90)" +"(lambda(mod-name_17 phase_91)" "(let-values(((ht_132)" "(if modules-being-compiled_1" "(hash-ref" @@ -35933,7 +35945,7 @@ static const char *startup_source = "(if ht_132" "(hash-ref" " ht_132" -" phase_90" +" phase_91" " #f)" " #f))))" "((to-source?67_0) to-source?_4)" @@ -35984,15 +35996,15 @@ static const char *startup_source = "(check-in-hash ht_133)))" "((letrec-values(((for-loop_23)" "(lambda(table_199" -" i_156)" +" i_155)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((phase_91" +"(if i_155" +"(let-values(((phase_92" " linklet_6)" "(hash-iterate-key+value" " ht_133" -" i_156)))" +" i_155)))" "(let-values(((table_200)" "(let-values(((table_201)" " table_199))" @@ -36002,12 +36014,12 @@ static const char *startup_source = " val_66)" "(let-values()" "(values" -" phase_91" +" phase_92" "(module-linklet-info2.1" " linklet_6" "(hash-ref" " phase-to-link-module-uses_4" -" phase_91" +" phase_92" " #f)" " self_25" " #f" @@ -36015,7 +36027,7 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_91" +" phase_92" " #f)" " #f))))))" "(hash-set" @@ -36030,7 +36042,7 @@ static const char *startup_source = " table_200" "(hash-iterate-next" " ht_133" -" i_156))" +" i_155))" " table_200)))" " table_199)))))" " for-loop_23)" @@ -36097,12 +36109,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_317)" +"(lambda(s_318)" "(let-values()" "(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_317" +" s_318" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36197,10 +36209,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_203)" +"(lambda(s_204)" "(let-values()" "(1/compile-linklet" -" s_203" +" s_204" " 'data))))" "(list" " 'linklet" @@ -36364,7 +36376,7 @@ static const char *startup_source = "(let-values(((sm_0)" "(unsafe-car" " lst_274))" -"((rest_148)" +"((rest_150)" "(unsafe-cdr" " lst_274)))" "(let-values(((ht_135)" @@ -36387,7 +36399,7 @@ static const char *startup_source = " #f)" "(for-loop_122" " ht_135" -" rest_148)" +" rest_150)" " ht_135)))" " ht_134)))))" " for-loop_122)" @@ -36432,7 +36444,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_276)" -"(let-values(((s_105)(unsafe-car lst_276))((rest_149)(unsafe-cdr lst_276)))" +"(let-values(((s_105)(unsafe-car lst_276))((rest_151)(unsafe-cdr lst_276)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36540,7 +36552,7 @@ static const char *startup_source = " ht_137))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_242 rest_149)(values))))" +"(if(not #f)(for-loop_242 rest_151)(values))))" "(values))))))" " for-loop_242)" " lst_275)))" @@ -36572,11 +36584,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_138)))" "((letrec-values(((for-loop_244)" -"(lambda(table_207 i_157)" +"(lambda(table_207 i_156)" "(begin" " 'for-loop" -"(if i_157" -"(let-values(((k_33 v_66)(hash-iterate-key+value ht_138 i_157)))" +"(if i_156" +"(let-values(((k_33 v_66)(hash-iterate-key+value ht_138 i_156)))" "(let-values(((table_208)" "(let-values(((table_209) table_207))" "(let-values(((table_210)" @@ -36594,7 +36606,7 @@ static const char *startup_source = "(hash-set table_209 key_79 val_68)))))" "(values table_210)))))" "(if(not #f)" -"(for-loop_244 table_208(hash-iterate-next ht_138 i_157))" +"(for-loop_244 table_208(hash-iterate-next ht_138 i_156))" " table_208)))" " table_207)))))" " for-loop_244)" @@ -36609,11 +36621,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_139)))" "((letrec-values(((for-loop_245)" -"(lambda(table_211 i_158)" +"(lambda(table_211 i_157)" "(begin" " 'for-loop" -"(if i_158" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_139 i_158)))" +"(if i_157" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_139 i_157)))" "(let-values(((table_212)" "(let-values(((table_213) table_211))" "(let-values(((table_214)" @@ -36632,7 +36644,7 @@ static const char *startup_source = "(hash-set table_213 key_80 val_69)))))" "(values table_214)))))" "(if(not #f)" -"(for-loop_245 table_212(hash-iterate-next ht_139 i_158))" +"(for-loop_245 table_212(hash-iterate-next ht_139 i_157))" " table_212)))" " table_211)))))" " for-loop_245)" @@ -36673,13 +36685,13 @@ static const char *startup_source = "(let-values(((or-part_72)(1/linklet-bundle? ld_6)))" "(if or-part_72" " or-part_72" -"(let-values(((b_73)" +"(let-values(((b_75)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_73" -"(hash-ref(1/linklet-bundle->hash b_73) 'decl #f)" +"(if b_75" +"(hash-ref(1/linklet-bundle->hash b_75) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36698,11 +36710,11 @@ static const char *startup_source = " 'map-construct-compiled-in-memory" "(reverse$1" "(let-values(((lst_265) l_10)" -"((lst_90)" +"((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_162)" +"((lst_163)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" @@ -36718,21 +36730,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_263)))" "((letrec-values(((for-loop_230)" -"(lambda(fold-var_154" +"(lambda(fold-var_155" " lst_266" " lst_24" -" lst_103" -" lst_91)" +" lst_102" +" lst_90)" "(begin" " 'for-loop" "(if(if(pair?" @@ -36740,16 +36752,16 @@ static const char *startup_source = "(if(pair?" " lst_24)" "(if(pair?" -" lst_103)" +" lst_102)" "(pair?" -" lst_91)" +" lst_90)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" " lst_266))" -"((rest_150)" +"((rest_152)" "(unsafe-cdr" " lst_266))" "((mpi-vector-tree_1)" @@ -36760,20 +36772,20 @@ static const char *startup_source = " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_103))" -"((rest_87)" +" lst_102))" +"((rest_89)" "(unsafe-cdr" -" lst_103))" +" lst_102))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_91))" +" lst_90))" "((rest_37)" "(unsafe-cdr" -" lst_91)))" -"(let-values(((fold-var_163)" +" lst_90)))" "(let-values(((fold-var_164)" -" fold-var_154))" "(let-values(((fold-var_165)" +" fold-var_155))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -36782,23 +36794,23 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_164))))" +" fold-var_165))))" "(values" -" fold-var_165)))))" +" fold-var_166)))))" "(if(not #f)" "(for-loop_230" -" fold-var_163" -" rest_150" +" fold-var_164" +" rest_152" " rest_49" -" rest_87" +" rest_89" " rest_37)" -" fold-var_163)))" -" fold-var_154)))))" +" fold-var_164)))" +" fold-var_155)))))" " for-loop_230)" " null" " lst_265" -" lst_90" -" lst_162" +" lst_89" +" lst_163" " lst_263))))))))" "(compiled-in-memory1.1" " ld_6" @@ -36836,7 +36848,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_103)" -"(lambda(i_159 pos_101)" +"(lambda(i_158 pos_101)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36846,39 +36858,39 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_62" " pos_101)))" +"(let-values(((i_159)" "(let-values(((i_160)" -"(let-values(((i_161)" -" i_159))" +" i_158))" "(let-values(((i_59)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_62" -" i_161" +" i_160" "(let-values()" "(vector-ref" " mpi-vector_0" " pos_102)))" "(unsafe-fx+" " 1" -" i_161)))))" +" i_160)))))" "(values" " i_59)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_160" +" i_159" " len_29))" " pos_102))" "(not #f)" " #f)" "(for-loop_103" -" i_160" +" i_159" "(unsafe-fx+" " 1" " pos_101))" -" i_160)))" -" i_159)))))" +" i_159)))" +" i_158)))))" " for-loop_103)" " 0" " 0)))))" @@ -36908,16 +36920,16 @@ static const char *startup_source = "(let-values()" "(check-range start_15 end_28 inc_22)))" "((letrec-values(((for-loop_246)" -"(lambda(i_162 pos_103)" +"(lambda(i_161 pos_103)" "(begin" " 'for-loop" "(if(< pos_103 end_28)" "(let-values(((i_20)" " pos_103))" -"(let-values(((i_163)" +"(let-values(((i_162)" "(let-values(((i_34)" -" i_162))" -"(let-values(((i_164)" +" i_161))" +"(let-values(((i_163)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36936,22 +36948,22 @@ static const char *startup_source = " 1" " i_34)))))" "(values" -" i_164)))))" +" i_163)))))" "(if(if(not" -"((lambda x_70" +"((lambda x_69" "(unsafe-fx=" -" i_163" +" i_162" " len_31))" " i_20))" "(not #f)" " #f)" "(for-loop_246" -" i_163" +" i_162" "(+" " pos_103" " inc_22))" -" i_163)))" -" i_162)))))" +" i_162)))" +" i_161)))))" " for-loop_246)" " 0" " start_15)))))" @@ -36979,21 +36991,21 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_176) names_2))" +"(let-values(((lst_177) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_176)))" +"(let-values()(check-list lst_177)))" "((letrec-values(((for-loop_247)" "(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" "(if(pair? lst_277)" "(let-values(((name_44)(unsafe-car lst_277))" -"((rest_151)(unsafe-cdr lst_277)))" -"(let-values(((fold-var_225)" -"(let-values(((fold-var_226) fold-var_5))" +"((rest_153)(unsafe-cdr lst_277)))" "(let-values(((fold-var_227)" +"(let-values(((fold-var_228) fold-var_5))" +"(let-values(((fold-var_229)" "(let-values()" "(cons" "(let-values()" @@ -37004,13 +37016,13 @@ static const char *startup_source = "(error" " \"missing submodule declaration:\"" " name_44))))" -" fold-var_226))))" -"(values fold-var_227)))))" -"(if(not #f)(for-loop_247 fold-var_225 rest_151) fold-var_225)))" +" fold-var_228))))" +"(values fold-var_229)))))" +"(if(not #f)(for-loop_247 fold-var_227 rest_153) fold-var_227)))" " fold-var_5)))))" " for-loop_247)" " null" -" lst_176))))))))))))))" +" lst_177))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -37138,7 +37150,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(> pos_104 end_29)" -"(let-values(((phase_92) pos_104))" +"(let-values(((phase_93) pos_104))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37152,7 +37164,7 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_92" +" phase_93" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" @@ -37178,7 +37190,7 @@ static const char *startup_source = "(let-values(((mu_9)" "(unsafe-car" " lst_225))" -"((rest_119)" +"((rest_121)" "(unsafe-cdr" " lst_225)))" "(let-values(((mis_8" @@ -37200,7 +37212,7 @@ static const char *startup_source = "((temp33_1)" "(phase-" "(phase+" -" phase_92" +" phase_93" " phase-shift_19)" "(module-use-phase" " mu_9))))" @@ -37227,7 +37239,7 @@ static const char *startup_source = "(for-loop_99" " mis_8" " is_7" -" rest_119)" +" rest_121)" "(values" " mis_8" " is_7))))" @@ -37247,7 +37259,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_70" "(phase+" -" phase_92" +" phase_93" " phase-shift_19))))" "(let-values(((inst_6)" "(if single-expression?_1" @@ -37272,7 +37284,7 @@ static const char *startup_source = " ns_70" "(phase+" "(sub1" -" phase_92)" +" phase_93)" " phase-shift_19)" " name_45" " val_70))))" @@ -37286,7 +37298,7 @@ static const char *startup_source = "(let-values(((linklet_9)" "(hash-ref" " h_11" -" phase_92" +" phase_93" " #f)))" "(if linklet_9" "(let-values()" @@ -37307,7 +37319,7 @@ static const char *startup_source = "((temp46_1)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_92" +" phase_93" " #f)))" "(check-require-access9.1" " temp41_2" @@ -37333,14 +37345,14 @@ static const char *startup_source = " ns_70" "(phase-" "(phase+" -" phase_92" +" phase_93" " phase-shift_19)" "(namespace-0-phase" " ns_70)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_92)" +" phase_93)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -37364,7 +37376,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_92))))" +" phase_93))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37436,20 +37448,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_248)" -"(lambda(i_165 pos_105)" +"(lambda(i_164 pos_105)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_33)" "(let-values(((s_390)" "(unsafe-vector-ref vec_64 pos_105)))" -"(let-values(((i_166)" -"(let-values(((i_167) i_165))" -"(let-values(((i_168)" +"(let-values(((i_165)" +"(let-values(((i_166) i_164))" +"(let-values(((i_167)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_181" -" i_167" +" i_166" "(let-values()" "(swap-top-level-scopes" " s_390" @@ -37458,17 +37470,17 @@ static const char *startup_source = " to-ns_0)))" "(unsafe-fx+" " 1" -" i_167)))))" -"(values i_168)))))" +" i_166)))))" +"(values i_167)))))" "(if(if(not" -"((lambda x_71" -"(unsafe-fx= i_166 len_32))" +"((lambda x_70" +"(unsafe-fx= i_165 len_32))" " s_390))" "(not #f)" " #f)" -"(for-loop_248 i_166(unsafe-fx+ 1 pos_105))" -" i_166)))" -" i_165)))))" +"(for-loop_248 i_165(unsafe-fx+ 1 pos_105))" +" i_165)))" +" i_164)))))" " for-loop_248)" " 0" " 0)))))" @@ -37490,11 +37502,11 @@ static const char *startup_source = "(if(parsed-app? p_44)" "(let-values()" "(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" -"(let-values(((lst_102)(parsed-app-rands p_44)))" +"(let-values(((lst_101)(parsed-app-rands p_44)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_111)" "(lambda(result_112 lst_6)" "(begin" @@ -37508,13 +37520,13 @@ static const char *startup_source = "(let-values()" "(can-direct-eval? r_42 ns_42 self-mpi_3)))))" "(values result_113)))))" -"(if(if(not((lambda x_72(not result_80)) r_42))(not #f) #f)" +"(if(if(not((lambda x_71(not result_80)) r_42))(not #f) #f)" "(for-loop_111 result_80 rest_48)" " result_80)))" " result_112)))))" " for-loop_111)" " #t" -" lst_102)))" +" lst_101)))" " #f))" "(if(parsed-id? p_44)" "(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" @@ -37530,17 +37542,17 @@ static const char *startup_source = "(apply" "(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_79)(parsed-app-rands p_48)))" +"(let-values(((lst_78)(parsed-app-rands p_48)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" -"(lambda(fold-var_228 lst_80)" +"(lambda(fold-var_230 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((r_8)(unsafe-car lst_80))((rest_36)(unsafe-cdr lst_80)))" -"(let-values(((fold-var_219)" -"(let-values(((fold-var_65) fold-var_228))" +"(if(pair? lst_79)" +"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" +"(let-values(((fold-var_221)" +"(let-values(((fold-var_65) fold-var_230))" "(let-values(((fold-var_26)" "(let-values()" "(cons" @@ -37548,11 +37560,11 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_65))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_96 fold-var_219 rest_36) fold-var_219)))" -" fold-var_228)))))" +"(if(not #f)(for-loop_96 fold-var_221 rest_36) fold-var_221)))" +" fold-var_230)))))" " for-loop_96)" " null" -" lst_79))))))" +" lst_78))))))" "(if(parsed-id? p_48)" "(let-values()(get-id-value p_48 ns_71 self-mpi_4))" "(if(parsed-quote? p_48)" @@ -37562,38 +37574,38 @@ static const char *startup_source = "(get-id-value)" "(lambda(p_1 ns_72 self-mpi_5)" "(begin" -"(let-values(((b_70)(parsed-id-binding p_1)))" +"(let-values(((b_72)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_70) get-not-available))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_72) get-not-available))" "(if(let-values(((or-part_71)(parsed-top-id? p_1)))" "(if or-part_71" " or-part_71" -"(let-values(((or-part_72)(not b_70)))" -"(if or-part_72 or-part_72(eq? self-mpi_5(module-binding-module b_70))))))" +"(let-values(((or-part_72)(not b_72)))" +"(if or-part_72 or-part_72(eq? self-mpi_5(module-binding-module b_72))))))" "(let-values()" "(namespace-get-variable" " ns_72" -"(if b_70(module-binding-phase b_70)(namespace-phase ns_72))" -"(if b_70(module-binding-sym b_70)(syntax-e$1(parsed-s p_1)))" +"(if b_72(module-binding-phase b_72)(namespace-phase ns_72))" +"(if b_72(module-binding-sym b_72)(syntax-e$1(parsed-s p_1)))" " get-not-available))" "(let-values()" "(let-values(((mi_18)" "(let-values(((ns1_2) ns_72)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_70)))" -"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_70))))" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_72)))" +"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_72))))" "(namespace->module-instance70.1 #f #f #f #f #f #f ns1_2 temp2_4 temp3_4))))" "(if(not mi_18)" "(let-values() not-available)" "(if(check-single-require-access" " mi_18" -"(module-binding-phase b_70)" -"(module-binding-sym b_70)" -"(module-binding-extra-inspector b_70))" +"(module-binding-phase b_72)" +"(module-binding-sym b_72)" +"(module-binding-extra-inspector b_72))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_70)" -"(module-binding-sym b_70)" +"(module-binding-phase b_72)" +"(module-binding-sym b_72)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37681,16 +37693,16 @@ static const char *startup_source = "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_93)" +"(lambda(lifts_1 ids_16 rhs_12 phase_94)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_93)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_94)))" "(begin(box-cons!(lift-context-lifts lifts_1) lifted_0) lifted-ids_0)))))" "(define-values(get-and-clear-lifts!)(lambda(lifts_2)(begin(box-clear!(lift-context-lifts lifts_2)))))" "(define-values" "(make-local-lift)" "(lambda(lift-env_1 counter_3)" "(begin" -"(lambda(ids_17 rhs_13 phase_94)" +"(lambda(ids_17 rhs_13 phase_95)" "(let-values(((keys_2)" "(reverse$1" "(let-values(((lst_278) ids_17))" @@ -37699,23 +37711,23 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_278)))" "((letrec-values(((for-loop_249)" -"(lambda(fold-var_229 lst_279)" +"(lambda(fold-var_231 lst_279)" "(begin" " 'for-loop" "(if(pair? lst_279)" -"(let-values(((id_57)(unsafe-car lst_279))" -"((rest_152)(unsafe-cdr lst_279)))" +"(let-values(((id_58)(unsafe-car lst_279))" +"((rest_154)(unsafe-cdr lst_279)))" "(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_229))" -"(let-values(((fold-var_230)" +"(let-values(((fold-var_82) fold-var_231))" +"(let-values(((fold-var_232)" "(let-values()" "(cons" "(let-values()" "(let-values(((key_82)" "(let-values(((id32_0)" -" id_57)" +" id_58)" "((phase33_0)" -" phase_94)" +" phase_95)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -37735,9 +37747,9 @@ static const char *startup_source = " variable))" " key_82)))" " fold-var_82))))" -"(values fold-var_230)))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_152) fold-var_81)))" -" fold-var_229)))))" +"(values fold-var_232)))))" +"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" +" fold-var_231)))))" " for-loop_249)" " null" " lst_278))))))" @@ -37758,27 +37770,27 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_280)))" "((letrec-values(((for-loop_250)" -"(lambda(fold-var_231 lst_181)" +"(lambda(fold-var_233 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_181)" -"(let-values(((id_58)(unsafe-car lst_181))" -"((rest_153)(unsafe-cdr lst_181)))" -"(let-values(((fold-var_232)" -"(let-values(((fold-var_233) fold-var_231))" +"(if(pair? lst_182)" +"(let-values(((id_59)(unsafe-car lst_182))" +"((rest_155)(unsafe-cdr lst_182)))" "(let-values(((fold-var_234)" +"(let-values(((fold-var_235) fold-var_233))" +"(let-values(((fold-var_236)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_58" +" id_59" " post-scope_0))" -" fold-var_233))))" -"(values fold-var_234)))))" +" fold-var_235))))" +"(values fold-var_236)))))" "(if(not #f)" -"(for-loop_250 fold-var_232 rest_153)" -" fold-var_232)))" -" fold-var_231)))))" +"(for-loop_250 fold-var_234 rest_155)" +" fold-var_234)))" +" fold-var_233)))))" " for-loop_250)" " null" " lst_280))))))" @@ -37786,7 +37798,7 @@ static const char *startup_source = "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_5 phase_95)" +"(lambda(lifts_3 body_5 phase_96)" "(begin" "(datum->syntax$1" " #f" @@ -37794,11 +37806,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" "((letrec-values(((for-loop_251)" -"(lambda(body_6 lst_190)" +"(lambda(body_6 lst_191)" "(begin" " 'for-loop" -"(if(pair? lst_190)" -"(let-values(((lift_0)(unsafe-car lst_190))((rest_98)(unsafe-cdr lst_190)))" +"(if(pair? lst_191)" +"(let-values(((lift_0)(unsafe-car lst_191))((rest_100)(unsafe-cdr lst_191)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37810,7 +37822,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_95)" +"(syntax-shift-phase-level$1 core-stx phase_96)" " 'let-values)" "(list" "(list" @@ -37818,7 +37830,7 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_251 body_7 rest_98) body_7)))" +"(if(not #f)(for-loop_251 body_7 rest_100) body_7)))" " body_6)))))" " for-loop_251)" " body_5" @@ -37830,14 +37842,14 @@ static const char *startup_source = " 'wrap-lifts-as-begin16" "(let-values(((lifts_4) lifts13_0))" "(let-values(((body_10) body14_0))" -"(let-values(((phase_96) phase15_0))" +"(let-values(((phase_97) phase15_0))" "(let-values(((adjust-form_0)(if adjust-form11_0 adjust-form9_0 values)))" "(let-values(((adjust-body_0)(if adjust-body12_0 adjust-body10_0 values)))" "(let-values()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_96) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_97) 'begin)" "(append" "(reverse$1" "(let-values(((lst_282) lifts_4))" @@ -37846,15 +37858,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_282)))" "((letrec-values(((for-loop_194)" -"(lambda(fold-var_235 lst_169)" +"(lambda(fold-var_237 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_169)" -"(let-values(((lift_1)(unsafe-car lst_169))" -"((rest_154)(unsafe-cdr lst_169)))" +"(if(pair? lst_170)" +"(let-values(((lift_1)(unsafe-car lst_170))" +"((rest_156)(unsafe-cdr lst_170)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_236) fold-var_235))" -"(let-values(((fold-var_237)" +"(let-values(((fold-var_238) fold-var_237))" +"(let-values(((fold-var_239)" "(let-values()" "(cons" "(let-values()" @@ -37867,16 +37879,16 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_96)" +" phase_97)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" " lift_1))))" "(let-values() lift_1))))" -" fold-var_236))))" -"(values fold-var_237)))))" -"(if(not #f)(for-loop_194 fold-var_3 rest_154) fold-var_3)))" -" fold-var_235)))))" +" fold-var_238))))" +"(values fold-var_239)))))" +"(if(not #f)(for-loop_194 fold-var_3 rest_156) fold-var_3)))" +" fold-var_237)))))" " for-loop_194)" " null" " lst_282))))" @@ -37886,18 +37898,18 @@ static const char *startup_source = "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_195) lifts_5))" +"(let-values(((lst_51) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))" -"((letrec-values(((for-loop_252)" -"(lambda(fold-var_98 lst_283)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_51)))" +"((letrec-values(((for-loop_73)" +"(lambda(fold-var_35 lst_52)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((lift_2)(unsafe-car lst_283))((rest_155)(unsafe-cdr lst_283)))" -"(let-values(((fold-var_37)" -"(let-values(((fold-var_38) fold-var_98))" -"(let-values(((fold-var_238)" +"(if(pair? lst_52)" +"(let-values(((lift_2)(unsafe-car lst_52))((rest_22)(unsafe-cdr lst_52)))" +"(let-values(((fold-var_36)" +"(let-values(((fold-var_37) fold-var_35))" +"(let-values(((fold-var_38)" "(let-values()" "(cons" "(let-values()" @@ -37905,13 +37917,13 @@ static const char *startup_source = "(lifted-bind-ids lift_2)" "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" -" fold-var_38))))" -"(values fold-var_238)))))" -"(if(not #f)(for-loop_252 fold-var_37 rest_155) fold-var_37)))" -" fold-var_98)))))" -" for-loop_252)" +" fold-var_37))))" +"(values fold-var_38)))))" +"(if(not #f)(for-loop_73 fold-var_36 rest_22) fold-var_36)))" +" fold-var_35)))))" +" for-loop_73)" " null" -" lst_195)))))))" +" lst_51)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37943,13 +37955,13 @@ static const char *startup_source = "(make-struct-field-accessor -ref_70 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" -"(lambda(phase_97 module*-ok?_1)(begin(module-lift-context19.1 phase_97(box null) module*-ok?_1))))" +"(lambda(phase_98 module*-ok?_1)(begin(module-lift-context19.1 phase_98(box null) module*-ok?_1))))" "(define-values" "(get-and-clear-module-lifts!)" "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_391 phase_98)" +"(lambda(module-lifts_2 s_391 phase_99)" "(begin" "(begin" "(if(let-values(((or-part_228)" @@ -37961,7 +37973,7 @@ static const char *startup_source = "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_29)(core-form-sym s_391 phase_98)))" +"(let-values(((tmp_29)(core-form-sym s_391 phase_99)))" "(if(equal? tmp_29 'module)" "(let-values()(void))" "(if(equal? tmp_29 'module*)" @@ -38015,10 +38027,10 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_392 phase_99)" +"(lambda(require-lifts_2 s_392 phase_100)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_392 phase_99)" +"((require-lift-context-do-require require-lifts_2) s_392 phase_100)" "(box-cons!(require-lift-context-requires require-lifts_2) s_392)))))" "(define-values" "(struct:to-module-lift-context" @@ -38056,10 +38068,10 @@ static const char *startup_source = "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_100) phase26_2))" +"(let-values(((phase_101) phase26_2))" "(let-values(((ends_0) shared-module-ends22_0))" "(let-values(((end-as-expressions?_0) end-as-expressions?23_0))" -"(let-values()(to-module-lift-context21.1 phase_100(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_101(box null) end-as-expressions?_0 ends_0))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" @@ -38069,11 +38081,11 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_216 phase_101)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_216))))" +"(lambda(to-module-lifts_3 s_217 phase_102)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_217))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_393 phase_102)" +"(lambda(to-module-lifts_4 s_393 phase_103)" "(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_393))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" @@ -38126,17 +38138,17 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_77) v_26))" +"(let-values(((lst_76) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" +"(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_95)" -"(lambda(result_78 lst_78)" +"(lambda(result_78 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((s_2)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((result_65)" "(let-values()" "(let-values(((result_114)" @@ -38150,13 +38162,13 @@ static const char *startup_source = " module-begin" " definition-context))))))" "(values result_114)))))" -"(if(if(not((lambda x_73(not result_65)) s_2))(not #f) #f)" +"(if(if(not((lambda x_72(not result_65)) s_2))(not #f) #f)" "(for-loop_95 result_65 rest_35)" " result_65)))" " result_78)))))" " for-loop_95)" " #t" -" lst_77)))" +" lst_76)))" " #f)" "(void)" "(let-values()" @@ -38175,7 +38187,7 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_169 t_44 ctx_13)" +"(lambda(s_170 t_44 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38185,7 +38197,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_169))))))" +" s_170))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38195,7 +38207,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_169)))))" +" s_170)))))" "(let-values(((tmp_30)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_30 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38245,11 +38257,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_185)" -"(lambda(lst_90)" +"(lambda(lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((rr_1)(unsafe-car lst_90))((rest_116)(unsafe-cdr lst_90)))" +"(if(pair? lst_89)" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_118)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38261,7 +38273,7 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_185 rest_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_185 rest_118)(values))))))))" "(values))))))" " for-loop_185)" " lst_42)))" @@ -38276,19 +38288,19 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(ab_3 lst_81)" +"((letrec-values(((for-loop_252)" +"(lambda(ab_3 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((key_83)(unsafe-car lst_81))((rest_141)(unsafe-cdr lst_81)))" +"(if(pair? lst_80)" +"(let-values(((key_83)(unsafe-car lst_80))((rest_143)(unsafe-cdr lst_80)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_83))))" "(values ab_6)))))" -"(if(not #f)(for-loop_253 ab_4 rest_141) ab_4)))" +"(if(not #f)(for-loop_252 ab_4 rest_143) ab_4)))" " ab_3)))))" -" for-loop_253)" +" for-loop_252)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" @@ -38296,19 +38308,19 @@ static const char *startup_source = "(let-values(((lst_271) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_253)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_84)(unsafe-car lst_25))((rest_156)(unsafe-cdr lst_25)))" +"(let-values(((key_84)(unsafe-car lst_25))((rest_157)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" "(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_84))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_254 rbb_1 rest_156) rbb_1)))" +"(if(not #f)(for-loop_253 rbb_1 rest_157) rbb_1)))" " rbb_0)))))" -" for-loop_254)" +" for-loop_253)" "(reference-record-reference-before-bound rr_2)" " lst_271))))))))" "(define-values" @@ -38512,23 +38524,23 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_185)(begin(if(expanded+parsed? s_185)(expanded+parsed-s s_185) s_185))))" +"(define-values(extract-syntax)(lambda(s_186)(begin(if(expanded+parsed? s_186)(expanded+parsed-s s_186) s_186))))" "(define-values" "(parsed-only)" "(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_176) l_66))" +"(let-values(((lst_177) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" "((letrec-values(((for-loop_247)" "(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" "(if(pair? lst_277)" -"(let-values(((i_26)(unsafe-car lst_277))((rest_151)(unsafe-cdr lst_277)))" -"(let-values(((fold-var_225)" -"(let-values(((fold-var_226) fold-var_5))" +"(let-values(((i_26)(unsafe-car lst_277))((rest_153)(unsafe-cdr lst_277)))" +"(let-values(((fold-var_227)" +"(let-values(((fold-var_228) fold-var_5))" "(if(let-values(((or-part_267)(parsed? i_26)))" "(if or-part_267" " or-part_267" @@ -38536,8 +38548,8 @@ static const char *startup_source = "(if or-part_33" " or-part_33" "(semi-parsed-begin-for-syntax? i_26)))))" -"(let-values(((fold-var_156) fold-var_226))" -"(let-values(((fold-var_172)" +"(let-values(((fold-var_157) fold-var_228))" +"(let-values(((fold-var_173)" "(let-values()" "(cons" "(let-values()" @@ -38552,14 +38564,14 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_26))))" "(let-values() i_26))))" -" fold-var_156))))" -"(values fold-var_172)))" -" fold-var_226))))" -"(if(not #f)(for-loop_247 fold-var_225 rest_151) fold-var_225)))" +" fold-var_157))))" +"(values fold-var_173)))" +" fold-var_228))))" +"(if(not #f)(for-loop_247 fold-var_227 rest_153) fold-var_227)))" " fold-var_5)))))" " for-loop_247)" " null" -" lst_176)))))))" +" lst_177)))))))" "(define-values" "(syntax-only)" "(lambda(l_67)" @@ -38569,22 +38581,22 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" "((letrec-values(((for-loop_249)" -"(lambda(fold-var_229 lst_279)" +"(lambda(fold-var_231 lst_279)" "(begin" " 'for-loop" "(if(pair? lst_279)" -"(let-values(((i_35)(unsafe-car lst_279))((rest_152)(unsafe-cdr lst_279)))" +"(let-values(((i_35)(unsafe-car lst_279))((rest_154)(unsafe-cdr lst_279)))" "(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_229))" -"(if(let-values(((or-part_268)(syntax?$1 i_35)))" +"(let-values(((fold-var_82) fold-var_231))" +"(if(let-values(((or-part_133)(syntax?$1 i_35)))" +"(if or-part_133" +" or-part_133" +"(let-values(((or-part_268)(expanded+parsed? i_35)))" "(if or-part_268" " or-part_268" -"(let-values(((or-part_269)(expanded+parsed? i_35)))" -"(if or-part_269" -" or-part_269" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_83) fold-var_82))" -"(let-values(((fold-var_239)" +"(let-values(((fold-var_240)" "(let-values()" "(cons" "(let-values()" @@ -38592,7 +38604,7 @@ static const char *startup_source = "(let-values()(expanded+parsed-s i_35))" "(if(semi-parsed-begin-for-syntax? i_35)" "(let-values()" -"(let-values(((s_165)" +"(let-values(((s_166)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38600,22 +38612,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_165)))" +" s_166)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_305)" +"(let-values(((s_306)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_305))" +" s_306))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_305)" +" s_306)" "(syntax-e$1" -" s_305)" -" s_305)))" +" s_306)" +" s_306)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38624,15 +38636,15 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_160)" +"(let-values(((s_161)" "(cdr" " s_27)))" "(let-values(((s_394)" "(if(syntax?$1" -" s_160)" +" s_161)" "(syntax-e$1" -" s_160)" -" s_160)))" +" s_161)" +" s_161)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" " s_394)))" @@ -38656,7 +38668,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_165)" +"(let-values(((s11_0) s_166)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38669,10 +38681,10 @@ static const char *startup_source = " temp12_2)))))))" "(let-values() i_35))))" " fold-var_83))))" -"(values fold-var_239)))" +"(values fold-var_240)))" " fold-var_82))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_152) fold-var_81)))" -" fold-var_229)))))" +"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" +" fold-var_231)))))" " for-loop_249)" " null" " lst_278)))))))" @@ -38712,8 +38724,8 @@ static const char *startup_source = "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_59)(let-values(((or-part_170) alternate-id_1))(if or-part_170 or-part_170 s_43))))" -"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_59)" +"(let-values(((id_60)(let-values(((or-part_170) alternate-id_1))(if or-part_170 or-part_170 s_43))))" +"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" "(let-values()" "(begin" "(let-values(((obs_2)(expand-context-observer ctx_15)))" @@ -38722,7 +38734,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_15))" "(let-values()" "(begin" -"(call-expand-observe obs_2 'resolve id_59)" +"(call-expand-observe obs_2 'resolve id_60)" "(call-expand-observe obs_2 'enter-prim s_43)" "(call-expand-observe obs_2 'prim-stop)" "(call-expand-observe obs_2 'exit-prim s_43)" @@ -38732,7 +38744,7 @@ static const char *startup_source = " s_43))" "(let-values()" "(let-values(((binding_18)" -"(let-values(((id88_0) id_59)" +"(let-values(((id88_0) id_60)" "((temp89_1)(expand-context-phase ctx_15))" "((temp90_0) 'ambiguous)" "((temp91_0) #t))" @@ -38742,30 +38754,30 @@ static const char *startup_source = "(if obs_3" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_3 'resolve id_59))" +"(let-values()(call-expand-observe obs_3 'resolve id_60))" "(void)))" "(void)))" "(if(eq? binding_18 'ambiguous)" -"(let-values()(raise-ambiguous-error id_59 ctx_15))" +"(let-values()(raise-ambiguous-error id_60 ctx_15))" "(if(not binding_18)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" "(let-values()" "(let-values(((t_45 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding92_0) binding_18)" "((ctx93_0) ctx_15)" -"((id94_0) id_59)" +"((id94_0) id_60)" "((temp95_1)(if alternate-id_1 s_43 #f))" "((temp96_2)(expand-context-in-local-expand? ctx_15)))" "(lookup28.1 temp95_1 #t temp96_2 #t binding92_0 ctx93_0 id94_0))))" -"(dispatch t_45 insp-of-t_0 s_43 id_59 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" +"(dispatch t_45 insp-of-t_0 s_43 id_60 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" -"(let-values(((id_60)" -"(let-values(((or-part_270) alternate-id_2))" -"(if or-part_270 or-part_270(car(syntax-e/no-taint s_13))))))" -"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_60)" +"(let-values(((id_61)" +"(let-values(((or-part_269) alternate-id_2))" +"(if or-part_269 or-part_269(car(syntax-e/no-taint s_13))))))" +"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" "(let-values()" "(begin" "(let-values(((obs_0)(expand-context-observer ctx_16)))" @@ -38774,7 +38786,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_16))" "(let-values()" "(begin" -"(call-expand-observe obs_0 'resolve id_60)" +"(call-expand-observe obs_0 'resolve id_61)" "(call-expand-observe obs_0 'enter-prim s_13)" "(call-expand-observe obs_0 'prim-stop)" "(call-expand-observe obs_0 'exit-prim s_13)" @@ -38784,7 +38796,7 @@ static const char *startup_source = " s_13))" "(let-values()" "(let-values(((binding_19)" -"(let-values(((id97_0) id_60)" +"(let-values(((id97_0) id_61)" "((temp98_1)(expand-context-phase ctx_16))" "((temp99_1) 'ambiguous)" "((temp100_0) #t))" @@ -38794,48 +38806,48 @@ static const char *startup_source = "(if obs_4" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_4 'resolve id_60))" +"(let-values()(call-expand-observe obs_4 'resolve id_61))" "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" -"(let-values()(raise-ambiguous-error id_60 ctx_16))" +"(let-values()(raise-ambiguous-error id_61 ctx_16))" "(if(not binding_19)" -"(let-values()(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" +"(let-values()(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_61))" "(let-values()" "(let-values(((t_46 primitive?_3 insp-of-t_1 protected?_4)" "(let-values(((binding101_0) binding_19)" "((ctx102_0) ctx_16)" -"((id103_0) id_60)" +"((id103_0) id_61)" "((temp104_0)(if alternate-id_2(car(syntax-e/no-taint s_13)) #f))" "((temp105_0)(expand-context-in-local-expand? ctx_16)))" "(lookup28.1 temp104_0 #t temp105_0 #t binding101_0 ctx102_0 id103_0))))" "(if(variable? t_46)" "(let-values()" -"(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" +"(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_61))" "(let-values()" "(dispatch" " t_46" " insp-of-t_1" " s_13" -" id_60" +" id_61" " ctx_16" " binding_19" " primitive?_3" " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_186 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_187 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_186)))(void)))" -" s_186))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_187)))(void)))" +" s_187))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_186)))" -"(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_61)))" -"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_187)))" +"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_61)))" +"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" "(let-values()" "(begin" "(let-values(((obs_6)(expand-context-observer ctx_17)))" @@ -38844,34 +38856,34 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_17))" "(let-values()" "(begin" -"(call-expand-observe obs_6 'resolve id_61)" -"(call-expand-observe obs_6 'enter-prim s_186)" +"(call-expand-observe obs_6 'resolve id_62)" +"(call-expand-observe obs_6 'enter-prim s_187)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_186)" -"(call-expand-observe obs_6 'return s_186)))" +"(call-expand-observe obs_6 'exit-prim s_187)" +"(call-expand-observe obs_6 'return s_187)))" "(void)))" "(void)))" -" s_186))" +" s_187))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_7)(expand-context-observer ctx_17)))" "(if obs_7" -"(let-values()(let-values()(call-expand-observe obs_7 'resolve id_61)))" +"(let-values()(let-values()(call-expand-observe obs_7 'resolve id_62)))" "(void)))" "(values))))" -"(let-values(((b_74)" -"(let-values(((id106_0) id_61)" +"(let-values(((b_76)" +"(let-values(((id106_0) id_62)" "((temp107_0)(expand-context-phase ctx_17))" "((temp108_0) 'ambiguous)" "((temp109_0) #t))" "(resolve+shift30.1 temp108_0 #t #f #f #f #f temp109_0 #t #f #f id106_0 temp107_0))))" -"(if(eq? b_74 'ambiguous)" -"(let-values()(raise-ambiguous-error id_61 ctx_17))" +"(if(eq? b_76 'ambiguous)" +"(let-values()(raise-ambiguous-error id_62 ctx_17))" "(let-values()" "(let-values(((t_27 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_74" -"(let-values(((b110_0) b_74)((ctx111_0) ctx_17)((id112_0) id_61))" +"(if b_76" +"(let-values(((b110_0) b_76)((ctx111_0) ctx_17)((id112_0) id_62))" "(lookup28.1 #f #f #f #f b110_0 ctx111_0 id112_0))" "(values #f #f #f #f))))" "(if(transformer? t_27)" @@ -38879,10 +38891,10 @@ static const char *startup_source = "(dispatch-transformer" " t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" -" id_61" +"(make-explicit ctx_17 sym_61 s_187 disarmed-s_1)" +" id_62" " ctx_17" -" b_74))" +" b_76))" "(if(core-form? t_27)" "(let-values()" "(if(if(eq? sym_61 '#%top)" @@ -38890,17 +38902,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_186 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_187 ctx_17))" "(let-values()" "(dispatch-core-form" " t_27" -"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_187 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_186(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_187(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38918,7 +38930,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_186" +" s_187" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -38966,24 +38978,24 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_306 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_307 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_306 s_306) s_306)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_307 s_307) s_307)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_47 insp-of-t_3 s_396 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_47 insp-of-t_3 s_396 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_47)" "(let-values()(dispatch-core-form t_47 s_396 ctx_20))" "(if(transformer? t_47)" -"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_396 id_62 ctx_20 binding_20))" +"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_396 id_63 ctx_20 binding_20))" "(if(variable? t_47)" -"(let-values()(dispatch-variable t_47 s_396 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" +"(let-values()(dispatch-variable t_47 s_396 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" " (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_396))))))))" "(define-values" "(dispatch-core-form)" @@ -39040,7 +39052,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_50 insp-of-t_4 s_390 id_63 ctx_23 binding_21)" +"(lambda(t_50 insp-of-t_4 s_390 id_64 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_50 ctx_23)" "(let-values()" @@ -39051,7 +39063,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_390)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_390 id_63) t_50 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_390 id_64) t_50 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_390)))(void)))" @@ -39070,7 +39082,7 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_17 'visit s_390)" -"(call-expand-observe obs_17 'resolve id_63)))" +"(call-expand-observe obs_17 'resolve id_64)))" "(void)))" "(void)))" "(values))))" @@ -39080,7 +39092,7 @@ static const char *startup_source = "(let-values(((t119_0) t_50)" "((insp-of-t120_0) insp-of-t_4)" "((s121_0) s_390)" -"((id122_0) id_63)" +"((id122_0) id_64)" "((ctx123_0) ctx_23)" "((binding124_0) binding_21))" "(apply-transformer18.1" @@ -39108,35 +39120,35 @@ static const char *startup_source = "((temp127_0)" "(if(1/rename-transformer? t_50)" "(syntax-track-origin$1" -"(transfer-srcloc(rename-transformer-target-in-context t_50 ctx_23) id_63)" -" id_63" -" id_63)" +"(transfer-srcloc(rename-transformer-target-in-context t_50 ctx_23) id_64)" +" id_64" +" id_64)" " #f))" "((temp128_0)" -"(let-values(((or-part_271)(expand-context-only-immediate? ctx_23)))" -"(if or-part_271 or-part_271(1/rename-transformer? t_50)))))" +"(let-values(((or-part_270)(expand-context-only-immediate? ctx_23)))" +"(if or-part_270 or-part_270(1/rename-transformer? t_50)))))" "(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_51 s_397 id_64 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_51 s_397 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" "(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_397)))(void)))" -" id_64))" +" id_65))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_397 id_64)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_397 id_65)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" -"(let-values(((id129_0) id_64)" +"(let-values(((id129_0) id_65)" "((t130_0) t_51)" "((temp131_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" @@ -39165,7 +39177,7 @@ static const char *startup_source = "(let-values(((t_52) t12_0))" "(let-values(((insp-of-t_5) insp-of-t13_0))" "(let-values(((s_59) s14_0))" -"(let-values(((id_65) id15_0))" +"(let-values(((id_66) id15_0))" "(let-values(((ctx_25) ctx16_0))" "(let-values(((binding_23) binding17_1))" "(let-values(((origin-id_0)(if origin-id11_0 origin-id10_0 #f)))" @@ -39195,16 +39207,16 @@ static const char *startup_source = " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" -" id_65)))" +" id_66)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" "(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_272) origin-id_0))" -"(if or-part_272" -" or-part_272" +"(let-values(((or-part_271) origin-id_0))" +"(if or-part_271" +" or-part_271" "(if(identifier? s_59) s_59(car(syntax-e$1 s_59))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" @@ -39225,7 +39237,7 @@ static const char *startup_source = " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_53 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" +"(lambda(t_53 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" "(begin" "(let-values((()" "(begin" @@ -39236,9 +39248,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_273)(expand-context-only-immediate? ctx_26)))" -"(if or-part_273" -" or-part_273" +"(let-values(((or-part_272)(expand-context-only-immediate? ctx_26)))" +"(if or-part_272" +" or-part_272" "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" @@ -39302,30 +39314,30 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_66)" +"(syntax-e$1 id_67)" " \"received value from syntax expander was not syntax\"" " \"received\"" " transformed-s_1)))" " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_210 ctx_27 binding_24)" +"(lambda(s_211 ctx_27 binding_24)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" " #f)" "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" -"(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_210 sc_30)(list sc_30))))))" -"(let-values()(values s_210 null))))))" +"(let-values(((b_77)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_77(cons sc_30(unbox b_77)))(values(add-scope s_211 sc_30)(list sc_30))))))" +"(let-values()(values s_211 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_274)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_274 or-part_274(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_273)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_273 or-part_273(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" @@ -39368,19 +39380,19 @@ static const char *startup_source = "(lambda(in21_0 in23_0 out-of-context-as-variable?22_0 out-of-context-as-variable?24_0 b25_0 ctx26_0 id27_0)" "(begin" " 'lookup28" -"(let-values(((b_76) b25_0))" +"(let-values(((b_78) b25_0))" "(let-values(((ctx_30) ctx26_0))" -"(let-values(((id_67) id27_0))" +"(let-values(((id_68) id27_0))" "(let-values(((in-s_7)(if in23_0 in21_0 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?24_0 out-of-context-as-variable?22_0 #f)))" "(let-values()" -"(let-values(((b137_0) b_76)" +"(let-values(((b137_0) b_78)" "((temp138_0)(expand-context-env ctx_30))" "((temp139_0)(expand-context-lift-envs ctx_30))" "((temp140_1)(expand-context-namespace ctx_30))" "((temp141_1)(expand-context-phase ctx_30))" -"((id142_0) id_67)" +"((id142_0) id_68)" "((in-s143_0) in-s_7)" "((out-of-context-as-variable?144_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" @@ -39438,10 +39450,10 @@ static const char *startup_source = "(let-values(((always-wrap?_0)(if always-wrap?38_0 always-wrap?34_0 #f)))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_103)(expand-context-phase ctx_31)))" +"(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" -"(lambda(s_222 always-wrap?_1 ctx_32)" +"(lambda(s_223 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39480,10 +39492,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts151_0)" -"(if(let-values(((or-part_275)" +"(if(let-values(((or-part_274)" " local?_0))" -"(if or-part_275" -" or-part_275" +"(if or-part_274" +" or-part_274" "(not" "(memq" " context_6" @@ -39573,9 +39585,9 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_58))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_222)))" +"(let-values(((rebuild-s_0)(keep-properties-only s_223)))" "(let-values(((exp-s_2)" -"(let-values(((s152_0) s_222)" +"(let-values(((s152_0) s_223)" "((capture-ctx153_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39588,10 +39600,10 @@ static const char *startup_source = "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_276)" +"(if(let-values(((or-part_275)" "(pair? lifts_6)))" -"(if or-part_276" -" or-part_276" +"(if or-part_275" +" or-part_275" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39614,7 +39626,7 @@ static const char *startup_source = "(let-values(((lifts154_0) lifts_6)" "((exp-s155_0) exp-s_2)" "((phase156_0)" -" phase_103))" +" phase_104))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -39626,7 +39638,7 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_103)))))" +" phase_104)))))" "(let-values() exp-s_2))))" "(if(let-values(((or-part_109)(not expand-lifts?_0)))" "(if or-part_109" @@ -39717,10 +39729,10 @@ static const char *startup_source = "(let-values(((context_8)(if context64_0 context63_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?62_0 keep-stops?61_0 #f)))" "(let-values()" -"(let-values(((phase_104)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_104)))" +"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" -"(namespace-visit-available-modules! ns_73 phase_104)" +"(namespace-visit-available-modules! ns_73 phase_105)" "(let-values(((v_184) ctx_34))" "(let-values(((the-struct_60) v_184))" "(if(expand-context/outer? the-struct_60)" @@ -39734,7 +39746,7 @@ static const char *startup_source = "((inner172_0)" "(let-values(((the-struct_61)(root-expand-context/outer-inner v_184)))" "(if(expand-context/inner? the-struct_61)" -"(let-values(((phase173_0) phase_104)" +"(let-values(((phase173_0) phase_105)" "((namespace174_0) ns_73)" "((stops175_0)" "(if keep-stops?_1" @@ -39800,7 +39812,7 @@ static const char *startup_source = "(let-values(((exp-rhs_0)" "(let-values(((rhs176_0) rhs_16)((temp177_0)(as-named-context ctx_35 ids_19)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs176_0 temp177_0))))" -"(let-values(((phase_105)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -39821,8 +39833,8 @@ static const char *startup_source = "(eval-for-bindings" " ids_19" " parsed-rhs_0" -" phase_105" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_105)" +" phase_106" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" " ctx_35))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -39834,14 +39846,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_49 phase_106 ns_74 ctx_37)" +"(lambda(ids_21 p_49 phase_107 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" "(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_49" -"(let-values(((ns184_0) ns_74)((phase185_0) phase_106))" +"(let-values(((ns184_0) ns_74)((phase185_0) phase_107))" "(make-compile-context14.1 #f #f #f #f #f #f ns184_0 #t phase185_0 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" @@ -39895,8 +39907,8 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_277) keep-for-parsed?_0))" -"(if or-part_277 or-part_277 keep-for-error?_0))" +"(if(let-values(((or-part_276) keep-for-parsed?_0))" +"(if or-part_276 or-part_276 keep-for-error?_0))" "(datum->syntax$1 #f keep-e_0 s_402 s_402)" " #f))" "(let-values()" @@ -39915,8 +39927,8 @@ static const char *startup_source = " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_278)(syntax-property$1 s_403 'disappeared-binding)))" -"(if or-part_278 or-part_278 null)))))))))" +"(let-values(((or-part_277)(syntax-property$1 s_403 'disappeared-binding)))" +"(if or-part_277 or-part_277 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -39925,12 +39937,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_279)(identifier? ids_23)))" -"(if or-part_279" -" or-part_279" +"(let-values(((or-part_278)(identifier? ids_23)))" +"(if or-part_278" +" or-part_278" "(if(pair? ids_23)" -"(let-values(((or-part_280)(loop_94(car ids_23))))" -"(if or-part_280 or-part_280(loop_94(cdr ids_23))))" +"(let-values(((or-part_279)(loop_94(car ids_23))))" +"(if or-part_279 or-part_279(loop_94(cdr ids_23))))" " #f)))))))" " loop_94)" " ids_22)" @@ -39963,35 +39975,35 @@ static const char *startup_source = "(let-values(((the-struct_62) v_185))" "(if(expand-context/outer? the-struct_62)" "(let-values(((env186_0)" -"(let-values(((lst_284) ids_24)((lst_285) keys_4))" +"(let-values(((lst_283) ids_24)((lst_284) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_283)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_284)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_285)))" -"((letrec-values(((for-loop_255)" -"(lambda(env_3 lst_286 lst_287)" +"((letrec-values(((for-loop_254)" +"(lambda(env_3 lst_285 lst_286)" "(begin" " 'for-loop" -"(if(if(pair? lst_286)" -"(pair? lst_287)" +"(if(if(pair? lst_285)" +"(pair? lst_286)" " #f)" -"(let-values(((id_68)" +"(let-values(((id_69)" "(unsafe-car" -" lst_286))" -"((rest_157)" -"(unsafe-cdr" -" lst_286))" -"((key_86)" -"(unsafe-car" -" lst_287))" +" lst_285))" "((rest_158)" "(unsafe-cdr" -" lst_287)))" +" lst_285))" +"((key_86)" +"(unsafe-car" +" lst_286))" +"((rest_159)" +"(unsafe-cdr" +" lst_286)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40001,20 +40013,20 @@ static const char *startup_source = " env_5" " key_86" "(local-variable1.1" -" id_68)))))" +" id_69)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_255" +"(for-loop_254" " env_4" -" rest_157" -" rest_158)" +" rest_158" +" rest_159)" " env_4)))" " env_3)))))" -" for-loop_255)" +" for-loop_254)" "(expand-context-env rhs-ctx_1)" -" lst_284" -" lst_285))))" +" lst_283" +" lst_284))))" "((inner187_0)(root-expand-context/outer-inner v_185)))" "(expand-context/outer1.1" " inner187_0" @@ -40049,14 +40061,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_54))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_71 id_69 phase_107 ctx_42)" +"(lambda(val_71 id_70 phase_108 ctx_42)" "(begin" "(if(1/rename-transformer? val_71)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_71 id_69 phase_107))))" +"(let-values()(maybe-install-free=id! val_71 id_70 phase_108))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40094,11 +40106,11 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_102) auto-stop-syms))" +"(let-values(((lst_101) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" @@ -40120,7 +40132,7 @@ static const char *startup_source = " fold-var_86)))))" " for-loop_111)" " null" -" lst_102)))))))))))))" +" lst_101)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40140,31 +40152,31 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_108)" +"(lambda(phase_109)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_108)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" "(reverse$1" "(let-values(((lst_222) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_240 lst_262)" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_241 lst_262)" "(begin" " 'for-loop" "(if(pair? lst_262)" -"(let-values(((sym_16)(unsafe-car lst_262))((rest_159)(unsafe-cdr lst_262)))" -"(let-values(((fold-var_217)" -"(let-values(((fold-var_218) fold-var_240))" +"(let-values(((sym_16)(unsafe-car lst_262))((rest_160)(unsafe-cdr lst_262)))" "(let-values(((fold-var_219)" +"(let-values(((fold-var_220) fold-var_241))" +"(let-values(((fold-var_221)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_16))" -" fold-var_218))))" -"(values fold-var_219)))))" -"(if(not #f)(for-loop_256 fold-var_217 rest_159) fold-var_217)))" -" fold-var_240)))))" -" for-loop_256)" +" fold-var_220))))" +"(values fold-var_221)))))" +"(if(not #f)(for-loop_255 fold-var_219 rest_160) fold-var_219)))" +" fold-var_241)))))" +" for-loop_255)" " null" " lst_222))))))))" "(define-values" @@ -40305,33 +40317,33 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_28 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_109)(expand-context-phase ctx_44)))" +"(let-values(((phase_110)(expand-context-phase ctx_44)))" "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_288) ids_25))" +"(let-values(((lst_287) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_177)" -"(lambda(fold-var_16 lst_185)" +"(let-values()(check-list lst_287)))" +"((letrec-values(((for-loop_176)" +"(lambda(fold-var_16 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((id_70)(unsafe-car lst_185))" -"((rest_160)(unsafe-cdr lst_185)))" -"(let-values(((fold-var_231)" -"(let-values(((fold-var_241)" -" fold-var_16))" +"(if(pair? lst_186)" +"(let-values(((id_71)(unsafe-car lst_186))" +"((rest_161)(unsafe-cdr lst_186)))" +"(let-values(((fold-var_233)" "(let-values(((fold-var_242)" +" fold-var_16))" +"(let-values(((fold-var_243)" "(let-values()" "(cons" "(let-values()" "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_70" +" id_71" " ctx_44)" " ctx_44)))" "(let-values(((pre-id44_0)" @@ -40347,15 +40359,15 @@ static const char *startup_source = " #t" " pre-id44_0" " intdef45_0))))" -" fold-var_241))))" -"(values fold-var_242)))))" +" fold-var_242))))" +"(values fold-var_243)))))" "(if(not #f)" -"(for-loop_177 fold-var_231 rest_160)" -" fold-var_231)))" +"(for-loop_176 fold-var_233 rest_161)" +" fold-var_233)))" " fold-var_16)))))" -" for-loop_177)" +" for-loop_176)" " null" -" lst_288))))))" +" lst_287))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40366,29 +40378,29 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_289) intdef-ids_0))" +"(let-values(((lst_288) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_243 lst_290)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_244 lst_289)" "(begin" " 'for-loop" -"(if(pair? lst_290)" -"(let-values(((intdef-id_0)(unsafe-car lst_290))" -"((rest_161)(unsafe-cdr lst_290)))" -"(let-values(((fold-var_244)" +"(if(pair? lst_289)" +"(let-values(((intdef-id_0)(unsafe-car lst_289))" +"((rest_162)(unsafe-cdr lst_289)))" "(let-values(((fold-var_245)" -" fold-var_243))" "(let-values(((fold-var_246)" +" fold-var_244))" +"(let-values(((fold-var_247)" "(let-values()" "(cons" "(let-values()" "(let-values(((intdef-id47_0)" " intdef-id_0)" "((phase48_1)" -" phase_109)" +" phase_110)" "((temp49_1)" "(root-expand-context-counter" " ctx_44))" @@ -40403,15 +40415,15 @@ static const char *startup_source = " intdef-id47_0" " phase48_1" " temp49_1)))" -" fold-var_245))))" -"(values fold-var_246)))))" +" fold-var_246))))" +"(values fold-var_247)))))" "(if(not #f)" -"(for-loop_257 fold-var_244 rest_161)" -" fold-var_244)))" -" fold-var_243)))))" -" for-loop_257)" +"(for-loop_256 fold-var_245 rest_162)" +" fold-var_245)))" +" fold-var_244)))))" +" for-loop_256)" " null" -" lst_289))))))" +" lst_288))))))" "(let-values(((vals_5)" "(if s_404" "(let-values()" @@ -40423,23 +40435,23 @@ static const char *startup_source = "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_291) syms_21))" +"(let-values(((lst_290) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_168)" +"(lambda(env_7 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_168)" +"(if(pair? lst_169)" "(let-values(((sym_64)" "(unsafe-car" -" lst_168))" -"((rest_162)" +" lst_169))" +"((rest_163)" "(unsafe-cdr" -" lst_168)))" +" lst_169)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40454,12 +40466,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_6" " env_8" -" rest_162)" +" rest_163)" " env_8)))" " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_291)))))" +" lst_290)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40539,69 +40551,69 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_292) ids_25))" +"(let-values(((lst_291) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_178 lst_293)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_179 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_293)" -"(let-values(((id_71)(unsafe-car lst_293))" -"((rest_163)(unsafe-cdr lst_293)))" -"(let-values(((fold-var_247)" +"(if(pair? lst_292)" +"(let-values(((id_72)(unsafe-car lst_292))" +"((rest_164)(unsafe-cdr lst_292)))" "(let-values(((fold-var_248)" -" fold-var_178))" "(let-values(((fold-var_249)" +" fold-var_179))" +"(let-values(((fold-var_250)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_248))))" -"(values fold-var_249)))))" +" fold-var_249))))" +"(values fold-var_250)))))" "(if(not #f)" -"(for-loop_258 fold-var_247 rest_163)" -" fold-var_247)))" -" fold-var_178)))))" -" for-loop_258)" +"(for-loop_257 fold-var_248 rest_164)" +" fold-var_248)))" +" fold-var_179)))))" +" for-loop_257)" " null" -" lst_292))))))))" +" lst_291))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_294) intdef-ids_0)((lst_295) syms_21)((lst_296) vals_5))" +"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_293)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_294)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_295)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_296)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_250 lst_297 lst_107 lst_298)" +"(lambda(fold-var_251 lst_296 lst_106 lst_297)" "(begin" " 'for-loop" -"(if(if(pair? lst_297)" -"(if(pair? lst_107)(pair? lst_298) #f)" +"(if(if(pair? lst_296)" +"(if(pair? lst_106)(pair? lst_297) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_297))" -"((rest_164)(unsafe-cdr lst_297))" -"((sym_65)(unsafe-car lst_107))" -"((rest_100)(unsafe-cdr lst_107))" -"((val_27)(unsafe-car lst_298))" -"((rest_22)(unsafe-cdr lst_298)))" +"(let-values(((intdef-id_1)(unsafe-car lst_296))" +"((rest_165)(unsafe-cdr lst_296))" +"((sym_65)(unsafe-car lst_106))" +"((rest_102)(unsafe-cdr lst_106))" +"((val_27)(unsafe-car lst_297))" +"((rest_166)(unsafe-cdr lst_297)))" +"(let-values(((fold-var_184)" "(let-values(((fold-var_36)" +" fold-var_251))" "(let-values(((fold-var_37)" -" fold-var_250))" -"(let-values(((fold-var_38)" "(let-values()" "(cons" "(let-values()" @@ -40609,24 +40621,28 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_27" " intdef-id_1" -" phase_109" +" phase_110" " ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_65" " val_27" "(make-weak-hasheq))))" -" fold-var_37))))" -"(values fold-var_38)))))" +" fold-var_36))))" +"(values fold-var_37)))))" "(if(not #f)" -"(for-loop_79 fold-var_36 rest_164 rest_100 rest_22)" -" fold-var_36)))" -" fold-var_250)))))" +"(for-loop_79" +" fold-var_184" +" rest_165" +" rest_102" +" rest_166)" +" fold-var_184)))" +" fold-var_251)))))" " for-loop_79)" " null" +" lst_293" " lst_294" -" lst_295" -" lst_296))))" +" lst_295))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40646,29 +40662,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_299)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_251 lst_228)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_252 lst_228)" "(begin" " 'for-loop" "(if(pair? lst_228)" "(let-values(((env-mixin_0)(unsafe-car lst_228))" -"((rest_165)(unsafe-cdr lst_228)))" -"(let-values(((fold-var_252)" -"(let-values(((fold-var_183) fold-var_251))" +"((rest_167)(unsafe-cdr lst_228)))" "(let-values(((fold-var_253)" +"(let-values(((fold-var_185) fold-var_252))" +"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_183))))" -"(values fold-var_253)))))" -"(if(not #f)(for-loop_259 fold-var_252 rest_165) fold-var_252)))" -" fold-var_251)))))" -" for-loop_259)" +" fold-var_185))))" +"(values fold-var_254)))))" +"(if(not #f)(for-loop_258 fold-var_253 rest_167) fold-var_253)))" +" fold-var_252)))))" +" for-loop_258)" " null" -" lst_299))))))))" +" lst_298))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40708,9 +40724,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_200)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_200 #f #f)))" -"((intdef_4 s_201 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_201 mode9_1 #t)))))" +"((intdef_3 s_201)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_201 #f #f)))" +"((intdef_4 s_202 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_202 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40724,60 +40740,60 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_72 intdef_6)" +"(lambda(id_73 intdef_6)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_72)" +"(if(identifier? id_73)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" -"(if(let-values(((or-part_281)(1/internal-definition-context? intdef_6)))" -"(if or-part_281 or-part_281(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" +"(if(let-values(((or-part_280)(1/internal-definition-context? intdef_6)))" +"(if or-part_280 or-part_280(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_6)))" -"(let-values(((x_74)" +"(let-values(((x_73)" "(let-values(((a_45) intdef_6))" "(if(list? a_45)" "(let-values()(reverse$1 a_45))" "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_178)" -"(lambda(id_17 a_46)" +"((letrec-values(((for-loop_177)" +"(lambda(id_19 a_46)" "(begin" " 'for-loop" "(if(pair? a_46)" "(let-values(((intdef_7)(car a_46)))" -"(let-values(((id_73)" -"(let-values(((id_74) id_17))" -"(let-values(((id_75)" +"(let-values(((id_74)" +"(let-values(((id_75) id_19))" +"(let-values(((id_76)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_7" -" id_74" +" id_75" " 'remove))))" -"(values id_75)))))" -"(if(not #f)(for-loop_178 id_73(cdr a_46)) id_73)))" -" id_17)))))" -" for-loop_178)" -" id_72" -" x_74)))))))" +"(values id_76)))))" +"(if(not #f)(for-loop_177 id_74(cdr a_46)) id_74)))" +" id_19)))))" +" for-loop_177)" +" id_73" +" x_73)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_75)" +"(let-values(((x_74)" "(let-values(((a_47) intdefs_0))" "(if(list? a_47)" "(let-values()(reverse$1 a_47))" "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_259)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40801,14 +40817,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_282)" +"(let-values(((or-part_281)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_282" -" or-part_282" +"(if or-part_281" +" or-part_281" "(let-values(((new-env_0)" "(env-extend" "(loop_95" @@ -40830,11 +40846,11 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_260 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_259 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_260)" +" for-loop_259)" " env_11" -" x_75))))))" +" x_74))))))" "(define-values" "(add-intdef-scopes21.1)" "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" @@ -40845,7 +40861,7 @@ static const char *startup_source = "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" "(let-values()" -"(let-values(((x_76)" +"(let-values(((x_75)" "(let-values(((a_49) intdefs_1))" "(if(list? a_49)" "(let-values()(reverse$1 a_49))" @@ -40858,27 +40874,27 @@ static const char *startup_source = " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_208)" -"(let-values(((s_209) s_392))" -"(if(let-values(((or-part_283) always?_0))" -"(if or-part_283" -" or-part_283" +"(let-values(((s_209)" +"(let-values(((s_210) s_392))" +"(if(let-values(((or-part_282) always?_0))" +"(if or-part_282" +" or-part_282" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_93) s_209))" -"(let-values(((s_320)" +"(let-values(((s_93) s_210))" +"(let-values(((s_321)" "(let-values()" "(action_0" " s_93" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_320)))" -" s_209))))" -"(if(not #f)(for-loop_180 s_208(cdr a_50)) s_208)))" +"(values s_321)))" +" s_210))))" +"(if(not #f)(for-loop_180 s_209(cdr a_50)) s_209)))" " s_392)))))" " for-loop_180)" " s_406" -" x_76)))))))))))" +" x_75)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -40896,19 +40912,19 @@ static const char *startup_source = " 'make-local-expand-context37" "(let-values(((ctx_45) ctx36_0))" "(let-values(((context_9) context24_0))" -"(let-values(((phase_110)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" +"(let-values(((phase_111)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs26_0))" "(let-values(((stop-ids_1)(if stop-ids33_0 stop-ids27_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?34_0 to-parsed-ok?28_0 #f)))" "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_134)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_134" -" or-part_134" +"(let-values(((or-part_283)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_283" +" or-part_283" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_110) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" @@ -40929,7 +40945,7 @@ static const char *startup_source = "(if or-part_286 or-part_286(box null)))" " #f))" "((frame-id65_0)" -"(let-values(((x_77)" +"(let-values(((x_76)" "(let-values(((a_51) intdefs_2))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -40938,7 +40954,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_127)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -40970,12 +40986,12 @@ static const char *startup_source = " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_128 frame-id_10(cdr a_52))" +"(for-loop_127 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_128)" +" for-loop_127)" "(root-expand-context-frame-id ctx_45)" -" x_77))))" +" x_76))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" @@ -40986,10 +41002,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_217 placeholder-sc_0)" +"(lambda(s_218 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_217)((intdefs74_0) intdefs_2))" +"(let-values(((s73_1) s_218)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" @@ -41011,7 +41027,7 @@ static const char *startup_source = "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" -" phase_110" +" phase_111" "(let-values(((or-part_288) all-stop-ids_0))" "(if or-part_288 or-part_288 null)))))" "(expand-context/inner2.1" @@ -41106,39 +41122,39 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_171)" +"(lambda(s_172)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_171)" +"(if(syntax?$1 s_172)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_171)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_172)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_171 ctx_51))))))))" +"(flip-introduction-scopes s_172 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_76)" +"(lambda(id_77)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_76)" +"(if(identifier? id_77)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_76)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_77)))" "(values))))" "(let-values(((ctx_52)" "(let-values(((temp70_0) 'syntax-local-identifier-as-binding))" "(get-current-expand-context17.1 #f #f temp70_0 #t))))" -"(remove-use-site-scopes id_76 ctx_52))))))))" +"(remove-use-site-scopes id_77 ctx_52))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" @@ -41156,8 +41172,8 @@ static const char *startup_source = "(let-values(((ctx_54)" "(let-values(((who73_0) 'syntax-local-name))" "(get-current-expand-context17.1 #f #f who73_0 #t))))" -"(let-values(((id_77)(expand-context-name ctx_54)))" -"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))))" +"(let-values(((id_78)(expand-context-name ctx_54)))" +"(if id_78(datum->syntax$1 #f(syntax-e$1 id_78) id_78) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer3_0)" @@ -41192,8 +41208,8 @@ static const char *startup_source = " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))))))))" "(case-lambda" -"((s_183)(core77_0 s_183 #f #f))" -"((s_184 mode74_1)(core77_0 s_184 mode74_1 #t)))))))))))" +"((s_184)(core77_0 s_184 #f #f))" +"((s_185 mode74_1)(core77_0 s_185 mode74_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" "((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))" @@ -41205,7 +41221,7 @@ static const char *startup_source = " 'make-syntax-delta-introducer9" "(let-values(((ext-s_0) ext-s7_0))" "(let-values(((base-s_0) base-s8_0))" -"(let-values(((phase_111)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_112)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -41234,27 +41250,27 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_111)" +"(if(phase? phase_112)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_111)))" +" phase_112)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_111)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_112)))" "(let-values(((base-scs_0)" "(syntax-scope-set" "(let-values(((or-part_94) base-s_0))" "(if or-part_94 or-part_94 empty-syntax))" -" phase_111)))" +" phase_112)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" "(let-values(((or-part_32)" "(if(identifier? base-s_0)" "(let-values(((base-s80_0) base-s_0)" -"((phase81_0) phase_111)" +"((phase81_0) phase_112)" "((temp82_1) #t))" "(resolve40.1" " #f" @@ -41324,26 +41340,26 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value17" "(let-values(((who_16) who13_0))" -"(let-values(((id_78) id14_1))" +"(let-values(((id_79) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" "(let-values(((immediate?_1) immediate?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error who_16 \"identifier?\" id_78)))" +" (let-values () (raise-argument-error who_16 \"identifier?\" id_79)))" "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_78)" -"(let-values(((or-part_220)(not x_78)))" +"(if((lambda(x_77)" +"(let-values(((or-part_220)(not x_77)))" "(if or-part_220" " or-part_220" "((lambda(p_50)" "(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" -" x_78))))" +" x_77))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -41404,18 +41420,18 @@ static const char *startup_source = "(let-values(((obs_33)(expand-context-observer ctx_55)))" "(if obs_33" "(let-values()" -"(let-values()(call-expand-observe obs_33 'local-value id_78)))" +"(let-values()(call-expand-observe obs_33 'local-value id_79)))" "(void)))" "(values))))" -"(let-values(((phase_112)(expand-context-phase ctx_55)))" +"(let-values(((phase_113)(expand-context-phase ctx_55)))" "((letrec-values(((loop_96)" -"(lambda(id_79)" +"(lambda(id_80)" "(begin" " 'loop" -"(let-values(((b_77)" +"(let-values(((b_79)" "(if immediate?_1" -"(let-values(((id92_0) id_79)" -"((phase93_0) phase_112)" +"(let-values(((id92_0) id_80)" +"((phase93_0) phase_113)" "((temp94_1) #t))" "(resolve+shift30.1" " #f" @@ -41431,17 +41447,17 @@ static const char *startup_source = " id92_0" " phase93_0))" "(resolve+shift/extra-inspector" -" id_79" -" phase_112" +" id_80" +" phase_113" "(expand-context-namespace ctx_55)))))" "(begin" "(let-values(((obs_8)(expand-context-observer ctx_55)))" "(if obs_8" "(let-values()" "(let-values()" -"(call-expand-observe obs_8 'resolve id_79)))" +"(call-expand-observe obs_8 'resolve id_80)))" "(void)))" -"(if(not b_77)" +"(if(not b_79)" "(let-values()" "(begin" "(let-values(((obs_34)" @@ -41456,12 +41472,12 @@ static const char *startup_source = "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_16 \"unbound identifier: ~v\" id_79))))" +" (error who_16 \"unbound identifier: ~v\" id_80))))" "(let-values()" "(let-values(((v_37 primitive?_7 insp_17 protected?_8)" -"(let-values(((b95_0) b_77)" +"(let-values(((b95_0) b_79)" "((ctx96_0) ctx_55)" -"((id97_1) id_79)" +"((id97_1) id_80)" "((temp98_2) #t))" "(lookup28.1" " #f" @@ -41490,7 +41506,7 @@ static const char *startup_source = "(error" " who_16" " \"identifier is not bound to syntax: ~v\"" -" id_79))))" +" id_80))))" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -41520,20 +41536,20 @@ static const char *startup_source = "(let-values()(values v_37 #f))" "(let-values() v_37)))))))))))))))" " loop_96)" -"(flip-introduction-scopes id_78 ctx_55))))))))))))))))))" +"(flip-introduction-scopes id_79 ctx_55))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_80) id24_0))" +"(let-values(((id_81) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_12)(if intdef23_0 intdef21_0 #f)))" "(let-values()" "(let-values(((temp99_2) 'syntax-local-value)" "((temp100_1) #f)" -"((id101_0) id_80)" +"((id101_0) id_81)" "((intdef102_0) intdef_12)" "((failure-thunk103_0) failure-thunk_1))" "(do-syntax-local-value17.1" @@ -41543,22 +41559,22 @@ static const char *startup_source = " intdef102_0" " failure-thunk103_0))))))))))" "(case-lambda" -"((id_81)(begin 'syntax-local-value(syntax-local-value25_0 id_81 #f #f #f #f)))" -"((id_82 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_82 failure-thunk_2 intdef21_1 #t #t))" -"((id_83 failure-thunk20_1)(syntax-local-value25_0 id_83 failure-thunk20_1 #f #t #f)))))" +"((id_82)(begin 'syntax-local-value(syntax-local-value25_0 id_82 #f #f #f #f)))" +"((id_83 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_83 failure-thunk_2 intdef21_1 #t #t))" +"((id_84 failure-thunk20_1)(syntax-local-value25_0 id_84 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_84) id31_1))" +"(let-values(((id_85) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_13)(if intdef30_0 intdef28_0 #f)))" "(let-values()" "(let-values(((temp104_1) 'syntax-local-value/immediate)" "((temp105_1) #t)" -"((id106_1) id_84)" +"((id106_1) id_85)" "((intdef107_0) intdef_13)" "((failure-thunk108_0) failure-thunk_3))" "(do-syntax-local-value17.1" @@ -41568,16 +41584,16 @@ static const char *startup_source = " intdef107_0" " failure-thunk108_0))))))))))" "(case-lambda" -"((id_85)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_85 #f #f #f #f)))" -"((id_86 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_86 failure-thunk_4 intdef28_1 #t #t))" -"((id_87 failure-thunk27_1)(syntax-local-value/immediate32_0 id_87 failure-thunk27_1 #f #t #f)))))" +"((id_86)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_86 #f #f #f #f)))" +"((id_87 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_87 failure-thunk_4 intdef28_1 #t #t))" +"((id_88 failure-thunk27_1)(syntax-local-value/immediate32_0 id_88 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_17 n_28 s_196)" +"(lambda(who_17 n_28 s_197)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_196) (void) (let-values () (raise-argument-error who_17 \"syntax?\" s_196)))" +" (if (syntax?$1 s_197) (void) (let-values () (raise-argument-error who_17 \"syntax?\" s_197)))" "(values))))" "(let-values((()" "(begin" @@ -41599,15 +41615,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_254 pos_106)" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_255 pos_106)" "(begin" " 'for-loop" "(if(< pos_106 end_30)" "(let-values()" -"(let-values(((fold-var_255)" -"(let-values(((fold-var_256) fold-var_254))" -"(let-values(((fold-var_257)" +"(let-values(((fold-var_256)" +"(let-values(((fold-var_257) fold-var_255))" +"(let-values(((fold-var_258)" "(let-values()" "(cons" "(let-values()" @@ -41631,26 +41647,26 @@ static const char *startup_source = " name_25)" "(new-scope" " 'macro)))))" -" fold-var_256))))" -"(values fold-var_257)))))" +" fold-var_257))))" +"(values fold-var_258)))))" "(if(not #f)" -"(for-loop_261 fold-var_255(+ pos_106 inc_24))" -" fold-var_255)))" -" fold-var_254)))))" -" for-loop_261)" +"(for-loop_260 fold-var_256(+ pos_106 inc_24))" +" fold-var_256)))" +" fold-var_255)))))" +" for-loop_260)" " null" " start_40))))))" "(begin" "(let-values(((obs_37)(expand-context-observer ctx_56)))" "(if obs_37" -"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_196)))" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_197)))" "(void)))" "(map2" -"(lambda(id_88)(flip-introduction-scopes id_88 ctx_56))" +"(lambda(id_89)(flip-introduction-scopes id_89 ctx_56))" "(add-lifted!" " lifts_0" " ids_26" -"(flip-introduction-scopes s_196 ctx_56)" +"(flip-introduction-scopes s_197 ctx_56)" "(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" @@ -41691,9 +41707,9 @@ static const char *startup_source = "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" -"(let-values(((phase_113)(expand-context-phase ctx_58)))" +"(let-values(((phase_114)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_410 phase_113)))" +"(let-values(((tmp_34)(core-form-sym s_410 phase_114)))" "(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" @@ -41706,7 +41722,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_410)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_410 ctx_58) phase_113))))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_410 ctx_58) phase_114))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_410))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" @@ -41744,15 +41760,15 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_209 phase_114 lift-ctx_1)(begin 'pre-wrap s_209)))))" +"(lambda(s_210 phase_115 lift-ctx_1)(begin 'pre-wrap s_210)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_412 phase_115 lift-ctx_2)(begin 'shift-wrap s_412)))))" +"(lambda(s_412 phase_116 lift-ctx_2)(begin 'shift-wrap s_412)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_323 phase_116 lift-ctx_3)(begin 'post-wrap s_323)))))" +"(lambda(s_323 phase_117 lift-ctx_3)(begin 'post-wrap s_323)))))" "(let-values()" "(let-values((()" "(begin" @@ -41776,13 +41792,13 @@ static const char *startup_source = " \"form to lift\"" " s_411)))" "(values))))" -"(let-values(((phase_117)(expand-context-phase ctx_59)))" +"(let-values(((phase_118)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" "(if intro?_0(flip-introduction-scopes s_411 ctx_59) s_411)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_117 lift-ctx_4)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_117)" +"(let-values(((start_41) phase_118)" "((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -41847,11 +41863,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_1)" -"(lambda(s_416 phase_118 require-lift-ctx_0)" +"(lambda(s_416 phase_119 require-lift-ctx_0)" "(require-spec-shift-for-syntax s_416)))" "((temp127_1)" -"(lambda(s_116 phase_119 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_116 sc_33) phase_119))))" +"(lambda(s_116 phase_120 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_116 sc_33) phase_120))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -41898,10 +41914,10 @@ static const char *startup_source = "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_417 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_417 #f)))" +"(lambda(s_417 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_417 #f)))" "((temp136_0)" -"(lambda(s_418 phase_121 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_418 phase_121))))" +"(lambda(s_418 phase_122 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_418 phase_122))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -41939,13 +41955,13 @@ static const char *startup_source = "((temp142_0)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" "((temp144_1)" -"(lambda(orig-s_32 phase_122 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_123 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_32 phase_122)" +"(wrap-form '#%expression orig-s_32 phase_123)" " orig-s_32)))" "((temp145_2)" -"(lambda(s_223 phase_123 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_223 phase_123))))" +"(lambda(s_224 phase_124 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_224 phase_124))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -41969,11 +41985,11 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_225 phase_124)" +"(lambda(sym_66 s_226 phase_125)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_225)))))" +"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_226)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42049,29 +42065,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_200 i_169)" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_202 i_168)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((phase_125 ids_27)" -"(hash-iterate-key+value ht_141 i_169)))" -"(let-values(((fold-var_258)" -"(let-values(((fold-var_259) fold-var_200))" -"(let-values(((fold-var_260)" +"(if i_168" +"(let-values(((phase_126 ids_27)" +"(hash-iterate-key+value ht_141 i_168)))" +"(let-values(((fold-var_259)" +"(let-values(((fold-var_260) fold-var_202))" +"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" -"(cons phase_125 ids_27))" -" fold-var_259))))" -"(values fold-var_260)))))" +"(cons phase_126 ids_27))" +" fold-var_260))))" +"(values fold-var_261)))))" "(if(not #f)" -"(for-loop_262" -" fold-var_258" -"(hash-iterate-next ht_141 i_169))" -" fold-var_258)))" -" fold-var_200)))))" -" for-loop_262)" +"(for-loop_261" +" fold-var_259" +"(hash-iterate-next ht_141 i_168))" +" fold-var_259)))" +" fold-var_202)))))" +" for-loop_261)" " null" "(hash-iterate-first ht_141)))))" " #f)))))))))))))" @@ -42079,15 +42095,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_300) requireds_1))" +"(let-values(((lst_299) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_263)" -"(lambda(ht_142 lst_301)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_262)" +"(lambda(ht_142 lst_300)" "(begin" " 'for-loop" -"(if(pair? lst_301)" -"(let-values(((r_43)(unsafe-car lst_301))((rest_166)(unsafe-cdr lst_301)))" +"(if(pair? lst_300)" +"(let-values(((r_43)(unsafe-car lst_300))((rest_168)(unsafe-cdr lst_300)))" "(let-values(((ht_143)" "(let-values(((ht_144) ht_142))" "(let-values(((ht_145)" @@ -42098,11 +42114,11 @@ static const char *startup_source = "(lambda(l_68)(cons(required-id r_43) l_68))" " null))))" "(values ht_145)))))" -"(if(not #f)(for-loop_263 ht_143 rest_166) ht_143)))" +"(if(not #f)(for-loop_262 ht_143 rest_168) ht_143)))" " ht_142)))))" -" for-loop_263)" +" for-loop_262)" "(hasheqv)" -" lst_300))))))" +" lst_299))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42148,21 +42164,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_261 i_12)" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_262 i_12)" "(begin" " 'for-loop" "(if i_12" -"(let-values(((phase_126 syms_22)" +"(let-values(((phase_127 syms_22)" "(hash-iterate-key+value ht_146 i_12)))" -"(let-values(((fold-var_262)" -"(let-values(((fold-var_263) fold-var_261))" -"(let-values(((fold-var_264)" +"(let-values(((fold-var_263)" +"(let-values(((fold-var_264) fold-var_262))" +"(let-values(((fold-var_265)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_126" +" phase_127" "(reverse$1" "(let-values(((ht_147)" " syms_22))" @@ -42173,47 +42189,47 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_147)))" -"((letrec-values(((for-loop_265)" -"(lambda(fold-var_265" -" i_170)" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_266" +" i_169)" "(begin" " 'for-loop" -"(if i_170" +"(if i_169" "(let-values(((sym_67)" "(hash-iterate-key" " ht_147" -" i_170)))" -"(let-values(((fold-var_266)" +" i_169)))" "(let-values(((fold-var_267)" -" fold-var_265))" "(let-values(((fold-var_268)" +" fold-var_266))" +"(let-values(((fold-var_269)" "(let-values()" "(cons" "(let-values()" " sym_67)" -" fold-var_267))))" +" fold-var_268))))" "(values" -" fold-var_268)))))" +" fold-var_269)))))" "(if(not" " #f)" -"(for-loop_265" -" fold-var_266" +"(for-loop_264" +" fold-var_267" "(hash-iterate-next" " ht_147" -" i_170))" -" fold-var_266)))" -" fold-var_265)))))" -" for-loop_265)" +" i_169))" +" fold-var_267)))" +" fold-var_266)))))" +" for-loop_264)" " null" "(hash-iterate-first" " ht_147)))))))" -" fold-var_263))))" -"(values fold-var_264)))))" +" fold-var_264))))" +"(values fold-var_265)))))" "(if(not #f)" -"(for-loop_264 fold-var_262(hash-iterate-next ht_146 i_12))" -" fold-var_262)))" -" fold-var_261)))))" -" for-loop_264)" +"(for-loop_263 fold-var_263(hash-iterate-next ht_146 i_12))" +" fold-var_263)))" +" fold-var_262)))))" +" for-loop_263)" " null" "(hash-iterate-first ht_146))))))))))))))))" "(define-values" @@ -42233,28 +42249,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_266)" -"(lambda(fold-var_269 i_171)" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_270 i_170)" "(begin" " 'for-loop" -"(if i_171" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_171)))" -"(let-values(((fold-var_270)" -"(let-values(((fold-var_271) fold-var_269))" +"(if i_170" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_170)))" +"(let-values(((fold-var_271)" +"(let-values(((fold-var_272) fold-var_270))" "(if(eq? kind_7 'module)" -"(let-values(((fold-var_272) fold-var_271))" -"(let-values(((fold-var_273)" +"(let-values(((fold-var_273) fold-var_272))" +"(let-values(((fold-var_274)" "(let-values()" "(cons" "(let-values() name_61)" +" fold-var_273))))" +"(values fold-var_274)))" " fold-var_272))))" -"(values fold-var_273)))" -" fold-var_271))))" "(if(not #f)" -"(for-loop_266 fold-var_270(hash-iterate-next ht_148 i_171))" -" fold-var_270)))" -" fold-var_269)))))" -" for-loop_266)" +"(for-loop_265 fold-var_271(hash-iterate-next ht_148 i_170))" +" fold-var_271)))" +" fold-var_270)))))" +" for-loop_265)" " null" "(hash-iterate-first ht_148))))))))))))" "(define-values" @@ -42263,39 +42279,39 @@ static const char *startup_source = "(lambda(id59_0 only-generated?57_0 only-generated?58_0)" "(begin" " 'syntax-local-get-shadower60" -"(let-values(((id_89) id59_0))" +"(let-values(((id_90) id59_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_89)" +"(if(identifier? id_90)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_89)))" +" id_90)))" "(values))))" "(let-values(((ctx_66)" "(let-values(((who155_0) 'syntax-local-get-shadower))" "(get-current-expand-context17.1 #f #f who155_0 #t))))" -"(let-values(((new-id_0)(add-scopes id_89(expand-context-scopes ctx_66))))" -"(if(syntax-clean? id_89) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((new-id_0)(add-scopes id_90(expand-context-scopes ctx_66))))" +"(if(syntax-clean? id_90) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" -"((id_90)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_90 #f #f)))" -"((id_91 only-generated?57_1)(syntax-local-get-shadower60_0 id_91 only-generated?57_1 #t)))))" +"((id_91)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_91 #f #f)))" +"((id_92 only-generated?57_1)(syntax-local-get-shadower60_0 id_92 only-generated?57_1 #t)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_181)" +"(lambda(s_182)" "(let-values((()" "(begin" -" (if (syntax?$1 s_181) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_181)))" +" (if (syntax?$1 s_182) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_182)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_181)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_182)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -42377,14 +42393,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_181)" +"(lambda(s_182)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_181) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_181)))" -"(syntax->datum$1 s_181)))))))" +" (if (syntax?$1 s_182) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_182)))" +"(syntax->datum$1 s_182)))))))" "(define-values(maybe-syntax->datum)(lambda(s_69)(begin(if(syntax?$1 s_69)(syntax->datum$1 s_69) s_69))))" "(define-values" "(1/datum->syntax)" @@ -42393,7 +42409,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_169) s8_0))" +"(let-values(((s_170) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -42431,10 +42447,10 @@ static const char *startup_source = "(if or-part_295 or-part_295(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_169(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_170(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" -"((stx-c_5 s_298)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_298 #f #f #f #f #f #f)))" -"((stx-c_6 s_172 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_172 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_5 s_299)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_299 #f #f #f #f #f #f)))" +"((stx-c_6 s_173 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_173 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_72 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_72 stx-l_4 stx-p2_1 #f #t #t #f))" "((stx-c_8 s_420 stx-l1_1)(datum->syntax9_0 stx-c_8 s_420 stx-l1_1 #f #f #t #f #f)))))" "(define-values" @@ -42464,8 +42480,8 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_78) b14_0))" -"(let-values(((phase_127)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((b_80) b14_0))" +"(let-values(((phase_128)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42473,16 +42489,16 @@ static const char *startup_source = "(if(identifier? a_53)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" -"(if(identifier? b_78)" +"(if(identifier? b_80)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_78)))" -"(if(phase? phase_127)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_80)))" +"(if(phase? phase_128)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_127)))" -"(bound-identifier=?$1 a_53 b_78 phase_127))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_128)))" +"(bound-identifier=?$1 a_53 b_80 phase_128))))))))))))" "(case-lambda" "((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" -"((a_55 b_79 phase11_1)(bound-identifier=?15_0 a_55 b_79 phase11_1 #t)))))" +"((a_55 b_81 phase11_1)(bound-identifier=?15_0 a_55 b_81 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" @@ -42490,7 +42506,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_80) b22_0))" +"(let-values(((b_82) b22_0))" "(let-values(((a-phase_1)(if a-phase19_0 a-phase17_0(1/syntax-local-phase-level))))" "(let-values(((b-phase_1)(if b-phase20_0 b-phase18_0 a-phase_1)))" "(let-values()" @@ -42500,23 +42516,23 @@ static const char *startup_source = "(if(identifier? a_56)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_80)" +"(if(identifier? b_82)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_80)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_82)))" "(if(phase? a-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_56 b_80 a-phase_1 b-phase_1)))))))))))))" +"(free-identifier=?$1 a_56 b_82 a-phase_1 b-phase_1)))))))))))))" "(case-lambda" -"((a_57 b_81)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_81 #f #f #f #f)))" -"((a_58 b_82 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_82 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_83 a-phase17_1)(free-identifier=?23_0 a_59 b_83 a-phase17_1 #f #t #f)))))" +"((a_57 b_83)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_83 #f #f #f #f)))" +"((a_58 b_84 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_84 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_85 a-phase17_1)(free-identifier=?23_0 a_59 b_85 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_84)" +"(lambda(a_60 b_86)" "(begin" " 'free-transformer-identifier=?" "(let-values()" @@ -42529,15 +42545,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_84)" +"(if(identifier? b_86)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_84)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_86)))" "(values))))" -"(let-values(((phase_128)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_84 phase_128 phase_128)))))))))" +"(let-values(((phase_129)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_86 phase_129 phase_129)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_9 b_85)" +"(lambda(a_9 b_87)" "(begin" " 'free-template-identifier=?" "(let-values()" @@ -42550,15 +42566,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_85)" +"(if(identifier? b_87)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_85)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_87)))" "(values))))" -"(let-values(((phase_129)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_9 b_85 phase_129 phase_129)))))))))" +"(let-values(((phase_130)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_9 b_87 phase_130 phase_130)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_61 b_86)" +"(lambda(a_61 b_88)" "(begin" " 'free-label-identifier=?" "(let-values()" @@ -42567,118 +42583,118 @@ static const char *startup_source = "(if(identifier? a_61)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_61)))" -"(if(identifier? b_86)" +"(if(identifier? b_88)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_86)))" -"(free-identifier=?$1 a_61 b_86 #f #f)))))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_88)))" +"(free-identifier=?$1 a_61 b_88 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" "(lambda(id29_1 phase25_1 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" "(begin" " 'identifier-binding30" -"(let-values(((id_92) id29_1))" +"(let-values(((id_93) id29_1))" "(let-values(((phase_34)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_92)" +"(if(identifier? id_93)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_92)))" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_93)))" "(if(phase? phase_34)" "(void)" "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_34)))" -"(identifier-binding$1 id_92 phase_34 top-level-symbol?_1))))))))))))" +"(identifier-binding$1 id_93 phase_34 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_93)(begin 'identifier-binding(identifier-binding30_0 id_93 #f #f #f #f)))" -"((id_94 phase_130 top-level-symbol?26_1)(identifier-binding30_0 id_94 phase_130 top-level-symbol?26_1 #t #t))" -"((id_95 phase25_2)(identifier-binding30_0 id_95 phase25_2 #f #t #f)))))" +"((id_94)(begin 'identifier-binding(identifier-binding30_0 id_94 #f #f #f #f)))" +"((id_95 phase_131 top-level-symbol?26_1)(identifier-binding30_0 id_95 phase_131 top-level-symbol?26_1 #t #t))" +"((id_96 phase25_2)(identifier-binding30_0 id_96 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding35_0)" "(lambda(id34_1 phase32_1 phase33_1)" "(begin" " 'identifier-transformer-binding35" -"(let-values(((id_96) id34_1))" -"(let-values(((phase_131)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values(((id_97) id34_1))" +"(let-values(((phase_132)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_96)" +"(if(identifier? id_97)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_96)))" -"(identifier-binding$1 id_96(if phase_131(add1 phase_131) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_97)))" +"(identifier-binding$1 id_97(if phase_132(add1 phase_132) #f))))))))))))" "(case-lambda" -"((id_97)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_97 #f #f)))" -"((id_98 phase32_2)(identifier-transformer-binding35_0 id_98 phase32_2 #t)))))" +"((id_98)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_98 #f #f)))" +"((id_99 phase32_2)(identifier-transformer-binding35_0 id_99 phase32_2 #t)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_53)" +"(lambda(id_54)" "(begin" " 'identifier-template-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_53)" +"(if(identifier? id_54)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_53)))" -"(identifier-binding$1 id_53(sub1(1/syntax-local-phase-level)))))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_54)))" +"(identifier-binding$1 id_54(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_99)" +"(lambda(id_100)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_99)" +"(if(identifier? id_100)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_99)))" -"(identifier-binding$1 id_99 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_100)))" +"(identifier-binding$1 id_100 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" "(lambda(id39_0 phase37_2 phase38_0)" "(begin" " 'identifier-binding-symbol40" -"(let-values(((id_100) id39_0))" -"(let-values(((phase_132)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((id_101) id39_0))" +"(let-values(((phase_133)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_100)" +"(if(identifier? id_101)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_100)))" -"(if(phase? phase_132)" +" (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_101)))" +"(if(phase? phase_133)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_132)))" -"(identifier-binding-symbol$1 id_100 phase_132)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_133)))" +"(identifier-binding-symbol$1 id_101 phase_133)))))))))))" "(case-lambda" -"((id_101)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_101 #f #f)))" -"((id_102 phase37_3)(identifier-binding-symbol40_0 id_102 phase37_3 #t)))))" +"((id_102)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_102 #f #f)))" +"((id_103 phase37_3)(identifier-binding-symbol40_0 id_103 phase37_3 #t)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context45_0)" "(lambda(id44_0 syms42_0 syms43_0)" "(begin" " 'identifier-prune-lexical-context45" -"(let-values(((id_103) id44_0))" +"(let-values(((id_104) id44_0))" "(let-values(((syms_23)(if syms43_0 syms42_0 null)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_103)" +"(if(identifier? id_104)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_103)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_104)))" "(if(if(list? syms_23)(andmap2 symbol? syms_23) #f)" "(void)" "(let-values()" @@ -42686,10 +42702,10 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_23)))" -" id_103))))))))))" +" id_104))))))))))" "(case-lambda" -"((id_104)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_104 #f #f)))" -"((id_105 syms42_1)(identifier-prune-lexical-context45_0 id_105 syms42_1 #t)))))" +"((id_105)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_105 #f #f)))" +"((id_106 syms42_1)(identifier-prune-lexical-context45_0 id_106 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" @@ -42697,7 +42713,7 @@ static const char *startup_source = "(begin" " 'syntax-debug-info52" "(let-values(((s_421) s51_1))" -"(let-values(((phase_133)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((phase_134)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(let-values()" @@ -42706,30 +42722,30 @@ static const char *startup_source = "(if(syntax?$1 s_421)" "(void)" " (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_421)))" -"(if(phase? phase_133)" +"(if(phase? phase_134)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_133)))" -"(syntax-debug-info$1 s_421 phase_133 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_134)))" +"(syntax-debug-info$1 s_421 phase_134 all-bindings?_1))))))))))))" "(case-lambda" "((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" -"((s_87 phase_96 all-bindings?48_1)(syntax-debug-info52_0 s_87 phase_96 all-bindings?48_1 #t #t))" +"((s_87 phase_97 all-bindings?48_1)(syntax-debug-info52_0 s_87 phase_97 all-bindings?48_1 #t #t))" "((s_46 phase47_3)(syntax-debug-info52_0 s_46 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_88 phase_134)" +"(lambda(s_88 phase_21)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" " (if (syntax?$1 s_88) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_88)))" -"(if(phase? phase_134)" +"(if(phase? phase_21)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_134)))" -"(syntax-shift-phase-level$1 s_88 phase_134)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_21)))" +"(syntax-shift-phase-level$1 s_88 phase_21)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_106)" +"(lambda(new-stx_8 old-stx_4 id_107)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -42748,11 +42764,11 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_106)" +"(if(identifier? id_107)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_106)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_107)))" "(values))))" -"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_106)))" +"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_107)))" "(let-values(((ctx_67)" "(let-values(((temp73_0) #t))(get-current-expand-context17.1 temp73_0 #t #f #f))))" "(begin" @@ -42856,17 +42872,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_19 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_127)(namespace-phase src-namespace_6)))" +"(let-values(((phase_128)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_127(namespace-phase dest-namespace_2))" +"(if(eqv? phase_128(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_19" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_127" +" phase_128" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43130,11 +43146,11 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_224))" -"((rest_167)" +"((rest_169)" "(unsafe-cdr" " lst_224)))" "(let-values((()" -"(let-values(((lst_177)" +"(let-values(((lst_178)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43143,7 +43159,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_177)))" +" lst_178)))" "((letrec-values(((for-loop_29)" "(lambda(lst_277)" "(begin" @@ -43153,7 +43169,7 @@ static const char *startup_source = "(let-values(((req_5)" "(unsafe-car" " lst_277))" -"((rest_151)" +"((rest_153)" "(unsafe-cdr" " lst_277)))" "(let-values((()" @@ -43179,21 +43195,21 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_29" -" rest_151)" +" rest_153)" "(values))))" "(values))))))" " for-loop_29)" -" lst_177)))))" +" lst_178)))))" "(if(not" " #f)" "(for-loop_17" -" rest_167)" +" rest_169)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_302)" +"(let-values(((lst_301)" "(module-submodule-names" " m_20)))" "(begin" @@ -43202,19 +43218,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_302)))" -"((letrec-values(((for-loop_267)" -"(lambda(lst_303)" +" lst_301)))" +"((letrec-values(((for-loop_266)" +"(lambda(lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_303)" +" lst_302)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_303))" -"((rest_168)" +" lst_302))" +"((rest_170)" "(unsafe-cdr" -" lst_303)))" +" lst_302)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43235,12 +43251,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_267" -" rest_168)" +"(for-loop_266" +" rest_170)" "(values))))" "(values))))))" -" for-loop_267)" -" lst_302)))" +" for-loop_266)" +" lst_301)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43261,9 +43277,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_127" +" phase_128" " attach-instances?_0" -" phase_127)" +" phase_128)" "(values))))" "(let-values((()" "(begin" @@ -43273,14 +43289,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_150)))" "((letrec-values(((for-loop_109)" -"(lambda(i_172)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_172" +"(if i_171" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" " ht_150" -" i_172)))" +" i_171)))" "(let-values((()" "(let-values(((ht_151)" " phases_0))" @@ -43291,16 +43307,16 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_151)))" -"((letrec-values(((for-loop_268)" -"(lambda(i_173)" +"((letrec-values(((for-loop_267)" +"(lambda(i_172)" "(begin" " 'for-loop" -"(if i_173" +"(if i_172" "(let-values(((phase_136" " m-ns_15)" "(hash-iterate-key+value" " ht_151" -" i_173)))" +" i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43373,18 +43389,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_267" "(hash-iterate-next" " ht_151" -" i_173))" +" i_172))" "(values))))" "(values))))))" -" for-loop_268)" +" for-loop_267)" "(hash-iterate-first" " ht_151))))))" "(if(not #f)" "(for-loop_109" -"(hash-iterate-next ht_150 i_172))" +"(hash-iterate-next ht_150 i_171))" "(values))))" "(values))))))" " for-loop_109)" @@ -43405,13 +43421,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_52)))" -"((letrec-values(((for-loop_177)" -"(lambda(i_174)" +"((letrec-values(((for-loop_176)" +"(lambda(i_173)" "(begin" " 'for-loop" -"(if i_174" +"(if i_173" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_52 i_174)))" +"(hash-iterate-key ht_52 i_173)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43424,11 +43440,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_177" -"(hash-iterate-next ht_52 i_174))" +"(for-loop_176" +"(hash-iterate-next ht_52 i_173))" "(values))))" "(values))))))" -" for-loop_177)" +" for-loop_176)" "(hash-iterate-first ht_52))))" "(void))))))))))))))))))))))))" "(define-values" @@ -43484,39 +43500,39 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_152)))" "((letrec-values(((for-loop_211)" -"(lambda(fold-var_274 i_175)" +"(lambda(fold-var_275 i_174)" "(begin" " 'for-loop" -"(if i_175" +"(if i_174" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" " ht_152" -" i_175)))" -"(let-values(((fold-var_217)" -"(let-values(((fold-var_218)" -" fold-var_274))" +" i_174)))" +"(let-values(((fold-var_219)" +"(let-values(((fold-var_220)" +" fold-var_275))" "(if(equal?" " sc_34" " post-scope_1)" -" fold-var_218" -"(let-values(((fold-var_219)" -" fold-var_218))" +" fold-var_220" +"(let-values(((fold-var_221)" +" fold-var_220))" "(let-values(((fold-var_65)" "(let-values()" "(cons" "(let-values()" " sc_34)" -" fold-var_219))))" +" fold-var_221))))" "(values" " fold-var_65)))))))" "(if(not #f)" "(for-loop_211" -" fold-var_217" +" fold-var_219" "(unsafe-immutable-hash-iterate-next" " ht_152" -" i_175))" -" fold-var_217)))" -" fold-var_274)))))" +" i_174))" +" fold-var_219)))" +" fold-var_275)))))" " for-loop_211)" " null" "(unsafe-immutable-hash-iterate-first ht_152)))))))" @@ -43569,7 +43585,7 @@ static const char *startup_source = "((s_72 ns1_4)(namespace-syntax-introduce4_0 s_72 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_173)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_173)))))" +"(lambda(s_174)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_174)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -43901,15 +43917,15 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_16)(1/datum->syntax #f sym_69)))" -"(let-values(((b_87)" +"(let-values(((id_18)(1/datum->syntax #f sym_69)))" +"(let-values(((b_89)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_16 ns_81)" +"(1/namespace-syntax-introduce id_18 ns_81)" "(namespace-phase ns_81)" " ns_81)))" "(let-values((()" "(begin" -"(if b_87" +"(if b_89" "(let-values()" "(namespace-visit-available-modules!" " ns_81))" @@ -43919,15 +43935,15 @@ static const char *startup_source = " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_87" -"(let-values(((b131_0) b_87)" +"(if b_89" +"(let-values(((b131_0) b_89)" "((empty-env132_0)" " empty-env)" "((null133_0) null)" "((ns134_0) ns_81)" "((temp135_1)" "(namespace-phase ns_81))" -"((id136_0) id_16))" +"((id136_0) id_18))" "(binding-lookup50.1" " #f" " #f" @@ -43958,19 +43974,19 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_87)" +"(if(module-binding? b_89)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_87))" +"(module-binding-module b_89))" " ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_87" +" b_89" " ns_81" "(namespace-phase ns_81)" -" id_16)))" -"(module-binding-phase b_87)" -"(module-binding-sym b_87))" +" id_18)))" +"(module-binding-phase b_89)" +"(module-binding-sym b_89))" "(values" " ns_81" "(namespace-phase ns_81)" @@ -43983,9 +43999,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_281) failure-thunk_5))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_280) failure-thunk_5))" +"(if or-part_280" +" or-part_280" "(raise" "(exn:fail:contract:variable" "(format" @@ -44041,8 +44057,8 @@ static const char *startup_source = "(namespace-phase ns_82)" " sym_74)" "(values))))" -"(let-values(((id_107)(1/datum->syntax #f sym_74)))" -"(let-values(((temp138_1)(1/namespace-syntax-introduce id_107 ns_82))" +"(let-values(((id_108)(1/datum->syntax #f sym_74)))" +"(let-values(((temp138_1)(1/namespace-syntax-introduce id_108 ns_82))" "((temp139_1)" "(let-values(((temp141_2)(namespace-mpi ns_82))" "((temp142_1)(namespace-phase ns_82))" @@ -44149,29 +44165,29 @@ static const char *startup_source = "(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_170) s5_2))" +"(let-values(((s_171) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" "(lambda(s_424 ns_87)(begin 'compile(1/compile s_424 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_293)(compiled-in-memory? s_170)))" +"(if(let-values(((or-part_293)(compiled-in-memory? s_171)))" "(if or-part_293" " or-part_293" -"(let-values(((or-part_294)(1/linklet-directory? s_170)))" -"(if or-part_294 or-part_294(1/linklet-bundle? s_170)))))" -"(let-values()(eval-compiled s_170 ns_43))" -"(if(if(syntax?$1 s_170)" -"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_170))))" +"(let-values(((or-part_294)(1/linklet-directory? s_171)))" +"(if or-part_294 or-part_294(1/linklet-bundle? s_171)))))" +"(let-values()(eval-compiled s_171 ns_43))" +"(if(if(syntax?$1 s_171)" +"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_171))))" "(if or-part_295" " or-part_295" -"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_170))))" -"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_170))))))" +"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_171))))" +"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_171))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_170) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_171) ns_43))" "(let-values()" -"(let-values(((s80_0) s_170)" +"(let-values(((s80_0) s_171)" "((ns81_0) ns_43)" "((temp82_3)" "(lambda(s_425 ns_88 tail?_1)" @@ -44194,8 +44210,8 @@ static const char *startup_source = " ns81_0)))))))))))))" "(case-lambda" "((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_173 ns_53 compile2_1)(eval6_0 s_173 ns_53 compile2_1 #t #t))" -"((s_158 ns1_6)(eval6_0 s_158 ns1_6 #f #t #f)))))" +"((s_174 ns_53 compile2_1)(eval6_0 s_174 ns_53 compile2_1 #t #t))" +"((s_159 ns1_6)(eval6_0 s_159 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -44228,21 +44244,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_178) s22_0))" +"(let-values(((s_179) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_178)" -"(let-values()(list s_178))" -"(if(if(syntax?$1 s_178)" -"(1/compiled-expression?(1/syntax-e s_178))" +"(if(1/compiled-expression? s_179)" +"(let-values()(list s_179))" +"(if(if(syntax?$1 s_179)" +"(1/compiled-expression?(1/syntax-e s_179))" " #f)" -"(let-values()(list(1/syntax-e s_178)))" +"(let-values()(list(1/syntax-e s_179)))" "(let-values()" -"(let-values(((s86_0) s_178)" +"(let-values(((s86_0) s_179)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44285,12 +44301,12 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_185)(begin 'compile(compile23_0 s_185 #f #f #f #f #f #f #f #f)))" +"((s_186)(begin 'compile(compile23_0 s_186 #f #f #f #f #f #f #f #f)))" "((s_426 ns_93 serializable?_5 expand_1 to-source?17_1)" "(compile23_0 s_426 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" -"((s_427 ns14_3)(compile23_0 s_427 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_149 ns14_3)(compile23_0 s_149 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" @@ -44301,8 +44317,8 @@ static const char *startup_source = "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_404 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_428)(begin(compile-to-linklets28_0 s_428 #f #f)))" -"((s_301 ns25_1)(compile-to-linklets28_0 s_301 ns25_1 #t)))))" +"((s_427)(begin(compile-to-linklets28_0 s_427 #f #f)))" +"((s_302 ns25_1)(compile-to-linklets28_0 s_302 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -44365,27 +44381,27 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_291)" +"(let-values(((lst_290)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_168)" +"(lambda(fold-var_0 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_168)" +"(if(pair? lst_169)" "(let-values(((e_76)" -"(unsafe-car lst_168))" -"((rest_162)" -"(unsafe-cdr lst_168)))" +"(unsafe-car lst_169))" +"((rest_163)" +"(unsafe-cdr lst_169)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" -"(let-values(((fold-var_236)" +"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" @@ -44393,14 +44409,14 @@ static const char *startup_source = " e_76))" " fold-var_3))))" "(values" -" fold-var_236)))))" +" fold-var_238)))))" "(if(not #f)" -"(for-loop_6 fold-var_2 rest_162)" +"(for-loop_6 fold-var_2 rest_163)" " fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_291)))))" +" lst_290)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" @@ -44447,7 +44463,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_429) s39_1))" +"(let-values(((s_428) s39_1))" "(let-values(((ns_98)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" @@ -44463,12 +44479,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_429)" +"(let-values(((s108_0) s_428)" "((ns109_1) ns_98)" "((temp110_0)" -"(lambda(s_430 ns_99 as-tail?_5)" +"(lambda(s_429 ns_99 as-tail?_5)" "(expand-single" -" s_430" +" s_429" " ns_99" " observer_2" " to-parsed?_2" @@ -44492,24 +44508,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_299)(begin 'expand(expand40_0 s_299 #f #f #f #f #f #f #f #f)))" -"((s_431 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_431 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_432 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_432 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_300)(begin 'expand(expand40_0 s_300 #f #f #f #f #f #f #f #f)))" +"((s_430 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_430 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_431 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_431 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" "((s_387 ns31_4)(expand40_0 s_387 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_433 ns_103 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_432 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_433)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_432)))" "(let-values(((ctx_68)" "(let-values(((ns114_0) ns_103)" "((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" "(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" -"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_433 ctx_68)))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_432 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44588,7 +44604,7 @@ static const char *startup_source = "(let-values(((s128_0) s_389)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_434 ns_105 as-tail?_6)(expand-single-once s_434 ns_105)))" +"(lambda(s_433 ns_105 as-tail?_6)(expand-single-once s_433 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -44609,15 +44625,15 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_435)(begin 'expand-once(expand-once45_0 s_435 #f #f)))" -"((s_436 ns42_2)(expand-once45_0 s_436 ns42_2 #t)))))" +"((s_434)(begin 'expand-once(expand-once45_0 s_434 #f #f)))" +"((s_435 ns42_2)(expand-once45_0 s_435 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_437 ns_106)" +"(lambda(s_436 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_437" +" s_436" "(let-values(((v_191)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" @@ -44687,7 +44703,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_321) s49_0))" +"(let-values(((s_150) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44700,7 +44716,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_321)" +"(let-values(((s141_0) s_150)" "((ns142_0) ns_84)" "((temp143_0) #f)" "((temp144_2) #f)" @@ -44721,8 +44737,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_438)(begin 'expand-to-top-form(expand-to-top-form50_0 s_438 #f #f)))" -"((s_210 ns47_3)(expand-to-top-form50_0 s_210 ns47_3 #t)))))" +"((s_437)(begin 'expand-to-top-form(expand-to-top-form50_0 s_437 #f #f)))" +"((s_211 ns47_3)(expand-to-top-form50_0 s_211 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44757,7 +44773,7 @@ static const char *startup_source = "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" "(let-values(((phase_137)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_212 phase_138 ns_108 as-tail?_7)" +"(lambda(s_213 phase_138 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -44860,7 +44876,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_41))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_212 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_213 #f)))" "(let-values((()" "(begin" "(let-values(((obs_43)" @@ -44872,12 +44888,12 @@ static const char *startup_source = "(call-expand-observe" " obs_43" " 'visit" -" s_212)))" +" s_213)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" -" s_212" +" s_213" "(let-values(((v_192) tl-ctx_0))" "(let-values(((the-struct_72) v_192))" "(if(expand-context/outer? the-struct_72)" @@ -44886,68 +44902,68 @@ static const char *startup_source = "((def-ctx-scopes154_0)" "(box null))" "((inner155_0)" -"(let-values(((the-struct_33)" +"(let-values(((the-struct_73)" "(root-expand-context/outer-inner" " v_192)))" "(if(expand-context/inner?" -" the-struct_33)" +" the-struct_73)" "(let-values(((phase156_1)" " phase_138)" "((namespace157_0)" " ns_108))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_33)" +" the-struct_73)" "(root-expand-context/inner-module-scopes" -" the-struct_33)" +" the-struct_73)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_33)" +" the-struct_73)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_33)" +" the-struct_73)" "(root-expand-context/inner-defined-syms" -" the-struct_33)" +" the-struct_73)" "(root-expand-context/inner-counter" -" the-struct_33)" +" the-struct_73)" "(root-expand-context/inner-lift-key" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-to-parsed?" -" the-struct_33)" +" the-struct_73)" " phase156_1" " namespace157_0" "(expand-context/inner-just-once?" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-module-begin-k" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-allow-unbound?" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-in-local-expand?" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-stops" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-declared-submodule-names" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-lifts" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-lift-envs" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-module-lifts" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-require-lifts" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-to-module-lifts" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-requires+provides" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-observer" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-for-serializable?" -" the-struct_33)" +" the-struct_73)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_33)))" +" the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_33)))))" +" the-struct_73)))))" "(expand-context/outer1.1" " inner155_0" "(root-expand-context/outer-post-expansion-scope" @@ -45058,18 +45074,18 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_439)" +"(let-values(((s_438)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_439))" +" s_438))" "(let-values(((begin161_1" " e162_1)" "(let-values(((s_417)" "(if(syntax?$1" -" s_439)" +" s_438)" "(syntax-e$1" -" s_439)" -" s_439)))" +" s_438)" +" s_438)))" "(if(pair?" " s_417)" "(let-values(((begin163_0)" @@ -45078,15 +45094,15 @@ static const char *startup_source = " s_417)))" " s_418))" "((e164_0)" -"(let-values(((s_440)" +"(let-values(((s_439)" "(cdr" " s_417)))" "(let-values(((s_122)" "(if(syntax?$1" -" s_440)" +" s_439)" "(syntax-e$1" -" s_440)" -" s_440)))" +" s_439)" +" s_439)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" " s_122)))" @@ -45211,30 +45227,30 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_225)" +"(let-values(((s_226)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_225))" +" s_226))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_226)" +"(let-values(((s_227)" "(if(syntax?$1" -" s_225)" -"(syntax-e$1" -" s_225)" -" s_225)))" -"(if(pair?" " s_226)" -"(let-values(((begin-for-syntax167_0)" -"(let-values(((s_228)" -"(car" +"(syntax-e$1" +" s_226)" " s_226)))" -" s_228))" +"(if(pair?" +" s_227)" +"(let-values(((begin-for-syntax167_0)" +"(let-values(((s_229)" +"(car" +" s_227)))" +" s_229))" "((e168_0)" "(let-values(((s_328)" "(cdr" -" s_226)))" -"(let-values(((s_229)" +" s_227)))" +"(let-values(((s_230)" "(if(syntax?$1" " s_328)" "(syntax-e$1" @@ -45242,7 +45258,7 @@ static const char *startup_source = " s_328)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_229)))" +" s_230)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45297,7 +45313,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_304)" +"(let-values(((lst_303)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45305,24 +45321,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_304)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_275" -" lst_305)" +" lst_303)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_276" +" lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_305)" +" lst_304)" "(let-values(((s_332)" "(unsafe-car" -" lst_305))" -"((rest_169)" +" lst_304))" +"((rest_171)" "(unsafe-cdr" -" lst_305)))" -"(let-values(((fold-var_201)" -"(let-values(((fold-var_202)" -" fold-var_275))" -"(let-values(((fold-var_276)" +" lst_304)))" +"(let-values(((fold-var_203)" +"(let-values(((fold-var_204)" +" fold-var_276))" +"(let-values(((fold-var_277)" "(let-values()" "(cons" "(let-values()" @@ -45342,19 +45358,19 @@ static const char *startup_source = " next-phase_0" " next-ns_0" " #f)))" -" fold-var_202))))" +" fold-var_204))))" "(values" -" fold-var_276)))))" +" fold-var_277)))))" "(if(not" " #f)" -"(for-loop_269" -" fold-var_201" -" rest_169)" -" fold-var_201)))" -" fold-var_275)))))" -" for-loop_269)" +"(for-loop_268" +" fold-var_203" +" rest_171)" +" fold-var_203)))" +" fold-var_276)))))" +" for-loop_268)" " null" -" lst_304))))))" +" lst_303))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45394,15 +45410,15 @@ static const char *startup_source = " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_441 ns_109)" -"(begin(if(syntax?$1 s_441) s_441(1/namespace-syntax-introduce(1/datum->syntax #f s_441) ns_109)))))" +"(lambda(s_440 ns_109)" +"(begin(if(syntax?$1 s_440) s_440(1/namespace-syntax-introduce(1/datum->syntax #f s_440) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_442 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_442)(cons form-id_0 r_44) s_442 s_442) s_442))))" +"(lambda(form-id_0 s_441 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_441)(cons form-id_0 r_44) s_441 s_441) s_441))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_443 ctx_70)" +"(lambda(s_442 ctx_70)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_70)))" @@ -45415,83 +45431,83 @@ static const char *startup_source = "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_443)" +"(let-values(((s170_0) s_442)" "((temp171_0)" "(let-values(((v_193) ctx_70))" -"(let-values(((the-struct_73) v_193))" -"(if(expand-context/outer? the-struct_73)" +"(let-values(((the-struct_74) v_193))" +"(if(expand-context/outer? the-struct_74)" "(let-values(((inner172_1)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_75)" "(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_74)" +"(if(expand-context/inner? the-struct_75)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" "((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-module-scopes" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-defined-syms" -" the-struct_74)" -"(root-expand-context/inner-counter the-struct_74)" +" the-struct_75)" +"(root-expand-context/inner-counter the-struct_75)" "(root-expand-context/inner-lift-key" -" the-struct_74)" -"(expand-context/inner-to-parsed? the-struct_74)" -"(expand-context/inner-phase the-struct_74)" -"(expand-context/inner-namespace the-struct_74)" -"(expand-context/inner-just-once? the-struct_74)" +" the-struct_75)" +"(expand-context/inner-to-parsed? the-struct_75)" +"(expand-context/inner-phase the-struct_75)" +"(expand-context/inner-namespace the-struct_75)" +"(expand-context/inner-just-once? the-struct_75)" "(expand-context/inner-module-begin-k" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-allow-unbound?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-in-local-expand?" -" the-struct_74)" -"(expand-context/inner-stops the-struct_74)" +" the-struct_75)" +"(expand-context/inner-stops the-struct_75)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_75)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_74)" +"(expand-context/inner-lift-envs the-struct_75)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-requires+provides" -" the-struct_74)" -"(expand-context/inner-observer the-struct_74)" +" the-struct_75)" +"(expand-context/inner-observer the-struct_75)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" +" the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner172_1" -"(root-expand-context/outer-post-expansion-scope the-struct_73)" -"(root-expand-context/outer-use-site-scopes the-struct_73)" -"(root-expand-context/outer-frame-id the-struct_73)" -"(expand-context/outer-context the-struct_73)" -"(expand-context/outer-env the-struct_73)" -"(expand-context/outer-post-expansion-scope-action the-struct_73)" -"(expand-context/outer-scopes the-struct_73)" -"(expand-context/outer-def-ctx-scopes the-struct_73)" -"(expand-context/outer-binding-layer the-struct_73)" -"(expand-context/outer-reference-records the-struct_73)" -"(expand-context/outer-only-immediate? the-struct_73)" -"(expand-context/outer-need-eventually-defined the-struct_73)" -"(expand-context/outer-current-introduction-scopes the-struct_73)" -"(expand-context/outer-name the-struct_73)))" +"(root-expand-context/outer-post-expansion-scope the-struct_74)" +"(root-expand-context/outer-use-site-scopes the-struct_74)" +"(root-expand-context/outer-frame-id the-struct_74)" +"(expand-context/outer-context the-struct_74)" +"(expand-context/outer-env the-struct_74)" +"(expand-context/outer-post-expansion-scope-action the-struct_74)" +"(expand-context/outer-scopes the-struct_74)" +"(expand-context/outer-def-ctx-scopes the-struct_74)" +"(expand-context/outer-binding-layer the-struct_74)" +"(expand-context/outer-reference-records the-struct_74)" +"(expand-context/outer-only-immediate? the-struct_74)" +"(expand-context/outer-need-eventually-defined the-struct_74)" +"(expand-context/outer-current-introduction-scopes the-struct_74)" +"(expand-context/outer-name the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_73))))))" +" the-struct_74))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45501,31 +45517,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_444 phase_139)" +"(lambda(s_443 phase_139)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_445)(syntax-disarm$1 s_444)))" -"(let-values(((orig-s_35) s_445))" +"(let-values(((s_444)(syntax-disarm$1 s_443)))" +"(let-values(((orig-s_35) s_444))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_248)(if(syntax?$1 s_445)(syntax-e$1 s_445) s_445)))" -"(if(pair? s_248)" -"(let-values(((#%require178_0)(let-values(((s_249)(car s_248))) s_249))" +"(let-values(((s_249)(if(syntax?$1 s_444)(syntax-e$1 s_444) s_444)))" +"(if(pair? s_249)" +"(let-values(((#%require178_0)(let-values(((s_250)(car s_249))) s_250))" "((req179_0)" -"(let-values(((s_250)(cdr s_248)))" -"(let-values(((s_251)" -"(if(syntax?$1 s_250)" -"(syntax-e$1 s_250)" -" s_250)))" -"(if(pair? s_251)" +"(let-values(((s_251)(cdr s_249)))" +"(let-values(((s_252)" +"(if(syntax?$1 s_251)" +"(syntax-e$1 s_251)" +" s_251)))" +"(if(pair? s_252)" "(let-values(((req180_0)" -"(let-values(((s_446)(car s_251)))" -" s_446))" +"(let-values(((s_445)(car s_252)))" +" s_445))" "(()" -"(let-values(((s_447)(cdr s_251)))" -"(let-values(((s_448)" -"(if(syntax?$1 s_447)" -"(syntax-e$1 s_447)" -" s_447)))" -"(if(null? s_448)" +"(let-values(((s_446)(cdr s_252)))" +"(let-values(((s_447)" +"(if(syntax?$1 s_446)" +"(syntax-e$1 s_446)" +" s_446)))" +"(if(null? s_447)" "(values)" "(raise-syntax-error$1" " #f" @@ -45537,7 +45553,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_444)" +"((s182_0) s_443)" "((ns183_0) ns_111)" "((phase184_1) phase_139)" "((phase185_1) phase_139)" @@ -45582,48 +45598,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_306) require-lifts_6))" +"(let-values(((lst_305) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_306)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_277 lst_307)" +"(let-values()(check-list lst_305)))" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_278 lst_306)" "(begin" " 'for-loop" -"(if(pair? lst_307)" -"(let-values(((req_19)(unsafe-car lst_307))" -"((rest_170)(unsafe-cdr lst_307)))" -"(let-values(((fold-var_278)" -"(let-values(((fold-var_279) fold-var_277))" -"(let-values(((fold-var_280)" +"(if(pair? lst_306)" +"(let-values(((req_19)(unsafe-car lst_306))" +"((rest_172)(unsafe-cdr lst_306)))" +"(let-values(((fold-var_279)" +"(let-values(((fold-var_280) fold-var_278))" +"(let-values(((fold-var_281)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_279))))" -"(values fold-var_280)))))" -"(if(not #f)(for-loop_270 fold-var_278 rest_170) fold-var_278)))" -" fold-var_277)))))" -" for-loop_270)" +" fold-var_280))))" +"(values fold-var_281)))))" +"(if(not #f)(for-loop_269 fold-var_279 rest_172) fold-var_279)))" +" fold-var_278)))))" +" for-loop_269)" " null" -" lst_306))))" +" lst_305))))" "(reverse$1" -"(let-values(((lst_308)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_307)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_308)))" -"((letrec-values(((for-loop_271)" -"(lambda(fold-var_281 lst_309)" +"(let-values()(check-list lst_307)))" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_282 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_309))" -"((rest_171)(unsafe-cdr lst_309)))" -"(let-values(((fold-var_282)" -"(let-values(((fold-var_283) fold-var_281))" -"(let-values(((fold-var_284)" +"(if(pair? lst_308)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" +"((rest_173)(unsafe-cdr lst_308)))" +"(let-values(((fold-var_283)" +"(let-values(((fold-var_284) fold-var_282))" +"(let-values(((fold-var_285)" "(let-values()" "(cons" "(let-values()" @@ -45647,28 +45663,28 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_75)" +"(let-values(((the-struct_76)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_75)" +" the-struct_76)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_75)" +" the-struct_76)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_75)))" +" the-struct_76)))" " dv_0)))))" -" fold-var_283))))" -"(values fold-var_284)))))" -"(if(not #f)(for-loop_271 fold-var_282 rest_171) fold-var_282)))" -" fold-var_281)))))" -" for-loop_271)" +" fold-var_284))))" +"(values fold-var_285)))))" +"(if(not #f)(for-loop_270 fold-var_283 rest_173) fold-var_283)))" +" fold-var_282)))))" +" for-loop_270)" " null" -" lst_308)))))" +" lst_307)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45692,18 +45708,18 @@ static const char *startup_source = "(if obs_54" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_449) new-s_7))" -"(let-values(((orig-s_36) s_449))" +"(let-values(((s_448) new-s_7))" +"(let-values(((orig-s_36) s_448))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_450)(if(syntax?$1 s_449)(syntax-e$1 s_449) s_449)))" -"(if(pair? s_450)" -"(let-values(((begin195_0)(let-values(((s_451)(car s_450))) s_451))" +"(let-values(((s_449)(if(syntax?$1 s_448)(syntax-e$1 s_448) s_448)))" +"(if(pair? s_449)" +"(let-values(((begin195_0)(let-values(((s_450)(car s_449))) s_450))" "((e196_0)" -"(let-values(((s_452)(cdr s_450)))" +"(let-values(((s_451)(cdr s_449)))" "(let-values(((s_133)" -"(if(syntax?$1 s_452)" -"(syntax-e$1 s_452)" -" s_452)))" +"(if(syntax?$1 s_451)" +"(syntax-e$1 s_451)" +" s_451)))" "(let-values(((flat-s_22)(to-syntax-list.1 s_133)))" "(if(not flat-s_22)" "(let-values()" @@ -45730,19 +45746,19 @@ static const char *startup_source = "(if obs_55" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_453) new-s_8))" -"(let-values(((orig-s_37) s_453))" +"(let-values(((s_452) new-s_8))" +"(let-values(((orig-s_37) s_452))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_454)(if(syntax?$1 s_453)(syntax-e$1 s_453) s_453)))" -"(if(pair? s_454)" -"(let-values(((begin199_0)(let-values(((s_455)(car s_454))) s_455))" +"(let-values(((s_453)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" +"(if(pair? s_453)" +"(let-values(((begin199_0)(let-values(((s_454)(car s_453))) s_454))" "((e200_0)" -"(let-values(((s_456)(cdr s_454)))" -"(let-values(((s_457)" -"(if(syntax?$1 s_456)" -"(syntax-e$1 s_456)" -" s_456)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_457)))" +"(let-values(((s_455)(cdr s_453)))" +"(let-values(((s_456)" +"(if(syntax?$1 s_455)" +"(syntax-e$1 s_455)" +" s_455)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_456)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46220,12 +46236,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_153)))" "((letrec-values(((for-loop_184)" -"(lambda(result_115 i_91)" +"(lambda(result_115 i_90)" "(begin" " 'for-loop" -"(if i_91" +"(if i_90" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_153 i_91)))" +"(hash-iterate-key+value ht_153 i_90)))" "(let-values(((result_116)" "(let-values()" "(let-values(((result_117)" @@ -46248,12 +46264,12 @@ static const char *startup_source = " #f)" " #f)))))" "(values result_117)))))" -"(if(if(not((lambda x_79(not result_116)) k_35 v_3))" +"(if(if(not((lambda x_78(not result_116)) k_35 v_3))" "(not #f)" " #f)" "(for-loop_184" " result_116" -"(hash-iterate-next ht_153 i_91))" +"(hash-iterate-next ht_153 i_90))" " result_116)))" " result_115)))))" " for-loop_184)" @@ -46287,12 +46303,12 @@ 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(table_215 i_92)" +"((letrec-values(((for-loop_271)" +"(lambda(table_215 i_91)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((k_36 v_194)(hash-iterate-key+value ht_154 i_92)))" +"(if i_91" +"(let-values(((k_36 v_194)(hash-iterate-key+value ht_154 i_91)))" "(let-values(((table_216)" "(let-values(((table_185) table_215))" "(let-values(((table_217)" @@ -46308,10 +46324,10 @@ static const char *startup_source = " val_78)))))" "(values table_217)))))" "(if(not #f)" -"(for-loop_272 table_216(hash-iterate-next ht_154 i_92))" +"(for-loop_271 table_216(hash-iterate-next ht_154 i_91))" " table_216)))" " table_215)))))" -" for-loop_272)" +" for-loop_271)" " '#hash()" "(hash-iterate-first ht_154)))))))))" " l_71)))))))" @@ -46428,7 +46444,7 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_42 end_32 str_23 as-predefined?_0)" "(begin" -"(let-values(((s_162)" +"(let-values(((s_163)" "(if str_23" " str_23" "(let-values(((sp_0)(find-system-path 'exec-file)))" @@ -46448,7 +46464,7 @@ static const char *startup_source = "(file-position(current-input-port) start_43)" "(read-bytes(max 0(- end_33 start_43))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_162)))" +"(let-values(((p_62)(open-input-bytes s_163)))" "((letrec-values(((loop_74)" "(lambda()" "(begin" @@ -46509,12 +46525,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_24 s_181 l_4)" +"(lambda(who_24 s_182 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_181)" +"(if(relative-path-string? s_182)" "(void)" -" (let-values () (raise-argument-error who_24 \"(and/c path-string? relative-path?)\" s_181)))" +" (let-values () (raise-argument-error who_24 \"(and/c path-string? relative-path?)\" s_182)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_24 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -47103,8 +47119,8 @@ static const char *startup_source = " #f" "(lambda(v_201)" "(begin" -"(if((lambda(x_80)" -"(let-values(((or-part_11)(not x_80)))(if or-part_11 or-part_11(prop:readtable? x_80))))" +"(if((lambda(x_79)" +"(let-values(((or-part_11)(not x_79)))(if or-part_11 or-part_11(prop:readtable? x_79))))" " v_201)" "(void)" " (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_201)))" @@ -47359,8 +47375,8 @@ static const char *startup_source = " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_227) coerce_1))" "(if or-part_227 or-part_227(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" -"(let-values(((or-part_272) coerce-key_1))" -"(if or-part_272 or-part_272(lambda(for-syntax?_3 v_113) v_113)))" +"(let-values(((or-part_271) coerce-key_1))" +"(if or-part_271 or-part_271(lambda(for-syntax?_3 v_113) v_113)))" " #f" " #f" " #f" @@ -47391,13 +47407,13 @@ static const char *startup_source = "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" "(let-values(((v_215) config_0))" -"(let-values(((the-struct_76) v_215))" -"(if(read-config/outer? the-struct_76)" +"(let-values(((the-struct_77) v_215))" +"(if(read-config/outer? the-struct_77)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_77)(read-config/outer-inner v_215)))" -"(if(read-config/inner? the-struct_77)" +"(let-values(((the-struct_78)(read-config/outer-inner v_215)))" +"(if(read-config/inner? the-struct_78)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47409,25 +47425,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_77)" -"(read-config/inner-read-compiled the-struct_77)" -"(read-config/inner-dynamic-require the-struct_77)" -"(read-config/inner-module-declared? the-struct_77)" -"(read-config/inner-coerce the-struct_77)" -"(read-config/inner-coerce-key the-struct_77)" -"(read-config/inner-parameter-override the-struct_77)" -"(read-config/inner-parameter-cache the-struct_77)" +"(read-config/inner-source the-struct_78)" +"(read-config/inner-read-compiled the-struct_78)" +"(read-config/inner-dynamic-require the-struct_78)" +"(read-config/inner-module-declared? the-struct_78)" +"(read-config/inner-coerce the-struct_78)" +"(read-config/inner-coerce-key the-struct_78)" +"(read-config/inner-parameter-override the-struct_78)" +"(read-config/inner-parameter-cache the-struct_78)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_77)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_78)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_76)" -"(read-config/outer-col the-struct_76)" -"(read-config/outer-pos the-struct_76)" -"(read-config/outer-indentations the-struct_76)" +"(read-config/outer-line the-struct_77)" +"(read-config/outer-col the-struct_77)" +"(read-config/outer-pos the-struct_77)" +"(read-config/outer-indentations the-struct_77)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -47459,55 +47475,55 @@ static const char *startup_source = "(lambda(config_2 line_2 col_1 pos_108)" "(begin" "(let-values(((v_216) config_2))" -"(let-values(((the-struct_78) v_216))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((the-struct_79) v_216))" +"(if(read-config/outer? the-struct_79)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" "((inner65_0)(read-config/outer-inner v_216)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_78)" +"(read-config/outer-wrap the-struct_79)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_78)" -"(read-config/outer-keep-comment? the-struct_78)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" +"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-keep-comment? the-struct_79)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" "(let-values(((v_217) config_3))" -"(let-values(((the-struct_79) v_217))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((the-struct_80) v_217))" +"(if(read-config/outer? the-struct_80)" "(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_79)" -"(read-config/outer-col the-struct_79)" -"(read-config/outer-pos the-struct_79)" -"(read-config/outer-indentations the-struct_79)" -"(read-config/outer-keep-comment? the-struct_79)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-keep-comment? the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_218) config_4))" -"(let-values(((the-struct_80) v_218))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((the-struct_81) v_218))" +"(if(read-config/outer? the-struct_81)" "(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_80)" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47516,18 +47532,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_219) config_5))" -"(let-values(((the-struct_81) v_219))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((the-struct_82) v_219))" +"(if(read-config/outer? the-struct_82)" "(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_81)" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47536,35 +47552,35 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_220) config_6))" -"(let-values(((the-struct_82) v_220))" -"(if(read-config/outer? the-struct_82)" +"(let-values(((the-struct_83) v_220))" +"(if(read-config/outer? the-struct_83)" "(let-values(((inner72_1)" -"(let-values(((the-struct_83)(read-config/outer-inner v_220)))" -"(if(read-config/inner? the-struct_83)" +"(let-values(((the-struct_84)(read-config/outer-inner v_220)))" +"(if(read-config/inner? the-struct_84)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_83)" -"(read-config/inner-for-syntax? the-struct_83)" -"(read-config/inner-source the-struct_83)" -"(read-config/inner-read-compiled the-struct_83)" -"(read-config/inner-dynamic-require the-struct_83)" -"(read-config/inner-module-declared? the-struct_83)" -"(read-config/inner-coerce the-struct_83)" -"(read-config/inner-coerce-key the-struct_83)" -"(read-config/inner-parameter-override the-struct_83)" -"(read-config/inner-parameter-cache the-struct_83)" -"(read-config/inner-st the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_83)))))" +"(read-config/inner-next-readtable the-struct_84)" +"(read-config/inner-for-syntax? the-struct_84)" +"(read-config/inner-source the-struct_84)" +"(read-config/inner-read-compiled the-struct_84)" +"(read-config/inner-dynamic-require the-struct_84)" +"(read-config/inner-module-declared? the-struct_84)" +"(read-config/inner-coerce the-struct_84)" +"(read-config/inner-coerce-key the-struct_84)" +"(read-config/inner-parameter-override the-struct_84)" +"(read-config/inner-parameter-cache the-struct_84)" +"(read-config/inner-st the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" "(read-config/outer1.1" " inner72_1" -"(read-config/outer-wrap the-struct_82)" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" -"(read-config/outer-keep-comment? the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-keep-comment? the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(coerce)" "(lambda(val_79 in_2 config_7)" @@ -47617,36 +47633,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_91) config_9))" -"(let-values(((the-struct_84) v_91))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((the-struct_85) v_91))" +"(if(read-config/outer? the-struct_85)" "(let-values(((inner1_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_91)))" -"(if(read-config/inner? the-struct_85)" +"(let-values(((the-struct_86)(read-config/outer-inner v_91)))" +"(if(read-config/inner? the-struct_86)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_85)" -"(read-config/inner-next-readtable the-struct_85)" -"(read-config/inner-for-syntax? the-struct_85)" -"(read-config/inner-source the-struct_85)" -"(read-config/inner-read-compiled the-struct_85)" -"(read-config/inner-dynamic-require the-struct_85)" -"(read-config/inner-module-declared? the-struct_85)" -"(read-config/inner-coerce the-struct_85)" -"(read-config/inner-coerce-key the-struct_85)" +"(read-config/inner-readtable the-struct_86)" +"(read-config/inner-next-readtable the-struct_86)" +"(read-config/inner-for-syntax? the-struct_86)" +"(read-config/inner-source the-struct_86)" +"(read-config/inner-read-compiled the-struct_86)" +"(read-config/inner-dynamic-require the-struct_86)" +"(read-config/inner-module-declared? the-struct_86)" +"(read-config/inner-coerce the-struct_86)" +"(read-config/inner-coerce-key the-struct_86)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_85)" -"(read-config/inner-st the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" +"(read-config/inner-parameter-cache the-struct_86)" +"(read-config/inner-st the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" -"(read-config/outer-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))" +"(read-config/outer-wrap the-struct_85)" +"(read-config/outer-line the-struct_85)" +"(read-config/outer-col the-struct_85)" +"(read-config/outer-pos the-struct_85)" +"(read-config/outer-indentations the-struct_85)" +"(read-config/outer-keep-comment? the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48035,26 +48051,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_80 i_176)" +"((letrec-values(((for-loop_267)" +"(lambda(fold-var_80 i_175)" "(begin" " 'for-loop" -"(if i_176" -"(let-values(((k_40 v_87)(hash-iterate-key+value ht_151 i_176)))" -"(let-values(((fold-var_285)" +"(if i_175" +"(let-values(((k_40 v_87)(hash-iterate-key+value ht_151 i_175)))" +"(let-values(((fold-var_286)" "(let-values(((fold-var_83) fold-var_80))" "(if(eqv? v_87 c_64)" -"(let-values(((fold-var_239) fold-var_83))" +"(let-values(((fold-var_240) fold-var_83))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_40) fold-var_239))))" +"(cons(let-values() k_40) fold-var_240))))" "(values fold-var_13)))" " fold-var_83))))" "(if(not #f)" -"(for-loop_268 fold-var_285(hash-iterate-next ht_151 i_176))" -" fold-var_285)))" +"(for-loop_267 fold-var_286(hash-iterate-next ht_151 i_175))" +" fold-var_286)))" " fold-var_80)))))" -" for-loop_268)" +" for-loop_267)" " null" "(hash-iterate-first ht_151))))))))))" "(define-values" @@ -48589,8 +48605,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_184)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" -"(begin(accum-string-abandon! a_69 config_27) s_184)))))))))" +"(let-values(((s_185)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" +"(begin(accum-string-abandon! a_69 config_27) s_185)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48702,19 +48718,19 @@ static const char *startup_source = "(let-values()" "(let-values(((missing_2)" "(let-values(((or-part_303)" -"(let-values(((lst_310)(cdr indts_1)))" +"(let-values(((lst_309)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_310)))" -"((letrec-values(((for-loop_273)" -"(lambda(result_39 lst_311)" +"(let-values()(check-list lst_309)))" +"((letrec-values(((for-loop_272)" +"(lambda(result_39 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_311)" -"(let-values(((indt_3)(unsafe-car lst_311))" -"((rest_172)" -"(unsafe-cdr lst_311)))" +"(if(pair? lst_310)" +"(let-values(((indt_3)(unsafe-car lst_310))" +"((rest_174)" +"(unsafe-cdr lst_310)))" "(let-values(((result_82)" "(let-values()" "(let-values(((result_118)" @@ -48728,16 +48744,16 @@ static const char *startup_source = " #f)))))" "(values result_118)))))" "(if(if(not" -"((lambda x_81 result_82)" +"((lambda x_80 result_82)" " indt_3))" "(not #f)" " #f)" -"(for-loop_273 result_82 rest_172)" +"(for-loop_272 result_82 rest_174)" " result_82)))" " result_39)))))" -" for-loop_273)" +" for-loop_272)" " #f" -" lst_310)))))" +" lst_309)))))" " (if or-part_303 or-part_303 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" @@ -48786,8 +48802,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" "(let-values(((v_227) elem-config_0))" -"(let-values(((the-struct_86) v_227))" -"(if(read-config/outer? the-struct_86)" +"(let-values(((the-struct_87) v_227))" +"(if(read-config/outer? the-struct_87)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -48795,16 +48811,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" +"(read-config/outer-wrap the-struct_87)" +"(read-config/outer-line the-struct_87)" +"(read-config/outer-col the-struct_87)" +"(read-config/outer-pos the-struct_87)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_86)))" +"(read-config/outer-keep-comment? the-struct_87)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_86))))))" +" the-struct_87))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_10)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49263,7 +49279,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_182) s7_2))" +"(let-values(((s_183) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -49274,9 +49290,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_182)" +"(if(string? s_183)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_183)))" "(if((lambda(p_72)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -49301,9 +49317,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_182)" +"(let-values(((s69_0) s_183)" "((temp70_1) 0)" -"((temp71_1)(string-length s_182))" +"((temp71_1)(string-length s_183))" "((radix72_0) radix_0)" "((temp73_1) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -49319,11 +49335,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_458)(begin 'string->number(string->number8_0 s_458 #f #f #f #f #f #f)))" -"((s_459 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_459 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_179 radix_2 convert-mode2_1)(string->number8_0 s_179 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_460 radix1_1)(string->number8_0 s_460 radix1_1 #f #f #t #f #f)))))" +"((s_457)(begin 'string->number(string->number8_0 s_457 #f #f #f #f #f #f)))" +"((s_458 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_458 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_180 radix_2 convert-mode2_1)(string->number8_0 s_180 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_459 radix1_1)(string->number8_0 s_459 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49337,7 +49353,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_461) s14_1))" +"(let-values(((s_460) s14_1))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49352,18 +49368,18 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_461 start_44)))" +"(let-values(((c_79)(string-ref s_460 start_44)))" "(if(char=? '#\\# c_79)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_461))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_460))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_176)(string-ref s_461 next_4)))" -"(let-values(((tmp_38) i_176))" +"(let-values(((i_175)(string-ref s_460 next_4)))" +"(let-values(((tmp_38) i_175))" "(let-values(((index_2)" "(if(char? tmp_38)" "(let-values(((codepoint_0)(char->integer tmp_38)))" @@ -49437,8 +49453,8 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_176" -"(substring s_461 start_44 end_34)))" +" i_175" +"(substring s_460 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" @@ -49449,20 +49465,20 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_461 start_44 end_34)))" +"(substring s_460 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_461)" +"(let-values(((s76_1) s_460)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" "(if(let-values(((or-part_221)" -"(char=? i_176 '#\\e)))" +"(char=? i_175 '#\\e)))" "(if or-part_221" " or-part_221" -"(char=? i_176 '#\\E)))" +"(char=? i_175 '#\\E)))" " 'exact" " 'inexact))" "((temp82_4)" @@ -49487,11 +49503,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_461 start_44 end_34)))" +"(substring s_460 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_176))" +"(let-values(((tmp_39) i_175))" "(if(if(equal? tmp_39 '#\\b)" " #t" "(equal? tmp_39 '#\\B))" @@ -49505,7 +49521,7 @@ static const char *startup_source = "(equal? tmp_39 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_461)" +"(let-values(((s83_0) s_460)" "((temp84_0)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49527,7 +49543,7 @@ static const char *startup_source = " temp89_2)))))))))))))))" "(let-values(((c1_28)" "(if(char-sign? c_79)" -"(read-special-number s_461 start_44 end_34 convert-mode_2)" +"(read-special-number s_460 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_28" "((lambda(v_231)" @@ -49542,10 +49558,10 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_461(sub1 end_34)))" -"(if(char-sign?(string-ref s_461 6))" +"(if(char=? '#\\i(string-ref s_460(sub1 end_34)))" +"(if(char-sign?(string-ref s_460 6))" "(read-special-number" -" s_461" +" s_460" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49556,7 +49572,7 @@ static const char *startup_source = " #f)))" "(if c2_3" "((lambda(v_232)" -"(let-values(((s90_1) s_461)" +"(let-values(((s90_1) s_460)" "((temp91_1)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" @@ -49583,10 +49599,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_461(sub1 end_34)))" -"(if(char-sign?(string-ref s_461(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_460(sub1 end_34)))" +"(if(char-sign?(string-ref s_460(- end_34 7)))" "(read-special-number" -" s_461" +" s_460" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49599,7 +49615,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_461)" +"(let-values(((s99_0) s_460)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49628,9 +49644,9 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_461(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_460(+ start_44 6)))" "(read-special-number" -" s_461" +" s_460" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49640,7 +49656,7 @@ static const char *startup_source = " #f)))" "(if c4_0" "((lambda(v_200)" -"(let-values(((s109_0) s_461)" +"(let-values(((s109_0) s_460)" "((temp110_1)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" @@ -49667,9 +49683,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_461(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_460(- end_34 7)))" "(read-special-number" -" s_461" +" s_460" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49678,7 +49694,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_461)" +"(let-values(((s118_0) s_460)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49704,7 +49720,7 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_461)" +"(let-values(((s128_1) s_460)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49735,7 +49751,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_203) s27_1))" +"(let-values(((s_204) s27_1))" "(let-values(((start_45) start28_0))" "(let-values(((end_35) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49745,7 +49761,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_106)" -"(lambda(i_177" +"(lambda(i_176" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49757,7 +49773,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_177 end_35)" +"(if(= i_176 end_35)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49765,7 +49781,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49773,7 +49789,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" "(let-values(((or-part_314)" @@ -49787,11 +49803,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_203)" +"(let-values(((s136_0) s_204)" "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -49818,7 +49834,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_203)" +"(let-values(((s148_0) s_204)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" "((temp151_2)(add1 @-pos_0))" @@ -49845,7 +49861,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_203" +" s_204" " start_45" " end_35" " dot-pos_1" @@ -49856,11 +49872,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_203 i_177)))" +"(let-values(((c_80)(string-ref s_204 i_176)))" "(if(digit? c_80 radix_5)" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " #t" " any-hashes?_0" " i-pos_3" @@ -49873,7 +49889,7 @@ static const char *startup_source = "(if(char=? c_80 '#\\#)" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " #t" " #t" " i-pos_3" @@ -49891,24 +49907,24 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_177" +" i_176" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_177 start_45)" +"(if(> i_176 start_45)" "(let-values(((or-part_315)(not @-pos_0)))" "(if or-part_315" " or-part_315" -"(> i_177(add1 @-pos_0))))" +"(> i_176(add1 @-pos_0))))" " #f)))))" "(if(char=? c_80 '#\\.)" "(let-values()" @@ -49923,9 +49939,9 @@ static const char *startup_source = "(if or-part_218" " or-part_218" "(if dot-pos_1" -"(let-values(((or-part_274)(not sign-pos_0)))" -"(if or-part_274" -" or-part_274" +"(let-values(((or-part_273)(not sign-pos_0)))" +"(if or-part_273" +" or-part_273" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49933,7 +49949,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" "(let-values(((or-part_317)(not sign-pos_0)))" @@ -49946,17 +49962,17 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_177" +" i_176" " #f" " #f" " must-i?_0)))))" @@ -49973,7 +49989,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(let-values(((or-part_319)" "(if exp-pos_0" @@ -49997,18 +50013,18 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_177" +" i_176" " #f" " must-i?_0)))))" "(if(let-values(((or-part_321)(char=? c_80 '#\\e)))" @@ -50074,14 +50090,14 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_80" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" -"(if(if(<(add1 i_177) end_35)" -"(char-sign?(string-ref s_203(add1 i_177)))" +"(if(if(<(add1 i_176) end_35)" +"(char-sign?(string-ref s_204(add1 i_176)))" " #f)" "(let-values()" "(loop_106" -"(+ i_177 2)" +"(+ i_176 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50090,11 +50106,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_177))" +"(if or-part_330 or-part_330 i_176))" " must-i?_0))" "(let-values()" "(loop_106" -"(+ i_177 1)" +"(+ i_176 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50103,7 +50119,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_177))" +"(if or-part_331 or-part_331 i_176))" " must-i?_0)))))" "(if(char=? c_80 '#\\@)" "(let-values()" @@ -50113,7 +50129,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(let-values(((or-part_332) @-pos_0))" "(if or-part_332" @@ -50124,15 +50140,15 @@ static const char *startup_source = "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" -"(if(= i_177 start_45)" +"(if(= i_176 start_45)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50140,15 +50156,15 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_177" +" i_176" " #f" " #f" " #f" @@ -50171,10 +50187,10 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(let-values(((or-part_335)" -"(<(add1 i_177) end_35)))" +"(<(add1 i_176) end_35)))" "(if or-part_335" " or-part_335" "(eq? in-complex_1 'i)))" @@ -50183,14 +50199,14 @@ static const char *startup_source = "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_203 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_177)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" -" i_177" +" i_176" " @-pos_0" " sign-pos_0" " #f" @@ -50202,7 +50218,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_203))" +" (format \"nul character in `~.a`\" s_204))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50236,7 +50252,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_222) s40_0))" +"(let-values(((s_223) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -50253,7 +50269,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_222)" +"(let-values(((s160_0) s_223)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -50274,12 +50290,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_222 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_223 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_222)" +"(let-values(((s168_0) s_223)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -50322,10 +50338,10 @@ static const char *startup_source = " p_74))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_233 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_234 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_233 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_234 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" "(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" @@ -50338,17 +50354,17 @@ static const char *startup_source = " or-part_339" "(let-values(((or-part_340)(not(eq? convert-mode_5 'number-or-false))))" "(if or-part_340 or-part_340(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_233 start_46 end_36) #f))" +"(not(if any-hashes?_1(hashes? s_234 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_233 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_234 start_46)) #f)))" "(if(=(- end_36 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_36 start_46)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_233 start_46 end_36)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50360,23 +50376,23 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_233 start_46 end_36)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" "(let-values(((or-part_341)(= exp-pos_1(sub1 end_36))))" "(if or-part_341" " or-part_341" -"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_233(sub1 end_36))) #f)))" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_234(sub1 end_36))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_233 start_46 end_36)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_233 start_46 end_36)" +"(maybe-substring s_234 start_46 end_36)" " radix_7" "(if(let-values(((or-part_342)(eq? convert-mode_5 'number-or-false)))" "(if or-part_342" @@ -50390,7 +50406,7 @@ static const char *startup_source = "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_233 start_46 end_36)))" +"(substring s_234 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50399,9 +50415,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_233 start_46 end_36)))" +"(substring s_234 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_233 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_234 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50409,7 +50425,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_233" +" s_234" " start_46" " exp-pos_1" " dot-pos_2" @@ -50420,12 +50436,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_233(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_234(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_233 exp-pos_1)))" +"(let-values(((tmp_40)(string-ref s_234 exp-pos_1)))" "(if(if(equal? tmp_40 '#\\s)" " #t" "(if(equal? tmp_40 '#\\S)" @@ -50437,7 +50453,7 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_233 start_46 end_36)" +"(replace-hashes s_234 start_46 end_36)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" @@ -50457,7 +50473,7 @@ static const char *startup_source = "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_233 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_234 start_46) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -50467,7 +50483,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_233 start_46 end_36)" +"(substring s_234 start_46 end_36)" " exactness_3))" "(let-values() #f)))" "(let-values()" @@ -50477,14 +50493,14 @@ static const char *startup_source = "(if or-part_346 or-part_346(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_233 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_234 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_233" +" s_234" " start_46" " slash-pos_1" " #f" @@ -50496,7 +50512,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_233" +" s_234" "(add1 slash-pos_1)" " end_36" " #f" @@ -50514,7 +50530,7 @@ static const char *startup_source = "(if or-part_152" " or-part_152" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_233 from-pos_0 end_36)" +"(hashes? s_234 from-pos_0 end_36)" " #f)))))))" "(if(let-values(((or-part_347)(not n-v_0)))(if or-part_347 or-part_347(not d-v_0)))" "(let-values() #f)" @@ -50529,14 +50545,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_233 start_46 end_36)))" +" (format \"division by zero in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_233" +" s_234" " start_46" " end_36" " dot-pos_2" @@ -50552,10 +50568,10 @@ static const char *startup_source = "(if or-part_348 or-part_348(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_107)" -"(lambda(i_118 j_3 hashes-pos_0)" +"(lambda(i_117 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_118 start_47)" +"(if(< i_117 start_47)" "(let-values()" "(if(= hashes-pos_0 start_47)" "(let-values()" @@ -50576,38 +50592,38 @@ static const char *startup_source = "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_358 i_118)))" +"(let-values(((c_81)(string-ref s_358 i_117)))" "(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_107" -"(sub1 i_118)" +"(sub1 i_117)" " j_3" -"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" "(loop_107" -"(sub1 i_118)" +"(sub1 i_117)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))))" "(if(let-values(((or-part_349)(char=? c_81 '#\\-)))" "(if or-part_349 or-part_349(char=? c_81 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" "(loop_107" -"(sub1 i_118)" +"(sub1 i_117)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))" "(if(char=? c_81 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_118))" +"(if(= hashes-pos_0(add1 i_117))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_107(sub1 i_118)(sub1 j_3) i_118)))" +"(loop_107(sub1 i_117)(sub1 j_3) i_117)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" @@ -50618,55 +50634,55 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" -"(loop_107(sub1 i_118)(sub1 j_3) hashes-pos_0)))))))))))))" +"(loop_107(sub1 i_117)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_107)" "(sub1 end_37)" "(sub1(string-length new-str_0))" " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_243 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_244 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_243 start_48 end_38)" +"(if(hashes? s_244 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_243 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_244 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_243 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_244 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_243 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_244 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_246 start_49 end_39 convert-mode_8)" +"(lambda(s_247 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_350)(char=?(string-ref s_246 start_49) '#\\+)))" -"(if or-part_350 or-part_350(char=?(string-ref s_246 start_49) '#\\-)))" +"(if(let-values(((or-part_350)(char=?(string-ref s_247 start_49) '#\\+)))" +"(if or-part_350 or-part_350(char=?(string-ref s_247 start_49) '#\\-)))" "(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 4))) '#\\.)" "(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_246 start_49) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_247 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_352" " or-part_352" "(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_246 start_49) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_247 start_49) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_353" " or-part_353" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_246 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_247 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" @@ -50675,19 +50691,19 @@ static const char *startup_source = " #f)))" "(if or-part_351" " or-part_351" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 4))) '#\\.)" "(let-values(((or-part_354)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\0) +nan.0 #f)))" "(if or-part_354" " or-part_354" "(let-values(((or-part_355)" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\f) +nan.f #f)))" "(if or-part_355" " or-part_355" -"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50718,7 +50734,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_462) s57_0))" +"(let-values(((s_461) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50741,7 +50757,7 @@ static const char *startup_source = "(let-values()(fail-extflonum convert-mode_10 v_236))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_462)" +"(let-values(((s176_0) s_461)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50768,21 +50784,21 @@ static const char *startup_source = "(let-values()(combine_1 v_236 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_463 start_51 end_41)" +"(lambda(s_462 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_82)(string? x_82))" -"(lambda(x_83)(unsafe-string-length x_83))" -" s_463" +"(lambda(x_81)(string? x_81))" +"(lambda(x_82)(unsafe-string-length x_82))" +" s_462" " start_51" " end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_274)" +"((letrec-values(((for-loop_273)" "(lambda(result_119 idx_5)" "(begin" " 'for-loop" @@ -50793,16 +50809,16 @@ static const char *startup_source = "(let-values(((result_121)" "(let-values()(let-values()(char=? c_82 '#\\#)))))" "(values result_121)))))" -"(if(if(not((lambda x_84 result_120) c_82))(not #f) #f)" -"(for-loop_274 result_120(unsafe-fx+ idx_5 1))" +"(if(if(not((lambda x_83 result_120) c_82))(not #f) #f)" +"(for-loop_273 result_120(unsafe-fx+ idx_5 1))" " result_120)))" " result_119)))))" -" for-loop_274)" +" for-loop_273)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_464 start_52 end_42)" +"(lambda(s_463 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -50810,9 +50826,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_85)(string? x_85))" -"(lambda(x_86)(unsafe-string-length x_86))" -" s_464" +"(lambda(x_84)(string? x_84))" +"(lambda(x_85)(unsafe-string-length x_85))" +" s_463" " start_52" " end_42" " 1))" @@ -50822,12 +50838,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_274)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_83)(string-ref v*_7 idx_6))((i_178) pos_114))" +"(let-values(((c_83)(string-ref v*_7 idx_6))((i_177) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50835,13 +50851,13 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_83 '#\\#)" -"(string-set! new-s_9 i_178 '#\\0)" -"(string-set! new-s_9 i_178 c_83)))" +"(string-set! new-s_9 i_177 '#\\0)" +"(string-set! new-s_9 i_177 c_83)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_275)" +" for-loop_274)" " start*_6" " start_53)))" "(void)" @@ -50877,10 +50893,10 @@ static const char *startup_source = " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_465 start_55 end_44)" +"(lambda(convert-mode_11 s_464 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_465 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_464 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51375,20 +51391,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(i_179 lst_81)" +"((letrec-values(((for-loop_252)" +"(lambda(i_178 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" +"(if(pair? lst_80)" "(let-values(((e_73)" "(unsafe-car" -" lst_81))" -"((rest_141)" +" lst_80))" +"((rest_143)" "(unsafe-cdr" -" lst_81)))" +" lst_80)))" "(let-values(((i_39)" "(let-values(((i_40)" -" i_179))" +" i_178))" "(let-values(((i_41)" "(let-values()" "(begin" @@ -51410,19 +51426,19 @@ static const char *startup_source = "(values" " i_41)))))" "(if(if(not" -"((lambda x_87" +"((lambda x_86" "(unsafe-fx=" " i_39" " len_7))" " e_73))" "(not #f)" " #f)" -"(for-loop_253" +"(for-loop_252" " i_39" -" rest_141)" +" rest_143)" " i_39)))" -" i_179)))))" -" for-loop_253)" +" i_178)))))" +" for-loop_252)" " 0" " lst_24)))))" " v_194))))))" @@ -51443,27 +51459,27 @@ static const char *startup_source = "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_93) seq_2))" +"(let-values(((lst_92) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" +"(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_189)" -"(lambda(i_180 lst_17)" +"(lambda(i_179 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((e_80)" "(unsafe-car" " lst_17))" -"((rest_88)" +"((rest_90)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_159)" -"(let-values(((i_93)" -" i_180))" -"(let-values(((i_181)" +"(let-values(((i_158)" +"(let-values(((i_92)" +" i_179))" +"(let-values(((i_180)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -51473,32 +51489,32 @@ static const char *startup_source = " elem_1)" "(unsafe-flvector-set!" " v_238" -" i_93" +" i_92" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_93)))))" +" i_92)))))" "(values" -" i_181)))))" +" i_180)))))" "(if(if(not" -"((lambda x_88" +"((lambda x_87" "(unsafe-fx=" -" i_159" +" i_158" " len_37))" " e_80))" "(not #f)" " #f)" "(for-loop_189" -" i_159" -" rest_88)" -" i_159)))" -" i_180)))))" +" i_158" +" rest_90)" +" i_158)))" +" i_179)))))" " for-loop_189)" " 0" -" lst_93)))))" +" lst_92)))))" " v_238))))))" "(let-values()(void)))))))" "(let-values()" @@ -51595,7 +51611,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_275)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" @@ -51605,10 +51621,10 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_10))" -"((rest_167)" +"((rest_169)" "(unsafe-cdr" " lst_10))" -"((i_182)" +"((i_181)" " pos_116))" "(let-values((()" "(let-values()" @@ -51618,17 +51634,17 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_67" -" i_182" +" i_181" " e_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" -" rest_167" +"(for-loop_275" +" rest_169" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_276)" +" for-loop_275)" " lst_9" " start_56)))" "(void)))" @@ -51646,20 +51662,20 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_57)))" "((letrec-values(((for-loop_100)" -"(lambda(lst_179 pos_109)" +"(lambda(lst_180 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_179)" +" lst_180)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_179))" -"((rest_173)" +" lst_180))" +"((rest_175)" "(unsafe-cdr" -" lst_179))" -"((i_183)" +" lst_180))" +"((i_182)" " pos_109))" "(let-values((()" "(let-values()" @@ -51669,13 +51685,13 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_67" -" i_183" +" i_182" " e_82))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_100" -" rest_173" +" rest_175" "(+" " pos_109" " 1))" @@ -51688,12 +51704,12 @@ static const char *startup_source = "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_312) seq_2)((start_58) 0))" +"(let-values(((lst_311) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_312)))" +"(let-values()(check-list lst_311)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -51737,7 +51753,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_109)" -" lst_312" +" lst_311" " start_58)))" "(void)))" "(let-values()(void))))))" @@ -53864,24 +53880,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_313)" +"(let-values(((lst_312)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_313)))" -"((letrec-values(((for-loop_277)" -"(lambda(lst_314)" +"(let-values()(check-list lst_312)))" +"((letrec-values(((for-loop_276)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_314)" +"(if(pair? lst_313)" "(let-values(((c_12)" "(unsafe-car" -" lst_314))" -"((rest_174)" +" lst_313))" +"((rest_176)" "(unsafe-cdr" -" lst_314)))" +" lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53894,12 +53910,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" -" rest_174)" +"(for-loop_276" +" rest_176)" "(values))))" "(values))))))" -" for-loop_277)" -" lst_313)))" +" for-loop_276)" +" lst_312)))" "(void))))" "(if(char=? c_97 '#\\newline)" "(let-values()" @@ -54840,9 +54856,9 @@ static const char *startup_source = "(lambda(c_102)" "(begin" "(if(<(char->integer c_102) 128)" -"(let-values(((or-part_281)(char-alphabetic? c_102)))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_280)(char-alphabetic? c_102)))" +"(if or-part_280" +" or-part_280" "(let-values(((or-part_364)(char-numeric? c_102)))" "(if or-part_364" " or-part_364" @@ -54858,15 +54874,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_55)))" "(begin" -"(let-values(((lst_315) already_0))" +"(let-values(((lst_314) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_315)))" -"((letrec-values(((for-loop_278)" -"(lambda(lst_316)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" +"((letrec-values(((for-loop_277)" +"(lambda(lst_315)" "(begin" " 'for-loop" -"(if(pair? lst_316)" -"(let-values(((c_103)(unsafe-car lst_316))((rest_175)(unsafe-cdr lst_316)))" +"(if(pair? lst_315)" +"(let-values(((c_103)(unsafe-car lst_315))((rest_177)(unsafe-cdr lst_315)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54876,10 +54892,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_103))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_278 rest_175)(values))))" +"(if(not #f)(for-loop_277 rest_177)(values))))" "(values))))))" -" for-loop_278)" -" lst_315)))" +" for-loop_277)" +" lst_314)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -56628,11 +56644,11 @@ static const char *startup_source = "(let-values(((name_69)" "(let-values(((mod49_0) mod_18)((temp50_4) #t))" "(reference->resolved-module-path32.1 temp50_4 mod49_0))))" -"(let-values(((phase_128)(namespace-phase ns_114)))" +"(let-values(((phase_129)(namespace-phase ns_114)))" "(let-values(((m-ns_17)" "(let-values(((ns51_1) ns_114)" "((name52_0) name_69)" -"((phase53_0) phase_128))" +"((phase53_0) phase_129))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56673,7 +56689,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_5)))))" "(let-values(((ns46_0) ns_114)" "((temp47_2)(namespace-mpi m-ns_17))" -"((phase48_2) phase_128))" +"((phase48_2) phase_129))" "(namespace-module-make-available!112.1 #f #f ns46_0 temp47_2 phase48_2))" " m-ns_17)))))))))))))))" "(case-lambda" @@ -56939,8 +56955,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_87) empty-syntax))" -"(if(syntax?$1 the-struct_87)" +"(let-values(((the-struct_88) empty-syntax))" +"(if(syntax?$1 the-struct_88)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -56952,14 +56968,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_87)" -"(syntax-shifted-multi-scopes the-struct_87)" -"(syntax-scope-propagations+tamper the-struct_87)" -"(syntax-mpi-shifts the-struct_87)" +"(syntax-scopes the-struct_88)" +"(syntax-shifted-multi-scopes the-struct_88)" +"(syntax-scope-propagations+tamper the-struct_88)" +"(syntax-mpi-shifts the-struct_88)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_87)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_87))))))" +"(syntax-inspector the-struct_88)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -56985,25 +57001,25 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_268)))" -"((letrec-values(((for-loop_279)" -"(lambda(fold-var_286 lst_281)" +"((letrec-values(((for-loop_278)" +"(lambda(fold-var_287 lst_281)" "(begin" " 'for-loop" "(if(pair? lst_281)" "(let-values(((e_87)(unsafe-car lst_281))" -"((rest_176)(unsafe-cdr lst_281)))" -"(let-values(((fold-var_287)" -"(let-values(((fold-var_288) fold-var_286))" -"(let-values(((fold-var_244)" +"((rest_178)(unsafe-cdr lst_281)))" +"(let-values(((fold-var_288)" +"(let-values(((fold-var_289) fold-var_287))" +"(let-values(((fold-var_245)" "(let-values()" "(cons" "(let-values()" "(read-coerce #t e_87 srcloc_12))" -" fold-var_288))))" -"(values fold-var_244)))))" -"(if(not #f)(for-loop_279 fold-var_287 rest_176) fold-var_287)))" -" fold-var_286)))))" -" for-loop_279)" +" fold-var_289))))" +"(values fold-var_245)))))" +"(if(not #f)(for-loop_278 fold-var_288 rest_178) fold-var_288)))" +" fold-var_287)))))" +" for-loop_278)" " null" " lst_268))))" " srcloc_12" @@ -57109,16 +57125,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))" -"(if((lambda(x_89)" -"(let-values(((or-part_71)(not x_89)))" -"(if or-part_71 or-part_71(char? x_89))))" +"(if((lambda(x_88)" +"(let-values(((or-part_71)(not x_88)))" +"(if or-part_71 or-part_71(char? x_88))))" " start_61)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_90)" -"(let-values(((or-part_73)(not x_90)))" -"(if or-part_73 or-part_73(1/readtable? x_90))))" +"(if((lambda(x_89)" +"(let-values(((or-part_73)(not x_89)))" +"(if or-part_73 or-part_73(1/readtable? x_89))))" " readtable_7)" "(void)" "(let-values()" @@ -57175,9 +57191,9 @@ static const char *startup_source = " start_38)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" -"(if((lambda(x_91)" -"(let-values(((or-part_94)(not x_91)))" -"(if or-part_94 or-part_94(1/readtable? x_91))))" +"(if((lambda(x_90)" +"(let-values(((or-part_94)(not x_90)))" +"(if or-part_94 or-part_94(1/readtable? x_90))))" " readtable_9)" "(void)" "(let-values()" @@ -57234,18 +57250,18 @@ static const char *startup_source = "((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_79)(1/instance-variable-names inst_7)))" +"(let-values(((lst_78)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" -"(lambda(table_212 lst_80)" +"(lambda(table_212 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((sym_60)(unsafe-car lst_80))" -"((rest_36)(unsafe-cdr lst_80)))" +"(if(pair? lst_79)" +"(let-values(((sym_60)(unsafe-car lst_79))" +"((rest_36)(unsafe-cdr lst_79)))" "(let-values(((table_218)" "(let-values(((table_174) table_212))" "(let-values(((table_175)" @@ -57304,7 +57320,7 @@ static const char *startup_source = " table_212)))))" " for-loop_96)" " '#hash()" -" lst_79)))))" +" lst_78)))))" "((temp9_8)" "(lambda(data-box_5" " ns_46" @@ -57327,14 +57343,14 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_266)" "(let-values(((sym_95)(unsafe-car lst_266))" -"((rest_177)(unsafe-cdr lst_266)))" +"((rest_179)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_82)" +"(let-values(((val_22)" "(1/instance-variable-value" " inst_7" " sym_95)))" @@ -57342,11 +57358,11 @@ static const char *startup_source = " ns_46" " 0" " sym_95" -" val_82)))" +" val_22)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_177)" +"(for-loop_20 rest_179)" "(values))))" "(values))))))" " for-loop_20)" @@ -57548,8 +57564,8 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_169 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_169 context_1 stop-ids_3 #f #f)))" -"((s_162 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_162 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" +"((s_163 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_163 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" @@ -57591,23 +57607,23 @@ static const char *startup_source = "(case-lambda" "((s_77 context_13 stop-ids_6)" "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_77 context_13 stop-ids_6 #f #f #f #f)))" -"((s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_184 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_184 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_176 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_176 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_185 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_185 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_304) s19_1))" +"(let-values(((s_305) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_304)" +"((s72_0) s_305)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -57632,10 +57648,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_466 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_466 context_17 stop-ids_10 #f #f)))" -"((s_467 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_467 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_465 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_465 context_17 stop-ids_10 #f #f)))" +"((s_466 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_466 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57676,10 +57692,10 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_468 context_20 stop-ids_13)" +"((s_467 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_468 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_467 context_20 stop-ids_13 #f #f #f #f)))" "((s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_86 context_22 stop-ids_15 intdefs24_1)" @@ -57690,12 +57706,12 @@ static const char *startup_source = "(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_469) s35_1))" +"(let-values(((s_468) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_469)" +"((s86_1) s_468)" "((temp87_4) 'expression)" "((null88_0) null)" "((temp89_4) #f)" @@ -58078,7 +58094,7 @@ static const char *startup_source = "(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_168) s5_3))" +"(let-values(((s_169) s5_3))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" @@ -58086,9 +58102,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_168)" +"(if(syntax?$1 s_169)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_168)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_169)))" "(values))))" "(let-values((()" "(begin" @@ -58105,26 +58121,26 @@ static const char *startup_source = "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_168" -"(lambda(s_470)(syntax-arm$1 s_470 insp_21))" +" s_169" +"(lambda(s_469)(syntax-arm$1 s_469 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_168 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_169 insp_21))))))))))))))))" "(case-lambda" -"((s_169)(begin 'syntax-arm(syntax-arm6_0 s_169 #f #f #f #f)))" -"((s_170 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_170 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_170)(begin 'syntax-arm(syntax-arm6_0 s_170 #f #f #f #f)))" +"((s_171 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_171 maybe-insp_1 use-mode?2_1 #t #t))" "((s_424 maybe-insp1_1)(syntax-arm6_0 s_424 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_471 maybe-insp_2)" +"(lambda(s_470 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_471)" +"(if(syntax?$1 s_470)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_471)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_470)))" "(values))))" "(let-values((()" "(begin" @@ -58133,7 +58149,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_471 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_470 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -58157,7 +58173,7 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_423" -"(lambda(s_472)(syntax-rearm$1 s_472 from-s_2))" +"(lambda(s_471)(syntax-rearm$1 s_471 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_423 from-s_2))))))))))))))" "(case-lambda" @@ -58696,15 +58712,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_163)))" -"((letrec-values(((for-loop_267)" -"(lambda(table_11 i_183)" +"((letrec-values(((for-loop_266)" +"(lambda(table_11 i_182)" "(begin" " 'for-loop" -"(if i_183" +"(if i_182" "(let-values(((sym_97 val_6)" "(hash-iterate-key+value" " ht_163" -" i_183)))" +" i_182)))" "(let-values(((table_219)" "(let-values(((table_220)" " table_11))" @@ -58717,7 +58733,7 @@ static const char *startup_source = "(let-values(((table_222)" "(let-values()" "(let-values(((key_91" -" val_83)" +" val_82)" "(let-values()" "(values" " sym_97" @@ -58732,15 +58748,15 @@ static const char *startup_source = "(hash-set" " table_221" " key_91" -" val_83)))))" +" val_82)))))" "(values table_222)))))))" "(if(not #f)" -"(for-loop_267" +"(for-loop_266" " table_219" -"(hash-iterate-next ht_163 i_183))" +"(hash-iterate-next ht_163 i_182))" " table_219)))" " table_11)))))" -" for-loop_267)" +" for-loop_266)" " '#hasheq()" "(hash-iterate-first ht_163))))))" "(let-values(((ht+extras_0)" @@ -58749,15 +58765,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_280)" -"(lambda(ht_165 i_184)" +"((letrec-values(((for-loop_279)" +"(lambda(ht_165 i_183)" "(begin" " 'for-loop" -"(if i_184" +"(if i_183" "(let-values(((k_43 v_50)" "(hash-iterate-key+value" " ht_164" -" i_184)))" +" i_183)))" "(let-values(((ht_166)" "(let-values(((ht_167)" " ht_165))" @@ -58769,12 +58785,12 @@ static const char *startup_source = " v_50))))" "(values ht_49)))))" "(if(not #f)" -"(for-loop_280" +"(for-loop_279" " ht_166" -"(hash-iterate-next ht_164 i_184))" +"(hash-iterate-next ht_164 i_183))" " ht_166)))" " ht_165)))))" -" for-loop_280)" +" for-loop_279)" " ht_162" "(hash-iterate-first ht_164))))))" "(let-values(((to-name61_0) to-name_0)" @@ -58833,22 +58849,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_169)))" -"((letrec-values(((for-loop_281)" -"(lambda(table_223 i_185)" +"((letrec-values(((for-loop_280)" +"(lambda(table_223 i_184)" "(begin" " 'for-loop" -"(if i_185" +"(if i_184" "(let-values(((sym_98)" "(hash-iterate-key" " ht_169" -" i_185)))" +" i_184)))" "(let-values(((table_224)" "(let-values(((table_225)" " table_223))" "(let-values(((table_226)" "(let-values()" "(let-values(((key_92" -" val_84)" +" val_83)" "(let-values()" "(let-values((()" "(begin" @@ -58904,18 +58920,18 @@ static const char *startup_source = "(hash-set" " table_225" " key_92" -" val_84)))))" +" val_83)))))" "(values" " table_226)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_280" " table_224" "(hash-iterate-next" " ht_169" -" i_185))" +" i_184))" " table_224)))" " table_223)))))" -" for-loop_281)" +" for-loop_280)" " '#hash()" "(hash-iterate-first ht_169))))))" "((temp75_3)" @@ -58935,7 +58951,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_170)))" -"((letrec-values(((for-loop_282)" +"((letrec-values(((for-loop_281)" "(lambda(i_47)" "(begin" " 'for-loop" @@ -58958,13 +58974,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_282" +"(for-loop_281" "(hash-iterate-next" " ht_170" " i_47))" "(values))))" "(values))))))" -" for-loop_282)" +" for-loop_281)" "(hash-iterate-first ht_170))))" "(void)))" "(void)))))" @@ -59023,15 +59039,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_203)))" "((letrec-values(((for-loop_203)" -"(lambda(fold-var_41 lst_204)" +"(lambda(fold-var_40 lst_204)" "(begin" " 'for-loop" "(if(pair? lst_204)" "(let-values(((require-name_0)(unsafe-car lst_204))" -"((rest_105)(unsafe-cdr lst_204)))" -"(let-values(((fold-var_289)" -"(let-values(((fold-var_290) fold-var_41))" -"(let-values(((fold-var_291)" +"((rest_107)(unsafe-cdr lst_204)))" +"(let-values(((fold-var_290)" +"(let-values(((fold-var_291) fold-var_40))" +"(let-values(((fold-var_292)" "(let-values()" "(cons" "(let-values()" @@ -59040,12 +59056,12 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_290))))" -"(values fold-var_291)))))" +" fold-var_291))))" +"(values fold-var_292)))))" "(if(not #f)" -"(for-loop_203 fold-var_289 rest_105)" -" fold-var_289)))" -" fold-var_41)))))" +"(for-loop_203 fold-var_290 rest_107)" +" fold-var_290)))" +" fold-var_40)))))" " for-loop_203)" " null" " lst_203))))))" @@ -59059,20 +59075,20 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_56) require-mpis_0))" +"(let-values(((lst_111) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_283)" -"(lambda(table_227 lst_317)" +"(let-values()(check-list lst_111)))" +"((letrec-values(((for-loop_282)" +"(lambda(table_227 lst_316)" "(begin" " 'for-loop" -"(if(pair? lst_317)" +"(if(pair? lst_316)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_317))" -"((rest_178)" -"(unsafe-cdr lst_317)))" +"(unsafe-car lst_316))" +"((rest_180)" +"(unsafe-cdr lst_316)))" "(let-values(((table_228)" "(let-values(((m_29)" "(namespace->module" @@ -59081,7 +59097,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_283)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -59120,7 +59136,7 @@ static const char *startup_source = "(let-values(((table_229)" "(let-values()" "(let-values(((key_93" -" val_85)" +" val_84)" "(let-values()" "(values" " sym_99" @@ -59128,7 +59144,7 @@ static const char *startup_source = "(hash-set" " table_162" " key_93" -" val_85)))))" +" val_84)))))" "(values" " table_229)))))" "(if(not" @@ -59145,15 +59161,15 @@ static const char *startup_source = "(hash-iterate-first" " ht_37))))))" " table_32))))))" -" for-loop_284)" +" for-loop_283)" " table_227)))))" "(if(not #f)" -"(for-loop_283 table_228 rest_178)" +"(for-loop_282 table_228 rest_180)" " table_228)))" " table_227)))))" -" for-loop_283)" +" for-loop_282)" " '#hash()" -" lst_56))))" +" lst_111))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -59253,13 +59269,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_68)(begin 'eval((1/current-eval)(intro s_68))))" -"((s_181 ns_123)" +"((s_182 ns_123)" "(begin" " (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_123)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)" -"(let-values()((1/current-eval)(intro s_181 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_182 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -59279,52 +59295,52 @@ static const char *startup_source = " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_124)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_168)(begin 'compile((1/current-compile)(intro s_168) #f))))" +"(define-values(compile$1)(lambda(s_169)(begin 'compile((1/current-compile)(intro s_169) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_187)" +"(lambda(s_188)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_187) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_187)))" -"((1/current-compile) s_187 #f)))))))" +" (if (syntax?$1 s_188) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_188)))" +"((1/current-compile) s_188 #f)))))))" "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_473)" +"(lambda(s_472)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_473) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_473)))" -"(expand$1 s_473(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_470)(begin 'expand-once(expand-once$1(intro s_470)))))" +" (if (syntax?$1 s_472) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_472)))" +"(expand$1 s_472(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_469)(begin 'expand-once(expand-once$1(intro s_469)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_169)" +"(lambda(s_170)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_169) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_169)))" -"(expand-once$1 s_169)))))))" +" (if (syntax?$1 s_170) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_170)))" +"(expand-once$1 s_170)))))))" "(define-values(1/expand-to-top-form)(lambda(s_71)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_71)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_162)" +"(lambda(s_163)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_162)" +"(if(syntax?$1 s_163)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_162)))" -"(expand-to-top-form$1 s_162)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_163)))" +"(expand-to-top-form$1 s_163)))))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -59504,10 +59520,10 @@ static const char *startup_source = "(define-values(expobs-primitives)(hasheq 'current-expand-observe current-expand-observe))" "(define-values" "(struct:TH-place-channel TH-place-channel TH-place-channel? TH-place-channel-ref TH-place-channel-set!)" -"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_92)(TH-place-channel-ref x_92 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_91)(TH-place-channel-ref x_91 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_93)(TH-place-channel-ref x_93 0))(lambda(x_80)(TH-place-channel-ref x_80 1))))" +"(values(lambda(x_92)(TH-place-channel-ref x_92 0))(lambda(x_79)(TH-place-channel-ref x_79 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59694,35 +59710,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_129)" +"(lambda(i_128)" "(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_128)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_186)" +"(lambda(i_185)" "(begin" -"(maybe-count-lines!_0 i_186)" +"(maybe-count-lines!_0 i_185)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_186)))" +"(let-values(((c1_31)(linklet-directory-start i_185)))" "(if c1_31" "((lambda(pos_125)" "(let-values(((b-pos_0)" -"(search-directory i_186 pos_125(encode-symbols expected-mod_0))))" +"(search-directory i_185 pos_125(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_186 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_186)))" +"(file-position i_185 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_185)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_186)))" +"(let-values(((v_0)(1/read i_185)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -59731,7 +59747,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_186)" +"(object-name i_185)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -59739,18 +59755,18 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_186)))))))" +"(object-name i_185)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_186)))" +"(let-values(((c2_17)(cached-bundle i_185)))" "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_169)(1/read-syntax(object-name i_186) i_186)))" +"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" "(let-values((()" "(begin" -"(if(eof-object? s_169)" +"(if(eof-object? s_170)" "(let-values()" "(error" " 'default-load-handler" @@ -59758,11 +59774,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_186)))" +"(object-name i_185)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_169 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" +"(let-values(((m-s_0)(check-module-form s_170 path_12)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -59774,7 +59790,7 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_186)" +"(object-name i_185)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" @@ -59786,16 +59802,16 @@ static const char *startup_source = "(1/datum->syntax #f(cons '#%top-interaction s_424) s_424))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" -"(lambda(i_84)" +"(lambda(i_83)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_84)" +"(maybe-count-lines!_0 i_83)" "((letrec-values(((loop_115)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_298)" +"(let-values(((s_299)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59820,19 +59836,19 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_84)" -" i_84)))" +"(object-name i_83)" +" i_83)))" "(1/read-syntax" -"(object-name i_84)" -" i_84))))))" -"(if(eof-object? s_298)" +"(object-name i_83)" +" i_83))))))" +"(if(eof-object? s_299)" "(apply values vals_7)" "(loop_115" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_298)))" +"((1/current-eval)(add-top-interaction_0 s_299)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -59845,28 +59861,28 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_149 tag_1)" +"(lambda(i_148 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_149)(char->integer '#\\#))" -"(if(equal?(peek-byte i_149 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_149 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_149)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_149(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_148)(char->integer '#\\#))" +"(if(equal?(peek-byte i_148 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_148 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_148)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_148(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_154)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_154 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_153)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_153 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_85)" +"(lambda(i_84)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_85 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_84 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_84) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_68 len_39)" @@ -59886,7 +59902,7 @@ static const char *startup_source = "(let-values()" "(let-values()(not(eq? c_75 0))))))" "(values result_124)))))" -"(if(if(not((lambda x_94 result_123) c_75))(not #f) #f)" +"(if(if(not((lambda x_93 result_123) c_75))(not #f) #f)" "(for-loop_230 result_123(unsafe-fx+ 1 pos_126))" " result_123)))" " result_122)))))" @@ -59899,9 +59915,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_94)" +"(lambda(i_93)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_93)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" @@ -59910,10 +59926,10 @@ static const char *startup_source = "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_187)" +"(lambda(i_186)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_179)(read-byte i_187)))(if(eof-object? v_179) 0 v_179))))))" +"(let-values(((v_179)(read-byte i_186)))(if(eof-object? v_179) 0 v_179))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -59921,14 +59937,14 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_188 pos_118 bstr_5)" +"(lambda(i_187 pos_118 bstr_5)" "(begin" "(if(zero? pos_118)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_188 pos_118)(values))))" -"(let-values(((name-len_0)(read-number i_188)))" -"(let-values(((v_251)(read-bytes name-len_0 i_188)))" +"(let-values((()(begin(file-position i_187 pos_118)(values))))" +"(let-values(((name-len_0)(read-number i_187)))" +"(let-values(((v_251)(read-bytes name-len_0 i_187)))" "(begin" "(if(if(bytes? v_251)(=(bytes-length v_251) name-len_0) #f)" "(void)" @@ -59941,24 +59957,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_188)" +"(object-name i_187)" " pos_118" " name-len_0" " v_251)))" "(if(bytes=? bstr_5 v_251)" -"(let-values()(read-number i_188))" +"(let-values()(read-number i_187))" "(if(bytesbytes/utf-8" -"(symbol->string s_458))))" +"(symbol->string s_457))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -60011,7 +60027,7 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_103)" " null" -" lst_318))))))))))" +" lst_317))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -60029,12 +60045,12 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_162) #f))" +"(let-values(((i_161) #f))" "(dynamic-wind" "(lambda()" -"(set! i_162(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" -"(lambda()(proc_10 i_162))" -"(lambda()(close-input-port i_162)))))))" +"(set! i_161(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" +"(lambda()(proc_10 i_161))" +"(lambda()(close-input-port i_161)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -60137,16 +60153,16 @@ static const char *startup_source = "(let-values(((base_23 orig-file_0 dir?_7)(split-path path_15)))" "(let-values(((file_1 alt-file_0)" "(if expect-module_0" -"(let-values(((b_88)(path->bytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_88)))" +"(let-values(((b_90)(path->bytes orig-file_0)))" +"(let-values(((len_7)(bytes-length b_90)))" "(if(if(>= len_7 4)" -" (bytes=? #\".rkt\" (subbytes b_88 (- len_7 4)))" +" (bytes=? #\".rkt\" (subbytes b_90 (- len_7 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_88 0 (- len_7 4)) #\".ss\"))))" +" (bytes-append (subbytes b_90 0 (- len_7 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -60405,12 +60421,12 @@ static const char *startup_source = "(path-cache-set!)" "(lambda(p_77 v_252)" "(begin" -"(let-values(((i_189)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_189)))" +"(let-values(((i_188)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_188)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_189" +" i_188" "(make-weak-box" "(cons(cons p_77 v_252)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" "(define-values(-loading-filename)(gensym))" @@ -60419,30 +60435,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_468 coll-mode?_0)" +"(lambda(s_467 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_116)" -"(lambda(s_474)" +"(lambda(s_473)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_474)))" +"(let-values(((len_41)(string-length s_473)))" "((letrec-values(((iloop_2)" -"(lambda(i_102)" +"(lambda(i_101)" "(begin" " 'iloop" -"(if(= i_102 len_41)" -"(let-values()(list s_474))" -"(if(char=? '#\\/(string-ref s_474 i_102))" +"(if(= i_101 len_41)" +"(let-values()(list s_473))" +"(if(char=? '#\\/(string-ref s_473 i_101))" "(let-values()" "(cons" -"(substring s_474 0 i_102)" -"(loop_116(substring s_474(add1 i_102)))))" -"(let-values()(iloop_2(add1 i_102)))))))))" +"(substring s_473 0 i_101)" +"(loop_116(substring s_473(add1 i_101)))))" +"(let-values()(iloop_2(add1 i_101)))))))))" " iloop_2)" " 0))))))" " loop_116)" -" s_468)))" +" s_467)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -60485,14 +60501,14 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_469 from-namespace_1)" +"((s_468 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_469)" +"(if(1/resolved-module-path? s_468)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_469)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_468)))" "(if(let-values(((or-part_135)(not from-namespace_1)))" "(if or-part_135 or-part_135(1/namespace? from-namespace_1)))" "(void)" @@ -60501,7 +60517,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_469))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_468))(void))" "(let-values(((hts_1)" "(let-values(((or-part_313)" "(registry-table-ref" @@ -60515,14 +60531,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_469 'declared)" +"(hash-set!(car hts_1) s_468 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_469))" +"(if(pair?(1/resolved-module-path-name s_468))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_469)))" -" s_469))" +"(car(1/resolved-module-path-name s_468)))" +" s_468))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60534,14 +60550,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_475 relto_0 stx_18)" +"((s_474 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_475 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_474 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60865,12 +60881,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_313)" -" (if (string=? s_313 \".\")" +"(lambda(s_314)" +" (if (string=? s_314 \".\")" "(let-values() 'same)" -" (if (string=? s_313 \"..\")" +" (if (string=? s_314 \"..\")" "(let-values() 'up)" -"(let-values() s_313))))" +"(let-values() s_314))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -61030,11 +61046,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_433)" +"(lambda(s_432)" "(if(if(equal?" -"(cdr s_433)" +"(cdr s_432)" " normal-filename_0)" -"(eq?(car s_433) nsr_0)" +"(eq?(car s_432) nsr_0)" " #f)" "(let-values()" "(error" @@ -61245,16 +61261,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_68 lst_103)" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_68 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_103)" -"(let-values(((body_11)(unsafe-car lst_103))" -"((rest_140)(unsafe-cdr lst_103)))" +"(if(pair? lst_102)" +"(let-values(((body_11)(unsafe-car lst_102))" +"((rest_142)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" -"(let-values(((fold-var_211)" +"(let-values(((fold-var_213)" "(let-values()" "(cons" "(let-values()" @@ -61262,12 +61278,12 @@ static const char *startup_source = " body_11" " inside-sc_0))" " fold-var_12))))" -"(values fold-var_211)))))" +"(values fold-var_213)))))" "(if(not #f)" -"(for-loop_285 fold-var_11 rest_140)" +"(for-loop_284 fold-var_11 rest_142)" " fold-var_11)))" " fold-var_68)))))" -" for-loop_285)" +" for-loop_284)" " null" " lst_264))))))" "(let-values((()" @@ -61283,13 +61299,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_17)(expand-context-phase ctx_14)))" +"(let-values(((phase_142)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" "(let-values(((v_253) ctx_14))" -"(let-values(((the-struct_88) v_253))" -"(if(expand-context/outer? the-struct_88)" +"(let-values(((the-struct_89) v_253))" +"(if(expand-context/outer? the-struct_89)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -61311,20 +61327,20 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_88)" +"(expand-context/outer-env the-struct_89)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_88)" +"(expand-context/outer-binding-layer the-struct_89)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_88)" -"(expand-context/outer-current-introduction-scopes the-struct_88)" +"(expand-context/outer-need-eventually-defined the-struct_89)" +"(expand-context/outer-current-introduction-scopes the-struct_89)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_88))))))" +" the-struct_89))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -61401,10 +61417,10 @@ static const char *startup_source = " #f)" "(let-values(((v_226)" " body-ctx_2))" -"(let-values(((the-struct_89)" +"(let-values(((the-struct_90)" " v_226))" "(if(expand-context/outer?" -" the-struct_89)" +" the-struct_90)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" @@ -61413,36 +61429,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_89)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_89)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-env" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-binding-layer" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-reference-records" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_89)" +" the-struct_90)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))" +" the-struct_90))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -61456,7 +61472,7 @@ static const char *startup_source = "(let-values(((tmp_63)" "(core-form-sym" " disarmed-exp-body_0" -" phase_17)))" +" phase_142)))" "(if(equal? tmp_63 'begin)" "(let-values()" "(let-values((()" @@ -61473,38 +61489,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_476)" +"(let-values(((s_475)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_476))" +" s_475))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_477)" +"(let-values(((s_476)" "(if(syntax?$1" -" s_476)" +" s_475)" "(syntax-e$1" -" s_476)" -" s_476)))" +" s_475)" +" s_475)))" "(if(pair?" -" s_477)" +" s_476)" "(let-values(((begin81_0)" -"(let-values(((s_478)" +"(let-values(((s_477)" "(car" -" s_477)))" -" s_478))" +" s_476)))" +" s_477))" "((e82_0)" -"(let-values(((s_479)" +"(let-values(((s_478)" "(cdr" -" s_477)))" -"(let-values(((s_480)" +" s_476)))" +"(let-values(((s_479)" "(if(syntax?$1" -" s_479)" +" s_478)" "(syntax-e$1" -" s_479)" -" s_479)))" +" s_478)" +" s_478)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_480)))" +" s_479)))" "(if(not" " flat-s_24)" "(let-values()" @@ -61585,42 +61601,42 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_481)" +"(let-values(((s_480)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_481)" +" s_480)" "(let-values(((define-values86_0)" "(let-values(((s_49)" "(car" -" s_481)))" +" s_480)))" " s_49))" "((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_481)))" -"(let-values(((s_482)" +" s_480)))" +"(let-values(((s_481)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_482)" +" s_481)" "(let-values(((id89_0)" -"(let-values(((s_308)" +"(let-values(((s_309)" "(car" -" s_482)))" +" s_481)))" "(let-values(((s_390)" "(if(syntax?$1" -" s_308)" +" s_309)" "(syntax-e$1" -" s_308)" -" s_308)))" +" s_309)" +" s_309)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" " s_390)))" @@ -61632,8 +61648,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))" "(let-values()" -"(let-values(((id_108)" -"(let-values(((lst_194)" +"(let-values(((id_109)" +"(let-values(((lst_195)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61641,90 +61657,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" -"((letrec-values(((for-loop_286)" -"(lambda(id_109" -" lst_319)" +" lst_195)))" +"((letrec-values(((for-loop_285)" +"(lambda(id_110" +" lst_318)" "(begin" " 'for-loop" "(if(pair?" -" lst_319)" -"(let-values(((s_311)" +" lst_318)" +"(let-values(((s_312)" "(unsafe-car" -" lst_319))" -"((rest_179)" +" lst_318))" +"((rest_181)" "(unsafe-cdr" -" lst_319)))" -"(let-values(((id_71)" -"(let-values(((id_110)" -" id_109))" +" lst_318)))" +"(let-values(((id_72)" "(let-values(((id_111)" +" id_110))" +"(let-values(((id_112)" "(let-values()" "(let-values(((id92_1)" "(let-values()" "(if(let-values(((or-part_141)" "(if(syntax?$1" -" s_311)" +" s_312)" "(symbol?" "(syntax-e$1" -" s_311))" +" s_312))" " #f)))" "(if or-part_141" " or-part_141" "(symbol?" -" s_311)))" -" s_311" +" s_312)))" +" s_312" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_311)))))" +" s_312)))))" "(cons" " id92_1" -" id_110)))))" -"(values" " id_111)))))" +"(values" +" id_112)))))" "(if(not" " #f)" -"(for-loop_286" -" id_71" -" rest_179)" -" id_71)))" -" id_109)))))" -" for-loop_286)" +"(for-loop_285" +" id_72" +" rest_181)" +" id_72)))" +" id_110)))))" +" for-loop_285)" " null" -" lst_194)))))" +" lst_195)))))" "(reverse$1" -" id_108))))))))" +" id_109))))))))" "((rhs90_0)" -"(let-values(((s_483)" +"(let-values(((s_482)" "(cdr" -" s_482)))" -"(let-values(((s_484)" +" s_481)))" +"(let-values(((s_483)" "(if(syntax?$1" -" s_483)" +" s_482)" "(syntax-e$1" -" s_483)" -" s_483)))" +" s_482)" +" s_482)))" "(if(pair?" -" s_484)" +" s_483)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_484)))" +" s_483)))" " s_54))" "(()" -"(let-values(((s_312)" -"(cdr" -" s_484)))" "(let-values(((s_313)" +"(cdr" +" s_483)))" +"(let-values(((s_314)" "(if(syntax?$1" -" s_312)" -"(syntax-e$1" -" s_312)" -" s_312)))" -"(if(null?" " s_313)" +"(syntax-e$1" +" s_313)" +" s_313)))" +"(if(null?" +" s_314)" "(values)" "(raise-syntax-error$1" " #f" @@ -61782,7 +61798,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_29)" "((phase94_1)" -" phase_17)" +" phase_142)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -61800,7 +61816,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_52)" +"(let-values(((lst_319)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61808,31 +61824,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_52)))" -"((letrec-values(((for-loop_287)" -"(lambda(fold-var_182" +" lst_319)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_183" " lst_320)" "(begin" " 'for-loop" "(if(pair?" " lst_320)" -"(let-values(((id_112)" +"(let-values(((id_113)" "(unsafe-car" " lst_320))" -"((rest_180)" +"((rest_182)" "(unsafe-cdr" " lst_320)))" -"(let-values(((fold-var_238)" -"(let-values(((fold-var_292)" -" fold-var_182))" +"(let-values(((fold-var_38)" "(let-values(((fold-var_293)" +" fold-var_183))" +"(let-values(((fold-var_294)" "(let-values()" "(cons" "(let-values()" "(let-values(((id97_2)" -" id_112)" +" id_113)" "((phase98_0)" -" phase_17)" +" phase_142)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -61847,19 +61863,19 @@ static const char *startup_source = " id97_2" " phase98_0" " counter99_0)))" -" fold-var_292))))" +" fold-var_293))))" "(values" -" fold-var_293)))))" +" fold-var_294)))))" "(if(not" " #f)" -"(for-loop_287" -" fold-var_238" -" rest_180)" -" fold-var_238)))" -" fold-var_182)))))" -" for-loop_287)" +"(for-loop_286" +" fold-var_38" +" rest_182)" +" fold-var_38)))" +" fold-var_183)))))" +" for-loop_286)" " null" -" lst_52))))))" +" lst_319))))))" "(let-values(((extended-env_0)" "(let-values(((lst_230)" " keys_5)" @@ -61878,7 +61894,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_197)))" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_287)" "(lambda(env_17" " lst_321" " lst_273)" @@ -61892,13 +61908,13 @@ static const char *startup_source = "(let-values(((key_94)" "(unsafe-car" " lst_321))" -"((rest_147)" +"((rest_149)" "(unsafe-cdr" " lst_321))" "((id_9)" "(unsafe-car" " lst_273))" -"((rest_181)" +"((rest_183)" "(unsafe-cdr" " lst_273)))" "(let-values(((env_18)" @@ -61915,13 +61931,13 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_287" " env_18" -" rest_147" -" rest_181)" +" rest_149" +" rest_183)" " env_18)))" " env_17)))))" -" for-loop_288)" +" for-loop_287)" "(expand-context-env" " body-ctx_2)" " lst_230" @@ -61929,10 +61945,10 @@ static const char *startup_source = "(loop_119" "(let-values(((v_254)" " body-ctx_2))" -"(let-values(((the-struct_90)" +"(let-values(((the-struct_91)" " v_254))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_91)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -61945,35 +61961,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_91)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_91)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_90)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_91))))" " rest-bodys_0" " null" "(cons" @@ -61989,8 +62005,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_322)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_294" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_295" " lst_323)" "(begin" " 'for-loop" @@ -61999,28 +62015,28 @@ static const char *startup_source = "(let-values(((done-body_0)" "(unsafe-car" " lst_323))" -"((rest_182)" +"((rest_184)" "(unsafe-cdr" " lst_323)))" -"(let-values(((fold-var_295)" "(let-values(((fold-var_296)" -" fold-var_294))" "(let-values(((fold-var_297)" +" fold-var_295))" +"(let-values(((fold-var_298)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_296))))" +" fold-var_297))))" "(values" -" fold-var_297)))))" +" fold-var_298)))))" "(if(not" " #f)" -"(for-loop_289" -" fold-var_295" -" rest_182)" -" fold-var_295)))" -" fold-var_294)))))" -" for-loop_289)" +"(for-loop_288" +" fold-var_296" +" rest_184)" +" fold-var_296)))" +" fold-var_295)))))" +" for-loop_288)" " null" " lst_322))))" " val-idss_0))" @@ -62037,8 +62053,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_32)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_298" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_299" " lst_324)" "(begin" " 'for-loop" @@ -62047,28 +62063,28 @@ static const char *startup_source = "(let-values(((done-body_1)" "(unsafe-car" " lst_324))" -"((rest_183)" +"((rest_185)" "(unsafe-cdr" " lst_324)))" -"(let-values(((fold-var_299)" "(let-values(((fold-var_300)" -" fold-var_298))" "(let-values(((fold-var_301)" +" fold-var_299))" +"(let-values(((fold-var_302)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_300))))" +" fold-var_301))))" "(values" -" fold-var_301)))))" +" fold-var_302)))))" "(if(not" " #f)" -"(for-loop_290" -" fold-var_299" -" rest_183)" -" fold-var_299)))" -" fold-var_298)))))" -" for-loop_290)" +"(for-loop_289" +" fold-var_300" +" rest_185)" +" fold-var_300)))" +" fold-var_299)))))" +" for-loop_289)" " null" " lst_32))))" " val-keyss_0))" @@ -62085,8 +62101,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_325)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_302" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_303" " lst_201)" "(begin" " 'for-loop" @@ -62095,31 +62111,31 @@ static const char *startup_source = "(let-values(((done-body_2)" "(unsafe-car" " lst_201))" -"((rest_184)" +"((rest_186)" "(unsafe-cdr" " lst_201)))" -"(let-values(((fold-var_303)" -"(let-values(((fold-var_138)" -" fold-var_302))" "(let-values(((fold-var_304)" +"(let-values(((fold-var_138)" +" fold-var_303))" +"(let-values(((fold-var_305)" "(let-values()" "(cons" "(let-values()" "(no-binds" " done-body_2" " s_40" -" phase_17))" +" phase_142))" " fold-var_138))))" "(values" -" fold-var_304)))))" +" fold-var_305)))))" "(if(not" " #f)" -"(for-loop_260" -" fold-var_303" -" rest_184)" -" fold-var_303)))" -" fold-var_302)))))" -" for-loop_260)" +"(for-loop_259" +" fold-var_304" +" rest_186)" +" fold-var_304)))" +" fold-var_303)))))" +" for-loop_259)" " null" " lst_325))))" " val-rhss_0))" @@ -62127,7 +62143,7 @@ static const char *startup_source = " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_108)" +"(let-values(((lst_107)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62135,41 +62151,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" -"((letrec-values(((for-loop_291)" +" lst_107)))" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_139" -" lst_109)" +" lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" +" lst_108)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_109))" -"((rest_185)" +" lst_108))" +"((rest_187)" "(unsafe-cdr" -" lst_109)))" -"(let-values(((fold-var_305)" -"(let-values(((fold-var_39)" -" fold-var_139))" +" lst_108)))" "(let-values(((fold-var_306)" +"(let-values(((fold-var_142)" +" fold-var_139))" +"(let-values(((fold-var_39)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_39))))" +" fold-var_142))))" "(values" -" fold-var_306)))))" +" fold-var_39)))))" "(if(not" " #f)" -"(for-loop_291" -" fold-var_305" -" rest_185)" -" fold-var_305)))" +"(for-loop_290" +" fold-var_306" +" rest_187)" +" fold-var_306)))" " fold-var_139)))))" -" for-loop_291)" +" for-loop_290)" " null" -" lst_108))))" +" lst_107))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -62200,30 +62216,30 @@ static const char *startup_source = "(let-values(((define-syntaxes105_1" " id106_3" " rhs107_1)" -"(let-values(((s_485)" +"(let-values(((s_152)" "(if(syntax?$1" " s_94)" "(syntax-e$1" " s_94)" " s_94)))" "(if(pair?" -" s_485)" +" s_152)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_486)" +"(let-values(((s_484)" "(car" -" s_485)))" -" s_486))" +" s_152)))" +" s_484))" "((id109_0" " rhs110_0)" -"(let-values(((s_487)" +"(let-values(((s_485)" "(cdr" -" s_485)))" +" s_152)))" "(let-values(((s_96)" "(if(syntax?$1" -" s_487)" +" s_485)" "(syntax-e$1" -" s_487)" -" s_487)))" +" s_485)" +" s_485)))" "(if(pair?" " s_96)" "(let-values(((id111_0)" @@ -62247,7 +62263,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_40))" "(let-values()" -"(let-values(((id_113)" +"(let-values(((id_114)" "(let-values(((lst_326)" " flat-s_26))" "(begin" @@ -62257,89 +62273,89 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_326)))" -"((letrec-values(((for-loop_292)" -"(lambda(id_114" +"((letrec-values(((for-loop_291)" +"(lambda(id_115" " lst_35)" "(begin" " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_488)" +"(let-values(((s_486)" "(unsafe-car" " lst_35))" -"((rest_186)" +"((rest_188)" "(unsafe-cdr" " lst_35)))" -"(let-values(((id_115)" "(let-values(((id_116)" -" id_114))" "(let-values(((id_117)" +" id_115))" +"(let-values(((id_118)" "(let-values()" "(let-values(((id114_0)" "(let-values()" "(if(let-values(((or-part_327)" "(if(syntax?$1" -" s_488)" +" s_486)" "(symbol?" "(syntax-e$1" -" s_488))" +" s_486))" " #f)))" "(if or-part_327" " or-part_327" "(symbol?" -" s_488)))" -" s_488" +" s_486)))" +" s_486" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_488)))))" +" s_486)))))" "(cons" " id114_0" -" id_116)))))" -"(values" " id_117)))))" +"(values" +" id_118)))))" "(if(not" " #f)" -"(for-loop_292" -" id_115" -" rest_186)" -" id_115)))" -" id_114)))))" -" for-loop_292)" +"(for-loop_291" +" id_116" +" rest_188)" +" id_116)))" +" id_115)))))" +" for-loop_291)" " null" " lst_326)))))" "(reverse$1" -" id_113))))))))" +" id_114))))))))" "((rhs112_0)" -"(let-values(((s_489)" +"(let-values(((s_487)" "(cdr" " s_96)))" -"(let-values(((s_490)" +"(let-values(((s_488)" "(if(syntax?$1" -" s_489)" +" s_487)" "(syntax-e$1" -" s_489)" -" s_489)))" +" s_487)" +" s_487)))" "(if(pair?" -" s_490)" +" s_488)" "(let-values(((rhs113_0)" "(let-values(((s_101)" "(car" -" s_490)))" +" s_488)))" " s_101))" "(()" "(let-values(((s_324)" "(cdr" -" s_490)))" -"(let-values(((s_491)" +" s_488)))" +"(let-values(((s_489)" "(if(syntax?$1" " s_324)" "(syntax-e$1" " s_324)" " s_324)))" "(if(null?" -" s_491)" +" s_489)" "(values)" "(raise-syntax-error$1" " #f" @@ -62397,7 +62413,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_30)" "((phase116_0)" -" phase_17)" +" phase_142)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62424,17 +62440,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_327)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_292)" "(lambda(fold-var_307" " lst_328)" "(begin" " 'for-loop" "(if(pair?" " lst_328)" -"(let-values(((id_118)" +"(let-values(((id_119)" "(unsafe-car" " lst_328))" -"((rest_187)" +"((rest_189)" "(unsafe-cdr" " lst_328)))" "(let-values(((fold-var_308)" @@ -62445,9 +62461,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id119_0)" -" id_118)" +" id_119)" "((phase120_0)" -" phase_17)" +" phase_142)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62467,12 +62483,12 @@ static const char *startup_source = " fold-var_310)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_292" " fold-var_308" -" rest_187)" +" rest_189)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_293)" +" for-loop_292)" " null" " lst_327))))))" "(let-values((()" @@ -62537,7 +62553,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_330)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_293)" "(lambda(env_21" " lst_331" " lst_332" @@ -62555,19 +62571,19 @@ static const char *startup_source = "(let-values(((key_95)" "(unsafe-car" " lst_331))" -"((rest_188)" +"((rest_190)" "(unsafe-cdr" " lst_331))" -"((val_86)" +"((val_85)" "(unsafe-car" " lst_332))" -"((rest_189)" +"((rest_191)" "(unsafe-cdr" " lst_332))" -"((id_119)" +"((id_7)" "(unsafe-car" " lst_333))" -"((rest_190)" +"((rest_192)" "(unsafe-cdr" " lst_333)))" "(let-values(((env_22)" @@ -62577,26 +62593,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_119" -" phase_17" +" val_85" +" id_7" +" phase_142" " body-ctx_2)" "(env-extend" " env_23" " key_95" -" val_86)))))" +" val_85)))))" "(values" " env_24)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_293" " env_22" -" rest_188" -" rest_189" -" rest_190)" +" rest_190" +" rest_191" +" rest_192)" " env_22)))" " env_21)))))" -" for-loop_294)" +" for-loop_293)" "(expand-context-env" " body-ctx_2)" " lst_46" @@ -62704,7 +62720,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_17)" +" phase_142)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -62764,7 +62780,7 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_229) source10_0))" +"(let-values(((s_230) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -62776,7 +62792,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_229))" +" s_230))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" @@ -62784,8 +62800,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_91) v_256))" -"(if(expand-context/outer? the-struct_91)" +"(let-values(((the-struct_92) v_256))" +"(if(expand-context/outer? the-struct_92)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -62803,24 +62819,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_91)" +"(root-expand-context/outer-frame-id the-struct_92)" " context127_0" -"(expand-context/outer-env the-struct_91)" +"(expand-context/outer-env the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_92)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_91)" -"(expand-context/outer-reference-records the-struct_91)" +"(expand-context/outer-binding-layer the-struct_92)" +"(expand-context/outer-reference-records the-struct_92)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_91)" +"(expand-context/outer-need-eventually-defined the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" -"(expand-context/outer-name the-struct_91)))" +" the-struct_92)" +"(expand-context/outer-name the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_92))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62874,7 +62890,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_295)" +"((letrec-values(((for-loop_294)" "(lambda(fold-var_311" " lst_335" " pos_127)" @@ -62887,10 +62903,10 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_335))" -"((rest_191)" +"((rest_193)" "(unsafe-cdr" " lst_335))" -"((i_190)" +"((i_189)" " pos_127))" "(let-values(((fold-var_312)" "(let-values(((fold-var_313)" @@ -62915,15 +62931,15 @@ static const char *startup_source = "((temp135_3)" "(if(if name_79" "(=" -" i_190" +" i_189" " last-i_1)" " #f)" "(let-values(((v_257)" " finish-ctx_0))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_93)" " v_257))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_93)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" @@ -62932,36 +62948,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-binding-layer" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_93)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_93))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -62975,15 +62991,15 @@ static const char *startup_source = " fold-var_314)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_294" " fold-var_312" -" rest_191" +" rest_193" "(+" " pos_127" " 1))" " fold-var_312)))" " fold-var_311)))))" -" for-loop_295)" +" for-loop_294)" " null" " lst_334" " start_66))))))" @@ -63010,7 +63026,7 @@ static const char *startup_source = "(call-expand-observe" " obs_79" " 'block->list" -"(datum->syntax$1 s_229 done-bodys_1))))" +"(datum->syntax$1 s_230 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -63023,7 +63039,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_80" " finish-ctx_0" -" s_229" +" s_230" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -63039,7 +63055,7 @@ static const char *startup_source = "((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_229)" +"((s145_0) s_230)" "((temp146_3)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -63092,12 +63108,12 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_77) ctx32_0))" -"(let-values(((s_492) source33_0))" +"(let-values(((s_490) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_142)(expand-context-phase ctx_77)))" +"(let-values(((phase_143)(expand-context-phase ctx_77)))" "((letrec-values(((loop_120)" "(lambda(idss_2" " keyss_1" @@ -63122,12 +63138,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_492)" +"(keep-properties-only s_490)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_492)" +"(keep-properties-only s_490)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -63136,16 +63152,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_492)" +"((s150_0) s_490)" "((temp151_3)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_142)" +" phase_143)" "(core-id" " 'letrec-values" -" phase_142))" +" phase_143))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -63241,7 +63257,7 @@ static const char *startup_source = " ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_492)" +" s_490)" "(list ids_31)" "(list" "(list" @@ -63251,12 +63267,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_492)" +" s_490)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_142)" +" phase_143)" "(list" "(build-clause" " ids_31" @@ -63314,7 +63330,7 @@ static const char *startup_source = " ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_492)" +" s_490)" "(reverse$1" "(cons" " ids_31" @@ -63332,12 +63348,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_492)" +" s_490)" "((temp159_0)" "(list*" "(core-id" " 'letrec-values" -" phase_142)" +" phase_143)" "(build-clauses" "(cons" " ids_31" @@ -63412,22 +63428,22 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_493 phase_143)" +"(lambda(expr_10 s_491 phase_144)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_143)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_144)))" "(datum->syntax$1" -"(core-id '#%app phase_143)" -"(list(core-id 'begin phase_143) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_493)))))" +"(core-id '#%app phase_144)" +"(list(core-id 'begin phase_144) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_491)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_79 s_494 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_492 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_144)(expand-context-phase ctx_79)))" +"(let-values(((phase_145)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" "(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_336) track-stxs_4))" @@ -63441,15 +63457,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_336)))" -"((letrec-values(((for-loop_296)" +"((letrec-values(((for-loop_295)" "(lambda(fold-var_315 lst_337 lst_338 lst_339)" "(begin" " 'for-loop" "(if(if(pair? lst_337)(if(pair? lst_338)(pair? lst_339) #f) #f)" "(let-values(((val-ids_0)(unsafe-car lst_337))" -"((rest_192)(unsafe-cdr lst_337))" +"((rest_194)(unsafe-cdr lst_337))" "((val-rhs_0)(unsafe-car lst_338))" -"((rest_193)(unsafe-cdr lst_338))" +"((rest_195)(unsafe-cdr lst_338))" "((track-stx_2)(unsafe-car lst_339))" "((rest_62)(unsafe-cdr lst_339)))" "(let-values(((fold-var_316)" @@ -63465,23 +63481,23 @@ static const char *startup_source = " fold-var_317))))" "(values fold-var_318)))))" "(if(not #f)" -"(for-loop_296 fold-var_316 rest_192 rest_193 rest_62)" +"(for-loop_295 fold-var_316 rest_194 rest_195 rest_62)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_296)" +" for-loop_295)" " null" " lst_245" " lst_246" " lst_336))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" -"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_144)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_145)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_494)))" +" s_492)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63496,7 +63512,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_494))" +"(datum->syntax$1 #f done-bodys_2 s_492))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63508,7 +63524,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_494)))))))" +"(datum->syntax$1 #f done-bodys_2 s_492)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63516,18 +63532,18 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_494))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_492))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_145)(expand-context-phase ctx_80)))" +"(let-values(((phase_146)(expand-context-phase ctx_80)))" "(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_33)" -"((phase35_2) phase_145)" +"((phase35_2) phase_146)" "((s36_0) s_70)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" @@ -63535,28 +63551,28 @@ static const char *startup_source = "(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_89) ids_33))" +"(let-values(((lst_88) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_297)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_296)" "(lambda(fold-var_319 lst_265)" "(begin" " 'for-loop" "(if(pair? lst_265)" "(let-values(((id_120)(unsafe-car lst_265))" -"((rest_194)(unsafe-cdr lst_265)))" +"((rest_196)(unsafe-cdr lst_265)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_319))" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_155)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_0)" " id_120)" "((phase39_1)" -" phase_145)" +" phase_146)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -63570,32 +63586,32 @@ static const char *startup_source = " phase39_1" " counter40_0)))" " fold-var_34))))" -"(values fold-var_154)))))" +"(values fold-var_155)))))" "(if(not #f)" -"(for-loop_297 fold-var_33 rest_194)" +"(for-loop_296 fold-var_33 rest_196)" " fold-var_33)))" " fold-var_319)))))" -" for-loop_297)" +" for-loop_296)" " null" -" lst_89))))))" +" lst_88))))))" "(let-values(((body-env_0)" -"(let-values(((lst_82) keys_7)((lst_92) ids_33))" +"(let-values(((lst_81) keys_7)((lst_91) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" +"(let-values()(check-list lst_81)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_233)" -"(lambda(env_25 lst_84 lst_271)" +"(lambda(env_25 lst_83 lst_271)" "(begin" " 'for-loop" -"(if(if(pair? lst_84)(pair? lst_271) #f)" -"(let-values(((key_96)(unsafe-car lst_84))" -"((rest_146)(unsafe-cdr lst_84))" +"(if(if(pair? lst_83)(pair? lst_271) #f)" +"(let-values(((key_96)(unsafe-car lst_83))" +"((rest_148)(unsafe-cdr lst_83))" "((id_121)(unsafe-car lst_271))" -"((rest_195)(unsafe-cdr lst_271)))" +"((rest_197)(unsafe-cdr lst_271)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63607,13 +63623,13 @@ static const char *startup_source = " id_121)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_233 env_26 rest_146 rest_195)" +"(for-loop_233 env_26 rest_148 rest_197)" " env_26)))" " env_25)))))" " for-loop_233)" "(expand-context-env ctx_80)" -" lst_82" -" lst_92)))))" +" lst_81" +" lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -63663,8 +63679,8 @@ static const char *startup_source = "(values))))" "(let-values(((body-ctx_4)" "(let-values(((v_258) ctx_80))" -"(let-values(((the-struct_93) v_258))" -"(if(expand-context/outer? the-struct_93)" +"(let-values(((the-struct_94) v_258))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" "((binding-layer44_0)" @@ -63673,24 +63689,24 @@ static const char *startup_source = "((inner46_0)(root-expand-context/outer-inner v_258)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_93)" -"(root-expand-context/outer-use-site-scopes the-struct_93)" +"(root-expand-context/outer-post-expansion-scope the-struct_94)" +"(root-expand-context/outer-use-site-scopes the-struct_94)" " frame-id45_0" -"(expand-context/outer-context the-struct_93)" +"(expand-context/outer-context the-struct_94)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_93)" +"(expand-context/outer-post-expansion-scope-action the-struct_94)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_93)" +"(expand-context/outer-def-ctx-scopes the-struct_94)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_93)" -"(expand-context/outer-only-immediate? the-struct_93)" -"(expand-context/outer-need-eventually-defined the-struct_93)" -"(expand-context/outer-current-introduction-scopes the-struct_93)" -"(expand-context/outer-name the-struct_93)))" +"(expand-context/outer-reference-records the-struct_94)" +"(expand-context/outer-only-immediate? the-struct_94)" +"(expand-context/outer-need-eventually-defined the-struct_94)" +"(expand-context/outer-current-introduction-scopes the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_94))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" @@ -63714,24 +63730,24 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_428) disarmed-s_6))" -"(let-values(((orig-s_41) s_428))" +"(let-values(((s_427) disarmed-s_6))" +"(let-values(((orig-s_41) s_427))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_164)(if(syntax?$1 s_428)(syntax-e$1 s_428) s_428)))" -"(if(pair? s_164)" -"(let-values(((lambda56_0)(let-values(((s_495)(car s_164))) s_495))" +"(let-values(((s_165)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))" +"(if(pair? s_165)" +"(let-values(((lambda56_0)(let-values(((s_493)(car s_165))) s_493))" "((formals57_0 body58_0)" -"(let-values(((s_476)(cdr s_164)))" -"(let-values(((s_469)" -"(if(syntax?$1 s_476)" -"(syntax-e$1 s_476)" -" s_476)))" -"(if(pair? s_469)" +"(let-values(((s_475)(cdr s_165)))" +"(let-values(((s_468)" +"(if(syntax?$1 s_475)" +"(syntax-e$1 s_475)" +" s_475)))" +"(if(pair? s_468)" "(let-values(((formals59_0)" -"(let-values(((s_477)(car s_469)))" -" s_477))" +"(let-values(((s_476)(car s_468)))" +" s_476))" "((body60_0)" -"(let-values(((s_66)(cdr s_469)))" +"(let-values(((s_66)(cdr s_468)))" "(let-values(((s_79)" "(if(syntax?$1 s_66)" "(syntax-e$1 s_66)" @@ -63770,27 +63786,27 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_496)" +"(lambda(s_494)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_497) s_496))" -"(let-values(((orig-s_42) s_497))" +"(let-values(((s_495) s_494))" +"(let-values(((orig-s_42) s_495))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_307)(if(syntax?$1 s_497)(syntax-e$1 s_497) s_497)))" -"(if(pair? s_307)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_307))) s_48))" +"(let-values(((s_308)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" +"(if(pair? s_308)" +"(let-values(((lam-id69_0)(let-values(((s_48)(car s_308))) s_48))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_307)))" +"(let-values(((s_49)(cdr s_308)))" "(let-values(((s_32)" "(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_498)(car s_32))) s_498))" +"(let-values(((s_496)(car s_32))) s_496))" "((_73_0)" -"(let-values(((s_308)(cdr s_32)))" +"(let-values(((s_309)(cdr s_32)))" "(let-values(((s_390)" -"(if(syntax?$1 s_308)" -"(syntax-e$1 s_308)" -" s_308)))" +"(if(syntax?$1 s_309)" +"(syntax-e$1 s_309)" +" s_309)))" "(let-values(((flat-s_25)" "(to-syntax-list.1 s_390)))" "(if(not flat-s_25)" @@ -63811,23 +63827,23 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_496)))" -"(let-values(((ctx_82)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" -"(let-values(((phase_146)(if ctx_82(expand-context-phase ctx_82) 0)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_494)))" +"(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" +"(let-values(((phase_147)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_146) ((s76_2) s_496) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_147) ((s76_2) s_494) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" -" s_496" +" s_494" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_146) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_496)))" -" s_496" -" s_496)))))))))" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_147) 'lambda lam-id66_0 lam-id66_0)" +"(cdr(syntax-e$1 s_494)))" +" s_494" +" s_494)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_499 ctx_83)" +"(lambda(s_497 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_86)(expand-context-observer ctx_83)))" @@ -63835,20 +63851,20 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_86 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_499)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_497)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_500) disarmed-s_7))" -"(let-values(((orig-s_43) s_500))" +"(let-values(((s_498) disarmed-s_7))" +"(let-values(((orig-s_43) s_498))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_501)(if(syntax?$1 s_500)(syntax-e$1 s_500) s_500)))" -"(if(pair? s_501)" -"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_501))) s_59))" +"(let-values(((s_499)(if(syntax?$1 s_498)(syntax-e$1 s_498) s_498)))" +"(if(pair? s_499)" +"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_499))) s_59))" "((formals83_0 body84_0)" -"(let-values(((s_502)(cdr s_501)))" +"(let-values(((s_500)(cdr s_499)))" "(let-values(((s_36)" -"(if(syntax?$1 s_502)" -"(syntax-e$1 s_502)" -" s_502)))" +"(if(syntax?$1 s_500)" +"(syntax-e$1 s_500)" +" s_500)))" "(let-values(((flat-s_28)(to-syntax-list.1 s_36)))" "(if(not flat-s_28)" "(let-values()" @@ -63862,7 +63878,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_340)))" -"((letrec-values(((for-loop_298)" +"((letrec-values(((for-loop_297)" "(lambda(formals_4" " body_15" " lst_341)" @@ -63873,7 +63889,7 @@ static const char *startup_source = "(let-values(((s_61)" "(unsafe-car" " lst_341))" -"((rest_196)" +"((rest_198)" "(unsafe-cdr" " lst_341)))" "(let-values(((formals_5" @@ -63902,18 +63918,18 @@ static const char *startup_source = " s_63)))" " s_90))" "((body86_0)" -"(let-values(((s_202)" +"(let-values(((s_203)" "(cdr" " s_63)))" -"(let-values(((s_503)" +"(let-values(((s_501)" "(if(syntax?$1" -" s_202)" +" s_203)" "(syntax-e$1" -" s_202)" -" s_202)))" +" s_203)" +" s_203)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_503)))" +" s_501)))" "(if(not" " flat-s_29)" "(let-values()" @@ -63949,17 +63965,17 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_297" " formals_5" " body_16" -" rest_196)" +" rest_198)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_298)" +" for-loop_297)" " null" " null" " lst_340)))))" @@ -63970,19 +63986,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_203) disarmed-s_7))" -"(let-values(((orig-s_44) s_203))" +"(let-values(((s_204) disarmed-s_7))" +"(let-values(((orig-s_44) s_204))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_504)(if(syntax?$1 s_203)(syntax-e$1 s_203) s_203)))" -"(if(pair? s_504)" -"(let-values(((case-lambda89_0)(let-values(((s_91)(car s_504))) s_91))" +"(let-values(((s_502)(if(syntax?$1 s_204)(syntax-e$1 s_204) s_204)))" +"(if(pair? s_502)" +"(let-values(((case-lambda89_0)(let-values(((s_91)(car s_502))) s_91))" "((clause90_0)" -"(let-values(((s_505)(cdr s_504)))" -"(let-values(((s_434)" -"(if(syntax?$1 s_505)" -"(syntax-e$1 s_505)" -" s_505)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_434)))" +"(let-values(((s_503)(cdr s_502)))" +"(let-values(((s_433)" +"(if(syntax?$1 s_503)" +"(syntax-e$1 s_503)" +" s_503)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_433)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -63991,7 +64007,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_1) ctx_83)((s94_0) s_499)((temp95_3) #t))" +"(let-values(((ctx93_1) ctx_83)((s94_0) s_497)((temp95_3) #t))" "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" @@ -64007,19 +64023,19 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_204)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_320 lst_274 lst_155 lst_344)" +"(lambda(fold-var_320 lst_274 lst_157 lst_344)" "(begin" " 'for-loop" "(if(if(pair? lst_274)" -"(if(pair? lst_155)(pair? lst_344) #f)" +"(if(pair? lst_157)(pair? lst_344) #f)" " #f)" "(let-values(((formals_8)(unsafe-car lst_274))" -"((rest_197)(unsafe-cdr lst_274))" -"((body_19)(unsafe-car lst_155))" -"((rest_79)(unsafe-cdr lst_155))" +"((rest_199)(unsafe-cdr lst_274))" +"((body_19)(unsafe-car lst_157))" +"((rest_80)(unsafe-cdr lst_157))" "((clause_3)(unsafe-car lst_344))" -"((rest_198)(unsafe-cdr lst_344)))" -"(let-values(((fold-var_146)" +"((rest_200)(unsafe-cdr lst_344)))" +"(let-values(((fold-var_147)" "(let-values(((fold-var_321) fold-var_320))" "(let-values(((fold-var_322)" "(let-values()" @@ -64055,7 +64071,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_499" +" s_497" " disarmed-s_7" " formals_8" " body_19" @@ -64080,8 +64096,8 @@ static const char *startup_source = " fold-var_321))))" "(values fold-var_322)))))" "(if(not #f)" -"(for-loop_122 fold-var_146 rest_197 rest_79 rest_198)" -" fold-var_146)))" +"(for-loop_122 fold-var_147 rest_199 rest_80 rest_200)" +" fold-var_147)))" " fold-var_320)))))" " for-loop_122)" " null" @@ -64094,7 +64110,7 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_506)" +"(lambda(all-formals_0 sc_36 s_504)" "(begin" "((letrec-values(((loop_121)" "(lambda(formals_9)" @@ -64109,21 +64125,21 @@ static const char *startup_source = "(let-values()(loop_121 p_87))" "(if(null? p_87)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_506 p_87))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_504 p_87))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_506 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_504 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" "(loop_121(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_506 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_504 all-formals_0))))))))))" " loop_121)" " all-formals_0))))" "(define-values" @@ -64179,9 +64195,9 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_440) disarmed-s_8))" +"(let-values(((s_439) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_440))" +"(let-values(((orig-s_45) s_439))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" @@ -64189,9 +64205,9 @@ static const char *startup_source = " val-rhs106_1" " body107_1)" "(let-values(((s_124)" -"(if(syntax?$1 s_440)" -"(syntax-e$1 s_440)" -" s_440)))" +"(if(syntax?$1 s_439)" +"(syntax-e$1 s_439)" +" s_439)))" "(if(pair? s_124)" "(let-values(((letrec-syntaxes+values108_0)" "(let-values(((s_125)(car s_124))) s_125))" @@ -64200,26 +64216,26 @@ static const char *startup_source = " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_507)(cdr s_124)))" -"(let-values(((s_508)" -"(if(syntax?$1 s_507)" -"(syntax-e$1 s_507)" -" s_507)))" -"(if(pair? s_508)" +"(let-values(((s_505)(cdr s_124)))" +"(let-values(((s_506)" +"(if(syntax?$1 s_505)" +"(syntax-e$1 s_505)" +" s_505)))" +"(if(pair? s_506)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_509)" +"(let-values(((s_507)" "(car" -" s_508)))" -"(let-values(((s_224)" +" s_506)))" +"(let-values(((s_225)" "(if(syntax?$1" -" s_509)" +" s_507)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_507)" +" s_507)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_224)))" +" s_225)))" "(if(not" " flat-s_31)" "(let-values()" @@ -64250,7 +64266,7 @@ static const char *startup_source = "(let-values(((s_328)" "(unsafe-car" " lst_346))" -"((rest_199)" +"((rest_201)" "(unsafe-cdr" " lst_346)))" "(let-values(((id:trans_2" @@ -64295,7 +64311,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_300)" +"(let-values(((lst_299)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64303,20 +64319,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_300)))" -"((letrec-values(((for-loop_263)" +" lst_299)))" +"((letrec-values(((for-loop_262)" "(lambda(id:trans_6" -" lst_301)" +" lst_300)" "(begin" " 'for-loop" "(if(pair?" -" lst_301)" -"(let-values(((s_232)" +" lst_300)" +"(let-values(((s_233)" "(unsafe-car" -" lst_301))" -"((rest_166)" +" lst_300))" +"((rest_168)" "(unsafe-cdr" -" lst_301)))" +" lst_300)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64326,21 +64342,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_232)" +" s_233)" "(symbol?" "(syntax-e$1" -" s_232))" +" s_233))" " #f)))" "(if or-part_384" " or-part_384" "(symbol?" -" s_232)))" -" s_232" +" s_233)))" +" s_233" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_232)))))" +" s_233)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -64348,43 +64364,43 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_262" " id:trans_7" -" rest_166)" +" rest_168)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_263)" +" for-loop_262)" " null" -" lst_300)))))" +" lst_299)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_510)" +"(let-values(((s_508)" "(cdr" " s_333)))" -"(let-values(((s_511)" +"(let-values(((s_509)" "(if(syntax?$1" -" s_510)" +" s_508)" "(syntax-e$1" -" s_510)" -" s_510)))" +" s_508)" +" s_508)))" "(if(pair?" -" s_511)" +" s_509)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_235)" -"(car" -" s_511)))" -" s_235))" -"(()" "(let-values(((s_236)" +"(car" +" s_509)))" +" s_236))" +"(()" +"(let-values(((s_237)" "(cdr" -" s_511)))" +" s_509)))" "(let-values(((s_343)" "(if(syntax?$1" -" s_236)" +" s_237)" "(syntax-e$1" -" s_236)" -" s_236)))" +" s_237)" +" s_237)))" "(if(null?" " s_343)" "(values)" @@ -64420,7 +64436,7 @@ static const char *startup_source = "(for-loop_48" " id:trans_2" " trans-rhs_2" -" rest_199)" +" rest_201)" "(values" " id:trans_2" " trans-rhs_2))))" @@ -64441,19 +64457,19 @@ static const char *startup_source = " body118_0)" "(let-values(((s_344)" "(cdr" -" s_508)))" -"(let-values(((s_237)" +" s_506)))" +"(let-values(((s_238)" "(if(syntax?$1" " s_344)" "(syntax-e$1" " s_344)" " s_344)))" -"(if(pair? s_237)" +"(if(pair? s_238)" "(let-values(((id:val122_0" " val-rhs123_0)" "(let-values(((s_345)" "(car" -" s_237)))" +" s_238)))" "(let-values(((s_346)" "(if(syntax?$1" " s_345)" @@ -64482,7 +64498,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_347)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(id:val_1" " val-rhs_2" " lst_348)" @@ -64493,7 +64509,7 @@ static const char *startup_source = "(let-values(((s_351)" "(unsafe-car" " lst_348))" -"((rest_200)" +"((rest_202)" "(unsafe-cdr" " lst_348)))" "(let-values(((id:val_2" @@ -64508,19 +64524,19 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_512)" +"(let-values(((s_510)" "(if(syntax?$1" " s_351)" "(syntax-e$1" " s_351)" " s_351)))" "(if(pair?" -" s_512)" +" s_510)" "(let-values(((id:val125_0)" "(let-values(((s_356)" "(car" -" s_512)))" -"(let-values(((s_513)" +" s_510)))" +"(let-values(((s_511)" "(if(syntax?$1" " s_356)" "(syntax-e$1" @@ -64528,7 +64544,7 @@ static const char *startup_source = " s_356)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_513)))" +" s_511)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64547,17 +64563,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_349)))" -"((letrec-values(((for-loop_299)" +"((letrec-values(((for-loop_298)" "(lambda(id:val_6" " lst_350)" "(begin" " 'for-loop" "(if(pair?" " lst_350)" -"(let-values(((s_514)" +"(let-values(((s_512)" "(unsafe-car" " lst_350))" -"((rest_201)" +"((rest_203)" "(unsafe-cdr" " lst_350)))" "(let-values(((id:val_7)" @@ -64569,21 +64585,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_514)" +" s_512)" "(symbol?" "(syntax-e$1" -" s_514))" +" s_512))" " #f)))" "(if or-part_385" " or-part_385" "(symbol?" -" s_514)))" -" s_514" +" s_512)))" +" s_512" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_514)))))" +" s_512)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -64591,45 +64607,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_298" " id:val_7" -" rest_201)" +" rest_203)" " id:val_7)))" " id:val_6)))))" -" for-loop_299)" +" for-loop_298)" " null" " lst_349)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_242)" -"(cdr" -" s_512)))" -"(let-values(((s_515)" -"(if(syntax?$1" -" s_242)" -"(syntax-e$1" -" s_242)" -" s_242)))" -"(if(pair?" -" s_515)" -"(let-values(((val-rhs127_0)" -"(let-values(((s_516)" -"(car" -" s_515)))" -" s_516))" -"(()" -"(let-values(((s_517)" -"(cdr" -" s_515)))" "(let-values(((s_243)" +"(cdr" +" s_510)))" +"(let-values(((s_513)" "(if(syntax?$1" -" s_517)" -"(syntax-e$1" -" s_517)" -" s_517)))" -"(if(null?" " s_243)" +"(syntax-e$1" +" s_243)" +" s_243)))" +"(if(pair?" +" s_513)" +"(let-values(((val-rhs127_0)" +"(let-values(((s_514)" +"(car" +" s_513)))" +" s_514))" +"(()" +"(let-values(((s_515)" +"(cdr" +" s_513)))" +"(let-values(((s_244)" +"(if(syntax?$1" +" s_515)" +"(syntax-e$1" +" s_515)" +" s_515)))" +"(if(null?" +" s_244)" "(values)" "(raise-syntax-error$1" " #f" @@ -64660,17 +64676,17 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_265" +"(for-loop_264" " id:val_2" " val-rhs_3" -" rest_200)" +" rest_202)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_265)" +" for-loop_264)" " null" " null" " lst_347)))))" @@ -64680,18 +64696,18 @@ static const char *startup_source = "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_244)" -"(cdr" -" s_237)))" "(let-values(((s_245)" +"(cdr" +" s_238)))" +"(let-values(((s_246)" "(if(syntax?$1" -" s_244)" +" s_245)" "(syntax-e$1" -" s_244)" -" s_244)))" +" s_245)" +" s_245)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_245)))" +" s_246)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64744,36 +64760,36 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_518) disarmed-s_8))" +"(let-values(((s_516) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_518))" +"(let-values(((orig-s_46) s_516))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_519)" -"(if(syntax?$1 s_518)" -"(syntax-e$1 s_518)" -" s_518)))" -"(if(pair? s_519)" +"(let-values(((s_517)" +"(if(syntax?$1 s_516)" +"(syntax-e$1 s_516)" +" s_516)))" +"(if(pair? s_517)" "(let-values(((let-values132_0)" -"(let-values(((s_520)(car s_519)))" -" s_520))" +"(let-values(((s_518)(car s_517)))" +" s_518))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_446)(cdr s_519)))" -"(let-values(((s_447)" -"(if(syntax?$1 s_446)" -"(syntax-e$1 s_446)" -" s_446)))" -"(if(pair? s_447)" +"(let-values(((s_445)(cdr s_517)))" +"(let-values(((s_446)" +"(if(syntax?$1 s_445)" +"(syntax-e$1 s_445)" +" s_445)))" +"(if(pair? s_446)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_252)" +"(let-values(((s_253)" "(car" -" s_447)))" +" s_446)))" "(let-values(((s_362)" "(if(syntax?$1" -" s_252)" +" s_253)" "(syntax-e$1" -" s_252)" -" s_252)))" +" s_253)" +" s_253)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" " s_362)))" @@ -64796,7 +64812,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_351)))" -"((letrec-values(((for-loop_300)" +"((letrec-values(((for-loop_299)" "(lambda(id:val_11" " val-rhs_7" " lst_352)" @@ -64807,7 +64823,7 @@ static const char *startup_source = "(let-values(((s_371)" "(unsafe-car" " lst_352))" -"((rest_202)" +"((rest_204)" "(unsafe-cdr" " lst_352)))" "(let-values(((id:val_12" @@ -64822,18 +64838,18 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_492)" +"(let-values(((s_490)" "(if(syntax?$1" " s_371)" "(syntax-e$1" " s_371)" " s_371)))" "(if(pair?" -" s_492)" +" s_490)" "(let-values(((id:val139_0)" "(let-values(((s_375)" "(car" -" s_492)))" +" s_490)))" "(let-values(((s_376)" "(if(syntax?$1" " s_375)" @@ -64852,7 +64868,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_306)" +"(let-values(((lst_305)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64860,20 +64876,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_306)))" -"((letrec-values(((for-loop_270)" +" lst_305)))" +"((letrec-values(((for-loop_269)" "(lambda(id:val_16" -" lst_307)" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" -"(let-values(((s_521)" +" lst_306)" +"(let-values(((s_519)" "(unsafe-car" -" lst_307))" -"((rest_170)" +" lst_306))" +"((rest_172)" "(unsafe-cdr" -" lst_307)))" +" lst_306)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64883,21 +64899,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_521)" +" s_519)" "(symbol?" "(syntax-e$1" -" s_521))" +" s_519))" " #f)))" "(if or-part_386" " or-part_386" "(symbol?" -" s_521)))" -" s_521" +" s_519)))" +" s_519" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_521)))))" +" s_519)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -64905,45 +64921,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_270" +"(for-loop_269" " id:val_17" -" rest_170)" +" rest_172)" " id:val_17)))" " id:val_16)))))" -" for-loop_270)" +" for-loop_269)" " null" -" lst_306)))))" +" lst_305)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_255)" -"(cdr" -" s_492)))" "(let-values(((s_256)" -"(if(syntax?$1" -" s_255)" -"(syntax-e$1" -" s_255)" -" s_255)))" -"(if(pair?" -" s_256)" -"(let-values(((val-rhs141_0)" -"(let-values(((s_522)" -"(car" -" s_256)))" -" s_522))" -"(()" -"(let-values(((s_523)" "(cdr" -" s_256)))" -"(let-values(((s_524)" +" s_490)))" +"(let-values(((s_257)" "(if(syntax?$1" -" s_523)" +" s_256)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_256)" +" s_256)))" +"(if(pair?" +" s_257)" +"(let-values(((val-rhs141_0)" +"(let-values(((s_520)" +"(car" +" s_257)))" +" s_520))" +"(()" +"(let-values(((s_521)" +"(cdr" +" s_257)))" +"(let-values(((s_522)" +"(if(syntax?$1" +" s_521)" +"(syntax-e$1" +" s_521)" +" s_521)))" "(if(null?" -" s_524)" +" s_522)" "(values)" "(raise-syntax-error$1" " #f" @@ -64974,17 +64990,17 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_299" " id:val_12" " val-rhs_8" -" rest_202)" +" rest_204)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_300)" +" for-loop_299)" " null" " null" " lst_351)))))" @@ -64994,18 +65010,18 @@ static const char *startup_source = "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_258)" -"(cdr" -" s_447)))" "(let-values(((s_259)" +"(cdr" +" s_446)))" +"(let-values(((s_260)" "(if(syntax?$1" -" s_258)" +" s_259)" "(syntax-e$1" -" s_258)" -" s_258)))" +" s_259)" +" s_259)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_259)))" +" s_260)))" "(if(not" " flat-s_38)" "(let-values()" @@ -65039,7 +65055,7 @@ static const char *startup_source = "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_147)(expand-context-phase ctx_84)))" +"(let-values(((phase_148)(expand-context-phase ctx_84)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" @@ -65048,14 +65064,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_301)" +"((letrec-values(((for-loop_300)" "(lambda(fold-var_323 lst_354)" "(begin" " 'for-loop" "(if(pair? lst_354)" "(let-values(((ids_35)" "(unsafe-car lst_354))" -"((rest_203)" +"((rest_205)" "(unsafe-cdr lst_354)))" "(let-values(((fold-var_324)" "(let-values(((fold-var_325)" @@ -65074,7 +65090,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_355)))" -"((letrec-values(((for-loop_302)" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_327" " lst_356)" "(begin" @@ -65084,7 +65100,7 @@ static const char *startup_source = "(let-values(((id_122)" "(unsafe-car" " lst_356))" -"((rest_204)" +"((rest_206)" "(unsafe-cdr" " lst_356)))" "(let-values(((fold-var_328)" @@ -65102,22 +65118,22 @@ static const char *startup_source = " fold-var_330)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " fold-var_328" -" rest_204)" +" rest_206)" " fold-var_328)))" " fold-var_327)))))" -" for-loop_302)" +" for-loop_301)" " null" " lst_355)))))" " fold-var_325))))" "(values" " fold-var_326)))))" "(if(not #f)" -"(for-loop_301 fold-var_324 rest_203)" +"(for-loop_300 fold-var_324 rest_205)" " fold-var_324)))" " fold-var_323)))))" -" for-loop_301)" +" for-loop_300)" " null" " lst_353))))))" "(let-values(((val-idss_3)" @@ -65134,7 +65150,7 @@ static const char *startup_source = "(if(pair? lst_358)" "(let-values(((ids_36)" "(unsafe-car lst_358))" -"((rest_205)" +"((rest_207)" "(unsafe-cdr lst_358)))" "(let-values(((fold-var_332)" "(let-values(((fold-var_333)" @@ -65153,7 +65169,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_359)))" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_156)" "(lambda(fold-var_105" " lst_360)" "(begin" @@ -65163,7 +65179,7 @@ static const char *startup_source = "(let-values(((id_123)" "(unsafe-car" " lst_360))" -"((rest_206)" +"((rest_208)" "(unsafe-cdr" " lst_360)))" "(let-values(((fold-var_109)" @@ -65181,19 +65197,19 @@ static const char *startup_source = " fold-var_335)))))" "(if(not" " #f)" -"(for-loop_157" +"(for-loop_156" " fold-var_109" -" rest_206)" +" rest_208)" " fold-var_109)))" " fold-var_105)))))" -" for-loop_157)" +" for-loop_156)" " null" " lst_359)))))" " fold-var_333))))" "(values" " fold-var_104)))))" "(if(not #f)" -"(for-loop_63 fold-var_332 rest_205)" +"(for-loop_63 fold-var_332 rest_207)" " fold-var_332)))" " fold-var_331)))))" " for-loop_63)" @@ -65208,14 +65224,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_302)" "(lambda(fold-var_336 lst_362)" "(begin" " 'for-loop" "(if(pair? lst_362)" "(let-values(((rhs_17)" "(unsafe-car lst_362))" -"((rest_207)" +"((rest_209)" "(unsafe-cdr lst_362)))" "(let-values(((fold-var_337)" "(let-values(((fold-var_338)" @@ -65231,12 +65247,12 @@ static const char *startup_source = "(values" " fold-var_339)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_302" " fold-var_337" -" rest_207)" +" rest_209)" " fold-var_337)))" " fold-var_336)))))" -" for-loop_303)" +" for-loop_302)" " null" " lst_361))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" @@ -65244,47 +65260,59 @@ static const char *startup_source = "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_39 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_525) disarmed-s_8))" -"(let-values(((orig-s_47) s_525))" +"(let-values(((s_523) disarmed-s_8))" +"(let-values(((orig-s_47) s_523))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" "(let-values(((s_402)" "(if(syntax?$1" +" s_523)" +"(syntax-e$1" +" s_523)" +" s_523)))" +"(if(pair? s_402)" +"(let-values(((_158_0)" +"(let-values(((s_492)" +"(car" +" s_402)))" +" s_492))" +"((_159_0" +" clause160_0" +" _161_0)" +"(let-values(((s_453)" +"(cdr" +" s_402)))" +"(let-values(((s_524)" +"(if(syntax?$1" +" s_453)" +"(syntax-e$1" +" s_453)" +" s_453)))" +"(if(pair?" +" s_524)" +"(let-values(((_162_0)" +"(let-values(((s_456)" +"(car" +" s_524)))" +" s_456))" +"((clause163_0" +" _164_0)" +"(let-values(((s_525)" +"(cdr" +" s_524)))" +"(let-values(((s_526)" +"(if(syntax?$1" " s_525)" "(syntax-e$1" " s_525)" " s_525)))" -"(if(pair? s_402)" -"(let-values(((_158_0)" -"(let-values(((s_494)" -"(car" -" s_402)))" -" s_494))" -"((_159_0" -" clause160_0" -" _161_0)" -"(let-values(((s_454)" -"(cdr" -" s_402)))" -"(let-values(((s_526)" -"(if(syntax?$1" -" s_454)" -"(syntax-e$1" -" s_454)" -" s_454)))" "(if(pair?" " s_526)" -"(let-values(((_162_0)" -"(let-values(((s_457)" -"(car" -" s_526)))" -" s_457))" -"((clause163_0" -" _164_0)" +"(let-values(((clause165_0)" "(let-values(((s_527)" -"(cdr" +"(car" " s_526)))" "(let-values(((s_528)" "(if(syntax?$1" @@ -65292,21 +65320,9 @@ static const char *startup_source = "(syntax-e$1" " s_527)" " s_527)))" -"(if(pair?" -" s_528)" -"(let-values(((clause165_0)" -"(let-values(((s_529)" -"(car" -" s_528)))" -"(let-values(((s_530)" -"(if(syntax?$1" -" s_529)" -"(syntax-e$1" -" s_529)" -" s_529)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_530)))" +" s_528)))" "(if(not" " flat-s_39)" "(let-values()" @@ -65317,10 +65333,10 @@ static const char *startup_source = "(let-values()" " flat-s_39))))))" "((_166_0)" -"(let-values(((s_531)" +"(let-values(((s_529)" "(cdr" -" s_528)))" -" s_531)))" +" s_526)))" +" s_529)))" "(values" " clause165_0" " _166_0))" @@ -65365,36 +65381,36 @@ static const char *startup_source = " s_403)))" "(if(pair? s_138)" "(let-values(((_170_0)" -"(let-values(((s_532)" +"(let-values(((s_530)" "(car" " s_138)))" -" s_532))" +" s_530))" "((clause171_0" " _172_0)" -"(let-values(((s_533)" +"(let-values(((s_531)" "(cdr" " s_138)))" -"(let-values(((s_188)" +"(let-values(((s_189)" "(if(syntax?$1" -" s_533)" +" s_531)" "(syntax-e$1" -" s_533)" -" s_533)))" +" s_531)" +" s_531)))" "(if(pair?" -" s_188)" +" s_189)" "(let-values(((clause173_0)" -"(let-values(((s_534)" +"(let-values(((s_532)" "(car" -" s_188)))" -"(let-values(((s_535)" +" s_189)))" +"(let-values(((s_533)" "(if(syntax?$1" -" s_534)" +" s_532)" "(syntax-e$1" -" s_534)" -" s_534)))" +" s_532)" +" s_532)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_535)))" +" s_533)))" "(if(not" " flat-s_40)" "(let-values()" @@ -65405,10 +65421,10 @@ static const char *startup_source = "(let-values()" " flat-s_40))))))" "((_174_0)" -"(let-values(((s_536)" +"(let-values(((s_534)" "(cdr" -" s_188)))" -" s_536)))" +" s_189)))" +" s_534)))" "(values" " clause173_0" " _174_0))" @@ -65429,7 +65445,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_147)" +"((phase143_0) phase_148)" "((s144_0) s_324))" "(check-no-duplicate-ids8.1" " #f" @@ -65449,7 +65465,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_304)" +"((letrec-values(((for-loop_303)" "(lambda(fold-var_340 lst_364)" "(begin" " 'for-loop" @@ -65457,7 +65473,7 @@ static const char *startup_source = "(let-values(((ids_37)" "(unsafe-car" " lst_364))" -"((rest_208)" +"((rest_210)" "(unsafe-cdr" " lst_364)))" "(let-values(((fold-var_341)" @@ -65477,7 +65493,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_365)))" -"((letrec-values(((for-loop_305)" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_344" " lst_366)" "(begin" @@ -65487,7 +65503,7 @@ static const char *startup_source = "(let-values(((id_124)" "(unsafe-car" " lst_366))" -"((rest_209)" +"((rest_211)" "(unsafe-cdr" " lst_366)))" "(let-values(((fold-var_345)" @@ -65500,7 +65516,7 @@ static const char *startup_source = "(let-values(((id175_0)" " id_124)" "((phase176_0)" -" phase_147)" +" phase_148)" "((counter177_0)" " counter_8)" "((frame-id178_0)" @@ -65520,24 +65536,24 @@ static const char *startup_source = " fold-var_347)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_304" " fold-var_345" -" rest_209)" +" rest_211)" " fold-var_345)))" " fold-var_344)))))" -" for-loop_305)" +" for-loop_304)" " null" " lst_365)))))" " fold-var_342))))" "(values" " fold-var_343)))))" "(if(not #f)" -"(for-loop_304" +"(for-loop_303" " fold-var_341" -" rest_208)" +" rest_210)" " fold-var_341)))" " fold-var_340)))))" -" for-loop_304)" +" for-loop_303)" " null" " lst_363))))))" "(let-values(((val-keyss_2)" @@ -65548,7 +65564,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_306)" +"((letrec-values(((for-loop_305)" "(lambda(fold-var_348 lst_367)" "(begin" " 'for-loop" @@ -65556,7 +65572,7 @@ static const char *startup_source = "(let-values(((ids_38)" "(unsafe-car" " lst_367))" -"((rest_210)" +"((rest_212)" "(unsafe-cdr" " lst_367)))" "(let-values(((fold-var_349)" @@ -65576,7 +65592,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_368)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_352" " lst_369)" "(begin" @@ -65586,7 +65602,7 @@ static const char *startup_source = "(let-values(((id_125)" "(unsafe-car" " lst_369))" -"((rest_211)" +"((rest_213)" "(unsafe-cdr" " lst_369)))" "(let-values(((fold-var_353)" @@ -65599,7 +65615,7 @@ static const char *startup_source = "(let-values(((id180_0)" " id_125)" "((phase181_0)" -" phase_147)" +" phase_148)" "((counter182_0)" " counter_8)" "((frame-id183_0)" @@ -65619,24 +65635,24 @@ static const char *startup_source = " fold-var_112)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_306" " fold-var_353" -" rest_211)" +" rest_213)" " fold-var_353)))" " fold-var_352)))))" -" for-loop_307)" +" for-loop_306)" " null" " lst_368)))))" " fold-var_350))))" "(values" " fold-var_351)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_305" " fold-var_349" -" rest_210)" +" rest_212)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_306)" +" for-loop_305)" " null" " lst_253))))))" "(let-values(((bodys_10)" @@ -65648,7 +65664,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_370)))" -"((letrec-values(((for-loop_308)" +"((letrec-values(((for-loop_307)" "(lambda(fold-var_355 lst_371)" "(begin" " 'for-loop" @@ -65656,7 +65672,7 @@ static const char *startup_source = "(let-values(((body_20)" "(unsafe-car" " lst_371))" -"((rest_212)" +"((rest_214)" "(unsafe-cdr" " lst_371)))" "(let-values(((fold-var_356)" @@ -65673,12 +65689,12 @@ static const char *startup_source = "(values" " fold-var_358)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_307" " fold-var_356" -" rest_212)" +" rest_214)" " fold-var_356)))" " fold-var_355)))))" -" for-loop_308)" +" for-loop_307)" " null" " lst_370))))))" "(let-values((()" @@ -65718,7 +65734,7 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_131)" +"(let-values(((lst_132)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" @@ -65727,12 +65743,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_131)))" +"(let-values()(check-list lst_132)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_372)))" -"((letrec-values(((for-loop_309)" +"((letrec-values(((for-loop_308)" "(lambda(fold-var_117" " lst_373" " lst_374)" @@ -65744,13 +65760,13 @@ static const char *startup_source = "(let-values(((rhs_20)" "(unsafe-car" " lst_373))" -"((rest_213)" +"((rest_215)" "(unsafe-cdr" " lst_373))" "((ids_39)" "(unsafe-car" " lst_374))" -"((rest_214)" +"((rest_216)" "(unsafe-cdr" " lst_374)))" "(let-values(((fold-var_359)" @@ -65800,15 +65816,15 @@ static const char *startup_source = "(values" " fold-var_360)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_308" " fold-var_359" -" rest_213" -" rest_214)" +" rest_215" +" rest_216)" " fold-var_359)))" " fold-var_117)))))" -" for-loop_309)" +" for-loop_308)" " null" -" lst_131" +" lst_132" " lst_372))))))" "(let-values(((rec-val-env_0)" "(let-values(((lst_375) val-keyss_2)" @@ -65822,7 +65838,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_310)" +"((letrec-values(((for-loop_309)" "(lambda(env_29" " lst_376" " lst_377)" @@ -65835,13 +65851,13 @@ static const char *startup_source = "(let-values(((keys_10)" "(unsafe-car" " lst_376))" -"((rest_215)" +"((rest_217)" "(unsafe-cdr" " lst_376))" "((ids_40)" "(unsafe-car" " lst_377))" -"((rest_216)" +"((rest_218)" "(unsafe-cdr" " lst_377)))" "(let-values(((env_30)" @@ -65864,7 +65880,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_378)))" -"((letrec-values(((for-loop_311)" +"((letrec-values(((for-loop_310)" "(lambda(env_32" " lst_379" " lst_380)" @@ -65878,13 +65894,13 @@ static const char *startup_source = "(let-values(((key_69)" "(unsafe-car" " lst_379))" -"((rest_217)" +"((rest_219)" "(unsafe-cdr" " lst_379))" "((id_126)" "(unsafe-car" " lst_380))" -"((rest_218)" +"((rest_220)" "(unsafe-cdr" " lst_380)))" "(let-values(((env_33)" @@ -65901,31 +65917,31 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_310" " env_33" -" rest_217" -" rest_218)" +" rest_219" +" rest_220)" " env_33)))" " env_32)))))" -" for-loop_311)" +" for-loop_310)" " env_31" " lst_258" " lst_378))))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_309" " env_30" -" rest_215" -" rest_216)" +" rest_217" +" rest_218)" " env_30)))" " env_29)))))" -" for-loop_310)" +" for-loop_309)" "(expand-context-env ctx_84)" " lst_375" " lst_256)))))" "(let-values(((rec-env_0)" "(let-values(((lst_381) trans-keyss_0)" "((lst_382) trans-valss_0)" -"((lst_61) trans-idss_2))" +"((lst_60) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65938,16 +65954,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_61)))" +"(let-values()(check-list lst_60)))" "((letrec-values(((for-loop_84)" "(lambda(env_36" -" lst_62" +" lst_61" " lst_383" " lst_384)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_62)" +" lst_61)" "(if(pair?" " lst_383)" "(pair?" @@ -65956,20 +65972,20 @@ static const char *startup_source = " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_62))" -"((rest_219)" +" lst_61))" +"((rest_221)" "(unsafe-cdr" -" lst_62))" +" lst_61))" "((vals_9)" "(unsafe-car" " lst_383))" -"((rest_220)" +"((rest_222)" "(unsafe-cdr" " lst_383))" "((ids_41)" "(unsafe-car" " lst_384))" -"((rest_221)" +"((rest_223)" "(unsafe-cdr" " lst_384)))" "(let-values(((env_37)" @@ -66002,15 +66018,15 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_387)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_311)" "(lambda(env_40" -" lst_66" +" lst_65" " lst_388" " lst_389)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_66)" +" lst_65)" "(if(pair?" " lst_388)" "(pair?" @@ -66019,14 +66035,14 @@ static const char *startup_source = " #f)" "(let-values(((key_97)" "(unsafe-car" -" lst_66))" -"((rest_222)" +" lst_65))" +"((rest_224)" "(unsafe-cdr" -" lst_66))" -"((val_87)" +" lst_65))" +"((val_86)" "(unsafe-car" " lst_388))" -"((rest_223)" +"((rest_225)" "(unsafe-cdr" " lst_388))" "((id_127)" @@ -66042,26 +66058,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_87" +" val_86" " id_127" -" phase_147" +" phase_148" " ctx_84)" "(env-extend" " env_42" " key_97" -" val_87)))))" +" val_86)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_311" " env_41" -" rest_222" -" rest_223" +" rest_224" +" rest_225" " rest_30)" " env_41)))" " env_40)))))" -" for-loop_312)" +" for-loop_311)" " env_38" " lst_385" " lst_386" @@ -66071,16 +66087,16 @@ static const char *startup_source = "(if(not #f)" "(for-loop_84" " env_37" -" rest_219" -" rest_220" -" rest_221)" +" rest_221" +" rest_222" +" rest_223)" " env_37)))" " env_36)))))" " for-loop_84)" " rec-val-env_0" " lst_381" " lst_382" -" lst_61)))))" +" lst_60)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" @@ -66088,9 +66104,9 @@ static const char *startup_source = " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_259) expr-ctx_0))" -"(let-values(((the-struct_94) v_259))" +"(let-values(((the-struct_95) v_259))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_95)" "(let-values(((env185_0)" " rec-env_0)" "((scopes186_0)" @@ -66117,39 +66133,39 @@ static const char *startup_source = "(expand-context/outer1.1" " inner189_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_95)" " env185_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_95)" " scopes186_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_95)" " binding-layer188_0" " reference-records187_0" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-name" -" the-struct_94)))" +" the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_95))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" " ctx_84))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_147)" +"(core-id 'letrec-values phase_148)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" @@ -66187,7 +66203,7 @@ static const char *startup_source = "(let-values(((val-ids_1)" "(unsafe-car" " lst_391))" -"((rest_224)" +"((rest_226)" "(unsafe-cdr" " lst_391)))" "(let-values(((fold-var_362)" @@ -66209,17 +66225,17 @@ static const char *startup_source = " lst_260)))" "((letrec-values(((for-loop_226)" "(lambda(fold-var_365" -" lst_119)" +" lst_120)" "(begin" " 'for-loop" "(if(pair?" -" lst_119)" +" lst_120)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_119))" +" lst_120))" "((rest_59)" "(unsafe-cdr" -" lst_119)))" +" lst_120)))" "(let-values(((fold-var_366)" "(let-values(((fold-var_367)" " fold-var_365))" @@ -66253,7 +66269,7 @@ static const char *startup_source = " #f)" "(for-loop_71" " fold-var_362" -" rest_224)" +" rest_226)" " fold-var_362)))" " fold-var_361)))))" " for-loop_71)" @@ -66303,10 +66319,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_260)" " rec-ctx_0))" -"(let-values(((the-struct_95)" +"(let-values(((the-struct_96)" " v_260))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_96)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" @@ -66315,36 +66331,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-env" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-scopes" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-binding-layer" -" the-struct_95)" +" the-struct_96)" " reference-records196_0" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_95)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_96))))))" "(let-values(((bodys193_0)" " bodys_10)" "((temp194_0)" @@ -66371,7 +66387,7 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_392)" " val-name-idss_0)" -"((lst_139)" +"((lst_140)" " val-keyss_2)" "((lst_393)" " val-rhss_3)" @@ -66389,7 +66405,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_139)))" +" lst_140)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -66402,7 +66418,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_394)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_312)" "(lambda(fold-var_135" " lst_395" " lst_396" @@ -66424,13 +66440,13 @@ static const char *startup_source = "(let-values(((ids_42)" "(unsafe-car" " lst_395))" -"((rest_225)" +"((rest_227)" "(unsafe-cdr" " lst_395))" "((keys_12)" "(unsafe-car" " lst_396))" -"((rest_226)" +"((rest_228)" "(unsafe-cdr" " lst_396))" "((rhs_21)" @@ -66442,7 +66458,7 @@ static const char *startup_source = "((clause_4)" "(unsafe-car" " lst_398))" -"((rest_227)" +"((rest_229)" "(unsafe-cdr" " lst_398)))" "(let-values(((fold-var_369)" @@ -66500,18 +66516,18 @@ static const char *startup_source = " fold-var_371)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_312" " fold-var_369" -" rest_225" -" rest_226" +" rest_227" +" rest_228" " rest_31" -" rest_227)" +" rest_229)" " fold-var_369)))" " fold-var_135)))))" -" for-loop_313)" +" for-loop_312)" " null" " lst_392" -" lst_139" +" lst_140" " lst_393" " lst_394))))))" "(let-values(((exp-body_4)" @@ -66602,15 +66618,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_372 lst_401 lst_402)" "(begin" " 'for-loop" "(if(if(pair? lst_401)(pair? lst_402) #f)" "(let-values(((val-ids_2)(unsafe-car lst_401))" -"((rest_228)(unsafe-cdr lst_401))" +"((rest_230)(unsafe-cdr lst_401))" "((val-rhs_11)(unsafe-car lst_402))" -"((rest_229)(unsafe-cdr lst_402)))" +"((rest_231)(unsafe-cdr lst_402)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_51)" @@ -66623,10 +66639,10 @@ static const char *startup_source = " fold-var_374))))" "(values fold-var_51)))))" "(if(not #f)" -"(for-loop_314 fold-var_373 rest_228 rest_229)" +"(for-loop_313 fold-var_373 rest_230 rest_231)" " fold-var_373)))" " fold-var_372)))))" -" for-loop_314)" +" for-loop_313)" " null" " lst_399" " lst_400))))" @@ -66638,23 +66654,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_72) trans-idss_3)((lst_403) trans-rhss_0))" +"(let-values(((lst_71) trans-idss_3)((lst_403) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_72)))" +"(let-values()(check-list lst_71)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_52 lst_404 lst_405)" "(begin" " 'for-loop" "(if(if(pair? lst_404)(pair? lst_405) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_404))" -"((rest_230)(unsafe-cdr lst_404))" +"((rest_232)(unsafe-cdr lst_404))" "((trans-rhs_5)(unsafe-car lst_405))" -"((rest_231)(unsafe-cdr lst_405)))" +"((rest_233)(unsafe-cdr lst_405)))" "(let-values(((fold-var_375)" "(let-values(((fold-var_376) fold-var_52))" "(let-values(((fold-var_56)" @@ -66668,11 +66684,11 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_38))))" " fold-var_376))))" "(values fold-var_56)))))" -"(if(not #f)(for-loop_315 fold-var_375 rest_230 rest_231) fold-var_375)))" +"(if(not #f)(for-loop_314 fold-var_375 rest_232 rest_233) fold-var_375)))" " fold-var_52)))))" -" for-loop_315)" +" for-loop_314)" " null" -" lst_72" +" lst_71" " lst_403))))" " vals+body_0)))))))" "(define-values" @@ -66708,7 +66724,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_537 ctx_85)" +"(lambda(s_535 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_97)(expand-context-observer ctx_85)))" @@ -66716,22 +66732,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_537)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_535)))" "(let-values(((ok?_41 #%stratified-body223_0 body224_0)" -"(let-values(((s_538) disarmed-s_9))" -"(let-values(((orig-s_49) s_538))" +"(let-values(((s_536) disarmed-s_9))" +"(let-values(((orig-s_49) s_536))" "(let-values(((#%stratified-body223_1 body224_1)" -"(let-values(((s_539)(if(syntax?$1 s_538)(syntax-e$1 s_538) s_538)))" -"(if(pair? s_539)" +"(let-values(((s_537)(if(syntax?$1 s_536)(syntax-e$1 s_536) s_536)))" +"(if(pair? s_537)" "(let-values(((#%stratified-body225_0)" -"(let-values(((s_540)(car s_539))) s_540))" +"(let-values(((s_538)(car s_537))) s_538))" "((body226_0)" -"(let-values(((s_541)(cdr s_539)))" -"(let-values(((s_542)" -"(if(syntax?$1 s_541)" -"(syntax-e$1 s_541)" -" s_541)))" -"(let-values(((flat-s_41)(to-syntax-list.1 s_542)))" +"(let-values(((s_539)(cdr s_537)))" +"(let-values(((s_540)" +"(if(syntax?$1 s_539)" +"(syntax-e$1 s_539)" +" s_539)))" +"(let-values(((flat-s_41)(to-syntax-list.1 s_540)))" "(if(not flat-s_41)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -66743,7 +66759,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx227_0) ctx_85)((s228_0) s_537)((temp229_1) #t))" +"(let-values(((ctx227_0) ctx_85)((s228_0) s_535)((temp229_1) #t))" "(keep-as-needed85.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" @@ -66762,21 +66778,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_543 ctx_86)" +"(lambda(s_541 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_98)(expand-context-observer ctx_86)))" "(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_543)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_541)))" "(let-values(((ok?_42 #%datum236_0 datum237_0)" -"(let-values(((s_544) disarmed-s_10))" -"(let-values(((orig-s_50) s_544))" +"(let-values(((s_542) disarmed-s_10))" +"(let-values(((orig-s_50) s_542))" "(let-values(((#%datum236_1 datum237_1)" -"(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))" -"(if(pair? s_545)" -"(let-values(((#%datum238_0)(let-values(((s_546)(car s_545))) s_546))" -"((datum239_0)(let-values(((s_547)(cdr s_545))) s_547)))" +"(let-values(((s_543)(if(syntax?$1 s_542)(syntax-e$1 s_542) s_542)))" +"(if(pair? s_543)" +"(let-values(((#%datum238_0)(let-values(((s_544)(car s_543))) s_544))" +"((datum239_0)(let-values(((s_545)(cdr s_543))) s_545)))" "(values #%datum238_0 datum239_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t #%datum236_1 datum237_1))))))" @@ -66788,35 +66804,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_148)(expand-context-phase ctx_86)))" +"(let-values(((phase_149)(expand-context-phase ctx_86)))" "(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_543)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_543)((temp241_1)(list(core-id 'quote phase_148) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_541)(syntax->datum$1 datum_2))" +"(let-values(((s240_0) s_541)((temp241_1)(list(core-id 'quote phase_149) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_548 ctx_87)" +"(lambda(s_546 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_99)(expand-context-observer ctx_87)))" "(if obs_99(let-values()(let-values()(call-expand-observe obs_99 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_548)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_546)))" "(let-values(((ok?_43 #%app242_0 e243_0)" -"(let-values(((s_549) disarmed-s_11))" -"(let-values(((orig-s_51) s_549))" +"(let-values(((s_547) disarmed-s_11))" +"(let-values(((orig-s_51) s_547))" "(let-values(((#%app242_1 e243_1)" -"(let-values(((s_550)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" -"(if(pair? s_550)" -"(let-values(((#%app244_0)(let-values(((s_551)(car s_550))) s_551))" +"(let-values(((s_548)(if(syntax?$1 s_547)(syntax-e$1 s_547) s_547)))" +"(if(pair? s_548)" +"(let-values(((#%app244_0)(let-values(((s_549)(car s_548))) s_549))" "((e245_0)" -"(let-values(((s_552)(cdr s_550)))" -"(let-values(((s_553)" -"(if(syntax?$1 s_552)" -"(syntax-e$1 s_552)" -" s_552)))" -"(let-values(((flat-s_42)(to-syntax-list.1 s_553)))" +"(let-values(((s_550)(cdr s_548)))" +"(let-values(((s_551)" +"(if(syntax?$1 s_550)" +"(syntax-e$1 s_550)" +" s_550)))" +"(let-values(((flat-s_42)(to-syntax-list.1 s_551)))" "(if(not flat-s_42)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51))" @@ -66827,16 +66843,16 @@ static const char *startup_source = "(let-values(((es_3) e243_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_149)(expand-context-phase ctx_87)))" +"(let-values(((phase_150)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_548) null)" -"(let-values(((s246_0) s_548)((temp247_0)(list(core-id 'quote phase_149) null)))" +"(parsed-quote14.1(keep-properties-only~ s_546) null)" +"(let-values(((s246_0) s_546)((temp247_0)(list(core-id 'quote phase_150) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx248_0) ctx_87)" -"((s249_0) s_548)" +"((s249_0) s_546)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" "(keep-as-needed85.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -66866,7 +66882,7 @@ static const char *startup_source = "(call-expand-observe" " obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_548))" +"(datum->syntax$1 #f es_3 s_546))" "(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" @@ -66881,13 +66897,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_406)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_315)" "(lambda(fold-var_377 lst_407)" "(begin" " 'for-loop" "(if(pair? lst_407)" "(let-values(((e_92)(unsafe-car lst_407))" -"((rest_232)" +"((rest_234)" "(unsafe-cdr lst_407)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379)" @@ -66922,10 +66938,10 @@ static const char *startup_source = "(values" " fold-var_380)))))" "(if(not #f)" -"(for-loop_316 fold-var_378 rest_232)" +"(for-loop_315 fold-var_378 rest_234)" " fold-var_378)))" " fold-var_377)))))" -" for-loop_316)" +" for-loop_315)" " null" " lst_406))))))" "(if(expand-context-to-parsed? ctx_87)" @@ -66959,35 +66975,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_267 ctx_88)" +"(lambda(s_268 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_103)(expand-context-observer ctx_88)))" "(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_44 quote262_0 datum263_0)" -"(let-values(((s_274)(syntax-disarm$1 s_267)))" -"(let-values(((orig-s_52) s_274))" +"(let-values(((s_275)(syntax-disarm$1 s_268)))" +"(let-values(((orig-s_52) s_275))" "(let-values(((quote262_1 datum263_1)" -"(let-values(((s_554)(if(syntax?$1 s_274)(syntax-e$1 s_274) s_274)))" -"(if(pair? s_554)" -"(let-values(((quote264_0)(let-values(((s_555)(car s_554))) s_555))" +"(let-values(((s_552)(if(syntax?$1 s_275)(syntax-e$1 s_275) s_275)))" +"(if(pair? s_552)" +"(let-values(((quote264_0)(let-values(((s_553)(car s_552))) s_553))" "((datum265_0)" -"(let-values(((s_556)(cdr s_554)))" -"(let-values(((s_557)" -"(if(syntax?$1 s_556)" -"(syntax-e$1 s_556)" -" s_556)))" -"(if(pair? s_557)" +"(let-values(((s_554)(cdr s_552)))" +"(let-values(((s_555)" +"(if(syntax?$1 s_554)" +"(syntax-e$1 s_554)" +" s_554)))" +"(if(pair? s_555)" "(let-values(((datum266_0)" -"(let-values(((s_558)(car s_557))) s_558))" +"(let-values(((s_556)(car s_555))) s_556))" "(()" -"(let-values(((s_559)(cdr s_557)))" -"(let-values(((s_560)" -"(if(syntax?$1 s_559)" -"(syntax-e$1 s_559)" -" s_559)))" -"(if(null? s_560)" +"(let-values(((s_557)(cdr s_555)))" +"(let-values(((s_558)" +"(if(syntax?$1 s_557)" +"(syntax-e$1 s_557)" +" s_557)))" +"(if(null? s_558)" "(values)" "(raise-syntax-error$1" " #f" @@ -66999,12 +67015,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t quote262_1 datum263_1))))))" "(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_267)(syntax->datum$1 datum263_0))" -" s_267))))))" +"(parsed-quote14.1(keep-properties-only~ s_268)(syntax->datum$1 datum263_0))" +" s_268))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_561 ctx_89)" +"(lambda(s_559 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer ctx_89)))" @@ -67012,27 +67028,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_561)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_559)))" "(let-values(((ok?_45 quote-syntax267_0 datum268_0)" -"(let-values(((s_562) disarmed-s_12))" -"(if(let-values(((s_563)(if(syntax?$1 s_562)(syntax-e$1 s_562) s_562)))" -"(if(pair? s_563)" -"(if(let-values(((s_282)(car s_563))) #t)" -"(let-values(((s_283)(cdr s_563)))" -"(let-values(((s_284)(if(syntax?$1 s_283)(syntax-e$1 s_283) s_283)))" -"(if(pair? s_284)" -"(if(let-values(((s_564)(car s_284))) #t)" -"(let-values(((s_565)(cdr s_284)))" -"(let-values(((s_566)(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" -"(if(pair? s_566)" -"(if(let-values(((s_567)(car s_566)))" +"(let-values(((s_560) disarmed-s_12))" +"(if(let-values(((s_561)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" +"(if(pair? s_561)" +"(if(let-values(((s_283)(car s_561))) #t)" +"(let-values(((s_284)(cdr s_561)))" +"(let-values(((s_285)(if(syntax?$1 s_284)(syntax-e$1 s_284) s_284)))" +"(if(pair? s_285)" +"(if(let-values(((s_562)(car s_285))) #t)" +"(let-values(((s_563)(cdr s_285)))" +"(let-values(((s_564)(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" +"(if(pair? s_564)" +"(if(let-values(((s_565)(car s_564)))" +"(let-values(((s_566)" +"(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" +"(eq? '#:local s_566)))" +"(let-values(((s_567)(cdr s_564)))" "(let-values(((s_568)" "(if(syntax?$1 s_567)(syntax-e$1 s_567) s_567)))" -"(eq? '#:local s_568)))" -"(let-values(((s_569)(cdr s_566)))" -"(let-values(((s_570)" -"(if(syntax?$1 s_569)(syntax-e$1 s_569) s_569)))" -"(null? s_570)))" +"(null? s_568)))" " #f)" " #f)))" " #f)" @@ -67041,44 +67057,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax267_1 datum268_1)" -"(let-values(((s_571)(if(syntax?$1 s_562)(syntax-e$1 s_562) s_562)))" +"(let-values(((s_569)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" "(let-values(((quote-syntax269_0)" -"(let-values(((s_572)(car s_571))) s_572))" +"(let-values(((s_570)(car s_569))) s_570))" "((datum270_0)" -"(let-values(((s_285)(cdr s_571)))" -"(let-values(((s_573)" -"(if(syntax?$1 s_285)" -"(syntax-e$1 s_285)" -" s_285)))" -"(let-values(((datum271_0)" -"(let-values(((s_574)(car s_573))) s_574))" -"(()" -"(let-values(((s_286)(cdr s_573)))" -"(let-values(((s_575)" +"(let-values(((s_286)(cdr s_569)))" +"(let-values(((s_571)" "(if(syntax?$1 s_286)" "(syntax-e$1 s_286)" " s_286)))" +"(let-values(((datum271_0)" +"(let-values(((s_572)(car s_571))) s_572))" +"(()" +"(let-values(((s_287)(cdr s_571)))" +"(let-values(((s_573)" +"(if(syntax?$1 s_287)" +"(syntax-e$1 s_287)" +" s_287)))" "(let-values((()" -"(let-values(((s_576)" +"(let-values(((s_574)" "(car" -" s_575)))" -"(let-values(((s_287)" +" s_573)))" +"(let-values(((s_288)" "(if(syntax?$1" -" s_576)" +" s_574)" "(syntax-e$1" -" s_576)" -" s_576)))" +" s_574)" +" s_574)))" "(values))))" "(()" -"(let-values(((s_288)" -"(cdr" -" s_575)))" "(let-values(((s_289)" +"(cdr" +" s_573)))" +"(let-values(((s_290)" "(if(syntax?$1" -" s_288)" +" s_289)" "(syntax-e$1" -" s_288)" -" s_288)))" +" s_289)" +" s_289)))" "(values)))))" "(values))))))" "(values datum271_0))))))" @@ -67086,31 +67102,31 @@ static const char *startup_source = "(values #t quote-syntax267_1 datum268_1)))" "(values #f #f #f)))))" "(let-values(((ok?_46 quote-syntax272_0 datum273_0)" -"(let-values(((s_577) disarmed-s_12))" +"(let-values(((s_575) disarmed-s_12))" "(if(if(not ok?_45) #t #f)" -"(let-values(((orig-s_53) s_577))" +"(let-values(((orig-s_53) s_575))" "(let-values(((quote-syntax272_1 datum273_1)" -"(let-values(((s_578)(if(syntax?$1 s_577)(syntax-e$1 s_577) s_577)))" -"(if(pair? s_578)" +"(let-values(((s_576)(if(syntax?$1 s_575)(syntax-e$1 s_575) s_575)))" +"(if(pair? s_576)" "(let-values(((quote-syntax274_0)" -"(let-values(((s_579)(car s_578))) s_579))" +"(let-values(((s_577)(car s_576))) s_577))" "((datum275_0)" -"(let-values(((s_580)(cdr s_578)))" -"(let-values(((s_581)" -"(if(syntax?$1 s_580)" -"(syntax-e$1 s_580)" -" s_580)))" -"(if(pair? s_581)" +"(let-values(((s_578)(cdr s_576)))" +"(let-values(((s_579)" +"(if(syntax?$1 s_578)" +"(syntax-e$1 s_578)" +" s_578)))" +"(if(pair? s_579)" "(let-values(((datum276_0)" -"(let-values(((s_582)(car s_581)))" -" s_582))" +"(let-values(((s_580)(car s_579)))" +" s_580))" "(()" -"(let-values(((s_583)(cdr s_581)))" -"(let-values(((s_584)" -"(if(syntax?$1 s_583)" -"(syntax-e$1 s_583)" -" s_583)))" -"(if(null? s_584)" +"(let-values(((s_581)(cdr s_579)))" +"(let-values(((s_582)" +"(if(syntax?$1 s_581)" +"(syntax-e$1 s_581)" +" s_581)))" +"(if(null? s_582)" "(values)" "(raise-syntax-error$1" " #f" @@ -67132,52 +67148,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_47 _277_0 _278_0 kw279_0)" -"(let-values(((s_585) disarmed-s_12))" -"(let-values(((orig-s_54) s_585))" +"(let-values(((s_583) disarmed-s_12))" +"(let-values(((orig-s_54) s_583))" "(let-values(((_277_1 _278_1 kw279_1)" -"(let-values(((s_586)" -"(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" -"(if(pair? s_586)" +"(let-values(((s_584)" +"(if(syntax?$1 s_583)(syntax-e$1 s_583) s_583)))" +"(if(pair? s_584)" "(let-values(((_280_0)" -"(let-values(((s_587)(car s_586))) s_587))" +"(let-values(((s_585)(car s_584))) s_585))" "((_281_0 kw282_0)" -"(let-values(((s_588)(cdr s_586)))" -"(let-values(((s_589)" -"(if(syntax?$1 s_588)" -"(syntax-e$1 s_588)" -" s_588)))" -"(if(pair? s_589)" +"(let-values(((s_586)(cdr s_584)))" +"(let-values(((s_587)" +"(if(syntax?$1 s_586)" +"(syntax-e$1 s_586)" +" s_586)))" +"(if(pair? s_587)" "(let-values(((_283_0)" -"(let-values(((s_590)" -"(car s_589)))" -" s_590))" +"(let-values(((s_588)" +"(car s_587)))" +" s_588))" "((kw284_0)" -"(let-values(((s_591)" -"(cdr s_589)))" -"(let-values(((s_592)" +"(let-values(((s_589)" +"(cdr s_587)))" +"(let-values(((s_590)" "(if(syntax?$1" -" s_591)" +" s_589)" "(syntax-e$1" -" s_591)" -" s_591)))" -"(if(pair? s_592)" +" s_589)" +" s_589)))" +"(if(pair? s_590)" "(let-values(((kw285_0)" -"(let-values(((s_593)" +"(let-values(((s_591)" "(car" -" s_592)))" -" s_593))" +" s_590)))" +" s_591))" "(()" -"(let-values(((s_594)" +"(let-values(((s_592)" "(cdr" -" s_592)))" -"(let-values(((s_595)" +" s_590)))" +"(let-values(((s_593)" "(if(syntax?$1" -" s_594)" +" s_592)" "(syntax-e$1" -" s_594)" -" s_594)))" +" s_592)" +" s_592)))" "(if(null?" -" s_595)" +" s_593)" "(values)" "(raise-syntax-error$1" " #f" @@ -67197,42 +67213,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t _277_1 _278_1 kw279_1))))))" "(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_561) datum268_0)" -"(let-values(((s286_0) s_561)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_559) datum268_0)" +"(let-values(((s286_0) s_559)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" "(rebuild5.1 #f #f s286_0 temp287_0))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_89))))" "(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_561) datum-s_0)" -"(let-values(((s288_0) s_561)((temp289_0)(list quote-syntax272_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_559) datum-s_0)" +"(let-values(((s288_0) s_559)((temp289_0)(list quote-syntax272_0 datum-s_0)))" "(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_596 ctx_90)" +"(lambda(s_594 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_90)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_596)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_594)))" "(let-values(((ok?_48 _290_0 _291_0 _292_0)" -"(let-values(((s_597) disarmed-s_13))" -"(if(let-values(((s_598)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" -"(if(pair? s_598)" -"(if(let-values(((s_599)(car s_598))) #t)" -"(let-values(((s_600)(cdr s_598)))" -"(let-values(((s_601)(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" -"(if(pair? s_601)" -"(if(let-values(((s_602)(car s_601))) #t)" -"(let-values(((s_603)(cdr s_601)))" -"(let-values(((s_604)(if(syntax?$1 s_603)(syntax-e$1 s_603) s_603)))" -"(if(pair? s_604)" -"(if(let-values(((s_605)(car s_604))) #t)" -"(let-values(((s_606)(cdr s_604)))" -"(let-values(((s_607)" -"(if(syntax?$1 s_606)(syntax-e$1 s_606) s_606)))" -"(null? s_607)))" +"(let-values(((s_595) disarmed-s_13))" +"(if(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" +"(if(pair? s_596)" +"(if(let-values(((s_597)(car s_596))) #t)" +"(let-values(((s_598)(cdr s_596)))" +"(let-values(((s_599)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" +"(if(pair? s_599)" +"(if(let-values(((s_600)(car s_599))) #t)" +"(let-values(((s_601)(cdr s_599)))" +"(let-values(((s_602)(if(syntax?$1 s_601)(syntax-e$1 s_601) s_601)))" +"(if(pair? s_602)" +"(if(let-values(((s_603)(car s_602))) #t)" +"(let-values(((s_604)(cdr s_602)))" +"(let-values(((s_605)" +"(if(syntax?$1 s_604)(syntax-e$1 s_604) s_604)))" +"(null? s_605)))" " #f)" " #f)))" " #f)" @@ -67241,37 +67257,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_290_1 _291_1 _292_1)" -"(let-values(((s_608)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" -"(let-values(((_293_0)(let-values(((s_609)(car s_608))) s_609))" +"(let-values(((s_606)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" +"(let-values(((_293_0)(let-values(((s_607)(car s_606))) s_607))" "((_294_0 _295_0)" -"(let-values(((s_610)(cdr s_608)))" -"(let-values(((s_611)" -"(if(syntax?$1 s_610)" -"(syntax-e$1 s_610)" -" s_610)))" +"(let-values(((s_608)(cdr s_606)))" +"(let-values(((s_609)" +"(if(syntax?$1 s_608)" +"(syntax-e$1 s_608)" +" s_608)))" "(let-values(((_296_0)" -"(let-values(((s_612)(car s_611))) s_612))" +"(let-values(((s_610)(car s_609))) s_610))" "((_297_0)" -"(let-values(((s_613)(cdr s_611)))" -"(let-values(((s_614)" -"(if(syntax?$1 s_613)" -"(syntax-e$1 s_613)" -" s_613)))" +"(let-values(((s_611)(cdr s_609)))" +"(let-values(((s_612)" +"(if(syntax?$1 s_611)" +"(syntax-e$1 s_611)" +" s_611)))" "(let-values(((_298_0)" -"(let-values(((s_615)" +"(let-values(((s_613)" "(car" -" s_614)))" -" s_615))" +" s_612)))" +" s_613))" "(()" -"(let-values(((s_616)" +"(let-values(((s_614)" "(cdr" -" s_614)))" -"(let-values(((s_617)" +" s_612)))" +"(let-values(((s_615)" "(if(syntax?$1" -" s_616)" +" s_614)" "(syntax-e$1" -" s_616)" -" s_616)))" +" s_614)" +" s_614)))" "(values)))))" "(values _298_0))))))" "(values _296_0 _297_0))))))" @@ -67281,67 +67297,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_48" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_596))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_594))" "(void))" "(values))))" "(let-values(((ok?_49 if299_0 tst300_0 thn301_0 els302_0)" -"(let-values(((s_618) disarmed-s_13))" -"(let-values(((orig-s_55) s_618))" +"(let-values(((s_616) disarmed-s_13))" +"(let-values(((orig-s_55) s_616))" "(let-values(((if299_1 tst300_1 thn301_1 els302_1)" -"(let-values(((s_619)(if(syntax?$1 s_618)(syntax-e$1 s_618) s_618)))" -"(if(pair? s_619)" -"(let-values(((if303_0)(let-values(((s_620)(car s_619))) s_620))" +"(let-values(((s_617)(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" +"(if(pair? s_617)" +"(let-values(((if303_0)(let-values(((s_618)(car s_617))) s_618))" "((tst304_0 thn305_0 els306_0)" -"(let-values(((s_621)(cdr s_619)))" -"(let-values(((s_622)" -"(if(syntax?$1 s_621)" -"(syntax-e$1 s_621)" -" s_621)))" -"(if(pair? s_622)" +"(let-values(((s_619)(cdr s_617)))" +"(let-values(((s_620)" +"(if(syntax?$1 s_619)" +"(syntax-e$1 s_619)" +" s_619)))" +"(if(pair? s_620)" "(let-values(((tst307_0)" -"(let-values(((s_623)(car s_622)))" -" s_623))" +"(let-values(((s_621)(car s_620)))" +" s_621))" "((thn308_0 els309_0)" -"(let-values(((s_624)(cdr s_622)))" -"(let-values(((s_625)" -"(if(syntax?$1 s_624)" -"(syntax-e$1 s_624)" -" s_624)))" -"(if(pair? s_625)" +"(let-values(((s_622)(cdr s_620)))" +"(let-values(((s_623)" +"(if(syntax?$1 s_622)" +"(syntax-e$1 s_622)" +" s_622)))" +"(if(pair? s_623)" "(let-values(((thn310_0)" -"(let-values(((s_626)" +"(let-values(((s_624)" "(car" -" s_625)))" -" s_626))" +" s_623)))" +" s_624))" "((els311_0)" -"(let-values(((s_627)" +"(let-values(((s_625)" "(cdr" +" s_623)))" +"(let-values(((s_626)" +"(if(syntax?$1" +" s_625)" +"(syntax-e$1" +" s_625)" " s_625)))" -"(let-values(((s_628)" -"(if(syntax?$1" -" s_627)" -"(syntax-e$1" -" s_627)" -" s_627)))" "(if(pair?" -" s_628)" +" s_626)" "(let-values(((els312_0)" -"(let-values(((s_629)" +"(let-values(((s_627)" "(car" -" s_628)))" -" s_629))" +" s_626)))" +" s_627))" "(()" -"(let-values(((s_630)" +"(let-values(((s_628)" "(cdr" -" s_628)))" -"(let-values(((s_631)" +" s_626)))" +"(let-values(((s_629)" "(if(syntax?$1" -" s_630)" +" s_628)" "(syntax-e$1" -" s_630)" -" s_630)))" +" s_628)" +" s_628)))" "(if(null?" -" s_631)" +" s_629)" "(values)" "(raise-syntax-error$1" " #f" @@ -67371,7 +67387,7 @@ static const char *startup_source = "(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_90))" "(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx315_0) ctx_90)((s316_0) s_596))" +"(let-values(((ctx315_0) ctx_90)((s316_0) s_594))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx315_0 s316_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))" @@ -67404,7 +67420,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_632 ctx_91)" +"(lambda(s_630 ctx_91)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_91)))" @@ -67412,65 +67428,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_632)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_630)))" "(let-values(((ok?_50 with-continuation-mark325_0 key326_0 val327_0 body328_0)" -"(let-values(((s_633) disarmed-s_14))" -"(let-values(((orig-s_56) s_633))" +"(let-values(((s_631) disarmed-s_14))" +"(let-values(((orig-s_56) s_631))" "(let-values(((with-continuation-mark325_1 key326_1 val327_1 body328_1)" -"(let-values(((s_634)(if(syntax?$1 s_633)(syntax-e$1 s_633) s_633)))" -"(if(pair? s_634)" +"(let-values(((s_632)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" +"(if(pair? s_632)" "(let-values(((with-continuation-mark329_0)" -"(let-values(((s_635)(car s_634))) s_635))" +"(let-values(((s_633)(car s_632))) s_633))" "((key330_0 val331_0 body332_0)" -"(let-values(((s_636)(cdr s_634)))" -"(let-values(((s_637)" -"(if(syntax?$1 s_636)" -"(syntax-e$1 s_636)" -" s_636)))" -"(if(pair? s_637)" +"(let-values(((s_634)(cdr s_632)))" +"(let-values(((s_635)" +"(if(syntax?$1 s_634)" +"(syntax-e$1 s_634)" +" s_634)))" +"(if(pair? s_635)" "(let-values(((key333_0)" -"(let-values(((s_638)(car s_637)))" -" s_638))" +"(let-values(((s_636)(car s_635)))" +" s_636))" "((val334_0 body335_0)" -"(let-values(((s_639)(cdr s_637)))" -"(let-values(((s_640)" -"(if(syntax?$1 s_639)" -"(syntax-e$1 s_639)" -" s_639)))" -"(if(pair? s_640)" +"(let-values(((s_637)(cdr s_635)))" +"(let-values(((s_638)" +"(if(syntax?$1 s_637)" +"(syntax-e$1 s_637)" +" s_637)))" +"(if(pair? s_638)" "(let-values(((val336_0)" -"(let-values(((s_641)" +"(let-values(((s_639)" "(car" -" s_640)))" -" s_641))" +" s_638)))" +" s_639))" "((body337_0)" -"(let-values(((s_642)" +"(let-values(((s_640)" "(cdr" +" s_638)))" +"(let-values(((s_641)" +"(if(syntax?$1" +" s_640)" +"(syntax-e$1" +" s_640)" " s_640)))" -"(let-values(((s_643)" -"(if(syntax?$1" -" s_642)" -"(syntax-e$1" -" s_642)" -" s_642)))" -"(if(pair? s_643)" +"(if(pair? s_641)" "(let-values(((body338_0)" -"(let-values(((s_644)" +"(let-values(((s_642)" "(car" -" s_643)))" -" s_644))" +" s_641)))" +" s_642))" "(()" -"(let-values(((s_645)" +"(let-values(((s_643)" "(cdr" -" s_643)))" -"(let-values(((s_646)" +" s_641)))" +"(let-values(((s_644)" "(if(syntax?$1" -" s_645)" +" s_643)" "(syntax-e$1" -" s_645)" -" s_645)))" +" s_643)" +" s_643)))" "(if(null?" -" s_646)" +" s_644)" "(values)" "(raise-syntax-error$1" " #f" @@ -67494,7 +67510,7 @@ static const char *startup_source = "(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx339_0) ctx_91)((s340_0) s_632))" +"(let-values(((ctx339_0) ctx_91)((s340_0) s_630))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx339_0 s340_0))))" "(let-values(((exp-key_0)" "(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))" @@ -67537,7 +67553,7 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_647 ctx_92)" +"(lambda(s_645 ctx_92)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_92)))" @@ -67545,24 +67561,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_647)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_645)))" "(let-values(((ok?_51 begin351_0 e352_0)" -"(let-values(((s_648) disarmed-s_15))" -"(let-values(((orig-s_57) s_648))" +"(let-values(((s_646) disarmed-s_15))" +"(let-values(((orig-s_57) s_646))" "(let-values(((begin351_1 e352_1)" -"(let-values(((s_649)" -"(if(syntax?$1 s_648)(syntax-e$1 s_648) s_648)))" -"(if(pair? s_649)" +"(let-values(((s_647)" +"(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))" +"(if(pair? s_647)" "(let-values(((begin353_0)" -"(let-values(((s_650)(car s_649))) s_650))" +"(let-values(((s_648)(car s_647))) s_648))" "((e354_0)" -"(let-values(((s_651)(cdr s_649)))" -"(let-values(((s_652)" -"(if(syntax?$1 s_651)" -"(syntax-e$1 s_651)" -" s_651)))" +"(let-values(((s_649)(cdr s_647)))" +"(let-values(((s_650)" +"(if(syntax?$1 s_649)" +"(syntax-e$1 s_649)" +" s_649)))" "(let-values(((flat-s_43)" -"(to-syntax-list.1 s_652)))" +"(to-syntax-list.1 s_650)))" "(if(not flat-s_43)" "(let-values()" "(raise-syntax-error$1" @@ -67584,7 +67600,7 @@ static const char *startup_source = "(as-begin-expression-context ctx_92)" "(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx355_0) ctx_92)((s356_0) s_647))" +"(let-values(((ctx355_0) ctx_92)((s356_0) s_645))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_123)" @@ -67670,39 +67686,39 @@ static const char *startup_source = "((temp365_0) 0)" "((temp366_0) #t))" "(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))" -"(lambda(s_653 ctx_93)" +"(lambda(s_651 ctx_93)" "(let-values(((context_24)(expand-context-context ctx_93)))" "(if(let-values(((or-part_388)(eq? context_24 'top-level)))" "(if or-part_388 or-part_388(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_653)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_651)))" "(let-values(((ok?_52 begin367_0)" -"(let-values(((s_654) disarmed-s_16))" -"(if(let-values(((s_655)(if(syntax?$1 s_654)(syntax-e$1 s_654) s_654)))" -"(if(pair? s_655)" -"(if(let-values(((s_656)(car s_655))) #t)" -"(let-values(((s_657)(cdr s_655)))" -"(let-values(((s_658)(if(syntax?$1 s_657)(syntax-e$1 s_657) s_657)))" -"(null? s_658)))" +"(let-values(((s_652) disarmed-s_16))" +"(if(let-values(((s_653)(if(syntax?$1 s_652)(syntax-e$1 s_652) s_652)))" +"(if(pair? s_653)" +"(if(let-values(((s_654)(car s_653))) #t)" +"(let-values(((s_655)(cdr s_653)))" +"(let-values(((s_656)(if(syntax?$1 s_655)(syntax-e$1 s_655) s_655)))" +"(null? s_656)))" " #f)" " #f))" "(let-values()" "(let-values(((begin367_1)" -"(let-values(((s_659)(if(syntax?$1 s_654)(syntax-e$1 s_654) s_654)))" +"(let-values(((s_657)(if(syntax?$1 s_652)(syntax-e$1 s_652) s_652)))" "(let-values(((begin368_0)" -"(let-values(((s_660)(car s_659))) s_660))" +"(let-values(((s_658)(car s_657))) s_658))" "(()" -"(let-values(((s_661)(cdr s_659)))" -"(let-values(((s_662)" -"(if(syntax?$1 s_661)" -"(syntax-e$1 s_661)" -" s_661)))" +"(let-values(((s_659)(cdr s_657)))" +"(let-values(((s_660)" +"(if(syntax?$1 s_659)" +"(syntax-e$1 s_659)" +" s_659)))" "(values)))))" "(values begin368_0)))))" "(values #t begin367_1)))" "(values #f #f)))))" -"(if ok?_52 s_653(nonempty-begin_0 s_653 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_653 ctx_93))))))))" +"(if ok?_52 s_651(nonempty-begin_0 s_651 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_651 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67729,7 +67745,7 @@ static const char *startup_source = "(lambda(s375_0 ctx376_0 implicit-omitted?373_0 implicit-omitted?374_0)" "(begin" " 'core377" -"(let-values(((s_663) s375_0))" +"(let-values(((s_661) s375_0))" "(let-values(((ctx_95) ctx376_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))" "(let-values()" @@ -67741,46 +67757,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_663)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_661)))" "(let-values(((id_129)" "(if implicit-omitted?_0" -"(let-values() s_663)" +"(let-values() s_661)" "(let-values()" "(let-values(((ok?_53 #%top379_0 id380_0)" -"(let-values(((s_664) disarmed-s_17))" -"(let-values(((orig-s_58) s_664))" +"(let-values(((s_662) disarmed-s_17))" +"(let-values(((orig-s_58) s_662))" "(let-values(((#%top379_1 id380_1)" -"(let-values(((s_665)" -"(if(syntax?$1 s_664)" -"(syntax-e$1 s_664)" -" s_664)))" -"(if(pair? s_665)" +"(let-values(((s_663)" +"(if(syntax?$1 s_662)" +"(syntax-e$1 s_662)" +" s_662)))" +"(if(pair? s_663)" "(let-values(((#%top381_0)" -"(let-values(((s_666)" +"(let-values(((s_664)" "(car" -" s_665)))" -" s_666))" +" s_663)))" +" s_664))" "((id382_0)" -"(let-values(((s_667)" +"(let-values(((s_665)" "(cdr" -" s_665)))" +" s_663)))" "(if(let-values(((or-part_389)" "(if(syntax?$1" -" s_667)" +" s_665)" "(symbol?" "(syntax-e$1" -" s_667))" +" s_665))" " #f)))" "(if or-part_389" " or-part_389" "(symbol?" -" s_667)))" -" s_667" +" s_665)))" +" s_665" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_667)))))" +" s_665)))))" "(values #%top381_0 id382_0))" "(raise-syntax-error$1" " #f" @@ -67788,7 +67804,7 @@ static const char *startup_source = " orig-s_58)))))" "(values #t #%top379_1 id380_1))))))" " id380_0)))))" -"(let-values(((b_89)" +"(let-values(((b_91)" "(let-values(((id383_0) id_129)" "((temp384_0)(expand-context-phase ctx_95))" "((temp385_0) 'ambiguous))" @@ -67805,23 +67821,23 @@ static const char *startup_source = " #f" " id383_0" " temp384_0))))" -"(if(eq? b_89 'ambiguous)" +"(if(eq? b_91 'ambiguous)" "(let-values()(raise-ambiguous-error id_129 ctx_95))" -"(if(if b_89" -"(if(module-binding? b_89)" -"(eq?(module-binding-module b_89)(root-expand-context-self-mpi ctx_95))" +"(if(if b_91" +"(if(module-binding? b_91)" +"(eq?(module-binding-module b_91)(root-expand-context-self-mpi ctx_95))" " #f)" " #f)" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" -"(parsed-id2.1 id_129 b_89 #f)" -"(if(top-level-module-path-index?(module-binding-module b_89))" -"(let-values() s_663)" +"(parsed-id2.1 id_129 b_91 #f)" +"(if(top-level-module-path-index?(module-binding-module b_91))" +"(let-values() s_661)" "(let-values() id_129))))" "(if(register-eventual-variable!? id_129 ctx_95)" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" -"(parsed-id2.1 id_129 b_89 #f)" +"(parsed-id2.1 id_129 b_91 #f)" " id_129))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_95))" @@ -67861,42 +67877,42 @@ static const char *startup_source = "(let-values() id_129)" "(let-values()" "(let-values(((ok?_54 #%top388_0 id389_0)" -"(let-values(((s_668) disarmed-s_17))" -"(let-values(((orig-s_59) s_668))" +"(let-values(((s_666) disarmed-s_17))" +"(let-values(((orig-s_59) s_666))" "(let-values(((#%top388_1 id389_1)" -"(let-values(((s_669)" +"(let-values(((s_667)" "(if(syntax?$1" -" s_668)" +" s_666)" "(syntax-e$1" -" s_668)" -" s_668)))" -"(if(pair? s_669)" +" s_666)" +" s_666)))" +"(if(pair? s_667)" "(let-values(((#%top390_0)" -"(let-values(((s_670)" +"(let-values(((s_668)" "(car" -" s_669)))" -" s_670))" +" s_667)))" +" s_668))" "((id391_0)" -"(let-values(((s_671)" +"(let-values(((s_669)" "(cdr" -" s_669)))" +" s_667)))" "(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_671)" +" s_669)" "(symbol?" "(syntax-e$1" -" s_671))" +" s_669))" " #f)))" "(if or-part_390" " or-part_390" "(symbol?" -" s_671)))" -" s_671" +" s_669)))" +" s_669" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_671)))))" +" s_669)))))" "(values" " #%top390_0" " id391_0))" @@ -67905,80 +67921,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_59)))))" "(values #t #%top388_1 id389_1))))))" -"(let-values(((s392_0) s_663)" +"(let-values(((s392_0) s_661)" "((temp393_0)(cons #%top388_0 id_129)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" -"(parsed-top-id4.1 id_129 b_89 #f)" -" s_663)))))))))))))))))))))))" +"(parsed-top-id4.1 id_129 b_91 #f)" +" s_661)))))))))))))))))))))))" "(case-lambda" -"((s_672 ctx_96)(core377_0 s_672 ctx_96 #f #f))" -"((s_673 ctx_97 implicit-omitted?373_1)(core377_0 s_673 ctx_97 implicit-omitted?373_1 #t))))))" +"((s_670 ctx_96)(core377_0 s_670 ctx_96 #f #f))" +"((s_671 ctx_97 implicit-omitted?373_1)(core377_0 s_671 ctx_97 implicit-omitted?373_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_674 ctx_98)" +"(lambda(s_672 ctx_98)" "(let-values((()" "(begin" "(let-values(((obs_116)(expand-context-observer ctx_98)))" "(if obs_116(let-values()(let-values()(call-expand-observe obs_116 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_674)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_672)))" "(let-values(((ok?_55 set!394_0 id395_0 rhs396_0)" -"(let-values(((s_675) disarmed-s_18))" -"(let-values(((orig-s_60) s_675))" +"(let-values(((s_673) disarmed-s_18))" +"(let-values(((orig-s_60) s_673))" "(let-values(((set!394_1 id395_1 rhs396_1)" -"(let-values(((s_676)(if(syntax?$1 s_675)(syntax-e$1 s_675) s_675)))" -"(if(pair? s_676)" -"(let-values(((set!397_0)(let-values(((s_677)(car s_676))) s_677))" +"(let-values(((s_674)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" +"(if(pair? s_674)" +"(let-values(((set!397_0)(let-values(((s_675)(car s_674))) s_675))" "((id398_0 rhs399_0)" -"(let-values(((s_678)(cdr s_676)))" -"(let-values(((s_679)" -"(if(syntax?$1 s_678)" -"(syntax-e$1 s_678)" -" s_678)))" -"(if(pair? s_679)" +"(let-values(((s_676)(cdr s_674)))" +"(let-values(((s_677)" +"(if(syntax?$1 s_676)" +"(syntax-e$1 s_676)" +" s_676)))" +"(if(pair? s_677)" "(let-values(((id400_0)" -"(let-values(((s_680)(car s_679)))" +"(let-values(((s_678)(car s_677)))" "(if(let-values(((or-part_391)" -"(if(syntax?$1 s_680)" +"(if(syntax?$1 s_678)" "(symbol?" "(syntax-e$1" -" s_680))" +" s_678))" " #f)))" "(if or-part_391" " or-part_391" -"(symbol? s_680)))" -" s_680" +"(symbol? s_678)))" +" s_678" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_60" -" s_680))))" +" s_678))))" "((rhs401_0)" -"(let-values(((s_681)(cdr s_679)))" -"(let-values(((s_682)" -"(if(syntax?$1 s_681)" -"(syntax-e$1 s_681)" -" s_681)))" -"(if(pair? s_682)" +"(let-values(((s_679)(cdr s_677)))" +"(let-values(((s_680)" +"(if(syntax?$1 s_679)" +"(syntax-e$1 s_679)" +" s_679)))" +"(if(pair? s_680)" "(let-values(((rhs402_0)" -"(let-values(((s_683)" +"(let-values(((s_681)" "(car" -" s_682)))" -" s_683))" +" s_680)))" +" s_681))" "(()" -"(let-values(((s_684)" +"(let-values(((s_682)" "(cdr" -" s_682)))" -"(let-values(((s_685)" +" s_680)))" +"(let-values(((s_683)" "(if(syntax?$1" -" s_684)" +" s_682)" "(syntax-e$1" -" s_684)" -" s_684)))" -"(if(null? s_685)" +" s_682)" +" s_682)))" +"(if(null? s_683)" "(values)" "(raise-syntax-error$1" " #f" @@ -68027,7 +68043,7 @@ static const char *startup_source = "(if binding_30" "(let-values(((binding407_0) binding_30)" "((ctx408_0) ctx_98)" -"((s409_0) s_674))" +"((s409_0) s_672))" "(lookup28.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" @@ -68059,7 +68075,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_674" +" s_672" " id_130))" "(void))" "(values))))" @@ -68078,7 +68094,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx410_0) ctx_98)((s411_0) s_674))" +"(let-values(((ctx410_0) ctx_98)((s411_0) s_672))" "(keep-as-needed85.1" " #f" " #f" @@ -68119,7 +68135,7 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_674" +" s_672" " id_130" " null" "(syntax-debug-info-string id_130 ctx_98)))" @@ -68130,7 +68146,7 @@ static const char *startup_source = "(let-values(((temp419_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_674" +" s_672" " disarmed-s_18" " set!394_0" " rhs396_0" @@ -68145,7 +68161,7 @@ static const char *startup_source = "(let-values(((exp-s_14 re-ctx_1)" "(let-values(((t421_0) t_58)" "((insp422_0) insp_24)" -"((s423_0) s_674)" +"((s423_0) s_672)" "((orig-id424_0) orig-id_1)" "((ctx425_0) ctx_98)" "((binding426_0) binding_30)" @@ -68172,7 +68188,7 @@ static const char *startup_source = "(let-values(((temp430_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_674" +" s_672" " disarmed-s_18" " set!394_0" " rhs396_0" @@ -68195,7 +68211,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_674" +" s_672" " id_130))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -68206,7 +68222,7 @@ static const char *startup_source = "(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_686) s25_0))" +"(let-values(((s_684) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_131) id28_0))" @@ -68228,17 +68244,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_686)))" -"(let-values() s_686)))))))))))))))" +" s_684)))" +"(let-values() s_684)))))))))))))))" "(case-lambda" -"((s_687 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_687 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_688 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_688 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_685 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_685 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_686 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_686 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_689 ctx_102)" +"(lambda(s_687 ctx_102)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_102)))" @@ -68246,75 +68262,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_689)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_687)))" "(let-values(((ok?_56 #%variable-reference432_0 id433_0)" -"(let-values(((s_690) disarmed-s_22))" -"(if(let-values(((s_691)(if(syntax?$1 s_690)(syntax-e$1 s_690) s_690)))" -"(if(pair? s_691)" -"(if(let-values(((s_692)(car s_691))) #t)" -"(let-values(((s_693)(cdr s_691)))" -"(let-values(((s_694)(if(syntax?$1 s_693)(syntax-e$1 s_693) s_693)))" -"(if(pair? s_694)" -"(if(let-values(((s_695)(car s_694)))" +"(let-values(((s_688) disarmed-s_22))" +"(if(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" +"(if(pair? s_689)" +"(if(let-values(((s_690)(car s_689))) #t)" +"(let-values(((s_691)(cdr s_689)))" +"(let-values(((s_692)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" +"(if(pair? s_692)" +"(if(let-values(((s_693)(car s_692)))" "(let-values(((or-part_395)" -"(if(syntax?$1 s_695)(symbol?(syntax-e$1 s_695)) #f)))" -"(if or-part_395 or-part_395(symbol? s_695))))" -"(let-values(((s_696)(cdr s_694)))" -"(let-values(((s_697)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" -"(null? s_697)))" +"(if(syntax?$1 s_693)(symbol?(syntax-e$1 s_693)) #f)))" +"(if or-part_395 or-part_395(symbol? s_693))))" +"(let-values(((s_694)(cdr s_692)))" +"(let-values(((s_695)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" +"(null? s_695)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference432_1 id433_1)" -"(let-values(((s_698)(if(syntax?$1 s_690)(syntax-e$1 s_690) s_690)))" +"(let-values(((s_696)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" "(let-values(((#%variable-reference434_0)" -"(let-values(((s_699)(car s_698))) s_699))" +"(let-values(((s_697)(car s_696))) s_697))" "((id435_0)" -"(let-values(((s_700)(cdr s_698)))" -"(let-values(((s_701)" -"(if(syntax?$1 s_700)" -"(syntax-e$1 s_700)" -" s_700)))" +"(let-values(((s_698)(cdr s_696)))" +"(let-values(((s_699)" +"(if(syntax?$1 s_698)" +"(syntax-e$1 s_698)" +" s_698)))" "(let-values(((id436_0)" -"(let-values(((s_702)(car s_701))) s_702))" +"(let-values(((s_700)(car s_699))) s_700))" "(()" -"(let-values(((s_703)(cdr s_701)))" -"(let-values(((s_704)" -"(if(syntax?$1 s_703)" -"(syntax-e$1 s_703)" -" s_703)))" +"(let-values(((s_701)(cdr s_699)))" +"(let-values(((s_702)" +"(if(syntax?$1 s_701)" +"(syntax-e$1 s_701)" +" s_701)))" "(values)))))" "(values id436_0))))))" "(values #%variable-reference434_0 id435_0)))))" "(values #t #%variable-reference432_1 id433_1)))" "(values #f #f #f)))))" "(let-values(((ok?_57 #%variable-reference437_0 #%top438_0 id439_0)" -"(let-values(((s_705) disarmed-s_22))" +"(let-values(((s_703) disarmed-s_22))" "(if(if(not ok?_56)" -"(let-values(((s_706)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" -"(if(pair? s_706)" -"(if(let-values(((s_707)(car s_706))) #t)" -"(let-values(((s_708)(cdr s_706)))" -"(let-values(((s_709)(if(syntax?$1 s_708)(syntax-e$1 s_708) s_708)))" +"(let-values(((s_704)(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" +"(if(pair? s_704)" +"(if(let-values(((s_705)(car s_704))) #t)" +"(let-values(((s_706)(cdr s_704)))" +"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" +"(if(pair? s_707)" +"(if(let-values(((s_708)(car s_707)))" +"(let-values(((s_709)" +"(if(syntax?$1 s_708)(syntax-e$1 s_708) s_708)))" "(if(pair? s_709)" -"(if(let-values(((s_710)(car s_709)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)(syntax-e$1 s_710) s_710)))" -"(if(pair? s_711)" -"(if(let-values(((s_712)(car s_711))) #t)" -"(let-values(((s_713)(cdr s_711)))" +"(if(let-values(((s_710)(car s_709))) #t)" +"(let-values(((s_711)(cdr s_709)))" "(let-values(((or-part_396)" -"(if(syntax?$1 s_713)" -"(symbol?(syntax-e$1 s_713))" +"(if(syntax?$1 s_711)" +"(symbol?(syntax-e$1 s_711))" " #f)))" -"(if or-part_396 or-part_396(symbol? s_713))))" +"(if or-part_396 or-part_396(symbol? s_711))))" " #f)" " #f)))" -"(let-values(((s_714)(cdr s_709)))" -"(let-values(((s_715)(if(syntax?$1 s_714)(syntax-e$1 s_714) s_714)))" -"(null? s_715)))" +"(let-values(((s_712)(cdr s_707)))" +"(let-values(((s_713)(if(syntax?$1 s_712)(syntax-e$1 s_712) s_712)))" +"(null? s_713)))" " #f)" " #f)))" " #f)" @@ -68322,61 +68338,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference437_1 #%top438_1 id439_1)" -"(let-values(((s_716)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" +"(let-values(((s_714)(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" "(let-values(((#%variable-reference440_0)" -"(let-values(((s_717)(car s_716))) s_717))" +"(let-values(((s_715)(car s_714))) s_715))" "((#%top441_0 id442_0)" -"(let-values(((s_718)(cdr s_716)))" +"(let-values(((s_716)(cdr s_714)))" +"(let-values(((s_717)" +"(if(syntax?$1 s_716)" +"(syntax-e$1 s_716)" +" s_716)))" +"(let-values(((#%top443_0 id444_0)" +"(let-values(((s_718)(car s_717)))" "(let-values(((s_719)" "(if(syntax?$1 s_718)" "(syntax-e$1 s_718)" " s_718)))" -"(let-values(((#%top443_0 id444_0)" -"(let-values(((s_720)(car s_719)))" -"(let-values(((s_721)" -"(if(syntax?$1 s_720)" -"(syntax-e$1 s_720)" -" s_720)))" "(let-values(((#%top445_0)" -"(let-values(((s_722)" +"(let-values(((s_720)" "(car" -" s_721)))" -" s_722))" +" s_719)))" +" s_720))" "((id446_0)" -"(let-values(((s_723)" +"(let-values(((s_721)" "(cdr" +" s_719)))" " s_721)))" -" s_723)))" "(values #%top445_0 id446_0)))))" "(()" -"(let-values(((s_724)(cdr s_719)))" -"(let-values(((s_725)" -"(if(syntax?$1 s_724)" -"(syntax-e$1 s_724)" -" s_724)))" +"(let-values(((s_722)(cdr s_717)))" +"(let-values(((s_723)" +"(if(syntax?$1 s_722)" +"(syntax-e$1 s_722)" +" s_722)))" "(values)))))" "(values #%top443_0 id444_0))))))" "(values #%variable-reference440_0 #%top441_0 id442_0)))))" "(values #t #%variable-reference437_1 #%top438_1 id439_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_58 #%variable-reference447_0)" -"(let-values(((s_726) disarmed-s_22))" +"(let-values(((s_724) disarmed-s_22))" "(if(if(not(let-values(((or-part_397) ok?_56))(if or-part_397 or-part_397 ok?_57)))" " #t" " #f)" -"(let-values(((orig-s_61) s_726))" +"(let-values(((orig-s_61) s_724))" "(let-values(((#%variable-reference447_1)" -"(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" -"(if(pair? s_727)" +"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))" +"(if(pair? s_725)" "(let-values(((#%variable-reference448_0)" -"(let-values(((s_728)(car s_727))) s_728))" +"(let-values(((s_726)(car s_725))) s_726))" "(()" -"(let-values(((s_729)(cdr s_727)))" -"(let-values(((s_730)" -"(if(syntax?$1 s_729)" -"(syntax-e$1 s_729)" -" s_729)))" -"(if(null? s_730)" +"(let-values(((s_727)(cdr s_725)))" +"(let-values(((s_728)" +"(if(syntax?$1 s_727)" +"(syntax-e$1 s_727)" +" s_727)))" +"(if(null? s_728)" "(values)" "(raise-syntax-error$1" " #f" @@ -68409,7 +68425,7 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_689" +" s_687" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_102))))" @@ -68419,30 +68435,30 @@ static const char *startup_source = "(let-values(((binding452_0) binding_31)" "((ctx453_0) ctx_102)" "((var-id454_0) var-id_0)" -"((s455_0) s_689)" +"((s455_0) s_687)" "((temp456_0)(expand-context-in-local-expand? ctx_102)))" "(lookup28.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_60(not(variable? t_60)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_689))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_687))" "(void))" "(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_689)" +"(keep-properties-only~ s_687)" "(if ok?_57" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_689))))))))" +" s_687))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_689) #f)" -" s_689)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_687) #f)" +" s_687)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_731 ctx_103)" +"(lambda(s_729 ctx_103)" "(let-values((()" "(begin" "(let-values(((obs_120)(expand-context-observer ctx_103)))" @@ -68450,32 +68466,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_731)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_729)))" "(let-values(((ok?_59 #%expression457_0 e458_0)" -"(let-values(((s_732) disarmed-s_23))" -"(let-values(((orig-s_62) s_732))" +"(let-values(((s_730) disarmed-s_23))" +"(let-values(((orig-s_62) s_730))" "(let-values(((#%expression457_1 e458_1)" -"(let-values(((s_733)(if(syntax?$1 s_732)(syntax-e$1 s_732) s_732)))" -"(if(pair? s_733)" +"(let-values(((s_731)(if(syntax?$1 s_730)(syntax-e$1 s_730) s_730)))" +"(if(pair? s_731)" "(let-values(((#%expression459_0)" -"(let-values(((s_734)(car s_733))) s_734))" +"(let-values(((s_732)(car s_731))) s_732))" "((e460_0)" -"(let-values(((s_735)(cdr s_733)))" -"(let-values(((s_736)" -"(if(syntax?$1 s_735)" -"(syntax-e$1 s_735)" -" s_735)))" -"(if(pair? s_736)" +"(let-values(((s_733)(cdr s_731)))" +"(let-values(((s_734)" +"(if(syntax?$1 s_733)" +"(syntax-e$1 s_733)" +" s_733)))" +"(if(pair? s_734)" "(let-values(((e461_0)" -"(let-values(((s_737)(car s_736)))" -" s_737))" +"(let-values(((s_735)(car s_734)))" +" s_735))" "(()" -"(let-values(((s_738)(cdr s_736)))" -"(let-values(((s_739)" -"(if(syntax?$1 s_738)" -"(syntax-e$1 s_738)" -" s_738)))" -"(if(null? s_739)" +"(let-values(((s_736)(cdr s_734)))" +"(let-values(((s_737)" +"(if(syntax?$1 s_736)" +"(syntax-e$1 s_736)" +" s_736)))" +"(if(null? s_737)" "(values)" "(raise-syntax-error$1" " #f" @@ -68487,7 +68503,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_62)))))" "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx462_0) ctx_103)((s463_0) s_731)((temp464_0) #t))" +"(let-values(((ctx462_0) ctx_103)((s463_0) s_729)((temp464_0) #t))" "(keep-as-needed85.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" @@ -68514,8 +68530,8 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s469_0) rebuild-s_13)((temp470_0)(list #%expression457_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s469_0 temp470_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_740 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_740))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_741 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_741))))" +" (void (add-core-form!* 'unquote (lambda (s_738 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_738))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_739 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_739))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_134 at-phase_12 ns_123)" @@ -68553,12 +68569,12 @@ static const char *startup_source = " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_79) specs_1))" +"(let-values(((lst_78) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" @@ -68569,7 +68585,7 @@ static const char *startup_source = "(let-values(((spec_0)" "(unsafe-car" " lst_408))" -"((rest_233)" +"((rest_235)" "(unsafe-cdr" " lst_408)))" "(let-values(((track-stxes_2" @@ -68710,57 +68726,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_303)" +"(let-values(((s_304)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_303))" +" s_304))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_304)" +"(let-values(((s_305)" "(if(syntax?$1" -" s_303)" -"(syntax-e$1" -" s_303)" -" s_303)))" -"(if(pair?" " s_304)" -"(let-values(((for-meta6_0)" -"(let-values(((s_178)" -"(car" +"(syntax-e$1" +" s_304)" " s_304)))" -" s_178))" +"(if(pair?" +" s_305)" +"(let-values(((for-meta6_0)" +"(let-values(((s_179)" +"(car" +" s_305)))" +" s_179))" "((phase-level7_0" " spec8_0)" "(let-values(((s_80)" "(cdr" -" s_304)))" -"(let-values(((s_742)" +" s_305)))" +"(let-values(((s_740)" "(if(syntax?$1" " s_80)" "(syntax-e$1" " s_80)" " s_80)))" "(if(pair?" -" s_742)" +" s_740)" "(let-values(((phase-level9_0)" -"(let-values(((s_180)" +"(let-values(((s_181)" "(car" -" s_742)))" -" s_180))" +" s_740)))" +" s_181))" "((spec10_0)" -"(let-values(((s_460)" +"(let-values(((s_459)" "(cdr" -" s_742)))" -"(let-values(((s_466)" +" s_740)))" +"(let-values(((s_465)" "(if(syntax?$1" -" s_460)" +" s_459)" "(syntax-e$1" -" s_460)" -" s_460)))" +" s_459)" +" s_459)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_466)))" +" s_465)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68858,15 +68874,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_427)" +"(let-values(((s_149)" "(car" " s_23)))" -" s_427))" +" s_149))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_743)" +"(let-values(((s_741)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -68874,7 +68890,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_743)))" +" s_741)))" "(if(not" " flat-s_45)" "(let-values()" @@ -68938,24 +68954,24 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_478)" +"(let-values(((s_477)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_478)" +" s_477)" "(let-values(((for-label21_0)" -"(let-values(((s_475)" +"(let-values(((s_474)" "(car" -" s_478)))" -" s_475))" +" s_477)))" +" s_474))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_478)))" -"(let-values(((s_305)" +" s_477)))" +"(let-values(((s_306)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -68963,7 +68979,7 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_305)))" +" s_306)))" "(if(not" " flat-s_46)" "(let-values()" @@ -69030,18 +69046,18 @@ static const char *startup_source = "(let-values(((ok?_63" " protect25_0" " p-spec26_0)" -"(let-values(((s_744)" +"(let-values(((s_742)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_744))" +" s_742))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_744)" +" s_742)" "(syntax-e$1" -" s_744)" -" s_744)))" +" s_742)" +" s_742)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" @@ -69050,18 +69066,18 @@ static const char *startup_source = " s_31)))" " s_88))" "((p-spec28_0)" -"(let-values(((s_307)" +"(let-values(((s_308)" "(cdr" " s_31)))" -"(let-values(((s_481)" +"(let-values(((s_480)" "(if(syntax?$1" -" s_307)" +" s_308)" "(syntax-e$1" -" s_307)" -" s_307)))" +" s_308)" +" s_308)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_481)))" +" s_480)))" "(if(not" " flat-s_47)" "(let-values()" @@ -69115,43 +69131,43 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_745)" +"(let-values(((s_743)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_745))" +" s_743))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_484)" +"(let-values(((s_483)" "(if(syntax?$1" -" s_745)" +" s_743)" "(syntax-e$1" -" s_745)" -" s_745)))" +" s_743)" +" s_743)))" "(if(pair?" -" s_484)" +" s_483)" "(let-values(((rename34_0)" -"(let-values(((s_313)" +"(let-values(((s_314)" "(car" -" s_484)))" -" s_313))" +" s_483)))" +" s_314))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_746)" +"(let-values(((s_744)" "(cdr" -" s_484)))" -"(let-values(((s_314)" +" s_483)))" +"(let-values(((s_315)" "(if(syntax?$1" -" s_746)" +" s_744)" "(syntax-e$1" -" s_746)" -" s_746)))" +" s_744)" +" s_744)))" "(if(pair?" -" s_314)" +" s_315)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_314)))" +" s_315)))" "(if(let-values(((or-part_216)" "(if(syntax?$1" " s_33)" @@ -69172,46 +69188,46 @@ static const char *startup_source = "((id:to38_0)" "(let-values(((s_397)" "(cdr" -" s_314)))" -"(let-values(((s_747)" +" s_315)))" +"(let-values(((s_745)" "(if(syntax?$1" " s_397)" "(syntax-e$1" " s_397)" " s_397)))" "(if(pair?" -" s_747)" +" s_745)" "(let-values(((id:to39_0)" -"(let-values(((s_431)" +"(let-values(((s_430)" "(car" -" s_747)))" +" s_745)))" "(if(let-values(((or-part_57)" "(if(syntax?$1" -" s_431)" +" s_430)" "(symbol?" "(syntax-e$1" -" s_431))" +" s_430))" " #f)))" "(if or-part_57" " or-part_57" "(symbol?" -" s_431)))" -" s_431" +" s_430)))" +" s_430" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_431))))" +" s_430))))" "(()" -"(let-values(((s_748)" +"(let-values(((s_746)" "(cdr" -" s_747)))" +" s_745)))" "(let-values(((s_384)" "(if(syntax?$1" -" s_748)" +" s_746)" "(syntax-e$1" -" s_748)" -" s_748)))" +" s_746)" +" s_746)))" "(if(null?" " s_384)" "(values)" @@ -69275,70 +69291,70 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_501)" +"(let-values(((s_499)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_501))" +" s_499))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_502)" +"(let-values(((s_500)" "(if(syntax?$1" -" s_501)" +" s_499)" "(syntax-e$1" -" s_501)" -" s_501)))" +" s_499)" +" s_499)))" "(if(pair?" -" s_502)" +" s_500)" "(let-values(((struct43_0)" -"(let-values(((s_201)" +"(let-values(((s_202)" "(car" -" s_502)))" -" s_201))" +" s_500)))" +" s_202))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_749)" +"(let-values(((s_747)" "(cdr" -" s_502)))" -"(let-values(((s_750)" +" s_500)))" +"(let-values(((s_748)" "(if(syntax?$1" -" s_749)" +" s_747)" "(syntax-e$1" -" s_749)" -" s_749)))" +" s_747)" +" s_747)))" "(if(pair?" -" s_750)" +" s_748)" "(let-values(((id:struct46_0)" -"(let-values(((s_751)" +"(let-values(((s_749)" "(car" -" s_750)))" +" s_748)))" "(if(let-values(((or-part_364)" "(if(syntax?$1" -" s_751)" +" s_749)" "(symbol?" "(syntax-e$1" -" s_751))" +" s_749))" " #f)))" "(if or-part_364" " or-part_364" "(symbol?" -" s_751)))" -" s_751" +" s_749)))" +" s_749" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_751))))" +" s_749))))" "((id:field47_0)" -"(let-values(((s_752)" +"(let-values(((s_750)" "(cdr" -" s_750)))" +" s_748)))" "(let-values(((s_391)" "(if(syntax?$1" -" s_752)" +" s_750)" "(syntax-e$1" -" s_752)" -" s_752)))" +" s_750)" +" s_750)))" "(if(pair?" " s_391)" "(let-values(((id:field48_0)" @@ -69363,7 +69379,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_315)" +"(let-values(((lst_314)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69371,8 +69387,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_315)))" -"((letrec-values(((for-loop_278)" +" lst_314)))" +"((letrec-values(((for-loop_277)" "(lambda(id:field_1" " lst_409)" "(begin" @@ -69382,7 +69398,7 @@ static const char *startup_source = "(let-values(((s_64)" "(unsafe-car" " lst_409))" -"((rest_234)" +"((rest_236)" "(unsafe-cdr" " lst_409)))" "(let-values(((id:field_2)" @@ -69416,28 +69432,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_277" " id:field_2" -" rest_234)" +" rest_236)" " id:field_2)))" " id:field_1)))))" -" for-loop_278)" +" for-loop_277)" " null" -" lst_315)))))" +" lst_314)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_204)" +"(let-values(((s_205)" "(cdr" " s_391)))" -"(let-values(((s_753)" +"(let-values(((s_751)" "(if(syntax?$1" -" s_204)" +" s_205)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_205)" +" s_205)))" "(if(null?" -" s_753)" +" s_751)" "(values)" "(raise-syntax-error$1" " #f" @@ -69494,54 +69510,54 @@ static const char *startup_source = "(let-values(((ok?_66" " all-from50_0" " mod-path51_0)" -"(let-values(((s_754)" +"(let-values(((s_752)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_754))" +" s_752))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_755)" +"(let-values(((s_753)" "(if(syntax?$1" -" s_754)" +" s_752)" "(syntax-e$1" -" s_754)" -" s_754)))" +" s_752)" +" s_752)))" "(if(pair?" -" s_755)" +" s_753)" "(let-values(((all-from52_0)" -"(let-values(((s_756)" +"(let-values(((s_754)" "(car" -" s_755)))" -" s_756))" +" s_753)))" +" s_754))" "((mod-path53_0)" -"(let-values(((s_207)" -"(cdr" -" s_755)))" "(let-values(((s_208)" +"(cdr" +" s_753)))" +"(let-values(((s_209)" "(if(syntax?$1" -" s_207)" -"(syntax-e$1" -" s_207)" -" s_207)))" -"(if(pair?" " s_208)" -"(let-values(((mod-path54_0)" -"(let-values(((s_757)" -"(car" +"(syntax-e$1" +" s_208)" " s_208)))" -" s_757))" +"(if(pair?" +" s_209)" +"(let-values(((mod-path54_0)" +"(let-values(((s_755)" +"(car" +" s_209)))" +" s_755))" "(()" "(let-values(((s_93)" "(cdr" -" s_208)))" -"(let-values(((s_320)" +" s_209)))" +"(let-values(((s_321)" "(if(syntax?$1" " s_93)" "(syntax-e$1" " s_93)" " s_93)))" "(if(null?" -" s_320)" +" s_321)" "(values)" "(raise-syntax-error$1" " #f" @@ -69596,50 +69612,50 @@ static const char *startup_source = "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_211)" +"(let-values(((s_212)" "(if(syntax?$1" " s_96)" "(syntax-e$1" " s_96)" " s_96)))" "(if(pair?" -" s_211)" +" s_212)" "(let-values(((all-from-except58_0)" "(let-values(((s_415)" "(car" -" s_211)))" +" s_212)))" " s_415))" "((mod-path59_0" " id60_0)" -"(let-values(((s_161)" +"(let-values(((s_162)" "(cdr" -" s_211)))" -"(let-values(((s_488)" +" s_212)))" +"(let-values(((s_486)" "(if(syntax?$1" -" s_161)" +" s_162)" "(syntax-e$1" -" s_161)" -" s_161)))" +" s_162)" +" s_162)))" "(if(pair?" -" s_488)" +" s_486)" "(let-values(((mod-path61_0)" -"(let-values(((s_758)" +"(let-values(((s_756)" "(car" -" s_488)))" -" s_758))" +" s_486)))" +" s_756))" "((id62_0)" -"(let-values(((s_759)" +"(let-values(((s_757)" "(cdr" -" s_488)))" -"(let-values(((s_760)" +" s_486)))" +"(let-values(((s_758)" "(if(syntax?$1" -" s_759)" +" s_757)" "(syntax-e$1" -" s_759)" -" s_759)))" +" s_757)" +" s_757)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_760)))" +" s_758)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69659,13 +69675,13 @@ static const char *startup_source = "(check-list" " lst_43)))" "((letrec-values(((for-loop_58)" -"(lambda(id_67" +"(lambda(id_68" " lst_44)" "(begin" " 'for-loop" "(if(pair?" " lst_44)" -"(let-values(((s_491)" +"(let-values(((s_489)" "(unsafe-car" " lst_44))" "((rest_18)" @@ -69673,28 +69689,28 @@ static const char *startup_source = " lst_44)))" "(let-values(((id_136)" "(let-values(((id_137)" -" id_67))" +" id_68))" "(let-values(((id_138)" "(let-values()" "(let-values(((id63_0)" "(let-values()" "(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_491)" +" s_489)" "(symbol?" "(syntax-e$1" -" s_491))" +" s_489))" " #f)))" "(if or-part_401" " or-part_401" "(symbol?" -" s_491)))" -" s_491" +" s_489)))" +" s_489" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_491)))))" +" s_489)))))" "(cons" " id63_0" " id_137)))))" @@ -69706,7 +69722,7 @@ static const char *startup_source = " id_136" " rest_18)" " id_136)))" -" id_67)))))" +" id_68)))))" " for-loop_58)" " null" " lst_43)))))" @@ -69761,17 +69777,17 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_68" " all-defined64_0)" -"(let-values(((s_216)" +"(let-values(((s_217)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_216))" +" s_217))" "(let-values(((all-defined64_1)" "(let-values(((s_393)" "(if(syntax?$1" -" s_216)" +" s_217)" "(syntax-e$1" -" s_216)" -" s_216)))" +" s_217)" +" s_217)))" "(if(pair?" " s_393)" "(let-values(((all-defined65_0)" @@ -69780,17 +69796,17 @@ static const char *startup_source = " s_393)))" " s_108))" "(()" -"(let-values(((s_761)" +"(let-values(((s_759)" "(cdr" " s_393)))" -"(let-values(((s_762)" +"(let-values(((s_760)" "(if(syntax?$1" -" s_761)" +" s_759)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_759)" +" s_759)))" "(if(null?" -" s_762)" +" s_760)" "(values)" "(raise-syntax-error$1" " #f" @@ -69829,38 +69845,38 @@ static const char *startup_source = "(let-values(((ok?_69" " all-defined-except66_0" " id67_0)" -"(let-values(((s_763)" +"(let-values(((s_761)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_763))" +" s_761))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_218)" +"(let-values(((s_219)" "(if(syntax?$1" -" s_763)" +" s_761)" "(syntax-e$1" -" s_763)" -" s_763)))" +" s_761)" +" s_761)))" "(if(pair?" -" s_218)" +" s_219)" "(let-values(((all-defined-except68_0)" "(let-values(((s_416)" "(car" -" s_218)))" +" s_219)))" " s_416))" "((id69_0)" -"(let-values(((s_219)" -"(cdr" -" s_218)))" "(let-values(((s_220)" -"(if(syntax?$1" -" s_219)" -"(syntax-e$1" -" s_219)" +"(cdr" " s_219)))" +"(let-values(((s_221)" +"(if(syntax?$1" +" s_220)" +"(syntax-e$1" +" s_220)" +" s_220)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_220)))" +" s_221)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69879,7 +69895,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_410)))" -"((letrec-values(((for-loop_317)" +"((letrec-values(((for-loop_316)" "(lambda(id_140" " lst_411)" "(begin" @@ -69889,13 +69905,13 @@ static const char *startup_source = "(let-values(((s_119)" "(unsafe-car" " lst_411))" -"((rest_235)" +"((rest_237)" "(unsafe-cdr" " lst_411)))" "(let-values(((id_141)" "(let-values(((id_142)" " id_140))" -"(let-values(((id_29)" +"(let-values(((id_30)" "(let-values()" "(let-values(((id70_0)" "(let-values()" @@ -69920,15 +69936,15 @@ static const char *startup_source = " id70_0" " id_142)))))" "(values" -" id_29)))))" +" id_30)))))" "(if(not" " #f)" -"(for-loop_317" +"(for-loop_316" " id_141" -" rest_235)" +" rest_237)" " id_141)))" " id_140)))))" -" for-loop_317)" +" for-loop_316)" " null" " lst_410)))))" "(reverse$1" @@ -69971,68 +69987,68 @@ static const char *startup_source = "(let-values(((ok?_70" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_764)" +"(let-values(((s_762)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_764))" +" s_762))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_765)" +"(let-values(((s_763)" "(if(syntax?$1" -" s_764)" +" s_762)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_762)" +" s_762)))" "(if(pair?" -" s_765)" +" s_763)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_766)" +"(let-values(((s_764)" "(car" -" s_765)))" -" s_766))" +" s_763)))" +" s_764))" "((id:prefix74_0)" +"(let-values(((s_765)" +"(cdr" +" s_763)))" +"(let-values(((s_766)" +"(if(syntax?$1" +" s_765)" +"(syntax-e$1" +" s_765)" +" s_765)))" +"(if(pair?" +" s_766)" +"(let-values(((id:prefix75_0)" +"(let-values(((s_505)" +"(car" +" s_766)))" +"(if(let-values(((or-part_402)" +"(if(syntax?$1" +" s_505)" +"(symbol?" +"(syntax-e$1" +" s_505))" +" #f)))" +"(if or-part_402" +" or-part_402" +"(symbol?" +" s_505)))" +" s_505" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_74" +" s_505))))" +"(()" "(let-values(((s_767)" "(cdr" -" s_765)))" -"(let-values(((s_768)" +" s_766)))" +"(let-values(((s_126)" "(if(syntax?$1" " s_767)" "(syntax-e$1" " s_767)" " s_767)))" -"(if(pair?" -" s_768)" -"(let-values(((id:prefix75_0)" -"(let-values(((s_507)" -"(car" -" s_768)))" -"(if(let-values(((or-part_402)" -"(if(syntax?$1" -" s_507)" -"(symbol?" -"(syntax-e$1" -" s_507))" -" #f)))" -"(if or-part_402" -" or-part_402" -"(symbol?" -" s_507)))" -" s_507" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_74" -" s_507))))" -"(()" -"(let-values(((s_769)" -"(cdr" -" s_768)))" -"(let-values(((s_126)" -"(if(syntax?$1" -" s_769)" -"(syntax-e$1" -" s_769)" -" s_769)))" "(if(null?" " s_126)" "(values)" @@ -70086,19 +70102,19 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_231)" +"(let-values(((s_232)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_231))" +" s_232))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" "(let-values(((s_332)" "(if(syntax?$1" -" s_231)" +" s_232)" "(syntax-e$1" -" s_231)" -" s_231)))" +" s_232)" +" s_232)))" "(if(pair?" " s_332)" "(let-values(((prefix-all-defined-except79_0)" @@ -70144,7 +70160,7 @@ static const char *startup_source = "(let-values(((s_342)" "(cdr" " s_337)))" -"(let-values(((s_770)" +"(let-values(((s_768)" "(if(syntax?$1" " s_342)" "(syntax-e$1" @@ -70152,7 +70168,7 @@ static const char *startup_source = " s_342)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_770)))" +" s_768)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70171,17 +70187,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_318)" +"((letrec-values(((for-loop_317)" "(lambda(id_144" " lst_412)" "(begin" " 'for-loop" "(if(pair?" " lst_412)" -"(let-values(((s_771)" +"(let-values(((s_769)" "(unsafe-car" " lst_412))" -"((rest_191)" +"((rest_193)" "(unsafe-cdr" " lst_412)))" "(let-values(((id_145)" @@ -70193,21 +70209,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_290)" "(if(syntax?$1" -" s_771)" +" s_769)" "(symbol?" "(syntax-e$1" -" s_771))" +" s_769))" " #f)))" "(if or-part_290" " or-part_290" "(symbol?" -" s_771)))" -" s_771" +" s_769)))" +" s_769" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_771)))))" +" s_769)))))" "(cons" " id84_2" " id_146)))))" @@ -70215,12 +70231,12 @@ static const char *startup_source = " id_147)))))" "(if(not" " #f)" -"(for-loop_318" +"(for-loop_317" " id_145" -" rest_191)" +" rest_193)" " id_145)))" " id_144)))))" -" for-loop_318)" +" for-loop_317)" " null" " lst_4)))))" "(reverse$1" @@ -70266,78 +70282,78 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_772)" +"(let-values(((s_770)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_772))" +" s_770))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_245)" +"(let-values(((s_246)" +"(if(syntax?$1" +" s_770)" +"(syntax-e$1" +" s_770)" +" s_770)))" +"(if(pair?" +" s_246)" +"(let-values(((expand88_0)" +"(let-values(((s_247)" +"(car" +" s_246)))" +" s_247))" +"((id89_1" +" datum90_0)" +"(let-values(((s_771)" +"(cdr" +" s_246)))" +"(let-values(((s_248)" +"(if(syntax?$1" +" s_771)" +"(syntax-e$1" +" s_771)" +" s_771)))" +"(if(pair?" +" s_248)" +"(let-values(((id91_0" +" datum92_0)" +"(let-values(((s_772)" +"(car" +" s_248)))" +"(let-values(((s_250)" "(if(syntax?$1" " s_772)" "(syntax-e$1" " s_772)" " s_772)))" "(if(pair?" -" s_245)" -"(let-values(((expand88_0)" -"(let-values(((s_246)" -"(car" -" s_245)))" -" s_246))" -"((id89_1" -" datum90_0)" -"(let-values(((s_773)" -"(cdr" -" s_245)))" -"(let-values(((s_247)" -"(if(syntax?$1" -" s_773)" -"(syntax-e$1" -" s_773)" -" s_773)))" -"(if(pair?" -" s_247)" -"(let-values(((id91_0" -" datum92_0)" -"(let-values(((s_774)" -"(car" -" s_247)))" -"(let-values(((s_249)" -"(if(syntax?$1" -" s_774)" -"(syntax-e$1" -" s_774)" -" s_774)))" -"(if(pair?" -" s_249)" +" s_250)" "(let-values(((id93_1)" -"(let-values(((s_520)" +"(let-values(((s_518)" "(car" -" s_249)))" +" s_250)))" "(if(let-values(((or-part_404)" "(if(syntax?$1" -" s_520)" +" s_518)" "(symbol?" "(syntax-e$1" -" s_520))" +" s_518))" " #f)))" "(if or-part_404" " or-part_404" "(symbol?" -" s_520)))" -" s_520" +" s_518)))" +" s_518" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_76" -" s_520))))" +" s_518))))" "((datum94_0)" -"(let-values(((s_447)" +"(let-values(((s_446)" "(cdr" -" s_249)))" -" s_447)))" +" s_250)))" +" s_446)))" "(values" " id93_1" " datum94_0))" @@ -70346,15 +70362,15 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_76)))))" "(()" -"(let-values(((s_448)" +"(let-values(((s_447)" "(cdr" -" s_247)))" +" s_248)))" "(let-values(((s_360)" "(if(syntax?$1" -" s_448)" +" s_447)" "(syntax-e$1" -" s_448)" -" s_448)))" +" s_447)" +" s_447)))" "(if(null?" " s_360)" "(values)" @@ -70425,14 +70441,14 @@ static const char *startup_source = "(let-values(((s_372)" "(cdr" " s_369)))" -"(let-values(((s_775)" +"(let-values(((s_773)" "(if(syntax?$1" " s_372)" "(syntax-e$1" " s_372)" " s_372)))" "(if(null?" -" s_775)" +" s_773)" "(values)" "(raise-syntax-error$1" " #f" @@ -70461,19 +70477,19 @@ static const char *startup_source = "((temp105_5)" "(let-values(((v_261)" " ctx_106))" -"(let-values(((the-struct_96)" +"(let-values(((the-struct_97)" " v_261))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_97)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_98)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" -" the-struct_97)" +" the-struct_98)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70483,91 +70499,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-module-scopes" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-defined-syms" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-counter" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-lift-key" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-to-parsed?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-phase" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-namespace" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-just-once?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-module-begin-k" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-allow-unbound?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-in-local-expand?" -" the-struct_97)" +" the-struct_98)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-lift-envs" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-module-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-require-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-to-module-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-requires+provides" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-observer" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-for-serializable?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_97)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_97)))))" +" the-struct_98)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_97)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-reference-records" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_97))))))" "(expand7.1" " #f" " #f" @@ -70602,29 +70618,29 @@ static const char *startup_source = "(let-values(((ok?_74" " begin100_0" " spec101_0)" -"(let-values(((s_776)" +"(let-values(((s_774)" " exp-spec_0))" "(let-values(((orig-s_78)" -" s_776))" +" s_774))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_777)" +"(let-values(((s_775)" "(if(syntax?$1" -" s_776)" +" s_774)" "(syntax-e$1" -" s_776)" -" s_776)))" +" s_774)" +" s_774)))" "(if(pair?" -" s_777)" +" s_775)" "(let-values(((begin102_0)" "(let-values(((s_377)" "(car" -" s_777)))" +" s_775)))" " s_377))" "((spec103_0)" "(let-values(((s_378)" "(cdr" -" s_777)))" +" s_775)))" "(let-values(((s_379)" "(if(syntax?$1" " s_378)" @@ -70681,7 +70697,7 @@ static const char *startup_source = "(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_233)" +" rest_235)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -70691,7 +70707,7 @@ static const char *startup_source = " for-loop_96)" " null" " null" -" lst_79)))))" +" lst_78)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_112)" @@ -70703,10 +70719,10 @@ static const char *startup_source = "(parse-identifier!)" "(lambda(spec_1 orig-s_79 sym_101 at-phase_5 ns_126 rp_2 protected?_16)" "(begin" -"(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_126)))" +"(let-values(((b_92)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_126)))" "(let-values((()" "(begin" -"(if b_90" +"(if b_92" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70715,14 +70731,14 @@ static const char *startup_source = " orig-s_79" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_126)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_92 spec_1 at-phase_5 ns_126)))" "(let-values(((immed-b_0)" "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_5) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_5 #t #f #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" "((sym110_0) sym_101)" "((at-phase111_0) at-phase_5)" -"((b112_0) b_90)" +"((b112_0) b_92)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_79)" @@ -70757,17 +70773,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" "(begin" -" (let-values (((lst_123) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_124) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_123)))" -"((letrec-values(((for-loop_319)" +"(let-values()(check-list lst_124)))" +"((letrec-values(((for-loop_318)" "(lambda(lst_413)" "(begin" " 'for-loop" "(if(pair? lst_413)" -"(let-values(((fmt_3)(unsafe-car lst_413))((rest_236)(unsafe-cdr lst_413)))" +"(let-values(((fmt_3)(unsafe-car lst_413))((rest_238)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70785,22 +70801,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_236)(values))))" +"(if(not #f)(for-loop_318 rest_238)(values))))" "(values))))))" -" for-loop_319)" -" lst_123)))" +" for-loop_318)" +" lst_124)))" "(void)" "(let-values(((lst_414) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_414)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_319)" "(lambda(lst_415)" "(begin" " 'for-loop" "(if(pair? lst_415)" -"(let-values(((field_0)(unsafe-car lst_415))((rest_237)(unsafe-cdr lst_415)))" +"(let-values(((field_0)(unsafe-car lst_415))((rest_239)(unsafe-cdr lst_415)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70832,9 +70848,9 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_237)(values))))" +"(if(not #f)(for-loop_319 rest_239)(values))))" "(values))))))" -" for-loop_320)" +" for-loop_319)" " lst_414)))" "(void)))))))" "(define-values" @@ -70888,13 +70904,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_239)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_320)" "(lambda(lst_416)" "(begin" " 'for-loop" "(if(pair? lst_416)" -"(let-values(((i_191)(unsafe-car lst_416))" -"((rest_238)(unsafe-cdr lst_416)))" +"(let-values(((i_190)(unsafe-car lst_416))" +"((rest_240)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70902,15 +70918,15 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_149)" -"(required-id i_191)))" -"(let-values(((phase_150)" +"(required-id i_190)))" +"(let-values(((phase_151)" "(required-phase" -" i_191)))" +" i_190)))" "(if(let-values(((or-part_405)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_150" +" phase_151" " at-phase_16)" "(free-identifier=?$1" " id_149" @@ -70918,8 +70934,8 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_149))" -" phase_150" -" phase_150)" +" phase_151" +" phase_151)" " #f))" " #f)))" "(if or-part_405" @@ -70933,7 +70949,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_417)))" -"((letrec-values(((for-loop_322)" +"((letrec-values(((for-loop_321)" "(lambda(result_125" " lst_418)" "(begin" @@ -70943,7 +70959,7 @@ static const char *startup_source = "(let-values(((except-id_0)" "(unsafe-car" " lst_418))" -"((rest_239)" +"((rest_241)" "(unsafe-cdr" " lst_418)))" "(let-values(((result_126)" @@ -70954,8 +70970,8 @@ static const char *startup_source = "(if(free-identifier=?$1" " id_149" " except-id_0" -" phase_150" -" phase_150)" +" phase_151" +" phase_151)" "(hash-set!" " found_0" " except-id_0" @@ -70964,32 +70980,32 @@ static const char *startup_source = "(values" " result_127)))))" "(if(if(not" -"((lambda x_95" +"((lambda x_94" " result_126)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_322" +"(for-loop_321" " result_126" -" rest_239)" +" rest_241)" " result_126)))" " result_125)))))" -" for-loop_322)" +" for-loop_321)" " #f" " lst_417)))))" "(void)" "(let-values()" -"(let-values(((b_91)" +"(let-values(((b_93)" "(resolve+shift/extra-inspector" " id_149" -" phase_150" +" phase_151" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" " id_149)" "((phase131_0)" -" phase_150)" +" phase_151)" "((temp132_0)" " #t))" "(resolve+shift30.1" @@ -71012,9 +71028,9 @@ static const char *startup_source = "(syntax-e$1" " id_149)))" "((phase123_0)" -" phase_150)" +" phase_151)" "((b124_0)" -" b_91)" +" b_93)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" @@ -71025,7 +71041,7 @@ static const char *startup_source = " protected?_19)" "((temp129_2)" "(required-as-transformer?" -" i_191)))" +" i_190)))" "(add-provide!109.1" " protected?128_0" " temp129_2" @@ -71038,27 +71054,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_238)(values))))" +"(if(not #f)(for-loop_320 rest_240)(values))))" "(values))))))" -" for-loop_321)" +" for-loop_320)" " lst_239)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_146) except-ids_1))" +"(let-values(((lst_147) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_172)" -"(lambda(lst_125)" +"(let-values()(check-list lst_147)))" +"((letrec-values(((for-loop_171)" +"(lambda(lst_126)" "(begin" " 'for-loop" -"(if(pair? lst_125)" -"(let-values(((except-id_1)(unsafe-car lst_125))" -"((rest_62)(unsafe-cdr lst_125)))" +"(if(pair? lst_126)" +"(let-values(((except-id_1)(unsafe-car lst_126))" +"((rest_62)(unsafe-cdr lst_126)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71081,17 +71097,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_419)))" -"((letrec-values(((for-loop_142)" +"((letrec-values(((for-loop_141)" "(lambda(result_128" " lst_420)" "(begin" " 'for-loop" "(if(pair?" " lst_420)" -"(let-values(((i_192)" +"(let-values(((i_191)" "(unsafe-car" " lst_420))" -"((rest_240)" +"((rest_242)" "(unsafe-cdr" " lst_420)))" "(let-values(((result_129)" @@ -71101,30 +71117,30 @@ static const char *startup_source = "(let-values()" "(let-values(((id_150)" "(required-id" -" i_192)))" -"(let-values(((phase_151)" +" i_191)))" +"(let-values(((phase_152)" "(required-phase" -" i_192)))" +" i_191)))" "(free-identifier=?$1" " id_150" " except-id_1" -" phase_151" -" phase_151)))))))" +" phase_152" +" phase_152)))))))" "(values" " result_130)))))" "(if(if(not" -"((lambda x_96" +"((lambda x_95" " result_129)" -" i_192))" +" i_191))" "(not" " #f)" " #f)" -"(for-loop_142" +"(for-loop_141" " result_129" -" rest_240)" +" rest_242)" " result_129)))" " result_128)))))" -" for-loop_142)" +" for-loop_141)" " #f" " lst_419)))))" "(void)" @@ -71140,10 +71156,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_172 rest_62)(values))))" +"(if(not #f)(for-loop_171 rest_62)(values))))" "(values))))))" -" for-loop_172)" -" lst_146)))" +" for-loop_171)" +" lst_147)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -71159,13 +71175,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_86)" +"((letrec-values(((for-loop_322)" +"(lambda(lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((body_21)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((body_21)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71207,9 +71223,9 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_40)(values))))" +"(if(not #f)(for-loop_322 rest_40)(values))))" "(values))))))" -" for-loop_323)" +" for-loop_322)" " lst_421)))" "(void)))))" "((check-expr_0)" @@ -71231,18 +71247,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_93)))" "(begin" -"(let-values(((lst_80) rands_1))" +"(let-values(((lst_79) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_81)" -"(lambda(lst_87)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((rand_0)(unsafe-car lst_87))" -"((rest_241)(unsafe-cdr lst_87)))" +"(if(pair? lst_86)" +"(let-values(((rand_0)(unsafe-car lst_86))" +"((rest_243)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71255,10 +71271,10 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_241)(values))))" +"(if(not #f)(for-loop_81 rest_243)(values))))" "(values))))))" " for-loop_81)" -" lst_80)))" +" lst_79)))" "(void)" "(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_93))))" "(if(if(equal? tmp_66 'cons) #t(equal? tmp_66 'list))" @@ -71304,7 +71320,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_422)" "(let-values(((clause_5)(unsafe-car lst_422))" -"((rest_242)(unsafe-cdr lst_422)))" +"((rest_244)(unsafe-cdr lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71315,7 +71331,7 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_242)(values))))" +"(if(not #f)(for-loop_241 rest_244)(values))))" "(values))))))" " for-loop_241)" " lst_269)))" @@ -71335,7 +71351,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_265)" "(let-values(((e_94)(unsafe-car lst_265))" -"((rest_194)(unsafe-cdr lst_265)))" +"((rest_196)(unsafe-cdr lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71346,7 +71362,7 @@ static const char *startup_source = " e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_194)(values))))" +"(if(not #f)(for-loop_106 rest_196)(values))))" "(values))))))" " for-loop_106)" " lst_221)))" @@ -71359,13 +71375,13 @@ static const char *startup_source = "(check-no-disallowed-expr_0(parsed-if-els e_39))))" "(if(parsed-set!? e_39)" "(let-values()" -"(let-values(((id_4)(parsed-set!-id e_39)))" -"(let-values(((normal-b_1)(parsed-id-binding id_4)))" +"(let-values(((id_151)(parsed-set!-id e_39)))" +"(let-values(((normal-b_1)(parsed-id-binding id_151)))" "(begin" "(if(let-values(((or-part_78)(not normal-b_1)))" "(if or-part_78" " or-part_78" -"(let-values(((or-part_79)(parsed-top-id? id_4)))" +"(let-values(((or-part_79)(parsed-top-id? id_151)))" "(if or-part_79" " or-part_79" "(if(not(symbol? normal-b_1))" @@ -71392,15 +71408,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(lst_91)" +"((letrec-values(((for-loop_252)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_91)" +"(if(pair? lst_90)" "(let-values(((clause_6)" -"(unsafe-car lst_91))" -"((rest_150)" -"(unsafe-cdr lst_91)))" +"(unsafe-car lst_90))" +"((rest_152)" +"(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71413,10 +71429,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_253 rest_150)" +"(for-loop_252 rest_152)" "(values))))" "(values))))))" -" for-loop_253)" +" for-loop_252)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" @@ -71429,18 +71445,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_83) l_48))" +"(let-values(((lst_82) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_83)))" -"((letrec-values(((for-loop_324)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_323)" "(lambda(lst_271)" "(begin" " 'for-loop" "(if(pair? lst_271)" "(let-values(((e_95)(unsafe-car lst_271))" -"((rest_146)(unsafe-cdr lst_271)))" +"((rest_148)(unsafe-cdr lst_271)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71451,10 +71467,10 @@ static const char *startup_source = " e_95))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_146)(values))))" +"(if(not #f)(for-loop_323 rest_148)(values))))" "(values))))))" -" for-loop_324)" -" lst_83)))" +" for-loop_323)" +" lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -71485,14 +71501,14 @@ static const char *startup_source = "(lambda(e_97)(begin(if(parsed-quote? e_97)(string?(parsed-quote-datum e_97)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_151)" +"(lambda(id_152)" "(begin" -"(if(parsed-id? id_151)" +"(if(parsed-id? id_152)" "(let-values()" -"(let-values(((b_92)(parsed-id-binding id_151)))" -"(if(module-binding? b_92)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_92)))" -"(module-binding-sym b_92)" +"(let-values(((b_94)(parsed-id-binding id_152)))" +"(if(module-binding? b_94)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_94)))" +"(module-binding-sym b_94)" " #f)" " #f)))" "(let-values() #f)))))" @@ -71507,7 +71523,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_183 ctx_108)" +"(lambda(s_184 ctx_108)" "(begin" "(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" @@ -71515,18 +71531,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_122)(expand-context-observer ctx_108)))" "(if obs_122(let-values()(let-values()(call-expand-observe obs_122 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_184))))" "(let-values()" -"(let-values(((s223_0) s_183)((ctx224_0) ctx_108)((temp225_1) #f))" +"(let-values(((s223_0) s_184)((ctx224_0) ctx_108)((temp225_1) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_303 ctx_109)" +"(lambda(s_304 ctx_109)" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_109)))" "(if obs_123(let-values()(let-values()(call-expand-observe obs_123 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_303)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_304)))))" "(void" "(add-core-form!*" " '#%module-begin" @@ -71543,64 +71559,64 @@ static const char *startup_source = "((expand-context-module-begin-k ctx_110)" " s_85" "(let-values(((v_262) ctx_110))" -"(let-values(((the-struct_98) v_262))" -"(if(expand-context/outer? the-struct_98)" +"(let-values(((the-struct_99) v_262))" +"(if(expand-context/outer? the-struct_99)" "(let-values(((inner226_0)" -"(let-values(((the-struct_99)(root-expand-context/outer-inner v_262)))" -"(if(expand-context/inner? the-struct_99)" +"(let-values(((the-struct_100)(root-expand-context/outer-inner v_262)))" +"(if(expand-context/inner? the-struct_100)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_99)" -"(root-expand-context/inner-module-scopes the-struct_99)" -"(root-expand-context/inner-top-level-bind-scope the-struct_99)" -"(root-expand-context/inner-all-scopes-stx the-struct_99)" -"(root-expand-context/inner-defined-syms the-struct_99)" -"(root-expand-context/inner-counter the-struct_99)" -"(root-expand-context/inner-lift-key the-struct_99)" -"(expand-context/inner-to-parsed? the-struct_99)" -"(expand-context/inner-phase the-struct_99)" -"(expand-context/inner-namespace the-struct_99)" -"(expand-context/inner-just-once? the-struct_99)" +"(root-expand-context/inner-self-mpi the-struct_100)" +"(root-expand-context/inner-module-scopes the-struct_100)" +"(root-expand-context/inner-top-level-bind-scope the-struct_100)" +"(root-expand-context/inner-all-scopes-stx the-struct_100)" +"(root-expand-context/inner-defined-syms the-struct_100)" +"(root-expand-context/inner-counter the-struct_100)" +"(root-expand-context/inner-lift-key the-struct_100)" +"(expand-context/inner-to-parsed? the-struct_100)" +"(expand-context/inner-phase the-struct_100)" +"(expand-context/inner-namespace the-struct_100)" +"(expand-context/inner-just-once? the-struct_100)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_99)" -"(expand-context/inner-in-local-expand? the-struct_99)" -"(expand-context/inner-stops the-struct_99)" -"(expand-context/inner-declared-submodule-names the-struct_99)" -"(expand-context/inner-lifts the-struct_99)" -"(expand-context/inner-lift-envs the-struct_99)" -"(expand-context/inner-module-lifts the-struct_99)" -"(expand-context/inner-require-lifts the-struct_99)" -"(expand-context/inner-to-module-lifts the-struct_99)" -"(expand-context/inner-requires+provides the-struct_99)" -"(expand-context/inner-observer the-struct_99)" -"(expand-context/inner-for-serializable? the-struct_99)" -"(expand-context/inner-should-not-encounter-macros? the-struct_99)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_99)))))" +"(expand-context/inner-allow-unbound? the-struct_100)" +"(expand-context/inner-in-local-expand? the-struct_100)" +"(expand-context/inner-stops the-struct_100)" +"(expand-context/inner-declared-submodule-names the-struct_100)" +"(expand-context/inner-lifts the-struct_100)" +"(expand-context/inner-lift-envs the-struct_100)" +"(expand-context/inner-module-lifts the-struct_100)" +"(expand-context/inner-require-lifts the-struct_100)" +"(expand-context/inner-to-module-lifts the-struct_100)" +"(expand-context/inner-requires+provides the-struct_100)" +"(expand-context/inner-observer the-struct_100)" +"(expand-context/inner-for-serializable? the-struct_100)" +"(expand-context/inner-should-not-encounter-macros? the-struct_100)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_100)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_98)" -"(root-expand-context/outer-use-site-scopes the-struct_98)" -"(root-expand-context/outer-frame-id the-struct_98)" -"(expand-context/outer-context the-struct_98)" -"(expand-context/outer-env the-struct_98)" -"(expand-context/outer-post-expansion-scope-action the-struct_98)" -"(expand-context/outer-scopes the-struct_98)" -"(expand-context/outer-def-ctx-scopes the-struct_98)" -"(expand-context/outer-binding-layer the-struct_98)" -"(expand-context/outer-reference-records the-struct_98)" -"(expand-context/outer-only-immediate? the-struct_98)" -"(expand-context/outer-need-eventually-defined the-struct_98)" -"(expand-context/outer-current-introduction-scopes the-struct_98)" -"(expand-context/outer-name the-struct_98)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_98)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_99)" +"(root-expand-context/outer-use-site-scopes the-struct_99)" +"(root-expand-context/outer-frame-id the-struct_99)" +"(expand-context/outer-context the-struct_99)" +"(expand-context/outer-env the-struct_99)" +"(expand-context/outer-post-expansion-scope-action the-struct_99)" +"(expand-context/outer-scopes the-struct_99)" +"(expand-context/outer-def-ctx-scopes the-struct_99)" +"(expand-context/outer-binding-layer the-struct_99)" +"(expand-context/outer-reference-records the-struct_99)" +"(expand-context/outer-only-immediate? the-struct_99)" +"(expand-context/outer-need-eventually-defined the-struct_99)" +"(expand-context/outer-current-introduction-scopes the-struct_99)" +"(expand-context/outer-name the-struct_99)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_99)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_742 ctx_111)" +"(lambda(s_740 ctx_111)" "(begin" "(let-values(((obs_125)(expand-context-observer ctx_111)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_742)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_740)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71651,81 +71667,81 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_75 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_498) disarmed-s_24))" -"(let-values(((orig-s_83) s_498))" +"(let-values(((s_496) disarmed-s_24))" +"(let-values(((orig-s_83) s_496))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_310)" -"(if(syntax?$1 s_498)" -"(syntax-e$1 s_498)" -" s_498)))" -"(if(pair? s_310)" +"(let-values(((s_311)" +"(if(syntax?$1 s_496)" +"(syntax-e$1 s_496)" +" s_496)))" +"(if(pair? s_311)" "(let-values(((module232_0)" -"(let-values(((s_499)(car s_310)))" -" s_499))" +"(let-values(((s_497)(car s_311)))" +" s_497))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_745)(cdr s_310)))" -"(let-values(((s_778)" -"(if(syntax?$1 s_745)" -"(syntax-e$1 s_745)" -" s_745)))" -"(if(pair? s_778)" +"(let-values(((s_743)(cdr s_311)))" +"(let-values(((s_776)" +"(if(syntax?$1 s_743)" +"(syntax-e$1 s_743)" +" s_743)))" +"(if(pair? s_776)" "(let-values(((id:module-name236_0)" -"(let-values(((s_484)" +"(let-values(((s_483)" "(car" -" s_778)))" +" s_776)))" "(if(let-values(((or-part_379)" "(if(syntax?$1" -" s_484)" +" s_483)" "(symbol?" "(syntax-e$1" -" s_484))" +" s_483))" " #f)))" "(if or-part_379" " or-part_379" "(symbol?" -" s_484)))" -" s_484" +" s_483)))" +" s_483" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_83" -" s_484))))" +" s_483))))" "((initial-require237_0" " body238_0)" "(let-values(((s_54)" "(cdr" -" s_778)))" -"(let-values(((s_312)" +" s_776)))" +"(let-values(((s_313)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_312)" +" s_313)" "(let-values(((initial-require239_0)" -"(let-values(((s_314)" -"(car" -" s_312)))" -" s_314))" -"((body240_0)" "(let-values(((s_315)" -"(cdr" -" s_312)))" +"(car" +" s_313)))" +" s_315))" +"((body240_0)" "(let-values(((s_316)" +"(cdr" +" s_313)))" +"(let-values(((s_317)" "(if(syntax?$1" -" s_315)" +" s_316)" "(syntax-e$1" -" s_315)" -" s_315)))" +" s_316)" +" s_316)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_316)))" +" s_317)))" "(if(not" " flat-s_53)" "(let-values()" @@ -71791,7 +71807,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_152) 0))" +"(let-values(((phase_153) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -71908,110 +71924,110 @@ static const char *startup_source = "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_101)" " v_102))" "(if(expand-context/outer?" -" the-struct_100)" +" the-struct_101)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_101)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" " v_102)))" "(if(expand-context/inner?" -" the-struct_101)" +" the-struct_102)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_18)" "((phase271_0)" -" phase_152)" +" phase_153)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-module-scopes" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-lift-key" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-to-parsed?" -" the-struct_101)" +" the-struct_102)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_101)" +" the-struct_102)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-stops" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-declared-submodule-names" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-lift-envs" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-module-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-require-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-to-module-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-requires+provides" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_101)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_101)))))" +" the-struct_102)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_100)" +" the-struct_101)" "(root-expand-context/outer-use-site-scopes" -" the-struct_100)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-context" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-env" -" the-struct_100)" +" the-struct_101)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-def-ctx-scopes" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-binding-layer" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-need-eventually-defined" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-current-introduction-scopes" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_100)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_100))))))" +" the-struct_101))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -72021,57 +72037,57 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_779)" +"(let-values(((s_777)" " scoped-s_0))" "(let-values(((orig-s_84)" -" s_779))" +" s_777))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" "(let-values(((s_406)" "(if(syntax?$1" -" s_779)" +" s_777)" "(syntax-e$1" -" s_779)" -" s_779)))" +" s_777)" +" s_777)))" "(if(pair?" " s_406)" "(let-values(((_277_2)" -"(let-values(((s_755)" +"(let-values(((s_753)" "(car" " s_406)))" -" s_755))" +" s_753))" "((_278_2" " _279_0" " body280_0)" -"(let-values(((s_206)" +"(let-values(((s_207)" "(cdr" " s_406)))" "(let-values(((s_392)" "(if(syntax?$1" -" s_206)" +" s_207)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_207)" +" s_207)))" "(if(pair?" " s_392)" "(let-values(((_281_1)" -"(let-values(((s_209)" +"(let-values(((s_210)" "(car" " s_392)))" -" s_209))" +" s_210))" "((_282_0" " body283_0)" -"(let-values(((s_757)" +"(let-values(((s_755)" "(cdr" " s_392)))" "(let-values(((s_93)" "(if(syntax?$1" -" s_757)" +" s_755)" "(syntax-e$1" -" s_757)" -" s_757)))" +" s_755)" +" s_755)))" "(if(pair?" " s_93)" "(let-values(((_284_0)" @@ -72080,15 +72096,15 @@ static const char *startup_source = " s_93)))" " s_67))" "((body285_0)" -"(let-values(((s_321)" +"(let-values(((s_150)" "(cdr" " s_93)))" "(let-values(((s_322)" "(if(syntax?$1" -" s_321)" +" s_150)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_150)" +" s_150)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_322)))" @@ -72267,18 +72283,18 @@ static const char *startup_source = "(let-values(((ctx_113)" "(let-values(((v_263)" " mb-init-ctx_0))" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_103)" " v_263))" "(if(expand-context/outer?" -" the-struct_102)" +" the-struct_103)" "(let-values(((inner306_0)" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" " v_263)))" "(if(expand-context/inner?" -" the-struct_103)" +" the-struct_104)" "(let-values(((module-begin-k307_0)" -"(lambda(s_300" +"(lambda(s_301" " ctx_114)" "(begin" " 'module-begin-k307" @@ -72315,7 +72331,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_300" +" s_301" " ctx_114))" "(lambda()" "(begin" @@ -72327,92 +72343,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_103)" +" the-struct_104)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_103)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_103)))))" +" the-struct_104)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/outer-use-site-scopes" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-context" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-def-ctx-scopes" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-binding-layer" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_102)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_102))))))" +" the-struct_103))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -72437,30 +72453,30 @@ static const char *startup_source = "(let-values(((ok?_77" " #%module-begin301_0" " body302_0)" -"(let-values(((s_220)" +"(let-values(((s_221)" " disarmed-mb-s_0))" "(let-values(((orig-s_85)" -" s_220))" +" s_221))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_221)" +"(let-values(((s_222)" "(if(syntax?$1" -" s_220)" -"(syntax-e$1" -" s_220)" -" s_220)))" -"(if(pair?" " s_221)" +"(syntax-e$1" +" s_221)" +" s_221)))" +"(if(pair?" +" s_222)" "(let-values(((#%module-begin303_0)" "(let-values(((s_119)" "(car" -" s_221)))" +" s_222)))" " s_119))" "((body304_0)" "(let-values(((s_120)" "(cdr" -" s_221)))" -"(let-values(((s_780)" +" s_222)))" +"(let-values(((s_778)" "(if(syntax?$1" " s_120)" "(syntax-e$1" @@ -72468,7 +72484,7 @@ static const char *startup_source = " s_120)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_780)))" +" s_778)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72516,7 +72532,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_153)" +" phase_154)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72528,10 +72544,10 @@ static const char *startup_source = "(let-values(((partial-body-ctx_0)" "(let-values(((v_264)" " ctx_113))" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_105)" " v_264))" "(if(expand-context/outer?" -" the-struct_104)" +" the-struct_105)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -72545,16 +72561,16 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_58)" "(let-values(((phase330_0)" -" phase_153)" +" phase_154)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_18" -" phase_153))" +" phase_154))" "((stops332_0)" "(free-id-set" -" phase_153" +" phase_154" "(module-expand-stop-ids" -" phase_153)))" +" phase_154)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -72574,11 +72590,11 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_153" +" phase_154" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_153" +" phase_154" "(let-values(((m-ns340_0)" " m-ns_18)" "((self341_0)" @@ -72594,7 +72610,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_153)" +" phase_154)" "((module-ends345_0)" " module-ends_0)" "((temp346_1)" @@ -72652,39 +72668,39 @@ static const char *startup_source = "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/outer-use-site-scopes" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_104)" +" the-struct_105)" " context326_0" "(expand-context/outer-env" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_104)" +" the-struct_105)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_104)" +" the-struct_105)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_104)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" "((phase348_0)" -" phase_153)" +" phase_154)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -72748,25 +72764,25 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_106)" " v_265))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_106)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_107)" "(root-expand-context/outer-inner" " v_265)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_107)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_153)" +" phase_154)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -72777,93 +72793,93 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-namespace" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_107)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_107)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_107)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/outer-frame-id" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-context" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-scopes" -" the-struct_105)" +" the-struct_106)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-only-immediate?" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-need-eventually-defined" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_106)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_106))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_153)" +" phase_154)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -72887,7 +72903,7 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_152)))" +" phase_153)))" "(let-values((()" "(begin" "(check-defined-by-now" @@ -72918,7 +72934,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_18)" "((phase375_0)" -" phase_152)" +" phase_153)" "((self376_0)" " self_32)" "((ctx377_0)" @@ -72982,108 +72998,108 @@ static const char *startup_source = "(let-values(((submod-ctx_0)" "(let-values(((v_266)" " ctx_113))" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_108)" " v_266))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_108)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_109)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_109)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-to-module-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_109)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_108)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_108))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -73134,7 +73150,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_152)" +" phase_153)" "((self398_0)" " self_32)" "((requires+provides399_0)" @@ -73202,108 +73218,108 @@ static const char *startup_source = "(let-values(((mb-ctx_0)" "(let-values(((v_267)" " ctx_112))" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_110)" " v_267))" "(if(expand-context/outer?" -" the-struct_109)" +" the-struct_110)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_111)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_111)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_111)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-to-module-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_111)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_109)" +" the-struct_110)" " context409_0" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_110))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -73326,7 +73342,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_152)" +" phase_153)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -73400,7 +73416,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_144)" +"(let-values(((lst_145)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73409,8 +73425,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_144)))" -"((letrec-values(((for-loop_140)" +" lst_145)))" +"((letrec-values(((for-loop_139)" "(lambda(lst_423)" "(begin" " 'for-loop" @@ -73419,7 +73435,7 @@ static const char *startup_source = "(let-values(((mpi_59)" "(unsafe-car" " lst_423))" -"((rest_243)" +"((rest_245)" "(unsafe-cdr" " lst_423)))" "(let-values((()" @@ -73434,12 +73450,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_140" -" rest_243)" +"(for-loop_139" +" rest_245)" "(values))))" "(values))))))" -" for-loop_140)" -" lst_144)))" +" for-loop_139)" +" lst_145)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -73521,40 +73537,40 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_154) phase26_3))" -"(let-values(((s_781) s27_2))" +"(let-values(((phase_155) phase26_3))" +"(let-values(((s_779) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" "(let-values(((v_268) ctx_115))" -"(let-values(((the-struct_111) v_268))" -"(if(expand-context/outer? the-struct_111)" +"(let-values(((the-struct_112) v_268))" +"(if(expand-context/outer? the-struct_112)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" "((inner431_0)(root-expand-context/outer-inner v_268)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_111)" -"(root-expand-context/outer-use-site-scopes the-struct_111)" -"(root-expand-context/outer-frame-id the-struct_111)" +"(root-expand-context/outer-post-expansion-scope the-struct_112)" +"(root-expand-context/outer-use-site-scopes the-struct_112)" +"(root-expand-context/outer-frame-id the-struct_112)" " context428_0" -"(expand-context/outer-env the-struct_111)" -"(expand-context/outer-post-expansion-scope-action the-struct_111)" -"(expand-context/outer-scopes the-struct_111)" +"(expand-context/outer-env the-struct_112)" +"(expand-context/outer-post-expansion-scope-action the-struct_112)" +"(expand-context/outer-scopes the-struct_112)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_111)" -"(expand-context/outer-reference-records the-struct_111)" +"(expand-context/outer-binding-layer the-struct_112)" +"(expand-context/outer-reference-records the-struct_112)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_111)" -"(expand-context/outer-current-introduction-scopes the-struct_111)" -"(expand-context/outer-name the-struct_111)))" +"(expand-context/outer-need-eventually-defined the-struct_112)" +"(expand-context/outer-current-introduction-scopes the-struct_112)" +"(expand-context/outer-name the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))))" +" the-struct_112))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -73567,7 +73583,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_154))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_155))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -73582,13 +73598,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_154))" +" phase_155))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_781)" +"((s435_0) s_779)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_154)" +"((phase437_0) phase_155)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_0)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -73603,9 +73619,9 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_781)" +"((s442_0) s_779)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_154)" +"((phase444_0) phase_155)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -73633,7 +73649,7 @@ static const char *startup_source = "(let-values(((bodys_19) bodys41_0))" "(let-values(((s_138) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_155) phase44_1))" +"(let-values(((phase_156) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -73642,7 +73658,7 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_155))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_156))" "(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" @@ -73682,7 +73698,7 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_155))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_156))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -73704,13 +73720,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_782)" +"(lambda(s_780)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_782" +" s_780" "(remove-use-site-scopes" -"(remove-scopes s_782(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_780(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -73762,7 +73778,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_156) phase50_0))" +"(let-values(((phase_157) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_19) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -73779,14 +73795,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_19 phase_156)" +"(namespace-visit-available-modules! m-ns_19 phase_157)" "((letrec-values(((loop_124)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_52(not(zero? phase_156)) #f)" +"(if(if tail?_52(not(zero? phase_157)) #f)" "(let-values()" "(begin" "(let-values(((obs_134)" @@ -73893,7 +73909,7 @@ static const char *startup_source = "(let-values(((tmp_67)" "(core-form-sym" " disarmed-exp-body_1" -" phase_156)))" +" phase_157)))" "(if(equal?" " tmp_67" " 'begin)" @@ -73901,38 +73917,38 @@ static const char *startup_source = "(let-values(((ok?_78" " begin460_0" " e461_1)" -"(let-values(((s_783)" +"(let-values(((s_781)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_783))" +" s_781))" "(let-values(((begin460_1" " e461_2)" -"(let-values(((s_784)" +"(let-values(((s_782)" "(if(syntax?$1" -" s_783)" +" s_781)" "(syntax-e$1" -" s_783)" -" s_783)))" +" s_781)" +" s_781)))" "(if(pair?" -" s_784)" +" s_782)" "(let-values(((begin462_0)" -"(let-values(((s_785)" +"(let-values(((s_783)" "(car" -" s_784)))" -" s_785))" +" s_782)))" +" s_783))" "((e463_0)" -"(let-values(((s_786)" +"(let-values(((s_784)" "(cdr" -" s_784)))" -"(let-values(((s_787)" +" s_782)))" +"(let-values(((s_785)" "(if(syntax?$1" -" s_786)" +" s_784)" "(syntax-e$1" -" s_786)" -" s_786)))" +" s_784)" +" s_784)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_787)))" +" s_785)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74010,7 +74026,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_19" "(add1" -" phase_156))))" +" phase_157))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -74032,38 +74048,38 @@ static const char *startup_source = "(let-values(((ok?_79" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_788)" +"(let-values(((s_786)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_788))" +" s_786))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_789)" +"(let-values(((s_787)" "(if(syntax?$1" -" s_788)" +" s_786)" "(syntax-e$1" -" s_788)" -" s_788)))" +" s_786)" +" s_786)))" "(if(pair?" -" s_789)" +" s_787)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_790)" +"(let-values(((s_788)" "(car" -" s_789)))" -" s_790))" +" s_787)))" +" s_788))" "((e467_0)" -"(let-values(((s_791)" +"(let-values(((s_789)" "(cdr" -" s_789)))" -"(let-values(((s_792)" +" s_787)))" +"(let-values(((s_790)" "(if(syntax?$1" -" s_791)" +" s_789)" "(syntax-e$1" -" s_791)" -" s_791)))" +" s_789)" +" s_789)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_792)))" +" s_790)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74088,7 +74104,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_156))))" +" phase_157))))" "(begin" "(let-values(((obs_141)" "(expand-context-observer" @@ -74103,17 +74119,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_19" "(add1" -" phase_156))" +" phase_157))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_156)" +" phase_157)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_19" -" phase_156)" +" phase_157)" "(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74134,7 +74150,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_424)))" -"((letrec-values(((for-loop_325)" +"((letrec-values(((for-loop_324)" "(lambda(fold-var_368" " lst_425)" "(begin" @@ -74144,7 +74160,7 @@ static const char *startup_source = "(let-values(((nested-body_0)" "(unsafe-car" " lst_425))" -"((rest_244)" +"((rest_246)" "(unsafe-cdr" " lst_425)))" "(let-values(((fold-var_381)" @@ -74161,12 +74177,12 @@ static const char *startup_source = " fold-var_383)))))" "(if(not" " #f)" -"(for-loop_325" +"(for-loop_324" " fold-var_381" -" rest_244)" +" rest_246)" " fold-var_381)))" " fold-var_368)))))" -" for-loop_325)" +" for-loop_324)" " null" " lst_424))))))" "(datum->syntax$1" @@ -74209,52 +74225,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_793)" +"(let-values(((s_791)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_793))" +" s_791))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" +"(let-values(((s_792)" +"(if(syntax?$1" +" s_791)" +"(syntax-e$1" +" s_791)" +" s_791)))" +"(if(pair?" +" s_792)" +"(let-values(((define-values471_0)" +"(let-values(((s_793)" +"(car" +" s_792)))" +" s_793))" +"((id472_0" +" rhs473_0)" +"(let-values(((s_194)" +"(cdr" +" s_792)))" "(let-values(((s_794)" "(if(syntax?$1" -" s_793)" +" s_194)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_194)" +" s_194)))" "(if(pair?" " s_794)" -"(let-values(((define-values471_0)" +"(let-values(((id474_0)" "(let-values(((s_795)" "(car" " s_794)))" -" s_795))" -"((id472_0" -" rhs473_0)" -"(let-values(((s_193)" -"(cdr" -" s_794)))" "(let-values(((s_796)" "(if(syntax?$1" -" s_193)" +" s_795)" "(syntax-e$1" -" s_193)" -" s_193)))" -"(if(pair?" -" s_796)" -"(let-values(((id474_0)" -"(let-values(((s_797)" -"(car" -" s_796)))" -"(let-values(((s_798)" -"(if(syntax?$1" -" s_797)" -"(syntax-e$1" -" s_797)" -" s_797)))" +" s_795)" +" s_795)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_798)))" +" s_796)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74263,7 +74279,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_152)" +"(let-values(((id_153)" "(let-values(((lst_426)" " flat-s_58))" "(begin" @@ -74273,89 +74289,89 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_426)))" -"((letrec-values(((for-loop_326)" -"(lambda(id_153" +"((letrec-values(((for-loop_325)" +"(lambda(id_154" " lst_427)" "(begin" " 'for-loop" "(if(pair?" " lst_427)" -"(let-values(((s_799)" +"(let-values(((s_797)" "(unsafe-car" " lst_427))" -"((rest_245)" +"((rest_247)" "(unsafe-cdr" " lst_427)))" -"(let-values(((id_154)" "(let-values(((id_155)" -" id_153))" "(let-values(((id_156)" +" id_154))" +"(let-values(((id_157)" "(let-values()" "(let-values(((id484_0)" "(let-values()" "(if(let-values(((or-part_407)" "(if(syntax?$1" -" s_799)" +" s_797)" "(symbol?" "(syntax-e$1" -" s_799))" +" s_797))" " #f)))" "(if or-part_407" " or-part_407" "(symbol?" -" s_799)))" -" s_799" +" s_797)))" +" s_797" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_799)))))" +" s_797)))))" "(cons" " id484_0" -" id_155)))))" -"(values" " id_156)))))" +"(values" +" id_157)))))" "(if(not" " #f)" -"(for-loop_326" -" id_154" -" rest_245)" -" id_154)))" -" id_153)))))" -" for-loop_326)" +"(for-loop_325" +" id_155" +" rest_247)" +" id_155)))" +" id_154)))))" +" for-loop_325)" " null" " lst_426)))))" "(reverse$1" -" id_152))))))))" +" id_153))))))))" "((rhs475_0)" -"(let-values(((s_800)" +"(let-values(((s_798)" "(cdr" -" s_796)))" -"(let-values(((s_801)" +" s_794)))" +"(let-values(((s_799)" "(if(syntax?$1" -" s_800)" +" s_798)" "(syntax-e$1" -" s_800)" -" s_800)))" +" s_798)" +" s_798)))" "(if(pair?" -" s_801)" +" s_799)" "(let-values(((rhs476_0)" -"(let-values(((s_802)" +"(let-values(((s_800)" "(car" -" s_801)))" -" s_802))" +" s_799)))" +" s_800))" "(()" -"(let-values(((s_803)" +"(let-values(((s_801)" "(cdr" -" s_801)))" -"(let-values(((s_804)" +" s_799)))" +"(let-values(((s_802)" "(if(syntax?$1" -" s_803)" +" s_801)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_801)" +" s_801)))" "(if(null?" -" s_804)" +" s_802)" "(values)" "(raise-syntax-error$1" " #f" @@ -74396,7 +74412,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_43)" "((phase478_0)" -" phase_156)" +" phase_157)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -74413,7 +74429,7 @@ static const char *startup_source = "(let-values(((ids480_0)" " ids_43)" "((phase481_0)" -" phase_156)" +" phase_157)" "((requires+provides482_0)" " requires+provides_7)" "((exp-body483_0)" @@ -74432,7 +74448,7 @@ static const char *startup_source = "((self487_0)" " self_34)" "((phase488_0)" -" phase_156)" +" phase_157)" "((all-scopes-stx489_0)" " all-scopes-stx_5)" "((frame-id490_0)" @@ -74460,7 +74476,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_156)" +" phase_157)" "(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74534,52 +74550,52 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_805)" +"(let-values(((s_803)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_805))" +" s_803))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_806)" +"(let-values(((s_804)" "(if(syntax?$1" -" s_805)" +" s_803)" "(syntax-e$1" -" s_805)" -" s_805)))" +" s_803)" +" s_803)))" "(if(pair?" -" s_806)" +" s_804)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_807)" +"(let-values(((s_805)" "(car" -" s_806)))" -" s_807))" +" s_804)))" +" s_805))" "((id497_0" " rhs498_0)" -"(let-values(((s_808)" +"(let-values(((s_806)" "(cdr" +" s_804)))" +"(let-values(((s_807)" +"(if(syntax?$1" +" s_806)" +"(syntax-e$1" +" s_806)" " s_806)))" +"(if(pair?" +" s_807)" +"(let-values(((id499_0)" +"(let-values(((s_808)" +"(car" +" s_807)))" "(let-values(((s_809)" "(if(syntax?$1" " s_808)" "(syntax-e$1" " s_808)" " s_808)))" -"(if(pair?" -" s_809)" -"(let-values(((id499_0)" -"(let-values(((s_810)" -"(car" -" s_809)))" -"(let-values(((s_811)" -"(if(syntax?$1" -" s_810)" -"(syntax-e$1" -" s_810)" -" s_810)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_811)))" +" s_809)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74588,7 +74604,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_89))" "(let-values()" -"(let-values(((id_157)" +"(let-values(((id_158)" "(let-values(((lst_428)" " flat-s_59))" "(begin" @@ -74598,89 +74614,89 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_428)))" -"((letrec-values(((for-loop_327)" -"(lambda(id_158" +"((letrec-values(((for-loop_326)" +"(lambda(id_159" " lst_429)" "(begin" " 'for-loop" "(if(pair?" " lst_429)" -"(let-values(((s_812)" +"(let-values(((s_810)" "(unsafe-car" " lst_429))" -"((rest_246)" +"((rest_248)" "(unsafe-cdr" " lst_429)))" -"(let-values(((id_159)" "(let-values(((id_160)" -" id_158))" "(let-values(((id_161)" +" id_159))" +"(let-values(((id_162)" "(let-values()" "(let-values(((id509_0)" "(let-values()" "(if(let-values(((or-part_408)" "(if(syntax?$1" -" s_812)" +" s_810)" "(symbol?" "(syntax-e$1" -" s_812))" +" s_810))" " #f)))" "(if or-part_408" " or-part_408" "(symbol?" -" s_812)))" -" s_812" +" s_810)))" +" s_810" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_89" -" s_812)))))" +" s_810)))))" "(cons" " id509_0" -" id_160)))))" -"(values" " id_161)))))" +"(values" +" id_162)))))" "(if(not" " #f)" -"(for-loop_327" -" id_159" -" rest_246)" -" id_159)))" -" id_158)))))" -" for-loop_327)" +"(for-loop_326" +" id_160" +" rest_248)" +" id_160)))" +" id_159)))))" +" for-loop_326)" " null" " lst_428)))))" "(reverse$1" -" id_157))))))))" +" id_158))))))))" "((rhs500_0)" -"(let-values(((s_813)" +"(let-values(((s_811)" "(cdr" -" s_809)))" -"(let-values(((s_814)" +" s_807)))" +"(let-values(((s_812)" "(if(syntax?$1" -" s_813)" +" s_811)" "(syntax-e$1" -" s_813)" -" s_813)))" +" s_811)" +" s_811)))" "(if(pair?" -" s_814)" +" s_812)" "(let-values(((rhs501_0)" -"(let-values(((s_815)" +"(let-values(((s_813)" "(car" -" s_814)))" -" s_815))" +" s_812)))" +" s_813))" "(()" -"(let-values(((s_816)" +"(let-values(((s_814)" "(cdr" -" s_814)))" -"(let-values(((s_817)" +" s_812)))" +"(let-values(((s_815)" "(if(syntax?$1" -" s_816)" +" s_814)" "(syntax-e$1" -" s_816)" -" s_816)))" +" s_814)" +" s_814)))" "(if(null?" -" s_817)" +" s_815)" "(values)" "(raise-syntax-error$1" " #f" @@ -74721,7 +74737,7 @@ static const char *startup_source = "(let-values(((ids502_0)" " ids_44)" "((phase503_0)" -" phase_156)" +" phase_157)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -74738,7 +74754,7 @@ static const char *startup_source = "(let-values(((ids505_0)" " ids_44)" "((phase506_0)" -" phase_156)" +" phase_157)" "((requires+provides507_0)" " requires+provides_7)" "((exp-body508_0)" @@ -74757,7 +74773,7 @@ static const char *startup_source = "((self512_0)" " self_34)" "((phase513_0)" -" phase_156)" +" phase_157)" "((all-scopes-stx514_0)" " all-scopes-stx_5)" "((frame-id515_0)" @@ -74788,7 +74804,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_156)" +" phase_157)" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" @@ -74800,18 +74816,18 @@ static const char *startup_source = "((temp521_0)" "(let-values(((v_269)" " partial-body-ctx_1))" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_113)" " v_269))" "(if(expand-context/outer?" -" the-struct_112)" +" the-struct_113)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" -" the-struct_113)" +" the-struct_114)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -74820,89 +74836,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-module-begin-k" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-in-local-expand?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" +" the-struct_114)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_114)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_113)" +" the-struct_114)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-context" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_112)" +" the-struct_113)" " need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112)))))" +" the-struct_113)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding74.1" @@ -74938,7 +74954,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_432)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_327)" "(lambda(lst_433" " lst_434" " lst_435)" @@ -74955,19 +74971,19 @@ static const char *startup_source = "(let-values(((sym_104)" "(unsafe-car" " lst_433))" -"((rest_247)" +"((rest_249)" "(unsafe-cdr" " lst_433))" -"((val_88)" +"((val_87)" "(unsafe-car" " lst_434))" -"((rest_248)" +"((rest_250)" "(unsafe-cdr" " lst_434))" -"((id_162)" +"((id_163)" "(unsafe-car" " lst_435))" -"((rest_249)" +"((rest_251)" "(unsafe-cdr" " lst_435)))" "(let-values((()" @@ -74978,26 +74994,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_88" -" id_162" -" phase_156" +" val_87" +" id_163" +" phase_157" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_19" -" phase_156" +" phase_157" " sym_104" -" val_88)))" +" val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_328" -" rest_247" -" rest_248" -" rest_249)" +"(for-loop_327" +" rest_249" +" rest_250" +" rest_251)" "(values))))" "(values))))))" -" for-loop_328)" +" for-loop_327)" " lst_430" " lst_431" " lst_432)))" @@ -75079,38 +75095,38 @@ static const char *startup_source = "(let-values(((ok?_82" " #%require530_0" " req531_0)" -"(let-values(((s_548)" +"(let-values(((s_546)" " ready-body_0))" "(let-values(((orig-s_90)" -" s_548))" +" s_546))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_818)" +"(let-values(((s_816)" "(if(syntax?$1" -" s_548)" +" s_546)" "(syntax-e$1" -" s_548)" -" s_548)))" +" s_546)" +" s_546)))" "(if(pair?" -" s_818)" +" s_816)" "(let-values(((#%require532_0)" -"(let-values(((s_819)" +"(let-values(((s_817)" "(car" -" s_818)))" -" s_819))" +" s_816)))" +" s_817))" "((req533_0)" -"(let-values(((s_820)" +"(let-values(((s_818)" "(cdr" -" s_818)))" -"(let-values(((s_821)" +" s_816)))" +"(let-values(((s_819)" "(if(syntax?$1" -" s_820)" +" s_818)" "(syntax-e$1" -" s_820)" -" s_820)))" +" s_818)" +" s_818)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_821)))" +" s_819)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75141,9 +75157,9 @@ static const char *startup_source = "((m-ns537_0)" " m-ns_19)" "((phase538_0)" -" phase_156)" +" phase_157)" "((phase539_0)" -" phase_156)" +" phase_157)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -75283,38 +75299,38 @@ static const char *startup_source = "(let-values(((ok?_83" " #%declare551_0" " kw552_0)" -"(let-values(((s_822)" +"(let-values(((s_820)" " disarmed-exp-body_1))" "(let-values(((orig-s_91)" -" s_822))" +" s_820))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_823)" +"(let-values(((s_821)" "(if(syntax?$1" -" s_822)" +" s_820)" "(syntax-e$1" -" s_822)" -" s_822)))" +" s_820)" +" s_820)))" "(if(pair?" -" s_823)" +" s_821)" "(let-values(((#%declare553_0)" -"(let-values(((s_824)" +"(let-values(((s_822)" "(car" -" s_823)))" -" s_824))" +" s_821)))" +" s_822))" "((kw554_0)" -"(let-values(((s_825)" +"(let-values(((s_823)" "(cdr" -" s_823)))" -"(let-values(((s_826)" +" s_821)))" +"(let-values(((s_824)" "(if(syntax?$1" -" s_825)" +" s_823)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_823)" +" s_823)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_826)))" +" s_824)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75346,7 +75362,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_436)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_328)" "(lambda(lst_437)" "(begin" " 'for-loop" @@ -75355,7 +75371,7 @@ static const char *startup_source = "(let-values(((kw_1)" "(unsafe-car" " lst_437))" -"((rest_250)" +"((rest_252)" "(unsafe-cdr" " lst_437)))" "(let-values((()" @@ -75408,11 +75424,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_329" -" rest_250)" +"(for-loop_328" +" rest_252)" "(values))))" "(values))))))" -" for-loop_329)" +" for-loop_328)" " lst_436)))" "(values))))" "(let-values()" @@ -75460,7 +75476,7 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_45 rhs_22 phase_157)" +"(lambda(ids_45 rhs_22 phase_158)" "(let-values(((scoped-ids_0)" "(reverse$1" "(let-values(((lst_438) ids_45))" @@ -75468,13 +75484,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_329)" "(lambda(fold-var_384 lst_439)" "(begin" " 'for-loop" "(if(pair? lst_439)" -"(let-values(((id_163)(unsafe-car lst_439))" -"((rest_251)(unsafe-cdr lst_439)))" +"(let-values(((id_164)(unsafe-car lst_439))" +"((rest_253)(unsafe-cdr lst_439)))" "(let-values(((fold-var_385)" "(let-values(((fold-var_386) fold-var_384))" "(let-values(((fold-var_387)" @@ -75482,20 +75498,20 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_163" +" id_164" " inside-scope_2))" " fold-var_386))))" "(values fold-var_387)))))" -"(if(not #f)(for-loop_330 fold-var_385 rest_251) fold-var_385)))" +"(if(not #f)(for-loop_329 fold-var_385 rest_253) fold-var_385)))" " fold-var_384)))))" -" for-loop_330)" +" for-loop_329)" " null" " lst_438))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" "((self557_0) self_35)" -"((phase558_0) phase_157)" +"((phase558_0) phase_158)" "((all-scopes-stx559_0) all-scopes-stx_6)" "((frame-id560_0) frame-id_18)" "((requires+provides561_0) requires+provides_8))" @@ -75514,16 +75530,16 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_570)" +"(let-values(((s_568)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_157) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_158) 'define-values)" " scoped-ids_0" " rhs_22))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_570 syms_26 scoped-ids_0 rhs_22)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_568 syms_26 scoped-ids_0 rhs_22)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_116)" @@ -75534,12 +75550,12 @@ static const char *startup_source = "(let-values(((lst_440) bodys_23))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_331)" +"((letrec-values(((for-loop_330)" "(lambda(fold-var_388 lst_441)" "(begin" " 'for-loop" "(if(pair? lst_441)" -"(let-values(((body_23)(unsafe-car lst_441))((rest_252)(unsafe-cdr lst_441)))" +"(let-values(((body_23)(unsafe-car lst_441))((rest_254)(unsafe-cdr lst_441)))" "(let-values(((fold-var_389)" "(let-values(((fold-var_390) fold-var_388))" "(let-values(((fold-var_391)" @@ -75548,9 +75564,9 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_390))))" "(values fold-var_391)))))" -"(if(not #f)(for-loop_331 fold-var_389 rest_252) fold-var_389)))" +"(if(not #f)(for-loop_330 fold-var_389 rest_254) fold-var_389)))" " fold-var_388)))))" -" for-loop_331)" +" for-loop_330)" " null" " lst_440))))" " bodys_23)))))" @@ -75567,7 +75583,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_158) phase84_0))" +"(let-values(((phase_159) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -75581,7 +75597,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_53(not(zero? phase_158)) #f)" +"(if(if tail?_53(not(zero? phase_159)) #f)" "(let-values()" "(begin" "(let-values(((obs_151)(expand-context-observer body-ctx_7)))" @@ -75659,86 +75675,86 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_827)" +"(let-values(((s_825)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_84" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_828)" +"(let-values(((s_826)" "(syntax-disarm$1" -" s_827)))" +" s_825)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_92)" -" s_828))" +" s_826))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_829)" +"(let-values(((s_827)" "(if(syntax?$1" -" s_828)" +" s_826)" "(syntax-e$1" -" s_828)" -" s_828)))" +" s_826)" +" s_826)))" "(if(pair?" -" s_829)" +" s_827)" "(let-values(((define-values565_0)" -"(let-values(((s_830)" +"(let-values(((s_828)" "(car" -" s_829)))" -" s_830))" +" s_827)))" +" s_828))" "((_566_0" " _567_0)" -"(let-values(((s_831)" +"(let-values(((s_829)" "(cdr" +" s_827)))" +"(let-values(((s_830)" +"(if(syntax?$1" +" s_829)" +"(syntax-e$1" +" s_829)" " s_829)))" -"(let-values(((s_832)" -"(if(syntax?$1" -" s_831)" -"(syntax-e$1" -" s_831)" -" s_831)))" "(if(pair?" -" s_832)" +" s_830)" "(let-values(((_568_0)" -"(let-values(((s_833)" +"(let-values(((s_831)" "(car" -" s_832)))" -" s_833))" +" s_830)))" +" s_831))" "((_569_0)" -"(let-values(((s_834)" +"(let-values(((s_832)" "(cdr" +" s_830)))" +"(let-values(((s_833)" +"(if(syntax?$1" +" s_832)" +"(syntax-e$1" +" s_832)" " s_832)))" -"(let-values(((s_835)" -"(if(syntax?$1" -" s_834)" -"(syntax-e$1" -" s_834)" -" s_834)))" "(if(pair?" -" s_835)" +" s_833)" "(let-values(((_570_0)" -"(let-values(((s_836)" +"(let-values(((s_834)" "(car" -" s_835)))" -" s_836))" +" s_833)))" +" s_834))" "(()" -"(let-values(((s_837)" +"(let-values(((s_835)" "(cdr" -" s_835)))" -"(let-values(((s_838)" +" s_833)))" +"(let-values(((s_836)" "(if(syntax?$1" -" s_837)" +" s_835)" "(syntax-e$1" -" s_837)" -" s_837)))" +" s_835)" +" s_835)))" "(if(null?" -" s_838)" +" s_836)" "(values)" "(raise-syntax-error$1" " #f" @@ -75779,7 +75795,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_827)" +" s_825)" "((temp573_0)" " #t))" "(keep-as-needed85.1" @@ -75861,7 +75877,7 @@ static const char *startup_source = "(let-values(((tmp_68)" "(core-form-sym" " disarmed-body_0" -" phase_158)))" +" phase_159)))" "(if(if(equal? tmp_68 '#%require)" " #t" "(if(equal? tmp_68 '#%provide)" @@ -75941,7 +75957,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules584_0)" " lifted-modules_0)" -"((phase585_0) phase_158)" +"((phase585_0) phase_159)" "((self586_0) self_36)" "((body-ctx587_0)" " body-ctx_7)" @@ -75998,12 +76014,12 @@ static const char *startup_source = "(let-values(((ht_171) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_171)))" -"((letrec-values(((for-loop_332)" -"(lambda(i_193)" +"((letrec-values(((for-loop_331)" +"(lambda(i_192)" "(begin" " 'for-loop" -"(if i_193" -"(let-values(((phase_159 l_84)(hash-iterate-key+value ht_171 i_193)))" +"(if i_192" +"(let-values(((phase_160 l_84)(hash-iterate-key+value ht_171 i_192)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76017,16 +76033,16 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_333)" +"((letrec-values(((for-loop_332)" "(lambda(lst_443)" "(begin" " 'for-loop" "(if(pair?" " lst_443)" -"(let-values(((id_164)" +"(let-values(((id_165)" "(unsafe-car" " lst_443))" -"((rest_253)" +"((rest_255)" "(unsafe-cdr" " lst_443)))" "(let-values((()" @@ -76035,11 +76051,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((b_93)" +"(let-values(((b_95)" "(let-values(((id592_0)" -" id_164)" +" id_165)" "((phase593_0)" -" phase_159))" +" phase_160))" "(resolve+shift30.1" " #f" " #f" @@ -76053,17 +76069,17 @@ static const char *startup_source = " #f" " id592_0" " phase593_0))))" -"(if(if b_93" +"(if(if b_95" "(if(module-binding?" -" b_93)" +" b_95)" "(if(eq?" "(module-binding-sym" -" b_93)" +" b_95)" "(syntax-e$1" -" id_164))" +" id_165))" "(eq?" "(module-binding-module" -" b_93)" +" b_95)" " self_37)" " #f)" " #f)" @@ -76073,27 +76089,27 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"reference to an unbound identifier\"" -" id_164" +" id_165" " #f" " null" "(syntax-debug-info-string" -" id_164" +" id_165" " ctx_117))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_333" -" rest_253)" +"(for-loop_332" +" rest_255)" "(values))))" "(values))))))" -" for-loop_333)" +" for-loop_332)" " lst_442)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_332(hash-iterate-next ht_171 i_193))(values))))" +"(if(not #f)(for-loop_331(hash-iterate-next ht_171 i_192))(values))))" "(values))))))" -" for-loop_332)" +" for-loop_331)" "(hash-iterate-first ht_171))))" "(void)))))" "(define-values" @@ -76111,13 +76127,13 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_20) namespace104_0))" -"(let-values(((phase_160) phase105_0))" +"(let-values(((phase_161) phase105_0))" "(let-values(((self_38) self106_0))" "(let-values(((ctx_118) ctx107_0))" "(let-values()" "(let-values()" "((letrec-values(((loop_126)" -"(lambda(bodys_26 phase_161)" +"(lambda(bodys_26 phase_162)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -76125,29 +76141,29 @@ static const char *startup_source = "(if(let-values(((or-part_411)(parsed?(car bodys_26))))" "(if or-part_411 or-part_411(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_161)))" +"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_162)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_126" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_161))))" +"(add1 phase_162))))" "(cons" -"(let-values(((the-struct_114)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_114)" +"(let-values(((the-struct_115)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_115)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_114)" +"(semi-parsed-begin-for-syntax-s the-struct_115)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_114)))" -"(loop_126(cdr bodys_26) phase_161))))" +" the-struct_115)))" +"(loop_126(cdr bodys_26) phase_162))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_69)" -"(core-form-sym disarmed-body_1 phase_161)))" +"(core-form-sym disarmed-body_1 phase_162)))" "(if(equal? tmp_69 '#%provide)" "(let-values()" "(let-values((()" @@ -76169,35 +76185,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_85 #%provide595_0 spec596_0)" -"(let-values(((s_635) disarmed-body_1))" -"(let-values(((orig-s_93) s_635))" +"(let-values(((s_633) disarmed-body_1))" +"(let-values(((orig-s_93) s_633))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_839)" +"(let-values(((s_837)" "(if(syntax?$1" -" s_635)" +" s_633)" "(syntax-e$1" -" s_635)" -" s_635)))" -"(if(pair? s_839)" +" s_633)" +" s_633)))" +"(if(pair? s_837)" "(let-values(((#%provide597_0)" -"(let-values(((s_639)" +"(let-values(((s_637)" "(car" -" s_839)))" -" s_639))" +" s_837)))" +" s_637))" "((spec598_0)" -"(let-values(((s_640)" +"(let-values(((s_638)" "(cdr" -" s_839)))" -"(let-values(((s_840)" +" s_837)))" +"(let-values(((s_838)" "(if(syntax?$1" -" s_640)" +" s_638)" "(syntax-e$1" -" s_640)" -" s_640)))" +" s_638)" +" s_638)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_840)))" +" s_838)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76224,117 +76240,117 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_38" -" phase_161" +" phase_162" "(let-values(((v_270) ctx_118))" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_116)" " v_270))" "(if(expand-context/outer?" -" the-struct_115)" +" the-struct_116)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_117)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_116)" +" the-struct_117)" "(let-values(((phase601_0)" -" phase_161)" +" phase_162)" "((namespace602_0)" "(namespace->namespace-at-phase" " m-ns_20" -" phase_161))" +" phase_162))" "((requires+provides603_0)" " requires+provides_9)" "((declared-submodule-names604_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-parsed?" -" the-struct_116)" +" the-struct_117)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-stops" -" the-struct_116)" +" the-struct_117)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-module-lifts" -" the-struct_116)" +" the-struct_117)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_116)))))" +" the-struct_117)))))" "(expand-context/outer1.1" " inner600_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-use-site-scopes" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-frame-id" -" the-struct_115)" +" the-struct_116)" " context599_0" "(expand-context/outer-env" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-def-ctx-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-binding-layer" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-reference-records" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-only-immediate?" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-need-eventually-defined" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-current-introduction-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-name" -" the-struct_115)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_115)))))))" +" the-struct_116)))))))" "(if(expand-context-to-parsed? ctx_118)" "(let-values()" -"(loop_126(cdr bodys_26) phase_161))" +"(loop_126(cdr bodys_26) phase_162))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -76366,14 +76382,14 @@ static const char *startup_source = " new-s_10" "(loop_126" "(cdr bodys_26)" -" phase_161))))))))))" +" phase_162))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_161))))))))))))))" +"(loop_126(cdr bodys_26) phase_162))))))))))))))" " loop_126)" " expression-expanded-bodys_1" -" phase_160)))))))))))))" +" phase_161)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76485,16 +76501,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_841 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_839 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_842)" -"(syntax-property$1 s_841 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_843)" +"(let-values(((s_840)" +"(syntax-property$1 s_839 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_841)" "(syntax-property$1" -" s_842" +" s_840" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_843)))))" +" s_841)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76513,7 +76529,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_162) phase143_1))" +"(let-values(((phase_163) phase143_1))" "(let-values(((self_40) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -76525,7 +76541,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_27 phase_163)" +"(lambda(bodys_27 phase_164)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76539,37 +76555,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_86 begin-for-syntax617_0 _618_0)" -"(let-values(((s_844)" +"(let-values(((s_842)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_94) s_844))" +"(let-values(((orig-s_94) s_842))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_845)" +"(let-values(((s_843)" "(if(syntax?$1" -" s_844)" +" s_842)" "(syntax-e$1" -" s_844)" -" s_844)))" -"(if(pair? s_845)" +" s_842)" +" s_842)))" +"(if(pair? s_843)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_846)" +"(let-values(((s_844)" "(car" -" s_845)))" -" s_846))" +" s_843)))" +" s_844))" "((_620_0)" -"(let-values(((s_847)" +"(let-values(((s_845)" "(cdr" -" s_845)))" -"(let-values(((s_669)" +" s_843)))" +"(let-values(((s_667)" "(if(syntax?$1" -" s_847)" +" s_845)" "(syntax-e$1" -" s_847)" -" s_847)))" +" s_845)" +" s_845)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_669)))" +" s_667)))" "(if(not" " flat-s_63)" "(let-values()" @@ -76608,7 +76624,7 @@ static const char *startup_source = "(loop_127" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_163))))" +"(add1 phase_164))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76631,20 +76647,20 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_163))))))))" +"(loop_127 rest-bodys_3 phase_164))))))))" "(if(let-values(((or-part_413)(parsed? body_25)))" "(if or-part_413" " or-part_413" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_127 rest-bodys_3 phase_163)))" +"(cons body_25(loop_127 rest-bodys_3 phase_164)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_70)" "(core-form-sym" " disarmed-body_2" -" phase_163)))" +" phase_164)))" "(if(equal? tmp_70 'module*)" "(let-values()" "(let-values((()" @@ -76660,60 +76676,60 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_848)" +"(let-values(((s_846)" " disarmed-body_2))" -"(if(let-values(((s_849)" +"(if(let-values(((s_847)" "(if(syntax?$1" -" s_848)" +" s_846)" "(syntax-e$1" -" s_848)" -" s_848)))" -"(if(pair? s_849)" -"(if(let-values(((s_850)" +" s_846)" +" s_846)))" +"(if(pair? s_847)" +"(if(let-values(((s_848)" "(car" -" s_849)))" +" s_847)))" " #t)" -"(let-values(((s_851)" +"(let-values(((s_849)" "(cdr" -" s_849)))" -"(let-values(((s_852)" +" s_847)))" +"(let-values(((s_850)" "(if(syntax?$1" -" s_851)" +" s_849)" "(syntax-e$1" -" s_851)" -" s_851)))" +" s_849)" +" s_849)))" "(if(pair?" +" s_850)" +"(if(let-values(((s_851)" +"(car" +" s_850)))" +" #t)" +"(let-values(((s_852)" +"(cdr" +" s_850)))" +"(let-values(((s_673)" +"(if(syntax?$1" " s_852)" +"(syntax-e$1" +" s_852)" +" s_852)))" +"(if(pair?" +" s_673)" "(if(let-values(((s_853)" "(car" -" s_852)))" -" #t)" +" s_673)))" "(let-values(((s_854)" -"(cdr" -" s_852)))" -"(let-values(((s_675)" "(if(syntax?$1" -" s_854)" +" s_853)" "(syntax-e$1" -" s_854)" -" s_854)))" -"(if(pair?" -" s_675)" -"(if(let-values(((s_855)" -"(car" -" s_675)))" -"(let-values(((s_856)" -"(if(syntax?$1" -" s_855)" -"(syntax-e$1" -" s_855)" -" s_855)))" +" s_853)" +" s_853)))" "(eq?" " #f" -" s_856)))" -"(let-values(((s_857)" +" s_854)))" +"(let-values(((s_855)" "(cdr" -" s_675)))" +" s_673)))" " #t)" " #f)" " #f)))" @@ -76725,59 +76741,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_858)" +"(let-values(((s_856)" "(if(syntax?$1" -" s_848)" +" s_846)" "(syntax-e$1" -" s_848)" -" s_848)))" +" s_846)" +" s_846)))" "(let-values(((module*628_0)" -"(let-values(((s_859)" +"(let-values(((s_857)" "(car" -" s_858)))" -" s_859))" +" s_856)))" +" s_857))" "((name629_0" " _630_0)" -"(let-values(((s_860)" +"(let-values(((s_858)" "(cdr" +" s_856)))" +"(let-values(((s_678)" +"(if(syntax?$1" +" s_858)" +"(syntax-e$1" +" s_858)" " s_858)))" -"(let-values(((s_680)" -"(if(syntax?$1" -" s_860)" -"(syntax-e$1" -" s_860)" -" s_860)))" "(let-values(((name631_0)" -"(let-values(((s_682)" +"(let-values(((s_680)" "(car" -" s_680)))" -" s_682))" +" s_678)))" +" s_680))" "((_632_0)" -"(let-values(((s_861)" +"(let-values(((s_859)" "(cdr" -" s_680)))" -"(let-values(((s_683)" +" s_678)))" +"(let-values(((s_681)" "(if(syntax?$1" -" s_861)" +" s_859)" "(syntax-e$1" -" s_861)" -" s_861)))" +" s_859)" +" s_859)))" "(let-values((()" -"(let-values(((s_685)" +"(let-values(((s_683)" "(car" -" s_683)))" -"(let-values(((s_862)" +" s_681)))" +"(let-values(((s_860)" "(if(syntax?$1" -" s_685)" +" s_683)" "(syntax-e$1" -" s_685)" -" s_685)))" +" s_683)" +" s_683)))" "(values))))" "((_633_0)" -"(let-values(((s_863)" +"(let-values(((s_861)" "(cdr" -" s_683)))" -" s_863)))" +" s_681)))" +" s_861)))" "(values" " _633_0))))))" "(values" @@ -76803,7 +76819,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_163)))" +" phase_164)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -76857,27 +76873,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_118)" " submod_4))" "(if(expanded+parsed?" -" the-struct_117)" +" the-struct_118)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_163)))" +" phase_164)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_117)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_117))))" +" the-struct_118))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_163))))))))" +" phase_164))))))))" "(let-values()" "(let-values(((ready-body647_0)" " ready-body_2)" @@ -76916,16 +76932,16 @@ static const char *startup_source = " submod_3" "(loop_127" " rest-bodys_3" -" phase_163)))))))" +" phase_164)))))))" "(let-values()" "(cons" " body_25" "(loop_127" " rest-bodys_3" -" phase_163)))))))))))))))))" +" phase_164)))))))))))))))))" " loop_127)" " fully-expanded-bodys-except-post-submodules_2" -" phase_162)))))))))))))))))" +" phase_163)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_120)" @@ -76940,9 +76956,9 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_164) phase171_1))" +"(let-values(((phase_165) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_864) in168_0))" +"(let-values(((s_862) in168_0))" "(let-values()" "(begin" "(let-values(((lst_444) ids_47))" @@ -76950,13 +76966,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_333)" "(lambda(lst_445)" "(begin" " 'for-loop" "(if(pair? lst_445)" -"(let-values(((id_165)(unsafe-car lst_445))" -"((rest_254)(unsafe-cdr lst_445)))" +"(let-values(((id_166)(unsafe-car lst_445))" +"((rest_256)(unsafe-cdr lst_445)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76965,10 +76981,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides655_0)" " requires+provides_12)" -"((id656_0) id_165)" +"((id656_0) id_166)" "((phase657_0)" -" phase_164)" -"((s658_0) s_864)" +" phase_165)" +"((s658_0) s_862)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -76988,25 +77004,25 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_334 rest_254)(values))))" +"(if(not #f)(for-loop_333 rest_256)(values))))" "(values))))))" -" for-loop_334)" +" for-loop_333)" " lst_444)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_165 m-ns_22 self_41 ctx_121)" +"(lambda(bodys_28 phase_166 m-ns_22 self_41 ctx_121)" "(begin" "(begin" "(let-values(((lst_446) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_335)" +"((letrec-values(((for-loop_334)" "(lambda(lst_447)" "(begin" " 'for-loop" "(if(pair? lst_447)" -"(let-values(((body_26)(unsafe-car lst_447))((rest_255)(unsafe-cdr lst_447)))" +"(let-values(((body_26)(unsafe-car lst_447))((rest_257)(unsafe-cdr lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77028,7 +77044,7 @@ static const char *startup_source = " ids_48" "(parsed-define-values-rhs" " p_88)" -" phase_165" +" phase_166" " m-ns_22" " ctx_121)))" "(begin" @@ -77053,7 +77069,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_450)))" -"((letrec-values(((for-loop_336)" +"((letrec-values(((for-loop_335)" "(lambda(lst_451" " lst_452" " lst_453)" @@ -77067,22 +77083,22 @@ static const char *startup_source = " lst_453)" " #f)" " #f)" -"(let-values(((id_166)" +"(let-values(((id_167)" "(unsafe-car" " lst_451))" -"((rest_256)" +"((rest_258)" "(unsafe-cdr" " lst_451))" "((sym_105)" "(unsafe-car" " lst_452))" -"((rest_257)" +"((rest_259)" "(unsafe-cdr" " lst_452))" -"((val_89)" +"((val_88)" "(unsafe-car" " lst_453))" -"((rest_258)" +"((rest_260)" "(unsafe-cdr" " lst_453)))" "(let-values((()" @@ -77093,20 +77109,20 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_22" -" phase_165" +" phase_166" " sym_105" -" val_89))" +" val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_336" -" rest_256" -" rest_257" -" rest_258)" +"(for-loop_335" +" rest_258" +" rest_259" +" rest_260)" "(values))))" "(values))))))" -" for-loop_336)" +" for-loop_335)" " lst_448" " lst_449" " lst_450)))" @@ -77144,7 +77160,7 @@ static const char *startup_source = "(let-values(((m-ns660_0)" " m-ns_22)" "((phase661_0)" -" phase_165))" +" phase_166))" "(make-compile-context14.1" " #f" " #f" @@ -77161,9 +77177,9 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_335 rest_255)(values))))" +"(if(not #f)(for-loop_334 rest_257)(values))))" "(values))))))" -" for-loop_335)" +" for-loop_334)" " lst_446)))" "(void)))))" "(define-values" @@ -77186,7 +77202,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_865) s194_0))" +"(let-values(((s_863) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77215,42 +77231,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_865)" +"(call-expand-observe obs_158 'enter-prim s_863)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_88 module662_0 name663_0 _664_0)" -"(let-values(((s_866) s_865))" -"(let-values(((orig-s_95) s_866))" +"(let-values(((s_864) s_863))" +"(let-values(((orig-s_95) s_864))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_867)" -"(if(syntax?$1 s_866)" -"(syntax-e$1 s_866)" -" s_866)))" -"(if(pair? s_867)" +"(let-values(((s_865)" +"(if(syntax?$1 s_864)" +"(syntax-e$1 s_864)" +" s_864)))" +"(if(pair? s_865)" "(let-values(((module665_0)" -"(let-values(((s_868)(car s_867)))" -" s_868))" +"(let-values(((s_866)(car s_865)))" +" s_866))" "((name666_0 _667_0)" -"(let-values(((s_869)(cdr s_867)))" -"(let-values(((s_870)" +"(let-values(((s_867)(cdr s_865)))" +"(let-values(((s_868)" "(if(syntax?$1" -" s_869)" -"(syntax-e$1 s_869)" -" s_869)))" -"(if(pair? s_870)" +" s_867)" +"(syntax-e$1 s_867)" +" s_867)))" +"(if(pair? s_868)" "(let-values(((name668_0)" -"(let-values(((s_871)" +"(let-values(((s_869)" "(car" -" s_870)))" -" s_871))" +" s_868)))" +" s_869))" "((_669_0)" -"(let-values(((s_872)" +"(let-values(((s_870)" "(cdr" +" s_868)))" " s_870)))" -" s_872)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -77270,7 +77286,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_865" +" s_863" " name_80))" "(void))" "(values))))" @@ -77287,112 +77303,112 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_865)))" +"(call-expand-observe obs_159 'enter-prim s_863)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_865)" +"(let-values(((s670_0) s_863)" "((temp671_0)" "(let-values(((v_271) ctx_122))" -"(let-values(((the-struct_118) v_271))" -"(if(expand-context/outer? the-struct_118)" +"(let-values(((the-struct_119) v_271))" +"(if(expand-context/outer? the-struct_119)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_120)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" -" the-struct_119)" +" the-struct_120)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-phase" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-namespace" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_120)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-requires+provides" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_119)))))" +" the-struct_120)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_118)" +" the-struct_119)" "(root-expand-context/outer-frame-id" -" the-struct_118)" +" the-struct_119)" " context680_0" "(expand-context/outer-env" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-def-ctx-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-binding-layer" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-reference-records" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-only-immediate?" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-need-eventually-defined" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-current-introduction-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-name" -" the-struct_118)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))" +" the-struct_119)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -77526,67 +77542,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(expanded+parsed? the-struct_120)" +"(let-values(((the-struct_121) submod_5))" +"(if(expanded+parsed? the-struct_121)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_122)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_121)" +"(if(parsed-module? the-struct_122)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_121)" +"(parsed-s the-struct_122)" " star?696_0" "(parsed-module-name-id" -" the-struct_121)" +" the-struct_122)" "(parsed-module-self" -" the-struct_121)" +" the-struct_122)" "(parsed-module-requires" -" the-struct_121)" +" the-struct_122)" "(parsed-module-provides" -" the-struct_121)" +" the-struct_122)" "(parsed-module-root-ctx-simple?" -" the-struct_121)" +" the-struct_122)" "(parsed-module-encoded-root-ctx" -" the-struct_121)" +" the-struct_122)" "(parsed-module-body" -" the-struct_121)" +" the-struct_122)" "(parsed-module-compiled-module" -" the-struct_121)" -"(parsed-module-compiled-submodules" -" the-struct_121)))" -"(raise-argument-error" -" 'struct-copy" -" \"parsed-module?\"" -" the-struct_121)))))" -"(expanded+parsed1.1" -"(expanded+parsed-s the-struct_120)" -" parsed695_0))" -"(raise-argument-error" -" 'struct-copy" -" \"expanded+parsed?\"" -" the-struct_120))))" -"(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(parsed-module? the-struct_122)" -"(let-values(((star?697_0) #t))" -"(parsed-module25.1" -"(parsed-s the-struct_122)" -" star?697_0" -"(parsed-module-name-id the-struct_122)" -"(parsed-module-self the-struct_122)" -"(parsed-module-requires the-struct_122)" -"(parsed-module-provides the-struct_122)" -"(parsed-module-root-ctx-simple? the-struct_122)" -"(parsed-module-encoded-root-ctx the-struct_122)" -"(parsed-module-body the-struct_122)" -"(parsed-module-compiled-module the-struct_122)" +" the-struct_122)" "(parsed-module-compiled-submodules" " the-struct_122)))" "(raise-argument-error" " 'struct-copy" +" \"parsed-module?\"" +" the-struct_122)))))" +"(expanded+parsed1.1" +"(expanded+parsed-s the-struct_121)" +" parsed695_0))" +"(raise-argument-error" +" 'struct-copy" +" \"expanded+parsed?\"" +" the-struct_121))))" +"(let-values()" +"(let-values(((the-struct_123) submod_5))" +"(if(parsed-module? the-struct_123)" +"(let-values(((star?697_0) #t))" +"(parsed-module25.1" +"(parsed-s the-struct_123)" +" star?697_0" +"(parsed-module-name-id the-struct_123)" +"(parsed-module-self the-struct_123)" +"(parsed-module-requires the-struct_123)" +"(parsed-module-provides the-struct_123)" +"(parsed-module-root-ctx-simple? the-struct_123)" +"(parsed-module-encoded-root-ctx the-struct_123)" +"(parsed-module-body the-struct_123)" +"(parsed-module-compiled-module the-struct_123)" +"(parsed-module-compiled-submodules" +" the-struct_123)))" +"(raise-argument-error" +" 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))))))))))))))))))))))))))))))))" +" the-struct_123)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77600,7 +77616,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_166) phase209_0))" +"(let-values(((phase_167) phase209_0))" "(let-values(((self_43) self210_0))" "(let-values(((ctx_123) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -77614,13 +77630,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_337)" +"((letrec-values(((for-loop_336)" "(lambda(fold-var_392 lst_455)" "(begin" " 'for-loop" "(if(pair? lst_455)" "(let-values(((body_27)(unsafe-car lst_455))" -"((rest_259)(unsafe-cdr lst_455)))" +"((rest_261)(unsafe-cdr lst_455)))" "(let-values(((fold-var_393)" "(let-values(((fold-var_394) fold-var_392))" "(let-values(((fold-var_395)" @@ -77631,7 +77647,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_166)))" +" phase_167)))" "(if(equal? tmp_71 'module)" "(let-values()" "(let-values(((body698_0)" @@ -77671,10 +77687,10 @@ static const char *startup_source = " fold-var_394))))" "(values fold-var_395)))))" "(if(not #f)" -"(for-loop_337 fold-var_393 rest_259)" +"(for-loop_336 fold-var_393 rest_261)" " fold-var_393)))" " fold-var_392)))))" -" for-loop_337)" +" for-loop_336)" " null" " lst_454))))))))))))))))" "(define-values" @@ -77687,37 +77703,37 @@ static const char *startup_source = "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_873 phase_167)" +"(lambda(s_871 phase_168)" "(let-values(((ok?_89 #%require706_0 req707_0)" -"(let-values(((s_874)(syntax-disarm$1 s_873)))" -"(let-values(((orig-s_96) s_874))" +"(let-values(((s_872)(syntax-disarm$1 s_871)))" +"(let-values(((orig-s_96) s_872))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_875)" -"(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" -"(if(pair? s_875)" +"(let-values(((s_873)" +"(if(syntax?$1 s_872)(syntax-e$1 s_872) s_872)))" +"(if(pair? s_873)" "(let-values(((#%require708_0)" -"(let-values(((s_876)(car s_875))) s_876))" +"(let-values(((s_874)(car s_873))) s_874))" "((req709_0)" -"(let-values(((s_877)(cdr s_875)))" -"(let-values(((s_878)" -"(if(syntax?$1 s_877)" -"(syntax-e$1 s_877)" -" s_877)))" -"(if(pair? s_878)" +"(let-values(((s_875)(cdr s_873)))" +"(let-values(((s_876)" +"(if(syntax?$1 s_875)" +"(syntax-e$1 s_875)" +" s_875)))" +"(if(pair? s_876)" "(let-values(((req710_0)" -"(let-values(((s_879)" -"(car s_878)))" -" s_879))" +"(let-values(((s_877)" +"(car s_876)))" +" s_877))" "(()" -"(let-values(((s_880)" -"(cdr s_878)))" -"(let-values(((s_881)" +"(let-values(((s_878)" +"(cdr s_876)))" +"(let-values(((s_879)" "(if(syntax?$1" -" s_880)" +" s_878)" "(syntax-e$1" -" s_880)" -" s_880)))" -"(if(null? s_881)" +" s_878)" +" s_878)))" +"(if(null? s_879)" "(values)" "(raise-syntax-error$1" " #f" @@ -77732,11 +77748,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_873)" +"((s712_0) s_871)" "((self713_0) self_44)" "((m-ns714_0) m-ns_23)" -"((phase715_0) phase_167)" -"((phase716_0) phase_167)" +"((phase715_0) phase_168)" +"((phase716_0) phase_168)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -77781,13 +77797,13 @@ static const char *startup_source = "(let-values(((lst_456) lifted-defns_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" -"((letrec-values(((for-loop_338)" +"((letrec-values(((for-loop_337)" "(lambda(fold-var_396 lst_457)" "(begin" " 'for-loop" "(if(pair? lst_457)" "(let-values(((lifted-defn_0)(unsafe-car lst_457))" -"((rest_260)(unsafe-cdr lst_457)))" +"((rest_262)(unsafe-cdr lst_457)))" "(let-values(((fold-var_397)" "(let-values(((fold-var_398) fold-var_396))" "(let-values(((fold-var_399)" @@ -77797,9 +77813,9 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_398))))" "(values fold-var_399)))))" -"(if(not #f)(for-loop_338 fold-var_397 rest_260) fold-var_397)))" +"(if(not #f)(for-loop_337 fold-var_397 rest_262) fold-var_397)))" " fold-var_396)))))" -" for-loop_338)" +" for-loop_337)" " null" " lst_456)))))))" "(define-values" @@ -77822,13 +77838,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_458)))" -"((letrec-values(((for-loop_339)" +"((letrec-values(((for-loop_338)" "(lambda(lst_459)" "(begin" " 'for-loop" "(if(pair? lst_459)" "(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" -"((rest_261)(unsafe-cdr lst_459)))" +"((rest_263)(unsafe-cdr lst_459)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77838,38 +77854,38 @@ static const char *startup_source = "(let-values(((ok?_90" " define-values724_0" " _725_0)" -"(let-values(((s_882)" +"(let-values(((s_880)" " s-lifted-defn_0))" "(let-values(((orig-s_97)" -" s_882))" +" s_880))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_883)" +"(let-values(((s_881)" "(if(syntax?$1" -" s_882)" +" s_880)" "(syntax-e$1" -" s_882)" -" s_882)))" +" s_880)" +" s_880)))" "(if(pair?" -" s_883)" +" s_881)" "(let-values(((define-values726_0)" -"(let-values(((s_884)" +"(let-values(((s_882)" "(car" -" s_883)))" -" s_884))" +" s_881)))" +" s_882))" "((_727_0)" -"(let-values(((s_885)" +"(let-values(((s_883)" "(cdr" -" s_883)))" -"(let-values(((s_886)" +" s_881)))" +"(let-values(((s_884)" "(if(syntax?$1" -" s_885)" +" s_883)" "(syntax-e$1" -" s_885)" -" s_885)))" +" s_883)" +" s_883)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_886)))" +" s_884)))" "(if(not" " flat-s_64)" "(let-values()" @@ -77934,23 +77950,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_339 rest_261)(values))))" +"(if(not #f)(for-loop_338 rest_263)(values))))" "(values))))))" -" for-loop_339)" +" for-loop_338)" " lst_458)))" "(values))))" "(let-values()" "(let-values(((ok?_91 form-id720_0 _721_0)" -"(let-values(((s_887) exp-body_10))" -"(let-values(((orig-s_98) s_887))" +"(let-values(((s_885) exp-body_10))" +"(let-values(((orig-s_98) s_885))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_888)" -"(if(syntax?$1 s_887)(syntax-e$1 s_887) s_887)))" -"(if(pair? s_888)" +"(let-values(((s_886)" +"(if(syntax?$1 s_885)(syntax-e$1 s_885) s_885)))" +"(if(pair? s_886)" "(let-values(((form-id722_0)" -"(let-values(((s_889)(car s_888))) s_889))" +"(let-values(((s_887)(car s_886))) s_887))" "((_723_0)" -"(let-values(((s_890)(cdr s_888))) s_890)))" +"(let-values(((s_888)(cdr s_886))) s_888)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t form-id720_1 _721_1))))))" @@ -77972,20 +77988,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_92 define-values728_0 _729_0)" -"(let-values(((s_891) s-defn_0))" -"(let-values(((orig-s_99) s_891))" +"(let-values(((s_889) s-defn_0))" +"(let-values(((orig-s_99) s_889))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_892)(if(syntax?$1 s_891)(syntax-e$1 s_891) s_891)))" -"(if(pair? s_892)" +"(let-values(((s_890)(if(syntax?$1 s_889)(syntax-e$1 s_889) s_889)))" +"(if(pair? s_890)" "(let-values(((define-values730_0)" -"(let-values(((s_893)(car s_892))) s_893))" +"(let-values(((s_891)(car s_890))) s_891))" "((_731_0)" -"(let-values(((s_894)(cdr s_892)))" -"(let-values(((s_895)" -"(if(syntax?$1 s_894)" -"(syntax-e$1 s_894)" -" s_894)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_895)))" +"(let-values(((s_892)(cdr s_890)))" +"(let-values(((s_893)" +"(if(syntax?$1 s_892)" +"(syntax-e$1 s_892)" +" s_892)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_893)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78029,12 +78045,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_400 lst_86)" +"(lambda(fold-var_400 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_167)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((id_168)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_400))" "(let-values(((fold-var_401)" @@ -78042,7 +78058,7 @@ static const char *startup_source = "(cons" "(let-values()" "(remove-use-site-scopes" -" id_167" +" id_168" " ctx_126))" " fold-var_62))))" "(values fold-var_401)))))" @@ -78058,36 +78074,36 @@ static const char *startup_source = "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_101) tl-ids_2))" +"(let-values(((lst_100) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_340)" -"(lambda(fold-var_217 lst_87)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_339)" +"(lambda(fold-var_219 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((id_168)(unsafe-car lst_87))" -"((rest_241)(unsafe-cdr lst_87)))" +"(if(pair? lst_86)" +"(let-values(((id_169)(unsafe-car lst_86))" +"((rest_243)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_152) fold-var_217))" -"(let-values(((fold-var_220)" +"(let-values(((fold-var_153) fold-var_219))" +"(let-values(((fold-var_222)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_168" +" id_169" " top-level-bind-scope_6))" -" fold-var_152))))" -"(values fold-var_220)))))" +" fold-var_153))))" +"(values fold-var_222)))))" "(if(not #f)" -"(for-loop_340 fold-var_26 rest_241)" +"(for-loop_339 fold-var_26 rest_243)" " fold-var_26)))" -" fold-var_217)))))" -" for-loop_340)" +" fold-var_219)))))" +" for-loop_339)" " null" -" lst_101))))))" +" lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" "(void" "(add-core-form!*" @@ -78108,25 +78124,25 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_171) s_0))" -"(let-values(((orig-s_100) s_171))" +"(let-values(((s_172) s_0))" +"(let-values(((orig-s_100) s_172))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(let-values(((s_40)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" "(if(pair? s_40)" "(let-values(((define-values4_0)(let-values(((s_72)(car s_40))) s_72))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_173)" +"(let-values(((s_174)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_173)" +"(if(pair? s_174)" "(let-values(((id7_0)" -"(let-values(((s_158)(car s_173)))" +"(let-values(((s_159)(car s_174)))" "(let-values(((s_5)" -"(if(syntax?$1 s_158)" -"(syntax-e$1 s_158)" -" s_158)))" +"(if(syntax?$1 s_159)" +"(syntax-e$1 s_159)" +" s_159)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" " s_5)))" @@ -78137,7 +78153,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_169)" +"(let-values(((id_5)" "(let-values(((lst_24)" " flat-s_66))" "(begin" @@ -78147,61 +78163,61 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(id_6" -" lst_81)" +"((letrec-values(((for-loop_252)" +"(lambda(id_170" +" lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_81)" -"(let-values(((s_182)" +" lst_80)" +"(let-values(((s_183)" "(unsafe-car" -" lst_81))" -"((rest_141)" +" lst_80))" +"((rest_143)" "(unsafe-cdr" -" lst_81)))" -"(let-values(((id_170)" -"(let-values(((id_52)" -" id_6))" +" lst_80)))" "(let-values(((id_171)" +"(let-values(((id_53)" +" id_170))" +"(let-values(((id_172)" "(let-values()" "(let-values(((id10_1)" "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_182)" +" s_183)" "(symbol?" "(syntax-e$1" -" s_182))" +" s_183))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_182)))" -" s_182" +" s_183)))" +" s_183" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_182)))))" +" s_183)))))" "(cons" " id10_1" -" id_52)))))" +" id_53)))))" "(values" -" id_171)))))" +" id_172)))))" "(if(not" " #f)" -"(for-loop_253" -" id_170" -" rest_141)" -" id_170)))" -" id_6)))))" -" for-loop_253)" +"(for-loop_252" +" id_171" +" rest_143)" +" id_171)))" +" id_170)))))" +" for-loop_252)" " null" " lst_24)))))" -"(reverse$1 id_169))))))))" +"(reverse$1 id_5))))))))" "((rhs8_0)" -"(let-values(((s_84)(cdr s_173)))" +"(let-values(((s_84)(cdr s_174)))" "(let-values(((s_383)" "(if(syntax?$1 s_84)" "(syntax-e$1 s_84)" @@ -78213,15 +78229,15 @@ static const char *startup_source = " s_383)))" " s_43))" "(()" -"(let-values(((s_303)" +"(let-values(((s_304)" "(cdr" " s_383)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_303)" +" s_304)" "(syntax-e$1" -" s_303)" -" s_303)))" +" s_304)" +" s_304)))" "(if(null?" " s_35)" "(values)" @@ -78254,7 +78270,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_896 ctx_127)" +"(lambda(s_894 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78271,9 +78287,9 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_896)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_894)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_896)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_894)))" "(let-values(((ok?_93 define-syntaxes15_0 id16_1 rhs17_0)" "(let-values(((s_426) disarmed-s_26))" "(let-values(((orig-s_101) s_426))" @@ -78283,21 +78299,21 @@ static const char *startup_source = "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_461)(cdr s_20)))" +"(let-values(((s_460)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_461)" -"(syntax-e$1 s_461)" -" s_461)))" +"(if(syntax?$1 s_460)" +"(syntax-e$1 s_460)" +" s_460)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_743)(car s_24)))" -"(let-values(((s_468)" -"(if(syntax?$1 s_743)" -"(syntax-e$1 s_743)" -" s_743)))" +"(let-values(((s_741)(car s_24)))" +"(let-values(((s_467)" +"(if(syntax?$1 s_741)" +"(syntax-e$1 s_741)" +" s_741)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" -" s_468)))" +" s_467)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -78305,8 +78321,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_101))" "(let-values()" -"(let-values(((id_172)" -"(let-values(((lst_180)" +"(let-values(((id_173)" +"(let-values(((lst_181)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78314,84 +78330,84 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_180)))" -"((letrec-values(((for-loop_341)" -"(lambda(id_173" +" lst_181)))" +"((letrec-values(((for-loop_340)" +"(lambda(id_174" " lst_460)" "(begin" " 'for-loop" "(if(pair?" " lst_460)" -"(let-values(((s_149)" +"(let-values(((s_895)" "(unsafe-car" " lst_460))" -"((rest_262)" +"((rest_264)" "(unsafe-cdr" " lst_460)))" -"(let-values(((id_174)" -"(let-values(((id_97)" -" id_173))" +"(let-values(((id_175)" "(let-values(((id_98)" +" id_174))" +"(let-values(((id_99)" "(let-values()" "(let-values(((id24_1)" "(let-values()" "(if(let-values(((or-part_362)" "(if(syntax?$1" -" s_149)" +" s_895)" "(symbol?" "(syntax-e$1" -" s_149))" +" s_895))" " #f)))" "(if or-part_362" " or-part_362" "(symbol?" -" s_149)))" -" s_149" +" s_895)))" +" s_895" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_101" -" s_149)))))" +" s_895)))))" "(cons" " id24_1" -" id_97)))))" -"(values" " id_98)))))" +"(values" +" id_99)))))" "(if(not" " #f)" -"(for-loop_341" -" id_174" -" rest_262)" -" id_174)))" -" id_173)))))" -" for-loop_341)" +"(for-loop_340" +" id_175" +" rest_264)" +" id_175)))" +" id_174)))))" +" for-loop_340)" " null" -" lst_180)))))" -"(reverse$1 id_172))))))))" +" lst_181)))))" +"(reverse$1 id_173))))))))" "((rhs22_0)" -"(let-values(((s_495)(cdr s_24)))" -"(let-values(((s_476)" -"(if(syntax?$1 s_495)" -"(syntax-e$1 s_495)" -" s_495)))" -"(if(pair? s_476)" +"(let-values(((s_493)(cdr s_24)))" +"(let-values(((s_475)" +"(if(syntax?$1 s_493)" +"(syntax-e$1 s_493)" +" s_493)))" +"(if(pair? s_475)" "(let-values(((rhs23_2)" -"(let-values(((s_167)" +"(let-values(((s_168)" "(car" -" s_476)))" -" s_167))" +" s_475)))" +" s_168))" "(()" "(let-values(((s_44)" "(cdr" -" s_476)))" -"(let-values(((s_477)" +" s_475)))" +"(let-values(((s_476)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_477)" +" s_476)" "(values)" "(raise-syntax-error$1" " #f" @@ -78410,26 +78426,26 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_896 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_894 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-define-syntaxes20.1 s_896 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_896)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_894 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_894)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_480 ctx_10)" +"(lambda(s_479 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_480)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_479)))" "(values))))" "(let-values(((ok?_94 begin-for-syntax29_0 form30_0)" -"(let-values(((s_421) s_480))" +"(let-values(((s_421) s_479))" "(let-values(((orig-s_102) s_421))" "(let-values(((begin-for-syntax29_1 form30_1)" "(let-values(((s_422)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" @@ -78438,9 +78454,9 @@ static const char *startup_source = "(let-values(((s_31)(car s_422))) s_31))" "((form32_0)" "(let-values(((s_46)(cdr s_422)))" -"(let-values(((s_150)" +"(let-values(((s_896)" "(if(syntax?$1 s_46)(syntax-e$1 s_46) s_46)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_150)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_896)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102))" @@ -78470,63 +78486,63 @@ static const char *startup_source = "(make-lift-context6.1 #f #f temp36_10))))" "(let-values(((capture-ctx_1)" "(let-values(((v_77) trans-ctx_1))" -"(let-values(((the-struct_123) v_77))" -"(if(expand-context/outer? the-struct_123)" +"(let-values(((the-struct_124) v_77))" +"(if(expand-context/outer? the-struct_124)" "(let-values(((inner37_0)" -"(let-values(((the-struct_124)" +"(let-values(((the-struct_125)" "(root-expand-context/outer-inner v_77)))" -"(if(expand-context/inner? the-struct_124)" +"(if(expand-context/inner? the-struct_125)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_124)" -"(root-expand-context/inner-module-scopes the-struct_124)" +"(root-expand-context/inner-self-mpi the-struct_125)" +"(root-expand-context/inner-module-scopes the-struct_125)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_124)" -"(root-expand-context/inner-all-scopes-stx the-struct_124)" -"(root-expand-context/inner-defined-syms the-struct_124)" -"(root-expand-context/inner-counter the-struct_124)" +" the-struct_125)" +"(root-expand-context/inner-all-scopes-stx the-struct_125)" +"(root-expand-context/inner-defined-syms the-struct_125)" +"(root-expand-context/inner-counter the-struct_125)" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_124)" -"(expand-context/inner-phase the-struct_124)" -"(expand-context/inner-namespace the-struct_124)" -"(expand-context/inner-just-once? the-struct_124)" -"(expand-context/inner-module-begin-k the-struct_124)" -"(expand-context/inner-allow-unbound? the-struct_124)" -"(expand-context/inner-in-local-expand? the-struct_124)" -"(expand-context/inner-stops the-struct_124)" -"(expand-context/inner-declared-submodule-names the-struct_124)" +"(expand-context/inner-to-parsed? the-struct_125)" +"(expand-context/inner-phase the-struct_125)" +"(expand-context/inner-namespace the-struct_125)" +"(expand-context/inner-just-once? the-struct_125)" +"(expand-context/inner-module-begin-k the-struct_125)" +"(expand-context/inner-allow-unbound? the-struct_125)" +"(expand-context/inner-in-local-expand? the-struct_125)" +"(expand-context/inner-stops the-struct_125)" +"(expand-context/inner-declared-submodule-names the-struct_125)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_124)" -"(expand-context/inner-module-lifts the-struct_124)" -"(expand-context/inner-require-lifts the-struct_124)" -"(expand-context/inner-to-module-lifts the-struct_124)" -"(expand-context/inner-requires+provides the-struct_124)" -"(expand-context/inner-observer the-struct_124)" -"(expand-context/inner-for-serializable? the-struct_124)" +"(expand-context/inner-lift-envs the-struct_125)" +"(expand-context/inner-module-lifts the-struct_125)" +"(expand-context/inner-require-lifts the-struct_125)" +"(expand-context/inner-to-module-lifts the-struct_125)" +"(expand-context/inner-requires+provides the-struct_125)" +"(expand-context/inner-observer the-struct_125)" +"(expand-context/inner-for-serializable? the-struct_125)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_124)))" +" the-struct_125)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_124)))))" +" the-struct_125)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_123)" -"(root-expand-context/outer-use-site-scopes the-struct_123)" -"(root-expand-context/outer-frame-id the-struct_123)" -"(expand-context/outer-context the-struct_123)" -"(expand-context/outer-env the-struct_123)" -"(expand-context/outer-post-expansion-scope-action the-struct_123)" -"(expand-context/outer-scopes the-struct_123)" -"(expand-context/outer-def-ctx-scopes the-struct_123)" -"(expand-context/outer-binding-layer the-struct_123)" -"(expand-context/outer-reference-records the-struct_123)" -"(expand-context/outer-only-immediate? the-struct_123)" -"(expand-context/outer-need-eventually-defined the-struct_123)" -"(expand-context/outer-current-introduction-scopes the-struct_123)" -"(expand-context/outer-name the-struct_123)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_124)" +"(root-expand-context/outer-use-site-scopes the-struct_124)" +"(root-expand-context/outer-frame-id the-struct_124)" +"(expand-context/outer-context the-struct_124)" +"(expand-context/outer-env the-struct_124)" +"(expand-context/outer-post-expansion-scope-action the-struct_124)" +"(expand-context/outer-scopes the-struct_124)" +"(expand-context/outer-def-ctx-scopes the-struct_124)" +"(expand-context/outer-binding-layer the-struct_124)" +"(expand-context/outer-reference-records the-struct_124)" +"(expand-context/outer-only-immediate? the-struct_124)" +"(expand-context/outer-need-eventually-defined the-struct_124)" +"(expand-context/outer-current-introduction-scopes the-struct_124)" +"(expand-context/outer-name the-struct_124)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_124))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_87)" "(lambda(forms_0)" @@ -78542,7 +78558,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_480))))" +"(datum->syntax$1 #f form30_0 s_479))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -78568,7 +78584,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_480))))" +" s_479))))" "(void)))" " forms_2)))" "(let-values()" @@ -78649,8 +78665,8 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_480 all-exp-forms_0)" -"(let-values(((s45_0) s_480)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_479 all-exp-forms_0)" +"(let-values(((s45_0) s_479)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -78669,19 +78685,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_95 #%require47_0 req48_0)" -"(let-values(((s_196) disarmed-s_27))" -"(let-values(((orig-s_4) s_196))" +"(let-values(((s_197) disarmed-s_27))" +"(let-values(((orig-s_4) s_197))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_58)(if(syntax?$1 s_196)(syntax-e$1 s_196) s_196)))" +"(let-values(((s_58)(if(syntax?$1 s_197)(syntax-e$1 s_197) s_197)))" "(if(pair? s_58)" -"(let-values(((#%require49_0)(let-values(((s_501)(car s_58))) s_501))" +"(let-values(((#%require49_0)(let-values(((s_499)(car s_58))) s_499))" "((req50_0)" "(let-values(((s_897)(cdr s_58)))" -"(let-values(((s_198)" +"(let-values(((s_199)" "(if(syntax?$1 s_897)" "(syntax-e$1 s_897)" " s_897)))" -"(let-values(((flat-s_69)(to-syntax-list.1 s_198)))" +"(let-values(((flat-s_69)(to-syntax-list.1 s_199)))" "(if(not flat-s_69)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -78698,15 +78714,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_342)" -"(lambda(fold-var_295 lst_152)" +"((letrec-values(((for-loop_341)" +"(lambda(fold-var_296 lst_153)" "(begin" " 'for-loop" -"(if(pair? lst_152)" -"(let-values(((req_20)(unsafe-car lst_152))" -"((rest_263)(unsafe-cdr lst_152)))" +"(if(pair? lst_153)" +"(let-values(((req_20)(unsafe-car lst_153))" +"((rest_265)(unsafe-cdr lst_153)))" "(let-values(((fold-var_402)" -"(let-values(((fold-var_298) fold-var_295))" +"(let-values(((fold-var_299) fold-var_296))" "(let-values(((fold-var_403)" "(let-values()" "(cons" @@ -78714,13 +78730,13 @@ static const char *startup_source = "(add-scope" " req_20" " sc_40))" -" fold-var_298))))" +" fold-var_299))))" "(values fold-var_403)))))" "(if(not #f)" -"(for-loop_342 fold-var_402 rest_263)" +"(for-loop_341 fold-var_402 rest_265)" " fold-var_402)))" -" fold-var_295)))))" -" for-loop_342)" +" fold-var_296)))))" +" for-loop_341)" " null" " lst_461)))))" "((s52_0) s_33)" @@ -78759,11 +78775,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_318 ctx_129)" +"(lambda(s_319 ctx_129)" "(begin" "(let-values(((obs_171)(expand-context-observer ctx_129)))" "(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_318)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_319)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78809,12 +78825,12 @@ static const char *startup_source = "(let-values(((table_231) table_230))" "(let-values(((table_186)" "(let-values()" -"(let-values(((key_98 val_90)" +"(let-values(((key_98 val_89)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_231 key_98 val_90)))))" +"(hash-set table_231 key_98 val_89)))))" "(values table_186)))))" "(if(not #f)" "(for-loop_20 table_217(hash-iterate-next ht_172 i_3))" @@ -78829,28 +78845,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_173)))" -"((letrec-values(((for-loop_324)" -"(lambda(table_189 i_187)" +"((letrec-values(((for-loop_323)" +"(lambda(table_189 i_186)" "(begin" " 'for-loop" -"(if i_187" -"(let-values(((name_82)(hash-iterate-key ht_173 i_187)))" +"(if i_186" +"(let-values(((name_82)(hash-iterate-key ht_173 i_186)))" "(let-values(((table_116)" "(let-values(((table_109) table_189))" "(let-values(((table_110)" "(let-values()" -"(let-values(((key_99 val_91)" +"(let-values(((key_99 val_90)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_109 key_99 val_91)))))" +"(hash-set table_109 key_99 val_90)))))" "(values table_110)))))" "(if(not #f)" -"(for-loop_324 table_116(hash-iterate-next ht_173 i_187))" +"(for-loop_323 table_116(hash-iterate-next ht_173 i_186))" " table_116)))" " table_189)))))" -" for-loop_324)" +" for-loop_323)" " '#hash()" "(hash-iterate-first ht_173))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))"