diff --git a/pkgs/racket-test-core/tests/racket/macro.rktl b/pkgs/racket-test-core/tests/racket/macro.rktl index 6aeffc7a34..e2e2329435 100644 --- a/pkgs/racket-test-core/tests/racket/macro.rktl +++ b/pkgs/racket-test-core/tests/racket/macro.rktl @@ -1904,6 +1904,24 @@ (m (+ 1 2)) 'ok)) +;; ---------------------------------------- +;; Error (instead of looping) when an implicit is not bound as syntax + +(syntax-test #'(module m racket/base + (require (for-syntax racket/base)) + (let-syntax ([#%app (make-rename-transformer #'unbound)]) + (+ 1 2)))) + +(syntax-test #'(module m racket/base + (require (for-syntax racket/base)) + (let-syntax ([#%app (make-rename-transformer #'cons)]) + (+ 1 2)))) + +(syntax-test #'(module m racket/base + (require (for-syntax racket/base)) + (let-syntax ([#%datum (make-rename-transformer #'unbound)]) + (+ 1 2)))) + ;; ---------------------------------------- (report-errs) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 45dc3d026a..ca2f9b03bd 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -69,14 +69,17 @@ ;; Aplying a rename transformer substitutes ;; an id without changing `s` #:alternate-id [alternate-id #f] - #:skip-log? [skip-log? #f]) + #:skip-log? [skip-log? #f] + ;; For expanding an implicit implemented by a rename transformer: + #:fail-non-transformer [fail-non-transformer #f]) (log-expand* ctx #:unless skip-log? [(if (expand-context-only-immediate? ctx) 'enter-check 'visit) s]) (cond [(syntax-identifier? s) (expand-identifier s ctx alternate-id)] [(and (pair? (syntax-content s)) (syntax-identifier? (car (syntax-content s)))) - (expand-id-application-form s ctx alternate-id)] + (expand-id-application-form s ctx alternate-id + #:fail-non-transformer fail-non-transformer)] [(or (pair? (syntax-content s)) (null? (syntax-content s))) ;; An "application" form that doesn't start with an identifier, so @@ -113,7 +116,8 @@ (dispatch t insp-of-t s id ctx binding primitive? protected?)]))) ;; An "application" form that starts with an identifier -(define (expand-id-application-form s ctx alternate-id) +(define (expand-id-application-form s ctx alternate-id + #:fail-non-transformer fail-non-transformer) (define id (or alternate-id (car (syntax-e/no-taint s)))) (guard-stop id ctx s @@ -122,11 +126,13 @@ #:immediate? #t)) (log-expand* ctx #:unless (expand-context-only-immediate? ctx) ['resolve id]) (cond - [(eq? binding 'ambiguous) + [(eq? binding 'ambiguous) + (when fail-non-transformer (fail-non-transformer)) (raise-ambiguous-error id ctx)] - [(not binding) + [(not binding) + (when fail-non-transformer (fail-non-transformer)) ;; The `#%app` binding might do something with unbound ids - (expand-implicit '#%app (substitute-alternate-id s alternate-id) ctx id)] + (expand-implicit '#%app (substitute-alternate-id s alternate-id) ctx id)] [else ;; Find out whether it's bound as a variable, syntax, or core form (define-values (t primitive? insp-of-t protected?) @@ -134,12 +140,14 @@ #:in (and alternate-id (car (syntax-e/no-taint s))) #:out-of-context-as-variable? (expand-context-in-local-expand? ctx))) (cond - [(variable? t) - ;; Not as syntax or core form, so use implicit `#%app` - (expand-implicit '#%app (substitute-alternate-id s alternate-id) ctx id)] - [else - ;; Syntax or core form as "application" - (dispatch t insp-of-t s id ctx binding primitive? protected?)])]))) + [(variable? t) + (when fail-non-transformer (fail-non-transformer)) + ;; Not as syntax or core form, so use implicit `#%app` + (expand-implicit '#%app (substitute-alternate-id s alternate-id) ctx id)] + [else + ;; Syntax or core form as "application" + (dispatch t insp-of-t s id ctx binding primitive? protected? + #:fail-non-transformer fail-non-transformer)])]))) ;; Handle an implicit: `#%app`, `#%top`, or `#%datum`; this is similar ;; to handling an id-application form, but there are several little @@ -167,7 +175,13 @@ (if b (lookup b ctx id) (values #f #f #f #f))) (cond [(transformer? t) - (dispatch-transformer t insp-of-t (make-explicit ctx sym s disarmed-s) id ctx b)] + (define fail-non-transformer + ;; Make sure a rename transformer eventualy leads to syntax + (and (rename-transformer? t) + (lambda () + (raise-syntax-implicit-error s sym trigger-id ctx)))) + (dispatch-transformer t insp-of-t (make-explicit ctx sym s disarmed-s) id ctx b + #:fail-non-transformer fail-non-transformer)] [(core-form? t) (cond [(and (eq? sym '#%top) @@ -232,12 +246,14 @@ ;; other compile-time value (which is an error), or a token ;; indicating that the binding is a run-time variable; note that ;; `s` is not disarmed -(define (dispatch t insp-of-t s id ctx binding primitive? protected?) +(define (dispatch t insp-of-t s id ctx binding primitive? protected? + #:fail-non-transformer [fail-non-transformer #f]) (cond [(core-form? t) (dispatch-core-form t s ctx)] [(transformer? t) - (dispatch-transformer t insp-of-t s id ctx binding)] + (dispatch-transformer t insp-of-t s id ctx binding + #:fail-non-transformer fail-non-transformer)] [(variable? t) (dispatch-variable t s id ctx binding primitive? protected?)] [else @@ -269,7 +285,8 @@ ;; Call a macro expander, taking into account whether it works ;; in the current context, whether to expand just once, etc. -(define (dispatch-transformer t insp-of-t s id ctx binding) +(define (dispatch-transformer t insp-of-t s id ctx binding + #:fail-non-transformer fail-non-transformer) (cond [(not-in-this-expand-context? t ctx) (log-expand ctx 'enter-macro s) @@ -304,7 +321,8 @@ id id)) #:skip-log? (or (expand-context-only-immediate? ctx) - (rename-transformer? t)))])])) + (rename-transformer? t)) + #:fail-non-transformer fail-non-transformer)])])) ;; Handle the expansion of a variable to itself (define (dispatch-variable t s id ctx binding primitive? protected?) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index e2a9b24cd2..e14fa2a287 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -39138,14 +39138,22 @@ static const char *startup_source = " null" " lst_281)))))))" "(define-values" -"(expand7.1)" -"(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" +"(expand9.1)" +"(lambda(alternate-id1_0" +" alternate-id4_0" +" fail-non-transformer3_0" +" fail-non-transformer6_0" +" skip-log?2_0" +" skip-log?5_0" +" s7_2" +" ctx8_0)" "(begin" -" 'expand7" -"(let-values(((s_425) s5_1))" -"(let-values(((ctx_14) ctx6_0))" -"(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" -"(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" +" 'expand9" +"(let-values(((s_40) s7_2))" +"(let-values(((ctx_14) ctx8_0))" +"(let-values(((alternate-id_0)(if alternate-id4_0 alternate-id1_0 #f)))" +"(let-values(((skip-log?_0)(if skip-log?5_0 skip-log?2_0 #f)))" +"(let-values(((fail-non-transformer_0)(if fail-non-transformer6_0 fail-non-transformer3_0 #f)))" "(let-values()" "(begin" "(let-values(((obs_1)(expand-context-observer ctx_14)))" @@ -39156,24 +39164,33 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_425))" +" s_40))" "(void)))" "(void)))" -"(if(syntax-identifier? s_425)" -"(let-values()(expand-identifier s_425 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_425))(syntax-identifier?(car(syntax-content s_425))) #f)" -"(let-values()(expand-id-application-form s_425 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_80)(pair?(syntax-content s_425))))" -"(if or-part_80 or-part_80(null?(syntax-content s_425))))" -"(let-values()(expand-implicit '#%app s_425 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_425))" -"(let-values()(expand-already-expanded s_425 ctx_14))" -"(let-values()(expand-implicit '#%datum s_425 ctx_14 #f)))))))))))))))" +"(if(syntax-identifier? s_40)" +"(let-values()(expand-identifier s_40 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_40))(syntax-identifier?(car(syntax-content s_40))) #f)" +"(let-values()" +"(let-values(((s123_0) s_40)" +"((ctx124_0) ctx_14)" +"((alternate-id125_0) alternate-id_0)" +"((fail-non-transformer126_0) fail-non-transformer_0))" +"(expand-id-application-form17.1" +" fail-non-transformer126_0" +" s123_0" +" ctx124_0" +" alternate-id125_0)))" +"(if(let-values(((or-part_53)(pair?(syntax-content s_40))))" +"(if or-part_53 or-part_53(null?(syntax-content s_40))))" +"(let-values()(expand-implicit '#%app s_40 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_40))" +"(let-values()(expand-already-expanded s_40 ctx_14))" +"(let-values()(expand-implicit '#%datum s_40 ctx_14 #f))))))))))))))))" "(define-values" "(expand-identifier)" -"(lambda(s_426 ctx_15 alternate-id_1)" +"(lambda(s_425 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_21) alternate-id_1))(if or-part_21 or-part_21 s_426))))" +"(let-values(((id_60)(let-values(((or-part_257) alternate-id_1))(if or-part_257 or-part_257 s_425))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))" "(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" " #f)" @@ -39186,20 +39203,20 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_2 'resolve id_60)" -"(call-expand-observe obs_2 'enter-prim s_426)" +"(call-expand-observe obs_2 'enter-prim s_425)" "(call-expand-observe obs_2 'prim-stop)" -"(call-expand-observe obs_2 'exit-prim s_426)" -"(call-expand-observe obs_2 'return s_426)))" +"(call-expand-observe obs_2 'exit-prim s_425)" +"(call-expand-observe obs_2 'return s_425)))" "(void)))" "(void)))" -" s_426))" +" s_425))" "(let-values()" "(let-values(((binding_18)" -"(let-values(((id89_0) id_60)" -"((temp90_0)(expand-context-phase ctx_15))" -"((temp91_0) 'ambiguous)" -"((temp92_1) #t))" -"(resolve+shift30.1 temp91_0 #t #f #f #f #f temp92_1 #t #f #f id89_0 temp90_0))))" +"(let-values(((id127_0) id_60)" +"((temp128_1)(expand-context-phase ctx_15))" +"((temp129_0) 'ambiguous)" +"((temp130_0) #t))" +"(resolve+shift30.1 temp129_0 #t #f #f #f #f temp130_0 #t #f #f id127_0 temp128_1))))" "(begin" "(let-values(((obs_3)(expand-context-observer ctx_15)))" "(if obs_3" @@ -39211,23 +39228,47 @@ static const char *startup_source = "(if(eq? binding_18 'ambiguous)" "(let-values()(raise-ambiguous-error id_60 ctx_15))" "(if(not binding_18)" -"(let-values()(expand-implicit '#%top(substitute-alternate-id s_426 alternate-id_1) ctx_15 s_426))" +"(let-values()(expand-implicit '#%top(substitute-alternate-id s_425 alternate-id_1) ctx_15 s_425))" "(let-values()" "(let-values(((t_46 primitive?_2 insp-of-t_0 protected?_3)" -"(let-values(((binding93_0) binding_18)" -"((ctx94_0) ctx_15)" -"((id95_0) id_60)" -"((temp96_1)(if alternate-id_1 s_426 #f))" -"((temp97_1)(expand-context-in-local-expand? ctx_15)))" -"(lookup28.1 temp96_1 #t temp97_1 #t binding93_0 ctx94_0 id95_0))))" -"(dispatch t_46 insp-of-t_0 s_426 id_60 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" +"(let-values(((binding139_0) binding_18)" +"((ctx140_0) ctx_15)" +"((id141_0) id_60)" +"((temp142_0)(if alternate-id_1 s_425 #f))" +"((temp143_0)(expand-context-in-local-expand? ctx_15)))" +"(lookup62.1 temp142_0 #t temp143_0 #t binding139_0 ctx140_0 id141_0))))" +"(let-values(((t131_0) t_46)" +"((insp-of-t132_0) insp-of-t_0)" +"((s133_0) s_425)" +"((id134_0) id_60)" +"((ctx135_0) ctx_15)" +"((binding136_0) binding_18)" +"((primitive?137_0) primitive?_2)" +"((protected?138_0) protected?_3))" +"(dispatch30.1" +" #f" +" #f" +" t131_0" +" insp-of-t132_0" +" s133_0" +" id134_0" +" ctx135_0" +" binding136_0" +" primitive?137_0" +" protected?138_0))))))))))))))" "(define-values" -"(expand-id-application-form)" -"(lambda(s_427 ctx_16 alternate-id_2)" +"(expand-id-application-form17.1)" +"(lambda(fail-non-transformer12_0 s14_0 ctx15_0 alternate-id16_0)" "(begin" +" 'expand-id-application-form17" +"(let-values(((s_426) s14_0))" +"(let-values(((ctx_16) ctx15_0))" +"(let-values(((alternate-id_2) alternate-id16_0))" +"(let-values(((fail-non-transformer_1) fail-non-transformer12_0))" +"(let-values()" "(let-values(((id_61)" -"(let-values(((or-part_64) alternate-id_2))" -"(if or-part_64 or-part_64(car(syntax-e/no-taint s_427))))))" +"(let-values(((or-part_133) alternate-id_2))" +"(if or-part_133 or-part_133(car(syntax-e/no-taint s_426))))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" "(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" " #f)" @@ -39240,20 +39281,32 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_4 'resolve id_61)" -"(call-expand-observe obs_4 'enter-prim s_427)" +"(call-expand-observe obs_4 'enter-prim s_426)" "(call-expand-observe obs_4 'prim-stop)" -"(call-expand-observe obs_4 'exit-prim s_427)" -"(call-expand-observe obs_4 'return s_427)))" +"(call-expand-observe obs_4 'exit-prim s_426)" +"(call-expand-observe obs_4 'return s_426)))" "(void)))" "(void)))" -" s_427))" +" s_426))" "(let-values()" "(let-values(((binding_19)" -"(let-values(((id98_0) id_61)" -"((temp99_0)(expand-context-phase ctx_16))" -"((temp100_0) 'ambiguous)" -"((temp101_0) #t))" -"(resolve+shift30.1 temp100_0 #t #f #f #f #f temp101_0 #t #f #f id98_0 temp99_0))))" +"(let-values(((id144_0) id_61)" +"((temp145_0)(expand-context-phase ctx_16))" +"((temp146_0) 'ambiguous)" +"((temp147_0) #t))" +"(resolve+shift30.1" +" temp146_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp147_0" +" #t" +" #f" +" #f" +" id144_0" +" temp145_0))))" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_16)))" "(if obs_5" @@ -39263,43 +39316,67 @@ static const char *startup_source = "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" -"(let-values()(raise-ambiguous-error id_61 ctx_16))" +"(let-values()" +"(begin" +"(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" +"(raise-ambiguous-error id_61 ctx_16)))" "(if(not binding_19)" -"(let-values()(expand-implicit '#%app(substitute-alternate-id s_427 alternate-id_2) ctx_16 id_61))" +"(let-values()" +"(begin" +"(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" +"(expand-implicit '#%app(substitute-alternate-id s_426 alternate-id_2) ctx_16 id_61)))" "(let-values()" "(let-values(((t_47 primitive?_3 insp-of-t_1 protected?_4)" -"(let-values(((binding102_0) binding_19)" -"((ctx103_0) ctx_16)" -"((id104_0) id_61)" -"((temp105_0)(if alternate-id_2(car(syntax-e/no-taint s_427)) #f))" -"((temp106_1)(expand-context-in-local-expand? ctx_16)))" -"(lookup28.1 temp105_0 #t temp106_1 #t binding102_0 ctx103_0 id104_0))))" +"(let-values(((binding148_0) binding_19)" +"((ctx149_0) ctx_16)" +"((id150_0) id_61)" +"((temp151_0)" +"(if alternate-id_2(car(syntax-e/no-taint s_426)) #f))" +"((temp152_1)(expand-context-in-local-expand? ctx_16)))" +"(lookup62.1 temp151_0 #t temp152_1 #t binding148_0 ctx149_0 id150_0))))" "(if(variable? t_47)" "(let-values()" -"(expand-implicit '#%app(substitute-alternate-id s_427 alternate-id_2) ctx_16 id_61))" -"(let-values()" -"(dispatch" -" t_47" -" insp-of-t_1" -" s_427" -" id_61" +"(begin" +"(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" +"(expand-implicit" +" '#%app" +"(substitute-alternate-id s_426 alternate-id_2)" " ctx_16" -" binding_19" -" primitive?_3" -" protected?_4)))))))))))))))" +" id_61)))" +"(let-values()" +"(let-values(((t153_0) t_47)" +"((insp-of-t154_0) insp-of-t_1)" +"((s155_0) s_426)" +"((id156_0) id_61)" +"((ctx157_0) ctx_16)" +"((binding158_0) binding_19)" +"((primitive?159_0) primitive?_3)" +"((protected?160_0) protected?_4)" +"((fail-non-transformer161_0) fail-non-transformer_1))" +"(dispatch30.1" +" fail-non-transformer161_0" +" #t" +" t153_0" +" insp-of-t154_0" +" s155_0" +" id156_0" +" ctx157_0" +" binding158_0" +" primitive?159_0" +" protected?160_0)))))))))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_64 s_428 ctx_17 trigger-id_1)" +"(lambda(sym_50 s_53 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_6)(expand-context-observer ctx_17)))" -"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_428)))(void)))" -" s_428))" +"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_53)))(void)))" +" s_53))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_428)))" -"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_64)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_53)))" +"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_50)))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" "(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" " #f)" @@ -39312,13 +39389,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_7 'resolve id_62)" -"(call-expand-observe obs_7 'enter-prim s_428)" +"(call-expand-observe obs_7 'enter-prim s_53)" "(call-expand-observe obs_7 'prim-stop)" -"(call-expand-observe obs_7 'exit-prim s_428)" -"(call-expand-observe obs_7 'return s_428)))" +"(call-expand-observe obs_7 'exit-prim s_53)" +"(call-expand-observe obs_7 'return s_53)))" "(void)))" "(void)))" -" s_428))" +" s_53))" "(let-values()" "(let-values((()" "(begin" @@ -39328,53 +39405,68 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((b_79)" -"(let-values(((id107_0) id_62)" -"((temp108_0)(expand-context-phase ctx_17))" -"((temp109_0) 'ambiguous)" -"((temp110_1) #t))" -"(resolve+shift30.1 temp109_0 #t #f #f #f #f temp110_1 #t #f #f id107_0 temp108_0))))" +"(let-values(((id162_0) id_62)" +"((temp163_1)(expand-context-phase ctx_17))" +"((temp164_0) 'ambiguous)" +"((temp165_2) #t))" +"(resolve+shift30.1 temp164_0 #t #f #f #f #f temp165_2 #t #f #f id162_0 temp163_1))))" "(if(eq? b_79 'ambiguous)" "(let-values()(raise-ambiguous-error id_62 ctx_17))" "(let-values()" "(let-values(((t_48 primitive?_4 insp-of-t_2 protected?_5)" "(if b_79" -"(let-values(((b111_0) b_79)((ctx112_0) ctx_17)((id113_0) id_62))" -"(lookup28.1 #f #f #f #f b111_0 ctx112_0 id113_0))" +"(let-values(((b166_0) b_79)((ctx167_0) ctx_17)((id168_0) id_62))" +"(lookup62.1 #f #f #f #f b166_0 ctx167_0 id168_0))" "(values #f #f #f #f))))" "(if(transformer? t_48)" "(let-values()" -"(dispatch-transformer" -" t_48" -" insp-of-t_2" -"(make-explicit ctx_17 sym_64 s_428 disarmed-s_1)" -" id_62" -" ctx_17" -" b_79))" +"(let-values(((fail-non-transformer_2)" +"(if(1/rename-transformer? t_48)" +"(lambda()" +"(begin" +" 'fail-non-transformer" +"(raise-syntax-implicit-error s_53 sym_50 trigger-id_1 ctx_17)))" +" #f)))" +"(let-values(((t169_0) t_48)" +"((insp-of-t170_0) insp-of-t_2)" +"((temp171_1)(make-explicit ctx_17 sym_50 s_53 disarmed-s_1))" +"((id172_1) id_62)" +"((ctx173_0) ctx_17)" +"((b174_0) b_79)" +"((fail-non-transformer175_0) fail-non-transformer_2))" +"(dispatch-transformer41.1" +" fail-non-transformer175_0" +" t169_0" +" insp-of-t170_0" +" temp171_1" +" id172_1" +" ctx173_0" +" b174_0))))" "(if(core-form? t_48)" "(let-values()" -"(if(if(eq? sym_64 '#%top)" +"(if(if(eq? sym_50 '#%top)" "(if(eq?(core-form-name t_48) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_48 s_428 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_48 s_53 ctx_17))" "(let-values()" "(dispatch-core-form" " t_48" -"(make-explicit ctx_17 sym_64 s_428 disarmed-s_1)" +"(make-explicit ctx_17 sym_50 s_53 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_64 '#%top)" +"(if(eq? sym_50 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_428(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_53(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" "(if tl-id_0" -"(let-values(((tl-id114_0) tl-id_0)" -"((temp115_0)(expand-context-phase ctx_17)))" -"(resolve40.1 #f #f #f #f #f #f #f #f tl-id114_0 temp115_0))" +"(let-values(((tl-id176_0) tl-id_0)" +"((temp177_0)(expand-context-phase ctx_17)))" +"(resolve40.1 #f #f #f #f #f #f #f #f tl-id176_0 temp177_0))" " #f)))" "(if tl-b_0" "(let-values()" @@ -39385,25 +39477,25 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_428" -" sym_64" +" s_53" +" sym_50" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" "(expand-already-expanded)" -"(lambda(s_429 ctx_18)" +"(lambda(s_427 ctx_18)" "(begin" -"(let-values(((ae_0)(syntax-e$1 s_429)))" +"(let-values(((ae_0)(syntax-e$1 s_427)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_139)(syntax-any-macro-scopes? s_429)))" -"(if or-part_139" -" or-part_139" -"(let-values(((or-part_140)" +"(if(let-values(((or-part_258)(syntax-any-macro-scopes? s_427)))" +"(if or-part_258" +" or-part_258" +"(let-values(((or-part_102)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_140" -" or-part_140" +"(if or-part_102" +" or-part_102" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39419,61 +39511,97 @@ static const char *startup_source = "(if(not(parsed? exp-s_0)) exp-s_0 #f)))" "(void))" "(if(expand-context-only-immediate? ctx_18)" -"(let-values() s_429)" +"(let-values() s_427)" "(if(parsed? exp-s_0)" "(let-values() exp-s_0)" "(let-values()" -"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_429)))" +"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_427)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_18)))" "(if obs_9" "(let-values()(let-values()(call-expand-observe obs_9 'opaque-expr result-s_1)))" "(void)))" "(if(if(expand-context-to-parsed? ctx_18)(free-id-set-empty?(expand-context-stops ctx_18)) #f)" -"(let-values(((result-s116_0) result-s_1)((ctx117_0) ctx_18))" -"(expand7.1 #f #f #f #f result-s116_0 ctx117_0))" +"(let-values(((result-s178_0) result-s_1)((ctx179_0) ctx_18))" +"(expand9.1 #f #f #f #f #f #f result-s178_0 ctx179_0))" " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_65 s_30 disarmed-s_2)" +"(lambda(ctx_19 sym_64 s_428 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_65 disarmed-s_2) s_30 s_30) s_30)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_64 disarmed-s_2) s_428 s_428) s_428)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_19)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" -"(dispatch)" -"(lambda(t_49 insp-of-t_3 s_430 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" +"(dispatch30.1)" +"(lambda(fail-non-transformer20_0" +" fail-non-transformer21_0" +" t22_0" +" insp-of-t23_0" +" s24_2" +" id25_1" +" ctx26_0" +" binding27_1" +" primitive?28_0" +" protected?29_0)" "(begin" +" 'dispatch30" +"(let-values(((t_49) t22_0))" +"(let-values(((insp-of-t_3) insp-of-t23_0))" +"(let-values(((s_37) s24_2))" +"(let-values(((id_63) id25_1))" +"(let-values(((ctx_20) ctx26_0))" +"(let-values(((binding_20) binding27_1))" +"(let-values(((primitive?_5) primitive?28_0))" +"(let-values(((protected?_6) protected?29_0))" +"(let-values(((fail-non-transformer_3)(if fail-non-transformer21_0 fail-non-transformer20_0 #f)))" +"(let-values()" "(if(core-form? t_49)" -"(let-values()(dispatch-core-form t_49 s_430 ctx_20))" +"(let-values()(dispatch-core-form t_49 s_37 ctx_20))" "(if(transformer? t_49)" -"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_430 id_63 ctx_20 binding_20))" +"(let-values()" +"(let-values(((t180_0) t_49)" +"((insp-of-t181_0) insp-of-t_3)" +"((s182_0) s_37)" +"((id183_0) id_63)" +"((ctx184_0) ctx_20)" +"((binding185_0) binding_20)" +"((fail-non-transformer186_0) fail-non-transformer_3))" +"(dispatch-transformer41.1" +" fail-non-transformer186_0" +" t180_0" +" insp-of-t181_0" +" s182_0" +" id183_0" +" ctx184_0" +" binding185_0)))" "(if(variable? t_49)" -"(let-values()(dispatch-variable t_49 s_430 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_430))))))))" +"(let-values()" +"(dispatch-variable t_49 s_37 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_37))))))))))))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_50 s_431 ctx_21)" +"(lambda(t_50 s_39 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" "(let-values(((obs_11)(expand-context-observer ctx_21)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_431)))(void)))" -" s_431))" +"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_39)))(void)))" +" s_39))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_12)(expand-context-observer ctx_21)))" "(if obs_12" -"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_431)))" +"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_39)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_50) s_431 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_50) s_39 ctx_21)))" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_21)))" "(if obs_13" @@ -39484,19 +39612,19 @@ static const char *startup_source = "(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_50) s_431 ctx_21)))))))" +"(let-values()((core-form-expander t_50) s_39 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_51 s_50 ctx_22)" +"(lambda(t_51 s_158 ctx_22)" "(begin" "(let-values((()" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_50)))" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_158)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_51) s_50 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_51) s_158 ctx_22 #t)))" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" @@ -39508,109 +39636,144 @@ static const char *startup_source = "(void)))" " result-s_3))))))" "(define-values" -"(dispatch-transformer)" -"(lambda(t_52 insp-of-t_4 s_432 id_64 ctx_23 binding_21)" +"(dispatch-transformer41.1)" +"(lambda(fail-non-transformer33_0 t35_0 insp-of-t36_0 s37_0 id38_0 ctx39_0 binding40_0)" "(begin" +" 'dispatch-transformer41" +"(let-values(((t_52) t35_0))" +"(let-values(((insp-of-t_4) insp-of-t36_0))" +"(let-values(((s_108) s37_0))" +"(let-values(((id_64) id38_0))" +"(let-values(((ctx_23) ctx39_0))" +"(let-values(((binding_21) binding40_0))" +"(let-values(((fail-non-transformer_4) fail-non-transformer33_0))" +"(let-values()" "(if(not-in-this-expand-context? t_52 ctx_23)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16" -"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_432)))" +"(let-values()" +"(let-values()(call-expand-observe obs_16 'enter-macro s_108)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_432 id_64) t_52 ctx_23)))" +"(let-values(((adj-s_0)" +"(avoid-current-expand-context" +"(substitute-alternate-id s_108 id_64)" +" t_52" +" ctx_23)))" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" -"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_432)))(void)))" -"(let-values(((adj-s118_0) adj-s_0)((ctx119_0) ctx_23))" -"(expand7.1 #f #f #f #f adj-s118_0 ctx119_0))))))" +"(if obs_17" +"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_108)))" +"(void)))" +"(let-values(((adj-s187_0) adj-s_0)((ctx188_0) ctx_23))" +"(expand9.1 #f #f #f #f #f #f adj-s187_0 ctx188_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_432))" +"(raise-syntax-error$1" +" #f" +" \"encountered a macro binding in form that should be fully expanded\"" +" s_108))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)" +"(not(1/rename-transformer? t_52))" +" #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_432)" +"(call-expand-observe obs_18 'visit s_108)" "(call-expand-observe obs_18 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_52)" -"(values s_432 ctx_23)" -"(let-values(((t120_0) t_52)" -"((insp-of-t121_0) insp-of-t_4)" -"((s122_0) s_432)" -"((id123_0) id_64)" -"((ctx124_0) ctx_23)" -"((binding125_0) binding_21))" -"(apply-transformer18.1" +"(values s_108 ctx_23)" +"(let-values(((t189_0) t_52)" +"((insp-of-t190_0) insp-of-t_4)" +"((s191_0) s_108)" +"((id192_0) id_64)" +"((ctx193_0) ctx_23)" +"((binding194_0) binding_21))" +"(apply-transformer52.1" " #f" " #f" -" t120_0" -" insp-of-t121_0" -" s122_0" -" id123_0" -" ctx124_0" -" binding125_0)))))" +" t189_0" +" insp-of-t190_0" +" s191_0" +" id192_0" +" ctx193_0" +" binding194_0)))))" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_23)))" "(if obs_19" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)" +"(not(1/rename-transformer? t_52))" +" #f)" "(let-values()(call-expand-observe obs_19 'return exp-s_1))" "(void)))" "(void)))" "(if(expand-context-just-once? ctx_23)" "(let-values() exp-s_1)" "(let-values()" -"(let-values(((exp-s126_0) exp-s_1)" -"((re-ctx127_0) re-ctx_0)" -"((temp128_1)" +"(let-values(((exp-s195_0) exp-s_1)" +"((re-ctx196_0) re-ctx_0)" +"((temp197_0)" "(if(1/rename-transformer? t_52)" "(syntax-track-origin$1" -"(transfer-srcloc(rename-transformer-target-in-context t_52 ctx_23) id_64)" +"(transfer-srcloc" +"(rename-transformer-target-in-context t_52 ctx_23)" +" id_64)" " id_64" " id_64)" " #f))" -"((temp129_0)" -"(let-values(((or-part_200)(expand-context-only-immediate? ctx_23)))" -"(if or-part_200 or-part_200(1/rename-transformer? t_52)))))" -"(expand7.1 temp128_1 #t temp129_0 #t exp-s126_0 re-ctx127_0)))))))))))))" +"((temp198_0)" +"(let-values(((or-part_259)" +"(expand-context-only-immediate? ctx_23)))" +"(if or-part_259 or-part_259(1/rename-transformer? t_52))))" +"((fail-non-transformer199_0) fail-non-transformer_4))" +"(expand9.1" +" temp197_0" +" #t" +" fail-non-transformer199_0" +" #t" +" temp198_0" +" #t" +" exp-s195_0" +" re-ctx196_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_53 s_321 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_53 s_429 id_65 ctx_6 binding_22 primitive?_6 protected?_7)" "(begin" -"(if(expand-context-only-immediate? ctx_24)" +"(if(expand-context-only-immediate? ctx_6)" "(let-values()" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_24)))" -"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_321)))(void)))" +"(let-values(((obs_20)(expand-context-observer ctx_6)))" +"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_429)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_21)(expand-context-observer ctx_24)))" +"(let-values(((obs_21)(expand-context-observer ctx_6)))" "(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_321 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_429 id_65)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" -"(let-values(((id130_0) id_65)" -"((t131_0) t_53)" -"((temp132_1)" -"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" -"(substitute-variable6.1 temp132_1 id130_0 t131_0))))" -"(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" +"(let-values(((id200_0) id_65)" +"((t201_0) t_53)" +"((temp202_0)" +"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_6))))" +"(substitute-variable6.1 temp202_0 id200_0 t201_0))))" +"(if(if(expand-context-to-parsed? ctx_6)(free-id-set-empty?(expand-context-stops ctx_6)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" "(let-values(((insp_16)(syntax-inspector result-s_4)))" @@ -39621,69 +39784,69 @@ static const char *startup_source = "(let-values(((protected-result-s_0)" "(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_24)))" +"(let-values(((obs_22)(expand-context-observer ctx_6)))" "(if obs_22" "(let-values()(let-values()(call-expand-observe obs_22 'return protected-result-s_0)))" "(void)))" " protected-result-s_0))))))))))))" "(define-values" -"(apply-transformer18.1)" -"(lambda(origin-id10_0 origin-id11_0 t12_0 insp-of-t13_0 s14_0 id15_0 ctx16_0 binding17_1)" +"(apply-transformer52.1)" +"(lambda(origin-id44_0 origin-id45_0 t46_0 insp-of-t47_0 s48_0 id49_1 ctx50_0 binding51_0)" "(begin" -" 'apply-transformer18" -"(let-values(((t_54) t12_0))" -"(let-values(((insp-of-t_5) insp-of-t13_0))" -"(let-values(((s_61) s14_0))" -"(let-values(((id_66) id15_0))" -"(let-values(((ctx_25) ctx16_0))" -"(let-values(((binding_23) binding17_1))" -"(let-values(((origin-id_0)(if origin-id11_0 origin-id10_0 #f)))" +" 'apply-transformer52" +"(let-values(((t_54) t46_0))" +"(let-values(((insp-of-t_5) insp-of-t47_0))" +"(let-values(((s_430) s48_0))" +"(let-values(((id_30) id49_1))" +"(let-values(((ctx_24) ctx50_0))" +"(let-values(((binding_23) binding51_0))" +"(let-values(((origin-id_0)(if origin-id45_0 origin-id44_0 #f)))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_25)))" +"(let-values(((obs_23)(expand-context-observer ctx_24)))" "(if obs_23" "(let-values()" -"(let-values()(call-expand-observe obs_23 'enter-macro s_61)))" +"(let-values()(call-expand-observe obs_23 'enter-macro s_430)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_61)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_430)))" "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" "(let-values(((use-s_0 use-scopes_0)" -"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))" +"(maybe-add-use-site-scope intro-s_0 ctx_24 binding_23)))" "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" " t_54" " cleaned-s_0" -" ctx_25" +" ctx_24" " insp-of-t_5" " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" -" id_66)))" +" id_30)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" -"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" +"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_24)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_257) origin-id_0))" -"(if or-part_257" -" or-part_257" -"(if(syntax-identifier? s_61)" -" s_61" -"(car(syntax-e$1 s_61))))))))" +"(let-values(((or-part_260) origin-id_0))" +"(if or-part_260" +" or-part_260" +"(if(syntax-identifier? s_430)" +" s_430" +"(car(syntax-e$1 s_430))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_61))" -"(expand-context-phase ctx_25))))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_430))" +"(expand-context-phase ctx_24))))" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_25)))" +"(let-values(((obs_24)(expand-context-observer ctx_24)))" "(if obs_24" "(let-values()" "(let-values()" @@ -39692,45 +39855,45 @@ static const char *startup_source = "(values" " rearmed-s_0" "(accumulate-def-ctx-scopes" -" ctx_25" +" ctx_24" " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_55 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" +"(lambda(t_55 cleaned-s_1 ctx_25 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_25)(expand-context-observer ctx_26)))" +"(let-values(((obs_25)(expand-context-observer ctx_25)))" "(if obs_25" "(let-values()(let-values()(call-expand-observe obs_25 'macro-pre-x cleaned-s_1)))" "(void)))" "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_258)(expand-context-only-immediate? ctx_26)))" -"(if or-part_258" -" or-part_258" -"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" +"(let-values(((or-part_261)(expand-context-only-immediate? ctx_25)))" +"(if or-part_261" +" or-part_261" +"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_25))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" -"(if(expand-context-def-ctx-scopes ctx_26)" -"(not(null?(unbox(expand-context-def-ctx-scopes ctx_26))))" +"(if(expand-context-def-ctx-scopes ctx_25)" +"(not(null?(unbox(expand-context-def-ctx-scopes ctx_25))))" " #f)" " #f)" -"(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" -" ctx_26)))" +"(accumulate-def-ctx-scopes ctx_25(expand-context-def-ctx-scopes ctx_25))" +" ctx_25)))" "(let-values(((m-ctx_0)" "(let-values(((v_187) accum-ctx_0))" "(let-values(((the-struct_56) v_187))" "(if(expand-context/outer? the-struct_56)" -"(let-values(((current-introduction-scopes133_0)(cons intro-scope_1 use-scopes_1))" -"((def-ctx-scopes134_0)" +"(let-values(((current-introduction-scopes203_0)(cons intro-scope_1 use-scopes_1))" +"((def-ctx-scopes204_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" -"(expand-context-def-ctx-scopes ctx_26)))" -"((inner135_0)(root-expand-context/outer-inner v_187)))" +"(expand-context-def-ctx-scopes ctx_25)))" +"((inner205_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" -" inner135_0" +" inner205_0" "(root-expand-context/outer-post-expansion-scope the-struct_56)" "(root-expand-context/outer-use-site-scopes the-struct_56)" "(root-expand-context/outer-frame-id the-struct_56)" @@ -39738,12 +39901,12 @@ static const char *startup_source = "(expand-context/outer-env the-struct_56)" "(expand-context/outer-post-expansion-scope-action the-struct_56)" "(expand-context/outer-scopes the-struct_56)" -" def-ctx-scopes134_0" +" def-ctx-scopes204_0" "(expand-context/outer-binding-layer the-struct_56)" "(expand-context/outer-reference-records the-struct_56)" "(expand-context/outer-only-immediate? the-struct_56)" "(expand-context/outer-need-eventually-defined the-struct_56)" -" current-introduction-scopes133_0" +" current-introduction-scopes203_0" "(expand-context/outer-name the-struct_56)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_56))))))" "(let-values(((transformed-s_1)" @@ -39755,16 +39918,16 @@ static const char *startup_source = " m-ctx_0" " 1/current-namespace" "(namespace->namespace-at-phase" -"(expand-context-namespace ctx_26)" -"(add1(expand-context-phase ctx_26)))" +"(expand-context-namespace ctx_25)" +"(add1(expand-context-phase ctx_25)))" " current-module-code-inspector" -"(let-values(((or-part_106) insp-of-t_6))" -"(if or-part_106 or-part_106(current-module-code-inspector))))" +"(let-values(((or-part_262) insp-of-t_6))" +"(if or-part_262 or-part_262(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_55) cleaned-s_1)))))))" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_26)))" +"(let-values(((obs_26)(expand-context-observer ctx_25)))" "(if obs_26" "(let-values()" "(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" @@ -39773,113 +39936,113 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_67)" +"(syntax-e$1 id_66)" " \"received value from syntax expander was not syntax\"" " \"received\"" " transformed-s_1)))" " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_328 ctx_27 binding_24)" +"(lambda(s_431 ctx_26 binding_24)" "(begin" -"(if(if(root-expand-context-use-site-scopes ctx_27)" -"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" +"(if(if(root-expand-context-use-site-scopes ctx_26)" +"(matching-frame?(root-expand-context-frame-id ctx_26)(binding-frame-id binding_24))" " #f)" "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" -"(let-values(((b_80)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_80(cons sc_30(unbox b_80)))(values(add-scope s_328 sc_30)(list sc_30))))))" -"(let-values()(values s_328 null))))))" +"(let-values(((b_80)(root-expand-context-use-site-scopes ctx_26)))" +"(begin(set-box! b_80(cons sc_30(unbox b_80)))(values(add-scope s_431 sc_30)(list sc_30))))))" +"(let-values()(values s_431 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_259)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_259 or-part_259(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_263)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_263 or-part_263(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_433 ctx_28)" +"(lambda(s_240 ctx_27)" "(begin" -"(if(root-expand-context-post-expansion-scope ctx_28)" +"(if(root-expand-context-post-expansion-scope ctx_27)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_433(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_433)))))" +"((expand-context-post-expansion-scope-action ctx_27) s_240(root-expand-context-post-expansion-scope ctx_27)))" +"(let-values() s_240)))))" "(define-values" "(accumulate-def-ctx-scopes)" -"(lambda(ctx_29 def-ctx-scopes_3)" +"(lambda(ctx_28 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" -" ctx_29" -"(let-values(((v_188) ctx_29))" -"(let-values(((the-struct_16) v_188))" -"(if(expand-context/outer? the-struct_16)" -"(let-values(((scopes136_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner137_0)(root-expand-context/outer-inner v_188)))" +" ctx_28" +"(let-values(((v_188) ctx_28))" +"(let-values(((the-struct_57) v_188))" +"(if(expand-context/outer? the-struct_57)" +"(let-values(((scopes206_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_28)))" +"((inner207_0)(root-expand-context/outer-inner v_188)))" "(expand-context/outer1.1" -" inner137_0" -"(root-expand-context/outer-post-expansion-scope the-struct_16)" -"(root-expand-context/outer-use-site-scopes the-struct_16)" -"(root-expand-context/outer-frame-id the-struct_16)" -"(expand-context/outer-context the-struct_16)" -"(expand-context/outer-env the-struct_16)" -"(expand-context/outer-post-expansion-scope-action the-struct_16)" -" scopes136_0" -"(expand-context/outer-def-ctx-scopes the-struct_16)" -"(expand-context/outer-binding-layer the-struct_16)" -"(expand-context/outer-reference-records the-struct_16)" -"(expand-context/outer-only-immediate? the-struct_16)" -"(expand-context/outer-need-eventually-defined the-struct_16)" -"(expand-context/outer-current-introduction-scopes the-struct_16)" -"(expand-context/outer-name the-struct_16)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16))))))))" +" inner207_0" +"(root-expand-context/outer-post-expansion-scope the-struct_57)" +"(root-expand-context/outer-use-site-scopes the-struct_57)" +"(root-expand-context/outer-frame-id the-struct_57)" +"(expand-context/outer-context the-struct_57)" +"(expand-context/outer-env the-struct_57)" +"(expand-context/outer-post-expansion-scope-action the-struct_57)" +" scopes206_0" +"(expand-context/outer-def-ctx-scopes the-struct_57)" +"(expand-context/outer-binding-layer the-struct_57)" +"(expand-context/outer-reference-records the-struct_57)" +"(expand-context/outer-only-immediate? the-struct_57)" +"(expand-context/outer-need-eventually-defined the-struct_57)" +"(expand-context/outer-current-introduction-scopes the-struct_57)" +"(expand-context/outer-name the-struct_57)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))))" "(define-values" -"(lookup28.1)" -"(lambda(in21_0 in23_0 out-of-context-as-variable?22_0 out-of-context-as-variable?24_0 b25_0 ctx26_0 id27_0)" +"(lookup62.1)" +"(lambda(in55_0 in57_0 out-of-context-as-variable?56_0 out-of-context-as-variable?58_0 b59_0 ctx60_0 id61_1)" "(begin" -" 'lookup28" -"(let-values(((b_81) b25_0))" -"(let-values(((ctx_30) ctx26_0))" -"(let-values(((id_68) id27_0))" -"(let-values(((in-s_7)(if in23_0 in21_0 #f)))" +" 'lookup62" +"(let-values(((b_81) b59_0))" +"(let-values(((ctx_29) ctx60_0))" +"(let-values(((id_67) id61_1))" +"(let-values(((in-s_7)(if in57_0 in55_0 #f)))" "(let-values(((out-of-context-as-variable?_1)" -"(if out-of-context-as-variable?24_0 out-of-context-as-variable?22_0 #f)))" +"(if out-of-context-as-variable?58_0 out-of-context-as-variable?56_0 #f)))" "(let-values()" -"(let-values(((b138_0) b_81)" -"((temp139_0)(expand-context-env ctx_30))" -"((temp140_0)(expand-context-lift-envs ctx_30))" -"((temp141_0)(expand-context-namespace ctx_30))" -"((temp142_0)(expand-context-phase ctx_30))" -"((id143_0) id_68)" -"((in-s144_0) in-s_7)" -"((out-of-context-as-variable?145_0) out-of-context-as-variable?_1))" +"(let-values(((b208_0) b_81)" +"((temp209_0)(expand-context-env ctx_29))" +"((temp210_0)(expand-context-lift-envs ctx_29))" +"((temp211_1)(expand-context-namespace ctx_29))" +"((temp212_0)(expand-context-phase ctx_29))" +"((id213_0) id_67)" +"((in-s214_0) in-s_7)" +"((out-of-context-as-variable?215_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" -" in-s144_0" +" in-s214_0" " #t" -" out-of-context-as-variable?145_0" +" out-of-context-as-variable?215_0" " #t" -" b138_0" -" temp139_0" -" temp140_0" -" temp141_0" -" temp142_0" -" id143_0)))))))))))" +" b208_0" +" temp209_0" +" temp210_0" +" temp211_1" +" temp212_0" +" id213_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_434 alternate-id_3)" +"(lambda(s_361 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_434)" -"(if(syntax-identifier? s_434)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_434) s_434))" +"(let-values() s_361)" +"(if(syntax-identifier? s_361)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_361) s_361))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_434)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_361)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_434)" -" s_434)" -" s_434))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_361)" +" s_361)" +" s_361))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39888,184 +40051,186 @@ static const char *startup_source = "(let-values()(reference-record-used!(binding-frame-id binding_25)(local-binding-key binding_25)))" "(void)))))" "(define-values" -"(expand/capture-lifts41.1)" -"(lambda(always-wrap?34_0" -" always-wrap?38_0" -" begin-form?32_0" -" begin-form?36_0" -" expand-lifts?31_0" -" expand-lifts?35_0" -" lift-key33_0" -" lift-key37_0" -" s39_0" -" ctx40_0)" +"(expand/capture-lifts75.1)" +"(lambda(always-wrap?68_0" +" always-wrap?72_0" +" begin-form?66_0" +" begin-form?70_0" +" expand-lifts?65_0" +" expand-lifts?69_0" +" lift-key67_0" +" lift-key71_0" +" s73_1" +" ctx74_0)" "(begin" -" 'expand/capture-lifts41" -"(let-values(((s_435) s39_0))" -"(let-values(((ctx_31) ctx40_0))" -"(let-values(((expand-lifts?_0)(if expand-lifts?35_0 expand-lifts?31_0 #f)))" -"(let-values(((begin-form?_0)(if begin-form?36_0 begin-form?32_0 #f)))" -"(let-values(((lift-key_2)(if lift-key37_0 lift-key33_0(generate-lift-key))))" -"(let-values(((always-wrap?_0)(if always-wrap?38_0 always-wrap?34_0 #f)))" +" 'expand/capture-lifts75" +"(let-values(((s_254) s73_1))" +"(let-values(((ctx_30) ctx74_0))" +"(let-values(((expand-lifts?_0)(if expand-lifts?69_0 expand-lifts?65_0 #f)))" +"(let-values(((begin-form?_0)(if begin-form?70_0 begin-form?66_0 #f)))" +"(let-values(((lift-key_2)(if lift-key71_0 lift-key67_0(generate-lift-key))))" +"(let-values(((always-wrap?_0)(if always-wrap?72_0 always-wrap?68_0 #f)))" "(let-values()" -"(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_108)(expand-context-phase ctx_31)))" +"(let-values(((context_6)(expand-context-context ctx_30)))" +"(let-values(((phase_108)(expand-context-phase ctx_30)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_94)" -"(lambda(s_436 always-wrap?_1 ctx_32)" +"(lambda(s_369 always-wrap?_1 ctx_31)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" "(let-values(((lift-ctx_0)" -"(let-values(((temp146_0)" +"(let-values(((temp216_1)" "(if local?_0" "(make-local-lift" " lift-env_2" -"(root-expand-context-counter ctx_32))" -"(make-top-level-lift ctx_32)))" -"((temp147_0)" +"(root-expand-context-counter ctx_31))" +"(make-top-level-lift ctx_31)))" +"((temp217_0)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp147_0 #t temp146_0))))" +"(make-lift-context6.1 temp217_0 #t temp216_1))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_189) ctx_32))" -"(let-values(((the-struct_57) v_189))" -"(if(expand-context/outer? the-struct_57)" -"(let-values(((inner148_0)" -"(let-values(((the-struct_58)" +"(let-values(((v_189) ctx_31))" +"(let-values(((the-struct_58) v_189))" +"(if(expand-context/outer? the-struct_58)" +"(let-values(((inner218_0)" +"(let-values(((the-struct_59)" "(root-expand-context/outer-inner" " v_189)))" "(if(expand-context/inner?" -" the-struct_58)" -"(let-values(((lift-key149_0)" +" the-struct_59)" +"(let-values(((lift-key219_0)" " lift-key_2)" -"((lifts150_0)" +"((lifts220_0)" " lift-ctx_0)" -"((lift-envs151_0)" +"((lift-envs221_0)" "(if local?_0" "(cons" " lift-env_2" "(expand-context-lift-envs" -" ctx_32))" +" ctx_31))" "(expand-context-lift-envs" -" ctx_32)))" -"((module-lifts152_0)" -"(if(let-values(((or-part_174)" +" ctx_31)))" +"((module-lifts222_0)" +"(if(let-values(((or-part_116)" " local?_0))" -"(if or-part_174" -" or-part_174" +"(if or-part_116" +" or-part_116" "(not" "(memq" " context_6" " '(top-level" " module)))))" "(expand-context-module-lifts" -" ctx_32)" +" ctx_31)" " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-module-scopes" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-defined-syms" -" the-struct_58)" +" the-struct_59)" "(root-expand-context/inner-counter" -" the-struct_58)" -" lift-key149_0" +" the-struct_59)" +" lift-key219_0" "(expand-context/inner-to-parsed?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-phase" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-namespace" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-just-once?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-module-begin-k" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-allow-unbound?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-in-local-expand?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-stops" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-declared-submodule-names" -" the-struct_58)" -" lifts150_0" -" lift-envs151_0" -" module-lifts152_0" +" the-struct_59)" +" lifts220_0" +" lift-envs221_0" +" module-lifts222_0" "(expand-context/inner-require-lifts" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-to-module-lifts" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-requires+provides" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-observer" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-for-serializable?" -" the-struct_58)" +" the-struct_59)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_58)))" +" the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_58)))))" +" the-struct_59)))))" "(expand-context/outer1.1" -" inner148_0" +" inner218_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/outer-use-site-scopes" -" the-struct_57)" +" the-struct_58)" "(root-expand-context/outer-frame-id" -" the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" +" the-struct_58)" +"(expand-context/outer-context the-struct_58)" +"(expand-context/outer-env the-struct_58)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_57)" -"(expand-context/outer-scopes the-struct_57)" +" the-struct_58)" +"(expand-context/outer-scopes the-struct_58)" "(expand-context/outer-def-ctx-scopes" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-binding-layer" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-reference-records" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-only-immediate?" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-need-eventually-defined" -" the-struct_57)" +" the-struct_58)" "(expand-context/outer-current-introduction-scopes" -" the-struct_57)" -"(expand-context/outer-name the-struct_57)))" +" the-struct_58)" +"(expand-context/outer-name the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_57))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_436)))" +" the-struct_58))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_369)))" "(let-values(((exp-s_2)" -"(let-values(((s153_0) s_436)" -"((capture-ctx154_0) capture-ctx_0))" -"(expand7.1" +"(let-values(((s223_0) s_369)" +"((capture-ctx224_0) capture-ctx_0))" +"(expand9.1" " #f" " #f" " #f" " #f" -" s153_0" -" capture-ctx154_0))))" +" #f" +" #f" +" s223_0" +" capture-ctx224_0))))" "(let-values(((lifts_6)" "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_260)" +"(if(let-values(((or-part_264)" "(pair? lifts_6)))" -"(if or-part_260" -" or-part_260" +"(if or-part_264" +" or-part_264" " always-wrap?_1))" "(let-values()" -"(if(expand-context-to-parsed? ctx_32)" +"(if(expand-context-to-parsed? ctx_31)" "(let-values()" "(begin" "(if expand-lifts?_0" @@ -40077,40 +40242,40 @@ static const char *startup_source = " lifts_6" " exp-s_2" " rebuild-s_0" -" ctx_32" +" ctx_31" "(lambda(rhs_15 rhs-ctx_0)" "(loop_94 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" -"(let-values(((lifts155_0) lifts_6)" -"((exp-s156_0) exp-s_2)" -"((phase157_0)" +"(let-values(((lifts225_0) lifts_6)" +"((exp-s226_0) exp-s_2)" +"((phase227_0)" " phase_108))" "(wrap-lifts-as-begin16.1" " #f" " #f" " #f" " #f" -" lifts155_0" -" exp-s156_0" -" phase157_0))" +" lifts225_0" +" exp-s226_0" +" phase227_0))" "(wrap-lifts-as-let" " lifts_6" " exp-s_2" " phase_108)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_110)(not expand-lifts?_0)))" -"(if or-part_110" -" or-part_110" -"(let-values(((or-part_111)(null? lifts_6)))" -"(if or-part_111" -" or-part_111" -"(expand-context-to-parsed? ctx_32)))))" +"(if(let-values(((or-part_265)(not expand-lifts?_0)))" +"(if or-part_265" +" or-part_265" +"(let-values(((or-part_266)(null? lifts_6)))" +"(if or-part_266" +" or-part_266" +"(expand-context-to-parsed? ctx_31)))))" "(let-values() with-lifts-s_0)" "(let-values()" "(begin" "(let-values(((obs_27)" -"(expand-context-observer ctx_32)))" +"(expand-context-observer ctx_31)))" "(if obs_27" "(let-values()" "(let-values()" @@ -40119,172 +40284,172 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_94 with-lifts-s_0 #f ctx_32)))))))))))))))" +"(loop_94 with-lifts-s_0 #f ctx_31)))))))))))))))" " loop_94)" -" s_435" +" s_254" " always-wrap?_0" -" ctx_31))))))))))))))" +" ctx_30))))))))))))))" "(define-values" -"(expand-transformer58.1)" -"(lambda(always-wrap?48_0" -" always-wrap?54_0" -" begin-form?45_0" -" begin-form?51_0" -" context44_0" -" context50_0" -" expand-lifts?46_0" -" expand-lifts?52_0" -" keep-stops?49_0" -" keep-stops?55_0" -" lift-key47_0" -" lift-key53_0" -" s56_0" -" ctx57_0)" +"(expand-transformer92.1)" +"(lambda(always-wrap?82_0" +" always-wrap?88_0" +" begin-form?79_0" +" begin-form?85_0" +" context78_0" +" context84_0" +" expand-lifts?80_0" +" expand-lifts?86_0" +" keep-stops?83_0" +" keep-stops?89_0" +" lift-key81_0" +" lift-key87_0" +" s90_1" +" ctx91_0)" "(begin" -" 'expand-transformer58" -"(let-values(((s_343) s56_0))" -"(let-values(((ctx_33) ctx57_0))" -"(let-values(((context_7)(if context50_0 context44_0 'expression)))" -"(let-values(((begin-form?_1)(if begin-form?51_0 begin-form?45_0 #f)))" -"(let-values(((expand-lifts?_1)(if expand-lifts?52_0 expand-lifts?46_0 #t)))" -"(let-values(((lift-key_3)(if lift-key53_0 lift-key47_0(generate-lift-key))))" -"(let-values(((always-wrap?_2)(if always-wrap?54_0 always-wrap?48_0 #f)))" -"(let-values(((keep-stops?_0)(if keep-stops?55_0 keep-stops?49_0 #f)))" +" 'expand-transformer92" +"(let-values(((s_392) s90_1))" +"(let-values(((ctx_32) ctx91_0))" +"(let-values(((context_7)(if context84_0 context78_0 'expression)))" +"(let-values(((begin-form?_1)(if begin-form?85_0 begin-form?79_0 #f)))" +"(let-values(((expand-lifts?_1)(if expand-lifts?86_0 expand-lifts?80_0 #t)))" +"(let-values(((lift-key_3)(if lift-key87_0 lift-key81_0(generate-lift-key))))" +"(let-values(((always-wrap?_2)(if always-wrap?88_0 always-wrap?82_0 #f)))" +"(let-values(((keep-stops?_0)(if keep-stops?89_0 keep-stops?83_0 #f)))" "(let-values()" "(let-values()" "(let-values(((trans-ctx_0)" -"(let-values(((ctx164_0) ctx_33)" -"((context165_0) context_7)" -"((keep-stops?166_0) keep-stops?_0))" -"(context->transformer-context66.1" -" keep-stops?166_0" +"(let-values(((ctx234_0) ctx_32)" +"((context235_0) context_7)" +"((keep-stops?236_0) keep-stops?_0))" +"(context->transformer-context100.1" +" keep-stops?236_0" " #t" -" ctx164_0" -" context165_0" +" ctx234_0" +" context235_0" " #t))))" -"(let-values(((s158_0) s_343)" -"((trans-ctx159_0) trans-ctx_0)" -"((expand-lifts?160_0) expand-lifts?_1)" -"((begin-form?161_0) begin-form?_1)" -"((lift-key162_0) lift-key_3)" -"((always-wrap?163_0) always-wrap?_2))" -"(expand/capture-lifts41.1" -" always-wrap?163_0" +"(let-values(((s228_0) s_392)" +"((trans-ctx229_0) trans-ctx_0)" +"((expand-lifts?230_0) expand-lifts?_1)" +"((begin-form?231_0) begin-form?_1)" +"((lift-key232_0) lift-key_3)" +"((always-wrap?233_0) always-wrap?_2))" +"(expand/capture-lifts75.1" +" always-wrap?233_0" " #t" -" begin-form?161_0" +" begin-form?231_0" " #t" -" expand-lifts?160_0" +" expand-lifts?230_0" " #t" -" lift-key162_0" +" lift-key232_0" " #t" -" s158_0" -" trans-ctx159_0))))))))))))))))" +" s228_0" +" trans-ctx229_0))))))))))))))))" "(define-values" -"(context->transformer-context66.1)" -"(lambda(keep-stops?61_0 keep-stops?62_0 ctx65_0 context63_0 context64_0)" +"(context->transformer-context100.1)" +"(lambda(keep-stops?95_0 keep-stops?96_0 ctx99_0 context97_0 context98_0)" "(begin" -" 'context->transformer-context66" -"(let-values(((ctx_34) ctx65_0))" -"(let-values(((context_8)(if context64_0 context63_0 'expression)))" -"(let-values(((keep-stops?_1)(if keep-stops?62_0 keep-stops?61_0 #f)))" +" 'context->transformer-context100" +"(let-values(((ctx_33) ctx99_0))" +"(let-values(((context_8)(if context98_0 context97_0 'expression)))" +"(let-values(((keep-stops?_1)(if keep-stops?96_0 keep-stops?95_0 #f)))" "(let-values()" -"(let-values(((phase_109)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_109)))" +"(let-values(((phase_109)(add1(expand-context-phase ctx_33))))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_33) phase_109)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_109)" -"(let-values(((v_190) ctx_34))" -"(let-values(((the-struct_59) v_190))" -"(if(expand-context/outer? the-struct_59)" -"(let-values(((context167_0) context_8)" -"((scopes168_0) null)" -"((env169_0) empty-env)" -"((only-immediate?170_0)" -"(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" -"((def-ctx-scopes171_0) #f)" -"((post-expansion-scope172_0) #f)" -"((inner173_0)" -"(let-values(((the-struct_60)(root-expand-context/outer-inner v_190)))" -"(if(expand-context/inner? the-struct_60)" -"(let-values(((phase174_0) phase_109)" -"((namespace175_0) ns_73)" -"((stops176_0)" +"(let-values(((v_190) ctx_33))" +"(let-values(((the-struct_60) v_190))" +"(if(expand-context/outer? the-struct_60)" +"(let-values(((context237_0) context_8)" +"((scopes238_0) null)" +"((env239_0) empty-env)" +"((only-immediate?240_0)" +"(if keep-stops?_1(expand-context-only-immediate? ctx_33) #f))" +"((def-ctx-scopes241_0) #f)" +"((post-expansion-scope242_0) #f)" +"((inner243_0)" +"(let-values(((the-struct_61)(root-expand-context/outer-inner v_190)))" +"(if(expand-context/inner? the-struct_61)" +"(let-values(((phase244_0) phase_109)" +"((namespace245_0) ns_73)" +"((stops246_0)" "(if keep-stops?_1" -"(expand-context-stops ctx_34)" +"(expand-context-stops ctx_33)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_60)" -"(root-expand-context/inner-module-scopes the-struct_60)" -"(root-expand-context/inner-top-level-bind-scope the-struct_60)" -"(root-expand-context/inner-all-scopes-stx the-struct_60)" -"(root-expand-context/inner-defined-syms the-struct_60)" -"(root-expand-context/inner-counter the-struct_60)" -"(root-expand-context/inner-lift-key the-struct_60)" -"(expand-context/inner-to-parsed? the-struct_60)" -" phase174_0" -" namespace175_0" -"(expand-context/inner-just-once? the-struct_60)" -"(expand-context/inner-module-begin-k the-struct_60)" -"(expand-context/inner-allow-unbound? the-struct_60)" -"(expand-context/inner-in-local-expand? the-struct_60)" -" stops176_0" -"(expand-context/inner-declared-submodule-names the-struct_60)" -"(expand-context/inner-lifts the-struct_60)" -"(expand-context/inner-lift-envs the-struct_60)" -"(expand-context/inner-module-lifts the-struct_60)" -"(expand-context/inner-require-lifts the-struct_60)" -"(expand-context/inner-to-module-lifts the-struct_60)" -"(expand-context/inner-requires+provides the-struct_60)" -"(expand-context/inner-observer the-struct_60)" -"(expand-context/inner-for-serializable? the-struct_60)" -"(expand-context/inner-should-not-encounter-macros? the-struct_60)))" +"(root-expand-context/inner-self-mpi the-struct_61)" +"(root-expand-context/inner-module-scopes the-struct_61)" +"(root-expand-context/inner-top-level-bind-scope the-struct_61)" +"(root-expand-context/inner-all-scopes-stx the-struct_61)" +"(root-expand-context/inner-defined-syms the-struct_61)" +"(root-expand-context/inner-counter the-struct_61)" +"(root-expand-context/inner-lift-key the-struct_61)" +"(expand-context/inner-to-parsed? the-struct_61)" +" phase244_0" +" namespace245_0" +"(expand-context/inner-just-once? the-struct_61)" +"(expand-context/inner-module-begin-k the-struct_61)" +"(expand-context/inner-allow-unbound? the-struct_61)" +"(expand-context/inner-in-local-expand? the-struct_61)" +" stops246_0" +"(expand-context/inner-declared-submodule-names the-struct_61)" +"(expand-context/inner-lifts the-struct_61)" +"(expand-context/inner-lift-envs the-struct_61)" +"(expand-context/inner-module-lifts the-struct_61)" +"(expand-context/inner-require-lifts the-struct_61)" +"(expand-context/inner-to-module-lifts the-struct_61)" +"(expand-context/inner-requires+provides the-struct_61)" +"(expand-context/inner-observer the-struct_61)" +"(expand-context/inner-for-serializable? the-struct_61)" +"(expand-context/inner-should-not-encounter-macros? the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_60)))))" +" the-struct_61)))))" "(expand-context/outer1.1" -" inner173_0" -" post-expansion-scope172_0" -"(root-expand-context/outer-use-site-scopes the-struct_59)" -"(root-expand-context/outer-frame-id the-struct_59)" -" context167_0" -" env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_59)" -" scopes168_0" -" def-ctx-scopes171_0" -"(expand-context/outer-binding-layer the-struct_59)" -"(expand-context/outer-reference-records the-struct_59)" -" only-immediate?170_0" -"(expand-context/outer-need-eventually-defined the-struct_59)" -"(expand-context/outer-current-introduction-scopes the-struct_59)" -"(expand-context/outer-name the-struct_59)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))))))))" +" inner243_0" +" post-expansion-scope242_0" +"(root-expand-context/outer-use-site-scopes the-struct_60)" +"(root-expand-context/outer-frame-id the-struct_60)" +" context237_0" +" env239_0" +"(expand-context/outer-post-expansion-scope-action the-struct_60)" +" scopes238_0" +" def-ctx-scopes241_0" +"(expand-context/outer-binding-layer the-struct_60)" +"(expand-context/outer-reference-records the-struct_60)" +" only-immediate?240_0" +"(expand-context/outer-need-eventually-defined the-struct_60)" +"(expand-context/outer-current-introduction-scopes the-struct_60)" +"(expand-context/outer-name the-struct_60)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))))))))" "(define-values" -"(expand+eval-for-syntaxes-binding75.1)" -"(lambda(log-next?69_0 log-next?70_0 who71_0 rhs72_0 ids73_0 ctx74_0)" +"(expand+eval-for-syntaxes-binding109.1)" +"(lambda(log-next?103_0 log-next?104_0 who105_0 rhs106_0 ids107_0 ctx108_0)" "(begin" -" 'expand+eval-for-syntaxes-binding75" -"(let-values(((who_17) who71_0))" -"(let-values(((rhs_16) rhs72_0))" -"(let-values(((ids_19) ids73_0))" -"(let-values(((ctx_35) ctx74_0))" -"(let-values(((log-next?_0)(if log-next?70_0 log-next?69_0 #t)))" +" 'expand+eval-for-syntaxes-binding109" +"(let-values(((who_17) who105_0))" +"(let-values(((rhs_16) rhs106_0))" +"(let-values(((ids_19) ids107_0))" +"(let-values(((ctx_34) ctx108_0))" +"(let-values(((log-next?_0)(if log-next?104_0 log-next?103_0 #t)))" "(let-values()" "(let-values(((exp-rhs_0)" -"(let-values(((rhs177_0) rhs_16)((temp178_0)(as-named-context ctx_35 ids_19)))" -"(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs177_0 temp178_0))))" -"(let-values(((phase_110)(add1(expand-context-phase ctx_35))))" +"(let-values(((rhs247_0) rhs_16)((temp248_0)(as-named-context ctx_34 ids_19)))" +"(expand-transformer92.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs247_0 temp248_0))))" +"(let-values(((phase_52)(add1(expand-context-phase ctx_34))))" "(let-values(((parsed-rhs_0)" -"(if(expand-context-to-parsed? ctx_35)" +"(if(expand-context-to-parsed? ctx_34)" " exp-rhs_0" -"(let-values(((exp-rhs179_0) exp-rhs_0)" -"((temp180_0)" -"(let-values(((temp181_0)(as-to-parsed-context ctx_35)))" -"(context->transformer-context66.1 #f #f temp181_0 #f #f))))" -"(expand7.1 #f #f #f #f exp-rhs179_0 temp180_0)))))" +"(let-values(((exp-rhs249_0) exp-rhs_0)" +"((temp250_1)" +"(let-values(((temp251_1)(as-to-parsed-context ctx_34)))" +"(context->transformer-context100.1 #f #f temp251_1 #f #f))))" +"(expand9.1 #f #f #f #f #f #f exp-rhs249_0 temp250_1)))))" "(begin" "(if log-next?_0" "(let-values()" -"(let-values(((obs_28)(expand-context-observer ctx_35)))" +"(let-values(((obs_28)(expand-context-observer ctx_34)))" "(if obs_28(let-values()(let-values()(call-expand-observe obs_28 'next)))(void))))" "(void))" "(values" @@ -40294,28 +40459,28 @@ static const char *startup_source = " who_17" " ids_19" " parsed-rhs_0" -" phase_110" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_110)" -" ctx_35)))))))))))))))" +" phase_52" +"(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_52)" +" ctx_34)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" -"(lambda(who_18 rhs_17 ids_20 ctx_36)" +"(lambda(who_18 rhs_17 ids_20 ctx_35)" "(begin" "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((who182_0) who_18)((rhs183_0) rhs_17)((ids184_0) ids_20)((ctx185_0) ctx_36))" -"(expand+eval-for-syntaxes-binding75.1 #f #f who182_0 rhs183_0 ids184_0 ctx185_0))))" +"(let-values(((who252_0) who_18)((rhs253_0) rhs_17)((ids254_0) ids_20)((ctx255_0) ctx_35))" +"(expand+eval-for-syntaxes-binding109.1 #f #f who252_0 rhs253_0 ids254_0 ctx255_0))))" " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_19 ids_21 p_49 phase_111 ns_74 ctx_37)" +"(lambda(who_19 ids_21 p_49 phase_110 ns_74 ctx_36)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_36))" " #f" "(compile-single" " p_49" -"(let-values(((ns186_0) ns_74)((phase187_0) phase_111))" -"(make-compile-context14.1 #f #f #f #f #f #f ns186_0 #t phase187_0 #t #f #f))))))" +"(let-values(((ns256_0) ns_74)((phase257_0) phase_110))" +"(make-compile-context14.1 #f #f #f #f #f #f ns256_0 #t phase257_0 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" "(lambda()" @@ -40324,7 +40489,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-expand-context" -" ctx_37" +" ctx_36" " 1/current-namespace" " ns_74" " eval-jit-enabled" @@ -40332,7 +40497,7 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_74)" -"(direct-eval p_49 ns_74(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_49 ns_74(root-expand-context-self-mpi ctx_36))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" @@ -40351,79 +40516,79 @@ static const char *startup_source = " (if (pair? (cdr ids_21)) \" ...\" \"\"))))" " vals_4)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_394)(begin(datum->syntax$1 #f 'props s_394 s_394))))" -"(define-values(keep-properties-only~)(lambda(s_395)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_152)(begin(datum->syntax$1 #f 'props s_152 s_152))))" +"(define-values(keep-properties-only~)(lambda(s_432)(begin #f)))" "(define-values" -"(keep-as-needed86.1)" -"(lambda(for-track?78_0" -" for-track?81_0" -" keep-for-error?80_0" -" keep-for-error?83_0" -" keep-for-parsed?79_0" -" keep-for-parsed?82_0" -" ctx84_0" -" s85_0)" +"(keep-as-needed120.1)" +"(lambda(for-track?112_0" +" for-track?115_0" +" keep-for-error?114_0" +" keep-for-error?117_0" +" keep-for-parsed?113_0" +" keep-for-parsed?116_0" +" ctx118_0" +" s119_0)" "(begin" -" 'keep-as-needed86" -"(let-values(((ctx_38) ctx84_0))" -"(let-values(((s_437) s85_0))" +" 'keep-as-needed120" +"(let-values(((ctx_37) ctx118_0))" +"(let-values(((s_433) s119_0))" "(let-values()" -"(let-values(((keep-for-parsed?_0)(if keep-for-parsed?82_0 keep-for-parsed?79_0 #f)))" -"(let-values(((keep-for-error?_0)(if keep-for-error?83_0 keep-for-error?80_0 #f)))" +"(let-values(((keep-for-parsed?_0)(if keep-for-parsed?116_0 keep-for-parsed?113_0 #f)))" +"(let-values(((keep-for-error?_0)(if keep-for-error?117_0 keep-for-error?114_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_437)))" +"(let-values(((d_32)(syntax-e$1 s_433)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" "(if(if(pair? d_32)(syntax-identifier?(car d_32)) #f)" "(let-values()(syntax-e$1(car d_32)))" "(let-values() #f)))))" -"(if(expand-context-to-parsed? ctx_38)" +"(if(expand-context-to-parsed? ctx_37)" "(let-values()" -"(if(let-values(((or-part_261) keep-for-parsed?_0))" -"(if or-part_261 or-part_261 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_437 s_437)" +"(if(let-values(((or-part_267) keep-for-parsed?_0))" +"(if or-part_267 or-part_267 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_433 s_433)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_437) keep-e_0 s_437 s_437)" -" s_437))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_433) keep-e_0 s_433 s_433)" +" s_433))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_438 trans-idss_0)" +"(lambda(s_434 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_438)" +"(let-values() s_434)" "(let-values()" "(syntax-property$1" -" s_438" +" s_434" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_262)(syntax-property$1 s_438 'disappeared-binding)))" -"(if or-part_262 or-part_262 null)))))))))" +"(let-values(((or-part_268)(syntax-property$1 s_434 'disappeared-binding)))" +"(if or-part_268 or-part_268 null)))))))))" "(define-values" "(increment-binding-layer)" -"(lambda(ids_22 ctx_39 layer-val_0)" +"(lambda(ids_22 ctx_38 layer-val_0)" "(begin" "(if((letrec-values(((loop_95)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_263)(identifier? ids_23)))" -"(if or-part_263" -" or-part_263" +"(let-values(((or-part_127)(identifier? ids_23)))" +"(if or-part_127" +" or-part_127" "(if(pair? ids_23)" -"(let-values(((or-part_264)(loop_95(car ids_23))))" -"(if or-part_264 or-part_264(loop_95(cdr ids_23))))" +"(let-values(((or-part_232)(loop_95(car ids_23))))" +"(if or-part_232 or-part_232(loop_95(cdr ids_23))))" " #f)))))))" " loop_95)" " ids_22)" " layer-val_0" -"(expand-context-binding-layer ctx_39)))))" +"(expand-context-binding-layer ctx_38)))))" "(define-values" "(wrap-lifts-as-parsed-let)" -"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_40 parse-rhs_0)" +"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_39 parse-rhs_0)" "(begin" "(let-values(((idss+keyss+rhss_0)(get-lifts-as-lists lifts_7)))" "((letrec-values(((lets-loop_0)" @@ -40445,38 +40610,38 @@ static const char *startup_source = "(lets-loop_0" "(cdr idss+keyss+rhss_1)" "(let-values(((v_191) rhs-ctx_1))" -"(let-values(((the-struct_61) v_191))" -"(if(expand-context/outer? the-struct_61)" -"(let-values(((env188_0)" -"(let-values(((lst_287) ids_24)((lst_288) keys_4))" +"(let-values(((the-struct_62) v_191))" +"(if(expand-context/outer? the-struct_62)" +"(let-values(((env258_0)" +"(let-values(((lst_67) ids_24)((lst_256) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" +"(let-values()(check-list lst_67)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_258)" -"(lambda(env_3 lst_289 lst_290)" +"(let-values()(check-list lst_256)))" +"((letrec-values(((for-loop_226)" +"(lambda(env_3 lst_257 lst_287)" "(begin" " 'for-loop" -"(if(if(pair? lst_289)" -"(pair? lst_290)" +"(if(if(pair? lst_257)" +"(pair? lst_287)" " #f)" -"(let-values(((id_69)" +"(let-values(((id_68)" "(unsafe-car" -" lst_289))" +" lst_257))" "((rest_157)" "(unsafe-cdr" -" lst_289))" +" lst_257))" "((key_82)" "(unsafe-car" -" lst_290))" +" lst_287))" "((rest_158)" "(unsafe-cdr" -" lst_290)))" +" lst_287)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40486,62 +40651,62 @@ static const char *startup_source = " env_5" " key_82" "(local-variable1.1" -" id_69)))))" +" id_68)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_258" +"(for-loop_226" " env_4" " rest_157" " rest_158)" " env_4)))" " env_3)))))" -" for-loop_258)" +" for-loop_226)" "(expand-context-env rhs-ctx_1)" -" lst_287" -" lst_288))))" -"((inner189_0)(root-expand-context/outer-inner v_191)))" +" lst_67" +" lst_256))))" +"((inner259_0)(root-expand-context/outer-inner v_191)))" "(expand-context/outer1.1" -" inner189_0" -"(root-expand-context/outer-post-expansion-scope the-struct_61)" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" -"(expand-context/outer-context the-struct_61)" -" env188_0" -"(expand-context/outer-post-expansion-scope-action the-struct_61)" -"(expand-context/outer-scopes the-struct_61)" -"(expand-context/outer-def-ctx-scopes the-struct_61)" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" -"(expand-context/outer-only-immediate? the-struct_61)" -"(expand-context/outer-need-eventually-defined the-struct_61)" -"(expand-context/outer-current-introduction-scopes the-struct_61)" -"(expand-context/outer-name the-struct_61)))" +" inner259_0" +"(root-expand-context/outer-post-expansion-scope the-struct_62)" +"(root-expand-context/outer-use-site-scopes the-struct_62)" +"(root-expand-context/outer-frame-id the-struct_62)" +"(expand-context/outer-context the-struct_62)" +" env258_0" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" +"(expand-context/outer-scopes the-struct_62)" +"(expand-context/outer-def-ctx-scopes the-struct_62)" +"(expand-context/outer-binding-layer the-struct_62)" +"(expand-context/outer-reference-records the-struct_62)" +"(expand-context/outer-only-immediate? the-struct_62)" +"(expand-context/outer-need-eventually-defined the-struct_62)" +"(expand-context/outer-current-introduction-scopes the-struct_62)" +"(expand-context/outer-name the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_61)))))))))))))))))" +" the-struct_62)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" -" ctx_40)))))" +" ctx_39)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_56 ctx_41)" +"(lambda(t_56 ctx_40)" "(begin" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_40)" "(let-values()(1/rename-transformer-target t_56))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_71 id_70 phase_112 ctx_42)" +"(lambda(val_71 id_69 phase_111 ctx_41)" "(begin" "(if(1/rename-transformer? val_71)" "(let-values()" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_71 id_70 phase_112))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" +"(let-values()(maybe-install-free=id! val_71 id_69 phase_111))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40549,19 +40714,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_62) new-s_1))" -"(if(syntax?$1 the-struct_62)" -"(let-values(((srcloc190_0) srcloc_7))" +"(let-values(((the-struct_63) new-s_1))" +"(if(syntax?$1 the-struct_63)" +"(let-values(((srcloc260_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_62)" -"(syntax-scopes the-struct_62)" -"(syntax-shifted-multi-scopes the-struct_62)" -"(syntax-scope-propagations+tamper the-struct_62)" -"(syntax-mpi-shifts the-struct_62)" -" srcloc190_0" -"(syntax-props the-struct_62)" -"(syntax-inspector the-struct_62)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_62)))" +"(syntax-content the-struct_63)" +"(syntax-scopes the-struct_63)" +"(syntax-shifted-multi-scopes the-struct_63)" +"(syntax-scope-propagations+tamper the-struct_63)" +"(syntax-mpi-shifts the-struct_63)" +" srcloc260_0" +"(syntax-props the-struct_63)" +"(syntax-inspector the-struct_63)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_63)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -40589,7 +40754,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_66)(unsafe-car lst_6))((rest_50)(unsafe-cdr lst_6)))" +"(let-values(((sym_65)(unsafe-car lst_6))((rest_50)(unsafe-cdr lst_6)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_60)" @@ -40598,7 +40763,7 @@ static const char *startup_source = "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_66))" +" sym_65))" " fold-var_90))))" "(values fold-var_60)))))" "(if(not #f)(for-loop_113 fold-var_89 rest_50) fold-var_89)))" @@ -40625,14 +40790,14 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_113)" +"(lambda(phase_112)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_113)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_112)))" "(reverse$1" "(let-values(((lst_222) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_258)" "(lambda(fold-var_243 lst_263)" "(begin" " 'for-loop" @@ -40647,9 +40812,9 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_17))" " fold-var_223))))" "(values fold-var_224)))))" -"(if(not #f)(for-loop_259 fold-var_222 rest_159) fold-var_222)))" +"(if(not #f)(for-loop_258 fold-var_222 rest_159) fold-var_222)))" " fold-var_243)))))" -" for-loop_259)" +" for-loop_258)" " null" " lst_222))))))))" "(define-values" @@ -40724,11 +40889,11 @@ static const char *startup_source = " \"(or/c #f internal-definition-context?)\"" " parent-ctx_0)))" "(values))))" -"(let-values(((ctx_43)" +"(let-values(((ctx_42)" "(let-values(((temp42_2) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp42_2 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_35)(root-expand-context-frame-id ctx_43)))" +"(let-values(((or-part_35)(root-expand-context-frame-id ctx_42)))" "(if or-part_35" " or-part_35" "(let-values(((or-part_67)" @@ -40737,7 +40902,7 @@ static const char *startup_source = " #f)))" "(if or-part_67 or-part_67(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" -"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" +"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_42)))" "(begin" "(if def-ctx-scopes_4" "(void)" @@ -40755,7 +40920,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_428 intdef_0)" +"(lambda(ids_25 s_435 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40767,9 +40932,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_72)(not s_428)))(if or-part_72 or-part_72(syntax?$1 s_428)))" +"(if(let-values(((or-part_72)(not s_435)))(if or-part_72 or-part_72(syntax?$1 s_435)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_428)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_435)))" "(values))))" "(let-values((()" "(begin" @@ -40781,31 +40946,31 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_0)))" "(values))))" -"(let-values(((ctx_44)" +"(let-values(((ctx_43)" "(let-values(((temp43_1) 'local-expand))(get-current-expand-context17.1 #f #f temp43_1 #t))))" "(let-values((()" "(begin" -"(let-values(((obs_29)(expand-context-observer ctx_44)))" +"(let-values(((obs_29)(expand-context-observer ctx_43)))" "(if obs_29" "(let-values()(let-values()(call-expand-observe obs_29 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_114)(expand-context-phase ctx_44)))" -"(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" +"(let-values(((phase_113)(expand-context-phase ctx_43)))" +"(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_43) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_291) ids_25))" +"(let-values(((lst_288) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_15 lst_292)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_15 lst_289)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((id_71)(unsafe-car lst_292))" -"((rest_160)(unsafe-cdr lst_292)))" +"(if(pair? lst_289)" +"(let-values(((id_70)(unsafe-car lst_289))" +"((rest_160)(unsafe-cdr lst_289)))" "(let-values(((fold-var_244)" "(let-values(((fold-var_233)" " fold-var_15))" @@ -40816,9 +40981,9 @@ static const char *startup_source = "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_71" -" ctx_44)" -" ctx_44)))" +" id_70" +" ctx_43)" +" ctx_43)))" "(let-values(((pre-id44_0)" " pre-id_0)" "((intdef45_0)" @@ -40835,18 +41000,18 @@ static const char *startup_source = " fold-var_233))))" "(values fold-var_245)))))" "(if(not #f)" -"(for-loop_260 fold-var_244 rest_160)" +"(for-loop_259 fold-var_244 rest_160)" " fold-var_244)))" " fold-var_15)))))" -" for-loop_260)" +" for-loop_259)" " null" -" lst_291))))))" +" lst_288))))))" "(let-values((()" "(begin" -"(let-values(((obs_30)(expand-context-observer ctx_44)))" -"(if obs_30" +"(let-values(((obs_4)(expand-context-observer ctx_43)))" +"(if obs_4" "(let-values()" -"(let-values()(call-expand-observe obs_30 'rename-list intdef-ids_0)))" +"(let-values()(call-expand-observe obs_4 'rename-list intdef-ids_0)))" "(void)))" "(values))))" "(let-values(((syms_20)" @@ -40856,7 +41021,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_188)))" -"((letrec-values(((for-loop_261)" +"((letrec-values(((for-loop_260)" "(lambda(fold-var_246 lst_189)" "(begin" " 'for-loop" @@ -40873,10 +41038,10 @@ static const char *startup_source = "(let-values(((intdef-id47_0)" " intdef-id_0)" "((phase48_1)" -" phase_114)" +" phase_113)" "((temp49_1)" "(root-expand-context-counter" -" ctx_44))" +" ctx_43))" "((temp50_1)" "(internal-definition-context-frame-id" " intdef_0)))" @@ -40891,40 +41056,40 @@ static const char *startup_source = " fold-var_248))))" "(values fold-var_249)))))" "(if(not #f)" -"(for-loop_261 fold-var_247 rest_161)" +"(for-loop_260 fold-var_247 rest_161)" " fold-var_247)))" " fold-var_246)))))" -" for-loop_261)" +" for-loop_260)" " null" " lst_188))))))" "(let-values(((vals_5)" -"(if s_428" +"(if s_435" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_428)" +"(let-values(((s51_0) s_435)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" -" ctx_44)))" +" ctx_43)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_293) syms_20))" +"(let-values(((lst_290) syms_20))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_262)" -"(lambda(env_7 lst_294)" +"(let-values()(check-list lst_290)))" +"((letrec-values(((for-loop_261)" +"(lambda(env_7 lst_291)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((sym_67)" +"(if(pair? lst_291)" +"(let-values(((sym_66)" "(unsafe-car" -" lst_294))" +" lst_291))" "((rest_162)" "(unsafe-cdr" -" lst_294)))" +" lst_291)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40932,27 +41097,27 @@ static const char *startup_source = "(let-values()" "(hash-set" " env_9" -" sym_67" +" sym_66" " variable))))" "(values" " env_10)))))" "(if(not #f)" -"(for-loop_262" +"(for-loop_261" " env_8" " rest_162)" " env_8)))" " env_7)))))" -" for-loop_262)" +" for-loop_261)" " intdef-env_0" -" lst_293)))))" +" lst_290)))))" "(let-values((()" "(begin" -"(let-values(((obs_31)" -"(expand-context-observer ctx_44)))" -"(if obs_31" +"(let-values(((obs_30)" +"(expand-context-observer ctx_43)))" +"(if obs_30" "(let-values()" "(let-values()" -"(call-expand-observe obs_31 'enter-bind)))" +"(call-expand-observe obs_30 'enter-bind)))" "(void)))" "(values))))" "(let-values(((vals_6)" @@ -40961,10 +41126,10 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_192) ctx_44))" -"(let-values(((the-struct_63) v_192))" +"(let-values(((v_192) ctx_43))" +"(let-values(((the-struct_64) v_192))" "(if(expand-context/outer?" -" the-struct_63)" +" the-struct_64)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" @@ -40972,36 +41137,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/outer-use-site-scopes" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/outer-frame-id" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-context" -" the-struct_63)" +" the-struct_64)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-scopes" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-def-ctx-scopes" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-binding-layer" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-reference-records" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-only-immediate?" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-need-eventually-defined" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-current-introduction-scopes" -" the-struct_63)" +" the-struct_64)" "(expand-context/outer-name" -" the-struct_63)))" +" the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63)))))" +" the-struct_64)))))" "((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -41017,10 +41182,10 @@ static const char *startup_source = " #f" " temp54_0)))))" "(begin" -"(let-values(((obs_32)(expand-context-observer ctx_44)))" -"(if obs_32" +"(let-values(((obs_31)(expand-context-observer ctx_43)))" +"(if obs_31" "(let-values()" -"(let-values()(call-expand-observe obs_32 'exit-bind)))" +"(let-values()(call-expand-observe obs_31 'exit-bind)))" "(void)))" " vals_6))))))" "(let-values()" @@ -41035,7 +41200,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_139)" -"(let-values(((id_72)(unsafe-car lst_139))" +"(let-values(((id_71)(unsafe-car lst_139))" "((rest_71)(unsafe-cdr lst_139)))" "(let-values(((fold-var_250)" "(let-values(((fold-var_251)" @@ -41060,28 +41225,28 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_20)((lst_14) vals_5))" +"(let-values(((lst_292) intdef-ids_0)((lst_293) syms_20)((lst_14) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_295)))" +"(let-values()(check-list lst_292)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_296)))" +"(let-values()(check-list lst_293)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_14)))" -"((letrec-values(((for-loop_263)" -"(lambda(fold-var_253 lst_297 lst_298 lst_106)" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_253 lst_294 lst_295 lst_106)" "(begin" " 'for-loop" -"(if(if(pair? lst_297)" -"(if(pair? lst_298)(pair? lst_106) #f)" +"(if(if(pair? lst_294)" +"(if(pair? lst_295)(pair? lst_106) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_297))" -"((rest_53)(unsafe-cdr lst_297))" -"((sym_68)(unsafe-car lst_298))" -"((rest_163)(unsafe-cdr lst_298))" +"(let-values(((intdef-id_1)(unsafe-car lst_294))" +"((rest_53)(unsafe-cdr lst_294))" +"((sym_67)(unsafe-car lst_295))" +"((rest_163)(unsafe-cdr lst_295))" "((val_72)(unsafe-car lst_106))" "((rest_164)(unsafe-cdr lst_106)))" "(let-values(((fold-var_185)" @@ -41095,32 +41260,32 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_72" " intdef-id_1" -" phase_114" -" ctx_44)" +" phase_113" +" ctx_43)" "(env-mixin2.1" " intdef-id_1" -" sym_68" +" sym_67" " val_72" "(make-weak-hasheq))))" " fold-var_186))))" "(values fold-var_35)))))" "(if(not #f)" -"(for-loop_263" +"(for-loop_262" " fold-var_185" " rest_53" " rest_163" " rest_164)" " fold-var_185)))" " fold-var_253)))))" -" for-loop_263)" +" for-loop_262)" " null" -" lst_295" -" lst_296" +" lst_292" +" lst_293" " lst_14))))" "(unbox env-mixins_0)))" -"(let-values(((obs_33)(expand-context-observer ctx_44)))" -"(if obs_33" -"(let-values()(let-values()(call-expand-observe obs_33 'exit-local-bind)))" +"(let-values(((obs_32)(expand-context-observer ctx_43)))" +"(if obs_32" +"(let-values()(let-values()(call-expand-observe obs_32 'exit-local-bind)))" "(void)))))))))))))))))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -41136,16 +41301,16 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_299)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_296)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_296)))" "((letrec-values(((for-loop_81)" -"(lambda(fold-var_37 lst_300)" +"(lambda(fold-var_37 lst_297)" "(begin" " 'for-loop" -"(if(pair? lst_300)" -"(let-values(((env-mixin_0)(unsafe-car lst_300))" -"((rest_165)(unsafe-cdr lst_300)))" +"(if(pair? lst_297)" +"(let-values(((env-mixin_0)(unsafe-car lst_297))" +"((rest_165)(unsafe-cdr lst_297)))" "(let-values(((fold-var_254)" "(let-values(((fold-var_255) fold-var_37))" "(let-values(((fold-var_187)" @@ -41158,7 +41323,7 @@ static const char *startup_source = " fold-var_37)))))" " for-loop_81)" " null" -" lst_299))))))))" +" lst_296))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -41166,7 +41331,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_439) s12_1))" +"(let-values(((s_436) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -41177,11 +41342,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_439)" +"(if(syntax?$1 s_436)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_439)))" -"(let-values(((s59_0) s_439)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_436)))" +"(let-values(((s59_0) s_436)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_31) mode_12))" @@ -41214,15 +41379,15 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_73 intdef_6)" +"(lambda(id_72 intdef_6)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_73)" +"(if(identifier? id_72)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" -"(if(let-values(((or-part_265)(1/internal-definition-context? intdef_6)))" -"(if or-part_265 or-part_265(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" +"(if(let-values(((or-part_269)(1/internal-definition-context? intdef_6)))" +"(if or-part_269 or-part_269(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41237,24 +41402,24 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_24)" -"(lambda(id_74 a_46)" +"(lambda(id_73 a_46)" "(begin" " 'for-loop" "(if(pair? a_46)" "(let-values(((intdef_7)(car a_46)))" +"(let-values(((id_63)" +"(let-values(((id_74) id_73))" "(let-values(((id_75)" -"(let-values(((id_76) id_74))" -"(let-values(((id_77)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_7" -" id_76" +" id_74" " 'remove))))" -"(values id_77)))))" -"(if(not #f)(for-loop_24 id_75(cdr a_46)) id_75)))" -" id_74)))))" +"(values id_75)))))" +"(if(not #f)(for-loop_24 id_63(cdr a_46)) id_63)))" +" id_73)))))" " for-loop_24)" -" id_73" +" id_72" " x_74)))))))" "(define-values" "(add-intdef-bindings)" @@ -41267,7 +41432,7 @@ static const char *startup_source = "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_263)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -41291,14 +41456,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_266)" +"(let-values(((or-part_270)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_266" -" or-part_266" +"(if or-part_270" +" or-part_270" "(let-values(((new-env_0)" "(env-extend" "(loop_96" @@ -41320,9 +41485,9 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_264 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_263 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_264)" +" for-loop_263)" " env_11" " x_75))))))" "(define-values" @@ -41330,7 +41495,7 @@ static const char *startup_source = "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_440) s19_0))" +"(let-values(((s_437) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" @@ -41343,19 +41508,19 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_245)" -"(lambda(s_441 a_50)" +"(lambda(s_438 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_442)" -"(let-values(((s_443) s_441))" -"(if(let-values(((or-part_267) always?_0))" -"(if or-part_267" -" or-part_267" +"(let-values(((s_439)" +"(let-values(((s_440) s_438))" +"(if(let-values(((or-part_271) always?_0))" +"(if or-part_271" +" or-part_271" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_207) s_443))" +"(let-values(((s_207) s_440))" "(let-values(((s_98)" "(let-values()" "(action_0" @@ -41363,11 +41528,11 @@ static const char *startup_source = "(internal-definition-context-scope" " intdef_9)))))" "(values s_98)))" -" s_443))))" -"(if(not #f)(for-loop_245 s_442(cdr a_50)) s_442)))" -" s_441)))))" +" s_440))))" +"(if(not #f)(for-loop_245 s_439(cdr a_50)) s_439)))" +" s_438)))))" " for-loop_245)" -" s_440" +" s_437" " x_76)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -41384,39 +41549,39 @@ static const char *startup_source = " ctx36_0)" "(begin" " 'make-local-expand-context37" -"(let-values(((ctx_30) ctx36_0))" +"(let-values(((ctx_44) ctx36_0))" "(let-values(((context_9) context24_0))" -"(let-values(((phase_115)(if phase31_0 phase25_0(expand-context-phase ctx_30))))" +"(let-values(((phase_114)(if phase31_0 phase25_0(expand-context-phase ctx_44))))" "(let-values(((intdefs_2) intdefs26_0))" "(let-values(((stop-ids_1)(if stop-ids33_0 stop-ids27_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?34_0 to-parsed-ok?28_0 #f)))" "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_268)(eq? context_9(expand-context-context ctx_30))))" -"(if or-part_268" -" or-part_268" -"(if(list? context_9)(list?(expand-context-context ctx_30)) #f)))))" +"(let-values(((or-part_272)(eq? context_9(expand-context-context ctx_44))))" +"(if or-part_272" +" or-part_272" +"(if(list? context_9)(list?(expand-context-context ctx_44)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_115) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_114) #f)))" "(let-values(((def-ctx-scopes_5)" -"(if(expand-context-def-ctx-scopes ctx_30)" -"(unbox(expand-context-def-ctx-scopes ctx_30))" +"(if(expand-context-def-ctx-scopes ctx_44)" +"(unbox(expand-context-def-ctx-scopes ctx_44))" " null)))" -"(let-values(((v_193) ctx_30))" -"(let-values(((the-struct_64) v_193))" -"(if(expand-context/outer? the-struct_64)" +"(let-values(((v_193) ctx_44))" +"(let-values(((the-struct_65) v_193))" +"(if(expand-context/outer? the-struct_65)" "(let-values(((context62_0) context_9)" -"((env63_0)(add-intdef-bindings(expand-context-env ctx_30) intdefs_2))" +"((env63_0)(add-intdef-bindings(expand-context-env ctx_44) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_269)(eq? context_9 'module)))" -"(if or-part_269" -" or-part_269" -"(let-values(((or-part_270)(eq? context_9 'module-begin)))" -"(if or-part_270 or-part_270(list? context_9)))))" -"(let-values(((or-part_271)" -"(root-expand-context-use-site-scopes ctx_30)))" -"(if or-part_271 or-part_271(box null)))" +"(if(let-values(((or-part_273)(eq? context_9 'module)))" +"(if or-part_273" +" or-part_273" +"(let-values(((or-part_274)(eq? context_9 'module-begin)))" +"(if or-part_274 or-part_274(list? context_9)))))" +"(let-values(((or-part_275)" +"(root-expand-context-use-site-scopes ctx_44)))" +"(if or-part_275 or-part_275(box null)))" " #f))" "((frame-id65_0)" "(let-values(((x_77)" @@ -41428,7 +41593,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -41453,40 +41618,40 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_272)" +"(let-values(((or-part_276)" " frame-id_11))" -"(if or-part_272" -" or-part_272" +"(if or-part_276" +" or-part_276" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_265 frame-id_10(cdr a_52))" +"(for-loop_264 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_265)" -"(root-expand-context-frame-id ctx_30)" +" for-loop_264)" +"(root-expand-context-frame-id ctx_44)" " x_77))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" "(if same-kind?_0" "(if(memq context_9 '(module module-begin top-level))" -"(root-expand-context-post-expansion-scope ctx_30)" +"(root-expand-context-post-expansion-scope ctx_44)" " #f)" " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_444 placeholder-sc_0)" +"(lambda(s_441 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_444)((intdefs74_0) intdefs_2))" -"(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" -"(expand-context-post-expansion-scope-action ctx_30)))" -"((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_30)))" +"(let-values(((s73_2) s_441)((intdefs74_0) intdefs_2))" +"(add-intdef-scopes21.1 #f #f #f #f s73_2 intdefs74_0))))" +"(expand-context-post-expansion-scope-action ctx_44)))" +"((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_44)))" "((only-immediate?69_0)(not stop-ids_1))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_87)(expand-context-need-eventually-defined ctx_30)))" +"(let-values(((ht_87)(expand-context-need-eventually-defined ctx_44)))" "(if track-to-be-defined?_0" "(let-values() ht_87)" "(if ht_87(let-values()(make-hasheqv))(let-values() #f)))))" @@ -41495,15 +41660,15 @@ static const char *startup_source = "(if(expand-context/inner? the-struct_21)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" -"(expand-context-to-parsed? ctx_30)" +"(expand-context-to-parsed? ctx_44)" " #f))" "((just-once?76_0) #f)" "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" -" phase_115" -"(let-values(((or-part_273) all-stop-ids_0))" -"(if or-part_273 or-part_273 null)))))" +" phase_114" +"(let-values(((or-part_277) all-stop-ids_0))" +"(if or-part_277 or-part_277 null)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_21)" "(root-expand-context/inner-module-scopes the-struct_21)" @@ -41544,20 +41709,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(expand-context/outer-def-ctx-scopes the-struct_64)" -"(expand-context/outer-binding-layer the-struct_64)" -"(expand-context/outer-reference-records the-struct_64)" +"(expand-context/outer-def-ctx-scopes the-struct_65)" +"(expand-context/outer-binding-layer the-struct_65)" +"(expand-context/outer-reference-records the-struct_65)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_64)))" +"(expand-context/outer-name the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64))))))))))))))))))" +" the-struct_65))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_445 ctx_45)(begin(flip-scopes s_445(expand-context-current-introduction-scopes ctx_45)))))" +"(lambda(s_442 ctx_45)(begin(flip-scopes s_442(expand-context-current-introduction-scopes ctx_45)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41596,39 +41761,39 @@ static const char *startup_source = "(expand-context-context ctx_49)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_446)" +"(lambda(s_443)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_446)" +"(if(syntax?$1 s_443)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_446)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_443)))" "(values))))" "(let-values(((ctx_50)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_446 ctx_50))))))))" +"(flip-introduction-scopes s_443 ctx_50))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_78)" +"(lambda(id_76)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_76)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_78)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_76)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp70_0) 'syntax-local-identifier-as-binding))" "(get-current-expand-context17.1 #f #f temp70_0 #t))))" -"(remove-use-site-scopes id_78 ctx_51))))))))" +"(remove-use-site-scopes id_76 ctx_51))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" @@ -41646,8 +41811,8 @@ static const char *startup_source = "(let-values(((ctx_53)" "(let-values(((who73_0) 'syntax-local-name))" "(get-current-expand-context17.1 #f #f who73_0 #t))))" -"(let-values(((id_79)(expand-context-name ctx_53)))" -"(if id_79(datum->syntax$1 #f(syntax-e$1 id_79) id_79) #f))))))))" +"(let-values(((id_77)(expand-context-name ctx_53)))" +"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer3_0)" @@ -41695,7 +41860,7 @@ static const char *startup_source = " 'make-syntax-delta-introducer9" "(let-values(((ext-s_0) ext-s7_0))" "(let-values(((base-s_0) base-s8_0))" -"(let-values(((phase_116)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_115)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -41724,27 +41889,27 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_116)" +"(if(phase? phase_115)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_116)))" +" phase_115)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_116)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_115)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_274) base-s_0))" -"(if or-part_274 or-part_274 empty-syntax))" -" phase_116)))" +"(let-values(((or-part_278) base-s_0))" +"(if or-part_278 or-part_278 empty-syntax))" +" phase_115)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" "(let-values(((or-part_33)" "(if(identifier? base-s_0)" "(let-values(((base-s80_0) base-s_0)" -"((phase81_0) phase_116)" +"((phase81_0) phase_115)" "((temp82_1) #t))" "(resolve40.1" " #f" @@ -41764,10 +41929,10 @@ static const char *startup_source = "(let-values(((maybe-taint_0)" "(if(syntax-clean? ext-s_0) values syntax-taint$1)))" "(let-values(((core86_0)" -"(lambda(s85_1 mode83_0 mode84_0)" +"(lambda(s85_0 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_447) s85_1))" +"(let-values(((s_425) s85_0))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" @@ -41775,13 +41940,13 @@ static const char *startup_source = "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" "(let-values()" -"(add-scopes s_447 delta-scs_0))" +"(add-scopes s_425 delta-scs_0))" "(if(equal? tmp_33 'remove)" "(let-values()" -"(remove-scopes s_447 delta-scs_0))" +"(remove-scopes s_425 delta-scs_0))" "(if(equal? tmp_33 'flip)" "(let-values()" -"(flip-scopes s_447 delta-scs_0))" +"(flip-scopes s_425 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41814,16 +41979,16 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value17" "(let-values(((who_20) who13_0))" -"(let-values(((id_80) id14_1))" +"(let-values(((id_78) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" "(let-values(((immediate?_1) immediate?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_80)" +"(if(identifier? id_78)" "(void)" -" (let-values () (raise-argument-error who_20 \"identifier?\" id_80)))" +" (let-values () (raise-argument-error who_20 \"identifier?\" id_78)))" "(values))))" "(let-values((()" "(begin" @@ -41891,20 +42056,20 @@ static const char *startup_source = " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_54)))" -"(if obs_34" +"(let-values(((obs_33)(expand-context-observer ctx_54)))" +"(if obs_33" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_80)))" +"(let-values()(call-expand-observe obs_33 'local-value id_78)))" "(void)))" "(values))))" "(let-values(((phase_7)(expand-context-phase ctx_54)))" "((letrec-values(((loop_97)" -"(lambda(id_81)" +"(lambda(id_79)" "(begin" " 'loop" "(let-values(((b_82)" "(if immediate?_1" -"(let-values(((id92_0) id_81)" +"(let-values(((id92_0) id_79)" "((phase93_0) phase_7)" "((temp94_1) #t))" "(resolve+shift30.1" @@ -41921,38 +42086,39 @@ static const char *startup_source = " id92_0" " phase93_0))" "(resolve+shift/extra-inspector" -" id_81" +" id_79" " phase_7" "(expand-context-namespace ctx_54)))))" "(begin" -"(let-values(((obs_35)(expand-context-observer ctx_54)))" -"(if obs_35" +"(let-values(((obs_34)(expand-context-observer ctx_54)))" +"(if obs_34" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_81)))" +"(call-expand-observe obs_34 'resolve id_79)))" "(void)))" "(if(not b_82)" "(let-values()" "(begin" -"(let-values(((obs_9)(expand-context-observer ctx_54)))" -"(if obs_9" +"(let-values(((obs_35)" +"(expand-context-observer ctx_54)))" +"(if obs_35" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_9" +" obs_35" " 'local-value-result" " #f)))" "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_20 \"unbound identifier: ~v\" id_81))))" +" (error who_20 \"unbound identifier: ~v\" id_79))))" "(let-values()" "(let-values(((v_37 primitive?_7 insp_17 protected?_8)" "(let-values(((b95_0) b_82)" "((ctx96_0) ctx_54)" -"((id97_0) id_81)" +"((id97_0) id_79)" "((temp98_1) #t))" -"(lookup28.1" +"(lookup62.1" " #f" " #f" " temp98_1" @@ -41960,8 +42126,8 @@ static const char *startup_source = " b95_0" " ctx96_0" " id97_0))))" -"(if(let-values(((or-part_275)(variable? v_37)))" -"(if or-part_275 or-part_275(core-form? v_37)))" +"(if(let-values(((or-part_279)(variable? v_37)))" +"(if or-part_279 or-part_279(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -41979,7 +42145,7 @@ static const char *startup_source = "(error" " who_20" " \"identifier is not bound to syntax: ~v\"" -" id_81))))" +" id_79))))" "(let-values()" "(begin" "(let-values(((obs_37)" @@ -42009,57 +42175,57 @@ static const char *startup_source = "(let-values()(values v_37 #f))" "(let-values() v_37)))))))))))))))" " loop_97)" -"(flip-introduction-scopes id_80 ctx_54))))))))))))))))))" +"(flip-introduction-scopes id_78 ctx_54))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_82) id24_0))" +"(let-values(((id_80) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_12)(if intdef23_0 intdef21_0 #f)))" "(let-values()" -"(let-values(((temp99_1) 'syntax-local-value)" -"((temp100_1) #f)" -"((id101_0) id_82)" +"(let-values(((temp99_0) 'syntax-local-value)" +"((temp100_0) #f)" +"((id101_0) id_80)" "((intdef102_0) intdef_12)" "((failure-thunk103_0) failure-thunk_1))" "(do-syntax-local-value17.1" -" temp100_1" -" temp99_1" +" temp100_0" +" temp99_0" " id101_0" " intdef102_0" " failure-thunk103_0))))))))))" "(case-lambda" -"((id_83)(begin 'syntax-local-value(syntax-local-value25_0 id_83 #f #f #f #f)))" -"((id_84 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_84 failure-thunk_2 intdef21_1 #t #t))" -"((id_85 failure-thunk20_1)(syntax-local-value25_0 id_85 failure-thunk20_1 #f #t #f)))))" +"((id_81)(begin 'syntax-local-value(syntax-local-value25_0 id_81 #f #f #f #f)))" +"((id_82 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_82 failure-thunk_2 intdef21_1 #t #t))" +"((id_83 failure-thunk20_1)(syntax-local-value25_0 id_83 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_86) id31_1))" +"(let-values(((id_84) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_13)(if intdef30_0 intdef28_0 #f)))" "(let-values()" "(let-values(((temp104_1) 'syntax-local-value/immediate)" -"((temp105_1) #t)" -"((id106_0) id_86)" +"((temp105_0) #t)" +"((id106_0) id_84)" "((intdef107_0) intdef_13)" "((failure-thunk108_0) failure-thunk_3))" "(do-syntax-local-value17.1" -" temp105_1" +" temp105_0" " temp104_1" " id106_0" " intdef107_0" " failure-thunk108_0))))))))))" "(case-lambda" -"((id_87)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_87 #f #f #f #f)))" -"((id_88 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_88 failure-thunk_4 intdef28_1 #t #t))" -"((id_89 failure-thunk27_1)(syntax-local-value/immediate32_0 id_89 failure-thunk27_1 #f #t #f)))))" +"((id_85)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_85 #f #f #f #f)))" +"((id_86 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_86 failure-thunk_4 intdef28_1 #t #t))" +"((id_87 failure-thunk27_1)(syntax-local-value/immediate32_0 id_87 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" "(lambda(who_21 n_28 s_413)" @@ -42088,7 +42254,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_266)" +"((letrec-values(((for-loop_265)" "(lambda(fold-var_256 pos_106)" "(begin" " 'for-loop" @@ -42123,10 +42289,10 @@ static const char *startup_source = " fold-var_258))))" "(values fold-var_259)))))" "(if(not #f)" -"(for-loop_266 fold-var_257(+ pos_106 inc_24))" +"(for-loop_265 fold-var_257(+ pos_106 inc_24))" " fold-var_257)))" " fold-var_256)))))" -" for-loop_266)" +" for-loop_265)" " null" " start_40))))))" "(begin" @@ -42135,7 +42301,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_26 s_413)))" "(void)))" "(map2" -"(lambda(id_73)(flip-introduction-scopes id_73 ctx_55))" +"(lambda(id_72)(flip-introduction-scopes id_72 ctx_55))" "(add-lifted!" " lifts_0" " ids_26" @@ -42149,10 +42315,10 @@ static const char *startup_source = "(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_201)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_448)" +"(lambda(n_29 s_444)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_448))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_444))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -42180,9 +42346,9 @@ static const char *startup_source = "(let-values(((ctx_57)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" -"(let-values(((phase_117)(expand-context-phase ctx_57)))" +"(let-values(((phase_116)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_65 phase_117)))" +"(let-values(((tmp_34)(core-form-sym s_65 phase_116)))" "(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_57)))" @@ -42195,7 +42361,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_65)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_65 ctx_57) phase_117))))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_65 ctx_57) phase_116))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_65))))" "(let-values(((obs_39)(expand-context-observer ctx_57)))" @@ -42223,7 +42389,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_22) who52_0))" -"(let-values(((s_449) s53_1))" +"(let-values(((s_445) s53_1))" "(let-values(((no-target-msg_0) no-target-msg34_0))" "(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))" "(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))" @@ -42233,21 +42399,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_450 phase_118 lift-ctx_1)(begin 'pre-wrap s_450)))))" +"(lambda(s_446 phase_117 lift-ctx_1)(begin 'pre-wrap s_446)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_70 phase_119 lift-ctx_2)(begin 'shift-wrap s_70)))))" +"(lambda(s_70 phase_118 lift-ctx_2)(begin 'shift-wrap s_70)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_209 phase_120 lift-ctx_3)(begin 'post-wrap s_209)))))" +"(lambda(s_209 phase_119 lift-ctx_3)(begin 'post-wrap s_209)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_449)" +"(if(syntax?$1 s_445)" "(void)" -" (let-values () (raise-argument-error who_22 \"syntax?\" s_449)))" +" (let-values () (raise-argument-error who_22 \"syntax?\" s_445)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_58)" @@ -42263,15 +42429,15 @@ static const char *startup_source = " who_22" " no-target-msg_0" " \"form to lift\"" -" s_449)))" +" s_445)))" "(values))))" -"(let-values(((phase_121)(expand-context-phase ctx_58)))" +"(let-values(((phase_120)(expand-context-phase ctx_58)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_449 ctx_58) s_449)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_121 lift-ctx_4)))" +"(if intro?_0(flip-introduction-scopes s_445 ctx_58) s_445)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_120 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_121)" +"(let-values(((start_41) phase_120)" "((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -42288,12 +42454,12 @@ static const char *startup_source = "(let-values(((phase_55)" " pos_24))" "(let-values(((s_169)" -"(let-values(((s_451)" +"(let-values(((s_447)" " s_103))" "(let-values(((s_211)" "(let-values()" "(shift-wrap_0" -" s_451" +" s_447" "(sub1" " phase_55)" " lift-ctx_4))))" @@ -42336,11 +42502,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_0)" -"(lambda(s_452 phase_122 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_452)))" +"(lambda(s_448 phase_121 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_448)))" "((temp127_1)" -"(lambda(s_121 phase_123 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_121 sc_33) phase_123))))" +"(lambda(s_121 phase_122 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_121 sc_33) phase_122))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -42387,10 +42553,10 @@ static const char *startup_source = "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_453 phase_124 to-module-lift-ctx_0)(wrap-form 'for-syntax s_453 #f)))" +"(lambda(s_449 phase_123 to-module-lift-ctx_0)(wrap-form 'for-syntax s_449 #f)))" "((temp136_0)" -"(lambda(s_222 phase_125 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_222 phase_125))))" +"(lambda(s_222 phase_124 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_222 phase_124))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -42422,19 +42588,19 @@ static const char *startup_source = "(let-values(((ctx_60 also-s_0)" "(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" "((s139_0) s_224)" -"((temp140_1)" +"((temp140_0)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" "((temp142_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" "((temp144_0)" -"(lambda(orig-s_32 phase_126 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_125 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_32 phase_126)" +"(wrap-form '#%expression orig-s_32 phase_125)" " orig-s_32)))" -"((temp145_0)" -"(lambda(s_131 phase_127 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_131 phase_127))))" +"((temp145_1)" +"(lambda(s_131 phase_126 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_131 phase_126))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -42443,12 +42609,12 @@ static const char *startup_source = " #f" " #f" " #f" -" temp140_1" +" temp140_0" " #f" " #f" " temp144_0" " #t" -" temp145_0" +" temp145_1" " #t" " who138_0" " s139_0))))" @@ -42458,11 +42624,11 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_69 s_132 phase_128)" +"(lambda(sym_68 s_132 phase_127)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_128(syntax-shift-phase-level$1 core-stx phase_128) #f) sym_69) s_132)))))" +"(list(datum->syntax$1(if phase_127(syntax-shift-phase-level$1 core-stx phase_127) #f) sym_68) s_132)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42492,8 +42658,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_276)(not mod-path_8)))" -"(if or-part_276 or-part_276(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_280)(not mod-path_8)))" +"(if or-part_280 or-part_280(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42503,8 +42669,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_277)(eq? phase-level_21 #t)))" -"(if or-part_277 or-part_277(phase? phase-level_21)))" +"(if(let-values(((or-part_281)(eq? phase-level_21 #t)))" +"(if or-part_281 or-part_281(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42538,12 +42704,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_138)))" -"((letrec-values(((for-loop_267)" +"((letrec-values(((for-loop_266)" "(lambda(fold-var_204 i_166)" "(begin" " 'for-loop" "(if i_166" -"(let-values(((phase_129 ids_27)" +"(let-values(((phase_128 ids_27)" "(hash-iterate-key+value ht_138 i_166)))" "(let-values(((fold-var_260)" "(let-values(((fold-var_261) fold-var_204))" @@ -42551,16 +42717,16 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(cons phase_129 ids_27))" +"(cons phase_128 ids_27))" " fold-var_261))))" "(values fold-var_262)))))" "(if(not #f)" -"(for-loop_267" +"(for-loop_266" " fold-var_260" "(hash-iterate-next ht_138 i_166))" " fold-var_260)))" " fold-var_204)))))" -" for-loop_267)" +" for-loop_266)" " null" "(hash-iterate-first ht_138)))))" " #f)))))))))))))" @@ -42568,15 +42734,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_301) requireds_1))" +"(let-values(((lst_298) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_268)" -"(lambda(ht_139 lst_302)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" +"((letrec-values(((for-loop_267)" +"(lambda(ht_139 lst_299)" "(begin" " 'for-loop" -"(if(pair? lst_302)" -"(let-values(((r_42)(unsafe-car lst_302))((rest_166)(unsafe-cdr lst_302)))" +"(if(pair? lst_299)" +"(let-values(((r_42)(unsafe-car lst_299))((rest_166)(unsafe-cdr lst_299)))" "(let-values(((ht_140)" "(let-values(((ht_141) ht_139))" "(let-values(((ht_142)" @@ -42587,11 +42753,11 @@ static const char *startup_source = "(lambda(l_73)(cons(required-id r_42) l_73))" " null))))" "(values ht_142)))))" -"(if(not #f)(for-loop_268 ht_140 rest_166) ht_140)))" +"(if(not #f)(for-loop_267 ht_140 rest_166) ht_140)))" " ht_139)))))" -" for-loop_268)" +" for-loop_267)" "(hasheqv)" -" lst_301))))))" +" lst_298))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42601,9 +42767,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_278)(1/module-path? mod-path_9)))" -"(if or-part_278" -" or-part_278" +"(if(let-values(((or-part_282)(1/module-path? mod-path_9)))" +"(if or-part_282" +" or-part_282" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42617,8 +42783,8 @@ static const char *startup_source = " mod-path_9)))" "(values))))" "(let-values(((ctx_63)" -"(let-values(((temp151_0) 'syntax-local-module-exports))" -"(get-current-expand-context17.1 #f #f temp151_0 #t))))" +"(let-values(((temp151_1) 'syntax-local-module-exports))" +"(get-current-expand-context17.1 #f #f temp151_1 #t))))" "(let-values(((ns_75)(expand-context-namespace ctx_63)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" @@ -42637,12 +42803,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_268)" "(lambda(fold-var_263 i_167)" "(begin" " 'for-loop" "(if i_167" -"(let-values(((phase_130 syms_21)" +"(let-values(((phase_129 syms_21)" "(hash-iterate-key+value ht_143 i_167)))" "(let-values(((fold-var_264)" "(let-values(((fold-var_265) fold-var_263))" @@ -42651,7 +42817,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_130" +" phase_129" "(reverse$1" "(let-values(((ht_144)" " syms_21))" @@ -42662,13 +42828,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_144)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_269)" "(lambda(fold-var_267" " i_168)" "(begin" " 'for-loop" "(if i_168" -"(let-values(((sym_70)" +"(let-values(((sym_69)" "(hash-iterate-key" " ht_144" " i_168)))" @@ -42679,30 +42845,30 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" sym_70)" +" sym_69)" " fold-var_269))))" "(values" " fold-var_270)))))" "(if(not" " #f)" -"(for-loop_270" +"(for-loop_269" " fold-var_268" "(hash-iterate-next" " ht_144" " i_168))" " fold-var_268)))" " fold-var_267)))))" -" for-loop_270)" +" for-loop_269)" " null" "(hash-iterate-first" " ht_144)))))))" " fold-var_265))))" "(values fold-var_266)))))" "(if(not #f)" -"(for-loop_269 fold-var_264(hash-iterate-next ht_143 i_167))" +"(for-loop_268 fold-var_264(hash-iterate-next ht_143 i_167))" " fold-var_264)))" " fold-var_263)))))" -" for-loop_269)" +" for-loop_268)" " null" "(hash-iterate-first ht_143))))))))))))))))" "(define-values" @@ -42722,7 +42888,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_270)" "(lambda(fold-var_271 i_169)" "(begin" " 'for-loop" @@ -42740,10 +42906,10 @@ static const char *startup_source = "(values fold-var_275)))" " fold-var_273))))" "(if(not #f)" -"(for-loop_271 fold-var_272(hash-iterate-next ht_145 i_169))" +"(for-loop_270 fold-var_272(hash-iterate-next ht_145 i_169))" " fold-var_272)))" " fold-var_271)))))" -" for-loop_271)" +" for-loop_270)" " null" "(hash-iterate-first ht_145))))))))))))" "(define-values" @@ -42752,26 +42918,26 @@ static const char *startup_source = "(lambda(id59_0 only-generated?57_0 only-generated?58_0)" "(begin" " 'syntax-local-get-shadower60" -"(let-values(((id_90) id59_0))" +"(let-values(((id_88) id59_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_90)" +"(if(identifier? id_88)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_90)))" +" id_88)))" "(values))))" "(let-values(((ctx_65)" "(let-values(((who155_0) 'syntax-local-get-shadower))" "(get-current-expand-context17.1 #f #f who155_0 #t))))" -"(let-values(((new-id_0)(add-scopes id_90(expand-context-scopes ctx_65))))" -"(if(syntax-clean? id_90) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((new-id_0)(add-scopes id_88(expand-context-scopes ctx_65))))" +"(if(syntax-clean? id_88) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" "((id_37)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_37 #f #f)))" "((id_38 only-generated?57_1)(syntax-local-get-shadower60_0 id_38 only-generated?57_1 #t)))))" @@ -42800,8 +42966,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_70)" "(begin" -"(if(let-values(((or-part_279)(not(vector-ref v_70 1))))" -"(if or-part_279 or-part_279(exact-positive-integer?(vector-ref v_70 1))))" +"(if(let-values(((or-part_283)(not(vector-ref v_70 1))))" +"(if or-part_283 or-part_283(exact-positive-integer?(vector-ref v_70 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_70 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_70 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_70 3))))" @@ -42817,25 +42983,25 @@ static const char *startup_source = "(begin" "(if(srcloc? v_195)" "(let-values()" -"(let-values(((the-struct_65) empty-syntax))" -"(if(syntax?$1 the-struct_65)" +"(let-values(((the-struct_66) empty-syntax))" +"(if(syntax?$1 the-struct_66)" "(let-values(((srcloc1_2) v_195))" "(syntax1.1" -"(syntax-content the-struct_65)" -"(syntax-scopes the-struct_65)" -"(syntax-shifted-multi-scopes the-struct_65)" -"(syntax-scope-propagations+tamper the-struct_65)" -"(syntax-mpi-shifts the-struct_65)" +"(syntax-content the-struct_66)" +"(syntax-scopes the-struct_66)" +"(syntax-shifted-multi-scopes the-struct_66)" +"(syntax-scope-propagations+tamper the-struct_66)" +"(syntax-mpi-shifts the-struct_66)" " srcloc1_2" -"(syntax-props the-struct_65)" -"(syntax-inspector the-struct_65)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65))))" +"(syntax-props the-struct_66)" +"(syntax-inspector the-struct_66)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" "(if(pair? v_195)" "(let-values()(to-srcloc-stx(list->vector v_195)))" "(if(vector? v_195)" "(let-values()" -"(let-values(((the-struct_66) empty-syntax))" -"(if(syntax?$1 the-struct_66)" +"(let-values(((the-struct_67) empty-syntax))" +"(if(syntax?$1 the-struct_67)" "(let-values(((srcloc2_1)" "(srcloc" "(vector-ref v_195 0)" @@ -42844,15 +43010,15 @@ static const char *startup_source = "(vector-ref v_195 3)" "(vector-ref v_195 4))))" "(syntax1.1" -"(syntax-content the-struct_66)" -"(syntax-scopes the-struct_66)" -"(syntax-shifted-multi-scopes the-struct_66)" -"(syntax-scope-propagations+tamper the-struct_66)" -"(syntax-mpi-shifts the-struct_66)" +"(syntax-content the-struct_67)" +"(syntax-scopes the-struct_67)" +"(syntax-shifted-multi-scopes the-struct_67)" +"(syntax-scope-propagations+tamper the-struct_67)" +"(syntax-mpi-shifts the-struct_67)" " srcloc2_1" -"(syntax-props the-struct_66)" -"(syntax-inspector the-struct_66)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" +"(syntax-props the-struct_67)" +"(syntax-inspector the-struct_67)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" "(let-values() v_195)))))))" "(define-values" "(1/syntax-e)" @@ -42890,15 +43056,15 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_280)(not stx-c_4)))" -"(if or-part_280 or-part_280(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_284)(not stx-c_4)))" +"(if or-part_284 or-part_284(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_281)(not stx-l_2)))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_282)(syntax?$1 stx-l_2)))" -"(if or-part_282 or-part_282(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_285)(not stx-l_2)))" +"(if or-part_285" +" or-part_285" +"(let-values(((or-part_286)(syntax?$1 stx-l_2)))" +"(if or-part_286 or-part_286(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -42916,16 +43082,16 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_283)(not stx-p_1)))" -"(if or-part_283 or-part_283(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_287)(not stx-p_1)))" +"(if or-part_287 or-part_287(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" "(datum->syntax$1 stx-c_4 s_177(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_304)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_304 #f #f #f #f #f #f)))" -"((stx-c_6 s_425 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_425 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_6 s_450 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_450 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_75 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_75 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_454 stx-l1_1)(datum->syntax9_0 stx-c_8 s_454 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_8 s_451 stx-l1_1)(datum->syntax9_0 stx-c_8 s_451 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -42954,7 +43120,7 @@ static const char *startup_source = " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" "(let-values(((b_83) b14_0))" -"(let-values(((phase_131)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((phase_130)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42965,10 +43131,10 @@ static const char *startup_source = "(if(identifier? b_83)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_83)))" -"(if(phase? phase_131)" +"(if(phase? phase_130)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_131)))" -"(bound-identifier=?$1 a_53 b_83 phase_131))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_130)))" +"(bound-identifier=?$1 a_53 b_83 phase_130))))))))))))" "(case-lambda" "((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" "((a_55 b_84 phase11_1)(bound-identifier=?15_0 a_55 b_84 phase11_1 #t)))))" @@ -43022,8 +43188,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_132)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_89 phase_132 phase_132)))))))))" +"(let-values(((phase_131)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_89 phase_131 phase_131)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_61 b_90)" @@ -43043,8 +43209,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" -"(let-values(((phase_133)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_90 phase_133 phase_133)))))))))" +"(let-values(((phase_132)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_90 phase_132 phase_132)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_62 b_91)" @@ -43066,44 +43232,44 @@ static const char *startup_source = "(lambda(id29_1 phase25_1 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" "(begin" " 'identifier-binding30" -"(let-values(((id_91) id29_1))" +"(let-values(((id_89) id29_1))" "(let-values(((phase_36)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_91)" +"(if(identifier? id_89)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_89)))" "(if(phase? phase_36)" "(void)" "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_36)))" -"(identifier-binding$1 id_91 phase_36 top-level-symbol?_1))))))))))))" +"(identifier-binding$1 id_89 phase_36 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_92)(begin 'identifier-binding(identifier-binding30_0 id_92 #f #f #f #f)))" -"((id_93 phase_134 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_134 top-level-symbol?26_1 #t #t))" -"((id_94 phase25_2)(identifier-binding30_0 id_94 phase25_2 #f #t #f)))))" +"((id_90)(begin 'identifier-binding(identifier-binding30_0 id_90 #f #f #f #f)))" +"((id_91 phase_133 top-level-symbol?26_1)(identifier-binding30_0 id_91 phase_133 top-level-symbol?26_1 #t #t))" +"((id_92 phase25_2)(identifier-binding30_0 id_92 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding35_0)" "(lambda(id34_1 phase32_1 phase33_1)" "(begin" " 'identifier-transformer-binding35" -"(let-values(((id_62) id34_1))" -"(let-values(((phase_135)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values(((id_93) id34_1))" +"(let-values(((phase_134)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_62)" +"(if(identifier? id_93)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_62)))" -"(identifier-binding$1 id_62(if phase_135(add1 phase_135) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_93)))" +"(identifier-binding$1 id_93(if phase_134(add1 phase_134) #f))))))))))))" "(case-lambda" -"((id_95)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_95 #f #f)))" -"((id_96 phase32_2)(identifier-transformer-binding35_0 id_96 phase32_2 #t)))))" +"((id_94)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_94 #f #f)))" +"((id_95 phase32_2)(identifier-transformer-binding35_0 id_95 phase32_2 #t)))))" "(define-values" "(1/identifier-template-binding)" "(lambda(id_54)" @@ -43118,55 +43284,55 @@ static const char *startup_source = "(identifier-binding$1 id_54(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_97)" +"(lambda(id_96)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_97)" +"(if(identifier? id_96)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_97)))" -"(identifier-binding$1 id_97 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_96)))" +"(identifier-binding$1 id_96 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" "(lambda(id39_0 phase37_2 phase38_0)" "(begin" " 'identifier-binding-symbol40" -"(let-values(((id_98) id39_0))" -"(let-values(((phase_136)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((id_97) id39_0))" +"(let-values(((phase_135)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_98)" +"(if(identifier? id_97)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_98)))" -"(if(phase? phase_136)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_97)))" +"(if(phase? phase_135)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_136)))" -"(identifier-binding-symbol$1 id_98 phase_136)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_135)))" +"(identifier-binding-symbol$1 id_97 phase_135)))))))))))" "(case-lambda" -"((id_99)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_99 #f #f)))" -"((id_100 phase37_3)(identifier-binding-symbol40_0 id_100 phase37_3 #t)))))" +"((id_98)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_98 #f #f)))" +"((id_99 phase37_3)(identifier-binding-symbol40_0 id_99 phase37_3 #t)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context45_0)" "(lambda(id44_0 syms42_0 syms43_0)" "(begin" " 'identifier-prune-lexical-context45" -"(let-values(((id_101) id44_0))" +"(let-values(((id_100) id44_0))" "(let-values(((syms_22)(if syms43_0 syms42_0 null)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_101)" +"(if(identifier? id_100)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_101)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_100)))" "(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" @@ -43174,30 +43340,30 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_22)))" -" id_101))))))))))" +" id_100))))))))))" "(case-lambda" -"((id_102)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_102 #f #f)))" -"((id_103 syms42_1)(identifier-prune-lexical-context45_0 id_103 syms42_1 #t)))))" +"((id_101)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_101 #f #f)))" +"((id_102 syms42_1)(identifier-prune-lexical-context45_0 id_102 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_455) s51_1))" -"(let-values(((phase_137)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((s_452) s51_1))" +"(let-values(((phase_136)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_455)" +"(if(syntax?$1 s_452)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_455)))" -"(if(phase? phase_137)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_452)))" +"(if(phase? phase_136)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_137)))" -"(syntax-debug-info$1 s_455 phase_137 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_136)))" +"(syntax-debug-info$1 s_452 phase_136 all-bindings?_1))))))))))))" "(case-lambda" "((s_314)(begin 'syntax-debug-info(syntax-debug-info52_0 s_314 #f #f #f #f)))" "((s_91 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_91 phase_101 all-bindings?48_1 #t #t))" @@ -43217,7 +43383,7 @@ static const char *startup_source = "(syntax-shift-phase-level$1 s_93 phase_23)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_104)" +"(lambda(new-stx_8 old-stx_4 id_103)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -43236,11 +43402,11 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_104)" +"(if(identifier? id_103)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_104)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_103)))" "(values))))" -"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_104)))" +"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" "(let-values(((ctx_66)" "(let-values(((temp73_0) #t))(get-current-expand-context17.1 temp73_0 #t #f #f))))" "(begin" @@ -43344,17 +43510,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_23 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_131)(namespace-phase src-namespace_6)))" +"(let-values(((phase_130)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_131(namespace-phase dest-namespace_2))" +"(if(eqv? phase_130(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_23" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_131" +" phase_130" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43364,7 +43530,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_98)" "(lambda(mpi_48" -" phase_138" +" phase_137" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43383,7 +43549,7 @@ static const char *startup_source = " mpi_48)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_138 attach-phase_0)" +"(eqv? phase_137 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43391,7 +43557,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_138" +" phase_137" " missing_0)))" "(if(let-values(((or-part_250)" "(eq? missing_0 m-ns_12)))" @@ -43417,9 +43583,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_138))" +"(label-phase? phase_137))" "(not" -"(zero-phase? phase_138))" +"(zero-phase? phase_137))" " #f)" " #f)" "(let-values()" @@ -43464,7 +43630,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_138))" +" phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43493,7 +43659,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_138))" +" phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43532,14 +43698,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_138)" +" phase_137)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_138))" +" phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43566,7 +43732,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_48)" "((phase43_1)" -" phase_138))" +" phase_137))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -43592,7 +43758,7 @@ static const char *startup_source = "(lambda(ht_146)" "(hash-set" " ht_146" -" phase_138" +" phase_137" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43657,7 +43823,7 @@ static const char *startup_source = " m_20)" " mpi_48)" "(phase+" -" phase_138" +" phase_137" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43681,7 +43847,7 @@ static const char *startup_source = " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_303)" +"(let-values(((lst_300)" "(module-submodule-names" " m_20)))" "(begin" @@ -43690,19 +43856,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_303)))" -"((letrec-values(((for-loop_272)" -"(lambda(lst_304)" +" lst_300)))" +"((letrec-values(((for-loop_271)" +"(lambda(lst_301)" "(begin" " 'for-loop" "(if(pair?" -" lst_304)" +" lst_301)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_304))" +" lst_301))" "((rest_168)" "(unsafe-cdr" -" lst_304)))" +" lst_301)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43723,12 +43889,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_272" +"(for-loop_271" " rest_168)" "(values))))" "(values))))))" -" for-loop_272)" -" lst_303)))" +" for-loop_271)" +" lst_300)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43749,9 +43915,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_131" +" phase_130" " attach-instances?_0" -" phase_131)" +" phase_130)" "(values))))" "(let-values((()" "(begin" @@ -43779,12 +43945,12 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_148)))" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_272)" "(lambda(i_171)" "(begin" " 'for-loop" "(if i_171" -"(let-values(((phase_114" +"(let-values(((phase_113" " m-ns_15)" "(hash-iterate-key+value" " ht_148" @@ -43830,14 +43996,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_114)" +" phase_113)" "(let-values(((or-part_72)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_114))" +" phase_113))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43853,7 +44019,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_114" +" phase_113" " m_21" " m-ns_15)))))" "(void)))))" @@ -43861,13 +44027,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_273" +"(for-loop_272" "(hash-iterate-next" " ht_148" " i_171))" "(values))))" "(values))))))" -" for-loop_273)" +" for-loop_272)" "(hash-iterate-first" " ht_148))))))" "(if(not #f)" @@ -44053,7 +44219,7 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_456)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_456 #f #f)))" +"((s_453)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_453 #f #f)))" "((s_75 ns1_4)(namespace-syntax-introduce4_0 s_75 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" @@ -44069,8 +44235,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_284)(1/namespace? where_0)))" -"(if or-part_284 or-part_284(phase? where_0)))" +"(if(let-values(((or-part_288)(1/namespace? where_0)))" +"(if or-part_288 or-part_288(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -44087,16 +44253,16 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_71)" +"(lambda(sym_70)" "(begin" " 'namespace-symbol->identifier" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_71)" +"(if(symbol? sym_70)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_71)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_71))))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_70)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_70))))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -44136,8 +44302,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_285)(1/module-path-index? req_6)))" -"(if or-part_285 or-part_285(1/module-path? req_6)))" +"(if(let-values(((or-part_289)(1/module-path-index? req_6)))" +"(if or-part_289 or-part_289(1/module-path? req_6)))" "(let-values()" "(let-values(((temp85_0)" "(if(1/module-path-index? req_6)" @@ -44149,7 +44315,7 @@ static const char *startup_source = "((ns89_0) ns_76)" "((run?90_0) run?_3)" "((visit?91_0) visit?_3)" -"((temp92_2)(namespace-phase ns_76))" +"((temp92_1)(namespace-phase ns_76))" "((temp93_1)(namespace-phase ns_76))" "((copy-variable-phase-level94_0) copy-variable-phase-level_2)" "((copy-variable-as-constant?95_0) copy-variable-as-constant?_2)" @@ -44170,7 +44336,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp92_2" +" temp92_1" " #f" " #f" " temp93_1" @@ -44189,8 +44355,8 @@ static const char *startup_source = "(let-values()" "(let-values(((run?98_0) run?_3)" "((visit?99_0) visit?_3)" -"((temp100_2)(list(1/datum->syntax ctx-stx_0 req_6)))" -"((temp101_1) #f)" +"((temp100_1)(list(1/datum->syntax ctx-stx_0 req_6)))" +"((temp101_0) #f)" "((ns102_0) ns_76)" "((temp103_0)(namespace-phase ns_76))" "((temp104_2)" @@ -44218,8 +44384,8 @@ static const char *startup_source = " visit?99_0" " #t" " who106_0" -" temp100_2" -" temp101_1" +" temp100_1" +" temp101_0" " ns102_0" " temp103_0" " temp104_2))))))))))))))))))" @@ -44357,7 +44523,7 @@ static const char *startup_source = "(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)" "(begin" " 'namespace-variable-value53" -"(let-values(((sym_72) sym52_0))" +"(let-values(((sym_71) sym52_0))" "(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" "(let-values(((ns_81)(if ns51_0 ns48_0(1/current-namespace))))" @@ -44365,12 +44531,12 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_72)" +"(if(symbol? sym_71)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_72)))" -"(if(let-values(((or-part_286)(not failure-thunk_5)))" -"(if or-part_286" -" or-part_286" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_71)))" +"(if(let-values(((or-part_258)(not failure-thunk_5)))" +"(if or-part_258" +" or-part_258" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44389,7 +44555,7 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_18)(1/datum->syntax #f sym_72)))" +"(let-values(((id_18)(1/datum->syntax #f sym_71)))" "(let-values(((b_92)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_18 ns_81)" @@ -44433,9 +44599,9 @@ static const char *startup_source = "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_265) failure-thunk_5))" -"(if or-part_265" -" or-part_265" +"(let-values(((or-part_269) failure-thunk_5))" +"(if or-part_269" +" or-part_269" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44443,7 +44609,7 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_72)" +" sym_71)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_92)" @@ -44462,8 +44628,8 @@ static const char *startup_source = "(values" " ns_81" "(namespace-phase ns_81)" -" sym_72))))))))" -"(let-values()(values ns_81(namespace-phase ns_81) sym_72)))))" +" sym_71))))))))" +"(let-values()(values ns_81(namespace-phase ns_81) sym_71)))))" "(let-values(((val_73)" "(namespace-get-variable" " var-ns_0" @@ -44471,33 +44637,33 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_287) failure-thunk_5))" -"(if or-part_287" -" or-part_287" +"(let-values(((or-part_290) failure-thunk_5))" +"(if or-part_290" +" or-part_290" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_72)" +" sym_71)" "(current-continuation-marks)" -" sym_72)))))))))" +" sym_71)))))))))" "(lambda() val_73))))))))))))))))))" "(case-lambda" -"((sym_73)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_73 #f #f #f #f #f #f)))" -"((sym_74 use-mapping?_1 failure-thunk_6 ns48_1)" -"(namespace-variable-value53_0 sym_74 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" -"((sym_75 use-mapping?_2 failure-thunk47_1)" -"(namespace-variable-value53_0 sym_75 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" -"((sym_76 use-mapping?46_1)(namespace-variable-value53_0 sym_76 use-mapping?46_1 #f #f #t #f #f)))))" +"((sym_72)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_72 #f #f #f #f #f #f)))" +"((sym_73 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_73 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_74 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_74 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_75 use-mapping?46_1)(namespace-variable-value53_0 sym_75 use-mapping?46_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!63_0)" "(lambda(sym61_0 val62_0 map?55_0 ns56_0 as-constant?57_0 map?58_0 ns59_0 as-constant?60_0)" "(begin" " 'namespace-set-variable-value!63" -"(let-values(((sym_77) sym61_0))" +"(let-values(((sym_76) sym61_0))" "(let-values(((val_74) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" "(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))" @@ -44506,10 +44672,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_77)" +"(if(symbol? sym_76)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_77)))" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_76)))" "(if(1/namespace? ns_82)" "(void)" "(let-values()" @@ -44517,7 +44683,7 @@ static const char *startup_source = "(namespace-set-variable!" " ns_82" "(namespace-phase ns_82)" -" sym_77" +" sym_76" " val_74" " as-constant?_2)" "(if map?_0" @@ -44527,14 +44693,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_77)" +" sym_76)" "(values))))" -"(let-values(((id_105)(1/datum->syntax #f sym_77)))" -"(let-values(((temp138_1)(1/namespace-syntax-introduce id_105 ns_82))" -"((temp139_1)" -"(let-values(((temp141_1)(namespace-mpi ns_82))" +"(let-values(((id_104)(1/datum->syntax #f sym_76)))" +"(let-values(((temp138_1)(1/namespace-syntax-introduce id_104 ns_82))" +"((temp139_0)" +"(let-values(((temp141_0)(namespace-mpi ns_82))" "((temp142_2)(namespace-phase ns_82))" -"((sym143_0) sym_77))" +"((sym143_0) sym_76))" "(make-module-binding22.1" " #f" " #f" @@ -44554,42 +44720,42 @@ static const char *startup_source = " #f" " #f" " #f" -" temp141_1" +" temp141_0" " temp142_2" " sym143_0)))" -"((temp140_2)(namespace-phase ns_82)))" -"(add-binding!17.1 #f #f #f #f temp138_1 temp139_1 temp140_2)))))" +"((temp140_1)(namespace-phase ns_82)))" +"(add-binding!17.1 #f #f #f #f temp138_1 temp139_0 temp140_1)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_78 val_75)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_78 val_75 #f #f #f #f #f #f)))" -"((sym_79 val_76 map?_1 ns_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_79 val_76 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_80 val_77 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_80 val_77 map?_2 ns56_1 #f #t #t #f))" -"((sym_81 val_78 map?55_1)(namespace-set-variable-value!63_0 sym_81 val_78 map?55_1 #f #f #t #f #f)))))" +"((sym_77 val_75)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_77 val_75 #f #f #f #f #f #f)))" +"((sym_78 val_76 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_78 val_76 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_79 val_77 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_79 val_77 map?_2 ns56_1 #f #t #t #f))" +"((sym_80 val_78 map?55_1)(namespace-set-variable-value!63_0 sym_80 val_78 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" "(lambda(sym67_0 ns65_0 ns66_0)" "(begin" " 'namespace-undefine-variable!68" -"(let-values(((sym_82) sym67_0))" +"(let-values(((sym_81) sym67_0))" "(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_82)" +"(if(symbol? sym_81)" "(void)" -" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_82)))" +" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_81)))" "(if(1/namespace? ns_84)" "(void)" "(let-values()" " (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_82)))))))))))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_81)))))))))))" "(case-lambda" -"((sym_83)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_83 #f #f)))" -"((sym_84 ns65_1)(namespace-undefine-variable!68_0 sym_84 ns65_1 #t)))))" +"((sym_82)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_82 #f #f)))" +"((sym_83 ns65_1)(namespace-undefine-variable!68_0 sym_83 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" @@ -44634,28 +44800,28 @@ static const char *startup_source = "(define-values" "(1/eval)" "(let-values(((eval6_0)" -"(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" +"(lambda(s5_1 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_178) s5_2))" +"(let-values(((s_178) s5_1))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_457 ns_87)(begin 'compile(1/compile s_457 ns_87 #f))))))" +"(lambda(s_454 ns_87)(begin 'compile(1/compile s_454 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_281)(compiled-in-memory? s_178)))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_282)(1/linklet-directory? s_178)))" -"(if or-part_282 or-part_282(1/linklet-bundle? s_178)))))" +"(if(let-values(((or-part_285)(compiled-in-memory? s_178)))" +"(if or-part_285" +" or-part_285" +"(let-values(((or-part_286)(1/linklet-directory? s_178)))" +"(if or-part_286 or-part_286(1/linklet-bundle? s_178)))))" "(let-values()(eval-compiled s_178 ns_43))" "(if(if(syntax?$1 s_178)" -"(let-values(((or-part_283)(compiled-in-memory?(1/syntax-e s_178))))" -"(if or-part_283" -" or-part_283" -"(let-values(((or-part_288)(1/linklet-directory?(1/syntax-e s_178))))" -"(if or-part_288 or-part_288(1/linklet-bundle?(1/syntax-e s_178))))))" +"(let-values(((or-part_287)(compiled-in-memory?(1/syntax-e s_178))))" +"(if or-part_287" +" or-part_287" +"(let-values(((or-part_291)(1/linklet-directory?(1/syntax-e s_178))))" +"(if or-part_291 or-part_291(1/linklet-bundle?(1/syntax-e s_178))))))" " #f)" "(let-values()(eval-compiled(1/syntax->datum s_178) ns_43))" "(let-values()" @@ -44716,21 +44882,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_458) s22_0))" +"(let-values(((s_455) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_458)" -"(let-values()(list s_458))" -"(if(if(syntax?$1 s_458)" -"(1/compiled-expression?(1/syntax-e s_458))" +"(if(1/compiled-expression? s_455)" +"(let-values()(list s_455))" +"(if(if(syntax?$1 s_455)" +"(1/compiled-expression?(1/syntax-e s_455))" " #f)" -"(let-values()(list(1/syntax-e s_458)))" +"(let-values()(list(1/syntax-e s_455)))" "(let-values()" -"(let-values(((s86_0) s_458)" +"(let-values(((s86_0) s_455)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_80 ns_49 as-tail?_4)" @@ -44742,13 +44908,13 @@ static const char *startup_source = " serializable?_4" " to-source?_5))))" "((append89_0) append)" -"((temp90_1) #f))" +"((temp90_0) #f))" "(per-top-level68.1" " append89_0" " #t" " #f" " #f" -" temp90_1" +" temp90_0" " #f" " #f" " #f" @@ -44774,8 +44940,8 @@ static const char *startup_source = " cs91_0))))))))))))))" "(case-lambda" "((s_189)(begin 'compile(compile23_0 s_189 #f #f #f #f #f #f #f #f)))" -"((s_459 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_459 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_456 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_456 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_81 ns_94 serializable?_6 expand16_1)(compile23_0 s_81 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_19 ns_95 serializable?15_1)(compile23_0 s_19 ns_95 serializable?15_1 #f #f #t #t #f #f))" "((s_156 ns14_3)(compile23_0 s_156 ns14_3 #f #f #f #t #f #f #f)))))" @@ -44789,7 +44955,7 @@ static const char *startup_source = "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_25 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_460)(begin(compile-to-linklets28_0 s_460 #f #f)))" +"((s_457)(begin(compile-to-linklets28_0 s_457 #f #f)))" "((s_307 ns25_1)(compile-to-linklets28_0 s_307 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44831,7 +44997,7 @@ static const char *startup_source = "(if(parsed-module? exp-s_5)" "(let-values()" "(let-values(((exp-s96_0) exp-s_5)" -"((temp97_2)" +"((temp97_1)" "(let-values(((ns100_0) ns_97))" "(make-compile-context14.1 #f #f #f #f #f #f ns100_0 #t #f #f #f #f)))" "((serializable?98_0) serializable?_7)" @@ -44848,20 +45014,20 @@ static const char *startup_source = " to-source?99_0" " #t" " exp-s96_0" -" temp97_2)))" +" temp97_1)))" "(if(lifted-parsed-begin? exp-s_5)" "(let-values()" -"(let-values(((temp101_2)" +"(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_305)" +"(let-values(((lst_302)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" -"((letrec-values(((for-loop_274)" +"(let-values()(check-list lst_302)))" +"((letrec-values(((for-loop_273)" "(lambda(fold-var_164 lst_168)" "(begin" " 'for-loop" @@ -44883,16 +45049,16 @@ static const char *startup_source = "(values" " fold-var_238)))))" "(if(not #f)" -"(for-loop_274" +"(for-loop_273" " fold-var_165" " rest_169)" " fold-var_165)))" " fold-var_164)))))" -" for-loop_274)" +" for-loop_273)" " null" -" lst_305)))))" +" lst_302)))))" "((to-source?102_0) to-source?_6))" -"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_2)))" +"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" "(let-values(((exp-s103_0) exp-s_5)" "((temp104_3)" @@ -44926,7 +45092,7 @@ static const char *startup_source = "(define-values" "(expand$1)" "(let-values(((expand40_0)" -"(lambda(s39_1" +"(lambda(s39_0" " ns31_3" " observable?32_0" " to-parsed?33_0" @@ -44937,7 +45103,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_317) s39_1))" +"(let-values(((s_317) s39_0))" "(let-values(((ns_98)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" @@ -44955,10 +45121,10 @@ static const char *startup_source = "(let-values()" "(let-values(((s108_0) s_317)" "((ns109_1) ns_98)" -"((temp110_2)" -"(lambda(s_461 ns_99 as-tail?_5)" +"((temp110_1)" +"(lambda(s_458 ns_99 as-tail?_5)" "(expand-single" -" s_461" +" s_458" " ns_99" " observer_2" " to-parsed?_2" @@ -44976,7 +45142,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp110_2" +" temp110_1" " re-pair112_0" " #t" " s108_0" @@ -44985,9 +45151,9 @@ static const char *startup_source = "((s_305)(begin 'expand(expand40_0 s_305 #f #f #f #f #f #f #f #f)))" "((s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" "(expand40_0 s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_462 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_462 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_459 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_459 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" -"((s_463 ns31_4)(expand40_0 s_463 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_460 ns31_4)(expand40_0 s_460 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_414 ns_103 observer_3 to-parsed?_4 serializable?_9)" @@ -45055,7 +45221,7 @@ static const char *startup_source = " observer_3" " to-parsed?_4" " serializable?_9))))))" -"((exp-s126_1) exp-s_6)" +"((exp-s126_0) exp-s_6)" "((temp127_2)(namespace-phase ns_103)))" "(wrap-lifts-as-begin16.1" " temp125_0" @@ -45063,7 +45229,7 @@ static const char *startup_source = " temp124_0" " #t" " temp123_1" -" exp-s126_1" +" exp-s126_0" " temp127_2))))" "(begin(log-top-begin-after ctx_67 new-s_2) new-s_2))))))))))))" "(define-values" @@ -45072,12 +45238,12 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_464) s44_1))" +"(let-values(((s_461) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_464)" +"(let-values(((s128_0) s_461)" "((ns129_0) ns_104)" -"((temp130_0)" +"((temp130_1)" "(lambda(s_206 ns_105 as-tail?_6)(expand-single-once s_206 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" @@ -45093,91 +45259,91 @@ static const char *startup_source = " #f" " #f" " #f" -" temp130_0" +" temp130_1" " re-pair132_0" " #t" " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_465)(begin 'expand-once(expand-once45_0 s_465 #f #f)))" -"((s_466 ns42_2)(expand-once45_0 s_466 ns42_2 #t)))))" +"((s_462)(begin 'expand-once(expand-once45_0 s_462 #f #f)))" +"((s_463 ns42_2)(expand-once45_0 s_463 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_440 ns_106)" +"(lambda(s_437 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_440" +" s_437" "(let-values(((v_197)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_67) v_197))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((the-struct_68) v_197))" +"(if(expand-context/outer? the-struct_68)" "(let-values(((inner136_0)" -"(let-values(((the-struct_68)(root-expand-context/outer-inner v_197)))" -"(if(expand-context/inner? the-struct_68)" +"(let-values(((the-struct_69)(root-expand-context/outer-inner v_197)))" +"(if(expand-context/inner? the-struct_69)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_68)" -"(root-expand-context/inner-module-scopes the-struct_68)" -"(root-expand-context/inner-top-level-bind-scope the-struct_68)" -"(root-expand-context/inner-all-scopes-stx the-struct_68)" -"(root-expand-context/inner-defined-syms the-struct_68)" -"(root-expand-context/inner-counter the-struct_68)" -"(root-expand-context/inner-lift-key the-struct_68)" -"(expand-context/inner-to-parsed? the-struct_68)" -"(expand-context/inner-phase the-struct_68)" -"(expand-context/inner-namespace the-struct_68)" +"(root-expand-context/inner-self-mpi the-struct_69)" +"(root-expand-context/inner-module-scopes the-struct_69)" +"(root-expand-context/inner-top-level-bind-scope the-struct_69)" +"(root-expand-context/inner-all-scopes-stx the-struct_69)" +"(root-expand-context/inner-defined-syms the-struct_69)" +"(root-expand-context/inner-counter the-struct_69)" +"(root-expand-context/inner-lift-key the-struct_69)" +"(expand-context/inner-to-parsed? the-struct_69)" +"(expand-context/inner-phase the-struct_69)" +"(expand-context/inner-namespace the-struct_69)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_68)" -"(expand-context/inner-allow-unbound? the-struct_68)" -"(expand-context/inner-in-local-expand? the-struct_68)" -"(expand-context/inner-stops the-struct_68)" -"(expand-context/inner-declared-submodule-names the-struct_68)" -"(expand-context/inner-lifts the-struct_68)" -"(expand-context/inner-lift-envs the-struct_68)" -"(expand-context/inner-module-lifts the-struct_68)" -"(expand-context/inner-require-lifts the-struct_68)" -"(expand-context/inner-to-module-lifts the-struct_68)" -"(expand-context/inner-requires+provides the-struct_68)" -"(expand-context/inner-observer the-struct_68)" -"(expand-context/inner-for-serializable? the-struct_68)" -"(expand-context/inner-should-not-encounter-macros? the-struct_68)))" +"(expand-context/inner-module-begin-k the-struct_69)" +"(expand-context/inner-allow-unbound? the-struct_69)" +"(expand-context/inner-in-local-expand? the-struct_69)" +"(expand-context/inner-stops the-struct_69)" +"(expand-context/inner-declared-submodule-names the-struct_69)" +"(expand-context/inner-lifts the-struct_69)" +"(expand-context/inner-lift-envs the-struct_69)" +"(expand-context/inner-module-lifts the-struct_69)" +"(expand-context/inner-require-lifts the-struct_69)" +"(expand-context/inner-to-module-lifts the-struct_69)" +"(expand-context/inner-requires+provides the-struct_69)" +"(expand-context/inner-observer the-struct_69)" +"(expand-context/inner-for-serializable? the-struct_69)" +"(expand-context/inner-should-not-encounter-macros? the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_68)))))" +" the-struct_69)))))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_67)" -"(root-expand-context/outer-use-site-scopes the-struct_67)" -"(root-expand-context/outer-frame-id the-struct_67)" -"(expand-context/outer-context the-struct_67)" -"(expand-context/outer-env the-struct_67)" -"(expand-context/outer-post-expansion-scope-action the-struct_67)" -"(expand-context/outer-scopes the-struct_67)" -"(expand-context/outer-def-ctx-scopes the-struct_67)" -"(expand-context/outer-binding-layer the-struct_67)" -"(expand-context/outer-reference-records the-struct_67)" -"(expand-context/outer-only-immediate? the-struct_67)" -"(expand-context/outer-need-eventually-defined the-struct_67)" -"(expand-context/outer-current-introduction-scopes the-struct_67)" -"(expand-context/outer-name the-struct_67)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_67)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_68)" +"(root-expand-context/outer-use-site-scopes the-struct_68)" +"(root-expand-context/outer-frame-id the-struct_68)" +"(expand-context/outer-context the-struct_68)" +"(expand-context/outer-env the-struct_68)" +"(expand-context/outer-post-expansion-scope-action the-struct_68)" +"(expand-context/outer-scopes the-struct_68)" +"(expand-context/outer-def-ctx-scopes the-struct_68)" +"(expand-context/outer-binding-layer the-struct_68)" +"(expand-context/outer-reference-records the-struct_68)" +"(expand-context/outer-only-immediate? the-struct_68)" +"(expand-context/outer-need-eventually-defined the-struct_68)" +"(expand-context/outer-current-introduction-scopes the-struct_68)" +"(expand-context/outer-name the-struct_68)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_68)))))))" "(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" "(let-values(((temp138_2)(append require-lifts_4 lifts_10))" "((exp-s139_0) exp-s_7)" -"((temp140_3)(namespace-phase ns_106)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_3))))))))" +"((temp140_2)(namespace-phase ns_106)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_2))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_467) s49_0))" +"(let-values(((s_464) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -45190,9 +45356,9 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_467)" +"(let-values(((s141_0) s_464)" "((ns142_0) ns_84)" -"((temp143_0) #f)" +"((temp143_1) #f)" "((temp144_1) #f)" "((observer145_0) observer_4))" "(per-top-level68.1" @@ -45205,14 +45371,14 @@ static const char *startup_source = " #t" " #f" " #f" -" temp143_0" +" temp143_1" " #f" " #f" " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_468)(begin 'expand-to-top-form(expand-to-top-form50_0 s_468 #f #f)))" -"((s_469 ns47_3)(expand-to-top-form50_0 s_469 ns47_3 #t)))))" +"((s_465)(begin 'expand-to-top-form(expand-to-top-form50_0 s_465 #f #f)))" +"((s_466 ns47_3)(expand-to-top-form50_0 s_466 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -45242,26 +45408,26 @@ static const char *startup_source = "(let-values(((observer_5) observer58_0))" "(let-values()" "(let-values(((s_109)(maybe-intro given-s_0 ns_107)))" -"(let-values(((ctx_68)" +"(let-values(((ctx_23)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_139)(namespace-phase ns_107)))" +"(let-values(((phase_138)(namespace-phase ns_107)))" "((letrec-values(((loop_100)" -"(lambda(s_159 phase_140 ns_108 as-tail?_7)" +"(lambda(s_159 phase_139 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_130) ctx_68))" +"(let-values(((v_130) ctx_23))" "(let-values(((the-struct_41) v_130))" "(if(expand-context/outer? the-struct_41)" -"(let-values(((inner148_1)" -"(let-values(((the-struct_69)" +"(let-values(((inner148_0)" +"(let-values(((the-struct_70)" "(root-expand-context/outer-inner" " v_130)))" "(if(expand-context/inner?" -" the-struct_69)" +" the-struct_70)" "(let-values(((phase149_0)" -" phase_140)" +" phase_139)" "((namespace150_0)" " ns_108)" "((just-once?151_0)" @@ -45270,57 +45436,57 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_69)" +" the-struct_70)" "(root-expand-context/inner-module-scopes" -" the-struct_69)" +" the-struct_70)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_69)" +" the-struct_70)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_69)" +" the-struct_70)" "(root-expand-context/inner-defined-syms" -" the-struct_69)" +" the-struct_70)" "(root-expand-context/inner-counter" -" the-struct_69)" +" the-struct_70)" "(root-expand-context/inner-lift-key" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-to-parsed?" -" the-struct_69)" +" the-struct_70)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-allow-unbound?" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-in-local-expand?" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-stops" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-declared-submodule-names" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-lifts" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-lift-envs" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-module-lifts" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-require-lifts" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-to-module-lifts" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-requires+provides" -" the-struct_69)" +" the-struct_70)" "(expand-context/inner-observer" -" the-struct_69)" +" the-struct_70)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_69)))" +" the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_69)))))" +" the-struct_70)))))" "(expand-context/outer1.1" -" inner148_1" +" inner148_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_41)" "(root-expand-context/outer-use-site-scopes" @@ -45369,112 +45535,112 @@ static const char *startup_source = "(expand-capturing-lifts" " s_159" "(let-values(((v_198) tl-ctx_0))" -"(let-values(((the-struct_70) v_198))" -"(if(expand-context/outer? the-struct_70)" +"(let-values(((the-struct_71) v_198))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_0)" -"(let-values(((the-struct_71)" +"(let-values(((the-struct_72)" "(root-expand-context/outer-inner" " v_198)))" "(if(expand-context/inner?" -" the-struct_71)" +" the-struct_72)" "(let-values(((phase156_0)" -" phase_140)" +" phase_139)" "((namespace157_0)" " ns_108))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/inner-module-scopes" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/inner-defined-syms" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/inner-counter" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/inner-lift-key" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-to-parsed?" -" the-struct_71)" +" the-struct_72)" " phase156_0" " namespace157_0" "(expand-context/inner-just-once?" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-module-begin-k" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-allow-unbound?" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-in-local-expand?" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-stops" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-declared-submodule-names" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-lifts" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-lift-envs" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-module-lifts" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-require-lifts" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-to-module-lifts" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-requires+provides" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-observer" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-for-serializable?" -" the-struct_71)" +" the-struct_72)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_71)))" +" the-struct_72)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_72)))))" "(expand-context/outer1.1" " inner155_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_70)" +" the-struct_71)" "(root-expand-context/outer-use-site-scopes" -" the-struct_70)" +" the-struct_71)" "(root-expand-context/outer-frame-id" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-context" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-env" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-scopes" -" the-struct_70)" +" the-struct_71)" " def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-reference-records" -" the-struct_70)" +" the-struct_71)" " only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-current-introduction-scopes" -" the-struct_70)" +" the-struct_71)" "(expand-context/outer-name" -" the-struct_70)))" +" the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_70)))))))" +" the-struct_71)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_289)" +"(if(let-values(((or-part_292)" "(pair? require-lifts_5)))" -"(if or-part_289 or-part_289(pair? lifts_11)))" +"(if or-part_292 or-part_292(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -45482,7 +45648,7 @@ static const char *startup_source = " require-lifts_5" " lifts_11))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_140))" +"((phase160_0) phase_139))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -45507,7 +45673,7 @@ static const char *startup_source = " new-s_3" "(loop_100" " new-s_3" -" phase_140" +" phase_139" " ns_108" " as-tail?_7)))))" "(if(not single_0)" @@ -45531,14 +45697,14 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_140)))" +" phase_139)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_49)" "(expand-context-observer" -" ctx_68)))" +" ctx_23)))" "(if obs_49" "(let-values()" "(let-values()" @@ -45548,25 +45714,25 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_470)" +"(let-values(((s_467)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_470))" +" s_467))" "(let-values(((begin161_1" " e162_1)" "(let-values(((s_222)" "(if(syntax?$1" -" s_470)" +" s_467)" "(syntax-e$1" -" s_470)" -" s_470)))" +" s_467)" +" s_467)))" "(if(pair?" " s_222)" "(let-values(((begin163_0)" -"(let-values(((s_471)" +"(let-values(((s_468)" "(car" " s_222)))" -" s_471))" +" s_468))" "((e164_0)" "(let-values(((s_224)" "(cdr" @@ -45618,7 +45784,7 @@ static const char *startup_source = "(let-values()" "(loop_100" "(car es_2)" -" phase_140" +" phase_139" " ns_108" " as-tail?_7))" "(let-values()" @@ -45640,14 +45806,14 @@ static const char *startup_source = "(loop_100" "(car" " es_2)" -" phase_140" +" phase_139" " ns_108" " #f)" "(begin" "(loop_100" "(car" " es_2)" -" phase_140" +" phase_139" " ns_108" " #f)" "(void)))))" @@ -45701,35 +45867,35 @@ static const char *startup_source = "(let-values(((ok?_29" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_472)" +"(let-values(((s_469)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_472))" +" s_469))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_473)" +"(let-values(((s_470)" +"(if(syntax?$1" +" s_469)" +"(syntax-e$1" +" s_469)" +" s_469)))" +"(if(pair?" +" s_470)" +"(let-values(((begin-for-syntax167_0)" +"(let-values(((s_471)" +"(car" +" s_470)))" +" s_471))" +"((e168_0)" +"(let-values(((s_472)" +"(cdr" +" s_470)))" +"(let-values(((s_228)" "(if(syntax?$1" " s_472)" "(syntax-e$1" " s_472)" " s_472)))" -"(if(pair?" -" s_473)" -"(let-values(((begin-for-syntax167_0)" -"(let-values(((s_474)" -"(car" -" s_473)))" -" s_474))" -"((e168_0)" -"(let-values(((s_475)" -"(cdr" -" s_473)))" -"(let-values(((s_228)" -"(if(syntax?$1" -" s_475)" -"(syntax-e$1" -" s_475)" -" s_475)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" " s_228)))" @@ -45754,7 +45920,7 @@ static const char *startup_source = " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_140)))" +"(add1 phase_139)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_108" @@ -45787,7 +45953,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_74)" "(reverse$1" -"(let-values(((lst_306)" +"(let-values(((lst_303)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45795,20 +45961,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_306)))" -"((letrec-values(((for-loop_275)" +" lst_303)))" +"((letrec-values(((for-loop_274)" "(lambda(fold-var_277" -" lst_307)" +" lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" -"(let-values(((s_476)" +" lst_304)" +"(let-values(((s_473)" "(unsafe-car" -" lst_307))" +" lst_304))" "((rest_170)" "(unsafe-cdr" -" lst_307)))" +" lst_304)))" "(let-values(((fold-var_278)" "(let-values(((fold-var_279)" " fold-var_277))" @@ -45828,7 +45994,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_100" -" s_476" +" s_473" " next-phase_0" " next-ns_0" " #f)))" @@ -45837,14 +46003,14 @@ static const char *startup_source = " fold-var_280)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_274" " fold-var_278" " rest_170)" " fold-var_278)))" " fold-var_277)))))" -" for-loop_275)" +" for-loop_274)" " null" -" lst_306))))))" +" lst_303))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45879,26 +46045,26 @@ static const char *startup_source = " as-tail?_7))))))))))))))))))" " loop_100)" " s_109" -" phase_139" +" phase_138" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_477 ns_109)" -"(begin(if(syntax?$1 s_477) s_477(1/namespace-syntax-introduce(1/datum->syntax #f s_477) ns_109)))))" +"(lambda(s_474 ns_109)" +"(begin(if(syntax?$1 s_474) s_474(1/namespace-syntax-introduce(1/datum->syntax #f s_474) ns_109)))))" "(define-values" "(re-pair)" "(lambda(form-id_0 s_241 r_43)" "(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_241)(cons form-id_0 r_43) s_241 s_241) s_241))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_243 ctx_69)" +"(lambda(s_243 ctx_68)" "(begin" "(let-values()" -"(let-values(((ns_110)(expand-context-namespace ctx_69)))" +"(let-values(((ns_110)(expand-context-namespace ctx_68)))" "(let-values((()(begin(namespace-visit-available-modules! ns_110)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp169_0)(make-top-level-lift ctx_69)))" +"(let-values(((temp169_0)(make-top-level-lift ctx_68)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" @@ -45906,83 +46072,83 @@ static const char *startup_source = "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" "(let-values(((s170_0) s_243)" -"((temp171_1)" -"(let-values(((v_199) ctx_69))" -"(let-values(((the-struct_72) v_199))" -"(if(expand-context/outer? the-struct_72)" +"((temp171_2)" +"(let-values(((v_199) ctx_68))" +"(let-values(((the-struct_73) v_199))" +"(if(expand-context/outer? the-struct_73)" "(let-values(((inner172_0)" -"(let-values(((the-struct_73)" +"(let-values(((the-struct_74)" "(root-expand-context/outer-inner v_199)))" -"(if(expand-context/inner? the-struct_73)" +"(if(expand-context/inner? the-struct_74)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" "((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-module-scopes" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/inner-defined-syms" -" the-struct_73)" -"(root-expand-context/inner-counter the-struct_73)" +" the-struct_74)" +"(root-expand-context/inner-counter the-struct_74)" "(root-expand-context/inner-lift-key" -" the-struct_73)" -"(expand-context/inner-to-parsed? the-struct_73)" -"(expand-context/inner-phase the-struct_73)" -"(expand-context/inner-namespace the-struct_73)" -"(expand-context/inner-just-once? the-struct_73)" +" the-struct_74)" +"(expand-context/inner-to-parsed? the-struct_74)" +"(expand-context/inner-phase the-struct_74)" +"(expand-context/inner-namespace the-struct_74)" +"(expand-context/inner-just-once? the-struct_74)" "(expand-context/inner-module-begin-k" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-allow-unbound?" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-in-local-expand?" -" the-struct_73)" -"(expand-context/inner-stops the-struct_73)" +" the-struct_74)" +"(expand-context/inner-stops the-struct_74)" "(expand-context/inner-declared-submodule-names" -" the-struct_73)" +" the-struct_74)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_73)" +"(expand-context/inner-lift-envs the-struct_74)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-requires+provides" -" the-struct_73)" -"(expand-context/inner-observer the-struct_73)" +" the-struct_74)" +"(expand-context/inner-observer the-struct_74)" "(expand-context/inner-for-serializable?" -" the-struct_73)" +" the-struct_74)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_73)))" +" the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_73)))))" +" the-struct_74)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_72)" -"(root-expand-context/outer-use-site-scopes the-struct_72)" -"(root-expand-context/outer-frame-id the-struct_72)" -"(expand-context/outer-context the-struct_72)" -"(expand-context/outer-env the-struct_72)" -"(expand-context/outer-post-expansion-scope-action the-struct_72)" -"(expand-context/outer-scopes the-struct_72)" -"(expand-context/outer-def-ctx-scopes the-struct_72)" -"(expand-context/outer-binding-layer the-struct_72)" -"(expand-context/outer-reference-records the-struct_72)" -"(expand-context/outer-only-immediate? the-struct_72)" -"(expand-context/outer-need-eventually-defined the-struct_72)" -"(expand-context/outer-current-introduction-scopes the-struct_72)" -"(expand-context/outer-name the-struct_72)))" +"(root-expand-context/outer-post-expansion-scope the-struct_73)" +"(root-expand-context/outer-use-site-scopes the-struct_73)" +"(root-expand-context/outer-frame-id the-struct_73)" +"(expand-context/outer-context the-struct_73)" +"(expand-context/outer-env the-struct_73)" +"(expand-context/outer-post-expansion-scope-action the-struct_73)" +"(expand-context/outer-scopes the-struct_73)" +"(expand-context/outer-def-ctx-scopes the-struct_73)" +"(expand-context/outer-binding-layer the-struct_73)" +"(expand-context/outer-reference-records the-struct_73)" +"(expand-context/outer-only-immediate? the-struct_73)" +"(expand-context/outer-need-eventually-defined the-struct_73)" +"(expand-context/outer-current-introduction-scopes the-struct_73)" +"(expand-context/outer-name the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72))))))" -"(expand7.1 #f #f #f #f s170_0 temp171_1))))" +" the-struct_73))))))" +"(expand9.1 #f #f #f #f #f #f s170_0 temp171_2))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" "(get-and-clear-lifts! lift-ctx_6)" @@ -45991,12 +46157,12 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_478 phase_141)" +"(lambda(s_475 phase_140)" "(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_479)(syntax-disarm$1 s_478)))" -"(let-values(((orig-s_35) s_479))" +"(let-values(((s_476)(syntax-disarm$1 s_475)))" +"(let-values(((orig-s_35) s_476))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_353)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" +"(let-values(((s_353)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" "(if(pair? s_353)" "(let-values(((#%require178_0)(let-values(((s_356)(car s_353))) s_356))" "((req179_0)" @@ -46007,8 +46173,8 @@ static const char *startup_source = " s_357)))" "(if(pair? s_248)" "(let-values(((req180_0)" -"(let-values(((s_480)(car s_248)))" -" s_480))" +"(let-values(((s_477)(car s_248)))" +" s_477))" "(()" "(let-values(((s_359)(cdr s_248)))" "(let-values(((s_360)" @@ -46026,11 +46192,11 @@ static const char *startup_source = "(values #%require178_0 req179_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" -"(let-values(((temp181_1)(list req177_0))" -"((s182_0) s_478)" +"(let-values(((temp181_0)(list req177_0))" +"((s182_1) s_475)" "((ns183_0) ns_111)" -"((phase184_1) phase_141)" -"((phase185_0) phase_141)" +"((phase184_1) phase_140)" +"((phase185_0) phase_140)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46053,8 +46219,8 @@ static const char *startup_source = " #f" " #f" " temp187_0" -" temp181_1" -" s182_0" +" temp181_0" +" s182_1" " ns183_0" " phase184_1" " temp186_0)))))))" @@ -46072,18 +46238,18 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_308) require-lifts_6))" +"(let-values(((lst_305) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_308)))" -"((letrec-values(((for-loop_276)" -"(lambda(fold-var_281 lst_309)" +"(let-values()(check-list lst_305)))" +"((letrec-values(((for-loop_275)" +"(lambda(fold-var_281 lst_306)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((req_19)(unsafe-car lst_309))" -"((rest_171)(unsafe-cdr lst_309)))" +"(if(pair? lst_306)" +"(let-values(((req_19)(unsafe-car lst_306))" +"((rest_171)(unsafe-cdr lst_306)))" "(let-values(((fold-var_282)" "(let-values(((fold-var_283) fold-var_281))" "(let-values(((fold-var_284)" @@ -46093,24 +46259,24 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_283))))" "(values fold-var_284)))))" -"(if(not #f)(for-loop_276 fold-var_282 rest_171) fold-var_282)))" +"(if(not #f)(for-loop_275 fold-var_282 rest_171) fold-var_282)))" " fold-var_281)))))" -" for-loop_276)" +" for-loop_275)" " null" -" lst_308))))" +" lst_305))))" "(reverse$1" -"(let-values(((lst_310)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_307)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_310)))" -"((letrec-values(((for-loop_277)" -"(lambda(fold-var_285 lst_311)" +"(let-values()(check-list lst_307)))" +"((letrec-values(((for-loop_276)" +"(lambda(fold-var_285 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_311)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_311))" -"((rest_172)(unsafe-cdr lst_311)))" +"(if(pair? lst_308)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" +"((rest_172)(unsafe-cdr lst_308)))" "(let-values(((fold-var_286)" "(let-values(((fold-var_287) fold-var_285))" "(let-values(((fold-var_288)" @@ -46137,34 +46303,34 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_75)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_74)" +" the-struct_75)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_74)" +" the-struct_75)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_74)))" +" the-struct_75)))" " dv_0)))))" " fold-var_287))))" "(values fold-var_288)))))" -"(if(not #f)(for-loop_277 fold-var_286 rest_172) fold-var_286)))" +"(if(not #f)(for-loop_276 fold-var_286 rest_172) fold-var_286)))" " fold-var_285)))))" -" for-loop_277)" +" for-loop_276)" " null" -" lst_310)))))" +" lst_307)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_70 require-lifts_7 lifts_13 exp-s_11 ns_112)" +"(lambda(ctx_69 require-lifts_7 lifts_13 exp-s_11 ns_112)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_70)))" +"(let-values(((obs_56)(expand-context-observer ctx_69)))" "(if obs_56" "(let-values()" "(let-values(((new-s_6)" @@ -46172,20 +46338,20 @@ static const char *startup_source = "((exp-s191_0) exp-s_11)" "((temp192_0)(namespace-phase ns_112)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_69 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_71 new-s_7)" +"(lambda(ctx_70 new-s_7)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_71)))" +"(let-values(((obs_57)(expand-context-observer ctx_70)))" "(if obs_57" "(let-values()" "(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_481) new-s_7))" -"(let-values(((orig-s_36) s_481))" +"(let-values(((s_478) new-s_7))" +"(let-values(((orig-s_36) s_478))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_389)(if(syntax?$1 s_481)(syntax-e$1 s_481) s_481)))" +"(let-values(((s_389)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" "(if(pair? s_389)" "(let-values(((begin195_0)(let-values(((s_141)(car s_389))) s_141))" "((e196_0)" @@ -46214,25 +46380,25 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_72 new-s_8)" +"(lambda(ctx_71 new-s_8)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_72)))" +"(let-values(((obs_58)(expand-context-observer ctx_71)))" "(if obs_58" "(let-values()" "(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_482) new-s_8))" -"(let-values(((orig-s_37) s_482))" +"(let-values(((s_479) new-s_8))" +"(let-values(((orig-s_37) s_479))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_483)(if(syntax?$1 s_482)(syntax-e$1 s_482) s_482)))" -"(if(pair? s_483)" -"(let-values(((begin199_0)(let-values(((s_406)(car s_483))) s_406))" +"(let-values(((s_480)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" +"(if(pair? s_480)" +"(let-values(((begin199_0)(let-values(((s_406)(car s_480))) s_406))" "((e200_0)" -"(let-values(((s_407)(cdr s_483)))" -"(let-values(((s_484)" +"(let-values(((s_407)(cdr s_480)))" +"(let-values(((s_481)" "(if(syntax?$1 s_407)" "(syntax-e$1 s_407)" " s_407)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_484)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_481)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46243,7 +46409,7 @@ static const char *startup_source = "(values begin199_0 e200_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin197_1 e198_1))))))" -"(let-values(((obs_59)(expand-context-observer ctx_72)))" +"(let-values(((obs_59)(expand-context-observer ctx_71)))" "(if obs_59" "(let-values()" "(let-values()" @@ -46261,7 +46427,7 @@ static const char *startup_source = " 'do-dynamic-require6" "(let-values(((who_25) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_85) sym5_0))" +"(let-values(((sym_84) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -46280,17 +46446,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_85)))" +"(if(let-values(((or-part_5)(symbol? sym_84)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_85)))" +"(let-values(((or-part_6)(not sym_84)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_290)(equal? sym_85 0)))" -"(if or-part_290 or-part_290(void? sym_85)))))))" +"(let-values(((or-part_293)(equal? sym_84 0)))" +"(if or-part_293 or-part_293(void? sym_84)))))))" "(void)" "(let-values()" -" (raise-argument-error who_25 \"(or/c symbol? #f 0 void?)\" sym_85)))" +" (raise-argument-error who_25 \"(or/c symbol? #f 0 void?)\" sym_84)))" "(values))))" "(let-values((()" "(begin" @@ -46311,13 +46477,13 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_49 #t)))" -"(let-values(((phase_142)(namespace-phase ns_58)))" -"(if(not sym_85)" +"(let-values(((phase_141)(namespace-phase ns_58)))" +"(if(not sym_84)" "(let-values()" "(let-values(((ns20_1) ns_58)" "((mpi21_0) mpi_49)" -"((phase22_0) phase_142)" -"((phase23_1) phase_142)" +"((phase22_0) phase_141)" +"((phase23_1) phase_141)" "((temp24_4) #f))" "(namespace-module-instantiate!96.1" " temp24_4" @@ -46331,12 +46497,12 @@ static const char *startup_source = " ns20_1" " mpi21_0" " phase22_0)))" -"(if(equal? sym_85 0)" +"(if(equal? sym_84 0)" "(let-values()" "(let-values(((ns25_2) ns_58)" "((mpi26_0) mpi_49)" -"((phase27_1) phase_142)" -"((phase28_1) phase_142))" +"((phase27_1) phase_141)" +"((phase28_1) phase_141))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -46349,12 +46515,12 @@ static const char *startup_source = " ns25_2" " mpi26_0" " phase27_1)))" -"(if(void? sym_85)" +"(if(void? sym_84)" "(let-values()" "(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_49)" -"((phase31_1) phase_142)" -"((phase32_3) phase_142))" +"((phase31_1) phase_141)" +"((phase32_3) phase_141))" "(namespace-module-visit!104.1" " phase32_3" " #t" @@ -46375,7 +46541,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_85" +" sym_84" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -46384,7 +46550,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_85" +" sym_84" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -46399,8 +46565,8 @@ static const char *startup_source = "(begin" "(let-values(((ns33_0) ns_58)" "((mpi34_0) mpi_49)" -"((phase35_1) phase_142)" -"((phase36_0) phase_142)" +"((phase35_1) phase_141)" +"((phase36_0) phase_141)" "((temp37_2) #f))" "(namespace-module-instantiate!96.1" " temp37_2" @@ -46427,7 +46593,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp40_2)" "(phase-" -" phase_142" +" phase_141" " ex-phase_0))" "((temp41_3) #t))" "(namespace->module-namespace82.1" @@ -46485,7 +46651,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_85" +" sym_84" " \"module\"" " mod-name_22))" "(void))" @@ -46501,7 +46667,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_85" +" sym_84" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -46524,9 +46690,9 @@ static const char *startup_source = "((mpi43_1)" " mpi_49)" "((phase44_0)" -" phase_142)" +" phase_141)" "((phase45_1)" -" phase_142))" +" phase_141))" "(namespace-module-visit!104.1" " phase45_1" " #t" @@ -46570,11 +46736,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_85" +" sym_84" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_26 mod-path_17 sym_86)(begin(do-dynamic-require6_0 who_26 mod-path_17 sym_86 #f #f)))" -"((who_27 mod-path_18 sym_87 fail-k1_1)(do-dynamic-require6_0 who_27 mod-path_18 sym_87 fail-k1_1 #t)))))" +"((who_26 mod-path_17 sym_85)(begin(do-dynamic-require6_0 who_26 mod-path_17 sym_85 #f #f)))" +"((who_27 mod-path_18 sym_86 fail-k1_1)(do-dynamic-require6_0 who_27 mod-path_18 sym_86 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -46583,13 +46749,13 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_88) sym11_0))" +"(let-values(((sym_87) sym11_0))" "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values()" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_88 fail-k_3)))))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_87 fail-k_3)))))))))))" "(case-lambda" -"((mod-path_20 sym_89)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_89 #f #f)))" +"((mod-path_20 sym_88)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_88 #f #f)))" "((mod-path_21 sym_60 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_60 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" @@ -46598,7 +46764,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_90) sym17_1))" +"(let-values(((sym_89) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values()" @@ -46614,12 +46780,12 @@ static const char *startup_source = "(do-dynamic-require" " 'dynamic-require-for-syntax" " mod-path_22" -" sym_90" +" sym_89" " fail-k_4)))))))))))))" "(case-lambda" -"((mod-path_23 sym_91)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_91 #f #f)))" -"((mod-path_24 sym_92 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_92 fail-k14_1 #t)))))" +"((mod-path_23 sym_90)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_90 #f #f)))" +"((mod-path_24 sym_91 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_91 fail-k14_1 #t)))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" @@ -46697,12 +46863,12 @@ static const char *startup_source = "(if(list? l_76)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_281)(not p_55)))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_282)(complete-path-string? p_55)))" -"(if or-part_282" -" or-part_282" +"(let-values(((or-part_285)(not p_55)))" +"(if or-part_285" +" or-part_285" +"(let-values(((or-part_286)(complete-path-string? p_55)))" +"(if or-part_286" +" or-part_286" "(if(hash? p_55)" "(let-values(((ht_150) p_55))" "(begin" @@ -46777,7 +46943,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_277)" "(lambda(table_216 i_90)" "(begin" " 'for-loop" @@ -46798,10 +46964,10 @@ static const char *startup_source = " val_79)))))" "(values table_218)))))" "(if(not #f)" -"(for-loop_278 table_217(hash-iterate-next ht_151 i_90))" +"(for-loop_277 table_217(hash-iterate-next ht_151 i_90))" " table_217)))" " table_216)))))" -" for-loop_278)" +" for-loop_277)" " '#hash()" "(hash-iterate-first ht_151)))))))))" " l_8)))))))" @@ -46924,11 +47090,11 @@ static const char *startup_source = "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_43)" -"(let-values(((or-part_282)(1/string->number start_42)))" -"(if or-part_282 or-part_282 0))))" +"(let-values(((or-part_286)(1/string->number start_42)))" +"(if or-part_286 or-part_286 0))))" "(let-values(((end_33)" -"(let-values(((or-part_288)(1/string->number end_32)))" -"(if or-part_288 or-part_288 0))))" +"(let-values(((or-part_291)(1/string->number end_32)))" +"(if or-part_291 or-part_291 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -47046,7 +47212,7 @@ static const char *startup_source = "(lambda(d_33)" "(begin" " (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_280)" +"(let-values(((or-part_284)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p9_0) p_63)" @@ -47059,7 +47225,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_280 or-part_280 '#hash()))))))" +"(if or-part_284 or-part_284 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -47256,11 +47422,11 @@ static const char *startup_source = "(andmap2" "(lambda(p_67)" "(if(list? p_67)" -"(if(let-values(((or-part_291)(= 2(length p_67))))" -"(if or-part_291 or-part_291(= 3(length p_67))))" -"(if(let-values(((or-part_292)(string?(car p_67))))" -"(if or-part_292" -" or-part_292" +"(if(let-values(((or-part_294)(= 2(length p_67))))" +"(if or-part_294 or-part_294(= 3(length p_67))))" +"(if(let-values(((or-part_295)(string?(car p_67))))" +"(if or-part_295" +" or-part_295" "(let-values(((or-part_215)" "(eq? 'root(car p_67))))" "(if or-part_215" @@ -47285,8 +47451,8 @@ static const char *startup_source = "(begin" "(for-each2" "(lambda(p_68)" -"(if(let-values(((or-part_293)(null?(cddr p_68))))" -"(if or-part_293 or-part_293(regexp-match?(caddr p_68)(version))))" +"(if(let-values(((or-part_296)(null?(cddr p_68))))" +"(if or-part_296 or-part_296(regexp-match?(caddr p_68)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_68) dir_0))))" @@ -47314,11 +47480,11 @@ static const char *startup_source = "(lambda(k_38 v_204)" "(hash-set! ht_154 k_38(cons dir_1 v_204))))))" "(let-values()" -"(let-values(((s_485)(string->symbol(car p_68))))" +"(let-values(((s_482)(string->symbol(car p_68))))" "(hash-set!" " ht_154" -" s_485" -"(cons(box dir_1)(hash-ref ht_154 s_485 null)))))))))" +" s_482" +"(cons(box dir_1)(hash-ref ht_154 s_482 null)))))))))" "(void)))" " v_203)" "(hash-for-each" @@ -47353,7 +47519,7 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_93)" +"(let-values(((sym_92)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" "((letrec-values(((loop_103)" @@ -47368,13 +47534,13 @@ static const char *startup_source = "(if(hash?(car l_83))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_83) sym_93 null))" +"(map2 box(hash-ref(car l_83) sym_92 null))" "(hash-ref(car l_83) #f null)" "(loop_103(cdr l_83))))" "(let-values()" "(let-values(((ht_155)(get-linked-collections(car l_83))))" "(append" -"(hash-ref ht_155 sym_93 null)" +"(hash-ref ht_155 sym_92 null)" "(hash-ref ht_155 #f null)" "(loop_103(cdr l_83))))))))))))" " loop_103)" @@ -47506,9 +47672,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_294)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_294" -" or-part_294" +"(let-values(((or-part_297)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_297" +" or-part_297" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -47841,16 +48007,16 @@ static const char *startup_source = "(let-values(((or-part_91) dynamic-require_1))" "(if or-part_91" " or-part_91" -"(lambda(mod-path_25 sym_94 failure-k_0)" +"(lambda(mod-path_25 sym_93 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_295) module-declared?_1))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_298) module-declared?_1))" +"(if or-part_298" +" or-part_298" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_211) coerce_1))" "(if or-part_211 or-part_211(lambda(for-syntax?_2 v_113 srcloc_9) v_113)))" -"(let-values(((or-part_296) coerce-key_1))" -"(if or-part_296 or-part_296(lambda(for-syntax?_3 v_117) v_117)))" +"(let-values(((or-part_299) coerce-key_1))" +"(if or-part_299 or-part_299(lambda(for-syntax?_3 v_117) v_117)))" " #f" " #f" " #f" @@ -47881,13 +48047,13 @@ static const char *startup_source = "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" "(let-values(((v_220) config_0))" -"(let-values(((the-struct_75) v_220))" -"(if(read-config/outer? the-struct_75)" +"(let-values(((the-struct_76) v_220))" +"(if(read-config/outer? the-struct_76)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_76)(read-config/outer-inner v_220)))" -"(if(read-config/inner? the-struct_76)" +"(let-values(((the-struct_77)(read-config/outer-inner v_220)))" +"(if(read-config/inner? the-struct_77)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47899,25 +48065,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_76)" -"(read-config/inner-read-compiled the-struct_76)" -"(read-config/inner-dynamic-require the-struct_76)" -"(read-config/inner-module-declared? the-struct_76)" -"(read-config/inner-coerce the-struct_76)" -"(read-config/inner-coerce-key the-struct_76)" -"(read-config/inner-parameter-override the-struct_76)" -"(read-config/inner-parameter-cache the-struct_76)" +"(read-config/inner-source the-struct_77)" +"(read-config/inner-read-compiled the-struct_77)" +"(read-config/inner-dynamic-require the-struct_77)" +"(read-config/inner-module-declared? the-struct_77)" +"(read-config/inner-coerce the-struct_77)" +"(read-config/inner-coerce-key the-struct_77)" +"(read-config/inner-parameter-override the-struct_77)" +"(read-config/inner-parameter-cache the-struct_77)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_77)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_75)" -"(read-config/outer-col the-struct_75)" -"(read-config/outer-pos the-struct_75)" -"(read-config/outer-indentations the-struct_75)" +"(read-config/outer-line the-struct_76)" +"(read-config/outer-col the-struct_76)" +"(read-config/outer-pos the-struct_76)" +"(read-config/outer-indentations the-struct_76)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -47928,16 +48094,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_297) given-end-pos_0))" -"(if or-part_297" -" or-part_297" +"(let-values(((or-part_300) given-end-pos_0))" +"(if or-part_300" +" or-part_300" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" "(let-values(((or-part_173)(read-config-source config_1)))" "(if or-part_173" " or-part_173" -" (let-values (((or-part_298) (object-name in_1))) (if or-part_298 or-part_298 \"UNKNOWN\"))))" +" (let-values (((or-part_301) (object-name in_1))) (if or-part_301 or-part_301 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47949,55 +48115,55 @@ static const char *startup_source = "(lambda(config_2 line_2 col_1 pos_108)" "(begin" "(let-values(((v_221) config_2))" -"(let-values(((the-struct_77) v_221))" -"(if(read-config/outer? the-struct_77)" +"(let-values(((the-struct_78) v_221))" +"(if(read-config/outer? the-struct_78)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" "((inner65_0)(read-config/outer-inner v_221)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_77)" +"(read-config/outer-wrap the-struct_78)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_77)" -"(read-config/outer-keep-comment? the-struct_77)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" +"(read-config/outer-indentations the-struct_78)" +"(read-config/outer-keep-comment? the-struct_78)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" "(let-values(((v_222) config_3))" -"(let-values(((the-struct_78) v_222))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((the-struct_79) v_222))" +"(if(read-config/outer? the-struct_79)" "(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_222)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" -"(read-config/outer-keep-comment? the-struct_78)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-keep-comment? the-struct_79)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_223) config_4))" -"(let-values(((the-struct_79) v_223))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((the-struct_80) v_223))" +"(if(read-config/outer? the-struct_80)" "(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_223)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_79)" -"(read-config/outer-line the-struct_79)" -"(read-config/outer-col the-struct_79)" -"(read-config/outer-pos the-struct_79)" -"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-wrap the-struct_80)" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -48006,18 +48172,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_224) config_5))" -"(let-values(((the-struct_80) v_224))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((the-struct_81) v_224))" +"(if(read-config/outer? the-struct_81)" "(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_80)" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -48026,35 +48192,35 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_225) config_6))" -"(let-values(((the-struct_81) v_225))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((the-struct_82) v_225))" +"(if(read-config/outer? the-struct_82)" "(let-values(((inner72_1)" -"(let-values(((the-struct_82)(read-config/outer-inner v_225)))" -"(if(read-config/inner? the-struct_82)" +"(let-values(((the-struct_83)(read-config/outer-inner v_225)))" +"(if(read-config/inner? the-struct_83)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_82)" -"(read-config/inner-for-syntax? the-struct_82)" -"(read-config/inner-source the-struct_82)" -"(read-config/inner-read-compiled the-struct_82)" -"(read-config/inner-dynamic-require the-struct_82)" -"(read-config/inner-module-declared? the-struct_82)" -"(read-config/inner-coerce the-struct_82)" -"(read-config/inner-coerce-key the-struct_82)" -"(read-config/inner-parameter-override the-struct_82)" -"(read-config/inner-parameter-cache the-struct_82)" -"(read-config/inner-st the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" +"(read-config/inner-next-readtable the-struct_83)" +"(read-config/inner-for-syntax? the-struct_83)" +"(read-config/inner-source the-struct_83)" +"(read-config/inner-read-compiled the-struct_83)" +"(read-config/inner-dynamic-require the-struct_83)" +"(read-config/inner-module-declared? the-struct_83)" +"(read-config/inner-coerce the-struct_83)" +"(read-config/inner-coerce-key the-struct_83)" +"(read-config/inner-parameter-override the-struct_83)" +"(read-config/inner-parameter-cache the-struct_83)" +"(read-config/inner-st the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_83)))))" "(read-config/outer1.1" " inner72_1" -"(read-config/outer-wrap the-struct_81)" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" -"(read-config/outer-keep-comment? the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-keep-comment? the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" "(define-values" "(coerce)" "(lambda(val_80 in_2 config_7)" @@ -48107,36 +48273,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_95) config_9))" -"(let-values(((the-struct_83) v_95))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((the-struct_84) v_95))" +"(if(read-config/outer? the-struct_84)" "(let-values(((inner1_0)" -"(let-values(((the-struct_84)(read-config/outer-inner v_95)))" -"(if(read-config/inner? the-struct_84)" +"(let-values(((the-struct_85)(read-config/outer-inner v_95)))" +"(if(read-config/inner? the-struct_85)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_84)" -"(read-config/inner-next-readtable the-struct_84)" -"(read-config/inner-for-syntax? the-struct_84)" -"(read-config/inner-source the-struct_84)" -"(read-config/inner-read-compiled the-struct_84)" -"(read-config/inner-dynamic-require the-struct_84)" -"(read-config/inner-module-declared? the-struct_84)" -"(read-config/inner-coerce the-struct_84)" -"(read-config/inner-coerce-key the-struct_84)" +"(read-config/inner-readtable the-struct_85)" +"(read-config/inner-next-readtable the-struct_85)" +"(read-config/inner-for-syntax? the-struct_85)" +"(read-config/inner-source the-struct_85)" +"(read-config/inner-read-compiled the-struct_85)" +"(read-config/inner-dynamic-require the-struct_85)" +"(read-config/inner-module-declared? the-struct_85)" +"(read-config/inner-coerce the-struct_85)" +"(read-config/inner-coerce-key the-struct_85)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_84)" -"(read-config/inner-st the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" +"(read-config/inner-parameter-cache the-struct_85)" +"(read-config/inner-st the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" -"(read-config/outer-keep-comment? the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" +"(read-config/outer-wrap the-struct_84)" +"(read-config/outer-line the-struct_84)" +"(read-config/outer-col the-struct_84)" +"(read-config/outer-pos the-struct_84)" +"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-keep-comment? the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48274,10 +48440,10 @@ static const char *startup_source = " 'non-terminating-macro)))" "(if or-part_251" " or-part_251" -"(let-values(((or-part_299)" +"(let-values(((or-part_302)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_299" -" or-part_299" +"(if or-part_302" +" or-part_302" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -48348,10 +48514,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_300)" +"(if(let-values(((or-part_303)" "(not target_0)))" -"(if or-part_300" -" or-part_300" +"(if or-part_303" +" or-part_303" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48437,7 +48603,7 @@ static const char *startup_source = "(lambda(c_58 config_11)" "(begin" "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" -"(if(let-values(((or-part_301)(not rt_2)))(if or-part_301 or-part_301(not(char? c_59))))" +"(if(let-values(((or-part_304)(not rt_2)))(if or-part_304 or-part_304(not(char? c_59))))" "(let-values() c_59)" "(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" @@ -48525,7 +48691,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_272)" "(lambda(fold-var_82 i_174)" "(begin" " 'for-loop" @@ -48541,10 +48707,10 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_273 fold-var_289(hash-iterate-next ht_148 i_174))" +"(for-loop_272 fold-var_289(hash-iterate-next ht_148 i_174))" " fold-var_289)))" " fold-var_82)))))" -" for-loop_273)" +" for-loop_272)" " null" "(hash-iterate-first ht_148))))))))))" "(define-values" @@ -48597,8 +48763,8 @@ static const char *startup_source = " (let-values (((msg_0) (format \"~a: ~a\" who_30 (apply format str_25 args_9))))" "(let-values(((srcloc_10)" "(if in_6" -"(let-values(((in23_1) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))" -"(port+config->srcloc49.1 end-pos25_0 #t in23_1 config24_0))" +"(let-values(((in23_0) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))" +"(port+config->srcloc49.1 end-pos25_0 #t in23_0 config24_0))" " #f)))" "(raise" "((if(eof-object? due-to_0)" @@ -48642,8 +48808,8 @@ static const char *startup_source = "((config34_0) config_18)" " ((temp35_1) \"~a\")" "((temp36_4)" -"(let-values(((s_486)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_486 \"\")))" +"(let-values(((s_483)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_483 \"\")))" "((temp37_3)(exn-continuation-marks exn_2)))" "(reader-error12.1" " temp37_3" @@ -48721,10 +48887,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_283)" +"(if(let-values(((or-part_287)" "(eof-object? c_65)))" -"(if or-part_283" -" or-part_283" +"(if or-part_287" +" or-part_287" "(eqv?" " '#\\newline" "(effective-char c_65 config_15))))" @@ -48778,8 +48944,8 @@ static const char *startup_source = "(if(eq? c_67 'special)" "(special1.1 'special)" " c_67)))))" -"(let-values(((or-part_284)(eqv? '#\\space c3_1)))" -"(if or-part_284 or-part_284(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_288)(eqv? '#\\space c3_1)))" +"(if or-part_288 or-part_288(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -48907,12 +49073,12 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_302)(char=? dc_0 '#\\()))" -"(if or-part_302" -" or-part_302" -"(let-values(((or-part_279)(char=? dc_0 '#\\))))" -"(if or-part_279" -" or-part_279" +"(let-values(((or-part_305)(char=? dc_0 '#\\()))" +"(if or-part_305" +" or-part_305" +"(let-values(((or-part_283)(char=? dc_0 '#\\))))" +"(if or-part_283" +" or-part_283" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -49008,9 +49174,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_69 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))" -"(if(let-values(((or-part_282) s_10))(if or-part_282 or-part_282 c_69))" +"(if(let-values(((or-part_286) s_10))(if or-part_286 or-part_286 c_69))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_283) s_10)) (if or-part_283 or-part_283 c_69))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_287) s_10)) (if or-part_287 or-part_287 c_69))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -49276,8 +49442,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" "(let-values(((v_232) elem-config_0))" -"(let-values(((the-struct_85) v_232))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((the-struct_86) v_232))" +"(if(read-config/outer? the-struct_86)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -49285,16 +49451,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_232)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" +"(read-config/outer-wrap the-struct_86)" +"(read-config/outer-line the-struct_86)" +"(read-config/outer-col the-struct_86)" +"(read-config/outer-pos the-struct_86)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_85)))" +"(read-config/outer-keep-comment? the-struct_86)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_85))))))" +" the-struct_86))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_10)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49520,11 +49686,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_303)" +"(if(let-values(((or-part_306)" "(eof-object?" " post-ec_0)))" -"(if or-part_303" -" or-part_303" +"(if or-part_306" +" or-part_306" "(eqv?" " post-ec_0" " closer_1)))" @@ -49729,11 +49895,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_78)" "(begin" -"(let-values(((or-part_304)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" -"(if or-part_304" -" or-part_304" -"(let-values(((or-part_303)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" -"(if or-part_303 or-part_303(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(let-values(((or-part_307)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_307" +" or-part_307" +"(let-values(((or-part_306)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" +"(if or-part_306 or-part_306(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_79)" @@ -49747,10 +49913,10 @@ static const char *startup_source = "(define-values" "(1/string->number)" "(let-values(((string->number8_0)" -"(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" +"(lambda(s7_3 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_42) s7_2))" +"(let-values(((s_42) s7_3))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -49807,10 +49973,10 @@ static const char *startup_source = " convert-mode75_0))))))))))))))" "(case-lambda" "((s_309)(begin 'string->number(string->number8_0 s_309 #f #f #f #f #f #f)))" -"((s_458 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_458 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_487 radix_2 convert-mode2_1)(string->number8_0 s_487 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_488 radix1_1)(string->number8_0 s_488 radix1_1 #f #f #t #f #f)))))" +"((s_455 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_455 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_484 radix_2 convert-mode2_1)(string->number8_0 s_484 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_485 radix1_1)(string->number8_0 s_485 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -50043,24 +50209,24 @@ static const char *startup_source = " #f)))" "(if c2_3" "((lambda(v_37)" -"(let-values(((s90_1) s_21)" -"((temp91_1)(+ start_44 6))" -"((temp92_3)(sub1 end_34))" +"(let-values(((s90_2) s_21)" +"((temp91_0)(+ start_44 6))" +"((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" -"((temp96_2) 'i)" +"((temp96_1) 'i)" "((v97_0) v_37)" "((temp98_2)" "(lambda(v_236 v2_0)" "(begin 'temp98(make-rectangular v_236 v2_0)))))" "(read-for-special-compound65.1" -" temp96_2" +" temp96_1" " #f" " #f" -" s90_1" -" temp91_1" -" temp92_3" +" s90_2" +" temp91_0" +" temp92_2" " radix93_0" " exactness94_0" " convert-mode95_0" @@ -50088,28 +50254,28 @@ static const char *startup_source = "(let-values()" "(let-values(((s99_0) s_21)" "((start100_0) start_44)" -"((temp101_3)(- end_34 7))" +"((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" "((exactness103_0) exactness_0)" "((convert-mode104_0) convert-mode_2)" -"((temp105_2) 'i)" -"((temp106_2) #t)" +"((temp105_1) 'i)" +"((temp106_1) #t)" "((v2107_0) v2_1)" -"((temp108_1)" +"((temp108_0)" "(lambda(v2_2 v_218)" "(begin 'temp108(make-rectangular v_218 v2_2)))))" "(read-for-special-compound65.1" -" temp105_2" -" temp106_2" +" temp105_1" +" temp106_1" " #t" " s99_0" " start100_0" -" temp101_3" +" temp101_2" " radix102_0" " exactness103_0" " convert-mode104_0" " v2107_0" -" temp108_1)))))" +" temp108_0)))))" " c3_2)" "(let-values(((c4_0)" "(if(char-sign? c_80)" @@ -50128,22 +50294,22 @@ static const char *startup_source = "(if c4_0" "((lambda(v_192)" "(let-values(((s109_0) s_21)" -"((temp110_3)(+ start_44 7))" +"((temp110_2)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" -"((temp115_1) '@)" +"((temp115_0) '@)" "((v116_0) v_192)" "((temp117_1)" "(lambda(v_237 v2_3)" "(begin 'temp117(make-polar v_237 v2_3)))))" "(read-for-special-compound65.1" -" temp115_1" +" temp115_0" " #f" " #f" " s109_0" -" temp110_3" +" temp110_2" " end111_0" " radix112_0" " exactness113_0" @@ -50263,10 +50429,10 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_305)" +"(let-values(((or-part_308)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_305" -" or-part_305" +"(if or-part_308" +" or-part_308" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -50282,7 +50448,7 @@ static const char *startup_source = "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" -"((temp140_4)(sub1 end_35))" +"((temp140_3)(sub1 end_35))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" @@ -50297,7 +50463,7 @@ static const char *startup_source = " start137_0" " sign-pos138_0" " sign-pos139_0" -" temp140_4" +" temp140_3" " i-pos141_0" " sign-pos142_0" " radix143_0" @@ -50308,7 +50474,7 @@ static const char *startup_source = "(let-values(((s148_0) s_38)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" -"((temp151_1)(add1 @-pos_0))" +"((temp151_2)(add1 @-pos_0))" "((end152_0) end_35)" "((i-pos153_0) i-pos_3)" "((sign-pos154_0) sign-pos_0)" @@ -50323,7 +50489,7 @@ static const char *startup_source = " s148_0" " start149_0" " @-pos150_0" -" temp151_1" +" temp151_2" " end152_0" " i-pos153_0" " sign-pos154_0" @@ -50399,20 +50565,20 @@ static const char *startup_source = " #f)))))" "(if(char=? c_81 '#\\.)" "(let-values()" -"(if(let-values(((or-part_306)" +"(if(let-values(((or-part_309)" "(if exp-pos_0" -"(let-values(((or-part_307)" +"(let-values(((or-part_310)" "(not sign-pos_0)))" -"(if or-part_307" -" or-part_307" +"(if or-part_310" +" or-part_310" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_306" -" or-part_306" +"(if or-part_309" +" or-part_309" "(if dot-pos_1" -"(let-values(((or-part_259)(not sign-pos_0)))" -"(if or-part_259" -" or-part_259" +"(let-values(((or-part_311)(not sign-pos_0)))" +"(if or-part_311" +" or-part_311" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50423,9 +50589,9 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_308)(not sign-pos_0)))" -"(if or-part_308" -" or-part_308" +"(let-values(((or-part_312)(not sign-pos_0)))" +"(if or-part_312" +" or-part_312" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50450,9 +50616,9 @@ static const char *startup_source = "(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_309)(not sign-pos_0)))" -"(if or-part_309" -" or-part_309" +"(let-values(((or-part_313)(not sign-pos_0)))" +"(if or-part_313" +" or-part_313" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50462,21 +50628,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_310)" +"(if(let-values(((or-part_314)" "(if exp-pos_0" -"(let-values(((or-part_311)" +"(let-values(((or-part_315)" "(not sign-pos_0)))" -"(if or-part_311" -" or-part_311" +"(if or-part_315" +" or-part_315" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_310" -" or-part_310" +"(if or-part_314" +" or-part_314" "(if slash-pos_0" -"(let-values(((or-part_312)" +"(let-values(((or-part_316)" "(not sign-pos_0)))" -"(if or-part_312" -" or-part_312" +"(if or-part_316" +" or-part_316" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50498,24 +50664,24 @@ static const char *startup_source = " i_175" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_313)(char=? c_81 '#\\e)))" -"(if or-part_313" -" or-part_313" -"(let-values(((or-part_314)(char=? c_81 '#\\E)))" -"(if or-part_314" -" or-part_314" -"(let-values(((or-part_315)" -"(char=? c_81 '#\\f)))" -"(if or-part_315" -" or-part_315" -"(let-values(((or-part_316)" -"(char=? c_81 '#\\F)))" -"(if or-part_316" -" or-part_316" -"(let-values(((or-part_317)" -"(char=? c_81 '#\\d)))" +"(if(let-values(((or-part_317)(char=? c_81 '#\\e)))" "(if or-part_317" " or-part_317" +"(let-values(((or-part_318)(char=? c_81 '#\\E)))" +"(if or-part_318" +" or-part_318" +"(let-values(((or-part_319)" +"(char=? c_81 '#\\f)))" +"(if or-part_319" +" or-part_319" +"(let-values(((or-part_320)" +"(char=? c_81 '#\\F)))" +"(if or-part_320" +" or-part_320" +"(let-values(((or-part_321)" +"(char=? c_81 '#\\d)))" +"(if or-part_321" +" or-part_321" "(let-values(((or-part_203)" "(char=? c_81 '#\\D)))" "(if or-part_203" @@ -50526,24 +50692,24 @@ static const char *startup_source = " '#\\s)))" "(if or-part_158" " or-part_158" -"(let-values(((or-part_318)" +"(let-values(((or-part_322)" "(char=?" " c_81" " '#\\S)))" -"(if or-part_318" -" or-part_318" -"(let-values(((or-part_319)" +"(if or-part_322" +" or-part_322" +"(let-values(((or-part_323)" "(char=?" " c_81" " '#\\l)))" -"(if or-part_319" -" or-part_319" -"(let-values(((or-part_320)" +"(if or-part_323" +" or-part_323" +"(let-values(((or-part_324)" "(char=?" " c_81" " '#\\L)))" -"(if or-part_320" -" or-part_320" +"(if or-part_324" +" or-part_324" "(let-values(((or-part_179)" "(char=?" " c_81" @@ -50576,8 +50742,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_321) exp-pos_0))" -"(if or-part_321 or-part_321 i_175))" +"(let-values(((or-part_325) exp-pos_0))" +"(if or-part_325 or-part_325 i_175))" " must-i?_0))" "(let-values()" "(loop_108" @@ -50589,8 +50755,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_322) exp-pos_0))" -"(if or-part_322 or-part_322 i_175))" +"(let-values(((or-part_326) exp-pos_0))" +"(if or-part_326 or-part_326 i_175))" " must-i?_0)))))" "(if(char=? c_81 '#\\@)" "(let-values()" @@ -50602,9 +50768,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_323) @-pos_0))" -"(if or-part_323" -" or-part_323" +"(if(let-values(((or-part_327) @-pos_0))" +"(if or-part_327" +" or-part_327" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50641,17 +50807,17 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_324)" +"(if(if(let-values(((or-part_328)" "(char=? c_81 '#\\i)))" -"(if or-part_324" -" or-part_324" +"(if or-part_328" +" or-part_328" "(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_325) @-pos_0))" -"(if or-part_325" -" or-part_325" +"(if(let-values(((or-part_329) @-pos_0))" +"(if or-part_329" +" or-part_329" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50660,10 +50826,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_326)" +"(if(let-values(((or-part_330)" "(<(add1 i_175) end_35)))" -"(if or-part_326" -" or-part_326" +"(if or-part_330" +" or-part_330" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50723,7 +50889,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_436) s40_0))" +"(let-values(((s_486) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -50740,7 +50906,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_436)" +"(let-values(((s160_0) s_486)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -50761,12 +50927,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_436 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_486 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_436)" +"(let-values(((s168_0) s_486)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -50784,11 +50950,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_327)(not v1_0)))" -"(if or-part_327 or-part_327(not v2_6)))" +"(if(let-values(((or-part_331)(not v1_0)))" +"(if or-part_331 or-part_331(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_328)(extflonum? v1_0)))" -"(if or-part_328 or-part_328(extflonum? v2_6)))" +"(if(if(let-values(((or-part_332)(extflonum? v1_0)))" +"(if or-part_332 or-part_332(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50815,16 +50981,16 @@ static const char *startup_source = "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_237 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_329)(eq? exactness_3 'inexact)))" -"(if or-part_329" -" or-part_329" -"(let-values(((or-part_330)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_330 or-part_330(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_331)(not exp-pos_1)))" -"(if or-part_331" -" or-part_331" -"(let-values(((or-part_332)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_332 or-part_332(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_333)(eq? exactness_3 'inexact)))" +"(if or-part_333" +" or-part_333" +"(let-values(((or-part_334)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_334 or-part_334(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_335)(not exp-pos_1)))" +"(if or-part_335" +" or-part_335" +"(let-values(((or-part_336)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_336 or-part_336(not(extfl-mark?_0))))))" "(not(if any-hashes?_1(hashes? s_237 start_46 end_36) #f))" " #f)" " #f)" @@ -50850,9 +51016,9 @@ static const char *startup_source = " (format \"missing digits before exponent marker in `~.a`\" (substring s_237 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_333)(= exp-pos_1(sub1 end_36))))" -"(if or-part_333" -" or-part_333" +"(let-values(((or-part_337)(= exp-pos_1(sub1 end_36))))" +"(if or-part_337" +" or-part_337" "(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_237(sub1 end_36))) #f)))" " #f)" "(let-values()" @@ -50865,14 +51031,14 @@ static const char *startup_source = "(string->number$1" "(maybe-substring s_237 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_334)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_334" -" or-part_334" -"(let-values(((or-part_335)(not exp-pos_1)))" -"(if or-part_335 or-part_335(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_338)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_338" +" or-part_338" +"(let-values(((or-part_339)(not exp-pos_1)))" +"(if or-part_339 or-part_339(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_336)(not n_30)))(if or-part_336 or-part_336(string? n_30)))" +"(if(let-values(((or-part_340)(not n_30)))(if or-part_340 or-part_340(string? n_30)))" "(let-values()" "(error" " 'string->number" @@ -50937,8 +51103,8 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" -"(if or-part_337 or-part_337(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_341)(eq? exactness_3 'inexact)))" +"(if or-part_341 or-part_341(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" @@ -50960,8 +51126,8 @@ static const char *startup_source = "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_338)(eq? exactness_3 'exact)))" -"(if or-part_338 or-part_338(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_342)(eq? exactness_3 'exact)))" +"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" "(if(if(eqv? n_31 0)(char=?(string-ref s_237 start_46) '#\\-) #f)" @@ -50997,9 +51163,9 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_339)(eq? exactness_3 'inexact)))" -"(if or-part_339" -" or-part_339" +"(let-values(((or-part_343)(eq? exactness_3 'inexact)))" +"(if or-part_343" +" or-part_343" "(if(not(eq? exactness_3 'exact))" "(hashes? s_237 from-pos_0 end_36)" " #f)))))))" @@ -51035,8 +51201,8 @@ static const char *startup_source = "(lambda(s_246 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_340)(eq? exactness_4 'exact)))" -"(if or-part_340 or-part_340(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_344)(eq? exactness_4 'exact)))" +"(if or-part_344 or-part_344(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_109)" "(lambda(i_176 j_3 hashes-pos_0)" @@ -51112,69 +51278,69 @@ static const char *startup_source = " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_489 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_487 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_489 start_48 end_38)" +"(if(hashes? s_487 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_489 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_487 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_489 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_487 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_489 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_487 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_490 start_49 end_39 convert-mode_8)" +"(lambda(s_488 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_341)(char=?(string-ref s_490 start_49) '#\\+)))" -"(if or-part_341 or-part_341(char=?(string-ref s_490 start_49) '#\\-)))" -"(let-values(((or-part_342)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 4))) '#\\.)" -"(let-values(((or-part_343)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_490 start_49) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_345)(char=?(string-ref s_488 start_49) '#\\+)))" +"(if or-part_345 or-part_345(char=?(string-ref s_488 start_49) '#\\-)))" +"(let-values(((or-part_346)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)" +"(let-values(((or-part_347)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_488 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_343" -" or-part_343" -"(let-values(((or-part_344)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_490 start_49) '#\\+) +inf.f -inf.f)" +"(if or-part_347" +" or-part_347" +"(let-values(((or-part_348)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_488 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_344" -" or-part_344" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\t)" +"(if or-part_348" +" or-part_348" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_490 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_488 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_342" -" or-part_342" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 4))) '#\\.)" -"(let-values(((or-part_345)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_345" -" or-part_345" -"(let-values(((or-part_346)" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\f) +nan.f #f)))" "(if or-part_346" " or-part_346" -"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)" +"(let-values(((or-part_349)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_349" +" or-part_349" +"(let-values(((or-part_350)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_350" +" or-part_350" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -51222,8 +51388,8 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_240))" "(let-values() #f)))" "(if(if(extflonum? v_240)" -"(let-values(((or-part_347)(not reading-first?_0)))" -"(if or-part_347 or-part_347(not(eq? convert-mode_10 'must-read))))" +"(let-values(((or-part_351)(not reading-first?_0)))" +"(if or-part_351 or-part_351(not(eq? convert-mode_10 'must-read))))" " #f)" "(let-values()(fail-extflonum convert-mode_10 v_240))" "(let-values()" @@ -51232,14 +51398,14 @@ static const char *startup_source = "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" -"((temp180_1) #t)" +"((temp180_0) #t)" "((exactness181_0) exactness_5)" "((in-complex182_0) in-complex_3)" "((convert-mode183_0) convert-mode_10))" "(do-string->number20.1" " in-complex182_0" " #t" -" temp180_1" +" temp180_0" " s176_0" " start177_0" " end178_0" @@ -51255,7 +51421,7 @@ static const char *startup_source = "(let-values()(combine_1 v_240 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_491 start_51 end_41)" +"(lambda(s_489 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -51263,13 +51429,13 @@ static const char *startup_source = " \"string\"" "(lambda(x_83)(string? x_83))" "(lambda(x_84)(unsafe-string-length x_84))" -" s_491" +" s_489" " start_51" " end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_279)" +"((letrec-values(((for-loop_278)" "(lambda(result_126 idx_5)" "(begin" " 'for-loop" @@ -51281,10 +51447,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_83 '#\\#)))))" "(values result_128)))))" "(if(if(not((lambda x_85 result_127) c_83))(not #f) #f)" -"(for-loop_279 result_127(unsafe-fx+ idx_5 1))" +"(for-loop_278 result_127(unsafe-fx+ idx_5 1))" " result_127)))" " result_126)))))" -" for-loop_279)" +" for-loop_278)" " #f" " start*_5))))))" "(define-values" @@ -51309,7 +51475,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_280)" +"((letrec-values(((for-loop_279)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" @@ -51326,9 +51492,9 @@ static const char *startup_source = "(string-set! new-s_9 i_121 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_280(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_279(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_280)" +" for-loop_279)" " start*_6" " start_53)))" "(void)" @@ -51341,33 +51507,33 @@ static const char *startup_source = "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_348)(eq? exactness_6 'exact)))(if or-part_348 or-part_348(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_352)(eq? exactness_6 'exact)))(if or-part_352 or-part_352(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_85)" -"(begin(let-values(((or-part_349)(char=? c_85 '#\\-)))(if or-part_349 or-part_349(char=? c_85 '#\\+))))))" +"(begin(let-values(((or-part_353)(char=? c_85 '#\\-)))(if or-part_353 or-part_353(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_86 radix_11)" "(begin" "(let-values(((v_241)(char->integer c_86)))" -"(let-values(((or-part_350)" +"(let-values(((or-part_354)" "(if(>= v_241(char->integer '#\\0))(<(- v_241(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_350" -" or-part_350" +"(if or-part_354" +" or-part_354" "(if(> radix_11 10)" -"(let-values(((or-part_351)" +"(let-values(((or-part_355)" "(if(>= v_241(char->integer '#\\a))(<(- v_241(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_351" -" or-part_351" +"(if or-part_355" +" or-part_355" "(if(>= v_241(char->integer '#\\A))(<(- v_241(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_492 start_55 end_44)" +"(lambda(convert-mode_11 s_490 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_492 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_490 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51683,7 +51849,7 @@ static const char *startup_source = "(begin" "(if(string? num_0)" "(let-values()" -"(let-values(((in23_2) in_25)" +"(let-values(((in23_1) in_25)" "((config24_1) config_24)" " ((temp25_5) \"~a\")" "((num26_0) num_0))" @@ -51696,7 +51862,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in23_2" +" in23_1" " config24_1" " temp25_5" "(list num26_0))))" @@ -51725,11 +51891,11 @@ static const char *startup_source = "(let-values(((or-part_164) num_0))" "(if or-part_164" " or-part_164" -"(let-values(((or-part_300)" +"(let-values(((or-part_303)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_300 or-part_300(string->symbol str_29)))))" +"(if or-part_303 or-part_303(string->symbol str_29)))))" " in_25" " config_24" " str_29)))))))))))))))))))))))))" @@ -52082,7 +52248,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_281)" +"((letrec-values(((for-loop_280)" "(lambda(lst_96 pos_116)" "(begin" " 'for-loop" @@ -52110,12 +52276,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_280" " rest_167" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_281)" +" for-loop_280)" " lst_95" " start_56)))" "(void)))" @@ -52175,12 +52341,12 @@ static const char *startup_source = "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_312) seq_2)((start_44) 0))" +"(let-values(((lst_309) seq_2)((start_44) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_312)))" +"(let-values()(check-list lst_309)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -52224,7 +52390,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_111)" -" lst_312" +" lst_309" " start_44)))" "(void)))" "(let-values()(void))))))" @@ -52312,7 +52478,7 @@ static const char *startup_source = "((temp52_3) '#\\{)" "((temp53_2) '#\\{)" "((temp54_1) '#\\})" -"((in55_0) in_33)" +"((in55_1) in_33)" "((config56_0) config_43)" "((vector-mode57_0) vector-mode_1)" "((vector-len58_0) vector-len_0))" @@ -52325,7 +52491,7 @@ static const char *startup_source = " temp52_3" " temp53_2" " temp54_1" -" in55_0" +" in55_1" " config56_0)))" "(let-values()" "(let-values(((in59_0) in_33)" @@ -52632,7 +52798,7 @@ static const char *startup_source = "((c18_1) c_50)" "((temp19_2) '#\\[)" "((temp20_2) '#\\])" -"((in21_1) in_38)" +"((in21_0) in_38)" "((config22_0) config_46)" "((v23_0) v_28))" "(read-vector11.1" @@ -52644,7 +52810,7 @@ static const char *startup_source = " c18_1" " temp19_2" " temp20_2" -" in21_1" +" in21_0" " config22_0)))" "(let-values()" "(let-values(((in24_0) in_38)" @@ -52685,9 +52851,9 @@ static const char *startup_source = "(if(if(equal? tmp_48 '#\\=) #t(equal? tmp_48 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_301)(read-config-for-syntax? config_46)))" -"(if or-part_301" -" or-part_301" +"(if(let-values(((or-part_304)(read-config-for-syntax? config_46)))" +"(if or-part_304" +" or-part_304" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_1) in_38)" @@ -53009,7 +53175,7 @@ static const char *startup_source = "((c18_2) c_70)" "((temp19_3) '#\\[)" "((temp20_3) '#\\])" -"((in21_2) in_38)" +"((in21_1) in_38)" "((config22_1) config_46)" "((config23_2) config_46)" "((temp24_7) #f))" @@ -53028,7 +53194,7 @@ static const char *startup_source = " c18_2" " temp19_3" " temp20_3" -" in21_2" +" in21_1" " config22_1))" " ec_7" " mode_20))))" @@ -53994,7 +54160,7 @@ static const char *startup_source = " combined-v_0" " 1114111)" "(let-values()" -"(let-values(((in55_1)" +"(let-values(((in55_2)" " in_43)" "((config56_1)" " config_22)" @@ -54023,7 +54189,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in55_1" +" in55_2" " config56_1" " temp57_0" "(list" @@ -54242,7 +54408,7 @@ static const char *startup_source = "(let-values(((in93_0) in_45)" "((config94_0) config_49)" "((c95_0) c_97)" -"((temp96_3)" +"((temp96_2)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error12.1" " #f" @@ -54255,14 +54421,14 @@ static const char *startup_source = " #f" " in93_0" " config94_0" -" temp96_3" +" temp96_2" "(list))))" "(if(not(char? c_97))" "(let-values()" "(let-values(((in97_0) in_45)" "((config98_0) config_49)" "((c99_0) c_97)" -"((temp100_3)" +"((temp100_2)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" " #f" @@ -54275,7 +54441,7 @@ static const char *startup_source = " #f" " in97_0" " config98_0" -" temp100_3" +" temp100_2" "(list))))" "(if(char=? c_97 '#\\newline)" "(let-values() null)" @@ -54299,9 +54465,9 @@ static const char *startup_source = "((config102_0) config_49)" "((c103_0) c_98)" "((open-end-pos104_0) open-end-pos_5)" -"((temp105_3)" +"((temp105_2)" " \"found end-of-file before terminating `~a`\")" -"((temp106_3)" +"((temp106_2)" "(list->string(cdr full-terminator_0))))" "(reader-error12.1" " #f" @@ -54314,14 +54480,14 @@ static const char *startup_source = " #f" " in101_0" " config102_0" -" temp105_3" -"(list temp106_3))))))" +" temp105_2" +"(list temp106_2))))))" "(if(not(char? c_98))" "(let-values()" "(let-values(((in107_0) in_45)" "((config108_0) config_49)" "((c109_0) c_98)" -"((temp110_4)" +"((temp110_3)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" " #f" @@ -54334,7 +54500,7 @@ static const char *startup_source = " #f" " in107_0" " config108_0" -" temp110_4" +" temp110_3" "(list))))" "(if(if(pair? terminator_0)" "(char=? c_98(car terminator_0))" @@ -54358,17 +54524,17 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_282)" -"(lambda(lst_313)" +"((letrec-values(((for-loop_281)" +"(lambda(lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_313)" +"(if(pair? lst_310)" "(let-values(((c_12)" "(unsafe-car" -" lst_313))" +" lst_310))" "((rest_174)" "(unsafe-cdr" -" lst_313)))" +" lst_310)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54381,11 +54547,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_282" +"(for-loop_281" " rest_174)" "(values))))" "(values))))))" -" for-loop_282)" +" for-loop_281)" " lst_229)))" "(void))))" "(if(char=? c_98 '#\\newline)" @@ -54534,7 +54700,7 @@ static const char *startup_source = "(let-values()" "(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_33)))" "(let-values()" -"(let-values(((in21_3) in_4)" +"(let-values(((in21_2) in_4)" "((config22_2) config_8)" " ((temp23_4) \"bad character constant `#\\\\u~a`\")" "((temp24_8)" @@ -54550,7 +54716,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in21_3" +" in21_2" " config22_2" " temp23_4" "(list temp24_8))))))" @@ -55109,7 +55275,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in88_0) in_57)" "((config89_0) config_53)" -" ((temp90_2) \"`~a` not enabled\")" +" ((temp90_1) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" "(reader-error12.1" " #f" @@ -55122,7 +55288,7 @@ static const char *startup_source = " #f" " in88_0" " config89_0" -" temp90_2" +" temp90_1" "(list extend-str91_0)))))" "(values))))" "(let-values(((line_10 col_9 pos_121)(port-next-location in_57)))" @@ -55197,7 +55363,7 @@ static const char *startup_source = "(consume-char in_57 c_9)" "(let-values(((in97_1) in_57)" "((config98_1) config_53)" -"((temp99_2)" +"((temp99_1)" "(string-append" " \"expected only alphanumeric, `-`, `+`, `_`, or `/`\"" " \" characters for `~a`, found `~a`\"))" @@ -55215,7 +55381,7 @@ static const char *startup_source = " #f" " in97_1" " config98_1" -" temp99_2" +" temp99_1" "(list" " extend-str100_0" " c101_0))))))))))))))" @@ -55230,7 +55396,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in104_0) in_57)" "((config105_0) config_53)" -"((temp106_4)" +"((temp106_3)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" "(reader-error12.1" @@ -55244,7 +55410,7 @@ static const char *startup_source = " #f" " in104_0" " config105_0" -" temp106_4" +" temp106_3" "(list extend-str107_0))))" "(void))" "(values))))" @@ -55254,7 +55420,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in108_0) in_57)" "((config109_0) config_53)" -"((temp110_5)" +"((temp110_4)" " \"expected a name that does not start `/` after `~a`\")" "((extend-str111_0) extend-str_2))" "(reader-error12.1" @@ -55268,7 +55434,7 @@ static const char *startup_source = " #f" " in108_0" " config109_0" -" temp110_5" +" temp110_4" "(list extend-str111_0))))" "(void))" "(values))))" @@ -55327,15 +55493,15 @@ static const char *startup_source = "(lambda(c_104)" "(begin" "(if(<(char->integer c_104) 128)" -"(let-values(((or-part_287)(char-alphabetic? c_104)))" -"(if or-part_287" -" or-part_287" +"(let-values(((or-part_290)(char-alphabetic? c_104)))" +"(if or-part_290" +" or-part_290" "(let-values(((or-part_177)(char-numeric? c_104)))" "(if or-part_177" " or-part_177" -"(let-values(((or-part_295)(char=? '#\\- c_104)))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_298)(char=? '#\\- c_104)))" +"(if or-part_298" +" or-part_298" "(let-values(((or-part_171)(char=? '#\\+ c_104)))" "(if or-part_171 or-part_171(char=? '#\\_ c_104)))))))))" " #f))))" @@ -55345,15 +55511,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_54)))" "(begin" -"(let-values(((lst_314) already_0))" +"(let-values(((lst_311) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" -"((letrec-values(((for-loop_283)" -"(lambda(lst_315)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_311)))" +"((letrec-values(((for-loop_282)" +"(lambda(lst_312)" "(begin" " 'for-loop" -"(if(pair? lst_315)" -"(let-values(((c_105)(unsafe-car lst_315))((rest_175)(unsafe-cdr lst_315)))" +"(if(pair? lst_312)" +"(let-values(((c_105)(unsafe-car lst_312))((rest_175)(unsafe-cdr lst_312)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55363,10 +55529,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_105))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_283 rest_175)(values))))" +"(if(not #f)(for-loop_282 rest_175)(values))))" "(values))))))" -" for-loop_283)" -" lst_314)))" +" for-loop_282)" +" lst_311)))" "(void)" "((letrec-values(((loop_117)" "(lambda(wanted_1)" @@ -55711,8 +55877,8 @@ static const char *startup_source = " wrap63_0" " #t)))))))" "(let-values(((v_248)(read-one init-c_15 in_12 config_57)))" -"(if(if(let-values(((or-part_300)(not recursive?_0)))" -"(if or-part_300 or-part_300 local-graph?_1))" +"(if(if(let-values(((or-part_303)(not recursive?_0)))" +"(if or-part_303 or-part_303 local-graph?_1))" "(read-config-state-graph(read-config-st config_57))" " #f)" "(let-values()" @@ -55947,9 +56113,9 @@ static const char *startup_source = "((in80_1) in_60)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_320)(eq? c_108 ec_10)))" -"(if or-part_320" -" or-part_320" +"(if(let-values(((or-part_324)(eq? c_108 ec_10)))" +"(if or-part_324" +" or-part_324" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -56056,7 +56222,7 @@ static const char *startup_source = "((temp94_2) '#\\))" "((in95_0) in_60)" "((r-config96_0) r-config_0)" -"((temp97_3) #t))" +"((temp97_2) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -56064,7 +56230,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp97_3" +" temp97_2" " #t" " #f" " #f" @@ -56082,8 +56248,8 @@ static const char *startup_source = "(let-values()" "(let-values(((in98_0) in_60)" "((r-config99_0) r-config_0)" -" ((temp100_4) \"~a\")" -"((temp101_4)" +" ((temp100_3) \"~a\")" +"((temp101_3)" "(indentation-unexpected-closer-message ec_10 c_108 r-config_0)))" "(reader-error12.1" " #f" @@ -56096,24 +56262,24 @@ static const char *startup_source = " #f" " in98_0" " r-config99_0" -" temp100_4" -"(list temp101_4))))" +" temp100_3" +"(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_270)" +"(if(let-values(((or-part_274)" "(check-parameter 1/read-square-bracket-as-paren config_55)))" -"(if or-part_270" -" or-part_270" +"(if or-part_274" +" or-part_274" "(check-parameter 1/read-square-bracket-with-tag config_55)))" "(let-values()" "(wrap" "(let-values(((read-one102_0) read-one)" "((ec103_0) ec_10)" "((temp104_4) '#\\[)" -"((temp105_4) '#\\])" +"((temp105_3) '#\\])" "((in106_0) in_60)" "((r-config107_0) r-config_0)" -"((temp108_2) #t))" +"((temp108_1) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -56121,14 +56287,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp108_2" +" temp108_1" " #t" " #f" " #f" " read-one102_0" " ec103_0" " temp104_4" -" temp105_4" +" temp105_3" " in106_0" " r-config107_0))" " in_60" @@ -56153,15 +56319,15 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_352)" +"(if(let-values(((or-part_356)" "(check-parameter 1/read-square-bracket-as-paren config_55)))" -"(if or-part_352" -" or-part_352" +"(if or-part_356" +" or-part_356" "(check-parameter 1/read-square-bracket-with-tag config_55)))" "(let-values()" "(let-values(((in113_1) in_60)" "((r-config114_0) r-config_0)" -" ((temp115_2) \"~a\")" +" ((temp115_1) \"~a\")" "((temp116_1)" "(indentation-unexpected-closer-message" " ec_10" @@ -56178,7 +56344,7 @@ static const char *startup_source = " #f" " in113_1" " r-config114_0" -" temp115_2" +" temp115_1" "(list temp116_1))))" "(let-values()" "(let-values(((in117_0) in_60)" @@ -56200,10 +56366,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_357)" "(check-parameter 1/read-curly-brace-as-paren config_55)))" -"(if or-part_353" -" or-part_353" +"(if or-part_357" +" or-part_357" "(check-parameter 1/read-curly-brace-with-tag config_55)))" "(let-values()" "(wrap" @@ -56237,7 +56403,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in128_0) in_60)" "((r-config129_0) r-config_0)" -" ((temp130_1) \"illegal use of `~a`\")" +" ((temp130_2) \"illegal use of `~a`\")" "((c131_0) c_108))" "(reader-error12.1" " #f" @@ -56250,14 +56416,14 @@ static const char *startup_source = " #f" " in128_0" " r-config129_0" -" temp130_1" +" temp130_2" "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_358)" "(check-parameter 1/read-curly-brace-as-paren config_55)))" -"(if or-part_354" -" or-part_354" +"(if or-part_358" +" or-part_358" "(check-parameter 1/read-curly-brace-with-tag config_55)))" "(let-values()" "(let-values(((in132_0) in_60)" @@ -56307,11 +56473,11 @@ static const char *startup_source = "(let-values(((c142_0) c_108)" "((in143_0) in_60)" "((r-config144_0) r-config_0)" -"((temp145_1) 'symbol))" +"((temp145_2) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" -" temp145_1" +" temp145_2" " #t" " c142_0" " in143_0" @@ -56482,8 +56648,8 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one161_0) read-one)" "((temp162_2) '#\\()" -"((temp163_1) '#\\()" -"((temp164_0) '#\\))" +"((temp163_2) '#\\()" +"((temp164_1) '#\\))" "((in165_0) in_65)" "((config166_0) config_61))" "(read-vector11.1" @@ -56493,8 +56659,8 @@ static const char *startup_source = " #f" " read-one161_0" " temp162_2" -" temp163_1" -" temp164_0" +" temp163_2" +" temp164_1" " in165_0" " config166_0)))))" "(if(unsafe-fx< index_5 5)" @@ -56528,8 +56694,8 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_61)" "(let-values()" "(let-values(((read-one176_0) read-one)" -"((temp177_0) '#\\{)" -"((temp178_1) '#\\{)" +"((temp177_1) '#\\{)" +"((temp178_0) '#\\{)" "((temp179_0) '#\\})" "((in180_0) in_65)" "((config181_0) config_61))" @@ -56539,8 +56705,8 @@ static const char *startup_source = " #f" " #f" " read-one176_0" -" temp177_0" -" temp178_1" +" temp177_1" +" temp178_0" " temp179_0" " in180_0" " config181_0)))" @@ -56630,22 +56796,22 @@ static const char *startup_source = "((in194_0) in_65)" "((config195_0) config_61)" "((dispatch-c196_0) dispatch-c_5)" -"((temp197_0) 'symbol))" +"((temp197_1) 'symbol))" "(read-symbol-or-number8.1" " dispatch-c196_0" " #t" -" temp197_0" +" temp197_1" " #t" " c193_0" " in194_0" " config195_0))))" "(if(unsafe-fx< index_5 15)" "(let-values()" -"(let-values(((temp198_0) #f)" +"(let-values(((temp198_1) #f)" "((in199_0) in_65)" "((config200_0) config_61)" "((temp201_0) 'keyword))" -"(read-symbol-or-number8.1 #f #f temp201_0 #t temp198_0 in199_0 config200_0)))" +"(read-symbol-or-number8.1 #f #f temp201_0 #t temp198_1 in199_0 config200_0)))" "(if(unsafe-fx< index_5 16)" "(let-values()" "(let-values(((c2_12)" @@ -56683,8 +56849,8 @@ static const char *startup_source = "(if(eq? c_114 'special)(special1.1 'special) c_114)))))" "(if(char-delimiter? c2_13 config_61)" "(let-values()(wrap #f in_65 config_61 c_110))" -"(if(let-values(((or-part_343)(char=? c2_13 '#\\x)))" -"(if or-part_343 or-part_343(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_347)(char=? c2_13 '#\\x)))" +"(if or-part_347 or-part_347(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56705,31 +56871,31 @@ static const char *startup_source = "(if(unsafe-fx< index_5 21)" "(if(unsafe-fx< index_5 18)" "(let-values()" -"(let-values(((temp202_0) #f)" +"(let-values(((temp202_1) #f)" "((in203_0) in_65)" "((config204_0) config_61)" " ((temp205_1) \"#e\"))" -"(read-symbol-or-number8.1 #f #f temp205_1 #t temp202_0 in203_0 config204_0)))" +"(read-symbol-or-number8.1 #f #f temp205_1 #t temp202_1 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" "(let-values(((temp206_0) #f)" "((in207_0) in_65)" "((config208_0) config_61)" -" ((temp209_0) \"#E\"))" -"(read-symbol-or-number8.1 #f #f temp209_0 #t temp206_0 in207_0 config208_0)))" +" ((temp209_1) \"#E\"))" +"(read-symbol-or-number8.1 #f #f temp209_1 #t temp206_0 in207_0 config208_0)))" "(if(unsafe-fx< index_5 20)" "(let-values()" -"(let-values(((temp210_0) #f)" +"(let-values(((temp210_1) #f)" "((in211_0) in_65)" "((config212_0) config_61)" " ((temp213_0) \"#i\"))" -"(read-symbol-or-number8.1 #f #f temp213_0 #t temp210_0 in211_0 config212_0)))" +"(read-symbol-or-number8.1 #f #f temp213_0 #t temp210_1 in211_0 config212_0)))" "(let-values()" "(let-values(((temp214_0) #f)" "((in215_0) in_65)" "((config216_0) config_61)" -" ((temp217_0) \"#I\"))" -"(read-symbol-or-number8.1 #f #f temp217_0 #t temp214_0 in215_0 config216_0))))))" +" ((temp217_1) \"#I\"))" +"(read-symbol-or-number8.1 #f #f temp217_1 #t temp214_0 in215_0 config216_0))))))" "(if(unsafe-fx< index_5 23)" "(if(unsafe-fx< index_5 22)" "(let-values()" @@ -57075,12 +57241,12 @@ static const char *startup_source = " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_95)" +"(lambda(mod_17 sym_94)" "(begin" " 'module-provide-protected?" "(module->" "(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_95 #f)))" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_94 #f)))" "(let-values(((or-part_33)(not b/p_3)))(if or-part_33 or-part_33(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" @@ -57115,11 +57281,11 @@ static const char *startup_source = "(let-values(((name_69)" "(let-values(((mod49_0) mod_18)((temp50_4) #t))" "(reference->resolved-module-path32.1 temp50_4 mod49_0))))" -"(let-values(((phase_132)(namespace-phase ns_115)))" +"(let-values(((phase_131)(namespace-phase ns_115)))" "(let-values(((m-ns_17)" "(let-values(((ns51_1) ns_115)" "((name52_0) name_69)" -"((phase53_0) phase_132))" +"((phase53_0) phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -57160,7 +57326,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_5)))))" "(let-values(((ns46_1) ns_115)" "((temp47_2)(namespace-mpi m-ns_17))" -"((phase48_2) phase_132))" +"((phase48_2) phase_131))" "(namespace-module-make-available!112.1 #f #f ns46_1 temp47_2 phase48_2))" " m-ns_17)))))))))))))))" "(case-lambda" @@ -57211,11 +57377,11 @@ static const char *startup_source = "(let-values(((name_70)" "(let-values(((mod56_0) mod_21)((temp57_0) #f))" "(reference->resolved-module-path32.1 temp57_0 mod56_0))))" -"(let-values(((phase_114)(namespace-phase ns_116)))" +"(let-values(((phase_113)(namespace-phase ns_116)))" "(let-values(((m-ns_15)" "(let-values(((ns58_0) ns_116)" "((name59_0) name_70)" -"((phase60_0) phase_114))" +"((phase60_0) phase_113))" "(namespace->module-namespace82.1" " #f" " #f" @@ -57259,8 +57425,8 @@ static const char *startup_source = "(let-values(((or-part_249)(1/module-path? mod_24)))" "(if or-part_249" " or-part_249" -"(let-values(((or-part_355)(1/module-path-index? mod_24)))" -"(if or-part_355 or-part_355(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_359)(1/module-path-index? mod_24)))" +"(if or-part_359 or-part_359(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path32.1)" @@ -57284,8 +57450,8 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-flush-stdout in_75)" -"(let-values(((in23_3) in_75)((temp24_9) #t)((src25_0) src_0))" -"(read*14.1 temp24_9 #f #f #f #f #f #f #f #f src25_0 #t in23_3))))" +"(let-values(((in23_2) in_75)((temp24_9) #t)((src25_0) src_0))" +"(read*14.1 temp24_9 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))" "(let-values()(values((port-read-handler in_75) in_75 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" @@ -57426,8 +57592,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_86) empty-syntax))" -"(if(syntax?$1 the-struct_86)" +"(let-values(((the-struct_87) empty-syntax))" +"(if(syntax?$1 the-struct_87)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -57439,14 +57605,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_86)" -"(syntax-shifted-multi-scopes the-struct_86)" -"(syntax-scope-propagations+tamper the-struct_86)" -"(syntax-mpi-shifts the-struct_86)" +"(syntax-scopes the-struct_87)" +"(syntax-shifted-multi-scopes the-struct_87)" +"(syntax-scope-propagations+tamper the-struct_87)" +"(syntax-mpi-shifts the-struct_87)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_86)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_86))))))" +"(syntax-inspector the-struct_87)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_87))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57531,7 +57697,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader21" "(let-values(((mod-path_30) mod-path19_0))" -"(let-values(((sym_96) sym20_0))" +"(let-values(((sym_95) sym20_0))" "(let-values(((fail-thunk_1)" "(if fail-thunk18_0 fail-thunk17_0 default-dynamic-require-fail-thunk)))" "(let-values()" @@ -57543,11 +57709,11 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" " root-ns_0)" -"(let-values()(1/dynamic-require mod-path_30 sym_96 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_96 fail-thunk_1)))))))))))" +"(let-values()(1/dynamic-require mod-path_30 sym_95 fail-thunk_1)))" +"(1/dynamic-require mod-path_30 sym_95 fail-thunk_1)))))))))))" "(case-lambda" -"((mod-path_31 sym_97)(begin(dynamic-require-reader21_0 mod-path_31 sym_97 #f #f)))" -"((mod-path_32 sym_98 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_98 fail-thunk17_1 #t)))))" +"((mod-path_31 sym_96)(begin(dynamic-require-reader21_0 mod-path_31 sym_96 #f #f)))" +"((mod-path_32 sym_97 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_97 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -57642,10 +57808,10 @@ static const char *startup_source = "(define-values" "(1/read/recursive)" "(let-values(((read/recursive31_0)" -"(lambda(in23_4 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" +"(lambda(in23_3 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" "(begin" " 'read/recursive31" -"(let-values(((in_20)(if in27_2 in23_4(current-input-port))))" +"(let-values(((in_20)(if in27_2 in23_3(current-input-port))))" "(let-values(((start_38)(if start28_1 start24_0 #f)))" "(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))" "(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))" @@ -57657,14 +57823,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_20)))" "(if((lambda(x_19)" -"(let-values(((or-part_300)(not x_19)))" -"(if or-part_300 or-part_300(char? x_19))))" +"(let-values(((or-part_303)(not x_19)))" +"(if or-part_303 or-part_303(char? x_19))))" " start_38)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" "(if((lambda(x_23)" -"(let-values(((or-part_274)(not x_23)))" -"(if or-part_274 or-part_274(1/readtable? x_23))))" +"(let-values(((or-part_278)(not x_23)))" +"(if or-part_278 or-part_278(1/readtable? x_23))))" " readtable_9)" "(void)" "(let-values()" @@ -57675,7 +57841,7 @@ static const char *startup_source = "((in_85 start_63 readtable_10 graph?26_1)(read/recursive31_0 in_85 start_63 readtable_10 graph?26_1 #t #t #t #t))" "((in_37 start_64 readtable25_1)(read/recursive31_0 in_37 start_64 readtable25_1 #f #t #t #t #f))" "((in_86 start24_1)(read/recursive31_0 in_86 start24_1 #f #f #t #t #f #f))" -"((in23_5)(read/recursive31_0 in23_5 #f #f #f #t #f #f #f)))))" +"((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))" "(define-values" "(1/read-language)" "(let-values(((read-language37_0)" @@ -57813,7 +57979,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_267)" -"(let-values(((sym_99)(unsafe-car lst_267))" +"(let-values(((sym_98)(unsafe-car lst_267))" "((rest_177)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" @@ -57824,11 +57990,11 @@ static const char *startup_source = "(let-values(((val_22)" "(1/instance-variable-value" " inst_7" -" sym_99)))" +" sym_98)))" "(namespace-set-variable!" " ns_46" " 0" -" sym_99" +" sym_98" " val_22)))" "(values)))))" "(values)))))" @@ -58088,13 +58254,13 @@ static const char *startup_source = "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_493) s19_1))" +"(let-values(((s_491) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_493)" +"((s72_0) s_491)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -58119,24 +58285,24 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_488 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_488 context_17 stop-ids_10 #f #f)))" -"((s_494 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_494 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_485 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_485 context_17 stop-ids_10 #f #f)))" +"((s_492 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_492 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" "(lambda(s28_1 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_485) s28_1))" +"(let-values(((s_482) s28_1))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_7)(if intdefs26_1 intdefs24_0 #f)))" "(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp77_2) 'local-expand)" -"((s78_0) s_485)" +"((s78_0) s_482)" "((context79_0) context_19)" "((stop-ids80_0) stop-ids_12)" "((intdefs81_0) intdefs_7)" @@ -58163,10 +58329,10 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_495 context_20 stop-ids_13)" +"((s_493 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_495 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_493 context_20 stop-ids_13 #f #f #f #f)))" "((s_25 context_21 stop-ids_14 intdefs_8 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_25 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_90 context_22 stop-ids_15 intdefs24_1)" @@ -58187,8 +58353,8 @@ static const char *startup_source = "((null88_0) null)" "((temp89_3) #f)" "((opaque-only?90_0) opaque-only?_0)" -"((temp91_2) #t)" -"((temp92_4) #t))" +"((temp91_1) #t)" +"((temp92_3) #t))" "(do-local-expand56.1" " #f" " #f" @@ -58196,11 +58362,11 @@ static const char *startup_source = " #f" " #f" " #f" -" temp91_2" +" temp91_1" " #t" " opaque-only?90_0" " #t" -" temp92_4" +" temp92_3" " #t" " temp85_3" " s86_1" @@ -58208,7 +58374,7 @@ static const char *startup_source = " null88_0" " temp89_3" " #t))))" -"(let-values(((ctx_73)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" +"(let-values(((ctx_72)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -58216,21 +58382,21 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_12)" " exp-s_12" -"(flip-introduction-scopes exp-s_12 ctx_73))" -"(expand-context-binding-layer ctx_73)))" -" ctx_73)))" +"(flip-introduction-scopes exp-s_12 ctx_72))" +"(expand-context-binding-layer ctx_72)))" +" ctx_72)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_73)))" +"(let-values(((obs_60)(expand-context-observer ctx_72)))" "(if obs_60" "(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_61)(expand-context-observer ctx_73)))" +"(let-values(((obs_61)(expand-context-observer ctx_72)))" "(if obs_61" "(let-values()(let-values()(call-expand-observe obs_61 'exit-local exp-s_12)))" "(void)))" "(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" "(case-lambda" -"((s_486)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_486 #f #f)))" +"((s_483)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_483 #f #f)))" "((s_26 opaque-only?33_1)(syntax-local-expand-expression36_0 s_26 opaque-only?33_1 #t)))))" "(define-values" "(do-local-expand56.1)" @@ -58239,7 +58405,7 @@ static const char *startup_source = " capture-lifts?38_0" " capture-lifts?44_0" " lift-key41_0" -" lift-key47_1" +" lift-key47_0" " skip-log-exit?43_0" " skip-log-exit?49_0" " to-parsed-ok?40_0" @@ -58263,10 +58429,10 @@ static const char *startup_source = "(let-values(((as-transformer?_6)(if as-transformer?45_0 as-transformer?39_0 #f)))" "(let-values(((to-parsed-ok?_1)(if to-parsed-ok?46_0 to-parsed-ok?40_0 #f)))" "(let-values(((lift-key_6)" -"(if lift-key47_1" +"(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_356) capture-lifts?_0))" -"(if or-part_356 or-part_356 as-transformer?_6))" +"(if(let-values(((or-part_360) capture-lifts?_0))" +"(if or-part_360 or-part_360 as-transformer?_6))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -58328,17 +58494,17 @@ static const char *startup_source = " \"(or/c #f internal-definition-context? (listof internal-definition-context?))\"" " intdefs_9)))" "(values))))" -"(let-values(((ctx_74)" +"(let-values(((ctx_73)" "(let-values(((who93_0) who_37))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_143)" +"(let-values(((phase_142)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_74))" -"(expand-context-phase ctx_74))))" +"(add1(expand-context-phase ctx_73))" +"(expand-context-phase ctx_73))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx94_1) ctx_74)" +"(let-values(((ctx94_0) ctx_73)" "((context95_0) context_23)" -"((phase96_0) phase_143)" +"((phase96_0) phase_142)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -58355,12 +58521,12 @@ static const char *startup_source = " #t" " track-to-be-defined?100_0" " #t" -" ctx94_1))))" +" ctx94_0))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_74)" -" phase_143)" +"(expand-context-namespace ctx_73)" +" phase_142)" "(values))))" "(let-values((()" "(begin" @@ -58376,15 +58542,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((input-s_1)" -"(let-values(((temp101_5)" -"(flip-introduction-scopes s_419 ctx_74))" +"(let-values(((temp101_4)" +"(flip-introduction-scopes s_419 ctx_73))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" " #f" " #f" " #f" -" temp101_5" +" temp101_4" " intdefs102_0))))" "(let-values((()" "(begin" @@ -58436,21 +58602,21 @@ static const char *startup_source = "(let-values(((input-s103_0) input-s_1)" "((local-ctx104_0) local-ctx_0)" "((context105_0) context_23)" -"((temp106_5) #f)" +"((temp106_4) #f)" "((temp107_2) #t)" "((lift-key108_0) lift-key_6)" -"((temp109_1) #t)" -"((temp110_6) #t))" -"(expand-transformer58.1" -" temp109_1" +"((temp109_0) #t)" +"((temp110_5) #t))" +"(expand-transformer92.1" +" temp109_0" " #t" " temp107_2" " #t" " context105_0" " #t" -" temp106_5" +" temp106_4" " #t" -" temp110_6" +" temp110_5" " #t" " lift-key108_0" " #t" @@ -58463,14 +58629,14 @@ static const char *startup_source = " local-ctx_0)" "((context113_0) context_23)" "((temp114_3) #f)" -"((temp115_3)" +"((temp115_2)" "(eq? 'top-level context_23))" "((lift-key116_0) lift-key_6)" "((temp117_2) #t))" -"(expand-transformer58.1" +"(expand-transformer92.1" " #f" " #f" -" temp115_3" +" temp115_2" " #t" " context113_0" " #t" @@ -58491,7 +58657,7 @@ static const char *startup_source = "((lift-key121_0)" " lift-key_6)" "((temp122_3) #t))" -"(expand/capture-lifts41.1" +"(expand/capture-lifts75.1" " temp122_3" " #t" " temp120_3" @@ -58506,7 +58672,9 @@ static const char *startup_source = "(let-values(((input-s123_0) input-s_1)" "((local-ctx124_0)" " local-ctx_0))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -58532,7 +58700,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_74))))" +" ctx_73))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -58562,10 +58730,10 @@ static const char *startup_source = "(define-values" "(1/syntax-arm)" "(let-values(((syntax-arm6_0)" -"(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" +"(lambda(s5_2 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_176) s5_3))" +"(let-values(((s_176) s5_2))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" @@ -58593,62 +58761,62 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_176" -"(lambda(s_496)(syntax-arm$1 s_496 insp_21))" +"(lambda(s_494)(syntax-arm$1 s_494 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_176 insp_21))))))))))))))))" "(case-lambda" "((s_177)(begin 'syntax-arm(syntax-arm6_0 s_177 #f #f #f #f)))" "((s_178 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_178 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_457 maybe-insp1_1)(syntax-arm6_0 s_457 maybe-insp1_1 #f #t #f)))))" +"((s_454 maybe-insp1_1)(syntax-arm6_0 s_454 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_497 maybe-insp_2)" +"(lambda(s_495 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_497)" +"(if(syntax?$1 s_495)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_495)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_357)(not maybe-insp_2)))" -"(if or-part_357 or-part_357(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_361)(not maybe-insp_2)))" +"(if or-part_361 or-part_361(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_497 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_495 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_456) s10_0))" +"(let-values(((s_453) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_456)" +"(if(syntax?$1 s_453)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_456)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_453)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_456" -"(lambda(s_498)(syntax-rearm$1 s_498 from-s_2))" +" s_453" +"(lambda(s_496)(syntax-rearm$1 s_496 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_456 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_453 from-s_2))))))))))))))" "(case-lambda" -"((s_454 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_454 from-s_3 #f #f)))" +"((s_451 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_451 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" @@ -58664,9 +58832,9 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_358) maybe-insp_3))" -"(if or-part_358" -" or-part_358" +"(let-values(((or-part_362) maybe-insp_3))" +"(if or-part_362" +" or-part_362" "(let-values(((or-part_94)(current-module-code-inspector)))" "(if or-part_94 or-part_94(current-code-inspector))))))))" "(define-values" @@ -59154,12 +59322,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_24)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_283)" "(lambda(i_26)" "(begin" " 'for-loop" "(if i_26" -"(let-values(((sym_100)" +"(let-values(((sym_99)" "(hash-iterate-key ht_24 i_26)))" "(let-values((()" "(let-values()" @@ -59168,15 +59336,15 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_100))" +" sym_99))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_284" +"(for-loop_283" "(hash-iterate-next ht_24 i_26))" "(values))))" "(values))))))" -" for-loop_284)" +" for-loop_283)" "(hash-iterate-first ht_24))))" "(values))))" "(let-values()" @@ -59186,12 +59354,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_160)))" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_271)" "(lambda(table_11 i_183)" "(begin" " 'for-loop" "(if i_183" -"(let-values(((sym_101 val_5)" +"(let-values(((sym_100 val_5)" "(hash-iterate-key+value" " ht_160" " i_183)))" @@ -59200,7 +59368,7 @@ static const char *startup_source = " table_11))" "(if(set-member?" " skip-syms_0" -" sym_101)" +" sym_100)" " table_221" "(let-values(((table_20)" " table_221))" @@ -59210,11 +59378,11 @@ static const char *startup_source = " val_83)" "(let-values()" "(values" -" sym_101" +" sym_100" "(let-values(((or-part_219)" "(hash-ref" " alts_0" -" sym_101" +" sym_100" " #f)))" "(if or-part_219" " or-part_219" @@ -59225,12 +59393,12 @@ static const char *startup_source = " val_83)))))" "(values table_222)))))))" "(if(not #f)" -"(for-loop_272" +"(for-loop_271" " table_220" "(hash-iterate-next ht_160 i_183))" " table_220)))" " table_11)))))" -" for-loop_272)" +" for-loop_271)" " '#hasheq()" "(hash-iterate-first ht_160))))))" "(let-values(((ht+extras_0)" @@ -59239,7 +59407,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_161)))" -"((letrec-values(((for-loop_285)" +"((letrec-values(((for-loop_284)" "(lambda(ht_162 i_184)" "(begin" " 'for-loop" @@ -59258,12 +59426,12 @@ static const char *startup_source = " v_50))))" "(values ht_163)))))" "(if(not #f)" -"(for-loop_285" +"(for-loop_284" " ht_16" "(hash-iterate-next ht_161 i_184))" " ht_16)))" " ht_162)))))" -" for-loop_285)" +" for-loop_284)" " ht_159" "(hash-iterate-first ht_161))))))" "(let-values(((to-name61_0) to-name_0)" @@ -59322,12 +59490,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_165)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_285)" "(lambda(table_223 i_185)" "(begin" " 'for-loop" "(if i_185" -"(let-values(((sym_102)" +"(let-values(((sym_101)" "(hash-iterate-key" " ht_165" " i_185)))" @@ -59344,7 +59512,7 @@ static const char *startup_source = "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_102))" +" sym_101))" "(void))" "(values))))" "(let-values(((binding_28)" @@ -59353,7 +59521,7 @@ static const char *startup_source = "((temp77_3)" " 0)" "((sym78_0)" -" sym_102))" +" sym_101))" "(make-module-binding22.1" " #f" " #f" @@ -59377,13 +59545,13 @@ static const char *startup_source = " temp77_3" " sym78_0))))" "(values" -" sym_102" -"(if(let-values(((or-part_359)" +" sym_101" +"(if(let-values(((or-part_363)" " protected?_11))" -"(if or-part_359" -" or-part_359" +"(if or-part_363" +" or-part_363" "(member" -" sym_102" +" sym_101" " protected-syms_0)))" "(provided1.1" " binding_28" @@ -59397,14 +59565,14 @@ static const char *startup_source = "(values" " table_226)))))" "(if(not #f)" -"(for-loop_286" +"(for-loop_285" " table_224" "(hash-iterate-next" " ht_165" " i_185))" " table_224)))" " table_223)))))" -" for-loop_286)" +" for-loop_285)" " '#hash()" "(hash-iterate-first ht_165))))))" "((temp75_3)" @@ -59429,7 +59597,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_186" -"(let-values(((sym_103 val_31)" +"(let-values(((sym_102 val_31)" "(hash-iterate-key+value" " ht_166" " i_186)))" @@ -59442,7 +59610,7 @@ static const char *startup_source = "(namespace-set-variable!" " ns_122" " 0" -" sym_103" +" sym_102" " val_31))" "(values)))))" "(values)))))" @@ -59553,7 +59721,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_111)))" -"((letrec-values(((for-loop_287)" +"((letrec-values(((for-loop_286)" "(lambda(table_227 lst_54)" "(begin" " 'for-loop" @@ -59570,7 +59738,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_287)" "(lambda(table_32)" "(begin" " 'for-loop" @@ -59592,13 +59760,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_167)))" -"((letrec-values(((for-loop_289)" +"((letrec-values(((for-loop_288)" "(lambda(table_148" " i_187)" "(begin" " 'for-loop" "(if i_187" -"(let-values(((sym_104" +"(let-values(((sym_103" " binding_29)" "(hash-iterate-key+value" " ht_167" @@ -59612,7 +59780,7 @@ static const char *startup_source = " val_85)" "(let-values()" "(values" -" sym_104" +" sym_103" " binding_29))))" "(hash-set" " table_163" @@ -59622,25 +59790,25 @@ static const char *startup_source = " table_35)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_288" " table_122" "(hash-iterate-next" " ht_167" " i_187))" " table_122)))" " table_148)))))" -" for-loop_289)" +" for-loop_288)" " table_32" "(hash-iterate-first" " ht_167))))))" " table_229))))))" -" for-loop_288)" +" for-loop_287)" " table_227)))))" "(if(not #f)" -"(for-loop_287 table_228 rest_178)" +"(for-loop_286 table_228 rest_178)" " table_228)))" " table_227)))))" -" for-loop_287)" +" for-loop_286)" " '#hash()" " lst_111))))" " '#hasheqv()))" @@ -59782,15 +59950,15 @@ static const char *startup_source = "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_499)" +"(lambda(s_497)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_499) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_499)))" -"(expand$1 s_499(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_496)(begin 'expand-once(expand-once$1(intro s_496)))))" +" (if (syntax?$1 s_497) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_497)))" +"(expand$1 s_497(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_494)(begin 'expand-once(expand-once$1(intro s_494)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_177)" @@ -59823,8 +59991,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_500)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_500 ns_68)))))))))" +"(let-values(((s_498)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_498 ns_68)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" "(define-values" "(main-primitives)" @@ -60120,8 +60288,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_302)(eof-object? exp_0)))" -"(if or-part_302 or-part_302(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_305)(eof-object? exp_0)))" +"(if or-part_305 or-part_305(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -60268,11 +60436,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_457)" +"(lambda(s_454)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_457) s_457))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_454) s_454))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_83)" @@ -60458,11 +60626,11 @@ static const char *startup_source = "(apply" " bytes-append" "(reverse$1" -"(let-values(((lst_316)(cdr expected-mod_1)))" +"(let-values(((lst_313)(cdr expected-mod_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_316)))" +"(let-values()(check-list lst_313)))" "((letrec-values(((for-loop_104)" "(lambda(fold-var_63 lst_92)" "(begin" @@ -60500,7 +60668,7 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_104)" " null" -" lst_316))))))))))" +" lst_313))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -60698,9 +60866,9 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_360) main-path-d_0))" -"(if or-part_360" -" or-part_360" +"(let-values(((or-part_364) main-path-d_0))" +"(if or-part_364" +" or-part_364" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" @@ -60711,10 +60879,10 @@ static const char *startup_source = "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" -"(lambda(t_46)" +"(lambda(t_58)" "(begin" " 'with-dir" -"(with-dir*_0 base_26 t_46)))))" +"(with-dir*_0 base_26 t_58)))))" "(let-values(((c1_34)" "(if try-main?_0" "(date>=?_0" @@ -60829,12 +60997,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_365)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_361" -" or-part_361" +"(if or-part_365" +" or-part_365" "(car expect-module_0)))" "(let-values()" "(let-values(((p_40)" @@ -60908,30 +61076,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_495 coll-mode?_0)" +"(lambda(s_493 coll-mode?_0)" "(begin" "(let-values(((l_20)" "((letrec-values(((loop_119)" -"(lambda(s_501)" +"(lambda(s_499)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_501)))" +"(let-values(((len_42)(string-length s_499)))" "((letrec-values(((iloop_2)" "(lambda(i_100)" "(begin" " 'iloop" "(if(= i_100 len_42)" -"(let-values()(list s_501))" -"(if(char=? '#\\/(string-ref s_501 i_100))" +"(let-values()(list s_499))" +"(if(char=? '#\\/(string-ref s_499 i_100))" "(let-values()" "(cons" -"(substring s_501 0 i_100)" -"(loop_119(substring s_501(add1 i_100)))))" +"(substring s_499 0 i_100)" +"(loop_119(substring s_499(add1 i_100)))))" "(let-values()(iloop_2(add1 i_100)))))))))" " iloop_2)" " 0))))))" " loop_119)" -" s_495)))" +" s_493)))" "(if coll-mode?_0" " l_20" "((letrec-values(((loop_103)" @@ -61023,18 +61191,18 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_502 relto_0 stx_18)" +"((s_500 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_502 relto_0 stx_18 #t)))" -"((s_503 relto_1 stx_19 load?_7)" +"(standard-module-name-resolver_0 s_500 relto_0 stx_18 #t)))" +"((s_501 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" -"(if(1/module-path? s_503)" +"(if(1/module-path? s_501)" "(void)" "(let-values()" "(if(syntax?$1 stx_19)" @@ -61042,7 +61210,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_503))))" +" s_501))))" "(values))))" "(let-values((()" "(begin" @@ -61105,24 +61273,24 @@ static const char *startup_source = " loop_120)" " null" " orig-l_10)))))" -"(if(if(pair? s_503)(eq?(car s_503) 'quote) #f)" -"(let-values()(1/make-resolved-module-path(cadr s_503)))" -"(if(if(pair? s_503)" -"(if(eq?(car s_503) 'submod)" -"(if(pair?(cadr s_503))(eq?(caadr s_503) 'quote) #f)" +"(if(if(pair? s_501)(eq?(car s_501) 'quote) #f)" +"(let-values()(1/make-resolved-module-path(cadr s_501)))" +"(if(if(pair? s_501)" +"(if(eq?(car s_501) 'submod)" +"(if(pair?(cadr s_501))(eq?(caadr s_501) 'quote) #f)" " #f)" " #f)" "(let-values()" -"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_503)(cddr s_503))))" -"(if(if(pair? s_503)" -"(if(eq?(car s_503) 'submod)" -" (if (let-values (((or-part_294) (equal? (cadr s_503) \".\")))" -" (if or-part_294 or-part_294 (equal? (cadr s_503) \"..\")))" +"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_501)(cddr s_501))))" +"(if(if(pair? s_501)" +"(if(eq?(car s_501) 'submod)" +" (if (let-values (((or-part_297) (equal? (cadr s_501) \".\")))" +" (if or-part_297 or-part_297 (equal? (cadr s_501) \"..\")))" "(if relto_1" "(let-values(((p_78)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_362)(symbol? p_78)))" -"(if or-part_362" -" or-part_362" +"(let-values(((or-part_366)(symbol? p_78)))" +"(if or-part_366" +" or-part_366" "(if(pair? p_78)(symbol?(car p_78)) #f))))" " #f)" " #f)" @@ -61134,34 +61302,34 @@ static const char *startup_source = "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" "(let-values(((r_46)" -" (if (equal? (cadr s_503) \"..\") (cdr s_503) (cddr s_503))))" +" (if (equal? (cadr s_501) \"..\") (cdr s_501) (cddr s_501))))" "(if(pair? rp_0)(append(cdr rp_0) r_46) r_46))))))" -"(if(if(pair? s_503)(eq?(car s_503) 'planet) #f)" +"(if(if(pair? s_501)(eq?(car s_501) 'planet) #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_503 relto_1 stx_19 load?_7 #f orig-paramz)))" -"(if(if(pair? s_503)" -"(if(eq?(car s_503) 'submod)" -"(if(pair?(cadr s_503))(eq?(caadr s_503) 'planet) #f)" +"(planet-resolver_0 s_501 relto_1 stx_19 load?_7 #f orig-paramz)))" +"(if(if(pair? s_501)" +"(if(eq?(car s_501) 'submod)" +"(if(pair?(cadr s_501))(eq?(caadr s_501) 'planet) #f)" " #f)" " #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" "(planet-resolver_0" -"(cadr s_503)" +"(cadr s_501)" " relto_1" " stx_19" " load?_7" -"(cddr s_503)" +"(cddr s_501)" " orig-paramz)))" "(let-values()" "(let-values(((get-dir_0)" "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_363)" +"(let-values(((or-part_367)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" @@ -61185,8 +61353,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_363" -" or-part_363" +"(if or-part_367" +" or-part_367" "(let-values(((or-part_43)" "(current-load-relative-directory)))" "(if or-part_43" @@ -61203,15 +61371,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_364)" +"(let-values(((or-part_368)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_364" -" or-part_364" +"(if or-part_368" +" or-part_368" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -61219,18 +61387,18 @@ static const char *startup_source = " msg_1" "(format" " \"\\n for module path: ~s\\n\"" -" s_503)))))" +" s_501)))))" "(raise" "(if stx_19" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" "(list stx_19)" -" s_503)" +" s_501)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" "(current-continuation-marks)" -" s_503)))))))" +" s_501)))))))" "((ss->rkt_0)" "(lambda(s_94)" "(begin" @@ -61263,10 +61431,10 @@ static const char *startup_source = " (path-replace-extension p_81 #\".rkt\")" " p_81)))))" "((s_92)" -"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" -"(let-values(((v_38)(cadr s_503)))" -" (if (let-values (((or-part_365) (equal? v_38 \".\")))" -" (if or-part_365 or-part_365 (equal? v_38 \"..\")))" +"(if(if(pair? s_501)(eq? 'submod(car s_501)) #f)" +"(let-values(((v_38)(cadr s_501)))" +" (if (let-values (((or-part_369) (equal? v_38 \".\")))" +" (if or-part_369 or-part_369 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_82)" "(1/resolved-module-path-name" @@ -61275,19 +61443,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_503))" +" s_501))" " v_38))" -" s_503))" +" s_501))" "((subm-path_0)" -"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" +"(if(if(pair? s_501)(eq? 'submod(car s_501)) #f)" "(let-values(((p_83)" "(if(if(let-values(((or-part_166)" "(equal?" -"(cadr s_503)" +"(cadr s_501)" " \".\")))" "(if or-part_166" " or-part_166" -" (equal? (cadr s_503) \"..\")))" +" (equal? (cadr s_501) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -61295,10 +61463,10 @@ static const char *startup_source = " relto_1))" "((r_27)" "(if(equal?" -"(cadr s_503)" +"(cadr s_501)" " \"..\")" -"(cdr s_503)" -"(cddr s_503))))" +"(cdr s_501)" +"(cddr s_501))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -61306,9 +61474,9 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_27)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_503) \"..\")" -"(cdr s_503)" -"(cddr s_503))))))" +" (if (equal? (cadr s_501) \"..\")" +"(cdr s_501)" +"(cddr s_501))))))" "(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" @@ -61338,11 +61506,11 @@ static const char *startup_source = "(if(string? s_92)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_366)" +"(let-values(((or-part_370)" "(path-cache-get" "(cons s_92 dir_4))))" -"(if or-part_366" -" or-part_366" +"(if or-part_370" +" or-part_370" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_92" @@ -61433,8 +61601,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_367)(path? s-parsed_0)))" -"(if or-part_367 or-part_367(vector? s-parsed_0)))" +"(if(let-values(((or-part_371)(path? s-parsed_0)))" +"(if or-part_371 or-part_371(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -61601,7 +61769,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_105)" +"(let-values(((sym_104)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -61612,16 +61780,16 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_105" +" sym_104" " subm-path_0))" -" sym_105))))))))))))))" +" sym_104))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_368)" +"(let-values(((or-part_372)" "(string? s_92)))" -"(if or-part_368" -" or-part_368" +"(if or-part_372" +" or-part_372" "(let-values(((or-part_52)" "(symbol? s_92)))" "(if or-part_52" @@ -61647,10 +61815,10 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_504)" +"(lambda(s_502)" "(begin" "(1/eval" -" s_504" +" s_502" "(1/current-namespace)" "(let-values(((c_116)(1/current-compile)))" "(lambda(e_90 ns_16)" @@ -61702,24 +61870,24 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_75)" +"(lambda(ctx_74)" "(begin" -"(let-values(((phase_45)(add1(expand-context-phase ctx_75))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_45)))" +"(let-values(((phase_45)(add1(expand-context-phase ctx_74))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_74) phase_45)))" "(namespace-visit-available-modules! ns_59 phase_45))))))" "(define-values" "(expand-body7.1)" -"(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_1)" +"(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_0)" "(begin" " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_76) ctx6_1))" +"(let-values(((ctx_75) ctx6_0))" "(let-values(((s_179) source1_0))" "(let-values(((stratified?_0)(if stratified?4_0 stratified?2_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_68)(expand-context-observer ctx_76)))" +"(let-values(((obs_68)(expand-context-observer ctx_75)))" "(if obs_68" "(let-values()" "(let-values()" @@ -61734,7 +61902,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_289)" "(lambda(fold-var_70 lst_103)" "(begin" " 'for-loop" @@ -61753,15 +61921,15 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_215)))))" "(if(not #f)" -"(for-loop_290 fold-var_11 rest_140)" +"(for-loop_289 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_290)" +" for-loop_289)" " null" " lst_265))))))" "(let-values((()" "(begin" -"(let-values(((obs_69)(expand-context-observer ctx_76)))" +"(let-values(((obs_69)(expand-context-observer ctx_75)))" "(if obs_69" "(let-values()" "(let-values()" @@ -61772,13 +61940,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_144)(expand-context-phase ctx_76)))" +"(let-values(((phase_143)(expand-context-phase ctx_75)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_257) ctx_76))" -"(let-values(((the-struct_87) v_257))" -"(if(expand-context/outer? the-struct_87)" +"(let-values(((v_257) ctx_75))" +"(let-values(((the-struct_88) v_257))" +"(if(expand-context/outer? the-struct_88)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -61786,13 +61954,13 @@ static const char *startup_source = "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" "((scopes57_0)" -"(cons inside-sc_0(expand-context-scopes ctx_76)))" +"(cons inside-sc_0(expand-context-scopes ctx_75)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_2)" "((reference-records60_0)" "(cons" " frame-id_2" -"(expand-context-reference-records ctx_76)))" +"(expand-context-reference-records ctx_75)))" "((inner61_0)(root-expand-context/outer-inner v_257)))" "(expand-context/outer1.1" " inner61_0" @@ -61800,30 +61968,30 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_87)" +"(expand-context/outer-env the-struct_88)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_87)" +"(expand-context/outer-binding-layer the-struct_88)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_87)" -"(expand-context/outer-current-introduction-scopes the-struct_87)" +"(expand-context/outer-need-eventually-defined the-struct_88)" +"(expand-context/outer-current-introduction-scopes the-struct_88)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_87))))))" +" the-struct_88))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_76))" +"(expand-context-binding-layer ctx_75))" "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_78)(expand-context-name ctx_76)))" +"(let-values(((name_78)(expand-context-name ctx_75)))" "((letrec-values(((loop_40)" "(lambda(body-ctx_2" " bodys_8" @@ -61870,14 +62038,14 @@ static const char *startup_source = "(let-values(((rest-bodys_0)(cdr bodys_8)))" "(let-values((()" "(begin" -"(let-values(((obs_70)" +"(let-values(((obs_3)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_70" +"(if obs_3" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_70" +" obs_3" " 'next)))" "(void)))" "(values))))" @@ -61890,10 +62058,10 @@ static const char *startup_source = " #f)" "(let-values(((v_231)" " body-ctx_2))" -"(let-values(((the-struct_88)" +"(let-values(((the-struct_89)" " v_231))" "(if(expand-context/outer?" -" the-struct_88)" +" the-struct_89)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" @@ -61902,38 +62070,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_88)" +" the-struct_89)" "(root-expand-context/outer-use-site-scopes" -" the-struct_88)" +" the-struct_89)" "(root-expand-context/outer-frame-id" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-context" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-env" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-scopes" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-def-ctx-scopes" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-binding-layer" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-reference-records" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-only-immediate?" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-need-eventually-defined" -" the-struct_88)" +" the-struct_89)" "(expand-context/outer-current-introduction-scopes" -" the-struct_88)" +" the-struct_89)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_88))))" +" the-struct_89))))" " body-ctx_2)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -61945,19 +62115,19 @@ static const char *startup_source = "(let-values(((tmp_62)" "(core-form-sym" " disarmed-exp-body_0" -" phase_144)))" +" phase_143)))" "(if(equal? tmp_62 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_71)" +"(let-values(((obs_70)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_71" +"(if obs_70" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_71" +" obs_70" " 'prim-begin)))" "(void)))" "(values))))" @@ -61968,24 +62138,24 @@ static const char *startup_source = " s_45))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_505)" +"(let-values(((s_426)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(pair?" -" s_505)" +" s_426)" "(let-values(((begin81_0)" -"(let-values(((s_502)" +"(let-values(((s_500)" "(car" -" s_505)))" -" s_502))" +" s_426)))" +" s_500))" "((e82_0)" "(let-values(((s_46)" "(cdr" -" s_505)))" -"(let-values(((s_429)" +" s_426)))" +"(let-values(((s_503)" "(if(syntax?$1" " s_46)" "(syntax-e$1" @@ -61993,7 +62163,7 @@ static const char *startup_source = " s_46)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_429)))" +" s_503)))" "(if(not" " flat-s_24)" "(let-values()" @@ -62052,14 +62222,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_12)" +"(let-values(((obs_71)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_12" +"(if obs_71" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_12" +" obs_71" " 'prim-define-values)))" "(void)))" "(values))))" @@ -62067,40 +62237,40 @@ static const char *startup_source = " define-values83_0" " id84_0" " rhs85_0)" -"(let-values(((s_506)" +"(let-values(((s_504)" " disarmed-exp-body_0))" "(let-values(((orig-s_39)" -" s_506))" +" s_504))" "(let-values(((define-values83_1" " id84_1" " rhs85_1)" "(let-values(((s_94)" "(if(syntax?$1" +" s_504)" +"(syntax-e$1" +" s_504)" +" s_504)))" +"(if(pair?" +" s_94)" +"(let-values(((define-values86_0)" +"(let-values(((s_505)" +"(car" +" s_94)))" +" s_505))" +"((id87_0" +" rhs88_0)" +"(let-values(((s_506)" +"(cdr" +" s_94)))" +"(let-values(((s_52)" +"(if(syntax?$1" " s_506)" "(syntax-e$1" " s_506)" " s_506)))" "(if(pair?" -" s_94)" -"(let-values(((define-values86_0)" -"(let-values(((s_432)" -"(car" -" s_94)))" -" s_432))" -"((id87_0" -" rhs88_0)" -"(let-values(((s_507)" -"(cdr" -" s_94)))" -"(let-values(((s_52)" -"(if(syntax?$1" -" s_507)" -"(syntax-e$1" -" s_507)" -" s_507)))" -"(if(pair?" " s_52)" -"(let-values(((id89_1)" +"(let-values(((id89_0)" "(let-values(((s_53)" "(car" " s_52)))" @@ -62121,8 +62291,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))" "(let-values()" -"(let-values(((id_106)" -"(let-values(((lst_317)" +"(let-values(((id_105)" +"(let-values(((lst_314)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62130,24 +62300,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" -"((letrec-values(((for-loop_291)" +" lst_314)))" +"((letrec-values(((for-loop_290)" "(lambda(id_17" -" lst_295)" +" lst_292)" "(begin" " 'for-loop" "(if(pair?" -" lst_295)" +" lst_292)" "(let-values(((s_318)" "(unsafe-car" -" lst_295))" +" lst_292))" "((rest_179)" "(unsafe-cdr" -" lst_295)))" -"(let-values(((id_107)" -"(let-values(((id_85)" +" lst_292)))" +"(let-values(((id_106)" +"(let-values(((id_83)" " id_17))" -"(let-values(((id_108)" +"(let-values(((id_107)" "(let-values()" "(let-values(((id92_1)" "(let-values()" @@ -62170,48 +62340,48 @@ static const char *startup_source = " s_318)))))" "(cons" " id92_1" -" id_85)))))" +" id_83)))))" "(values" -" id_108)))))" +" id_107)))))" "(if(not" " #f)" -"(for-loop_291" -" id_107" +"(for-loop_290" +" id_106" " rest_179)" -" id_107)))" +" id_106)))" " id_17)))))" -" for-loop_291)" +" for-loop_290)" " null" -" lst_317)))))" +" lst_314)))))" "(reverse$1" -" id_106))))))))" +" id_105))))))))" "((rhs90_0)" -"(let-values(((s_508)" +"(let-values(((s_507)" "(cdr" " s_52)))" -"(let-values(((s_509)" +"(let-values(((s_508)" "(if(syntax?$1" -" s_508)" +" s_507)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_507)" +" s_507)))" "(if(pair?" -" s_509)" +" s_508)" "(let-values(((rhs91_0)" "(let-values(((s_33)" "(car" -" s_509)))" +" s_508)))" " s_33))" "(()" -"(let-values(((s_461)" +"(let-values(((s_458)" "(cdr" -" s_509)))" +" s_508)))" "(let-values(((s_320)" "(if(syntax?$1" -" s_461)" +" s_458)" "(syntax-e$1" -" s_461)" -" s_461)))" +" s_458)" +" s_458)))" "(if(null?" " s_320)" "(values)" @@ -62226,7 +62396,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))))))" "(values" -" id89_1" +" id89_0" " rhs90_0))" "(raise-syntax-error$1" " #f" @@ -62271,7 +62441,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_29)" "((phase94_1)" -" phase_144)" +" phase_143)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -62286,10 +62456,10 @@ static const char *startup_source = " #t))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_76)))" +" ctx_75)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_299)" +"(let-values(((lst_296)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62297,20 +62467,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_299)))" +" lst_296)))" "((letrec-values(((for-loop_81)" "(lambda(fold-var_37" -" lst_300)" +" lst_297)" "(begin" " 'for-loop" "(if(pair?" -" lst_300)" -"(let-values(((id_109)" +" lst_297)" +"(let-values(((id_108)" "(unsafe-car" -" lst_300))" +" lst_297))" "((rest_165)" "(unsafe-cdr" -" lst_300)))" +" lst_297)))" "(let-values(((fold-var_254)" "(let-values(((fold-var_255)" " fold-var_37))" @@ -62319,9 +62489,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id97_1)" -" id_109)" +" id_108)" "((phase98_0)" -" phase_144)" +" phase_143)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -62348,9 +62518,9 @@ static const char *startup_source = " fold-var_37)))))" " for-loop_81)" " null" -" lst_299))))))" +" lst_296))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_318)" +"(let-values(((lst_315)" " keys_5)" "((lst_229)" " ids_29))" @@ -62360,14 +62530,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_318)))" +" lst_315)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_229)))" -"((letrec-values(((for-loop_282)" +"((letrec-values(((for-loop_281)" "(lambda(env_17" " lst_28" " lst_197)" @@ -62384,7 +62554,7 @@ static const char *startup_source = "((rest_180)" "(unsafe-cdr" " lst_28))" -"((id_66)" +"((id_109)" "(unsafe-car" " lst_197))" "((rest_11)" @@ -62399,29 +62569,29 @@ static const char *startup_source = " env_19" " key_90" "(local-variable1.1" -" id_66)))))" +" id_109)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_281" " env_18" " rest_180" " rest_11)" " env_18)))" " env_17)))))" -" for-loop_282)" +" for-loop_281)" "(expand-context-env" " body-ctx_2)" -" lst_318" +" lst_315" " lst_229)))))" "(loop_40" "(let-values(((v_104)" " body-ctx_2))" -"(let-values(((the-struct_89)" +"(let-values(((the-struct_90)" " v_104))" "(if(expand-context/outer?" -" the-struct_89)" +" the-struct_90)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -62434,35 +62604,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_89)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_89)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_89)" +" the-struct_90)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_89)" +" the-struct_90)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_89)" +" the-struct_90)" "(expand-context/outer-name" -" the-struct_89)))" +" the-struct_90)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))" +" the-struct_90))))" " rest-bodys_0" " null" "(cons" @@ -62480,17 +62650,17 @@ static const char *startup_source = " lst_152)))" "((letrec-values(((for-loop_184)" "(lambda(fold-var_294" -" lst_319)" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_319)" +" lst_316)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_319))" +" lst_316))" "((rest_181)" "(unsafe-cdr" -" lst_319)))" +" lst_316)))" "(let-values(((fold-var_295)" "(let-values(((fold-var_296)" " fold-var_294))" @@ -62517,7 +62687,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_315)" +"(let-values(((lst_312)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62525,20 +62695,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_315)))" -"((letrec-values(((for-loop_292)" +" lst_312)))" +"((letrec-values(((for-loop_291)" "(lambda(fold-var_298" -" lst_320)" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_317)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_320))" +" lst_317))" "((rest_182)" "(unsafe-cdr" -" lst_320)))" +" lst_317)))" "(let-values(((fold-var_299)" "(let-values(((fold-var_300)" " fold-var_298))" @@ -62552,14 +62722,14 @@ static const char *startup_source = " fold-var_301)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_291" " fold-var_299" " rest_182)" " fold-var_299)))" " fold-var_298)))))" -" for-loop_292)" +" for-loop_291)" " null" -" lst_315))))" +" lst_312))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -62576,17 +62746,17 @@ static const char *startup_source = " lst_74)))" "((letrec-values(((for-loop_124)" "(lambda(fold-var_302" -" lst_321)" +" lst_318)" "(begin" " 'for-loop" "(if(pair?" -" lst_321)" +" lst_318)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_321))" +" lst_318))" "((rest_183)" "(unsafe-cdr" -" lst_321)))" +" lst_318)))" "(let-values(((fold-var_142)" "(let-values(((fold-var_303)" " fold-var_302))" @@ -62597,7 +62767,7 @@ static const char *startup_source = "(no-binds" " done-body_2" " s_179" -" phase_144))" +" phase_143))" " fold-var_303))))" "(values" " fold-var_304)))))" @@ -62616,7 +62786,7 @@ static const char *startup_source = " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_322)" +"(let-values(((lst_319)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62624,8 +62794,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_322)))" -"((letrec-values(((for-loop_293)" +" lst_319)))" +"((letrec-values(((for-loop_292)" "(lambda(fold-var_305" " lst_202)" "(begin" @@ -62651,14 +62821,14 @@ static const char *startup_source = " fold-var_306)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_292" " fold-var_146" " rest_184)" " fold-var_146)))" " fold-var_305)))))" -" for-loop_293)" +" for-loop_292)" " null" -" lst_322))))" +" lst_319))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -62689,24 +62859,24 @@ static const char *startup_source = "(let-values(((define-syntaxes105_1" " id106_2" " rhs107_1)" -"(let-values(((s_433)" +"(let-values(((s_509)" "(if(syntax?$1" " s_102)" "(syntax-e$1" " s_102)" " s_102)))" "(if(pair?" -" s_433)" +" s_509)" "(let-values(((define-syntaxes108_0)" "(let-values(((s_211)" "(car" -" s_433)))" +" s_509)))" " s_211))" "((id109_0" " rhs110_0)" "(let-values(((s_510)" "(cdr" -" s_433)))" +" s_509)))" "(let-values(((s_511)" "(if(syntax?$1" " s_510)" @@ -62737,7 +62907,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_110)" -"(let-values(((lst_323)" +"(let-values(((lst_320)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62745,20 +62915,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_323)))" -"((letrec-values(((for-loop_294)" +" lst_320)))" +"((letrec-values(((for-loop_293)" "(lambda(id_111" -" lst_324)" +" lst_321)" "(begin" " 'for-loop" "(if(pair?" -" lst_324)" +" lst_321)" "(let-values(((s_514)" "(unsafe-car" -" lst_324))" +" lst_321))" "((rest_185)" "(unsafe-cdr" -" lst_324)))" +" lst_321)))" "(let-values(((id_112)" "(let-values(((id_113)" " id_111))" @@ -62766,15 +62936,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_369)" +"(if(let-values(((or-part_373)" "(if(syntax?$1" " s_514)" "(symbol?" "(syntax-e$1" " s_514))" " #f)))" -"(if or-part_369" -" or-part_369" +"(if or-part_373" +" or-part_373" "(symbol?" " s_514)))" " s_514" @@ -62790,14 +62960,14 @@ static const char *startup_source = " id_114)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_293" " id_112" " rest_185)" " id_112)))" " id_111)))))" -" for-loop_294)" +" for-loop_293)" " null" -" lst_323)))))" +" lst_320)))))" "(reverse$1" " id_110))))))))" "((rhs112_0)" @@ -62886,7 +63056,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_30)" "((phase116_0)" -" phase_144)" +" phase_143)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62901,10 +63071,10 @@ static const char *startup_source = " #t))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_76)))" +" ctx_75)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_325)" +"(let-values(((lst_322)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62912,8 +63082,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" -"((letrec-values(((for-loop_295)" +" lst_322)))" +"((letrec-values(((for-loop_294)" "(lambda(fold-var_307" " lst_44)" "(begin" @@ -62936,7 +63106,7 @@ static const char *startup_source = "(let-values(((id119_0)" " id_115)" "((phase120_0)" -" phase_144)" +" phase_143)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62956,14 +63126,14 @@ static const char *startup_source = " fold-var_310)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_294" " fold-var_308" " rest_186)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_295)" +" for-loop_294)" " null" -" lst_325))))))" +" lst_322))))))" "(let-values((()" "(begin" "(let-values(((obs_75)" @@ -62980,7 +63150,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_76)" +" ctx_75)" "(values))))" "(let-values((()" "(begin" @@ -63002,11 +63172,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_326)" +"(let-values(((lst_323)" " keys_6)" -"((lst_327)" +"((lst_324)" " vals_8)" -"((lst_328)" +"((lst_325)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63014,32 +63184,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_326)))" +" lst_323)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_327)))" +" lst_324)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_328)))" -"((letrec-values(((for-loop_296)" +" lst_325)))" +"((letrec-values(((for-loop_295)" "(lambda(env_21" " lst_36" -" lst_329" -" lst_330)" +" lst_326" +" lst_327)" "(begin" " 'for-loop" "(if(if(pair?" " lst_36)" "(if(pair?" -" lst_329)" +" lst_326)" "(pair?" -" lst_330)" +" lst_327)" " #f)" " #f)" "(let-values(((key_91)" @@ -63050,16 +63220,16 @@ static const char *startup_source = " lst_36))" "((val_40)" "(unsafe-car" -" lst_329))" +" lst_326))" "((rest_188)" "(unsafe-cdr" -" lst_329))" +" lst_326))" "((id_116)" "(unsafe-car" -" lst_330))" +" lst_327))" "((rest_189)" "(unsafe-cdr" -" lst_330)))" +" lst_327)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -63069,7 +63239,7 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_40" " id_116" -" phase_144" +" phase_143" " body-ctx_2)" "(env-extend" " env_23" @@ -63079,19 +63249,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_295" " env_22" " rest_187" " rest_188" " rest_189)" " env_22)))" " env_21)))))" -" for-loop_296)" +" for-loop_295)" "(expand-context-env" " body-ctx_2)" -" lst_326" -" lst_327" -" lst_328)))))" +" lst_323" +" lst_324" +" lst_325)))))" "(begin" "(let-values(((obs_40)" "(expand-context-observer" @@ -63106,10 +63276,10 @@ static const char *startup_source = "(loop_40" "(let-values(((v_258)" " body-ctx_2))" -"(let-values(((the-struct_90)" +"(let-values(((the-struct_91)" " v_258))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_91)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -63122,35 +63292,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_91)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_91)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_90)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_91))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -63194,7 +63364,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_144)" +" phase_143)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -63274,8 +63444,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_91) v_259))" -"(if(expand-context/outer? the-struct_91)" +"(let-values(((the-struct_92) v_259))" +"(if(expand-context/outer? the-struct_92)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -63293,24 +63463,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_91)" +"(root-expand-context/outer-frame-id the-struct_92)" " context127_0" -"(expand-context/outer-env the-struct_91)" +"(expand-context/outer-env the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_92)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_91)" -"(expand-context/outer-reference-records the-struct_91)" +"(expand-context/outer-binding-layer the-struct_92)" +"(expand-context/outer-reference-records the-struct_92)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_91)" +"(expand-context/outer-need-eventually-defined the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" -"(expand-context/outer-name the-struct_91)))" +" the-struct_92)" +"(expand-context/outer-name the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_92))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -63351,35 +63521,35 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_331) done-bodys_1)" +"(let-values(((lst_328) done-bodys_1)" "((start_65) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_331)))" +"(check-list lst_328)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_65)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_296)" "(lambda(fold-var_311" -" lst_332" +" lst_329" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_332)" +" lst_329)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_332))" +" lst_329))" "((rest_190)" "(unsafe-cdr" -" lst_332))" +" lst_329))" "((i_192)" " pos_127))" "(let-values(((fold-var_264)" @@ -63410,50 +63580,52 @@ static const char *startup_source = " #f)" "(let-values(((v_260)" " finish-ctx_0))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_93)" " v_260))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_93)" "(let-values(((name136_0)" " name_79)" -"((inner137_1)" +"((inner137_0)" "(root-expand-context/outer-inner" " v_260)))" "(expand-context/outer1.1" -" inner137_1" +" inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-binding-layer" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_93)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_93))))" " finish-ctx_0)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -63465,7 +63637,7 @@ static const char *startup_source = " fold-var_266)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_296" " fold-var_264" " rest_190" "(+" @@ -63473,9 +63645,9 @@ static const char *startup_source = " 1))" " fold-var_264)))" " fold-var_311)))))" -" for-loop_297)" +" for-loop_296)" " null" -" lst_331" +" lst_328" " start_65))))))" "(begin" "(let-values(((obs_80)" @@ -63581,13 +63753,13 @@ static const char *startup_source = "(let-values(((track-stxs_2) track-stxs47_0))" "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_77) ctx32_0))" +"(let-values(((ctx_76) ctx32_0))" "(let-values(((s_369) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_145)(expand-context-phase ctx_77)))" +"(let-values(((phase_144)(expand-context-phase ctx_76)))" "((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" @@ -63609,7 +63781,7 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_77)" +"(if(expand-context-to-parsed? ctx_76)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" "(keep-properties-only s_369)" @@ -63627,15 +63799,15 @@ static const char *startup_source = " exp-body_1))" "(let-values(((track?149_0) track?_2)" "((s150_0) s_369)" -"((temp151_2)" +"((temp151_3)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_145)" +" phase_144)" "(core-id" " 'letrec-values" -" phase_145))" +" phase_144))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -63645,14 +63817,14 @@ static const char *startup_source = " track?149_0" " #t" " s150_0" -" temp151_2)))))" +" temp151_3)))))" "(begin" "(let-values(((obs_84)" -"(expand-context-observer ctx_77)))" +"(expand-context-observer ctx_76)))" "(if obs_84" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_77)" +"(log-tag? had-stxes?_0 ctx_76)" " #f)" "(let-values()" "(call-expand-observe" @@ -63667,7 +63839,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_85)" "(expand-context-observer" -" ctx_77)))" +" ctx_76)))" "(if obs_85" "(let-values()" "(let-values()" @@ -63676,17 +63848,19 @@ static const char *startup_source = "(values))))" "(let-values(((ids_31)(car idss_2)))" "(let-values(((expanded-rhs_0)" -"(let-values(((temp152_1)(car rhss_2))" +"(let-values(((temp152_2)(car rhss_2))" "((temp153_1)" "(as-named-context" -" ctx_77" +" ctx_76" " ids_31)))" -"(expand7.1" +"(expand9.1" " #f" " #f" " #f" " #f" -" temp152_1" +" #f" +" #f" +" temp152_2" " temp153_1))))" "(let-values(((track-stx_0)(car track-stxs_3)))" "(let-values(((local-or-forward-references?_0)" @@ -63728,7 +63902,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_77)" +" ctx_76)" "(parsed-let-values17.1" "(keep-properties-only" " s_369)" @@ -63740,13 +63914,13 @@ static const char *startup_source = " exp-rest_0)" "(let-values(((track?154_0)" " track?_2)" -"((s155_0)" +"((s155_1)" " s_369)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_145)" +" phase_144)" "(list" "(build-clause" " ids_31" @@ -63756,22 +63930,22 @@ static const char *startup_source = "(rebuild5.1" " track?154_0" " #t" -" s155_0" +" s155_1" " temp156_0)))))" "(begin" -"(let-values(((obs_28)" +"(let-values(((obs_86)" "(expand-context-observer" -" ctx_77)))" -"(if obs_28" +" ctx_76)))" +"(if obs_86" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_77)" +" ctx_76)" " #f)" "(let-values()" "(call-expand-observe" -" obs_28" +" obs_86" " 'tag" " result-s_10))" "(void)))" @@ -63780,9 +63954,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_370) split?_0))" -"(if or-part_370" -" or-part_370" +"(let-values(((or-part_374) split?_0))" +"(if or-part_374" +" or-part_374" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63801,7 +63975,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_77)" +" ctx_76)" "(parsed-letrec-values18.1" "(keep-properties-only" " s_369)" @@ -63821,13 +63995,13 @@ static const char *startup_source = " exp-rest_1)" "(let-values(((track?157_0)" " track?_2)" -"((s158_1)" +"((s158_0)" " s_369)" "((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_145)" +" phase_144)" "(build-clauses" "(cons" " ids_31" @@ -63842,22 +64016,22 @@ static const char *startup_source = "(rebuild5.1" " track?157_0" " #t" -" s158_1" +" s158_0" " temp159_1)))))" "(begin" -"(let-values(((obs_86)" +"(let-values(((obs_87)" "(expand-context-observer" -" ctx_77)))" -"(if obs_86" +" ctx_76)))" +"(if obs_87" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_77)" +" ctx_76)" " #f)" "(let-values()" "(call-expand-observe" -" obs_86" +" obs_87" " 'tag" " result-s_11))" "(void)))" @@ -63902,46 +64076,46 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_437 phase_146)" +"(lambda(expr_10 s_518 phase_145)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_146)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" "(datum->syntax$1" -"(core-id '#%app phase_146)" -"(list(core-id 'begin phase_146) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_437)))))" +"(core-id '#%app phase_145)" +"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_518)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" +"(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_87 ctx_79 s_518 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_88 ctx_78 s_519 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_147)(expand-context-phase ctx_79)))" +"(let-values(((phase_146)(expand-context-phase ctx_78)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_124) val-idss_2)((lst_333) val-rhss_2)((lst_334) track-stxs_4))" +"(let-values(((lst_124) val-idss_2)((lst_330) val-rhss_2)((lst_331) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_124)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_333)))" +"(let-values()(check-list lst_330)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_334)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_312 lst_335 lst_336 lst_337)" +"(let-values()(check-list lst_331)))" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_312 lst_332 lst_333 lst_334)" "(begin" " 'for-loop" -"(if(if(pair? lst_335)(if(pair? lst_336)(pair? lst_337) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_335))" -"((rest_191)(unsafe-cdr lst_335))" -"((val-rhs_0)(unsafe-car lst_336))" -"((rest_192)(unsafe-cdr lst_336))" -"((track-stx_2)(unsafe-car lst_337))" -"((rest_193)(unsafe-cdr lst_337)))" +"(if(if(pair? lst_332)(if(pair? lst_333)(pair? lst_334) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_332))" +"((rest_191)(unsafe-cdr lst_332))" +"((val-rhs_0)(unsafe-car lst_333))" +"((rest_192)(unsafe-cdr lst_333))" +"((track-stx_2)(unsafe-car lst_334))" +"((rest_193)(unsafe-cdr lst_334)))" "(let-values(((fold-var_313)" "(let-values(((fold-var_314) fold-var_312))" "(let-values(((fold-var_315)" @@ -63955,74 +64129,74 @@ static const char *startup_source = " fold-var_314))))" "(values fold-var_315)))))" "(if(not #f)" -"(for-loop_298 fold-var_313 rest_191 rest_192 rest_193)" +"(for-loop_297 fold-var_313 rest_191 rest_192 rest_193)" " fold-var_313)))" " fold-var_312)))))" -" for-loop_298)" +" for-loop_297)" " null" " lst_124" -" lst_333" -" lst_334))))))" +" lst_330" +" lst_331))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" -"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_147)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_146)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_518)))" +" s_519)))" "(begin" -"(call-expand-observe obs_87 'block->letrec(list lv-s_0))" -"(call-expand-observe obs_87 'visit lv-s_0)" -"(call-expand-observe obs_87 'resolve lv-id_0)" -"(call-expand-observe obs_87 'enter-prim lv-s_0)" +"(call-expand-observe obs_88 'block->letrec(list lv-s_0))" +"(call-expand-observe obs_88 'visit lv-s_0)" +"(call-expand-observe obs_88 'resolve lv-id_0)" +"(call-expand-observe obs_88 'enter-prim lv-s_0)" "(if had-stxes?_2" "(let-values()" "(begin" -"(call-expand-observe obs_87 'prim-letrec-syntaxes+values)" +"(call-expand-observe obs_88 'prim-letrec-syntaxes+values)" "(call-expand-observe" -" obs_87" +" obs_88" " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_518))" -"(call-expand-observe obs_87 'prepare-env)" -"(call-expand-observe obs_87 'next-group)" +"(datum->syntax$1 #f done-bodys_2 s_519))" +"(call-expand-observe obs_88 'prepare-env)" +"(call-expand-observe obs_88 'next-group)" "(if(null? val-idss_2)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_87 'prim-letrec-values)" +"(call-expand-observe obs_88 'prim-letrec-values)" "(call-expand-observe" -" obs_87" +" obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_518)))))))" +"(datum->syntax$1 #f done-bodys_2 s_519)))))))" "(let-values()" "(begin" -"(call-expand-observe obs_87 'prim-letrec-values)" +"(call-expand-observe obs_88 'prim-letrec-values)" "(call-expand-observe" -" obs_87" +" obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_518))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_519))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" +"(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_148)(expand-context-phase ctx_80)))" +"(let-values(((phase_147)(expand-context-phase ctx_79)))" "(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_33)" -"((phase35_2) phase_148)" +"((phase35_2) phase_147)" "((s36_0) s_73)" " ((temp37_5) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_5 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_80)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_79)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_87) ids_33))" @@ -64030,7 +64204,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_299)" +"((letrec-values(((for-loop_298)" "(lambda(fold-var_316 lst_266)" "(begin" " 'for-loop" @@ -64043,10 +64217,10 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((id38_0)" +"(let-values(((id38_1)" " id_117)" "((phase39_1)" -" phase_148)" +" phase_147)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -64056,16 +64230,16 @@ static const char *startup_source = " #f" " s41_0" " #t" -" id38_0" +" id38_1" " phase39_1" " counter40_0)))" " fold-var_34))))" "(values fold-var_157)))))" "(if(not #f)" -"(for-loop_299 fold-var_33 rest_194)" +"(for-loop_298 fold-var_33 rest_194)" " fold-var_33)))" " fold-var_316)))))" -" for-loop_299)" +" for-loop_298)" " null" " lst_87))))))" "(let-values(((body-env_0)" @@ -64101,7 +64275,7 @@ static const char *startup_source = " env_26)))" " env_25)))))" " for-loop_48)" -"(expand-context-env ctx_80)" +"(expand-context-env ctx_79)" " lst_80" " lst_90)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" @@ -64140,74 +64314,74 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_80)))" -"(if obs_88" +"(let-values(((obs_89)(expand-context-observer ctx_79)))" +"(if obs_89" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_88" +" obs_89" " log-renames-tag_0" " sc-formals_0" "(datum->syntax$1 #f sc-bodys_0))))" "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_261) ctx_80))" -"(let-values(((the-struct_93) v_261))" -"(if(expand-context/outer? the-struct_93)" +"(let-values(((v_261) ctx_79))" +"(let-values(((the-struct_94) v_261))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((env42_0) body-env_0)" -"((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" +"((scopes43_1)(cons sc_35(expand-context-scopes ctx_79)))" "((binding-layer44_0)" -"(increment-binding-layer ids_33 ctx_80 sc_35))" +"(increment-binding-layer ids_33 ctx_79 sc_35))" "((frame-id45_0) #f)" "((inner46_0)(root-expand-context/outer-inner v_261)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_93)" -"(root-expand-context/outer-use-site-scopes the-struct_93)" +"(root-expand-context/outer-post-expansion-scope the-struct_94)" +"(root-expand-context/outer-use-site-scopes the-struct_94)" " frame-id45_0" -"(expand-context/outer-context the-struct_93)" +"(expand-context/outer-context the-struct_94)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_93)" +"(expand-context/outer-post-expansion-scope-action the-struct_94)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_93)" +"(expand-context/outer-def-ctx-scopes the-struct_94)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_93)" -"(expand-context/outer-only-immediate? the-struct_93)" -"(expand-context/outer-need-eventually-defined the-struct_93)" -"(expand-context/outer-current-introduction-scopes the-struct_93)" -"(expand-context/outer-name the-struct_93)))" +"(expand-context/outer-reference-records the-struct_94)" +"(expand-context/outer-only-immediate? the-struct_94)" +"(expand-context/outer-need-eventually-defined the-struct_94)" +"(expand-context/outer-current-introduction-scopes the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_94))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" "((temp49_3)" -"(let-values(((ctx50_0) ctx_80)((s51_2) s_73)((temp52_5) #t))" -"(keep-as-needed86.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" +"(let-values(((ctx50_1) ctx_79)((s51_2) s_73)((temp52_5) #t))" +"(keep-as-needed120.1 #f #f temp52_5 #t #f #f ctx50_1 s51_2))))" "(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" -"(if(expand-context-to-parsed? ctx_80)" +"(if(expand-context-to-parsed? ctx_79)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_81)" +"(lambda(s_13 ctx_80)" "(let-values((()" "(begin" -"(let-values(((obs_7)(expand-context-observer ctx_81)))" -"(if obs_7(let-values()(let-values()(call-expand-observe obs_7 'prim-lambda)))(void)))" +"(let-values(((obs_90)(expand-context-observer ctx_80)))" +"(if obs_90(let-values()(let-values()(call-expand-observe obs_90 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_36 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_519) disarmed-s_6))" -"(let-values(((orig-s_41) s_519))" +"(let-values(((s_520) disarmed-s_6))" +"(let-values(((orig-s_41) s_520))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_172)(if(syntax?$1 s_519)(syntax-e$1 s_519) s_519)))" +"(let-values(((s_172)(if(syntax?$1 s_520)(syntax-e$1 s_520) s_520)))" "(if(pair? s_172)" "(let-values(((lambda56_0)(let-values(((s_45)(car s_172))) s_45))" "((formals57_0 body58_0)" @@ -64222,13 +64396,13 @@ static const char *startup_source = " s_174))" "((body60_0)" "(let-values(((s_175)(cdr s_82)))" -"(let-values(((s_502)" +"(let-values(((s_500)" "(if(syntax?$1 s_175)" "(syntax-e$1 s_175)" " s_175)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_502)))" +" s_500)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -64249,11 +64423,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx61_0) ctx_81)((s62_0) s_13)((temp63_5) #t))" -"(keep-as-needed86.1 #f #f #f #f temp63_5 #t ctx61_0 s62_0))))" +"(let-values(((ctx61_0) ctx_80)((s62_0) s_13)((temp63_5) #t))" +"(keep-as-needed120.1 #f #f #f #f temp63_5 #t ctx61_0 s62_0))))" "(let-values(((formals_2 body_13)" -"(lambda-clause-expander s_13 disarmed-s_6 formals54_0 body55_0 ctx_81 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_81)" +"(lambda-clause-expander s_13 disarmed-s_6 formals54_0 body55_0 ctx_80 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_80)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" "(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_5)(list* lambda53_0 formals_2 body_13)))" "(rebuild5.1 #f #f rebuild-s64_0 temp65_5)))))))))))" @@ -64262,16 +64436,16 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_37 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_506) s_26))" -"(let-values(((orig-s_39) s_506))" +"(let-values(((s_504) s_26))" +"(let-values(((orig-s_39) s_504))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_94)(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" +"(let-values(((s_94)(if(syntax?$1 s_504)(syntax-e$1 s_504) s_504)))" "(if(pair? s_94)" -"(let-values(((lam-id69_0)(let-values(((s_432)(car s_94))) s_432))" +"(let-values(((lam-id69_0)(let-values(((s_505)(car s_94))) s_505))" "((formals70_0 _71_1)" -"(let-values(((s_507)(cdr s_94)))" +"(let-values(((s_506)(cdr s_94)))" "(let-values(((s_52)" -"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" +"(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" "(if(pair? s_52)" "(let-values(((formals72_0)" "(let-values(((s_53)(car s_52))) s_53))" @@ -64302,57 +64476,57 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_39)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" "(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_26)))" -"(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" -"(let-values(((phase_149)(if ctx_82(expand-context-phase ctx_82) 0)))" +"(let-values(((ctx_81)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" +"(let-values(((phase_148)(if ctx_81(expand-context-phase ctx_81) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_149) ((s76_2) s_26) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_148) ((s76_2) s_26) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" " s_26" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_149) 'lambda lam-id66_0 lam-id66_0)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'lambda lam-id66_0 lam-id66_0)" "(cdr(syntax-e$1 s_26)))" " s_26" " s_26)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_520 ctx_83)" +"(lambda(s_521 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_89)(expand-context-observer ctx_83)))" -"(if obs_89" -"(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" +"(let-values(((obs_91)(expand-context-observer ctx_82)))" +"(if obs_91" +"(let-values()(let-values()(call-expand-observe obs_91 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_520)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_521)))" "(let-values(((ok?_1 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_521) disarmed-s_7))" -"(let-values(((orig-s_42) s_521))" +"(let-values(((s_522) disarmed-s_7))" +"(let-values(((orig-s_42) s_522))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_448)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" -"(if(pair? s_448)" -"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_448))) s_37))" +"(let-values(((s_444)(if(syntax?$1 s_522)(syntax-e$1 s_522) s_522)))" +"(if(pair? s_444)" +"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_444))) s_37))" "((formals83_0 body84_0)" -"(let-values(((s_65)(cdr s_448)))" -"(let-values(((s_522)" +"(let-values(((s_65)(cdr s_444)))" +"(let-values(((s_523)" "(if(syntax?$1 s_65)" "(syntax-e$1 s_65)" " s_65)))" -"(let-values(((flat-s_29)(to-syntax-list.1 s_522)))" +"(let-values(((flat-s_29)(to-syntax-list.1 s_523)))" "(if(not flat-s_29)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_315) flat-s_29))" +"(let-values(((lst_312) flat-s_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_315)))" -"((letrec-values(((for-loop_292)" +"(check-list lst_312)))" +"((letrec-values(((for-loop_291)" "(lambda(formals_4" " body_15" " lst_32)" @@ -64392,18 +64566,18 @@ static const char *startup_source = " s_205)))" " s_97))" "((body86_0)" -"(let-values(((s_465)" +"(let-values(((s_462)" "(cdr" " s_205)))" -"(let-values(((s_466)" +"(let-values(((s_463)" "(if(syntax?$1" -" s_465)" +" s_462)" "(syntax-e$1" -" s_465)" -" s_465)))" +" s_462)" +" s_462)))" "(let-values(((flat-s_30)" "(to-syntax-list.1" -" s_466)))" +" s_463)))" "(if(not" " flat-s_30)" "(let-values()" @@ -64439,7 +64613,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_291" " formals_5" " body_16" " rest_196)" @@ -64449,10 +64623,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_292)" +" for-loop_291)" " null" " null" -" lst_315)))))" +" lst_312)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64460,20 +64634,20 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_38 case-lambda87_0 clause88_0)" -"(let-values(((s_440) disarmed-s_7))" -"(let-values(((orig-s_43) s_440))" +"(let-values(((s_437) disarmed-s_7))" +"(let-values(((orig-s_43) s_437))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_449)(if(syntax?$1 s_440)(syntax-e$1 s_440) s_440)))" -"(if(pair? s_449)" +"(let-values(((s_445)(if(syntax?$1 s_437)(syntax-e$1 s_437) s_437)))" +"(if(pair? s_445)" "(let-values(((case-lambda89_0)" -"(let-values(((s_441)(car s_449))) s_441))" +"(let-values(((s_438)(car s_445))) s_438))" "((clause90_0)" -"(let-values(((s_421)(cdr s_449)))" -"(let-values(((s_523)" +"(let-values(((s_421)(cdr s_445)))" +"(let-values(((s_524)" "(if(syntax?$1 s_421)" "(syntax-e$1 s_421)" " s_421)))" -"(let-values(((flat-s_31)(to-syntax-list.1 s_523)))" +"(let-values(((flat-s_31)(to-syntax-list.1 s_524)))" "(if(not flat-s_31)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" @@ -64482,34 +64656,34 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_83)((s94_0) s_520)((temp95_1) #t))" -"(keep-as-needed86.1 #f #f #f #f temp95_1 #t ctx93_0 s94_0))))" +"(let-values(((ctx93_0) ctx_82)((s94_0) s_521)((temp95_1) #t))" +"(keep-as-needed120.1 #f #f #f #f temp95_1 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_338) formals80_0)((lst_110) body81_0)((lst_339) clause88_0))" +"(let-values(((lst_335) formals80_0)((lst_110) body81_0)((lst_336) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_338)))" +"(let-values()(check-list lst_335)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_110)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_339)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_317 lst_340 lst_54 lst_341)" +"(let-values()(check-list lst_336)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_317 lst_337 lst_54 lst_338)" "(begin" " 'for-loop" -"(if(if(pair? lst_340)" -"(if(pair? lst_54)(pair? lst_341) #f)" +"(if(if(pair? lst_337)" +"(if(pair? lst_54)(pair? lst_338) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_340))" -"((rest_197)(unsafe-cdr lst_340))" +"(let-values(((formals_8)(unsafe-car lst_337))" +"((rest_197)(unsafe-cdr lst_337))" "((body_19)(unsafe-car lst_54))" "((rest_198)(unsafe-cdr lst_54))" -"((clause_3)(unsafe-car lst_341))" -"((rest_24)(unsafe-cdr lst_341)))" +"((clause_3)(unsafe-car lst_338))" +"((rest_24)(unsafe-cdr lst_338)))" "(let-values(((fold-var_105)" "(let-values(((fold-var_196) fold-var_317))" "(let-values(((fold-var_197)" @@ -64518,23 +64692,23 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_90)" +"(let-values(((obs_92)" "(expand-context-observer" -" ctx_83)))" -"(if obs_90" +" ctx_82)))" +"(if obs_92" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_90" +" obs_92" " 'next)))" "(void)))" "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx96_1)" -" ctx_83)" +" ctx_82)" "((clause97_0)" " clause_3))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " #f" @@ -64546,20 +64720,20 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_520" +" s_521" " disarmed-s_7" " formals_8" " body_19" -" ctx_83" +" ctx_82" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_82)" "(list" " exp-formals_0" " exp-body_3)" "(let-values(((rebuild-clause98_0)" " rebuild-clause_0)" -"((temp99_3)" +"((temp99_2)" "(list*" " exp-formals_0" " exp-body_3)))" @@ -64567,25 +64741,25 @@ static const char *startup_source = " #f" " #f" " rebuild-clause98_0" -" temp99_3)))))))" +" temp99_2)))))))" " fold-var_196))))" "(values fold-var_197)))))" "(if(not #f)" -"(for-loop_300 fold-var_105 rest_197 rest_198 rest_24)" +"(for-loop_299 fold-var_105 rest_197 rest_198 rest_24)" " fold-var_105)))" " fold-var_317)))))" -" for-loop_300)" +" for-loop_299)" " null" -" lst_338" +" lst_335" " lst_110" -" lst_339))))))" -"(if(expand-context-to-parsed? ctx_83)" +" lst_336))))))" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" -"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_6)(list* case-lambda79_0 clauses_1)))" -"(rebuild5.1 #f #f rebuild-s100_0 temp101_6))))))))))))" +"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" +"(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_524)" +"(lambda(all-formals_0 sc_36 s_525)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -64600,21 +64774,21 @@ static const char *startup_source = "(let-values()(loop_122 p_87))" "(if(null? p_87)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_524 p_87))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_525 p_87))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_524 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_525 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" "(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_524 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_525 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -64654,15 +64828,15 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_525 ctx_84)" +"(lambda(s_526 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_91)(expand-context-observer ctx_84)))" -"(if obs_91" -"(let-values()(let-values()(call-expand-observe obs_91 log-tag_0)))" +"(let-values(((obs_23)(expand-context-observer ctx_83)))" +"(if obs_23" +"(let-values()(let-values()(call-expand-observe obs_23 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_525)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_526)))" "(let-values(((ok?_39" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -64670,38 +64844,38 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_526) disarmed-s_8))" +"(let-values(((s_527) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_44) s_526))" +"(let-values(((orig-s_44) s_527))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_473)" -"(if(syntax?$1 s_526)" -"(syntax-e$1 s_526)" -" s_526)))" -"(if(pair? s_473)" +"(let-values(((s_470)" +"(if(syntax?$1 s_527)" +"(syntax-e$1 s_527)" +" s_527)))" +"(if(pair? s_470)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_527)(car s_473))) s_527))" +"(let-values(((s_528)(car s_470))) s_528))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_528)(cdr s_473)))" -"(let-values(((s_529)" -"(if(syntax?$1 s_528)" -"(syntax-e$1 s_528)" -" s_528)))" -"(if(pair? s_529)" +"(let-values(((s_529)(cdr s_470)))" +"(let-values(((s_530)" +"(if(syntax?$1 s_529)" +"(syntax-e$1 s_529)" +" s_529)))" +"(if(pair? s_530)" "(let-values(((id:trans114_0" " trans-rhs115_0)" "(let-values(((s_231)" "(car" -" s_529)))" +" s_530)))" "(let-values(((s_232)" "(if(syntax?$1" " s_231)" @@ -64730,20 +64904,20 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_212)))" -"((letrec-values(((for-loop_301)" +"((letrec-values(((for-loop_300)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_342)" +" lst_339)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" +" lst_339)" "(let-values(((s_237)" "(unsafe-car" -" lst_342))" +" lst_339))" "((rest_199)" "(unsafe-cdr" -" lst_342)))" +" lst_339)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64756,18 +64930,18 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_530)" +"(let-values(((s_531)" "(if(syntax?$1" " s_237)" "(syntax-e$1" " s_237)" " s_237)))" "(if(pair?" -" s_530)" +" s_531)" "(let-values(((id:trans119_0)" "(let-values(((s_342)" "(car" -" s_530)))" +" s_531)))" "(let-values(((s_343)" "(if(syntax?$1" " s_342)" @@ -64786,7 +64960,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_343)" +"(let-values(((lst_340)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64794,20 +64968,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_270)" +" lst_340)))" +"((letrec-values(((for-loop_269)" "(lambda(id:trans_6" -" lst_344)" +" lst_341)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" +" lst_341)" "(let-values(((s_346)" "(unsafe-car" -" lst_344))" +" lst_341))" "((rest_200)" "(unsafe-cdr" -" lst_344)))" +" lst_341)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64815,15 +64989,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_263)" "(if(syntax?$1" " s_346)" "(symbol?" "(syntax-e$1" " s_346))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_263" +" or-part_263" "(symbol?" " s_346)))" " s_346" @@ -64839,37 +65013,37 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_270" +"(for-loop_269" " id:trans_7" " rest_200)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_270)" +" for-loop_269)" " null" -" lst_343)))))" +" lst_340)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" "(let-values(((s_240)" "(cdr" -" s_530)))" -"(let-values(((s_477)" +" s_531)))" +"(let-values(((s_474)" "(if(syntax?$1" " s_240)" "(syntax-e$1" " s_240)" " s_240)))" "(if(pair?" -" s_477)" +" s_474)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_531)" +"(let-values(((s_532)" "(car" -" s_477)))" -" s_531))" +" s_474)))" +" s_532))" "(()" "(let-values(((s_241)" "(cdr" -" s_477)))" +" s_474)))" "(let-values(((s_242)" "(if(syntax?$1" " s_241)" @@ -64908,7 +65082,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_300" " id:trans_2" " trans-rhs_2" " rest_199)" @@ -64918,7 +65092,7 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_301)" +" for-loop_300)" " null" " null" " lst_212)))))" @@ -64932,7 +65106,7 @@ static const char *startup_source = " body118_0)" "(let-values(((s_243)" "(cdr" -" s_529)))" +" s_530)))" "(let-values(((s_351)" "(if(syntax?$1" " s_243)" @@ -64945,7 +65119,7 @@ static const char *startup_source = "(let-values(((s_246)" "(car" " s_351)))" -"(let-values(((s_532)" +"(let-values(((s_533)" "(if(syntax?$1" " s_246)" "(syntax-e$1" @@ -64953,7 +65127,7 @@ static const char *startup_source = " s_246)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_532)))" +" s_533)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64964,7 +65138,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_345)" +"(let-values(((lst_342)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64972,21 +65146,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_302)" +" lst_342)))" +"((letrec-values(((for-loop_301)" "(lambda(id:val_1" " val-rhs_2" -" lst_346)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" -"(let-values(((s_533)" +" lst_343)" +"(let-values(((s_534)" "(unsafe-car" -" lst_346))" +" lst_343))" "((rest_201)" "(unsafe-cdr" -" lst_346)))" +" lst_343)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64999,27 +65173,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_534)" -"(if(syntax?$1" -" s_533)" -"(syntax-e$1" -" s_533)" -" s_533)))" -"(if(pair?" -" s_534)" -"(let-values(((id:val125_0)" -"(let-values(((s_490)" -"(car" -" s_534)))" "(let-values(((s_535)" "(if(syntax?$1" -" s_490)" +" s_534)" "(syntax-e$1" -" s_490)" -" s_490)))" +" s_534)" +" s_534)))" +"(if(pair?" +" s_535)" +"(let-values(((id:val125_0)" +"(let-values(((s_488)" +"(car" +" s_535)))" +"(let-values(((s_536)" +"(if(syntax?$1" +" s_488)" +"(syntax-e$1" +" s_488)" +" s_488)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_535)))" +" s_536)))" "(if(not" " flat-s_35)" "(let-values()" @@ -65029,7 +65203,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_347)" +"(let-values(((lst_344)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65037,20 +65211,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_303)" +" lst_344)))" +"((letrec-values(((for-loop_302)" "(lambda(id:val_6" -" lst_348)" +" lst_345)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" -"(let-values(((s_536)" +" lst_345)" +"(let-values(((s_537)" "(unsafe-car" -" lst_348))" +" lst_345))" "((rest_202)" "(unsafe-cdr" -" lst_348)))" +" lst_345)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -65058,23 +65232,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_372)" +"(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_536)" +" s_537)" "(symbol?" "(syntax-e$1" -" s_536))" +" s_537))" " #f)))" -"(if or-part_372" -" or-part_372" +"(if or-part_375" +" or-part_375" "(symbol?" -" s_536)))" -" s_536" +" s_537)))" +" s_537" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_536)))))" +" s_537)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -65082,20 +65256,20 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_303" +"(for-loop_302" " id:val_7" " rest_202)" " id:val_7)))" " id:val_6)))))" -" for-loop_303)" +" for-loop_302)" " null" -" lst_347)))))" +" lst_344)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" "(let-values(((s_357)" "(cdr" -" s_534)))" +" s_535)))" "(let-values(((s_248)" "(if(syntax?$1" " s_357)" @@ -65105,10 +65279,10 @@ static const char *startup_source = "(if(pair?" " s_248)" "(let-values(((val-rhs127_0)" -"(let-values(((s_480)" +"(let-values(((s_477)" "(car" " s_248)))" -" s_480))" +" s_477))" "(()" "(let-values(((s_359)" "(cdr" @@ -65151,7 +65325,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " id:val_2" " val-rhs_3" " rest_201)" @@ -65161,10 +65335,10 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_302)" +" for-loop_301)" " null" " null" -" lst_345)))))" +" lst_342)))))" "(values" "(reverse$1" " id:val_0)" @@ -65249,17 +65423,17 @@ static const char *startup_source = " s_254))" "((id:val133_0 val-rhs134_0 body135_0)" "(let-values(((s_255)(cdr s_366)))" -"(let-values(((s_537)" +"(let-values(((s_538)" "(if(syntax?$1 s_255)" "(syntax-e$1 s_255)" " s_255)))" -"(if(pair? s_537)" +"(if(pair? s_538)" "(let-values(((id:val136_0" " val-rhs137_0)" "(let-values(((s_258)" "(car" -" s_537)))" -"(let-values(((s_538)" +" s_538)))" +"(let-values(((s_539)" "(if(syntax?$1" " s_258)" "(syntax-e$1" @@ -65267,7 +65441,7 @@ static const char *startup_source = " s_258)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_538)))" +" s_539)))" "(if(not" " flat-s_37)" "(let-values()" @@ -65278,7 +65452,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_349)" +"(let-values(((lst_346)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65286,21 +65460,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_349)))" -"((letrec-values(((for-loop_304)" +" lst_346)))" +"((letrec-values(((for-loop_303)" "(lambda(id:val_11" " val-rhs_7" -" lst_308)" +" lst_305)" "(begin" " 'for-loop" "(if(pair?" -" lst_308)" -"(let-values(((s_539)" +" lst_305)" +"(let-values(((s_540)" "(unsafe-car" -" lst_308))" +" lst_305))" "((rest_203)" "(unsafe-cdr" -" lst_308)))" +" lst_305)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -65315,25 +65489,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_378)" "(if(syntax?$1" -" s_539)" -"(syntax-e$1" -" s_539)" -" s_539)))" -"(if(pair?" -" s_378)" -"(let-values(((id:val139_0)" -"(let-values(((s_540)" -"(car" -" s_378)))" -"(let-values(((s_541)" -"(if(syntax?$1" " s_540)" "(syntax-e$1" " s_540)" " s_540)))" +"(if(pair?" +" s_378)" +"(let-values(((id:val139_0)" +"(let-values(((s_541)" +"(car" +" s_378)))" +"(let-values(((s_542)" +"(if(syntax?$1" +" s_541)" +"(syntax-e$1" +" s_541)" +" s_541)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_541)))" +" s_542)))" "(if(not" " flat-s_38)" "(let-values()" @@ -65343,7 +65517,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_350)" +"(let-values(((lst_347)" " flat-s_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65351,20 +65525,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" -"((letrec-values(((for-loop_305)" +" lst_347)))" +"((letrec-values(((for-loop_304)" "(lambda(id:val_16" -" lst_351)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" -"(let-values(((s_542)" +" lst_348)" +"(let-values(((s_543)" "(unsafe-car" -" lst_351))" +" lst_348))" "((rest_204)" "(unsafe-cdr" -" lst_351)))" +" lst_348)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -65372,23 +65546,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_373)" +"(if(let-values(((or-part_376)" "(if(syntax?$1" -" s_542)" +" s_543)" "(symbol?" "(syntax-e$1" -" s_542))" +" s_543))" " #f)))" -"(if or-part_373" -" or-part_373" +"(if or-part_376" +" or-part_376" "(symbol?" -" s_542)))" -" s_542" +" s_543)))" +" s_543" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_542)))))" +" s_543)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -65396,14 +65570,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_304" " id:val_17" " rest_204)" " id:val_17)))" " id:val_16)))))" -" for-loop_305)" +" for-loop_304)" " null" -" lst_350)))))" +" lst_347)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" @@ -65419,22 +65593,22 @@ static const char *startup_source = "(if(pair?" " s_260)" "(let-values(((val-rhs141_0)" -"(let-values(((s_543)" +"(let-values(((s_544)" "(car" " s_260)))" -" s_543))" +" s_544))" "(()" -"(let-values(((s_544)" +"(let-values(((s_545)" "(cdr" " s_260)))" -"(let-values(((s_545)" +"(let-values(((s_546)" "(if(syntax?$1" -" s_544)" -"(syntax-e$1" -" s_544)" -" s_544)))" -"(if(null?" " s_545)" +"(syntax-e$1" +" s_545)" +" s_545)))" +"(if(null?" +" s_546)" "(values)" "(raise-syntax-error$1" " #f" @@ -65465,7 +65639,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_304" +"(for-loop_303" " id:val_12" " val-rhs_8" " rest_203)" @@ -65475,25 +65649,25 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_304)" +" for-loop_303)" " null" " null" -" lst_349)))))" +" lst_346)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_546)" +"(let-values(((s_547)" "(cdr" -" s_537)))" +" s_538)))" "(let-values(((s_261)" "(if(syntax?$1" -" s_546)" +" s_547)" "(syntax-e$1" -" s_546)" -" s_546)))" +" s_547)" +" s_547)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" " s_261)))" @@ -65530,24 +65704,24 @@ static const char *startup_source = "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_150)(expand-context-phase ctx_84)))" +"(let-values(((phase_149)(expand-context-phase ctx_83)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_352)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_349)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_352)))" +"(let-values()(check-list lst_349)))" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_108 lst_353)" +"(lambda(fold-var_108 lst_350)" "(begin" " 'for-loop" -"(if(pair? lst_353)" +"(if(pair? lst_350)" "(let-values(((ids_35)" -"(unsafe-car lst_353))" +"(unsafe-car lst_350))" "((rest_205)" -"(unsafe-cdr lst_353)))" +"(unsafe-cdr lst_350)))" "(let-values(((fold-var_112)" "(let-values(((fold-var_318)" " fold-var_108))" @@ -65556,7 +65730,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_354)" +"(let-values(((lst_351)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65564,20 +65738,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_354)))" -"((letrec-values(((for-loop_279)" +" lst_351)))" +"((letrec-values(((for-loop_278)" "(lambda(fold-var_320" -" lst_355)" +" lst_352)" "(begin" " 'for-loop" "(if(pair?" -" lst_355)" +" lst_352)" "(let-values(((id_119)" "(unsafe-car" -" lst_355))" +" lst_352))" "((rest_206)" "(unsafe-cdr" -" lst_355)))" +" lst_352)))" "(let-values(((fold-var_321)" "(let-values(((fold-var_322)" " fold-var_320))" @@ -65593,14 +65767,14 @@ static const char *startup_source = " fold-var_323)))))" "(if(not" " #f)" -"(for-loop_279" +"(for-loop_278" " fold-var_321" " rest_206)" " fold-var_321)))" " fold-var_320)))))" -" for-loop_279)" +" for-loop_278)" " null" -" lst_354)))))" +" lst_351)))))" " fold-var_318))))" "(values" " fold-var_319)))))" @@ -65610,23 +65784,23 @@ static const char *startup_source = " fold-var_108)))))" " for-loop_160)" " null" -" lst_352))))))" +" lst_349))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_356)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_353)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_356)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_324 lst_357)" +"(let-values()(check-list lst_353)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_324 lst_354)" "(begin" " 'for-loop" -"(if(pair? lst_357)" +"(if(pair? lst_354)" "(let-values(((ids_36)" -"(unsafe-car lst_357))" +"(unsafe-car lst_354))" "((rest_207)" -"(unsafe-cdr lst_357)))" +"(unsafe-cdr lst_354)))" "(let-values(((fold-var_325)" "(let-values(((fold-var_326)" " fold-var_324))" @@ -65635,7 +65809,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_358)" +"(let-values(((lst_355)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65643,20 +65817,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_358)))" -"((letrec-values(((for-loop_307)" +" lst_355)))" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_328" -" lst_359)" +" lst_356)" "(begin" " 'for-loop" "(if(pair?" -" lst_359)" +" lst_356)" "(let-values(((id_120)" "(unsafe-car" -" lst_359))" +" lst_356))" "((rest_208)" "(unsafe-cdr" -" lst_359)))" +" lst_356)))" "(let-values(((fold-var_329)" "(let-values(((fold-var_330)" " fold-var_328))" @@ -65672,44 +65846,44 @@ static const char *startup_source = " fold-var_331)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_306" " fold-var_329" " rest_208)" " fold-var_329)))" " fold-var_328)))))" -" for-loop_307)" +" for-loop_306)" " null" -" lst_358)))))" +" lst_355)))))" " fold-var_326))))" "(values" " fold-var_327)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_305" " fold-var_325" " rest_207)" " fold-var_325)))" " fold-var_324)))))" -" for-loop_306)" +" for-loop_305)" " null" -" lst_356))))))" +" lst_353))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_357)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_332 lst_361)" +"(let-values()(check-list lst_357)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_332 lst_358)" "(begin" " 'for-loop" -"(if(pair? lst_361)" +"(if(pair? lst_358)" "(let-values(((rhs_20)" -"(unsafe-car lst_361))" +"(unsafe-car lst_358))" "((rest_209)" -"(unsafe-cdr lst_361)))" +"(unsafe-cdr lst_358)))" "(let-values(((fold-var_333)" "(let-values(((fold-var_334)" " fold-var_332))" @@ -65724,82 +65898,82 @@ static const char *startup_source = "(values" " fold-var_335)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_307" " fold-var_333" " rest_209)" " fold-var_333)))" " fold-var_332)))))" -" for-loop_308)" +" for-loop_307)" " null" -" lst_360))))" +" lst_357))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_41 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_484) disarmed-s_8))" -"(let-values(((orig-s_46) s_484))" +"(let-values(((s_481) disarmed-s_8))" +"(let-values(((orig-s_46) s_481))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" "(let-values(((s_142)" "(if(syntax?$1" -" s_484)" +" s_481)" "(syntax-e$1" -" s_484)" -" s_484)))" +" s_481)" +" s_481)))" "(if(pair? s_142)" "(let-values(((_158_0)" -"(let-values(((s_547)" +"(let-values(((s_548)" "(car" " s_142)))" -" s_547))" +" s_548))" "((_159_0" " clause160_0" " _161_0)" -"(let-values(((s_548)" +"(let-values(((s_549)" "(cdr" " s_142)))" "(let-values(((s_143)" "(if(syntax?$1" -" s_548)" +" s_549)" "(syntax-e$1" -" s_548)" -" s_548)))" +" s_549)" +" s_549)))" "(if(pair?" " s_143)" "(let-values(((_162_0)" -"(let-values(((s_549)" +"(let-values(((s_550)" "(car" " s_143)))" -" s_549))" +" s_550))" "((clause163_0" " _164_0)" -"(let-values(((s_550)" +"(let-values(((s_551)" "(cdr" " s_143)))" -"(let-values(((s_438)" -"(if(syntax?$1" -" s_550)" -"(syntax-e$1" -" s_550)" -" s_550)))" -"(if(pair?" -" s_438)" -"(let-values(((clause165_0)" -"(let-values(((s_551)" -"(car" -" s_438)))" "(let-values(((s_552)" "(if(syntax?$1" " s_551)" "(syntax-e$1" " s_551)" " s_551)))" +"(if(pair?" +" s_552)" +"(let-values(((clause165_0)" +"(let-values(((s_553)" +"(car" +" s_552)))" +"(let-values(((s_554)" +"(if(syntax?$1" +" s_553)" +"(syntax-e$1" +" s_553)" +" s_553)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_552)))" +" s_554)))" "(if(not" " flat-s_40)" "(let-values()" @@ -65810,10 +65984,10 @@ static const char *startup_source = "(let-values()" " flat-s_40))))))" "((_166_0)" -"(let-values(((s_553)" +"(let-values(((s_555)" "(cdr" -" s_438)))" -" s_553)))" +" s_552)))" +" s_555)))" "(values" " clause165_0" " _166_0))" @@ -65847,47 +66021,47 @@ static const char *startup_source = " clause156_0))" "(let-values()" "(let-values(((ok?_42 _167_0 clause168_0 _169_0)" -"(let-values(((s_554) disarmed-s_8))" -"(let-values(((orig-s_47) s_554))" +"(let-values(((s_556) disarmed-s_8))" +"(let-values(((orig-s_47) s_556))" "(let-values(((_167_1 clause168_1 _169_1)" -"(let-values(((s_555)" +"(let-values(((s_557)" "(if(syntax?$1" -" s_554)" +" s_556)" "(syntax-e$1" -" s_554)" -" s_554)))" -"(if(pair? s_555)" +" s_556)" +" s_556)))" +"(if(pair? s_557)" "(let-values(((_170_0)" -"(let-values(((s_556)" +"(let-values(((s_558)" "(car" -" s_555)))" -" s_556))" +" s_557)))" +" s_558))" "((clause171_0" " _172_0)" -"(let-values(((s_557)" -"(cdr" -" s_555)))" -"(let-values(((s_558)" -"(if(syntax?$1" -" s_557)" -"(syntax-e$1" -" s_557)" -" s_557)))" -"(if(pair?" -" s_558)" -"(let-values(((clause173_0)" "(let-values(((s_559)" -"(car" -" s_558)))" +"(cdr" +" s_557)))" "(let-values(((s_560)" "(if(syntax?$1" " s_559)" "(syntax-e$1" " s_559)" " s_559)))" +"(if(pair?" +" s_560)" +"(let-values(((clause173_0)" +"(let-values(((s_561)" +"(car" +" s_560)))" +"(let-values(((s_562)" +"(if(syntax?$1" +" s_561)" +"(syntax-e$1" +" s_561)" +" s_561)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_560)))" +" s_562)))" "(if(not" " flat-s_41)" "(let-values()" @@ -65898,10 +66072,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_174_0)" -"(let-values(((s_561)" +"(let-values(((s_563)" "(cdr" -" s_558)))" -" s_561)))" +" s_560)))" +" s_563)))" "(values" " clause173_0" " _174_0))" @@ -65922,8 +66096,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp142_4)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_150)" -"((s144_0) s_525))" +"((phase143_0) phase_149)" +"((s144_0) s_526))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -65933,26 +66107,26 @@ static const char *startup_source = " #f" " #f))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_84)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_362) trans-idss_2))" +"(let-values(((lst_359) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_309)" -"(lambda(fold-var_336 lst_363)" +"(let-values()(check-list lst_359)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_336 lst_360)" "(begin" " 'for-loop" -"(if(pair? lst_363)" +"(if(pair? lst_360)" "(let-values(((ids_37)" "(unsafe-car" -" lst_363))" +" lst_360))" "((rest_210)" "(unsafe-cdr" -" lst_363)))" +" lst_360)))" "(let-values(((fold-var_337)" "(let-values(((fold-var_338)" " fold-var_336))" @@ -65970,19 +66144,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_238)))" -"((letrec-values(((for-loop_310)" +"((letrec-values(((for-loop_309)" "(lambda(fold-var_340" -" lst_364)" +" lst_361)" "(begin" " 'for-loop" "(if(pair?" -" lst_364)" +" lst_361)" "(let-values(((id_121)" "(unsafe-car" -" lst_364))" +" lst_361))" "((rest_127)" "(unsafe-cdr" -" lst_364)))" +" lst_361)))" "(let-values(((fold-var_341)" "(let-values(((fold-var_342)" " fold-var_340))" @@ -65993,13 +66167,13 @@ static const char *startup_source = "(let-values(((id175_0)" " id_121)" "((phase176_0)" -" phase_150)" +" phase_149)" "((counter177_0)" " counter_8)" "((frame-id178_0)" " frame-id_15)" "((s179_0)" -" s_525))" +" s_526))" "(add-local-binding!37.1" " frame-id178_0" " #t" @@ -66013,45 +66187,45 @@ static const char *startup_source = " fold-var_343)))))" "(if(not" " #f)" -"(for-loop_310" +"(for-loop_309" " fold-var_341" " rest_127)" " fold-var_341)))" " fold-var_340)))))" -" for-loop_310)" +" for-loop_309)" " null" " lst_238)))))" " fold-var_338))))" "(values" " fold-var_339)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_308" " fold-var_337" " rest_210)" " fold-var_337)))" " fold-var_336)))))" -" for-loop_309)" +" for-loop_308)" " null" -" lst_362))))))" +" lst_359))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_365) val-idss_3))" +"(let-values(((lst_362) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" -"((letrec-values(((for-loop_311)" -"(lambda(fold-var_344 lst_366)" +"(let-values()(check-list lst_362)))" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_344 lst_363)" "(begin" " 'for-loop" -"(if(pair? lst_366)" +"(if(pair? lst_363)" "(let-values(((ids_38)" "(unsafe-car" -" lst_366))" +" lst_363))" "((rest_211)" "(unsafe-cdr" -" lst_366)))" +" lst_363)))" "(let-values(((fold-var_345)" "(let-values(((fold-var_346)" " fold-var_344))" @@ -66060,7 +66234,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_367)" +"(let-values(((lst_364)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66068,20 +66242,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_367)))" -"((letrec-values(((for-loop_312)" +" lst_364)))" +"((letrec-values(((for-loop_311)" "(lambda(fold-var_348" -" lst_368)" +" lst_365)" "(begin" " 'for-loop" "(if(pair?" -" lst_368)" +" lst_365)" "(let-values(((id_122)" "(unsafe-car" -" lst_368))" +" lst_365))" "((rest_212)" "(unsafe-cdr" -" lst_368)))" +" lst_365)))" "(let-values(((fold-var_349)" "(let-values(((fold-var_116)" " fold-var_348))" @@ -66092,13 +66266,13 @@ static const char *startup_source = "(let-values(((id180_0)" " id_122)" "((phase181_0)" -" phase_150)" +" phase_149)" "((counter182_0)" " counter_8)" "((frame-id183_0)" " frame-id_15)" "((s184_0)" -" s_525))" +" s_526))" "(add-local-binding!37.1" " frame-id183_0" " #t" @@ -66112,36 +66286,36 @@ static const char *startup_source = " fold-var_117)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_311" " fold-var_349" " rest_212)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_312)" +" for-loop_311)" " null" -" lst_367)))))" +" lst_364)))))" " fold-var_346))))" "(values" " fold-var_347)))))" "(if(not #f)" -"(for-loop_311" +"(for-loop_310" " fold-var_345" " rest_211)" " fold-var_345)))" " fold-var_344)))))" -" for-loop_311)" +" for-loop_310)" " null" -" lst_365))))))" +" lst_362))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_369)" +"(let-values(((lst_366)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_369)))" -"((letrec-values(((for-loop_313)" +"(let-values()(check-list lst_366)))" +"((letrec-values(((for-loop_312)" "(lambda(fold-var_350 lst_129)" "(begin" " 'for-loop" @@ -66166,22 +66340,22 @@ static const char *startup_source = "(values" " fold-var_353)))))" "(if(not #f)" -"(for-loop_313" +"(for-loop_312" " fold-var_351" " rest_213)" " fold-var_351)))" " fold-var_350)))))" -" for-loop_313)" +" for-loop_312)" " null" -" lst_369))))))" +" lst_366))))))" "(let-values((()" "(begin" -"(let-values(((obs_92)" -"(expand-context-observer ctx_84)))" -"(if obs_92" +"(let-values(((obs_93)" +"(expand-context-observer ctx_83)))" +"(if obs_93" "(let-values()" "(log-let-renames" -" obs_92" +" obs_93" " renames-log-tag_0" " val-idss_3" " val-rhss_3" @@ -66196,22 +66370,22 @@ static const char *startup_source = "(if syntaxes?_0" "(let-values()" "(begin" -"(let-values(((obs_93)" +"(let-values(((obs_94)" "(expand-context-observer" -" ctx_84)))" -"(if obs_93" +" ctx_83)))" +"(if obs_94" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_93" +" obs_94" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_84)))" +"(prepare-next-phase-namespace ctx_83)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_370)" +"(let-values(((lst_367)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" @@ -66220,19 +66394,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_370)))" +"(let-values()(check-list lst_367)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_247)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_123" " lst_131" -" lst_371)" +" lst_368)" "(begin" " 'for-loop" "(if(if(pair? lst_131)" -"(pair? lst_371)" +"(pair? lst_368)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" @@ -66242,10 +66416,10 @@ static const char *startup_source = " lst_131))" "((ids_39)" "(unsafe-car" -" lst_371))" +" lst_368))" "((rest_67)" "(unsafe-cdr" -" lst_371)))" +" lst_368)))" "(let-values(((fold-var_125)" "(let-values(((fold-var_354)" " fold-var_123))" @@ -66255,18 +66429,18 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_94)" +"(let-values(((obs_95)" "(expand-context-observer" -" ctx_84)))" -"(if obs_94" +" ctx_83)))" +"(if obs_95" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_94" +" obs_95" " 'next)" "(call-expand-observe" -" obs_94" +" obs_95" " 'enter-bind))))" "(void)))" "(values))))" @@ -66277,16 +66451,16 @@ static const char *startup_source = " rhs_21" " sc_37)" " ids_39" -" ctx_84)))" +" ctx_83)))" "(begin" -"(let-values(((obs_95)" +"(let-values(((obs_96)" "(expand-context-observer" -" ctx_84)))" -"(if obs_95" +" ctx_83)))" +"(if obs_96" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_95" +" obs_96" " 'exit-bind)))" "(void)))" " trans-val_1))))" @@ -66294,15 +66468,15 @@ static const char *startup_source = "(values" " fold-var_355)))))" "(if(not #f)" -"(for-loop_314" +"(for-loop_313" " fold-var_125" " rest_214" " rest_67)" " fold-var_125)))" " fold-var_123)))))" -" for-loop_314)" +" for-loop_313)" " null" -" lst_370" +" lst_367" " lst_247))))))" "(let-values(((rec-val-env_0)" "(let-values(((lst_61) val-keyss_2)" @@ -66316,22 +66490,22 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_249)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_314)" "(lambda(env_29" -" lst_372" +" lst_369" " lst_133)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_372)" +" lst_369)" "(pair? lst_133)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_372))" +" lst_369))" "((rest_68)" "(unsafe-cdr" -" lst_372))" +" lst_369))" "((ids_40)" "(unsafe-car" " lst_133))" @@ -66341,9 +66515,9 @@ static const char *startup_source = "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_373)" +"(let-values(((lst_370)" " keys_10)" -"((lst_374)" +"((lst_371)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66351,30 +66525,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_373)))" +" lst_370)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_374)))" -"((letrec-values(((for-loop_316)" +" lst_371)))" +"((letrec-values(((for-loop_315)" "(lambda(env_32" -" lst_375" +" lst_372" " lst_66)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_375)" +" lst_372)" "(pair?" " lst_66)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_375))" +" lst_372))" "((rest_30)" "(unsafe-cdr" -" lst_375))" +" lst_372))" "((id_123)" "(unsafe-car" " lst_66))" @@ -66395,87 +66569,87 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_315" " env_33" " rest_30" " rest_216)" " env_33)))" " env_32)))))" -" for-loop_316)" +" for-loop_315)" " env_31" -" lst_373" -" lst_374))))))" +" lst_370" +" lst_371))))))" "(if(not #f)" -"(for-loop_315" +"(for-loop_314" " env_30" " rest_68" " rest_215)" " env_30)))" " env_29)))))" -" for-loop_315)" -"(expand-context-env ctx_84)" +" for-loop_314)" +"(expand-context-env ctx_83)" " lst_61" " lst_249)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_376) trans-keyss_0)" -"((lst_377) trans-valss_0)" -"((lst_378) trans-idss_2))" +"(let-values(((lst_373) trans-keyss_0)" +"((lst_374) trans-valss_0)" +"((lst_375) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_376)))" +"(let-values()(check-list lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_377)))" +"(let-values()(check-list lst_374)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_378)))" -"((letrec-values(((for-loop_317)" +"(let-values()(check-list lst_375)))" +"((letrec-values(((for-loop_316)" "(lambda(env_36" -" lst_379" -" lst_380" -" lst_381)" +" lst_376" +" lst_377" +" lst_378)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" +" lst_376)" "(if(pair?" -" lst_380)" +" lst_377)" "(pair?" -" lst_381)" +" lst_378)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_379))" +" lst_376))" "((rest_217)" "(unsafe-cdr" -" lst_379))" +" lst_376))" "((vals_9)" "(unsafe-car" -" lst_380))" +" lst_377))" "((rest_218)" "(unsafe-cdr" -" lst_380))" +" lst_377))" "((ids_41)" "(unsafe-car" -" lst_381))" +" lst_378))" "((rest_219)" "(unsafe-cdr" -" lst_381)))" +" lst_378)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_382)" +"(let-values(((lst_379)" " keys_11)" -"((lst_383)" +"((lst_380)" " vals_9)" -"((lst_384)" +"((lst_381)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66483,28 +66657,28 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_382)))" +" lst_379)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_383)))" +" lst_380)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_384)))" -"((letrec-values(((for-loop_318)" +" lst_381)))" +"((letrec-values(((for-loop_317)" "(lambda(env_40" -" lst_385" +" lst_382" " lst_48" " lst_118)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_385)" +" lst_382)" "(if(pair?" " lst_48)" "(pair?" @@ -66513,10 +66687,10 @@ static const char *startup_source = " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_385))" +" lst_382))" "((rest_220)" "(unsafe-cdr" -" lst_385))" +" lst_382))" "((val_86)" "(unsafe-car" " lst_48))" @@ -66538,8 +66712,8 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_86" " id_124" -" phase_150" -" ctx_84)" +" phase_149" +" ctx_83)" "(env-extend" " env_42" " key_94" @@ -66548,50 +66722,50 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_318" +"(for-loop_317" " env_41" " rest_220" " rest_21" " rest_221)" " env_41)))" " env_40)))))" -" for-loop_318)" +" for-loop_317)" " env_38" -" lst_382" -" lst_383" -" lst_384))))))" +" lst_379" +" lst_380" +" lst_381))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_317" +"(for-loop_316" " env_37" " rest_217" " rest_218" " rest_219)" " env_37)))" " env_36)))))" -" for-loop_317)" +" for-loop_316)" " rec-val-env_0" -" lst_376" -" lst_377" -" lst_378)))))" +" lst_373" +" lst_374" +" lst_375)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_84)))" +"(as-expression-context ctx_83)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_180) expr-ctx_0))" -"(let-values(((the-struct_94) v_180))" +"(let-values(((the-struct_95) v_180))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_95)" "(let-values(((env185_0)" " rec-env_0)" "((scopes186_0)" "(cons" " sc_37" "(expand-context-scopes" -" ctx_84)))" +" ctx_83)))" "((reference-records187_0)" "(if split-by-reference?_0" "(cons" @@ -66603,54 +66777,54 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_84" +" ctx_83" " sc_37))" -"((inner189_1)" +"((inner189_0)" "(root-expand-context/outer-inner" " v_180)))" "(expand-context/outer1.1" -" inner189_1" +" inner189_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_95)" " env185_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_95)" " scopes186_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_95)" " binding-layer188_0" " reference-records187_0" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-name" -" the-struct_94)))" +" the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_95))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_84))" +" ctx_83))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_150)" +"(core-id 'letrec-values phase_149)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx190_0) ctx_84)" -"((s191_0) s_525)" +"(let-values(((ctx190_0) ctx_83)" +"((s191_1) s_526)" "((temp192_1) #t))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " temp192_1" @@ -66658,32 +66832,32 @@ static const char *startup_source = " #f" " #f" " ctx190_0" -" s191_0))))" +" s191_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_83)" "(reverse$1" -"(let-values(((lst_386)" +"(let-values(((lst_383)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_386)))" -"((letrec-values(((for-loop_319)" +"(check-list lst_383)))" +"((letrec-values(((for-loop_318)" "(lambda(fold-var_356" -" lst_387)" +" lst_384)" "(begin" " 'for-loop" "(if(pair?" -" lst_387)" +" lst_384)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_387))" +" lst_384))" "((rest_222)" "(unsafe-cdr" -" lst_387)))" +" lst_384)))" "(let-values(((fold-var_357)" "(let-values(((fold-var_358)" " fold-var_356))" @@ -66703,17 +66877,17 @@ static const char *startup_source = " lst_67)))" "((letrec-values(((for-loop_90)" "(lambda(fold-var_360" -" lst_388)" +" lst_385)" "(begin" " 'for-loop" "(if(pair?" -" lst_388)" +" lst_385)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_388))" +" lst_385))" "((rest_223)" "(unsafe-cdr" -" lst_388)))" +" lst_385)))" "(let-values(((fold-var_361)" "(let-values(((fold-var_362)" " fold-var_360))" @@ -66745,26 +66919,26 @@ static const char *startup_source = " fold-var_359)))))" "(if(not" " #f)" -"(for-loop_319" +"(for-loop_318" " fold-var_357" " rest_222)" " fold-var_357)))" " fold-var_356)))))" -" for-loop_319)" +" for-loop_318)" " null" -" lst_386))))" +" lst_383))))" " val-idss_3)))" "(let-values((()" "(begin" "(if syntaxes?_0" "(let-values()" -"(let-values(((obs_96)" +"(let-values(((obs_97)" "(expand-context-observer" -" ctx_84)))" -"(if obs_96" +" ctx_83)))" +"(if obs_97" "(let-values()" "(log-letrec-values" -" obs_96" +" obs_97" " val-idss_3" " val-rhss_3" " bodys_10))" @@ -66777,10 +66951,10 @@ static const char *startup_source = " 'get-body" "(let-values((()" "(begin" -"(let-values(((obs_97)" +"(let-values(((obs_98)" "(expand-context-observer" -" ctx_84)))" -"(if obs_97" +" ctx_83)))" +"(if obs_98" "(let-values()" "(if(not" "(if syntaxes?_0" @@ -66789,7 +66963,7 @@ static const char *startup_source = " #f))" "(let-values()" "(call-expand-observe" -" obs_97" +" obs_98" " 'next-group))" "(void)))" "(void)))" @@ -66797,10 +66971,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_262)" " rec-ctx_0))" -"(let-values(((the-struct_95)" +"(let-values(((the-struct_96)" " v_262))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_96)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" @@ -66809,43 +66983,43 @@ static const char *startup_source = "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-env" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-scopes" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-binding-layer" -" the-struct_95)" +" the-struct_96)" " reference-records196_0" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_95)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_96))))))" "(let-values(((bodys193_0)" " bodys_10)" "((temp194_0)" "(let-values(((body-ctx198_0)" " body-ctx_5)" "((ctx199_0)" -" ctx_84))" +" ctx_83))" "(as-tail-context23.1" " ctx199_0" " body-ctx198_0)))" @@ -66863,13 +67037,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_389)" +"(let-values(((lst_386)" " val-name-idss_0)" -"((lst_390)" +"((lst_387)" " val-keyss_2)" -"((lst_391)" +"((lst_388)" " val-rhss_3)" -"((lst_392)" +"((lst_389)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66877,68 +67051,68 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_386)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_387)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_388)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_389)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_390)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_391)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_392)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_319)" "(lambda(fold-var_364" -" lst_393" -" lst_394" -" lst_395" -" lst_396)" +" lst_390" +" lst_391" +" lst_392" +" lst_393)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_393)" +" lst_390)" "(if(pair?" -" lst_394)" +" lst_391)" "(if(pair?" -" lst_395)" +" lst_392)" "(pair?" -" lst_396)" +" lst_393)" " #f)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_393))" +" lst_390))" "((rest_224)" "(unsafe-cdr" -" lst_393))" +" lst_390))" "((keys_12)" "(unsafe-car" -" lst_394))" +" lst_391))" "((rest_225)" "(unsafe-cdr" -" lst_394))" +" lst_391))" "((rhs_22)" "(unsafe-car" -" lst_395))" +" lst_392))" "((rest_226)" "(unsafe-cdr" -" lst_395))" +" lst_392))" "((clause_4)" "(unsafe-car" -" lst_396))" +" lst_393))" "((rest_227)" "(unsafe-cdr" -" lst_396)))" +" lst_393)))" "(let-values(((fold-var_365)" "(let-values(((fold-var_366)" " fold-var_364))" @@ -66948,14 +67122,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_98)" +"(let-values(((obs_99)" "(expand-context-observer" -" ctx_84)))" -"(if obs_98" +" ctx_83)))" +"(if obs_99" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_98" +" obs_99" " 'next)))" "(void)))" "(values))))" @@ -66970,7 +67144,9 @@ static const char *startup_source = "(as-named-context" " expr-ctx_0" " ids_42))))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -66978,7 +67154,7 @@ static const char *startup_source = " rhs200_0" " temp201_1))))" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_83)" "(list" " keys_12" " exp-rhs_4)" @@ -66994,7 +67170,7 @@ static const char *startup_source = " fold-var_367)))))" "(if(not" " #f)" -"(for-loop_320" +"(for-loop_319" " fold-var_365" " rest_224" " rest_225" @@ -67002,12 +67178,12 @@ static const char *startup_source = " rest_227)" " fold-var_365)))" " fold-var_364)))))" -" for-loop_320)" +" for-loop_319)" " null" -" lst_389" -" lst_390" -" lst_391" -" lst_392))))))" +" lst_386" +" lst_387" +" lst_388" +" lst_389))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -67017,7 +67193,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_83)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -67076,35 +67252,35 @@ static const char *startup_source = " val-keyss205_0" " val-rhss206_0" " val-clauses207_0))))))" -"(if(expand-context-to-parsed? ctx_84)" +"(if(expand-context-to-parsed? ctx_83)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" " trans-idss_2))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_99 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_38)" +"(lambda(obs_100 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_38)" "(begin" "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" +"(let-values(((lst_394) val-idss_4)((lst_395) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" +"(let-values()(check-list lst_394)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_398)))" -"((letrec-values(((for-loop_321)" -"(lambda(fold-var_368 lst_399 lst_400)" +"(let-values()(check-list lst_395)))" +"((letrec-values(((for-loop_320)" +"(lambda(fold-var_368 lst_396 lst_397)" "(begin" " 'for-loop" -"(if(if(pair? lst_399)(pair? lst_400) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_399))" -"((rest_228)(unsafe-cdr lst_399))" -"((val-rhs_11)(unsafe-car lst_400))" -"((rest_229)(unsafe-cdr lst_400)))" +"(if(if(pair? lst_396)(pair? lst_397) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_396))" +"((rest_228)(unsafe-cdr lst_396))" +"((val-rhs_11)(unsafe-car lst_397))" +"((rest_229)(unsafe-cdr lst_397)))" "(let-values(((fold-var_369)" "(let-values(((fold-var_370) fold-var_368))" "(let-values(((fold-var_371)" @@ -67117,38 +67293,38 @@ static const char *startup_source = " fold-var_370))))" "(values fold-var_371)))))" "(if(not #f)" -"(for-loop_321 fold-var_369 rest_228 rest_229)" +"(for-loop_320 fold-var_369 rest_228 rest_229)" " fold-var_369)))" " fold-var_368)))))" -" for-loop_321)" +" for-loop_320)" " null" -" lst_397" -" lst_398))))" +" lst_394" +" lst_395))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" -" obs_99" +" obs_100" " renames-log-tag_1" "(if(not trans-rhss_0)" " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" +"(let-values(((lst_398) trans-idss_3)((lst_399) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" +"(let-values()(check-list lst_398)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_322)" -"(lambda(fold-var_372 lst_403 lst_404)" +"(let-values()(check-list lst_399)))" +"((letrec-values(((for-loop_321)" +"(lambda(fold-var_372 lst_400 lst_401)" "(begin" " 'for-loop" -"(if(if(pair? lst_403)(pair? lst_404) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_403))" -"((rest_230)(unsafe-cdr lst_403))" -"((trans-rhs_5)(unsafe-car lst_404))" -"((rest_231)(unsafe-cdr lst_404)))" +"(if(if(pair? lst_400)(pair? lst_401) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_400))" +"((rest_230)(unsafe-cdr lst_400))" +"((trans-rhs_5)(unsafe-car lst_401))" +"((rest_231)(unsafe-cdr lst_401)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_375)" @@ -67162,25 +67338,25 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_38))))" " fold-var_374))))" "(values fold-var_375)))))" -"(if(not #f)(for-loop_322 fold-var_373 rest_230 rest_231) fold-var_373)))" +"(if(not #f)(for-loop_321 fold-var_373 rest_230 rest_231) fold-var_373)))" " fold-var_372)))))" -" for-loop_322)" +" for-loop_321)" " null" -" lst_401" -" lst_402))))" +" lst_398" +" lst_399))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" -"(lambda(obs_100 val-idss_5 val-rhss_5 bodys_12)" +"(lambda(obs_101 val-idss_5 val-rhss_5 bodys_12)" "(begin" "(begin" -"(call-expand-observe obs_100 'next-group)" +"(call-expand-observe obs_101 'next-group)" "(if(null? val-idss_5)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_100 'prim-letrec-values)" -"(log-let-renames obs_100 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" +"(call-expand-observe obs_101 'prim-letrec-values)" +"(log-let-renames obs_101 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" "(void" "(add-core-form!*" " 'let-values" @@ -67188,8 +67364,8 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'letrec-values" -"(let-values(((temp216_1) #t)((temp217_1) 'prim-letrec-values))" -"(make-let-values-form11.1 temp217_1 temp216_1 #t #f #f #f #f #f #f))))" +"(let-values(((temp216_2) #t)((temp217_2) 'prim-letrec-values))" +"(make-let-values-form11.1 temp217_2 temp216_2 #t #f #f #f #f #f #f))))" "(void" "(add-core-form!*" " 'letrec-syntaxes+values" @@ -67202,30 +67378,30 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_562 ctx_85)" +"(lambda(s_564 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_85)))" -"(if obs_101" -"(let-values()(let-values()(call-expand-observe obs_101 'prim-#%stratified)))" +"(let-values(((obs_102)(expand-context-observer ctx_84)))" +"(if obs_102" +"(let-values()(let-values()(call-expand-observe obs_102 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_562)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_564)))" "(let-values(((ok?_43 #%stratified-body223_0 body224_0)" -"(let-values(((s_563) disarmed-s_9))" -"(let-values(((orig-s_48) s_563))" +"(let-values(((s_565) disarmed-s_9))" +"(let-values(((orig-s_48) s_565))" "(let-values(((#%stratified-body223_1 body224_1)" -"(let-values(((s_564)(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" -"(if(pair? s_564)" +"(let-values(((s_566)(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" +"(if(pair? s_566)" "(let-values(((#%stratified-body225_0)" -"(let-values(((s_565)(car s_564))) s_565))" +"(let-values(((s_567)(car s_566))) s_567))" "((body226_0)" -"(let-values(((s_566)(cdr s_564)))" -"(let-values(((s_567)" -"(if(syntax?$1 s_566)" -"(syntax-e$1 s_566)" -" s_566)))" -"(let-values(((flat-s_42)(to-syntax-list.1 s_567)))" +"(let-values(((s_568)(cdr s_566)))" +"(let-values(((s_569)" +"(if(syntax?$1 s_568)" +"(syntax-e$1 s_568)" +" s_568)))" +"(let-values(((flat-s_42)(to-syntax-list.1 s_569)))" "(if(not flat-s_42)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -67237,40 +67413,40 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx227_0) ctx_85)((s228_0) s_562)((temp229_1) #t))" -"(keep-as-needed86.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" +"(let-values(((ctx227_0) ctx_84)((s228_1) s_564)((temp229_1) #t))" +"(keep-as-needed120.1 #f #f temp229_1 #t #f #f ctx227_0 s228_1))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" -"((ctx231_0) ctx_85)" +"((ctx231_0) ctx_84)" "((temp232_1) #t)" "((rebuild-s233_0) rebuild-s_7))" "(expand-body7.1 rebuild-s233_0 temp232_1 #t temp230_2 ctx231_0))))" -"(if(expand-context-to-parsed? ctx_85)" +"(if(expand-context-to-parsed? ctx_84)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s234_0) rebuild-s_7)" "((temp235_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_85)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" "(rebuild5.1 #f #f rebuild-s234_0 temp235_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_568 ctx_86)" +"(lambda(s_570 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_102)(expand-context-observer ctx_86)))" -"(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%datum)))(void)))" +"(let-values(((obs_103)(expand-context-observer ctx_85)))" +"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_568)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_570)))" "(let-values(((ok?_44 #%datum236_0 datum237_0)" -"(let-values(((s_569) disarmed-s_10))" -"(let-values(((orig-s_49) s_569))" +"(let-values(((s_571) disarmed-s_10))" +"(let-values(((orig-s_49) s_571))" "(let-values(((#%datum236_1 datum237_1)" -"(let-values(((s_570)(if(syntax?$1 s_569)(syntax-e$1 s_569) s_569)))" -"(if(pair? s_570)" -"(let-values(((#%datum238_0)(let-values(((s_571)(car s_570))) s_571))" -"((datum239_0)(let-values(((s_572)(cdr s_570))) s_572)))" +"(let-values(((s_572)(if(syntax?$1 s_571)(syntax-e$1 s_571) s_571)))" +"(if(pair? s_572)" +"(let-values(((#%datum238_0)(let-values(((s_573)(car s_572))) s_573))" +"((datum239_0)(let-values(((s_574)(cdr s_572))) s_574)))" "(values #%datum238_0 datum239_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%datum236_1 datum237_1))))))" @@ -67282,35 +67458,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_151)(expand-context-phase ctx_86)))" -"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_568)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_568)((temp241_1)(list(core-id 'quote phase_151) datum_2)))" +"(let-values(((phase_150)(expand-context-phase ctx_85)))" +"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_570)(syntax->datum$1 datum_2))" +"(let-values(((s240_0) s_570)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_573 ctx_87)" +"(lambda(s_575 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_103)(expand-context-observer ctx_87)))" -"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%app)))(void)))" +"(let-values(((obs_104)(expand-context-observer ctx_86)))" +"(if obs_104(let-values()(let-values()(call-expand-observe obs_104 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_573)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_575)))" "(let-values(((ok?_45 #%app242_0 e243_0)" -"(let-values(((s_574) disarmed-s_11))" -"(let-values(((orig-s_50) s_574))" +"(let-values(((s_576) disarmed-s_11))" +"(let-values(((orig-s_50) s_576))" "(let-values(((#%app242_1 e243_1)" -"(let-values(((s_575)(if(syntax?$1 s_574)(syntax-e$1 s_574) s_574)))" -"(if(pair? s_575)" -"(let-values(((#%app244_0)(let-values(((s_576)(car s_575))) s_576))" +"(let-values(((s_577)(if(syntax?$1 s_576)(syntax-e$1 s_576) s_576)))" +"(if(pair? s_577)" +"(let-values(((#%app244_0)(let-values(((s_578)(car s_577))) s_578))" "((e245_0)" -"(let-values(((s_577)(cdr s_575)))" -"(let-values(((s_578)" -"(if(syntax?$1 s_577)" -"(syntax-e$1 s_577)" -" s_577)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_578)))" +"(let-values(((s_579)(cdr s_577)))" +"(let-values(((s_580)" +"(if(syntax?$1 s_579)" +"(syntax-e$1 s_579)" +" s_579)))" +"(let-values(((flat-s_43)(to-syntax-list.1 s_580)))" "(if(not flat-s_43)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" @@ -67321,25 +67497,25 @@ static const char *startup_source = "(let-values(((es_3) e243_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_152)(expand-context-phase ctx_87)))" -"(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_573) null)" -"(let-values(((s246_0) s_573)((temp247_0)(list(core-id 'quote phase_152) null)))" +"(let-values(((phase_151)(expand-context-phase ctx_86)))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote14.1(keep-properties-only~ s_575) null)" +"(let-values(((s246_0) s_575)((temp247_0)(list(core-id 'quote phase_151) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx248_0) ctx_87)" -"((s249_0) s_573)" +"(let-values(((ctx248_0) ctx_86)" +"((s249_0) s_575)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" -"(keep-as-needed86.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" +"(keep-as-needed120.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx251_0) ctx_87)" +"(let-values(((ctx251_0) ctx_86)" "((prefixless252_0) prefixless_0)" "((keep-for-parsed?253_0) keep-for-parsed?_1))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " #f" @@ -67349,40 +67525,40 @@ static const char *startup_source = " ctx251_0" " prefixless252_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_87)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" "(let-values((()" "(begin" -"(let-values(((obs_104)(expand-context-observer expr-ctx_1)))" -"(if obs_104" +"(let-values(((obs_105)(expand-context-observer expr-ctx_1)))" +"(if obs_105" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_104" +" obs_105" " 'enter-list" -"(datum->syntax$1 #f es_3 s_573))" -"(call-expand-observe obs_104 'next))))" +"(datum->syntax$1 #f es_3 s_575))" +"(call-expand-observe obs_105 'next))))" "(void)))" "(values))))" "(let-values(((rest-es_0)(cdr es_3)))" "(let-values(((exp-rator_0)" "(let-values(((temp254_0)(car es_3))((expr-ctx255_0) expr-ctx_1))" -"(expand7.1 #f #f #f #f temp254_0 expr-ctx255_0))))" +"(expand9.1 #f #f #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_405) rest-es_0))" +"(let-values(((lst_402) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_405)))" -"((letrec-values(((for-loop_323)" -"(lambda(fold-var_376 lst_406)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_322)" +"(lambda(fold-var_376 lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_406)" -"(let-values(((e_92)(unsafe-car lst_406))" +"(if(pair? lst_403)" +"(let-values(((e_92)(unsafe-car lst_403))" "((rest_232)" -"(unsafe-cdr lst_406)))" +"(unsafe-cdr lst_403)))" "(let-values(((fold-var_377)" "(let-values(((fold-var_378)" " fold-var_376))" @@ -67391,21 +67567,23 @@ static const char *startup_source = "(cons" "(let-values()" "(begin" -"(let-values(((obs_105)" +"(let-values(((obs_106)" "(expand-context-observer" " expr-ctx_1)))" -"(if obs_105" +"(if obs_106" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_105" +" obs_106" " 'next)))" "(void)))" "(let-values(((e256_0)" " e_92)" "((expr-ctx257_0)" " expr-ctx_1))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -67416,17 +67594,17 @@ static const char *startup_source = "(values" " fold-var_379)))))" "(if(not #f)" -"(for-loop_323 fold-var_377 rest_232)" +"(for-loop_322 fold-var_377 rest_232)" " fold-var_377)))" " fold-var_376)))))" -" for-loop_323)" +" for-loop_322)" " null" -" lst_405))))))" -"(if(expand-context-to-parsed? ctx_87)" +" lst_402))))))" +"(if(expand-context-to-parsed? ctx_86)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_374) rebuild-prefixless_0))" -"(if or-part_374 or-part_374 rebuild-s_8))" +"(let-values(((or-part_377) rebuild-prefixless_0))" +"(if or-part_377 or-part_377 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -67438,12 +67616,12 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-prefixless260_0 exp-es261_0))" " exp-es_1))))" "(begin" -"(let-values(((obs_106)(expand-context-observer expr-ctx_1)))" -"(if obs_106" +"(let-values(((obs_107)(expand-context-observer expr-ctx_1)))" +"(if obs_107" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_106" +" obs_107" " 'exit-list" "(datum->syntax$1 #f es_4 rebuild-s_8))))" "(void)))" @@ -67453,34 +67631,34 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_579 ctx_88)" +"(lambda(s_581 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_88)))" -"(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-quote)))(void)))" +"(let-values(((obs_108)(expand-context-observer ctx_87)))" +"(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_46 quote262_0 datum263_0)" -"(let-values(((s_580)(syntax-disarm$1 s_579)))" -"(let-values(((orig-s_51) s_580))" +"(let-values(((s_582)(syntax-disarm$1 s_581)))" +"(let-values(((orig-s_51) s_582))" "(let-values(((quote262_1 datum263_1)" -"(let-values(((s_581)(if(syntax?$1 s_580)(syntax-e$1 s_580) s_580)))" -"(if(pair? s_581)" -"(let-values(((quote264_0)(let-values(((s_582)(car s_581))) s_582))" +"(let-values(((s_583)(if(syntax?$1 s_582)(syntax-e$1 s_582) s_582)))" +"(if(pair? s_583)" +"(let-values(((quote264_0)(let-values(((s_584)(car s_583))) s_584))" "((datum265_0)" -"(let-values(((s_583)(cdr s_581)))" -"(let-values(((s_584)" -"(if(syntax?$1 s_583)" -"(syntax-e$1 s_583)" -" s_583)))" -"(if(pair? s_584)" +"(let-values(((s_585)(cdr s_583)))" +"(let-values(((s_586)" +"(if(syntax?$1 s_585)" +"(syntax-e$1 s_585)" +" s_585)))" +"(if(pair? s_586)" "(let-values(((datum266_0)" -"(let-values(((s_585)(car s_584))) s_585))" +"(let-values(((s_587)(car s_586))) s_587))" "(()" -"(let-values(((s_586)(cdr s_584)))" +"(let-values(((s_588)(cdr s_586)))" "(let-values(((s_281)" -"(if(syntax?$1 s_586)" -"(syntax-e$1 s_586)" -" s_586)))" +"(if(syntax?$1 s_588)" +"(syntax-e$1 s_588)" +" s_588)))" "(if(null? s_281)" "(values)" "(raise-syntax-error$1" @@ -67492,41 +67670,41 @@ static const char *startup_source = "(values quote264_0 datum265_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote262_1 datum263_1))))))" -"(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_579)(syntax->datum$1 datum263_0))" -" s_579))))))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote14.1(keep-properties-only~ s_581)(syntax->datum$1 datum263_0))" +" s_581))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_587 ctx_89)" +"(lambda(s_589 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_89)))" -"(if obs_108" -"(let-values()(let-values()(call-expand-observe obs_108 'prim-quote-syntax)))" +"(let-values(((obs_109)(expand-context-observer ctx_88)))" +"(if obs_109" +"(let-values()(let-values()(call-expand-observe obs_109 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_587)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_589)))" "(let-values(((ok?_47 quote-syntax267_0 datum268_0)" -"(let-values(((s_588) disarmed-s_12))" -"(if(let-values(((s_589)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" -"(if(pair? s_589)" -"(if(let-values(((s_590)(car s_589))) #t)" -"(let-values(((s_591)(cdr s_589)))" -"(let-values(((s_592)(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))" -"(if(pair? s_592)" -"(if(let-values(((s_593)(car s_592))) #t)" -"(let-values(((s_594)(cdr s_592)))" -"(let-values(((s_595)(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" -"(if(pair? s_595)" -"(if(let-values(((s_596)(car s_595)))" -"(let-values(((s_597)" -"(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" -"(eq? '#:local s_597)))" -"(let-values(((s_598)(cdr s_595)))" +"(let-values(((s_590) disarmed-s_12))" +"(if(let-values(((s_591)(if(syntax?$1 s_590)(syntax-e$1 s_590) s_590)))" +"(if(pair? s_591)" +"(if(let-values(((s_592)(car s_591))) #t)" +"(let-values(((s_593)(cdr s_591)))" +"(let-values(((s_594)(if(syntax?$1 s_593)(syntax-e$1 s_593) s_593)))" +"(if(pair? s_594)" +"(if(let-values(((s_595)(car s_594))) #t)" +"(let-values(((s_596)(cdr s_594)))" +"(let-values(((s_597)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" +"(if(pair? s_597)" +"(if(let-values(((s_598)(car s_597)))" "(let-values(((s_599)" "(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" -"(null? s_599)))" +"(eq? '#:local s_599)))" +"(let-values(((s_600)(cdr s_597)))" +"(let-values(((s_601)" +"(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" +"(null? s_601)))" " #f)" " #f)))" " #f)" @@ -67535,23 +67713,23 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax267_1 datum268_1)" -"(let-values(((s_600)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" +"(let-values(((s_602)(if(syntax?$1 s_590)(syntax-e$1 s_590) s_590)))" "(let-values(((quote-syntax269_0)" -"(let-values(((s_601)(car s_600))) s_601))" +"(let-values(((s_603)(car s_602))) s_603))" "((datum270_0)" -"(let-values(((s_602)(cdr s_600)))" -"(let-values(((s_603)" -"(if(syntax?$1 s_602)" -"(syntax-e$1 s_602)" -" s_602)))" +"(let-values(((s_604)(cdr s_602)))" +"(let-values(((s_605)" +"(if(syntax?$1 s_604)" +"(syntax-e$1 s_604)" +" s_604)))" "(let-values(((datum271_0)" -"(let-values(((s_604)(car s_603))) s_604))" +"(let-values(((s_606)(car s_605))) s_606))" "(()" -"(let-values(((s_605)(cdr s_603)))" +"(let-values(((s_607)(cdr s_605)))" "(let-values(((s_293)" -"(if(syntax?$1 s_605)" -"(syntax-e$1 s_605)" -" s_605)))" +"(if(syntax?$1 s_607)" +"(syntax-e$1 s_607)" +" s_607)))" "(let-values((()" "(let-values(((s_294)" "(car" @@ -67564,15 +67742,15 @@ static const char *startup_source = " s_294)))" "(values))))" "(()" -"(let-values(((s_606)" +"(let-values(((s_608)" "(cdr" " s_293)))" -"(let-values(((s_607)" +"(let-values(((s_609)" "(if(syntax?$1" -" s_606)" +" s_608)" "(syntax-e$1" -" s_606)" -" s_606)))" +" s_608)" +" s_608)))" "(values)))))" "(values))))))" "(values datum271_0))))))" @@ -67580,31 +67758,31 @@ static const char *startup_source = "(values #t quote-syntax267_1 datum268_1)))" "(values #f #f #f)))))" "(let-values(((ok?_48 quote-syntax272_0 datum273_0)" -"(let-values(((s_608) disarmed-s_12))" +"(let-values(((s_610) disarmed-s_12))" "(if(if(not ok?_47) #t #f)" -"(let-values(((orig-s_52) s_608))" +"(let-values(((orig-s_52) s_610))" "(let-values(((quote-syntax272_1 datum273_1)" -"(let-values(((s_609)(if(syntax?$1 s_608)(syntax-e$1 s_608) s_608)))" -"(if(pair? s_609)" +"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))" +"(if(pair? s_611)" "(let-values(((quote-syntax274_0)" -"(let-values(((s_610)(car s_609))) s_610))" +"(let-values(((s_612)(car s_611))) s_612))" "((datum275_0)" -"(let-values(((s_611)(cdr s_609)))" -"(let-values(((s_612)" -"(if(syntax?$1 s_611)" -"(syntax-e$1 s_611)" -" s_611)))" -"(if(pair? s_612)" +"(let-values(((s_613)(cdr s_611)))" +"(let-values(((s_614)" +"(if(syntax?$1 s_613)" +"(syntax-e$1 s_613)" +" s_613)))" +"(if(pair? s_614)" "(let-values(((datum276_0)" -"(let-values(((s_613)(car s_612)))" -" s_613))" +"(let-values(((s_615)(car s_614)))" +" s_615))" "(()" -"(let-values(((s_614)(cdr s_612)))" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)" -"(syntax-e$1 s_614)" -" s_614)))" -"(if(null? s_615)" +"(let-values(((s_616)(cdr s_614)))" +"(let-values(((s_617)" +"(if(syntax?$1 s_616)" +"(syntax-e$1 s_616)" +" s_616)))" +"(if(null? s_617)" "(values)" "(raise-syntax-error$1" " #f" @@ -67623,55 +67801,55 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_89))" +"(reference-records-all-used!(expand-context-reference-records ctx_88))" "(values))))" "(let-values(((ok?_49 _277_0 _278_0 kw279_0)" "(let-values(((s_302) disarmed-s_12))" "(let-values(((orig-s_53) s_302))" "(let-values(((_277_1 _278_1 kw279_1)" -"(let-values(((s_616)" +"(let-values(((s_618)" "(if(syntax?$1 s_302)(syntax-e$1 s_302) s_302)))" -"(if(pair? s_616)" +"(if(pair? s_618)" "(let-values(((_280_0)" -"(let-values(((s_617)(car s_616))) s_617))" +"(let-values(((s_619)(car s_618))) s_619))" "((_281_0 kw282_0)" -"(let-values(((s_618)(cdr s_616)))" -"(let-values(((s_619)" -"(if(syntax?$1 s_618)" -"(syntax-e$1 s_618)" -" s_618)))" -"(if(pair? s_619)" -"(let-values(((_283_0)" -"(let-values(((s_620)" -"(car s_619)))" -" s_620))" -"((kw284_0)" +"(let-values(((s_620)(cdr s_618)))" "(let-values(((s_621)" -"(cdr s_619)))" +"(if(syntax?$1 s_620)" +"(syntax-e$1 s_620)" +" s_620)))" +"(if(pair? s_621)" +"(let-values(((_283_0)" "(let-values(((s_622)" -"(if(syntax?$1" -" s_621)" -"(syntax-e$1" -" s_621)" -" s_621)))" -"(if(pair? s_622)" -"(let-values(((kw285_0)" +"(car s_621)))" +" s_622))" +"((kw284_0)" "(let-values(((s_623)" -"(car" -" s_622)))" -" s_623))" -"(()" +"(cdr s_621)))" "(let-values(((s_624)" -"(cdr" -" s_622)))" -"(let-values(((s_625)" "(if(syntax?$1" -" s_624)" +" s_623)" "(syntax-e$1" -" s_624)" +" s_623)" +" s_623)))" +"(if(pair? s_624)" +"(let-values(((kw285_0)" +"(let-values(((s_625)" +"(car" " s_624)))" +" s_625))" +"(()" +"(let-values(((s_626)" +"(cdr" +" s_624)))" +"(let-values(((s_627)" +"(if(syntax?$1" +" s_626)" +"(syntax-e$1" +" s_626)" +" s_626)))" "(if(null?" -" s_625)" +" s_627)" "(values)" "(raise-syntax-error$1" " #f" @@ -67690,43 +67868,43 @@ static const char *startup_source = "(values _280_0 _281_0 kw282_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _277_1 _278_1 kw279_1))))))" -"(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_587) datum268_0)" -"(let-values(((s286_0) s_587)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" +"(if(expand-context-to-parsed? ctx_88)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_589) datum268_0)" +"(let-values(((s286_0) s_589)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" "(rebuild5.1 #f #f s286_0 temp287_0))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_89))))" -"(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_587) datum-s_0)" -"(let-values(((s288_0) s_587)((temp289_0)(list quote-syntax272_0 datum-s_0)))" +"(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_88))))" +"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_589) datum-s_0)" +"(let-values(((s288_0) s_589)((temp289_0)(list quote-syntax272_0 datum-s_0)))" "(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_626 ctx_90)" +"(lambda(s_628 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_90)))" -"(if obs_109(let-values()(let-values()(call-expand-observe obs_109 'prim-if)))(void)))" +"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(if obs_110(let-values()(let-values()(call-expand-observe obs_110 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_626)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_628)))" "(let-values(((ok?_50 _290_0 _291_0 _292_0)" -"(let-values(((s_627) disarmed-s_13))" -"(if(let-values(((s_628)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" -"(if(pair? s_628)" -"(if(let-values(((s_629)(car s_628))) #t)" -"(let-values(((s_630)(cdr s_628)))" -"(let-values(((s_631)(if(syntax?$1 s_630)(syntax-e$1 s_630) s_630)))" -"(if(pair? s_631)" -"(if(let-values(((s_632)(car s_631))) #t)" -"(let-values(((s_633)(cdr s_631)))" -"(let-values(((s_634)(if(syntax?$1 s_633)(syntax-e$1 s_633) s_633)))" -"(if(pair? s_634)" -"(if(let-values(((s_635)(car s_634))) #t)" -"(let-values(((s_636)(cdr s_634)))" -"(let-values(((s_637)" -"(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" -"(null? s_637)))" +"(let-values(((s_629) disarmed-s_13))" +"(if(let-values(((s_630)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" +"(if(pair? s_630)" +"(if(let-values(((s_631)(car s_630))) #t)" +"(let-values(((s_632)(cdr s_630)))" +"(let-values(((s_633)(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" +"(if(pair? s_633)" +"(if(let-values(((s_634)(car s_633))) #t)" +"(let-values(((s_635)(cdr s_633)))" +"(let-values(((s_636)(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" +"(if(pair? s_636)" +"(if(let-values(((s_637)(car s_636))) #t)" +"(let-values(((s_638)(cdr s_636)))" +"(let-values(((s_639)" +"(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(null? s_639)))" " #f)" " #f)))" " #f)" @@ -67735,37 +67913,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_290_1 _291_1 _292_1)" -"(let-values(((s_638)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" -"(let-values(((_293_0)(let-values(((s_639)(car s_638))) s_639))" +"(let-values(((s_640)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" +"(let-values(((_293_0)(let-values(((s_641)(car s_640))) s_641))" "((_294_0 _295_0)" -"(let-values(((s_640)(cdr s_638)))" -"(let-values(((s_641)" -"(if(syntax?$1 s_640)" -"(syntax-e$1 s_640)" -" s_640)))" +"(let-values(((s_642)(cdr s_640)))" +"(let-values(((s_643)" +"(if(syntax?$1 s_642)" +"(syntax-e$1 s_642)" +" s_642)))" "(let-values(((_296_0)" -"(let-values(((s_642)(car s_641))) s_642))" +"(let-values(((s_644)(car s_643))) s_644))" "((_297_0)" -"(let-values(((s_643)(cdr s_641)))" -"(let-values(((s_644)" -"(if(syntax?$1 s_643)" -"(syntax-e$1 s_643)" -" s_643)))" -"(let-values(((_298_0)" -"(let-values(((s_645)" -"(car" -" s_644)))" -" s_645))" -"(()" +"(let-values(((s_645)(cdr s_643)))" "(let-values(((s_646)" -"(cdr" -" s_644)))" +"(if(syntax?$1 s_645)" +"(syntax-e$1 s_645)" +" s_645)))" +"(let-values(((_298_0)" "(let-values(((s_647)" -"(if(syntax?$1" -" s_646)" -"(syntax-e$1" -" s_646)" +"(car" " s_646)))" +" s_647))" +"(()" +"(let-values(((s_648)" +"(cdr" +" s_646)))" +"(let-values(((s_649)" +"(if(syntax?$1" +" s_648)" +"(syntax-e$1" +" s_648)" +" s_648)))" "(values)))))" "(values _298_0))))))" "(values _296_0 _297_0))))))" @@ -67775,67 +67953,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_50" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_626))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_628))" "(void))" "(values))))" "(let-values(((ok?_51 if299_0 tst300_0 thn301_0 els302_0)" -"(let-values(((s_648) disarmed-s_13))" -"(let-values(((orig-s_54) s_648))" +"(let-values(((s_650) disarmed-s_13))" +"(let-values(((orig-s_54) s_650))" "(let-values(((if299_1 tst300_1 thn301_1 els302_1)" -"(let-values(((s_649)(if(syntax?$1 s_648)(syntax-e$1 s_648) s_648)))" -"(if(pair? s_649)" -"(let-values(((if303_0)(let-values(((s_650)(car s_649))) s_650))" +"(let-values(((s_651)(if(syntax?$1 s_650)(syntax-e$1 s_650) s_650)))" +"(if(pair? s_651)" +"(let-values(((if303_0)(let-values(((s_652)(car s_651))) s_652))" "((tst304_0 thn305_0 els306_0)" -"(let-values(((s_651)(cdr s_649)))" -"(let-values(((s_652)" -"(if(syntax?$1 s_651)" -"(syntax-e$1 s_651)" -" s_651)))" -"(if(pair? s_652)" +"(let-values(((s_653)(cdr s_651)))" +"(let-values(((s_654)" +"(if(syntax?$1 s_653)" +"(syntax-e$1 s_653)" +" s_653)))" +"(if(pair? s_654)" "(let-values(((tst307_0)" -"(let-values(((s_653)(car s_652)))" -" s_653))" +"(let-values(((s_655)(car s_654)))" +" s_655))" "((thn308_0 els309_0)" -"(let-values(((s_654)(cdr s_652)))" -"(let-values(((s_655)" -"(if(syntax?$1 s_654)" -"(syntax-e$1 s_654)" -" s_654)))" -"(if(pair? s_655)" -"(let-values(((thn310_0)" -"(let-values(((s_656)" -"(car" -" s_655)))" -" s_656))" -"((els311_0)" +"(let-values(((s_656)(cdr s_654)))" "(let-values(((s_657)" -"(cdr" -" s_655)))" +"(if(syntax?$1 s_656)" +"(syntax-e$1 s_656)" +" s_656)))" +"(if(pair? s_657)" +"(let-values(((thn310_0)" "(let-values(((s_658)" -"(if(syntax?$1" -" s_657)" -"(syntax-e$1" -" s_657)" -" s_657)))" -"(if(pair?" -" s_658)" -"(let-values(((els312_0)" -"(let-values(((s_659)" "(car" -" s_658)))" -" s_659))" -"(()" -"(let-values(((s_660)" +" s_657)))" +" s_658))" +"((els311_0)" +"(let-values(((s_659)" "(cdr" -" s_658)))" -"(let-values(((s_661)" +" s_657)))" +"(let-values(((s_660)" "(if(syntax?$1" -" s_660)" +" s_659)" "(syntax-e$1" +" s_659)" +" s_659)))" +"(if(pair?" " s_660)" +"(let-values(((els312_0)" +"(let-values(((s_661)" +"(car" " s_660)))" +" s_661))" +"(()" +"(let-values(((s_662)" +"(cdr" +" s_660)))" +"(let-values(((s_663)" +"(if(syntax?$1" +" s_662)" +"(syntax-e$1" +" s_662)" +" s_662)))" "(if(null?" -" s_661)" +" s_663)" "(values)" "(raise-syntax-error$1" " #f" @@ -67860,37 +68038,37 @@ static const char *startup_source = "(values if303_0 tst304_0 thn305_0 els306_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t if299_1 tst300_1 thn301_1 els302_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_90)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_90))" +"(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_89))" "(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx315_0) ctx_90)((s316_0) s_626))" -"(keep-as-needed86.1 #f #f #f #f #f #f ctx315_0 s316_0))))" +"(let-values(((ctx315_0) ctx_89)((s316_0) s_628))" +"(keep-as-needed120.1 #f #f #f #f #f #f ctx315_0 s316_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))" -"(expand7.1 #f #f #f #f temp317_0 expr-ctx318_0))))" +"(expand9.1 #f #f #f #f #f #f temp317_0 expr-ctx318_0))))" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_90)))" -"(if obs_110" -"(let-values()(let-values()(call-expand-observe obs_110 'next)))" -"(void)))" -"(values))))" -"(let-values(((exp-thn_0)" -"(let-values(((temp319_0) thn301_0)((tail-ctx320_0) tail-ctx_0))" -"(expand7.1 #f #f #f #f temp319_0 tail-ctx320_0))))" -"(let-values((()" -"(begin" -"(let-values(((obs_111)(expand-context-observer ctx_90)))" +"(let-values(((obs_111)(expand-context-observer ctx_89)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" "(values))))" +"(let-values(((exp-thn_0)" +"(let-values(((temp319_0) thn301_0)((tail-ctx320_0) tail-ctx_0))" +"(expand9.1 #f #f #f #f #f #f temp319_0 tail-ctx320_0))))" +"(let-values((()" +"(begin" +"(let-values(((obs_112)(expand-context-observer ctx_89)))" +"(if obs_112" +"(let-values()(let-values()(call-expand-observe obs_112 'next)))" +"(void)))" +"(values))))" "(let-values(((exp-els_0)" "(let-values(((temp321_0) els302_0)((tail-ctx322_0) tail-ctx_0))" -"(expand7.1 #f #f #f #f temp321_0 tail-ctx322_0))))" -"(if(expand-context-to-parsed? ctx_90)" +"(expand9.1 #f #f #f #f #f #f temp321_0 tail-ctx322_0))))" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s323_0) rebuild-s_9)" "((temp324_0)(list if299_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -67898,73 +68076,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_662 ctx_91)" +"(lambda(s_664 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_91)))" -"(if obs_112" -"(let-values()(let-values()(call-expand-observe obs_112 'prim-with-continuation-mark)))" +"(let-values(((obs_113)(expand-context-observer ctx_90)))" +"(if obs_113" +"(let-values()(let-values()(call-expand-observe obs_113 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_662)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_664)))" "(let-values(((ok?_52 with-continuation-mark325_0 key326_0 val327_0 body328_0)" -"(let-values(((s_663) disarmed-s_14))" -"(let-values(((orig-s_55) s_663))" +"(let-values(((s_665) disarmed-s_14))" +"(let-values(((orig-s_55) s_665))" "(let-values(((with-continuation-mark325_1 key326_1 val327_1 body328_1)" -"(let-values(((s_664)(if(syntax?$1 s_663)(syntax-e$1 s_663) s_663)))" -"(if(pair? s_664)" +"(let-values(((s_666)(if(syntax?$1 s_665)(syntax-e$1 s_665) s_665)))" +"(if(pair? s_666)" "(let-values(((with-continuation-mark329_0)" -"(let-values(((s_665)(car s_664))) s_665))" +"(let-values(((s_667)(car s_666))) s_667))" "((key330_0 val331_0 body332_0)" -"(let-values(((s_666)(cdr s_664)))" -"(let-values(((s_667)" -"(if(syntax?$1 s_666)" -"(syntax-e$1 s_666)" -" s_666)))" -"(if(pair? s_667)" +"(let-values(((s_668)(cdr s_666)))" +"(let-values(((s_669)" +"(if(syntax?$1 s_668)" +"(syntax-e$1 s_668)" +" s_668)))" +"(if(pair? s_669)" "(let-values(((key333_0)" -"(let-values(((s_668)(car s_667)))" -" s_668))" +"(let-values(((s_670)(car s_669)))" +" s_670))" "((val334_0 body335_0)" -"(let-values(((s_669)(cdr s_667)))" -"(let-values(((s_670)" -"(if(syntax?$1 s_669)" -"(syntax-e$1 s_669)" -" s_669)))" -"(if(pair? s_670)" -"(let-values(((val336_0)" -"(let-values(((s_671)" -"(car" -" s_670)))" -" s_671))" -"((body337_0)" +"(let-values(((s_671)(cdr s_669)))" "(let-values(((s_672)" -"(cdr" -" s_670)))" +"(if(syntax?$1 s_671)" +"(syntax-e$1 s_671)" +" s_671)))" +"(if(pair? s_672)" +"(let-values(((val336_0)" "(let-values(((s_673)" -"(if(syntax?$1" -" s_672)" -"(syntax-e$1" -" s_672)" -" s_672)))" -"(if(pair? s_673)" -"(let-values(((body338_0)" -"(let-values(((s_674)" "(car" -" s_673)))" -" s_674))" -"(()" -"(let-values(((s_675)" +" s_672)))" +" s_673))" +"((body337_0)" +"(let-values(((s_674)" "(cdr" -" s_673)))" -"(let-values(((s_676)" +" s_672)))" +"(let-values(((s_675)" "(if(syntax?$1" -" s_675)" +" s_674)" "(syntax-e$1" -" s_675)" +" s_674)" +" s_674)))" +"(if(pair? s_675)" +"(let-values(((body338_0)" +"(let-values(((s_676)" +"(car" " s_675)))" +" s_676))" +"(()" +"(let-values(((s_677)" +"(cdr" +" s_675)))" +"(let-values(((s_678)" +"(if(syntax?$1" +" s_677)" +"(syntax-e$1" +" s_677)" +" s_677)))" "(if(null?" -" s_676)" +" s_678)" "(values)" "(raise-syntax-error$1" " #f" @@ -67986,37 +68164,37 @@ static const char *startup_source = "(values with-continuation-mark329_0 key330_0 val331_0 body332_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx339_0) ctx_91)((s340_0) s_662))" -"(keep-as-needed86.1 #f #f #f #f #f #f ctx339_0 s340_0))))" +"(let-values(((ctx339_0) ctx_90)((s340_0) s_664))" +"(keep-as-needed120.1 #f #f #f #f #f #f ctx339_0 s340_0))))" "(let-values(((exp-key_0)" "(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))" -"(expand7.1 #f #f #f #f temp341_0 expr-ctx342_0))))" +"(expand9.1 #f #f #f #f #f #f temp341_0 expr-ctx342_0))))" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_91)))" -"(if obs_113" -"(let-values()(let-values()(call-expand-observe obs_113 'next)))" +"(let-values(((obs_114)(expand-context-observer ctx_90)))" +"(if obs_114" +"(let-values()(let-values()(call-expand-observe obs_114 'next)))" "(void)))" "(values))))" "(let-values(((exp-val_0)" "(let-values(((temp343_0) val327_0)((expr-ctx344_0) expr-ctx_3))" -"(expand7.1 #f #f #f #f temp343_0 expr-ctx344_0))))" +"(expand9.1 #f #f #f #f #f #f temp343_0 expr-ctx344_0))))" "(let-values((()" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_91)))" -"(if obs_114" -"(let-values()(let-values()(call-expand-observe obs_114 'next)))" +"(let-values(((obs_115)(expand-context-observer ctx_90)))" +"(if obs_115" +"(let-values()(let-values()(call-expand-observe obs_115 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_6)" "(let-values(((temp345_0) body328_0)" "((temp346_0)" -"(let-values(((expr-ctx347_0) expr-ctx_3)((ctx348_0) ctx_91))" +"(let-values(((expr-ctx347_0) expr-ctx_3)((ctx348_0) ctx_90))" "(as-tail-context23.1 ctx348_0 expr-ctx347_0))))" -"(expand7.1 #f #f #f #f temp345_0 temp346_0))))" -"(if(expand-context-to-parsed? ctx_91)" +"(expand9.1 #f #f #f #f #f #f temp345_0 temp346_0))))" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s349_0) rebuild-s_10)" "((temp350_0)(list with-continuation-mark325_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -68031,32 +68209,32 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_677 ctx_92)" +"(lambda(s_679 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_115)(expand-context-observer ctx_92)))" -"(if obs_115" -"(let-values()(let-values()(call-expand-observe obs_115 log-tag_1)))" +"(let-values(((obs_116)(expand-context-observer ctx_91)))" +"(if obs_116" +"(let-values()(let-values()(call-expand-observe obs_116 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_677)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_679)))" "(let-values(((ok?_53 begin351_0 e352_0)" -"(let-values(((s_678) disarmed-s_15))" -"(let-values(((orig-s_56) s_678))" +"(let-values(((s_680) disarmed-s_15))" +"(let-values(((orig-s_56) s_680))" "(let-values(((begin351_1 e352_1)" -"(let-values(((s_679)" -"(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" -"(if(pair? s_679)" +"(let-values(((s_681)" +"(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" +"(if(pair? s_681)" "(let-values(((begin353_0)" -"(let-values(((s_680)(car s_679))) s_680))" +"(let-values(((s_682)(car s_681))) s_682))" "((e354_0)" -"(let-values(((s_681)(cdr s_679)))" -"(let-values(((s_682)" -"(if(syntax?$1 s_681)" -"(syntax-e$1 s_681)" -" s_681)))" +"(let-values(((s_683)(cdr s_681)))" +"(let-values(((s_684)" +"(if(syntax?$1 s_683)" +"(syntax-e$1 s_683)" +" s_683)))" "(let-values(((flat-s_44)" -"(to-syntax-list.1 s_682)))" +"(to-syntax-list.1 s_684)))" "(if(not flat-s_44)" "(let-values()" "(raise-syntax-error$1" @@ -68075,11 +68253,11 @@ static const char *startup_source = "(values #t begin351_1 e352_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_92)" -"(as-expression-context ctx_92))))" +"(as-begin-expression-context ctx_91)" +"(as-expression-context ctx_91))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx355_0) ctx_92)((s356_0) s_677))" -"(keep-as-needed86.1 #f #f #f #f #f #f ctx355_0 s356_0))))" +"(let-values(((ctx355_0) ctx_91)((s356_0) s_679))" +"(keep-as-needed120.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" "(lambda(es_5 index_6)" @@ -68088,17 +68266,17 @@ static const char *startup_source = "(begin" "(if(zero? index_6)" "(let-values()" -"(let-values(((obs_116)" -"(expand-context-observer ctx_92)))" -"(if obs_116" +"(let-values(((obs_117)" +"(expand-context-observer ctx_91)))" +"(if obs_117" "(let-values()" "(begin" "(if(zero? list-start-index_0)" "(void)" "(let-values()" -"(call-expand-observe obs_116 'next)))" +"(call-expand-observe obs_117 'next)))" "(call-expand-observe" -" obs_116" +" obs_117" " 'enter-list" "(datum->syntax$1 #f es_5 rebuild-s_11))))" "(void))))" @@ -68108,13 +68286,13 @@ static const char *startup_source = "(let-values()" "(let-values(((rest-es_1)(cdr es_5)))" "(begin" -"(let-values(((obs_117)" +"(let-values(((obs_118)" "(expand-context-observer" -" ctx_92)))" -"(if obs_117" +" ctx_91)))" +"(if obs_118" "(let-values()" "(let-values()" -"(call-expand-observe obs_117 'next)))" +"(call-expand-observe obs_118 'next)))" "(void)))" "(cons" "(let-values(((temp357_0)(car es_5))" @@ -68125,12 +68303,14 @@ static const char *startup_source = "(let-values(((expr-ctx359_0)" " expr-ctx_4)" "((ctx360_0)" -" ctx_92))" +" ctx_91))" "(as-tail-context23.1" " ctx360_0" " expr-ctx359_0))" " expr-ctx_4)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -68142,16 +68322,16 @@ static const char *startup_source = " e352_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_92)))" -"(if obs_118" +"(let-values(((obs_119)(expand-context-observer ctx_91)))" +"(if obs_119" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_118" +" obs_119" " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s361_0) rebuild-s_11)((temp362_0)(cons begin351_0 exp-es_2)))" "(rebuild5.1 #f #f rebuild-s361_0 temp362_0)))))))))))))))))))" @@ -68164,39 +68344,39 @@ static const char *startup_source = "((temp365_0) 0)" "((temp366_0) #t))" "(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))" -"(lambda(s_683 ctx_93)" -"(let-values(((context_24)(expand-context-context ctx_93)))" -"(if(let-values(((or-part_375)(eq? context_24 'top-level)))" -"(if or-part_375 or-part_375(eq? context_24 'module)))" +"(lambda(s_685 ctx_92)" +"(let-values(((context_24)(expand-context-context ctx_92)))" +"(if(let-values(((or-part_378)(eq? context_24 'top-level)))" +"(if or-part_378 or-part_378(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_685)))" "(let-values(((ok?_54 begin367_0)" -"(let-values(((s_684) disarmed-s_16))" -"(if(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" -"(if(pair? s_685)" -"(if(let-values(((s_686)(car s_685))) #t)" -"(let-values(((s_687)(cdr s_685)))" -"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" -"(null? s_688)))" +"(let-values(((s_686) disarmed-s_16))" +"(if(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" +"(if(pair? s_687)" +"(if(let-values(((s_688)(car s_687))) #t)" +"(let-values(((s_689)(cdr s_687)))" +"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" +"(null? s_690)))" " #f)" " #f))" "(let-values()" "(let-values(((begin367_1)" -"(let-values(((s_689)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" +"(let-values(((s_691)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" "(let-values(((begin368_0)" -"(let-values(((s_690)(car s_689))) s_690))" +"(let-values(((s_692)(car s_691))) s_692))" "(()" -"(let-values(((s_691)(cdr s_689)))" -"(let-values(((s_692)" -"(if(syntax?$1 s_691)" -"(syntax-e$1 s_691)" -" s_691)))" +"(let-values(((s_693)(cdr s_691)))" +"(let-values(((s_694)" +"(if(syntax?$1 s_693)" +"(syntax-e$1 s_693)" +" s_693)))" "(values)))))" "(values begin368_0)))))" "(values #t begin367_1)))" "(values #f #f)))))" -"(if ok?_54 s_683(nonempty-begin_0 s_683 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_683 ctx_93))))))))" +"(if ok?_54 s_685(nonempty-begin_0 s_685 ctx_92)))))" +"(let-values()(nonempty-begin_0 s_685 ctx_92))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -68204,14 +68384,14 @@ static const char *startup_source = "(make-begin20.1 temp372_0 temp371_0 temp369_0 parsed-begin0370_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_125 ctx_94)" +"(lambda(id_125 ctx_93)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_94)" -"(expand-context-phase ctx_94)" +"(expand-context-need-eventually-defined ctx_93)" +"(expand-context-phase ctx_93)" "(lambda(l_87)(cons id_125 l_87))" " null)" " #t))" @@ -68223,58 +68403,58 @@ static const char *startup_source = "(lambda(s375_0 ctx376_0 implicit-omitted?373_0 implicit-omitted?374_0)" "(begin" " 'core377" -"(let-values(((s_693) s375_0))" -"(let-values(((ctx_95) ctx376_0))" +"(let-values(((s_695) s375_0))" +"(let-values(((ctx_94) ctx376_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_95)))" -"(if obs_119" +"(let-values(((obs_120)(expand-context-observer ctx_94)))" +"(if obs_120" "(let-values()" -"(let-values()(call-expand-observe obs_119 'prim-#%top)))" +"(let-values()(call-expand-observe obs_120 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_693)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_695)))" "(let-values(((id_126)" "(if implicit-omitted?_0" -"(let-values() s_693)" +"(let-values() s_695)" "(let-values()" "(let-values(((ok?_55 #%top379_0 id380_0)" -"(let-values(((s_694) disarmed-s_17))" -"(let-values(((orig-s_57) s_694))" +"(let-values(((s_696) disarmed-s_17))" +"(let-values(((orig-s_57) s_696))" "(let-values(((#%top379_1 id380_1)" -"(let-values(((s_695)" -"(if(syntax?$1 s_694)" -"(syntax-e$1 s_694)" -" s_694)))" -"(if(pair? s_695)" -"(let-values(((#%top381_0)" -"(let-values(((s_696)" -"(car" -" s_695)))" -" s_696))" -"((id382_0)" "(let-values(((s_697)" +"(if(syntax?$1 s_696)" +"(syntax-e$1 s_696)" +" s_696)))" +"(if(pair? s_697)" +"(let-values(((#%top381_0)" +"(let-values(((s_698)" +"(car" +" s_697)))" +" s_698))" +"((id382_0)" +"(let-values(((s_699)" "(cdr" -" s_695)))" -"(if(let-values(((or-part_376)" +" s_697)))" +"(if(let-values(((or-part_379)" "(if(syntax?$1" -" s_697)" +" s_699)" "(symbol?" "(syntax-e$1" -" s_697))" +" s_699))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_379" +" or-part_379" "(symbol?" -" s_697)))" -" s_697" +" s_699)))" +" s_699" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_697)))))" +" s_699)))))" "(values #%top381_0 id382_0))" "(raise-syntax-error$1" " #f" @@ -68284,7 +68464,7 @@ static const char *startup_source = " id380_0)))))" "(let-values(((b_94)" "(let-values(((id383_0) id_126)" -"((temp384_0)(expand-context-phase ctx_95))" +"((temp384_0)(expand-context-phase ctx_94))" "((temp385_0) 'ambiguous))" "(resolve+shift30.1" " temp385_0" @@ -68300,25 +68480,25 @@ static const char *startup_source = " id383_0" " temp384_0))))" "(if(eq? b_94 'ambiguous)" -"(let-values()(raise-ambiguous-error id_126 ctx_95))" +"(let-values()(raise-ambiguous-error id_126 ctx_94))" "(if(if b_94" "(if(module-binding? b_94)" -"(eq?(module-binding-module b_94)(root-expand-context-self-mpi ctx_95))" +"(eq?(module-binding-module b_94)(root-expand-context-self-mpi ctx_94))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-id2.1 id_126 b_94 #f)" "(if(top-level-module-path-index?(module-binding-module b_94))" -"(let-values() s_693)" +"(let-values() s_695)" "(let-values() id_126))))" -"(if(register-eventual-variable!? id_126 ctx_95)" +"(if(register-eventual-variable!? id_126 ctx_94)" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-id2.1 id_126 b_94 #f)" " id_126))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_95))" +"(if(not(expand-context-allow-unbound? ctx_94))" "(let-values()" "(raise-unbound-syntax-error" " #f" @@ -68326,16 +68506,16 @@ static const char *startup_source = " id_126" " #f" " null" -"(syntax-debug-info-string id_126 ctx_95)))" +"(syntax-debug-info-string id_126 ctx_94)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" " id_126" -"(root-expand-context-top-level-bind-scope ctx_95))))" +"(root-expand-context-top-level-bind-scope ctx_94))))" "(let-values(((tl-b_1)" "(let-values(((tl-id386_0) tl-id_1)" "((temp387_0)" -"(expand-context-phase ctx_95)))" +"(expand-context-phase ctx_94)))" "(resolve40.1" " #f" " #f" @@ -68349,48 +68529,48 @@ static const char *startup_source = " temp387_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" "(let-values() id_126)" "(let-values()" "(let-values(((ok?_56 #%top388_0 id389_0)" -"(let-values(((s_698) disarmed-s_17))" -"(let-values(((orig-s_58) s_698))" +"(let-values(((s_700) disarmed-s_17))" +"(let-values(((orig-s_58) s_700))" "(let-values(((#%top388_1 id389_1)" -"(let-values(((s_699)" -"(if(syntax?$1" -" s_698)" -"(syntax-e$1" -" s_698)" -" s_698)))" -"(if(pair? s_699)" -"(let-values(((#%top390_0)" -"(let-values(((s_700)" -"(car" -" s_699)))" -" s_700))" -"((id391_0)" "(let-values(((s_701)" -"(cdr" -" s_699)))" -"(if(let-values(((or-part_377)" "(if(syntax?$1" -" s_701)" +" s_700)" +"(syntax-e$1" +" s_700)" +" s_700)))" +"(if(pair? s_701)" +"(let-values(((#%top390_0)" +"(let-values(((s_702)" +"(car" +" s_701)))" +" s_702))" +"((id391_0)" +"(let-values(((s_703)" +"(cdr" +" s_701)))" +"(if(let-values(((or-part_380)" +"(if(syntax?$1" +" s_703)" "(symbol?" "(syntax-e$1" -" s_701))" +" s_703))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_380" +" or-part_380" "(symbol?" -" s_701)))" -" s_701" +" s_703)))" +" s_703" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_701)))))" +" s_703)))))" "(values" " #%top390_0" " id391_0))" @@ -68399,80 +68579,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_58)))))" "(values #t #%top388_1 id389_1))))))" -"(let-values(((s392_0) s_693)" +"(let-values(((s392_0) s_695)" "((temp393_0)(cons #%top388_0 id_126)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 id_126 b_94 #f)" -" s_693)))))))))))))))))))))))" +" s_695)))))))))))))))))))))))" "(case-lambda" -"((s_702 ctx_96)(core377_0 s_702 ctx_96 #f #f))" -"((s_703 ctx_97 implicit-omitted?373_1)(core377_0 s_703 ctx_97 implicit-omitted?373_1 #t))))))" +"((s_704 ctx_95)(core377_0 s_704 ctx_95 #f #f))" +"((s_705 ctx_96 implicit-omitted?373_1)(core377_0 s_705 ctx_96 implicit-omitted?373_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_704 ctx_98)" +"(lambda(s_706 ctx_97)" "(let-values((()" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_98)))" -"(if obs_120(let-values()(let-values()(call-expand-observe obs_120 'prim-set!)))(void)))" +"(let-values(((obs_121)(expand-context-observer ctx_97)))" +"(if obs_121(let-values()(let-values()(call-expand-observe obs_121 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_704)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_706)))" "(let-values(((ok?_57 set!394_0 id395_0 rhs396_0)" -"(let-values(((s_705) disarmed-s_18))" -"(let-values(((orig-s_59) s_705))" +"(let-values(((s_707) disarmed-s_18))" +"(let-values(((orig-s_59) s_707))" "(let-values(((set!394_1 id395_1 rhs396_1)" -"(let-values(((s_706)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" -"(if(pair? s_706)" -"(let-values(((set!397_0)(let-values(((s_707)(car s_706))) s_707))" +"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" +"(if(pair? s_708)" +"(let-values(((set!397_0)(let-values(((s_709)(car s_708))) s_709))" "((id398_0 rhs399_0)" -"(let-values(((s_708)(cdr s_706)))" -"(let-values(((s_709)" -"(if(syntax?$1 s_708)" -"(syntax-e$1 s_708)" -" s_708)))" -"(if(pair? s_709)" -"(let-values(((id400_0)" -"(let-values(((s_710)(car s_709)))" -"(if(let-values(((or-part_378)" +"(let-values(((s_710)(cdr s_708)))" +"(let-values(((s_711)" "(if(syntax?$1 s_710)" +"(syntax-e$1 s_710)" +" s_710)))" +"(if(pair? s_711)" +"(let-values(((id400_0)" +"(let-values(((s_712)(car s_711)))" +"(if(let-values(((or-part_381)" +"(if(syntax?$1 s_712)" "(symbol?" "(syntax-e$1" -" s_710))" +" s_712))" " #f)))" -"(if or-part_378" -" or-part_378" -"(symbol? s_710)))" -" s_710" +"(if or-part_381" +" or-part_381" +"(symbol? s_712)))" +" s_712" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_710))))" +" s_712))))" "((rhs401_0)" -"(let-values(((s_711)(cdr s_709)))" -"(let-values(((s_712)" -"(if(syntax?$1 s_711)" -"(syntax-e$1 s_711)" -" s_711)))" -"(if(pair? s_712)" -"(let-values(((rhs402_0)" -"(let-values(((s_713)" -"(car" -" s_712)))" -" s_713))" -"(()" +"(let-values(((s_713)(cdr s_711)))" "(let-values(((s_714)" -"(cdr" -" s_712)))" +"(if(syntax?$1 s_713)" +"(syntax-e$1 s_713)" +" s_713)))" +"(if(pair? s_714)" +"(let-values(((rhs402_0)" "(let-values(((s_715)" -"(if(syntax?$1" -" s_714)" -"(syntax-e$1" -" s_714)" +"(car" " s_714)))" -"(if(null? s_715)" +" s_715))" +"(()" +"(let-values(((s_716)" +"(cdr" +" s_714)))" +"(let-values(((s_717)" +"(if(syntax?$1" +" s_716)" +"(syntax-e$1" +" s_716)" +" s_716)))" +"(if(null? s_717)" "(values)" "(raise-syntax-error$1" " #f" @@ -68495,7 +68675,7 @@ static const char *startup_source = " 'rename-loop" "(let-values(((binding_30)" "(let-values(((id403_0) id_127)" -"((temp404_0)(expand-context-phase ctx_98))" +"((temp404_0)(expand-context-phase ctx_97))" "((temp405_0) 'ambiguous)" "((temp406_0) #t))" "(resolve+shift30.1" @@ -68514,31 +68694,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_127 ctx_98))" +"(let-values()(raise-ambiguous-error id_127 ctx_97))" "(void))" "(values))))" -"(let-values(((t_58 primitive?_11 insp_24 protected?_12)" +"(let-values(((t_59 primitive?_11 insp_24 protected?_12)" "(if binding_30" "(let-values(((binding407_0) binding_30)" -"((ctx408_0) ctx_98)" -"((s409_0) s_704))" -"(lookup28.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" +"((ctx408_0) ctx_97)" +"((s409_0) s_706))" +"(lookup62.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_98)))" -"(if obs_121" +"(let-values(((obs_122)(expand-context-observer ctx_97)))" +"(if obs_122" "(let-values()" -"(let-values()(call-expand-observe obs_121 'resolve id_127)))" +"(let-values()(call-expand-observe obs_122 'resolve id_127)))" "(void)))" -"(if(let-values(((or-part_379)(variable? t_58)))" -"(if or-part_379" -" or-part_379" +"(if(let-values(((or-part_382)(variable? t_59)))" +"(if or-part_382" +" or-part_382" "(if(not binding_30)" -"(let-values(((or-part_380)" -"(register-eventual-variable!? id_127 ctx_98)))" -"(if or-part_380" -" or-part_380" -"(expand-context-allow-unbound? ctx_98)))" +"(let-values(((or-part_383)" +"(register-eventual-variable!? id_127 ctx_97)))" +"(if or-part_383" +" or-part_383" +"(expand-context-allow-unbound? ctx_97)))" " #f)))" "(let-values()" "(let-values((()" @@ -68547,24 +68727,24 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_30)" -"(root-expand-context-self-mpi ctx_98)))" +"(root-expand-context-self-mpi ctx_97)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_704" +" s_706" " id_127))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_122)" -"(expand-context-observer ctx_98)))" -"(if obs_122" +"(let-values(((obs_123)" +"(expand-context-observer ctx_97)))" +"(if obs_123" "(let-values()" "(let-values()" -"(call-expand-observe obs_122 'next)))" +"(call-expand-observe obs_123 'next)))" "(void)))" "(values))))" "(let-values((()" @@ -68572,8 +68752,8 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx410_0) ctx_98)((s411_0) s_704))" -"(keep-as-needed86.1" +"(let-values(((ctx410_0) ctx_97)((s411_0) s_706))" +"(keep-as-needed120.1" " #f" " #f" " #f" @@ -68585,9 +68765,17 @@ static const char *startup_source = "(let-values(((exp-rhs_5)" "(let-values(((temp412_0) rhs396_0)" "((temp413_0)" -"(as-expression-context ctx_98)))" -"(expand7.1 #f #f #f #f temp412_0 temp413_0))))" -"(if(expand-context-to-parsed? ctx_98)" +"(as-expression-context ctx_97)))" +"(expand9.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" temp412_0" +" temp413_0))))" +"(if(expand-context-to-parsed? ctx_97)" "(parsed-set!9.1" " rebuild-s_12" "(parsed-id2.1 id_127 binding_30 #f)" @@ -68597,11 +68785,11 @@ static const char *startup_source = "(list" " set!394_0" "(let-values(((id416_0) id_127)" -"((t417_0) t_58)" +"((t417_0) t_59)" "((temp418_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_98))))" +" ctx_97))))" "(substitute-variable6.1" " temp418_0" " id416_0" @@ -68613,38 +68801,38 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_704" +" s_706" " id_127" " null" -"(syntax-debug-info-string id_127 ctx_98)))" -"(if(1/set!-transformer? t_58)" +"(syntax-debug-info-string id_127 ctx_97)))" +"(if(1/set!-transformer? t_59)" "(let-values()" -"(if(not-in-this-expand-context? t_58 ctx_98)" +"(if(not-in-this-expand-context? t_59 ctx_97)" "(let-values()" "(let-values(((temp419_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_704" +" s_706" " disarmed-s_18" " set!394_0" " rhs396_0" " id_127" " from-rename?_0" -" ctx_98)" -" t_58" -" ctx_98))" -"((ctx420_0) ctx_98))" -"(expand7.1 #f #f #f #f temp419_0 ctx420_0)))" +" ctx_97)" +" t_59" +" ctx_97))" +"((ctx420_0) ctx_97))" +"(expand9.1 #f #f #f #f #f #f temp419_0 ctx420_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" -"(let-values(((t421_0) t_58)" +"(let-values(((t421_0) t_59)" "((insp422_0) insp_24)" -"((s423_0) s_704)" +"((s423_0) s_706)" "((orig-id424_0) orig-id_1)" -"((ctx425_0) ctx_98)" +"((ctx425_0) ctx_97)" "((binding426_0) binding_30)" "((orig-id427_0) orig-id_1))" -"(apply-transformer18.1" +"(apply-transformer52.1" " orig-id427_0" " #t" " t421_0" @@ -68653,35 +68841,43 @@ static const char *startup_source = " orig-id424_0" " ctx425_0" " binding426_0))))" -"(if(expand-context-just-once? ctx_98)" +"(if(expand-context-just-once? ctx_97)" "(let-values() exp-s_14)" "(let-values()" "(let-values(((exp-s428_0) exp-s_14)" "((re-ctx429_0) re-ctx_1))" -"(expand7.1 #f #f #f #f exp-s428_0 re-ctx429_0))))))))" -"(if(1/rename-transformer? t_58)" +"(expand9.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" exp-s428_0" +" re-ctx429_0))))))))" +"(if(1/rename-transformer? t_59)" "(let-values()" -"(if(not-in-this-expand-context? t_58 ctx_98)" +"(if(not-in-this-expand-context? t_59 ctx_97)" "(let-values()" "(let-values(((temp430_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_704" +" s_706" " disarmed-s_18" " set!394_0" " rhs396_0" " id_127" " from-rename?_0" -" ctx_98" -" t_58)" -" t_58" -" ctx_98))" -"((ctx431_0) ctx_98))" -"(expand7.1 #f #f #f #f temp430_0 ctx431_0)))" +" ctx_97" +" t_59)" +" t_59" +" ctx_97))" +"((ctx431_0) ctx_97))" +"(expand9.1 #f #f #f #f #f #f temp430_0 ctx431_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_58 ctx_98)" +"(rename-transformer-target-in-context t_59 ctx_97)" " id_127" " id_127)" " #t))))" @@ -68689,7 +68885,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_704" +" s_706" " id_127))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -68700,21 +68896,21 @@ static const char *startup_source = "(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_716) s25_0))" +"(let-values(((s_718) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_128) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" -"(let-values(((ctx_99) ctx31_0))" -"(let-values(((t_59)(if t24_0 t23_0 #f)))" +"(let-values(((ctx_98) ctx31_0))" +"(let-values(((t_60)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_381) t_59))" -"(if or-part_381 or-part_381 from-rename?_1))" +"(if(let-values(((or-part_384) t_60))" +"(if or-part_384 or-part_384 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" -"(if t_59" -"(rename-transformer-target-in-context t_59 ctx_99)" +"(if t_60" +"(rename-transformer-target-in-context t_60 ctx_98)" " id_128)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -68722,93 +68918,93 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_716)))" -"(let-values() s_716)))))))))))))))" +" s_718)))" +"(let-values() s_718)))))))))))))))" "(case-lambda" -"((s_717 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_717 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_718 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_718 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_719 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_99)" +"(begin(substitute-set!-rename32_0 s_719 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_99 #f #f)))" +"((s_720 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_100 t23_1)" +"(substitute-set!-rename32_0 s_720 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_719 ctx_102)" +"(lambda(s_721 ctx_101)" "(let-values((()" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_102)))" -"(if obs_123" -"(let-values()(let-values()(call-expand-observe obs_123 'prim-#%variable-reference)))" +"(let-values(((obs_124)(expand-context-observer ctx_101)))" +"(if obs_124" +"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_719)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_721)))" "(let-values(((ok?_58 #%variable-reference432_0 id433_0)" -"(let-values(((s_720) disarmed-s_22))" -"(if(let-values(((s_721)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" -"(if(pair? s_721)" -"(if(let-values(((s_722)(car s_721))) #t)" -"(let-values(((s_723)(cdr s_721)))" -"(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))" -"(if(pair? s_724)" -"(if(let-values(((s_725)(car s_724)))" -"(let-values(((or-part_382)" -"(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))" -"(if or-part_382 or-part_382(symbol? s_725))))" -"(let-values(((s_726)(cdr s_724)))" -"(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" -"(null? s_727)))" +"(let-values(((s_722) disarmed-s_22))" +"(if(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" +"(if(pair? s_723)" +"(if(let-values(((s_724)(car s_723))) #t)" +"(let-values(((s_725)(cdr s_723)))" +"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" +"(if(pair? s_726)" +"(if(let-values(((s_727)(car s_726)))" +"(let-values(((or-part_385)" +"(if(syntax?$1 s_727)(symbol?(syntax-e$1 s_727)) #f)))" +"(if or-part_385 or-part_385(symbol? s_727))))" +"(let-values(((s_728)(cdr s_726)))" +"(let-values(((s_729)(if(syntax?$1 s_728)(syntax-e$1 s_728) s_728)))" +"(null? s_729)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference432_1 id433_1)" -"(let-values(((s_728)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" +"(let-values(((s_730)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" "(let-values(((#%variable-reference434_0)" -"(let-values(((s_729)(car s_728))) s_729))" +"(let-values(((s_731)(car s_730))) s_731))" "((id435_0)" -"(let-values(((s_730)(cdr s_728)))" -"(let-values(((s_731)" -"(if(syntax?$1 s_730)" -"(syntax-e$1 s_730)" -" s_730)))" +"(let-values(((s_732)(cdr s_730)))" +"(let-values(((s_733)" +"(if(syntax?$1 s_732)" +"(syntax-e$1 s_732)" +" s_732)))" "(let-values(((id436_0)" -"(let-values(((s_732)(car s_731))) s_732))" +"(let-values(((s_734)(car s_733))) s_734))" "(()" -"(let-values(((s_733)(cdr s_731)))" -"(let-values(((s_734)" -"(if(syntax?$1 s_733)" -"(syntax-e$1 s_733)" -" s_733)))" +"(let-values(((s_735)(cdr s_733)))" +"(let-values(((s_736)" +"(if(syntax?$1 s_735)" +"(syntax-e$1 s_735)" +" s_735)))" "(values)))))" "(values id436_0))))))" "(values #%variable-reference434_0 id435_0)))))" "(values #t #%variable-reference432_1 id433_1)))" "(values #f #f #f)))))" "(let-values(((ok?_59 #%variable-reference437_0 #%top438_0 id439_0)" -"(let-values(((s_735) disarmed-s_22))" +"(let-values(((s_737) disarmed-s_22))" "(if(if(not ok?_58)" -"(let-values(((s_736)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" -"(if(pair? s_736)" -"(if(let-values(((s_737)(car s_736))) #t)" -"(let-values(((s_738)(cdr s_736)))" -"(let-values(((s_739)(if(syntax?$1 s_738)(syntax-e$1 s_738) s_738)))" -"(if(pair? s_739)" -"(if(let-values(((s_740)(car s_739)))" -"(let-values(((s_741)" -"(if(syntax?$1 s_740)(syntax-e$1 s_740) s_740)))" +"(let-values(((s_738)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" +"(if(pair? s_738)" +"(if(let-values(((s_739)(car s_738))) #t)" +"(let-values(((s_740)(cdr s_738)))" +"(let-values(((s_741)(if(syntax?$1 s_740)(syntax-e$1 s_740) s_740)))" "(if(pair? s_741)" -"(if(let-values(((s_742)(car s_741))) #t)" -"(let-values(((s_743)(cdr s_741)))" -"(let-values(((or-part_383)" -"(if(syntax?$1 s_743)" -"(symbol?(syntax-e$1 s_743))" +"(if(let-values(((s_742)(car s_741)))" +"(let-values(((s_743)" +"(if(syntax?$1 s_742)(syntax-e$1 s_742) s_742)))" +"(if(pair? s_743)" +"(if(let-values(((s_744)(car s_743))) #t)" +"(let-values(((s_745)(cdr s_743)))" +"(let-values(((or-part_386)" +"(if(syntax?$1 s_745)" +"(symbol?(syntax-e$1 s_745))" " #f)))" -"(if or-part_383 or-part_383(symbol? s_743))))" +"(if or-part_386 or-part_386(symbol? s_745))))" " #f)" " #f)))" -"(let-values(((s_744)(cdr s_739)))" -"(let-values(((s_745)(if(syntax?$1 s_744)(syntax-e$1 s_744) s_744)))" -"(null? s_745)))" +"(let-values(((s_746)(cdr s_741)))" +"(let-values(((s_747)(if(syntax?$1 s_746)(syntax-e$1 s_746) s_746)))" +"(null? s_747)))" " #f)" " #f)))" " #f)" @@ -68816,61 +69012,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference437_1 #%top438_1 id439_1)" -"(let-values(((s_746)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" +"(let-values(((s_748)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" "(let-values(((#%variable-reference440_0)" -"(let-values(((s_747)(car s_746))) s_747))" +"(let-values(((s_749)(car s_748))) s_749))" "((#%top441_0 id442_0)" -"(let-values(((s_748)(cdr s_746)))" -"(let-values(((s_749)" -"(if(syntax?$1 s_748)" -"(syntax-e$1 s_748)" -" s_748)))" -"(let-values(((#%top443_0 id444_0)" -"(let-values(((s_750)(car s_749)))" +"(let-values(((s_750)(cdr s_748)))" "(let-values(((s_751)" "(if(syntax?$1 s_750)" "(syntax-e$1 s_750)" " s_750)))" -"(let-values(((#%top445_0)" -"(let-values(((s_752)" -"(car" -" s_751)))" -" s_752))" -"((id446_0)" +"(let-values(((#%top443_0 id444_0)" +"(let-values(((s_752)(car s_751)))" "(let-values(((s_753)" -"(cdr" -" s_751)))" +"(if(syntax?$1 s_752)" +"(syntax-e$1 s_752)" +" s_752)))" +"(let-values(((#%top445_0)" +"(let-values(((s_754)" +"(car" " s_753)))" +" s_754))" +"((id446_0)" +"(let-values(((s_755)" +"(cdr" +" s_753)))" +" s_755)))" "(values #%top445_0 id446_0)))))" "(()" -"(let-values(((s_754)(cdr s_749)))" -"(let-values(((s_755)" -"(if(syntax?$1 s_754)" -"(syntax-e$1 s_754)" -" s_754)))" +"(let-values(((s_756)(cdr s_751)))" +"(let-values(((s_757)" +"(if(syntax?$1 s_756)" +"(syntax-e$1 s_756)" +" s_756)))" "(values)))))" "(values #%top443_0 id444_0))))))" "(values #%variable-reference440_0 #%top441_0 id442_0)))))" "(values #t #%variable-reference437_1 #%top438_1 id439_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_60 #%variable-reference447_0)" -"(let-values(((s_756) disarmed-s_22))" -"(if(if(not(let-values(((or-part_384) ok?_58))(if or-part_384 or-part_384 ok?_59)))" +"(let-values(((s_758) disarmed-s_22))" +"(if(if(not(let-values(((or-part_387) ok?_58))(if or-part_387 or-part_387 ok?_59)))" " #t" " #f)" -"(let-values(((orig-s_60) s_756))" +"(let-values(((orig-s_60) s_758))" "(let-values(((#%variable-reference447_1)" -"(let-values(((s_757)(if(syntax?$1 s_756)(syntax-e$1 s_756) s_756)))" -"(if(pair? s_757)" +"(let-values(((s_759)(if(syntax?$1 s_758)(syntax-e$1 s_758) s_758)))" +"(if(pair? s_759)" "(let-values(((#%variable-reference448_0)" -"(let-values(((s_758)(car s_757))) s_758))" +"(let-values(((s_760)(car s_759))) s_760))" "(()" -"(let-values(((s_759)(cdr s_757)))" -"(let-values(((s_760)" -"(if(syntax?$1 s_759)" -"(syntax-e$1 s_759)" -" s_759)))" -"(if(null? s_760)" +"(let-values(((s_761)(cdr s_759)))" +"(let-values(((s_762)" +"(if(syntax?$1 s_761)" +"(syntax-e$1 s_761)" +" s_761)))" +"(if(null? s_762)" "(values)" "(raise-syntax-error$1" " #f" @@ -68880,96 +69076,96 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%variable-reference447_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_385) ok?_58))(if or-part_385 or-part_385 ok?_59))" +"(if(let-values(((or-part_388) ok?_58))(if or-part_388 or-part_388 ok?_59))" "(let-values()" "(let-values(((var-id_0)(if ok?_58 id433_0 id439_0)))" "(let-values(((binding_31)" "(let-values(((var-id449_0) var-id_0)" -"((temp450_0)(expand-context-phase ctx_102))" +"((temp450_0)(expand-context-phase ctx_101))" "((temp451_0) 'ambiguous))" "(resolve+shift30.1 temp451_0 #t #f #f #f #f #f #f #f #f var-id449_0 temp450_0))))" "(let-values((()" "(begin" "(if(eq? binding_31 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_102))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_386) binding_31))" -"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_102)))" +"(if(let-values(((or-part_389) binding_31))" +"(if or-part_389 or-part_389(expand-context-allow-unbound? ctx_101)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_719" +" s_721" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_102))))" +"(syntax-debug-info-string var-id_0 ctx_101))))" "(values))))" -"(let-values(((t_60 primitive?_12 insp-of-t_7 protected?_13)" +"(let-values(((t_61 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_31" "(let-values(((binding452_0) binding_31)" -"((ctx453_0) ctx_102)" +"((ctx453_0) ctx_101)" "((var-id454_0) var-id_0)" -"((s455_0) s_719)" -"((temp456_0)(expand-context-in-local-expand? ctx_102)))" -"(lookup28.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" +"((s455_0) s_721)" +"((temp456_0)(expand-context-in-local-expand? ctx_101)))" +"(lookup62.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" "(values #f #f #f #f))))" "(begin" -"(if(if t_60(not(variable? t_60)) #f)" +"(if(if t_61(not(variable? t_61)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_719))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_721))" "(void))" -"(if(expand-context-to-parsed? ctx_102)" +"(if(expand-context-to-parsed? ctx_101)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_719)" +"(keep-properties-only~ s_721)" "(if ok?_59" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_719))))))))" +" s_721))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_719) #f)" -" s_719)))))))))))" +"(if(expand-context-to-parsed? ctx_101)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_721) #f)" +" s_721)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_761 ctx_103)" +"(lambda(s_763 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_103)))" -"(if obs_124" -"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%expression)))" +"(let-values(((obs_125)(expand-context-observer ctx_102)))" +"(if obs_125" +"(let-values()(let-values()(call-expand-observe obs_125 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_761)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_763)))" "(let-values(((ok?_61 #%expression457_0 e458_0)" -"(let-values(((s_762) disarmed-s_23))" -"(let-values(((orig-s_61) s_762))" +"(let-values(((s_764) disarmed-s_23))" +"(let-values(((orig-s_61) s_764))" "(let-values(((#%expression457_1 e458_1)" -"(let-values(((s_763)(if(syntax?$1 s_762)(syntax-e$1 s_762) s_762)))" -"(if(pair? s_763)" +"(let-values(((s_765)(if(syntax?$1 s_764)(syntax-e$1 s_764) s_764)))" +"(if(pair? s_765)" "(let-values(((#%expression459_0)" -"(let-values(((s_764)(car s_763))) s_764))" +"(let-values(((s_766)(car s_765))) s_766))" "((e460_0)" -"(let-values(((s_765)(cdr s_763)))" -"(let-values(((s_766)" -"(if(syntax?$1 s_765)" -"(syntax-e$1 s_765)" -" s_765)))" -"(if(pair? s_766)" +"(let-values(((s_767)(cdr s_765)))" +"(let-values(((s_768)" +"(if(syntax?$1 s_767)" +"(syntax-e$1 s_767)" +" s_767)))" +"(if(pair? s_768)" "(let-values(((e461_0)" -"(let-values(((s_767)(car s_766)))" -" s_767))" +"(let-values(((s_769)(car s_768)))" +" s_769))" "(()" -"(let-values(((s_768)(cdr s_766)))" -"(let-values(((s_769)" -"(if(syntax?$1 s_768)" -"(syntax-e$1 s_768)" -" s_768)))" -"(if(null? s_769)" +"(let-values(((s_770)(cdr s_768)))" +"(let-values(((s_771)" +"(if(syntax?$1 s_770)" +"(syntax-e$1 s_770)" +" s_770)))" +"(if(null? s_771)" "(values)" "(raise-syntax-error$1" " #f" @@ -68981,35 +69177,35 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx462_0) ctx_103)((s463_0) s_761)((temp464_0) #t))" -"(keep-as-needed86.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" +"(let-values(((ctx462_0) ctx_102)((s463_0) s_763)((temp464_0) #t))" +"(keep-as-needed120.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" "((temp466_0)" -"(let-values(((temp467_0)(as-expression-context ctx_103))" -"((ctx468_0) ctx_103))" +"(let-values(((temp467_0)(as-expression-context ctx_102))" +"((ctx468_0) ctx_102))" "(as-tail-context23.1 ctx468_0 temp467_0))))" -"(expand7.1 #f #f #f #f temp465_0 temp466_0))))" -"(if(expand-context-to-parsed? ctx_103)" +"(expand9.1 #f #f #f #f #f #f temp465_0 temp466_0))))" +"(if(expand-context-to-parsed? ctx_102)" " exp-e_0" "(let-values(((tmp_63)" -"(if(not(expand-context-in-local-expand? ctx_103))" -"(expand-context-context ctx_103)" +"(if(not(expand-context-in-local-expand? ctx_102))" +"(expand-context-context ctx_102)" " #f)))" "(if(equal? tmp_63 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_103)))" -"(if obs_125" -"(let-values()(let-values()(call-expand-observe obs_125 'tag result-s_13)))" +"(let-values(((obs_126)(expand-context-observer ctx_102)))" +"(if obs_126" +"(let-values()(let-values()(call-expand-observe obs_126 'tag result-s_13)))" "(void)))" " result-s_13)))" "(let-values()" "(let-values(((rebuild-s469_0) rebuild-s_13)((temp470_0)(list #%expression457_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s469_0 temp470_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_770 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_771 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" +" (void (add-core-form!* 'unquote (lambda (s_772 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_772))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_773 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_773))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_42 id_131 at-phase_12 ns_124)" @@ -69038,9 +69234,9 @@ static const char *startup_source = "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_106)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_105)" "(begin" -"(let-values(((ns_126)(expand-context-namespace ctx_106)))" +"(let-values(((ns_126)(expand-context-namespace ctx_105)))" "((letrec-values(((loop_115)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" @@ -69056,16 +69252,16 @@ static const char *startup_source = "((letrec-values(((for-loop_97)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_407)" +" lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_407)" +"(if(pair? lst_404)" "(let-values(((spec_0)" "(unsafe-car" -" lst_407))" +" lst_404))" "((rest_233)" "(unsafe-cdr" -" lst_407)))" +" lst_404)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -69211,50 +69407,50 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_458)" +"(let-values(((s_455)" "(if(syntax?$1" " s_167)" "(syntax-e$1" " s_167)" " s_167)))" "(if(pair?" -" s_458)" +" s_455)" "(let-values(((for-meta6_0)" -"(let-values(((s_487)" +"(let-values(((s_484)" "(car" -" s_458)))" -" s_487))" +" s_455)))" +" s_484))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_772)" -"(cdr" -" s_458)))" -"(let-values(((s_773)" -"(if(syntax?$1" -" s_772)" -"(syntax-e$1" -" s_772)" -" s_772)))" -"(if(pair?" -" s_773)" -"(let-values(((phase-level9_0)" "(let-values(((s_774)" -"(car" -" s_773)))" -" s_774))" -"((spec10_0)" -"(let-values(((s_494)" "(cdr" -" s_773)))" +" s_455)))" "(let-values(((s_775)" "(if(syntax?$1" -" s_494)" +" s_774)" "(syntax-e$1" -" s_494)" -" s_494)))" +" s_774)" +" s_774)))" +"(if(pair?" +" s_775)" +"(let-values(((phase-level9_0)" +"(let-values(((s_776)" +"(car" +" s_775)))" +" s_776))" +"((spec10_0)" +"(let-values(((s_492)" +"(cdr" +" s_775)))" +"(let-values(((s_777)" +"(if(syntax?$1" +" s_492)" +"(syntax-e$1" +" s_492)" +" s_492)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_775)))" +" s_777)))" "(if(not" " flat-s_45)" "(let-values()" @@ -69352,20 +69548,20 @@ static const char *startup_source = "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" -"(let-values(((s_501)" +"(let-values(((s_499)" "(car" " s_24)))" -" s_501))" +" s_499))" "((spec16_0)" -"(let-values(((s_460)" +"(let-values(((s_457)" "(cdr" " s_24)))" "(let-values(((s_307)" "(if(syntax?$1" -" s_460)" +" s_457)" "(syntax-e$1" -" s_460)" -" s_460)))" +" s_457)" +" s_457)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_307)))" @@ -69426,29 +69622,29 @@ static const char *startup_source = "(let-values(((ok?_64" " for-label19_0" " spec20_0)" -"(let-values(((s_503)" +"(let-values(((s_501)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_503))" +" s_501))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_486)" +"(let-values(((s_483)" "(if(syntax?$1" -" s_503)" +" s_501)" "(syntax-e$1" -" s_503)" -" s_503)))" +" s_501)" +" s_501)))" "(if(pair?" -" s_486)" +" s_483)" "(let-values(((for-label21_0)" "(let-values(((s_168)" "(car" -" s_486)))" +" s_483)))" " s_168))" "((spec22_0)" "(let-values(((s_27)" "(cdr" -" s_486)))" +" s_483)))" "(let-values(((s_28)" "(if(syntax?$1" " s_27)" @@ -69530,29 +69726,29 @@ static const char *startup_source = " s_50))" "(let-values(((protect25_1" " p-spec26_1)" -"(let-values(((s_776)" +"(let-values(((s_778)" "(if(syntax?$1" " s_50)" "(syntax-e$1" " s_50)" " s_50)))" "(if(pair?" -" s_776)" +" s_778)" "(let-values(((protect27_0)" -"(let-values(((s_432)" +"(let-values(((s_505)" "(car" -" s_776)))" -" s_432))" +" s_778)))" +" s_505))" "((p-spec28_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(cdr" -" s_776)))" +" s_778)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_507)" +" s_506)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_506)" +" s_506)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" " s_52)))" @@ -69616,53 +69812,53 @@ static const char *startup_source = "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_777)" +"(let-values(((s_779)" "(if(syntax?$1" " s_321)" "(syntax-e$1" " s_321)" " s_321)))" "(if(pair?" -" s_777)" +" s_779)" "(let-values(((rename34_0)" -"(let-values(((s_778)" +"(let-values(((s_780)" "(car" -" s_777)))" -" s_778))" +" s_779)))" +" s_780))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_779)" +"(let-values(((s_781)" "(cdr" -" s_777)))" +" s_779)))" "(let-values(((s_34)" "(if(syntax?$1" -" s_779)" +" s_781)" "(syntax-e$1" -" s_779)" -" s_779)))" +" s_781)" +" s_781)))" "(if(pair?" " s_34)" "(let-values(((id:from37_0)" -"(let-values(((s_463)" +"(let-values(((s_460)" "(car" " s_34)))" -"(if(let-values(((or-part_387)" +"(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_463)" +" s_460)" "(symbol?" "(syntax-e$1" -" s_463))" +" s_460))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_390" +" or-part_390" "(symbol?" -" s_463)))" -" s_463" +" s_460)))" +" s_460" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_463))))" +" s_460))))" "((id:to38_0)" "(let-values(((s_414)" "(cdr" @@ -69697,17 +69893,17 @@ static const char *startup_source = " orig-s_67" " s_60))))" "(()" -"(let-values(((s_780)" +"(let-values(((s_782)" "(cdr" " s_415)))" -"(let-values(((s_781)" +"(let-values(((s_783)" "(if(syntax?$1" -" s_780)" +" s_782)" "(syntax-e$1" -" s_780)" -" s_780)))" +" s_782)" +" s_782)))" "(if(null?" -" s_781)" +" s_783)" "(values)" "(raise-syntax-error$1" " #f" @@ -69769,19 +69965,19 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_522)" +"(let-values(((s_523)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_522))" +" s_523))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" "(let-values(((s_67)" "(if(syntax?$1" -" s_522)" +" s_523)" "(syntax-e$1" -" s_522)" -" s_522)))" +" s_523)" +" s_523)))" "(if(pair?" " s_67)" "(let-values(((struct43_0)" @@ -69791,30 +69987,30 @@ static const char *startup_source = " s_324))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_464)" +"(let-values(((s_461)" "(cdr" " s_67)))" "(let-values(((s_203)" "(if(syntax?$1" -" s_464)" +" s_461)" "(syntax-e$1" -" s_464)" -" s_464)))" +" s_461)" +" s_461)))" "(if(pair?" " s_203)" "(let-values(((id:struct46_0)" "(let-values(((s_326)" "(car" " s_203)))" -"(if(let-values(((or-part_388)" +"(if(let-values(((or-part_391)" "(if(syntax?$1" " s_326)" "(symbol?" "(syntax-e$1" " s_326))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_391" +" or-part_391" "(symbol?" " s_326)))" " s_326" @@ -69824,21 +70020,21 @@ static const char *startup_source = " orig-s_68" " s_326))))" "((id:field47_0)" -"(let-values(((s_782)" +"(let-values(((s_784)" "(cdr" " s_203)))" -"(let-values(((s_783)" +"(let-values(((s_785)" "(if(syntax?$1" -" s_782)" +" s_784)" "(syntax-e$1" -" s_782)" -" s_782)))" +" s_784)" +" s_784)))" "(if(pair?" -" s_783)" +" s_785)" "(let-values(((id:field48_0)" "(let-values(((s_205)" "(car" -" s_783)))" +" s_785)))" "(let-values(((s_206)" "(if(syntax?$1" " s_205)" @@ -69866,19 +70062,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_155)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_323)" "(lambda(id:field_1" -" lst_408)" +" lst_405)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" -"(let-values(((s_784)" +" lst_405)" +"(let-values(((s_786)" "(unsafe-car" -" lst_408))" +" lst_405))" "((rest_234)" "(unsafe-cdr" -" lst_408)))" +" lst_405)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -69886,23 +70082,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_389)" +"(if(let-values(((or-part_392)" "(if(syntax?$1" -" s_784)" +" s_786)" "(symbol?" "(syntax-e$1" -" s_784))" +" s_786))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_392" +" or-part_392" "(symbol?" -" s_784)))" -" s_784" +" s_786)))" +" s_786" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_784)))))" +" s_786)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69910,12 +70106,12 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_324" +"(for-loop_323" " id:field_2" " rest_234)" " id:field_2)))" " id:field_1)))))" -" for-loop_324)" +" for-loop_323)" " null" " lst_155)))))" "(reverse$1" @@ -69923,15 +70119,15 @@ static const char *startup_source = "(()" "(let-values(((s_421)" "(cdr" -" s_783)))" -"(let-values(((s_523)" +" s_785)))" +"(let-values(((s_524)" "(if(syntax?$1" " s_421)" "(syntax-e$1" " s_421)" " s_421)))" "(if(null?" -" s_523)" +" s_524)" "(values)" "(raise-syntax-error$1" " #f" @@ -70011,23 +70207,23 @@ static const char *startup_source = "(let-values(((s_68)" "(cdr" " s_158)))" -"(let-values(((s_785)" +"(let-values(((s_787)" "(if(syntax?$1" " s_68)" "(syntax-e$1" " s_68)" " s_68)))" "(if(pair?" -" s_785)" +" s_787)" "(let-values(((mod-path54_0)" -"(let-values(((s_433)" +"(let-values(((s_509)" "(car" -" s_785)))" -" s_433))" +" s_787)))" +" s_509))" "(()" "(let-values(((s_104)" "(cdr" -" s_785)))" +" s_787)))" "(let-values(((s_169)" "(if(syntax?$1" " s_104)" @@ -70068,7 +70264,7 @@ static const char *startup_source = " ns_126" " rp_1" " protected?_15" -" ctx_106)" +" ctx_105)" "(values" " null" "(list" @@ -70099,21 +70295,21 @@ static const char *startup_source = "(if(pair?" " s_517)" "(let-values(((all-from-except58_0)" -"(let-values(((s_525)" +"(let-values(((s_526)" "(car" " s_517)))" -" s_525))" +" s_526))" "((mod-path59_0" " id60_0)" -"(let-values(((s_786)" +"(let-values(((s_788)" "(cdr" " s_517)))" "(let-values(((s_330)" "(if(syntax?$1" -" s_786)" +" s_788)" "(syntax-e$1" -" s_786)" -" s_786)))" +" s_788)" +" s_788)))" "(if(pair?" " s_330)" "(let-values(((mod-path61_0)" @@ -70143,7 +70339,7 @@ static const char *startup_source = " orig-s_70))" "(let-values()" "(let-values(((id_132)" -"(let-values(((lst_409)" +"(let-values(((lst_406)" " flat-s_49))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70151,20 +70347,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_409)))" -"((letrec-values(((for-loop_325)" +" lst_406)))" +"((letrec-values(((for-loop_324)" "(lambda(id_133" -" lst_410)" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" +" lst_407)" "(let-values(((s_116)" "(unsafe-car" -" lst_410))" +" lst_407))" "((rest_235)" "(unsafe-cdr" -" lst_410)))" +" lst_407)))" "(let-values(((id_134)" "(let-values(((id_135)" " id_133))" @@ -70172,15 +70368,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_390)" +"(if(let-values(((or-part_393)" "(if(syntax?$1" " s_116)" "(symbol?" "(syntax-e$1" " s_116))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_393" +" or-part_393" "(symbol?" " s_116)))" " s_116" @@ -70196,14 +70392,14 @@ static const char *startup_source = " id_136)))))" "(if(not" " #f)" -"(for-loop_325" +"(for-loop_324" " id_134" " rest_235)" " id_134)))" " id_133)))))" -" for-loop_325)" +" for-loop_324)" " null" -" lst_409)))))" +" lst_406)))))" "(reverse$1" " id_132)))))))))" "(values" @@ -70236,7 +70432,7 @@ static const char *startup_source = " ns_126" " rp_1" " protected?_15" -" ctx_106)" +" ctx_105)" "(values" " null" "(list" @@ -70255,28 +70451,28 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_70" " all-defined64_0)" -"(let-values(((s_787)" +"(let-values(((s_789)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_787))" +" s_789))" "(let-values(((all-defined64_1)" -"(let-values(((s_788)" +"(let-values(((s_790)" "(if(syntax?$1" -" s_787)" +" s_789)" "(syntax-e$1" -" s_787)" -" s_787)))" +" s_789)" +" s_789)))" "(if(pair?" -" s_788)" +" s_790)" "(let-values(((all-defined65_0)" "(let-values(((s_122)" "(car" -" s_788)))" +" s_790)))" " s_122))" "(()" "(let-values(((s_123)" "(cdr" -" s_788)))" +" s_790)))" "(let-values(((s_124)" "(if(syntax?$1" " s_123)" @@ -70323,38 +70519,38 @@ static const char *startup_source = "(let-values(((ok?_71" " all-defined-except66_0" " id67_0)" -"(let-values(((s_471)" +"(let-values(((s_468)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_471))" +" s_468))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_445)" +"(let-values(((s_442)" "(if(syntax?$1" -" s_471)" +" s_468)" "(syntax-e$1" -" s_471)" -" s_471)))" +" s_468)" +" s_468)))" "(if(pair?" -" s_445)" +" s_442)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_789)" +"(let-values(((s_430)" "(car" -" s_445)))" -" s_789))" +" s_442)))" +" s_430))" "((id69_0)" -"(let-values(((s_790)" -"(cdr" -" s_445)))" "(let-values(((s_791)" +"(cdr" +" s_442)))" +"(let-values(((s_792)" "(if(syntax?$1" -" s_790)" +" s_791)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_791)" +" s_791)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_791)))" +" s_792)))" "(if(not" " flat-s_50)" "(let-values()" @@ -70364,7 +70560,7 @@ static const char *startup_source = " orig-s_72))" "(let-values()" "(let-values(((id_137)" -"(let-values(((lst_411)" +"(let-values(((lst_408)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70372,20 +70568,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_411)))" -"((letrec-values(((for-loop_326)" +" lst_408)))" +"((letrec-values(((for-loop_325)" "(lambda(id_33" -" lst_412)" +" lst_409)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" -"(let-values(((s_792)" +" lst_409)" +"(let-values(((s_793)" "(unsafe-car" -" lst_412))" +" lst_409))" "((rest_236)" "(unsafe-cdr" -" lst_412)))" +" lst_409)))" "(let-values(((id_138)" "(let-values(((id_139)" " id_33))" @@ -70393,23 +70589,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_391)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_792)" +" s_793)" "(symbol?" "(syntax-e$1" -" s_792))" +" s_793))" " #f)))" -"(if or-part_391" -" or-part_391" +"(if or-part_394" +" or-part_394" "(symbol?" -" s_792)))" -" s_792" +" s_793)))" +" s_793" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_792)))))" +" s_793)))))" "(cons" " id70_0" " id_139)))))" @@ -70417,14 +70613,14 @@ static const char *startup_source = " id_140)))))" "(if(not" " #f)" -"(for-loop_326" +"(for-loop_325" " id_138" " rest_236)" " id_138)))" " id_33)))))" -" for-loop_326)" +" for-loop_325)" " null" -" lst_411)))))" +" lst_408)))))" "(reverse$1" " id_137)))))))))" "(values" @@ -70465,25 +70661,25 @@ static const char *startup_source = "(let-values(((ok?_72" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_793)" +"(let-values(((s_794)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_793))" +" s_794))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" "(let-values(((s_229)" "(if(syntax?$1" -" s_793)" +" s_794)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_794)" +" s_794)))" "(if(pair?" " s_229)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_794)" +"(let-values(((s_795)" "(car" " s_229)))" -" s_794))" +" s_795))" "((id:prefix74_0)" "(let-values(((s_230)" "(cdr" @@ -70500,15 +70696,15 @@ static const char *startup_source = "(let-values(((s_334)" "(car" " s_231)))" -"(if(let-values(((or-part_392)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" " s_334)" "(symbol?" "(syntax-e$1" " s_334))" " #f)))" -"(if or-part_392" -" or-part_392" +"(if or-part_395" +" or-part_395" "(symbol?" " s_334)))" " s_334" @@ -70580,19 +70776,19 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_795)" +"(let-values(((s_796)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_795))" +" s_796))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" "(let-values(((s_346)" "(if(syntax?$1" -" s_795)" +" s_796)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_796)" +" s_796)))" "(if(pair?" " s_346)" "(let-values(((prefix-all-defined-except79_0)" @@ -70614,26 +70810,26 @@ static const char *startup_source = "(if(pair?" " s_350)" "(let-values(((id:prefix82_0)" -"(let-values(((s_796)" +"(let-values(((s_797)" "(car" " s_350)))" -"(if(let-values(((or-part_338)" +"(if(let-values(((or-part_342)" "(if(syntax?$1" -" s_796)" +" s_797)" "(symbol?" "(syntax-e$1" -" s_796))" +" s_797))" " #f)))" -"(if or-part_338" -" or-part_338" +"(if or-part_342" +" or-part_342" "(symbol?" -" s_796)))" -" s_796" +" s_797)))" +" s_797" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_796))))" +" s_797))))" "((id83_0)" "(let-values(((s_241)" "(cdr" @@ -70656,7 +70852,7 @@ static const char *startup_source = " orig-s_74))" "(let-values()" "(let-values(((id_141)" -"(let-values(((lst_413)" +"(let-values(((lst_410)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70664,59 +70860,59 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_413)))" -"((letrec-values(((for-loop_327)" +" lst_410)))" +"((letrec-values(((for-loop_326)" "(lambda(id_142" -" lst_414)" +" lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_414)" -"(let-values(((s_532)" +" lst_411)" +"(let-values(((s_533)" "(unsafe-car" -" lst_414))" +" lst_411))" "((rest_237)" "(unsafe-cdr" -" lst_414)))" +" lst_411)))" "(let-values(((id_143)" -"(let-values(((id_90)" +"(let-values(((id_88)" " id_142))" "(let-values(((id_35)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_532)" +" s_533)" "(symbol?" "(syntax-e$1" -" s_532))" +" s_533))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_396" +" or-part_396" "(symbol?" -" s_532)))" -" s_532" +" s_533)))" +" s_533" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_532)))))" +" s_533)))))" "(cons" " id84_2" -" id_90)))))" +" id_88)))))" "(values" " id_35)))))" "(if(not" " #f)" -"(for-loop_327" +"(for-loop_326" " id_143" " rest_237)" " id_143)))" " id_142)))))" -" for-loop_327)" +" for-loop_326)" " null" -" lst_413)))))" +" lst_410)))))" "(reverse$1" " id_141)))))))))" "(values" @@ -70776,40 +70972,40 @@ static const char *startup_source = "(if(pair?" " s_369)" "(let-values(((expand88_0)" -"(let-values(((s_797)" +"(let-values(((s_798)" "(car" " s_369)))" -" s_797))" -"((id89_2" +" s_798))" +"((id89_1" " datum90_0)" -"(let-values(((s_798)" +"(let-values(((s_799)" "(cdr" " s_369)))" -"(let-values(((s_539)" -"(if(syntax?$1" -" s_798)" -"(syntax-e$1" -" s_798)" -" s_798)))" -"(if(pair?" -" s_539)" -"(let-values(((id91_0" -" datum92_0)" -"(let-values(((s_799)" -"(car" -" s_539)))" -"(let-values(((s_800)" +"(let-values(((s_540)" "(if(syntax?$1" " s_799)" "(syntax-e$1" " s_799)" " s_799)))" "(if(pair?" +" s_540)" +"(let-values(((id91_0" +" datum92_0)" +"(let-values(((s_800)" +"(car" +" s_540)))" +"(let-values(((s_801)" +"(if(syntax?$1" " s_800)" +"(syntax-e$1" +" s_800)" +" s_800)))" +"(if(pair?" +" s_801)" "(let-values(((id93_1)" "(let-values(((s_376)" "(car" -" s_800)))" +" s_801)))" "(if(let-values(((or-part_115)" "(if(syntax?$1" " s_376)" @@ -70830,7 +71026,7 @@ static const char *startup_source = "((datum94_0)" "(let-values(((s_377)" "(cdr" -" s_800)))" +" s_801)))" " s_377)))" "(values" " id93_1" @@ -70842,7 +71038,7 @@ static const char *startup_source = "(()" "(let-values(((s_378)" "(cdr" -" s_539)))" +" s_540)))" "(let-values(((s_379)" "(if(syntax?$1" " s_378)" @@ -70865,7 +71061,7 @@ static const char *startup_source = " orig-s_75))))))" "(values" " expand88_0" -" id89_2" +" id89_1" " datum90_0))" "(raise-syntax-error$1" " #f" @@ -70879,54 +71075,54 @@ static const char *startup_source = "(let-values(((ok?_75" " expand95_0" " form96_0)" -"(let-values(((s_801)" +"(let-values(((s_802)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_801))" +" s_802))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_802)" +"(let-values(((s_803)" "(if(syntax?$1" -" s_801)" -"(syntax-e$1" -" s_801)" -" s_801)))" -"(if(pair?" " s_802)" +"(syntax-e$1" +" s_802)" +" s_802)))" +"(if(pair?" +" s_803)" "(let-values(((expand97_0)" "(let-values(((s_133)" "(car" -" s_802)))" +" s_803)))" " s_133))" "((form98_0)" -"(let-values(((s_803)" +"(let-values(((s_804)" "(cdr" -" s_802)))" -"(let-values(((s_542)" -"(if(syntax?$1" -" s_803)" -"(syntax-e$1" -" s_803)" " s_803)))" +"(let-values(((s_543)" +"(if(syntax?$1" +" s_804)" +"(syntax-e$1" +" s_804)" +" s_804)))" "(if(pair?" -" s_542)" +" s_543)" "(let-values(((form99_0)" "(let-values(((s_382)" "(car" -" s_542)))" +" s_543)))" " s_382))" "(()" "(let-values(((s_383)" "(cdr" -" s_542)))" -"(let-values(((s_804)" +" s_543)))" +"(let-values(((s_805)" "(if(syntax?$1" " s_383)" "(syntax-e$1" " s_383)" " s_383)))" "(if(null?" -" s_804)" +" s_805)" "(values)" "(raise-syntax-error$1" " #f" @@ -70952,22 +71148,22 @@ static const char *startup_source = "(let-values(((exp-spec_0)" "(let-values(((temp104_5)" " form96_0)" -"((temp105_5)" +"((temp105_4)" "(let-values(((v_263)" -" ctx_106))" -"(let-values(((the-struct_96)" +" ctx_105))" +"(let-values(((the-struct_97)" " v_263))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_97)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_98)" "(root-expand-context/outer-inner" " v_263)))" "(if(expand-context/inner?" -" the-struct_97)" +" the-struct_98)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70977,98 +71173,100 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-module-scopes" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-defined-syms" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-counter" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/inner-lift-key" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-to-parsed?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-phase" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-namespace" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-just-once?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-module-begin-k" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-allow-unbound?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-in-local-expand?" -" the-struct_97)" +" the-struct_98)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-lift-envs" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-module-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-require-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-to-module-lifts" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-requires+provides" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-observer" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-for-serializable?" -" the-struct_97)" +" the-struct_98)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_97)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_97)))))" +" the-struct_98)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_97)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-reference-records" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" -"(expand7.1" +" the-struct_97))))))" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" " #f" " temp104_5" -" temp105_5))))" +" temp105_4))))" "(let-values((()" "(begin" "(if(if(pair?" @@ -71096,30 +71294,30 @@ static const char *startup_source = "(let-values(((ok?_76" " begin100_0" " spec101_0)" -"(let-values(((s_546)" +"(let-values(((s_547)" " exp-spec_0))" "(let-values(((orig-s_77)" -" s_546))" +" s_547))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_491)" +"(let-values(((s_489)" "(if(syntax?$1" -" s_546)" +" s_547)" "(syntax-e$1" -" s_546)" -" s_546)))" +" s_547)" +" s_547)))" "(if(pair?" -" s_491)" +" s_489)" "(let-values(((begin102_0)" "(let-values(((s_263)" "(car" -" s_491)))" +" s_489)))" " s_263))" "((spec103_0)" "(let-values(((s_134)" "(cdr" -" s_491)))" -"(let-values(((s_805)" +" s_489)))" +"(let-values(((s_806)" "(if(syntax?$1" " s_134)" "(syntax-e$1" @@ -71127,7 +71325,7 @@ static const char *startup_source = " s_134)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_805)))" +" s_806)))" "(if(not" " flat-s_52)" "(let-values()" @@ -71195,7 +71393,7 @@ static const char *startup_source = " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_78 sym_106 at-phase_14 ns_127 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_78 sym_105 at-phase_14 ns_127 rp_2 protected?_16)" "(begin" "(let-values(((b_95)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_127)))" "(let-values((()" @@ -71214,7 +71412,7 @@ static const char *startup_source = "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_4) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" -"((sym110_0) sym_106)" +"((sym110_0) sym_105)" "((at-phase111_0) at-phase_14)" "((b112_0) b_95)" "((immed-b113_0) immed-b_0)" @@ -71240,28 +71438,28 @@ static const char *startup_source = "(lambda(fmt_1)" "(begin" " 'mk" -"(let-values(((sym_107)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" +"(let-values(((sym_106)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" +"(datum->syntax$1 id:struct_0 sym_106 id:struct_0))))))" "(let-values(((mk2_0)" "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_108)" +"(let-values(((sym_107)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_108 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" "(begin" -" (let-values (((lst_415) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_412) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_416)" +"(let-values()(check-list lst_412)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_413)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((fmt_3)(unsafe-car lst_416))((rest_238)(unsafe-cdr lst_416)))" +"(if(pair? lst_413)" +"(let-values(((fmt_3)(unsafe-car lst_413))((rest_238)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71279,22 +71477,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_238)(values))))" +"(if(not #f)(for-loop_327 rest_238)(values))))" "(values))))))" -" for-loop_328)" -" lst_415)))" +" for-loop_327)" +" lst_412)))" "(void)" -"(let-values(((lst_417) fields_0))" +"(let-values(((lst_414) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_417)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_418)" +"(let-values()(check-list lst_414)))" +"((letrec-values(((for-loop_328)" +"(lambda(lst_415)" "(begin" " 'for-loop" -"(if(pair? lst_418)" -"(let-values(((field_0)(unsafe-car lst_418))((rest_239)(unsafe-cdr lst_418)))" +"(if(pair? lst_415)" +"(let-values(((field_0)(unsafe-car lst_415))((rest_239)(unsafe-cdr lst_415)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71326,14 +71524,14 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_239)(values))))" +"(if(not #f)(for-loop_328 rest_239)(values))))" "(values))))))" -" for-loop_329)" -" lst_417)))" +" for-loop_328)" +" lst_414)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_129 rp_4 protected?_18 ctx_107)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_129 rp_4 protected?_18 ctx_106)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -71343,7 +71541,7 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_57)(module-path->mpi/context mod-path_33 ctx_107)))" +"(let-values(((mpi_57)(module-path->mpi/context mod-path_33 ctx_106)))" "(parse-all-from-module mpi_57 #f orig-s_80 except-ids_0 #f at-phase_16 ns_129 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" @@ -71371,24 +71569,24 @@ static const char *startup_source = " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_109)" +"(lambda(sym_108)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_109)) sym_109)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_419) requireds_2))" +"(let-values(((lst_416) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_419)))" -"((letrec-values(((for-loop_330)" -"(lambda(lst_420)" +"(let-values()(check-list lst_416)))" +"((letrec-values(((for-loop_329)" +"(lambda(lst_417)" "(begin" " 'for-loop" -"(if(pair? lst_420)" -"(let-values(((i_193)(unsafe-car lst_420))" -"((rest_240)(unsafe-cdr lst_420)))" +"(if(pair? lst_417)" +"(let-values(((i_193)(unsafe-car lst_417))" +"((rest_240)(unsafe-cdr lst_417)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71397,14 +71595,14 @@ static const char *startup_source = "(let-values()" "(let-values(((id_145)" "(required-id i_193)))" -"(let-values(((phase_153)" +"(let-values(((phase_152)" "(required-phase" " i_193)))" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_397)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_153" +" phase_152" " at-phase_17)" "(free-identifier=?$1" " id_145" @@ -71412,13 +71610,13 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_145))" -" phase_153" -" phase_153)" +" phase_152" +" phase_152)" " #f))" " #f)))" -"(if or-part_394" -" or-part_394" -"(let-values(((lst_421)" +"(if or-part_397" +" or-part_397" +"(let-values(((lst_418)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71426,20 +71624,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_421)))" -"((letrec-values(((for-loop_331)" +" lst_418)))" +"((letrec-values(((for-loop_330)" "(lambda(result_132" -" lst_422)" +" lst_419)" "(begin" " 'for-loop" "(if(pair?" -" lst_422)" +" lst_419)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_422))" +" lst_419))" "((rest_241)" "(unsafe-cdr" -" lst_422)))" +" lst_419)))" "(let-values(((result_133)" "(let-values()" "(let-values(((result_134)" @@ -71448,8 +71646,8 @@ static const char *startup_source = "(if(free-identifier=?$1" " id_145" " except-id_0" -" phase_153" -" phase_153)" +" phase_152" +" phase_152)" "(hash-set!" " found_0" " except-id_0" @@ -71464,27 +71662,27 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_331" +"(for-loop_330" " result_133" " rest_241)" " result_133)))" " result_132)))))" -" for-loop_331)" +" for-loop_330)" " #f" -" lst_421)))))" +" lst_418)))))" "(void)" "(let-values()" "(let-values(((b_96)" "(resolve+shift/extra-inspector" " id_145" -" phase_153" +" phase_152" " ns_130)))" "(let-values(((immed-b_1)" -"(let-values(((id130_1)" +"(let-values(((id130_0)" " id_145)" "((phase131_0)" -" phase_153)" -"((temp132_2)" +" phase_152)" +"((temp132_1)" " #t))" "(resolve+shift30.1" " #f" @@ -71493,11 +71691,11 @@ static const char *startup_source = " #f" " #f" " #f" -" temp132_2" +" temp132_1" " #t" " #f" " #f" -" id130_1" +" id130_0" " phase131_0))))" "(let-values(((rp121_0)" " rp_5)" @@ -71506,7 +71704,7 @@ static const char *startup_source = "(syntax-e$1" " id_145)))" "((phase123_0)" -" phase_153)" +" phase_152)" "((b124_0)" " b_96)" "((immed-b125_0)" @@ -71532,40 +71730,40 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_240)(values))))" +"(if(not #f)(for-loop_329 rest_240)(values))))" "(values))))))" -" for-loop_330)" -" lst_419)))" +" for-loop_329)" +" lst_416)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_423) except-ids_1))" +"(let-values(((lst_420) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_290)" +"(let-values()(check-list lst_420)))" +"((letrec-values(((for-loop_331)" +"(lambda(lst_421)" "(begin" " 'for-loop" -"(if(pair? lst_290)" -"(let-values(((except-id_1)(unsafe-car lst_290))" -"((rest_157)(unsafe-cdr lst_290)))" +"(if(pair? lst_421)" +"(let-values(((except-id_1)(unsafe-car lst_421))" +"((rest_242)(unsafe-cdr lst_421)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_398)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_398" +" or-part_398" "(let-values(((lst_125)" " requireds_2))" "(begin" @@ -71596,14 +71794,14 @@ static const char *startup_source = "(let-values(((id_146)" "(required-id" " i_72)))" -"(let-values(((phase_154)" +"(let-values(((phase_153)" "(required-phase" " i_72)))" "(free-identifier=?$1" " id_146" " except-id_1" -" phase_154" -" phase_154)))))))" +" phase_153" +" phase_153)))))))" "(values" " result_137)))))" "(if(if(not" @@ -71634,10 +71832,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_332 rest_157)(values))))" +"(if(not #f)(for-loop_331 rest_242)(values))))" "(values))))))" -" for-loop_332)" -" lst_423)))" +" for-loop_331)" +" lst_420)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -71648,12 +71846,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_424) bodys_14))" +"(let-values(((lst_422) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_424)))" -"((letrec-values(((for-loop_333)" +"(let-values()(check-list lst_422)))" +"((letrec-values(((for-loop_332)" "(lambda(lst_84)" "(begin" " 'for-loop" @@ -71701,10 +71899,10 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_40)(values))))" +"(if(not #f)(for-loop_332 rest_40)(values))))" "(values))))))" -" for-loop_333)" -" lst_424)))" +" for-loop_332)" +" lst_422)))" "(void)))))" "((check-expr_0)" "(lambda(e_93 num-results_0 enclosing_15)" @@ -71736,7 +71934,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_85)" "(let-values(((rand_0)(unsafe-car lst_85))" -"((rest_242)(unsafe-cdr lst_85)))" +"((rest_243)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71749,7 +71947,7 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_82 rest_242)(values))))" +"(if(not #f)(for-loop_82 rest_243)(values))))" "(values))))))" " for-loop_82)" " lst_78)))" @@ -71763,9 +71961,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_65 'gensym)" "(let-values()" -"(if(let-values(((or-part_357)(= 0(length rands_1))))" -"(if or-part_357" -" or-part_357" +"(if(let-values(((or-part_361)(= 0(length rands_1))))" +"(if or-part_361" +" or-part_361" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -71793,12 +71991,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_271)))" "((letrec-values(((for-loop_241)" -"(lambda(lst_425)" +"(lambda(lst_423)" "(begin" " 'for-loop" -"(if(pair? lst_425)" -"(let-values(((clause_5)(unsafe-car lst_425))" -"((rest_243)(unsafe-cdr lst_425)))" +"(if(pair? lst_423)" +"(let-values(((clause_5)(unsafe-car lst_423))" +"((rest_244)(unsafe-cdr lst_423)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71809,7 +72007,7 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_243)(values))))" +"(if(not #f)(for-loop_241 rest_244)(values))))" "(values))))))" " for-loop_241)" " lst_271)))" @@ -71859,9 +72057,9 @@ static const char *startup_source = "(if(let-values(((or-part_86)(not normal-b_1)))" "(if or-part_86" " or-part_86" -"(let-values(((or-part_284)(parsed-top-id? id_147)))" -"(if or-part_284" -" or-part_284" +"(let-values(((or-part_288)(parsed-top-id? id_147)))" +"(if or-part_288" +" or-part_288" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71914,8 +72112,8 @@ static const char *startup_source = " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_40))))" -"(if(let-values(((or-part_396)(parsed-quote-syntax? e_40)))" -"(if or-part_396 or-part_396(parsed-#%variable-reference? e_40)))" +"(if(let-values(((or-part_399)(parsed-quote-syntax? e_40)))" +"(if or-part_399 or-part_399(parsed-#%variable-reference? e_40)))" "(let-values()(disallow e_40))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71928,7 +72126,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_333)" "(lambda(lst_273)" "(begin" " 'for-loop" @@ -71945,9 +72143,9 @@ static const char *startup_source = " e_84))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_334 rest_146)(values))))" +"(if(not #f)(for-loop_333 rest_146)(values))))" "(values))))))" -" for-loop_334)" +" for-loop_333)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -72001,33 +72199,33 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_108)" +"(lambda(s_43 ctx_107)" "(begin" -"(if(eq?(expand-context-context ctx_108) 'top-level)" +"(if(eq?(expand-context-context ctx_107) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_108)))" -"(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" +"(let-values(((obs_127)(expand-context-observer ctx_107)))" +"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_0) s_43)((ctx224_0) ctx_108)((temp225_1) #f))" -"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" +"(let-values(((s223_1) s_43)((ctx224_0) ctx_107)((temp225_1) #f))" +"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_1 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_426 ctx_15)" +"(lambda(s_807 ctx_108)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_15)))" -"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_426)))))" +"(let-values(((obs_128)(expand-context-observer ctx_108)))" +"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-module)))(void)))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_807)))))" "(void" "(add-core-form!*" " '#%module-begin" "(lambda(s_89 ctx_109)" "(begin" -"(let-values(((obs_2)(expand-context-observer ctx_109)))" -"(if obs_2(let-values()(let-values()(call-expand-observe obs_2 'prim-module-begin)))(void)))" +"(let-values(((obs_129)(expand-context-observer ctx_109)))" +"(if obs_129(let-values()(let-values()(call-expand-observe obs_129 'prim-module-begin)))(void)))" "(if(eq?(expand-context-context ctx_109) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_89)))" @@ -72037,64 +72235,64 @@ static const char *startup_source = "((expand-context-module-begin-k ctx_109)" " s_89" "(let-values(((v_264) ctx_109))" -"(let-values(((the-struct_98) v_264))" -"(if(expand-context/outer? the-struct_98)" +"(let-values(((the-struct_99) v_264))" +"(if(expand-context/outer? the-struct_99)" "(let-values(((inner226_0)" -"(let-values(((the-struct_99)(root-expand-context/outer-inner v_264)))" -"(if(expand-context/inner? the-struct_99)" +"(let-values(((the-struct_100)(root-expand-context/outer-inner v_264)))" +"(if(expand-context/inner? the-struct_100)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_99)" -"(root-expand-context/inner-module-scopes the-struct_99)" -"(root-expand-context/inner-top-level-bind-scope the-struct_99)" -"(root-expand-context/inner-all-scopes-stx the-struct_99)" -"(root-expand-context/inner-defined-syms the-struct_99)" -"(root-expand-context/inner-counter the-struct_99)" -"(root-expand-context/inner-lift-key the-struct_99)" -"(expand-context/inner-to-parsed? the-struct_99)" -"(expand-context/inner-phase the-struct_99)" -"(expand-context/inner-namespace the-struct_99)" -"(expand-context/inner-just-once? the-struct_99)" +"(root-expand-context/inner-self-mpi the-struct_100)" +"(root-expand-context/inner-module-scopes the-struct_100)" +"(root-expand-context/inner-top-level-bind-scope the-struct_100)" +"(root-expand-context/inner-all-scopes-stx the-struct_100)" +"(root-expand-context/inner-defined-syms the-struct_100)" +"(root-expand-context/inner-counter the-struct_100)" +"(root-expand-context/inner-lift-key the-struct_100)" +"(expand-context/inner-to-parsed? the-struct_100)" +"(expand-context/inner-phase the-struct_100)" +"(expand-context/inner-namespace the-struct_100)" +"(expand-context/inner-just-once? the-struct_100)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_99)" -"(expand-context/inner-in-local-expand? the-struct_99)" -"(expand-context/inner-stops the-struct_99)" -"(expand-context/inner-declared-submodule-names the-struct_99)" -"(expand-context/inner-lifts the-struct_99)" -"(expand-context/inner-lift-envs the-struct_99)" -"(expand-context/inner-module-lifts the-struct_99)" -"(expand-context/inner-require-lifts the-struct_99)" -"(expand-context/inner-to-module-lifts the-struct_99)" -"(expand-context/inner-requires+provides the-struct_99)" -"(expand-context/inner-observer the-struct_99)" -"(expand-context/inner-for-serializable? the-struct_99)" -"(expand-context/inner-should-not-encounter-macros? the-struct_99)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_99)))))" +"(expand-context/inner-allow-unbound? the-struct_100)" +"(expand-context/inner-in-local-expand? the-struct_100)" +"(expand-context/inner-stops the-struct_100)" +"(expand-context/inner-declared-submodule-names the-struct_100)" +"(expand-context/inner-lifts the-struct_100)" +"(expand-context/inner-lift-envs the-struct_100)" +"(expand-context/inner-module-lifts the-struct_100)" +"(expand-context/inner-require-lifts the-struct_100)" +"(expand-context/inner-to-module-lifts the-struct_100)" +"(expand-context/inner-requires+provides the-struct_100)" +"(expand-context/inner-observer the-struct_100)" +"(expand-context/inner-for-serializable? the-struct_100)" +"(expand-context/inner-should-not-encounter-macros? the-struct_100)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_100)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_98)" -"(root-expand-context/outer-use-site-scopes the-struct_98)" -"(root-expand-context/outer-frame-id the-struct_98)" -"(expand-context/outer-context the-struct_98)" -"(expand-context/outer-env the-struct_98)" -"(expand-context/outer-post-expansion-scope-action the-struct_98)" -"(expand-context/outer-scopes the-struct_98)" -"(expand-context/outer-def-ctx-scopes the-struct_98)" -"(expand-context/outer-binding-layer the-struct_98)" -"(expand-context/outer-reference-records the-struct_98)" -"(expand-context/outer-only-immediate? the-struct_98)" -"(expand-context/outer-need-eventually-defined the-struct_98)" -"(expand-context/outer-current-introduction-scopes the-struct_98)" -"(expand-context/outer-name the-struct_98)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_98)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_99)" +"(root-expand-context/outer-use-site-scopes the-struct_99)" +"(root-expand-context/outer-frame-id the-struct_99)" +"(expand-context/outer-context the-struct_99)" +"(expand-context/outer-env the-struct_99)" +"(expand-context/outer-post-expansion-scope-action the-struct_99)" +"(expand-context/outer-scopes the-struct_99)" +"(expand-context/outer-def-ctx-scopes the-struct_99)" +"(expand-context/outer-binding-layer the-struct_99)" +"(expand-context/outer-reference-records the-struct_99)" +"(expand-context/outer-only-immediate? the-struct_99)" +"(expand-context/outer-need-eventually-defined the-struct_99)" +"(expand-context/outer-current-introduction-scopes the-struct_99)" +"(expand-context/outer-name the-struct_99)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_99)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_806 ctx_110)" +"(lambda(s_808 ctx_110)" "(begin" -"(let-values(((obs_128)(expand-context-observer ctx_110)))" -"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_806)))))" +"(let-values(((obs_130)(expand-context-observer ctx_110)))" +"(if obs_130(let-values()(let-values()(call-expand-observe obs_130 'prim-declare)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_808)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -72116,7 +72314,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_485) s15_0))" +"(let-values(((s_482) s15_0))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0)(if always-produce-compiled?8_0 always-produce-compiled?1_0 #f)))" @@ -72137,13 +72335,13 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_129)(expand-context-observer init-ctx_0)))" -"(if obs_129" +"(let-values(((obs_131)(expand-context-observer init-ctx_0)))" +"(if obs_131" "(let-values()" -"(let-values()(call-expand-observe obs_129 'prim-module)))" +"(let-values()(call-expand-observe obs_131 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_485)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_482)))" "(let-values(((ok?_77 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_52) disarmed-s_24))" "(let-values(((orig-s_82) s_52))" @@ -72151,66 +72349,66 @@ static const char *startup_source = " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_807)" +"(let-values(((s_809)" "(if(syntax?$1 s_52)" "(syntax-e$1 s_52)" " s_52)))" -"(if(pair? s_807)" +"(if(pair? s_809)" "(let-values(((module232_0)" -"(let-values(((s_318)(car s_807)))" +"(let-values(((s_318)(car s_809)))" " s_318))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_55)(cdr s_807)))" +"(let-values(((s_55)(cdr s_809)))" "(let-values(((s_319)" "(if(syntax?$1 s_55)" "(syntax-e$1 s_55)" " s_55)))" "(if(pair? s_319)" "(let-values(((id:module-name236_0)" -"(let-values(((s_808)" +"(let-values(((s_810)" "(car" " s_319)))" "(if(let-values(((or-part_50)" "(if(syntax?$1" -" s_808)" +" s_810)" "(symbol?" "(syntax-e$1" -" s_808))" +" s_810))" " #f)))" "(if or-part_50" " or-part_50" "(symbol?" -" s_808)))" -" s_808" +" s_810)))" +" s_810" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_82" -" s_808))))" +" s_810))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_509)" +"(let-values(((s_508)" "(cdr" " s_319)))" -"(let-values(((s_809)" +"(let-values(((s_811)" "(if(syntax?$1" -" s_509)" +" s_508)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_508)" +" s_508)))" "(if(pair?" -" s_809)" +" s_811)" "(let-values(((initial-require239_0)" "(let-values(((s_320)" "(car" -" s_809)))" +" s_811)))" " s_320))" "((body240_0)" "(let-values(((s_321)" "(cdr" -" s_809)))" +" s_811)))" "(let-values(((s_305)" "(if(syntax?$1" " s_321)" @@ -72258,10 +72456,10 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_485)" +"((s254_0) s_482)" "((temp255_0) #t)" "((temp256_0) #t))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " temp256_0" @@ -72282,10 +72480,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_485" +" s_482" " initial-require230_0)))" "(values))))" -"(let-values(((phase_155) 0))" +"(let-values(((phase_154) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -72402,110 +72600,110 @@ static const char *startup_source = "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_101)" " v_111))" "(if(expand-context/outer?" -" the-struct_100)" +" the-struct_101)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_101)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" " v_111)))" "(if(expand-context/inner?" -" the-struct_101)" +" the-struct_102)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_18)" "((phase271_0)" -" phase_155)" +" phase_154)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-module-scopes" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_101)" +" the-struct_102)" "(root-expand-context/inner-lift-key" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-to-parsed?" -" the-struct_101)" +" the-struct_102)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_101)" +" the-struct_102)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-stops" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-declared-submodule-names" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-lift-envs" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-module-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-require-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-to-module-lifts" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-requires+provides" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_101)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_101)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_101)))))" +" the-struct_102)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_100)" +" the-struct_101)" "(root-expand-context/outer-use-site-scopes" -" the-struct_100)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-context" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-env" -" the-struct_100)" +" the-struct_101)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-def-ctx-scopes" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-binding-layer" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-need-eventually-defined" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-current-introduction-scopes" -" the-struct_100)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_100)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_100))))))" +" the-struct_101))))))" "(let-values(((bodys_4)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -72515,51 +72713,51 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_810)" +"(let-values(((s_812)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_810))" +" s_812))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_443)" +"(let-values(((s_440)" "(if(syntax?$1" -" s_810)" +" s_812)" "(syntax-e$1" -" s_810)" -" s_810)))" +" s_812)" +" s_812)))" "(if(pair?" -" s_443)" +" s_440)" "(let-values(((_277_2)" "(let-values(((s_70)" "(car" -" s_443)))" +" s_440)))" " s_70))" "((_278_2" " _279_0" " body280_0)" "(let-values(((s_208)" "(cdr" -" s_443)))" -"(let-values(((s_467)" +" s_440)))" +"(let-values(((s_464)" "(if(syntax?$1" " s_208)" "(syntax-e$1" " s_208)" " s_208)))" "(if(pair?" -" s_467)" +" s_464)" "(let-values(((_281_1)" "(let-values(((s_99)" "(car" -" s_467)))" +" s_464)))" " s_99))" "((_282_0" " body283_0)" "(let-values(((s_39)" "(cdr" -" s_467)))" +" s_464)))" "(let-values(((s_157)" "(if(syntax?$1" " s_39)" @@ -72569,20 +72767,20 @@ static const char *startup_source = "(if(pair?" " s_157)" "(let-values(((_284_0)" -"(let-values(((s_468)" +"(let-values(((s_465)" "(car" " s_157)))" -" s_468))" +" s_465))" "((body285_0)" -"(let-values(((s_469)" +"(let-values(((s_466)" "(cdr" " s_157)))" "(let-values(((s_328)" "(if(syntax?$1" -" s_469)" +" s_466)" "(syntax-e$1" -" s_469)" -" s_469)))" +" s_466)" +" s_466)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_328)))" @@ -72710,14 +72908,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_130)" +"(let-values(((obs_132)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_130" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_130" +" obs_132" " 'prepare-env)))" "(void)))" "(values))))" @@ -72761,18 +72959,18 @@ static const char *startup_source = "(let-values(((ctx_112)" "(let-values(((v_265)" " mb-init-ctx_0))" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_103)" " v_265))" "(if(expand-context/outer?" -" the-struct_102)" +" the-struct_103)" "(let-values(((inner306_0)" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" " v_265)))" "(if(expand-context/inner?" -" the-struct_103)" +" the-struct_104)" "(let-values(((module-begin-k307_0)" -"(lambda(s_787" +"(lambda(s_789" " ctx_113)" "(begin" " 'module-begin-k307" @@ -72809,7 +73007,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_787" +" s_789" " ctx_113))" "(lambda()" "(begin" @@ -72821,106 +73019,106 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_103)" +" the-struct_104)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_103)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_103)))))" +" the-struct_104)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/outer-use-site-scopes" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-context" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-def-ctx-scopes" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-binding-layer" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_102)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_102)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_102))))))" +" the-struct_103))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_21)" "(expand-context-observer" " ctx_112)))" -"(if obs_131" +"(if obs_21" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_21" " 'rename-one" " added-s_2)))" "(void)))" @@ -72931,29 +73129,29 @@ static const char *startup_source = "(let-values(((ok?_79" " #%module-begin301_0" " body302_0)" -"(let-values(((s_811)" +"(let-values(((s_813)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_811))" +" s_813))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_470)" +"(let-values(((s_467)" "(if(syntax?$1" -" s_811)" +" s_813)" "(syntax-e$1" -" s_811)" -" s_811)))" +" s_813)" +" s_813)))" "(if(pair?" -" s_470)" +" s_467)" "(let-values(((#%module-begin303_0)" "(let-values(((s_221)" "(car" -" s_470)))" +" s_467)))" " s_221))" "((body304_0)" "(let-values(((s_222)" "(cdr" -" s_470)))" +" s_467)))" "(let-values(((s_223)" "(if(syntax?$1" " s_222)" @@ -72990,7 +73188,7 @@ static const char *startup_source = " ctx_112)" "((mb-s317_0)" " mb-s_0))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " #f" @@ -73010,7 +73208,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_16" -" phase_156)" +" phase_155)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -73022,10 +73220,10 @@ static const char *startup_source = "(let-values(((partial-body-ctx_0)" "(let-values(((v_146)" " ctx_112))" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_105)" " v_146))" "(if(expand-context/outer?" -" the-struct_104)" +" the-struct_105)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -73033,22 +73231,22 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_146)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_106)" "(let-values(((phase330_0)" -" phase_156)" +" phase_155)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_18" -" phase_156))" +" phase_155))" "((stops332_0)" "(free-id-set" -" phase_156" +" phase_155" "(module-expand-stop-ids" -" phase_156)))" +" phase_155)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -73068,11 +73266,11 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_156" +" phase_155" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_156" +" phase_155" "(let-values(((m-ns340_0)" " m-ns_18)" "((self341_0)" @@ -73088,7 +73286,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_156)" +" phase_155)" "((module-ends345_0)" " module-ends_0)" "((temp346_1)" @@ -73099,86 +73297,86 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_106)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_106)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_106)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_106)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_105)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/outer-use-site-scopes" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_104)" +" the-struct_105)" " context326_0" "(expand-context/outer-env" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_104)" +" the-struct_105)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_104)" +" the-struct_105)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_104)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_16)" "((phase348_0)" -" phase_156)" +" phase_155)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -73226,14 +73424,14 @@ static const char *startup_source = " bodys347_0))))" "(let-values((()" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_133)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_132" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_133" " 'next-group)))" "(void)))" "(values))))" @@ -73242,25 +73440,25 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_107)" " v_266))" "(if(expand-context/outer?" -" the-struct_106)" +" the-struct_107)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_107)" +" the-struct_108)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_156)" +" phase_155)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -73271,93 +73469,93 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-namespace" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-just-once?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_107)" +" the-struct_108)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_107)" +" the-struct_108)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_107)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_107)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-context" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_106)" +" the-struct_107)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_106)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_106))))))" +" the-struct_107))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_156)" +" phase_155)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -73381,7 +73579,7 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_15" -" phase_155)))" +" phase_154)))" "(let-values((()" "(begin" "(check-defined-by-now" @@ -73413,7 +73611,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_18)" "((phase375_0)" -" phase_155)" +" phase_154)" "((self376_0)" " self_14)" "((ctx377_0)" @@ -73454,14 +73652,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_134)" "(expand-context-observer" " ctx_112)))" -"(if obs_133" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_134" " 'next)))" "(void)))" "(values))))" @@ -73486,67 +73684,67 @@ static const char *startup_source = "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_109)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_109)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-to-module-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_109)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" @@ -73629,7 +73827,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_155)" +" phase_154)" "((self398_0)" " self_14)" "((requires+provides399_0)" @@ -73697,108 +73895,108 @@ static const char *startup_source = "(let-values(((mb-ctx_0)" "(let-values(((v_268)" " ctx_111))" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_110)" " v_268))" "(if(expand-context/outer?" -" the-struct_109)" +" the-struct_110)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" " v_268)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_111)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_111)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_111)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-to-module-lifts" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_111)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_109)" +" the-struct_110)" " context409_0" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_110))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -73821,9 +74019,9 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_155)" +" phase_154)" "((s420_0)" -" s_485))" +" s_482))" "(ensure-module-begin36.1" " mb-ctx417_0" " mb-def-ctx-scopes418_0" @@ -73841,7 +74039,9 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -73855,11 +74055,11 @@ static const char *startup_source = " self_14" " self_14)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_400)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_397" -" or-part_397" +"(if or-part_400" +" or-part_400" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73895,7 +74095,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_14)" -"(let-values(((lst_426)" +"(let-values(((lst_424)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73904,19 +74104,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_426)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_427)" +" lst_424)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" +" lst_425)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_427))" -"((rest_244)" +" lst_425))" +"((rest_245)" "(unsafe-cdr" -" lst_427)))" +" lst_425)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73929,12 +74129,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_335" -" rest_244)" +"(for-loop_334" +" rest_245)" "(values))))" "(values))))))" -" for-loop_335)" -" lst_426)))" +" for-loop_334)" +" lst_424)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -73981,14 +74181,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_135)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_134" +"(if obs_135" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_135" " 'rename-one" " result-s_18)))" "(void)))" @@ -74016,7 +74216,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_114) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_157) phase26_3))" +"(let-values(((phase_156) phase26_3))" "(let-values(((s_138) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" @@ -74024,45 +74224,45 @@ static const char *startup_source = "(begin" " 'make-mb-ctx" "(let-values(((v_269) ctx_114))" -"(let-values(((the-struct_111) v_269))" -"(if(expand-context/outer? the-struct_111)" +"(let-values(((the-struct_112) v_269))" +"(if(expand-context/outer? the-struct_112)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" "((inner431_0)(root-expand-context/outer-inner v_269)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_111)" -"(root-expand-context/outer-use-site-scopes the-struct_111)" -"(root-expand-context/outer-frame-id the-struct_111)" +"(root-expand-context/outer-post-expansion-scope the-struct_112)" +"(root-expand-context/outer-use-site-scopes the-struct_112)" +"(root-expand-context/outer-frame-id the-struct_112)" " context428_0" -"(expand-context/outer-env the-struct_111)" -"(expand-context/outer-post-expansion-scope-action the-struct_111)" -"(expand-context/outer-scopes the-struct_111)" +"(expand-context/outer-env the-struct_112)" +"(expand-context/outer-post-expansion-scope-action the-struct_112)" +"(expand-context/outer-scopes the-struct_112)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_111)" -"(expand-context/outer-reference-records the-struct_111)" +"(expand-context/outer-binding-layer the-struct_112)" +"(expand-context/outer-reference-records the-struct_112)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_111)" -"(expand-context/outer-current-introduction-scopes the-struct_111)" -"(expand-context/outer-name the-struct_111)))" +"(expand-context/outer-need-eventually-defined the-struct_112)" +"(expand-context/outer-current-introduction-scopes the-struct_112)" +"(expand-context/outer-name the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))))" +" the-struct_112))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_17))" "(let-values()" "(begin" -"(let-values(((obs_135)(expand-context-observer ctx_114)))" -"(if obs_135" +"(let-values(((obs_136)(expand-context-observer ctx_114)))" +"(if obs_136" "(let-values()" "(let-values()" -"(call-expand-observe obs_135 'rename-one(car bodys_17))))" +"(call-expand-observe obs_136 'rename-one(car bodys_17))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_157))" +"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_156))" "(let-values()(car bodys_17))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -74072,18 +74272,26 @@ static const char *startup_source = "(car bodys_17)" " module-name-sym_1))" "((temp433_0)(make-mb-ctx_0)))" -"(expand7.1 #f #f #f #f temp432_0 temp433_0)))))" +"(expand9.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" temp432_0" +" temp433_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_157))" +" phase_156))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" "((s435_0) s_138)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_157)" +"((phase437_0) phase_156)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_0)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -74100,7 +74308,7 @@ static const char *startup_source = "(let-values(((bodys441_0) bodys_17)" "((s442_0) s_138)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_157)" +"((phase444_0) phase_156)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -74126,9 +74334,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_18) bodys41_0))" -"(let-values(((s_812) s42_0))" +"(let-values(((s_814) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_158) phase44_1))" +"(let-values(((phase_157) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -74137,34 +74345,34 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_158))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_157))" "(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_812)))" +" s_814)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_18) s_812 s_812)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_18) s_814 s_814)))" "(let-values((()" "(begin" -"(let-values(((obs_136)(expand-context-observer mb-ctx_1)))" -"(if obs_136" +"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" +"(if obs_137" "(let-values()" -"(let-values()(call-expand-observe obs_136 'tag mb_2)))" +"(let-values()(call-expand-observe obs_137 '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_138)(expand-context-observer mb-ctx_1)))" +"(if obs_138" "(let-values()" "(let-values()" -"(call-expand-observe obs_137 'rename-one mb_2)))" +"(call-expand-observe obs_138 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" @@ -74173,17 +74381,17 @@ static const char *startup_source = "(let-values(((temp449_0)" "(add-enclosing-name-property mb_2 module-name-sym_2))" "((mb-ctx450_0) mb-ctx_1))" -"(expand7.1 #f #f #f #f temp449_0 mb-ctx450_0)))))" +"(expand9.1 #f #f #f #f #f #f temp449_0 mb-ctx450_0)))))" "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_158))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_157))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_812" +" s_814" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -74199,13 +74407,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_813)" +"(lambda(s_815)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_813" +" s_815" "(remove-use-site-scopes" -"(remove-scopes s_813(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_815(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)))" @@ -74284,14 +74492,14 @@ static const char *startup_source = "(if(if tail?_52(not(zero? phase_53)) #f)" "(let-values()" "(begin" -"(let-values(((obs_138)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_139" " 'module-lift-end-loop" " '())))" "(void)))" @@ -74307,14 +74515,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_140" " 'module-lift-end-loop" " bodys_21)))" "(void)))" @@ -74331,14 +74539,14 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_20)))" "(let-values((()" "(begin" -"(let-values(((obs_140)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_141" " 'next)))" "(void)))" "(values))))" @@ -74348,7 +74556,9 @@ static const char *startup_source = "(car bodys_20))" "((partial-body-ctx459_0)" " partial-body-ctx_1))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -74370,14 +74580,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_141)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_141" +" obs_142" " 'rename-one" " exp-body_7)))" "(void)))" @@ -74396,30 +74606,30 @@ static const char *startup_source = "(let-values(((ok?_80" " begin460_0" " e461_1)" -"(let-values(((s_814)" +"(let-values(((s_816)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_814))" +" s_816))" "(let-values(((begin460_1" " e461_2)" -"(let-values(((s_815)" +"(let-values(((s_817)" "(if(syntax?$1" -" s_814)" +" s_816)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_816)" +" s_816)))" "(if(pair?" -" s_815)" +" s_817)" "(let-values(((begin462_0)" -"(let-values(((s_816)" +"(let-values(((s_818)" "(car" -" s_815)))" -" s_816))" +" s_817)))" +" s_818))" "((e463_0)" "(let-values(((s_153)" "(cdr" -" s_815)))" -"(let-values(((s_817)" +" s_817)))" +"(let-values(((s_819)" "(if(syntax?$1" " s_153)" "(syntax-e$1" @@ -74427,7 +74637,7 @@ static const char *startup_source = " s_153)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_817)))" +" s_819)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74462,14 +74672,14 @@ static const char *startup_source = " e461_1)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_142" +" obs_143" " 'splice" " spliced-bodys_0)))" "(void)))" @@ -74482,22 +74692,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_143)" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_144" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_143" +" obs_144" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_143" +" obs_144" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_143" +" obs_144" " 'prepare-env))))" "(void)))" "(values))))" @@ -74513,52 +74723,52 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_145" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_145" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_81" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_818)" +"(let-values(((s_820)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_818))" +" s_820))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_819)" -"(if(syntax?$1" -" s_818)" -"(syntax-e$1" -" s_818)" -" s_818)))" -"(if(pair?" -" s_819)" -"(let-values(((begin-for-syntax466_0)" -"(let-values(((s_820)" -"(car" -" s_819)))" -" s_820))" -"((e467_0)" "(let-values(((s_821)" -"(cdr" -" s_819)))" -"(let-values(((s_822)" "(if(syntax?$1" -" s_821)" +" s_820)" "(syntax-e$1" +" s_820)" +" s_820)))" +"(if(pair?" " s_821)" +"(let-values(((begin-for-syntax466_0)" +"(let-values(((s_822)" +"(car" " s_821)))" +" s_822))" +"((e467_0)" +"(let-values(((s_823)" +"(cdr" +" s_821)))" +"(let-values(((s_824)" +"(if(syntax?$1" +" s_823)" +"(syntax-e$1" +" s_823)" +" s_823)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_822)))" +" s_824)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74585,14 +74795,14 @@ static const char *startup_source = "(add1" " phase_53))))" "(begin" -"(let-values(((obs_145)" +"(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_146" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_145" +" obs_146" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" @@ -74609,18 +74819,18 @@ static const char *startup_source = "(namespace-visit-available-modules!" " m-ns_19" " phase_53)" -"(let-values(((obs_146)" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_147" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_146" +" obs_147" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_428)" +"(let-values(((lst_426)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74628,20 +74838,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_428)))" -"((letrec-values(((for-loop_336)" +" lst_426)))" +"((letrec-values(((for-loop_335)" "(lambda(fold-var_380" -" lst_429)" +" lst_427)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" +" lst_427)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_429))" -"((rest_245)" +" lst_427))" +"((rest_246)" "(unsafe-cdr" -" lst_429)))" +" lst_427)))" "(let-values(((fold-var_381)" "(let-values(((fold-var_382)" " fold-var_380))" @@ -74656,14 +74866,14 @@ static const char *startup_source = " fold-var_357)))))" "(if(not" " #f)" -"(for-loop_336" +"(for-loop_335" " fold-var_381" -" rest_245)" +" rest_246)" " fold-var_381)))" " fold-var_380)))))" -" for-loop_336)" +" for-loop_335)" " null" -" lst_428))))))" +" lst_426))))))" "(datum->syntax$1" " #f" "(cons" @@ -74684,19 +74894,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_148" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_147" +" obs_148" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_147" +" obs_148" " 'prim-define-values))))" "(void)))" "(values))))" @@ -74704,52 +74914,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_823)" +"(let-values(((s_825)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_823))" +" s_825))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_824)" +"(let-values(((s_826)" "(if(syntax?$1" -" s_823)" +" s_825)" "(syntax-e$1" -" s_823)" -" s_823)))" +" s_825)" +" s_825)))" "(if(pair?" -" s_824)" +" s_826)" "(let-values(((define-values471_0)" -"(let-values(((s_825)" +"(let-values(((s_827)" "(car" -" s_824)))" -" s_825))" +" s_826)))" +" s_827))" "((id472_0" " rhs473_0)" -"(let-values(((s_826)" -"(cdr" -" s_824)))" -"(let-values(((s_827)" -"(if(syntax?$1" -" s_826)" -"(syntax-e$1" -" s_826)" -" s_826)))" -"(if(pair?" -" s_827)" -"(let-values(((id474_0)" "(let-values(((s_828)" -"(car" -" s_827)))" +"(cdr" +" s_826)))" "(let-values(((s_829)" "(if(syntax?$1" " s_828)" "(syntax-e$1" " s_828)" " s_828)))" +"(if(pair?" +" s_829)" +"(let-values(((id474_0)" +"(let-values(((s_830)" +"(car" +" s_829)))" +"(let-values(((s_831)" +"(if(syntax?$1" +" s_830)" +"(syntax-e$1" +" s_830)" +" s_830)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_829)))" +" s_831)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74759,7 +74969,7 @@ static const char *startup_source = " orig-s_87))" "(let-values()" "(let-values(((id_149)" -"(let-values(((lst_430)" +"(let-values(((lst_428)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74767,18 +74977,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_430)))" -"((letrec-values(((for-loop_337)" +" lst_428)))" +"((letrec-values(((for-loop_336)" "(lambda(id_150" " lst_148)" "(begin" " 'for-loop" "(if(pair?" " lst_148)" -"(let-values(((s_830)" +"(let-values(((s_832)" "(unsafe-car" " lst_148))" -"((rest_246)" +"((rest_247)" "(unsafe-cdr" " lst_148)))" "(let-values(((id_151)" @@ -74788,23 +74998,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id487_0)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_830)" +" s_832)" "(symbol?" "(syntax-e$1" -" s_830))" +" s_832))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_830)))" -" s_830" +" s_832)))" +" s_832" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_830)))))" +" s_832)))))" "(cons" " id487_0" " id_152)))))" @@ -74812,45 +75022,45 @@ static const char *startup_source = " id_153)))))" "(if(not" " #f)" -"(for-loop_337" +"(for-loop_336" " id_151" -" rest_246)" +" rest_247)" " id_151)))" " id_150)))))" -" for-loop_337)" +" for-loop_336)" " null" -" lst_430)))))" +" lst_428)))))" "(reverse$1" " id_149))))))))" "((rhs475_0)" -"(let-values(((s_831)" -"(cdr" -" s_827)))" -"(let-values(((s_832)" -"(if(syntax?$1" -" s_831)" -"(syntax-e$1" -" s_831)" -" s_831)))" -"(if(pair?" -" s_832)" -"(let-values(((rhs476_0)" "(let-values(((s_833)" -"(car" -" s_832)))" -" s_833))" -"(()" -"(let-values(((s_834)" "(cdr" -" s_832)))" -"(let-values(((s_835)" +" s_829)))" +"(let-values(((s_834)" "(if(syntax?$1" -" s_834)" +" s_833)" "(syntax-e$1" +" s_833)" +" s_833)))" +"(if(pair?" " s_834)" +"(let-values(((rhs476_0)" +"(let-values(((s_835)" +"(car" " s_834)))" +" s_835))" +"(()" +"(let-values(((s_836)" +"(cdr" +" s_834)))" +"(let-values(((s_837)" +"(if(syntax?$1" +" s_836)" +"(syntax-e$1" +" s_836)" +" s_836)))" "(if(null?" -" s_835)" +" s_837)" "(values)" "(raise-syntax-error$1" " #f" @@ -74964,14 +75174,14 @@ static const char *startup_source = " requires+provides484_0" " syms485_0" " phase486_0))" -"(let-values(((obs_148)" +"(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_148" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_148" +" obs_149" " 'exit-prim" "(datum->syntax$1" " #f" @@ -74996,22 +75206,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_150)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_149" +"(if obs_150" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_149" +" obs_150" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_149" +" obs_150" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_149" +" obs_150" " 'prepare-env))))" "(void)))" "(values))))" @@ -75022,14 +75232,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_150" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_150" +" obs_151" " 'phase-up)))" "(void)))" "(values))))" @@ -75037,52 +75247,52 @@ static const char *startup_source = " define-syntaxes496_0" " id497_0" " rhs498_0)" -"(let-values(((s_836)" +"(let-values(((s_838)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_836))" +" s_838))" "(let-values(((define-syntaxes496_1" " id497_1" " rhs498_1)" -"(let-values(((s_837)" +"(let-values(((s_839)" "(if(syntax?$1" -" s_836)" +" s_838)" "(syntax-e$1" -" s_836)" -" s_836)))" +" s_838)" +" s_838)))" "(if(pair?" -" s_837)" +" s_839)" "(let-values(((define-syntaxes499_0)" -"(let-values(((s_838)" +"(let-values(((s_840)" "(car" -" s_837)))" -" s_838))" +" s_839)))" +" s_840))" "((id500_0" " rhs501_0)" -"(let-values(((s_839)" -"(cdr" -" s_837)))" -"(let-values(((s_840)" -"(if(syntax?$1" -" s_839)" -"(syntax-e$1" -" s_839)" -" s_839)))" -"(if(pair?" -" s_840)" -"(let-values(((id502_0)" "(let-values(((s_841)" -"(car" -" s_840)))" +"(cdr" +" s_839)))" "(let-values(((s_842)" "(if(syntax?$1" " s_841)" "(syntax-e$1" " s_841)" " s_841)))" +"(if(pair?" +" s_842)" +"(let-values(((id502_0)" +"(let-values(((s_843)" +"(car" +" s_842)))" +"(let-values(((s_844)" +"(if(syntax?$1" +" s_843)" +"(syntax-e$1" +" s_843)" +" s_843)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_842)))" +" s_844)))" "(if(not" " flat-s_59)" "(let-values()" @@ -75092,7 +75302,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_154)" -"(let-values(((lst_431)" +"(let-values(((lst_429)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75100,20 +75310,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_431)))" -"((letrec-values(((for-loop_338)" +" lst_429)))" +"((letrec-values(((for-loop_337)" "(lambda(id_155" -" lst_432)" +" lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_432)" -"(let-values(((s_843)" +" lst_430)" +"(let-values(((s_845)" "(unsafe-car" -" lst_432))" -"((rest_247)" +" lst_430))" +"((rest_248)" "(unsafe-cdr" -" lst_432)))" +" lst_430)))" "(let-values(((id_156)" "(let-values(((id_157)" " id_155))" @@ -75121,23 +75331,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id516_0)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_402)" "(if(syntax?$1" -" s_843)" +" s_845)" "(symbol?" "(syntax-e$1" -" s_843))" +" s_845))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_402" +" or-part_402" "(symbol?" -" s_843)))" -" s_843" +" s_845)))" +" s_845" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_843)))))" +" s_845)))))" "(cons" " id516_0" " id_157)))))" @@ -75145,45 +75355,45 @@ static const char *startup_source = " id_158)))))" "(if(not" " #f)" -"(for-loop_338" +"(for-loop_337" " id_156" -" rest_247)" +" rest_248)" " id_156)))" " id_155)))))" -" for-loop_338)" +" for-loop_337)" " null" -" lst_431)))))" +" lst_429)))))" "(reverse$1" " id_154))))))))" "((rhs503_0)" -"(let-values(((s_844)" -"(cdr" -" s_840)))" -"(let-values(((s_845)" -"(if(syntax?$1" -" s_844)" -"(syntax-e$1" -" s_844)" -" s_844)))" -"(if(pair?" -" s_845)" -"(let-values(((rhs504_0)" -"(let-values(((s_562)" -"(car" -" s_845)))" -" s_562))" -"(()" "(let-values(((s_846)" "(cdr" -" s_845)))" +" s_842)))" "(let-values(((s_847)" "(if(syntax?$1" " s_846)" "(syntax-e$1" " s_846)" " s_846)))" -"(if(null?" +"(if(pair?" " s_847)" +"(let-values(((rhs504_0)" +"(let-values(((s_564)" +"(car" +" s_847)))" +" s_564))" +"(()" +"(let-values(((s_848)" +"(cdr" +" s_847)))" +"(let-values(((s_849)" +"(if(syntax?$1" +" s_848)" +"(syntax-e$1" +" s_848)" +" s_848)))" +"(if(null?" +" s_849)" "(values)" "(raise-syntax-error$1" " #f" @@ -75315,18 +75525,18 @@ static const char *startup_source = "((temp529_0)" "(let-values(((v_270)" " partial-body-ctx_1))" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_113)" " v_270))" "(if(expand-context/outer?" -" the-struct_112)" +" the-struct_113)" "(let-values(((need-eventually-defined531_0)" " need-eventually-defined_2)" "((inner532_0)" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_113)" +" the-struct_114)" "(let-values(((lifts533_0)" " #f)" "((module-lifts534_0)" @@ -75335,92 +75545,92 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-module-begin-k" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-in-local-expand?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" +" the-struct_114)" " lifts533_0" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_114)" " module-lifts534_0" "(expand-context/inner-require-lifts" -" the-struct_113)" +" the-struct_114)" " to-module-lifts535_0" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner532_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-context" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_112)" +" the-struct_113)" " need-eventually-defined531_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112)))))" +" the-struct_113)))))" "((temp530_0)" " #f))" -"(expand+eval-for-syntaxes-binding75.1" +"(expand+eval-for-syntaxes-binding109.1" " temp530_0" " #t" " temp526_0" @@ -75429,11 +75639,11 @@ static const char *startup_source = " temp529_0))))" "(let-values((()" "(begin" -"(let-values(((lst_433)" +"(let-values(((lst_431)" " syms_24)" -"((lst_434)" +"((lst_432)" " vals_10)" -"((lst_435)" +"((lst_433)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75441,51 +75651,51 @@ static const char *startup_source = "(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)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_434)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_435)))" -"((letrec-values(((for-loop_339)" -"(lambda(lst_436" -" lst_437" -" lst_438)" +"((letrec-values(((for-loop_338)" +"(lambda(lst_434" +" lst_435" +" lst_436)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_436)" +" lst_434)" "(if(pair?" -" lst_437)" +" lst_435)" "(pair?" -" lst_438)" +" lst_436)" " #f)" " #f)" -"(let-values(((sym_110)" +"(let-values(((sym_109)" "(unsafe-car" -" lst_436))" -"((rest_248)" -"(unsafe-cdr" -" lst_436))" -"((val_87)" -"(unsafe-car" -" lst_437))" +" lst_434))" "((rest_249)" "(unsafe-cdr" -" lst_437))" -"((id_159)" +" lst_434))" +"((val_87)" "(unsafe-car" -" lst_438))" +" lst_435))" "((rest_250)" "(unsafe-cdr" -" lst_438)))" +" lst_435))" +"((id_159)" +"(unsafe-car" +" lst_436))" +"((rest_251)" +"(unsafe-cdr" +" lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75501,34 +75711,34 @@ static const char *startup_source = "(namespace-set-transformer!" " m-ns_19" " phase_53" -" sym_110" +" sym_109" " val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_339" -" rest_248" +"(for-loop_338" " rest_249" -" rest_250)" +" rest_250" +" rest_251)" "(values))))" "(values))))))" -" for-loop_339)" -" lst_433" -" lst_434" -" lst_435)))" +" for-loop_338)" +" lst_431" +" lst_432" +" lst_433)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_151)" +"(let-values(((obs_152)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_151" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_152" " 'exit-prim" "(datum->syntax$1" " #f" @@ -75572,19 +75782,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_152)" +"(let-values(((obs_153)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_152" +"(if obs_153" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_152" +" obs_153" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_152" +" obs_153" " 'prim-require))))" "(void)))" "(values))))" @@ -75595,38 +75805,38 @@ static const char *startup_source = "(let-values(((ok?_84" " #%require538_0" " req539_0)" -"(let-values(((s_572)" +"(let-values(((s_574)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_572))" +" s_574))" "(let-values(((#%require538_1" " req539_1)" -"(let-values(((s_848)" -"(if(syntax?$1" -" s_572)" -"(syntax-e$1" -" s_572)" -" s_572)))" -"(if(pair?" -" s_848)" -"(let-values(((#%require540_0)" -"(let-values(((s_849)" -"(car" -" s_848)))" -" s_849))" -"((req541_0)" "(let-values(((s_850)" -"(cdr" -" s_848)))" -"(let-values(((s_851)" "(if(syntax?$1" -" s_850)" +" s_574)" "(syntax-e$1" +" s_574)" +" s_574)))" +"(if(pair?" " s_850)" +"(let-values(((#%require540_0)" +"(let-values(((s_851)" +"(car" " s_850)))" +" s_851))" +"((req541_0)" +"(let-values(((s_852)" +"(cdr" +" s_850)))" +"(let-values(((s_853)" +"(if(syntax?$1" +" s_852)" +"(syntax-e$1" +" s_852)" +" s_852)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_851)))" +" s_853)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75691,14 +75901,14 @@ static const char *startup_source = " m-ns545_0" " phase546_0" " requires+provides548_0))" -"(let-values(((obs_153)" +"(let-values(((obs_154)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_153" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_153" +" obs_154" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -75768,22 +75978,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_154)" +"(let-values(((obs_155)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_154" +"(if obs_155" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_154" +" obs_155" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_154" +" obs_155" " 'prim-submodule*)" "(call-expand-observe" -" obs_154" +" obs_155" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -75799,38 +76009,38 @@ static const char *startup_source = "(let-values(((ok?_85" " #%declare559_0" " kw560_0)" -"(let-values(((s_852)" +"(let-values(((s_854)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_852))" +" s_854))" "(let-values(((#%declare559_1" " kw560_1)" -"(let-values(((s_853)" -"(if(syntax?$1" -" s_852)" -"(syntax-e$1" -" s_852)" -" s_852)))" -"(if(pair?" -" s_853)" -"(let-values(((#%declare561_0)" -"(let-values(((s_854)" -"(car" -" s_853)))" -" s_854))" -"((kw562_0)" "(let-values(((s_855)" -"(cdr" -" s_853)))" -"(let-values(((s_856)" "(if(syntax?$1" -" s_855)" +" s_854)" "(syntax-e$1" +" s_854)" +" s_854)))" +"(if(pair?" " s_855)" +"(let-values(((#%declare561_0)" +"(let-values(((s_856)" +"(car" " s_855)))" +" s_856))" +"((kw562_0)" +"(let-values(((s_857)" +"(cdr" +" s_855)))" +"(let-values(((s_858)" +"(if(syntax?$1" +" s_857)" +"(syntax-e$1" +" s_857)" +" s_857)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_856)))" +" s_858)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75853,7 +76063,7 @@ static const char *startup_source = " kw560_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_439)" +"(let-values(((lst_437)" " kw560_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75861,19 +76071,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_439)))" -"((letrec-values(((for-loop_340)" -"(lambda(lst_440)" +" lst_437)))" +"((letrec-values(((for-loop_339)" +"(lambda(lst_438)" "(begin" " 'for-loop" "(if(pair?" -" lst_440)" +" lst_438)" "(let-values(((kw_1)" "(unsafe-car" -" lst_440))" -"((rest_251)" +" lst_438))" +"((rest_252)" "(unsafe-cdr" -" lst_440)))" +" lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75924,12 +76134,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_340" -" rest_251)" +"(for-loop_339" +" rest_252)" "(values))))" "(values))))))" -" for-loop_340)" -" lst_439)))" +" for-loop_339)" +" lst_437)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75976,21 +76186,21 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_34 frame-id_17 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_45 rhs_23 phase_159)" +"(lambda(ids_45 rhs_23 phase_158)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_441) ids_45))" +"(let-values(((lst_439) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_341)" -"(lambda(fold-var_383 lst_442)" +"(let-values()(check-list lst_439)))" +"((letrec-values(((for-loop_340)" +"(lambda(fold-var_383 lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((id_160)(unsafe-car lst_442))" -"((rest_252)(unsafe-cdr lst_442)))" +"(if(pair? lst_440)" +"(let-values(((id_160)(unsafe-car lst_440))" +"((rest_253)(unsafe-cdr lst_440)))" "(let-values(((fold-var_384)" "(let-values(((fold-var_385) fold-var_383))" "(let-values(((fold-var_386)" @@ -76002,16 +76212,16 @@ static const char *startup_source = " inside-scope_2))" " fold-var_385))))" "(values fold-var_386)))))" -"(if(not #f)(for-loop_341 fold-var_384 rest_252) fold-var_384)))" +"(if(not #f)(for-loop_340 fold-var_384 rest_253) fold-var_384)))" " fold-var_383)))))" -" for-loop_341)" +" for-loop_340)" " null" -" lst_441))))))" +" lst_439))))))" "(let-values(((syms_25)" "(let-values(((scoped-ids563_0) scoped-ids_0)" "((defined-syms564_0) defined-syms_13)" "((self565_0) self_34)" -"((phase566_0) phase_159)" +"((phase566_0) phase_158)" "((all-scopes-stx567_0) all-scopes-stx_6)" "((frame-id568_0) frame-id_17)" "((requires+provides569_0) requires+provides_8))" @@ -76035,7 +76245,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_159) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_158) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" @@ -76047,15 +76257,15 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_115)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_443) bodys_22))" +"(let-values(((lst_441) bodys_22))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_342)" -"(lambda(fold-var_387 lst_444)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" +"((letrec-values(((for-loop_341)" +"(lambda(fold-var_387 lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((body_23)(unsafe-car lst_444))((rest_253)(unsafe-cdr lst_444)))" +"(if(pair? lst_442)" +"(let-values(((body_23)(unsafe-car lst_442))((rest_254)(unsafe-cdr lst_442)))" "(let-values(((fold-var_388)" "(let-values(((fold-var_389) fold-var_387))" "(let-values(((fold-var_390)" @@ -76064,11 +76274,11 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_389))))" "(values fold-var_390)))))" -"(if(not #f)(for-loop_342 fold-var_388 rest_253) fold-var_388)))" +"(if(not #f)(for-loop_341 fold-var_388 rest_254) fold-var_388)))" " fold-var_387)))))" -" for-loop_342)" +" for-loop_341)" " null" -" lst_443))))" +" lst_441))))" " bodys_22)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -76083,7 +76293,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_160) phase84_0))" +"(let-values(((phase_159) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_35) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -76097,15 +76307,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_23)" "(let-values()" -"(if(if tail?_53(not(zero? phase_160)) #f)" +"(if(if tail?_53(not(zero? phase_159)) #f)" "(let-values()" "(begin" -"(let-values(((obs_155)(expand-context-observer body-ctx_7)))" -"(if obs_155" +"(let-values(((obs_156)(expand-context-observer body-ctx_7)))" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_155" +" obs_156" " 'module-lift-end-loop" " '())))" "(void)))" @@ -76121,13 +76331,13 @@ static const char *startup_source = "(if(null? bodys_24)" "(let-values()" "(begin" -"(let-values(((obs_156)" +"(let-values(((obs_157)" "(expand-context-observer body-ctx_7)))" -"(if obs_156" +"(if obs_157" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_156" +" obs_157" " 'module-lift-end-loop" " '())))" "(void)))" @@ -76140,25 +76350,25 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_157)" +"(let-values(((obs_158)" "(expand-context-observer body-ctx_7)))" -"(if obs_157" +"(if obs_158" "(let-values()" "(let-values()" -"(call-expand-observe obs_157 'next)))" +"(call-expand-observe obs_158 'next)))" "(void)))" "(values))))" "(let-values(((body_24)(car bodys_23)))" "(let-values(((rest-bodys_2)(cdr bodys_23)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_403)" "(parsed? body_24)))" -"(if or-part_400" -" or-part_400" -"(let-values(((or-part_401)" +"(if or-part_403" +" or-part_403" +"(let-values(((or-part_404)" "(expanded+parsed? body_24)))" -"(if or-part_401" -" or-part_401" +"(if or-part_404" +" or-part_404" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -76175,86 +76385,86 @@ static const char *startup_source = "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_857)" +"(let-values(((s_859)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_86" " define-values570_0" " _571_0" " _572_0)" -"(let-values(((s_858)" +"(let-values(((s_860)" "(syntax-disarm$1" -" s_857)))" +" s_859)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_858))" +" s_860))" "(let-values(((define-values570_1" " _571_1" " _572_1)" -"(let-values(((s_859)" +"(let-values(((s_861)" "(if(syntax?$1" -" s_858)" +" s_860)" "(syntax-e$1" -" s_858)" -" s_858)))" +" s_860)" +" s_860)))" "(if(pair?" -" s_859)" +" s_861)" "(let-values(((define-values573_0)" -"(let-values(((s_860)" +"(let-values(((s_862)" "(car" -" s_859)))" -" s_860))" +" s_861)))" +" s_862))" "((_574_0" " _575_0)" -"(let-values(((s_861)" -"(cdr" -" s_859)))" -"(let-values(((s_862)" -"(if(syntax?$1" -" s_861)" -"(syntax-e$1" -" s_861)" -" s_861)))" -"(if(pair?" -" s_862)" -"(let-values(((_576_0)" "(let-values(((s_863)" -"(car" -" s_862)))" -" s_863))" -"((_577_0)" +"(cdr" +" s_861)))" "(let-values(((s_864)" -"(cdr" -" s_862)))" -"(let-values(((s_865)" "(if(syntax?$1" -" s_864)" +" s_863)" "(syntax-e$1" -" s_864)" -" s_864)))" +" s_863)" +" s_863)))" "(if(pair?" -" s_865)" -"(let-values(((_578_0)" -"(let-values(((s_866)" +" s_864)" +"(let-values(((_576_0)" +"(let-values(((s_865)" "(car" -" s_865)))" -" s_866))" -"(()" -"(let-values(((s_867)" +" s_864)))" +" s_865))" +"((_577_0)" +"(let-values(((s_866)" "(cdr" -" s_865)))" -"(let-values(((s_868)" +" s_864)))" +"(let-values(((s_867)" "(if(syntax?$1" -" s_867)" +" s_866)" "(syntax-e$1" +" s_866)" +" s_866)))" +"(if(pair?" " s_867)" +"(let-values(((_578_0)" +"(let-values(((s_868)" +"(car" " s_867)))" +" s_868))" +"(()" +"(let-values(((s_869)" +"(cdr" +" s_867)))" +"(let-values(((s_870)" +"(if(syntax?$1" +" s_869)" +"(syntax-e$1" +" s_869)" +" s_869)))" "(if(null?" -" s_868)" +" s_870)" "(values)" "(raise-syntax-error$1" " #f" @@ -76295,10 +76505,10 @@ static const char *startup_source = "(let-values(((rhs-ctx579_0)" " rhs-ctx_2)" "((s580_0)" -" s_857)" +" s_859)" "((temp581_0)" " #t))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " #f" @@ -76320,7 +76530,9 @@ static const char *startup_source = " body_24))" "((rhs-ctx583_0)" " rhs-ctx_2))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -76347,7 +76559,9 @@ static const char *startup_source = "((temp585_0)" "(as-to-parsed-context" " rhs-ctx_2)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -76377,7 +76591,7 @@ static const char *startup_source = "(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_0" -" phase_160)))" +" phase_159)))" "(if(if(equal? tmp_67 '#%require)" " #t" "(if(equal? tmp_67 '#%provide)" @@ -76392,7 +76606,9 @@ static const char *startup_source = "((temp589_0)" "(as-expression-context" " body-ctx_7)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -76409,7 +76625,9 @@ static const char *startup_source = "((temp591_0)" "(as-to-parsed-context" " body-ctx_7)))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -76436,14 +76654,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_158)" +"(let-values(((obs_159)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_158" +"(if obs_159" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_158" +" obs_159" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -76457,7 +76675,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules592_0)" " lifted-modules_0)" -"((phase593_0) phase_160)" +"((phase593_0) phase_159)" "((self594_0) self_35)" "((body-ctx595_0)" " body-ctx_7)" @@ -76484,14 +76702,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_109)" +"(let-values(((obs_110)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_109" +"(if obs_110" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_109" +" obs_110" " 'next)))" "(void)))))" "(append" @@ -76514,12 +76732,12 @@ static const char *startup_source = "(let-values(((ht_168) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_168)))" -"((letrec-values(((for-loop_343)" +"((letrec-values(((for-loop_342)" "(lambda(i_194)" "(begin" " 'for-loop" "(if i_194" -"(let-values(((phase_161 l_89)(hash-iterate-key+value ht_168 i_194)))" +"(let-values(((phase_160 l_89)(hash-iterate-key+value ht_168 i_194)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76527,24 +76745,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_445) l_89))" +"(let-values(((lst_443) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_446)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_343)" +"(lambda(lst_444)" "(begin" " 'for-loop" "(if(pair?" -" lst_446)" +" lst_444)" "(let-values(((id_161)" "(unsafe-car" -" lst_446))" -"((rest_254)" +" lst_444))" +"((rest_255)" "(unsafe-cdr" -" lst_446)))" +" lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76555,7 +76773,7 @@ static const char *startup_source = "(let-values(((id600_0)" " id_161)" "((phase601_0)" -" phase_161))" +" phase_160))" "(resolve+shift30.1" " #f" " #f" @@ -76591,7 +76809,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_98)" -" phase_161)" +" phase_160)" " #f)))" "(if(eq?" " bound-kind_0" @@ -76615,14 +76833,14 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_68)" -" phase_161))" +" phase_160))" "(if(equal?" " tmp_68" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_161)))))" +" phase_160)))))" " id_161" " #f" " null" @@ -76632,18 +76850,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_344" -" rest_254)" +"(for-loop_343" +" rest_255)" "(values))))" "(values))))))" -" for-loop_344)" -" lst_445)))" +" for-loop_343)" +" lst_443)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_343(hash-iterate-next ht_168 i_194))(values))))" +"(if(not #f)(for-loop_342(hash-iterate-next ht_168 i_194))(values))))" "(values))))))" -" for-loop_343)" +" for-loop_342)" "(hash-iterate-first ht_168))))" "(void)))))" "(define-values" @@ -76661,93 +76879,93 @@ static const char *startup_source = "(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_20) namespace104_0))" -"(let-values(((phase_162) phase105_0))" +"(let-values(((phase_161) phase105_0))" "(let-values(((self_37) self106_0))" "(let-values(((ctx_117) ctx107_0))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_25 phase_163)" +"(lambda(bodys_25 phase_162)" "(begin" " 'loop" "(if(null? bodys_25)" "(let-values() null)" -"(if(let-values(((or-part_402)(parsed?(car bodys_25))))" -"(if or-part_402 or-part_402(expanded+parsed?(car bodys_25))))" +"(if(let-values(((or-part_405)(parsed?(car bodys_25))))" +"(if or-part_405 or-part_405(expanded+parsed?(car bodys_25))))" "(let-values()" -"(cons(car bodys_25)(loop_127(cdr bodys_25) phase_163)))" +"(cons(car bodys_25)(loop_127(cdr bodys_25) phase_162)))" "(if(semi-parsed-begin-for-syntax?(car bodys_25))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_25))" -"(add1 phase_163))))" +"(add1 phase_162))))" "(cons" -"(let-values(((the-struct_114)(car bodys_25)))" -"(if(semi-parsed-begin-for-syntax? the-struct_114)" +"(let-values(((the-struct_115)(car bodys_25)))" +"(if(semi-parsed-begin-for-syntax? the-struct_115)" "(let-values(((body602_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_114)" +"(semi-parsed-begin-for-syntax-s the-struct_115)" " body602_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_114)))" -"(loop_127(cdr bodys_25) phase_163))))" +" the-struct_115)))" +"(loop_127(cdr bodys_25) phase_162))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_25))))" "(let-values(((tmp_69)" -"(core-form-sym disarmed-body_1 phase_163)))" +"(core-form-sym disarmed-body_1 phase_162)))" "(if(equal? tmp_69 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_159)" +"(let-values(((obs_160)" "(expand-context-observer" " ctx_117)))" -"(if obs_159" +"(if obs_160" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_159" +" obs_160" " 'enter-prim" "(car bodys_25))" "(call-expand-observe" -" obs_159" +" obs_160" " 'prim-provide))))" "(void)))" "(values))))" "(let-values(((ok?_87 #%provide603_0 spec604_0)" -"(let-values(((s_869) disarmed-body_1))" -"(let-values(((orig-s_92) s_869))" +"(let-values(((s_871) disarmed-body_1))" +"(let-values(((orig-s_92) s_871))" "(let-values(((#%provide603_1" " spec604_1)" -"(let-values(((s_870)" -"(if(syntax?$1" -" s_869)" -"(syntax-e$1" -" s_869)" -" s_869)))" -"(if(pair? s_870)" -"(let-values(((#%provide605_0)" -"(let-values(((s_871)" -"(car" -" s_870)))" -" s_871))" -"((spec606_0)" -"(let-values(((s_663)" -"(cdr" -" s_870)))" "(let-values(((s_872)" "(if(syntax?$1" -" s_663)" +" s_871)" "(syntax-e$1" -" s_663)" -" s_663)))" +" s_871)" +" s_871)))" +"(if(pair? s_872)" +"(let-values(((#%provide605_0)" +"(let-values(((s_873)" +"(car" +" s_872)))" +" s_873))" +"((spec606_0)" +"(let-values(((s_665)" +"(cdr" +" s_872)))" +"(let-values(((s_874)" +"(if(syntax?$1" +" s_665)" +"(syntax-e$1" +" s_665)" +" s_665)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_872)))" +" s_874)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76774,117 +76992,117 @@ static const char *startup_source = "(car bodys_25)" " requires+provides_10" " self_37" -" phase_163" +" phase_162" "(let-values(((v_271) ctx_117))" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_116)" " v_271))" "(if(expand-context/outer?" -" the-struct_115)" +" the-struct_116)" "(let-values(((context607_0)" " 'top-level)" "((inner608_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_117)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" -" the-struct_116)" +" the-struct_117)" "(let-values(((phase609_0)" -" phase_163)" +" phase_162)" "((namespace610_0)" "(namespace->namespace-at-phase" " m-ns_20" -" phase_163))" +" phase_162))" "((requires+provides611_0)" " requires+provides_10)" "((declared-submodule-names612_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-parsed?" -" the-struct_116)" +" the-struct_117)" " phase609_0" " namespace610_0" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-stops" -" the-struct_116)" +" the-struct_117)" " declared-submodule-names612_0" "(expand-context/inner-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-module-lifts" -" the-struct_116)" +" the-struct_117)" " requires+provides611_0" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_116)))))" +" the-struct_117)))))" "(expand-context/outer1.1" " inner608_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-use-site-scopes" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-frame-id" -" the-struct_115)" +" the-struct_116)" " context607_0" "(expand-context/outer-env" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-def-ctx-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-binding-layer" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-reference-records" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-only-immediate?" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-need-eventually-defined" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-current-introduction-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-name" -" the-struct_115)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_115)))))))" +" the-struct_116)))))))" "(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_127(cdr bodys_25) phase_163))" +"(loop_127(cdr bodys_25) phase_162))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -76901,14 +77119,14 @@ static const char *startup_source = " temp613_0" " temp614_0)))))" "(begin" -"(let-values(((obs_160)" +"(let-values(((obs_161)" "(expand-context-observer" " ctx_117)))" -"(if obs_160" +"(if obs_161" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_160" +" obs_161" " 'exit-prim" " new-s_10)))" "(void)))" @@ -76916,14 +77134,14 @@ static const char *startup_source = " new-s_10" "(loop_127" "(cdr bodys_25)" -" phase_163))))))))))" +" phase_162))))))))))" "(let-values()" "(cons" "(car bodys_25)" -"(loop_127(cdr bodys_25) phase_163))))))))))))))" +"(loop_127(cdr bodys_25) phase_162))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_162)))))))))))))" +" phase_161)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76968,8 +77186,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_403) enclosing-self_3))" -"(if or-part_403 or-part_403 self_38)))))" +"(let-values(((or-part_406) enclosing-self_3))" +"(if or-part_406 or-part_406 self_38)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod615_0) parsed-mod_0)" "((temp616_0)" @@ -77035,16 +77253,16 @@ static const char *startup_source = " compiled-module623_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_873 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_875 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_874)" -"(syntax-property$1 s_873 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_875)" +"(let-values(((s_876)" +"(syntax-property$1 s_875 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_877)" "(syntax-property$1" -" s_874" +" s_876" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_875)))))" +" s_877)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -77063,7 +77281,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_164) phase143_1))" +"(let-values(((phase_163) phase143_1))" "(let-values(((self_39) self144_0))" "(let-values(((requires+provides_12) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -77075,7 +77293,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_26 phase_165)" +"(lambda(bodys_26 phase_164)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -77089,37 +77307,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_88 begin-for-syntax625_0 _626_0)" -"(let-values(((s_876)" +"(let-values(((s_878)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_876))" +"(let-values(((orig-s_93) s_878))" "(let-values(((begin-for-syntax625_1" " _626_1)" -"(let-values(((s_877)" -"(if(syntax?$1" -" s_876)" -"(syntax-e$1" -" s_876)" -" s_876)))" -"(if(pair? s_877)" -"(let-values(((begin-for-syntax627_0)" -"(let-values(((s_878)" -"(car" -" s_877)))" -" s_878))" -"((_628_0)" "(let-values(((s_879)" -"(cdr" -" s_877)))" -"(let-values(((s_880)" "(if(syntax?$1" -" s_879)" +" s_878)" "(syntax-e$1" -" s_879)" +" s_878)" +" s_878)))" +"(if(pair? s_879)" +"(let-values(((begin-for-syntax627_0)" +"(let-values(((s_880)" +"(car" " s_879)))" +" s_880))" +"((_628_0)" +"(let-values(((s_881)" +"(cdr" +" s_879)))" +"(let-values(((s_882)" +"(if(syntax?$1" +" s_881)" +"(syntax-e$1" +" s_881)" +" s_881)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_880)))" +" s_882)))" "(if(not" " flat-s_63)" "(let-values()" @@ -77145,7 +77363,7 @@ static const char *startup_source = " submod-ctx_1)" "((body-s630_0)" " body-s_0))" -"(keep-as-needed86.1" +"(keep-as-needed120.1" " #f" " #f" " #f" @@ -77158,7 +77376,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_165))))" +"(add1 phase_164))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -77181,20 +77399,20 @@ static const char *startup_source = " rebuild-body-s631_0" " temp632_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_165))))))))" -"(if(let-values(((or-part_404)(parsed? body_25)))" -"(if or-part_404" -" or-part_404" +"(loop_128 rest-bodys_3 phase_164))))))))" +"(if(let-values(((or-part_407)(parsed? body_25)))" +"(if or-part_407" +" or-part_407" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_165)))" +"(cons body_25(loop_128 rest-bodys_3 phase_164)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_70)" "(core-form-sym" " disarmed-body_2" -" phase_165)))" +" phase_164)))" "(if(equal? tmp_70 'module*)" "(let-values()" "(let-values((()" @@ -77210,60 +77428,60 @@ static const char *startup_source = " module*633_0" " name634_0" " _635_0)" -"(let-values(((s_701)" -" disarmed-body_2))" -"(if(let-values(((s_881)" -"(if(syntax?$1" -" s_701)" -"(syntax-e$1" -" s_701)" -" s_701)))" -"(if(pair? s_881)" -"(if(let-values(((s_882)" -"(car" -" s_881)))" -" #t)" -"(let-values(((s_883)" -"(cdr" -" s_881)))" -"(let-values(((s_702)" -"(if(syntax?$1" -" s_883)" -"(syntax-e$1" -" s_883)" -" s_883)))" -"(if(pair?" -" s_702)" -"(if(let-values(((s_884)" -"(car" -" s_702)))" -" #t)" "(let-values(((s_703)" -"(cdr" -" s_702)))" -"(let-values(((s_885)" +" disarmed-body_2))" +"(if(let-values(((s_883)" "(if(syntax?$1" " s_703)" "(syntax-e$1" " s_703)" " s_703)))" -"(if(pair?" -" s_885)" -"(if(let-values(((s_886)" +"(if(pair? s_883)" +"(if(let-values(((s_884)" "(car" -" s_885)))" +" s_883)))" +" #t)" +"(let-values(((s_885)" +"(cdr" +" s_883)))" "(let-values(((s_704)" "(if(syntax?$1" -" s_886)" +" s_885)" "(syntax-e$1" -" s_886)" -" s_886)))" -"(eq?" -" #f" +" s_885)" +" s_885)))" +"(if(pair?" +" s_704)" +"(if(let-values(((s_886)" +"(car" +" s_704)))" +" #t)" +"(let-values(((s_705)" +"(cdr" " s_704)))" "(let-values(((s_887)" +"(if(syntax?$1" +" s_705)" +"(syntax-e$1" +" s_705)" +" s_705)))" +"(if(pair?" +" s_887)" +"(if(let-values(((s_888)" +"(car" +" s_887)))" +"(let-values(((s_706)" +"(if(syntax?$1" +" s_888)" +"(syntax-e$1" +" s_888)" +" s_888)))" +"(eq?" +" #f" +" s_706)))" +"(let-values(((s_889)" "(cdr" -" s_885)))" +" s_887)))" " #t)" " #f)" " #f)))" @@ -77275,59 +77493,59 @@ static const char *startup_source = "(let-values(((module*633_1" " name634_1" " _635_1)" -"(let-values(((s_888)" +"(let-values(((s_890)" "(if(syntax?$1" -" s_701)" +" s_703)" "(syntax-e$1" -" s_701)" -" s_701)))" +" s_703)" +" s_703)))" "(let-values(((module*636_0)" -"(let-values(((s_889)" +"(let-values(((s_891)" "(car" -" s_888)))" -" s_889))" +" s_890)))" +" s_891))" "((name637_0" " _638_0)" -"(let-values(((s_890)" -"(cdr" -" s_888)))" -"(let-values(((s_891)" -"(if(syntax?$1" -" s_890)" -"(syntax-e$1" -" s_890)" -" s_890)))" -"(let-values(((name639_0)" "(let-values(((s_892)" -"(car" -" s_891)))" -" s_892))" -"((_640_0)" -"(let-values(((s_893)" "(cdr" -" s_891)))" -"(let-values(((s_894)" +" s_890)))" +"(let-values(((s_893)" "(if(syntax?$1" -" s_893)" +" s_892)" "(syntax-e$1" -" s_893)" -" s_893)))" -"(let-values((()" -"(let-values(((s_895)" +" s_892)" +" s_892)))" +"(let-values(((name639_0)" +"(let-values(((s_894)" "(car" -" s_894)))" +" s_893)))" +" s_894))" +"((_640_0)" +"(let-values(((s_895)" +"(cdr" +" s_893)))" "(let-values(((s_896)" "(if(syntax?$1" " s_895)" "(syntax-e$1" " s_895)" " s_895)))" +"(let-values((()" +"(let-values(((s_897)" +"(car" +" s_896)))" +"(let-values(((s_898)" +"(if(syntax?$1" +" s_897)" +"(syntax-e$1" +" s_897)" +" s_897)))" "(values))))" "((_641_0)" -"(let-values(((s_897)" +"(let-values(((s_899)" "(cdr" -" s_894)))" -" s_897)))" +" s_896)))" +" s_899)))" "(values" " _641_0))))))" "(values" @@ -77353,7 +77571,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_165)))" +" phase_164)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -77407,27 +77625,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_118)" " submod_4))" "(if(expanded+parsed?" -" the-struct_117)" +" the-struct_118)" "(let-values(((s654_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_165)))" +" phase_164)))" "(expanded+parsed1.1" " s654_0" "(expanded+parsed-parsed" -" the-struct_117)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_117))))" +" the-struct_118))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_165))))))))" +" phase_164))))))))" "(let-values()" "(let-values(((ready-body655_0)" " ready-body_2)" @@ -77466,16 +77684,16 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_165)))))))" +" phase_164)))))))" "(let-values()" "(cons" " body_25" "(loop_128" " rest-bodys_3" -" phase_165)))))))))))))))))" +" phase_164)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_164)))))))))))))))))" +" phase_163)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_119)" @@ -77490,23 +77708,23 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_166) phase171_1))" +"(let-values(((phase_165) phase171_1))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_717) in168_0))" +"(let-values(((s_719) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_447) ids_47))" +"(let-values(((lst_445) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_345)" -"(lambda(lst_448)" +"(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_344)" +"(lambda(lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((id_162)(unsafe-car lst_448))" -"((rest_255)(unsafe-cdr lst_448)))" +"(if(pair? lst_446)" +"(let-values(((id_162)(unsafe-car lst_446))" +"((rest_256)(unsafe-cdr lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77517,8 +77735,8 @@ static const char *startup_source = " requires+provides_13)" "((id664_0) id_162)" "((phase665_0)" -" phase_166)" -"((s666_0) s_717)" +" phase_165)" +"((s666_0) s_719)" "((temp667_0) 'module))" "(check-not-defined95.1" " #f" @@ -77538,25 +77756,25 @@ static const char *startup_source = " phase665_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_345 rest_255)(values))))" +"(if(not #f)(for-loop_344 rest_256)(values))))" "(values))))))" -" for-loop_345)" -" lst_447)))" +" for-loop_344)" +" lst_445)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_27 phase_167 m-ns_22 self_40 ctx_120)" +"(lambda(bodys_27 phase_166 m-ns_22 self_40 ctx_120)" "(begin" "(begin" -"(let-values(((lst_449) bodys_27))" +"(let-values(((lst_447) bodys_27))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_346)" -"(lambda(lst_450)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_345)" +"(lambda(lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((body_26)(unsafe-car lst_450))((rest_256)(unsafe-cdr lst_450)))" +"(if(pair? lst_448)" +"(let-values(((body_26)(unsafe-car lst_448))((rest_257)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77579,63 +77797,63 @@ static const char *startup_source = " ids_48" "(parsed-define-values-rhs" " p_89)" -" phase_167" +" phase_166" " m-ns_22" " ctx_120)))" "(begin" -"(let-values(((lst_451) ids_48)" -"((lst_452)" +"(let-values(((lst_449) ids_48)" +"((lst_450)" "(parsed-define-values-syms" " p_89))" -"((lst_453) vals_11))" +"((lst_451) vals_11))" "(begin" "(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)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_452)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_453)))" -"((letrec-values(((for-loop_347)" -"(lambda(lst_454" -" lst_455" -" lst_456)" +"((letrec-values(((for-loop_346)" +"(lambda(lst_452" +" lst_453" +" lst_454)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_454)" +" lst_452)" "(if(pair?" -" lst_455)" +" lst_453)" "(pair?" -" lst_456)" +" lst_454)" " #f)" " #f)" "(let-values(((id_163)" "(unsafe-car" -" lst_454))" -"((rest_257)" -"(unsafe-cdr" -" lst_454))" -"((sym_111)" -"(unsafe-car" -" lst_455))" +" lst_452))" "((rest_258)" "(unsafe-cdr" -" lst_455))" -"((val_88)" +" lst_452))" +"((sym_110)" "(unsafe-car" -" lst_456))" +" lst_453))" "((rest_259)" "(unsafe-cdr" -" lst_456)))" +" lst_453))" +"((val_88)" +"(unsafe-car" +" lst_454))" +"((rest_260)" +"(unsafe-cdr" +" lst_454)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77644,37 +77862,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_22" -" phase_167" -" sym_111" +" phase_166" +" sym_110" " val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_347" -" rest_257" +"(for-loop_346" " rest_258" -" rest_259)" +" rest_259" +" rest_260)" "(values))))" "(values))))))" -" for-loop_347)" -" lst_451" -" lst_452" -" lst_453)))" +" for-loop_346)" +" lst_449" +" lst_450" +" lst_451)))" "(void)))))" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_408)" "(parsed-define-syntaxes?" " p_89)))" -"(if or-part_405" -" or-part_405" +"(if or-part_408" +" or-part_408" "(semi-parsed-begin-for-syntax?" " p_89)))" "(let-values()(void))" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_409)" "(parsed-#%declare?" " p_89)))" -"(if or-part_406" -" or-part_406" +"(if or-part_409" +" or-part_409" "(syntax?$1 p_89)))" "(let-values()(void))" "(let-values()" @@ -77695,7 +77913,7 @@ static const char *startup_source = "(let-values(((m-ns668_0)" " m-ns_22)" "((phase669_0)" -" phase_167))" +" phase_166))" "(make-compile-context14.1" " #f" " #f" @@ -77712,10 +77930,10 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_346 rest_256)(values))))" +"(if(not #f)(for-loop_345 rest_257)(values))))" "(values))))))" -" for-loop_346)" -" lst_449)))" +" for-loop_345)" +" lst_447)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77737,7 +77955,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_898) s194_0))" +"(let-values(((s_900) s194_0))" "(let-values(((self_41) self195_0))" "(let-values(((ctx_121) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77761,47 +77979,47 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_161)(expand-context-observer ctx_121)))" -"(if obs_161" +"(let-values(((obs_162)(expand-context-observer ctx_121)))" +"(if obs_162" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_898)" +"(call-expand-observe obs_162 'enter-prim s_900)" "(call-expand-observe" -" obs_161" +" obs_162" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_90 module670_0 name671_0 _672_0)" -"(let-values(((s_754) s_898))" -"(let-values(((orig-s_94) s_754))" +"(let-values(((s_756) s_900))" +"(let-values(((orig-s_94) s_756))" "(let-values(((module670_1 name671_1 _672_1)" -"(let-values(((s_899)" -"(if(syntax?$1 s_754)" -"(syntax-e$1 s_754)" -" s_754)))" -"(if(pair? s_899)" -"(let-values(((module673_0)" -"(let-values(((s_759)(car s_899)))" -" s_759))" -"((name674_0 _675_0)" -"(let-values(((s_760)(cdr s_899)))" -"(let-values(((s_900)" -"(if(syntax?$1" -" s_760)" -"(syntax-e$1 s_760)" -" s_760)))" -"(if(pair? s_900)" -"(let-values(((name676_0)" "(let-values(((s_901)" -"(car" -" s_900)))" -" s_901))" -"((_677_0)" +"(if(syntax?$1 s_756)" +"(syntax-e$1 s_756)" +" s_756)))" +"(if(pair? s_901)" +"(let-values(((module673_0)" +"(let-values(((s_761)(car s_901)))" +" s_761))" +"((name674_0 _675_0)" +"(let-values(((s_762)(cdr s_901)))" "(let-values(((s_902)" -"(cdr" -" s_900)))" +"(if(syntax?$1" +" s_762)" +"(syntax-e$1 s_762)" +" s_762)))" +"(if(pair? s_902)" +"(let-values(((name676_0)" +"(let-values(((s_903)" +"(car" " s_902)))" +" s_903))" +"((_677_0)" +"(let-values(((s_904)" +"(cdr" +" s_902)))" +" s_904)))" "(values name676_0 _677_0))" "(raise-syntax-error$1" " #f" @@ -77821,7 +78039,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_898" +" s_900" " name_80))" "(void))" "(values))))" @@ -77834,116 +78052,116 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_121)))" -"(if obs_162" +"(let-values(((obs_163)(expand-context-observer ctx_121)))" +"(if obs_163" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_898)))" +"(call-expand-observe obs_163 'enter-prim s_900)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s678_0) s_898)" +"(let-values(((s678_0) s_900)" "((temp679_0)" "(let-values(((v_272) ctx_121))" -"(let-values(((the-struct_118) v_272))" -"(if(expand-context/outer? the-struct_118)" +"(let-values(((the-struct_119) v_272))" +"(if(expand-context/outer? the-struct_119)" "(let-values(((context688_0) 'module)" "((post-expansion-scope689_0)" " #f)" "((inner690_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_120)" "(root-expand-context/outer-inner" " v_272)))" "(if(expand-context/inner?" -" the-struct_119)" +" the-struct_120)" "(let-values(((stops691_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-phase" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-namespace" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_120)" " stops691_0" "(expand-context/inner-declared-submodule-names" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-requires+provides" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_119)))))" +" the-struct_120)))))" "(expand-context/outer1.1" " inner690_0" " post-expansion-scope689_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_118)" +" the-struct_119)" "(root-expand-context/outer-frame-id" -" the-struct_118)" +" the-struct_119)" " context688_0" "(expand-context/outer-env" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-def-ctx-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-binding-layer" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-reference-records" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-only-immediate?" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-need-eventually-defined" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-current-introduction-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-name" -" the-struct_118)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))" +" the-struct_119)))))" "((self680_0) self_41)" "((temp681_0) #t)" "((keep-enclosing-scope-at-phase682_0)" @@ -77976,13 +78194,13 @@ static const char *startup_source = " self680_0))))" "(let-values((()" "(begin" -"(let-values(((obs_163)" +"(let-values(((obs_164)" "(expand-context-observer ctx_121)))" -"(if obs_163" +"(if obs_164" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_163" +" obs_164" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" @@ -78063,13 +78281,13 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_124)" +"(let-values(((obs_125)" "(expand-context-observer ctx_121)))" -"(if obs_124" +"(if obs_125" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_124" +" obs_125" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -78077,67 +78295,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(expanded+parsed? the-struct_120)" +"(let-values(((the-struct_121) submod_5))" +"(if(expanded+parsed? the-struct_121)" "(let-values(((parsed703_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_122)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_121)" +"(if(parsed-module? the-struct_122)" "(let-values(((star?704_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_121)" +"(parsed-s the-struct_122)" " star?704_0" "(parsed-module-name-id" -" the-struct_121)" +" the-struct_122)" "(parsed-module-self" -" the-struct_121)" +" the-struct_122)" "(parsed-module-requires" -" the-struct_121)" +" the-struct_122)" "(parsed-module-provides" -" the-struct_121)" +" the-struct_122)" "(parsed-module-root-ctx-simple?" -" the-struct_121)" +" the-struct_122)" "(parsed-module-encoded-root-ctx" -" the-struct_121)" +" the-struct_122)" "(parsed-module-body" -" the-struct_121)" +" the-struct_122)" "(parsed-module-compiled-module" -" the-struct_121)" -"(parsed-module-compiled-submodules" -" the-struct_121)))" -"(raise-argument-error" -" 'struct-copy" -" \"parsed-module?\"" -" the-struct_121)))))" -"(expanded+parsed1.1" -"(expanded+parsed-s the-struct_120)" -" parsed703_0))" -"(raise-argument-error" -" 'struct-copy" -" \"expanded+parsed?\"" -" the-struct_120))))" -"(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(parsed-module? the-struct_122)" -"(let-values(((star?705_0) #t))" -"(parsed-module25.1" -"(parsed-s the-struct_122)" -" star?705_0" -"(parsed-module-name-id the-struct_122)" -"(parsed-module-self the-struct_122)" -"(parsed-module-requires the-struct_122)" -"(parsed-module-provides the-struct_122)" -"(parsed-module-root-ctx-simple? the-struct_122)" -"(parsed-module-encoded-root-ctx the-struct_122)" -"(parsed-module-body the-struct_122)" -"(parsed-module-compiled-module the-struct_122)" +" the-struct_122)" "(parsed-module-compiled-submodules" " the-struct_122)))" "(raise-argument-error" " 'struct-copy" +" \"parsed-module?\"" +" the-struct_122)))))" +"(expanded+parsed1.1" +"(expanded+parsed-s the-struct_121)" +" parsed703_0))" +"(raise-argument-error" +" 'struct-copy" +" \"expanded+parsed?\"" +" the-struct_121))))" +"(let-values()" +"(let-values(((the-struct_123) submod_5))" +"(if(parsed-module? the-struct_123)" +"(let-values(((star?705_0) #t))" +"(parsed-module25.1" +"(parsed-s the-struct_123)" +" star?705_0" +"(parsed-module-name-id the-struct_123)" +"(parsed-module-self the-struct_123)" +"(parsed-module-requires the-struct_123)" +"(parsed-module-provides the-struct_123)" +"(parsed-module-root-ctx-simple? the-struct_123)" +"(parsed-module-encoded-root-ctx the-struct_123)" +"(parsed-module-body the-struct_123)" +"(parsed-module-compiled-module the-struct_123)" +"(parsed-module-compiled-submodules" +" the-struct_123)))" +"(raise-argument-error" +" 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))))))))))))))))))))))))))))))))" +" the-struct_123)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -78151,7 +78369,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_28) bodys208_0))" -"(let-values(((phase_168) phase209_0))" +"(let-values(((phase_167) phase209_0))" "(let-values(((self_42) self210_0))" "(let-values(((ctx_122) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -78160,18 +78378,18 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_457) bodys_28))" +"(let-values(((lst_455) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_348)" -"(lambda(fold-var_391 lst_458)" +"(let-values()(check-list lst_455)))" +"((letrec-values(((for-loop_347)" +"(lambda(fold-var_391 lst_456)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((body_27)(unsafe-car lst_458))" -"((rest_260)(unsafe-cdr lst_458)))" +"(if(pair? lst_456)" +"(let-values(((body_27)(unsafe-car lst_456))" +"((rest_261)(unsafe-cdr lst_456)))" "(let-values(((fold-var_392)" "(let-values(((fold-var_393) fold-var_391))" "(let-values(((fold-var_394)" @@ -78182,7 +78400,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_168)))" +" phase_167)))" "(if(equal? tmp_71 'module)" "(let-values()" "(let-values(((body706_0)" @@ -78222,12 +78440,12 @@ static const char *startup_source = " fold-var_393))))" "(values fold-var_394)))))" "(if(not #f)" -"(for-loop_348 fold-var_392 rest_260)" +"(for-loop_347 fold-var_392 rest_261)" " fold-var_392)))" " fold-var_391)))))" -" for-loop_348)" +" for-loop_347)" " null" -" lst_457))))))))))))))))" +" lst_455))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -78238,37 +78456,37 @@ 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_903 phase_169)" +"(lambda(s_905 phase_168)" "(let-values(((ok?_91 #%require714_0 req715_0)" -"(let-values(((s_904)(syntax-disarm$1 s_903)))" -"(let-values(((orig-s_95) s_904))" +"(let-values(((s_906)(syntax-disarm$1 s_905)))" +"(let-values(((orig-s_95) s_906))" "(let-values(((#%require714_1 req715_1)" -"(let-values(((s_905)" -"(if(syntax?$1 s_904)(syntax-e$1 s_904) s_904)))" -"(if(pair? s_905)" +"(let-values(((s_907)" +"(if(syntax?$1 s_906)(syntax-e$1 s_906) s_906)))" +"(if(pair? s_907)" "(let-values(((#%require716_0)" -"(let-values(((s_906)(car s_905))) s_906))" +"(let-values(((s_908)(car s_907))) s_908))" "((req717_0)" -"(let-values(((s_907)(cdr s_905)))" -"(let-values(((s_908)" -"(if(syntax?$1 s_907)" -"(syntax-e$1 s_907)" -" s_907)))" -"(if(pair? s_908)" -"(let-values(((req718_0)" -"(let-values(((s_909)" -"(car s_908)))" -" s_909))" -"(()" +"(let-values(((s_909)(cdr s_907)))" "(let-values(((s_910)" -"(cdr s_908)))" +"(if(syntax?$1 s_909)" +"(syntax-e$1 s_909)" +" s_909)))" +"(if(pair? s_910)" +"(let-values(((req718_0)" "(let-values(((s_911)" +"(car s_910)))" +" s_911))" +"(()" +"(let-values(((s_912)" +"(cdr s_910)))" +"(let-values(((s_913)" "(if(syntax?$1" -" s_910)" +" s_912)" "(syntax-e$1" -" s_910)" -" s_910)))" -"(if(null? s_911)" +" s_912)" +" s_912)))" +"(if(null? s_913)" "(values)" "(raise-syntax-error$1" " #f" @@ -78283,11 +78501,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" "(values #t #%require714_1 req715_1))))))" "(let-values(((temp719_0)(list req715_0))" -"((s720_0) s_903)" +"((s720_0) s_905)" "((self721_0) self_43)" "((m-ns722_0) m-ns_23)" -"((phase723_0) phase_169)" -"((phase724_0) phase_169)" +"((phase723_0) phase_168)" +"((phase724_0) phase_168)" "((requires+provides725_0) requires+provides_14)" "((declared-submodule-names726_0) declared-submodule-names_10)" "((temp727_0) 'require))" @@ -78329,16 +78547,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_459) lifted-defns_2))" +"(let-values(((lst_457) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_349)" -"(lambda(fold-var_395 lst_460)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_457)))" +"((letrec-values(((for-loop_348)" +"(lambda(fold-var_395 lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((lifted-defn_0)(unsafe-car lst_460))" -"((rest_261)(unsafe-cdr lst_460)))" +"(if(pair? lst_458)" +"(let-values(((lifted-defn_0)(unsafe-car lst_458))" +"((rest_262)(unsafe-cdr lst_458)))" "(let-values(((fold-var_396)" "(let-values(((fold-var_397) fold-var_395))" "(let-values(((fold-var_398)" @@ -78348,38 +78566,38 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_397))))" "(values fold-var_398)))))" -"(if(not #f)(for-loop_349 fold-var_396 rest_261) fold-var_396)))" +"(if(not #f)(for-loop_348 fold-var_396 rest_262) fold-var_396)))" " fold-var_395)))))" -" for-loop_349)" +" for-loop_348)" " null" -" lst_459)))))))" +" 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_164)(expand-context-observer partial-body-ctx_2)))" -"(if obs_164" +"(let-values(((obs_165)(expand-context-observer partial-body-ctx_2)))" +"(if obs_165" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_164 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_165 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_164 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_461) 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_461)))" -"((letrec-values(((for-loop_350)" -"(lambda(lst_462)" +"(let-values()(check-list lst_459)))" +"((letrec-values(((for-loop_349)" +"(lambda(lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_462)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_462))" -"((rest_262)(unsafe-cdr lst_462)))" +"(if(pair? lst_460)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_460))" +"((rest_263)(unsafe-cdr lst_460)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78389,38 +78607,38 @@ static const char *startup_source = "(let-values(((ok?_92" " define-values732_0" " _733_0)" -"(let-values(((s_912)" +"(let-values(((s_914)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_912))" +" s_914))" "(let-values(((define-values732_1" " _733_1)" -"(let-values(((s_913)" -"(if(syntax?$1" -" s_912)" -"(syntax-e$1" -" s_912)" -" s_912)))" -"(if(pair?" -" s_913)" -"(let-values(((define-values734_0)" -"(let-values(((s_914)" -"(car" -" s_913)))" -" s_914))" -"((_735_0)" "(let-values(((s_915)" -"(cdr" -" s_913)))" -"(let-values(((s_916)" "(if(syntax?$1" -" s_915)" +" s_914)" "(syntax-e$1" +" s_914)" +" s_914)))" +"(if(pair?" " s_915)" +"(let-values(((define-values734_0)" +"(let-values(((s_916)" +"(car" " s_915)))" +" s_916))" +"((_735_0)" +"(let-values(((s_917)" +"(cdr" +" s_915)))" +"(let-values(((s_918)" +"(if(syntax?$1" +" s_917)" +"(syntax-e$1" +" s_917)" +" s_917)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_916)))" +" s_918)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78443,100 +78661,100 @@ static const char *startup_source = " _733_1))))))" "(begin" "(call-expand-observe" -" obs_164" +" obs_165" " 'next)" "(call-expand-observe" -" obs_164" +" obs_165" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'resolve" " define-values732_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'prim-stop)" "(call-expand-observe" -" obs_164" +" obs_165" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'prim-define-values)" "(call-expand-observe" -" obs_164" +" obs_165" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_350 rest_262)(values))))" +"(if(not #f)(for-loop_349 rest_263)(values))))" "(values))))))" -" for-loop_350)" -" lst_461)))" +" for-loop_349)" +" lst_459)))" "(values))))" "(let-values()" "(let-values(((ok?_93 form-id728_0 _729_0)" -"(let-values(((s_917) exp-body_10))" -"(let-values(((orig-s_97) s_917))" +"(let-values(((s_919) exp-body_10))" +"(let-values(((orig-s_97) s_919))" "(let-values(((form-id728_1 _729_1)" -"(let-values(((s_918)" -"(if(syntax?$1 s_917)(syntax-e$1 s_917) s_917)))" -"(if(pair? s_918)" +"(let-values(((s_920)" +"(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" +"(if(pair? s_920)" "(let-values(((form-id730_0)" -"(let-values(((s_919)(car s_918))) s_919))" +"(let-values(((s_921)(car s_920))) s_921))" "((_731_0)" -"(let-values(((s_920)(cdr s_918))) s_920)))" +"(let-values(((s_922)(cdr s_920))) s_922)))" "(values form-id730_0 _731_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t form-id728_1 _729_1))))))" "(begin" -"(call-expand-observe obs_164 'next)" -"(call-expand-observe obs_164 'visit exp-body_10)" -"(call-expand-observe obs_164 'resolve form-id728_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)))))))))" +"(call-expand-observe obs_165 'next)" +"(call-expand-observe obs_165 'visit exp-body_10)" +"(call-expand-observe obs_165 'resolve form-id728_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)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" "(lambda(ctx_123 defn_1)" "(begin" -"(let-values(((obs_165)(expand-context-observer ctx_123)))" -"(if obs_165" +"(let-values(((obs_166)(expand-context-observer ctx_123)))" +"(if obs_166" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_94 define-values736_0 _737_0)" -"(let-values(((s_921) s-defn_0))" -"(let-values(((orig-s_98) s_921))" +"(let-values(((s_923) s-defn_0))" +"(let-values(((orig-s_98) s_923))" "(let-values(((define-values736_1 _737_1)" -"(let-values(((s_922)(if(syntax?$1 s_921)(syntax-e$1 s_921) s_921)))" -"(if(pair? s_922)" +"(let-values(((s_924)(if(syntax?$1 s_923)(syntax-e$1 s_923) s_923)))" +"(if(pair? s_924)" "(let-values(((define-values738_0)" -"(let-values(((s_923)(car s_922))) s_923))" +"(let-values(((s_925)(car s_924))) s_925))" "((_739_0)" -"(let-values(((s_924)(cdr s_922)))" -"(let-values(((s_925)" -"(if(syntax?$1 s_924)" -"(syntax-e$1 s_924)" -" s_924)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_925)))" +"(let-values(((s_926)(cdr s_924)))" +"(let-values(((s_927)" +"(if(syntax?$1 s_926)" +"(syntax-e$1 s_926)" +" s_926)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_927)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78548,24 +78766,24 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t define-values736_1 _737_1))))))" "(begin" -"(call-expand-observe obs_165 'visit s-defn_0)" -"(call-expand-observe obs_165 'resolve define-values736_0)" -"(call-expand-observe obs_165 'enter-prim s-defn_0)" -"(call-expand-observe obs_165 'prim-define-values)))))" +"(call-expand-observe obs_166 'visit s-defn_0)" +"(call-expand-observe obs_166 'resolve define-values736_0)" +"(call-expand-observe obs_166 'enter-prim s-defn_0)" +"(call-expand-observe obs_166 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" "(lambda(ctx_124 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_124)))" -"(if obs_166" +"(let-values(((obs_167)(expand-context-observer ctx_124)))" +"(if obs_167" "(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_166 'exit-prim s-defn_1)(call-expand-observe obs_166 'return s-defn_1))))" +"(begin(call-expand-observe obs_167 'exit-prim s-defn_1)(call-expand-observe obs_167 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" @@ -78614,13 +78832,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_351)" +"((letrec-values(((for-loop_350)" "(lambda(fold-var_222 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((id_165)(unsafe-car lst_85))" -"((rest_242)(unsafe-cdr lst_85)))" +"((rest_243)(unsafe-cdr lst_85)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_155) fold-var_222))" "(let-values(((fold-var_225)" @@ -78633,10 +78851,10 @@ static const char *startup_source = " fold-var_155))))" "(values fold-var_225)))))" "(if(not #f)" -"(for-loop_351 fold-var_26 rest_242)" +"(for-loop_350 fold-var_26 rest_243)" " fold-var_26)))" " fold-var_222)))))" -" for-loop_351)" +" for-loop_350)" " null" " lst_101))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" @@ -78646,9 +78864,9 @@ static const char *startup_source = "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_7)))" -"(if obs_167" -"(let-values()(let-values()(call-expand-observe obs_167 'prim-define-values)))" +"(let-values(((obs_168)(expand-context-observer ctx_7)))" +"(if obs_168" +"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -78659,13 +78877,13 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_425) s_0))" -"(let-values(((orig-s_99) s_425))" +"(let-values(((s_450) s_0))" +"(let-values(((orig-s_99) s_450))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_75)(if(syntax?$1 s_425)(syntax-e$1 s_425) s_425)))" +"(let-values(((s_75)(if(syntax?$1 s_450)(syntax-e$1 s_450) s_450)))" "(if(pair? s_75)" "(let-values(((define-values4_0)" -"(let-values(((s_454)(car s_75))) s_454))" +"(let-values(((s_451)(car s_75))) s_451))" "((id5_0 rhs6_0)" "(let-values(((s_166)(cdr s_75)))" "(let-values(((s_5)" @@ -78753,11 +78971,11 @@ static const char *startup_source = " lst_80)))))" "(reverse$1 id_6))))))))" "((rhs8_0)" -"(let-values(((s_426)(cdr s_5)))" +"(let-values(((s_807)(cdr s_5)))" "(let-values(((s_35)" -"(if(syntax?$1 s_426)" -"(syntax-e$1 s_426)" -" s_426)))" +"(if(syntax?$1 s_807)" +"(syntax-e$1 s_807)" +" s_807)))" "(if(pair? s_35)" "(let-values(((rhs9_0)" "(let-values(((s_89)" @@ -78768,14 +78986,14 @@ static const char *startup_source = "(let-values(((s_167)" "(cdr" " s_35)))" -"(let-values(((s_493)" +"(let-values(((s_491)" "(if(syntax?$1" " s_167)" "(syntax-e$1" " s_167)" " s_167)))" "(if(null?" -" s_493)" +" s_491)" "(values)" "(raise-syntax-error$1" " #f" @@ -78795,7 +79013,7 @@ static const char *startup_source = "(let-values(((exp-rhs_9)" "(let-values(((temp11_7) rhs3_0)" "((temp12_9)(as-named-context(as-expression-context ctx_7) ids_50)))" -"(expand7.1 #f #f #f #f temp11_7 temp12_9))))" +"(expand9.1 #f #f #f #f #f #f temp11_7 temp12_9))))" "(if(expand-context-to-parsed? ctx_7)" "(parsed-define-values19.1 s_0 ids_50 syms_27 exp-rhs_9)" "(let-values(((s13_0) s_0)((temp14_8)(list define-values1_0 ids_50 exp-rhs_9)))" @@ -78806,15 +79024,15 @@ static const char *startup_source = "(lambda(s_185 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_70)(expand-context-observer ctx_126)))" -"(if obs_70" -"(let-values()(let-values()(call-expand-observe obs_70 'prim-define-syntaxes)))" +"(let-values(((obs_3)(expand-context-observer ctx_126)))" +"(if obs_3" +"(let-values()(let-values()(call-expand-observe obs_3 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_126)))" -"(if obs_168(let-values()(let-values()(call-expand-observe obs_168 'prepare-env)))(void)))" +"(let-values(((obs_169)(expand-context-observer ctx_126)))" +"(if obs_169(let-values()(let-values()(call-expand-observe obs_169 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" @@ -78830,20 +79048,20 @@ static const char *startup_source = "(let-values(((s_22)(if(syntax?$1 s_18)(syntax-e$1 s_18) s_18)))" "(if(pair? s_22)" "(let-values(((define-syntaxes18_0)" -"(let-values(((s_428)(car s_22))) s_428))" +"(let-values(((s_435)(car s_22))) s_435))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" -"(let-values(((s_501)" +"(let-values(((s_499)" "(if(syntax?$1 s_25)" "(syntax-e$1 s_25)" " s_25)))" -"(if(pair? s_501)" +"(if(pair? s_499)" "(let-values(((id21_0)" -"(let-values(((s_926)(car s_501)))" +"(let-values(((s_928)(car s_499)))" "(let-values(((s_90)" -"(if(syntax?$1 s_926)" -"(syntax-e$1 s_926)" -" s_926)))" +"(if(syntax?$1 s_928)" +"(syntax-e$1 s_928)" +" s_928)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" " s_90)))" @@ -78854,8 +79072,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_95)" -"(let-values(((lst_463)" +"(let-values(((id_94)" +"(let-values(((lst_461)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78863,22 +79081,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_463)))" +" lst_461)))" "((letrec-values(((for-loop_2)" "(lambda(id_54" -" lst_291)" +" lst_288)" "(begin" " 'for-loop" "(if(pair?" -" lst_291)" -"(let-values(((s_927)" +" lst_288)" +"(let-values(((s_929)" "(unsafe-car" -" lst_291))" -"((rest_263)" +" lst_288))" +"((rest_264)" "(unsafe-cdr" -" lst_291)))" +" lst_288)))" "(let-values(((id_169)" -"(let-values(((id_71)" +"(let-values(((id_70)" " id_54))" "(let-values(((id_170)" "(let-values()" @@ -78886,61 +79104,61 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_209)" "(if(syntax?$1" -" s_927)" +" s_929)" "(symbol?" "(syntax-e$1" -" s_927))" +" s_929))" " #f)))" "(if or-part_209" " or-part_209" "(symbol?" -" s_927)))" -" s_927" +" s_929)))" +" s_929" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_927)))))" +" s_929)))))" "(cons" " id24_1" -" id_71)))))" +" id_70)))))" "(values" " id_170)))))" "(if(not" " #f)" "(for-loop_2" " id_169" -" rest_263)" +" rest_264)" " id_169)))" " id_54)))))" " for-loop_2)" " null" -" lst_463)))))" -"(reverse$1 id_95))))))))" +" lst_461)))))" +"(reverse$1 id_94))))))))" "((rhs22_0)" -"(let-values(((s_505)(cdr s_501)))" +"(let-values(((s_426)(cdr s_499)))" "(let-values(((s_174)" -"(if(syntax?$1 s_505)" -"(syntax-e$1 s_505)" -" s_505)))" +"(if(syntax?$1 s_426)" +"(syntax-e$1 s_426)" +" s_426)))" "(if(pair? s_174)" "(let-values(((rhs23_2)" -"(let-values(((s_502)" +"(let-values(((s_500)" "(car" " s_174)))" -" s_502))" +" s_500))" "(()" "(let-values(((s_46)" "(cdr" " s_174)))" -"(let-values(((s_429)" +"(let-values(((s_503)" "(if(syntax?$1" " s_46)" "(syntax-e$1" " s_46)" " s_46)))" "(if(null?" -" s_429)" +" s_503)" "(values)" "(raise-syntax-error$1" " #f" @@ -78962,7 +79180,7 @@ static const char *startup_source = "(let-values(((ids_51 syms_28)(as-expand-time-top-level-bindings id16_1 s_185 ctx_126)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_51)))" -"(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" +"(expand-transformer92.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_126)" "(parsed-define-syntaxes20.1 s_185 ids_51 syms_28 exp-rhs_10)" "(let-values(((s27_3) s_185)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" @@ -78970,25 +79188,25 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_486 ctx_127)" +"(lambda(s_483 ctx_127)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_486)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_483)))" "(values))))" "(let-values(((ok?_37 begin-for-syntax29_0 form30_0)" -"(let-values(((s_928) s_486))" -"(let-values(((orig-s_101) s_928))" +"(let-values(((s_930) s_483))" +"(let-values(((orig-s_101) s_930))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_49)(if(syntax?$1 s_928)(syntax-e$1 s_928) s_928)))" +"(let-values(((s_49)(if(syntax?$1 s_930)(syntax-e$1 s_930) s_930)))" "(if(pair? s_49)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_49))) s_51))" "((form32_0)" "(let-values(((s_94)(cdr s_49)))" -"(let-values(((s_776)" +"(let-values(((s_778)" "(if(syntax?$1 s_94)(syntax-e$1 s_94) s_94)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_776)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_778)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" @@ -78998,83 +79216,83 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_127)))" -"(if obs_169" -"(let-values()(let-values()(call-expand-observe obs_169 'prim-begin-for-syntax)))" +"(let-values(((obs_170)(expand-context-observer ctx_127)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_127)))" -"(if obs_170" -"(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))" +"(let-values(((obs_171)(expand-context-observer ctx_127)))" +"(if obs_171" +"(let-values()(let-values()(call-expand-observe obs_171 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" "(let-values(((ctx33_0) ctx_127)((temp34_5) 'top-level)((temp35_4) #t))" -"(context->transformer-context66.1 temp35_4 #t ctx33_0 temp34_5 #t))))" +"(context->transformer-context100.1 temp35_4 #t ctx33_0 temp34_5 #t))))" "(let-values(((lift-ctx_7)" "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f #f temp36_9))))" "(let-values(((capture-ctx_1)" "(let-values(((v_273) trans-ctx_1))" -"(let-values(((the-struct_123) v_273))" -"(if(expand-context/outer? the-struct_123)" +"(let-values(((the-struct_124) v_273))" +"(if(expand-context/outer? the-struct_124)" "(let-values(((inner37_0)" -"(let-values(((the-struct_124)" +"(let-values(((the-struct_125)" "(root-expand-context/outer-inner v_273)))" -"(if(expand-context/inner? the-struct_124)" +"(if(expand-context/inner? the-struct_125)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_124)" -"(root-expand-context/inner-module-scopes the-struct_124)" +"(root-expand-context/inner-self-mpi the-struct_125)" +"(root-expand-context/inner-module-scopes the-struct_125)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_124)" -"(root-expand-context/inner-all-scopes-stx the-struct_124)" -"(root-expand-context/inner-defined-syms the-struct_124)" -"(root-expand-context/inner-counter the-struct_124)" +" the-struct_125)" +"(root-expand-context/inner-all-scopes-stx the-struct_125)" +"(root-expand-context/inner-defined-syms the-struct_125)" +"(root-expand-context/inner-counter the-struct_125)" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_124)" -"(expand-context/inner-phase the-struct_124)" -"(expand-context/inner-namespace the-struct_124)" -"(expand-context/inner-just-once? the-struct_124)" -"(expand-context/inner-module-begin-k the-struct_124)" -"(expand-context/inner-allow-unbound? the-struct_124)" -"(expand-context/inner-in-local-expand? the-struct_124)" -"(expand-context/inner-stops the-struct_124)" -"(expand-context/inner-declared-submodule-names the-struct_124)" +"(expand-context/inner-to-parsed? the-struct_125)" +"(expand-context/inner-phase the-struct_125)" +"(expand-context/inner-namespace the-struct_125)" +"(expand-context/inner-just-once? the-struct_125)" +"(expand-context/inner-module-begin-k the-struct_125)" +"(expand-context/inner-allow-unbound? the-struct_125)" +"(expand-context/inner-in-local-expand? the-struct_125)" +"(expand-context/inner-stops the-struct_125)" +"(expand-context/inner-declared-submodule-names the-struct_125)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_124)" -"(expand-context/inner-module-lifts the-struct_124)" -"(expand-context/inner-require-lifts the-struct_124)" -"(expand-context/inner-to-module-lifts the-struct_124)" -"(expand-context/inner-requires+provides the-struct_124)" -"(expand-context/inner-observer the-struct_124)" -"(expand-context/inner-for-serializable? the-struct_124)" +"(expand-context/inner-lift-envs the-struct_125)" +"(expand-context/inner-module-lifts the-struct_125)" +"(expand-context/inner-require-lifts the-struct_125)" +"(expand-context/inner-to-module-lifts the-struct_125)" +"(expand-context/inner-requires+provides the-struct_125)" +"(expand-context/inner-observer the-struct_125)" +"(expand-context/inner-for-serializable? the-struct_125)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_124)))" +" the-struct_125)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_124)))))" +" the-struct_125)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_123)" -"(root-expand-context/outer-use-site-scopes the-struct_123)" -"(root-expand-context/outer-frame-id the-struct_123)" -"(expand-context/outer-context the-struct_123)" -"(expand-context/outer-env the-struct_123)" -"(expand-context/outer-post-expansion-scope-action the-struct_123)" -"(expand-context/outer-scopes the-struct_123)" -"(expand-context/outer-def-ctx-scopes the-struct_123)" -"(expand-context/outer-binding-layer the-struct_123)" -"(expand-context/outer-reference-records the-struct_123)" -"(expand-context/outer-only-immediate? the-struct_123)" -"(expand-context/outer-need-eventually-defined the-struct_123)" -"(expand-context/outer-current-introduction-scopes the-struct_123)" -"(expand-context/outer-name the-struct_123)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_124)" +"(root-expand-context/outer-use-site-scopes the-struct_124)" +"(root-expand-context/outer-frame-id the-struct_124)" +"(expand-context/outer-context the-struct_124)" +"(expand-context/outer-env the-struct_124)" +"(expand-context/outer-post-expansion-scope-action the-struct_124)" +"(expand-context/outer-scopes the-struct_124)" +"(expand-context/outer-def-ctx-scopes the-struct_124)" +"(expand-context/outer-binding-layer the-struct_124)" +"(expand-context/outer-reference-records the-struct_124)" +"(expand-context/outer-only-immediate? the-struct_124)" +"(expand-context/outer-need-eventually-defined the-struct_124)" +"(expand-context/outer-current-introduction-scopes the-struct_124)" +"(expand-context/outer-name the-struct_124)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_124))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_63)" "(lambda(forms_0)" @@ -79082,15 +79300,15 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_171)" +"(let-values(((obs_172)" "(expand-context-observer ctx_127)))" -"(if obs_171" +"(if obs_172" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_171" +" obs_172" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_486))))" +"(datum->syntax$1 #f form30_0 s_483))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -79104,19 +79322,19 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_172)" +"(let-values(((obs_173)" "(expand-context-observer" " ctx_127)))" -"(if obs_172" +"(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_172" +" obs_173" " 'exit-list" "(datum->syntax$1" " #f" " forms_2" -" s_486))))" +" s_483))))" "(void)))" " forms_2)))" "(let-values()" @@ -79139,7 +79357,9 @@ static const char *startup_source = " forms_1))" "((capture-ctx41_0)" " capture-ctx_1))" -"(expand7.1" +"(expand9.1" +" #f" +" #f" " #f" " #f" " #f" @@ -79160,14 +79380,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_173)" +"(let-values(((obs_174)" "(expand-context-observer" " ctx_127)))" -"(if obs_173" +"(if obs_174" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_173" +" obs_174" " 'module-lift-loop" " lifts_14)))" "(void)))" @@ -79197,8 +79417,8 @@ static const char *startup_source = " loop_63)" " form30_0)))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-begin-for-syntax21.1 s_486 all-exp-forms_0)" -"(let-values(((s45_0) s_486)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_483 all-exp-forms_0)" +"(let-values(((s45_0) s_483)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -79206,8 +79426,8 @@ static const char *startup_source = "(lambda(s_412 ctx_128)" "(let-values((()" "(begin" -"(let-values(((obs_174)(expand-context-observer ctx_128)))" -"(if obs_174(let-values()(let-values()(call-expand-observe obs_174 'prim-require)))(void)))" +"(let-values(((obs_10)(expand-context-observer ctx_128)))" +"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" @@ -79224,11 +79444,11 @@ static const char *startup_source = "(if(pair? s_200)" "(let-values(((#%require49_0)(let-values(((s_63)(car s_200))) s_63))" "((req50_0)" -"(let-values(((s_448)(cdr s_200)))" +"(let-values(((s_444)(cdr s_200)))" "(let-values(((s_416)" -"(if(syntax?$1 s_448)" -"(syntax-e$1 s_448)" -" s_448)))" +"(if(syntax?$1 s_444)" +"(syntax-e$1 s_444)" +" s_444)))" "(let-values(((flat-s_69)(to-syntax-list.1 s_416)))" "(if(not flat-s_69)" "(let-values()" @@ -79244,18 +79464,18 @@ static const char *startup_source = "(begin" "(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_464) req48_0))" +"(let-values(((lst_462) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_464)))" -"((letrec-values(((for-loop_352)" +"(let-values()(check-list lst_462)))" +"((letrec-values(((for-loop_351)" "(lambda(fold-var_401 lst_200)" "(begin" " 'for-loop" "(if(pair? lst_200)" "(let-values(((req_20)(unsafe-car lst_200))" -"((rest_264)(unsafe-cdr lst_200)))" +"((rest_265)(unsafe-cdr lst_200)))" "(let-values(((fold-var_301)" "(let-values(((fold-var_139) fold-var_401))" "(let-values(((fold-var_402)" @@ -79268,12 +79488,12 @@ static const char *startup_source = " fold-var_139))))" "(values fold-var_402)))))" "(if(not #f)" -"(for-loop_352 fold-var_301 rest_264)" +"(for-loop_351 fold-var_301 rest_265)" " fold-var_301)))" " fold-var_401)))))" -" for-loop_352)" +" for-loop_351)" " null" -" lst_464)))))" +" lst_462)))))" "((s52_0) s_412)" "((temp53_5) #f)" "((temp54_7)(expand-context-namespace ctx_128))" @@ -79310,11 +79530,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_782 ctx_129)" +"(lambda(s_784 ctx_129)" "(begin" "(let-values(((obs_175)(expand-context-observer ctx_129)))" "(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_782)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_784)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -79380,7 +79600,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_170)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_333)" "(lambda(table_189 i_189)" "(begin" " 'for-loop" @@ -79398,10 +79618,10 @@ static const char *startup_source = "(hash-set table_110 key_96 val_90)))))" "(values table_111)))))" "(if(not #f)" -"(for-loop_334 table_117(hash-iterate-next ht_170 i_189))" +"(for-loop_333 table_117(hash-iterate-next ht_170 i_189))" " table_117)))" " table_189)))))" -" for-loop_334)" +" for-loop_333)" " '#hash()" "(hash-iterate-first ht_170))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" @@ -79433,12 +79653,12 @@ static const char *startup_source = " '#%foreign)))" "(if or-part_164" " or-part_164" -"(let-values(((or-part_300)" +"(let-values(((or-part_303)" "(eq?" " name_83" " '#%futures)))" -"(if or-part_300" -" or-part_300" +"(if or-part_303" +" or-part_303" "(eq?" " name_83" " '#%unsafe)))))))" @@ -79471,5 +79691,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_6 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_774)(begin(1/datum->syntax core-stx s_774)))))" +"(define-values(datum->kernel-syntax)(lambda(s_776)(begin(1/datum->syntax core-stx s_776)))))" ;