diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index 0d8ddd39e9..0b2dbaaadb 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2535,6 +2535,53 @@ case of module-leve bindings; it doesn't cover local bindings. (compile/eval u-code) (test 'ns-val dynamic-require ''u 'v)))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Another example to check that re-expansion generates definition +;; names consistent with the previoud expansion. + +(parameterize ([current-namespace (make-base-namespace)]) + (define modbeg-trampoline + '(module modbeg-trampoline racket/base + (require (for-syntax racket/base + syntax/strip-context)) + + (provide (rename-out [module-begin #%module-begin])) + + (define-syntax (module-begin stx) + (syntax-case stx () + [(_ lang . body) + #'(#%plain-module-begin (module-begin-trampoline lang . body))])) + + (define-syntax (module-begin-trampoline stx) + (syntax-case stx () + [(_ lang . body) + (with-syntax ([[modbeg . [body* ...]] (syntax-local-introduce + (syntax-local-lift-require + (strip-context #'lang) + (datum->syntax #f (cons '#%module-begin + (strip-context #'body)))))]) + (with-syntax ([body** (if (= (length (syntax->list #'(body* ...))) 1) + (error "oops") + #'(modbeg . [body* ...]))]) + (with-syntax ([(modbeg* form ...) (local-expand #'body** 'module-begin #f)]) + (with-syntax ([body*** (local-expand #'(modbeg* form ...) 'module-begin (list #'module*))]) + (with-syntax ([(modbeg**:#%plain-module-begin form* ...) #'body***]) + (syntax-track-origin #`(begin form* ...) #'body*** #'modbeg**))))))])))) + + (define m-use + '(module m-use 'modbeg-trampoline racket/base + (require racket/contract/base) + (provide (contract-out [f (-> number? number?)])) + (define (f x) (+ x 42)) + (module* main racket + (require (submod "..")) + (f 10)))) + + (eval modbeg-trampoline) + (eval (expand m-use)) + + (dynamic-require '(submod 'm-use main) #f)) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 5e9cf62cc1..fd8c8c04e2 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -3,6 +3,7 @@ "../common/struct-star.rkt" "../common/performance.rkt" "../syntax/syntax.rkt" + "../syntax/debug.rkt" "../syntax/property.rkt" "../syntax/scope.rkt" "../syntax/taint.rkt" @@ -233,7 +234,7 @@ (hash-clear! compiled-submodules) (set-box! compiled-module-box #f)) (set! again? #t) - + ;; In case a nested `#%module-begin` expansion is forced, save ;; and restore the module-expansion state: (define ctx (struct*-copy expand-context mb-init-ctx @@ -249,7 +250,8 @@ #:copy-requires requires+provides)) (with-save-and-restore ([requires+provides new-requires+provides] [compiled-submodules (make-hasheq)] - [compiled-module-box (box #f)]) + [compiled-module-box (box #f)] + [defined-syms (make-hasheq)]) (module-begin-k s ctx)))])) ;; In case `#%module-begin` expansion is forced on syntax that diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index a72bd2d219..c68467e81e 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -12934,8 +12934,7 @@ static const char *startup_source = "(let-values(((expr_0) expr1_0))" "(let-values(((sub-expr_0) sub-expr2_0))" "(let-values(((extra-sources_0) extra-sources3_0))" -"(let-values(((message-suffix_0)" -" (if (eq? message-suffix4_0 unsafe-undefined) \"\" message-suffix4_0)))" +"(let-values(((message-suffix_0) message-suffix4_0))" "(let-values()" "(let-values()" "(let-values()" @@ -12949,16 +12948,14 @@ static const char *startup_source = " extra-sources_0" " message-suffix_0))))))))))))))" "(case-lambda" -"((given-name_1 message_1)" -"(begin 'raise-syntax-error(raise-syntax-error7_0 given-name_1 message_1 #f #f null unsafe-undefined)))" +" ((given-name_1 message_1) (begin 'raise-syntax-error (raise-syntax-error7_0 given-name_1 message_1 #f #f null \"\")))" "((given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1)" "(raise-syntax-error7_0 given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1))" "((given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1)" -"(raise-syntax-error7_0 given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1 unsafe-undefined))" +" (raise-syntax-error7_0 given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1 \"\"))" "((given-name_4 message_4 expr_3 sub-expr2_1)" -"(raise-syntax-error7_0 given-name_4 message_4 expr_3 sub-expr2_1 null unsafe-undefined))" -"((given-name_5 message_5 expr1_1)" -"(raise-syntax-error7_0 given-name_5 message_5 expr1_1 #f null unsafe-undefined)))))" +" (raise-syntax-error7_0 given-name_4 message_4 expr_3 sub-expr2_1 null \"\"))" +" ((given-name_5 message_5 expr1_1) (raise-syntax-error7_0 given-name_5 message_5 expr1_1 #f null \"\")))))" "(define-values" "(raise-unbound-syntax-error)" "(let-values(((raise-unbound-syntax-error15_0)" @@ -12970,8 +12967,7 @@ static const char *startup_source = "(let-values(((expr_4) expr9_0))" "(let-values(((sub-expr_3) sub-expr10_0))" "(let-values(((extra-sources_2) extra-sources11_0))" -"(let-values(((message-suffix_1)" -" (if (eq? message-suffix12_0 unsafe-undefined) \"\" message-suffix12_0)))" +"(let-values(((message-suffix_1) message-suffix12_0))" "(let-values()" "(let-values()" "(let-values()" @@ -12985,16 +12981,15 @@ static const char *startup_source = " extra-sources_2" " message-suffix_1))))))))))))))" "(case-lambda" -"((given-name_7 message_7)" -"(begin(raise-unbound-syntax-error15_0 given-name_7 message_7 #f #f null unsafe-undefined)))" +" ((given-name_7 message_7) (begin (raise-unbound-syntax-error15_0 given-name_7 message_7 #f #f null \"\")))" "((given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix12_1)" "(raise-unbound-syntax-error15_0 given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix12_1))" "((given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1)" -"(raise-unbound-syntax-error15_0 given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1 unsafe-undefined))" +" (raise-unbound-syntax-error15_0 given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1 \"\"))" "((given-name_10 message_10 expr_7 sub-expr10_1)" -"(raise-unbound-syntax-error15_0 given-name_10 message_10 expr_7 sub-expr10_1 null unsafe-undefined))" +" (raise-unbound-syntax-error15_0 given-name_10 message_10 expr_7 sub-expr10_1 null \"\"))" "((given-name_11 message_11 expr9_1)" -"(raise-unbound-syntax-error15_0 given-name_11 message_11 expr9_1 #f null unsafe-undefined)))))" +" (raise-unbound-syntax-error15_0 given-name_11 message_11 expr9_1 #f null \"\")))))" "(define-values" "(do-raise-syntax-error)" "(lambda(who_8 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)" @@ -48240,7 +48235,7 @@ static const char *startup_source = "(if(eq? continuation-marks1_0 unsafe-undefined)" "(current-continuation-marks)" " continuation-marks1_0)))" -"(let-values(((due-to_0)(if(eq? due-to2_0 unsafe-undefined) '#\\x due-to2_0)))" +"(let-values(((due-to_0) due-to2_0))" "(let-values(((who_28)" "(if(eq? who3_0 unsafe-undefined)" "(if(read-config-for-syntax? config_16) 'read-syntax 'read)" @@ -48275,7 +48270,7 @@ static const char *startup_source = "(let-values(((in_7) in17_0))" "(let-values(((config_17) config18_0))" "(let-values(((str_26) str19_0))" -"(let-values(((due-to_1)(if(eq? due-to15_0 unsafe-undefined) '#\\x due-to15_0)))" +"(let-values(((due-to_1) due-to15_0))" "(let-values()" "(let-values(((in26_0) in_7)" "((config27_0) config_17)" @@ -48309,7 +48304,7 @@ static const char *startup_source = "((temp37_2)(exn-continuation-marks exn_3)))" "(reader-error12.1" " temp37_2" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in33_0" @@ -49078,7 +49073,7 @@ static const char *startup_source = " \"illegal use of `.`\"))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in30_0" @@ -51256,7 +51251,7 @@ static const char *startup_source = " ((temp22_5) \"illegal use of `.`\"))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in20_1" @@ -51290,7 +51285,7 @@ static const char *startup_source = "((num26_0) num_0))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in23_1" @@ -51306,7 +51301,7 @@ static const char *startup_source = "((temp30_4)(string-append mode_18 str_29)))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in27_0" @@ -51344,7 +51339,7 @@ static const char *startup_source = "((v4_1) v_233))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in1_3" @@ -51369,7 +51364,7 @@ static const char *startup_source = "((v8_0) v_29))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in5_0" @@ -51615,7 +51610,7 @@ static const char *startup_source = "((len27_0) len_39))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in22_1" @@ -51843,7 +51838,7 @@ static const char *startup_source = "((c231_0) c2_4))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in28_0" @@ -51904,7 +51899,7 @@ static const char *startup_source = "(let-values(((in48_0) in_32)" "((config49_0) config_40)" " ((temp50_1) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_87 c2_4))))" -"(bad-syntax-error20.1 unsafe-undefined in48_0 config49_0 temp50_1)))))" +"(bad-syntax-error20.1 '#\\x in48_0 config49_0 temp50_1)))))" "(if(equal? tmp_46 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_40)" @@ -51930,7 +51925,7 @@ static const char *startup_source = "(let-values(((in59_0) in_32)" "((config60_0) config_40)" " ((temp61_3) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_87 c2_4))))" -"(bad-syntax-error20.1 unsafe-undefined in59_0 config60_0 temp61_3)))))" +"(bad-syntax-error20.1 '#\\x in59_0 config60_0 temp61_3)))))" "(let-values()" "(let-values(((in62_0) in_32)" "((config63_0) config_40)" @@ -51990,7 +51985,7 @@ static const char *startup_source = "(let-values(((in1_4) in_5)" "((config2_3) config_15)" " ((temp3_7) (format \"~as~a\" dispatch-c_1 c_25)))" -"(bad-syntax-error20.1 unsafe-undefined in1_4 config2_3 temp3_7)))))" +"(bad-syntax-error20.1 '#\\x in1_4 config2_3 temp3_7)))))" "(if(equal? tmp_47 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_15)" @@ -51999,7 +51994,7 @@ static const char *startup_source = "(let-values(((in4_1) in_5)" "((config5_1) config_15)" " ((temp6_2) (format \"~as~a\" dispatch-c_1 c_25)))" -"(bad-syntax-error20.1 unsafe-undefined in4_1 config5_1 temp6_2)))))" +"(bad-syntax-error20.1 '#\\x in4_1 config5_1 temp6_2)))))" "(let-values()" "(let-values(((in7_0) in_5)" "((config8_0) config_15)" @@ -52008,7 +52003,7 @@ static const char *startup_source = "((dispatch-c11_0) dispatch-c_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in7_0" @@ -52025,7 +52020,7 @@ static const char *startup_source = "((dispatch-c15_0) dispatch-c_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in12_0" @@ -52045,7 +52040,7 @@ static const char *startup_source = "((dispatch-c19_0) dispatch-c_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in16_0" @@ -52079,7 +52074,7 @@ static const char *startup_source = "((dispatch-c25_0) dispatch-c_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in22_2" @@ -52097,7 +52092,7 @@ static const char *startup_source = "((dispatch-c29_0) dispatch-c_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in26_1" @@ -52200,7 +52195,7 @@ static const char *startup_source = "(let-values(((in24_0) in_37)" "((config25_0) config_43)" "((temp26_4)(get-accum_0(get-accum_0 c_88))))" -"(bad-syntax-error20.1 unsafe-undefined in24_0 config25_0 temp26_4))))))" +"(bad-syntax-error20.1 '#\\x in24_0 config25_0 temp26_4))))))" "(if(equal? tmp_48 '#\\{)" "(let-values()" "(begin" @@ -52227,7 +52222,7 @@ static const char *startup_source = "(let-values(((in34_1) in_37)" "((config35_1) config_43)" "((temp36_6)(get-accum_0(get-accum_0 c_88))))" -"(bad-syntax-error20.1 unsafe-undefined in34_1 config35_1 temp36_6))))))" +"(bad-syntax-error20.1 '#\\x in34_1 config35_1 temp36_6))))))" "(let-values()" "(let-values(((tmp_45) c_88))" "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))" @@ -52248,7 +52243,7 @@ static const char *startup_source = " \"allowed in `read-syntax` mode\")))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in37_1" @@ -52270,7 +52265,7 @@ static const char *startup_source = "((c47_0) c_88))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in42_0" @@ -52302,7 +52297,7 @@ static const char *startup_source = "((c55_0) c_88))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in50_0" @@ -52366,7 +52361,7 @@ static const char *startup_source = "((c74_0) c_88))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in67_0" @@ -52543,7 +52538,7 @@ static const char *startup_source = "((c28_1) c_50))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in25_0" @@ -52598,7 +52593,7 @@ static const char *startup_source = "((c40_1) c_50))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in37_2" @@ -52636,7 +52631,7 @@ static const char *startup_source = " config46_0))))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in41_0" @@ -52739,7 +52734,7 @@ static const char *startup_source = "((temp64_3)(indentation-unexpected-closer-message ec_8 c_89 config_45)))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in61_0" @@ -52765,7 +52760,7 @@ static const char *startup_source = "((temp68_3)(all-openers-str config_45)))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in65_0" @@ -52939,7 +52934,7 @@ static const char *startup_source = " mode_11))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in18_1" @@ -53227,7 +53222,7 @@ static const char *startup_source = " mode_11))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in31_2" @@ -53459,7 +53454,7 @@ static const char *startup_source = " config61_0))))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in55_2" @@ -53597,7 +53592,7 @@ static const char *startup_source = " config83_0))))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in77_1" @@ -53623,7 +53618,7 @@ static const char *startup_source = "((c88_0) c_17))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in85_0" @@ -53954,7 +53949,7 @@ static const char *startup_source = "(accum-string-get!6.1 0 accum-str25_0 config26_1))))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in21_2" @@ -54057,7 +54052,7 @@ static const char *startup_source = "((name32_0) name_68))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in29_0" @@ -54151,7 +54146,7 @@ static const char *startup_source = "(accum-string-get!6.1 0 accum-str12_0 config13_1))))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in8_1" @@ -54177,7 +54172,7 @@ static const char *startup_source = "(accum-string-get!6.1 0 accum-str18_2 config19_3))))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in14_1" @@ -54207,7 +54202,7 @@ static const char *startup_source = "((dispatch-c4_0) dispatch-c_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in1_7" @@ -54332,7 +54327,7 @@ static const char *startup_source = "((extend-str55_0) extend-str_0))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in52_0" @@ -54399,7 +54394,7 @@ static const char *startup_source = "((extend-str70_0) extend-str_1))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in67_1" @@ -54442,7 +54437,7 @@ static const char *startup_source = "((config79_0) config_49)" "((temp80_1)" "(if(char? c_99)(string dispatch-c_4 '#\\! c_99)(string dispatch-c_4 '#\\!))))" -"(bad-syntax-error20.1 unsafe-undefined in78_0 config79_0 temp80_1))))" +"(bad-syntax-error20.1 '#\\x in78_0 config79_0 temp80_1))))" "(let-values(((temp71_1)(string dispatch-c_4 '#\\!))" "((read-recur72_0) read-recur_2)" "((in73_0) in_59)" @@ -54484,7 +54479,7 @@ static const char *startup_source = "((extend-str91_0) extend-str_2))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in88_0" @@ -54569,7 +54564,7 @@ static const char *startup_source = "((c101_0) c_9))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in97_1" @@ -54594,7 +54589,7 @@ static const char *startup_source = "((extend-str107_0) extend-str_2))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in104_0" @@ -54614,7 +54609,7 @@ static const char *startup_source = "((extend-str111_0) extend-str_2))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in108_0" @@ -54636,7 +54631,7 @@ static const char *startup_source = "((extend-str115_0) extend-str_2))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in112_0" @@ -55280,7 +55275,7 @@ static const char *startup_source = "((c86_0) c_30))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in83_0" @@ -55328,7 +55323,7 @@ static const char *startup_source = "((c90_0) c_30))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in87_0" @@ -55369,7 +55364,7 @@ static const char *startup_source = "(indentation-unexpected-closer-message ec_10 c_30 r-config_0)))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in98_0" @@ -55414,7 +55409,7 @@ static const char *startup_source = "((c112_0) c_30))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in109_0" @@ -55438,7 +55433,7 @@ static const char *startup_source = " r-config_0)))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in113_1" @@ -55452,7 +55447,7 @@ static const char *startup_source = "((c120_0) c_30))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in117_0" @@ -55497,7 +55492,7 @@ static const char *startup_source = "((c131_0) c_30))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in128_0" @@ -55522,7 +55517,7 @@ static const char *startup_source = " r-config_0)))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in132_0" @@ -55536,7 +55531,7 @@ static const char *startup_source = "((c139_0) c_30))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in136_0" @@ -55724,7 +55719,7 @@ static const char *startup_source = "((c160_0) c_107))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in156_0" @@ -55773,7 +55768,7 @@ static const char *startup_source = "(let-values(((in173_0) in_70)" "((config174_0) config_58)" " ((temp175_0) (format \"~a~a\" dispatch-c_5 c_107)))" -"(bad-syntax-error20.1 unsafe-undefined in173_0 config174_0 temp175_0)))))" +"(bad-syntax-error20.1 '#\\x in173_0 config174_0 temp175_0)))))" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_58)" "(let-values()" @@ -55796,7 +55791,7 @@ static const char *startup_source = "(let-values(((in182_0) in_70)" "((config183_0) config_58)" " ((temp184_0) (format \"~a~a\" dispatch-c_5 c_107)))" -"(bad-syntax-error20.1 unsafe-undefined in182_0 config183_0 temp184_0))))))" +"(bad-syntax-error20.1 '#\\x in182_0 config183_0 temp184_0))))))" "(if(unsafe-fx< index_5 6)" "(let-values()(read-struct read-one dispatch-c_5 in_70 config_58))" "(if(unsafe-fx< index_5 7)" @@ -56163,7 +56158,7 @@ static const char *startup_source = "((dispatch-c279_0) dispatch-c_5))" "(reader-error12.1" " unsafe-undefined" -" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in276_0" @@ -71720,35 +71715,41 @@ static const char *startup_source = "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" -"(let-values(((self314_0)" +"(let-values(((self316_0)" " self_32)" -"((requires+provides315_0)" +"((requires+provides317_0)" " requires+provides_6))" "(make-requires+provides8.1" -" requires+provides315_0" -" self314_0))))" +" requires+provides317_0" +" self316_0))))" "(let-values(((requires+provides308_0)" " requires+provides_6)" "((compiled-submodules309_0)" " compiled-submodules_1)" "((compiled-module-box310_0)" " compiled-module-box_0)" -"((requires+provides311_0)" +"((defined-syms311_0)" +" defined-syms_11)" +"((requires+provides312_0)" " new-requires+provides_0)" -"((compiled-submodules312_0)" +"((compiled-submodules313_0)" "(make-hasheq))" -"((compiled-module-box313_0)" +"((compiled-module-box314_0)" "(box" -" #f)))" +" #f))" +"((defined-syms315_0)" +"(make-hasheq)))" "(dynamic-wind" "(lambda()" "(begin" "(set! requires+provides_6" -" requires+provides311_0)" +" requires+provides312_0)" "(set! compiled-submodules_1" -" compiled-submodules312_0)" +" compiled-submodules313_0)" "(set! compiled-module-box_0" -" compiled-module-box313_0)))" +" compiled-module-box314_0)" +"(set! defined-syms_11" +" defined-syms315_0)))" "(lambda()" "(module-begin-k_1" " s_436" @@ -71760,7 +71761,9 @@ static const char *startup_source = "(set! compiled-submodules_1" " compiled-submodules309_0)" "(set! compiled-module-box_0" -" compiled-module-box310_0))))))))))" +" compiled-module-box310_0)" +"(set! defined-syms_11" +" defined-syms311_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_102)" @@ -71857,14 +71860,14 @@ static const char *startup_source = " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_130)" +"(let-values(((obs_20)" "(expand-context-observer" " ctx_111)))" -"(if obs_130" +"(if obs_20" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_130" +" obs_20" " 'rename-one" " added-s_2)))" "(void)))" @@ -71875,38 +71878,38 @@ static const char *startup_source = "(let-values(((ok?_80" " #%module-begin301_0" " body302_0)" -"(let-values(((s_437)" +"(let-values(((s_427)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_437))" +" s_427))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_116)" +"(let-values(((s_118)" "(if(syntax?$1" -" s_437)" +" s_427)" "(syntax-e$1" -" s_437)" -" s_437)))" +" s_427)" +" s_427)))" "(if(pair?" -" s_116)" +" s_118)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_225)" -"(car" -" s_116)))" -" s_225))" -"((body304_0)" -"(let-values(((s_119)" -"(cdr" -" s_116)))" "(let-values(((s_807)" +"(car" +" s_118)))" +" s_807))" +"((body304_0)" +"(let-values(((s_120)" +"(cdr" +" s_118)))" +"(let-values(((s_226)" "(if(syntax?$1" -" s_119)" +" s_120)" "(syntax-e$1" -" s_119)" -" s_119)))" +" s_120)" +" s_120)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_807)))" +" s_226)))" "(if(not" " flat-s_57)" "(let-values()" @@ -71930,16 +71933,16 @@ static const char *startup_source = "(let-values(((bodys_16)" " body302_0))" "(let-values(((rebuild-mb-s_0)" -"(let-values(((ctx316_0)" +"(let-values(((ctx318_0)" " ctx_111)" -"((mb-s317_0)" +"((mb-s319_0)" " mb-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" ctx316_0" -" mb-s317_0))))" +" ctx318_0" +" mb-s319_0))))" "(let-values(((need-eventually-defined_1)" "(make-hasheqv)))" "(let-values(((module-ends_0)" @@ -71967,35 +71970,35 @@ static const char *startup_source = " v_270))" "(if(expand-context/outer?" " the-struct_103)" -"(let-values(((context326_0)" +"(let-values(((context328_0)" " 'module)" -"((def-ctx-scopes327_0)" +"((def-ctx-scopes329_0)" " def-ctx-scopes_8)" -"((need-eventually-defined328_0)" +"((need-eventually-defined330_0)" " need-eventually-defined_1)" -"((inner329_0)" +"((inner331_0)" "(let-values(((the-struct_104)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" " the-struct_104)" -"(let-values(((phase330_0)" +"(let-values(((phase332_0)" " phase_145)" -"((namespace331_0)" +"((namespace333_0)" "(namespace->namespace-at-phase" " m-ns_19" " phase_145))" -"((stops332_0)" +"((stops334_0)" "(free-id-set" " phase_145" "(module-expand-stop-ids" " phase_145)))" -"((declared-submodule-names333_0)" +"((declared-submodule-names335_0)" " declared-submodule-names_3)" -"((lift-key334_0)" +"((lift-key336_0)" "(generate-lift-key))" -"((lifts335_0)" -"(let-values(((temp339_0)" +"((lifts337_0)" +"(let-values(((temp341_0)" "(make-wrap-as-definition" " self_32" " frame-id_16" @@ -72005,38 +72008,38 @@ static const char *startup_source = " requires+provides_6)))" "(make-lift-context6.1" " #f" -" temp339_0)))" -"((module-lifts336_0)" +" temp341_0)))" +"((module-lifts338_0)" "(make-module-lift-context" " phase_145" " #t))" -"((require-lifts337_0)" +"((require-lifts339_0)" "(make-require-lift-context" " phase_145" -"(let-values(((m-ns340_0)" +"(let-values(((m-ns342_0)" " m-ns_19)" -"((self341_0)" +"((self343_0)" " self_32)" -"((requires+provides342_0)" +"((requires+provides344_0)" " requires+provides_6)" -"((declared-submodule-names343_0)" +"((declared-submodule-names345_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" -" declared-submodule-names343_0" -" m-ns340_0" -" self341_0" -" requires+provides342_0))))" -"((to-module-lifts338_0)" -"(let-values(((phase344_0)" +" declared-submodule-names345_0" +" m-ns342_0" +" self343_0" +" requires+provides344_0))))" +"((to-module-lifts340_0)" +"(let-values(((phase346_0)" " phase_145)" -"((module-ends345_0)" +"((module-ends347_0)" " module-ends_0)" -"((temp346_0)" +"((temp348_0)" " #f))" "(make-to-module-lift-context27.1" -" temp346_0" -" module-ends345_0" -" phase344_0))))" +" temp348_0" +" module-ends347_0" +" phase346_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_104)" @@ -72050,11 +72053,11 @@ static const char *startup_source = " the-struct_104)" "(root-expand-context/inner-counter" " the-struct_104)" -" lift-key334_0" +" lift-key336_0" "(expand-context/inner-to-parsed?" " the-struct_104)" -" phase330_0" -" namespace331_0" +" phase332_0" +" namespace333_0" "(expand-context/inner-just-once?" " the-struct_104)" "(expand-context/inner-module-begin-k" @@ -72065,14 +72068,14 @@ static const char *startup_source = " the-struct_104)" "(expand-context/inner-keep-#%expression?" " the-struct_104)" -" stops332_0" -" declared-submodule-names333_0" -" lifts335_0" +" stops334_0" +" declared-submodule-names335_0" +" lifts337_0" "(expand-context/inner-lift-envs" " the-struct_104)" -" module-lifts336_0" -" require-lifts337_0" -" to-module-lifts338_0" +" module-lifts338_0" +" require-lifts339_0" +" to-module-lifts340_0" "(expand-context/inner-requires+provides" " the-struct_104)" "(expand-context/inner-observer" @@ -72086,28 +72089,28 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_104)))))" "(expand-context/outer1.1" -" inner329_0" +" inner331_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_103)" "(root-expand-context/outer-use-site-scopes" " the-struct_103)" "(root-expand-context/outer-frame-id" " the-struct_103)" -" context326_0" +" context328_0" "(expand-context/outer-env" " the-struct_103)" "(expand-context/outer-post-expansion-scope-action" " the-struct_103)" "(expand-context/outer-scopes" " the-struct_103)" -" def-ctx-scopes327_0" +" def-ctx-scopes329_0" "(expand-context/outer-binding-layer" " the-struct_103)" "(expand-context/outer-reference-records" " the-struct_103)" "(expand-context/outer-only-immediate?" " the-struct_103)" -" need-eventually-defined328_0" +" need-eventually-defined330_0" "(expand-context/outer-current-introduction-scopes" " the-struct_103)" "(expand-context/outer-name" @@ -72117,212 +72120,212 @@ static const char *startup_source = " \"expand-context/outer?\"" " the-struct_103))))))" "(let-values(((partially-expanded-bodys_0)" -"(let-values(((bodys347_0)" +"(let-values(((bodys349_0)" " bodys_17)" -"((phase348_0)" +"((phase350_0)" " phase_145)" -"((partial-body-ctx349_0)" +"((partial-body-ctx351_0)" " partial-body-ctx_0)" -"((m-ns350_0)" +"((m-ns352_0)" " m-ns_19)" -"((self351_0)" +"((self353_0)" " self_32)" -"((frame-id352_0)" +"((frame-id354_0)" " frame-id_16)" -"((requires+provides353_0)" +"((requires+provides355_0)" " requires+provides_6)" -"((need-eventually-defined354_0)" +"((need-eventually-defined356_0)" " need-eventually-defined_1)" -"((all-scopes-s355_0)" +"((all-scopes-s357_0)" " all-scopes-s_0)" -"((defined-syms356_0)" +"((defined-syms358_0)" " defined-syms_11)" -"((declared-keywords357_0)" +"((declared-keywords359_0)" " declared-keywords_0)" -"((declared-submodule-names358_0)" +"((declared-submodule-names360_0)" " declared-submodule-names_3)" -"((compiled-submodules359_0)" +"((compiled-submodules361_0)" " compiled-submodules_1)" -"((modules-being-compiled360_0)" +"((modules-being-compiled362_0)" " modules-being-compiled_3)" -"((mpis-to-reset361_0)" +"((mpis-to-reset363_0)" " mpis-to-reset_0)" -"((pass-1-and-2-loop362_0)" +"((pass-1-and-2-loop364_0)" " pass-1-and-2-loop_0))" "(partially-expand-bodys81.1" -" all-scopes-s355_0" -" compiled-submodules359_0" -" partial-body-ctx349_0" -" declared-keywords357_0" -" declared-submodule-names358_0" -" defined-syms356_0" -" frame-id352_0" -" pass-1-and-2-loop362_0" -" modules-being-compiled360_0" -" mpis-to-reset361_0" -" m-ns350_0" -" need-eventually-defined354_0" -" phase348_0" -" requires+provides353_0" -" self351_0" -" bodys347_0))))" +" all-scopes-s357_0" +" compiled-submodules361_0" +" partial-body-ctx351_0" +" declared-keywords359_0" +" declared-submodule-names360_0" +" defined-syms358_0" +" frame-id354_0" +" pass-1-and-2-loop364_0" +" modules-being-compiled362_0" +" mpis-to-reset363_0" +" m-ns352_0" +" need-eventually-defined356_0" +" phase350_0" +" requires+provides355_0" +" self353_0" +" bodys349_0))))" "(let-values((()" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_130)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_131" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_130" " 'next-group)))" "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_271)" +"(let-values(((v_264)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_105)" -" v_271))" +"(let-values(((the-struct_93)" +" v_264))" "(if(expand-context/outer?" -" the-struct_105)" -"(let-values(((def-ctx-scopes363_0)" +" the-struct_93)" +"(let-values(((def-ctx-scopes365_0)" " #f)" -"((post-expansion-scope364_0)" +"((post-expansion-scope366_0)" " #f)" -"((inner365_0)" -"(let-values(((the-struct_106)" +"((inner367_0)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_271)))" +" v_264)))" "(if(expand-context/inner?" -" the-struct_106)" -"(let-values(((stops366_0)" +" the-struct_105)" +"(let-values(((stops368_0)" " empty-free-id-set)" -"((to-module-lifts367_0)" -"(let-values(((phase368_0)" +"((to-module-lifts369_0)" +"(let-values(((phase370_0)" " phase_145)" -"((module-ends369_0)" +"((module-ends371_0)" " module-ends_0)" -"((temp370_1)" +"((temp372_0)" " #t))" "(make-to-module-lift-context27.1" -" temp370_1" -" module-ends369_0" -" phase368_0))))" +" temp372_0" +" module-ends371_0" +" phase370_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-namespace" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-keep-#%expression?" -" the-struct_106)" -" stops366_0" +" the-struct_105)" +" stops368_0" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-require-lifts" -" the-struct_106)" -" to-module-lifts367_0" +" the-struct_105)" +" to-module-lifts369_0" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_106)))))" -"(expand-context/outer1.1" -" inner365_0" -" post-expansion-scope364_0" -"(root-expand-context/outer-use-site-scopes" -" the-struct_105)" -"(root-expand-context/outer-frame-id" -" the-struct_105)" -"(expand-context/outer-context" -" the-struct_105)" -"(expand-context/outer-env" -" the-struct_105)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" -"(expand-context/outer-scopes" -" the-struct_105)" -" def-ctx-scopes363_0" -"(expand-context/outer-binding-layer" -" the-struct_105)" -"(expand-context/outer-reference-records" -" the-struct_105)" -"(expand-context/outer-only-immediate?" -" the-struct_105)" -"(expand-context/outer-need-eventually-defined" -" the-struct_105)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_105)" -"(expand-context/outer-name" " the-struct_105)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_105)))))" +"(expand-context/outer1.1" +" inner367_0" +" post-expansion-scope366_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_93)" +"(root-expand-context/outer-frame-id" +" the-struct_93)" +"(expand-context/outer-context" +" the-struct_93)" +"(expand-context/outer-env" +" the-struct_93)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_93)" +"(expand-context/outer-scopes" +" the-struct_93)" +" def-ctx-scopes365_0" +"(expand-context/outer-binding-layer" +" the-struct_93)" +"(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)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" -"(let-values(((partially-expanded-bodys318_0)" +" the-struct_93))))))" +"(let-values(((partially-expanded-bodys320_0)" " partially-expanded-bodys_0)" -"((phase319_0)" +"((phase321_0)" " phase_145)" -"((body-ctx320_0)" +"((body-ctx322_0)" " body-ctx_6)" -"((self321_0)" +"((self323_0)" " self_32)" -"((declared-submodule-names322_0)" +"((declared-submodule-names324_0)" " declared-submodule-names_3)" -"((compiled-submodules323_0)" +"((compiled-submodules325_0)" " compiled-submodules_1)" -"((modules-being-compiled324_0)" +"((modules-being-compiled326_0)" " modules-being-compiled_3)" -"((mpis-to-reset325_0)" +"((mpis-to-reset327_0)" " mpis-to-reset_0))" "(finish-expanding-body-expressons99.1" -" compiled-submodules323_0" -" body-ctx320_0" -" declared-submodule-names322_0" -" modules-being-compiled324_0" -" mpis-to-reset325_0" -" phase319_0" -" self321_0" -" partially-expanded-bodys318_0))))))))))))" +" compiled-submodules325_0" +" body-ctx322_0" +" declared-submodule-names324_0" +" modules-being-compiled326_0" +" mpis-to-reset327_0" +" phase321_0" +" self323_0" +" partially-expanded-bodys320_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" " phase_144)))" @@ -72336,40 +72339,40 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_131)" "(expand-context-observer" " ctx_111)))" -"(if obs_132" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_131" " 'next-group)))" "(void)))" "(values))))" "(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((expression-expanded-bodys371_0)" +"(let-values(((expression-expanded-bodys373_0)" " expression-expanded-bodys_0)" -"((requires+provides372_0)" +"((requires+provides374_0)" " requires+provides_6)" -"((declared-submodule-names373_0)" +"((declared-submodule-names375_0)" " declared-submodule-names_3)" -"((m-ns374_0)" +"((m-ns376_0)" " m-ns_19)" -"((phase375_0)" +"((phase377_0)" " phase_144)" -"((self376_0)" +"((self378_0)" " self_32)" -"((ctx377_0)" +"((ctx379_0)" " ctx_111))" "(resolve-provides115.1" -" ctx377_0" -" declared-submodule-names373_0" -" m-ns374_0" -" phase375_0" -" requires+provides372_0" -" self376_0" -" expression-expanded-bodys371_0))))" +" ctx379_0" +" declared-submodule-names375_0" +" m-ns376_0" +" phase377_0" +" requires+provides374_0" +" self378_0" +" expression-expanded-bodys373_0))))" "(let-values(((is-cross-phase-persistent?_1)" "(hash-ref" " declared-keywords_0" @@ -72398,214 +72401,214 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_132)" "(expand-context-observer" " ctx_111)))" -"(if obs_133" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_132" " 'next)))" "(void)))" "(values))))" "(let-values(((submod-m-ns_0)" -"(let-values(((m-ns378_0)" +"(let-values(((m-ns380_0)" " m-ns_19)" -"((temp379_0)" +"((temp381_0)" " #t))" "(make-m-ns244_0" -" temp379_0" -" m-ns378_0))))" +" temp381_0" +" m-ns380_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_272)" +"(let-values(((v_199)" " ctx_111))" -"(let-values(((the-struct_107)" -" v_272))" +"(let-values(((the-struct_74)" +" v_199))" "(if(expand-context/outer?" -" the-struct_107)" -"(let-values(((frame-id380_0)" +" the-struct_74)" +"(let-values(((frame-id382_0)" " #f)" -"((post-expansion-scope381_0)" +"((post-expansion-scope383_0)" " #f)" -"((inner382_0)" -"(let-values(((the-struct_75)" +"((inner384_0)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_272)))" +" v_199)))" "(if(expand-context/inner?" -" the-struct_75)" -"(let-values(((namespace383_0)" +" the-struct_106)" +"(let-values(((namespace385_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_75)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_75)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_75)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_75)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_75)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_75)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_75)" -" namespace383_0" +" the-struct_106)" +" namespace385_0" "(expand-context/inner-just-once?" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-keep-#%expression?" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-stops" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-declared-submodule-names" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-to-module-lifts" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-requires+provides" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_75)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_75)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_75)))))" +" the-struct_106)))))" "(expand-context/outer1.1" -" inner382_0" -" post-expansion-scope381_0" +" inner384_0" +" post-expansion-scope383_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" -" frame-id380_0" +" the-struct_74)" +" frame-id382_0" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_74)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_74))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" "(begin" " 'declare-enclosing-module" -"(let-values(((fully-expanded-bodys-except-post-submodules384_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules386_0)" " fully-expanded-bodys-except-post-submodules_0)" -"((temp385_1)" +"((temp387_0)" " id:module-name229_0)" -"((rebuild-s386_0)" +"((rebuild-s388_0)" " rebuild-s_14)" -"((requires+provides387_0)" +"((requires+provides389_0)" " requires+provides_6)" -"((submod-m-ns388_0)" +"((submod-m-ns390_0)" " submod-m-ns_0)" -"((self389_0)" +"((self391_0)" " self_32)" -"((enclosing-self390_0)" +"((enclosing-self392_0)" " enclosing-self_1)" -"((root-ctx391_0)" +"((root-ctx393_0)" " root-ctx_6)" -"((submod-ctx392_0)" +"((submod-ctx394_0)" " submod-ctx_0)" -"((modules-being-compiled393_0)" +"((modules-being-compiled395_0)" " modules-being-compiled_3)" -"((compiled-module-box394_0)" +"((compiled-module-box396_0)" " compiled-module-box_0))" "(declare-module-for-expansion139.1" -" submod-ctx392_0" -" enclosing-self390_0" -" compiled-module-box394_0" -" temp385_1" -" modules-being-compiled393_0" -" submod-m-ns388_0" -" rebuild-s386_0" -" requires+provides387_0" -" root-ctx391_0" -" self389_0" -" fully-expanded-bodys-except-post-submodules384_0)))))))" +" submod-ctx394_0" +" enclosing-self392_0" +" compiled-module-box396_0" +" temp387_0" +" modules-being-compiled395_0" +" submod-m-ns390_0" +" rebuild-s388_0" +" requires+provides389_0" +" root-ctx393_0" +" self391_0" +" fully-expanded-bodys-except-post-submodules386_0)))))))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" " submod-ctx_0)" "(let-values()" " fully-expanded-bodys-except-post-submodules_0)" "(let-values()" -"(let-values(((fully-expanded-bodys-except-post-submodules395_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules397_0)" " fully-expanded-bodys-except-post-submodules_0)" -"((declare-enclosing-module396_0)" +"((declare-enclosing-module398_0)" " declare-enclosing-module_0)" -"((phase397_0)" +"((phase399_0)" " phase_144)" -"((self398_0)" +"((self400_0)" " self_32)" -"((requires+provides399_0)" +"((requires+provides401_0)" " requires+provides_6)" -"((is-cross-phase-persistent?400_0)" +"((is-cross-phase-persistent?402_0)" " is-cross-phase-persistent?_1)" -"((all-scopes-s401_0)" +"((all-scopes-s403_0)" " all-scopes-s_0)" -"((mpis-to-reset402_0)" +"((mpis-to-reset404_0)" " mpis-to-reset_0)" -"((declared-submodule-names403_0)" +"((declared-submodule-names405_0)" " declared-submodule-names_3)" -"((compiled-submodules404_0)" +"((compiled-submodules406_0)" " compiled-submodules_1)" -"((modules-being-compiled405_0)" +"((modules-being-compiled407_0)" " modules-being-compiled_3)" -"((submod-ctx406_0)" +"((submod-ctx408_0)" " submod-ctx_0))" "(expand-post-submodules165.1" -" all-scopes-s401_0" -" compiled-submodules404_0" -" submod-ctx406_0" -" declare-enclosing-module396_0" -" declared-submodule-names403_0" -" is-cross-phase-persistent?400_0" -" modules-being-compiled405_0" -" mpis-to-reset402_0" -" phase397_0" -" requires+provides399_0" -" self398_0" -" fully-expanded-bodys-except-post-submodules395_0))))))" +" all-scopes-s403_0" +" compiled-submodules406_0" +" submod-ctx408_0" +" declare-enclosing-module398_0" +" declared-submodule-names405_0" +" is-cross-phase-persistent?402_0" +" modules-being-compiled407_0" +" mpis-to-reset404_0" +" phase399_0" +" requires+provides401_0" +" self400_0" +" fully-expanded-bodys-except-post-submodules397_0))))))" "(if(expand-context-to-parsed?" " submod-ctx_0)" "(let-values()" @@ -72615,17 +72618,17 @@ static const char *startup_source = " fully-expanded-bodys_0)))" "(let-values()" "(let-values(((mb-result-s_0)" -"(let-values(((rebuild-mb-s407_0)" +"(let-values(((rebuild-mb-s409_0)" " rebuild-mb-s_0)" -"((temp408_0)" +"((temp410_1)" "(list*" " #%module-begin301_0" "(syntax-only" " fully-expanded-bodys_0))))" "(rebuild5.1" " #t" -" rebuild-mb-s407_0" -" temp408_0))))" +" rebuild-mb-s409_0" +" temp410_1))))" "(if(not" "(expand-context-in-local-expand?" " submod-ctx_0))" @@ -72639,116 +72642,116 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_273)" +"(let-values(((v_271)" " ctx_110))" -"(let-values(((the-struct_39)" -" v_273))" +"(let-values(((the-struct_24)" +" v_271))" "(if(expand-context/outer?" -" the-struct_39)" -"(let-values(((context409_0)" +" the-struct_24)" +"(let-values(((context411_0)" " 'module-begin)" -"((inner410_0)" -"(let-values(((the-struct_108)" +"((inner412_0)" +"(let-values(((the-struct_107)" "(root-expand-context/outer-inner" -" v_273)))" +" v_271)))" "(if(expand-context/inner?" -" the-struct_108)" -"(let-values(((module-begin-k411_0)" +" the-struct_107)" +"(let-values(((module-begin-k413_0)" " module-begin-k_1)" -"((in-local-expand?412_0)" +"((in-local-expand?414_0)" " #f)" -"((lifts413_0)" +"((lifts415_0)" " #f)" -"((module-lifts414_0)" +"((module-lifts416_0)" " #f)" -"((to-module-lifts415_0)" +"((to-module-lifts417_0)" " #f)" -"((require-lifts416_0)" +"((require-lifts418_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-just-once?" -" the-struct_108)" -" module-begin-k411_0" +" the-struct_107)" +" module-begin-k413_0" "(expand-context/inner-allow-unbound?" -" the-struct_108)" -" in-local-expand?412_0" +" the-struct_107)" +" in-local-expand?414_0" "(expand-context/inner-keep-#%expression?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" -" lifts413_0" +" the-struct_107)" +" lifts415_0" "(expand-context/inner-lift-envs" -" the-struct_108)" -" module-lifts414_0" -" require-lifts416_0" -" to-module-lifts415_0" +" the-struct_107)" +" module-lifts416_0" +" require-lifts418_0" +" to-module-lifts417_0" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_107)))))" "(expand-context/outer1.1" -" inner410_0" +" inner412_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_39)" +" the-struct_24)" "(root-expand-context/outer-use-site-scopes" -" the-struct_39)" +" the-struct_24)" "(root-expand-context/outer-frame-id" -" the-struct_39)" -" context409_0" +" the-struct_24)" +" context411_0" "(expand-context/outer-env" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-scopes" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-def-ctx-scopes" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-binding-layer" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-reference-records" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-only-immediate?" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-need-eventually-defined" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-current-introduction-scopes" -" the-struct_39)" +" the-struct_24)" "(expand-context/outer-name" -" the-struct_39)))" +" the-struct_24)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_39))))))" +" the-struct_24))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -72758,36 +72761,36 @@ static const char *startup_source = "(box" " null)))" "(let-values(((mb_0)" -"(let-values(((bodys417_0)" +"(let-values(((bodys419_0)" " bodys_15)" -"((module-name-sym418_0)" +"((module-name-sym420_0)" " module-name-sym_0)" -"((mb-scopes-s419_0)" +"((mb-scopes-s421_0)" " mb-scopes-s_0)" -"((m-ns420_0)" +"((m-ns422_0)" " m-ns_19)" -"((mb-ctx421_0)" +"((mb-ctx423_0)" " mb-ctx_0)" -"((mb-def-ctx-scopes422_0)" +"((mb-def-ctx-scopes424_0)" " mb-def-ctx-scopes_0)" -"((phase423_0)" +"((phase425_0)" " phase_144)" -"((s424_0)" +"((s426_0)" " s_805))" "(ensure-module-begin36.1" -" mb-ctx421_0" -" mb-def-ctx-scopes422_0" -" m-ns420_0" -" module-name-sym418_0" -" phase423_0" -" s424_0" -" mb-scopes-s419_0" -" bodys417_0))))" +" mb-ctx423_0" +" mb-def-ctx-scopes424_0" +" m-ns422_0" +" module-name-sym420_0" +" phase425_0" +" s426_0" +" mb-scopes-s421_0" +" bodys419_0))))" "(let-values(((expanded-mb_0)" "(let-values()" -"(let-values(((mb425_0)" +"(let-values(((mb427_0)" " mb_0)" -"((temp426_0)" +"((temp428_1)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" @@ -72795,8 +72798,8 @@ static const char *startup_source = " #f" " #f" " #f" -" mb425_0" -" temp426_0)))))" +" mb427_0" +" temp428_1)))))" "(let-values(((requires_6" " provides_13)" "(extract-requires-and-provides" @@ -72804,11 +72807,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_231)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_402" -" or-part_402" +"(if or-part_231" +" or-part_231" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -72886,9 +72889,9 @@ static const char *startup_source = " lst_423)))" "(void)" "(let-values(((result-s_15)" -"(let-values(((rebuild-s427_0)" +"(let-values(((rebuild-s429_0)" " rebuild-s_14)" -"((temp428_1)" +"((temp430_0)" "(list" " module228_0" " id:module-name229_0" @@ -72897,20 +72900,20 @@ static const char *startup_source = " expanded-mb_0))))" "(rebuild5.1" " #t" -" rebuild-s427_0" -" temp428_1))))" +" rebuild-s429_0" +" temp430_0))))" "(let-values(((result-s_16)" -"(let-values(((result-s429_0)" +"(let-values(((result-s431_0)" " result-s_15)" -"((self430_0)" +"((self432_0)" " self_32)" -"((generic-self431_0)" +"((generic-self433_0)" " generic-self_0))" "(syntax-module-path-index-shift13.1" " #f" -" result-s429_0" -" self430_0" -" generic-self431_0" +" result-s431_0" +" self432_0" +" generic-self433_0" " #f))))" "(let-values(((result-s_17)" "(attach-root-expand-context-properties" @@ -72927,14 +72930,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_133)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_134" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_133" " 'rename-one" " result-s_18)))" "(void)))" @@ -72960,7 +72963,7 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_113) ctx24_0))" +"(let-values(((ctx_71) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_146) phase26_3))" "(let-values(((s_808) s27_2))" @@ -72969,42 +72972,42 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_274) ctx_113))" -"(let-values(((the-struct_109) v_274))" -"(if(expand-context/outer? the-struct_109)" -"(let-values(((context432_0) 'module-begin)" -"((only-immediate?433_0) #t)" -"((def-ctx-scopes434_0) def-ctx-scopes_9)" -"((inner435_0)(root-expand-context/outer-inner v_274)))" +"(let-values(((v_272) ctx_71))" +"(let-values(((the-struct_108) v_272))" +"(if(expand-context/outer? the-struct_108)" +"(let-values(((context434_0) 'module-begin)" +"((only-immediate?435_0) #t)" +"((def-ctx-scopes436_0) def-ctx-scopes_9)" +"((inner437_0)(root-expand-context/outer-inner v_272)))" "(expand-context/outer1.1" -" inner435_0" -"(root-expand-context/outer-post-expansion-scope the-struct_109)" -"(root-expand-context/outer-use-site-scopes the-struct_109)" -"(root-expand-context/outer-frame-id the-struct_109)" -" context432_0" -"(expand-context/outer-env the-struct_109)" -"(expand-context/outer-post-expansion-scope-action the-struct_109)" -"(expand-context/outer-scopes the-struct_109)" -" def-ctx-scopes434_0" -"(expand-context/outer-binding-layer the-struct_109)" -"(expand-context/outer-reference-records the-struct_109)" -" only-immediate?433_0" -"(expand-context/outer-need-eventually-defined the-struct_109)" -"(expand-context/outer-current-introduction-scopes the-struct_109)" -"(expand-context/outer-name the-struct_109)))" +" inner437_0" +"(root-expand-context/outer-post-expansion-scope the-struct_108)" +"(root-expand-context/outer-use-site-scopes the-struct_108)" +"(root-expand-context/outer-frame-id the-struct_108)" +" context434_0" +"(expand-context/outer-env the-struct_108)" +"(expand-context/outer-post-expansion-scope-action the-struct_108)" +"(expand-context/outer-scopes the-struct_108)" +" def-ctx-scopes436_0" +"(expand-context/outer-binding-layer the-struct_108)" +"(expand-context/outer-reference-records the-struct_108)" +" only-immediate?435_0" +"(expand-context/outer-need-eventually-defined the-struct_108)" +"(expand-context/outer-current-introduction-scopes the-struct_108)" +"(expand-context/outer-name the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))))" +" the-struct_108))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_135)(expand-context-observer ctx_113)))" -"(if obs_135" +"(let-values(((obs_134)(expand-context-observer ctx_71)))" +"(if obs_134" "(let-values()" "(let-values()" -"(call-expand-observe obs_135 'rename-one(car bodys_18))))" +"(call-expand-observe obs_134 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" @@ -73013,12 +73016,12 @@ static const char *startup_source = "(let-values()" "(let-values(((partly-expanded-body_0)" "(let-values()" -"(let-values(((temp436_0)" +"(let-values(((temp438_0)" "(add-enclosing-name-property" "(car bodys_18)" " module-name-sym_1))" -"((temp437_0)(make-mb-ctx_0)))" -"(expand9.1 #f #f #f temp436_0 temp437_0)))))" +"((temp439_0)(make-mb-ctx_0)))" +"(expand9.1 #f #f #f temp438_0 temp439_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" @@ -73026,36 +73029,36 @@ static const char *startup_source = " phase_146))" "(let-values() partly-expanded-body_0)" "(let-values()" -"(let-values(((temp438_0)(list partly-expanded-body_0))" -"((s439_0) s_808)" -"((scopes-s440_0) scopes-s_0)" -"((phase441_0) phase_146)" -"((module-name-sym442_0) module-name-sym_1)" -"((temp443_0)(make-mb-ctx_0))" -"((temp444_0) #f))" +"(let-values(((temp440_0)(list partly-expanded-body_0))" +"((s441_0) s_808)" +"((scopes-s442_0) scopes-s_0)" +"((phase443_0) phase_146)" +"((module-name-sym444_0) module-name-sym_1)" +"((temp445_0)(make-mb-ctx_0))" +"((temp446_0) #f))" "(add-module-begin47.1" -" temp444_0" -" temp438_0" -" s439_0" -" scopes-s440_0" -" phase441_0" -" module-name-sym442_0" -" temp443_0)))))))))" +" temp446_0" +" temp440_0" +" s441_0" +" scopes-s442_0" +" phase443_0" +" module-name-sym444_0" +" temp445_0)))))))))" "(let-values()" -"(let-values(((bodys445_0) bodys_18)" -"((s446_0) s_808)" -"((scopes-s447_0) scopes-s_0)" -"((phase448_0) phase_146)" -"((module-name-sym449_0) module-name-sym_1)" -"((temp450_0)(make-mb-ctx_0)))" +"(let-values(((bodys447_0) bodys_18)" +"((s448_0) s_808)" +"((scopes-s449_0) scopes-s_0)" +"((phase450_0) phase_146)" +"((module-name-sym451_0) module-name-sym_1)" +"((temp452_0)(make-mb-ctx_0)))" "(add-module-begin47.1" " #t" -" bodys445_0" -" s446_0" -" scopes-s447_0" -" phase448_0" -" module-name-sym449_0" -" temp450_0))))))" +" bodys447_0" +" s448_0" +" scopes-s449_0" +" phase450_0" +" module-name-sym451_0" +" temp452_0))))))" "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" "(define-values" "(add-module-begin47.1)" @@ -73063,7 +73066,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_809) s42_0))" +"(let-values(((s_191) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_147) phase44_0))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -73074,43 +73077,43 @@ 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-id451_0) mb-id_0)((phase452_0) phase_147))" -"(resolve40.1 #f #f null #f mb-id451_0 phase452_0))" +"(if(let-values(((mb-id453_0) mb-id_0)((phase454_0) phase_147))" +"(resolve40.1 #f #f null #f mb-id453_0 phase454_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_809)))" +" s_191)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_809 s_809)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_191 s_191)))" "(let-values((()" "(begin" -"(let-values(((obs_136)(expand-context-observer mb-ctx_1)))" -"(if obs_136" +"(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" +"(if obs_135" "(let-values()" -"(let-values()(call-expand-observe obs_136 'tag mb_2)))" +"(let-values()(call-expand-observe obs_135 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" -"(if obs_137" +"(let-values(((obs_136)(expand-context-observer mb-ctx_1)))" +"(if obs_136" "(let-values()" "(let-values()" -"(call-expand-observe obs_137 'rename-one mb_2)))" +"(call-expand-observe obs_136 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" "(let-values(((partly-expanded-mb_0)" "(let-values()" -"(let-values(((temp453_0)" +"(let-values(((temp455_0)" "(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx454_0) mb-ctx_1))" -"(expand9.1 #f #f #f temp453_0 mb-ctx454_0)))))" +"((mb-ctx456_0) mb-ctx_1))" +"(expand9.1 #f #f #f temp455_0 mb-ctx456_0)))))" "(begin" "(if(eq?" " '#%module-begin" @@ -73120,7 +73123,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_809" +" s_191" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73136,39 +73139,39 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_810)" +"(lambda(s_809)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_810" +" s_809" "(remove-use-site-scopes" -"(remove-scopes s_810(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_809(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)))" "(let-values(((s-with-suitable-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" "(let-values()" -"(let-values(((s-with-edges459_0) s-with-edges_0)" -"((enclosing-self460_0) enclosing-self_2)" -"((enclosing-mod461_0) enclosing-mod_2))" +"(let-values(((s-with-edges461_0) s-with-edges_0)" +"((enclosing-self462_0) enclosing-self_2)" +"((enclosing-mod463_0) enclosing-mod_2))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-edges459_0" -" enclosing-self460_0" -" enclosing-mod461_0" +" s-with-edges461_0" +" enclosing-self462_0" +" enclosing-mod463_0" " #f)))" "(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing455_0) s-with-suitable-enclosing_0)" -"((temp456_0)(make-generic-self-module-path-index self_33))" -"((self457_0) self_33)" -"((temp458_0)(current-code-inspector)))" +"(let-values(((s-with-suitable-enclosing457_0) s-with-suitable-enclosing_0)" +"((temp458_0)(make-generic-self-module-path-index self_33))" +"((self459_0) self_33)" +"((temp460_0)(current-code-inspector)))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-suitable-enclosing455_0" -" temp456_0" -" self457_0" -" temp458_0))))))))))" +" s-with-suitable-enclosing457_0" +" temp458_0" +" self459_0" +" temp460_0))))))))))" "(define-values" "(partially-expand-bodys81.1)" "(lambda(all-scopes-stx57_0" @@ -73217,14 +73220,14 @@ static const char *startup_source = "(if(if tail?_53(not(zero? phase_148)) #f)" "(let-values()" "(begin" -"(let-values(((obs_138)" +"(let-values(((obs_137)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_137" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_137" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73240,14 +73243,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_138)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_138" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_138" " 'module-lift-end-loop" " bodys_22)))" "(void)))" @@ -73264,29 +73267,29 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_140)" +"(let-values(((obs_92)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_92" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_92" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_7)" "(let-values()" -"(let-values(((temp462_1)" +"(let-values(((temp464_1)" "(car bodys_21))" -"((partial-body-ctx463_0)" +"((partial-body-ctx465_0)" " partial-body-ctx_1))" "(expand9.1" " #f" " #f" " #f" -" temp462_1" -" partial-body-ctx463_0)))))" +" temp464_1" +" partial-body-ctx465_0)))))" "(let-values(((disarmed-exp-body_1)" "(syntax-disarm$1 exp-body_7)))" "(let-values(((lifted-defns_0)" @@ -73302,14 +73305,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_93)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_93" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_93" +" obs_139" " 'rename-one" " exp-body_7)))" "(void)))" @@ -73326,40 +73329,40 @@ static const char *startup_source = " 'begin)" "(let-values()" "(let-values(((ok?_81" -" begin464_0" -" e465_0)" -"(let-values(((s_811)" +" begin466_0" +" e467_0)" +"(let-values(((s_810)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_811))" -"(let-values(((begin464_1" -" e465_1)" -"(let-values(((s_812)" +" s_810))" +"(let-values(((begin466_1" +" e467_1)" +"(let-values(((s_811)" "(if(syntax?$1" -" s_811)" +" s_810)" "(syntax-e$1" -" s_811)" -" s_811)))" +" s_810)" +" s_810)))" "(if(pair?" -" s_812)" -"(let-values(((begin466_0)" -"(let-values(((s_813)" +" s_811)" +"(let-values(((begin468_0)" +"(let-values(((s_812)" "(car" -" s_812)))" -" s_813))" -"((e467_0)" -"(let-values(((s_814)" +" s_811)))" +" s_812))" +"((e469_0)" +"(let-values(((s_813)" "(cdr" -" s_812)))" -"(let-values(((s_815)" +" s_811)))" +"(let-values(((s_814)" "(if(syntax?$1" -" s_814)" +" s_813)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_813)" +" s_813)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_815)))" +" s_814)))" "(if(not" " flat-s_58)" "(let-values()" @@ -73370,16 +73373,16 @@ static const char *startup_source = "(let-values()" " flat-s_58)))))))" "(values" -" begin466_0" -" e467_0))" +" begin468_0" +" e469_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85)))))" "(values" " #t" -" begin464_1" -" e465_1))))))" +" begin466_1" +" e467_1))))))" "(let-values(((track_1)" "(lambda(e_95)" "(begin" @@ -73391,17 +73394,17 @@ static const char *startup_source = "(append" "(map2" " track_1" -" e465_0)" +" e467_0)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_141)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_141" +" obs_140" " 'splice" " spliced-bodys_0)))" "(void)))" @@ -73414,22 +73417,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_141" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_142" +" obs_141" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_142" +" obs_141" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_142" +" obs_141" " 'prepare-env))))" "(void)))" "(values))))" @@ -73445,52 +73448,52 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_143)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_143" +" obs_142" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_82" -" begin-for-syntax468_0" -" e469_0)" -"(let-values(((s_816)" +" begin-for-syntax470_0" +" e471_0)" +"(let-values(((s_815)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_816))" -"(let-values(((begin-for-syntax468_1" -" e469_1)" -"(let-values(((s_817)" +" s_815))" +"(let-values(((begin-for-syntax470_1" +" e471_1)" +"(let-values(((s_816)" "(if(syntax?$1" -" s_816)" +" s_815)" "(syntax-e$1" -" s_816)" -" s_816)))" +" s_815)" +" s_815)))" "(if(pair?" -" s_817)" -"(let-values(((begin-for-syntax470_0)" -"(let-values(((s_818)" +" s_816)" +"(let-values(((begin-for-syntax472_0)" +"(let-values(((s_817)" "(car" -" s_817)))" -" s_818))" -"((e471_0)" -"(let-values(((s_819)" +" s_816)))" +" s_817))" +"((e473_0)" +"(let-values(((s_818)" "(cdr" -" s_817)))" -"(let-values(((s_820)" +" s_816)))" +"(let-values(((s_819)" "(if(syntax?$1" -" s_819)" +" s_818)" "(syntax-e$1" -" s_819)" -" s_819)))" +" s_818)" +" s_818)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_820)))" +" s_819)))" "(if(not" " flat-s_59)" "(let-values()" @@ -73501,30 +73504,30 @@ static const char *startup_source = "(let-values()" " flat-s_59)))))))" "(values" -" begin-for-syntax470_0" -" e471_0))" +" begin-for-syntax472_0" +" e473_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86)))))" "(values" " #t" -" begin-for-syntax468_1" -" e469_1))))))" +" begin-for-syntax470_1" +" e471_1))))))" "(let-values(((nested-bodys_1)" "(pass-1-and-2-loop_1" -" e469_0" +" e471_0" "(add1" " phase_148))))" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_143" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" @@ -73541,14 +73544,14 @@ static const char *startup_source = "(namespace-visit-available-modules!" " m-ns_20" " phase_148)" -"(let-values(((obs_145)" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_144" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_145" +" obs_144" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" @@ -73563,29 +73566,29 @@ static const char *startup_source = " lst_425)))" "((letrec-values(((for-loop_330)" "(lambda(fold-var_373" -" lst_251)" +" lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_251)" +" lst_426)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_251))" +" lst_426))" "((rest_254)" "(unsafe-cdr" -" lst_251)))" +" lst_426)))" "(let-values(((fold-var_374)" -"(let-values(((fold-var_375)" +"(let-values(((fold-var_352)" " fold-var_373))" -"(let-values(((fold-var_376)" +"(let-values(((fold-var_353)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_375))))" +" fold-var_352))))" "(values" -" fold-var_376)))))" +" fold-var_353)))))" "(if(not" " #f)" "(for-loop_330" @@ -73599,7 +73602,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(cons" -" begin-for-syntax468_0" +" begin-for-syntax470_0" " s-nested-bodys_0)" " exp-body_7)))))" "(void)))" @@ -73616,48 +73619,48 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_146)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_145" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_146" +" obs_145" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_146" +" obs_145" " 'prim-define-values))))" "(void)))" "(values))))" "(let-values(((ok?_83" -" define-values472_0" -" id473_0" -" rhs474_0)" -"(let-values(((s_198)" +" define-values474_0" +" id475_0" +" rhs476_0)" +"(let-values(((s_820)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_198))" -"(let-values(((define-values472_1" -" id473_1" -" rhs474_1)" +" s_820))" +"(let-values(((define-values474_1" +" id475_1" +" rhs476_1)" "(let-values(((s_821)" "(if(syntax?$1" -" s_198)" +" s_820)" "(syntax-e$1" -" s_198)" -" s_198)))" +" s_820)" +" s_820)))" "(if(pair?" " s_821)" -"(let-values(((define-values475_0)" +"(let-values(((define-values477_0)" "(let-values(((s_822)" "(car" " s_821)))" " s_822))" -"((id476_0" -" rhs477_0)" +"((id478_0" +" rhs479_0)" "(let-values(((s_823)" "(cdr" " s_821)))" @@ -73669,7 +73672,7 @@ static const char *startup_source = " s_823)))" "(if(pair?" " s_824)" -"(let-values(((id478_0)" +"(let-values(((id480_0)" "(let-values(((s_825)" "(car" " s_824)))" @@ -73691,7 +73694,7 @@ static const char *startup_source = " orig-s_87))" "(let-values()" "(let-values(((id_144)" -"(let-values(((lst_426)" +"(let-values(((lst_427)" " flat-s_60))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73699,36 +73702,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_426)))" +" lst_427)))" "((letrec-values(((for-loop_331)" "(lambda(id_145" -" lst_69)" +" lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_69)" +" lst_428)" "(let-values(((s_827)" "(unsafe-car" -" lst_69))" +" lst_428))" "((rest_255)" "(unsafe-cdr" -" lst_69)))" +" lst_428)))" "(let-values(((id_146)" "(let-values(((id_147)" " id_145))" "(let-values(((id_148)" "(let-values()" -"(let-values(((id491_0)" +"(let-values(((id493_0)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_402)" "(if(syntax?$1" " s_827)" "(symbol?" "(syntax-e$1" " s_827))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_402" +" or-part_402" "(symbol?" " s_827)))" " s_827" @@ -73738,7 +73741,7 @@ static const char *startup_source = " orig-s_87" " s_827)))))" "(cons" -" id491_0" +" id493_0" " id_147)))))" "(values" " id_148)))))" @@ -73751,10 +73754,10 @@ static const char *startup_source = " id_145)))))" " for-loop_331)" " null" -" lst_426)))))" +" lst_427)))))" "(reverse$1" " id_144))))))))" -"((rhs479_0)" +"((rhs481_0)" "(let-values(((s_828)" "(cdr" " s_824)))" @@ -73766,7 +73769,7 @@ static const char *startup_source = " s_828)))" "(if(pair?" " s_829)" -"(let-values(((rhs480_0)" +"(let-values(((rhs482_0)" "(let-values(((s_830)" "(car" " s_829)))" @@ -73789,121 +73792,121 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))))))" "(values" -" rhs480_0))" +" rhs482_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" id478_0" -" rhs479_0))" +" id480_0" +" rhs481_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" define-values475_0" -" id476_0" -" rhs477_0))" +" define-values477_0" +" id478_0" +" rhs479_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87)))))" "(values" " #t" -" define-values472_1" -" id473_1" -" rhs474_1))))))" +" define-values474_1" +" id475_1" +" rhs476_1))))))" "(let-values(((ids_45)" "(remove-use-site-scopes" -" id473_0" +" id475_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids481_0)" +"(let-values(((ids483_0)" " ids_45)" -"((phase482_0)" +"((phase484_0)" " phase_148)" -"((exp-body483_0)" +"((exp-body485_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids481_0" -" phase482_0" -" exp-body483_0" +" ids483_0" +" phase484_0" +" exp-body485_0" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids484_0)" +"(let-values(((ids486_0)" " ids_45)" -"((phase485_0)" +"((phase487_0)" " phase_148)" -"((requires+provides486_0)" +"((requires+provides488_0)" " requires+provides_7)" -"((exp-body487_0)" +"((exp-body489_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body487_0" -" ids484_0" -" phase485_0" -" requires+provides486_0))" +" exp-body489_0" +" ids486_0" +" phase487_0" +" requires+provides488_0))" "(values))))" "(let-values(((syms_22)" -"(let-values(((ids492_0)" +"(let-values(((ids494_0)" " ids_45)" -"((defined-syms493_0)" +"((defined-syms495_0)" " defined-syms_12)" -"((self494_0)" +"((self496_0)" " self_34)" -"((phase495_0)" +"((phase497_0)" " phase_148)" -"((all-scopes-stx496_0)" +"((all-scopes-stx498_0)" " all-scopes-stx_5)" -"((frame-id497_0)" +"((frame-id499_0)" " frame-id_17)" -"((requires+provides498_0)" +"((requires+provides500_0)" " requires+provides_7)" -"((exp-body499_0)" +"((exp-body501_0)" " exp-body_7))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id497_0" -" exp-body499_0" -" requires+provides498_0" +" frame-id499_0" +" exp-body501_0" +" requires+provides500_0" " #f" -" ids492_0" -" defined-syms493_0" -" self494_0" -" phase495_0" -" all-scopes-stx496_0))))" +" ids494_0" +" defined-syms495_0" +" self496_0" +" phase497_0" +" all-scopes-stx498_0))))" "(begin" -"(let-values(((requires+provides488_0)" +"(let-values(((requires+provides490_0)" " requires+provides_7)" -"((syms489_0)" +"((syms491_0)" " syms_22)" -"((phase490_0)" +"((phase492_0)" " phase_148))" "(add-defined-syms!103.1" " #f" -" requires+provides488_0" -" syms489_0" -" phase490_0))" -"(let-values(((obs_147)" +" requires+provides490_0" +" syms491_0" +" phase492_0))" +"(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_146" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_147" +" obs_146" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-values472_0" +" define-values474_0" " ids_45" -" rhs474_0)" +" rhs476_0)" " exp-body_7))))" "(void)))" "(cons" @@ -73911,7 +73914,7 @@ static const char *startup_source = " exp-body_7" " syms_22" " ids_45" -" rhs474_0)" +" rhs476_0)" "(loop_124" " tail?_53" " rest-bodys_1))))))))))" @@ -73921,22 +73924,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_148)" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_148" +"(if obs_147" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_148" +" obs_147" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_148" +" obs_147" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_148" +" obs_147" " 'prepare-env))))" "(void)))" "(values))))" @@ -73947,28 +73950,28 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_149" +"(if obs_148" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_148" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_84" -" define-syntaxes500_0" -" id501_0" -" rhs502_0)" +" define-syntaxes502_0" +" id503_0" +" rhs504_0)" "(let-values(((s_833)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" " s_833))" -"(let-values(((define-syntaxes500_1" -" id501_1" -" rhs502_1)" +"(let-values(((define-syntaxes502_1" +" id503_1" +" rhs504_1)" "(let-values(((s_834)" "(if(syntax?$1" " s_833)" @@ -73977,13 +73980,13 @@ static const char *startup_source = " s_833)))" "(if(pair?" " s_834)" -"(let-values(((define-syntaxes503_0)" +"(let-values(((define-syntaxes505_0)" "(let-values(((s_835)" "(car" " s_834)))" " s_835))" -"((id504_0" -" rhs505_0)" +"((id506_0" +" rhs507_0)" "(let-values(((s_836)" "(cdr" " s_834)))" @@ -73995,7 +73998,7 @@ static const char *startup_source = " s_836)))" "(if(pair?" " s_837)" -"(let-values(((id506_0)" +"(let-values(((id508_0)" "(let-values(((s_838)" "(car" " s_837)))" @@ -74017,7 +74020,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_149)" -"(let-values(((lst_427)" +"(let-values(((lst_429)" " flat-s_61))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74025,36 +74028,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_427)))" +" lst_429)))" "((letrec-values(((for-loop_332)" "(lambda(id_150" -" lst_428)" +" lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" +" lst_430)" "(let-values(((s_840)" "(unsafe-car" -" lst_428))" +" lst_430))" "((rest_256)" "(unsafe-cdr" -" lst_428)))" +" lst_430)))" "(let-values(((id_151)" "(let-values(((id_152)" " id_150))" "(let-values(((id_153)" "(let-values()" -"(let-values(((id520_0)" +"(let-values(((id522_0)" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_403)" "(if(syntax?$1" " s_840)" "(symbol?" "(syntax-e$1" " s_840))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_403" +" or-part_403" "(symbol?" " s_840)))" " s_840" @@ -74064,7 +74067,7 @@ static const char *startup_source = " orig-s_88" " s_840)))))" "(cons" -" id520_0" +" id522_0" " id_152)))))" "(values" " id_153)))))" @@ -74077,10 +74080,10 @@ static const char *startup_source = " id_150)))))" " for-loop_332)" " null" -" lst_427)))))" +" lst_429)))))" "(reverse$1" " id_149))))))))" -"((rhs507_0)" +"((rhs509_0)" "(let-values(((s_841)" "(cdr" " s_837)))" @@ -74092,267 +74095,267 @@ static const char *startup_source = " s_841)))" "(if(pair?" " s_842)" -"(let-values(((rhs508_0)" +"(let-values(((rhs510_0)" "(let-values(((s_843)" "(car" " s_842)))" " s_843))" "(()" -"(let-values(((s_567)" +"(let-values(((s_844)" "(cdr" " s_842)))" -"(let-values(((s_844)" +"(let-values(((s_845)" "(if(syntax?$1" -" s_567)" -"(syntax-e$1" -" s_567)" -" s_567)))" -"(if(null?" " s_844)" +"(syntax-e$1" +" s_844)" +" s_844)))" +"(if(null?" +" s_845)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" rhs508_0))" +" rhs510_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" id506_0" -" rhs507_0))" +" id508_0" +" rhs509_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" define-syntaxes503_0" -" id504_0" -" rhs505_0))" +" define-syntaxes505_0" +" id506_0" +" rhs507_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88)))))" "(values" " #t" -" define-syntaxes500_1" -" id501_1" -" rhs502_1))))))" +" define-syntaxes502_1" +" id503_1" +" rhs504_1))))))" "(let-values(((ids_46)" "(remove-use-site-scopes" -" id501_0" +" id503_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids509_0)" +"(let-values(((ids511_0)" " ids_46)" -"((phase510_0)" +"((phase512_0)" " phase_148)" -"((exp-body511_0)" +"((exp-body513_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids509_0" -" phase510_0" -" exp-body511_0" +" ids511_0" +" phase512_0" +" exp-body513_0" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids512_0)" +"(let-values(((ids514_0)" " ids_46)" -"((phase513_0)" +"((phase515_0)" " phase_148)" -"((requires+provides514_0)" +"((requires+provides516_0)" " requires+provides_7)" -"((exp-body515_0)" +"((exp-body517_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body515_0" -" ids512_0" -" phase513_0" -" requires+provides514_0))" +" exp-body517_0" +" ids514_0" +" phase515_0" +" requires+provides516_0))" "(values))))" "(let-values(((syms_23)" -"(let-values(((ids521_0)" +"(let-values(((ids523_0)" " ids_46)" -"((defined-syms522_0)" +"((defined-syms524_0)" " defined-syms_12)" -"((self523_0)" +"((self525_0)" " self_34)" -"((phase524_0)" +"((phase526_0)" " phase_148)" -"((all-scopes-stx525_0)" +"((all-scopes-stx527_0)" " all-scopes-stx_5)" -"((frame-id526_0)" +"((frame-id528_0)" " frame-id_17)" -"((requires+provides527_0)" +"((requires+provides529_0)" " requires+provides_7)" -"((exp-body528_0)" +"((exp-body530_0)" " exp-body_7)" -"((temp529_0)" +"((temp531_0)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp529_0" -" frame-id526_0" -" exp-body528_0" -" requires+provides527_0" +" temp531_0" +" frame-id528_0" +" exp-body530_0" +" requires+provides529_0" " #f" -" ids521_0" -" defined-syms522_0" -" self523_0" -" phase524_0" -" all-scopes-stx525_0))))" +" ids523_0" +" defined-syms524_0" +" self525_0" +" phase526_0" +" all-scopes-stx527_0))))" "(let-values((()" "(begin" -"(let-values(((requires+provides516_0)" +"(let-values(((requires+provides518_0)" " requires+provides_7)" -"((syms517_0)" +"((syms519_0)" " syms_23)" -"((phase518_0)" +"((phase520_0)" " phase_148)" -"((temp519_0)" +"((temp521_0)" " #t))" "(add-defined-syms!103.1" -" temp519_0" -" requires+provides516_0" -" syms517_0" -" phase518_0))" +" temp521_0" +" requires+provides518_0" +" syms519_0" +" phase520_0))" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp530_0)" +"(let-values(((temp532_0)" " 'define-syntaxes)" -"((temp531_0)" -" rhs502_0)" -"((ids532_0)" -" ids_46)" "((temp533_0)" -"(let-values(((v_275)" +" rhs504_0)" +"((ids534_0)" +" ids_46)" +"((temp535_0)" +"(let-values(((v_273)" " partial-body-ctx_1))" -"(let-values(((the-struct_110)" -" v_275))" +"(let-values(((the-struct_109)" +" v_273))" "(if(expand-context/outer?" -" the-struct_110)" -"(let-values(((need-eventually-defined535_0)" +" the-struct_109)" +"(let-values(((need-eventually-defined537_0)" " need-eventually-defined_2)" -"((inner536_0)" -"(let-values(((the-struct_111)" +"((inner538_0)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_275)))" +" v_273)))" "(if(expand-context/inner?" -" the-struct_111)" -"(let-values(((lifts537_0)" +" the-struct_110)" +"(let-values(((lifts539_0)" " #f)" -"((module-lifts538_0)" +"((module-lifts540_0)" " #f)" -"((to-module-lifts539_0)" +"((to-module-lifts541_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-namespace" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-keep-#%expression?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" -" lifts537_0" +" the-struct_110)" +" lifts539_0" "(expand-context/inner-lift-envs" -" the-struct_111)" -" module-lifts538_0" +" the-struct_110)" +" module-lifts540_0" "(expand-context/inner-require-lifts" -" the-struct_111)" -" to-module-lifts539_0" +" the-struct_110)" +" to-module-lifts541_0" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_111)))))" -"(expand-context/outer1.1" -" inner536_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_110)" -"(root-expand-context/outer-frame-id" -" the-struct_110)" -"(expand-context/outer-context" -" the-struct_110)" -"(expand-context/outer-env" -" the-struct_110)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" -"(expand-context/outer-scopes" -" the-struct_110)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_110)" -"(expand-context/outer-binding-layer" -" the-struct_110)" -"(expand-context/outer-reference-records" -" the-struct_110)" -"(expand-context/outer-only-immediate?" -" the-struct_110)" -" need-eventually-defined535_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_110)" -"(expand-context/outer-name" " the-struct_110)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_110)))))" -"((temp534_0)" +"(expand-context/outer1.1" +" inner538_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_109)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_109)" +"(root-expand-context/outer-frame-id" +" the-struct_109)" +"(expand-context/outer-context" +" the-struct_109)" +"(expand-context/outer-env" +" the-struct_109)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_109)" +"(expand-context/outer-scopes" +" the-struct_109)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_109)" +"(expand-context/outer-binding-layer" +" the-struct_109)" +"(expand-context/outer-reference-records" +" the-struct_109)" +"(expand-context/outer-only-immediate?" +" the-struct_109)" +" need-eventually-defined537_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_109)" +"(expand-context/outer-name" +" the-struct_109)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_109)))))" +"((temp536_0)" " #f))" "(expand+eval-for-syntaxes-binding108.1" -" temp534_0" -" temp530_0" -" temp531_0" -" ids532_0" -" temp533_0))))" +" temp536_0" +" temp532_0" +" temp533_0" +" ids534_0" +" temp535_0))))" "(let-values((()" "(begin" -"(let-values(((lst_429)" +"(let-values(((lst_431)" " syms_23)" -"((lst_430)" +"((lst_432)" " vals_10)" -"((lst_431)" +"((lst_433)" " ids_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74360,51 +74363,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_430)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_431)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_432)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_433)))" "((letrec-values(((for-loop_333)" -"(lambda(lst_432" -" lst_433" -" lst_434)" +"(lambda(lst_434" +" lst_435" +" lst_436)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_432)" -"(if(pair?" -" lst_433)" -"(pair?" " lst_434)" +"(if(pair?" +" lst_435)" +"(pair?" +" lst_436)" " #f)" " #f)" "(let-values(((sym_109)" "(unsafe-car" -" lst_432))" +" lst_434))" "((rest_257)" "(unsafe-cdr" -" lst_432))" +" lst_434))" "((val_87)" "(unsafe-car" -" lst_433))" +" lst_435))" "((rest_258)" "(unsafe-cdr" -" lst_433))" +" lst_435))" "((id_154)" "(unsafe-car" -" lst_434))" +" lst_436))" "((rest_259)" "(unsafe-cdr" -" lst_434)))" +" lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74433,26 +74436,26 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_333)" -" lst_429" -" lst_430" -" lst_431)))" +" lst_431" +" lst_432" +" lst_433)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_150" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_150" +" obs_149" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes500_0" +" define-syntaxes502_0" " ids_46" " exp-rhs_6)))))" "(void)))" @@ -74469,17 +74472,17 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body540_0)" +"(let-values(((exp-body542_0)" " exp-body_7)" -"((temp541_0)" +"((temp543_0)" "(list" -" define-syntaxes500_0" +" define-syntaxes502_0" " ids_46" " exp-rhs_6)))" "(rebuild5.1" " #t" -" exp-body540_0" -" temp541_0))" +" exp-body542_0" +" temp543_0))" " parsed-body_0))" "(loop_124" " tail?_53" @@ -74490,19 +74493,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_151)" +"(let-values(((obs_150)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_151" +"(if obs_150" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_151" +" obs_150" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_151" +" obs_150" " 'prim-require))))" "(void)))" "(values))))" @@ -74511,40 +74514,40 @@ static const char *startup_source = " disarmed-exp-body_1" " partial-body-ctx_1)))" "(let-values(((ok?_85" -" #%require542_0" -" req543_0)" -"(let-values(((s_576)" +" #%require544_0" +" req545_0)" +"(let-values(((s_846)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_576))" -"(let-values(((#%require542_1" -" req543_1)" -"(let-values(((s_578)" -"(if(syntax?$1" -" s_576)" -"(syntax-e$1" -" s_576)" -" s_576)))" -"(if(pair?" -" s_578)" -"(let-values(((#%require544_0)" -"(let-values(((s_845)" -"(car" -" s_578)))" -" s_845))" -"((req545_0)" -"(let-values(((s_846)" -"(cdr" -" s_578)))" +" s_846))" +"(let-values(((#%require544_1" +" req545_1)" "(let-values(((s_847)" "(if(syntax?$1" " s_846)" "(syntax-e$1" " s_846)" " s_846)))" +"(if(pair?" +" s_847)" +"(let-values(((#%require546_0)" +"(let-values(((s_848)" +"(car" +" s_847)))" +" s_848))" +"((req547_0)" +"(let-values(((s_849)" +"(cdr" +" s_847)))" +"(let-values(((s_850)" +"(if(syntax?$1" +" s_849)" +"(syntax-e$1" +" s_849)" +" s_849)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_847)))" +" s_850)))" "(if(not" " flat-s_62)" "(let-values()" @@ -74555,59 +74558,59 @@ static const char *startup_source = "(let-values()" " flat-s_62)))))))" "(values" -" #%require544_0" -" req545_0))" +" #%require546_0" +" req547_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89)))))" "(values" " #t" -" #%require542_1" -" req543_1))))))" +" #%require544_1" +" req545_1))))))" "(begin" -"(let-values(((temp546_0)" -" req543_0)" -"((exp-body547_0)" +"(let-values(((temp548_0)" +" req545_0)" +"((exp-body549_0)" " exp-body_7)" -"((self548_0)" +"((self550_0)" " self_34)" -"((m-ns549_0)" +"((m-ns551_0)" " m-ns_20)" -"((phase550_0)" +"((phase552_0)" " phase_148)" -"((phase551_0)" +"((phase553_0)" " phase_148)" -"((requires+provides552_0)" +"((requires+provides554_0)" " requires+provides_7)" -"((declared-submodule-names553_0)" +"((declared-submodule-names555_0)" " declared-submodule-names_4)" -"((temp554_0)" +"((temp556_0)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names553_0" +" declared-submodule-names555_0" " #f" -" phase551_0" +" phase553_0" " #f" -" self548_0" +" self550_0" " #f" " #t" -" temp554_0" -" temp546_0" -" exp-body547_0" -" m-ns549_0" -" phase550_0" -" requires+provides552_0))" -"(let-values(((obs_152)" +" temp556_0" +" temp548_0" +" exp-body549_0" +" m-ns551_0" +" phase552_0" +" requires+provides554_0))" +"(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_152" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_151" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -74634,35 +74637,35 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((ready-body555_0)" +"(let-values(((ready-body557_0)" " ready-body_1)" -"((self556_0)" +"((self558_0)" " self_34)" -"((partial-body-ctx557_0)" +"((partial-body-ctx559_0)" " partial-body-ctx_1)" -"((temp558_0)" +"((temp560_0)" " #f)" -"((declared-submodule-names559_0)" +"((declared-submodule-names561_0)" " declared-submodule-names_4)" -"((mpis-to-reset560_0)" +"((mpis-to-reset562_0)" " mpis-to-reset_1)" -"((compiled-submodules561_0)" +"((compiled-submodules563_0)" " compiled-submodules_2)" -"((modules-being-compiled562_0)" +"((modules-being-compiled564_0)" " modules-being-compiled_4))" "(expand-submodule197.1" -" compiled-submodules561_0" -" declared-submodule-names559_0" +" compiled-submodules563_0" +" declared-submodule-names561_0" " #f" " #f" " #f" -" temp558_0" +" temp560_0" " #f" -" modules-being-compiled562_0" -" mpis-to-reset560_0" -" ready-body555_0" -" self556_0" -" partial-body-ctx557_0))))" +" modules-being-compiled564_0" +" mpis-to-reset562_0" +" ready-body557_0" +" self558_0" +" partial-body-ctx559_0))))" "(cons" " submod_2" "(loop_124" @@ -74673,22 +74676,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_152)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_153" +"(if obs_152" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_153" +" obs_152" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_153" +" obs_152" " 'prim-submodule*)" "(call-expand-observe" -" obs_153" +" obs_152" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -74702,40 +74705,40 @@ static const char *startup_source = " '#%declare)" "(let-values()" "(let-values(((ok?_86" -" #%declare563_0" -" kw564_0)" -"(let-values(((s_848)" +" #%declare565_0" +" kw566_0)" +"(let-values(((s_851)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_848))" -"(let-values(((#%declare563_1" -" kw564_1)" -"(let-values(((s_849)" +" s_851))" +"(let-values(((#%declare565_1" +" kw566_1)" +"(let-values(((s_852)" "(if(syntax?$1" -" s_848)" +" s_851)" "(syntax-e$1" -" s_848)" -" s_848)))" +" s_851)" +" s_851)))" "(if(pair?" -" s_849)" -"(let-values(((#%declare565_0)" -"(let-values(((s_850)" +" s_852)" +"(let-values(((#%declare567_0)" +"(let-values(((s_853)" "(car" -" s_849)))" -" s_850))" -"((kw566_0)" -"(let-values(((s_273)" +" s_852)))" +" s_853))" +"((kw568_0)" +"(let-values(((s_854)" "(cdr" -" s_849)))" -"(let-values(((s_851)" +" s_852)))" +"(let-values(((s_855)" "(if(syntax?$1" -" s_273)" +" s_854)" "(syntax-e$1" -" s_273)" -" s_273)))" +" s_854)" +" s_854)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_851)))" +" s_855)))" "(if(not" " flat-s_63)" "(let-values()" @@ -74746,39 +74749,39 @@ static const char *startup_source = "(let-values()" " flat-s_63)))))))" "(values" -" #%declare565_0" -" kw566_0))" +" #%declare567_0" +" kw568_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90)))))" "(values" " #t" -" #%declare563_1" -" kw564_1))))))" +" #%declare565_1" +" kw566_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_435)" -" kw564_0))" +"(let-values(((lst_437)" +" kw566_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_435)))" +" lst_437)))" "((letrec-values(((for-loop_334)" -"(lambda(lst_436)" +"(lambda(lst_438)" "(begin" " 'for-loop" "(if(pair?" -" lst_436)" +" lst_438)" "(let-values(((kw_1)" "(unsafe-car" -" lst_436))" +" lst_438))" "((rest_260)" "(unsafe-cdr" -" lst_436)))" +" lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74834,7 +74837,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_334)" -" lst_435)))" +" lst_437)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74884,54 +74887,54 @@ static const char *startup_source = "(lambda(ids_47 rhs_23 phase_149)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_437) ids_47))" +"(let-values(((lst_439) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_437)))" +"(let-values()(check-list lst_439)))" "((letrec-values(((for-loop_335)" -"(lambda(fold-var_377 lst_438)" +"(lambda(fold-var_375 lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_438)" -"(let-values(((id_155)(unsafe-car lst_438))" -"((rest_261)(unsafe-cdr lst_438)))" +"(if(pair? lst_440)" +"(let-values(((id_155)(unsafe-car lst_440))" +"((rest_261)(unsafe-cdr lst_440)))" +"(let-values(((fold-var_376)" +"(let-values(((fold-var_377) fold-var_375))" "(let-values(((fold-var_378)" -"(let-values(((fold-var_379) fold-var_377))" -"(let-values(((fold-var_380)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_155" " inside-scope_2))" -" fold-var_379))))" -"(values fold-var_380)))))" -"(if(not #f)(for-loop_335 fold-var_378 rest_261) fold-var_378)))" -" fold-var_377)))))" +" fold-var_377))))" +"(values fold-var_378)))))" +"(if(not #f)(for-loop_335 fold-var_376 rest_261) fold-var_376)))" +" fold-var_375)))))" " for-loop_335)" " null" -" lst_437))))))" +" lst_439))))))" "(let-values(((syms_24)" -"(let-values(((scoped-ids567_0) scoped-ids_0)" -"((defined-syms568_0) defined-syms_13)" -"((self569_0) self_35)" -"((phase570_0) phase_149)" -"((all-scopes-stx571_0) all-scopes-stx_6)" -"((frame-id572_0) frame-id_18)" -"((requires+provides573_0) requires+provides_8))" +"(let-values(((scoped-ids569_0) scoped-ids_0)" +"((defined-syms570_0) defined-syms_13)" +"((self571_0) self_35)" +"((phase572_0) phase_149)" +"((all-scopes-stx573_0) all-scopes-stx_6)" +"((frame-id574_0) frame-id_18)" +"((requires+provides575_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id572_0" +" frame-id574_0" " #f" -" requires+provides573_0" +" requires+provides575_0" " #f" -" scoped-ids567_0" -" defined-syms568_0" -" self569_0" -" phase570_0" -" all-scopes-stx571_0))))" -"(let-values(((s_852)" +" scoped-ids569_0" +" defined-syms570_0" +" self571_0" +" phase572_0" +" all-scopes-stx573_0))))" +"(let-values(((s_291)" "(add-scope" "(datum->syntax$1" " #f" @@ -74940,36 +74943,36 @@ static const char *startup_source = " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_852 syms_24 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_291 syms_24 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_114)" +"(lambda(bodys_23 ctx_113)" "(begin" -"(let-values(((sc_40)(root-expand-context-post-expansion-scope ctx_114)))" +"(let-values(((sc_40)(root-expand-context-post-expansion-scope ctx_113)))" "(if sc_40" "(reverse$1" -"(let-values(((lst_439) bodys_23))" +"(let-values(((lst_441) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" "((letrec-values(((for-loop_336)" -"(lambda(fold-var_381 lst_440)" +"(lambda(fold-var_379 lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((body_21)(unsafe-car lst_440))((rest_262)(unsafe-cdr lst_440)))" +"(if(pair? lst_442)" +"(let-values(((body_21)(unsafe-car lst_442))((rest_262)(unsafe-cdr lst_442)))" +"(let-values(((fold-var_380)" +"(let-values(((fold-var_381) fold-var_379))" "(let-values(((fold-var_382)" -"(let-values(((fold-var_383) fold-var_381))" -"(let-values(((fold-var_384)" "(let-values()" "(cons" "(let-values()(add-scope body_21 sc_40))" -" fold-var_383))))" -"(values fold-var_384)))))" -"(if(not #f)(for-loop_336 fold-var_382 rest_262) fold-var_382)))" -" fold-var_381)))))" +" fold-var_381))))" +"(values fold-var_382)))))" +"(if(not #f)(for-loop_336 fold-var_380 rest_262) fold-var_380)))" +" fold-var_379)))))" " for-loop_336)" " null" -" lst_439))))" +" lst_441))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75001,12 +75004,12 @@ static const char *startup_source = "(if(if tail?_54(not(zero? phase_150)) #f)" "(let-values()" "(begin" -"(let-values(((obs_154)(expand-context-observer body-ctx_7)))" -"(if obs_154" +"(let-values(((obs_153)(expand-context-observer body-ctx_7)))" +"(if obs_153" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_153" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75022,13 +75025,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_155)" +"(let-values(((obs_154)" "(expand-context-observer body-ctx_7)))" -"(if obs_155" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_155" +" obs_154" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75041,25 +75044,25 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_156)" +"(let-values(((obs_155)" "(expand-context-observer body-ctx_7)))" -"(if obs_156" +"(if obs_155" "(let-values()" "(let-values()" -"(call-expand-observe obs_156 'next)))" +"(call-expand-observe obs_155 'next)))" "(void)))" "(values))))" "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_404)" "(parsed? body_22)))" +"(if or-part_404" +" or-part_404" +"(let-values(((or-part_405)" +"(expanded+parsed? body_22)))" "(if or-part_405" " or-part_405" -"(let-values(((or-part_406)" -"(expanded+parsed? body_22)))" -"(if or-part_406" -" or-part_406" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" @@ -75076,44 +75079,26 @@ static const char *startup_source = "(let-values(((syms_25)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_853)" +"(let-values(((s_856)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" -" define-values574_0" -" _575_0" -" _576_0)" -"(let-values(((s_854)" +" define-values576_0" +" _577_0" +" _578_0)" +"(let-values(((s_857)" "(syntax-disarm$1" -" s_853)))" +" s_856)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_854))" -"(let-values(((define-values574_1" -" _575_1" -" _576_1)" -"(let-values(((s_855)" -"(if(syntax?$1" -" s_854)" -"(syntax-e$1" -" s_854)" -" s_854)))" -"(if(pair?" -" s_855)" -"(let-values(((define-values577_0)" -"(let-values(((s_856)" -"(car" -" s_855)))" -" s_856))" -"((_578_0" -" _579_0)" -"(let-values(((s_857)" -"(cdr" -" s_855)))" +" s_857))" +"(let-values(((define-values576_1" +" _577_1" +" _578_1)" "(let-values(((s_858)" "(if(syntax?$1" " s_857)" @@ -75122,12 +75107,13 @@ static const char *startup_source = " s_857)))" "(if(pair?" " s_858)" -"(let-values(((_580_0)" +"(let-values(((define-values579_0)" "(let-values(((s_859)" "(car" " s_858)))" " s_859))" -"((_581_0)" +"((_580_0" +" _581_0)" "(let-values(((s_860)" "(cdr" " s_858)))" @@ -75144,7 +75130,7 @@ static const char *startup_source = "(car" " s_861)))" " s_862))" -"(()" +"((_583_0)" "(let-values(((s_863)" "(cdr" " s_861)))" @@ -75154,57 +75140,74 @@ static const char *startup_source = "(syntax-e$1" " s_863)" " s_863)))" -"(if(null?" +"(if(pair?" " s_864)" +"(let-values(((_584_0)" +"(let-values(((s_865)" +"(car" +" s_864)))" +" s_865))" +"(()" +"(let-values(((s_866)" +"(cdr" +" s_864)))" +"(let-values(((s_867)" +"(if(syntax?$1" +" s_866)" +"(syntax-e$1" +" s_866)" +" s_866)))" +"(if(null?" +" s_867)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _582_0))" +" _584_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _580_0" -" _581_0))" +" _582_0" +" _583_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" define-values577_0" -" _578_0" -" _579_0))" +" define-values579_0" +" _580_0" +" _581_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91)))))" "(values" " #t" -" define-values574_1" -" _575_1" -" _576_1)))" +" define-values576_1" +" _577_1" +" _578_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx583_0)" +"(let-values(((rhs-ctx585_0)" " rhs-ctx_2)" -"((s584_0)" -" s_853)" -"((temp585_0)" +"((s586_0)" +" s_856)" +"((temp587_0)" " #t))" "(keep-as-needed119.1" " #f" " #f" -" temp585_0" -" rhs-ctx583_0" -" s584_0))))" +" temp587_0" +" rhs-ctx585_0" +" s586_0))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -75213,17 +75216,17 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp586_0)" +"(let-values(((temp588_0)" "(semi-parsed-define-values-rhs" " body_22))" -"((rhs-ctx587_0)" +"((rhs-ctx589_0)" " rhs-ctx_2))" "(expand9.1" " #f" " #f" " #f" -" temp586_0" -" rhs-ctx587_0)))))" +" temp588_0" +" rhs-ctx589_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -75239,32 +75242,32 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs588_0)" +"(let-values(((exp-rhs590_0)" " exp-rhs_7)" -"((temp589_0)" +"((temp591_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand9.1" " #f" " #f" " #f" -" exp-rhs588_0" -" temp589_0))))))" +" exp-rhs590_0" +" temp591_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s590_0)" +"(let-values(((rebuild-s592_0)" " rebuild-s_15)" -"((temp591_0)" +"((temp593_0)" "(list" -" define-values574_0" +" define-values576_0" " ids_48" " exp-rhs_7)))" "(rebuild5.1" " #t" -" rebuild-s590_0" -" temp591_0))" +" rebuild-s592_0" +" temp593_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" @@ -75282,33 +75285,33 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body592_0)" +"(let-values(((body594_0)" " body_22)" -"((temp593_0)" +"((temp595_0)" "(as-expression-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" body592_0" -" temp593_0))))" +" body594_0" +" temp595_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body594_0)" +"(let-values(((exp-body596_0)" " exp-body_9)" -"((temp595_0)" +"((temp597_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" exp-body594_0" -" temp595_0)))))))))))))))" +" exp-body596_0" +" temp597_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -75329,14 +75332,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_157)" +"(let-values(((obs_156)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_157" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_156" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -75348,43 +75351,43 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules596_0)" +"(let-values(((lifted-modules598_0)" " lifted-modules_0)" -"((phase597_0) phase_150)" -"((self598_0) self_36)" -"((body-ctx599_0)" +"((phase599_0) phase_150)" +"((self600_0) self_36)" +"((body-ctx601_0)" " body-ctx_7)" -"((mpis-to-reset600_0)" +"((mpis-to-reset602_0)" " mpis-to-reset_2)" -"((declared-submodule-names601_0)" +"((declared-submodule-names603_0)" " declared-submodule-names_5)" -"((compiled-submodules602_0)" +"((compiled-submodules604_0)" " compiled-submodules_3)" -"((modules-being-compiled603_0)" +"((modules-being-compiled605_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules602_0" -" declared-submodule-names601_0" -" modules-being-compiled603_0" -" mpis-to-reset600_0" -" lifted-modules596_0" -" phase597_0" -" self598_0" -" body-ctx599_0))))" +" compiled-submodules604_0" +" declared-submodule-names603_0" +" modules-being-compiled605_0" +" mpis-to-reset602_0" +" lifted-modules598_0" +" phase599_0" +" self600_0" +" body-ctx601_0))))" "(let-values(((exp-lifted-defns_0)" "(loop_125 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_158)" +"(let-values(((obs_157)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_158" +"(if obs_157" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_158" +" obs_157" " 'next)))" "(void)))))" "(append" @@ -75401,7 +75404,7 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_115 requires+provides_9)" +"(lambda(need-eventually-defined_3 self_37 ctx_114 requires+provides_9)" "(begin" "(begin" "(let-values(((ht_162) need-eventually-defined_3))" @@ -75420,24 +75423,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_441) l_89))" +"(let-values(((lst_443) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_441)))" +"(let-values()(check-list lst_443)))" "((letrec-values(((for-loop_338)" -"(lambda(lst_442)" +"(lambda(lst_444)" "(begin" " 'for-loop" "(if(pair?" -" lst_442)" +" lst_444)" "(let-values(((id_156)" "(unsafe-car" -" lst_442))" +" lst_444))" "((rest_263)" "(unsafe-cdr" -" lst_442)))" +" lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75445,9 +75448,9 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_95)" -"(let-values(((id604_0)" +"(let-values(((id606_0)" " id_156)" -"((phase605_0)" +"((phase607_0)" " phase_151))" "(resolve+shift28.1" " #f" @@ -75455,8 +75458,8 @@ static const char *startup_source = " null" " unsafe-undefined" " #f" -" id604_0" -" phase605_0))))" +" id606_0" +" phase607_0))))" "(let-values(((bound-here?_0)" "(if b_95" "(if(module-binding?" @@ -75516,7 +75519,7 @@ static const char *startup_source = " null" "(syntax-debug-info-string" " id_156" -" ctx_115))))))))" +" ctx_114))))))))" "(values)))))" "(values)))))" "(if(not #f)" @@ -75525,7 +75528,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_338)" -" lst_441)))" +" lst_443)))" "(void)))" "(values)))))" "(values)))))" @@ -75551,7 +75554,7 @@ static const char *startup_source = "(let-values(((m-ns_21) namespace104_0))" "(let-values(((phase_152) phase105_0))" "(let-values(((self_38) self106_0))" -"(let-values(((ctx_116) ctx107_1))" +"(let-values(((ctx_115) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_126)" @@ -75560,8 +75563,8 @@ static const char *startup_source = " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_407)(parsed?(car bodys_26))))" -"(if or-part_407 or-part_407(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_406)(parsed?(car bodys_26))))" +"(if or-part_406 or-part_406(expanded+parsed?(car bodys_26))))" "(let-values()" "(cons(car bodys_26)(loop_126(cdr bodys_26) phase_153)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" @@ -75571,16 +75574,16 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body(car bodys_26))" "(add1 phase_153))))" "(cons" -"(let-values(((the-struct_112)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_112)" -"(let-values(((body606_0) nested-bodys_2))" +"(let-values(((the-struct_111)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_111)" +"(let-values(((body608_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_112)" -" body606_0))" +"(semi-parsed-begin-for-syntax-s the-struct_111)" +" body608_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_112)))" +" the-struct_111)))" "(loop_126(cdr bodys_26) phase_153))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" @@ -75590,52 +75593,52 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_159)" +"(let-values(((obs_158)" "(expand-context-observer" -" ctx_116)))" -"(if obs_159" +" ctx_115)))" +"(if obs_158" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_159" +" obs_158" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_159" +" obs_158" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_88 #%provide607_0 spec608_0)" -"(let-values(((s_865) disarmed-body_1))" -"(let-values(((orig-s_92) s_865))" -"(let-values(((#%provide607_1" -" spec608_1)" -"(let-values(((s_866)" -"(if(syntax?$1" -" s_865)" -"(syntax-e$1" -" s_865)" -" s_865)))" -"(if(pair? s_866)" -"(let-values(((#%provide609_0)" -"(let-values(((s_867)" -"(car" -" s_866)))" -" s_867))" -"((spec610_0)" -"(let-values(((s_868)" -"(cdr" -" s_866)))" -"(let-values(((s_662)" +"(let-values(((ok?_88 #%provide609_0 spec610_0)" +"(let-values(((s_868) disarmed-body_1))" +"(let-values(((orig-s_92) s_868))" +"(let-values(((#%provide609_1" +" spec610_1)" +"(let-values(((s_869)" "(if(syntax?$1" " s_868)" "(syntax-e$1" " s_868)" " s_868)))" +"(if(pair? s_869)" +"(let-values(((#%provide611_0)" +"(let-values(((s_662)" +"(car" +" s_869)))" +" s_662))" +"((spec612_0)" +"(let-values(((s_870)" +"(cdr" +" s_869)))" +"(let-values(((s_871)" +"(if(syntax?$1" +" s_870)" +"(syntax-e$1" +" s_870)" +" s_870)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_662)))" +" s_871)))" "(if(not" " flat-s_64)" "(let-values()" @@ -75646,158 +75649,158 @@ static const char *startup_source = "(let-values()" " flat-s_64)))))))" "(values" -" #%provide609_0" -" spec610_0))" +" #%provide611_0" +" spec612_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92)))))" "(values" " #t" -" #%provide607_1" -" spec608_1))))))" +" #%provide609_1" +" spec610_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec608_0" +" spec610_0" "(car bodys_26)" " requires+provides_10" " self_38" " phase_153" -"(let-values(((v_276) ctx_116))" -"(let-values(((the-struct_113)" -" v_276))" +"(let-values(((v_274) ctx_115))" +"(let-values(((the-struct_112)" +" v_274))" "(if(expand-context/outer?" -" the-struct_113)" -"(let-values(((context611_0)" +" the-struct_112)" +"(let-values(((context613_0)" " 'top-level)" -"((inner612_0)" -"(let-values(((the-struct_114)" +"((inner614_0)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_276)))" +" v_274)))" "(if(expand-context/inner?" -" the-struct_114)" -"(let-values(((phase613_0)" +" the-struct_113)" +"(let-values(((phase615_0)" " phase_153)" -"((namespace614_0)" +"((namespace616_0)" "(namespace->namespace-at-phase" " m-ns_21" " phase_153))" -"((requires+provides615_0)" +"((requires+provides617_0)" " requires+provides_10)" -"((declared-submodule-names616_0)" +"((declared-submodule-names618_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_114)" -" phase613_0" -" namespace614_0" +" the-struct_113)" +" phase615_0" +" namespace616_0" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-module-begin-k" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-in-local-expand?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-keep-#%expression?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-stops" -" the-struct_114)" -" declared-submodule-names616_0" +" the-struct_113)" +" declared-submodule-names618_0" "(expand-context/inner-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-module-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-module-lifts" -" the-struct_114)" -" requires+provides615_0" +" the-struct_113)" +" requires+provides617_0" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_114)))))" -"(expand-context/outer1.1" -" inner612_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_113)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_113)" -"(root-expand-context/outer-frame-id" -" the-struct_113)" -" context611_0" -"(expand-context/outer-env" -" the-struct_113)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" -"(expand-context/outer-scopes" -" the-struct_113)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_113)" -"(expand-context/outer-binding-layer" -" the-struct_113)" -"(expand-context/outer-reference-records" -" the-struct_113)" -"(expand-context/outer-only-immediate?" -" the-struct_113)" -"(expand-context/outer-need-eventually-defined" -" the-struct_113)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_113)" -"(expand-context/outer-name" " the-struct_113)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_113)))))" +"(expand-context/outer1.1" +" inner614_0" +"(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)" +" context613_0" +"(expand-context/outer-env" +" the-struct_112)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_112)" +"(expand-context/outer-scopes" +" the-struct_112)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_112)" +"(expand-context/outer-binding-layer" +" the-struct_112)" +"(expand-context/outer-reference-records" +" the-struct_112)" +"(expand-context/outer-only-immediate?" +" the-struct_112)" +"(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_113)))))))" -"(if(expand-context-to-parsed? ctx_116)" +" the-struct_112)))))))" +"(if(expand-context-to-parsed? ctx_115)" "(let-values()" "(loop_126(cdr bodys_26) phase_153))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp617_0)" +"(let-values(((temp619_0)" "(car bodys_26))" -"((temp618_0)" +"((temp620_0)" "(list*" -" #%provide607_0" +" #%provide609_0" " specs_2)))" "(rebuild5.1" " #t" -" temp617_0" -" temp618_0)))))" +" temp619_0" +" temp620_0)))))" "(begin" -"(let-values(((obs_160)" +"(let-values(((obs_159)" "(expand-context-observer" -" ctx_116)))" -"(if obs_160" +" ctx_115)))" +"(if obs_159" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_160" +" obs_159" " 'exit-prim" " new-s_10)))" "(void)))" @@ -75836,7 +75839,7 @@ static const char *startup_source = "(let-values(((self_39) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_117) ctx125_0))" +"(let-values(((ctx_116) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -75857,36 +75860,36 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_408) enclosing-self_3))" -"(if or-part_408 or-part_408 self_39)))))" +"(let-values(((or-part_407) enclosing-self_3))" +"(if or-part_407 or-part_407 self_39)))))" "(let-values(((compiled-module_0)" -"(let-values(((parsed-mod619_0) parsed-mod_0)" -"((temp620_0)" -"(let-values(((m-ns624_0) m-ns_22)" -"((enclosing-self625_0) enclosing-self_3)" -"((temp626_0)" +"(let-values(((parsed-mod621_0) parsed-mod_0)" +"((temp622_0)" +"(let-values(((m-ns626_0) m-ns_22)" +"((enclosing-self627_0) enclosing-self_3)" +"((temp628_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp626_0" +" temp628_0" " unsafe-undefined" -" enclosing-self625_0" -" m-ns624_0" +" enclosing-self627_0" +" m-ns626_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp621_0)(expand-context-for-serializable? ctx_117))" -"((modules-being-compiled622_0) modules-being-compiled_6)" -"((temp623_0) #f))" +"((temp623_0)(expand-context-for-serializable? ctx_116))" +"((modules-being-compiled624_0) modules-being-compiled_6)" +"((temp625_0) #f))" "(compile-module13.1" " #f" -" modules-being-compiled622_0" +" modules-being-compiled624_0" +" temp625_0" " temp623_0" -" temp621_0" " #f" -" parsed-mod619_0" -" temp620_0))))" +" parsed-mod621_0" +" temp622_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -75902,24 +75905,24 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((compiled-module627_0) compiled-module_0)((temp628_0) #f))" +"(let-values(((compiled-module629_0) compiled-module_0)((temp630_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp628_0" -" compiled-module627_0)))))))))))))))))))))))))" +" temp630_0" +" compiled-module629_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_869 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_872 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_870)" -"(syntax-property$1 s_869 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_871)" +"(let-values(((s_873)" +"(syntax-property$1 s_872 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_874)" "(syntax-property$1" -" s_870" +" s_873" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_871)))))" +" s_874)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -75963,38 +75966,38 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_23)))" -"(let-values(((ok?_89 begin-for-syntax629_0 _630_0)" -"(let-values(((s_872)" +"(let-values(((ok?_89 begin-for-syntax631_0 _632_0)" +"(let-values(((s_694)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_872))" -"(let-values(((begin-for-syntax629_1" -" _630_1)" -"(let-values(((s_873)" +"(let-values(((orig-s_93) s_694))" +"(let-values(((begin-for-syntax631_1" +" _632_1)" +"(let-values(((s_696)" "(if(syntax?$1" -" s_872)" +" s_694)" "(syntax-e$1" -" s_872)" -" s_872)))" -"(if(pair? s_873)" -"(let-values(((begin-for-syntax631_0)" -"(let-values(((s_874)" -"(car" -" s_873)))" -" s_874))" -"((_632_0)" +" s_694)" +" s_694)))" +"(if(pair? s_696)" +"(let-values(((begin-for-syntax633_0)" "(let-values(((s_875)" -"(cdr" -" s_873)))" +"(car" +" s_696)))" +" s_875))" +"((_634_0)" "(let-values(((s_876)" +"(cdr" +" s_696)))" +"(let-values(((s_877)" "(if(syntax?$1" -" s_875)" +" s_876)" "(syntax-e$1" -" s_875)" -" s_875)))" +" s_876)" +" s_876)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_876)))" +" s_877)))" "(if(not" " flat-s_65)" "(let-values()" @@ -76005,27 +76008,27 @@ static const char *startup_source = "(let-values()" " flat-s_65)))))))" "(values" -" begin-for-syntax631_0" -" _632_0))" +" begin-for-syntax633_0" +" _634_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93)))))" "(values" " #t" -" begin-for-syntax629_1" -" _630_1))))))" +" begin-for-syntax631_1" +" _632_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx633_0)" +"(let-values(((submod-ctx635_0)" " submod-ctx_1)" -"((body-s634_0)" +"((body-s636_0)" " body-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" submod-ctx633_0" -" body-s634_0))))" +" submod-ctx635_0" +" body-s636_0))))" "(let-values(((nested-bodys_3)" "(loop_127" "(semi-parsed-begin-for-syntax-body" @@ -76040,22 +76043,22 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s635_0)" +"(let-values(((rebuild-body-s637_0)" " rebuild-body-s_0)" -"((temp636_0)" +"((temp638_0)" "(list*" -" begin-for-syntax629_0" +" begin-for-syntax631_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #t" -" rebuild-body-s635_0" -" temp636_0))" +" rebuild-body-s637_0" +" temp638_0))" " parsed-bfs_0))" "(loop_127 rest-bodys_3 phase_155))))))))" -"(if(let-values(((or-part_409)(parsed? body_23)))" -"(if or-part_409" -" or-part_409" +"(if(let-values(((or-part_408)(parsed? body_23)))" +"(if or-part_408" +" or-part_408" "(expanded+parsed? body_23)))" "(let-values()" "(cons body_23(loop_127 rest-bodys_3 phase_155)))" @@ -76078,63 +76081,63 @@ static const char *startup_source = " body_23" " submod-ctx_1)))" "(let-values(((ok?_90" -" module*637_0" -" name638_0" -" _639_0)" -"(let-values(((s_700)" +" module*639_0" +" name640_0" +" _641_0)" +"(let-values(((s_878)" " disarmed-body_2))" -"(if(let-values(((s_877)" +"(if(let-values(((s_879)" "(if(syntax?$1" -" s_700)" +" s_878)" "(syntax-e$1" -" s_700)" -" s_700)))" -"(if(pair? s_877)" -"(if(let-values(((s_878)" +" s_878)" +" s_878)))" +"(if(pair? s_879)" +"(if(let-values(((s_701)" "(car" -" s_877)))" -" #t)" -"(let-values(((s_879)" -"(cdr" -" s_877)))" -"(let-values(((s_701)" -"(if(syntax?$1" -" s_879)" -"(syntax-e$1" -" s_879)" " s_879)))" -"(if(pair?" -" s_701)" -"(if(let-values(((s_880)" -"(car" -" s_701)))" " #t)" -"(let-values(((s_702)" +"(let-values(((s_880)" "(cdr" -" s_701)))" -"(let-values(((s_881)" +" s_879)))" +"(let-values(((s_702)" "(if(syntax?$1" -" s_702)" +" s_880)" "(syntax-e$1" -" s_702)" -" s_702)))" +" s_880)" +" s_880)))" "(if(pair?" -" s_881)" -"(if(let-values(((s_882)" +" s_702)" +"(if(let-values(((s_881)" "(car" -" s_881)))" +" s_702)))" +" #t)" +"(let-values(((s_882)" +"(cdr" +" s_702)))" "(let-values(((s_703)" "(if(syntax?$1" " s_882)" "(syntax-e$1" " s_882)" " s_882)))" +"(if(pair?" +" s_703)" +"(if(let-values(((s_883)" +"(car" +" s_703)))" +"(let-values(((s_884)" +"(if(syntax?$1" +" s_883)" +"(syntax-e$1" +" s_883)" +" s_883)))" "(eq?" " #f" -" s_703)))" -"(let-values(((s_883)" +" s_884)))" +"(let-values(((s_885)" "(cdr" -" s_881)))" +" s_703)))" " #t)" " #f)" " #f)))" @@ -76143,76 +76146,76 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*637_1" -" name638_1" -" _639_1)" -"(let-values(((s_884)" -"(if(syntax?$1" -" s_700)" -"(syntax-e$1" -" s_700)" -" s_700)))" -"(let-values(((module*640_0)" -"(let-values(((s_885)" -"(car" -" s_884)))" -" s_885))" -"((name641_0" -" _642_0)" +"(let-values(((module*639_1" +" name640_1" +" _641_1)" "(let-values(((s_886)" -"(cdr" -" s_884)))" +"(if(syntax?$1" +" s_878)" +"(syntax-e$1" +" s_878)" +" s_878)))" +"(let-values(((module*642_0)" "(let-values(((s_887)" -"(if(syntax?$1" -" s_886)" -"(syntax-e$1" -" s_886)" +"(car" " s_886)))" -"(let-values(((name643_0)" +" s_887))" +"((name643_0" +" _644_0)" "(let-values(((s_888)" -"(car" -" s_887)))" -" s_888))" -"((_644_0)" -"(let-values(((s_889)" "(cdr" -" s_887)))" -"(let-values(((s_890)" +" s_886)))" +"(let-values(((s_889)" "(if(syntax?$1" -" s_889)" +" s_888)" "(syntax-e$1" -" s_889)" -" s_889)))" -"(let-values((()" -"(let-values(((s_891)" +" s_888)" +" s_888)))" +"(let-values(((name645_0)" +"(let-values(((s_890)" "(car" -" s_890)))" +" s_889)))" +" s_890))" +"((_646_0)" +"(let-values(((s_891)" +"(cdr" +" s_889)))" "(let-values(((s_892)" "(if(syntax?$1" " s_891)" "(syntax-e$1" " s_891)" " s_891)))" -"(values))))" -"((_645_0)" +"(let-values((()" "(let-values(((s_893)" -"(cdr" -" s_890)))" +"(car" +" s_892)))" +"(let-values(((s_894)" +"(if(syntax?$1" +" s_893)" +"(syntax-e$1" +" s_893)" " s_893)))" +"(values))))" +"((_647_0)" +"(let-values(((s_895)" +"(cdr" +" s_892)))" +" s_895)))" "(values" -" _645_0))))))" +" _647_0))))))" "(values" +" name645_0" +" _646_0))))))" +"(values" +" module*642_0" " name643_0" -" _644_0))))))" -"(values" -" module*640_0" -" name641_0" -" _642_0)))))" +" _644_0)))))" "(values" " #t" -" module*637_1" -" name638_1" -" _639_1)))" +" module*639_1" +" name640_1" +" _641_1)))" "(values" " #f" " #f" @@ -76230,43 +76233,43 @@ static const char *startup_source = " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((shifted-s646_0)" +"(let-values(((shifted-s648_0)" " shifted-s_0)" -"((self647_0)" +"((self649_0)" " self_40)" -"((submod-ctx648_0)" +"((submod-ctx650_0)" " submod-ctx_1)" -"((temp649_0)" +"((temp651_0)" " #t)" -"((neg-phase650_0)" +"((neg-phase652_0)" " neg-phase_0)" -"((all-scopes-s651_0)" +"((all-scopes-s653_0)" " all-scopes-s_1)" -"((requires+provides652_0)" +"((requires+provides654_0)" " requires+provides_12)" -"((enclosing-is-cross-phase-persistent?653_0)" +"((enclosing-is-cross-phase-persistent?655_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset654_0)" +"((mpis-to-reset656_0)" " mpis-to-reset_3)" -"((declared-submodule-names655_0)" +"((declared-submodule-names657_0)" " declared-submodule-names_7)" -"((compiled-submodules656_0)" +"((compiled-submodules658_0)" " compiled-submodules_4)" -"((modules-being-compiled657_0)" +"((modules-being-compiled659_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules656_0" -" declared-submodule-names655_0" -" all-scopes-s651_0" -" enclosing-is-cross-phase-persistent?653_0" -" requires+provides652_0" -" temp649_0" -" neg-phase650_0" -" modules-being-compiled657_0" -" mpis-to-reset654_0" -" shifted-s646_0" -" self647_0" -" submod-ctx648_0))))" +" compiled-submodules658_0" +" declared-submodule-names657_0" +" all-scopes-s653_0" +" enclosing-is-cross-phase-persistent?655_0" +" requires+provides654_0" +" temp651_0" +" neg-phase652_0" +" modules-being-compiled659_0" +" mpis-to-reset656_0" +" shifted-s648_0" +" self649_0" +" submod-ctx650_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -76274,57 +76277,57 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_114)" " submod_4))" "(if(expanded+parsed?" -" the-struct_115)" -"(let-values(((s658_0)" +" the-struct_114)" +"(let-values(((s660_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" " phase_155)))" "(expanded+parsed1.1" -" s658_0" +" s660_0" "(expanded+parsed-parsed" -" the-struct_115)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_115))))" +" the-struct_114))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" " phase_155))))))))" "(let-values()" -"(let-values(((ready-body659_0)" +"(let-values(((ready-body661_0)" " ready-body_2)" -"((self660_0)" +"((self662_0)" " self_40)" -"((submod-ctx661_0)" +"((submod-ctx663_0)" " submod-ctx_1)" -"((temp662_0)" +"((temp664_0)" " #t)" -"((mpis-to-reset663_0)" +"((mpis-to-reset665_0)" " mpis-to-reset_3)" -"((declared-submodule-names664_0)" +"((declared-submodule-names666_0)" " declared-submodule-names_7)" -"((compiled-submodules665_0)" +"((compiled-submodules667_0)" " compiled-submodules_4)" -"((modules-being-compiled666_0)" +"((modules-being-compiled668_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules665_0" -" declared-submodule-names664_0" +" compiled-submodules667_0" +" declared-submodule-names666_0" " #f" " #f" " #f" -" temp662_0" +" temp664_0" " #f" -" modules-being-compiled666_0" -" mpis-to-reset663_0" -" ready-body659_0" -" self660_0" -" submod-ctx661_0))))))" +" modules-being-compiled668_0" +" mpis-to-reset665_0" +" ready-body661_0" +" self662_0" +" submod-ctx663_0))))))" "(cons" " submod_3" "(loop_127" @@ -76341,12 +76344,12 @@ static const char *startup_source = " phase_154)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_118)" +"(lambda(ctx_117)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_118)" -"(expand-context-phase ctx_118)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))" +"(expand-context-stops ctx_117)" +"(expand-context-phase ctx_117)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_117))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" @@ -76355,66 +76358,66 @@ static const char *startup_source = "(let-values(((ids_49) ids170_0))" "(let-values(((phase_156) phase171_1))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_894) in168_0))" +"(let-values(((s_896) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_443) ids_49))" +"(let-values(((lst_445) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" +"(let-values()(check-list lst_445)))" "((letrec-values(((for-loop_339)" -"(lambda(lst_444)" +"(lambda(lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((id_157)(unsafe-car lst_444))" -"((rest_264)(unsafe-cdr lst_444)))" +"(if(pair? lst_446)" +"(let-values(((id_157)(unsafe-car lst_446))" +"((rest_264)(unsafe-cdr lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((requires+provides667_0)" +"(let-values(((requires+provides669_0)" " requires+provides_13)" -"((id668_0) id_157)" -"((phase669_0)" +"((id670_0) id_157)" +"((phase671_0)" " phase_156)" -"((s670_0) s_894)" -"((temp671_0) 'module))" +"((s672_0) s_896)" +"((temp673_0) 'module))" "(check-not-defined95.1" " #f" " #f" " #f" -" s670_0" +" s672_0" " #f" " #f" -" temp671_0" -" requires+provides667_0" -" id668_0" -" phase669_0)))" +" temp673_0" +" requires+provides669_0" +" id670_0" +" phase671_0)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_339 rest_264)(values))))" "(values))))))" " for-loop_339)" -" lst_443)))" +" lst_445)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_118)" "(begin" "(begin" -"(let-values(((lst_445) bodys_28))" +"(let-values(((lst_447) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" "((letrec-values(((for-loop_340)" -"(lambda(lst_446)" +"(lambda(lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((body_24)(unsafe-car lst_446))((rest_265)(unsafe-cdr lst_446)))" +"(if(pair? lst_448)" +"(let-values(((body_24)(unsafe-car lst_448))((rest_265)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76439,61 +76442,61 @@ static const char *startup_source = " p_87)" " phase_157" " m-ns_23" -" ctx_119)))" +" ctx_118)))" "(begin" -"(let-values(((lst_447) ids_50)" -"((lst_448)" +"(let-values(((lst_449) ids_50)" +"((lst_450)" "(parsed-define-values-syms" " p_87))" -"((lst_449) vals_11))" +"((lst_451) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_447)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_448)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_449)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_450)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_451)))" "((letrec-values(((for-loop_341)" -"(lambda(lst_450" -" lst_451" -" lst_452)" +"(lambda(lst_452" +" lst_453" +" lst_454)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_450)" -"(if(pair?" -" lst_451)" -"(pair?" " lst_452)" +"(if(pair?" +" lst_453)" +"(pair?" +" lst_454)" " #f)" " #f)" "(let-values(((id_158)" "(unsafe-car" -" lst_450))" +" lst_452))" "((rest_266)" "(unsafe-cdr" -" lst_450))" +" lst_452))" "((sym_110)" "(unsafe-car" -" lst_451))" +" lst_453))" "((rest_267)" "(unsafe-cdr" -" lst_451))" +" lst_453))" "((val_88)" "(unsafe-car" -" lst_452))" +" lst_454))" "((rest_268)" "(unsafe-cdr" -" lst_452)))" +" lst_454)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76516,23 +76519,23 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_341)" -" lst_447" -" lst_448" -" lst_449)))" +" lst_449" +" lst_450" +" lst_451)))" "(void)))))" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_409)" "(parsed-define-syntaxes?" " p_87)))" -"(if or-part_410" -" or-part_410" +"(if or-part_409" +" or-part_409" "(semi-parsed-begin-for-syntax?" " p_87)))" "(let-values()(void))" -"(if(let-values(((or-part_411)" +"(if(let-values(((or-part_410)" "(parsed-#%declare?" " p_87)))" -"(if or-part_411" -" or-part_411" +"(if or-part_410" +" or-part_410" "(syntax?$1 p_87)))" "(let-values()(void))" "(let-values()" @@ -76543,23 +76546,23 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_119" +" ctx_118" " 1/current-namespace" " m-ns_23)" "(let-values()" "(eval-single-top" "(compile-single" " p_87" -"(let-values(((m-ns672_0)" +"(let-values(((m-ns674_0)" " m-ns_23)" -"((phase673_0)" +"((phase675_0)" " phase_157))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" m-ns672_0" -" phase673_0" +" m-ns674_0" +" phase675_0" " unsafe-undefined)))" " m-ns_23)))))))))" "(values)))))" @@ -76567,7 +76570,7 @@ static const char *startup_source = "(if(not #f)(for-loop_340 rest_265)(values))))" "(values))))))" " for-loop_340)" -" lst_445)))" +" lst_447)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76585,9 +76588,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_895) s194_0))" +"(let-values(((s_897) s194_0))" "(let-values(((self_42) self195_0))" -"(let-values(((ctx_120) ctx196_0))" +"(let-values(((ctx_119) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2) keep-enclosing-scope-at-phase177_0))" "(let-values(((enclosing-r+p_2) enclosing-requires+provides178_0))" @@ -76603,59 +76606,59 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_161)(expand-context-observer ctx_120)))" -"(if obs_161" +"(let-values(((obs_160)(expand-context-observer ctx_119)))" +"(if obs_160" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_895)" +"(call-expand-observe obs_160 'enter-prim s_897)" "(call-expand-observe" -" obs_161" +" obs_160" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_91 module674_0 name675_0 _676_0)" -"(let-values(((s_896) s_895))" -"(let-values(((orig-s_94) s_896))" -"(let-values(((module674_1 name675_1 _676_1)" -"(let-values(((s_755)" -"(if(syntax?$1 s_896)" -"(syntax-e$1 s_896)" -" s_896)))" -"(if(pair? s_755)" -"(let-values(((module677_0)" -"(let-values(((s_756)(car s_755)))" -" s_756))" -"((name678_0 _679_0)" -"(let-values(((s_897)(cdr s_755)))" -"(let-values(((s_757)" -"(if(syntax?$1" -" s_897)" -"(syntax-e$1 s_897)" -" s_897)))" -"(if(pair? s_757)" -"(let-values(((name680_0)" +"(let-values(((ok?_91 module676_0 name677_0 _678_0)" +"(let-values(((s_752) s_897))" +"(let-values(((orig-s_94) s_752))" +"(let-values(((module676_1 name677_1 _678_1)" "(let-values(((s_898)" -"(car" -" s_757)))" -" s_898))" -"((_681_0)" +"(if(syntax?$1 s_752)" +"(syntax-e$1 s_752)" +" s_752)))" +"(if(pair? s_898)" +"(let-values(((module679_0)" +"(let-values(((s_757)(car s_898)))" +" s_757))" +"((name680_0 _681_0)" +"(let-values(((s_758)(cdr s_898)))" +"(let-values(((s_759)" +"(if(syntax?$1" +" s_758)" +"(syntax-e$1 s_758)" +" s_758)))" +"(if(pair? s_759)" +"(let-values(((name682_0)" "(let-values(((s_899)" +"(car" +" s_759)))" +" s_899))" +"((_683_0)" +"(let-values(((s_900)" "(cdr" -" s_757)))" -" s_899)))" -"(values name680_0 _681_0))" +" s_759)))" +" s_900)))" +"(values name682_0 _683_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94))))))" -"(values module677_0 name678_0 _679_0))" +"(values module679_0 name680_0 _681_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94)))))" -"(values #t module674_1 name675_1 _676_1))))))" -"(let-values(((name_82)(syntax-e$1 name675_0)))" +"(values #t module676_1 name677_1 _678_1))))))" +"(let-values(((name_82)(syntax-e$1 name677_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_82 #f)" @@ -76663,7 +76666,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_895" +" s_897" " name_82))" "(void))" "(values))))" @@ -76672,195 +76675,195 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_82" -"(syntax-e$1 module674_0))" +"(syntax-e$1 module676_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_120)))" -"(if obs_162" +"(let-values(((obs_161)(expand-context-observer ctx_119)))" +"(if obs_161" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_895)))" +"(call-expand-observe obs_161 'enter-prim s_897)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s682_0) s_895)" -"((temp683_0)" -"(let-values(((v_277) ctx_120))" -"(let-values(((the-struct_116) v_277))" -"(if(expand-context/outer? the-struct_116)" -"(let-values(((context692_0) 'module)" -"((post-expansion-scope693_0)" +"(let-values(((s684_0) s_897)" +"((temp685_0)" +"(let-values(((v_275) ctx_119))" +"(let-values(((the-struct_115) v_275))" +"(if(expand-context/outer? the-struct_115)" +"(let-values(((context694_0) 'module)" +"((post-expansion-scope695_0)" " #f)" -"((inner694_0)" -"(let-values(((the-struct_117)" +"((inner696_0)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_277)))" +" v_275)))" "(if(expand-context/inner?" -" the-struct_117)" -"(let-values(((stops695_0)" +" the-struct_116)" +"(let-values(((stops697_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-phase" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-namespace" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-just-once?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-keep-#%expression?" -" the-struct_117)" -" stops695_0" +" the-struct_116)" +" stops697_0" "(expand-context/inner-declared-submodule-names" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-lift-envs" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-require-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-module-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-requires+provides" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-observer" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_117)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_117)))))" -"(expand-context/outer1.1" -" inner694_0" -" post-expansion-scope693_0" -"(root-expand-context/outer-use-site-scopes" -" the-struct_116)" -"(root-expand-context/outer-frame-id" -" the-struct_116)" -" context692_0" -"(expand-context/outer-env" -" the-struct_116)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_116)" -"(expand-context/outer-scopes" -" the-struct_116)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_116)" -"(expand-context/outer-binding-layer" -" the-struct_116)" -"(expand-context/outer-reference-records" -" the-struct_116)" -"(expand-context/outer-only-immediate?" -" the-struct_116)" -"(expand-context/outer-need-eventually-defined" -" the-struct_116)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_116)" -"(expand-context/outer-name" " the-struct_116)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_116)))))" -"((self684_0) self_42)" -"((temp685_0) #t)" -"((keep-enclosing-scope-at-phase686_0)" +"(expand-context/outer1.1" +" inner696_0" +" post-expansion-scope695_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_115)" +"(root-expand-context/outer-frame-id" +" the-struct_115)" +" context694_0" +"(expand-context/outer-env" +" the-struct_115)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_115)" +"(expand-context/outer-scopes" +" the-struct_115)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_115)" +"(expand-context/outer-binding-layer" +" the-struct_115)" +"(expand-context/outer-reference-records" +" the-struct_115)" +"(expand-context/outer-only-immediate?" +" the-struct_115)" +"(expand-context/outer-need-eventually-defined" +" the-struct_115)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_115)" +"(expand-context/outer-name" +" the-struct_115)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_115)))))" +"((self686_0) self_42)" +"((temp687_0) #t)" +"((keep-enclosing-scope-at-phase688_0)" " keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx687_0)" +"((enclosing-all-scopes-stx689_0)" " enclosing-all-scopes-stx_1)" -"((enclosing-r+p688_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?689_0)" +"((enclosing-r+p690_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?691_0)" " enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset690_0) mpis-to-reset_4)" -"((modules-being-compiled691_0)" +"((mpis-to-reset692_0) mpis-to-reset_4)" +"((modules-being-compiled693_0)" " modules-being-compiled_8))" "(expand-module18.1" +" temp687_0" +" enclosing-all-scopes-stx689_0" +" enclosing-is-cross-phase-persistent?691_0" +" enclosing-r+p690_0" +" keep-enclosing-scope-at-phase688_0" +" modules-being-compiled693_0" +" mpis-to-reset692_0" +" s684_0" " temp685_0" -" enclosing-all-scopes-stx687_0" -" enclosing-is-cross-phase-persistent?689_0" -" enclosing-r+p688_0" -" keep-enclosing-scope-at-phase686_0" -" modules-being-compiled691_0" -" mpis-to-reset690_0" -" s682_0" -" temp683_0" -" self684_0))))" +" self686_0))))" "(let-values((()" "(begin" -"(let-values(((obs_163)" -"(expand-context-observer ctx_120)))" -"(if obs_163" +"(let-values(((obs_162)" +"(expand-context-observer ctx_119)))" +"(if obs_162" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_163" +" obs_162" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_120)))" +"(let-values(((ns_131)(expand-context-namespace ctx_119)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" "(let-values(((compiled-submodule_0)" -"(let-values(((temp696_0)" +"(let-values(((temp698_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp697_0)" -"(let-values(((ns702_0) ns_131)" -"((self703_0) self_42)" -"((temp704_0)" +"((temp699_0)" +"(let-values(((ns704_0) ns_131)" +"((self705_0) self_42)" +"((temp706_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp704_0" +" temp706_0" " unsafe-undefined" -" self703_0" -" ns702_0" +" self705_0" +" ns704_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp698_0) #t)" -"((temp699_0)" +"((temp700_0) #t)" +"((temp701_0)" "(expand-context-for-serializable?" -" ctx_120))" -"((modules-being-compiled700_0)" +" ctx_119))" +"((modules-being-compiled702_0)" " modules-being-compiled_8)" -"((temp701_0) #f))" +"((temp703_0) #f))" "(compile-module13.1" -" temp698_0" -" modules-being-compiled700_0" +" temp700_0" +" modules-being-compiled702_0" +" temp703_0" " temp701_0" -" temp699_0" " #f" -" temp696_0" -" temp697_0))))" +" temp698_0" +" temp699_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -76875,24 +76878,24 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((compiled-submodule705_0)" +"(let-values(((compiled-submodule707_0)" " compiled-submodule_0)" -"((temp706_0) #f))" +"((temp708_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp706_0" -" compiled-submodule705_0))))" +" temp708_0" +" compiled-submodule707_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_164)" -"(expand-context-observer ctx_120)))" -"(if obs_164" +"(let-values(((obs_163)" +"(expand-context-observer ctx_119)))" +"(if obs_163" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_164" +" obs_163" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -76900,67 +76903,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_118) submod_5))" -"(if(expanded+parsed? the-struct_118)" -"(let-values(((parsed707_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_117) submod_5))" +"(if(expanded+parsed? the-struct_117)" +"(let-values(((parsed709_0)" +"(let-values(((the-struct_118)" "(expanded+parsed-parsed" " submod_5)))" +"(if(parsed-module? the-struct_118)" +"(let-values(((star?710_0) #t))" +"(parsed-module25.1" +"(parsed-s the-struct_118)" +" star?710_0" +"(parsed-module-name-id" +" the-struct_118)" +"(parsed-module-self" +" the-struct_118)" +"(parsed-module-requires" +" the-struct_118)" +"(parsed-module-provides" +" the-struct_118)" +"(parsed-module-root-ctx-simple?" +" the-struct_118)" +"(parsed-module-encoded-root-ctx" +" the-struct_118)" +"(parsed-module-body" +" the-struct_118)" +"(parsed-module-compiled-module" +" the-struct_118)" +"(parsed-module-compiled-submodules" +" the-struct_118)))" +"(raise-argument-error" +" 'struct-copy" +" \"parsed-module?\"" +" the-struct_118)))))" +"(expanded+parsed1.1" +"(expanded+parsed-s the-struct_117)" +" parsed709_0))" +"(raise-argument-error" +" 'struct-copy" +" \"expanded+parsed?\"" +" the-struct_117))))" +"(let-values()" +"(let-values(((the-struct_119) submod_5))" "(if(parsed-module? the-struct_119)" -"(let-values(((star?708_0) #t))" +"(let-values(((star?711_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_119)" -" star?708_0" -"(parsed-module-name-id" -" the-struct_119)" -"(parsed-module-self" -" the-struct_119)" -"(parsed-module-requires" -" the-struct_119)" -"(parsed-module-provides" -" the-struct_119)" -"(parsed-module-root-ctx-simple?" -" the-struct_119)" -"(parsed-module-encoded-root-ctx" -" the-struct_119)" -"(parsed-module-body" -" the-struct_119)" -"(parsed-module-compiled-module" -" the-struct_119)" +" star?711_0" +"(parsed-module-name-id the-struct_119)" +"(parsed-module-self the-struct_119)" +"(parsed-module-requires the-struct_119)" +"(parsed-module-provides the-struct_119)" +"(parsed-module-root-ctx-simple? the-struct_119)" +"(parsed-module-encoded-root-ctx the-struct_119)" +"(parsed-module-body the-struct_119)" +"(parsed-module-compiled-module the-struct_119)" "(parsed-module-compiled-submodules" " the-struct_119)))" "(raise-argument-error" " 'struct-copy" -" \"parsed-module?\"" -" the-struct_119)))))" -"(expanded+parsed1.1" -"(expanded+parsed-s the-struct_118)" -" parsed707_0))" -"(raise-argument-error" -" 'struct-copy" -" \"expanded+parsed?\"" -" the-struct_118))))" -"(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(parsed-module? the-struct_120)" -"(let-values(((star?709_0) #t))" -"(parsed-module25.1" -"(parsed-s the-struct_120)" -" star?709_0" -"(parsed-module-name-id the-struct_120)" -"(parsed-module-self the-struct_120)" -"(parsed-module-requires the-struct_120)" -"(parsed-module-provides the-struct_120)" -"(parsed-module-root-ctx-simple? the-struct_120)" -"(parsed-module-encoded-root-ctx the-struct_120)" -"(parsed-module-body the-struct_120)" -"(parsed-module-compiled-module the-struct_120)" -"(parsed-module-compiled-submodules" -" the-struct_120)))" -"(raise-argument-error" -" 'struct-copy" " \"parsed-module?\"" -" the-struct_120)))))))))))))))))))))))))))))))))))" +" the-struct_119)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -76976,28 +76979,28 @@ static const char *startup_source = "(let-values(((bodys_29) bodys208_0))" "(let-values(((phase_158) phase209_0))" "(let-values(((self_43) self210_0))" -"(let-values(((ctx_121) ctx211_0))" +"(let-values(((ctx_120) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_453) bodys_29))" +"(let-values(((lst_455) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_453)))" +"(let-values()(check-list lst_455)))" "((letrec-values(((for-loop_342)" -"(lambda(fold-var_385 lst_454)" +"(lambda(fold-var_383 lst_456)" "(begin" " 'for-loop" -"(if(pair? lst_454)" -"(let-values(((body_25)(unsafe-car lst_454))" -"((rest_269)(unsafe-cdr lst_454)))" +"(if(pair? lst_456)" +"(let-values(((body_25)(unsafe-car lst_456))" +"((rest_269)(unsafe-cdr lst_456)))" +"(let-values(((fold-var_384)" +"(let-values(((fold-var_385) fold-var_383))" "(let-values(((fold-var_386)" -"(let-values(((fold-var_387) fold-var_385))" -"(let-values(((fold-var_388)" "(let-values()" "(cons" "(let-values()" @@ -77008,45 +77011,45 @@ static const char *startup_source = " phase_158)))" "(if(equal? tmp_70 'module)" "(let-values()" -"(let-values(((body710_0)" +"(let-values(((body712_0)" " body_25)" -"((self711_0)" +"((self713_0)" " self_43)" -"((ctx712_0)" -" ctx_121)" -"((temp713_0)" +"((ctx714_0)" +" ctx_120)" +"((temp715_0)" " #f)" -"((mpis-to-reset714_0)" +"((mpis-to-reset716_0)" " mpis-to-reset_5)" -"((declared-submodule-names715_0)" +"((declared-submodule-names717_0)" " declared-submodule-names_9)" -"((compiled-submodules716_0)" +"((compiled-submodules718_0)" " compiled-submodules_6)" -"((modules-being-compiled717_0)" +"((modules-being-compiled719_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules716_0" -" declared-submodule-names715_0" +" compiled-submodules718_0" +" declared-submodule-names717_0" " #f" " #f" " #f" -" temp713_0" +" temp715_0" " #f" -" modules-being-compiled717_0" -" mpis-to-reset714_0" -" body710_0" -" self711_0" -" ctx712_0)))" +" modules-being-compiled719_0" +" mpis-to-reset716_0" +" body712_0" +" self713_0" +" ctx714_0)))" "(let-values() body_25))))" -" fold-var_387))))" -"(values fold-var_388)))))" +" fold-var_385))))" +"(values fold-var_386)))))" "(if(not #f)" -"(for-loop_342 fold-var_386 rest_269)" -" fold-var_386)))" -" fold-var_385)))))" +"(for-loop_342 fold-var_384 rest_269)" +" fold-var_384)))" +" fold-var_383)))))" " for-loop_342)" " null" -" lst_453))))))))))))))))" +" lst_455))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77057,75 +77060,75 @@ static const char *startup_source = "(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_900 phase_159)" -"(let-values(((ok?_92 #%require718_0 req719_0)" -"(let-values(((s_901)(syntax-disarm$1 s_900)))" -"(let-values(((orig-s_95) s_901))" -"(let-values(((#%require718_1 req719_1)" -"(let-values(((s_902)" -"(if(syntax?$1 s_901)(syntax-e$1 s_901) s_901)))" -"(if(pair? s_902)" -"(let-values(((#%require720_0)" -"(let-values(((s_903)(car s_902))) s_903))" -"((req721_0)" -"(let-values(((s_904)(cdr s_902)))" -"(let-values(((s_905)" -"(if(syntax?$1 s_904)" -"(syntax-e$1 s_904)" -" s_904)))" -"(if(pair? s_905)" -"(let-values(((req722_0)" +"(lambda(s_901 phase_159)" +"(let-values(((ok?_92 #%require720_0 req721_0)" +"(let-values(((s_902)(syntax-disarm$1 s_901)))" +"(let-values(((orig-s_95) s_902))" +"(let-values(((#%require720_1 req721_1)" +"(let-values(((s_903)" +"(if(syntax?$1 s_902)(syntax-e$1 s_902) s_902)))" +"(if(pair? s_903)" +"(let-values(((#%require722_0)" +"(let-values(((s_904)(car s_903))) s_904))" +"((req723_0)" +"(let-values(((s_905)(cdr s_903)))" "(let-values(((s_906)" -"(car s_905)))" -" s_906))" -"(()" +"(if(syntax?$1 s_905)" +"(syntax-e$1 s_905)" +" s_905)))" +"(if(pair? s_906)" +"(let-values(((req724_0)" "(let-values(((s_907)" -"(cdr s_905)))" +"(car s_906)))" +" s_907))" +"(()" "(let-values(((s_908)" +"(cdr s_906)))" +"(let-values(((s_909)" "(if(syntax?$1" -" s_907)" +" s_908)" "(syntax-e$1" -" s_907)" -" s_907)))" -"(if(null? s_908)" +" s_908)" +" s_908)))" +"(if(null? s_909)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values req722_0))" +"(values req724_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values #%require720_0 req721_0))" +"(values #%require722_0 req723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t #%require718_1 req719_1))))))" -"(let-values(((temp723_0)(list req719_0))" -"((s724_0) s_900)" -"((self725_0) self_44)" -"((m-ns726_0) m-ns_24)" -"((phase727_0) phase_159)" -"((phase728_0) phase_159)" -"((requires+provides729_0) requires+provides_14)" -"((declared-submodule-names730_0) declared-submodule-names_10)" -"((temp731_0) 'require))" +"(values #t #%require720_1 req721_1))))))" +"(let-values(((temp725_0)(list req721_0))" +"((s726_0) s_901)" +"((self727_0) self_44)" +"((m-ns728_0) m-ns_24)" +"((phase729_0) phase_159)" +"((phase730_0) phase_159)" +"((requires+provides731_0) requires+provides_14)" +"((declared-submodule-names732_0) declared-submodule-names_10)" +"((temp733_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names730_0" +" declared-submodule-names732_0" " #f" -" phase728_0" +" phase730_0" " #f" -" self725_0" +" self727_0" " #f" " #t" -" temp731_0" -" temp723_0" -" s724_0" -" m-ns726_0" -" phase727_0" -" requires+provides729_0))))))))))))" +" temp733_0" +" temp725_0" +" s726_0" +" m-ns728_0" +" phase729_0" +" requires+provides731_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -77139,57 +77142,57 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_455) lifted-defns_2))" +"(let-values(((lst_457) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_455)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_457)))" "((letrec-values(((for-loop_343)" -"(lambda(fold-var_389 lst_456)" +"(lambda(fold-var_387 lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_456)" -"(let-values(((lifted-defn_0)(unsafe-car lst_456))" -"((rest_270)(unsafe-cdr lst_456)))" +"(if(pair? lst_458)" +"(let-values(((lifted-defn_0)(unsafe-car lst_458))" +"((rest_270)(unsafe-cdr lst_458)))" +"(let-values(((fold-var_388)" +"(let-values(((fold-var_389) fold-var_387))" "(let-values(((fold-var_390)" -"(let-values(((fold-var_391) fold-var_389))" -"(let-values(((fold-var_392)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_391))))" -"(values fold-var_392)))))" -"(if(not #f)(for-loop_343 fold-var_390 rest_270) fold-var_390)))" -" fold-var_389)))))" +" fold-var_389))))" +"(values fold-var_390)))))" +"(if(not #f)(for-loop_343 fold-var_388 rest_270) fold-var_388)))" +" fold-var_387)))))" " for-loop_343)" " null" -" lst_455)))))))" +" lst_457)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_165)(expand-context-observer partial-body-ctx_2)))" -"(if obs_165" +"(let-values(((obs_164)(expand-context-observer partial-body-ctx_2)))" +"(if obs_164" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_165 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_164 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_164 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_457) s-lifted-defns_0))" +"(let-values(((lst_459) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_457)))" +"(let-values()(check-list lst_459)))" "((letrec-values(((for-loop_344)" -"(lambda(lst_458)" +"(lambda(lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_458))" -"((rest_271)(unsafe-cdr lst_458)))" +"(if(pair? lst_460)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_460))" +"((rest_271)(unsafe-cdr lst_460)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77197,40 +77200,40 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((ok?_93" -" define-values736_0" -" _737_0)" -"(let-values(((s_909)" +" define-values738_0" +" _739_0)" +"(let-values(((s_910)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_909))" -"(let-values(((define-values736_1" -" _737_1)" -"(let-values(((s_910)" -"(if(syntax?$1" -" s_909)" -"(syntax-e$1" -" s_909)" -" s_909)))" -"(if(pair?" -" s_910)" -"(let-values(((define-values738_0)" +" s_910))" +"(let-values(((define-values738_1" +" _739_1)" "(let-values(((s_911)" -"(car" -" s_910)))" -" s_911))" -"((_739_0)" -"(let-values(((s_912)" -"(cdr" -" s_910)))" -"(let-values(((s_913)" "(if(syntax?$1" -" s_912)" +" s_910)" "(syntax-e$1" -" s_912)" -" s_912)))" +" s_910)" +" s_910)))" +"(if(pair?" +" s_911)" +"(let-values(((define-values740_0)" +"(let-values(((s_912)" +"(car" +" s_911)))" +" s_912))" +"((_741_0)" +"(let-values(((s_913)" +"(cdr" +" s_911)))" +"(let-values(((s_914)" +"(if(syntax?$1" +" s_913)" +"(syntax-e$1" +" s_913)" +" s_913)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" -" s_913)))" +" s_914)))" "(if(not" " flat-s_66)" "(let-values()" @@ -77241,56 +77244,56 @@ static const char *startup_source = "(let-values()" " flat-s_66)))))))" "(values" -" define-values738_0" -" _739_0))" +" define-values740_0" +" _741_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_96)))))" "(values" " #t" -" define-values736_1" -" _737_1))))))" +" define-values738_1" +" _739_1))))))" "(begin" "(call-expand-observe" -" obs_165" +" obs_164" " 'next)" "(call-expand-observe" -" obs_165" +" obs_164" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'resolve" -" define-values736_0)" +" define-values738_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'prim-stop)" "(call-expand-observe" -" obs_165" +" obs_164" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_164" " 'prim-define-values)" "(call-expand-observe" -" obs_165" +" obs_164" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" @@ -77298,55 +77301,55 @@ static const char *startup_source = "(if(not #f)(for-loop_344 rest_271)(values))))" "(values))))))" " for-loop_344)" -" lst_457)))" +" lst_459)))" "(values))))" "(let-values()" -"(let-values(((ok?_94 form-id732_0 _733_0)" -"(let-values(((s_914) exp-body_10))" -"(let-values(((orig-s_97) s_914))" -"(let-values(((form-id732_1 _733_1)" -"(let-values(((s_915)" -"(if(syntax?$1 s_914)(syntax-e$1 s_914) s_914)))" -"(if(pair? s_915)" -"(let-values(((form-id734_0)" -"(let-values(((s_916)(car s_915))) s_916))" -"((_735_0)" -"(let-values(((s_917)(cdr s_915))) s_917)))" -"(values form-id734_0 _735_0))" +"(let-values(((ok?_94 form-id734_0 _735_0)" +"(let-values(((s_915) exp-body_10))" +"(let-values(((orig-s_97) s_915))" +"(let-values(((form-id734_1 _735_1)" +"(let-values(((s_916)" +"(if(syntax?$1 s_915)(syntax-e$1 s_915) s_915)))" +"(if(pair? s_916)" +"(let-values(((form-id736_0)" +"(let-values(((s_917)(car s_916))) s_917))" +"((_737_0)" +"(let-values(((s_918)(cdr s_916))) s_918)))" +"(values form-id736_0 _737_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" -"(values #t form-id732_1 _733_1))))))" +"(values #t form-id734_1 _735_1))))))" "(begin" -"(call-expand-observe obs_165 'next)" -"(call-expand-observe obs_165 'visit exp-body_10)" -"(call-expand-observe obs_165 'resolve form-id732_0)" -"(call-expand-observe obs_165 'enter-prim exp-body_10)" -"(call-expand-observe obs_165 'prim-stop)" -"(call-expand-observe obs_165 'exit-prim exp-body_10)" -"(call-expand-observe obs_165 'return exp-body_10)))))))))" +"(call-expand-observe obs_164 'next)" +"(call-expand-observe obs_164 'visit exp-body_10)" +"(call-expand-observe obs_164 'resolve form-id734_0)" +"(call-expand-observe obs_164 'enter-prim exp-body_10)" +"(call-expand-observe obs_164 'prim-stop)" +"(call-expand-observe obs_164 'exit-prim exp-body_10)" +"(call-expand-observe obs_164 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_122 defn_1)" +"(lambda(ctx_121 defn_1)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_122)))" -"(if obs_166" +"(let-values(((obs_165)(expand-context-observer ctx_121)))" +"(if obs_165" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_95 define-values740_0 _741_0)" -"(let-values(((s_918) s-defn_0))" -"(let-values(((orig-s_98) s_918))" -"(let-values(((define-values740_1 _741_1)" -"(let-values(((s_919)(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))" -"(if(pair? s_919)" -"(let-values(((define-values742_0)" -"(let-values(((s_920)(car s_919))) s_920))" -"((_743_0)" -"(let-values(((s_921)(cdr s_919)))" -"(let-values(((s_922)" -"(if(syntax?$1 s_921)" -"(syntax-e$1 s_921)" -" s_921)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_922)))" +"(let-values(((ok?_95 define-values742_0 _743_0)" +"(let-values(((s_919) s-defn_0))" +"(let-values(((orig-s_98) s_919))" +"(let-values(((define-values742_1 _743_1)" +"(let-values(((s_920)(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" +"(if(pair? s_920)" +"(let-values(((define-values744_0)" +"(let-values(((s_921)(car s_920))) s_921))" +"((_745_0)" +"(let-values(((s_922)(cdr s_920)))" +"(let-values(((s_923)" +"(if(syntax?$1 s_922)" +"(syntax-e$1 s_922)" +" s_922)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_923)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -77354,34 +77357,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_98))" "(let-values() flat-s_67)))))))" -"(values define-values742_0 _743_0))" +"(values define-values744_0 _745_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t define-values740_1 _741_1))))))" +"(values #t define-values742_1 _743_1))))))" "(begin" -"(call-expand-observe obs_166 'visit s-defn_0)" -"(call-expand-observe obs_166 'resolve define-values740_0)" -"(call-expand-observe obs_166 'enter-prim s-defn_0)" -"(call-expand-observe obs_166 'prim-define-values)))))" +"(call-expand-observe obs_165 'visit s-defn_0)" +"(call-expand-observe obs_165 'resolve define-values742_0)" +"(call-expand-observe obs_165 'enter-prim s-defn_0)" +"(call-expand-observe obs_165 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_123 defn_2 exp-rhs_8)" +"(lambda(ctx_122 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_123)))" -"(if obs_167" +"(let-values(((obs_166)(expand-context-observer ctx_122)))" +"(if obs_166" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_167 'exit-prim s-defn_1)(call-expand-observe obs_167 'return s-defn_1))))" +"(begin(call-expand-observe obs_166 'exit-prim s-defn_1)(call-expand-observe obs_166 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_51 s_72 ctx_124)" +"(lambda(ids_51 s_72 ctx_123)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_123)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_84) ids_51))" @@ -77390,40 +77393,40 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_84)))" "((letrec-values(((for-loop_103)" -"(lambda(fold-var_393 lst_85)" +"(lambda(fold-var_391 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((id_50)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_393))" -"(let-values(((fold-var_394)" +"(let-values(((fold-var_62) fold-var_391))" +"(let-values(((fold-var_392)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" " id_50" -" ctx_124))" +" ctx_123))" " fold-var_62))))" -"(values fold-var_394)))))" +"(values fold-var_392)))))" "(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" -" fold-var_393)))))" +" fold-var_391)))))" " for-loop_103)" " null" " lst_84))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_124))((s3_3) s_72))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_123))((s3_3) s_72))" "(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_3 unsafe-undefined))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_459) tl-ids_2))" +"(let-values(((lst_461) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_459)))" +"(let-values()(check-list lst_461)))" "((letrec-values(((for-loop_80)" "(lambda(fold-var_216 lst_86)" "(begin" @@ -77432,7 +77435,7 @@ static const char *startup_source = "(let-values(((id_159)(unsafe-car lst_86))" "((rest_251)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_395) fold-var_216))" +"(let-values(((fold-var_393) fold-var_216))" "(let-values(((fold-var_219)" "(let-values()" "(cons" @@ -77440,7 +77443,7 @@ static const char *startup_source = "(add-scope" " id_159" " top-level-bind-scope_6))" -" fold-var_395))))" +" fold-var_393))))" "(values fold-var_219)))))" "(if(not #f)" "(for-loop_80 fold-var_26 rest_251)" @@ -77448,17 +77451,17 @@ static const char *startup_source = " fold-var_216)))))" " for-loop_80)" " null" -" lst_459))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" +" lst_461))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_123)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_7)))" -"(if obs_168" -"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-values)))" +"(let-values(((obs_167)(expand-context-observer ctx_7)))" +"(if obs_167" +"(let-values()(let-values()(call-expand-observe obs_167 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -77613,22 +77616,22 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_186 ctx_125)" +"(lambda(s_186 ctx_124)" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_125)))" -"(if obs_169" -"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))" +"(let-values(((obs_168)(expand-context-observer ctx_124)))" +"(if obs_168" +"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_125)))" -"(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))" +"(let-values(((obs_169)(expand-context-observer ctx_124)))" +"(if obs_169(let-values()(let-values()(call-expand-observe obs_169 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_124) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))" "(values))))" @@ -77649,14 +77652,14 @@ static const char *startup_source = " s_25)))" "(if(pair? s_305)" "(let-values(((id21_1)" -"(let-values(((s_923)(car s_305)))" -"(let-values(((s_924)" -"(if(syntax?$1 s_923)" -"(syntax-e$1 s_923)" -" s_923)))" +"(let-values(((s_924)(car s_305)))" +"(let-values(((s_925)" +"(if(syntax?$1 s_924)" +"(syntax-e$1 s_924)" +" s_924)))" "(let-values(((flat-s_69)" "(to-syntax-list.1" -" s_924)))" +" s_925)))" "(if(not flat-s_69)" "(let-values()" "(raise-syntax-error$1" @@ -77665,7 +77668,7 @@ static const char *startup_source = " orig-s_100))" "(let-values()" "(let-values(((id_163)" -"(let-values(((lst_460)" +"(let-values(((lst_462)" " flat-s_69))" "(begin" "(if(variable-reference-from-unsafe?" @@ -77673,20 +77676,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_460)))" +" lst_462)))" "((letrec-values(((for-loop_2)" "(lambda(id_164" -" lst_461)" +" lst_463)" "(begin" " 'for-loop" "(if(pair?" -" lst_461)" -"(let-values(((s_925)" +" lst_463)" +"(let-values(((s_926)" "(unsafe-car" -" lst_461))" +" lst_463))" "((rest_272)" "(unsafe-cdr" -" lst_461)))" +" lst_463)))" "(let-values(((id_165)" "(let-values(((id_166)" " id_164))" @@ -77696,21 +77699,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_218)" "(if(syntax?$1" -" s_925)" +" s_926)" "(symbol?" "(syntax-e$1" -" s_925))" +" s_926))" " #f)))" "(if or-part_218" " or-part_218" "(symbol?" -" s_925)))" -" s_925" +" s_926)))" +" s_926" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_925)))))" +" s_926)))))" "(cons" " id24_0" " id_166)))))" @@ -77725,14 +77728,14 @@ static const char *startup_source = " id_164)))))" " for-loop_2)" " null" -" lst_460)))))" +" lst_462)))))" "(reverse$1 id_163))))))))" "((rhs22_0)" -"(let-values(((s_926)(cdr s_305)))" +"(let-values(((s_927)(cdr s_305)))" "(let-values(((s_175)" -"(if(syntax?$1 s_926)" -"(syntax-e$1 s_926)" -" s_926)))" +"(if(syntax?$1 s_927)" +"(syntax-e$1 s_927)" +" s_927)))" "(if(pair? s_175)" "(let-values(((rhs23_2)" "(let-values(((s_450)" @@ -77769,11 +77772,11 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_53 syms_27)(as-expand-time-top-level-bindings id16_1 s_186 ctx_125)))" +"(let-values(((ids_53 syms_27)(as-expand-time-top-level-bindings id16_1 s_186 ctx_124)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_125 ids_53)))" +"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_124 ids_53)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_125)" +"(if(expand-context-to-parsed? ctx_124)" "(parsed-define-syntaxes20.1 s_186 ids_53 syms_27 exp-rhs_10)" "(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" @@ -77810,16 +77813,16 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_110)))" -"(if obs_171" -"(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" +"(let-values(((obs_170)(expand-context-observer ctx_110)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_110)))" -"(if obs_172" -"(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" +"(let-values(((obs_171)(expand-context-observer ctx_110)))" +"(if obs_171" +"(let-values()(let-values()(call-expand-observe obs_171 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" @@ -77829,65 +77832,65 @@ static const char *startup_source = "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_278) trans-ctx_1))" -"(let-values(((the-struct_121) v_278))" -"(if(expand-context/outer? the-struct_121)" +"(let-values(((v_276) trans-ctx_1))" +"(let-values(((the-struct_120) v_276))" +"(if(expand-context/outer? the-struct_120)" "(let-values(((inner37_0)" -"(let-values(((the-struct_122)" -"(root-expand-context/outer-inner v_278)))" -"(if(expand-context/inner? the-struct_122)" +"(let-values(((the-struct_121)" +"(root-expand-context/outer-inner v_276)))" +"(if(expand-context/inner? the-struct_121)" "(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_122)" -"(root-expand-context/inner-module-scopes the-struct_122)" +"(root-expand-context/inner-self-mpi the-struct_121)" +"(root-expand-context/inner-module-scopes the-struct_121)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_122)" -"(root-expand-context/inner-all-scopes-stx the-struct_122)" -"(root-expand-context/inner-defined-syms the-struct_122)" -"(root-expand-context/inner-counter the-struct_122)" +" the-struct_121)" +"(root-expand-context/inner-all-scopes-stx the-struct_121)" +"(root-expand-context/inner-defined-syms the-struct_121)" +"(root-expand-context/inner-counter the-struct_121)" " lift-key38_1" -"(expand-context/inner-to-parsed? the-struct_122)" -"(expand-context/inner-phase the-struct_122)" -"(expand-context/inner-namespace the-struct_122)" -"(expand-context/inner-just-once? the-struct_122)" -"(expand-context/inner-module-begin-k the-struct_122)" -"(expand-context/inner-allow-unbound? the-struct_122)" -"(expand-context/inner-in-local-expand? the-struct_122)" -"(expand-context/inner-keep-#%expression? the-struct_122)" -"(expand-context/inner-stops the-struct_122)" -"(expand-context/inner-declared-submodule-names the-struct_122)" +"(expand-context/inner-to-parsed? the-struct_121)" +"(expand-context/inner-phase the-struct_121)" +"(expand-context/inner-namespace the-struct_121)" +"(expand-context/inner-just-once? the-struct_121)" +"(expand-context/inner-module-begin-k the-struct_121)" +"(expand-context/inner-allow-unbound? the-struct_121)" +"(expand-context/inner-in-local-expand? the-struct_121)" +"(expand-context/inner-keep-#%expression? the-struct_121)" +"(expand-context/inner-stops the-struct_121)" +"(expand-context/inner-declared-submodule-names the-struct_121)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_122)" -"(expand-context/inner-module-lifts the-struct_122)" -"(expand-context/inner-require-lifts the-struct_122)" -"(expand-context/inner-to-module-lifts the-struct_122)" -"(expand-context/inner-requires+provides the-struct_122)" -"(expand-context/inner-observer the-struct_122)" -"(expand-context/inner-for-serializable? the-struct_122)" +"(expand-context/inner-lift-envs the-struct_121)" +"(expand-context/inner-module-lifts the-struct_121)" +"(expand-context/inner-require-lifts the-struct_121)" +"(expand-context/inner-to-module-lifts the-struct_121)" +"(expand-context/inner-requires+provides the-struct_121)" +"(expand-context/inner-observer the-struct_121)" +"(expand-context/inner-for-serializable? the-struct_121)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_122)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_122)))))" +" the-struct_121)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_121)" -"(root-expand-context/outer-use-site-scopes the-struct_121)" -"(root-expand-context/outer-frame-id the-struct_121)" -"(expand-context/outer-context the-struct_121)" -"(expand-context/outer-env the-struct_121)" -"(expand-context/outer-post-expansion-scope-action the-struct_121)" -"(expand-context/outer-scopes the-struct_121)" -"(expand-context/outer-def-ctx-scopes the-struct_121)" -"(expand-context/outer-binding-layer the-struct_121)" -"(expand-context/outer-reference-records the-struct_121)" -"(expand-context/outer-only-immediate? the-struct_121)" -"(expand-context/outer-need-eventually-defined the-struct_121)" -"(expand-context/outer-current-introduction-scopes the-struct_121)" -"(expand-context/outer-name the-struct_121)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_121))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_120)" +"(root-expand-context/outer-use-site-scopes the-struct_120)" +"(root-expand-context/outer-frame-id the-struct_120)" +"(expand-context/outer-context the-struct_120)" +"(expand-context/outer-env the-struct_120)" +"(expand-context/outer-post-expansion-scope-action the-struct_120)" +"(expand-context/outer-scopes the-struct_120)" +"(expand-context/outer-def-ctx-scopes the-struct_120)" +"(expand-context/outer-binding-layer the-struct_120)" +"(expand-context/outer-reference-records the-struct_120)" +"(expand-context/outer-only-immediate? the-struct_120)" +"(expand-context/outer-need-eventually-defined the-struct_120)" +"(expand-context/outer-current-introduction-scopes the-struct_120)" +"(expand-context/outer-name the-struct_120)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_120))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_65)" "(lambda(forms_0)" @@ -77895,13 +77898,13 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_173)" +"(let-values(((obs_172)" "(expand-context-observer ctx_110)))" -"(if obs_173" +"(if obs_172" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_173" +" obs_172" " 'enter-list" "(datum->syntax$1 #f form30_0 s_308))))" "(void)))" @@ -77917,14 +77920,14 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_174)" +"(let-values(((obs_173)" "(expand-context-observer" " ctx_110)))" -"(if obs_174" +"(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_174" +" obs_173" " 'exit-list" "(datum->syntax$1" " #f" @@ -77935,14 +77938,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_175)" +"(let-values(((obs_174)" "(expand-context-observer" " ctx_110)))" -"(if obs_175" +"(if obs_174" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_175" +" obs_174" " 'next)))" "(void)))" "(values))))" @@ -77972,14 +77975,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_176)" +"(let-values(((obs_175)" "(expand-context-observer" " ctx_110)))" -"(if obs_176" +"(if obs_175" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_176" +" obs_175" " 'module-lift-loop" " lifts_15)))" "(void)))" @@ -78013,19 +78016,19 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%require" -"(lambda(s_927 ctx_126)" +"(lambda(s_928 ctx_125)" "(let-values((()" "(begin" -"(let-values(((obs_177)(expand-context-observer ctx_126)))" -"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))" +"(let-values(((obs_176)(expand-context-observer ctx_125)))" +"(if obs_176(let-values()(let-values()(call-expand-observe obs_176 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_126) 'top-level)" +"(if(eq?(expand-context-context ctx_125) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_927)))" +" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_928)))" "(values))))" -"(let-values(((disarmed-s_27)(syntax-disarm$1 s_927)))" +"(let-values(((disarmed-s_27)(syntax-disarm$1 s_928)))" "(let-values(((ok?_97 #%require47_0 req48_0)" "(let-values(((s_63) disarmed-s_27))" "(let-values(((orig-s_102) s_63))" @@ -78060,14 +78063,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_32)))" "((letrec-values(((for-loop_25)" -"(lambda(fold-var_396 lst_33)" +"(lambda(fold-var_394 lst_33)" "(begin" " 'for-loop" "(if(pair? lst_33)" "(let-values(((req_20)(unsafe-car lst_33))" "((rest_13)(unsafe-cdr lst_33)))" -"(let-values(((fold-var_397)" -"(let-values(((fold-var_398) fold-var_396))" +"(let-values(((fold-var_395)" +"(let-values(((fold-var_396) fold-var_394))" "(let-values(((fold-var_292)" "(let-values()" "(cons" @@ -78075,19 +78078,19 @@ static const char *startup_source = "(add-scope" " req_20" " sc_41))" -" fold-var_398))))" +" fold-var_396))))" "(values fold-var_292)))))" "(if(not #f)" -"(for-loop_25 fold-var_397 rest_13)" -" fold-var_397)))" -" fold-var_396)))))" +"(for-loop_25 fold-var_395 rest_13)" +" fold-var_395)))" +" fold-var_394)))))" " for-loop_25)" " null" " lst_32)))))" -"((s52_0) s_927)" +"((s52_0) s_928)" "((temp53_6) #f)" -"((temp54_6)(expand-context-namespace ctx_126))" -"((temp55_5)(expand-context-phase ctx_126))" +"((temp54_6)(expand-context-namespace ctx_125))" +"((temp55_5)(expand-context-phase ctx_125))" "((temp56_5)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f temp59_8)))" "((temp57_3) 'require)" "((temp58_5) #t))" @@ -78107,14 +78110,14 @@ static const char *startup_source = " temp54_6" " temp55_5" " temp56_5))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_927) s_927))))))))))" +"(if(expand-context-to-parsed? ctx_125)(parsed-require23.1 s_928) s_928))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_779 ctx_127)" +"(lambda(s_779 ctx_126)" "(begin" -"(let-values(((obs_178)(expand-context-observer ctx_127)))" -"(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" +"(let-values(((obs_177)(expand-context-observer ctx_126)))" +"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-provide)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_779)))))" "(define-values(ns)(make-namespace))" "(void"