From 937c396e1b260522369910fd30ea6a9d9afe2cb1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 31 May 2018 17:09:37 +0800 Subject: [PATCH] expander: don't flip use-site scope in `local-expand` Various parts of the expander, including `local-expand`, always flipped the use-site scope when flipping an introduction scope. Onlt `syntax-local-introduce` should flip both of them, though. Closes #2112 --- pkgs/racket-test-core/tests/racket/macro.rktl | 19 + racket/src/expander/expand/context.rkt | 2 + .../expander/expand/definition-context.rkt | 5 + racket/src/expander/expand/main.rkt | 4 +- racket/src/expander/expand/syntax-local.rkt | 2 +- racket/src/racket/src/startup.inc | 12204 ++++++++-------- 6 files changed, 6169 insertions(+), 6067 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/macro.rktl b/pkgs/racket-test-core/tests/racket/macro.rktl index a2366b0408..bf85817e7e 100644 --- a/pkgs/racket-test-core/tests/racket/macro.rktl +++ b/pkgs/racket-test-core/tests/racket/macro.rktl @@ -2155,6 +2155,25 @@ [(_ e) (disarm #'e)])) (mapply m)))) +;; ---------------------------------------- +;; Make sure `local-expand` doesn't flip the use-site +;; scope in addition to the introduction scope + +(module local-expand-result-depends-on-use-site-scope racket/base + (require (for-syntax racket/base)) + (define x 1) + + (define-syntax (a stx) + (syntax-case stx () + [(a id) + (local-expand #'(let ([id 3]) x) 'expression '())])) + + (define result (a x)) + (provide result)) + +(test 1 dynamic-require ''local-expand-result-depends-on-use-site-scope 'result) + + ;; ---------------------------------------- (report-errs) diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index a98e948ce1..f250a21ffa 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -56,6 +56,7 @@ keep-#%expression? ; if `in-local-expand?`, keep `#%expression` forms stops ; free-id-set; non-empty => `def-ctx-scopes` is a box * current-introduction-scopes ; scopes for current macro expansion + * current-use-scopes ; scopes for current macro expansion declared-submodule-names ; mutable hash table: symbol -> 'module or 'module* lifts ; #f or lift-context, which contains a list of lifteds lift-envs ; list of box of env for lifts to locals @@ -103,6 +104,7 @@ #f ; keep-#%expression? empty-free-id-set ; stops null ; current-introduction-scopes + null ; current-use-scopes #hasheq() ; declared-submodule-names #f ; lifts '() ; lift-envs diff --git a/racket/src/expander/expand/definition-context.rkt b/racket/src/expander/expand/definition-context.rkt index c818bc8cee..ceec8d1cce 100644 --- a/racket/src/expander/expand/definition-context.rkt +++ b/racket/src/expander/expand/definition-context.rkt @@ -27,6 +27,7 @@ make-local-expand-context flip-introduction-scopes + flip-introduction-and-use-scopes intdefs? intdefs?-string @@ -299,3 +300,7 @@ (define (flip-introduction-scopes s ctx) (flip-scopes s (expand-context-current-introduction-scopes ctx))) + +(define (flip-introduction-and-use-scopes s ctx) + (flip-scopes (flip-introduction-scopes s ctx) + (expand-context-current-use-scopes ctx))) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 88c3752f3a..23faa576fb 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -410,8 +410,8 @@ (accumulate-def-ctx-scopes ctx (expand-context-def-ctx-scopes ctx)) ctx)) (define m-ctx (struct*-copy expand-context accum-ctx - [current-introduction-scopes (cons intro-scope - use-scopes)] + [current-introduction-scopes (list intro-scope)] + [current-use-scopes use-scopes] [def-ctx-scopes (if confine-def-ctx-scopes? ;; Can confine tracking to this call diff --git a/racket/src/expander/expand/syntax-local.rkt b/racket/src/expander/expand/syntax-local.rkt index f959413071..3cf08e2058 100644 --- a/racket/src/expander/expand/syntax-local.rkt +++ b/racket/src/expander/expand/syntax-local.rkt @@ -92,7 +92,7 @@ (define/who (syntax-local-introduce s) (check who syntax? s) (define ctx (get-current-expand-context 'syntax-local-introduce)) - (flip-introduction-scopes s ctx)) + (flip-introduction-and-use-scopes s ctx)) (define/who (syntax-local-identifier-as-binding id) (check who identifier? id) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 920d0d437b..e9cb4c5295 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -15239,6 +15239,7 @@ static const char *startup_source = " expand-context/outer-only-immediate?" " expand-context/outer-need-eventually-defined" " expand-context/outer-current-introduction-scopes" +" expand-context/outer-current-use-scopes" " expand-context/outer-name)" "(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" "(let-values()" @@ -15246,13 +15247,13 @@ static const char *startup_source = "(make-struct-type" " 'expand-context" " struct:root-expand-context/outer" -" 11" +" 12" " 0" " #f" "(list(cons prop:authentic #t))" "(current-inspector)" " #f" -" '(0 1 2 3 4 5 6 7 8 9 10)" +" '(0 1 2 3 4 5 6 7 8 9 10 11)" " #f" " 'expand-context/outer)))))" "(values" @@ -15269,7 +15270,8 @@ static const char *startup_source = "(make-struct-field-accessor -ref_36 7 'only-immediate?)" "(make-struct-field-accessor -ref_36 8 'need-eventually-defined)" "(make-struct-field-accessor -ref_36 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_36 10 'name))))" +"(make-struct-field-accessor -ref_36 10 'current-use-scopes)" +"(make-struct-field-accessor -ref_36 11 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15363,6 +15365,7 @@ static const char *startup_source = " keep-#%expression?_0" " stops_0" " current-introduction-scopes_0" +" current-use-scopes_0" " declared-submodule-names_0" " lifts_0" " lift-envs_1" @@ -15417,6 +15420,7 @@ static const char *startup_source = " only-immediate?_0" " need-eventually-defined_0" " current-introduction-scopes_0" +" current-use-scopes_0" " name_36))))" "(define-values(expand-context-context)(lambda(v_100)(begin(expand-context/outer-context v_100))))" "(define-values(expand-context-env)(lambda(v_101)(begin(expand-context/outer-env v_101))))" @@ -15436,64 +15440,67 @@ static const char *startup_source = "(define-values" "(expand-context-current-introduction-scopes)" "(lambda(v_109)(begin(expand-context/outer-current-introduction-scopes v_109))))" -"(define-values(expand-context-name)(lambda(v_110)(begin(expand-context/outer-name v_110))))" +"(define-values" +"(expand-context-current-use-scopes)" +"(lambda(v_110)(begin(expand-context/outer-current-use-scopes v_110))))" +"(define-values(expand-context-name)(lambda(v_111)(begin(expand-context/outer-name v_111))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_111)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_112)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_112)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_112)))))" +"(lambda(v_113)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_113)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_113)))))" +"(lambda(v_114)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_114)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_114)))))" +"(lambda(v_115)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_115)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_115)))))" +"(lambda(v_116)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_116)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_116)))))" +"(lambda(v_117)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_117)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_117)))))" +"(lambda(v_118)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-keep-#%expression?)" -"(lambda(v_118)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_118)))))" +"(lambda(v_119)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_119)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_119)))))" +"(lambda(v_120)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_120)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_120)))))" +"(lambda(v_121)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_121)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_121)))))" +"(lambda(v_122)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_122)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_122)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_122)))))" +"(lambda(v_123)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_123)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_123)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_123)))))" +"(lambda(v_124)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_124)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_124)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_124)))))" +"(lambda(v_125)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_125)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_125)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_125)))))" +"(lambda(v_126)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_126)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_126)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_126)))))" +"(lambda(v_127)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_127)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_127)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_127)))))" +"(lambda(v_128)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_128)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_128)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_128)))))" +"(lambda(v_129)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_129)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_129)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_129)))))" +"(lambda(v_130)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_130)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 observer5_0 to-parsed?3_0 ns9_0)" @@ -15536,6 +15543,7 @@ static const char *startup_source = " #f" " empty-free-id-set" " null" +" null" " '#hasheq()" " #f" " '()" @@ -15551,16 +15559,16 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_130) ctx_1))" -"(let-values(((the-struct_41) v_130))" +"(let-values(((v_131) ctx_1))" +"(let-values(((the-struct_41) v_131))" "(if(expand-context/outer? the-struct_41)" "(let-values(((post-expansion-scope27_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" "((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" "((inner31_0)" -"(let-values(((the-struct_15)(root-expand-context/outer-inner v_130)))" -"(if(expand-context/inner? the-struct_15)" +"(let-values(((the-struct_42)(root-expand-context/outer-inner v_131)))" +"(if(expand-context/inner? the-struct_42)" "(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" "((top-level-bind-scope34_0)" @@ -15577,26 +15585,26 @@ static const char *startup_source = " defined-syms36_0" " counter37_0" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_15)" -"(expand-context/inner-phase the-struct_15)" -"(expand-context/inner-namespace the-struct_15)" -"(expand-context/inner-just-once? the-struct_15)" -"(expand-context/inner-module-begin-k the-struct_15)" -"(expand-context/inner-allow-unbound? the-struct_15)" -"(expand-context/inner-in-local-expand? the-struct_15)" -"(expand-context/inner-keep-#%expression? the-struct_15)" -"(expand-context/inner-stops the-struct_15)" -"(expand-context/inner-declared-submodule-names the-struct_15)" -"(expand-context/inner-lifts the-struct_15)" -"(expand-context/inner-lift-envs the-struct_15)" -"(expand-context/inner-module-lifts the-struct_15)" -"(expand-context/inner-require-lifts the-struct_15)" -"(expand-context/inner-to-module-lifts the-struct_15)" -"(expand-context/inner-requires+provides the-struct_15)" -"(expand-context/inner-observer the-struct_15)" -"(expand-context/inner-for-serializable? the-struct_15)" -"(expand-context/inner-should-not-encounter-macros? the-struct_15)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_15)))))" +"(expand-context/inner-to-parsed? the-struct_42)" +"(expand-context/inner-phase the-struct_42)" +"(expand-context/inner-namespace the-struct_42)" +"(expand-context/inner-just-once? the-struct_42)" +"(expand-context/inner-module-begin-k the-struct_42)" +"(expand-context/inner-allow-unbound? the-struct_42)" +"(expand-context/inner-in-local-expand? the-struct_42)" +"(expand-context/inner-keep-#%expression? the-struct_42)" +"(expand-context/inner-stops the-struct_42)" +"(expand-context/inner-declared-submodule-names the-struct_42)" +"(expand-context/inner-lifts the-struct_42)" +"(expand-context/inner-lift-envs the-struct_42)" +"(expand-context/inner-module-lifts the-struct_42)" +"(expand-context/inner-require-lifts the-struct_42)" +"(expand-context/inner-to-module-lifts the-struct_42)" +"(expand-context/inner-requires+provides the-struct_42)" +"(expand-context/inner-observer the-struct_42)" +"(expand-context/inner-for-serializable? the-struct_42)" +"(expand-context/inner-should-not-encounter-macros? the-struct_42)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_42)))))" "(expand-context/outer1.1" " inner31_0" " post-expansion-scope27_0" @@ -15613,6 +15621,7 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_41)" "(expand-context/outer-need-eventually-defined the-struct_41)" "(expand-context/outer-current-introduction-scopes the-struct_41)" +"(expand-context/outer-current-use-scopes the-struct_41)" "(expand-context/outer-name the-struct_41)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_41)))))))" "(define-values(current-expand-context)(make-parameter #f))" @@ -15624,22 +15633,22 @@ static const char *startup_source = "(let-values(((who_10) who15_0))" "(let-values(((fail-ok?_0) fail-ok?13_0))" "(let-values()" -"(let-values(((or-part_159)(force(current-expand-context))))" -"(if or-part_159" -" or-part_159" +"(let-values(((or-part_110)(force(current-expand-context))))" +"(if or-part_110" +" or-part_110" " (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_131)" +"(lambda(v_132)" "(begin" -"(if(let-values(((or-part_160)(not v_131)))" -"(if or-part_160 or-part_160(if(procedure? v_131)(procedure-arity-includes? v_131 2) #f)))" +"(if(let-values(((or-part_94)(not v_132)))" +"(if or-part_94 or-part_94(if(procedure? v_132)(procedure-arity-includes? v_132 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_131)))" -" v_131))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_132)))" +" v_132))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15647,49 +15656,20 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_132) ctx_2))" -"(let-values(((the-struct_42) v_132))" -"(if(expand-context/outer? the-struct_42)" +"(let-values(((v_133) ctx_2))" +"(let-values(((the-struct_43) v_133))" +"(if(expand-context/outer? the-struct_43)" "(let-values(((context39_0) 'expression)" "((name40_0) #f)" "((post-expansion-scope41_0) #f)" -"((inner42_0)(root-expand-context/outer-inner v_132)))" +"((inner42_0)(root-expand-context/outer-inner v_133)))" "(expand-context/outer1.1" " inner42_0" " post-expansion-scope41_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_42)" -"(root-expand-context/outer-use-site-scopes the-struct_42)" -"(root-expand-context/outer-frame-id the-struct_42)" -" context39_0" -"(expand-context/outer-env the-struct_42)" -"(expand-context/outer-post-expansion-scope-action the-struct_42)" -"(expand-context/outer-scopes the-struct_42)" -"(expand-context/outer-def-ctx-scopes the-struct_42)" -"(expand-context/outer-binding-layer the-struct_42)" -"(expand-context/outer-reference-records the-struct_42)" -"(expand-context/outer-only-immediate? the-struct_42)" -"(expand-context/outer-need-eventually-defined the-struct_42)" -"(expand-context/outer-current-introduction-scopes the-struct_42)" -" name40_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))" -"(define-values" -"(as-begin-expression-context)" -"(lambda(ctx_3)" -"(begin" -"(if(not(expand-context-name ctx_3))" -"(let-values() ctx_3)" -"(let-values()" -"(let-values(((v_133) ctx_3))" -"(let-values(((the-struct_43) v_133))" -"(if(expand-context/outer? the-struct_43)" -"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_133)))" -"(expand-context/outer1.1" -" inner44_0" -"(root-expand-context/outer-post-expansion-scope the-struct_43)" "(root-expand-context/outer-post-expansion-shifts the-struct_43)" "(root-expand-context/outer-use-site-scopes the-struct_43)" "(root-expand-context/outer-frame-id the-struct_43)" -"(expand-context/outer-context the-struct_43)" +" context39_0" "(expand-context/outer-env the-struct_43)" "(expand-context/outer-post-expansion-scope-action the-struct_43)" "(expand-context/outer-scopes the-struct_43)" @@ -15699,25 +15679,22 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_43)" "(expand-context/outer-need-eventually-defined the-struct_43)" "(expand-context/outer-current-introduction-scopes the-struct_43)" -" name43_0))" +"(expand-context/outer-current-use-scopes the-struct_43)" +" name40_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))))" "(define-values" -"(as-tail-context22.1)" -"(lambda(wrt19_0 ctx21_0)" +"(as-begin-expression-context)" +"(lambda(ctx_3)" "(begin" -" 'as-tail-context22" -"(let-values(((ctx_4) ctx21_0))" -"(let-values(((wrt-ctx_0) wrt19_0))" +"(if(not(expand-context-name ctx_3))" +"(let-values() ctx_3)" "(let-values()" -"(if(expand-context-name wrt-ctx_0)" -"(let-values()" -"(let-values(((v_134) ctx_4))" +"(let-values(((v_134) ctx_3))" "(let-values(((the-struct_44) v_134))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" -"((inner46_0)(root-expand-context/outer-inner v_134)))" +"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_134)))" "(expand-context/outer1.1" -" inner46_0" +" inner44_0" "(root-expand-context/outer-post-expansion-scope the-struct_44)" "(root-expand-context/outer-post-expansion-shifts the-struct_44)" "(root-expand-context/outer-use-site-scopes the-struct_44)" @@ -15732,21 +15709,26 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_44)" "(expand-context/outer-need-eventually-defined the-struct_44)" "(expand-context/outer-current-introduction-scopes the-struct_44)" -" name45_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))" -"(let-values() ctx_4))))))))" +"(expand-context/outer-current-use-scopes the-struct_44)" +" name43_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))))" "(define-values" -"(as-named-context)" -"(lambda(ctx_5 ids_1)" +"(as-tail-context22.1)" +"(lambda(wrt19_0 ctx21_0)" "(begin" -"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" +" 'as-tail-context22" +"(let-values(((ctx_4) ctx21_0))" +"(let-values(((wrt-ctx_0) wrt19_0))" "(let-values()" -"(let-values(((v_135) ctx_5))" +"(if(expand-context-name wrt-ctx_0)" +"(let-values()" +"(let-values(((v_135) ctx_4))" "(let-values(((the-struct_45) v_135))" "(if(expand-context/outer? the-struct_45)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_135)))" +"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" +"((inner46_0)(root-expand-context/outer-inner v_135)))" "(expand-context/outer1.1" -" inner48_0" +" inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_45)" "(root-expand-context/outer-post-expansion-shifts the-struct_45)" "(root-expand-context/outer-use-site-scopes the-struct_45)" @@ -15761,52 +15743,22 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_45)" "(expand-context/outer-need-eventually-defined the-struct_45)" "(expand-context/outer-current-introduction-scopes the-struct_45)" -" name47_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" -"(let-values() ctx_5)))))" +"(expand-context/outer-current-use-scopes the-struct_45)" +" name45_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" +"(let-values() ctx_4))))))))" "(define-values" -"(as-to-parsed-context)" -"(lambda(ctx_6)" +"(as-named-context)" +"(lambda(ctx_5 ids_1)" "(begin" -"(let-values(((v_136) ctx_6))" +"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" +"(let-values()" +"(let-values(((v_136) ctx_5))" "(let-values(((the-struct_46) v_136))" "(if(expand-context/outer? the-struct_46)" -"(let-values(((inner49_0)" -"(let-values(((the-struct_47)(root-expand-context/outer-inner v_136)))" -"(if(expand-context/inner? the-struct_47)" -"(let-values(((to-parsed?50_0) #t)" -"((observer51_0) #f)" -"((should-not-encounter-macros?52_0) #t))" -"(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_47)" -"(root-expand-context/inner-module-scopes the-struct_47)" -"(root-expand-context/inner-top-level-bind-scope the-struct_47)" -"(root-expand-context/inner-all-scopes-stx the-struct_47)" -"(root-expand-context/inner-defined-syms the-struct_47)" -"(root-expand-context/inner-counter the-struct_47)" -"(root-expand-context/inner-lift-key the-struct_47)" -" to-parsed?50_0" -"(expand-context/inner-phase the-struct_47)" -"(expand-context/inner-namespace the-struct_47)" -"(expand-context/inner-just-once? the-struct_47)" -"(expand-context/inner-module-begin-k the-struct_47)" -"(expand-context/inner-allow-unbound? the-struct_47)" -"(expand-context/inner-in-local-expand? the-struct_47)" -"(expand-context/inner-keep-#%expression? the-struct_47)" -"(expand-context/inner-stops the-struct_47)" -"(expand-context/inner-declared-submodule-names the-struct_47)" -"(expand-context/inner-lifts the-struct_47)" -"(expand-context/inner-lift-envs the-struct_47)" -"(expand-context/inner-module-lifts the-struct_47)" -"(expand-context/inner-require-lifts the-struct_47)" -"(expand-context/inner-to-module-lifts the-struct_47)" -"(expand-context/inner-requires+provides the-struct_47)" -" observer51_0" -"(expand-context/inner-for-serializable? the-struct_47)" -" should-not-encounter-macros?52_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_47)))))" +"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_136)))" "(expand-context/outer1.1" -" inner49_0" +" inner48_0" "(root-expand-context/outer-post-expansion-scope the-struct_46)" "(root-expand-context/outer-post-expansion-shifts the-struct_46)" "(root-expand-context/outer-use-site-scopes the-struct_46)" @@ -15821,8 +15773,70 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_46)" "(expand-context/outer-need-eventually-defined the-struct_46)" "(expand-context/outer-current-introduction-scopes the-struct_46)" -"(expand-context/outer-name the-struct_46)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))))" +"(expand-context/outer-current-use-scopes the-struct_46)" +" name47_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))" +"(let-values() ctx_5)))))" +"(define-values" +"(as-to-parsed-context)" +"(lambda(ctx_6)" +"(begin" +"(let-values(((v_137) ctx_6))" +"(let-values(((the-struct_2) v_137))" +"(if(expand-context/outer? the-struct_2)" +"(let-values(((inner49_0)" +"(let-values(((the-struct_20)(root-expand-context/outer-inner v_137)))" +"(if(expand-context/inner? the-struct_20)" +"(let-values(((to-parsed?50_0) #t)" +"((observer51_0) #f)" +"((should-not-encounter-macros?52_0) #t))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi the-struct_20)" +"(root-expand-context/inner-module-scopes the-struct_20)" +"(root-expand-context/inner-top-level-bind-scope the-struct_20)" +"(root-expand-context/inner-all-scopes-stx the-struct_20)" +"(root-expand-context/inner-defined-syms the-struct_20)" +"(root-expand-context/inner-counter the-struct_20)" +"(root-expand-context/inner-lift-key the-struct_20)" +" to-parsed?50_0" +"(expand-context/inner-phase the-struct_20)" +"(expand-context/inner-namespace the-struct_20)" +"(expand-context/inner-just-once? the-struct_20)" +"(expand-context/inner-module-begin-k the-struct_20)" +"(expand-context/inner-allow-unbound? the-struct_20)" +"(expand-context/inner-in-local-expand? the-struct_20)" +"(expand-context/inner-keep-#%expression? the-struct_20)" +"(expand-context/inner-stops the-struct_20)" +"(expand-context/inner-declared-submodule-names the-struct_20)" +"(expand-context/inner-lifts the-struct_20)" +"(expand-context/inner-lift-envs the-struct_20)" +"(expand-context/inner-module-lifts the-struct_20)" +"(expand-context/inner-require-lifts the-struct_20)" +"(expand-context/inner-to-module-lifts the-struct_20)" +"(expand-context/inner-requires+provides the-struct_20)" +" observer51_0" +"(expand-context/inner-for-serializable? the-struct_20)" +" should-not-encounter-macros?52_0))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_20)))))" +"(expand-context/outer1.1" +" inner49_0" +"(root-expand-context/outer-post-expansion-scope the-struct_2)" +"(root-expand-context/outer-post-expansion-shifts the-struct_2)" +"(root-expand-context/outer-use-site-scopes the-struct_2)" +"(root-expand-context/outer-frame-id the-struct_2)" +"(expand-context/outer-context the-struct_2)" +"(expand-context/outer-env the-struct_2)" +"(expand-context/outer-post-expansion-scope-action the-struct_2)" +"(expand-context/outer-scopes the-struct_2)" +"(expand-context/outer-def-ctx-scopes the-struct_2)" +"(expand-context/outer-binding-layer the-struct_2)" +"(expand-context/outer-reference-records the-struct_2)" +"(expand-context/outer-only-immediate? the-struct_2)" +"(expand-context/outer-need-eventually-defined the-struct_2)" +"(expand-context/outer-current-introduction-scopes the-struct_2)" +"(expand-context/outer-current-use-scopes the-struct_2)" +"(expand-context/outer-name the-struct_2)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_2)))))))" "(define-values" "(to-syntax-list.1)" "(lambda(s_170)" @@ -16138,8 +16152,8 @@ static const char *startup_source = "(if(let-values(((s_85)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" "(if(pair? s_85)" "(if(let-values(((s_173)(car s_85)))" -"(let-values(((or-part_161)(if(syntax?$1 s_173)(symbol?(syntax-e$1 s_173)) #f)))" -"(if or-part_161 or-part_161(symbol? s_173))))" +"(let-values(((or-part_159)(if(syntax?$1 s_173)(symbol?(syntax-e$1 s_173)) #f)))" +"(if or-part_159 or-part_159(symbol? s_173))))" "(let-values(((s_174)(cdr s_85))) #t)" " #f)" " #f))" @@ -16292,9 +16306,9 @@ static const char *startup_source = "(cons" "(loop_81(car d_19) 'transparent)" "(let-values(((s_5)" -"(let-values(((or-part_162)" +"(let-values(((or-part_160)" "(syntax->list$1(cdr d_19))))" -"(if or-part_162 or-part_162(cdr d_19))))" +"(if or-part_160 or-part_160(cdr d_19))))" "((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" "(lambda(s_183)" @@ -16355,21 +16369,21 @@ static const char *startup_source = "(if(number? s_184)" "(let-values()" "(f_39 #f s_184))" -"(if(let-values(((or-part_163)" +"(if(let-values(((or-part_161)" "(vector?" " s_184)))" -"(if or-part_163" -" or-part_163" +"(if or-part_161" +" or-part_161" "(let-values(((or-part_21)" "(box?" " s_184)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_164)" +"(let-values(((or-part_162)" "(prefab-struct-key" " s_184)))" -"(if or-part_164" -" or-part_164" +"(if or-part_162" +" or-part_162" "(hash?" " s_184)))))))" "(let-values()" @@ -16417,8 +16431,8 @@ static const char *startup_source = "(syntax-taint-mode-property)" "(lambda(s_187)" "(begin" -"(let-values(((or-part_165)(syntax-property$1 s_187 'taint-mode)))" -"(if or-part_165 or-part_165(syntax-property$1 s_187 'certify-mode))))))" +"(let-values(((or-part_163)(syntax-property$1 s_187 'taint-mode)))" +"(if or-part_163 or-part_163(syntax-property$1 s_187 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" "(lambda(s_188)(begin(1/syntax-property-remove(1/syntax-property-remove s_188 'taint-mode) 'certify-mode))))" @@ -16922,7 +16936,7 @@ static const char *startup_source = " null" "(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_137)(vector-ref v_137 0))))" +"((temp3_2)(lambda(v_138)(vector-ref v_138 0))))" "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -17396,12 +17410,12 @@ static const char *startup_source = " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" "((letrec-values(((loop_6)" -"(lambda(v_138 ht_84)" +"(lambda(v_139 ht_84)" "(begin" " 'loop" -"(if(identifier? v_138)" +"(if(identifier? v_139)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_138) null)))" +"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_139) null)))" "(begin" "(let-values(((lst_102) l_49))" "(begin" @@ -17424,7 +17438,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_21" -" v_138" +" v_139" " phase_46)" "(let-values()" "(raise-syntax-error$1" @@ -17433,7 +17447,7 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_3" -" v_138))" +" v_139))" "(void)))" "(values)))))" "(values)))))" @@ -17444,9 +17458,9 @@ static const char *startup_source = " for-loop_114)" " lst_102)))" "(void)" -"(hash-set ht_84(syntax-e$1 v_138)(cons v_138 l_49)))))" -"(if(pair? v_138)" -"(let-values()(loop_6(cdr v_138)(loop_6(car v_138) ht_84)))" +"(hash-set ht_84(syntax-e$1 v_139)(cons v_139 l_49)))))" +"(if(pair? v_139)" +"(let-values()(loop_6(cdr v_139)(loop_6(car v_139) ht_84)))" "(let-values() ht_84)))))))" " loop_6)" " ids_2" @@ -17601,18 +17615,18 @@ static const char *startup_source = "(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" " mpi_20" -"(let-values(((the-struct_48) mpi_20))" -"(if(1/module-path-index? the-struct_48)" +"(let-values(((the-struct_47) mpi_20))" +"(if(1/module-path-index? the-struct_47)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_48)" +"(module-path-index-path the-struct_47)" " base3_0" -"(module-path-index-resolved the-struct_48)" -"(module-path-index-shift-cache the-struct_48)))" +"(module-path-index-resolved the-struct_47)" +"(module-path-index-shift-cache the-struct_47)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_48))))))" +" the-struct_47))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" "(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 i-mpi_0) i-mpi_0))))))))))))" "(define-values(built-in-symbols)(make-hasheq))" @@ -17733,12 +17747,12 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_139)" +"(lambda(v_140)" "(begin" " 'unique-list" -"(if(pair? v_139)" +"(if(pair? v_140)" "(reverse$1" -"(let-values(((lst_104) v_139))" +"(let-values(((lst_104) v_140))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17765,7 +17779,7 @@ static const char *startup_source = " for-loop_116)" " null" " lst_104))))" -" v_139)))))" +" v_140)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" @@ -17901,7 +17915,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_140)(make-vector len_12 0)))" +"(let-values(((v_141)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17925,7 +17939,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_140" +" v_141" " i_99" "(let-values()" "(let-values(((mpi_26)" @@ -17944,13 +17958,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_166)" +"(let-values(((or-part_164)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_26)))))" -"(if or-part_166" -" or-part_166" +"(if or-part_164" +" or-part_164" " 'self))))" "(if(not" " base_17)" @@ -17981,7 +17995,7 @@ static const char *startup_source = " for-loop_28)" " 0" " start_17)))))" -" v_140))))))" +" v_141))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -18095,7 +18109,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_14)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_141)(make-vector len_14 0)))" +"(let-values(((v_142)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -18117,7 +18131,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_141" +" v_142" " i_106" "(let-values()" "(vector*-ref gen_0 p_33)))" @@ -18132,7 +18146,7 @@ static const char *startup_source = " for-loop_120)" " 0" " 0)))))" -" v_141)))))))))" +" v_142)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -18201,22 +18215,22 @@ static const char *startup_source = " lst_105)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_142)" +"(lambda(v_143)" "(begin" -"(let-values(((or-part_167)(null? v_142)))" -"(if or-part_167" -" or-part_167" -"(let-values(((or-part_168)(boolean? v_142)))" -"(if or-part_168" -" or-part_168" +"(let-values(((or-part_165)(null? v_143)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_166)(boolean? v_143)))" +"(if or-part_166" +" or-part_166" "(let-values(((or-part_138)" -"(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" +"(if(fixnum? v_143)(if(< v_143(sub1(expt 2 30)))(> v_143(-(expt 2 30))) #f) #f)))" "(if or-part_138" " or-part_138" -"(let-values(((or-part_169)(symbol? v_142)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_46)(char? v_142)))(if or-part_46 or-part_46(keyword? v_142))))))))))))))" +"(let-values(((or-part_167)(symbol? v_143)))" +"(if or-part_167" +" or-part_167" +"(let-values(((or-part_46)(char? v_143)))(if or-part_46 or-part_46(keyword? v_143))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -18265,11 +18279,11 @@ static const char *startup_source = "(lambda(syntax-support?2_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_143) v4_0))" +"(let-values(((v_144) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0) syntax-support?2_0))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_143)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_144)))" "(let-values(((state_26)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -18278,64 +18292,64 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_144)(begin 'add-frontier!(set! frontier_0(cons v_144 frontier_0))))" -"((kind_3 v_145)(add-frontier!_0 v_145)))))" +"((v_145)(begin 'add-frontier!(set! frontier_0(cons v_145 frontier_0))))" +"((kind_3 v_146)(add-frontier!_0 v_146)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_101)" +"(lambda(v_147)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_11)" -"(lambda(v_103)" +"(lambda(v_148)" "(begin" " 'loop" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_168)" "(interned-literal?" -" v_103)))" -"(if or-part_170" -" or-part_170" +" v_148)))" +"(if or-part_168" +" or-part_168" "(1/module-path-index?" -" v_103)))" +" v_148)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_103" +" v_148" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_103" +" v_148" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_103" +" v_148" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_103)" +" v_148)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_103" +" v_148" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_103)" -" v_103" +" v_148)" +" v_148" " add-frontier!_0" " state_26)))" "(if(serialize?" -" v_103)" +" v_148)" "(let-values()" "((serialize-ref" -" v_103)" -" v_103" +" v_148)" +" v_148" "(case-lambda" "((sub-v_0)" "(loop_11" @@ -18346,31 +18360,31 @@ static const char *startup_source = " sub-v_1)))" " state_26))" "(if(pair?" -" v_103)" +" v_148)" "(let-values()" "(begin" "(loop_11" "(car" -" v_103))" +" v_148))" "(loop_11" "(cdr" -" v_103))))" +" v_148))))" "(if(vector?" -" v_103)" +" v_148)" "(let-values()" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_169)" "(immutable?" -" v_103)))" -"(if or-part_171" -" or-part_171" +" v_148)))" +"(if or-part_169" +" or-part_169" "(zero?" "(vector-length" -" v_103))))" +" v_148))))" "(begin" "(let-values(((vec_38" " len_15)" "(let-values(((vec_39)" -" v_103))" +" v_148))" "(begin" "(check-vector" " vec_39)" @@ -18415,14 +18429,14 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_103" +" v_148" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_40" " len_16)" "(let-values(((vec_41)" -" v_103))" +" v_148))" "(begin" "(check-vector" " vec_41)" @@ -18465,31 +18479,31 @@ static const char *startup_source = " 0)))" "(void)))))" "(if(box?" -" v_103)" +" v_148)" "(let-values()" "(if(immutable?" -" v_103)" +" v_148)" "(loop_11" "(unbox" -" v_103))" +" v_148))" "(begin" "(hash-set!" " mutables_0" -" v_103" +" v_148" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_103)))))" +" v_148)))))" "(if(hash?" -" v_103)" +" v_148)" "(let-values()" "(if(immutable?" -" v_103)" +" v_148)" "(begin" "(let-values(((lst_108)" "(sorted-hash-keys" -" v_103)))" +" v_148)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18520,7 +18534,7 @@ static const char *startup_source = " k_21)" "(loop_11" "(hash-ref" -" v_103" +" v_148" " k_21))))" "(values)))))" "(values)))))" @@ -18536,13 +18550,13 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_103" +" v_148" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_110)" "(sorted-hash-keys" -" v_103)))" +" v_148)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18573,7 +18587,7 @@ static const char *startup_source = " k_22)" "(add-frontier!_0" "(hash-ref" -" v_103" +" v_148" " k_22))))" "(values)))))" "(values)))))" @@ -18587,7 +18601,7 @@ static const char *startup_source = " lst_110)))" "(void)))))" "(if(prefab-struct-key" -" v_103)" +" v_148)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18604,7 +18618,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_45))" "(struct->vector" -" v_103)" +" v_148)" " 1" " #f" " 1)))" @@ -18643,7 +18657,7 @@ static const char *startup_source = " start*_1)))" "(void)))" "(if(srcloc?" -" v_103)" +" v_148)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18660,7 +18674,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_47))" "(struct->vector" -" v_103)" +" v_148)" " 1" " #f" " 1)))" @@ -18702,13 +18716,13 @@ static const char *startup_source = "(void))))))))))" "(hash-set!" " objs_0" -" v_103" +" v_148" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_11)" -" v_101)" +" v_147)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -18728,7 +18742,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_113)" -"(let-values(((v_146)" +"(let-values(((v_149)" "(unsafe-car" " lst_113))" "((rest_56)" @@ -18741,7 +18755,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_146))" +" v_149))" "(values)))))" "(values)))))" "(if(not" @@ -18754,7 +18768,7 @@ static const char *startup_source = " lst_112)))" "(void))))))))))" " frontier-loop_0)" -" v_143)" +" v_144)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" @@ -18856,12 +18870,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_147)" +"(let-values(((v_150)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_172)(not(keyword? v_147))))" -"(if or-part_172 or-part_172(eq? '#:quote v_147))))))))" +"(let-values(((or-part_170)(not(keyword? v_150))))" +"(if or-part_170 or-part_170(eq? '#:quote v_150))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18880,20 +18894,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_148)" +"((v_151)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_148 #f)" +"(if(hash-ref shares_0 v_151 #f)" "(let-values()" "(let-values(((n_22)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_148))))" +"(hash-ref objs_0 v_151))))" "(begin" "(ser-push!_16 'tag '#:ref)" "(ser-push!_16 'exact n_22))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_148 #f)))" +"(hash-ref mutables_0 v_151 #f)))" "(if c1_25" "((lambda(n_23)" "(begin" @@ -18901,49 +18915,49 @@ static const char *startup_source = "(ser-push!_16 'exact n_23)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_148)))))))" -"((kind_5 v_149)" +"(ser-push-encoded!_0 v_151)))))))" +"((kind_5 v_152)" "(let-values(((tmp_18) kind_5))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_149 stream_0))" +"(set! stream_0(cons v_152 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_149))" +"(let-values()(ser-push!_16 'exact v_152))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_149 #f)" +"(if(hash-ref shares_0 v_152 #f)" "(let-values()" "(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_149))))" +" v_152))))" "(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_149" +" v_152" " #f)))" "(if c2_1" "((lambda(n_25)" "(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_16 v_149))))))" -"(let-values()(ser-push!_16 v_149)))))))))" +"(ser-push!_16 v_152))))))" +"(let-values()(ser-push!_16 v_152)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_150)" +"(lambda(v_153)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_150)" +"(if(keyword? v_153)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_150)))" -"(if(1/module-path-index? v_150)" +"(ser-push!_16 'exact v_153)))" +"(if(1/module-path-index? v_153)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -18951,16 +18965,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_150))))" -"(if(serialize? v_150)" +" v_153))))" +"(if(serialize? v_153)" "(let-values()" -"((serialize-ref v_150)" -" v_150" +"((serialize-ref v_153)" +" v_153" " ser-push!_16" " state_26))" -"(if(if(list? v_150)" -"(if(pair? v_150)" -"(pair?(cdr v_150))" +"(if(if(list? v_153)" +"(if(pair? v_153)" +"(pair?(cdr v_153))" " #f)" " #f)" "(let-values()" @@ -18976,11 +18990,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_150))" +"(length v_153))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_116)" -" v_150))" +" v_153))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19034,9 +19048,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))" +" v_153)))" "(void)))))))" -"(if(pair? v_150)" +"(if(pair? v_153)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -19051,12 +19065,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_150))" +"(car v_153))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_150))" +"(ser-push!_16(cdr v_153))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -19067,9 +19081,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))" +" v_153)))" "(void)))))))))" -"(if(box? v_150)" +"(if(box? v_153)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -19082,7 +19096,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(unbox v_150))" +"(ser-push!_16(unbox v_153))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -19091,9 +19105,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))" +" v_153)))" "(void)))))))" -"(if(vector? v_150)" +"(if(vector? v_153)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -19108,13 +19122,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_150))" +" v_153))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_150))" +" v_153))" "(begin" "(check-vector" " vec_43)" @@ -19172,15 +19186,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))" +" v_153)))" "(void)))))))" -"(if(hash? v_150)" +"(if(hash? v_153)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_150))" +" v_153))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19233,21 +19247,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_150)" +" v_153)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_150)" +" v_153)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_150)" +" v_153)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_150)" +" v_153)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19258,11 +19272,11 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_150))" +" v_153))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_150)))" +" v_153)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_56)" " ks_0))" @@ -19306,15 +19320,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_150" +" v_153" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_173)" +"(let-values(((or-part_171)" " as-set?_0))" -"(if or-part_173" -" or-part_173" +"(if or-part_171" +" or-part_171" "(quoted?_0" " v-pos_1)))" " #f)" @@ -19339,16 +19353,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))" +" v_153)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_150)))" +" v_153)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_150)))" +" v_153)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19439,66 +19453,66 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))" +" v_153)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_150)" +"(if(srcloc? v_153)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_150))" +"(srcloc-source v_153))" "(ser-push!_16" -"(srcloc-line v_150))" +"(srcloc-line v_153))" "(ser-push!_16" -"(srcloc-column v_150))" +"(srcloc-column v_153))" "(ser-push!_16" -"(srcloc-position v_150))" +"(srcloc-position v_153))" "(ser-push!_16" -"(srcloc-span v_150))))" +"(srcloc-span v_153))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_150)))))))))))))))))" +" v_153)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_151)" +"(lambda(v_154)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_151)" +"(if(serialize-fill!? v_154)" "(let-values()" -"((serialize-ref v_151)" -" v_151" +"((serialize-ref v_154)" +" v_154" " ser-push!_16" " state_26))" -"(if(box? v_151)" +"(if(box? v_154)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_151)" +"(if(vector? v_154)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_151))))" -"(if(hash? v_151)" +"(vector-length v_154))))" +"(if(hash? v_154)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_151)" +"(if(hash-eq? v_154)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_151)" +"(if(hash-eqv? v_154)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_151))))))))))" +" v_154))))))))))" "(let-values(((ser-shell-fill!_0)" "(lambda(v_80)" "(begin" @@ -19539,7 +19553,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_152)" +"(let-values(((v_155)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19550,7 +19564,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_152))" +" v_155))" "(values)))))" "(values)))))" "(if(not" @@ -19643,7 +19657,7 @@ static const char *startup_source = " 'for-loop" "(if i_113" "(let-values(((k_26" -" v_153)" +" v_156)" "(hash-iterate-key+value" " ht_90" " i_113)))" @@ -19656,7 +19670,7 @@ static const char *startup_source = " val_42)" "(let-values()" "(values" -" v_153" +" v_156" " k_26))))" "(hash-set" " table_60" @@ -19882,7 +19896,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_16 v_143)" +"(ser-push!_16 v_144)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -20017,13 +20031,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_45 end_18)(unsafe-fx< pos_46 len_19) #f)" -"(let-values(((v_154)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_157)(unsafe-vector-ref vec_47 pos_46)))" "(let-values(((pos_47)" "(let-values(((pos_48) pos_44))" "(let-values(((pos_49)" "(let-values()" "(decode-fill!" -" v_154" +" v_157" " mutable-fill-vec_0" " pos_48" " mpis_7" @@ -20280,7 +20294,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 10)" "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))" "(let-values()" -"(let-values(((v_155 next-pos_18)" +"(let-values(((v_158 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" @@ -20288,7 +20302,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_155) next-pos_18))))" +"(values(box-immutable v_158) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_39 next-pos_19)" @@ -20328,9 +20342,9 @@ static const char *startup_source = "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_156" +"(let-values(((v_159" " next-pos_22)" -"(let-values(((v_157" +"(let-values(((v_160" " next-pos_23)" "(decode" " vec_50" @@ -20340,13 +20354,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_157" +" v_160" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_124" -" v_156)" +" v_159)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" @@ -20397,7 +20411,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_158" +"(let-values(((v_161" " next-pos_25)" "(decode" " vec_50" @@ -20410,7 +20424,7 @@ static const char *startup_source = "(hash-set" " ht_95" " k_27" -" v_158)" +" v_161)" " next-pos_25))))))" "(values ht_96 pos_61)))))" "(if(not #f)" @@ -20500,7 +20514,7 @@ static const char *startup_source = "((pos_70) pos_67))" "(let-values(((r_34 pos_71)" "(let-values()" -"(let-values(((v_159" +"(let-values(((v_162" " next-pos_29)" "(decode" " vec_50" @@ -20511,7 +20525,7 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_159" +" v_162" " r_33)" " next-pos_29)))))" "(values r_34 pos_71)))))" @@ -20863,7 +20877,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_160 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" +"(lambda(v_163 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" "(if(equal? tmp_23 #f)" @@ -20872,7 +20886,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_67)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_160 c_21) next-pos_67)))" +"(begin(set-box! v_163 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20900,7 +20914,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_160 i_78 c_22)" +"(vector-set! v_163 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" "(if(not #f)(for-loop_147 pos_75(+ pos_74 inc_17)) pos_75)))" @@ -20943,7 +20957,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_160 key_52 val_44)" +"(hash-set! v_163 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" "(if(not #f)(for-loop_148 pos_80(+ pos_79 inc_18)) pos_80)))" @@ -20955,18 +20969,18 @@ static const char *startup_source = "(let-values()" "(let-values(((c_23 next-pos_70)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_160 c_23) next-pos_70)))" +"(begin(deserialize-scope-fill! v_163 c_23) next-pos_70)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_40 next-pos_71)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_51 next-pos_71 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_160 a_40 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_163 a_40 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_161)" +"(lambda(v_164)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20974,22 +20988,22 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_86)" -"(lambda(v_162)" +"(lambda(v_165)" "(begin" " 'loop" -"(if(interned-literal? v_162)" +"(if(interned-literal? v_165)" "(let-values()(void))" -"(if(hash-ref seen_22 v_162 #f)" +"(if(hash-ref seen_22 v_165 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_162 #t)" -"(if(scope-with-bindings? v_162)" +"(hash-set! seen_22 v_165 #t)" +"(if(scope-with-bindings? v_165)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_162))" -"((reach-scopes-ref v_162) v_162 loop_86)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_162 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_165))" +"((reach-scopes-ref v_165) v_165 loop_86)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_165 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -21020,9 +21034,9 @@ static const char *startup_source = " for-loop_149)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_162)" -"((scope-with-bindings-ref v_162)" -" v_162" +"(hash-remove! scope-triggers_0 v_165)" +"((scope-with-bindings-ref v_165)" +" v_165" " get-reachable-scopes_4" " loop_86" "(lambda(sc-unreachable_0 b_68)" @@ -21031,15 +21045,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_51)(cons b_68 l_51))" " null)))))" -"(if(reach-scopes? v_162)" -"(let-values()((reach-scopes-ref v_162) v_162 loop_86))" -"(if(pair? v_162)" -"(let-values()(begin(loop_86(car v_162))(loop_86(cdr v_162))))" -"(if(vector? v_162)" +"(if(reach-scopes? v_165)" +"(let-values()((reach-scopes-ref v_165) v_165 loop_86))" +"(if(pair? v_165)" +"(let-values()(begin(loop_86(car v_165))(loop_86(cdr v_165))))" +"(if(vector? v_165)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_162))" +"(let-values(((vec_53) v_165))" "(begin" "(check-vector vec_53)" "(values" @@ -21074,12 +21088,12 @@ static const char *startup_source = " for-loop_150)" " 0)))" "(void)))" -"(if(box? v_162)" -"(let-values()(loop_86(unbox v_162)))" -"(if(hash? v_162)" +"(if(box? v_165)" +"(let-values()(loop_86(unbox v_165)))" +"(if(hash? v_165)" "(let-values()" "(begin" -"(let-values(((ht_97) v_162))" +"(let-values(((ht_97) v_165))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -21090,7 +21104,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_125" -"(let-values(((k_30 v_163)" +"(let-values(((k_30 v_166)" "(hash-iterate-key+value" " ht_97" " i_125)))" @@ -21104,7 +21118,7 @@ static const char *startup_source = "(loop_86" " k_30)" "(loop_86" -" v_163)))" +" v_166)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -21117,7 +21131,7 @@ static const char *startup_source = " for-loop_151)" "(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_162)" +"(if(prefab-struct-key v_165)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -21127,7 +21141,7 @@ static const char *startup_source = "(lambda(x_51)(vector? x_51))" "(lambda(x_52)" "(unsafe-vector-length x_52))" -"(struct->vector v_162)" +"(struct->vector v_165)" " 1" " #f" " 1)))" @@ -21160,11 +21174,11 @@ static const char *startup_source = " for-loop_152)" " start*_4)))" "(void)))" -"(if(srcloc? v_162)" -"(let-values()(loop_86(srcloc-source v_162)))" +"(if(srcloc? v_165)" +"(let-values()(loop_86(srcloc-source v_165)))" "(let-values()(void))))))))))))))))))" " loop_86)" -" v_161)" +" v_164)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21280,7 +21294,7 @@ static const char *startup_source = "(values struct:_10 make-_10 ?_10)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21296,14 +21310,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'keys)" -"(make-struct-field-accessor -ref_43 1 'body))))" +" struct:_44" +" make-_44" +" ?_44" +"(make-struct-field-accessor -ref_44 0 'keys)" +"(make-struct-field-accessor -ref_44 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21318,10 +21332,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'clauses))))" +"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21337,14 +21351,14 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_45" -" make-_45" -" ?_45" -"(make-struct-field-accessor -ref_45 0 'rator)" -"(make-struct-field-accessor -ref_45 1 'rands))))" +" struct:_46" +" make-_46" +" ?_46" +"(make-struct-field-accessor -ref_46 0 'rator)" +"(make-struct-field-accessor -ref_46 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21360,15 +21374,15 @@ static const char *startup_source = " #f" " 'parsed-if)))))" "(values" -" struct:_46" -" make-_46" -" ?_46" -"(make-struct-field-accessor -ref_46 0 'tst)" -"(make-struct-field-accessor -ref_46 1 'thn)" -"(make-struct-field-accessor -ref_46 2 'els))))" +" struct:_47" +" make-_47" +" ?_47" +"(make-struct-field-accessor -ref_47 0 'tst)" +"(make-struct-field-accessor -ref_47 1 'thn)" +"(make-struct-field-accessor -ref_47 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21384,11 +21398,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_47" -" make-_47" -" ?_47" -"(make-struct-field-accessor -ref_47 0 'id)" -"(make-struct-field-accessor -ref_47 1 'rhs))))" +" struct:_48" +" make-_48" +" ?_48" +"(make-struct-field-accessor -ref_48 0 'id)" +"(make-struct-field-accessor -ref_48 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21396,7 +21410,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21412,18 +21426,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_48" -" make-_48" -" ?_48" -"(make-struct-field-accessor -ref_48 0 'key)" -"(make-struct-field-accessor -ref_48 1 'val)" -"(make-struct-field-accessor -ref_48 2 'body))))" +" struct:_49" +" make-_49" +" ?_49" +"(make-struct-field-accessor -ref_49 0 'key)" +"(make-struct-field-accessor -ref_49 1 'val)" +"(make-struct-field-accessor -ref_49 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21438,10 +21452,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'id))))" +"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21456,10 +21470,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'body))))" +"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21474,10 +21488,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" +"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21492,10 +21506,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'datum))))" +"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21510,7 +21524,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'datum))))" +"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21518,7 +21532,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21534,15 +21548,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_54" -" make-_54" -" ?_54" -"(make-struct-field-accessor -ref_54 0 'idss)" -"(make-struct-field-accessor -ref_54 1 'clauses)" -"(make-struct-field-accessor -ref_54 2 'body))))" +" struct:_55" +" make-_55" +" ?_55" +"(make-struct-field-accessor -ref_55 0 'idss)" +"(make-struct-field-accessor -ref_55 1 'clauses)" +"(make-struct-field-accessor -ref_55 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21557,10 +21571,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_55 make-_55 ?_55)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21575,7 +21589,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_56 make-_56 ?_56)))" +"(values struct:_57 make-_57 ?_57)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21583,7 +21597,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21599,12 +21613,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_57" -" make-_57" -" ?_57" -"(make-struct-field-accessor -ref_57 0 'ids)" -"(make-struct-field-accessor -ref_57 1 'syms)" -"(make-struct-field-accessor -ref_57 2 'rhs))))" +" struct:_58" +" make-_58" +" ?_58" +"(make-struct-field-accessor -ref_58 0 'ids)" +"(make-struct-field-accessor -ref_58 1 'syms)" +"(make-struct-field-accessor -ref_58 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21612,7 +21626,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21628,15 +21642,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_58" -" make-_58" -" ?_58" -"(make-struct-field-accessor -ref_58 0 'ids)" -"(make-struct-field-accessor -ref_58 1 'syms)" -"(make-struct-field-accessor -ref_58 2 'rhs))))" +" struct:_59" +" make-_59" +" ?_59" +"(make-struct-field-accessor -ref_59 0 'ids)" +"(make-struct-field-accessor -ref_59 1 'syms)" +"(make-struct-field-accessor -ref_59 2 'rhs))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21651,10 +21665,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_59 make-_59 ?_59(make-struct-field-accessor -ref_59 0 'body))))" +"(values struct:_60 make-_60 ?_60(make-struct-field-accessor -ref_60 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21669,10 +21683,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_60 make-_60 ?_60)))" +"(values struct:_61 make-_61 ?_61)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21687,10 +21701,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_61 make-_61 ?_61)))" +"(values struct:_62 make-_62 ?_62)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21705,7 +21719,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'body))))" +"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21720,7 +21734,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21736,19 +21750,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_63" -" make-_63" -" ?_63" -"(make-struct-field-accessor -ref_63 0 'star?)" -"(make-struct-field-accessor -ref_63 1 'name-id)" -"(make-struct-field-accessor -ref_63 2 'self)" -"(make-struct-field-accessor -ref_63 3 'requires)" -"(make-struct-field-accessor -ref_63 4 'provides)" -"(make-struct-field-accessor -ref_63 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_63 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_63 7 'body)" -"(make-struct-field-accessor -ref_63 8 'compiled-module)" -"(make-struct-field-accessor -ref_63 9 'compiled-submodules))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'star?)" +"(make-struct-field-accessor -ref_64 1 'name-id)" +"(make-struct-field-accessor -ref_64 2 'self)" +"(make-struct-field-accessor -ref_64 3 'requires)" +"(make-struct-field-accessor -ref_64 4 'provides)" +"(make-struct-field-accessor -ref_64 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_64 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_64 7 'body)" +"(make-struct-field-accessor -ref_64 8 'compiled-module)" +"(make-struct-field-accessor -ref_64 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 mod-path3_0 self4_2)" @@ -21842,7 +21856,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21858,20 +21872,20 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'self)" -"(make-struct-field-accessor -ref_64 1 'require-mpis)" -"(make-struct-field-accessor -ref_64 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_64 3 'requires)" -"(make-struct-field-accessor -ref_64 4 'provides)" -"(make-struct-field-accessor -ref_64 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_64 6 'also-required)" -"(make-struct-field-accessor -ref_64 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_64 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_64 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_64 8 'all-bindings-simple?))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'self)" +"(make-struct-field-accessor -ref_65 1 'require-mpis)" +"(make-struct-field-accessor -ref_65 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_65 3 'requires)" +"(make-struct-field-accessor -ref_65 4 'provides)" +"(make-struct-field-accessor -ref_65 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_65 6 'also-required)" +"(make-struct-field-accessor -ref_65 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_65 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_65 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_65 8 'all-bindings-simple?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -21899,7 +21913,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21915,13 +21929,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'module)" -"(make-struct-field-accessor -ref_65 1 'provide-phase)" -"(make-struct-field-accessor -ref_65 2 'require-phase)" -"(make-struct-field-accessor -ref_65 3 'sym))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'module)" +"(make-struct-field-accessor -ref_66 1 'provide-phase)" +"(make-struct-field-accessor -ref_66 2 'require-phase)" +"(make-struct-field-accessor -ref_66 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21931,7 +21945,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21947,14 +21961,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_66" -" make-_66" -" ?_66" -"(make-struct-field-accessor -ref_66 0 'provides)" -"(make-struct-field-accessor -ref_66 1 'prefix-len)" -"(make-struct-field-accessor -ref_66 2 's)" -"(make-struct-field-accessor -ref_66 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_66 4 'can-be-shadowed?))))" +" struct:_67" +" make-_67" +" ?_67" +"(make-struct-field-accessor -ref_67 0 'provides)" +"(make-struct-field-accessor -ref_67 1 'prefix-len)" +"(make-struct-field-accessor -ref_67 2 's)" +"(make-struct-field-accessor -ref_67 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_67 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 self7_0)" @@ -22189,11 +22203,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_174)" +"(let-values(((or-part_172)" "(not" " shortcut-table_0)))" -"(if or-part_174" -" or-part_174" +"(if or-part_172" +" or-part_172" "(hash-ref" " shortcut-table_0" " sym_35" @@ -22982,8 +22996,8 @@ static const char *startup_source = "(extract-module-definitions)" "(lambda(r+p_12)" "(begin" -"(let-values(((or-part_175)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" -"(if or-part_175 or-part_175 null)))))" +"(let-values(((or-part_173)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" +"(if or-part_173 or-part_173 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_13 mod-name_12 phase_64)" @@ -23215,8 +23229,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_45" -"(if(let-values(((or-part_176) as-protected?_0))" -"(if or-part_176 or-part_176 as-transformer?_3))" +"(if(let-values(((or-part_174) as-protected?_0))" +"(if or-part_174 or-part_174 as-transformer?_3))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" " plain-binding_0))))" "(if(same-binding? b_71 binding_13)" @@ -23478,16 +23492,16 @@ static const char *startup_source = "(make-struct-field-accessor -ref_10 1 'syms))))" "(define-values" "(struct:adjust-rename adjust-rename4.1 adjust-rename? adjust-rename-to-id adjust-rename-from-sym)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'to-id)" -"(make-struct-field-accessor -ref_67 1 'from-sym))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'to-id)" +"(make-struct-field-accessor -ref_68 1 'from-sym))))" "(define-values(layers$1) '(raw phaseless path))" "(define-values" "(parse-and-perform-requires!30.1)" @@ -23723,10 +23737,10 @@ static const char *startup_source = " req_0)))" "(loop_88" " spec120_0" -"(let-values(((or-part_177)" +"(let-values(((or-part_175)" " top-req_0))" -"(if or-part_177" -" or-part_177" +"(if or-part_175" +" or-part_175" " req_0))" "(phase+" " phase-shift_9" @@ -23803,10 +23817,10 @@ static const char *startup_source = " spec127_1))))))" "(loop_88" " spec127_0" -"(let-values(((or-part_178)" +"(let-values(((or-part_176)" " top-req_0))" -"(if or-part_178" -" or-part_178" +"(if or-part_176" +" or-part_176" " req_0))" "(phase+" " phase-shift_9" @@ -23883,10 +23897,10 @@ static const char *startup_source = " spec131_1))))))" "(loop_88" " spec131_0" -"(let-values(((or-part_179)" +"(let-values(((or-part_177)" " top-req_0))" -"(if or-part_179" -" or-part_179" +"(if or-part_177" +" or-part_177" " req_0))" "(phase+" " phase-shift_9" @@ -23963,10 +23977,10 @@ static const char *startup_source = " spec135_1))))))" "(loop_88" " spec135_0" -"(let-values(((or-part_180)" +"(let-values(((or-part_178)" " top-req_0))" -"(if or-part_180" -" or-part_180" +"(if or-part_178" +" or-part_178" " req_0))" "(phase+" " phase-shift_9" @@ -24085,10 +24099,10 @@ static const char *startup_source = " req_0)))" "(loop_88" " spec140_0" -"(let-values(((or-part_181)" +"(let-values(((or-part_179)" " top-req_0))" -"(if or-part_181" -" or-part_181" +"(if or-part_179" +" or-part_179" " req_0))" " phase-shift_9" " p_35" @@ -24198,15 +24212,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id154_0)" "(let-values()" -"(if(let-values(((or-part_182)" +"(if(let-values(((or-part_180)" "(if(syntax?$1" " s_228)" "(symbol?" "(syntax-e$1" " s_228))" " #f)))" -"(if or-part_182" -" or-part_182" +"(if or-part_180" +" or-part_180" "(symbol?" " s_228)))" " s_228" @@ -24255,10 +24269,10 @@ static const char *startup_source = "(loop_88" "(list" " spec147_0)" -"(let-values(((or-part_183)" +"(let-values(((or-part_181)" " top-req_0))" -"(if or-part_183" -" or-part_183" +"(if or-part_181" +" or-part_181" " req_0))" " phase-shift_9" " just-meta_0" @@ -24318,15 +24332,15 @@ static const char *startup_source = "(let-values(((s_233)" "(car" " s_232)))" -"(if(let-values(((or-part_184)" +"(if(let-values(((or-part_182)" "(if(syntax?$1" " s_233)" "(symbol?" "(syntax-e$1" " s_233))" " #f)))" -"(if or-part_184" -" or-part_184" +"(if or-part_182" +" or-part_182" "(symbol?" " s_233)))" " s_233" @@ -24513,15 +24527,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id172_0)" "(let-values()" -"(if(let-values(((or-part_185)" +"(if(let-values(((or-part_183)" "(if(syntax?$1" " s_246)" "(symbol?" "(syntax-e$1" " s_246))" " #f)))" -"(if or-part_185" -" or-part_185" +"(if or-part_183" +" or-part_183" "(symbol?" " s_246)))" " s_246" @@ -24570,10 +24584,10 @@ static const char *startup_source = "(loop_88" "(list" " spec165_0)" -"(let-values(((or-part_186)" +"(let-values(((or-part_184)" " top-req_0))" -"(if or-part_186" -" or-part_186" +"(if or-part_184" +" or-part_184" " req_0))" " phase-shift_9" " just-meta_0" @@ -24637,15 +24651,15 @@ static const char *startup_source = "(let-values(((s_252)" "(car" " s_251)))" -"(if(let-values(((or-part_187)" +"(if(let-values(((or-part_185)" "(if(syntax?$1" " s_252)" "(symbol?" "(syntax-e$1" " s_252))" " #f)))" -"(if or-part_187" -" or-part_187" +"(if or-part_185" +" or-part_185" "(symbol?" " s_252)))" " s_252" @@ -24723,15 +24737,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id186_0)" "(let-values()" -"(if(let-values(((or-part_188)" +"(if(let-values(((or-part_186)" "(if(syntax?$1" " s_258)" "(symbol?" "(syntax-e$1" " s_258))" " #f)))" -"(if or-part_188" -" or-part_188" +"(if or-part_186" +" or-part_186" "(symbol?" " s_258)))" " s_258" @@ -24790,10 +24804,10 @@ static const char *startup_source = "(loop_88" "(list" " spec175_0)" -"(let-values(((or-part_189)" +"(let-values(((or-part_187)" " top-req_0))" -"(if or-part_189" -" or-part_189" +"(if or-part_187" +" or-part_187" " req_0))" " phase-shift_9" " just-meta_0" @@ -24876,15 +24890,15 @@ static const char *startup_source = "(let-values(((s_267)" "(car" " s_266)))" -"(if(let-values(((or-part_190)" +"(if(let-values(((or-part_188)" "(if(syntax?$1" " s_267)" "(symbol?" "(syntax-e$1" " s_267))" " #f)))" -"(if or-part_190" -" or-part_190" +"(if or-part_188" +" or-part_188" "(symbol?" " s_267)))" " s_267" @@ -24909,15 +24923,15 @@ static const char *startup_source = "(let-values(((s_270)" "(car" " s_269)))" -"(if(let-values(((or-part_191)" +"(if(let-values(((or-part_189)" "(if(syntax?$1" " s_270)" "(symbol?" "(syntax-e$1" " s_270))" " #f)))" -"(if or-part_191" -" or-part_191" +"(if or-part_189" +" or-part_189" "(symbol?" " s_270)))" " s_270" @@ -24982,10 +24996,10 @@ static const char *startup_source = "(loop_88" "(list" " spec188_0)" -"(let-values(((or-part_192)" +"(let-values(((or-part_190)" " top-req_0))" -"(if or-part_192" -" or-part_192" +"(if or-part_190" +" or-part_190" " req_0))" " phase-shift_9" " just-meta_0" @@ -25002,11 +25016,11 @@ static const char *startup_source = " req_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_193)" +"(if(let-values(((or-part_191)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_193" -" or-part_193" +"(if or-part_191" +" or-part_191" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -25019,10 +25033,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_194)" +"(if(let-values(((or-part_192)" " adjust_0))" -"(if or-part_194" -" or-part_194" +"(if or-part_192" +" or-part_192" "(not" "(eq?" " just-meta_0" @@ -25058,10 +25072,10 @@ static const char *startup_source = "((self203_0)" " self_10)" "((temp204_0)" -"(let-values(((or-part_195)" +"(let-values(((or-part_193)" " req_0))" -"(if or-part_195" -" or-part_195" +"(if or-part_193" +" or-part_193" " top-req_0)))" "((m-ns205_0)" " m-ns_8)" @@ -25322,10 +25336,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_196)" +"(let-values(((or-part_194)" " visit?_2))" -"(if or-part_196" -" or-part_196" +"(if or-part_194" +" or-part_194" " run?_2)))" "(let-values()" "(let-values(((m-ns259_0) m-ns_10)" @@ -25343,15 +25357,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_197)" +"(if(let-values(((or-part_195)" "(not adjust_1)))" -"(if or-part_197" -" or-part_197" -"(let-values(((or-part_198)" +"(if or-part_195" +" or-part_195" +"(let-values(((or-part_196)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_198" -" or-part_198" +"(if or-part_196" +" or-part_196" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25482,11 +25496,11 @@ static const char *startup_source = " #f)" " #f))" "((temp250_0)" -"(if(let-values(((or-part_199)" +"(if(let-values(((or-part_197)" "(not" " can-bulk-bind?_0)))" -"(if or-part_199" -" or-part_199" +"(if or-part_197" +" or-part_197" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_4)" @@ -25869,12 +25883,12 @@ static const char *startup_source = " i_134)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_200)" +"(if(let-values(((or-part_198)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_200" -" or-part_200" +"(if or-part_198" +" or-part_198" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25900,10 +25914,10 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_151)" -"(let-values(((or-part_201)" +"(let-values(((or-part_199)" " only-syms_0))" -"(if or-part_201" -" or-part_201" +"(if or-part_199" +" or-part_199" "(hash-keys" " provides_7)))))" "(begin" @@ -26005,7 +26019,7 @@ static const char *startup_source = " in-stx_2)" "((temp303_0)" "(bulk-binding14.1" -"(let-values(((or-part_202)" +"(let-values(((or-part_200)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -26014,8 +26028,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_202" -" or-part_202" +"(if or-part_200" +" or-part_200" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -26624,35 +26638,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_68 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_68 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_68 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_68 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_68 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_68 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_68 7 'syntax-literals)" -"(make-struct-field-mutator -set!_68 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_68 5 'require-vars-in-order))))" -"(define-values" -"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" -"(let-values()" -"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" -"(values" " struct:_69" " make-_69" " ?_69" -"(make-struct-field-accessor -ref_69 0 'module-use)" -"(make-struct-field-accessor -ref_69 1 'sym))))" +"(make-struct-field-accessor -ref_69 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_69 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_69 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_69 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_69 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_69 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_69 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_69 7 'syntax-literals)" +"(make-struct-field-mutator -set!_69 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_69 5 'require-vars-in-order))))" +"(define-values" +"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values()" +"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" +"(values" +" struct:_43" +" make-_43" +" ?_43" +"(make-struct-field-accessor -ref_43 0 'module-use)" +"(make-struct-field-accessor -ref_43 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26849,8 +26863,8 @@ static const char *startup_source = "(symbol-conflicts?)" "(lambda(sym_53 header_1)" "(begin" -"(let-values(((or-part_203)(built-in-symbol? sym_53)))" -"(if or-part_203 or-part_203(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" +"(let-values(((or-part_201)(built-in-symbol? sym_53)))" +"(if or-part_201 or-part_201(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" @@ -26867,9 +26881,9 @@ static const char *startup_source = "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" "(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_204) prev-var-sym_0))" -"(if or-part_204" -" or-part_204" +"(let-values(((or-part_202) prev-var-sym_0))" +"(if or-part_202" +" or-part_202" "(let-values(((sym_55)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" "(hash-set! variable-uses_0 key_55 sym_55)" @@ -26924,21 +26938,21 @@ static const char *startup_source = "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_203)" "(hash-ref" " ht_110" " mu_2" " #f)))" -"(if or-part_205" -" or-part_205" -"(let-values(((or-part_206)" +"(if or-part_203" +" or-part_203" +"(let-values(((or-part_204)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_206" -" or-part_206" +"(if or-part_204" +" or-part_204" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -27117,10 +27131,10 @@ static const char *startup_source = "(let-values(((table_33)" "(let-values(((table_144)" " table_143))" -"(if(let-values(((or-part_207)" +"(if(let-values(((or-part_205)" " extra-inspectors_1))" -"(if or-part_207" -" or-part_207" +"(if or-part_205" +" or-part_205" " cross-linklet-inlining?_0))" "(let-values(((table_145)" " table_144))" @@ -27181,10 +27195,10 @@ static const char *startup_source = "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_208)" +"(let-values(((or-part_206)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_208" -" or-part_208" +"(if or-part_206" +" or-part_206" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_151) fold-var_150))" "(let-values(((fold-var_152)" @@ -27352,7 +27366,7 @@ static const char *startup_source = "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_164)(syntax-property$2 e_32 k_32 v_164))))" +"((e_32 k_32 v_134)(syntax-property$2 e_32 k_32 v_134))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_109)" @@ -27732,17 +27746,17 @@ static const char *startup_source = "(let-values(((n2_0)(simplify-name_0(cdr v_93))))(if(eq? n1_0 n2_0) n1_0 v_93))))" "(let-values() v_93))))))" "(let-values(((name_44)" -"(let-values(((or-part_209)" +"(let-values(((or-part_207)" "(let-values(((v_54)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_210)(symbol? v_54)))" -"(if or-part_210" -" or-part_210" -"(let-values(((or-part_211)(syntax?$1 v_54)))" -"(if or-part_211 or-part_211(void? v_54)))))" +"(if(let-values(((or-part_208)(symbol? v_54)))" +"(if or-part_208" +" or-part_208" +"(let-values(((or-part_209)(syntax?$1 v_54)))" +"(if or-part_209 or-part_209(void? v_54)))))" " v_54" " #f))))" -"(if or-part_209 or-part_209 inferred-name_0))))" +"(if or-part_207 or-part_207 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_44" "(correlated-property" @@ -27890,8 +27904,8 @@ static const char *startup_source = "(correlated-property" "(->correlated id_47)" " 'undefined-error-name" -"(let-values(((or-part_212)(syntax-property$1 orig-id_0 'undefined-error-name)))" -"(if or-part_212 or-part_212(syntax-e$1 orig-id_0))))))))" +"(let-values(((or-part_210)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_210 or-part_210(syntax-e$1 orig-id_0))))))))" "(define-values" "(compile-identifier22.1)" "(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)" @@ -27904,9 +27918,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_43)))" "(let-values(((b_74)" -"(let-values(((or-part_213) normal-b_0))" -"(if or-part_213" -" or-part_213" +"(let-values(((or-part_211) normal-b_0))" +"(if or-part_211" +" or-part_211" "(let-values(((temp43_0)(compile-context-self cctx_9))" "((temp44_0)(compile-context-phase cctx_9))" "((temp45_0)(syntax-e$1(parsed-s p_43))))" @@ -27958,14 +27972,14 @@ static const char *startup_source = "((temp48_0)(module-binding-phase b_74))" "((temp49_0)(module-binding-sym b_74))" "((temp50_0)" -"(let-values(((or-part_214)" +"(let-values(((or-part_212)" "(module-binding-extra-inspector b_74)))" -"(if or-part_214" -" or-part_214" -"(let-values(((or-part_215)" +"(if or-part_212" +" or-part_212" +"(let-values(((or-part_213)" "(parsed-id-inspector p_43)))" -"(if or-part_215" -" or-part_215" +"(if or-part_213" +" or-part_213" "(if(parsed-s p_43)" "(syntax-inspector(parsed-s p_43))" " #f)))))))" @@ -28036,8 +28050,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_216)(not extra-inspectors-1_0)))" -"(if or-part_216 or-part_216(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_214)(not extra-inspectors-1_0)))" +"(if or-part_214 or-part_214(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -28300,7 +28314,7 @@ static const char *startup_source = "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_217) add-insp?_0))(if or-part_217 or-part_217 add-extra-insp?_0))" +"(if(let-values(((or-part_215) add-insp?_0))(if or-part_215 or-part_215 add-extra-insp?_0))" "(let-values()" "(let-values(((lst_179) imports_1))" "(begin" @@ -28331,14 +28345,14 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_218)" +"(let-values(((or-part_216)" "(if add-insp?_0" "(inspector-superior?" " inspector_13" " guard-insp_2)" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_216" +" or-part_216" "(let-values(((or-part_100)" "(if add-extra-insp?_0" "(inspector-superior?" @@ -28525,13 +28539,13 @@ static const char *startup_source = "(lambda(phase_75)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_219)" +"(let-values(((or-part_217)" "(hash-ref" " phase-to-header_0" " phase_75" " #f)))" -"(if or-part_219" -" or-part_219" +"(if or-part_217" +" or-part_217" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28900,31 +28914,31 @@ static const char *startup_source = "(compile$2" "(parsed-define-values-rhs" " body_0)" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_48)" " cctx_11))" "(if(compile-context?" -" the-struct_49)" +" the-struct_48)" "(let-values(((phase41_0)" " phase_77)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_48)" " phase41_0" "(compile-context-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_48)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_48)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49)))" +" the-struct_48)))" "(if(=" "(length" " ids_5)" @@ -28953,11 +28967,11 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_0)))" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_166)" "(compile-context-module-self" " cctx_11)))" -"(if or-part_168" -" or-part_168" +"(if or-part_166" +" or-part_166" "(null?" " ids_5)))" "(void)" @@ -29023,31 +29037,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_11))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase43_0)" " phase_77)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_49)" " phase43_0" "(compile-context-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_49)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50)))" +" the-struct_49)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_0)" @@ -29119,10 +29133,10 @@ static const char *startup_source = "(compile$2" "(parsed-define-syntaxes-rhs" " body_0)" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_11))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase45_0)" "(add1" " phase_77))" @@ -29130,21 +29144,21 @@ static const char *startup_source = " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_50)" " phase45_0" "(compile-context-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_50)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51))))))" +" the-struct_50))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -29259,31 +29273,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_51)" " cctx_11))" "(if(compile-context?" -" the-struct_52)" +" the-struct_51)" "(let-values(((phase47_0)" " phase_77)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_51)" " phase47_0" "(compile-context-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_51)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52)))" +" the-struct_51)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -29298,11 +29312,11 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_77))))" -"(if(let-values(((or-part_220)" +"(if(let-values(((or-part_218)" "(parsed-#%declare?" " body_0)))" -"(if or-part_220" -" or-part_220" +"(if or-part_218" +" or-part_218" "(let-values(((or-part_87)" "(parsed-module?" " body_0)))" @@ -29314,31 +29328,31 @@ static const char *startup_source = "(let-values(((e_34)" "(other-form-callback_0" " body_0" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_52)" " cctx_11))" "(if(compile-context?" -" the-struct_53)" +" the-struct_52)" "(let-values(((phase49_0)" " phase_77)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" +" the-struct_52)" " phase49_0" "(compile-context-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_52)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" +" the-struct_52)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53))))))" +" the-struct_52))))))" "(if e_34" "(let-values()" "(begin" @@ -29356,31 +29370,31 @@ static const char *startup_source = "(let-values(((e_35)" "(compile$2" " body_0" -"(let-values(((the-struct_54)" +"(let-values(((the-struct_53)" " cctx_11))" "(if(compile-context?" -" the-struct_54)" +" the-struct_53)" "(let-values(((phase51_0)" " phase_77)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_54)" +" the-struct_53)" " phase51_0" "(compile-context-self" -" the-struct_54)" +" the-struct_53)" "(compile-context-module-self" -" the-struct_54)" +" the-struct_53)" "(compile-context-full-module-name" -" the-struct_54)" +" the-struct_53)" "(compile-context-lazy-syntax-literals?" -" the-struct_54)" +" the-struct_53)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_54)))" +" the-struct_53)))" " #f" "(=" " i_107" @@ -29907,9 +29921,9 @@ static const char *startup_source = "(let-values(((lst_202) ids_7)" "((lst_203) binding-syms_2)" "((lst_47)" -"(let-values(((or-part_221) trans-exprs_0))" -"(if or-part_221" -" or-part_221" +"(let-values(((or-part_219) trans-exprs_0))" +"(if or-part_219" +" or-part_219" "(reverse$1" "(let-values(((lst_204) ids_7))" "(begin" @@ -30042,8 +30056,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_165)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_165(correlated-property e_36 'compiler-hint:cross-module-inline v_165) e_36)))))" +"(let-values(((v_167)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_167(correlated-property e_36 'compiler-hint:cross-module-inline v_167) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -30098,10 +30112,10 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_222)" +"(let-values(((or-part_220)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_222" -" or-part_222" +"(if or-part_220" +" or-part_220" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -30127,8 +30141,8 @@ static const char *startup_source = "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" "((lst_213)" -"(let-values(((or-part_223) extra-inspectorsss_3))" -"(if or-part_223 or-part_223 mus_2))))" +"(let-values(((or-part_221) extra-inspectorsss_3))" +"(if or-part_221 or-part_221 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -30555,10 +30569,10 @@ static const char *startup_source = "(values struct:_70 make-_70 ?_70(make-struct-field-accessor -ref_70 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_64 make-_64 ?_64)))" +"(values struct:_65 make-_65 ?_65)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" "(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" @@ -30576,7 +30590,7 @@ static const char *startup_source = " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30591,7 +30605,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'arg-predicate-keys))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'arg-predicate-keys))))" "(define-values" "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -30784,8 +30798,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_224)" -"(if(let-values(((or-part_225)" +"(if(let-values(((or-part_222)" +"(if(let-values(((or-part_223)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30798,8 +30812,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_223" +" or-part_223" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30861,8 +30875,8 @@ static const char *startup_source = " #t" " lst_220)))" " #f)))" -"(if or-part_224" -" or-part_224" +"(if or-part_222" +" or-part_222" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30959,11 +30973,11 @@ static const char *startup_source = " #f))))" " c1_26)" "(let-values()" -"(if(let-values(((or-part_166)" +"(if(let-values(((or-part_164)" "(self-quoting-in-linklet?" " v_32)))" -"(if or-part_166" -" or-part_166" +"(if or-part_164" +" or-part_164" "(if(symbol? v_32)" "(let-values(((or-part_65)" "(hash-ref" @@ -30972,12 +30986,12 @@ static const char *startup_source = " #f)))" "(if or-part_65" " or-part_65" -"(let-values(((or-part_226)" +"(let-values(((or-part_224)" "(lookup-defn" " defns_1" " v_32)))" -"(if or-part_226" -" or-part_226" +"(if or-part_224" +" or-part_224" "(let-values(((or-part_66)" "(built-in-symbol?" " v_32)))" @@ -31989,20 +32003,20 @@ static const char *startup_source = " quot59_1" " datum60_1)))" "(values #f #f #f #f)))))" -"(if(let-values(((or-part_227)" +"(if(let-values(((or-part_225)" "(if ok?_23" "(if(eq? 'quote quot59_0)" -"(let-values(((or-part_228)" +"(let-values(((or-part_226)" "(symbol?" " datum60_0)))" -"(if or-part_228" -" or-part_228" +"(if or-part_226" +" or-part_226" "(string?" " datum60_0)))" " #f)" " #f)))" -"(if or-part_227" -" or-part_227" +"(if or-part_225" +" or-part_225" "(null?(cdr(correlated-e e_39)))))" " 1" " #f)))" @@ -32049,15 +32063,15 @@ static const char *startup_source = "(if(let-values(((s_356)" "(car" " s_355)))" -"(let-values(((or-part_229)" +"(let-values(((or-part_227)" "(if(1/syntax?" " s_356)" "(symbol?" "(syntax-e$2" " s_356))" " #f)))" -"(if or-part_229" -" or-part_229" +"(if or-part_227" +" or-part_227" "(symbol?" " s_356))))" "(let-values(((s_357)" @@ -32074,15 +32088,15 @@ static const char *startup_source = "(if(let-values(((s_250)" "(car" " s_249)))" -"(let-values(((or-part_230)" +"(let-values(((or-part_228)" "(if(1/syntax?" " s_250)" "(symbol?" "(syntax-e$2" " s_250))" " #f)))" -"(if or-part_230" -" or-part_230" +"(if or-part_228" +" or-part_228" "(symbol?" " s_250))))" "(let-values(((s_358)" @@ -32295,13 +32309,13 @@ static const char *startup_source = "(if ok?_24" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_231)" +"(let-values(((or-part_229)" "(hash-ref" " locals_2" " id:rator70_0" " #f)))" -"(if or-part_231" -" or-part_231" +"(if or-part_229" +" or-part_229" "(lookup-defn" " defns_1" " id:rator70_0)))))" @@ -32523,16 +32537,16 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_232)(not expected-results_0)))" -"(if or-part_232 or-part_232(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_230)(not expected-results_0)))" +"(if or-part_230 or-part_230(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_62 key_50 defns_2 locals_3)" "(begin" "(let-values(((d_32)" -"(let-values(((or-part_233)(hash-ref locals_3 e_62 #f)))" -"(if or-part_233 or-part_233(lookup-defn defns_2 e_62)))))" +"(let-values(((or-part_231)(hash-ref locals_3 e_62 #f)))" +"(if or-part_231 or-part_231(lookup-defn defns_2 e_62)))))" "(if d_32(if(known-satisfies? d_32)(eq? key_50(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" @@ -32723,11 +32737,11 @@ static const char *startup_source = "(let-values(((lst_241)(cdr l_57))" "((lst_242)" "(list" -"(lambda(v_166)(quoted? symbol? v_166))" -"(lambda(v_167)(is-lambda? v_167 2 defns_3))" -"(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))" -"(lambda(v_169)" -"(let-values(((v103_0) v_169)((temp104_1) 1)((defns105_0) defns_3))" +"(lambda(v_168)(quoted? symbol? v_168))" +"(lambda(v_169)(is-lambda? v_169 2 defns_3))" +"(lambda(v_170)(ok-make-struct-type-property-super? v_170 defns_3))" +"(lambda(v_171)" +"(let-values(((v103_0) v_171)((temp104_1) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_1))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" @@ -32759,17 +32773,17 @@ static const char *startup_source = " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_170 defns_4)" +"(lambda(v_172 defns_4)" "(begin" -"(let-values(((or-part_234)(quoted? null? v_170)))" -"(if or-part_234" -" or-part_234" -"(let-values(((or-part_235)(eq? 'null(correlated-e v_170))))" -"(if or-part_235" -" or-part_235" -"(if(pair?(correlated-e v_170))" -"(if(eq?(correlated-e(car(correlated-e v_170))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_170))))" +"(let-values(((or-part_232)(quoted? null? v_172)))" +"(if or-part_232" +" or-part_232" +"(let-values(((or-part_233)(eq? 'null(correlated-e v_172))))" +"(if or-part_233" +" or-part_233" +"(if(pair?(correlated-e v_172))" +"(if(eq?(correlated-e(car(correlated-e v_172))) 'list)" +"(if(let-values(((lst_244)(cdr(correlated->list v_172))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32797,7 +32811,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_236)" +"(if(let-values(((or-part_234)" "(memq" "(correlated-e" "(list-ref" @@ -32806,8 +32820,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_236" -" or-part_236" +"(if or-part_234" +" or-part_234" "(known-property?" "(lookup-defn" " defns_4" @@ -32844,9 +32858,9 @@ static const char *startup_source = " #t" " lst_244)))" "(=" -"(sub1(correlated-length v_170))" +"(sub1(correlated-length v_172))" "(set-count" -"(let-values(((lst_245)(cdr(correlated->list v_170))))" +"(let-values(((lst_245)(cdr(correlated->list v_172))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32897,21 +32911,21 @@ static const char *startup_source = "(field-count-expr-to-field-count init-field-count-expr_0)" "(field-count-expr-to-field-count auto-field-count-expr_0))))" "(let-values(((immutables-expr_0)" -"(let-values(((or-part_237)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_237 or-part_237 'null))))" +"(let-values(((or-part_235)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_235 or-part_235 'null))))" "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" "(let-values(((lst_247)(cdr l_58))" "((lst_248)" "(list" -"(lambda(v_171)(quoted? symbol? v_171))" -"(lambda(v_172)(super-ok? v_172 defns_5))" -"(lambda(v_173)(field-count-expr-to-field-count v_173))" -"(lambda(v_174)(field-count-expr-to-field-count v_174))" -"(lambda(v_175)" +"(lambda(v_173)(quoted? symbol? v_173))" +"(lambda(v_174)(super-ok? v_174 defns_5))" +"(lambda(v_175)(field-count-expr-to-field-count v_175))" +"(lambda(v_176)(field-count-expr-to-field-count v_176))" +"(lambda(v_177)" "(not" -"(let-values(((v109_0) v_175)" +"(let-values(((v109_0) v_177)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32921,11 +32935,11 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_176)" -"(known-good-struct-properties? v_176 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_177)(inspector-or-false? v_177))" -"(lambda(v_178)(procedure-spec? v_178 num-fields_0))" -"(lambda(v_179)(immutables-ok? v_179 init-field-count-expr_0)))))" +"(lambda(v_178)" +"(known-good-struct-properties? v_178 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_179)(inspector-or-false? v_179))" +"(lambda(v_180)(procedure-spec? v_180 num-fields_0))" +"(lambda(v_181)(immutables-ok? v_181 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32966,9 +32980,9 @@ static const char *startup_source = "(super-ok?)" "(lambda(e_65 defns_6)" "(begin" -"(let-values(((or-part_238)(quoted? false? e_65)))" -"(if or-part_238" -" or-part_238" +"(let-values(((or-part_236)(quoted? false? e_65)))" +"(if or-part_236" +" or-part_236" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_65))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32979,49 +32993,49 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_180)" +"(lambda(val?_0 v_182)" "(begin" -"(let-values(((or-part_239)" -"(if(pair?(correlated-e v_180))" -"(if(eq?(correlated-e(car(correlated-e v_180))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_180)))" +"(let-values(((or-part_237)" +"(if(pair?(correlated-e v_182))" +"(if(eq?(correlated-e(car(correlated-e v_182))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_182)))" " #f)" " #f)))" -"(if or-part_239 or-part_239(val?_0(correlated-e v_180)))))))" +"(if or-part_237 or-part_237(val?_0(correlated-e v_182)))))))" "(define-values" "(quoted-value)" -"(lambda(v_181)" -"(begin(if(pair?(correlated-e v_181))(correlated-e(correlated-cadr v_181))(correlated-e v_181)))))" -"(define-values(false?)(lambda(v_182)(begin(eq?(correlated-e v_182) #f))))" +"(lambda(v_183)" +"(begin(if(pair?(correlated-e v_183))(correlated-e(correlated-cadr v_183))(correlated-e v_183)))))" +"(define-values(false?)(lambda(v_184)(begin(eq?(correlated-e v_184) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_183)(begin(if(quoted? exact-nonnegative-integer? v_183)(quoted-value v_183) #f))))" +"(lambda(v_185)(begin(if(quoted? exact-nonnegative-integer? v_185)(quoted-value v_185) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_184)" +"(lambda(v_186)" "(begin" -"(let-values(((or-part_240)(quoted? false? v_184)))" -"(if or-part_240" -" or-part_240" -"(let-values(((or-part_241)(if(quoted? symbol? v_184)(eq? 'prefab(quoted-value v_184)) #f)))" -"(if or-part_241" -" or-part_241" -"(if(= 1(correlated-length v_184))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_184))))" +"(let-values(((or-part_238)(quoted? false? v_186)))" +"(if or-part_238" +" or-part_238" +"(let-values(((or-part_239)(if(quoted? symbol? v_186)(eq? 'prefab(quoted-value v_186)) #f)))" +"(if or-part_239" +" or-part_239" +"(if(= 1(correlated-length v_186))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_186))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_185 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_187 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_242)(quoted? null? v_185)))" -"(if or-part_242" -" or-part_242" -"(let-values(((or-part_243)(eq? 'null(correlated-e v_185))))" -"(if or-part_243" -" or-part_243" -"(if(pair?(correlated-e v_185))" -"(if(eq?(correlated-e(car(correlated-e v_185))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_185))))" +"(let-values(((or-part_240)(quoted? null? v_187)))" +"(if or-part_240" +" or-part_240" +"(let-values(((or-part_241)(eq? 'null(correlated-e v_187))))" +"(if or-part_241" +" or-part_241" +"(if(pair?(correlated-e v_187))" +"(if(eq?(correlated-e(car(correlated-e v_187))) 'list)" +"(if(let-values(((lst_251)(cdr(correlated->list v_187))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -33068,9 +33082,9 @@ static const char *startup_source = " #t" " lst_251)))" "(=" -"(sub1(correlated-length v_185))" +"(sub1(correlated-length v_187))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_185))))" +"(let-values(((lst_253)(cdr(correlated->list v_187))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -33117,12 +33131,12 @@ static const char *startup_source = "(let-values(((tmp_28) prop-name_0))" "(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_244)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_244 or-part_244(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_242)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_242 or-part_242(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_245)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_245 or-part_245(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_243)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_243 or-part_243(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_28 'prop:equal+hash)" @@ -33163,26 +33177,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_246)" +"(let-values(((or-part_244)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_247)(not arity_0)))" -"(if or-part_247 or-part_247(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_245)(not arity_0)))" +"(if or-part_245 or-part_245(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_246" -" or-part_246" -"(let-values(((or-part_248)" +"(if or-part_244" +" or-part_244" +"(let-values(((or-part_246)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_248" -" or-part_248" +"(if or-part_246" +" or-part_246" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_249)(not arity_0)))" -"(if or-part_249" -" or-part_249" +"(let-values(((or-part_247)(not arity_0)))" +"(if or-part_247" +" or-part_247" "((letrec-values(((loop_94)" "(lambda(args_4 arity_1)" "(begin" @@ -33203,9 +33217,9 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_41 n_26)" "(begin" -"(let-values(((or-part_250)(equal? a_41 n_26)))" -"(if or-part_250" -" or-part_250" +"(let-values(((or-part_248)(equal? a_41 n_26)))" +"(if or-part_248" +" or-part_248" "(if(list? a_41)" "(let-values(((lst_254) a_41))" "(begin" @@ -33246,28 +33260,28 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_186)(correlated-cadr e_67)))" -"(let-values(((or-part_251)" -"(if(correlated-length v_186)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_186))))" +"(let-values(((v_188)(correlated-cadr e_67)))" +"(let-values(((or-part_249)" +"(if(correlated-length v_188)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_188))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_251 or-part_251 fail-v_0))))" +"(if or-part_249 or-part_249 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_68 field-count_1)" "(begin" -"(let-values(((or-part_252)(quoted? false? e_68)))" -"(if or-part_252" -" or-part_252" -"(let-values(((or-part_253)" +"(let-values(((or-part_250)(quoted? false? e_68)))" +"(if or-part_250" +" or-part_250" +"(let-values(((or-part_251)" "(if(quoted? exact-nonnegative-integer? e_68)" "(if field-count_1(<(quoted-value e_68) field-count_1) #f)" " #f)))" -"(if or-part_253 or-part_253(is-lambda? e_68 #f '#hasheq()))))))))" +"(if or-part_251 or-part_251(is-lambda? e_68 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_69 init-field-count-expr_1)" @@ -33305,16 +33319,16 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_70)))" "(let-values(((a_43)" -"(if(let-values(((or-part_254)(=(length l_63) 3)))" -"(if or-part_254 or-part_254(=(length l_63) 4)))" -"(let-values(((or-part_255)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_255 or-part_255(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_252)(=(length l_63) 3)))" +"(if or-part_252 or-part_252(=(length l_63) 4)))" +"(let-values(((or-part_253)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_253 or-part_253(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_43)" "(if(eq?(known-struct-op-type a_43) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_43))" -"(let-values(((or-part_256)(=(length l_63) 3)))" -"(if or-part_256 or-part_256(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_254)(=(length l_63) 3)))" +"(if or-part_254 or-part_254(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" @@ -33687,9 +33701,9 @@ static const char *startup_source = "(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_72)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_209)(bound-identifier=?$1 id_54 m-id_0 phase_72)))" -"(if or-part_209" -" or-part_209" +"(let-values(((or-part_207)(bound-identifier=?$1 id_54 m-id_0 phase_72)))" +"(if or-part_207" +" or-part_207" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_72)" " #f)))))))" @@ -33699,9 +33713,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_87))" -"(let-values(((or-part_257)(not top-level-bind-scope_5)))" -"(if or-part_257" -" or-part_257" +"(let-values(((or-part_255)(not top-level-bind-scope_5)))" +"(if or-part_255" +" or-part_255" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33736,9 +33750,9 @@ static const char *startup_source = "(lambda(defined-syms_9 phase_77 sym_63 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_218)(hash-ref defined-syms_9 phase_77 #f)))" -"(if or-part_218" -" or-part_218" +"(let-values(((or-part_216)(hash-ref defined-syms_9 phase_77 #f)))" +"(if or-part_216" +" or-part_216" "(let-values(((ht_121)(make-hasheq)))" "(begin(hash-set! defined-syms_9 phase_77 ht_121) ht_121))))))" "(hash-set! defined-syms-at-phase_1 sym_63 id_56)))))" @@ -33980,12 +33994,12 @@ static const char *startup_source = "(begin" "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_187) root-context_0))" -"(let-values(((the-struct_55) v_187))" -"(if(root-expand-context/outer? the-struct_55)" +"(let-values(((v_189) root-context_0))" +"(let-values(((the-struct_54) v_189))" +"(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_56)(root-expand-context/outer-inner v_187)))" -"(if(root-expand-context/inner? the-struct_56)" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_189)))" +"(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_2)" @@ -34000,20 +34014,20 @@ static const char *startup_source = " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_56)" -"(root-expand-context/inner-top-level-bind-scope the-struct_56)" +"(root-expand-context/inner-module-scopes the-struct_55)" +"(root-expand-context/inner-top-level-bind-scope the-struct_55)" " all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_56)" -"(root-expand-context/inner-counter the-struct_56)" -"(root-expand-context/inner-lift-key the-struct_56)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_56)))))" +"(root-expand-context/inner-defined-syms the-struct_55)" +"(root-expand-context/inner-counter the-struct_55)" +"(root-expand-context/inner-lift-key the-struct_55)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_55)))))" "(root-expand-context/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_55)" -"(root-expand-context/outer-post-expansion-shifts the-struct_55)" -"(root-expand-context/outer-use-site-scopes the-struct_55)" -"(root-expand-context/outer-frame-id the-struct_55)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_55)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_54)" +"(root-expand-context/outer-post-expansion-shifts the-struct_54)" +"(root-expand-context/outer-use-site-scopes the-struct_54)" +"(root-expand-context/outer-frame-id the-struct_54)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_54)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -34140,20 +34154,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_258)" +"(if(let-values(((or-part_256)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_258" -" or-part_258" -"(let-values(((or-part_259)" +"(if or-part_256" +" or-part_256" +"(let-values(((or-part_257)" "(if extra-inspector_6" "(inspector-superior?" " extra-inspector_6" " guard-insp_3)" " #f)))" -"(if or-part_259" -" or-part_259" +"(if or-part_257" +" or-part_257" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -34211,15 +34225,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_260)(module-access m_16)))" -"(if or-part_260 or-part_260(module-compute-access! m_16)))))" +"(let-values(((or-part_258)(module-access m_16)))" +"(if or-part_258 or-part_258(module-compute-access! m_16)))))" "(let-values(((a_45)(hash-ref(hash-ref access_3 phase_89 '#hasheq()) sym_65 'unexported)))" "(if(let-values(((or-part_34)(eq? a_45 'unexported)))" "(if or-part_34 or-part_34(eq? a_45 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_261)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_261 or-part_261(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_259)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_259 or-part_259(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -34290,7 +34304,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_99))" "(let-values(((table_180)" -"(let-values(((v_188)" +"(let-values(((v_190)" "(hash-ref" " h_1" " phase-level_17" @@ -34305,7 +34319,7 @@ static const char *startup_source = "(let-values(((table_182)" "(let-values(((table_111)" " table_181))" -"(if v_188" +"(if v_190" "(let-values(((table_183)" " table_111))" "(let-values(((table_184)" @@ -34316,7 +34330,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_188)))))" +" v_190)))))" "(hash-set" " table_183" " key_68" @@ -34935,9 +34949,9 @@ static const char *startup_source = "(force-syntax-deserialize)" "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" "(begin" -"(if(let-values(((or-part_262)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" -"(if or-part_262" -" or-part_262" +"(if(let-values(((or-part_260)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" +"(if or-part_260" +" or-part_260" "(eq? syntax-literals-data-instance_2 empty-syntax-literals-instance/empty-namespace)))" "(void)" "(let-values()" @@ -35601,9 +35615,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_216)(symbol? name_54)))" -"(if or-part_216" -" or-part_216" +"(if(let-values(((or-part_214)(symbol? name_54)))" +"(if or-part_214" +" or-part_214" "(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" @@ -35699,8 +35713,8 @@ static const char *startup_source = "(if non-star?_1(compiled-in-memory-post-compiled-in-memorys c_38) submods_1)))" "(let-values(((n-c_0)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" -"(let-values(((the-struct_48) n-c_0))" -"(if(compiled-in-memory? the-struct_48)" +"(let-values(((the-struct_47) n-c_0))" +"(if(compiled-in-memory? the-struct_47)" "(let-values(((pre-compiled-in-memorys3_0) pre-compiled-in-memorys_1)" "((post-compiled-in-memorys4_0) post-compiled-in-memorys_1)" "((linklet-directory5_0)" @@ -35718,19 +35732,19 @@ static const char *startup_source = "(rebuild-linklet-directory5.1 temp7_2 temp6_0 temp8_2))))" "(compiled-in-memory1.1" " linklet-directory5_0" -"(compiled-in-memory-original-self the-struct_48)" -"(compiled-in-memory-requires the-struct_48)" -"(compiled-in-memory-provides the-struct_48)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_48)" -"(compiled-in-memory-compile-time-inspector the-struct_48)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_48)" -"(compiled-in-memory-mpis the-struct_48)" -"(compiled-in-memory-syntax-literals the-struct_48)" +"(compiled-in-memory-original-self the-struct_47)" +"(compiled-in-memory-requires the-struct_47)" +"(compiled-in-memory-provides the-struct_47)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_47)" +"(compiled-in-memory-compile-time-inspector the-struct_47)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_47)" +"(compiled-in-memory-mpis the-struct_47)" +"(compiled-in-memory-syntax-literals the-struct_47)" " pre-compiled-in-memorys3_0" " post-compiled-in-memorys4_0" -"(compiled-in-memory-namespace-scopes the-struct_48)" -"(compiled-in-memory-purely-functional? the-struct_48)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_48))))))))" +"(compiled-in-memory-namespace-scopes the-struct_47)" +"(compiled-in-memory-purely-functional? the-struct_47)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_47))))))))" "(let-values()" "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" @@ -36082,8 +36096,8 @@ static const char *startup_source = "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_57) cctx_17))" -"(if(compile-context? the-struct_57)" +"(let-values(((the-struct_56) cctx_17))" +"(if(compile-context? the-struct_56)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -36091,17 +36105,17 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_57)" +"(compile-context-namespace the-struct_56)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_57)))" +"(compile-context-header the-struct_56)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_57)))))" +" the-struct_56)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" @@ -36591,10 +36605,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_178)" +"(let-values(((or-part_176)" " declaration-linklet_0))" -"(if or-part_178" -" or-part_178" +"(if or-part_176" +" or-part_176" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -38320,12 +38334,12 @@ static const char *startup_source = "(lambda(module-lifts_2 s_409 phase_102)" "(begin" "(begin" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_168)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_170" -" or-part_170" +"(if or-part_168" +" or-part_168" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" @@ -38841,7 +38855,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38857,13 +38871,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 's)" -"(make-struct-field-accessor -ref_68 1 'syms)" -"(make-struct-field-accessor -ref_68 2 'ids)" -"(make-struct-field-accessor -ref_68 3 'rhs))))" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 's)" +"(make-struct-field-accessor -ref_69 1 'syms)" +"(make-struct-field-accessor -ref_69 2 'ids)" +"(make-struct-field-accessor -ref_69 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -38908,9 +38922,9 @@ static const char *startup_source = "(let-values(((i_45)(unsafe-car lst_273))((rest_150)(unsafe-cdr lst_273)))" "(let-values(((fold-var_226)" "(let-values(((fold-var_227) fold-var_5))" -"(if(let-values(((or-part_263)(parsed? i_45)))" -"(if or-part_263" -" or-part_263" +"(if(let-values(((or-part_261)(parsed? i_45)))" +"(if or-part_261" +" or-part_261" "(let-values(((or-part_36)(expanded+parsed? i_45)))" "(if or-part_36" " or-part_36" @@ -38955,9 +38969,9 @@ static const char *startup_source = "(let-values(((i_37)(unsafe-car lst_280))((rest_157)(unsafe-cdr lst_280)))" "(let-values(((fold-var_86)" "(let-values(((fold-var_87) fold-var_159))" -"(if(let-values(((or-part_264)(syntax?$1 i_37)))" -"(if or-part_264" -" or-part_264" +"(if(let-values(((or-part_262)(syntax?$1 i_37)))" +"(if or-part_262" +" or-part_262" "(let-values(((or-part_25)(expanded+parsed? i_37)))" "(if or-part_25" " or-part_25" @@ -39100,7 +39114,7 @@ static const char *startup_source = "(expand-identifier)" "(lambda(s_413 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_265) alternate-id_1))(if or-part_265 or-part_265 s_413))))" +"(let-values(((id_60)(let-values(((or-part_263) alternate-id_1))(if or-part_263 or-part_263 s_413))))" "(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)" @@ -39384,14 +39398,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_59)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_266)(syntax-any-macro-scopes? s_59)))" -"(if or-part_266" -" or-part_266" -"(let-values(((or-part_214)" +"(if(let-values(((or-part_264)(syntax-any-macro-scopes? s_59)))" +"(if or-part_264" +" or-part_264" +"(let-values(((or-part_212)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_214" -" or-part_214" +"(if or-part_212" +" or-part_212" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39621,9 +39635,9 @@ static const char *startup_source = " id_64)" " #f))" "((temp197_0)" -"(let-values(((or-part_267)" +"(let-values(((or-part_265)" "(expand-context-only-immediate? ctx_23)))" -"(if or-part_267 or-part_267(1/rename-transformer? t_54))))" +"(if or-part_265 or-part_265(1/rename-transformer? t_54))))" "((temp198_0)" "(if(1/rename-transformer? t_54) fail-non-transformer_4 #f)))" "(expand9.1" @@ -39634,18 +39648,18 @@ static const char *startup_source = " re-ctx195_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_55 s_114 id_65 ctx_5 binding_22 primitive?_6 protected?_7)" +"(lambda(t_55 s_114 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" -"(if(expand-context-only-immediate? ctx_5)" +"(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_5)))" +"(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_114)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_21)(expand-context-observer ctx_5)))" +"(let-values(((obs_21)(expand-context-observer ctx_24)))" "(if obs_21" "(let-values()(let-values()(call-expand-observe obs_21 'variable s_114 id_65)))" "(void)))" @@ -39655,9 +39669,9 @@ static const char *startup_source = "(let-values(((id199_0) id_65)" "((t200_0) t_55)" "((temp201_0)" -"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_5))))" +"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" "(substitute-variable6.1 temp201_0 id199_0 t200_0))))" -"(if(if(expand-context-to-parsed? ctx_5)(free-id-set-empty?(expand-context-stops ctx_5)) #f)" +"(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" "(let-values(((insp_16)(syntax-inspector result-s_4)))" @@ -39668,7 +39682,7 @@ 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_5)))" +"(let-values(((obs_22)(expand-context-observer ctx_24)))" "(if obs_22" "(let-values()(let-values()(call-expand-observe obs_22 'return protected-result-s_0)))" "(void)))" @@ -39682,14 +39696,14 @@ static const char *startup_source = "(let-values(((insp-of-t_5) insp-of-t47_0))" "(let-values(((s_122) s48_1))" "(let-values(((id_32) id49_1))" -"(let-values(((ctx_24) ctx50_0))" +"(let-values(((ctx_25) ctx50_0))" "(let-values(((binding_23) binding51_0))" "(let-values(((origin-id_0) origin-id44_0))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_24)))" +"(let-values(((obs_23)(expand-context-observer ctx_25)))" "(if obs_23" "(let-values()" "(let-values()(call-expand-observe obs_23 'enter-macro s_122)))" @@ -39699,28 +39713,28 @@ static const char *startup_source = "(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_24 binding_23)))" +"(maybe-add-use-site-scope intro-s_0 ctx_25 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_56" " cleaned-s_0" -" ctx_24" +" ctx_25" " insp-of-t_5" " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" " id_32)))" "(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_24)))" +"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_268) origin-id_0))" -"(if or-part_268" -" or-part_268" +"(let-values(((or-part_266) origin-id_0))" +"(if or-part_266" +" or-part_266" "(if(syntax-identifier? s_122)" " s_122" "(car(syntax-e$1 s_122))))))))" @@ -39728,9 +39742,9 @@ static const char *startup_source = "(taint-dispatch" " tracked-s_0" "(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_122))" -"(expand-context-phase ctx_24))))" +"(expand-context-phase ctx_25))))" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_24)))" +"(let-values(((obs_24)(expand-context-observer ctx_25)))" "(if obs_24" "(let-values()" "(let-values()" @@ -39739,61 +39753,63 @@ static const char *startup_source = "(values" " rearmed-s_0" "(accumulate-def-ctx-scopes" -" ctx_24" +" ctx_25" " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_57 cleaned-s_1 ctx_25 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" +"(lambda(t_57 cleaned-s_1 ctx_26 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_25)))" +"(let-values(((obs_25)(expand-context-observer ctx_26)))" "(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_269)(expand-context-only-immediate? ctx_25)))" -"(if or-part_269" -" or-part_269" -"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_25))))))))" +"(let-values(((or-part_267)(expand-context-only-immediate? ctx_26)))" +"(if or-part_267" +" or-part_267" +"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" -"(if(expand-context-def-ctx-scopes ctx_25)" -"(not(null?(unbox(expand-context-def-ctx-scopes ctx_25))))" +"(if(expand-context-def-ctx-scopes ctx_26)" +"(not(null?(unbox(expand-context-def-ctx-scopes ctx_26))))" " #f)" " #f)" -"(accumulate-def-ctx-scopes ctx_25(expand-context-def-ctx-scopes ctx_25))" -" ctx_25)))" +"(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" +" ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_189) accum-ctx_0))" -"(let-values(((the-struct_58) v_189))" -"(if(expand-context/outer? the-struct_58)" -"(let-values(((current-introduction-scopes202_0)(cons intro-scope_1 use-scopes_1))" -"((def-ctx-scopes203_0)" +"(let-values(((v_191) accum-ctx_0))" +"(let-values(((the-struct_57) v_191))" +"(if(expand-context/outer? the-struct_57)" +"(let-values(((current-introduction-scopes202_0)(list intro-scope_1))" +"((current-use-scopes203_0) use-scopes_1)" +"((def-ctx-scopes204_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" -"(expand-context-def-ctx-scopes ctx_25)))" -"((inner204_0)(root-expand-context/outer-inner v_189)))" +"(expand-context-def-ctx-scopes ctx_26)))" +"((inner205_0)(root-expand-context/outer-inner v_191)))" "(expand-context/outer1.1" -" inner204_0" -"(root-expand-context/outer-post-expansion-scope the-struct_58)" -"(root-expand-context/outer-post-expansion-shifts the-struct_58)" -"(root-expand-context/outer-use-site-scopes the-struct_58)" -"(root-expand-context/outer-frame-id 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_58)" -"(expand-context/outer-scopes the-struct_58)" -" def-ctx-scopes203_0" -"(expand-context/outer-binding-layer the-struct_58)" -"(expand-context/outer-reference-records the-struct_58)" -"(expand-context/outer-only-immediate? the-struct_58)" -"(expand-context/outer-need-eventually-defined the-struct_58)" +" inner205_0" +"(root-expand-context/outer-post-expansion-scope the-struct_57)" +"(root-expand-context/outer-post-expansion-shifts 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)" +"(expand-context/outer-scopes the-struct_57)" +" def-ctx-scopes204_0" +"(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)" " current-introduction-scopes202_0" -"(expand-context/outer-name the-struct_58)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))" +" current-use-scopes203_0" +"(expand-context/outer-name the-struct_57)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -39803,15 +39819,15 @@ static const char *startup_source = " m-ctx_0" " 1/current-namespace" "(namespace->namespace-at-phase" -"(expand-context-namespace ctx_25)" -"(add1(expand-context-phase ctx_25)))" +"(expand-context-namespace ctx_26)" +"(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" " insp-of-t_6)" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_57) cleaned-s_1)))))))" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_25)))" +"(let-values(((obs_26)(expand-context-observer ctx_26)))" "(if obs_26" "(let-values()" "(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" @@ -39827,109 +39843,110 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_344 ctx_26 binding_24)" +"(lambda(s_345 ctx_27 binding_24)" "(begin" -"(if(if(root-expand-context-use-site-scopes ctx_26)" -"(matching-frame?(root-expand-context-frame-id ctx_26)(binding-frame-id binding_24))" +"(if(if(root-expand-context-use-site-scopes ctx_27)" +"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" " #f)" "(let-values()" "(let-values(((sc_32)(new-scope 'use-site)))" -"(let-values(((b_81)(root-expand-context-use-site-scopes ctx_26)))" -"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_344 sc_32)(list sc_32))))))" -"(let-values()(values s_344 null))))))" +"(let-values(((b_81)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_345 sc_32)(list sc_32))))))" +"(let-values()(values s_345 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_270)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_270 or-part_270(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_268)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_268 or-part_268(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_240 ctx_27)" +"(lambda(s_241 ctx_28)" "(begin" -"(if(root-expand-context-post-expansion-scope ctx_27)" +"(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" "(let-values(((new-s_1)" -"((expand-context-post-expansion-scope-action ctx_27)" -" s_240" -"(root-expand-context-post-expansion-scope ctx_27))))" -"(let-values(((new-s205_0) new-s_1)((temp206_0)(root-expand-context-post-expansion-shifts ctx_27)))" -"(syntax-add-shifts44.1 #f new-s205_0 temp206_0 #f))))" -"(let-values() s_240)))))" +"((expand-context-post-expansion-scope-action ctx_28)" +" s_241" +"(root-expand-context-post-expansion-scope ctx_28))))" +"(let-values(((new-s206_0) new-s_1)((temp207_0)(root-expand-context-post-expansion-shifts ctx_28)))" +"(syntax-add-shifts44.1 #f new-s206_0 temp207_0 #f))))" +"(let-values() s_241)))))" "(define-values" "(accumulate-def-ctx-scopes)" -"(lambda(ctx_28 def-ctx-scopes_3)" +"(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" -" ctx_28" -"(let-values(((v_190) ctx_28))" -"(let-values(((the-struct_59) v_190))" -"(if(expand-context/outer? the-struct_59)" -"(let-values(((scopes207_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_28)))" -"((inner208_0)(root-expand-context/outer-inner v_190)))" +" ctx_29" +"(let-values(((v_192) ctx_29))" +"(let-values(((the-struct_58) v_192))" +"(if(expand-context/outer? the-struct_58)" +"(let-values(((scopes208_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" +"((inner209_0)(root-expand-context/outer-inner v_192)))" "(expand-context/outer1.1" -" inner208_0" -"(root-expand-context/outer-post-expansion-scope the-struct_59)" -"(root-expand-context/outer-post-expansion-shifts the-struct_59)" -"(root-expand-context/outer-use-site-scopes the-struct_59)" -"(root-expand-context/outer-frame-id the-struct_59)" -"(expand-context/outer-context the-struct_59)" -"(expand-context/outer-env the-struct_59)" -"(expand-context/outer-post-expansion-scope-action the-struct_59)" -" scopes207_0" -"(expand-context/outer-def-ctx-scopes the-struct_59)" -"(expand-context/outer-binding-layer the-struct_59)" -"(expand-context/outer-reference-records the-struct_59)" -"(expand-context/outer-only-immediate? the-struct_59)" -"(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))))))))" +" inner209_0" +"(root-expand-context/outer-post-expansion-scope the-struct_58)" +"(root-expand-context/outer-post-expansion-shifts the-struct_58)" +"(root-expand-context/outer-use-site-scopes the-struct_58)" +"(root-expand-context/outer-frame-id 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_58)" +" scopes208_0" +"(expand-context/outer-def-ctx-scopes the-struct_58)" +"(expand-context/outer-binding-layer the-struct_58)" +"(expand-context/outer-reference-records the-struct_58)" +"(expand-context/outer-only-immediate? the-struct_58)" +"(expand-context/outer-need-eventually-defined the-struct_58)" +"(expand-context/outer-current-introduction-scopes the-struct_58)" +"(expand-context/outer-current-use-scopes the-struct_58)" +"(expand-context/outer-name the-struct_58)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))))" "(define-values" "(lookup62.1)" "(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)" "(begin" " 'lookup62" "(let-values(((b_82) b59_0))" -"(let-values(((ctx_29) ctx60_0))" -"(let-values(((id_38) id61_0))" +"(let-values(((ctx_30) ctx60_0))" +"(let-values(((id_67) id61_0))" "(let-values(((in-s_7) in55_0))" "(let-values(((out-of-context-as-variable?_1) out-of-context-as-variable?56_0))" "(let-values()" -"(let-values(((b209_0) b_82)" -"((temp210_0)(expand-context-env ctx_29))" -"((temp211_0)(expand-context-lift-envs ctx_29))" -"((temp212_0)(expand-context-namespace ctx_29))" -"((temp213_1)(expand-context-phase ctx_29))" -"((id214_0) id_38)" -"((in-s215_0) in-s_7)" -"((out-of-context-as-variable?216_0) out-of-context-as-variable?_1))" +"(let-values(((b210_0) b_82)" +"((temp211_0)(expand-context-env ctx_30))" +"((temp212_0)(expand-context-lift-envs ctx_30))" +"((temp213_1)(expand-context-namespace ctx_30))" +"((temp214_1)(expand-context-phase ctx_30))" +"((id215_0) id_67)" +"((in-s216_0) in-s_7)" +"((out-of-context-as-variable?217_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" -" in-s215_0" -" out-of-context-as-variable?216_0" -" b209_0" -" temp210_0" +" in-s216_0" +" out-of-context-as-variable?217_0" +" b210_0" " temp211_0" " temp212_0" " temp213_1" -" id214_0)))))))))))" +" temp214_1" +" id215_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_357 alternate-id_3)" +"(lambda(s_249 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_357)" -"(if(syntax-identifier? s_357)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_357) s_357))" +"(let-values() s_249)" +"(if(syntax-identifier? s_249)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_249) s_249))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_357)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_249)))" "(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_357)" -" s_357)" -" s_357))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_249)" +" s_249)" +" s_249))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39942,169 +39959,171 @@ static const char *startup_source = "(lambda(always-wrap?68_0 begin-form?66_0 expand-lifts?65_0 lift-key67_0 s73_0 ctx74_0)" "(begin" " 'expand/capture-lifts75" -"(let-values(((s_254) s73_0))" -"(let-values(((ctx_30) ctx74_0))" +"(let-values(((s_362) s73_0))" +"(let-values(((ctx_31) ctx74_0))" "(let-values(((expand-lifts?_0) expand-lifts?65_0))" "(let-values(((begin-form?_0) begin-form?66_0))" "(let-values(((lift-key_2)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))" "(let-values(((always-wrap?_0) always-wrap?68_0))" "(let-values()" -"(let-values(((context_6)(expand-context-context ctx_30)))" -"(let-values(((phase_104)(expand-context-phase ctx_30)))" +"(let-values(((context_6)(expand-context-context ctx_31)))" +"(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_95)" -"(lambda(s_364 always-wrap?_1 ctx_31)" +"(lambda(s_418 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" "(let-values(((lift-ctx_0)" -"(let-values(((temp217_1)" +"(let-values(((temp218_0)" "(if local?_0" "(make-local-lift" " lift-env_2" -"(root-expand-context-counter ctx_31))" -"(make-top-level-lift ctx_31)))" -"((temp218_0)" +"(root-expand-context-counter ctx_32))" +"(make-top-level-lift ctx_32)))" +"((temp219_0)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp218_0 temp217_1))))" +"(make-lift-context6.1 temp219_0 temp218_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_191) ctx_31))" -"(let-values(((the-struct_60) v_191))" -"(if(expand-context/outer? the-struct_60)" -"(let-values(((inner219_0)" -"(let-values(((the-struct_61)" +"(let-values(((v_193) ctx_32))" +"(let-values(((the-struct_59) v_193))" +"(if(expand-context/outer? the-struct_59)" +"(let-values(((inner220_0)" +"(let-values(((the-struct_60)" "(root-expand-context/outer-inner" -" v_191)))" +" v_193)))" "(if(expand-context/inner?" -" the-struct_61)" -"(let-values(((lift-key220_0)" +" the-struct_60)" +"(let-values(((lift-key221_0)" " lift-key_2)" -"((lifts221_0)" +"((lifts222_0)" " lift-ctx_0)" -"((lift-envs222_0)" +"((lift-envs223_0)" "(if local?_0" "(cons" " lift-env_2" "(expand-context-lift-envs" -" ctx_31))" +" ctx_32))" "(expand-context-lift-envs" -" ctx_31)))" -"((module-lifts223_0)" -"(if(let-values(((or-part_271)" +" ctx_32)))" +"((module-lifts224_0)" +"(if(let-values(((or-part_269)" " local?_0))" -"(if or-part_271" -" or-part_271" +"(if or-part_269" +" or-part_269" "(not" "(memq" " context_6" " '(top-level" " module)))))" "(expand-context-module-lifts" -" ctx_31)" +" ctx_32)" " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-module-scopes" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-defined-syms" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-counter" -" the-struct_61)" -" lift-key220_0" +" the-struct_60)" +" lift-key221_0" "(expand-context/inner-to-parsed?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-phase" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-namespace" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-just-once?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-module-begin-k" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-allow-unbound?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-in-local-expand?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-keep-#%expression?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-stops" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-declared-submodule-names" -" the-struct_61)" -" lifts221_0" -" lift-envs222_0" -" module-lifts223_0" +" the-struct_60)" +" lifts222_0" +" lift-envs223_0" +" module-lifts224_0" "(expand-context/inner-require-lifts" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-to-module-lifts" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-requires+provides" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-observer" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-for-serializable?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_61)))" +" the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_61)))))" +" the-struct_60)))))" "(expand-context/outer1.1" -" inner219_0" +" inner220_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_60)" +" the-struct_59)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_60)" +" the-struct_59)" "(root-expand-context/outer-use-site-scopes" -" the-struct_60)" +" the-struct_59)" "(root-expand-context/outer-frame-id" -" the-struct_60)" -"(expand-context/outer-context the-struct_60)" -"(expand-context/outer-env the-struct_60)" +" the-struct_59)" +"(expand-context/outer-context the-struct_59)" +"(expand-context/outer-env the-struct_59)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_60)" -"(expand-context/outer-scopes the-struct_60)" +" the-struct_59)" +"(expand-context/outer-scopes the-struct_59)" "(expand-context/outer-def-ctx-scopes" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-binding-layer" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-reference-records" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-only-immediate?" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-need-eventually-defined" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-current-introduction-scopes" -" the-struct_60)" -"(expand-context/outer-name the-struct_60)))" +" the-struct_59)" +"(expand-context/outer-current-use-scopes" +" the-struct_59)" +"(expand-context/outer-name the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_60))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_364)))" +" the-struct_59))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_418)))" "(let-values(((exp-s_2)" -"(let-values(((s224_0) s_364)" -"((capture-ctx225_0) capture-ctx_0))" -"(expand9.1 #f #f #f s224_0 capture-ctx225_0))))" +"(let-values(((s225_0) s_418)" +"((capture-ctx226_0) capture-ctx_0))" +"(expand9.1 #f #f #f s225_0 capture-ctx226_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_272)" +"(if(let-values(((or-part_116)" "(pair? lifts_6)))" -"(if or-part_272" -" or-part_272" +"(if or-part_116" +" or-part_116" " always-wrap?_1))" "(let-values()" -"(if(expand-context-to-parsed? ctx_31)" +"(if(expand-context-to-parsed? ctx_32)" "(let-values()" "(begin" "(if expand-lifts?_0" @@ -40116,38 +40135,38 @@ static const char *startup_source = " lifts_6" " exp-s_2" " rebuild-s_0" -" ctx_31" +" ctx_32" "(lambda(rhs_15 rhs-ctx_0)" "(loop_95 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" -"(let-values(((lifts226_0) lifts_6)" -"((exp-s227_0) exp-s_2)" -"((phase228_0)" +"(let-values(((lifts227_0) lifts_6)" +"((exp-s228_0) exp-s_2)" +"((phase229_0)" " phase_104))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" lifts226_0" -" exp-s227_0" -" phase228_0))" +" lifts227_0" +" exp-s228_0" +" phase229_0))" "(wrap-lifts-as-let" " lifts_6" " exp-s_2" " phase_104)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_273)(not expand-lifts?_0)))" -"(if or-part_273" -" or-part_273" -"(let-values(((or-part_274)(null? lifts_6)))" -"(if or-part_274" -" or-part_274" -"(expand-context-to-parsed? ctx_31)))))" +"(if(let-values(((or-part_270)(not expand-lifts?_0)))" +"(if or-part_270" +" or-part_270" +"(let-values(((or-part_271)(null? lifts_6)))" +"(if or-part_271" +" or-part_271" +"(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" "(begin" "(let-values(((obs_27)" -"(expand-context-observer ctx_31)))" +"(expand-context-observer ctx_32)))" "(if obs_27" "(let-values()" "(let-values()" @@ -40156,18 +40175,18 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_95 with-lifts-s_0 #f ctx_31)))))))))))))))" +"(loop_95 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_95)" -" s_254" +" s_362" " always-wrap?_0" -" ctx_30))))))))))))))" +" ctx_31))))))))))))))" "(define-values" "(expand-transformer92.1)" "(lambda(always-wrap?82_0 begin-form?79_0 context78_0 expand-lifts?80_0 keep-stops?83_0 lift-key81_0 s90_0 ctx91_0)" "(begin" " 'expand-transformer92" -"(let-values(((s_418) s90_0))" -"(let-values(((ctx_32) ctx91_0))" +"(let-values(((s_419) s90_0))" +"(let-values(((ctx_33) ctx91_0))" "(let-values(((context_7) context78_0))" "(let-values(((begin-form?_1) begin-form?79_0))" "(let-values(((expand-lifts?_1) expand-lifts?80_0))" @@ -40177,104 +40196,105 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((trans-ctx_0)" -"(let-values(((ctx235_0) ctx_32)" -"((context236_0) context_7)" -"((keep-stops?237_0) keep-stops?_0))" -"(context->transformer-context99.1 keep-stops?237_0 ctx235_0 context236_0))))" -"(let-values(((s229_0) s_418)" -"((trans-ctx230_0) trans-ctx_0)" -"((expand-lifts?231_0) expand-lifts?_1)" -"((begin-form?232_0) begin-form?_1)" -"((lift-key233_0) lift-key_3)" -"((always-wrap?234_0) always-wrap?_2))" +"(let-values(((ctx236_0) ctx_33)" +"((context237_0) context_7)" +"((keep-stops?238_0) keep-stops?_0))" +"(context->transformer-context99.1 keep-stops?238_0 ctx236_0 context237_0))))" +"(let-values(((s230_0) s_419)" +"((trans-ctx231_0) trans-ctx_0)" +"((expand-lifts?232_0) expand-lifts?_1)" +"((begin-form?233_0) begin-form?_1)" +"((lift-key234_0) lift-key_3)" +"((always-wrap?235_0) always-wrap?_2))" "(expand/capture-lifts75.1" -" always-wrap?234_0" -" begin-form?232_0" -" expand-lifts?231_0" -" lift-key233_0" -" s229_0" -" trans-ctx230_0))))))))))))))))" +" always-wrap?235_0" +" begin-form?233_0" +" expand-lifts?232_0" +" lift-key234_0" +" s230_0" +" trans-ctx231_0))))))))))))))))" "(define-values" "(context->transformer-context99.1)" "(lambda(keep-stops?95_0 ctx98_0 context97_0)" "(begin" " 'context->transformer-context99" -"(let-values(((ctx_33) ctx98_0))" +"(let-values(((ctx_34) ctx98_0))" "(let-values(((context_8) context97_0))" "(let-values(((keep-stops?_1) keep-stops?95_0))" "(let-values()" -"(let-values(((phase_105)(add1(expand-context-phase ctx_33))))" -"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_33) phase_105)))" +"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" "(namespace-visit-available-modules! ns_74 phase_105)" -"(let-values(((v_192) ctx_33))" -"(let-values(((the-struct_62) v_192))" -"(if(expand-context/outer? the-struct_62)" -"(let-values(((context238_0) context_8)" -"((scopes239_0) null)" -"((env240_0) empty-env)" -"((only-immediate?241_0)" -"(if keep-stops?_1(expand-context-only-immediate? ctx_33) #f))" -"((def-ctx-scopes242_0) #f)" -"((post-expansion-scope243_0) #f)" -"((inner244_0)" -"(let-values(((the-struct_63)(root-expand-context/outer-inner v_192)))" -"(if(expand-context/inner? the-struct_63)" -"(let-values(((phase245_0) phase_105)" -"((namespace246_0) ns_74)" -"((stops247_0)" +"(let-values(((v_194) ctx_34))" +"(let-values(((the-struct_61) v_194))" +"(if(expand-context/outer? the-struct_61)" +"(let-values(((context239_0) context_8)" +"((scopes240_0) null)" +"((env241_0) empty-env)" +"((only-immediate?242_0)" +"(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" +"((def-ctx-scopes243_0) #f)" +"((post-expansion-scope244_0) #f)" +"((inner245_0)" +"(let-values(((the-struct_62)(root-expand-context/outer-inner v_194)))" +"(if(expand-context/inner? the-struct_62)" +"(let-values(((phase246_0) phase_105)" +"((namespace247_0) ns_74)" +"((stops248_0)" "(if keep-stops?_1" -"(expand-context-stops ctx_33)" +"(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_63)" -"(root-expand-context/inner-module-scopes the-struct_63)" -"(root-expand-context/inner-top-level-bind-scope the-struct_63)" -"(root-expand-context/inner-all-scopes-stx the-struct_63)" -"(root-expand-context/inner-defined-syms the-struct_63)" -"(root-expand-context/inner-counter the-struct_63)" -"(root-expand-context/inner-lift-key the-struct_63)" -"(expand-context/inner-to-parsed? the-struct_63)" -" phase245_0" -" namespace246_0" -"(expand-context/inner-just-once? the-struct_63)" -"(expand-context/inner-module-begin-k the-struct_63)" -"(expand-context/inner-allow-unbound? the-struct_63)" -"(expand-context/inner-in-local-expand? the-struct_63)" -"(expand-context/inner-keep-#%expression? the-struct_63)" -" stops247_0" -"(expand-context/inner-declared-submodule-names the-struct_63)" -"(expand-context/inner-lifts the-struct_63)" -"(expand-context/inner-lift-envs the-struct_63)" -"(expand-context/inner-module-lifts the-struct_63)" -"(expand-context/inner-require-lifts the-struct_63)" -"(expand-context/inner-to-module-lifts the-struct_63)" -"(expand-context/inner-requires+provides the-struct_63)" -"(expand-context/inner-observer the-struct_63)" -"(expand-context/inner-for-serializable? the-struct_63)" -"(expand-context/inner-should-not-encounter-macros? the-struct_63)))" +"(root-expand-context/inner-self-mpi the-struct_62)" +"(root-expand-context/inner-module-scopes the-struct_62)" +"(root-expand-context/inner-top-level-bind-scope the-struct_62)" +"(root-expand-context/inner-all-scopes-stx the-struct_62)" +"(root-expand-context/inner-defined-syms the-struct_62)" +"(root-expand-context/inner-counter the-struct_62)" +"(root-expand-context/inner-lift-key the-struct_62)" +"(expand-context/inner-to-parsed? the-struct_62)" +" phase246_0" +" namespace247_0" +"(expand-context/inner-just-once? the-struct_62)" +"(expand-context/inner-module-begin-k the-struct_62)" +"(expand-context/inner-allow-unbound? the-struct_62)" +"(expand-context/inner-in-local-expand? the-struct_62)" +"(expand-context/inner-keep-#%expression? the-struct_62)" +" stops248_0" +"(expand-context/inner-declared-submodule-names the-struct_62)" +"(expand-context/inner-lifts the-struct_62)" +"(expand-context/inner-lift-envs the-struct_62)" +"(expand-context/inner-module-lifts the-struct_62)" +"(expand-context/inner-require-lifts the-struct_62)" +"(expand-context/inner-to-module-lifts the-struct_62)" +"(expand-context/inner-requires+provides the-struct_62)" +"(expand-context/inner-observer the-struct_62)" +"(expand-context/inner-for-serializable? the-struct_62)" +"(expand-context/inner-should-not-encounter-macros? the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_63)))))" +" the-struct_62)))))" "(expand-context/outer1.1" -" inner244_0" -" post-expansion-scope243_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_62)" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" -" context238_0" -" env240_0" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" -" scopes239_0" -" def-ctx-scopes242_0" -"(expand-context/outer-binding-layer the-struct_62)" -"(expand-context/outer-reference-records the-struct_62)" -" only-immediate?241_0" -"(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_62))))))))))))))" +" inner245_0" +" post-expansion-scope244_0" +"(root-expand-context/outer-post-expansion-shifts the-struct_61)" +"(root-expand-context/outer-use-site-scopes the-struct_61)" +"(root-expand-context/outer-frame-id the-struct_61)" +" context239_0" +" env241_0" +"(expand-context/outer-post-expansion-scope-action the-struct_61)" +" scopes240_0" +" def-ctx-scopes243_0" +"(expand-context/outer-binding-layer the-struct_61)" +"(expand-context/outer-reference-records the-struct_61)" +" only-immediate?242_0" +"(expand-context/outer-need-eventually-defined the-struct_61)" +"(expand-context/outer-current-introduction-scopes the-struct_61)" +"(expand-context/outer-current-use-scopes the-struct_61)" +"(expand-context/outer-name the-struct_61)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding108.1)" "(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)" @@ -40283,11 +40303,11 @@ static const char *startup_source = "(let-values(((who_16) who104_0))" "(let-values(((rhs_16) rhs105_0))" "(let-values(((ids_19) ids106_0))" -"(let-values(((ctx_34) ctx107_0))" +"(let-values(((ctx_35) ctx107_0))" "(let-values(((log-next?_0) log-next?102_0))" "(let-values()" "(let-values(((exp-rhs_0)" -"(let-values(((rhs248_0) rhs_16)((temp249_1)(as-named-context ctx_34 ids_19)))" +"(let-values(((rhs249_0) rhs_16)((temp250_1)(as-named-context ctx_35 ids_19)))" "(expand-transformer92.1" " #f" " #f" @@ -40295,21 +40315,21 @@ static const char *startup_source = " #t" " #f" " unsafe-undefined" -" rhs248_0" -" temp249_1))))" -"(let-values(((phase_48)(add1(expand-context-phase ctx_34))))" +" rhs249_0" +" temp250_1))))" +"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" -"(if(expand-context-to-parsed? ctx_34)" +"(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" -"(let-values(((exp-rhs250_0) exp-rhs_0)" -"((temp251_0)" -"(let-values(((temp252_0)(as-to-parsed-context ctx_34)))" -"(context->transformer-context99.1 #f temp252_0 'expression))))" -"(expand9.1 #f #f #f exp-rhs250_0 temp251_0)))))" +"(let-values(((exp-rhs251_0) exp-rhs_0)" +"((temp252_0)" +"(let-values(((temp253_0)(as-to-parsed-context ctx_35)))" +"(context->transformer-context99.1 #f temp253_0 'expression))))" +"(expand9.1 #f #f #f exp-rhs251_0 temp252_0)))))" "(begin" "(if log-next?_0" "(let-values()" -"(let-values(((obs_28)(expand-context-observer ctx_34)))" +"(let-values(((obs_28)(expand-context-observer ctx_35)))" "(if obs_28(let-values()(let-values()(call-expand-observe obs_28 'next)))(void))))" "(void))" "(values" @@ -40319,28 +40339,28 @@ static const char *startup_source = " who_16" " ids_19" " parsed-rhs_0" -" phase_48" -"(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_48)" -" ctx_34)))))))))))))))" +" phase_106" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" +" ctx_35)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" -"(lambda(who_17 rhs_17 ids_20 ctx_35)" +"(lambda(who_17 rhs_17 ids_20 ctx_36)" "(begin" "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((who253_0) who_17)((rhs254_0) rhs_17)((ids255_0) ids_20)((ctx256_0) ctx_35))" -"(expand+eval-for-syntaxes-binding108.1 #t who253_0 rhs254_0 ids255_0 ctx256_0))))" +"(let-values(((who254_0) who_17)((rhs255_0) rhs_17)((ids256_0) ids_20)((ctx257_0) ctx_36))" +"(expand+eval-for-syntaxes-binding108.1 #t who254_0 rhs255_0 ids256_0 ctx257_0))))" " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_49 phase_106 ns_75 ctx_36)" +"(lambda(who_18 ids_21 p_49 phase_107 ns_75 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_36))" +"(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_49" -"(let-values(((ns257_0) ns_75)((phase258_0) phase_106))" -"(make-compile-context14.1 #f unsafe-undefined #f ns257_0 phase258_0 unsafe-undefined))))))" +"(let-values(((ns258_0) ns_75)((phase259_0) phase_107))" +"(make-compile-context14.1 #f unsafe-undefined #f ns258_0 phase259_0 unsafe-undefined))))))" "(let-values(((vals_4)" "(call-with-values" "(lambda()" @@ -40349,7 +40369,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-expand-context" -" ctx_36" +" ctx_37" " 1/current-namespace" " ns_75" " eval-jit-enabled" @@ -40357,7 +40377,7 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_75)" -"(direct-eval p_49 ns_75(root-expand-context-self-mpi ctx_36))))))" +"(direct-eval p_49 ns_75(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" @@ -40376,72 +40396,72 @@ static const char *startup_source = " (if (pair? (cdr ids_21)) \" ...\" \"\"))))" " vals_4)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_419)(begin(datum->syntax$1 #f 'props s_419 s_419))))" -"(define-values(keep-properties-only~)(lambda(s_420)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_420)(begin(datum->syntax$1 #f 'props s_420 s_420))))" +"(define-values(keep-properties-only~)(lambda(s_421)(begin #f)))" "(define-values" "(keep-as-needed119.1)" "(lambda(for-track?111_0 keep-for-error?113_0 keep-for-parsed?112_0 ctx117_0 s118_0)" "(begin" " 'keep-as-needed119" -"(let-values(((ctx_37) ctx117_0))" -"(let-values(((s_421) s118_0))" +"(let-values(((ctx_38) ctx117_0))" +"(let-values(((s_422) s118_0))" "(let-values()" "(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))" "(let-values(((keep-for-error?_0) keep-for-error?113_0))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_421)))" +"(let-values(((d_33)(syntax-e$1 s_422)))" "(let-values(((keep-e_0)" "(if(symbol? d_33)" "(let-values() d_33)" "(if(if(pair? d_33)(syntax-identifier?(car d_33)) #f)" "(let-values()(syntax-e$1(car d_33)))" "(let-values() #f)))))" -"(if(expand-context-to-parsed? ctx_37)" +"(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_275) keep-for-parsed?_0))" -"(if or-part_275 or-part_275 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_421 s_421)" +"(if(let-values(((or-part_272) keep-for-parsed?_0))" +"(if or-part_272 or-part_272 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_422 s_422)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_421) keep-e_0 s_421 s_421)" -" s_421))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_422) keep-e_0 s_422 s_422)" +" s_422))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_422 trans-idss_0)" +"(lambda(s_423 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_422)" +"(let-values() s_423)" "(let-values()" "(syntax-property$1" -" s_422" +" s_423" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_276)(syntax-property$1 s_422 'disappeared-binding)))" -"(if or-part_276 or-part_276 null)))))))))" +"(let-values(((or-part_273)(syntax-property$1 s_423 'disappeared-binding)))" +"(if or-part_273 or-part_273 null)))))))))" "(define-values" "(increment-binding-layer)" -"(lambda(ids_22 ctx_38 layer-val_0)" +"(lambda(ids_22 ctx_39 layer-val_0)" "(begin" "(if((letrec-values(((loop_96)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_277)(identifier? ids_23)))" -"(if or-part_277" -" or-part_277" +"(let-values(((or-part_274)(identifier? ids_23)))" +"(if or-part_274" +" or-part_274" "(if(pair? ids_23)" -"(let-values(((or-part_278)(loop_96(car ids_23))))" -"(if or-part_278 or-part_278(loop_96(cdr ids_23))))" +"(let-values(((or-part_275)(loop_96(car ids_23))))" +"(if or-part_275 or-part_275(loop_96(cdr ids_23))))" " #f)))))))" " loop_96)" " ids_22)" " layer-val_0" -"(expand-context-binding-layer ctx_38)))))" +"(expand-context-binding-layer ctx_39)))))" "(define-values" "(wrap-lifts-as-parsed-let)" -"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_39 parse-rhs_0)" +"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_40 parse-rhs_0)" "(begin" "(let-values(((idss+keyss+rhss_0)(get-lifts-as-lists lifts_7)))" "((letrec-values(((lets-loop_0)" @@ -40462,10 +40482,10 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_193) rhs-ctx_1))" -"(let-values(((the-struct_64) v_193))" -"(if(expand-context/outer? the-struct_64)" -"(let-values(((env259_0)" +"(let-values(((v_183) rhs-ctx_1))" +"(let-values(((the-struct_63) v_183))" +"(if(expand-context/outer? the-struct_63)" +"(let-values(((env260_0)" "(let-values(((lst_281) ids_24)((lst_282) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -40483,7 +40503,7 @@ static const char *startup_source = "(if(if(pair? lst_283)" "(pair? lst_284)" " #f)" -"(let-values(((id_67)" +"(let-values(((id_68)" "(unsafe-car" " lst_283))" "((rest_158)" @@ -40504,7 +40524,7 @@ static const char *startup_source = " env_5" " key_80" "(local-variable1.1" -" id_67)))))" +" id_68)))))" "(values" " env_6)))))" "(if(not #f)" @@ -40518,49 +40538,50 @@ static const char *startup_source = "(expand-context-env rhs-ctx_1)" " lst_281" " lst_282))))" -"((inner260_0)(root-expand-context/outer-inner v_193)))" +"((inner261_0)(root-expand-context/outer-inner v_183)))" "(expand-context/outer1.1" -" inner260_0" -"(root-expand-context/outer-post-expansion-scope the-struct_64)" -"(root-expand-context/outer-post-expansion-shifts the-struct_64)" -"(root-expand-context/outer-use-site-scopes the-struct_64)" -"(root-expand-context/outer-frame-id the-struct_64)" -"(expand-context/outer-context the-struct_64)" -" env259_0" -"(expand-context/outer-post-expansion-scope-action the-struct_64)" -"(expand-context/outer-scopes the-struct_64)" -"(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-only-immediate? the-struct_64)" -"(expand-context/outer-need-eventually-defined the-struct_64)" -"(expand-context/outer-current-introduction-scopes the-struct_64)" -"(expand-context/outer-name the-struct_64)))" +" inner261_0" +"(root-expand-context/outer-post-expansion-scope the-struct_63)" +"(root-expand-context/outer-post-expansion-shifts the-struct_63)" +"(root-expand-context/outer-use-site-scopes the-struct_63)" +"(root-expand-context/outer-frame-id the-struct_63)" +"(expand-context/outer-context the-struct_63)" +" env260_0" +"(expand-context/outer-post-expansion-scope-action the-struct_63)" +"(expand-context/outer-scopes the-struct_63)" +"(expand-context/outer-def-ctx-scopes the-struct_63)" +"(expand-context/outer-binding-layer the-struct_63)" +"(expand-context/outer-reference-records the-struct_63)" +"(expand-context/outer-only-immediate? the-struct_63)" +"(expand-context/outer-need-eventually-defined the-struct_63)" +"(expand-context/outer-current-introduction-scopes the-struct_63)" +"(expand-context/outer-current-use-scopes the-struct_63)" +"(expand-context/outer-name the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64)))))))))))))))))" +" the-struct_63)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" -" ctx_39)))))" +" ctx_40)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_58 ctx_40)" +"(lambda(t_58 ctx_41)" "(begin" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_40)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" "(let-values()(1/rename-transformer-target t_58))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_68 id_68 phase_107 ctx_41)" +"(lambda(val_68 id_69 phase_108 ctx_42)" "(begin" "(if(1/rename-transformer? val_68)" "(let-values()" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" -"(let-values()(maybe-install-free=id! val_68 id_68 phase_107))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" +"(let-values()(maybe-install-free=id! val_68 id_69 phase_108))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40568,19 +40589,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_65) new-s_2))" -"(if(syntax?$1 the-struct_65)" -"(let-values(((srcloc261_0) srcloc_7))" +"(let-values(((the-struct_64) new-s_2))" +"(if(syntax?$1 the-struct_64)" +"(let-values(((srcloc262_0) srcloc_7))" "(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)" -" srcloc261_0" -"(syntax-props the-struct_65)" -"(syntax-inspector the-struct_65)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65)))" +"(syntax-content the-struct_64)" +"(syntax-scopes the-struct_64)" +"(syntax-shifted-multi-scopes the-struct_64)" +"(syntax-scope-propagations+tamper the-struct_64)" +"(syntax-mpi-shifts the-struct_64)" +" srcloc262_0" +"(syntax-props the-struct_64)" +"(syntax-inspector the-struct_64)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_64)))" " new-s_2)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -40645,9 +40666,9 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_108)" +"(lambda(phase_109)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_108)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" "(reverse$1" "(let-values(((lst_102) module-stop-syms))" "(begin" @@ -40746,20 +40767,20 @@ static const char *startup_source = " \"(or/c #f internal-definition-context?)\"" " parent-ctx_0)))" "(values))))" -"(let-values(((ctx_42)" +"(let-values(((ctx_43)" "(let-values(((temp47_0) 'syntax-local-make-definition-context))" "(get-current-expand-context16.1 #f temp47_0))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_65)(root-expand-context-frame-id ctx_42)))" +"(let-values(((or-part_65)(root-expand-context-frame-id ctx_43)))" "(if or-part_65" " or-part_65" -"(let-values(((or-part_226)" +"(let-values(((or-part_224)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_226 or-part_226(gensym)))))))" +"(if or-part_224 or-part_224(gensym)))))))" "(let-values(((sc_33)(new-scope 'intdef)))" -"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_42)))" +"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" "(if def-ctx-scopes_4" "(let-values()" @@ -40782,7 +40803,7 @@ static const char *startup_source = "(begin" " 'syntax-local-bind-syntaxes11" "(let-values(((ids_25) ids8_0))" -"(let-values(((s_423) s9_0))" +"(let-values(((s_424) s9_0))" "(let-values(((intdef_0) intdef10_0))" "(let-values(((extra-intdefs_0) extra-intdefs7_0))" "(let-values()" @@ -40798,14 +40819,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_98)(not s_423)))" -"(if or-part_98 or-part_98(syntax?$1 s_423)))" +"(if(let-values(((or-part_98)(not s_424)))" +"(if or-part_98 or-part_98(syntax?$1 s_424)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"(or/c syntax? #f)\"" -" s_423)))" +" s_424)))" "(values))))" "(let-values((()" "(begin" @@ -40827,19 +40848,19 @@ static const char *startup_source = " intdefs?-string" " extra-intdefs_0)))" "(values))))" -"(let-values(((ctx_43)" +"(let-values(((ctx_44)" "(let-values(((temp48_1) 'local-expand))" "(get-current-expand-context16.1 #f temp48_1))))" "(let-values((()" "(begin" -"(let-values(((obs_29)(expand-context-observer ctx_43)))" +"(let-values(((obs_29)(expand-context-observer ctx_44)))" "(if obs_29" "(let-values()" "(let-values()" "(call-expand-observe obs_29 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_7)(expand-context-phase ctx_43)))" +"(let-values(((phase_7)(expand-context-phase ctx_44)))" "(let-values(((all-intdefs_0)" "(if(list? extra-intdefs_0)" "(cons intdef_0 extra-intdefs_0)" @@ -40857,7 +40878,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_285)" -"(let-values(((id_69)" +"(let-values(((id_70)" "(unsafe-car" " lst_285))" "((rest_161)" @@ -40873,9 +40894,9 @@ static const char *startup_source = "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_69" -" ctx_43)" -" ctx_43)))" +" id_70" +" ctx_44)" +" ctx_44)))" "(let-values(((temp49_1)" "(let-values(((pre-id51_0)" " pre-id_0)" @@ -40910,7 +40931,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_30)" -"(expand-context-observer ctx_43)))" +"(expand-context-observer ctx_44)))" "(if obs_30" "(let-values()" "(let-values()" @@ -40952,7 +40973,7 @@ static const char *startup_source = " phase_7)" "((temp56_2)" "(root-expand-context-counter" -" ctx_43))" +" ctx_44))" "((temp57_0)" "(internal-definition-context-frame-id" " intdef_0)))" @@ -40975,11 +40996,11 @@ static const char *startup_source = " null" " lst_164))))))" "(let-values(((vals_5)" -"(if s_423" +"(if s_424" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s58_0) s_423)" +"(let-values(((s58_0) s_424)" "((all-intdefs59_0)" " all-intdefs_0))" "(add-intdef-scopes24.1" @@ -40987,7 +41008,7 @@ static const char *startup_source = " #f" " s58_0" " all-intdefs59_0))" -" ctx_43)))" +" ctx_44)))" "(let-values(((tmp-env_0)" "(let-values(((lst_286) syms_20))" "(begin" @@ -41028,13 +41049,13 @@ static const char *startup_source = " env_8)))" " env_7)))))" " for-loop_252)" -"(expand-context-env ctx_43)" +"(expand-context-env ctx_44)" " lst_286)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" "(expand-context-observer" -" ctx_43)))" +" ctx_44)))" "(if obs_31" "(let-values()" "(let-values()" @@ -41049,52 +41070,54 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp60_2)" -"(let-values(((v_194)" -" ctx_43))" -"(let-values(((the-struct_66)" -" v_194))" +"(let-values(((v_195)" +" ctx_44))" +"(let-values(((the-struct_65)" +" v_195))" "(if(expand-context/outer?" -" the-struct_66)" +" the-struct_65)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" "(root-expand-context/outer-inner" -" v_194)))" +" v_195)))" "(expand-context/outer1.1" " inner64_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_66)" +" the-struct_65)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_66)" +" the-struct_65)" "(root-expand-context/outer-use-site-scopes" -" the-struct_66)" +" the-struct_65)" "(root-expand-context/outer-frame-id" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-context" -" the-struct_66)" +" the-struct_65)" " env63_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-scopes" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-def-ctx-scopes" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-binding-layer" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-reference-records" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-only-immediate?" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-need-eventually-defined" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-current-introduction-scopes" -" the-struct_66)" +" the-struct_65)" +"(expand-context/outer-current-use-scopes" +" the-struct_65)" "(expand-context/outer-name" -" the-struct_66)))" +" the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))" +" the-struct_65)))))" "((temp61_1)" " 'expression)" "((all-intdefs62_0)" @@ -41111,7 +41134,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_32)" "(expand-context-observer" -" ctx_43)))" +" ctx_44)))" "(if obs_32" "(let-values()" "(let-values()" @@ -41134,7 +41157,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_288)" -"(let-values(((id_70)" +"(let-values(((id_71)" "(unsafe-car" " lst_288))" "((rest_164)" @@ -41225,7 +41248,7 @@ static const char *startup_source = " val_69" " intdef-id_1" " phase_7" -" ctx_43)" +" ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_73" @@ -41248,7 +41271,7 @@ static const char *startup_source = " lst_278" " lst_290))))" "(unbox env-mixins_0)))" -"(let-values(((obs_33)(expand-context-observer ctx_43)))" +"(let-values(((obs_33)(expand-context-observer ctx_44)))" "(if obs_33" "(let-values()" "(let-values()" @@ -41302,7 +41325,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce16" "(let-values(((intdef_4) intdef14_0))" -"(let-values(((s_424) s15_0))" +"(let-values(((s_425) s15_0))" "(let-values(((mode_13) mode13_0))" "(let-values()" "(begin" @@ -41313,11 +41336,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_4)))" -"(if(syntax?$1 s_424)" +"(if(syntax?$1 s_425)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_424)))" -"(let-values(((s65_0) s_424)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_425)))" +"(let-values(((s65_0) s_425)" "((intdef66_0) intdef_4)" "((temp67_1) #t)" "((temp68_1)" @@ -41351,15 +41374,15 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_71 intdef_8)" +"(lambda(id_72 intdef_8)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_71)" +"(if(identifier? id_72)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_206)(1/internal-definition-context? intdef_8)))" -"(if or-part_206 or-part_206(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" +"(if(let-values(((or-part_204)(1/internal-definition-context? intdef_8)))" +"(if or-part_204 or-part_204(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41374,35 +41397,35 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_256)" -"(lambda(id_72 a_47)" +"(lambda(id_73 a_47)" "(begin" " 'for-loop" "(if(pair? a_47)" "(let-values(((intdef_9)(car a_47)))" -"(let-values(((id_73)" -"(let-values(((id_74) id_72))" -"(let-values(((id_75)" +"(let-values(((id_74)" +"(let-values(((id_75) id_73))" +"(let-values(((id_76)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_9" -" id_74" +" id_75" " 'remove))))" -"(values id_75)))))" -"(if(not #f)(for-loop_256 id_73(cdr a_47)) id_73)))" -" id_72)))))" +"(values id_76)))))" +"(if(not #f)(for-loop_256 id_74(cdr a_47)) id_74)))" +" id_73)))))" " for-loop_256)" -" id_71" +" id_72" " x_75)))))))" "(define-values" "(intdefs?)" "(lambda(x_76)" "(begin" -"(let-values(((or-part_279)(1/internal-definition-context? x_76)))" -"(if or-part_279 or-part_279(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" +"(let-values(((or-part_276)(1/internal-definition-context? x_76)))" +"(if or-part_276 or-part_276(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_77)(begin(let-values(((or-part_280)(not x_77)))(if or-part_280 or-part_280(intdefs? x_77))))))" +"(lambda(x_77)(begin(let-values(((or-part_277)(not x_77)))(if or-part_277 or-part_277(intdefs? x_77))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41451,14 +41474,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_179)" +"(let-values(((or-part_177)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_179" -" or-part_179" +"(if or-part_177" +" or-part_177" "(let-values(((new-env_0)" "(env-extend" "(loop_97" @@ -41503,29 +41526,29 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_258)" -"(lambda(s_425 a_51)" +"(lambda(s_426 a_51)" "(begin" " 'for-loop" "(if(pair? a_51)" "(let-values(((intdef_11)(car a_51)))" "(let-values(((s_322)" -"(let-values(((s_71) s_425))" -"(if(let-values(((or-part_281) always?_0))" -"(if or-part_281" -" or-part_281" +"(let-values(((s_71) s_426))" +"(if(let-values(((or-part_278) always?_0))" +"(if or-part_278" +" or-part_278" "(internal-definition-context-add-scope?" " intdef_11)))" -"(let-values(((s_426) s_71))" -"(let-values(((s_427)" +"(let-values(((s_427) s_71))" +"(let-values(((s_428)" "(let-values()" "(action_0" -" s_426" +" s_427" "(internal-definition-context-scope" " intdef_11)))))" -"(values s_427)))" +"(values s_428)))" " s_71))))" "(if(not #f)(for-loop_258 s_322(cdr a_51)) s_322)))" -" s_425)))))" +" s_426)))))" " for-loop_258)" " s_39" " x_79)))))))))))" @@ -41541,9 +41564,9 @@ static const char *startup_source = " ctx41_0)" "(begin" " 'make-local-expand-context42" -"(let-values(((ctx_2) ctx41_0))" +"(let-values(((ctx_45) ctx41_0))" "(let-values(((context_9) context27_0))" -"(let-values(((phase_109)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_2) phase28_1)))" +"(let-values(((phase_110)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" "(let-values(((intdefs_2) intdefs29_0))" "(let-values(((stop-ids_1) stop-ids30_0))" "(let-values(((to-parsed-ok?_0) to-parsed-ok?31_0))" @@ -41551,30 +41574,30 @@ static const char *startup_source = "(let-values(((keep-#%expression?_1) keep-#%expression?33_0))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_282)(eq? context_9(expand-context-context ctx_2))))" -"(if or-part_282" -" or-part_282" -"(if(list? context_9)(list?(expand-context-context ctx_2)) #f)))))" +"(let-values(((or-part_279)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_279" +" or-part_279" +"(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_109) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_110) #f)))" "(let-values(((def-ctx-scopes_5)" -"(if(expand-context-def-ctx-scopes ctx_2)" -"(unbox(expand-context-def-ctx-scopes ctx_2))" +"(if(expand-context-def-ctx-scopes ctx_45)" +"(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_195) ctx_2))" -"(let-values(((the-struct_67) v_195))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((v_196) ctx_45))" +"(let-values(((the-struct_66) v_196))" +"(if(expand-context/outer? the-struct_66)" "(let-values(((context69_0) context_9)" -"((env70_0)(add-intdef-bindings(expand-context-env ctx_2) intdefs_2))" +"((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes71_0)" -"(if(let-values(((or-part_283)(eq? context_9 'module)))" -"(if or-part_283" -" or-part_283" +"(if(let-values(((or-part_280)(eq? context_9 'module)))" +"(if or-part_280" +" or-part_280" "(let-values(((or-part_132)(eq? context_9 'module-begin)))" "(if or-part_132 or-part_132(list? context_9)))))" -"(let-values(((or-part_284)" -"(root-expand-context-use-site-scopes ctx_2)))" -"(if or-part_284 or-part_284(box null)))" +"(let-values(((or-part_281)" +"(root-expand-context-use-site-scopes ctx_45)))" +"(if or-part_281 or-part_281(box null)))" " #f))" "((frame-id72_0)" "(let-values(((x_80)" @@ -41611,10 +41634,10 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_285)" +"(let-values(((or-part_282)" " frame-id_11))" -"(if or-part_285" -" or-part_285" +"(if or-part_282" +" or-part_282" " i-frame-id_0))))))))" "(values" " frame-id_12)))))" @@ -41623,19 +41646,19 @@ static const char *startup_source = " frame-id_10)))" " frame-id_9)))))" " for-loop_40)" -"(root-expand-context-frame-id ctx_2)" +"(root-expand-context-frame-id ctx_45)" " x_80))))" "((post-expansion-scope73_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" "(new-scope 'macro)" "(if same-kind?_0" "(if(memq context_9 '(module module-begin top-level))" -"(root-expand-context-post-expansion-scope ctx_2)" +"(root-expand-context-post-expansion-scope ctx_45)" " #f)" " #f)))" "((post-expansion-shifts74_0)" "(if(if same-kind?_0(eq? context_9 'top-level) #f)" -"(root-expand-context-post-expansion-shifts ctx_2)" +"(root-expand-context-post-expansion-shifts ctx_45)" " null))" "((post-expansion-scope-action75_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" @@ -41648,64 +41671,64 @@ static const char *startup_source = " #f" " s81_0" " intdefs82_0))))" -"(expand-context-post-expansion-scope-action ctx_2)))" -"((scopes76_0)(append def-ctx-scopes_5(expand-context-scopes ctx_2)))" +"(expand-context-post-expansion-scope-action ctx_45)))" +"((scopes76_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" "((only-immediate?77_0)(not stop-ids_1))" "((current-introduction-scopes78_0) null)" "((need-eventually-defined79_0)" "(let-values(((ht_134)" -"(expand-context-need-eventually-defined ctx_2)))" +"(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" "(let-values() ht_134)" "(if ht_134(let-values()(make-hasheqv))(let-values() #f)))))" "((inner80_0)" -"(let-values(((the-struct_68)" -"(root-expand-context/outer-inner v_195)))" -"(if(expand-context/inner? the-struct_68)" +"(let-values(((the-struct_67)" +"(root-expand-context/outer-inner v_196)))" +"(if(expand-context/inner? the-struct_67)" "(let-values(((to-parsed?83_0)" "(if to-parsed-ok?_0" -"(expand-context-to-parsed? ctx_2)" +"(expand-context-to-parsed? ctx_45)" " #f))" "((just-once?84_0) #f)" "((in-local-expand?85_0) #t)" "((keep-#%expression?86_0) keep-#%expression?_1)" "((stops87_0)" "(free-id-set" -" phase_109" -"(let-values(((or-part_286) all-stop-ids_0))" -"(if or-part_286 or-part_286 null)))))" +" phase_110" +"(let-values(((or-part_283) all-stop-ids_0))" +"(if or-part_283 or-part_283 null)))))" "(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)" +"(root-expand-context/inner-self-mpi the-struct_67)" +"(root-expand-context/inner-module-scopes the-struct_67)" +"(root-expand-context/inner-top-level-bind-scope the-struct_67)" +"(root-expand-context/inner-all-scopes-stx the-struct_67)" +"(root-expand-context/inner-defined-syms the-struct_67)" +"(root-expand-context/inner-counter the-struct_67)" +"(root-expand-context/inner-lift-key the-struct_67)" " to-parsed?83_0" -"(expand-context/inner-phase the-struct_68)" -"(expand-context/inner-namespace the-struct_68)" +"(expand-context/inner-phase the-struct_67)" +"(expand-context/inner-namespace the-struct_67)" " just-once?84_0" -"(expand-context/inner-module-begin-k the-struct_68)" -"(expand-context/inner-allow-unbound? the-struct_68)" +"(expand-context/inner-module-begin-k the-struct_67)" +"(expand-context/inner-allow-unbound? the-struct_67)" " in-local-expand?85_0" " keep-#%expression?86_0" " stops87_0" -"(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-declared-submodule-names the-struct_67)" +"(expand-context/inner-lifts the-struct_67)" +"(expand-context/inner-lift-envs the-struct_67)" +"(expand-context/inner-module-lifts the-struct_67)" +"(expand-context/inner-require-lifts the-struct_67)" +"(expand-context/inner-to-module-lifts the-struct_67)" +"(expand-context/inner-requires+provides the-struct_67)" +"(expand-context/inner-observer the-struct_67)" +"(expand-context/inner-for-serializable? the-struct_67)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_68)))" +" the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_68)))))" +" the-struct_67)))))" "(expand-context/outer1.1" " inner80_0" " post-expansion-scope73_0" @@ -41716,20 +41739,25 @@ static const char *startup_source = " env70_0" " post-expansion-scope-action75_0" " scopes76_0" -"(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-def-ctx-scopes the-struct_66)" +"(expand-context/outer-binding-layer the-struct_66)" +"(expand-context/outer-reference-records the-struct_66)" " only-immediate?77_0" " need-eventually-defined79_0" " current-introduction-scopes78_0" -"(expand-context/outer-name the-struct_67)))" +"(expand-context/outer-current-use-scopes the-struct_66)" +"(expand-context/outer-name the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67)))))))))))))))))))" +" the-struct_66)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_129 ctx_44)(begin(flip-scopes s_129(expand-context-current-introduction-scopes ctx_44)))))" +"(lambda(s_129 ctx_46)(begin(flip-scopes s_129(expand-context-current-introduction-scopes ctx_46)))))" +"(define-values" +"(flip-introduction-and-use-scopes)" +"(lambda(s_429 ctx_47)" +"(begin(flip-scopes(flip-introduction-scopes s_429 ctx_47)(expand-context-current-use-scopes ctx_47)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41741,72 +41769,72 @@ static const char *startup_source = "(lambda()" "(begin" " 'syntax-transforming-with-lifts?" -"(let-values(((ctx_45)(let-values(((temp56_3) #t))(get-current-expand-context16.1 temp56_3 'unexpected))))" -"(if ctx_45(if(expand-context-lifts ctx_45) #t #f) #f)))))" +"(let-values(((ctx_48)(let-values(((temp56_3) #t))(get-current-expand-context16.1 temp56_3 'unexpected))))" +"(if ctx_48(if(expand-context-lifts ctx_48) #t #f) #f)))))" "(define-values" "(1/syntax-transforming-module-expression?)" "(lambda()" "(begin" " 'syntax-transforming-module-expression?" -"(let-values(((ctx_46)(let-values(((temp57_1) #t))(get-current-expand-context16.1 temp57_1 'unexpected))))" -"(if ctx_46(if(expand-context-to-module-lifts ctx_46) #t #f) #f)))))" +"(let-values(((ctx_49)(let-values(((temp57_1) #t))(get-current-expand-context16.1 temp57_1 'unexpected))))" +"(if ctx_49(if(expand-context-to-module-lifts ctx_49) #t #f) #f)))))" "(define-values" "(1/syntax-local-transforming-module-provides?)" "(lambda()" "(begin" " 'syntax-local-transforming-module-provides?" -"(let-values(((ctx_47)(let-values(((temp58_1) #t))(get-current-expand-context16.1 temp58_1 'unexpected))))" -"(if ctx_47(if(expand-context-requires+provides ctx_47) #t #f) #f)))))" +"(let-values(((ctx_50)(let-values(((temp58_1) #t))(get-current-expand-context16.1 temp58_1 'unexpected))))" +"(if ctx_50(if(expand-context-requires+provides ctx_50) #t #f) #f)))))" "(define-values" "(1/syntax-local-context)" "(lambda()" "(begin" " 'syntax-local-context" -"(let-values(((ctx_48)" +"(let-values(((ctx_51)" "(let-values(((temp59_3) 'syntax-local-context))(get-current-expand-context16.1 #f temp59_3))))" -"(expand-context-context ctx_48)))))" +"(expand-context-context ctx_51)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_428)" +"(lambda(s_430)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_428)" +"(if(syntax?$1 s_430)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_428)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_430)))" "(values))))" "(let-values(((ctx_9)" "(let-values(((temp61_2) 'syntax-local-introduce))" "(get-current-expand-context16.1 #f temp61_2))))" -"(flip-introduction-scopes s_428 ctx_9))))))))" +"(flip-introduction-and-use-scopes s_430 ctx_9))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_76)" +"(lambda(id_77)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_76)" +"(if(identifier? id_77)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_76)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_77)))" "(values))))" -"(let-values(((ctx_49)" +"(let-values(((ctx_52)" "(let-values(((temp63_2) 'syntax-local-identifier-as-binding))" "(get-current-expand-context16.1 #f temp63_2))))" -"(remove-use-site-scopes id_76 ctx_49))))))))" +"(remove-use-site-scopes id_77 ctx_52))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" "(begin" " 'syntax-local-phase-level" -"(let-values(((ctx_50)(let-values(((temp64_2) #t))(get-current-expand-context16.1 temp64_2 'unexpected))))" -"(if ctx_50(expand-context-phase ctx_50) 0)))))" +"(let-values(((ctx_53)(let-values(((temp64_2) #t))(get-current-expand-context16.1 temp64_2 'unexpected))))" +"(if ctx_53(expand-context-phase ctx_53) 0)))))" "(define-values" "(1/syntax-local-name)" "(lambda()" @@ -41814,10 +41842,10 @@ static const char *startup_source = " 'syntax-local-name" "(let-values()" "(let-values()" -"(let-values(((ctx_51)" +"(let-values(((ctx_54)" "(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context16.1 #f who66_0))))" -"(let-values(((id_77)(expand-context-name ctx_51)))" -"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))))" +"(let-values(((id_78)(expand-context-name ctx_54)))" +"(if id_78(datum->syntax$1 #f(syntax-e$1 id_78) id_78) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer2_0)" @@ -41849,20 +41877,20 @@ static const char *startup_source = "(lambda(s69_0 mode68_0)" "(begin" " 'core70" -"(let-values(((s_429) s69_0))" +"(let-values(((s_431) s69_0))" "(let-values(((mode_14) mode68_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_429)" +"(if(syntax?$1 s_431)" "(void)" -" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_429)))" +" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_431)))" "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_429 sc_34))" +"(let-values()(add-scope s_431 sc_34))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_429 sc_34))" +"(let-values()(remove-scope s_431 sc_34))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_429 sc_34))" +"(let-values()(flip-scope s_431 sc_34))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41895,8 +41923,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_19)" -"(let-values(((or-part_287)(not x_19)))" -"(if or-part_287 or-part_287(syntax?$1 x_19))))" +"(let-values(((or-part_284)(not x_19)))" +"(if or-part_284 or-part_284(syntax?$1 x_19))))" " base-s_0)" "(void)" "(let-values()" @@ -41924,7 +41952,7 @@ static const char *startup_source = "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_288)" +"(let-values(((or-part_285)" "(if(identifier? base-s_0)" "(let-values(((base-s73_0) base-s_0)" "((phase74_1) phase_5)" @@ -41937,7 +41965,7 @@ static const char *startup_source = " base-s73_0" " phase74_1))" " #f)))" -"(if or-part_288 or-part_288(seteq))))))" +"(if or-part_285 or-part_285(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" @@ -41993,23 +42021,23 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value15" "(let-values(((who_19) who11_0))" -"(let-values(((id_78) id12_0))" +"(let-values(((id_79) id12_0))" "(let-values(((intdefs_3) intdefs13_0))" "(let-values(((failure-thunk_0) failure-thunk14_0))" "(let-values(((immediate?_1) immediate?9_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error who_19 \"identifier?\" id_78)))" +" (let-values () (raise-argument-error who_19 \"identifier?\" id_79)))" "(values))))" "(let-values((()" "(begin" "(if((lambda(x_81)" -"(let-values(((or-part_209)(not x_81)))" -"(if or-part_209" -" or-part_209" +"(let-values(((or-part_207)(not x_81)))" +"(if or-part_207" +" or-part_207" "((lambda(p_50)" "(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" " x_81))))" @@ -42032,42 +42060,43 @@ static const char *startup_source = "(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" "(let-values(((ctx_11)" "(if intdefs_3" -"(let-values(((v_196) current-ctx_0))" -"(let-values(((the-struct_69) v_196))" -"(if(expand-context/outer? the-struct_69)" +"(let-values(((v_197) current-ctx_0))" +"(let-values(((the-struct_68) v_197))" +"(if(expand-context/outer? the-struct_68)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_196)))" +"((inner83_0)(root-expand-context/outer-inner v_197)))" "(expand-context/outer1.1" " inner83_0" -"(root-expand-context/outer-post-expansion-scope the-struct_69)" -"(root-expand-context/outer-post-expansion-shifts the-struct_69)" -"(root-expand-context/outer-use-site-scopes the-struct_69)" -"(root-expand-context/outer-frame-id the-struct_69)" -"(expand-context/outer-context the-struct_69)" +"(root-expand-context/outer-post-expansion-scope the-struct_68)" +"(root-expand-context/outer-post-expansion-shifts 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)" " env82_0" -"(expand-context/outer-post-expansion-scope-action the-struct_69)" -"(expand-context/outer-scopes the-struct_69)" -"(expand-context/outer-def-ctx-scopes the-struct_69)" -"(expand-context/outer-binding-layer the-struct_69)" -"(expand-context/outer-reference-records the-struct_69)" -"(expand-context/outer-only-immediate? the-struct_69)" -"(expand-context/outer-need-eventually-defined the-struct_69)" -"(expand-context/outer-current-introduction-scopes the-struct_69)" -"(expand-context/outer-name the-struct_69)))" +"(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-current-use-scopes the-struct_68)" +"(expand-context/outer-name the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_69))))" +" the-struct_68))))" " current-ctx_0)))" "(let-values((()" "(begin" "(let-values(((obs_34)(expand-context-observer ctx_11)))" "(if obs_34" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_78)))" +"(let-values()(call-expand-observe obs_34 'local-value id_79)))" "(void)))" "(values))))" "(let-values(((phase_72)(expand-context-phase ctx_11)))" @@ -42176,40 +42205,40 @@ static const char *startup_source = "(let-values()(values v_39 #f))" "(let-values() v_39)))))))))))))))" " loop_98)" -"(flip-introduction-scopes id_78 ctx_11))))))))))))))))))" +"(flip-introduction-scopes id_79 ctx_11))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value21_0)" "(lambda(id20_0 failure-thunk18_0 intdef19_0)" "(begin" " 'syntax-local-value21" -"(let-values(((id_79) id20_0))" +"(let-values(((id_80) id20_0))" "(let-values(((failure-thunk_1) failure-thunk18_0))" "(let-values(((intdef_13) intdef19_0))" "(let-values()" "(let-values(((temp91_1) 'syntax-local-value)" "((temp92_1) #f)" -"((id93_1) id_79)" +"((id93_1) id_80)" "((intdef94_0) intdef_13)" "((failure-thunk95_0) failure-thunk_1))" "(do-syntax-local-value15.1 temp92_1 temp91_1 id93_1 intdef94_0 failure-thunk95_0))))))))))" "(case-lambda" -"((id_80)(begin 'syntax-local-value(syntax-local-value21_0 id_80 #f #f)))" +"((id_81)(begin 'syntax-local-value(syntax-local-value21_0 id_81 #f #f)))" "((id_62 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_62 failure-thunk_2 intdef19_1))" -"((id_81 failure-thunk18_1)(syntax-local-value21_0 id_81 failure-thunk18_1 #f)))))" +"((id_82 failure-thunk18_1)(syntax-local-value21_0 id_82 failure-thunk18_1 #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate26_0)" "(lambda(id25_2 failure-thunk23_0 intdef24_0)" "(begin" " 'syntax-local-value/immediate26" -"(let-values(((id_70) id25_2))" +"(let-values(((id_71) id25_2))" "(let-values(((failure-thunk_3) failure-thunk23_0))" "(let-values(((intdef_14) intdef24_0))" "(let-values()" "(let-values(((temp96_1) 'syntax-local-value/immediate)" "((temp97_1) #t)" -"((id98_0) id_70)" +"((id98_0) id_71)" "((intdef99_0) intdef_14)" "((failure-thunk100_0) failure-thunk_3))" "(do-syntax-local-value15.1" @@ -42220,8 +42249,8 @@ static const char *startup_source = " failure-thunk100_0))))))))))" "(case-lambda" "((id_8)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_8 #f #f)))" -"((id_82 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_82 failure-thunk_4 intdef24_1))" -"((id_83 failure-thunk23_1)(syntax-local-value/immediate26_0 id_83 failure-thunk23_1 #f)))))" +"((id_83 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_83 failure-thunk_4 intdef24_1))" +"((id_84 failure-thunk23_1)(syntax-local-value/immediate26_0 id_84 failure-thunk23_1 #f)))))" "(define-values" "(do-lift-values-expression)" "(lambda(who_20 n_29 s_34)" @@ -42236,13 +42265,13 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_20 \"exact-nonnegative-integer?\" n_29)))" "(values))))" -"(let-values(((ctx_52)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_52)))" +"(let-values(((ctx_55)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))" +"(let-values(((lifts_8)(expand-context-lifts ctx_55)))" "(let-values((()" "(begin" " (if lifts_8 (void) (let-values () (raise-arguments-error who_20 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_52)))" +"(let-values(((counter_4)(root-expand-context-counter ctx_55)))" "(let-values(((ids_28)" "(reverse$1" "(let-values(((start_39) 0)((end_29) n_29)((inc_23) 1))" @@ -42292,17 +42321,17 @@ static const char *startup_source = " null" " start_39))))))" "(begin" -"(let-values(((obs_39)(expand-context-observer ctx_52)))" +"(let-values(((obs_39)(expand-context-observer ctx_55)))" "(if obs_39" "(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_28 s_34)))" "(void)))" "(map2" -"(lambda(id_84)(flip-introduction-scopes id_84 ctx_52))" +"(lambda(id_85)(flip-introduction-scopes id_85 ctx_55))" "(add-lifted!" " lifts_8" " ids_28" -"(flip-introduction-scopes s_34 ctx_52)" -"(expand-context-phase ctx_52))))))))))))))" +"(flip-introduction-scopes s_34 ctx_55)" +"(expand-context-phase ctx_55))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" "(lambda(s_36)" @@ -42322,10 +42351,10 @@ static const char *startup_source = " 'syntax-local-lift-context" "(let-values()" "(let-values()" -"(let-values(((ctx_53)" +"(let-values(((ctx_56)" "(let-values(((who105_0) 'syntax-local-lift-context))" "(get-current-expand-context16.1 #f who105_0))))" -"(root-expand-context-lift-key ctx_53)))))))" +"(root-expand-context-lift-key ctx_56)))))))" "(define-values" "(1/syntax-local-lift-module)" "(lambda(s_64)" @@ -42339,15 +42368,15 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_64)))" "(values))))" -"(let-values(((ctx_54)" +"(let-values(((ctx_57)" "(let-values(((who107_0) 'syntax-local-lift-module))" "(get-current-expand-context16.1 #f who107_0))))" -"(let-values(((phase_102)(expand-context-phase ctx_54)))" +"(let-values(((phase_102)(expand-context-phase ctx_57)))" "(begin" "(let-values(((tmp_30)(core-form-sym s_64 phase_102)))" "(if(if(equal? tmp_30 'module) #t(equal? tmp_30 'module*))" "(let-values()" -"(let-values(((lifts_9)(expand-context-module-lifts ctx_54)))" +"(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" "(begin" "(if lifts_9" "(void)" @@ -42357,10 +42386,10 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_64)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_54) phase_102))))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_102))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))" -"(let-values(((obs_40)(expand-context-observer ctx_54)))" +"(let-values(((obs_40)(expand-context-observer ctx_57)))" "(if obs_40" "(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_64)))" "(void))))))))))))" @@ -42380,7 +42409,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module48" "(let-values(((who_21) who46_0))" -"(let-values(((s_430) s47_0))" +"(let-values(((s_432) s47_0))" "(let-values(((no-target-msg_0) no-target-msg28_0))" "(let-values(((intro?_0) intro?29_0))" "(let-values(((more-checks_0)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))" @@ -42389,11 +42418,11 @@ static const char *startup_source = "(let-values(((get-wrt-phase_0) get-wrt-phase33_0))" "(let-values(((pre-wrap_0)" "(if(eq? pre-wrap34_0 unsafe-undefined)" -"(lambda(s_431 phase_110 lift-ctx_1)(begin 'pre-wrap s_431))" +"(lambda(s_433 phase_111 lift-ctx_1)(begin 'pre-wrap s_433))" " pre-wrap34_0)))" "(let-values(((shift-wrap_0)" "(if(eq? shift-wrap35_0 unsafe-undefined)" -"(lambda(s_211 phase_111 lift-ctx_2)(begin 'shift-wrap s_211))" +"(lambda(s_211 phase_112 lift-ctx_2)(begin 'shift-wrap s_211))" " shift-wrap35_0)))" "(let-values(((post-wrap_0)" "(if(eq? post-wrap36_0 unsafe-undefined)" @@ -42402,15 +42431,15 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_430)" +"(if(syntax?$1 s_432)" "(void)" -" (let-values () (raise-argument-error who_21 \"syntax?\" s_430)))" +" (let-values () (raise-argument-error who_21 \"syntax?\" s_432)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_55)" +"(let-values(((ctx_58)" "(let-values(((who108_0) who_21))" "(get-current-expand-context16.1 #f who108_0))))" -"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_55)))" +"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_58)))" "(let-values((()" "(begin" "(if lift-ctx_4" @@ -42420,12 +42449,12 @@ static const char *startup_source = " who_21" " no-target-msg_0" " \"form to lift\"" -" s_430)))" +" s_432)))" "(values))))" -"(let-values(((phase_90)(expand-context-phase ctx_55)))" +"(let-values(((phase_90)(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_430 ctx_55) s_430)))" +"(if intro?_0(flip-introduction-scopes s_432 ctx_58) s_432)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_90 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_40) phase_90)" @@ -42438,30 +42467,30 @@ static const char *startup_source = "(let-values()" "(check-range start_40 end_30 inc_24)))" "((letrec-values(((for-loop_129)" -"(lambda(s_432 pos_107)" +"(lambda(s_434 pos_107)" "(begin" " 'for-loop" "(if(> pos_107 end_30)" -"(let-values(((phase_112)" +"(let-values(((phase_113)" " pos_107))" "(let-values(((s_320)" -"(let-values(((s_425)" -" s_432))" -"(let-values(((s_433)" +"(let-values(((s_426)" +" s_434))" +"(let-values(((s_435)" "(let-values()" "(shift-wrap_0" -" s_425" +" s_426" "(sub1" -" phase_112)" +" phase_113)" " lift-ctx_4))))" "(values" -" s_433)))))" +" s_435)))))" "(if(not #f)" "(for-loop_129" " s_320" "(+ pos_107 inc_24))" " s_320)))" -" s_432)))))" +" s_434)))))" " for-loop_129)" " pre-s_0" " start_40)))))" @@ -42469,7 +42498,7 @@ static const char *startup_source = "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))" "(begin" "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)" -"(values ctx_55 post-s_1))))))))))))))))))))))))))))" +"(values ctx_58 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" "(lambda(s_219 use-s_1)" @@ -42478,7 +42507,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((sc_35)(new-scope 'lifted-require)))" -"(let-values(((ctx_56 added-s_1)" +"(let-values(((ctx_59 added-s_1)" "(let-values(((who110_0) 'syntax-local-lift-require)" "((temp111_0)(datum->syntax$1 #f s_219))" " ((temp112_0) \"could not find target context\")" @@ -42493,11 +42522,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)" "((add-lifted-require!117_0) add-lifted-require!)" "((temp118_0)" -"(lambda(s_110 phase_113 require-lift-ctx_0)" +"(lambda(s_110 phase_114 require-lift-ctx_0)" "(require-spec-shift-for-syntax s_110)))" "((temp119_0)" -"(lambda(s_434 phase_114 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_434 sc_35) phase_114))))" +"(lambda(s_436 phase_115 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_436 sc_35) phase_115))))" "(do-local-lift-to-module48.1" " add-lifted-require!117_0" " expand-context-require-lifts115_0" @@ -42513,12 +42542,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_56)" -"(expand-context-phase ctx_56))" +"(expand-context-namespace ctx_59)" +"(expand-context-phase ctx_59))" "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_35)))" "(begin" -"(let-values(((obs_41)(expand-context-observer ctx_56)))" +"(let-values(((obs_41)(expand-context-observer ctx_59)))" "(if obs_41" "(let-values()" "(let-values()(call-expand-observe obs_41 'lift-require added-s_1 use-s_1 result-s_6)))" @@ -42526,23 +42555,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_435)" +"(lambda(s_437)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" -"(let-values(((ctx_57 result-s_7)" +"(let-values(((ctx_60 result-s_7)" "(let-values(((who121_0) 'syntax-local-lift-provide)" -"((s122_1) s_435)" +"((s122_1) s_437)" " ((temp123_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts124_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)" "((temp127_2)" -"(lambda(s_436 phase_115 to-module-lift-ctx_0)(wrap-form 'for-syntax s_436 #f)))" +"(lambda(s_438 phase_116 to-module-lift-ctx_0)(wrap-form 'for-syntax s_438 #f)))" "((temp128_2)" -"(lambda(s_116 phase_116 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_116 phase_116))))" +"(lambda(s_116 phase_117 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_116 phase_117))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-provide!126_0" " expand-context-to-module-lifts124_0" @@ -42555,7 +42584,7 @@ static const char *startup_source = " temp127_2" " who121_0" " s122_1))))" -"(let-values(((obs_42)(expand-context-observer ctx_57)))" +"(let-values(((obs_42)(expand-context-observer ctx_60)))" "(if obs_42" "(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))" "(void)))))))))" @@ -42566,7 +42595,7 @@ static const char *startup_source = " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" -"(let-values(((ctx_58 also-s_0)" +"(let-values(((ctx_61 also-s_0)" "(let-values(((who130_0) 'syntax-local-lift-module-end-declaration)" "((s131_0) s_227)" "((temp132_1)" @@ -42575,13 +42604,13 @@ static const char *startup_source = "((temp134_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)" "((temp136_0)" -"(lambda(orig-s_32 phase_117 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_118 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_117)" +"(wrap-form '#%expression orig-s_32 phase_118)" " orig-s_32)))" "((temp137_1)" -"(lambda(s_437 phase_118 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_437 phase_118))))" +"(lambda(s_439 phase_119 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_439 phase_119))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-end!135_0" " expand-context-to-module-lifts133_0" @@ -42594,17 +42623,17 @@ static const char *startup_source = " temp137_1" " who130_0" " s131_0))))" -"(let-values(((obs_43)(expand-context-observer ctx_58)))" +"(let-values(((obs_43)(expand-context-observer ctx_61)))" "(if obs_43" "(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_227)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_74 s_124 phase_119)" +"(lambda(sym_74 s_124 phase_120)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_119(syntax-shift-phase-level$1 core-stx phase_119) #f) sym_74) s_124)))))" +"(list(datum->syntax$1(if phase_120(syntax-shift-phase-level$1 core-stx phase_120) #f) sym_74) s_124)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42621,10 +42650,10 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_59)" +"(let-values(((ctx_62)" "(let-values(((temp139_0) 'syntax-local-module-defined-identifiers))" "(get-current-expand-context16.1 #f temp139_0))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_59))))))))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" @@ -42634,8 +42663,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_289)(not mod-path_8)))" -"(if or-part_289 or-part_289(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_286)(not mod-path_8)))" +"(if or-part_286 or-part_286(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42645,8 +42674,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_290)(eq? phase-level_21 #t)))" -"(if or-part_290 or-part_290(phase? phase-level_21)))" +"(if(let-values(((or-part_287)(eq? phase-level_21 #t)))" +"(if or-part_287 or-part_287(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42663,11 +42692,11 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_60)" +"(let-values(((ctx_63)" "(let-values(((temp141_1) 'syntax-local-module-required-identifiers))" "(get-current-expand-context16.1 #f temp141_1))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_60)))" -"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_60) #f)))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" +"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" @@ -42685,7 +42714,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_161" -"(let-values(((phase_120 ids_29)" +"(let-values(((phase_121 ids_29)" "(hash-iterate-key+value ht_135 i_161)))" "(let-values(((fold-var_203)" "(let-values(((fold-var_256) fold-var_255))" @@ -42693,7 +42722,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(cons phase_120 ids_29))" +"(cons phase_121 ids_29))" " fold-var_256))))" "(values fold-var_257)))))" "(if(not #f)" @@ -42743,9 +42772,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_291)(1/module-path? mod-path_9)))" -"(if or-part_291" -" or-part_291" +"(if(let-values(((or-part_288)(1/module-path? mod-path_9)))" +"(if or-part_288" +" or-part_288" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42758,15 +42787,15 @@ static const char *startup_source = " \" (module-path? (syntax->datum stx)))))\")" " mod-path_9)))" "(values))))" -"(let-values(((ctx_61)" +"(let-values(((ctx_64)" "(let-values(((temp143_0) 'syntax-local-module-exports))" "(get-current-expand-context16.1 #f temp143_0))))" -"(let-values(((ns_76)(expand-context-namespace ctx_61)))" +"(let-values(((ns_76)(expand-context-namespace ctx_64)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" "(module-path->mpi/context" "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" -" ctx_61)" +" ctx_64)" " #t)))" "(let-values(((m_19)(namespace->module ns_76 mod-name_18)))" "(begin" @@ -42784,7 +42813,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_162" -"(let-values(((phase_121 syms_21)" +"(let-values(((phase_122 syms_21)" "(hash-iterate-key+value ht_140 i_162)))" "(let-values(((fold-var_259)" "(let-values(((fold-var_260) fold-var_258))" @@ -42793,7 +42822,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_121" +" phase_122" "(reverse$1" "(let-values(((ht_141)" " syms_21))" @@ -42854,10 +42883,10 @@ static const char *startup_source = " 'syntax-local-submodules" "(let-values()" "(let-values()" -"(let-values(((ctx_62)" +"(let-values(((ctx_65)" "(let-values(((who145_0) 'syntax-local-submodules))" "(get-current-expand-context16.1 #f who145_0))))" -"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_62)))" +"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" "(let-values(((ht_142) submods_3))" "(begin" @@ -42894,29 +42923,29 @@ static const char *startup_source = "(lambda(id52_0 only-generated?51_0)" "(begin" " 'syntax-local-get-shadower53" -"(let-values(((id_85) id52_0))" +"(let-values(((id_86) id52_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_85)" +"(if(identifier? id_86)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_85)))" +" id_86)))" "(values))))" -"(let-values(((ctx_63)" +"(let-values(((ctx_66)" "(let-values(((who147_0) 'syntax-local-get-shadower))" "(get-current-expand-context16.1 #f who147_0))))" -"(let-values(((new-id_0)(add-scopes id_85(expand-context-scopes ctx_63))))" -"(if(syntax-clean? id_85) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((new-id_0)(add-scopes id_86(expand-context-scopes ctx_66))))" +"(if(syntax-clean? id_86) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" -"((id_86)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_86 #f)))" -"((id_87 only-generated?51_1)(syntax-local-get-shadower53_0 id_87 only-generated?51_1)))))" +"((id_87)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_87 #f)))" +"((id_88 only-generated?51_1)(syntax-local-get-shadower53_0 id_88 only-generated?51_1)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" @@ -42942,8 +42971,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_73)" "(begin" -"(if(let-values(((or-part_292)(not(vector-ref v_73 1))))" -"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_73 1))))" +"(if(let-values(((or-part_289)(not(vector-ref v_73 1))))" +"(if or-part_289 or-part_289(exact-positive-integer?(vector-ref v_73 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_73 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_73 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_73 3))))" @@ -42955,13 +42984,13 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_138)" +"(lambda(v_139)" "(begin" -"(if(srcloc? v_138)" +"(if(srcloc? v_139)" "(let-values()" "(let-values(((the-struct_35) empty-syntax))" "(if(syntax?$1 the-struct_35)" -"(let-values(((srcloc1_2) v_138))" +"(let-values(((srcloc1_2) v_139))" "(syntax1.1" "(syntax-content the-struct_35)" "(syntax-scopes the-struct_35)" @@ -42972,19 +43001,19 @@ static const char *startup_source = "(syntax-props the-struct_35)" "(syntax-inspector the-struct_35)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))" -"(if(pair? v_138)" -"(let-values()(to-srcloc-stx(list->vector v_138)))" -"(if(vector? v_138)" +"(if(pair? v_139)" +"(let-values()(to-srcloc-stx(list->vector v_139)))" +"(if(vector? v_139)" "(let-values()" "(let-values(((the-struct_36) empty-syntax))" "(if(syntax?$1 the-struct_36)" "(let-values(((srcloc2_0)" "(srcloc" -"(vector-ref v_138 0)" -"(vector-ref v_138 1)" -"(vector-ref v_138 2)" -"(vector-ref v_138 3)" -"(vector-ref v_138 4))))" +"(vector-ref v_139 0)" +"(vector-ref v_139 1)" +"(vector-ref v_139 2)" +"(vector-ref v_139 3)" +"(vector-ref v_139 4))))" "(syntax1.1" "(syntax-content the-struct_36)" "(syntax-scopes the-struct_36)" @@ -42995,7 +43024,7 @@ static const char *startup_source = "(syntax-props the-struct_36)" "(syntax-inspector the-struct_36)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))" -"(let-values() v_138)))))))" +"(let-values() v_139)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -43024,7 +43053,7 @@ static const char *startup_source = "(begin" " 'datum->syntax6" "(let-values(((stx-c_4) stx-c4_1))" -"(let-values(((s_438) s5_2))" +"(let-values(((s_440) s5_2))" "(let-values(((stx-l_2) stx-l1_0))" "(let-values(((stx-p_1) stx-p2_0))" "(let-values()" @@ -43036,9 +43065,9 @@ static const char *startup_source = "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_293)(not stx-l_2)))" -"(if or-part_293" -" or-part_293" +"(if(let-values(((or-part_290)(not stx-l_2)))" +"(if or-part_290" +" or-part_290" "(let-values(((or-part_28)(syntax?$1 stx-l_2)))" "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" @@ -43058,26 +43087,26 @@ 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_294)(not stx-p_1)))" -"(if or-part_294 or-part_294(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_291)(not stx-p_1)))" +"(if or-part_291 or-part_291(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_438(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_440(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_77)(begin 'datum->syntax(datum->syntax6_1 stx-c_5 s_77 #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax6_1 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1))" -"((stx-c_7 s_439 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_439 stx-l_4 stx-p2_1 #f))" +"((stx-c_7 s_441 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_441 stx-l_4 stx-p2_1 #f))" "((stx-c_8 s_182 stx-l1_1)(datum->syntax6_1 stx-c_8 s_182 stx-l1_1 #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_440)" +"(lambda(s_442)" "(begin" " 'syntax->list" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_440) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_440)))" -"(syntax->list$1 s_440)))))))" +" (if (syntax?$1 s_442) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_442)))" +"(syntax->list$1 s_442)))))))" "(define-values" "(1/syntax-original?)" "(lambda(s_168)" @@ -43096,7 +43125,7 @@ static const char *startup_source = " 'bound-identifier=?11" "(let-values(((a_54) a9_0))" "(let-values(((b_65) b10_0))" -"(let-values(((phase_122)" +"(let-values(((phase_123)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" "(let-values()" "(let-values()" @@ -43108,10 +43137,10 @@ static const char *startup_source = "(if(identifier? b_65)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_65)))" -"(if(phase? phase_122)" +"(if(phase? phase_123)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_122)))" -"(bound-identifier=?$1 a_54 b_65 phase_122))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_123)))" +"(bound-identifier=?$1 a_54 b_65 phase_123))))))))))))" "(case-lambda" "((a_55 b_84)(begin 'bound-identifier=?(bound-identifier=?11_0 a_55 b_84 unsafe-undefined)))" "((a_56 b_85 phase8_1)(bound-identifier=?11_0 a_56 b_85 phase8_1)))))" @@ -43166,8 +43195,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_123)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_123 phase_123)))))))))" +"(let-values(((phase_124)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_89 phase_124 phase_124)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_62 b_90)" @@ -43187,8 +43216,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" -"(let-values(((phase_124)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_62 b_90 phase_124 phase_124)))))))))" +"(let-values(((phase_125)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_62 b_90 phase_125 phase_125)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_63 b_91)" @@ -43210,110 +43239,110 @@ static const char *startup_source = "(lambda(id21_0 phase19_0 top-level-symbol?20_0)" "(begin" " 'identifier-binding22" -"(let-values(((id_88) id21_0))" -"(let-values(((phase_125)" +"(let-values(((id_89) id21_0))" +"(let-values(((phase_126)" "(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))" "(let-values(((top-level-symbol?_1) top-level-symbol?20_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_88)" +"(if(identifier? id_89)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_88)))" -"(if(phase? phase_125)" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_89)))" +"(if(phase? phase_126)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_125)))" -"(identifier-binding$1 id_88 phase_125 top-level-symbol?_1))))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_126)))" +"(identifier-binding$1 id_89 phase_126 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_89)(begin 'identifier-binding(identifier-binding22_0 id_89 unsafe-undefined #f)))" +"((id_90)(begin 'identifier-binding(identifier-binding22_0 id_90 unsafe-undefined #f)))" "((id_15 phase_85 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_85 top-level-symbol?20_1))" -"((id_90 phase19_1)(identifier-binding22_0 id_90 phase19_1 #f)))))" +"((id_91 phase19_1)(identifier-binding22_0 id_91 phase19_1 #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding26_0)" "(lambda(id25_3 phase24_1)" "(begin" " 'identifier-transformer-binding26" -"(let-values(((id_91) id25_3))" -"(let-values(((phase_126)" +"(let-values(((id_92) id25_3))" +"(let-values(((phase_127)" "(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_91)" +"(if(identifier? id_92)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_91)))" -"(identifier-binding$1 id_91(if phase_126(add1 phase_126) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_92)))" +"(identifier-binding$1 id_92(if phase_127(add1 phase_127) #f))))))))))))" "(case-lambda" -"((id_92)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_92 unsafe-undefined)))" +"((id_93)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_93 unsafe-undefined)))" "((id_58 phase24_2)(identifier-transformer-binding26_0 id_58 phase24_2)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_93)" +"(lambda(id_94)" "(begin" " 'identifier-template-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_93)" +"(if(identifier? id_94)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_93)))" -"(identifier-binding$1 id_93(sub1(1/syntax-local-phase-level)))))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_94)))" +"(identifier-binding$1 id_94(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_78)" +"(lambda(id_79)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_78)))" -"(identifier-binding$1 id_78 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_79)))" +"(identifier-binding$1 id_79 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol30_0)" "(lambda(id29_1 phase28_2)" "(begin" " 'identifier-binding-symbol30" -"(let-values(((id_94) id29_1))" +"(let-values(((id_95) id29_1))" "(let-values(((phase_72)" "(if(eq? phase28_2 unsafe-undefined)(1/syntax-local-phase-level) phase28_2)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_94)" +"(if(identifier? id_95)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_94)))" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_95)))" "(if(phase? phase_72)" "(void)" "(let-values()" "(raise-argument-error 'identifier-binding-symbol phase?-string phase_72)))" -"(identifier-binding-symbol$1 id_94 phase_72)))))))))))" +"(identifier-binding-symbol$1 id_95 phase_72)))))))))))" "(case-lambda" -"((id_95)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_95 unsafe-undefined)))" -"((id_96 phase28_3)(identifier-binding-symbol30_0 id_96 phase28_3)))))" +"((id_96)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_96 unsafe-undefined)))" +"((id_97 phase28_3)(identifier-binding-symbol30_0 id_97 phase28_3)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context34_0)" "(lambda(id33_1 syms32_1)" "(begin" " 'identifier-prune-lexical-context34" -"(let-values(((id_97) id33_1))" +"(let-values(((id_98) id33_1))" "(let-values(((syms_22) syms32_1))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_97)" +"(if(identifier? id_98)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_97)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_98)))" "(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" @@ -43321,10 +43350,10 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_22)))" -" id_97))))))))))" +" id_98))))))))))" "(case-lambda" "((id_61)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_61 null)))" -"((id_98 syms32_2)(identifier-prune-lexical-context34_0 id_98 syms32_2)))))" +"((id_99 syms32_2)(identifier-prune-lexical-context34_0 id_99 syms32_2)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info39_0)" @@ -43348,26 +43377,26 @@ static const char *startup_source = "(syntax-debug-info$1 s_412 phase_77 all-bindings?_1))))))))))))" "(case-lambda" "((s_86)(begin 'syntax-debug-info(syntax-debug-info39_0 s_86 unsafe-undefined #f)))" -"((s_441 phase_127 all-bindings?37_1)(syntax-debug-info39_0 s_441 phase_127 all-bindings?37_1))" +"((s_443 phase_128 all-bindings?37_1)(syntax-debug-info39_0 s_443 phase_128 all-bindings?37_1))" "((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_442 phase_128)" +"(lambda(s_444 phase_129)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_442)" +"(if(syntax?$1 s_444)" "(void)" -" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_442)))" -"(if(phase? phase_128)" +" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_444)))" +"(if(phase? phase_129)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_128)))" -"(syntax-shift-phase-level$1 s_442 phase_128)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_129)))" +"(syntax-shift-phase-level$1 s_444 phase_129)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_99)" +"(lambda(new-stx_8 old-stx_4 id_100)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -43386,22 +43415,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_99)" +"(if(identifier? id_100)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_99)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_100)))" "(values))))" -"(let-values(((s_443)(syntax-track-origin$1 new-stx_8 old-stx_4 id_99)))" -"(let-values(((ctx_64)" +"(let-values(((s_445)(syntax-track-origin$1 new-stx_8 old-stx_4 id_100)))" +"(let-values(((ctx_67)" "(let-values(((temp60_3) #t))(get-current-expand-context16.1 temp60_3 'unexpected))))" "(begin" -"(if ctx_64" +"(if ctx_67" "(let-values()" -"(let-values(((obs_44)(expand-context-observer ctx_64)))" +"(let-values(((obs_44)(expand-context-observer ctx_67)))" "(if obs_44" -"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_443)))" +"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_445)))" "(void))))" "(void))" -" s_443)))))))))))" +" s_445)))))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module4_0)" @@ -43496,17 +43525,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_129)(namespace-phase src-namespace_6)))" +"(let-values(((phase_130)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_129(namespace-phase dest-namespace_2))" +"(if(eqv? phase_130(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_22" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_129" +" phase_130" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43516,7 +43545,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_99)" "(lambda(mpi_46" -" phase_130" +" phase_131" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43535,7 +43564,7 @@ static const char *startup_source = " mpi_46)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_130 attach-phase_0)" +"(eqv? phase_131 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43543,12 +43572,12 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_130" +" phase_131" " missing_0)))" -"(if(let-values(((or-part_163)" +"(if(let-values(((or-part_161)" "(eq? missing_0 m-ns_12)))" -"(if or-part_163" -" or-part_163" +"(if or-part_161" +" or-part_161" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -43569,9 +43598,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_130))" +"(label-phase? phase_131))" "(not" -"(zero-phase? phase_130))" +"(zero-phase? phase_131))" " #f)" " #f)" "(let-values()" @@ -43603,10 +43632,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_295)" +"(if(let-values(((or-part_292)" " attach-this-instance?_0))" -"(if or-part_295" -" or-part_295" +"(if or-part_292" +" or-part_292" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43616,7 +43645,7 @@ static const char *startup_source = "((mod-name31_0)" " mod-name_19)" "((phase32_1)" -" phase_130))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43642,7 +43671,7 @@ static const char *startup_source = "((mod-name34_0)" " mod-name_19)" "((phase35_1)" -" phase_130))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43678,14 +43707,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_130)" +" phase_131)" "(not" "(let-values(((src-namespace36_0)" " src-namespace_6)" "((mod-name37_0)" " mod-name_19)" "((phase38_0)" -" phase_130))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43709,7 +43738,7 @@ static const char *startup_source = "((mpi40_0)" " mpi_46)" "((phase41_1)" -" phase_130))" +" phase_131))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" @@ -43731,7 +43760,7 @@ static const char *startup_source = "(lambda(ht_143)" "(hash-set" " ht_143" -" phase_130" +" phase_131" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43796,7 +43825,7 @@ static const char *startup_source = " m_20)" " mpi_46)" "(phase+" -" phase_130" +" phase_131" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43888,9 +43917,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_16)" " mod-path_16)" " #f)" -" phase_129" +" phase_130" " attach-instances?_0" -" phase_129)" +" phase_130)" "(values))))" "(let-values((()" "(begin" @@ -43923,7 +43952,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_46" -"(let-values(((phase_131" +"(let-values(((phase_132" " m-ns_15)" "(hash-iterate-key+value" " ht_145" @@ -43968,14 +43997,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_131)" +" phase_132)" "(let-values(((or-part_25)" "(let-values(((dest-namespace45_0)" " dest-namespace_2)" "((mod-name46_0)" " mod-name_20)" "((phase47_2)" -" phase_131))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43988,7 +44017,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_131" +" phase_132" " m_21" " m-ns_15)))))" "(void)))))" @@ -44144,12 +44173,12 @@ static const char *startup_source = " null" "(unsafe-immutable-hash-iterate-first ht_147)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_428)" +"(lambda(s_430)" "(begin" " 'add-ns-scopes" "(let-values(((temp64_3)" "(add-scopes" -"(push-scope s_428 post-scope_1)" +"(push-scope s_430 post-scope_1)" " other-namespace-scopes_0))" "((temp65_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" @@ -44187,7 +44216,7 @@ static const char *startup_source = "(let-values()(add-ns-scopes_0 s_2)))))))))))))))))))" "(case-lambda" "((s_78)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_78 unsafe-undefined)))" -"((s_444 ns1_2)(namespace-syntax-introduce3_0 s_444 ns1_2)))))" +"((s_446 ns1_2)(namespace-syntax-introduce3_0 s_446 ns1_2)))))" "(define-values" "(namespace-datum-introduce)" "(lambda(s_182)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_182)))))" @@ -44261,8 +44290,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_77)))))" -"(if(let-values(((or-part_163)(1/module-path-index? req_6)))" -"(if or-part_163 or-part_163(1/module-path? req_6)))" +"(if(let-values(((or-part_161)(1/module-path-index? req_6)))" +"(if or-part_161 or-part_161(1/module-path? req_6)))" "(let-values()" "(let-values(((temp70_0)" "(if(1/module-path-index? req_6)" @@ -44444,9 +44473,9 @@ static const char *startup_source = "(if(symbol? sym_21)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_21)))" -"(if(let-values(((or-part_296)(not failure-thunk_5)))" -"(if or-part_296" -" or-part_296" +"(if(let-values(((or-part_293)(not failure-thunk_5)))" +"(if or-part_293" +" or-part_293" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44465,10 +44494,10 @@ 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_100)(1/datum->syntax #f sym_21)))" +"(let-values(((id_101)(1/datum->syntax #f sym_21)))" "(let-values(((b_14)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_100 ns_11)" +"(1/namespace-syntax-introduce id_101 ns_11)" "(namespace-phase ns_11)" " ns_11)))" "(let-values((()" @@ -44479,7 +44508,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_197" +"(let-values(((v_198" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44491,7 +44520,7 @@ static const char *startup_source = "((ns119_0) ns_11)" "((temp120_0)" "(namespace-phase ns_11))" -"((id121_0) id_100))" +"((id121_0) id_101))" "(binding-lookup50.1" " #f" " #f" @@ -44503,7 +44532,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_197)" +"(if(variable? v_198)" "(void)" "(let-values()" "(escape_0" @@ -44530,7 +44559,7 @@ static const char *startup_source = " b_14" " ns_11" "(namespace-phase ns_11)" -" id_100)))" +" id_101)))" "(module-binding-phase b_14)" "(module-binding-sym b_14))" "(values" @@ -44545,9 +44574,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_297) failure-thunk_5))" -"(if or-part_297" -" or-part_297" +"(let-values(((or-part_294) failure-thunk_5))" +"(if or-part_294" +" or-part_294" "(raise" "(exn:fail:contract:variable" "(format" @@ -44603,8 +44632,8 @@ static const char *startup_source = "(namespace-phase ns_82)" " sym_80)" "(values))))" -"(let-values(((id_101)(1/datum->syntax #f sym_80)))" -"(let-values(((temp123_1)(1/namespace-syntax-introduce id_101 ns_82))" +"(let-values(((id_102)(1/datum->syntax #f sym_80)))" +"(let-values(((temp123_1)(1/namespace-syntax-introduce id_102 ns_82))" "((temp124_0)" "(let-values(((temp126_0)(namespace-mpi ns_82))" "((temp127_3)(namespace-phase ns_82))" @@ -44702,29 +44731,29 @@ static const char *startup_source = "(lambda(s3_1 ns1_4 compile2_0)" "(begin" " 'eval4" -"(let-values(((s_445) s3_1))" +"(let-values(((s_447) s3_1))" "(let-values(((ns_87)(if(eq? ns1_4 unsafe-undefined)(1/current-namespace) ns1_4)))" "(let-values(((compile_1)" "(if(eq? compile2_0 unsafe-undefined)" "(lambda(s_75 ns_55)(begin 'compile(1/compile s_75 ns_55 #f)))" " compile2_0)))" "(let-values()" -"(if(let-values(((or-part_28)(compiled-in-memory? s_445)))" +"(if(let-values(((or-part_28)(compiled-in-memory? s_447)))" "(if or-part_28" " or-part_28" -"(let-values(((or-part_294)(1/linklet-directory? s_445)))" -"(if or-part_294 or-part_294(1/linklet-bundle? s_445)))))" -"(let-values()(eval-compiled s_445 ns_87))" -"(if(if(syntax?$1 s_445)" -"(let-values(((or-part_298)(compiled-in-memory?(1/syntax-e s_445))))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_445))))" -"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_445))))))" +"(let-values(((or-part_291)(1/linklet-directory? s_447)))" +"(if or-part_291 or-part_291(1/linklet-bundle? s_447)))))" +"(let-values()(eval-compiled s_447 ns_87))" +"(if(if(syntax?$1 s_447)" +"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_447))))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_296)(1/linklet-directory?(1/syntax-e s_447))))" +"(if or-part_296 or-part_296(1/linklet-bundle?(1/syntax-e s_447))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_445) ns_87))" +"(let-values()(eval-compiled(1/syntax->datum s_447) ns_87))" "(let-values()" -"(let-values(((s66_0) s_445)" +"(let-values(((s66_0) s_447)" "((ns67_1) ns_87)" "((temp68_2)" "(lambda(s_181 ns_88 tail?_52)" @@ -44732,9 +44761,9 @@ static const char *startup_source = "((temp69_0) #f))" "(per-top-level54.1 #f #f temp69_0 #t #f temp68_2 #f s66_0 ns67_1)))))))))))))" "(case-lambda" -"((s_444)(begin 'eval(eval4_0 s_444 unsafe-undefined unsafe-undefined)))" +"((s_446)(begin 'eval(eval4_0 s_446 unsafe-undefined unsafe-undefined)))" "((s_76 ns_89 compile2_1)(eval4_0 s_76 ns_89 compile2_1))" -"((s_440 ns1_5)(eval4_0 s_440 ns1_5 unsafe-undefined)))))" +"((s_442 ns1_5)(eval4_0 s_442 ns1_5 unsafe-undefined)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled9_0)" @@ -44775,10 +44804,10 @@ static const char *startup_source = "(let-values(((s72_0) s_185)" "((ns73_0) ns_93)" "((temp74_0)" -"(lambda(s_446 ns_47 as-tail?_4)" +"(lambda(s_448 ns_47 as-tail?_4)" "(list" "(compile-single$1" -" s_446" +" s_448" " ns_47" " expand_0" " serializable?_4" @@ -44808,8 +44837,8 @@ static const char *startup_source = " cs77_0))))))))))))))" "(case-lambda" "((s_11)(begin 'compile(compile16_0 s_11 unsafe-undefined #t unsafe-undefined #f)))" -"((s_447 ns_94 serializable?_5 expand_1 to-source?14_1)" -"(compile16_0 s_447 ns_94 serializable?_5 expand_1 to-source?14_1))" +"((s_449 ns_94 serializable?_5 expand_1 to-source?14_1)" +"(compile16_0 s_449 ns_94 serializable?_5 expand_1 to-source?14_1))" "((s_14 ns_95 serializable?_6 expand13_1)(compile16_0 s_14 ns_95 serializable?_6 expand13_1 #f))" "((s_15 ns_96 serializable?12_1)(compile16_0 s_15 ns_96 serializable?12_1 unsafe-undefined #f))" "((s_83 ns11_2)(compile16_0 s_83 ns11_2 #t unsafe-undefined #f)))))" @@ -44823,7 +44852,7 @@ static const char *startup_source = "(let-values(((ns_63)(if(eq? ns18_1 unsafe-undefined)(1/current-namespace) ns18_1)))" "(let-values()(1/compile s_20 ns_63 #t expand$1 #t))))))))" "(case-lambda" -"((s_448)(begin(compile-to-linklets20_0 s_448 unsafe-undefined)))" +"((s_450)(begin(compile-to-linklets20_0 s_450 unsafe-undefined)))" "((s_22 ns18_2)(compile-to-linklets20_0 s_22 ns18_2)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44854,10 +44883,10 @@ static const char *startup_source = "(make-struct-field-accessor -ref_80 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_449 ns_97 expand_2 serializable?_7 to-source?_5)" +"(lambda(s_451 ns_97 expand_2 serializable?_7 to-source?_5)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_449 ns_97 #f #t serializable?_7)))" +"(let-values(((exp-s_4)(expand_2 s_451 ns_97 #f #t serializable?_7)))" "((letrec-values(((loop_100)" "(lambda(exp-s_5)" "(begin" @@ -44948,7 +44977,7 @@ static const char *startup_source = "(lambda(s27_1 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)" "(begin" " 'expand28" -"(let-values(((s_450) s27_1))" +"(let-values(((s_452) s27_1))" "(let-values(((ns_98)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))" "(let-values(((observable?_0) observable?24_0))" "(let-values(((to-parsed?_2) to-parsed?25_0))" @@ -44964,7 +44993,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s94_1) s_450)" +"(let-values(((s94_1) s_452)" "((ns95_0) ns_98)" "((temp96_2)" "(lambda(s_313 ns_99 as-tail?_5)" @@ -44988,24 +45017,24 @@ static const char *startup_source = " s94_1" " ns95_0))))))))))))))))" "(case-lambda" -"((s_451)(begin 'expand(expand28_0 s_451 unsafe-undefined #f #f #f)))" -"((s_452 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" -"(expand28_0 s_452 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" -"((s_453 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_453 ns_100 observable?_2 to-parsed?25_1 #f))" +"((s_453)(begin 'expand(expand28_0 s_453 unsafe-undefined #f #f #f)))" +"((s_454 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" +"(expand28_0 s_454 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" +"((s_455 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_455 ns_100 observable?_2 to-parsed?25_1 #f))" "((s_305 ns_101 observable?24_1)(expand28_0 s_305 ns_101 observable?24_1 #f #f))" -"((s_454 ns23_1)(expand28_0 s_454 ns23_1 #f #f #f)))))" +"((s_456 ns23_1)(expand28_0 s_456 ns23_1 #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_58 ns_102 observer_3 to-parsed?_4 serializable?_9)" "(begin" "(let-values(((rebuild-s_2)(keep-properties-only s_58)))" -"(let-values(((ctx_65)" +"(let-values(((ctx_68)" "(let-values(((ns100_0) ns_102)" "((to-parsed?101_0) to-parsed?_4)" "((serializable?102_0) serializable?_9)" "((observer103_0) observer_3))" "(make-expand-context10.1 serializable?102_0 observer103_0 to-parsed?101_0 ns100_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_65)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_0)" "(if to-parsed?_4" @@ -45026,14 +45055,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_10 exp-s_0 ns_102)" +"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_10 exp-s_0 ns_102)" "(values))))" "(let-values(((new-s_3)" "(let-values(((temp109_0)(append require-lifts_3 lifts_10))" "((temp110_1)" "(lambda(form_1)" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_65)))" +"(let-values(((obs_45)(expand-context-observer ctx_68)))" "(if obs_45" "(let-values()" "(let-values()(call-expand-observe obs_45 'next)))" @@ -45050,7 +45079,7 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_46)(expand-context-observer ctx_65)))" +"(let-values(((obs_46)(expand-context-observer ctx_68)))" "(if obs_46" "(let-values()" "(let-values()(call-expand-observe obs_46 'next)))" @@ -45064,7 +45093,7 @@ static const char *startup_source = "((exp-s112_0) exp-s_0)" "((temp113_2)(namespace-phase ns_102)))" "(wrap-lifts-as-begin16.1 temp111_1 temp110_1 temp109_0 exp-s112_0 temp113_2))))" -"(begin(log-top-begin-after ctx_65 new-s_3) new-s_3))))))))))))" +"(begin(log-top-begin-after ctx_68 new-s_3) new-s_3))))))))))))" "(define-values" "(expand-once$1)" "(let-values(((expand-once32_0)" @@ -45077,7 +45106,7 @@ static const char *startup_source = "(let-values(((s114_0) s_66)" "((ns115_0) ns_103)" "((temp116_0)" -"(lambda(s_455 ns_104 as-tail?_6)(expand-single-once s_455 ns_104)))" +"(lambda(s_457 ns_104 as-tail?_6)(expand-single-once s_457 ns_104)))" "((cons117_0) cons)" "((re-pair118_0) re-pair)" "((temp119_1) #t)" @@ -45097,67 +45126,68 @@ static const char *startup_source = "((s_318 ns30_1)(expand-once32_0 s_318 ns30_1)))))" "(define-values" "(expand-single-once)" -"(lambda(s_456 ns_83)" +"(lambda(s_458 ns_83)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" -" s_456" -"(let-values(((v_127)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" -"(let-values(((the-struct_70) v_127))" -"(if(expand-context/outer? the-struct_70)" +" s_458" +"(let-values(((v_121)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" +"(let-values(((the-struct_69) v_121))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((inner122_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_127)))" -"(if(expand-context/inner? the-struct_71)" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_121)))" +"(if(expand-context/inner? the-struct_70)" "(let-values(((just-once?123_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_71)" -"(root-expand-context/inner-module-scopes the-struct_71)" -"(root-expand-context/inner-top-level-bind-scope the-struct_71)" -"(root-expand-context/inner-all-scopes-stx the-struct_71)" -"(root-expand-context/inner-defined-syms the-struct_71)" -"(root-expand-context/inner-counter the-struct_71)" -"(root-expand-context/inner-lift-key the-struct_71)" -"(expand-context/inner-to-parsed? the-struct_71)" -"(expand-context/inner-phase the-struct_71)" -"(expand-context/inner-namespace the-struct_71)" +"(root-expand-context/inner-self-mpi the-struct_70)" +"(root-expand-context/inner-module-scopes the-struct_70)" +"(root-expand-context/inner-top-level-bind-scope the-struct_70)" +"(root-expand-context/inner-all-scopes-stx the-struct_70)" +"(root-expand-context/inner-defined-syms the-struct_70)" +"(root-expand-context/inner-counter the-struct_70)" +"(root-expand-context/inner-lift-key the-struct_70)" +"(expand-context/inner-to-parsed? the-struct_70)" +"(expand-context/inner-phase the-struct_70)" +"(expand-context/inner-namespace the-struct_70)" " just-once?123_0" -"(expand-context/inner-module-begin-k the-struct_71)" -"(expand-context/inner-allow-unbound? the-struct_71)" -"(expand-context/inner-in-local-expand? the-struct_71)" -"(expand-context/inner-keep-#%expression? the-struct_71)" -"(expand-context/inner-stops the-struct_71)" -"(expand-context/inner-declared-submodule-names the-struct_71)" -"(expand-context/inner-lifts the-struct_71)" -"(expand-context/inner-lift-envs the-struct_71)" -"(expand-context/inner-module-lifts the-struct_71)" -"(expand-context/inner-require-lifts the-struct_71)" -"(expand-context/inner-to-module-lifts the-struct_71)" -"(expand-context/inner-requires+provides the-struct_71)" -"(expand-context/inner-observer the-struct_71)" -"(expand-context/inner-for-serializable? the-struct_71)" -"(expand-context/inner-should-not-encounter-macros? the-struct_71)))" +"(expand-context/inner-module-begin-k the-struct_70)" +"(expand-context/inner-allow-unbound? the-struct_70)" +"(expand-context/inner-in-local-expand? the-struct_70)" +"(expand-context/inner-keep-#%expression? the-struct_70)" +"(expand-context/inner-stops the-struct_70)" +"(expand-context/inner-declared-submodule-names the-struct_70)" +"(expand-context/inner-lifts the-struct_70)" +"(expand-context/inner-lift-envs the-struct_70)" +"(expand-context/inner-module-lifts the-struct_70)" +"(expand-context/inner-require-lifts the-struct_70)" +"(expand-context/inner-to-module-lifts the-struct_70)" +"(expand-context/inner-requires+provides the-struct_70)" +"(expand-context/inner-observer the-struct_70)" +"(expand-context/inner-for-serializable? the-struct_70)" +"(expand-context/inner-should-not-encounter-macros? the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_70)))))" "(expand-context/outer1.1" " inner122_0" -"(root-expand-context/outer-post-expansion-scope the-struct_70)" -"(root-expand-context/outer-post-expansion-shifts the-struct_70)" -"(root-expand-context/outer-use-site-scopes the-struct_70)" -"(root-expand-context/outer-frame-id the-struct_70)" -"(expand-context/outer-context the-struct_70)" -"(expand-context/outer-env the-struct_70)" -"(expand-context/outer-post-expansion-scope-action the-struct_70)" -"(expand-context/outer-scopes the-struct_70)" -"(expand-context/outer-def-ctx-scopes the-struct_70)" -"(expand-context/outer-binding-layer the-struct_70)" -"(expand-context/outer-reference-records the-struct_70)" -"(expand-context/outer-only-immediate? the-struct_70)" -"(expand-context/outer-need-eventually-defined the-struct_70)" -"(expand-context/outer-current-introduction-scopes the-struct_70)" -"(expand-context/outer-name the-struct_70)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_70)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_69)" +"(root-expand-context/outer-post-expansion-shifts the-struct_69)" +"(root-expand-context/outer-use-site-scopes the-struct_69)" +"(root-expand-context/outer-frame-id the-struct_69)" +"(expand-context/outer-context the-struct_69)" +"(expand-context/outer-env the-struct_69)" +"(expand-context/outer-post-expansion-scope-action the-struct_69)" +"(expand-context/outer-scopes the-struct_69)" +"(expand-context/outer-def-ctx-scopes the-struct_69)" +"(expand-context/outer-binding-layer the-struct_69)" +"(expand-context/outer-reference-records the-struct_69)" +"(expand-context/outer-only-immediate? the-struct_69)" +"(expand-context/outer-need-eventually-defined the-struct_69)" +"(expand-context/outer-current-introduction-scopes the-struct_69)" +"(expand-context/outer-current-use-scopes the-struct_69)" +"(expand-context/outer-name the-struct_69)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_69)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_6)" "(let-values()" @@ -45171,7 +45201,7 @@ static const char *startup_source = "(lambda(s35_0 ns34_0)" "(begin" " 'expand-to-top-form36" -"(let-values(((s_457) s35_0))" +"(let-values(((s_459) s35_0))" "(let-values(((ns_105)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -45184,7 +45214,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s127_0) s_457)" +"(let-values(((s127_0) s_459)" "((ns128_0) ns_105)" "((temp129_1) #f)" "((temp130_0) #f)" @@ -45200,8 +45230,8 @@ static const char *startup_source = " s127_0" " ns128_0)))))))))))))" "(case-lambda" -"((s_458)(begin 'expand-to-top-form(expand-to-top-form36_0 s_458 unsafe-undefined)))" -"((s_459 ns34_1)(expand-to-top-form36_0 s_459 ns34_1)))))" +"((s_460)(begin 'expand-to-top-form(expand-to-top-form36_0 s_460 unsafe-undefined)))" +"((s_461 ns34_1)(expand-to-top-form36_0 s_461 ns34_1)))))" "(define-values" "(per-top-level54.1)" "(lambda(combine39_0" @@ -45226,26 +45256,26 @@ static const char *startup_source = "(let-values(((observer_5) observer44_0))" "(let-values()" "(let-values(((s_217)(maybe-intro given-s_0 ns_106)))" -"(let-values(((ctx_66)" +"(let-values(((ctx_69)" "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" "(make-expand-context10.1 #f observer133_0 #f ns132_0))))" -"(let-values(((phase_132)(namespace-phase ns_106)))" +"(let-values(((phase_133)(namespace-phase ns_106)))" "((letrec-values(((loop_101)" -"(lambda(s_460 phase_133 ns_107 as-tail?_7)" +"(lambda(s_462 phase_134 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_198) ctx_66))" -"(let-values(((the-struct_72) v_198))" -"(if(expand-context/outer? the-struct_72)" +"(let-values(((v_199) ctx_69))" +"(let-values(((the-struct_71) v_199))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" -"(let-values(((the-struct_73)" +"(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_198)))" +" v_199)))" "(if(expand-context/inner?" -" the-struct_73)" +" the-struct_72)" "(let-values(((phase135_1)" -" phase_133)" +" phase_134)" "((namespace136_0)" " ns_107)" "((just-once?137_0)" @@ -45254,91 +45284,93 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-module-scopes" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-defined-syms" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-counter" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-lift-key" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-to-parsed?" -" the-struct_73)" +" the-struct_72)" " phase135_1" " namespace136_0" " just-once?137_0" "(expand-context/inner-module-begin-k" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-allow-unbound?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-in-local-expand?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-keep-#%expression?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-stops" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-declared-submodule-names" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-lift-envs" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-module-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-require-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-to-module-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-requires+provides" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-observer" -" the-struct_73)" +" the-struct_72)" " for-serializable?138_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_73)))" +" the-struct_72)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_73)))))" +" the-struct_72)))))" "(expand-context/outer1.1" " inner134_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/outer-use-site-scopes" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/outer-frame-id" -" the-struct_72)" +" the-struct_71)" "(expand-context/outer-context" -" the-struct_72)" -"(expand-context/outer-env the-struct_72)" +" the-struct_71)" +"(expand-context/outer-env the-struct_71)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_72)" -"(expand-context/outer-scopes the-struct_72)" +" the-struct_71)" +"(expand-context/outer-scopes the-struct_71)" "(expand-context/outer-def-ctx-scopes" -" the-struct_72)" +" the-struct_71)" "(expand-context/outer-binding-layer" -" the-struct_72)" +" the-struct_71)" "(expand-context/outer-reference-records" -" the-struct_72)" +" the-struct_71)" "(expand-context/outer-only-immediate?" -" the-struct_72)" +" the-struct_71)" "(expand-context/outer-need-eventually-defined" -" the-struct_72)" +" the-struct_71)" "(expand-context/outer-current-introduction-scopes" -" the-struct_72)" -"(expand-context/outer-name the-struct_72)))" +" the-struct_71)" +"(expand-context/outer-current-use-scopes" +" the-struct_71)" +"(expand-context/outer-name the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_460 #f)))" +" the-struct_71))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_462 #f)))" "(let-values((()" "(begin" "(let-values(((obs_47)" @@ -45350,122 +45382,124 @@ static const char *startup_source = "(call-expand-observe" " obs_47" " 'visit" -" s_460)))" +" s_462)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" -" s_460" -"(let-values(((v_199) tl-ctx_0))" -"(let-values(((the-struct_74) v_199))" -"(if(expand-context/outer? the-struct_74)" +" s_462" +"(let-values(((v_200) tl-ctx_0))" +"(let-values(((the-struct_73) v_200))" +"(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" -"(let-values(((the-struct_75)" +"(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_199)))" +" v_200)))" "(if(expand-context/inner?" -" the-struct_75)" +" the-struct_74)" "(let-values(((phase141_0)" -" phase_133)" +" phase_134)" "((namespace142_0)" " ns_107))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-module-scopes" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-defined-syms" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-counter" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-lift-key" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-to-parsed?" -" the-struct_75)" +" the-struct_74)" " phase141_0" " namespace142_0" "(expand-context/inner-just-once?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-module-begin-k" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-allow-unbound?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-in-local-expand?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-keep-#%expression?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-stops" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-declared-submodule-names" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-lifts" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-lift-envs" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-module-lifts" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-require-lifts" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-to-module-lifts" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-requires+provides" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-observer" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-for-serializable?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_75)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_75)))))" -"(expand-context/outer1.1" -" inner140_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_74)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_74)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_74)" -"(root-expand-context/outer-frame-id" -" the-struct_74)" -"(expand-context/outer-context" -" the-struct_74)" -"(expand-context/outer-env" -" the-struct_74)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_74)" -"(expand-context/outer-scopes" -" the-struct_74)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_74)" -"(expand-context/outer-binding-layer" -" the-struct_74)" -"(expand-context/outer-reference-records" -" the-struct_74)" -" only-immediate?139_0" -"(expand-context/outer-need-eventually-defined" -" the-struct_74)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_74)" -"(expand-context/outer-name" " the-struct_74)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_74)))))" +"(expand-context/outer1.1" +" inner140_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_73)" +"(root-expand-context/outer-post-expansion-shifts" +" 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)" +" only-immediate?139_0" +"(expand-context/outer-need-eventually-defined" +" the-struct_73)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_73)" +"(expand-context/outer-current-use-scopes" +" the-struct_73)" +"(expand-context/outer-name" +" the-struct_73)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_74)))))))" +" the-struct_73)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_7)))" -"(if(let-values(((or-part_300)" +"(if(let-values(((or-part_297)" "(pair? require-lifts_5)))" -"(if or-part_300 or-part_300(pair? lifts_12)))" +"(if or-part_297 or-part_297(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_4)" "(let-values(((temp143_1)" @@ -45473,7 +45507,7 @@ static const char *startup_source = " require-lifts_5" " lifts_12))" "((exp-s144_0) exp-s_7)" -"((phase145_0) phase_133))" +"((phase145_0) phase_134))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" @@ -45496,7 +45530,7 @@ static const char *startup_source = " new-s_4" "(loop_101" " new-s_4" -" phase_133" +" phase_134" " ns_107" " as-tail?_7)))))" "(if(not single_0)" @@ -45520,14 +45554,14 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_133)))" +" phase_134)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_50)" "(expand-context-observer" -" ctx_66)))" +" ctx_69)))" "(if obs_50" "(let-values()" "(let-values()" @@ -45537,18 +45571,18 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_29 begin146_0 e147_0)" -"(let-values(((s_461)" +"(let-values(((s_463)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_461))" +" s_463))" "(let-values(((begin146_1" " e147_1)" "(let-values(((s_225)" "(if(syntax?$1" -" s_461)" +" s_463)" "(syntax-e$1" -" s_461)" -" s_461)))" +" s_463)" +" s_463)))" "(if(pair?" " s_225)" "(let-values(((begin148_0)" @@ -45557,15 +45591,15 @@ static const char *startup_source = " s_225)))" " s_115))" "((e149_0)" -"(let-values(((s_436)" +"(let-values(((s_438)" "(cdr" " s_225)))" "(let-values(((s_226)" "(if(syntax?$1" -" s_436)" +" s_438)" "(syntax-e$1" -" s_436)" -" s_436)))" +" s_438)" +" s_438)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" " s_226)))" @@ -45607,7 +45641,7 @@ static const char *startup_source = "(let-values()" "(loop_101" "(car es_2)" -" phase_133" +" phase_134" " ns_107" " as-tail?_7))" "(let-values()" @@ -45629,14 +45663,14 @@ static const char *startup_source = "(loop_101" "(car" " es_2)" -" phase_133" +" phase_134" " ns_107" " #f)" "(begin" "(loop_101" "(car" " es_2)" -" phase_133" +" phase_134" " ns_107" " #f)" "(void)))))" @@ -45690,38 +45724,38 @@ static const char *startup_source = "(let-values(((ok?_30" " begin-for-syntax150_0" " e151_0)" -"(let-values(((s_462)" +"(let-values(((s_464)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_462))" +" s_464))" "(let-values(((begin-for-syntax150_1" " e151_1)" "(let-values(((s_127)" "(if(syntax?$1" -" s_462)" -"(syntax-e$1" -" s_462)" -" s_462)))" -"(if(pair?" -" s_127)" -"(let-values(((begin-for-syntax152_0)" -"(let-values(((s_463)" -"(car" -" s_127)))" -" s_463))" -"((e153_0)" -"(let-values(((s_464)" -"(cdr" -" s_127)))" -"(let-values(((s_465)" -"(if(syntax?$1" " s_464)" "(syntax-e$1" " s_464)" " s_464)))" +"(if(pair?" +" s_127)" +"(let-values(((begin-for-syntax152_0)" +"(let-values(((s_465)" +"(car" +" s_127)))" +" s_465))" +"((e153_0)" +"(let-values(((s_466)" +"(cdr" +" s_127)))" +"(let-values(((s_467)" +"(if(syntax?$1" +" s_466)" +"(syntax-e$1" +" s_466)" +" s_466)))" "(let-values(((flat-s_22)" "(to-syntax-list.1" -" s_465)))" +" s_467)))" "(if(not" " flat-s_22)" "(let-values()" @@ -45743,7 +45777,7 @@ static const char *startup_source = " begin-for-syntax150_1" " e151_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_133)))" +"(add1 phase_134)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" @@ -45792,7 +45826,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_300)" -"(let-values(((s_466)" +"(let-values(((s_468)" "(unsafe-car" " lst_300))" "((rest_111)" @@ -45817,7 +45851,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_101" -" s_466" +" s_468" " next-phase_0" " next-ns_0" " #f)))" @@ -45868,7 +45902,7 @@ static const char *startup_source = " as-tail?_7))))))))))))))))))" " loop_101)" " s_217" -" phase_132" +" phase_133" " ns_106" " #t)))))))))))))))))" "(define-values" @@ -45877,17 +45911,17 @@ static const char *startup_source = "(begin(if(syntax?$1 s_341) s_341(1/namespace-syntax-introduce(1/datum->syntax #f s_341) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_467 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_467)(cons form-id_0 r_44) s_467 s_467) s_467))))" +"(lambda(form-id_0 s_469 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_469)(cons form-id_0 r_44) s_469 s_469) s_469))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_344 ctx_26)" +"(lambda(s_344 ctx_70)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_26)))" +"(let-values(((ns_109)(expand-context-namespace ctx_70)))" "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp154_1)(make-top-level-lift ctx_26)))" +"(let-values(((temp154_1)(make-top-level-lift ctx_70)))" "(make-lift-context6.1 #f temp154_1))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" @@ -45896,84 +45930,85 @@ static const char *startup_source = "(let-values(((exp-s_8)" "(let-values(((s155_0) s_344)" "((temp156_0)" -"(let-values(((v_200) ctx_26))" -"(let-values(((the-struct_76) v_200))" -"(if(expand-context/outer? the-struct_76)" +"(let-values(((v_201) ctx_70))" +"(let-values(((the-struct_75) v_201))" +"(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" -"(let-values(((the-struct_77)" -"(root-expand-context/outer-inner v_200)))" -"(if(expand-context/inner? the-struct_77)" +"(let-values(((the-struct_76)" +"(root-expand-context/outer-inner v_201)))" +"(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" "((require-lifts160_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-module-scopes" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-defined-syms" -" the-struct_77)" -"(root-expand-context/inner-counter the-struct_77)" +" the-struct_76)" +"(root-expand-context/inner-counter the-struct_76)" "(root-expand-context/inner-lift-key" -" the-struct_77)" -"(expand-context/inner-to-parsed? the-struct_77)" -"(expand-context/inner-phase the-struct_77)" -"(expand-context/inner-namespace the-struct_77)" -"(expand-context/inner-just-once? the-struct_77)" +" the-struct_76)" +"(expand-context/inner-to-parsed? the-struct_76)" +"(expand-context/inner-phase the-struct_76)" +"(expand-context/inner-namespace the-struct_76)" +"(expand-context/inner-just-once? the-struct_76)" "(expand-context/inner-module-begin-k" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-allow-unbound?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-in-local-expand?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-keep-#%expression?" -" the-struct_77)" -"(expand-context/inner-stops the-struct_77)" +" the-struct_76)" +"(expand-context/inner-stops the-struct_76)" "(expand-context/inner-declared-submodule-names" -" the-struct_77)" +" the-struct_76)" " lifts158_0" -"(expand-context/inner-lift-envs the-struct_77)" +"(expand-context/inner-lift-envs the-struct_76)" " module-lifts159_0" " require-lifts160_0" "(expand-context/inner-to-module-lifts" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-requires+provides" -" the-struct_77)" -"(expand-context/inner-observer the-struct_77)" +" the-struct_76)" +"(expand-context/inner-observer the-struct_76)" "(expand-context/inner-for-serializable?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_77)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_77)))))" +" the-struct_76)))))" "(expand-context/outer1.1" " inner157_0" -"(root-expand-context/outer-post-expansion-scope the-struct_76)" -"(root-expand-context/outer-post-expansion-shifts the-struct_76)" -"(root-expand-context/outer-use-site-scopes the-struct_76)" -"(root-expand-context/outer-frame-id the-struct_76)" -"(expand-context/outer-context the-struct_76)" -"(expand-context/outer-env the-struct_76)" -"(expand-context/outer-post-expansion-scope-action the-struct_76)" -"(expand-context/outer-scopes the-struct_76)" -"(expand-context/outer-def-ctx-scopes the-struct_76)" -"(expand-context/outer-binding-layer the-struct_76)" -"(expand-context/outer-reference-records the-struct_76)" -"(expand-context/outer-only-immediate? the-struct_76)" -"(expand-context/outer-need-eventually-defined the-struct_76)" -"(expand-context/outer-current-introduction-scopes the-struct_76)" -"(expand-context/outer-name the-struct_76)))" +"(root-expand-context/outer-post-expansion-scope the-struct_75)" +"(root-expand-context/outer-post-expansion-shifts the-struct_75)" +"(root-expand-context/outer-use-site-scopes the-struct_75)" +"(root-expand-context/outer-frame-id the-struct_75)" +"(expand-context/outer-context the-struct_75)" +"(expand-context/outer-env the-struct_75)" +"(expand-context/outer-post-expansion-scope-action the-struct_75)" +"(expand-context/outer-scopes the-struct_75)" +"(expand-context/outer-def-ctx-scopes the-struct_75)" +"(expand-context/outer-binding-layer the-struct_75)" +"(expand-context/outer-reference-records the-struct_75)" +"(expand-context/outer-only-immediate? the-struct_75)" +"(expand-context/outer-need-eventually-defined the-struct_75)" +"(expand-context/outer-current-introduction-scopes the-struct_75)" +"(expand-context/outer-current-use-scopes the-struct_75)" +"(expand-context/outer-name the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_76))))))" +" the-struct_75))))))" "(expand9.1 #f #f #f s155_0 temp156_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45983,31 +46018,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_348 phase_134)" +"(lambda(s_348 phase_135)" "(let-values(((ok?_31 #%require161_0 req162_0)" -"(let-values(((s_468)(syntax-disarm$1 s_348)))" -"(let-values(((orig-s_35) s_468))" +"(let-values(((s_470)(syntax-disarm$1 s_348)))" +"(let-values(((orig-s_35) s_470))" "(let-values(((#%require161_1 req162_1)" -"(let-values(((s_469)(if(syntax?$1 s_468)(syntax-e$1 s_468) s_468)))" -"(if(pair? s_469)" -"(let-values(((#%require163_0)(let-values(((s_470)(car s_469))) s_470))" +"(let-values(((s_471)(if(syntax?$1 s_470)(syntax-e$1 s_470) s_470)))" +"(if(pair? s_471)" +"(let-values(((#%require163_0)(let-values(((s_472)(car s_471))) s_472))" "((req164_0)" -"(let-values(((s_471)(cdr s_469)))" -"(let-values(((s_472)" -"(if(syntax?$1 s_471)" -"(syntax-e$1 s_471)" -" s_471)))" -"(if(pair? s_472)" +"(let-values(((s_473)(cdr s_471)))" +"(let-values(((s_474)" +"(if(syntax?$1 s_473)" +"(syntax-e$1 s_473)" +" s_473)))" +"(if(pair? s_474)" "(let-values(((req165_0)" -"(let-values(((s_473)(car s_472)))" -" s_473))" +"(let-values(((s_475)(car s_474)))" +" s_475))" "(()" -"(let-values(((s_474)(cdr s_472)))" -"(let-values(((s_475)" -"(if(syntax?$1 s_474)" -"(syntax-e$1 s_474)" -" s_474)))" -"(if(null? s_475)" +"(let-values(((s_476)(cdr s_474)))" +"(let-values(((s_477)" +"(if(syntax?$1 s_476)" +"(syntax-e$1 s_476)" +" s_476)))" +"(if(null? s_477)" "(values)" "(raise-syntax-error$1" " #f" @@ -46021,8 +46056,8 @@ static const char *startup_source = "(let-values(((temp166_0)(list req162_0))" "((s167_0) s_348)" "((ns168_0) ns_110)" -"((phase169_1) phase_134)" -"((phase170_0) phase_134)" +"((phase169_1) phase_135)" +"((phase170_0) phase_135)" "((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))" "((temp172_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46120,20 +46155,20 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_78)" +"(let-values(((the-struct_59)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_78)" +" the-struct_59)" "(let-values(((last174_0)" " dv_0))" "(lifted-parsed-begin22.1" "(lifted-parsed-begin-seq" -" the-struct_78)" +" the-struct_59)" " last174_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_78)))" +" the-struct_59)))" " dv_0)))))" " fold-var_280))))" "(values fold-var_281)))))" @@ -46145,9 +46180,9 @@ static const char *startup_source = " exp-s_9))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_67 require-lifts_7 lifts_14 exp-s_10 ns_111)" +"(lambda(ctx_71 require-lifts_7 lifts_14 exp-s_10 ns_111)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_67)))" +"(let-values(((obs_56)(expand-context-observer ctx_71)))" "(if obs_56" "(let-values()" "(let-values(((new-s_7)" @@ -46160,29 +46195,29 @@ static const char *startup_source = " temp175_0" " exp-s176_0" " temp177_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_7)(log-top-begin-before ctx_67 new-s_7))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_7)(log-top-begin-before ctx_71 new-s_7))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_68 new-s_8)" +"(lambda(ctx_72 new-s_8)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_68)))" +"(let-values(((obs_57)(expand-context-observer ctx_72)))" "(if obs_57" "(let-values()" "(let-values(((ok?_32 begin178_0 e179_0)" -"(let-values(((s_476) new-s_8))" -"(let-values(((orig-s_36) s_476))" +"(let-values(((s_478) new-s_8))" +"(let-values(((orig-s_36) s_478))" "(let-values(((begin178_1 e179_1)" -"(let-values(((s_477)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" -"(if(pair? s_477)" -"(let-values(((begin180_0)(let-values(((s_478)(car s_477))) s_478))" +"(let-values(((s_479)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" +"(if(pair? s_479)" +"(let-values(((begin180_0)(let-values(((s_480)(car s_479))) s_480))" "((e181_0)" -"(let-values(((s_479)(cdr s_477)))" -"(let-values(((s_480)" -"(if(syntax?$1 s_479)" -"(syntax-e$1 s_479)" -" s_479)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_480)))" +"(let-values(((s_481)(cdr s_479)))" +"(let-values(((s_482)" +"(if(syntax?$1 s_481)" +"(syntax-e$1 s_481)" +" s_481)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_482)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46202,25 +46237,25 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_69 new-s_9)" +"(lambda(ctx_73 new-s_9)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_69)))" +"(let-values(((obs_58)(expand-context-observer ctx_73)))" "(if obs_58" "(let-values()" "(let-values(((ok?_33 begin182_0 e183_0)" "(let-values(((s_393) new-s_9))" "(let-values(((orig-s_37) s_393))" "(let-values(((begin182_1 e183_1)" -"(let-values(((s_481)(if(syntax?$1 s_393)(syntax-e$1 s_393) s_393)))" -"(if(pair? s_481)" -"(let-values(((begin184_0)(let-values(((s_138)(car s_481))) s_138))" +"(let-values(((s_483)(if(syntax?$1 s_393)(syntax-e$1 s_393) s_393)))" +"(if(pair? s_483)" +"(let-values(((begin184_0)(let-values(((s_138)(car s_483))) s_138))" "((e185_0)" -"(let-values(((s_139)(cdr s_481)))" -"(let-values(((s_482)" +"(let-values(((s_139)(cdr s_483)))" +"(let-values(((s_484)" "(if(syntax?$1 s_139)" "(syntax-e$1 s_139)" " s_139)))" -"(let-values(((flat-s_24)(to-syntax-list.1 s_482)))" +"(let-values(((flat-s_24)(to-syntax-list.1 s_484)))" "(if(not flat-s_24)" "(let-values()" "(raise-syntax-error$1" @@ -46231,7 +46266,7 @@ static const char *startup_source = "(values begin184_0 e185_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin182_1 e183_1))))))" -"(let-values(((obs_59)(expand-context-observer ctx_69)))" +"(let-values(((obs_59)(expand-context-observer ctx_73)))" "(if obs_59" "(let-values()" "(let-values()" @@ -46318,12 +46353,12 @@ static const char *startup_source = "(if(list? l_75)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_298)(not p_55)))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_299)(complete-path-string? p_55)))" -"(if or-part_299" -" or-part_299" +"(let-values(((or-part_295)(not p_55)))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_296)(complete-path-string? p_55)))" +"(if or-part_296" +" or-part_296" "(if(hash? p_55)" "(let-values(((ht_148) p_55))" "(begin" @@ -46403,7 +46438,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_167" -"(let-values(((k_36 v_201)(hash-iterate-key+value ht_149 i_167)))" +"(let-values(((k_36 v_202)(hash-iterate-key+value ht_149 i_167)))" "(let-values(((table_206)" "(let-values(((table_180) table_205))" "(let-values(((table_207)" @@ -46412,7 +46447,7 @@ static const char *startup_source = "(let-values()" "(values" " k_36" -"(to-path v_201)))))" +"(to-path v_202)))))" "(hash-set" " table_180" " key_81" @@ -46465,17 +46500,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_202)" +"(lambda(v_203)" "(begin" "(if((lambda(v_69)" "(let-values(((or-part_32)(eq? v_69 'modify-seconds)))" "(if or-part_32 or-part_32(eq? v_69 'exists))))" -" v_202)" +" v_203)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_202)))" -" v_202))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_203)))" +" v_203))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_203)(if v_203 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_204)(if v_204 #t #f))))" "(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" @@ -46516,26 +46551,26 @@ static const char *startup_source = "(define-values(compile$1)(lambda(s_178)(begin 'compile((1/current-compile)(intro s_178) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_483)" +"(lambda(s_485)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_483) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_483)))" -"((1/current-compile) s_483 #f)))))))" +" (if (syntax?$1 s_485) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_485)))" +"((1/current-compile) s_485 #f)))))))" "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_438)" +"(lambda(s_440)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_438) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_438)))" -"(expand$1 s_438(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_445)(begin 'expand-once(expand-once$1(intro s_445)))))" +" (if (syntax?$1 s_440) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_440)))" +"(expand$1 s_440(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_447)(begin 'expand-once(expand-once$1(intro s_447)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_179)" @@ -46589,9 +46624,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_216)(1/module-path? mod-path_5)))" -"(if or-part_216" -" or-part_216" +"(if(let-values(((or-part_214)(1/module-path? mod-path_5)))" +"(if or-part_214" +" or-part_214" "(let-values(((or-part_3)(1/module-path-index? mod-path_5)))" "(if or-part_3 or-part_3(1/resolved-module-path? mod-path_5)))))" "(void)" @@ -46634,13 +46669,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_47 #t)))" -"(let-values(((phase_108)(namespace-phase ns_114)))" +"(let-values(((phase_109)(namespace-phase ns_114)))" "(if(not sym_71)" "(let-values()" "(let-values(((ns17_0) ns_114)" "((mpi18_0) mpi_47)" -"((phase19_2) phase_108)" -"((phase20_1) phase_108)" +"((phase19_2) phase_109)" +"((phase20_1) phase_109)" "((temp21_1) #f))" "(namespace-module-instantiate!96.1" " temp21_1" @@ -46654,8 +46689,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns22_0) ns_114)" "((mpi23_0) mpi_47)" -"((phase24_3) phase_108)" -"((phase25_0) phase_108))" +"((phase24_3) phase_109)" +"((phase25_0) phase_109))" "(namespace-module-instantiate!96.1" " #t" " phase25_0" @@ -46668,8 +46703,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns26_0) ns_114)" "((mpi27_0) mpi_47)" -"((phase28_4) phase_108)" -"((phase29_0) phase_108))" +"((phase28_4) phase_109)" +"((phase29_0) phase_109))" "(namespace-module-visit!104.1" " phase29_0" " ns26_0" @@ -46713,8 +46748,8 @@ static const char *startup_source = "(begin" "(let-values(((ns30_2) ns_114)" "((mpi31_0) mpi_47)" -"((phase32_2) phase_108)" -"((phase33_1) phase_108)" +"((phase32_2) phase_109)" +"((phase33_1) phase_109)" "((temp34_4) #f))" "(namespace-module-instantiate!96.1" " temp34_4" @@ -46737,7 +46772,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp37_1)" "(phase-" -" phase_108" +" phase_109" " ex-phase_0))" "((temp38_3) #t))" "(namespace->module-namespace82.1" @@ -46831,9 +46866,9 @@ static const char *startup_source = "((mpi40_1)" " mpi_47)" "((phase41_2)" -" phase_108)" +" phase_109)" "((phase42_0)" -" phase_108))" +" phase_109))" "(namespace-module-visit!104.1" " phase42_0" " ns39_0" @@ -46993,8 +47028,8 @@ 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_42)" -"(let-values(((or-part_299)(1/string->number start_41)))" -"(if or-part_299 or-part_299 0))))" +"(let-values(((or-part_296)(1/string->number start_41)))" +"(if or-part_296 or-part_296 0))))" "(let-values(((end_32)" "(let-values(((or-part_90)(1/string->number end_31)))" "(if or-part_90 or-part_90 0))))" @@ -47115,7 +47150,7 @@ static const char *startup_source = "(lambda(d_34)" "(begin" " (let-values (((p_63) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_294)" +"(let-values(((or-part_291)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p7_1) p_63)" @@ -47128,7 +47163,7 @@ static const char *startup_source = "(with-input-from-file45.1 'binary p7_1 temp8_1))" " #f)" " #f)))" -"(if or-part_294 or-part_294 '#hash()))))))" +"(if or-part_291 or-part_291 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -47304,7 +47339,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_204)" +"(let-values(((v_205)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" @@ -47321,28 +47356,28 @@ static const char *startup_source = "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_204)" +"(if(if(list? v_205)" "(andmap2" "(lambda(p_66)" "(if(list? p_66)" -"(if(let-values(((or-part_225)(= 2(length p_66))))" -"(if or-part_225 or-part_225(= 3(length p_66))))" -"(if(let-values(((or-part_301)(string?(car p_66))))" -"(if or-part_301" -" or-part_301" -"(let-values(((or-part_302)" +"(if(let-values(((or-part_223)(= 2(length p_66))))" +"(if or-part_223 or-part_223(= 3(length p_66))))" +"(if(let-values(((or-part_298)(string?(car p_66))))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_299)" "(eq? 'root(car p_66))))" -"(if or-part_302" -" or-part_302" +"(if or-part_299" +" or-part_299" "(eq? 'static-root(car p_66))))))" "(if(path-string?(cadr p_66))" -"(let-values(((or-part_303)(null?(cddr p_66))))" -"(if or-part_303 or-part_303(regexp?(caddr p_66))))" +"(let-values(((or-part_300)(null?(cddr p_66))))" +"(if or-part_300 or-part_300(regexp?(caddr p_66))))" " #f)" " #f)" " #f)" " #f))" -" v_204)" +" v_205)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -47354,8 +47389,8 @@ static const char *startup_source = "(begin" "(for-each2" "(lambda(p_67)" -"(if(let-values(((or-part_265)(null?(cddr p_67))))" -"(if or-part_265 or-part_265(regexp-match?(caddr p_67)(version))))" +"(if(let-values(((or-part_263)(null?(cddr p_67))))" +"(if or-part_263 or-part_263(regexp-match?(caddr p_67)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_67) dir_0))))" @@ -47380,19 +47415,19 @@ static const char *startup_source = "(let-values()(hash-set! ht_150 #f null)))" "(hash-for-each" " ht_150" -"(lambda(k_38 v_205)" -"(hash-set! ht_150 k_38(cons dir_1 v_205))))))" +"(lambda(k_38 v_206)" +"(hash-set! ht_150 k_38(cons dir_1 v_206))))))" "(let-values()" -"(let-values(((s_484)(string->symbol(car p_67))))" +"(let-values(((s_486)(string->symbol(car p_67))))" "(hash-set!" " ht_150" -" s_484" -"(cons(box dir_1)(hash-ref ht_150 s_484 null)))))))))" +" s_486" +"(cons(box dir_1)(hash-ref ht_150 s_486 null)))))))))" "(void)))" -" v_204)" +" v_205)" "(hash-for-each" " ht_150" -"(lambda(k_39 v_206)(hash-set! ht_150 k_39(reverse$1 v_206))))" +"(lambda(k_39 v_207)(hash-set! ht_150 k_39(reverse$1 v_207))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_150))" " ht_150))))))))))))))))))))))" "(define-values" @@ -47526,13 +47561,13 @@ static const char *startup_source = "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))" "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))" "(if file-name_1" -"(if(let-values(((or-part_304)" +"(if(let-values(((or-part_301)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_304" -" or-part_304" +"(if or-part_301" +" or-part_301" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -47634,13 +47669,13 @@ static const char *startup_source = "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_207)" +"(let-values(((v_208)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_207" +"(if v_208" "(cons" "(simplify-path" -"(path->complete-path v_207(current-directory)))" +"(path->complete-path v_208(current-directory)))" "(loop_105(cdr l_83)))" "(loop_105(cdr l_83))))))))))" " loop_105)" @@ -47660,14 +47695,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_208)" +"(lambda(v_209)" "(begin" "(if((lambda(x_83)" "(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" -" v_208)" +" v_209)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_208)))" -" v_208))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_209)))" +" v_209))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47794,43 +47829,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_27)(begin(read-config/outer-wrap v_27))))" -"(define-values(read-config-line)(lambda(v_209)(begin(read-config/outer-line v_209))))" -"(define-values(read-config-col)(lambda(v_210)(begin(read-config/outer-col v_210))))" -"(define-values(read-config-pos)(lambda(v_211)(begin(read-config/outer-pos v_211))))" -"(define-values(read-config-indentations)(lambda(v_212)(begin(read-config/outer-indentations v_212))))" +"(define-values(read-config-line)(lambda(v_210)(begin(read-config/outer-line v_210))))" +"(define-values(read-config-col)(lambda(v_211)(begin(read-config/outer-col v_211))))" +"(define-values(read-config-pos)(lambda(v_212)(begin(read-config/outer-pos v_212))))" +"(define-values(read-config-indentations)(lambda(v_213)(begin(read-config/outer-indentations v_213))))" "(define-values(read-config-keep-comment?)(lambda(v_98)(begin(read-config/outer-keep-comment? v_98))))" "(define-values" "(read-config-readtable)" -"(lambda(v_213)(begin(read-config/inner-readtable(read-config/outer-inner v_213)))))" +"(lambda(v_214)(begin(read-config/inner-readtable(read-config/outer-inner v_214)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_214)(begin(read-config/inner-next-readtable(read-config/outer-inner v_214)))))" +"(lambda(v_215)(begin(read-config/inner-next-readtable(read-config/outer-inner v_215)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_215)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_215)))))" +"(lambda(v_216)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_216)))))" "(define-values(read-config-source)(lambda(v_76)(begin(read-config/inner-source(read-config/outer-inner v_76)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_216)(begin(read-config/inner-read-compiled(read-config/outer-inner v_216)))))" +"(lambda(v_217)(begin(read-config/inner-read-compiled(read-config/outer-inner v_217)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_217)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_217)))))" +"(lambda(v_218)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_218)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_218)(begin(read-config/inner-module-declared?(read-config/outer-inner v_218)))))" +"(lambda(v_219)(begin(read-config/inner-module-declared?(read-config/outer-inner v_219)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_207)(begin(read-config/inner-coerce(read-config/outer-inner v_207)))))" +"(lambda(v_208)(begin(read-config/inner-coerce(read-config/outer-inner v_208)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_219)(begin(read-config/inner-coerce-key(read-config/outer-inner v_219)))))" +"(lambda(v_220)(begin(read-config/inner-coerce-key(read-config/outer-inner v_220)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_220)(begin(read-config/inner-parameter-override(read-config/outer-inner v_220)))))" +"(lambda(v_221)(begin(read-config/inner-parameter-override(read-config/outer-inner v_221)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_40)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_40)))))" -"(define-values(read-config-st)(lambda(v_221)(begin(read-config/inner-st(read-config/outer-inner v_221)))))" +"(define-values(read-config-st)(lambda(v_222)(begin(read-config/inner-st(read-config/outer-inner v_222)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47899,19 +47934,19 @@ static const char *startup_source = " wrap_4" "(let-values(((or-part_52) read-compiled_1))" " (if or-part_52 or-part_52 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_305) dynamic-require_1))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_302) dynamic-require_1))" +"(if or-part_302" +" or-part_302" "(lambda(mod-path_26 sym_96 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_177) module-declared?_1))" -"(if or-part_177" -" or-part_177" +"(let-values(((or-part_175) module-declared?_1))" +"(if or-part_175" +" or-part_175" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_220) coerce_1))" -"(if or-part_220 or-part_220(lambda(for-syntax?_2 v_144 srcloc_9) v_144)))" -"(let-values(((or-part_306) coerce-key_1))" -"(if or-part_306 or-part_306(lambda(for-syntax?_3 v_101) v_101)))" +"(let-values(((or-part_218) coerce_1))" +"(if or-part_218 or-part_218(lambda(for-syntax?_2 v_145 srcloc_9) v_145)))" +"(let-values(((or-part_303) coerce-key_1))" +"(if or-part_303 or-part_303(lambda(for-syntax?_3 v_147) v_147)))" " #f" " #f" " #f" @@ -47936,14 +47971,14 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_222) config_0))" -"(let-values(((the-struct_79) v_222))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((v_223) config_0))" +"(let-values(((the-struct_77) v_223))" +"(if(read-config/outer? the-struct_77)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_80)(read-config/outer-inner v_222)))" -"(if(read-config/inner? the-struct_80)" +"(let-values(((the-struct_78)(read-config/outer-inner v_223)))" +"(if(read-config/inner? the-struct_78)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47955,25 +47990,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_80)" -"(read-config/inner-read-compiled the-struct_80)" -"(read-config/inner-dynamic-require the-struct_80)" -"(read-config/inner-module-declared? the-struct_80)" -"(read-config/inner-coerce the-struct_80)" -"(read-config/inner-coerce-key the-struct_80)" -"(read-config/inner-parameter-override the-struct_80)" -"(read-config/inner-parameter-cache the-struct_80)" +"(read-config/inner-source the-struct_78)" +"(read-config/inner-read-compiled the-struct_78)" +"(read-config/inner-dynamic-require the-struct_78)" +"(read-config/inner-module-declared? the-struct_78)" +"(read-config/inner-coerce the-struct_78)" +"(read-config/inner-coerce-key the-struct_78)" +"(read-config/inner-parameter-override the-struct_78)" +"(read-config/inner-parameter-cache the-struct_78)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_78)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_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-line the-struct_77)" +"(read-config/outer-col the-struct_77)" +"(read-config/outer-pos the-struct_77)" +"(read-config/outer-indentations the-struct_77)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 in47_0 config48_0)" @@ -47984,16 +48019,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0) end-pos45_0))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_284) given-end-pos_0))" -"(if or-part_284" -" or-part_284" +"(let-values(((or-part_281) given-end-pos_0))" +"(if or-part_281" +" or-part_281" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" -"(let-values(((or-part_307)(read-config-source config_1)))" -"(if or-part_307" -" or-part_307" -" (let-values (((or-part_308) (object-name in_1))) (if or-part_308 or-part_308 \"UNKNOWN\"))))" +"(let-values(((or-part_304)(read-config-source config_1)))" +"(if or-part_304" +" or-part_304" +" (let-values (((or-part_305) (object-name in_1))) (if or-part_305 or-part_305 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -48004,56 +48039,56 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_223) config_2))" -"(let-values(((the-struct_81) v_223))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((v_224) config_2))" +"(let-values(((the-struct_79) v_224))" +"(if(read-config/outer? the-struct_79)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_223)))" +"((inner65_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-wrap the-struct_79)" " line62_0" " col63_0" " pos64_0" -"(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-indentations the-struct_79)" +"(read-config/outer-keep-comment? the-struct_79)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_224) config_3))" -"(let-values(((the-struct_82) v_224))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_224)))" +"(let-values(((v_225) config_3))" +"(let-values(((the-struct_80) v_225))" +"(if(read-config/outer? the-struct_80)" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_225)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" -"(read-config/outer-keep-comment? the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-keep-comment? the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_225) config_4))" -"(let-values(((the-struct_83) v_225))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_225)))" +"(let-values(((v_226) config_4))" +"(let-values(((the-struct_81) v_226))" +"(if(read-config/outer? the-struct_81)" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_226)))" "(read-config/outer1.1" " inner69_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-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -48062,18 +48097,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_81) config_5))" -"(let-values(((the-struct_84) v_81))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((the-struct_82) v_81))" +"(if(read-config/outer? the-struct_82)" "(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_81)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -48081,36 +48116,36 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_226) config_6))" -"(let-values(((the-struct_85) v_226))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((v_227) config_6))" +"(let-values(((the-struct_83) v_227))" +"(if(read-config/outer? the-struct_83)" "(let-values(((inner72_0)" -"(let-values(((the-struct_86)(read-config/outer-inner v_226)))" -"(if(read-config/inner? the-struct_86)" +"(let-values(((the-struct_84)(read-config/outer-inner v_227)))" +"(if(read-config/inner? the-struct_84)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_86)" -"(read-config/inner-for-syntax? the-struct_86)" -"(read-config/inner-source the-struct_86)" -"(read-config/inner-read-compiled the-struct_86)" -"(read-config/inner-dynamic-require the-struct_86)" -"(read-config/inner-module-declared? the-struct_86)" -"(read-config/inner-coerce the-struct_86)" -"(read-config/inner-coerce-key the-struct_86)" -"(read-config/inner-parameter-override the-struct_86)" -"(read-config/inner-parameter-cache the-struct_86)" -"(read-config/inner-st the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" +"(read-config/inner-next-readtable the-struct_84)" +"(read-config/inner-for-syntax? the-struct_84)" +"(read-config/inner-source the-struct_84)" +"(read-config/inner-read-compiled the-struct_84)" +"(read-config/inner-dynamic-require the-struct_84)" +"(read-config/inner-module-declared? the-struct_84)" +"(read-config/inner-coerce the-struct_84)" +"(read-config/inner-coerce-key the-struct_84)" +"(read-config/inner-parameter-override the-struct_84)" +"(read-config/inner-parameter-cache the-struct_84)" +"(read-config/inner-st the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" "(read-config/outer1.1" " inner72_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-indentations the-struct_85)" -"(read-config/outer-keep-comment? the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-keep-comment? the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(coerce)" "(lambda(val_77 in_2 config_7)" @@ -48122,26 +48157,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_227)(begin 'default-reader-guard v_227)))" +"(define-values(default-reader-guard$1)(lambda(v_228)(begin 'default-reader-guard v_228)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_228)" +"(lambda(v_229)" "(begin" -"(if(if(procedure? v_228)(procedure-arity-includes? v_228 1) #f)" +"(if(if(procedure? v_229)(procedure-arity-includes? v_229 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_228)))" -" v_228))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_229)))" +" v_229))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_229)(if v_229 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_230)(if v_230 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_230)(if v_230 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_231)(if v_231 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_66)(if v_66 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_67)(if v_67 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_233)(if v_233 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -48162,37 +48197,37 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_30)" "(begin" -"(let-values(((v_233) config_9))" -"(let-values(((the-struct_87) v_233))" -"(if(read-config/outer? the-struct_87)" +"(let-values(((v_234) config_9))" +"(let-values(((the-struct_85) v_234))" +"(if(read-config/outer? the-struct_85)" "(let-values(((inner1_0)" -"(let-values(((the-struct_88)(read-config/outer-inner v_233)))" -"(if(read-config/inner? the-struct_88)" +"(let-values(((the-struct_86)(read-config/outer-inner v_234)))" +"(if(read-config/inner? the-struct_86)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_30)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_88)" -"(read-config/inner-next-readtable the-struct_88)" -"(read-config/inner-for-syntax? the-struct_88)" -"(read-config/inner-source the-struct_88)" -"(read-config/inner-read-compiled the-struct_88)" -"(read-config/inner-dynamic-require the-struct_88)" -"(read-config/inner-module-declared? the-struct_88)" -"(read-config/inner-coerce the-struct_88)" -"(read-config/inner-coerce-key the-struct_88)" +"(read-config/inner-readtable the-struct_86)" +"(read-config/inner-next-readtable the-struct_86)" +"(read-config/inner-for-syntax? the-struct_86)" +"(read-config/inner-source the-struct_86)" +"(read-config/inner-read-compiled the-struct_86)" +"(read-config/inner-dynamic-require the-struct_86)" +"(read-config/inner-module-declared? the-struct_86)" +"(read-config/inner-coerce the-struct_86)" +"(read-config/inner-coerce-key the-struct_86)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_88)" -"(read-config/inner-st the-struct_88)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_88)))))" +"(read-config/inner-parameter-cache the-struct_86)" +"(read-config/inner-st the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_87)" -"(read-config/outer-line the-struct_87)" -"(read-config/outer-col the-struct_87)" -"(read-config/outer-pos the-struct_87)" -"(read-config/outer-indentations the-struct_87)" -"(read-config/outer-keep-comment? the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_87)))))))" +"(read-config/outer-wrap the-struct_85)" +"(read-config/outer-line the-struct_85)" +"(read-config/outer-col the-struct_85)" +"(read-config/outer-pos the-struct_85)" +"(read-config/outer-indentations the-struct_85)" +"(read-config/outer-keep-comment? the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48287,8 +48322,8 @@ static const char *startup_source = "(let-values(((key_83)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_164)(not key_83)))" -"(if or-part_164 or-part_164(char? key_83)))" +"(if(let-values(((or-part_162)(not key_83)))" +"(if or-part_162 or-part_162(char? key_83)))" "(void)" "(let-values()" "(raise-argument-error" @@ -48320,20 +48355,20 @@ static const char *startup_source = "(begin" "(if key_83" "(let-values()" -"(if(let-values(((or-part_258)" +"(if(let-values(((or-part_256)" "(eq? mode_17 'terminating-macro)))" -"(if or-part_258" -" or-part_258" -"(let-values(((or-part_259)" +"(if or-part_256" +" or-part_256" +"(let-values(((or-part_257)" "(eq?" " mode_17" " 'non-terminating-macro)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_295)" +"(if or-part_257" +" or-part_257" +"(let-values(((or-part_292)" "(eq? mode_17 'dispatch-macro)))" -"(if or-part_295" -" or-part_295" +"(if or-part_292" +" or-part_292" "(char? mode_17)))))))" "(void)" "(let-values()" @@ -48404,10 +48439,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_287)" +"(if(let-values(((or-part_284)" "(not target_0)))" -"(if or-part_287" -" or-part_287" +"(if or-part_284" +" or-part_284" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48493,7 +48528,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_309)(not rt_2)))(if or-part_309 or-part_309(not(char? c_59))))" +"(if(let-values(((or-part_306)(not rt_2)))(if or-part_306 or-part_306(not(char? c_59))))" "(let-values() c_59)" "(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" @@ -48517,7 +48552,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_234)" +"(let-values(((v_235)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48539,7 +48574,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_234) v_234(coerce v_234 in_3 config_14)))))))" +"(if(1/special-comment? v_235) v_235(coerce v_235 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48557,7 +48592,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_166)" +"(let-values(((or-part_164)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -48565,7 +48600,7 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_166 or-part_166 c_63))" +"(if or-part_164 or-part_164 c_63))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" @@ -48700,8 +48735,8 @@ static const char *startup_source = "((config34_0) config_18)" " ((temp35_2) \"~a\")" "((temp36_3)" -"(let-values(((s_485)(exn-message exn_3)))" -" (regexp-replace \"^[a-z-]*: \" s_485 \"\")))" +"(let-values(((s_487)(exn-message exn_3)))" +" (regexp-replace \"^[a-z-]*: \" s_487 \"\")))" "((temp37_2)(exn-continuation-marks exn_3)))" "(reader-error12.1" " temp37_2" @@ -48775,10 +48810,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_310)" +"(if(let-values(((or-part_307)" "(eof-object? c_66)))" -"(if or-part_310" -" or-part_310" +"(if or-part_307" +" or-part_307" "(eqv?" " '#\\newline" "(effective-char c_66 config_15))))" @@ -48832,8 +48867,8 @@ static const char *startup_source = "(if(eq? c_69 'special)" "(special1.1 'special)" " c_69)))))" -"(let-values(((or-part_311)(eqv? '#\\space c3_2)))" -"(if or-part_311 or-part_311(eqv? '#\\/ c3_2))))" +"(let-values(((or-part_308)(eqv? '#\\space c3_2)))" +"(if or-part_308 or-part_308(eqv? '#\\/ c3_2))))" " #f)" " #f)" "(let-values()" @@ -48858,13 +48893,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_235)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_236)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_235)" +"(if(eof-object? v_236)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_235)" +"((v3_0) v_236)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48965,12 +49000,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_312)(char=? dc_0 '#\\()))" -"(if or-part_312" -" or-part_312" -"(let-values(((or-part_292)(char=? dc_0 '#\\))))" -"(if or-part_292" -" or-part_292" +"(let-values(((or-part_309)(char=? dc_0 '#\\()))" +"(if or-part_309" +" or-part_309" +"(let-values(((or-part_289)(char=? dc_0 '#\\))))" +"(if or-part_289" +" or-part_289" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -48986,9 +49021,9 @@ static const char *startup_source = "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_216)(char=? dc_0 '#\\`)))" -"(if or-part_216" -" or-part_216" +"(let-values(((or-part_214)(char=? dc_0 '#\\`)))" +"(if or-part_214" +" or-part_214" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -49066,9 +49101,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_72 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_72))" -"(if(let-values(((or-part_299) s_10))(if or-part_299 or-part_299 c_72))" +"(if(let-values(((or-part_296) s_10))(if or-part_296 or-part_296 c_72))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_307) s_10)) (if or-part_307 or-part_307 c_72))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -49250,7 +49285,7 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_73))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_302)" +"(let-values(((or-part_299)" "(let-values(((lst_7)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -49286,7 +49321,7 @@ static const char *startup_source = " for-loop_0)" " #f" " lst_7)))))" -" (if or-part_302 or-part_302 \"expected\"))))" +" (if or-part_299 or-part_299 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -49334,26 +49369,26 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_236) elem-config_0))" -"(let-values(((the-struct_89) v_236))" -"(if(read-config/outer? the-struct_89)" +"(let-values(((v_237) elem-config_0))" +"(let-values(((the-struct_87) v_237))" +"(if(read-config/outer? the-struct_87)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_236)))" +"((inner21_0)(read-config/outer-inner v_237)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_89)" -"(read-config/outer-line the-struct_89)" -"(read-config/outer-col the-struct_89)" -"(read-config/outer-pos the-struct_89)" +"(read-config/outer-wrap the-struct_87)" +"(read-config/outer-line the-struct_87)" +"(read-config/outer-col the-struct_87)" +"(read-config/outer-pos the-struct_87)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_89)))" +"(read-config/outer-keep-comment? the-struct_87)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_89))))))" +" the-struct_87))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_20)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49482,7 +49517,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_237)" +"(let-values(((v_238)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49503,11 +49538,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_237" +" v_238" "(append" "(reverse$1" " accum_0)" -" v_237)))" +" v_238)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49546,7 +49581,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_237))" +" v_238))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49571,11 +49606,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_265)" +"(if(let-values(((or-part_263)" "(eof-object?" " post-ec_0)))" -"(if or-part_265" -" or-part_265" +"(if or-part_263" +" or-part_263" "(eqv?" " post-ec_0" " closer_1)))" @@ -49631,12 +49666,12 @@ static const char *startup_source = " temp40_2" "(list)))))))))))))" "(let-values()" -"(let-values(((v_137)" +"(let-values(((v_138)" "(read-one/not-eof_0" " c_74" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_137)" +"(if(1/special-comment? v_138)" "(let-values()" "(loop_109" " depth_11" @@ -49648,13 +49683,13 @@ static const char *startup_source = "(let-values()" "(loop_109" " depth_11" -"(cons v_137 accum_0)" +"(cons v_138 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_137" +" v_138" "(loop_109" "(add1 depth_11)" " null" @@ -49710,11 +49745,11 @@ static const char *startup_source = "(consume-char in_6 c_68)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))" "((letrec-values(((loop_110)" -"(lambda(v_201 max-count_1)" +"(lambda(v_202 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_201)" +"(let-values() v_202)" "(let-values()" "(let-values(((c_76)" "(let-values(((in_25) in_6)" @@ -49738,9 +49773,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_76))" "(void))" "(loop_110" -"(+(digit->number c_76)(* v_201 base_15))" +"(+(digit->number c_76)(* v_202 base_15))" "(sub1 max-count_1))))" -"(let-values() v_201)))))))))" +"(let-values() v_202)))))))))" " loop_110)" "(+(digit->number c_68)(* init-v_0 base_15))" "(sub1 max-count_0))))" @@ -49763,11 +49798,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_77)" "(begin" -"(let-values(((or-part_265)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_265" -" or-part_265" -"(let-values(((or-part_313)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_313 or-part_313(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" +"(let-values(((or-part_263)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" +"(if or-part_263" +" or-part_263" +"(let-values(((or-part_310)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_310 or-part_310(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_78)" @@ -49840,9 +49875,9 @@ static const char *startup_source = " convert-mode72_0))))))))))))))" "(case-lambda" "((s_308)(begin 'string->number(string->number5_0 s_308 10 'number-or-false unsafe-undefined)))" -"((s_486 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_486 radix_1 convert-mode_1 decimal-mode3_1))" +"((s_488 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_488 radix_1 convert-mode_1 decimal-mode3_1))" "((s_187 radix_2 convert-mode2_1)(string->number5_0 s_187 radix_2 convert-mode2_1 unsafe-undefined))" -"((s_487 radix1_1)(string->number5_0 s_487 radix1_1 'number-or-false unsafe-undefined)))))" +"((s_489 radix1_1)(string->number5_0 s_489 radix1_1 'number-or-false unsafe-undefined)))))" "(define-values" "(do-string->number17.1)" "(lambda(in-complex8_0 radix-set?7_0 s11_1 start12_0 end13_0 radix14_0 exactness15_0 convert-mode16_0)" @@ -49953,8 +49988,8 @@ static const char *startup_source = "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_264)(exactness-set? exactness_0)))" -"(if or-part_264 or-part_264 in-complex_0))" +"(if(let-values(((or-part_262)(exactness-set? exactness_0)))" +"(if or-part_262 or-part_262 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -49969,10 +50004,10 @@ static const char *startup_source = "((radix76_0) radix_3)" "((radix-set?77_0) radix-set?_0)" "((temp78_2)" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_208)" "(char=? i_169 '#\\e)))" -"(if or-part_210" -" or-part_210" +"(if or-part_208" +" or-part_208" "(char=? i_169 '#\\E)))" " 'exact" " 'inexact))" @@ -49990,8 +50025,8 @@ static const char *startup_source = " temp78_2" " temp79_0)))))" "(let-values()" -"(if(let-values(((or-part_211) radix-set?_0))" -"(if or-part_211 or-part_211 in-complex_0))" +"(if(let-values(((or-part_209) radix-set?_0))" +"(if or-part_209 or-part_209 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -50039,13 +50074,13 @@ static const char *startup_source = "(read-special-number s_17 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_29" -"((lambda(v_238)" +"((lambda(v_239)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_238))" +" (let-values () (format \"no exact representation for `~a`\" v_239))" "(let-values() #f)))" -"(let-values() v_238)))" +"(let-values() v_239)))" " c1_29)" "(let-values(((c2_3)" "(if(char-sign? c_64)" @@ -50074,8 +50109,8 @@ static const char *startup_source = "((temp93_1) 'i)" "((v94_0) v_39)" "((temp95_0)" -"(lambda(v_239 v2_0)" -"(begin 'temp95(make-rectangular v_239 v2_0)))))" +"(lambda(v_240 v2_0)" +"(begin 'temp95(make-rectangular v_240 v2_0)))))" "(read-for-special-compound62.1" " temp93_1" " #f" @@ -50117,8 +50152,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_1)" -"(lambda(v2_2 v_216)" -"(begin 'temp105(make-rectangular v_216 v2_2)))))" +"(lambda(v2_2 v_217)" +"(begin 'temp105(make-rectangular v_217 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -50146,7 +50181,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_218)" +"((lambda(v_219)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -50154,10 +50189,10 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_218)" +"((v113_0) v_219)" "((temp114_3)" -"(lambda(v_142 v2_3)" -"(begin 'temp114(make-polar v_142 v2_3)))))" +"(lambda(v_143 v2_3)" +"(begin 'temp114(make-polar v_143 v2_3)))))" "(read-for-special-compound62.1" " temp112_1" " #f" @@ -50231,7 +50266,7 @@ static const char *startup_source = "(lambda(in-complex21_0 radix-set?20_0 s24_2 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)" "(begin" " 'do-string->non-special-number30" -"(let-values(((s_455) s24_2))" +"(let-values(((s_457) s24_2))" "(let-values(((start_44) start25_0))" "(let-values(((end_34) end26_0))" "(let-values(((radix_5) radix27_0))" @@ -50261,7 +50296,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -50269,13 +50304,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_314)" +"(let-values(((or-part_311)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_314" -" or-part_314" +"(if or-part_311" +" or-part_311" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -50283,11 +50318,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s133_0) s_455)" +"(let-values(((s133_0) s_457)" "((start134_0) start_44)" "((sign-pos135_0) sign-pos_0)" "((sign-pos136_0) sign-pos_0)" @@ -50314,7 +50349,7 @@ static const char *startup_source = " convert-mode144_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s145_0) s_455)" +"(let-values(((s145_0) s_457)" "((start146_0) start_44)" "((@-pos147_0) @-pos_0)" "((temp148_1)(add1 @-pos_0))" @@ -50341,7 +50376,7 @@ static const char *startup_source = " convert-mode156_0)))" "(let-values()" "(string->real-number" -" s_455" +" s_457" " start_44" " end_34" " dot-pos_1" @@ -50352,7 +50387,7 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_79)(string-ref s_455 i_170)))" +"(let-values(((c_79)(string-ref s_457 i_170)))" "(if(digit? c_79 radix_5)" "(let-values()" "(loop_111" @@ -50387,7 +50422,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50401,27 +50436,27 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_170 start_44)" -"(let-values(((or-part_315)(not @-pos_0)))" -"(if or-part_315" -" or-part_315" +"(let-values(((or-part_312)(not @-pos_0)))" +"(if or-part_312" +" or-part_312" "(> i_170(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" -"(if(let-values(((or-part_316)" +"(if(let-values(((or-part_313)" "(if exp-pos_0" -"(let-values(((or-part_317)" +"(let-values(((or-part_314)" "(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(if or-part_314" +" or-part_314" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_316" -" or-part_316" +"(if or-part_313" +" or-part_313" "(if dot-pos_1" -"(let-values(((or-part_207)(not sign-pos_0)))" -"(if or-part_207" -" or-part_207" +"(let-values(((or-part_205)(not sign-pos_0)))" +"(if or-part_205" +" or-part_205" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50429,12 +50464,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_281)(not sign-pos_0)))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_278)(not sign-pos_0)))" +"(if or-part_278" +" or-part_278" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50442,7 +50477,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50459,9 +50494,9 @@ static const char *startup_source = "(if(char=? c_79 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_318)(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(let-values(((or-part_315)(not sign-pos_0)))" +"(if or-part_315" +" or-part_315" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50469,23 +50504,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_319)" +"(if(let-values(((or-part_316)" "(if exp-pos_0" -"(let-values(((or-part_320)" +"(let-values(((or-part_317)" "(not sign-pos_0)))" -"(if or-part_320" -" or-part_320" +"(if or-part_317" +" or-part_317" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_319" -" or-part_319" +"(if or-part_316" +" or-part_316" "(if slash-pos_0" -"(let-values(((or-part_321)" +"(let-values(((or-part_318)" "(not sign-pos_0)))" -"(if or-part_321" -" or-part_321" +"(if or-part_318" +" or-part_318" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50493,7 +50528,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50507,58 +50542,58 @@ static const char *startup_source = " i_170" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" +"(if(let-values(((or-part_319)(char=? c_79 '#\\e)))" +"(if or-part_319" +" or-part_319" +"(let-values(((or-part_320)(char=? c_79 '#\\E)))" +"(if or-part_320" +" or-part_320" +"(let-values(((or-part_321)" +"(char=? c_79 '#\\f)))" +"(if or-part_321" +" or-part_321" +"(let-values(((or-part_322)" +"(char=? c_79 '#\\F)))" "(if or-part_322" " or-part_322" -"(let-values(((or-part_323)(char=? c_79 '#\\E)))" +"(let-values(((or-part_323)" +"(char=? c_79 '#\\d)))" "(if or-part_323" " or-part_323" -"(let-values(((or-part_324)" -"(char=? c_79 '#\\f)))" -"(if or-part_324" -" or-part_324" -"(let-values(((or-part_325)" -"(char=? c_79 '#\\F)))" -"(if or-part_325" -" or-part_325" -"(let-values(((or-part_326)" -"(char=? c_79 '#\\d)))" -"(if or-part_326" -" or-part_326" -"(let-values(((or-part_180)" +"(let-values(((or-part_178)" "(char=? c_79 '#\\D)))" -"(if or-part_180" -" or-part_180" -"(let-values(((or-part_327)" +"(if or-part_178" +" or-part_178" +"(let-values(((or-part_324)" "(char=?" " c_79" " '#\\s)))" -"(if or-part_327" -" or-part_327" -"(let-values(((or-part_328)" +"(if or-part_324" +" or-part_324" +"(let-values(((or-part_325)" "(char=?" " c_79" " '#\\S)))" -"(if or-part_328" -" or-part_328" -"(let-values(((or-part_208)" +"(if or-part_325" +" or-part_325" +"(let-values(((or-part_206)" "(char=?" " c_79" " '#\\l)))" -"(if or-part_208" -" or-part_208" -"(let-values(((or-part_329)" +"(if or-part_206" +" or-part_206" +"(let-values(((or-part_326)" "(char=?" " c_79" " '#\\L)))" -"(if or-part_329" -" or-part_329" -"(let-values(((or-part_172)" +"(if or-part_326" +" or-part_326" +"(let-values(((or-part_170)" "(char=?" " c_79" " '#\\t)))" -"(if or-part_172" -" or-part_172" +"(if or-part_170" +" or-part_170" "(char=?" " c_79" " '#\\T)))))))))))))))))))))))" @@ -50570,10 +50605,10 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_79" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if(if(<(add1 i_170) end_34)" -"(char-sign?(string-ref s_455(add1 i_170)))" +"(char-sign?(string-ref s_457(add1 i_170)))" " #f)" "(let-values()" "(loop_111" @@ -50585,8 +50620,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_170))" +"(let-values(((or-part_327) exp-pos_0))" +"(if or-part_327 or-part_327 i_170))" " must-i?_0))" "(let-values()" "(loop_111" @@ -50598,8 +50633,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_331) exp-pos_0))" -"(if or-part_331 or-part_331 i_170))" +"(let-values(((or-part_328) exp-pos_0))" +"(if or-part_328 or-part_328 i_170))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50609,18 +50644,18 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_332) @-pos_0))" -"(if or-part_332" -" or-part_332" +"(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)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if(= i_170 start_44)" "(let-values()" @@ -50628,7 +50663,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50636,7 +50671,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50650,36 +50685,36 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_159)" +"(if(if(let-values(((or-part_330)" "(char=? c_79 '#\\i)))" -"(if or-part_159" -" or-part_159" +"(if or-part_330" +" or-part_330" "(char=? c_79 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_333) @-pos_0))" -"(if or-part_333" -" or-part_333" +"(if(let-values(((or-part_331) @-pos_0))" +"(if or-part_331" +" or-part_331" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_334)" +"(if(let-values(((or-part_332)" "(<(add1 i_170) end_34)))" -"(if or-part_334" -" or-part_334" +"(if or-part_332" +" or-part_332" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_455 start_44 end_34)))" +"(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" @@ -50698,7 +50733,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_455))" +" (format \"nul character in `~.a`\" s_457))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50791,11 +50826,11 @@ static const char *startup_source = " radix168_0" " exactness170_0" " convert-mode172_0))))))" -"(if(let-values(((or-part_335)(not v1_0)))" -"(if or-part_335 or-part_335(not v2_6)))" +"(if(let-values(((or-part_333)(not v1_0)))" +"(if or-part_333 or-part_333(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_336)(extflonum? v1_0)))" -"(if or-part_336 or-part_336(extflonum? v2_6)))" +"(if(if(let-values(((or-part_334)(extflonum? v1_0)))" +"(if or-part_334 or-part_334(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50822,16 +50857,16 @@ static const char *startup_source = "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_334 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" +"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" +"(if or-part_335" +" or-part_335" +"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_337)(not exp-pos_1)))" "(if or-part_337" " or-part_337" -"(let-values(((or-part_338)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_338 or-part_338(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_339)(not exp-pos_1)))" -"(if or-part_339" -" or-part_339" -"(let-values(((or-part_222)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_222 or-part_222(not(extfl-mark?_0))))))" +"(let-values(((or-part_220)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_220 or-part_220(not(extfl-mark?_0))))))" "(not(if any-hashes?_1(hashes? s_334 start_45 end_35) #f))" " #f)" " #f)" @@ -50857,9 +50892,9 @@ static const char *startup_source = " (format \"missing digits before exponent marker in `~.a`\" (substring s_334 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))" -"(if or-part_340" -" or-part_340" +"(let-values(((or-part_338)(= exp-pos_1(sub1 end_35))))" +"(if or-part_338" +" or-part_338" "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_334(sub1 end_35))) #f)))" " #f)" "(let-values()" @@ -50872,9 +50907,9 @@ static const char *startup_source = "(string->number$1" "(maybe-substring s_334 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_341" -" or-part_341" +"(if(let-values(((or-part_339)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_339" +" or-part_339" "(let-values(((or-part_146)(not exp-pos_1)))" "(if or-part_146 or-part_146(not(extfl-mark?_0))))))" " 'number-or-false" @@ -50936,7 +50971,7 @@ static const char *startup_source = " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_342)(not m-v_0)))(if or-part_342 or-part_342(not e-v_0)))" +"(if(let-values(((or-part_340)(not m-v_0)))(if or-part_340 or-part_340(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50944,8 +50979,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_343)(eq? exactness_3 'inexact)))" -"(if or-part_343 or-part_343(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()" @@ -50967,8 +51002,8 @@ static const char *startup_source = "(let-values()" "(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_344)(eq? exactness_3 'exact)))" -"(if or-part_344 or-part_344(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_32)" "(if(if(eqv? n_32 0)(char=?(string-ref s_334 start_45) '#\\-) #f)" @@ -51004,13 +51039,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_345)(eq? exactness_3 'inexact)))" -"(if or-part_345" -" or-part_345" +"(let-values(((or-part_343)(eq? exactness_3 'inexact)))" +"(if or-part_343" +" or-part_343" "(if(not(eq? exactness_3 'exact))" "(hashes? s_334 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))" +"(if(let-values(((or-part_344)(not n-v_0)))(if or-part_344 or-part_344(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -51039,11 +51074,11 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_488 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_490 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_186)(eq? exactness_4 'exact)))" -"(if or-part_186 or-part_186(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_184)(eq? exactness_4 'exact)))" +"(if or-part_184 or-part_184(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_112)" "(lambda(i_171 j_3 hashes-pos_0)" @@ -51055,22 +51090,22 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_488 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_490 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_34)(string->number$1 new-str_0 radix_8)))" "(if(not n_34)" -"(let-values()(fail-bad-number convert-mode_6 s_488 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_490 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_34 0)(char=?(string-ref s_488 start_46) '#\\-) #f)" +"(if(if(eqv? n_34 0)(char=?(string-ref s_490 start_46) '#\\-) #f)" " -0.0" "(exact->inexact n_34)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_34(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_34))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_488 i_171)))" +"(let-values(((c_80)(string-ref s_490 i_171)))" "(if(char=? c_80 '#\\.)" "(let-values()" "(if get-exact?_0" @@ -51086,8 +51121,8 @@ static const char *startup_source = "(sub1 i_171)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))))" -"(if(let-values(((or-part_347)(char=? c_80 '#\\-)))" -"(if or-part_347 or-part_347(char=? c_80 '#\\+)))" +"(if(let-values(((or-part_345)(char=? c_80 '#\\-)))" +"(if or-part_345 or-part_345(char=? c_80 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" @@ -51107,7 +51142,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_488 start_46 end_36)))" +"(substring s_490 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" @@ -51119,69 +51154,69 @@ static const char *startup_source = " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_489 start_47 end_37 radix_9 convert-mode_7)" +"(lambda(s_491 start_47 end_37 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_489 start_47 end_37)" +"(if(hashes? s_491 start_47 end_37)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_489 start_47 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_491 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_35)(string->number$1(maybe-substring s_489 start_47 end_37) radix_9)))" +"(let-values(((n_35)(string->number$1(maybe-substring s_491 start_47 end_37) radix_9)))" "(if(not n_35)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_489 start_47 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_491 start_47 end_37)))" "(let-values() #f)))" "(let-values() n_35))))))))" "(define-values" "(read-special-number)" -"(lambda(s_471 start_48 end_38 convert-mode_8)" +"(lambda(s_473 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_348)(char=?(string-ref s_471 start_48) '#\\+)))" -"(if or-part_348 or-part_348(char=?(string-ref s_471 start_48) '#\\-)))" +"(if(let-values(((or-part_346)(char=?(string-ref s_473 start_48) '#\\+)))" +"(if or-part_346 or-part_346(char=?(string-ref s_473 start_48) '#\\-)))" +"(let-values(((or-part_347)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 4))) '#\\.)" +"(let-values(((or-part_348)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\0)" +"(if(char=?(string-ref s_473 start_48) '#\\+) +inf.0 -inf.0)" +" #f)))" +"(if or-part_348" +" or-part_348" "(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 4))) '#\\.)" -"(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_471 start_48) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\f)" +"(if(char=?(string-ref s_473 start_48) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_350" -" or-part_350" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_471 start_48) '#\\+) +inf.f -inf.f)" -" #f)))" -"(if or-part_351" -" or-part_351" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\t)" +"(if or-part_349" +" or-part_349" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_471 start_48) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_473 start_48) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_349" -" or-part_349" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 4))) '#\\.)" -"(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\0) +nan.0 #f)))" -"(if or-part_352" -" or-part_352" -"(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\f) +nan.f #f)))" -"(if or-part_353" -" or-part_353" -"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\t)" +"(if or-part_347" +" or-part_347" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 4))) '#\\.)" +"(let-values(((or-part_350)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\0) +nan.0 #f)))" +"(if or-part_350" +" or-part_350" +"(let-values(((or-part_351)" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if or-part_351" +" or-part_351" +"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -51192,10 +51227,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_240)" +"(lambda(convert-mode_9 v_241)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_240))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_241))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -51211,7 +51246,7 @@ static const char *startup_source = " combine61_0)" "(begin" " 'read-for-special-compound62" -"(let-values(((s_490) s54_0))" +"(let-values(((s_492) s54_0))" "(let-values(((start_49) start55_0))" "(let-values(((end_39) end56_0))" "(let-values(((radix_10) radix57_0))" @@ -51219,22 +51254,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode59_0))" "(let-values(((in-complex_3) in-complex50_0))" "(let-values(((reading-first?_0) reading-first?51_0))" -"(let-values(((v_241) v60_0))" +"(let-values(((v_242) v60_0))" "(let-values(((combine_1) combine61_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_241))" +" (let-values () (format \"no exact representation for `~a`\" v_242))" "(let-values() #f)))" -"(if(if(extflonum? v_241)" -"(let-values(((or-part_189)(not reading-first?_0)))" -"(if or-part_189 or-part_189(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_242)" +"(let-values(((or-part_187)(not reading-first?_0)))" +"(if or-part_187 or-part_187(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_241))" +"(let-values()(fail-extflonum convert-mode_10 v_242))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s173_0) s_490)" +"(let-values(((s173_0) s_492)" "((start174_0) start_49)" "((end175_0) end_39)" "((radix176_0) radix_10)" @@ -51255,9 +51290,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_241)" -"(let-values()(fail-extflonum convert-mode_10 v_241))" -"(let-values()(combine_1 v_241 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_242)" +"(let-values()(fail-extflonum convert-mode_10 v_242))" +"(let-values()(combine_1 v_242 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_263 start_50 end_40)" @@ -51346,26 +51381,26 @@ static const char *startup_source = "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(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_83)" -"(begin(let-values(((or-part_355)(char=? c_83 '#\\-)))(if or-part_355 or-part_355(char=? c_83 '#\\+))))))" +"(begin(let-values(((or-part_353)(char=? c_83 '#\\-)))(if or-part_353 or-part_353(char=? c_83 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_84 radix_11)" "(begin" -"(let-values(((v_242)(char->integer c_84)))" -"(let-values(((or-part_356)" -"(if(>= v_242(char->integer '#\\0))(<(- v_242(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_356" -" or-part_356" +"(let-values(((v_243)(char->integer c_84)))" +"(let-values(((or-part_354)" +"(if(>= v_243(char->integer '#\\0))(<(- v_243(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_354" +" or-part_354" "(if(> radix_11 10)" -"(let-values(((or-part_357)" -"(if(>= v_242(char->integer '#\\a))(<(- v_242(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_357" -" or-part_357" -"(if(>= v_242(char->integer '#\\A))(<(- v_242(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_355)" +"(if(>= v_243(char->integer '#\\a))(<(- v_243(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_355" +" or-part_355" +"(if(>= v_243(char->integer '#\\A))(<(- v_243(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" @@ -51711,14 +51746,14 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_358) num_0))" -"(if or-part_358" -" or-part_358" -"(let-values(((or-part_359)" +"(let-values(((or-part_356) num_0))" +"(if or-part_356" +" or-part_356" +"(let-values(((or-part_357)" "(if(eq? mode_18 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_359 or-part_359(string->symbol str_29)))))" +"(if or-part_357 or-part_357(string->symbol str_29)))))" " in_26" " config_23" " str_29)))))))))))))))))))))))))" @@ -51728,16 +51763,16 @@ static const char *startup_source = "(begin" "(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_233) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_233)" -"(let-values() v_233)" -"(if(eof-object? v_233)" -"(let-values() v_233)" +" (let-values (((v_234) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_234)" +"(let-values() v_234)" +"(if(eof-object? v_234)" +"(let-values() v_234)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_233))" +"((v4_1) v_234))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51925,7 +51960,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_187)(make-flvector len_38 fill_1)))" +"(let-values(((v_189)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -51959,7 +51994,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_187" +" v_189" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -51986,7 +52021,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_187))))))" +" v_189))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -52020,11 +52055,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_243)" +"(lambda(v_244)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_243 in_30 config_10 #f)" +"(wrap v_244 in_30 config_10 #f)" "((letrec-values(((loop_114)" "(lambda(seq_3)" "(begin" @@ -52351,7 +52386,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_41)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))" "(let-values(((init-v_1)(digit->number init-c_11)))" -"(let-values(((v_244)" +"(let-values(((v_245)" "(let-values(((in69_0) in_34)" "((config70_0) config_41)" "((accum-str71_0) accum-str_2)" @@ -52361,7 +52396,7 @@ static const char *startup_source = "((init-v75_0) init-v_1))" "(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))" "(values" -" v_244" +" v_245" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))" "(accum-string-get!6.1 0 accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))" @@ -52629,9 +52664,9 @@ static const char *startup_source = "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_309)(read-config-for-syntax? config_43)))" -"(if or-part_309" -" or-part_309" +"(if(let-values(((or-part_306)(read-config-for-syntax? config_43)))" +"(if or-part_306" +" or-part_306" "(not(check-parameter 1/read-accept-graph config_43))))" "(let-values()" "(let-values(((in37_1) in_37)" @@ -52744,9 +52779,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_209)" +"(let-values(((or-part_207)" "(read-config-state-graph(read-config-st config_43))))" -"(if or-part_209 or-part_209 '#hash()))" +"(if or-part_207 or-part_207 '#hash()))" " v_30" "(lambda()" "(let-values(((in67_0) in_37)" @@ -52791,9 +52826,9 @@ static const char *startup_source = "(lambda(config_44)" "(begin" "(let-values(((st_3)(read-config-st config_44)))" -"(let-values(((or-part_360)(read-config-state-graph st_3)))" -"(if or-part_360" -" or-part_360" +"(let-values(((or-part_358)(read-config-state-graph st_3)))" +"(if or-part_358" +" or-part_358" "(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))" "(define-values" "(coerce-key)" @@ -53143,8 +53178,8 @@ static const char *startup_source = " temp63_4" "(list temp64_4))))" "(let-values()" -"(let-values(((v_245)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_245)" +"(let-values(((v_246)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_246)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53207,7 +53242,7 @@ static const char *startup_source = " temp72_2" "(list temp73_2)))))" "(values))))" -"(let-values(((v_246)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_247)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53236,7 +53271,7 @@ static const char *startup_source = " temp75_2" " temp77_1" "(list temp78_3)))))" -"(cons(coerce-key k_41 elem-config_1) v_246))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_247))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 in3_0 config4_0)" @@ -53573,7 +53608,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_202)" +"(let-values(((v_203)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53597,7 +53632,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_202 255)" +"(if(<= v_203 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53639,13 +53674,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_202)))))))))" +" v_203)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_247)" +"(let-values(((v_248)" "(let-values(((in40_1)" " in_37)" "((config41_1)" @@ -53665,13 +53700,13 @@ static const char *startup_source = " config41_1" " accum-str42_0))))" "(begin" -"(if(integer? v_247)" +"(if(integer? v_248)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_247" +" v_248" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53680,7 +53715,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_247))))))" +" v_248))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53695,7 +53730,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_248)" +"(let-values(((v_249)" "(let-values(((in45_0)" " in_37)" "((config46_1)" @@ -53716,23 +53751,23 @@ static const char *startup_source = " accum-str47_0))))" "(begin" "(if(integer?" -" v_248)" +" v_249)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_248" +" v_249" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_63)" "(<" -" v_248" +" v_249" " 55296)))" "(if or-part_63" " or-part_63" "(>" -" v_248" +" v_249" " 57343)))" "(let-values()" "(begin" @@ -53742,7 +53777,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_248))))" +" v_249))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53823,7 +53858,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_248" +" v_249" " 55296)" " 10)" "(-" @@ -53919,7 +53954,7 @@ static const char *startup_source = "(let-values(((pos_20)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_249)" +"(let-values(((v_250)" "(let-values(((in72_0)" " in_37)" "((config73_0)" @@ -53940,26 +53975,26 @@ static const char *startup_source = " accum-str74_0))))" "(begin" "(if(integer?" -" v_249)" +" v_250)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_249" +" v_250" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_249" +" v_250" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_249" +" v_250" " 57343)))" "(<=" -" v_249" +" v_250" " 1114111)" " #f)" "(let-values()" @@ -53970,7 +54005,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_249))))" +" v_250))))" "(let-values()" "(let-values(((in77_1)" " in_37)" @@ -54284,7 +54319,7 @@ static const char *startup_source = "(let-values(((in_52) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_52 special1.1 source_6))))" -"(let-values(((v_231)" +"(let-values(((v_232)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -54293,7 +54328,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_231(<= v_231 255) #f)" +"(if(if v_232(<= v_232 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -54312,7 +54347,7 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_6)))))" -"(integer->char v_231))))))" +"(integer->char v_232))))))" "(let-values() c_96))))" "(if(let-values(((or-part_80)(char=? c_96 '#\\u)))" "(if or-part_80 or-part_80(char=? c_96 '#\\U)))" @@ -54941,10 +54976,10 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_167)" +"(if(let-values(((or-part_165)" "(char-lang-nonsep? c_9)))" -"(if or-part_167" -" or-part_167" +"(if or-part_165" +" or-part_165" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" @@ -55069,14 +55104,14 @@ static const char *startup_source = "(let-values(((or-part_89)(char-alphabetic? c_101)))" "(if or-part_89" " or-part_89" -"(let-values(((or-part_306)(char-numeric? c_101)))" -"(if or-part_306" -" or-part_306" -"(let-values(((or-part_361)(char=? '#\\- c_101)))" -"(if or-part_361" -" or-part_361" -"(let-values(((or-part_362)(char=? '#\\+ c_101)))" -"(if or-part_362 or-part_362(char=? '#\\_ c_101)))))))))" +"(let-values(((or-part_303)(char-numeric? c_101)))" +"(if or-part_303" +" or-part_303" +"(let-values(((or-part_359)(char=? '#\\- c_101)))" +"(if or-part_359" +" or-part_359" +"(let-values(((or-part_360)(char=? '#\\+ c_101)))" +"(if or-part_360 or-part_360(char=? '#\\_ c_101)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -55167,7 +55202,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_52)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_28)" -"(let-values(((or-part_363)" +"(let-values(((or-part_361)" "(if try-first-mod-path_0" "(let-values(((mod-path_29)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_52)" @@ -55175,7 +55210,7 @@ static const char *startup_source = " mod-path_29" " #f))" " #f)))" -"(if or-part_363 or-part_363(guard_0 mod-path-datum_0)))))" +"(if or-part_361 or-part_361(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_52)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_52)))" "(let-values(((no-value_0)(gensym)))" @@ -55497,12 +55532,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_51)" "(let-values()" "(let-values(((line_11 col_10 pos_92)(port-next-location in_63)))" -"(let-values(((v_109)(read-undotted init-c_17 in_63 config_51)))" -"(if(1/special-comment? v_109)" -"(let-values() v_109)" +"(let-values(((v_103)(read-undotted init-c_17 in_63 config_51)))" +"(if(1/special-comment? v_103)" +"(let-values() v_103)" "(let-values()" "((letrec-values(((loop_119)" -"(lambda(v_111)" +"(lambda(v_105)" "(begin" " 'loop" "(let-values(((c_104)" @@ -55518,9 +55553,9 @@ static const char *startup_source = "(if(eq? c_105 'special)(special1.1 'special) c_105)))))" "(let-values(((ec_9)(effective-char c_104 config_51)))" "(if(not(char? ec_9))" -"(let-values() v_111)" +"(let-values() v_105)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_111)))" +"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_105)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55540,13 +55575,13 @@ static const char *startup_source = "(read-undotted #f in_63 config_51)))" "(loop_119" "(wrap" -"(list cdot_0 v_111 post-v_0)" +"(list cdot_0 v_105 post-v_0)" " in_63" "(reading-at config_51 line_11 col_10 pos_92)" " '#\\.)))))))" -"(let-values() v_111))))))))))" +"(let-values() v_105))))))))))" " loop_119)" -" v_109))))))" +" v_103))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55558,15 +55593,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_106))" "(let-values()" -"(let-values(((v_250)(special-value c_106)))" -"(if(1/special-comment? v_250)" -"(let-values()(if(read-config-keep-comment? config_57) v_250(read-undotted #f in_68 config_57)))" -"(let-values()(coerce v_250 in_68(reading-at config_57 line_12 col_11 pos_121))))))" +"(let-values(((v_125)(special-value c_106)))" +"(if(1/special-comment? v_125)" +"(let-values()(if(read-config-keep-comment? config_57) v_125(read-undotted #f in_68 config_57)))" +"(let-values()(coerce v_125 in_68(reading-at config_57 line_12 col_11 pos_121))))))" "(let-values(((c2_8)(readtable-handler config_57 c_106)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_251)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" -"(retry-special-comment v_251 in_68 config_57)))" +"(let-values(((v_128)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" +"(retry-special-comment v_128 in_68 config_57)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_106 config_57)))" @@ -55635,14 +55670,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_252)" +"(let-values(((v_251)" "(let-values(((c79_1) c_106)" "((in80_1) in_68)" "((r-config81_0) r-config_0)" "((temp82_2)" -"(if(let-values(((or-part_317)(eq? c_106 ec_10)))" -"(if or-part_317" -" or-part_317" +"(if(let-values(((or-part_314)(eq? c_106 ec_10)))" +"(if or-part_314" +" or-part_314" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55654,7 +55689,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_252 in_68 config_57)))" +"(retry-special-comment v_251 in_68 config_57)))" "(let-values()(read-dispatch c_106 in_68 r-config_0 config_57)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_68 r-config_0))" @@ -55818,10 +55853,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_362)" "(check-parameter 1/read-square-bracket-as-paren config_57)))" -"(if or-part_364" -" or-part_364" +"(if or-part_362" +" or-part_362" "(check-parameter 1/read-square-bracket-with-tag config_57)))" "(let-values()" "(let-values(((in113_1) in_68)" @@ -55857,10 +55892,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_363)" "(check-parameter 1/read-curly-brace-as-paren config_57)))" -"(if or-part_365" -" or-part_365" +"(if or-part_363" +" or-part_363" "(check-parameter 1/read-curly-brace-with-tag config_57)))" "(let-values()" "(wrap" @@ -55902,10 +55937,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_366)" +"(if(let-values(((or-part_364)" "(check-parameter 1/read-curly-brace-as-paren config_57)))" -"(if or-part_366" -" or-part_366" +"(if or-part_364" +" or-part_364" "(check-parameter 1/read-curly-brace-with-tag config_57)))" "(let-values()" "(let-values(((in132_0) in_68)" @@ -55999,9 +56034,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_58)))" "(let-values(((col_12)(read-config-col config_58)))" "(let-values(((pos_122)(read-config-pos config_58)))" -"(let-values(((v_253)" +"(let-values(((v_252)" "(readtable-apply handler_4 c_108 in_70 config_58 line_13 col_12 pos_122)))" -"(retry-special-comment v_253 in_70 orig-config_0))))))" +"(retry-special-comment v_252 in_70 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -56316,8 +56351,8 @@ static const char *startup_source = "(if(eq? c_112 'special)(special1.1 'special) c_112)))))" "(if(char-delimiter? c2_13 config_58)" "(let-values()(wrap #f in_70 config_58 c_108))" -"(if(let-values(((or-part_367)(char=? c2_13 '#\\x)))" -"(if or-part_367 or-part_367(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_365)(char=? c2_13 '#\\x)))" +"(if or-part_365 or-part_365(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56345,24 +56380,24 @@ static const char *startup_source = "(read-symbol-or-number8.1 #f temp205_0 temp202_0 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" -"(let-values(((temp206_1) #f)" +"(let-values(((temp206_0) #f)" "((in207_0) in_70)" "((config208_0) config_58)" " ((temp209_1) \"#E\"))" -"(read-symbol-or-number8.1 #f temp209_1 temp206_1 in207_0 config208_0)))" +"(read-symbol-or-number8.1 #f temp209_1 temp206_0 in207_0 config208_0)))" "(if(unsafe-fx< index_5 20)" "(let-values()" -"(let-values(((temp210_1) #f)" +"(let-values(((temp210_0) #f)" "((in211_0) in_70)" "((config212_0) config_58)" " ((temp213_2) \"#i\"))" -"(read-symbol-or-number8.1 #f temp213_2 temp210_1 in211_0 config212_0)))" +"(read-symbol-or-number8.1 #f temp213_2 temp210_0 in211_0 config212_0)))" "(let-values()" -"(let-values(((temp214_1) #f)" +"(let-values(((temp214_2) #f)" "((in215_0) in_70)" "((config216_0) config_58)" -" ((temp217_2) \"#I\"))" -"(read-symbol-or-number8.1 #f temp217_2 temp214_1 in215_0 config216_0))))))" +" ((temp217_1) \"#I\"))" +"(read-symbol-or-number8.1 #f temp217_1 temp214_2 in215_0 config216_0))))))" "(if(unsafe-fx< index_5 23)" "(if(unsafe-fx< index_5 22)" "(let-values()" @@ -56417,8 +56452,8 @@ static const char *startup_source = "(let-values(((temp246_0) #f)" "((in247_0) in_70)" "((config248_0) config_58)" -" ((temp249_2) \"#X\"))" -"(read-symbol-or-number8.1 #f temp249_2 temp246_0 in247_0 config248_0)))" +" ((temp249_1) \"#X\"))" +"(read-symbol-or-number8.1 #f temp249_1 temp246_0 in247_0 config248_0)))" "(let-values()" "(let-values(((c2_14)" "(let-values(((in_76) in_70)" @@ -56438,7 +56473,7 @@ static const char *startup_source = "(let-values(((in250_0) in_70)" "((config251_0) config_58)" "((c2252_0) c2_14)" -" ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" +" ((temp253_1) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" "((c255_0) c_108))" "(reader-error12.1" @@ -56448,7 +56483,7 @@ static const char *startup_source = " unsafe-undefined" " in250_0" " config251_0" -" temp253_0" +" temp253_1" "(list dispatch-c254_0 c255_0))))))))))))" "(if(unsafe-fx< index_5 32)" "(if(unsafe-fx< index_5 31)" @@ -56568,11 +56603,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_254 in_79 config_59)" +"(lambda(v_253 in_79 config_59)" "(begin" -"(if(1/special-comment? v_254)" -"(let-values()(if(read-config-keep-comment? config_59) v_254(read-undotted #f in_79 config_59)))" -"(let-values() v_254)))))" +"(if(1/special-comment? v_253)" +"(let-values()(if(read-config-keep-comment? config_59) v_253(read-undotted #f in_79 config_59)))" +"(let-values() v_253)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?3_0)" @@ -56693,7 +56728,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_97 #f)))" -"(let-values(((or-part_287)(not b/p_3)))(if or-part_287 or-part_287(provided-as-protected? b/p_3)))))" +"(let-values(((or-part_284)(not b/p_3)))(if or-part_284 or-part_284(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -56727,11 +56762,11 @@ static const char *startup_source = "(let-values(((name_41)" "(let-values(((mod44_0) mod_18)((temp45_1) #t))" "(reference->resolved-module-path27.1 temp45_1 mod44_0))))" -"(let-values(((phase_135)(namespace-phase ns_48)))" +"(let-values(((phase_136)(namespace-phase ns_48)))" "(let-values(((m-ns_17)" "(let-values(((ns46_0) ns_48)" "((name47_1) name_41)" -"((phase48_1) phase_135))" +"((phase48_1) phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56774,7 +56809,7 @@ static const char *startup_source = " temp49_3)))))" "(let-values(((ns41_0) ns_48)" "((temp42_3)(namespace-mpi m-ns_17))" -"((phase43_1) phase_135))" +"((phase43_1) phase_136))" "(namespace-module-make-available!112.1" " unsafe-undefined" " ns41_0" @@ -56864,9 +56899,9 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_33 ns_118 name_71)" "(begin" -"(let-values(((or-part_210)(namespace->module ns_118 name_71)))" -"(if or-part_210" -" or-part_210" +"(let-values(((or-part_208)(namespace->module ns_118 name_71)))" +"(if or-part_208" +" or-part_208" " (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" @@ -56875,8 +56910,8 @@ static const char *startup_source = "(let-values(((or-part_133)(1/module-path? mod_24)))" "(if or-part_133" " or-part_133" -"(let-values(((or-part_257)(1/module-path-index? mod_24)))" -"(if or-part_257 or-part_257(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_255)(1/module-path-index? mod_24)))" +"(if or-part_255 or-part_255(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-path27.1)" @@ -57011,8 +57046,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_90) empty-syntax))" -"(if(syntax?$1 the-struct_90)" +"(let-values(((the-struct_88) empty-syntax))" +"(if(syntax?$1 the-struct_88)" "(let-values(((content62_0)(datum-intern-literal s-exp_4))" "((srcloc63_0) srcloc_11)" "((props64_0)" @@ -57024,14 +57059,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content62_0" -"(syntax-scopes the-struct_90)" -"(syntax-shifted-multi-scopes the-struct_90)" -"(syntax-scope-propagations+tamper the-struct_90)" -"(syntax-mpi-shifts the-struct_90)" +"(syntax-scopes the-struct_88)" +"(syntax-shifted-multi-scopes the-struct_88)" +"(syntax-scope-propagations+tamper the-struct_88)" +"(syntax-mpi-shifts the-struct_88)" " srcloc63_0" " props64_0" -"(syntax-inspector the-struct_90)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))" +"(syntax-inspector the-struct_88)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57042,17 +57077,17 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_30)(begin(1/module-declared? mod-path_30 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_255 srcloc_12)" +"(lambda(for-syntax?_12 v_254 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_255)(let-values()(syntax->datum$1 v_255))(let-values() v_255)))" -"(if(syntax?$1 v_255)" -"(let-values() v_255)" -"(if(list? v_255)" +"(let-values()(if(syntax?$1 v_254)(let-values()(syntax->datum$1 v_254))(let-values() v_254)))" +"(if(syntax?$1 v_254)" +"(let-values() v_254)" +"(if(list? v_254)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_185) v_255))" +"(let-values(((lst_185) v_254))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -57080,13 +57115,13 @@ static const char *startup_source = " lst_185))))" " srcloc_12" " #f))" -"(if(pair? v_255)" +"(if(pair? v_254)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_255) srcloc_12)(read-coerce #t(cdr v_255) srcloc_12))" +"(cons(read-coerce #t(car v_254) srcloc_12)(read-coerce #t(cdr v_254) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_255 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_254 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_0 k_42)" @@ -57176,8 +57211,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))" "(if((lambda(x_92)" -"(let-values(((or-part_299)(not x_92)))" -"(if or-part_299 or-part_299(char? x_92))))" +"(let-values(((or-part_296)(not x_92)))" +"(if or-part_296 or-part_296(char? x_92))))" " start_59)" "(void)" "(let-values()" @@ -57472,7 +57507,7 @@ static const char *startup_source = " 1/make-exn:fail:syntax:missing-module" " 1/exn:fail:syntax:missing-module?" " 1/exn:fail:syntax:missing-module-path)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57488,18 +57523,18 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_68 make-_68 ?_68(make-struct-field-accessor -ref_68 0 'path))))" +"(values struct:_69 make-_69 ?_69(make-struct-field-accessor -ref_69 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_235)" +"(lambda(v_236)" "(begin" -"(if(let-values(((or-part_67)(not v_235)))" +"(if(let-values(((or-part_67)(not v_236)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_68)(1/module-path? v_235)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_235)(1/module-path?(syntax->datum$1 v_235)) #f)))))" +"(let-values(((or-part_68)(1/module-path? v_236)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_236)(1/module-path?(syntax->datum$1 v_236)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57508,8 +57543,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_235)))" -" v_235))))" +" v_236)))" +" v_236))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57587,7 +57622,7 @@ static const char *startup_source = " stop-ids56_0" " intdefs57_0)))))))))))" "(case-lambda" -"((s_445 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_445 context_11 stop-ids_3 '())))" +"((s_447 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_447 context_11 stop-ids_3 '())))" "((s_75 context_12 stop-ids_4 intdefs1_1)(local-expand5_0 s_75 context_12 stop-ids_4 intdefs1_1)))))" "(define-values" "(1/local-expand/capture-lifts)" @@ -57595,7 +57630,7 @@ static const char *startup_source = "(lambda(s9_1 context10_0 stop-ids11_0 intdefs7_0 lift-key8_0)" "(begin" " 'local-expand/capture-lifts12" -"(let-values(((s_491) s9_1))" +"(let-values(((s_493) s9_1))" "(let-values(((context_13) context10_0))" "(let-values(((stop-ids_5) stop-ids11_0))" "(let-values(((intdefs_5) intdefs7_0))" @@ -57603,7 +57638,7 @@ static const char *startup_source = "(if(eq? lift-key8_0 unsafe-undefined)(generate-lift-key) lift-key8_0)))" "(let-values()" "(let-values(((temp58_3) 'local-expand)" -"((s59_0) s_491)" +"((s59_0) s_493)" "((context60_0) context_13)" "((stop-ids61_0) stop-ids_5)" "((intdefs62_0) intdefs_5)" @@ -57629,8 +57664,8 @@ static const char *startup_source = "(local-expand/capture-lifts12_0 s_41 context_14 stop-ids_6 '() unsafe-undefined)))" "((s_87 context_15 stop-ids_7 intdefs_6 lift-key8_1)" "(local-expand/capture-lifts12_0 s_87 context_15 stop-ids_7 intdefs_6 lift-key8_1))" -"((s_429 context_16 stop-ids_8 intdefs7_1)" -"(local-expand/capture-lifts12_0 s_429 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))" +"((s_431 context_16 stop-ids_8 intdefs7_1)" +"(local-expand/capture-lifts12_0 s_431 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand18_0)" @@ -57664,8 +57699,8 @@ static const char *startup_source = "(case-lambda" "((s_188 context_18 stop-ids_10)" "(begin 'local-transformer-expand(local-transformer-expand18_0 s_188 context_18 stop-ids_10 '())))" -"((s_492 context_19 stop-ids_11 intdefs14_1)" -"(local-transformer-expand18_0 s_492 context_19 stop-ids_11 intdefs14_1)))))" +"((s_494 context_19 stop-ids_11 intdefs14_1)" +"(local-transformer-expand18_0 s_494 context_19 stop-ids_11 intdefs14_1)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts25_0)" @@ -57705,22 +57740,22 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts25_0 s_19 context_21 stop-ids_13 '() unsafe-undefined)))" -"((s_448 context_22 stop-ids_14 intdefs_9 lift-key21_1)" -"(local-transformer-expand/capture-lifts25_0 s_448 context_22 stop-ids_14 intdefs_9 lift-key21_1))" -"((s_493 context_23 stop-ids_15 intdefs20_1)" -"(local-transformer-expand/capture-lifts25_0 s_493 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" +"((s_450 context_22 stop-ids_14 intdefs_9 lift-key21_1)" +"(local-transformer-expand/capture-lifts25_0 s_450 context_22 stop-ids_14 intdefs_9 lift-key21_1))" +"((s_495 context_23 stop-ids_15 intdefs20_1)" +"(local-transformer-expand/capture-lifts25_0 s_495 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression29_0)" "(lambda(s28_1 opaque-only?27_0)" "(begin" " 'syntax-local-expand-expression29" -"(let-values(((s_494) s28_1))" +"(let-values(((s_496) s28_1))" "(let-values(((opaque-only?_0) opaque-only?27_0))" "(let-values()" "(let-values(((exp-s_11)" "(let-values(((temp79_0) 'syntax-local-expand-expression)" -"((s80_1) s_494)" +"((s80_1) s_496)" "((temp81_3) 'expression)" "((null82_0) null)" "((temp83_2) #f)" @@ -57741,7 +57776,7 @@ static const char *startup_source = " temp81_3" " null82_0" " temp83_2))))" -"(let-values(((ctx_70)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" +"(let-values(((ctx_74)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -57749,22 +57784,22 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_11)" " exp-s_11" -"(flip-introduction-scopes exp-s_11 ctx_70))" -"(expand-context-binding-layer ctx_70)))" -" ctx_70)))" +"(flip-introduction-scopes exp-s_11 ctx_74))" +"(expand-context-binding-layer ctx_74)))" +" ctx_74)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_70)))" +"(let-values(((obs_60)(expand-context-observer ctx_74)))" "(if obs_60" "(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_4)(expand-context-observer ctx_70)))" +"(let-values(((obs_4)(expand-context-observer ctx_74)))" "(if obs_4" "(let-values()(let-values()(call-expand-observe obs_4 'exit-local exp-s_11)))" "(void)))" "(values(if(not opaque-only?_0) exp-s_11 #f) ae_1))))))))))))" "(case-lambda" "((s_46)(begin 'syntax-local-expand-expression(syntax-local-expand-expression29_0 s_46 #f)))" -"((s_485 opaque-only?27_1)(syntax-local-expand-expression29_0 s_485 opaque-only?27_1)))))" +"((s_487 opaque-only?27_1)(syntax-local-expand-expression29_0 s_487 opaque-only?27_1)))))" "(define-values" "(do-local-expand50.1)" "(lambda(as-transformer?32_0" @@ -57801,12 +57836,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0) skip-log-exit?37_0))" "(let-values()" "(let-values()" -"(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_497)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_368)(list? context_24)))" -"(if or-part_368" -" or-part_368" +"(if(let-values(((or-part_366)(list? context_24)))" +"(if or-part_366" +" or-part_366" "(memq" " context_24" "(if as-transformer?_6" @@ -57846,29 +57881,29 @@ static const char *startup_source = " intdefs-or-false?-string" " intdefs_10)))" "(values))))" -"(let-values(((ctx_71)" +"(let-values(((ctx_75)" "(let-values(((who88_0) who_34))" "(get-current-expand-context16.1 #f who88_0))))" "(let-values(((phase_93)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_71))" -"(expand-context-phase ctx_71))))" +"(add1(expand-context-phase ctx_75))" +"(expand-context-phase ctx_75))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx89_0) ctx_71)" +"(let-values(((ctx89_0) ctx_75)" "((context90_0) context_24)" "((phase91_0) phase_93)" "((intdefs92_0) intdefs_10)" "((stop-ids93_0) stop-ids_16)" "((to-parsed-ok?94_0) to-parsed-ok?_1)" "((temp95_2)" -"(let-values(((or-part_168)" +"(let-values(((or-part_166)" " keep-#%expression?_2))" -"(if or-part_168" -" or-part_168" +"(if or-part_166" +" or-part_166" "(if(expand-context-in-local-expand?" -" ctx_71)" +" ctx_75)" "(expand-context-keep-#%expression?" -" ctx_71)" +" ctx_75)" " #f))))" "((track-to-be-defined?96_0)" " track-to-be-defined?_1))" @@ -57884,7 +57919,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_71)" +"(expand-context-namespace ctx_75)" " phase_93)" "(values))))" "(let-values((()" @@ -57897,12 +57932,12 @@ static const char *startup_source = "(call-expand-observe" " obs_7" " 'enter-local" -" s_495)))" +" s_497)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp97_3)" -"(flip-introduction-scopes s_495 ctx_71))" +"(flip-introduction-scopes s_497 ctx_75))" "((intdefs98_0) intdefs_10))" "(add-intdef-scopes24.1" " unsafe-undefined" @@ -58046,7 +58081,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_71))))" +" ctx_75))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -58107,34 +58142,34 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_2" -"(lambda(s_438)(syntax-arm$1 s_438 insp_21))" +"(lambda(s_440)(syntax-arm$1 s_440 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_2 insp_21))))))))))))))))" "(case-lambda" -"((s_496)(begin 'syntax-arm(syntax-arm4_0 s_496 #f #f)))" -"((s_445 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_445 maybe-insp_1 use-mode?2_1))" +"((s_498)(begin 'syntax-arm(syntax-arm4_0 s_498 #f #f)))" +"((s_447 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_447 maybe-insp_1 use-mode?2_1))" "((s_75 maybe-insp1_1)(syntax-arm4_0 s_75 maybe-insp1_1 #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_497 maybe-insp_2)" +"(lambda(s_499 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_497)" +"(if(syntax?$1 s_499)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_499)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_310)(not maybe-insp_2)))" -"(if or-part_310 or-part_310(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_307)(not maybe-insp_2)))" +"(if or-part_307 or-part_307(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_499 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm9_0)" @@ -58163,7 +58198,7 @@ static const char *startup_source = "(let-values()(syntax-rearm$1 s_181 from-s_2))))))))))))))" "(case-lambda" "((s_182 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_182 from-s_3 #f)))" -"((s_440 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_440 from-s_4 use-mode?6_1)))))" +"((s_442 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_442 from-s_4 use-mode?6_1)))))" "(define-values" "(1/syntax-taint)" "(lambda(s_5)" @@ -58178,11 +58213,11 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_369) maybe-insp_3))" -"(if or-part_369" -" or-part_369" -"(let-values(((or-part_162)(current-module-code-inspector)))" -"(if or-part_162 or-part_162(current-code-inspector))))))))" +"(let-values(((or-part_367) maybe-insp_3))" +"(if or-part_367" +" or-part_367" +"(let-values(((or-part_160)(current-module-code-inspector)))" +"(if or-part_160 or-part_160(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -58721,13 +58756,13 @@ static const char *startup_source = "(let-values()" "(values" " sym_92" -"(let-values(((or-part_166)" +"(let-values(((or-part_164)" "(hash-ref" " alts_0" " sym_92" " #f)))" -"(if or-part_166" -" or-part_166" +"(if or-part_164" +" or-part_164" " val_81))))))" "(hash-set" " table_11" @@ -59488,8 +59523,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_312)(eof-object? exp_0)))" -"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_309)(eof-object? exp_0)))" +"(if or-part_309 or-part_309(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59636,11 +59671,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_497)" +"(lambda(s_499)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_497) s_497))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_499) s_499))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_180)" @@ -59770,7 +59805,7 @@ static const char *startup_source = "(lambda(i_182)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_187)(read-byte i_182)))(if(eof-object? v_187) 0 v_187))))))" +"(let-values(((v_189)(read-byte i_182)))(if(eof-object? v_189) 0 v_189))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59785,9 +59820,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_183 pos_124)(values))))" "(let-values(((name-len_0)(read-number i_183)))" -"(let-values(((v_256)(read-bytes name-len_0 i_183)))" +"(let-values(((v_255)(read-bytes name-len_0 i_183)))" "(begin" -"(if(if(bytes? v_256)(=(bytes-length v_256) name-len_0) #f)" +"(if(if(bytes? v_255)(=(bytes-length v_255) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59801,10 +59836,10 @@ static const char *startup_source = "(object-name i_183)" " pos_124" " name-len_0" -" v_256)))" -"(if(bytes=? bstr_5 v_256)" +" v_255)))" +"(if(bytes=? bstr_5 v_255)" "(let-values()(read-number i_183))" -"(if(bytesrkt_0)" -"(lambda(s_500)" +"(lambda(s_502)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_500)))" +"(let-values(((len_43)(string-length s_502)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_500(- len_43 3)))" +"(string-ref s_502(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_500(- len_43 2)))" +"(string-ref s_502(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_500(- len_43 1)))" +"(string-ref s_502(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_500 0(- len_43 3))" +"(substring s_502 0(- len_43 3))" " \".rkt\")" -" s_500)))))" +" s_502)))))" "((path-ss->rkt_0)" "(lambda(p_82)" "(begin" @@ -60630,11 +60665,11 @@ static const char *startup_source = " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" " (path-replace-extension p_82 #\".rkt\")" " p_82)))))" -"((s_501)" -"(if(if(pair? s_499)(eq? 'submod(car s_499)) #f)" -"(let-values(((v_258)(cadr s_499)))" -" (if (let-values (((or-part_373) (equal? v_258 \".\")))" -" (if or-part_373 or-part_373 (equal? v_258 \"..\")))" +"((s_503)" +"(if(if(pair? s_501)(eq? 'submod(car s_501)) #f)" +"(let-values(((v_257)(cadr s_501)))" +" (if (let-values (((or-part_371) (equal? v_257 \".\")))" +" (if or-part_371 or-part_371 (equal? v_257 \"..\")))" "(if relto_1" "(let-values(((p_7)" "(1/resolved-module-path-name" @@ -60643,19 +60678,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_499))" -" v_258))" -" s_499))" +" s_501))" +" v_257))" +" s_501))" "((subm-path_0)" -"(if(if(pair? s_499)(eq? 'submod(car s_499)) #f)" +"(if(if(pair? s_501)(eq? 'submod(car s_501)) #f)" "(let-values(((p_83)" -"(if(if(let-values(((or-part_167)" +"(if(if(let-values(((or-part_165)" "(equal?" -"(cadr s_499)" +"(cadr s_501)" " \".\")))" -"(if or-part_167" -" or-part_167" -" (equal? (cadr s_499) \"..\")))" +"(if or-part_165" +" or-part_165" +" (equal? (cadr s_501) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -60663,10 +60698,10 @@ static const char *startup_source = " relto_1))" "((r_48)" "(if(equal?" -"(cadr s_499)" +"(cadr s_501)" " \"..\")" -"(cdr s_499)" -"(cddr s_499))))" +"(cdr s_501)" +"(cddr s_501))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -60674,22 +60709,22 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_48)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_499) \"..\")" -"(cdr s_499)" -"(cddr s_499))))))" +" (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)" -"(if(symbol? s_501)" +"(if(symbol? s_503)" "(let-values()" "(let-values(((or-part_46)" "(path-cache-get" -"(cons s_501(get-reg_0)))))" +"(cons s_503(get-reg_0)))))" "(if or-part_46" " or-part_46" "(let-values(((cols_0 file_3)" "(split-relative-string" -"(symbol->string s_501)" +"(symbol->string s_503)" " #f)))" "(let-values(((f-file_0)" "(if(null? cols_0)" @@ -60703,17 +60738,17 @@ static const char *startup_source = "(if(null? cols_0) null(cdr cols_0))" " f-file_0" " #t))))))" -"(if(string? s_501)" +"(if(string? s_503)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_374)" +"(let-values(((or-part_372)" "(path-cache-get" -"(cons s_501 dir_4))))" -"(if or-part_374" -" or-part_374" +"(cons s_503 dir_4))))" +"(if or-part_372" +" or-part_372" "(let-values(((cols_1 file_4)" "(split-relative-string" -" s_501" +" s_503" " #f)))" "(if(null? cols_1)" "(build-path dir_4(ss->rkt_0 file_4))" @@ -60730,26 +60765,26 @@ static const char *startup_source = "(let-values() s_56))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" -"(if(path? s_501)" +"(if(path? s_503)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" -"(if(complete-path? s_501)" -" s_501" -"(path->complete-path s_501(get-dir_0))))))" -"(if(eq?(car s_501) 'lib)" +"(if(complete-path? s_503)" +" s_503" +"(path->complete-path s_503(get-dir_0))))))" +"(if(eq?(car s_503) 'lib)" "(let-values()" "(let-values(((or-part_84)" "(path-cache-get" -"(cons s_501(get-reg_0)))))" +"(cons s_503(get-reg_0)))))" "(if or-part_84" " or-part_84" "(let-values(((cols_2 file_5)" "(split-relative-string" -"(cadr s_501)" +"(cadr s_503)" " #f)))" "(let-values(((old-style?_0)" -"(if(null?(cddr s_501))" +"(if(null?(cddr s_503))" "(if(null? cols_2)" "(regexp-match?" " '#rx\"[.]\"" @@ -60772,7 +60807,7 @@ static const char *startup_source = "(if old-style?_0" "(append" "(if(null?" -"(cddr s_501))" +"(cddr s_503))" " '(\"mzlib\")" "(apply" " append" @@ -60781,7 +60816,7 @@ static const char *startup_source = "(split-relative-string" " p_3" " #t))" -"(cddr s_501))))" +"(cddr s_503))))" " cols_2)" "(if(null? cols_2)" "(list file_5)" @@ -60792,12 +60827,12 @@ static const char *startup_source = "(cdr cols_3)" " f-file_1" " #t))))))))" -"(if(eq?(car s_501) 'file)" +"(if(eq?(car s_503) 'file)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" "(path->complete-path" -"(expand-user-path(cadr s_501))" +"(expand-user-path(cadr s_503))" "(get-dir_0)))))" "(void))))))))" "(begin" @@ -60815,7 +60850,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_501))))" +" s_503))))" "(let-values(((filename_2)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 0)" @@ -60840,11 +60875,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_375)" +"(let-values(((or-part_373)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_375" -" or-part_375" +"(if or-part_373" +" or-part_373" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -60948,12 +60983,12 @@ static const char *startup_source = " p_85" " stx_20))" " values)" -"(if(symbol? s_501)" -"(let-values() s_501)" -"(if(if(pair? s_501)" -"(eq?(car s_501) 'lib)" +"(if(symbol? s_503)" +"(let-values() s_503)" +"(if(if(pair? s_503)" +"(eq?(car s_503) 'lib)" " #f)" -"(let-values() s_501)" +"(let-values() s_503)" "(let-values()" "(if(1/resolved-module-path?" " root-modname_0)" @@ -60986,24 +61021,24 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_376)" -"(string? s_501)))" -"(if or-part_376" -" or-part_376" -"(let-values(((or-part_377)" -"(symbol? s_501)))" -"(if or-part_377" -" or-part_377" -"(if(pair? s_501)" -"(eq?(car s_501) 'lib)" +"(let-values(((or-part_374)" +"(string? s_503)))" +"(if or-part_374" +" or-part_374" +"(let-values(((or-part_375)" +"(symbol? s_503)))" +"(if or-part_375" +" or-part_375" +"(if(pair? s_503)" +"(eq?(car s_503) 'lib)" " #f)))))" " #f)" " #f)" "(let-values()" "(path-cache-set!" -"(if(string? s_501)" -"(cons s_501(get-dir_0))" -"(cons s_501(get-reg_0)))" +"(if(string? s_503)" +"(cons s_503(get-dir_0))" +"(cons s_503(get-reg_0)))" "(vector" " filename_2" " normal-filename_0" @@ -61030,7 +61065,7 @@ static const char *startup_source = "(let-values()(c_114 e_88 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_502 immediate-eval?_0)(begin(1/compile s_502(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_504 immediate-eval?_0)(begin(1/compile s_504(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_10 in_90)" @@ -61070,10 +61105,10 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_72)" +"(lambda(ctx_76)" "(begin" -"(let-values(((phase_44)(add1(expand-context-phase ctx_72))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_72) phase_44)))" +"(let-values(((phase_44)(add1(expand-context-phase ctx_76))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_44)))" "(namespace-visit-available-modules! ns_59 phase_44))))))" "(define-values" "(expand-body7.1)" @@ -61081,13 +61116,13 @@ static const char *startup_source = "(begin" " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_73) ctx6_0))" -"(let-values(((s_491) source1_0))" +"(let-values(((ctx_77) ctx6_0))" +"(let-values(((s_493) source1_0))" "(let-values(((stratified?_0) stratified?2_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_65)(expand-context-observer ctx_73)))" +"(let-values(((obs_65)(expand-context-observer ctx_77)))" "(if obs_65" "(let-values()" "(let-values()" @@ -61129,7 +61164,7 @@ static const char *startup_source = " lst_22))))))" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_73)))" +"(let-values(((obs_66)(expand-context-observer ctx_77)))" "(if obs_66" "(let-values()" "(let-values()" @@ -61140,13 +61175,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_136)(expand-context-phase ctx_73)))" +"(let-values(((phase_137)(expand-context-phase ctx_77)))" "(let-values(((frame-id_7)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_259) ctx_73))" -"(let-values(((the-struct_91) v_259))" -"(if(expand-context/outer? the-struct_91)" +"(let-values(((v_258) ctx_77))" +"(let-values(((the-struct_89) v_258))" +"(if(expand-context/outer? the-struct_89)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" @@ -61154,45 +61189,46 @@ static const char *startup_source = "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" "((scopes57_1)" -"(cons inside-sc_0(expand-context-scopes ctx_73)))" +"(cons inside-sc_0(expand-context-scopes ctx_77)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_7)" "((reference-records60_0)" "(cons" " frame-id_7" -"(expand-context-reference-records ctx_73)))" -"((inner61_0)(root-expand-context/outer-inner v_259)))" +"(expand-context-reference-records ctx_77)))" +"((inner61_0)(root-expand-context/outer-inner v_258)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_91)" +"(root-expand-context/outer-post-expansion-shifts the-struct_89)" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_91)" +"(expand-context/outer-env the-struct_89)" " post-expansion-scope-action56_0" " scopes57_1" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_91)" +"(expand-context/outer-binding-layer the-struct_89)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_91)" -"(expand-context/outer-current-introduction-scopes the-struct_91)" +"(expand-context/outer-need-eventually-defined the-struct_89)" +"(expand-context/outer-current-introduction-scopes the-struct_89)" +"(expand-context/outer-current-use-scopes the-struct_89)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_89))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_30 body-ctx_1)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_73))" +"(expand-context-binding-layer ctx_77))" "(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_80)(expand-context-name ctx_73)))" +"(let-values(((name_80)(expand-context-name ctx_77)))" "((letrec-values(((loop_121)" "(lambda(body-ctx_2" " bodys_8" @@ -61217,7 +61253,7 @@ static const char *startup_source = "((temp68_7)(reverse$1 track-stxs_0))" "((temp69_4)(reverse$1 stx-clauses_0))" "((temp70_5)(reverse$1 done-bodys_0))" -"((s71_0) s_491)" +"((s71_0) s_493)" "((stratified?72_0) stratified?_0)" "((name73_0) name_80)" "((temp74_3)(reverse$1 trans-idss_1)))" @@ -61257,52 +61293,54 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_260)" +"(let-values(((v_259)" " body-ctx_2))" -"(let-values(((the-struct_92)" -" v_260))" +"(let-values(((the-struct_90)" +" v_259))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_90)" "(let-values(((name77_0)" " name_80)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_260)))" +" v_259)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_90)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_92)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-env" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-binding-layer" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_90)" +"(expand-context/outer-current-use-scopes" +" the-struct_90)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_90))))" " body-ctx_2)))" "(expand9.1" " #f" @@ -61315,7 +61353,7 @@ static const char *startup_source = "(let-values(((tmp_63)" "(core-form-sym" " disarmed-exp-body_0" -" phase_136)))" +" phase_137)))" "(if(equal? tmp_63 'begin)" "(let-values()" "(let-values((()" @@ -61332,35 +61370,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_34 begin79_0 e80_0)" -"(let-values(((s_503)" +"(let-values(((s_505)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_503))" +" s_505))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_504)" +"(let-values(((s_506)" "(if(syntax?$1" -" s_503)" +" s_505)" "(syntax-e$1" -" s_503)" -" s_503)))" +" s_505)" +" s_505)))" "(if(pair?" -" s_504)" +" s_506)" "(let-values(((begin81_0)" "(let-values(((s_177)" "(car" -" s_504)))" +" s_506)))" " s_177))" "((e82_0)" -"(let-values(((s_449)" +"(let-values(((s_451)" "(cdr" -" s_504)))" +" s_506)))" "(let-values(((s_46)" "(if(syntax?$1" -" s_449)" +" s_451)" "(syntax-e$1" -" s_449)" -" s_449)))" +" s_451)" +" s_451)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" " s_46)))" @@ -61453,33 +61491,33 @@ static const char *startup_source = "(if(pair?" " s_51)" "(let-values(((define-values86_0)" -"(let-values(((s_450)" +"(let-values(((s_452)" "(car" " s_51)))" -" s_450))" +" s_452))" "((id87_0" " rhs88_0)" -"(let-values(((s_505)" +"(let-values(((s_507)" "(cdr" " s_51)))" -"(let-values(((s_506)" -"(if(syntax?$1" -" s_505)" -"(syntax-e$1" -" s_505)" -" s_505)))" -"(if(pair?" -" s_506)" -"(let-values(((id89_1)" -"(let-values(((s_507)" -"(car" -" s_506)))" -"(let-values(((s_53)" +"(let-values(((s_508)" "(if(syntax?$1" " s_507)" "(syntax-e$1" " s_507)" " s_507)))" +"(if(pair?" +" s_508)" +"(let-values(((id89_1)" +"(let-values(((s_509)" +"(car" +" s_508)))" +"(let-values(((s_53)" +"(if(syntax?$1" +" s_509)" +"(syntax-e$1" +" s_509)" +" s_509)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_53)))" @@ -61502,7 +61540,7 @@ static const char *startup_source = "(check-list" " lst_191)))" "((letrec-values(((for-loop_201)" -"(lambda(id_81" +"(lambda(id_82" " lst_13)" "(begin" " 'for-loop" @@ -61514,22 +61552,22 @@ static const char *startup_source = "((rest_103)" "(unsafe-cdr" " lst_13)))" -"(let-values(((id_102)" "(let-values(((id_103)" -" id_81))" -"(let-values(((id_70)" +"(let-values(((id_104)" +" id_82))" +"(let-values(((id_71)" "(let-values()" "(let-values(((id92_0)" "(let-values()" -"(if(let-values(((or-part_212)" +"(if(let-values(((or-part_210)" "(if(syntax?$1" " s_313)" "(symbol?" "(syntax-e$1" " s_313))" " #f)))" -"(if or-part_212" -" or-part_212" +"(if or-part_210" +" or-part_210" "(symbol?" " s_313)))" " s_313" @@ -61540,16 +61578,16 @@ static const char *startup_source = " s_313)))))" "(cons" " id92_0" -" id_103)))))" +" id_104)))))" "(values" -" id_70)))))" +" id_71)))))" "(if(not" " #f)" "(for-loop_201" -" id_102" +" id_103" " rest_103)" -" id_102)))" -" id_81)))))" +" id_103)))" +" id_82)))))" " for-loop_201)" " null" " lst_191)))))" @@ -61558,32 +61596,32 @@ static const char *startup_source = "((rhs90_0)" "(let-values(((s_33)" "(cdr" -" s_506)))" -"(let-values(((s_508)" +" s_508)))" +"(let-values(((s_510)" "(if(syntax?$1" " s_33)" "(syntax-e$1" " s_33)" " s_33)))" "(if(pair?" -" s_508)" +" s_510)" "(let-values(((rhs91_0)" "(let-values(((s_96)" "(car" -" s_508)))" +" s_510)))" " s_96))" "(()" "(let-values(((s_57)" "(cdr" -" s_508)))" -"(let-values(((s_509)" +" s_510)))" +"(let-values(((s_511)" "(if(syntax?$1" " s_57)" "(syntax-e$1" " s_57)" " s_57)))" "(if(null?" -" s_509)" +" s_511)" "(values)" "(raise-syntax-error$1" " #f" @@ -61641,7 +61679,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_31)" "((phase94_1)" -" phase_136)" +" phase_137)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -61654,7 +61692,7 @@ static const char *startup_source = " dups96_0))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_73)))" +" ctx_77)))" "(let-values(((keys_5)" "(reverse$1" "(let-values(((lst_309)" @@ -61673,7 +61711,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_310)" -"(let-values(((id_104)" +"(let-values(((id_105)" "(unsafe-car" " lst_310))" "((rest_180)" @@ -61687,9 +61725,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id97_0)" -" id_104)" +" id_105)" "((phase98_0)" -" phase_136)" +" phase_137)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -61782,12 +61820,12 @@ static const char *startup_source = " lst_225" " lst_306)))))" "(loop_121" -"(let-values(((v_261)" +"(let-values(((v_260)" " body-ctx_2))" -"(let-values(((the-struct_93)" -" v_261))" +"(let-values(((the-struct_91)" +" v_260))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_91)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -61796,41 +61834,43 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_261)))" +" v_260)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_91)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_91)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_91)" +"(expand-context/outer-current-use-scopes" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_91))))" " rest-bodys_0" " null" "(cons" @@ -61964,8 +62004,8 @@ static const char *startup_source = "(let-values()" "(no-binds" " done-body_2" -" s_491" -" phase_136))" +" s_493" +" phase_137))" " fold-var_295))))" "(values" " fold-var_39)))))" @@ -62057,35 +62097,23 @@ static const char *startup_source = "(let-values(((define-syntaxes105_1" " id106_1" " rhs107_1)" -"(let-values(((s_510)" +"(let-values(((s_512)" "(if(syntax?$1" " s_71)" "(syntax-e$1" " s_71)" " s_71)))" "(if(pair?" -" s_510)" +" s_512)" "(let-values(((define-syntaxes108_0)" "(let-values(((s_217)" "(car" -" s_510)))" +" s_512)))" " s_217))" "((id109_0" " rhs110_0)" -"(let-values(((s_511)" -"(cdr" -" s_510)))" -"(let-values(((s_512)" -"(if(syntax?$1" -" s_511)" -"(syntax-e$1" -" s_511)" -" s_511)))" -"(if(pair?" -" s_512)" -"(let-values(((id111_0)" "(let-values(((s_513)" -"(car" +"(cdr" " s_512)))" "(let-values(((s_514)" "(if(syntax?$1" @@ -62093,9 +62121,21 @@ static const char *startup_source = "(syntax-e$1" " s_513)" " s_513)))" +"(if(pair?" +" s_514)" +"(let-values(((id111_0)" +"(let-values(((s_515)" +"(car" +" s_514)))" +"(let-values(((s_516)" +"(if(syntax?$1" +" s_515)" +"(syntax-e$1" +" s_515)" +" s_515)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_514)))" +" s_516)))" "(if(not" " flat-s_27)" "(let-values()" @@ -62104,7 +62144,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_7))" "(let-values()" -"(let-values(((id_105)" +"(let-values(((id_106)" "(let-values(((lst_316)" " flat-s_27))" "(begin" @@ -62115,63 +62155,63 @@ static const char *startup_source = "(check-list" " lst_316)))" "((letrec-values(((for-loop_75)" -"(lambda(id_106" +"(lambda(id_107" " lst_55)" "(begin" " 'for-loop" "(if(pair?" " lst_55)" -"(let-values(((s_515)" +"(let-values(((s_517)" "(unsafe-car" " lst_55))" "((rest_185)" "(unsafe-cdr" " lst_55)))" "(let-values(((id_64)" -"(let-values(((id_107)" -" id_106))" "(let-values(((id_108)" +" id_107))" +"(let-values(((id_109)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_378)" +"(if(let-values(((or-part_376)" "(if(syntax?$1" -" s_515)" +" s_517)" "(symbol?" "(syntax-e$1" -" s_515))" +" s_517))" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_376" +" or-part_376" "(symbol?" -" s_515)))" -" s_515" +" s_517)))" +" s_517" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_7" -" s_515)))))" +" s_517)))))" "(cons" " id114_0" -" id_107)))))" -"(values" " id_108)))))" +"(values" +" id_109)))))" "(if(not" " #f)" "(for-loop_75" " id_64" " rest_185)" " id_64)))" -" id_106)))))" +" id_107)))))" " for-loop_75)" " null" " lst_316)))))" "(reverse$1" -" id_105))))))))" +" id_106))))))))" "((rhs112_0)" "(let-values(((s_103)" "(cdr" -" s_512)))" +" s_514)))" "(let-values(((s_104)" "(if(syntax?$1" " s_103)" @@ -62181,10 +62221,10 @@ static const char *startup_source = "(if(pair?" " s_104)" "(let-values(((rhs113_0)" -"(let-values(((s_516)" +"(let-values(((s_518)" "(car" " s_104)))" -" s_516))" +" s_518))" "(()" "(let-values(((s_218)" "(cdr" @@ -62254,7 +62294,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_32)" "((phase116_0)" -" phase_136)" +" phase_137)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62267,7 +62307,7 @@ static const char *startup_source = " dups118_0))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_73)))" +" ctx_77)))" "(let-values(((keys_6)" "(reverse$1" "(let-values(((lst_317)" @@ -62286,7 +62326,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_318)" -"(let-values(((id_109)" +"(let-values(((id_110)" "(unsafe-car" " lst_318))" "((rest_186)" @@ -62300,9 +62340,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id119_0)" -" id_109)" +" id_110)" "((phase120_0)" -" phase_136)" +" phase_137)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62344,7 +62384,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_73)" +" ctx_77)" "(values))))" "(let-values((()" "(begin" @@ -62418,7 +62458,7 @@ static const char *startup_source = "((rest_188)" "(unsafe-cdr" " lst_323))" -"((id_110)" +"((id_111)" "(unsafe-car" " lst_324))" "((rest_189)" @@ -62432,8 +62472,8 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_41" -" id_110" -" phase_136" +" id_111" +" phase_137" " body-ctx_2)" "(env-extend" " env_23" @@ -62468,12 +62508,12 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_121" -"(let-values(((v_135)" +"(let-values(((v_261)" " body-ctx_2))" -"(let-values(((the-struct_45)" -" v_135))" +"(let-values(((the-struct_92)" +" v_261))" "(if(expand-context/outer?" -" the-struct_45)" +" the-struct_92)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -62482,41 +62522,43 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_135)))" +" v_261)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_45)" +" the-struct_92)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_45)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_45)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_45)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_45)" +" the-struct_92)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_45)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_45)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_45)" +" the-struct_92)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_45)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_45)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_45)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_45)" +" the-struct_92)" +"(expand-context/outer-current-use-scopes" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_45)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_45))))" +" the-struct_92))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62560,7 +62602,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_136)" +" phase_137)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -62640,8 +62682,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_262))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((the-struct_93) v_262))" +"(if(expand-context/outer? the-struct_93)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -62659,26 +62701,27 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_94)" +" the-struct_93)" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_94)" +"(root-expand-context/outer-frame-id the-struct_93)" " context127_0" -"(expand-context/outer-env the-struct_94)" +"(expand-context/outer-env the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_93)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_94)" -"(expand-context/outer-reference-records the-struct_94)" +"(expand-context/outer-binding-layer the-struct_93)" +"(expand-context/outer-reference-records the-struct_93)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_94)" +"(expand-context/outer-need-eventually-defined the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" -"(expand-context/outer-name the-struct_94)))" +" the-struct_93)" +"(expand-context/outer-current-use-scopes the-struct_93)" +"(expand-context/outer-name the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_93))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62778,10 +62821,10 @@ static const char *startup_source = " #f)" "(let-values(((v_263)" " finish-ctx_0))" -"(let-values(((the-struct_95)" +"(let-values(((the-struct_94)" " v_263))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_94)" "(let-values(((name136_0)" " name_81)" "((inner137_0)" @@ -62790,38 +62833,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-env" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-scopes" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-binding-layer" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-reference-records" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_94)" +"(expand-context/outer-current-use-scopes" +" the-struct_94)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))" +" the-struct_94))))" " finish-ctx_0)))" "(expand9.1" " #f" @@ -62950,13 +62995,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_74) ctx32_0))" +"(let-values(((ctx_78) ctx32_0))" "(let-values(((s_367) 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_137)(expand-context-phase ctx_74)))" +"(let-values(((phase_138)(expand-context-phase ctx_78)))" "((letrec-values(((loop_27)" "(lambda(idss_2" " keyss_1" @@ -62978,7 +63023,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_74)" +"(if(expand-context-to-parsed? ctx_78)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" "(keep-properties-only s_367)" @@ -63001,10 +63046,10 @@ static const char *startup_source = "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_137)" +" phase_138)" "(core-id" " 'letrec-values" -" phase_137))" +" phase_138))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -63016,11 +63061,11 @@ static const char *startup_source = " temp151_1)))))" "(begin" "(let-values(((obs_81)" -"(expand-context-observer ctx_74)))" +"(expand-context-observer ctx_78)))" "(if obs_81" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_74)" +"(log-tag? had-stxes?_0 ctx_78)" " #f)" "(let-values()" "(call-expand-observe" @@ -63035,7 +63080,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_82)" "(expand-context-observer" -" ctx_74)))" +" ctx_78)))" "(if obs_82" "(let-values()" "(let-values()" @@ -63047,7 +63092,7 @@ static const char *startup_source = "(let-values(((temp152_1)(car rhss_2))" "((temp153_1)" "(as-named-context" -" ctx_74" +" ctx_78" " ids_33)))" "(expand9.1" " #f" @@ -63095,7 +63140,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_74)" +" ctx_78)" "(parsed-let-values17.1" "(keep-properties-only" " s_367)" @@ -63113,7 +63158,7 @@ static const char *startup_source = "(list*" "(core-id" " 'let-values" -" phase_137)" +" phase_138)" "(list" "(build-clause" " ids_33" @@ -63127,13 +63172,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_83)" "(expand-context-observer" -" ctx_74)))" +" ctx_78)))" "(if obs_83" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_74)" +" ctx_78)" " #f)" "(let-values()" "(call-expand-observe" @@ -63146,9 +63191,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_379) split?_0))" -"(if or-part_379" -" or-part_379" +"(let-values(((or-part_377) split?_0))" +"(if or-part_377" +" or-part_377" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63167,7 +63212,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_74)" +" ctx_78)" "(parsed-letrec-values18.1" "(keep-properties-only" " s_367)" @@ -63193,7 +63238,7 @@ static const char *startup_source = "(list*" "(core-id" " 'letrec-values" -" phase_137)" +" phase_138)" "(build-clauses" "(cons" " ids_33" @@ -63212,13 +63257,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_84)" "(expand-context-observer" -" ctx_74)))" +" ctx_78)))" "(if obs_84" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_74)" +" ctx_78)" " #f)" "(let-values()" "(call-expand-observe" @@ -63267,22 +63312,22 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_517 phase_138)" +"(lambda(expr_10 s_519 phase_139)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_138)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_139)))" "(datum->syntax$1" -"(core-id '#%app phase_138)" -"(list(core-id 'begin phase_138) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_517)))))" +"(core-id '#%app phase_139)" +"(list(core-id 'begin phase_139) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_519)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_75)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_75)) #f))))" +"(lambda(had-stxes?_1 ctx_79)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_79)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_76 s_397 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_80 s_397 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_139)(expand-context-phase ctx_76)))" +"(let-values(((phase_140)(expand-context-phase ctx_80)))" "(let-values(((clauses_0)" "(reverse$1" "(let-values(((lst_325) val-idss_2)((lst_326) val-rhss_2)((lst_327) track-stxs_4))" @@ -63329,7 +63374,7 @@ static const char *startup_source = " lst_326" " lst_327))))))" "(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_139)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_140)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" @@ -63374,10 +63419,10 @@ static const char *startup_source = "(datum->syntax$1 #f done-bodys_2 s_397))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_77 log-renames-tag_0)" +"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_81 log-renames-tag_0)" "(begin" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_84)(expand-context-phase ctx_77)))" +"(let-values(((phase_84)(expand-context-phase ctx_81)))" "(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_37 disarmed-s_5)))" "(let-values((()" "(begin" @@ -63387,7 +63432,7 @@ static const char *startup_source = " ((temp36_8) \"argument name\"))" "(check-no-duplicate-ids7.1 temp36_8 ids33_0 phase34_1 s35_1 unsafe-undefined))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_77)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_81)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_88) ids_35))" @@ -63400,7 +63445,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_160)" -"(let-values(((id_111)(unsafe-car lst_160))" +"(let-values(((id_112)(unsafe-car lst_160))" "((rest_82)(unsafe-cdr lst_160)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_153))" @@ -63409,7 +63454,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id37_0)" -" id_111)" +" id_112)" "((phase38_1)" " phase_84)" "((counter39_0)" @@ -63447,7 +63492,7 @@ static const char *startup_source = "(if(if(pair? lst_82)(pair? lst_58) #f)" "(let-values(((key_89)(unsafe-car lst_82))" "((rest_194)(unsafe-cdr lst_82))" -"((id_112)(unsafe-car lst_58))" +"((id_113)(unsafe-car lst_58))" "((rest_195)(unsafe-cdr lst_58)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" @@ -63457,14 +63502,14 @@ static const char *startup_source = " env_27" " key_89" "(local-variable1.1" -" id_112)))))" +" id_113)))))" "(values env_28)))))" "(if(not #f)" "(for-loop_49 env_26 rest_194 rest_195)" " env_26)))" " env_25)))))" " for-loop_49)" -"(expand-context-env ctx_77)" +"(expand-context-env ctx_81)" " lst_80" " lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))" @@ -63503,7 +63548,7 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_86)(expand-context-observer ctx_77)))" +"(let-values(((obs_86)(expand-context-observer ctx_81)))" "(if obs_86" "(let-values()" "(let-values()" @@ -63515,63 +63560,64 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_264) ctx_77))" -"(let-values(((the-struct_96) v_264))" -"(if(expand-context/outer? the-struct_96)" +"(let-values(((v_264) ctx_81))" +"(let-values(((the-struct_95) v_264))" +"(if(expand-context/outer? the-struct_95)" "(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_37(expand-context-scopes ctx_77)))" +"((scopes42_0)(cons sc_37(expand-context-scopes ctx_81)))" "((binding-layer43_0)" -"(increment-binding-layer ids_35 ctx_77 sc_37))" +"(increment-binding-layer ids_35 ctx_81 sc_37))" "((frame-id44_0) #f)" "((inner45_0)(root-expand-context/outer-inner v_264)))" "(expand-context/outer1.1" " inner45_0" -"(root-expand-context/outer-post-expansion-scope the-struct_96)" -"(root-expand-context/outer-post-expansion-shifts the-struct_96)" -"(root-expand-context/outer-use-site-scopes the-struct_96)" +"(root-expand-context/outer-post-expansion-scope the-struct_95)" +"(root-expand-context/outer-post-expansion-shifts the-struct_95)" +"(root-expand-context/outer-use-site-scopes the-struct_95)" " frame-id44_0" -"(expand-context/outer-context the-struct_96)" +"(expand-context/outer-context the-struct_95)" " env41_0" -"(expand-context/outer-post-expansion-scope-action the-struct_96)" +"(expand-context/outer-post-expansion-scope-action the-struct_95)" " scopes42_0" -"(expand-context/outer-def-ctx-scopes the-struct_96)" +"(expand-context/outer-def-ctx-scopes the-struct_95)" " binding-layer43_0" -"(expand-context/outer-reference-records the-struct_96)" -"(expand-context/outer-only-immediate? the-struct_96)" -"(expand-context/outer-need-eventually-defined the-struct_96)" -"(expand-context/outer-current-introduction-scopes the-struct_96)" -"(expand-context/outer-name the-struct_96)))" +"(expand-context/outer-reference-records the-struct_95)" +"(expand-context/outer-only-immediate? the-struct_95)" +"(expand-context/outer-need-eventually-defined the-struct_95)" +"(expand-context/outer-current-introduction-scopes the-struct_95)" +"(expand-context/outer-current-use-scopes the-struct_95)" +"(expand-context/outer-name the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_95))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys46_0) sc-bodys_0)" "((body-ctx47_0) body-ctx_4)" "((temp48_3)" -"(let-values(((ctx49_0) ctx_77)((s50_0) s_74)((temp51_2) #t))" +"(let-values(((ctx49_0) ctx_81)((s50_0) s_74)((temp51_2) #t))" "(keep-as-needed119.1 #f temp51_2 #f ctx49_0 s50_0))))" "(expand-body7.1 temp48_3 #f sc-bodys46_0 body-ctx47_0))))" "(values" -"(if(expand-context-to-parsed? ctx_77)" +"(if(expand-context-to-parsed? ctx_81)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_78)" +"(lambda(s_13 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_78)))" +"(let-values(((obs_87)(expand-context-observer ctx_82)))" "(if obs_87(let-values()(let-values()(call-expand-observe obs_87 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_37 lambda52_0 formals53_0 body54_0)" -"(let-values(((s_494) disarmed-s_6))" -"(let-values(((orig-s_40) s_494))" +"(let-values(((s_496) disarmed-s_6))" +"(let-values(((orig-s_40) s_496))" "(let-values(((lambda52_1 formals53_1 body54_1)" -"(let-values(((s_173)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))" +"(let-values(((s_173)(if(syntax?$1 s_496)(syntax-e$1 s_496) s_496)))" "(if(pair? s_173)" "(let-values(((lambda55_0)(let-values(((s_45)(car s_173))) s_45))" "((formals56_0 body57_0)" @@ -63586,13 +63632,13 @@ static const char *startup_source = " s_176))" "((body59_0)" "(let-values(((s_177)(cdr s_175)))" -"(let-values(((s_449)" +"(let-values(((s_451)" "(if(syntax?$1 s_177)" "(syntax-e$1 s_177)" " s_177)))" "(let-values(((flat-s_28)" "(to-syntax-list.1" -" s_449)))" +" s_451)))" "(if(not flat-s_28)" "(let-values()" "(raise-syntax-error$1" @@ -63613,11 +63659,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" "(values #t lambda52_1 formals53_1 body54_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx60_1) ctx_78)((s61_0) s_13)((temp62_3) #t))" +"(let-values(((ctx60_1) ctx_82)((s61_0) s_13)((temp62_3) #t))" "(keep-as-needed119.1 #f #f temp62_3 ctx60_1 s61_0))))" "(let-values(((formals_2 body_11)" -"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_78 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_78)" +"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_82 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)" "(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_5)(list* lambda52_0 formals_2 body_11)))" "(rebuild5.1 #t rebuild-s63_0 temp64_5)))))))))))" @@ -63626,16 +63672,16 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_38 lam-id65_0 formals66_0 _67_0)" -"(let-values(((s_518) s_26))" -"(let-values(((orig-s_41) s_518))" +"(let-values(((s_520) s_26))" +"(let-values(((orig-s_41) s_520))" "(let-values(((lam-id65_1 formals66_1 _67_1)" -"(let-values(((s_500)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" -"(if(pair? s_500)" -"(let-values(((lam-id68_0)(let-values(((s_505)(car s_500))) s_505))" +"(let-values(((s_502)(if(syntax?$1 s_520)(syntax-e$1 s_520) s_520)))" +"(if(pair? s_502)" +"(let-values(((lam-id68_0)(let-values(((s_507)(car s_502))) s_507))" "((formals69_0 _70_0)" -"(let-values(((s_506)(cdr s_500)))" +"(let-values(((s_508)(cdr s_502)))" "(let-values(((s_52)" -"(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" +"(if(syntax?$1 s_508)(syntax-e$1 s_508) s_508)))" "(if(pair? s_52)" "(let-values(((formals71_0)" "(let-values(((s_53)(car s_52))) s_53))" @@ -63666,8 +63712,8 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lam-id65_1 formals66_1 _67_1))))))" "(let-values(((ids_36)(parse-and-flatten-formals formals66_0 #f s_26)))" -"(let-values(((ctx_71)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" -"(let-values(((phase_93)(if ctx_71(expand-context-phase ctx_71) 0)))" +"(let-values(((ctx_75)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" +"(let-values(((phase_93)(if ctx_75(expand-context-phase ctx_75) 0)))" "(begin" " (let-values (((ids73_0) ids_36) ((phase74_2) phase_93) ((s75_0) s_26) ((temp76_5) \"argument name\"))" "(check-no-duplicate-ids7.1 temp76_5 ids73_0 phase74_2 s75_0 unsafe-undefined))" @@ -63681,29 +63727,29 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_452 ctx_79)" +"(lambda(s_454 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_79)))" +"(let-values(((obs_88)(expand-context-observer ctx_83)))" "(if obs_88" "(let-values()(let-values()(call-expand-observe obs_88 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_452)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_454)))" "(let-values(((ok?_39 case-lambda78_0 formals79_0 body80_0)" -"(let-values(((s_519) disarmed-s_7))" -"(let-values(((orig-s_42) s_519))" +"(let-values(((s_521) disarmed-s_7))" +"(let-values(((orig-s_42) s_521))" "(let-values(((case-lambda78_1 formals79_1 body80_1)" -"(let-values(((s_415)(if(syntax?$1 s_519)(syntax-e$1 s_519) s_519)))" +"(let-values(((s_415)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" "(if(pair? s_415)" -"(let-values(((case-lambda81_0)(let-values(((s_520)(car s_415))) s_520))" +"(let-values(((case-lambda81_0)(let-values(((s_522)(car s_415))) s_522))" "((formals82_0 body83_0)" "(let-values(((s_408)(cdr s_415)))" -"(let-values(((s_521)" +"(let-values(((s_523)" "(if(syntax?$1 s_408)" "(syntax-e$1 s_408)" " s_408)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_521)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_523)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" @@ -63742,32 +63788,32 @@ static const char *startup_source = "(let-values(((formals90_0" " body91_0)" "(let-values()" -"(let-values(((s_522)" +"(let-values(((s_524)" "(if(syntax?$1" " s_210)" "(syntax-e$1" " s_210)" " s_210)))" "(if(pair?" -" s_522)" +" s_524)" "(let-values(((formals84_0)" -"(let-values(((s_523)" -"(car" -" s_522)))" -" s_523))" -"((body85_0)" -"(let-values(((s_524)" -"(cdr" -" s_522)))" "(let-values(((s_525)" -"(if(syntax?$1" -" s_524)" -"(syntax-e$1" -" s_524)" +"(car" " s_524)))" +" s_525))" +"((body85_0)" +"(let-values(((s_526)" +"(cdr" +" s_524)))" +"(let-values(((s_527)" +"(if(syntax?$1" +" s_526)" +"(syntax-e$1" +" s_526)" +" s_526)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_525)))" +" s_527)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63824,20 +63870,20 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda78_1 formals79_1 body80_1))))))" "(let-values(((ok?_40 case-lambda86_0 clause87_0)" -"(let-values(((s_526) disarmed-s_7))" -"(let-values(((orig-s_43) s_526))" +"(let-values(((s_528) disarmed-s_7))" +"(let-values(((orig-s_43) s_528))" "(let-values(((case-lambda86_1 clause87_1)" -"(let-values(((s_457)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" -"(if(pair? s_457)" +"(let-values(((s_459)(if(syntax?$1 s_528)(syntax-e$1 s_528) s_528)))" +"(if(pair? s_459)" "(let-values(((case-lambda88_0)" -"(let-values(((s_212)(car s_457))) s_212))" +"(let-values(((s_212)(car s_459))) s_212))" "((clause89_0)" -"(let-values(((s_527)(cdr s_457)))" -"(let-values(((s_528)" -"(if(syntax?$1 s_527)" -"(syntax-e$1 s_527)" -" s_527)))" -"(let-values(((flat-s_32)(to-syntax-list.1 s_528)))" +"(let-values(((s_529)(cdr s_459)))" +"(let-values(((s_530)" +"(if(syntax?$1 s_529)" +"(syntax-e$1 s_529)" +" s_529)))" +"(let-values(((flat-s_32)(to-syntax-list.1 s_530)))" "(if(not flat-s_32)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" @@ -63846,7 +63892,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda86_1 clause87_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_79)((s93_0) s_452)((temp94_1) #t))" +"(let-values(((ctx92_0) ctx_83)((s93_0) s_454)((temp94_1) #t))" "(keep-as-needed119.1 #f #f temp94_1 ctx92_0 s93_0))))" "(let-values(((clauses_1)" "(reverse$1" @@ -63884,7 +63930,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_89)" "(expand-context-observer" -" ctx_79)))" +" ctx_83)))" "(if obs_89" "(let-values()" "(let-values()" @@ -63895,7 +63941,7 @@ static const char *startup_source = "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx95_0)" -" ctx_79)" +" ctx_83)" "((clause96_0)" " clause_3))" "(keep-as-needed119.1" @@ -63907,14 +63953,14 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_452" +" s_454" " disarmed-s_7" " formals_8" " body_17" -" ctx_79" +" ctx_83" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_79)" +" ctx_83)" "(list" " exp-formals_0" " exp-body_3)" @@ -63939,13 +63985,13 @@ static const char *startup_source = " lst_112" " lst_201" " lst_113))))))" -"(if(expand-context-to-parsed? ctx_79)" +"(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_3)(list* case-lambda78_0 clauses_1)))" "(rebuild5.1 #t rebuild-s99_0 temp100_3))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_38 s_529)" +"(lambda(all-formals_0 sc_38 s_531)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -63960,21 +64006,21 @@ static const char *startup_source = "(let-values()(loop_122 p_86))" "(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_531 p_86))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_531 (car formals_9))))" "(cons" "(if sc_38(add-scope(car formals_9) sc_38)(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_529 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_531 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -64006,10 +64052,10 @@ static const char *startup_source = "(let-values(((split-by-reference?_0) split-by-reference?4_0))" "(let-values(((renames-log-tag_0) renames-log-tag5_0))" "(let-values()" -"(lambda(s_105 ctx_80)" +"(lambda(s_105 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_53)(expand-context-observer ctx_80)))" +"(let-values(((obs_53)(expand-context-observer ctx_84)))" "(if obs_53" "(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" "(void)))" @@ -64031,19 +64077,19 @@ static const char *startup_source = " id:val104_1" " val-rhs105_1" " body106_1)" -"(let-values(((s_530)" +"(let-values(((s_532)" "(if(syntax?$1 s_128)" "(syntax-e$1 s_128)" " s_128)))" -"(if(pair? s_530)" +"(if(pair? s_532)" "(let-values(((letrec-syntaxes+values107_0)" -"(let-values(((s_531)(car s_530))) s_531))" +"(let-values(((s_533)(car s_532))) s_533))" "((id:trans108_0" " trans-rhs109_0" " id:val110_0" " val-rhs111_0" " body112_0)" -"(let-values(((s_230)(cdr s_530)))" +"(let-values(((s_230)(cdr s_532)))" "(let-values(((s_231)" "(if(syntax?$1 s_230)" "(syntax-e$1 s_230)" @@ -64108,18 +64154,18 @@ static const char *startup_source = "(let-values(((id:trans144_0" " trans-rhs145_0)" "(let-values()" -"(let-values(((s_532)" +"(let-values(((s_534)" "(if(syntax?$1" " s_335)" "(syntax-e$1" " s_335)" " s_335)))" "(if(pair?" -" s_532)" +" s_534)" "(let-values(((id:trans118_0)" "(let-values(((s_341)" "(car" -" s_532)))" +" s_534)))" "(let-values(((s_342)" "(if(syntax?$1" " s_341)" @@ -64154,7 +64200,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_213)" -"(let-values(((s_533)" +"(let-values(((s_535)" "(unsafe-car" " lst_213))" "((rest_201)" @@ -64167,23 +64213,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans146_0)" "(let-values()" -"(if(let-values(((or-part_342)" +"(if(let-values(((or-part_340)" "(if(syntax?$1" -" s_533)" +" s_535)" "(symbol?" "(syntax-e$1" -" s_533))" +" s_535))" " #f)))" -"(if or-part_342" -" or-part_342" +"(if or-part_340" +" or-part_340" "(symbol?" -" s_533)))" -" s_533" +" s_535)))" +" s_535" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_533)))))" +" s_535)))))" "(cons" " id:trans146_0" " id:trans_8)))))" @@ -64204,24 +64250,24 @@ static const char *startup_source = "((trans-rhs119_0)" "(let-values(((s_242)" "(cdr" -" s_532)))" -"(let-values(((s_534)" +" s_534)))" +"(let-values(((s_536)" "(if(syntax?$1" " s_242)" "(syntax-e$1" " s_242)" " s_242)))" "(if(pair?" -" s_534)" +" s_536)" "(let-values(((trans-rhs120_0)" "(let-values(((s_243)" "(car" -" s_534)))" +" s_536)))" " s_243))" "(()" "(let-values(((s_244)" "(cdr" -" s_534)))" +" s_536)))" "(let-values(((s_245)" "(if(syntax?$1" " s_244)" @@ -64282,27 +64328,27 @@ static const char *startup_source = "((id:val115_0" " val-rhs116_0" " body117_0)" -"(let-values(((s_535)" +"(let-values(((s_537)" "(cdr" " s_231)))" "(let-values(((s_348)" "(if(syntax?$1" -" s_535)" +" s_537)" "(syntax-e$1" -" s_535)" -" s_535)))" +" s_537)" +" s_537)))" "(if(pair? s_348)" "(let-values(((id:val121_0" " val-rhs122_0)" -"(let-values(((s_536)" +"(let-values(((s_538)" "(car" " s_348)))" "(let-values(((s_246)" "(if(syntax?$1" -" s_536)" +" s_538)" "(syntax-e$1" -" s_536)" -" s_536)))" +" s_538)" +" s_538)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_246)))" @@ -64333,7 +64379,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_340)" -"(let-values(((s_537)" +"(let-values(((s_539)" "(unsafe-car" " lst_340))" "((rest_202)" @@ -64351,27 +64397,27 @@ static const char *startup_source = "(let-values(((id:val147_0" " val-rhs148_0)" "(let-values()" -"(let-values(((s_538)" +"(let-values(((s_540)" "(if(syntax?$1" -" s_537)" +" s_539)" "(syntax-e$1" -" s_537)" -" s_537)))" +" s_539)" +" s_539)))" "(if(pair?" -" s_538)" +" s_540)" "(let-values(((id:val124_0)" -"(let-values(((s_472)" +"(let-values(((s_474)" "(car" -" s_538)))" -"(let-values(((s_539)" +" s_540)))" +"(let-values(((s_541)" "(if(syntax?$1" -" s_472)" +" s_474)" "(syntax-e$1" -" s_472)" -" s_472)))" +" s_474)" +" s_474)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_539)))" +" s_541)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64397,7 +64443,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_122)" -"(let-values(((s_540)" +"(let-values(((s_542)" "(unsafe-car" " lst_122))" "((rest_61)" @@ -64410,23 +64456,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val149_0)" "(let-values()" -"(if(let-values(((or-part_380)" +"(if(let-values(((or-part_378)" "(if(syntax?$1" -" s_540)" +" s_542)" "(symbol?" "(syntax-e$1" -" s_540))" +" s_542))" " #f)))" -"(if or-part_380" -" or-part_380" +"(if or-part_378" +" or-part_378" "(symbol?" -" s_540)))" -" s_540" +" s_542)))" +" s_542" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_540)))))" +" s_542)))))" "(cons" " id:val149_0" " id:val_8)))))" @@ -64447,7 +64493,7 @@ static const char *startup_source = "((val-rhs125_0)" "(let-values(((s_354)" "(cdr" -" s_538)))" +" s_540)))" "(let-values(((s_248)" "(if(syntax?$1" " s_354)" @@ -64462,15 +64508,15 @@ static const char *startup_source = " s_248)))" " s_356))" "(()" -"(let-values(((s_541)" +"(let-values(((s_543)" "(cdr" " s_248)))" "(let-values(((s_357)" "(if(syntax?$1" -" s_541)" +" s_543)" "(syntax-e$1" -" s_541)" -" s_541)))" +" s_543)" +" s_543)))" "(if(null?" " s_357)" "(values)" @@ -64600,23 +64646,23 @@ static const char *startup_source = "(let-values(((s_257)(car s_254)))" " s_257))" "((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_542)(cdr s_254)))" -"(let-values(((s_543)" -"(if(syntax?$1 s_542)" -"(syntax-e$1 s_542)" -" s_542)))" -"(if(pair? s_543)" +"(let-values(((s_544)(cdr s_254)))" +"(let-values(((s_545)" +"(if(syntax?$1 s_544)" +"(syntax-e$1 s_544)" +" s_544)))" +"(if(pair? s_545)" "(let-values(((id:val135_0" " val-rhs136_0)" -"(let-values(((s_544)" +"(let-values(((s_418)" "(car" -" s_543)))" +" s_545)))" "(let-values(((s_258)" "(if(syntax?$1" -" s_544)" +" s_418)" "(syntax-e$1" -" s_544)" -" s_544)))" +" s_418)" +" s_418)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" " s_258)))" @@ -64647,7 +64693,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_342)" -"(let-values(((s_545)" +"(let-values(((s_546)" "(unsafe-car" " lst_342))" "((rest_203)" @@ -64667,25 +64713,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_373)" "(if(syntax?$1" -" s_545)" -"(syntax-e$1" -" s_545)" -" s_545)))" -"(if(pair?" -" s_373)" -"(let-values(((id:val138_0)" -"(let-values(((s_546)" -"(car" -" s_373)))" -"(let-values(((s_547)" -"(if(syntax?$1" " s_546)" "(syntax-e$1" " s_546)" " s_546)))" +"(if(pair?" +" s_373)" +"(let-values(((id:val138_0)" +"(let-values(((s_547)" +"(car" +" s_373)))" +"(let-values(((s_548)" +"(if(syntax?$1" +" s_547)" +"(syntax-e$1" +" s_547)" +" s_547)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_547)))" +" s_548)))" "(if(not" " flat-s_39)" "(let-values()" @@ -64711,7 +64757,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_344)" -"(let-values(((s_548)" +"(let-values(((s_549)" "(unsafe-car" " lst_344))" "((rest_204)" @@ -64724,23 +64770,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val152_0)" "(let-values()" -"(if(let-values(((or-part_381)" +"(if(let-values(((or-part_379)" "(if(syntax?$1" -" s_548)" +" s_549)" "(symbol?" "(syntax-e$1" -" s_548))" +" s_549))" " #f)))" -"(if or-part_381" -" or-part_381" +"(if or-part_379" +" or-part_379" "(symbol?" -" s_548)))" -" s_548" +" s_549)))" +" s_549" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_548)))))" +" s_549)))))" "(cons" " id:val152_0" " id:val_18)))))" @@ -64771,22 +64817,22 @@ static const char *startup_source = "(if(pair?" " s_260)" "(let-values(((val-rhs140_0)" -"(let-values(((s_549)" +"(let-values(((s_550)" "(car" " s_260)))" -" s_549))" +" s_550))" "(()" -"(let-values(((s_550)" +"(let-values(((s_551)" "(cdr" " s_260)))" -"(let-values(((s_551)" +"(let-values(((s_552)" "(if(syntax?$1" -" s_550)" -"(syntax-e$1" -" s_550)" -" s_550)))" -"(if(null?" " s_551)" +"(syntax-e$1" +" s_551)" +" s_551)))" +"(if(null?" +" s_552)" "(values)" "(raise-syntax-error$1" " #f" @@ -64839,7 +64885,7 @@ static const char *startup_source = "((body137_0)" "(let-values(((s_261)" "(cdr" -" s_543)))" +" s_545)))" "(let-values(((s_262)" "(if(syntax?$1" " s_261)" @@ -64882,7 +64928,7 @@ static const char *startup_source = "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_39)(new-scope 'local)))" -"(let-values(((phase_83)(expand-context-phase ctx_80)))" +"(let-values(((phase_83)(expand-context-phase ctx_84)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" @@ -64924,7 +64970,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_348)" -"(let-values(((id_113)" +"(let-values(((id_114)" "(unsafe-car" " lst_348))" "((rest_206)" @@ -64938,7 +64984,7 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_113" +" id_114" " sc_39))" " fold-var_317))))" "(values" @@ -65003,7 +65049,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_352)" -"(let-values(((id_114)" +"(let-values(((id_115)" "(unsafe-car" " lst_352))" "((rest_208)" @@ -65017,7 +65063,7 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_114" +" id_115" " sc_39))" " fold-var_325))))" "(values" @@ -65095,63 +65141,63 @@ static const char *startup_source = " _154_1" " clause155_1" " _156_1)" -"(let-values(((s_552)" +"(let-values(((s_553)" "(if(syntax?$1" " s_142)" "(syntax-e$1" " s_142)" " s_142)))" -"(if(pair? s_552)" +"(if(pair? s_553)" "(let-values(((_157_0)" -"(let-values(((s_553)" +"(let-values(((s_554)" "(car" -" s_552)))" -" s_553))" +" s_553)))" +" s_554))" "((_158_0" " clause159_0" " _160_0)" -"(let-values(((s_554)" -"(cdr" -" s_552)))" "(let-values(((s_555)" -"(if(syntax?$1" -" s_554)" -"(syntax-e$1" -" s_554)" -" s_554)))" -"(if(pair?" -" s_555)" -"(let-values(((_161_0)" +"(cdr" +" s_553)))" "(let-values(((s_556)" -"(car" +"(if(syntax?$1" +" s_555)" +"(syntax-e$1" +" s_555)" " s_555)))" -" s_556))" +"(if(pair?" +" s_556)" +"(let-values(((_161_0)" +"(let-values(((s_557)" +"(car" +" s_556)))" +" s_557))" "((clause162_0" " _163_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(((clause164_0)" +"(cdr" +" s_556)))" "(let-values(((s_559)" -"(car" -" s_558)))" -"(let-values(((s_560)" "(if(syntax?$1" -" s_559)" +" s_558)" "(syntax-e$1" +" s_558)" +" s_558)))" +"(if(pair?" " s_559)" +"(let-values(((clause164_0)" +"(let-values(((s_560)" +"(car" " s_559)))" +"(let-values(((s_561)" +"(if(syntax?$1" +" s_560)" +"(syntax-e$1" +" s_560)" +" s_560)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_560)))" +" s_561)))" "(if(not" " flat-s_41)" "(let-values()" @@ -65162,10 +65208,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_165_0)" -"(let-values(((s_561)" +"(let-values(((s_562)" "(cdr" -" s_558)))" -" s_561)))" +" s_559)))" +" s_562)))" "(values" " clause164_0" " _165_0))" @@ -65202,44 +65248,44 @@ static const char *startup_source = "(let-values(((s_145) disarmed-s_8))" "(let-values(((orig-s_47) s_145))" "(let-values(((_166_1 clause167_1 _168_1)" -"(let-values(((s_562)" +"(let-values(((s_563)" "(if(syntax?$1" " s_145)" "(syntax-e$1" " s_145)" " s_145)))" -"(if(pair? s_562)" +"(if(pair? s_563)" "(let-values(((_169_0)" -"(let-values(((s_563)" +"(let-values(((s_564)" "(car" -" s_562)))" -" s_563))" +" s_563)))" +" s_564))" "((clause170_0" " _171_0)" -"(let-values(((s_564)" -"(cdr" -" s_562)))" "(let-values(((s_565)" -"(if(syntax?$1" -" s_564)" -"(syntax-e$1" -" s_564)" -" s_564)))" -"(if(pair?" -" s_565)" -"(let-values(((clause172_0)" +"(cdr" +" s_563)))" "(let-values(((s_566)" -"(car" -" s_565)))" -"(let-values(((s_567)" "(if(syntax?$1" -" s_566)" +" s_565)" "(syntax-e$1" +" s_565)" +" s_565)))" +"(if(pair?" " s_566)" +"(let-values(((clause172_0)" +"(let-values(((s_567)" +"(car" " s_566)))" +"(let-values(((s_568)" +"(if(syntax?$1" +" s_567)" +"(syntax-e$1" +" s_567)" +" s_567)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_567)))" +" s_568)))" "(if(not" " flat-s_42)" "(let-values()" @@ -65250,10 +65296,10 @@ static const char *startup_source = "(let-values()" " flat-s_42))))))" "((_173_0)" -"(let-values(((s_568)" +"(let-values(((s_569)" "(cdr" -" s_565)))" -" s_568)))" +" s_566)))" +" s_569)))" "(values" " clause172_0" " _173_0))" @@ -65283,7 +65329,7 @@ static const char *startup_source = " s143_0" " unsafe-undefined))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_80)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" "(let-values(((lst_355) trans-idss_2))" @@ -65327,7 +65373,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_358)" -"(let-values(((id_115)" +"(let-values(((id_116)" "(unsafe-car" " lst_358))" "((rest_211)" @@ -65341,7 +65387,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id174_0)" -" id_115)" +" id_116)" "((phase175_0)" " phase_83)" "((counter176_0)" @@ -65424,7 +65470,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_361)" -"(let-values(((id_116)" +"(let-values(((id_117)" "(unsafe-car" " lst_361))" "((rest_213)" @@ -65438,7 +65484,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id179_0)" -" id_116)" +" id_117)" "((phase180_0)" " phase_83)" "((counter181_0)" @@ -65523,7 +65569,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_90)" -"(expand-context-observer ctx_80)))" +"(expand-context-observer ctx_84)))" "(if obs_90" "(let-values()" "(log-let-renames" @@ -65544,7 +65590,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_80)))" +" ctx_84)))" "(if obs_91" "(let-values()" "(let-values()" @@ -65552,7 +65598,7 @@ static const char *startup_source = " obs_91" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_80)))" +"(prepare-next-phase-namespace ctx_84)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" @@ -65603,7 +65649,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_80)))" +" ctx_84)))" "(if obs_92" "(let-values()" "(let-values()" @@ -65623,11 +65669,11 @@ static const char *startup_source = " rhs_21" " sc_39)" " ids_41" -" ctx_80)))" +" ctx_84)))" "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_80)))" +" ctx_84)))" "(if obs_93" "(let-values()" "(let-values()" @@ -65721,7 +65767,7 @@ static const char *startup_source = "((rest_219)" "(unsafe-cdr" " lst_372))" -"((id_117)" +"((id_118)" "(unsafe-car" " lst_373))" "((rest_220)" @@ -65736,7 +65782,7 @@ static const char *startup_source = " env_34" " key_90" "(local-variable1.1" -" id_117)))))" +" id_118)))))" "(values" " env_35)))))" "(if(not" @@ -65759,7 +65805,7 @@ static const char *startup_source = " env_30)))" " env_29)))))" " for-loop_307)" -"(expand-context-env ctx_80)" +"(expand-context-env ctx_84)" " lst_367" " lst_134)))))" "(let-values(((rec-env_0)" @@ -65806,7 +65852,7 @@ static const char *startup_source = "((rest_222)" "(unsafe-cdr" " lst_378))" -"((ids_22)" +"((ids_43)" "(unsafe-car" " lst_379))" "((rest_223)" @@ -65822,7 +65868,7 @@ static const char *startup_source = "((lst_381)" " vals_9)" "((lst_382)" -" ids_22))" +" ids_43))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65869,7 +65915,7 @@ static const char *startup_source = "((rest_225)" "(unsafe-cdr" " lst_384))" -"((id_118)" +"((id_119)" "(unsafe-car" " lst_385))" "((rest_226)" @@ -65883,9 +65929,9 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_85" -" id_118" +" id_119" " phase_83" -" ctx_80)" +" ctx_84)" "(env-extend" " env_42" " key_91" @@ -65922,22 +65968,22 @@ static const char *startup_source = " lst_375" " lst_376)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_80)))" +"(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_182) expr-ctx_0))" -"(let-values(((the-struct_97) v_182))" +"(let-values(((v_184) expr-ctx_0))" +"(let-values(((the-struct_96) v_184))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_96)" "(let-values(((env184_0)" " rec-env_0)" "((scopes185_0)" "(cons" " sc_39" "(expand-context-scopes" -" ctx_80)))" +" ctx_84)))" "((reference-records186_0)" "(if split-by-reference?_0" "(cons" @@ -65949,53 +65995,55 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_80" +" ctx_84" " sc_39))" "((inner188_0)" "(root-expand-context/outer-inner" -" v_182)))" +" v_184)))" "(expand-context/outer1.1" " inner188_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_96)" " env184_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_96)" " scopes185_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_96)" " binding-layer187_0" " reference-records186_0" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_96)" +"(expand-context/outer-current-use-scopes" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_96))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_80))" +" ctx_84))" "(if syntaxes?_0" "(core-id 'letrec-values phase_83)" " let-values127_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx189_0) ctx_80)" +"(let-values(((ctx189_0) ctx_84)" "((s190_1) s_105)" "((temp191_1) #t))" "(keep-as-needed119.1" @@ -66006,7 +66054,7 @@ static const char *startup_source = " s190_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_80)" +" ctx_84)" "(reverse$1" "(let-values(((lst_251)" " val-idss_3))" @@ -66105,7 +66153,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_80)))" +" ctx_84)))" "(if obs_94" "(let-values()" "(log-letrec-values" @@ -66124,7 +66172,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_80)))" +" ctx_84)))" "(if obs_95" "(let-values()" "(if(not" @@ -66142,10 +66190,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_265)" " rec-ctx_0))" -"(let-values(((the-struct_98)" +"(let-values(((the-struct_97)" " v_265))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_97)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" @@ -66154,45 +66202,47 @@ static const char *startup_source = "(expand-context/outer1.1" " inner196_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-def-ctx-scopes" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-binding-layer" -" the-struct_98)" +" the-struct_97)" " reference-records195_0" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_97)" +"(expand-context/outer-current-use-scopes" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_97))))))" "(let-values(((bodys192_0)" " bodys_10)" "((temp193_0)" "(let-values(((body-ctx197_0)" " body-ctx_5)" "((ctx198_0)" -" ctx_80))" +" ctx_84))" "(as-tail-context22.1" " ctx198_0" " body-ctx197_0)))" @@ -66261,7 +66311,7 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(let-values(((ids_43)" +"(let-values(((ids_44)" "(unsafe-car" " lst_390))" "((rest_228)" @@ -66296,7 +66346,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_80)))" +" ctx_84)))" "(if obs_96" "(let-values()" "(let-values()" @@ -66312,10 +66362,10 @@ static const char *startup_source = "(if rec?_1" "(as-named-context" " rec-ctx_0" -" ids_43)" +" ids_44)" "(as-named-context" " expr-ctx_0" -" ids_43))))" +" ids_44))))" "(expand9.1" " #f" " #f" @@ -66323,14 +66373,14 @@ static const char *startup_source = " rhs199_0" " temp200_0))))" "(if(expand-context-to-parsed?" -" ctx_80)" +" ctx_84)" "(list" " keys_12" " exp-rhs_4)" "(datum->syntax$1" " #f" "(list" -" ids_43" +" ids_44" " exp-rhs_4)" " clause_4" " clause_4)))))" @@ -66362,7 +66412,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_80)" +" ctx_84)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -66394,7 +66444,7 @@ static const char *startup_source = " val-rhss_3)" "((val-clauses206_0)" " val-clauses_0)" -"((temp207_0)" +"((temp207_1)" " #t)" "((frame-id208_0)" " frame-id_15)" @@ -66414,13 +66464,13 @@ static const char *startup_source = " get-body212_0" " syntaxes?211_0" " rebuild-s210_0" -" temp207_0" +" temp207_1" " temp213_3" " val-idss203_0" " val-keyss204_0" " val-rhss205_0" " val-clauses206_0))))))" -"(if(expand-context-to-parsed? ctx_80)" +"(if(expand-context-to-parsed? ctx_84)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -66528,7 +66578,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'let-values" -"(let-values(((temp214_2) 'prim-let-values))(make-let-values-form11.1 temp214_2 #f 'let-renames #f #f))))" +"(let-values(((temp214_3) 'prim-let-values))(make-let-values-form11.1 temp214_3 #f 'let-renames #f #f))))" "(void" "(add-core-form!*" " 'letrec-values" @@ -66537,39 +66587,39 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'letrec-syntaxes+values" -"(let-values(((temp217_3) #t)" +"(let-values(((temp217_2) #t)" "((temp218_2) #t)" -"((temp219_0) #t)" +"((temp219_1) #t)" "((temp220_0) 'prim-letrec-syntaxes+values)" "((temp221_3) 'letrec-syntaxes-renames))" -"(make-let-values-form11.1 temp220_0 temp218_2 temp221_3 temp219_0 temp217_3))))" +"(make-let-values-form11.1 temp220_0 temp218_2 temp221_3 temp219_1 temp217_2))))" "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_569 ctx_81)" +"(lambda(s_570 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_81)))" +"(let-values(((obs_99)(expand-context-observer ctx_85)))" "(if obs_99" "(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_569)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_570)))" "(let-values(((ok?_45 #%stratified-body222_0 body223_0)" -"(let-values(((s_570) disarmed-s_9))" -"(let-values(((orig-s_48) s_570))" +"(let-values(((s_571) disarmed-s_9))" +"(let-values(((orig-s_48) s_571))" "(let-values(((#%stratified-body222_1 body223_1)" -"(let-values(((s_571)(if(syntax?$1 s_570)(syntax-e$1 s_570) s_570)))" -"(if(pair? s_571)" +"(let-values(((s_572)(if(syntax?$1 s_571)(syntax-e$1 s_571) s_571)))" +"(if(pair? s_572)" "(let-values(((#%stratified-body224_0)" -"(let-values(((s_572)(car s_571))) s_572))" +"(let-values(((s_573)(car s_572))) s_573))" "((body225_0)" -"(let-values(((s_573)(cdr s_571)))" -"(let-values(((s_574)" -"(if(syntax?$1 s_573)" -"(syntax-e$1 s_573)" -" s_573)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_574)))" +"(let-values(((s_574)(cdr s_572)))" +"(let-values(((s_575)" +"(if(syntax?$1 s_574)" +"(syntax-e$1 s_574)" +" s_574)))" +"(let-values(((flat-s_43)(to-syntax-list.1 s_575)))" "(if(not flat-s_43)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -66581,40 +66631,40 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body222_1 body223_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx226_0) ctx_81)((s227_0) s_569)((temp228_0) #t))" +"(let-values(((ctx226_0) ctx_85)((s227_0) s_570)((temp228_0) #t))" "(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_0))))" "(let-values(((exp-body_5)" "(let-values(((temp229_3) body223_0)" -"((ctx230_0) ctx_81)" +"((ctx230_0) ctx_85)" "((temp231_1) #t)" "((rebuild-s232_0) rebuild-s_7))" "(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))" -"(if(expand-context-to-parsed? ctx_81)" +"(if(expand-context-to-parsed? ctx_85)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s233_0) rebuild-s_7)" "((temp234_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_81)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_85)) exp-body_5))))" "(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_575 ctx_82)" +"(lambda(s_576 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_82)))" +"(let-values(((obs_100)(expand-context-observer ctx_86)))" "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_575)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_576)))" "(let-values(((ok?_46 #%datum235_0 datum236_0)" -"(let-values(((s_576) disarmed-s_10))" -"(let-values(((orig-s_49) s_576))" +"(let-values(((s_577) disarmed-s_10))" +"(let-values(((orig-s_49) s_577))" "(let-values(((#%datum235_1 datum236_1)" -"(let-values(((s_577)(if(syntax?$1 s_576)(syntax-e$1 s_576) s_576)))" -"(if(pair? s_577)" -"(let-values(((#%datum237_0)(let-values(((s_578)(car s_577))) s_578))" -"((datum238_0)(let-values(((s_579)(cdr s_577))) s_579)))" +"(let-values(((s_578)(if(syntax?$1 s_577)(syntax-e$1 s_577) s_577)))" +"(if(pair? s_578)" +"(let-values(((#%datum237_0)(let-values(((s_579)(car s_578))) s_579))" +"((datum238_0)(let-values(((s_580)(cdr s_578))) s_580)))" "(values #%datum237_0 datum238_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%datum235_1 datum236_1))))))" @@ -66626,35 +66676,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_140)(expand-context-phase ctx_82)))" -"(if(if(expand-context-to-parsed? ctx_82)(free-id-set-empty?(expand-context-stops ctx_82)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_575)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_575)((temp240_0)(list(core-id 'quote phase_140) datum_2)))" +"(let-values(((phase_141)(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_576)(syntax->datum$1 datum_2))" +"(let-values(((s239_0) s_576)((temp240_0)(list(core-id 'quote phase_141) datum_2)))" "(rebuild5.1 #t s239_0 temp240_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_580 ctx_83)" +"(lambda(s_581 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_83)))" +"(let-values(((obs_101)(expand-context-observer ctx_87)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_580)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_581)))" "(let-values(((ok?_47 #%app241_0 e242_0)" -"(let-values(((s_581) disarmed-s_11))" -"(let-values(((orig-s_50) s_581))" +"(let-values(((s_582) disarmed-s_11))" +"(let-values(((orig-s_50) s_582))" "(let-values(((#%app241_1 e242_1)" -"(let-values(((s_582)(if(syntax?$1 s_581)(syntax-e$1 s_581) s_581)))" -"(if(pair? s_582)" -"(let-values(((#%app243_0)(let-values(((s_583)(car s_582))) s_583))" +"(let-values(((s_583)(if(syntax?$1 s_582)(syntax-e$1 s_582) s_582)))" +"(if(pair? s_583)" +"(let-values(((#%app243_0)(let-values(((s_584)(car s_583))) s_584))" "((e244_0)" -"(let-values(((s_584)(cdr s_582)))" -"(let-values(((s_585)" -"(if(syntax?$1 s_584)" -"(syntax-e$1 s_584)" -" s_584)))" -"(let-values(((flat-s_44)(to-syntax-list.1 s_585)))" +"(let-values(((s_585)(cdr s_583)))" +"(let-values(((s_586)" +"(if(syntax?$1 s_585)" +"(syntax-e$1 s_585)" +" s_585)))" +"(let-values(((flat-s_44)(to-syntax-list.1 s_586)))" "(if(not flat-s_44)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" @@ -66665,27 +66715,27 @@ static const char *startup_source = "(let-values(((es_3) e242_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_141)(expand-context-phase ctx_83)))" -"(if(expand-context-to-parsed? ctx_83)" -"(parsed-quote14.1(keep-properties-only~ s_580) null)" -"(let-values(((s245_0) s_580)((temp246_1)(list(core-id 'quote phase_141) null)))" +"(let-values(((phase_142)(expand-context-phase ctx_87)))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote14.1(keep-properties-only~ s_581) null)" +"(let-values(((s245_0) s_581)((temp246_1)(list(core-id 'quote phase_142) null)))" "(rebuild5.1 #t s245_0 temp246_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx247_0) ctx_83)" -"((s248_0) s_580)" +"(let-values(((ctx247_0) ctx_87)" +"((s248_0) s_581)" "((keep-for-parsed?249_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx250_0) ctx_83)" +"(let-values(((ctx250_0) ctx_87)" "((prefixless251_0) prefixless_0)" "((keep-for-parsed?252_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 prefixless251_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_83)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_87)))" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" @@ -66696,14 +66746,14 @@ static const char *startup_source = "(call-expand-observe" " obs_102" " 'enter-list" -"(datum->syntax$1 #f es_3 s_580))" +"(datum->syntax$1 #f es_3 s_581))" "(call-expand-observe obs_102 'next))))" "(void)))" "(values))))" "(let-values(((rest-es_0)(cdr es_3)))" "(let-values(((exp-rator_0)" -"(let-values(((temp253_1)(car es_3))((expr-ctx254_0) expr-ctx_1))" -"(expand9.1 #f #f #f temp253_1 expr-ctx254_0))))" +"(let-values(((temp253_2)(car es_3))((expr-ctx254_0) expr-ctx_1))" +"(expand9.1 #f #f #f temp253_2 expr-ctx254_0))))" "(let-values(((exp-es_0)" "(reverse$1" "(let-values(((lst_402) rest-es_0))" @@ -66757,11 +66807,11 @@ static const char *startup_source = " for-loop_315)" " null" " lst_402))))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_382) rebuild-prefixless_0))" -"(if or-part_382 or-part_382 rebuild-s_8))" +"(let-values(((or-part_380) rebuild-prefixless_0))" +"(if or-part_380 or-part_380 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66788,35 +66838,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_586 ctx_84)" +"(lambda(s_587 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_84)))" +"(let-values(((obs_105)(expand-context-observer ctx_88)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_48 quote261_0 datum262_0)" -"(let-values(((s_282)(syntax-disarm$1 s_586)))" +"(let-values(((s_282)(syntax-disarm$1 s_587)))" "(let-values(((orig-s_51) s_282))" "(let-values(((quote261_1 datum262_1)" "(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))" "(if(pair? s_284)" -"(let-values(((quote263_0)(let-values(((s_587)(car s_284))) s_587))" +"(let-values(((quote263_0)(let-values(((s_588)(car s_284))) s_588))" "((datum264_0)" -"(let-values(((s_588)(cdr s_284)))" -"(let-values(((s_589)" -"(if(syntax?$1 s_588)" -"(syntax-e$1 s_588)" -" s_588)))" -"(if(pair? s_589)" +"(let-values(((s_589)(cdr s_284)))" +"(let-values(((s_590)" +"(if(syntax?$1 s_589)" +"(syntax-e$1 s_589)" +" s_589)))" +"(if(pair? s_590)" "(let-values(((datum265_0)" -"(let-values(((s_590)(car s_589))) s_590))" +"(let-values(((s_591)(car s_590))) s_591))" "(()" -"(let-values(((s_591)(cdr s_589)))" -"(let-values(((s_592)" -"(if(syntax?$1 s_591)" -"(syntax-e$1 s_591)" -" s_591)))" -"(if(null? s_592)" +"(let-values(((s_592)(cdr s_590)))" +"(let-values(((s_593)" +"(if(syntax?$1 s_592)" +"(syntax-e$1 s_592)" +" s_592)))" +"(if(null? s_593)" "(values)" "(raise-syntax-error$1" " #f" @@ -66827,41 +66877,41 @@ static const char *startup_source = "(values quote263_0 datum264_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote261_1 datum262_1))))))" -"(if(expand-context-to-parsed? ctx_84)" -"(parsed-quote14.1(keep-properties-only~ s_586)(syntax->datum$1 datum262_0))" -" s_586))))))" +"(if(expand-context-to-parsed? ctx_88)" +"(parsed-quote14.1(keep-properties-only~ s_587)(syntax->datum$1 datum262_0))" +" s_587))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_593 ctx_85)" +"(lambda(s_594 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_85)))" +"(let-values(((obs_106)(expand-context-observer ctx_89)))" "(if obs_106" "(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_593)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_594)))" "(let-values(((ok?_49 quote-syntax266_0 datum267_0)" "(let-values(((s_291) disarmed-s_12))" -"(if(let-values(((s_594)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_594)" -"(if(let-values(((s_595)(car s_594))) #t)" -"(let-values(((s_596)(cdr s_594)))" -"(let-values(((s_292)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" +"(if(let-values(((s_595)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(if(pair? s_595)" +"(if(let-values(((s_596)(car s_595))) #t)" +"(let-values(((s_597)(cdr s_595)))" +"(let-values(((s_292)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" "(if(pair? s_292)" -"(if(let-values(((s_597)(car s_292))) #t)" -"(let-values(((s_598)(cdr s_292)))" -"(let-values(((s_293)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" +"(if(let-values(((s_598)(car s_292))) #t)" +"(let-values(((s_599)(cdr s_292)))" +"(let-values(((s_293)(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" "(if(pair? s_293)" "(if(let-values(((s_294)(car s_293)))" "(let-values(((s_295)" "(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" "(eq? '#:local s_295)))" -"(let-values(((s_599)(cdr s_293)))" -"(let-values(((s_600)" -"(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" -"(null? s_600)))" +"(let-values(((s_600)(cdr s_293)))" +"(let-values(((s_601)" +"(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" +"(null? s_601)))" " #f)" " #f)))" " #f)" @@ -66870,44 +66920,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax266_1 datum267_1)" -"(let-values(((s_601)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(let-values(((s_602)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" "(let-values(((quote-syntax268_0)" -"(let-values(((s_602)(car s_601))) s_602))" +"(let-values(((s_603)(car s_602))) s_603))" "((datum269_0)" -"(let-values(((s_603)(cdr s_601)))" -"(let-values(((s_604)" -"(if(syntax?$1 s_603)" -"(syntax-e$1 s_603)" -" s_603)))" +"(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(((datum270_0)" -"(let-values(((s_605)(car s_604))) s_605))" +"(let-values(((s_606)(car s_605))) s_606))" "(()" -"(let-values(((s_606)(cdr s_604)))" -"(let-values(((s_607)" -"(if(syntax?$1 s_606)" -"(syntax-e$1 s_606)" -" s_606)))" -"(let-values((()" +"(let-values(((s_607)(cdr s_605)))" "(let-values(((s_608)" -"(car" +"(if(syntax?$1 s_607)" +"(syntax-e$1 s_607)" " s_607)))" +"(let-values((()" "(let-values(((s_609)" -"(if(syntax?$1" -" s_608)" -"(syntax-e$1" -" s_608)" +"(car" " s_608)))" +"(let-values(((s_610)" +"(if(syntax?$1" +" s_609)" +"(syntax-e$1" +" s_609)" +" s_609)))" "(values))))" "(()" -"(let-values(((s_610)" -"(cdr" -" s_607)))" "(let-values(((s_611)" +"(cdr" +" s_608)))" +"(let-values(((s_612)" "(if(syntax?$1" -" s_610)" +" s_611)" "(syntax-e$1" -" s_610)" -" s_610)))" +" s_611)" +" s_611)))" "(values)))))" "(values))))))" "(values datum270_0))))))" @@ -66915,26 +66965,26 @@ static const char *startup_source = "(values #t quote-syntax266_1 datum267_1)))" "(values #f #f #f)))))" "(let-values(((ok?_50 quote-syntax271_0 datum272_0)" -"(let-values(((s_612) disarmed-s_12))" +"(let-values(((s_613) disarmed-s_12))" "(if(if(not ok?_49) #t #f)" -"(let-values(((orig-s_52) s_612))" +"(let-values(((orig-s_52) s_613))" "(let-values(((quote-syntax271_1 datum272_1)" -"(let-values(((s_613)(if(syntax?$1 s_612)(syntax-e$1 s_612) s_612)))" -"(if(pair? s_613)" +"(let-values(((s_614)(if(syntax?$1 s_613)(syntax-e$1 s_613) s_613)))" +"(if(pair? s_614)" "(let-values(((quote-syntax273_0)" -"(let-values(((s_297)(car s_613))) s_297))" +"(let-values(((s_297)(car s_614))) s_297))" "((datum274_0)" -"(let-values(((s_614)(cdr s_613)))" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)" -"(syntax-e$1 s_614)" -" s_614)))" -"(if(pair? s_615)" +"(let-values(((s_615)(cdr s_614)))" +"(let-values(((s_616)" +"(if(syntax?$1 s_615)" +"(syntax-e$1 s_615)" +" s_615)))" +"(if(pair? s_616)" "(let-values(((datum275_0)" -"(let-values(((s_298)(car s_615)))" +"(let-values(((s_298)(car s_616)))" " s_298))" "(()" -"(let-values(((s_299)(cdr s_615)))" +"(let-values(((s_299)(cdr s_616)))" "(let-values(((s_300)" "(if(syntax?$1 s_299)" "(syntax-e$1 s_299)" @@ -66958,55 +67008,55 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_85))" +"(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_51 _276_0 _277_0 kw278_0)" -"(let-values(((s_616) disarmed-s_12))" -"(let-values(((orig-s_53) s_616))" +"(let-values(((s_617) disarmed-s_12))" +"(let-values(((orig-s_53) s_617))" "(let-values(((_276_1 _277_1 kw278_1)" -"(let-values(((s_617)" -"(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" -"(if(pair? s_617)" +"(let-values(((s_618)" +"(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" +"(if(pair? s_618)" "(let-values(((_279_0)" -"(let-values(((s_618)(car s_617))) s_618))" +"(let-values(((s_619)(car s_618))) s_619))" "((_280_0 kw281_0)" -"(let-values(((s_619)(cdr s_617)))" -"(let-values(((s_620)" -"(if(syntax?$1 s_619)" -"(syntax-e$1 s_619)" -" s_619)))" -"(if(pair? s_620)" -"(let-values(((_282_0)" +"(let-values(((s_620)(cdr s_618)))" "(let-values(((s_621)" -"(car s_620)))" -" s_621))" -"((kw283_0)" +"(if(syntax?$1 s_620)" +"(syntax-e$1 s_620)" +" s_620)))" +"(if(pair? s_621)" +"(let-values(((_282_0)" "(let-values(((s_622)" -"(cdr s_620)))" +"(car s_621)))" +" s_622))" +"((kw283_0)" "(let-values(((s_623)" -"(if(syntax?$1" -" s_622)" -"(syntax-e$1" -" s_622)" -" s_622)))" -"(if(pair? s_623)" -"(let-values(((kw284_0)" +"(cdr s_621)))" "(let-values(((s_624)" -"(car" -" s_623)))" -" s_624))" -"(()" -"(let-values(((s_625)" -"(cdr" -" s_623)))" -"(let-values(((s_626)" "(if(syntax?$1" -" s_625)" +" s_623)" "(syntax-e$1" -" s_625)" -" s_625)))" -"(if(null?" +" s_623)" +" s_623)))" +"(if(pair? s_624)" +"(let-values(((kw284_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_627)" "(values)" "(raise-syntax-error$1" " #f" @@ -67025,47 +67075,47 @@ static const char *startup_source = "(values _279_0 _280_0 kw281_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _276_1 _277_1 kw278_1))))))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_593) datum267_0)" -"(let-values(((s285_0) s_593)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" +"(if(expand-context-to-parsed? ctx_89)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_594) datum267_0)" +"(let-values(((s285_0) s_594)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" "(rebuild5.1 #t s285_0 temp286_0))))))" "(let-values()" -"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_85)))" +"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_89)))" "(let-values(((datum-s_0)" "(remove-scopes" -"(remove-scopes datum272_0(expand-context-scopes ctx_85))" +"(remove-scopes datum272_0(expand-context-scopes ctx_89))" "(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" -"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_593) datum-s_0)" -"(let-values(((s287_0) s_593)((temp288_0)(list quote-syntax271_0 datum-s_0)))" +"(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_594) datum-s_0)" +"(let-values(((s287_0) s_594)((temp288_0)(list quote-syntax271_0 datum-s_0)))" "(rebuild5.1 #t s287_0 temp288_0))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_627 ctx_86)" +"(lambda(s_628 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_86)))" +"(let-values(((obs_107)(expand-context-observer ctx_90)))" "(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_627)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_628)))" "(let-values(((ok?_52 _289_0 _290_0 _291_0)" -"(let-values(((s_628) disarmed-s_13))" -"(if(let-values(((s_629)(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" -"(if(pair? s_629)" -"(if(let-values(((s_630)(car s_629))) #t)" -"(let-values(((s_631)(cdr s_629)))" -"(let-values(((s_632)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" -"(if(pair? s_632)" -"(if(let-values(((s_633)(car s_632))) #t)" -"(let-values(((s_634)(cdr s_632)))" -"(let-values(((s_635)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))" -"(if(pair? s_635)" -"(if(let-values(((s_636)(car s_635))) #t)" -"(let-values(((s_637)(cdr s_635)))" -"(let-values(((s_638)" -"(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" -"(null? s_638)))" +"(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)" @@ -67074,37 +67124,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_289_1 _290_1 _291_1)" -"(let-values(((s_639)(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" -"(let-values(((_292_0)(let-values(((s_640)(car s_639))) s_640))" +"(let-values(((s_640)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" +"(let-values(((_292_0)(let-values(((s_641)(car s_640))) s_641))" "((_293_0 _294_0)" -"(let-values(((s_641)(cdr s_639)))" -"(let-values(((s_642)" -"(if(syntax?$1 s_641)" -"(syntax-e$1 s_641)" -" s_641)))" +"(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(((_295_0)" -"(let-values(((s_643)(car s_642))) s_643))" +"(let-values(((s_644)(car s_643))) s_644))" "((_296_0)" -"(let-values(((s_644)(cdr s_642)))" -"(let-values(((s_645)" -"(if(syntax?$1 s_644)" -"(syntax-e$1 s_644)" -" s_644)))" -"(let-values(((_297_0)" +"(let-values(((s_645)(cdr s_643)))" "(let-values(((s_646)" -"(car" +"(if(syntax?$1 s_645)" +"(syntax-e$1 s_645)" " s_645)))" -" s_646))" -"(()" +"(let-values(((_297_0)" "(let-values(((s_647)" -"(cdr" -" s_645)))" +"(car" +" s_646)))" +" s_647))" +"(()" "(let-values(((s_648)" +"(cdr" +" s_646)))" +"(let-values(((s_649)" "(if(syntax?$1" -" s_647)" +" s_648)" "(syntax-e$1" -" s_647)" -" s_647)))" +" s_648)" +" s_648)))" "(values)))))" "(values _297_0))))))" "(values _295_0 _296_0))))))" @@ -67114,67 +67164,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_52" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_627))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_628))" "(void))" "(values))))" "(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)" -"(let-values(((s_649) disarmed-s_13))" -"(let-values(((orig-s_54) s_649))" +"(let-values(((s_650) disarmed-s_13))" +"(let-values(((orig-s_54) s_650))" "(let-values(((if298_1 tst299_1 thn300_1 els301_1)" -"(let-values(((s_650)(if(syntax?$1 s_649)(syntax-e$1 s_649) s_649)))" -"(if(pair? s_650)" -"(let-values(((if302_0)(let-values(((s_651)(car s_650))) s_651))" +"(let-values(((s_651)(if(syntax?$1 s_650)(syntax-e$1 s_650) s_650)))" +"(if(pair? s_651)" +"(let-values(((if302_0)(let-values(((s_652)(car s_651))) s_652))" "((tst303_0 thn304_0 els305_0)" -"(let-values(((s_652)(cdr s_650)))" -"(let-values(((s_653)" -"(if(syntax?$1 s_652)" -"(syntax-e$1 s_652)" -" s_652)))" -"(if(pair? s_653)" +"(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(((tst306_0)" -"(let-values(((s_654)(car s_653)))" -" s_654))" +"(let-values(((s_655)(car s_654)))" +" s_655))" "((thn307_0 els308_0)" -"(let-values(((s_655)(cdr s_653)))" -"(let-values(((s_656)" -"(if(syntax?$1 s_655)" -"(syntax-e$1 s_655)" -" s_655)))" -"(if(pair? s_656)" -"(let-values(((thn309_0)" +"(let-values(((s_656)(cdr s_654)))" "(let-values(((s_657)" -"(car" +"(if(syntax?$1 s_656)" +"(syntax-e$1 s_656)" " s_656)))" -" s_657))" -"((els310_0)" +"(if(pair? s_657)" +"(let-values(((thn309_0)" "(let-values(((s_658)" -"(cdr" -" s_656)))" -"(let-values(((s_659)" -"(if(syntax?$1" -" s_658)" -"(syntax-e$1" -" s_658)" -" s_658)))" -"(if(pair?" -" s_659)" -"(let-values(((els311_0)" -"(let-values(((s_660)" "(car" -" s_659)))" -" s_660))" -"(()" -"(let-values(((s_661)" +" s_657)))" +" s_658))" +"((els310_0)" +"(let-values(((s_659)" "(cdr" -" s_659)))" -"(let-values(((s_662)" +" s_657)))" +"(let-values(((s_660)" "(if(syntax?$1" -" s_661)" +" s_659)" "(syntax-e$1" -" s_661)" -" s_661)))" -"(if(null?" +" s_659)" +" s_659)))" +"(if(pair?" +" s_660)" +"(let-values(((els311_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_663)" "(values)" "(raise-syntax-error$1" " #f" @@ -67199,19 +67249,19 @@ static const char *startup_source = "(values if302_0 tst303_0 thn304_0 els305_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t if298_1 tst299_1 thn300_1 els301_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_86)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_90)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_86))" +"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_90))" "(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_86)((s315_0) s_627))" +"(let-values(((ctx314_0) ctx_90)((s315_0) s_628))" "(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))" "(expand9.1 #f #f #f temp316_0 expr-ctx317_0))))" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_86)))" +"(let-values(((obs_108)(expand-context-observer ctx_90)))" "(if obs_108" "(let-values()(let-values()(call-expand-observe obs_108 'next)))" "(void)))" @@ -67221,7 +67271,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp318_0 tail-ctx319_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_86)))" +"(let-values(((obs_109)(expand-context-observer ctx_90)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -67229,7 +67279,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp320_0) els301_0)((tail-ctx321_0) tail-ctx_0))" "(expand9.1 #f #f #f temp320_0 tail-ctx321_0))))" -"(if(expand-context-to-parsed? ctx_86)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s322_0) rebuild-s_9)" "((temp323_0)(list if298_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -67237,73 +67287,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_663 ctx_87)" +"(lambda(s_664 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_87)))" +"(let-values(((obs_110)(expand-context-observer ctx_91)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_663)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_664)))" "(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)" -"(let-values(((s_664) disarmed-s_14))" -"(let-values(((orig-s_55) s_664))" +"(let-values(((s_665) disarmed-s_14))" +"(let-values(((orig-s_55) s_665))" "(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)" -"(let-values(((s_665)(if(syntax?$1 s_664)(syntax-e$1 s_664) s_664)))" -"(if(pair? s_665)" +"(let-values(((s_666)(if(syntax?$1 s_665)(syntax-e$1 s_665) s_665)))" +"(if(pair? s_666)" "(let-values(((with-continuation-mark328_0)" -"(let-values(((s_666)(car s_665))) s_666))" +"(let-values(((s_667)(car s_666))) s_667))" "((key329_0 val330_0 body331_0)" -"(let-values(((s_667)(cdr s_665)))" -"(let-values(((s_668)" -"(if(syntax?$1 s_667)" -"(syntax-e$1 s_667)" -" s_667)))" -"(if(pair? s_668)" +"(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(((key332_0)" -"(let-values(((s_669)(car s_668)))" -" s_669))" +"(let-values(((s_670)(car s_669)))" +" s_670))" "((val333_0 body334_0)" -"(let-values(((s_670)(cdr s_668)))" -"(let-values(((s_671)" -"(if(syntax?$1 s_670)" -"(syntax-e$1 s_670)" -" s_670)))" -"(if(pair? s_671)" -"(let-values(((val335_0)" +"(let-values(((s_671)(cdr s_669)))" "(let-values(((s_672)" -"(car" +"(if(syntax?$1 s_671)" +"(syntax-e$1 s_671)" " s_671)))" -" s_672))" -"((body336_0)" +"(if(pair? s_672)" +"(let-values(((val335_0)" "(let-values(((s_673)" -"(cdr" -" s_671)))" -"(let-values(((s_674)" -"(if(syntax?$1" -" s_673)" -"(syntax-e$1" -" s_673)" -" s_673)))" -"(if(pair? s_674)" -"(let-values(((body337_0)" -"(let-values(((s_675)" "(car" -" s_674)))" -" s_675))" -"(()" -"(let-values(((s_676)" +" s_672)))" +" s_673))" +"((body336_0)" +"(let-values(((s_674)" "(cdr" -" s_674)))" -"(let-values(((s_677)" +" s_672)))" +"(let-values(((s_675)" "(if(syntax?$1" -" s_676)" +" s_674)" "(syntax-e$1" -" s_676)" -" s_676)))" -"(if(null?" +" s_674)" +" s_674)))" +"(if(pair? s_675)" +"(let-values(((body337_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_678)" "(values)" "(raise-syntax-error$1" " #f" @@ -67325,16 +67375,16 @@ static const char *startup_source = "(values with-continuation-mark328_0 key329_0 val330_0 body331_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_87)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_87)((s339_0) s_663))" +"(let-values(((ctx338_0) ctx_91)((s339_0) s_664))" "(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))" "(let-values(((exp-key_0)" "(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))" "(expand9.1 #f #f #f temp340_0 expr-ctx341_0))))" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_87)))" +"(let-values(((obs_111)(expand-context-observer ctx_91)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" @@ -67344,7 +67394,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp342_0 expr-ctx343_0))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_87)))" +"(let-values(((obs_112)(expand-context-observer ctx_91)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" @@ -67352,10 +67402,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp344_0) body327_0)" "((temp345_0)" -"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_87))" +"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_91))" "(as-tail-context22.1 ctx347_0 expr-ctx346_0))))" "(expand9.1 #f #f #f temp344_0 temp345_0))))" -"(if(expand-context-to-parsed? ctx_87)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s348_0) rebuild-s_10)" "((temp349_0)(list with-continuation-mark324_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -67370,32 +67420,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_678 ctx_88)" +"(lambda(s_679 ctx_92)" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_88)))" +"(let-values(((obs_113)(expand-context-observer ctx_92)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_678)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_679)))" "(let-values(((ok?_55 begin350_0 e351_0)" -"(let-values(((s_679) disarmed-s_15))" -"(let-values(((orig-s_56) s_679))" +"(let-values(((s_680) disarmed-s_15))" +"(let-values(((orig-s_56) s_680))" "(let-values(((begin350_1 e351_1)" -"(let-values(((s_680)" -"(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" -"(if(pair? s_680)" +"(let-values(((s_681)" +"(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" +"(if(pair? s_681)" "(let-values(((begin352_0)" -"(let-values(((s_681)(car s_680))) s_681))" +"(let-values(((s_682)(car s_681))) s_682))" "((e353_0)" -"(let-values(((s_682)(cdr s_680)))" -"(let-values(((s_683)" -"(if(syntax?$1 s_682)" -"(syntax-e$1 s_682)" -" s_682)))" +"(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_45)" -"(to-syntax-list.1 s_683)))" +"(to-syntax-list.1 s_684)))" "(if(not flat-s_45)" "(let-values()" "(raise-syntax-error$1" @@ -67414,10 +67464,10 @@ static const char *startup_source = "(values #t begin350_1 e351_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_88)" -"(as-expression-context ctx_88))))" +"(as-begin-expression-context ctx_92)" +"(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_88)((s355_0) s_678))" +"(let-values(((ctx354_0) ctx_92)((s355_0) s_679))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -67428,7 +67478,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_114)" -"(expand-context-observer ctx_88)))" +"(expand-context-observer ctx_92)))" "(if obs_114" "(let-values()" "(begin" @@ -67449,7 +67499,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_115)" "(expand-context-observer" -" ctx_88)))" +" ctx_92)))" "(if obs_115" "(let-values()" "(let-values()" @@ -67464,7 +67514,7 @@ static const char *startup_source = "(let-values(((expr-ctx358_0)" " expr-ctx_4)" "((ctx359_0)" -" ctx_88))" +" ctx_92))" "(as-tail-context22.1" " ctx359_0" " expr-ctx358_0))" @@ -67475,7 +67525,7 @@ static const char *startup_source = " e351_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_88)))" +"(let-values(((obs_116)(expand-context-observer ctx_92)))" "(if obs_116" "(let-values()" "(let-values()" @@ -67484,7 +67534,7 @@ static const char *startup_source = " '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_88)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s360_0) rebuild-s_11)((temp361_0)(cons begin350_0 exp-es_2)))" "(rebuild5.1 #t rebuild-s360_0 temp361_0)))))))))))))))))))" @@ -67497,39 +67547,39 @@ static const char *startup_source = "((temp364_0) 0)" "((temp365_0) #t))" "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" -"(lambda(s_684 ctx_89)" -"(let-values(((context_25)(expand-context-context ctx_89)))" -"(if(let-values(((or-part_383)(eq? context_25 'top-level)))" -"(if or-part_383 or-part_383(eq? context_25 'module)))" +"(lambda(s_685 ctx_93)" +"(let-values(((context_25)(expand-context-context ctx_93)))" +"(if(let-values(((or-part_381)(eq? context_25 'top-level)))" +"(if or-part_381 or-part_381(eq? context_25 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_684)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_685)))" "(let-values(((ok?_56 begin366_0)" -"(let-values(((s_685) disarmed-s_16))" -"(if(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" -"(if(pair? s_686)" -"(if(let-values(((s_687)(car s_686))) #t)" -"(let-values(((s_688)(cdr s_686)))" -"(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" -"(null? s_689)))" +"(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(((begin366_1)" -"(let-values(((s_690)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" +"(let-values(((s_691)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" "(let-values(((begin367_0)" -"(let-values(((s_691)(car s_690))) s_691))" +"(let-values(((s_692)(car s_691))) s_692))" "(()" -"(let-values(((s_692)(cdr s_690)))" -"(let-values(((s_693)" -"(if(syntax?$1 s_692)" -"(syntax-e$1 s_692)" -" s_692)))" +"(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 begin367_0)))))" "(values #t begin366_1)))" "(values #f #f)))))" -"(if ok?_56 s_684(nonempty-begin_0 s_684 ctx_89)))))" -"(let-values()(nonempty-begin_0 s_684 ctx_89))))))))" +"(if ok?_56 s_685(nonempty-begin_0 s_685 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_685 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67537,15 +67587,15 @@ static const char *startup_source = "(make-begin20.1 temp371_0 temp370_0 temp368_0 parsed-begin0369_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_119 ctx_90)" +"(lambda(id_120 ctx_94)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_90)(>=(expand-context-phase ctx_90) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_90)" -"(expand-context-phase ctx_90)" -"(lambda(l_87)(cons id_119 l_87))" +"(expand-context-need-eventually-defined ctx_94)" +"(expand-context-phase ctx_94)" +"(lambda(l_87)(cons id_120 l_87))" " null)" " #t))" "(let-values() #f)))))" @@ -67556,58 +67606,58 @@ static const char *startup_source = "(lambda(s373_0 ctx374_0 implicit-omitted?372_0)" "(begin" " 'core375" -"(let-values(((s_694) s373_0))" -"(let-values(((ctx_91) ctx374_0))" +"(let-values(((s_695) s373_0))" +"(let-values(((ctx_95) ctx374_0))" "(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_91)))" +"(let-values(((obs_117)(expand-context-observer ctx_95)))" "(if obs_117" "(let-values()" "(let-values()(call-expand-observe obs_117 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_694)))" -"(let-values(((id_120)" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_695)))" +"(let-values(((id_121)" "(if implicit-omitted?_0" -"(let-values() s_694)" +"(let-values() s_695)" "(let-values()" "(let-values(((ok?_57 #%top377_0 id378_0)" -"(let-values(((s_695) disarmed-s_17))" -"(let-values(((orig-s_57) s_695))" +"(let-values(((s_696) disarmed-s_17))" +"(let-values(((orig-s_57) s_696))" "(let-values(((#%top377_1 id378_1)" -"(let-values(((s_696)" -"(if(syntax?$1 s_695)" -"(syntax-e$1 s_695)" -" s_695)))" -"(if(pair? s_696)" -"(let-values(((#%top379_0)" "(let-values(((s_697)" -"(car" +"(if(syntax?$1 s_696)" +"(syntax-e$1 s_696)" " s_696)))" -" s_697))" -"((id380_0)" +"(if(pair? s_697)" +"(let-values(((#%top379_0)" "(let-values(((s_698)" +"(car" +" s_697)))" +" s_698))" +"((id380_0)" +"(let-values(((s_699)" "(cdr" -" s_696)))" -"(if(let-values(((or-part_384)" +" s_697)))" +"(if(let-values(((or-part_382)" "(if(syntax?$1" -" s_698)" +" s_699)" "(symbol?" "(syntax-e$1" -" s_698))" +" s_699))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_382" +" or-part_382" "(symbol?" -" s_698)))" -" s_698" +" s_699)))" +" s_699" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_698)))))" +" s_699)))))" "(values #%top379_0 id380_0))" "(raise-syntax-error$1" " #f" @@ -67616,8 +67666,8 @@ static const char *startup_source = "(values #t #%top377_1 id378_1))))))" " id378_0)))))" "(let-values(((b_93)" -"(let-values(((id381_0) id_120)" -"((temp382_0)(expand-context-phase ctx_91))" +"(let-values(((id381_0) id_121)" +"((temp382_0)(expand-context-phase ctx_95))" "((temp383_0) 'ambiguous))" "(resolve+shift28.1" " temp383_0" @@ -67628,87 +67678,87 @@ static const char *startup_source = " id381_0" " temp382_0))))" "(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_120 ctx_91))" +"(let-values()(raise-ambiguous-error id_121 ctx_95))" "(if(if b_93" "(if(module-binding? b_93)" -"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_91))" +"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_95))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_91)" -"(parsed-id2.1 id_120 b_93 #f)" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-id2.1 id_121 b_93 #f)" "(if(top-level-module-path-index?(module-binding-module b_93))" -"(let-values() s_694)" -"(let-values() id_120))))" -"(if(register-eventual-variable!? id_120 ctx_91)" +"(let-values() s_695)" +"(let-values() id_121))))" +"(if(register-eventual-variable!? id_121 ctx_95)" "(let-values()" -"(if(expand-context-to-parsed? ctx_91)" -"(parsed-id2.1 id_120 b_93 #f)" -" id_120))" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-id2.1 id_121 b_93 #f)" +" id_121))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_91))" +"(if(not(expand-context-allow-unbound? ctx_95))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_120" +" id_121" " #f" " null" -"(syntax-debug-info-string id_120 ctx_91)))" +"(syntax-debug-info-string id_121 ctx_95)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_120" -"(root-expand-context-top-level-bind-scope ctx_91))))" +" id_121" +"(root-expand-context-top-level-bind-scope ctx_95))))" "(let-values(((tl-b_1)" "(let-values(((tl-id384_0) tl-id_1)" "((temp385_0)" -"(expand-context-phase ctx_91)))" +"(expand-context-phase ctx_95)))" "(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_91)" +"(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_120)" +"(let-values() id_121)" "(let-values()" "(let-values(((ok?_58 #%top386_0 id387_0)" -"(let-values(((s_699) disarmed-s_17))" -"(let-values(((orig-s_58) s_699))" +"(let-values(((s_700) disarmed-s_17))" +"(let-values(((orig-s_58) s_700))" "(let-values(((#%top386_1 id387_1)" -"(let-values(((s_700)" -"(if(syntax?$1" -" s_699)" -"(syntax-e$1" -" s_699)" -" s_699)))" -"(if(pair? s_700)" -"(let-values(((#%top388_0)" "(let-values(((s_701)" -"(car" -" s_700)))" -" s_701))" -"((id389_0)" -"(let-values(((s_702)" -"(cdr" -" s_700)))" -"(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_702)" +" s_700)" +"(syntax-e$1" +" s_700)" +" s_700)))" +"(if(pair? s_701)" +"(let-values(((#%top388_0)" +"(let-values(((s_702)" +"(car" +" s_701)))" +" s_702))" +"((id389_0)" +"(let-values(((s_703)" +"(cdr" +" s_701)))" +"(if(let-values(((or-part_383)" +"(if(syntax?$1" +" s_703)" "(symbol?" "(syntax-e$1" -" s_702))" +" s_703))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_383" +" or-part_383" "(symbol?" -" s_702)))" -" s_702" +" s_703)))" +" s_703" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_702)))))" +" s_703)))))" "(values" " #%top388_0" " id389_0))" @@ -67717,80 +67767,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_58)))))" "(values #t #%top386_1 id387_1))))))" -"(let-values(((s390_0) s_694)" -"((temp391_0)(cons #%top386_0 id_120)))" +"(let-values(((s390_0) s_695)" +"((temp391_0)(cons #%top386_0 id_121)))" "(rebuild5.1 #t s390_0 temp391_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_91)" -"(parsed-top-id4.1 id_120 b_93 #f)" -" s_694)))))))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-top-id4.1 id_121 b_93 #f)" +" s_695)))))))))))))))))))))))" "(case-lambda" -"((s_703 ctx_92)(core375_0 s_703 ctx_92 #f))" -"((s_704 ctx_93 implicit-omitted?372_1)(core375_0 s_704 ctx_93 implicit-omitted?372_1))))))" +"((s_704 ctx_96)(core375_0 s_704 ctx_96 #f))" +"((s_705 ctx_97 implicit-omitted?372_1)(core375_0 s_705 ctx_97 implicit-omitted?372_1))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_705 ctx_94)" +"(lambda(s_706 ctx_98)" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_94)))" +"(let-values(((obs_118)(expand-context-observer ctx_98)))" "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_705)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_706)))" "(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)" -"(let-values(((s_706) disarmed-s_18))" -"(let-values(((orig-s_59) s_706))" +"(let-values(((s_707) disarmed-s_18))" +"(let-values(((orig-s_59) s_707))" "(let-values(((set!392_1 id393_1 rhs394_1)" -"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" -"(if(pair? s_707)" -"(let-values(((set!395_0)(let-values(((s_708)(car s_707))) s_708))" +"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" +"(if(pair? s_708)" +"(let-values(((set!395_0)(let-values(((s_709)(car s_708))) s_709))" "((id396_0 rhs397_0)" -"(let-values(((s_709)(cdr s_707)))" -"(let-values(((s_710)" -"(if(syntax?$1 s_709)" -"(syntax-e$1 s_709)" -" s_709)))" -"(if(pair? s_710)" +"(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(((id398_0)" -"(let-values(((s_711)(car s_710)))" -"(if(let-values(((or-part_386)" -"(if(syntax?$1 s_711)" +"(let-values(((s_712)(car s_711)))" +"(if(let-values(((or-part_384)" +"(if(syntax?$1 s_712)" "(symbol?" "(syntax-e$1" -" s_711))" +" s_712))" " #f)))" -"(if or-part_386" -" or-part_386" -"(symbol? s_711)))" -" s_711" +"(if or-part_384" +" or-part_384" +"(symbol? s_712)))" +" s_712" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_711))))" +" s_712))))" "((rhs399_0)" -"(let-values(((s_712)(cdr s_710)))" -"(let-values(((s_713)" -"(if(syntax?$1 s_712)" -"(syntax-e$1 s_712)" -" s_712)))" -"(if(pair? s_713)" -"(let-values(((rhs400_0)" +"(let-values(((s_713)(cdr s_711)))" "(let-values(((s_714)" -"(car" +"(if(syntax?$1 s_713)" +"(syntax-e$1 s_713)" " s_713)))" -" s_714))" -"(()" +"(if(pair? s_714)" +"(let-values(((rhs400_0)" "(let-values(((s_715)" -"(cdr" -" s_713)))" +"(car" +" s_714)))" +" s_715))" +"(()" "(let-values(((s_716)" +"(cdr" +" s_714)))" +"(let-values(((s_717)" "(if(syntax?$1" -" s_715)" +" s_716)" "(syntax-e$1" -" s_715)" -" s_715)))" -"(if(null? s_716)" +" s_716)" +" s_716)))" +"(if(null? s_717)" "(values)" "(raise-syntax-error$1" " #f" @@ -67808,12 +67858,12 @@ static const char *startup_source = "(values #t set!392_1 id393_1 rhs394_1))))))" "(let-values(((orig-id_1) id393_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_121 from-rename?_0)" +"(lambda(id_122 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_29)" -"(let-values(((id401_0) id_121)" -"((temp402_0)(expand-context-phase ctx_94))" +"(let-values(((id401_0) id_122)" +"((temp402_0)(expand-context-phase ctx_98))" "((temp403_0) 'ambiguous)" "((temp404_0) #t))" "(resolve+shift28.1" @@ -67827,31 +67877,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error id_121 ctx_94))" +"(let-values()(raise-ambiguous-error id_122 ctx_98))" "(void))" "(values))))" "(let-values(((t_62 primitive?_11 insp_24 protected?_12)" "(if binding_29" "(let-values(((binding405_0) binding_29)" -"((ctx406_0) ctx_94)" -"((s407_0) s_705))" +"((ctx406_0) ctx_98)" +"((s407_0) s_706))" "(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_94)))" +"(let-values(((obs_119)(expand-context-observer ctx_98)))" "(if obs_119" "(let-values()" -"(let-values()(call-expand-observe obs_119 'resolve id_121)))" +"(let-values()(call-expand-observe obs_119 'resolve id_122)))" "(void)))" -"(if(let-values(((or-part_387)(variable? t_62)))" -"(if or-part_387" -" or-part_387" +"(if(let-values(((or-part_385)(variable? t_62)))" +"(if or-part_385" +" or-part_385" "(if(not binding_29)" -"(let-values(((or-part_388)" -"(register-eventual-variable!? id_121 ctx_94)))" -"(if or-part_388" -" or-part_388" -"(expand-context-allow-unbound? ctx_94)))" +"(let-values(((or-part_386)" +"(register-eventual-variable!? id_122 ctx_98)))" +"(if or-part_386" +" or-part_386" +"(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" "(let-values((()" @@ -67860,20 +67910,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_29)" -"(root-expand-context-self-mpi ctx_94)))" +"(root-expand-context-self-mpi ctx_98)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_705" -" id_121))" +" s_706" +" id_122))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_120)" -"(expand-context-observer ctx_94)))" +"(expand-context-observer ctx_98)))" "(if obs_120" "(let-values()" "(let-values()" @@ -67885,28 +67935,28 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_29)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_94)((s409_0) s_705))" +"(let-values(((ctx408_0) ctx_98)((s409_0) s_706))" "(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))" "(let-values(((exp-rhs_5)" "(let-values(((temp410_0) rhs394_0)" "((temp411_0)" -"(as-expression-context ctx_94)))" +"(as-expression-context ctx_98)))" "(expand9.1 #f #f #f temp410_0 temp411_0))))" -"(if(expand-context-to-parsed? ctx_94)" +"(if(expand-context-to-parsed? ctx_98)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_121 binding_29 #f)" +"(parsed-id2.1 id_122 binding_29 #f)" " exp-rhs_5)" "(let-values(((rebuild-s412_0) rebuild-s_12)" "((temp413_0)" "(list" " set!392_0" -"(let-values(((id414_0) id_121)" +"(let-values(((id414_0) id_122)" "((t415_0) t_62)" "((temp416_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_94))))" +" ctx_98))))" "(substitute-variable6.1" " temp416_0" " id414_0" @@ -67918,35 +67968,35 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_705" -" id_121" +" s_706" +" id_122" " null" -"(syntax-debug-info-string id_121 ctx_94)))" +"(syntax-debug-info-string id_122 ctx_98)))" "(if(1/set!-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_94)" +"(if(not-in-this-expand-context? t_62 ctx_98)" "(let-values()" "(let-values(((temp417_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_705" +" s_706" " disarmed-s_18" " set!392_0" " rhs394_0" -" id_121" +" id_122" " from-rename?_0" -" ctx_94)" +" ctx_98)" " t_62" -" ctx_94))" -"((ctx418_0) ctx_94))" +" ctx_98))" +"((ctx418_0) ctx_98))" "(expand9.1 #f #f #f temp417_0 ctx418_0)))" "(let-values()" "(let-values(((exp-s_13 re-ctx_1)" "(let-values(((t419_0) t_62)" "((insp420_0) insp_24)" -"((s421_0) s_705)" +"((s421_0) s_706)" "((orig-id422_0) orig-id_1)" -"((ctx423_0) ctx_94)" +"((ctx423_0) ctx_98)" "((binding424_0) binding_29)" "((orig-id425_0) orig-id_1))" "(apply-transformer52.1" @@ -67957,7 +68007,7 @@ static const char *startup_source = " orig-id422_0" " ctx423_0" " binding424_0))))" -"(if(expand-context-just-once? ctx_94)" +"(if(expand-context-just-once? ctx_98)" "(let-values() exp-s_13)" "(let-values()" "(let-values(((exp-s426_0) exp-s_13)" @@ -67965,36 +68015,36 @@ static const char *startup_source = "(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))" "(if(1/rename-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_94)" +"(if(not-in-this-expand-context? t_62 ctx_98)" "(let-values()" "(let-values(((temp428_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_705" +" s_706" " disarmed-s_18" " set!392_0" " rhs394_0" -" id_121" +" id_122" " from-rename?_0" -" ctx_94" +" ctx_98" " t_62)" " t_62" -" ctx_94))" -"((ctx429_0) ctx_94))" +" ctx_98))" +"((ctx429_0) ctx_98))" "(expand9.1 #f #f #f temp428_0 ctx429_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_62 ctx_94)" -" id_121" -" id_121)" +"(rename-transformer-target-in-context t_62 ctx_98)" +" id_122" +" id_122)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_705" -" id_121))))))))))))))" +" s_706" +" id_122))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -68004,115 +68054,115 @@ static const char *startup_source = "(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" "(begin" " 'substitute-set!-rename31" -"(let-values(((s_717) s24_3))" +"(let-values(((s_718) s24_3))" "(let-values(((disarmed-s_19) disarmed-s25_0))" "(let-values(((set!-id_0) set!-id26_0))" -"(let-values(((id_122) id27_0))" +"(let-values(((id_123) id27_0))" "(let-values(((rhs-s_0) rhs-s28_0))" "(let-values(((from-rename?_1) from-rename?29_0))" -"(let-values(((ctx_95) ctx30_0))" +"(let-values(((ctx_99) ctx30_0))" "(let-values(((t_63) t23_0))" "(let-values()" -"(if(let-values(((or-part_389) t_63))" -"(if or-part_389 or-part_389 from-rename?_1))" +"(if(let-values(((or-part_387) t_63))" +"(if or-part_387 or-part_387 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_63" -"(rename-transformer-target-in-context t_63 ctx_95)" -" id_122)))" +"(rename-transformer-target-in-context t_63 ctx_99)" +" id_123)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_717)))" -"(let-values() s_717)))))))))))))))" +" s_718)))" +"(let-values() s_718)))))))))))))))" "(case-lambda" -"((s_718 disarmed-s_20 set!-id_1 id_123 rhs-s_1 from-rename?_2 ctx_96)" -"(begin(substitute-set!-rename31_0 s_718 disarmed-s_20 set!-id_1 id_123 rhs-s_1 from-rename?_2 ctx_96 #f)))" -"((s_719 disarmed-s_21 set!-id_2 id_124 rhs-s_2 from-rename?_3 ctx_97 t23_1)" -"(substitute-set!-rename31_0 s_719 disarmed-s_21 set!-id_2 id_124 rhs-s_2 from-rename?_3 ctx_97 t23_1)))))" +"((s_719 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename31_0 s_719 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_100 #f)))" +"((s_720 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename31_0 s_720 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_101 t23_1)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_720 ctx_98)" +"(lambda(s_721 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_98)))" +"(let-values(((obs_121)(expand-context-observer ctx_102)))" "(if obs_121" "(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_720)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_721)))" "(let-values(((ok?_60 #%variable-reference430_0 id431_0)" -"(let-values(((s_721) disarmed-s_22))" -"(if(let-values(((s_722)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" -"(if(pair? s_722)" -"(if(let-values(((s_723)(car s_722))) #t)" -"(let-values(((s_724)(cdr s_722)))" -"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))" -"(if(pair? s_725)" -"(if(let-values(((s_726)(car s_725)))" -"(let-values(((or-part_390)" -"(if(syntax?$1 s_726)(symbol?(syntax-e$1 s_726)) #f)))" -"(if or-part_390 or-part_390(symbol? s_726))))" -"(let-values(((s_727)(cdr s_725)))" -"(let-values(((s_728)(if(syntax?$1 s_727)(syntax-e$1 s_727) s_727)))" -"(null? s_728)))" +"(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_388)" +"(if(syntax?$1 s_727)(symbol?(syntax-e$1 s_727)) #f)))" +"(if or-part_388 or-part_388(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-reference430_1 id431_1)" -"(let-values(((s_729)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" +"(let-values(((s_730)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" "(let-values(((#%variable-reference432_0)" -"(let-values(((s_730)(car s_729))) s_730))" +"(let-values(((s_731)(car s_730))) s_731))" "((id433_0)" -"(let-values(((s_731)(cdr s_729)))" -"(let-values(((s_732)" -"(if(syntax?$1 s_731)" -"(syntax-e$1 s_731)" -" s_731)))" +"(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(((id434_0)" -"(let-values(((s_733)(car s_732))) s_733))" +"(let-values(((s_734)(car s_733))) s_734))" "(()" -"(let-values(((s_734)(cdr s_732)))" -"(let-values(((s_735)" -"(if(syntax?$1 s_734)" -"(syntax-e$1 s_734)" -" s_734)))" +"(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 id434_0))))))" "(values #%variable-reference432_0 id433_0)))))" "(values #t #%variable-reference430_1 id431_1)))" "(values #f #f #f)))))" "(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)" -"(let-values(((s_736) disarmed-s_22))" +"(let-values(((s_737) disarmed-s_22))" "(if(if(not ok?_60)" -"(let-values(((s_737)(if(syntax?$1 s_736)(syntax-e$1 s_736) s_736)))" -"(if(pair? s_737)" -"(if(let-values(((s_738)(car s_737))) #t)" -"(let-values(((s_739)(cdr s_737)))" -"(let-values(((s_740)(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))" -"(if(pair? s_740)" -"(if(let-values(((s_741)(car s_740)))" -"(let-values(((s_742)" -"(if(syntax?$1 s_741)(syntax-e$1 s_741) s_741)))" -"(if(pair? s_742)" -"(if(let-values(((s_743)(car s_742))) #t)" -"(let-values(((s_744)(cdr s_742)))" -"(let-values(((or-part_391)" -"(if(syntax?$1 s_744)" -"(symbol?(syntax-e$1 s_744))" +"(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)))" +"(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_389)" +"(if(syntax?$1 s_745)" +"(symbol?(syntax-e$1 s_745))" " #f)))" -"(if or-part_391 or-part_391(symbol? s_744))))" +"(if or-part_389 or-part_389(symbol? s_745))))" " #f)" " #f)))" -"(let-values(((s_745)(cdr s_740)))" -"(let-values(((s_746)(if(syntax?$1 s_745)(syntax-e$1 s_745) s_745)))" -"(null? s_746)))" +"(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)" @@ -68120,61 +68170,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference435_1 #%top436_1 id437_1)" -"(let-values(((s_747)(if(syntax?$1 s_736)(syntax-e$1 s_736) s_736)))" +"(let-values(((s_748)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" "(let-values(((#%variable-reference438_0)" -"(let-values(((s_748)(car s_747))) s_748))" +"(let-values(((s_749)(car s_748))) s_749))" "((#%top439_0 id440_0)" -"(let-values(((s_749)(cdr s_747)))" -"(let-values(((s_750)" -"(if(syntax?$1 s_749)" -"(syntax-e$1 s_749)" -" 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(((#%top441_0 id442_0)" -"(let-values(((s_751)(car s_750)))" -"(let-values(((s_752)" -"(if(syntax?$1 s_751)" -"(syntax-e$1 s_751)" -" s_751)))" -"(let-values(((#%top443_0)" +"(let-values(((s_752)(car s_751)))" "(let-values(((s_753)" -"(car" +"(if(syntax?$1 s_752)" +"(syntax-e$1 s_752)" " s_752)))" -" s_753))" -"((id444_0)" +"(let-values(((#%top443_0)" "(let-values(((s_754)" +"(car" +" s_753)))" +" s_754))" +"((id444_0)" +"(let-values(((s_755)" "(cdr" -" s_752)))" -" s_754)))" +" s_753)))" +" s_755)))" "(values #%top443_0 id444_0)))))" "(()" -"(let-values(((s_755)(cdr s_750)))" -"(let-values(((s_756)" -"(if(syntax?$1 s_755)" -"(syntax-e$1 s_755)" -" s_755)))" +"(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 #%top441_0 id442_0))))))" "(values #%variable-reference438_0 #%top439_0 id440_0)))))" "(values #t #%variable-reference435_1 #%top436_1 id437_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" -"(let-values(((s_757) disarmed-s_22))" -"(if(if(not(let-values(((or-part_392) ok?_60))(if or-part_392 or-part_392 ok?_61)))" +"(let-values(((s_758) disarmed-s_22))" +"(if(if(not(let-values(((or-part_390) ok?_60))(if or-part_390 or-part_390 ok?_61)))" " #t" " #f)" -"(let-values(((orig-s_60) s_757))" +"(let-values(((orig-s_60) s_758))" "(let-values(((#%variable-reference445_1)" -"(let-values(((s_758)(if(syntax?$1 s_757)(syntax-e$1 s_757) s_757)))" -"(if(pair? s_758)" +"(let-values(((s_759)(if(syntax?$1 s_758)(syntax-e$1 s_758) s_758)))" +"(if(pair? s_759)" "(let-values(((#%variable-reference446_0)" -"(let-values(((s_759)(car s_758))) s_759))" +"(let-values(((s_760)(car s_759))) s_760))" "(()" -"(let-values(((s_760)(cdr s_758)))" -"(let-values(((s_761)" -"(if(syntax?$1 s_760)" -"(syntax-e$1 s_760)" -" s_760)))" -"(if(null? s_761)" +"(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" @@ -68184,96 +68234,96 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%variable-reference445_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_393) ok?_60))(if or-part_393 or-part_393 ok?_61))" +"(if(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61))" "(let-values()" "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" "(let-values(((binding_30)" "(let-values(((var-id447_0) var-id_0)" -"((temp448_0)(expand-context-phase ctx_98))" +"((temp448_0)(expand-context-phase ctx_102))" "((temp449_0) 'ambiguous))" "(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))" "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_98))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_102))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_394) binding_30))" -"(if or-part_394 or-part_394(expand-context-allow-unbound? ctx_98)))" +"(if(let-values(((or-part_392) binding_30))" +"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_720" +" s_721" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_98))))" +"(syntax-debug-info-string var-id_0 ctx_102))))" "(values))))" "(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_30" "(let-values(((binding450_0) binding_30)" -"((ctx451_0) ctx_98)" +"((ctx451_0) ctx_102)" "((var-id452_0) var-id_0)" -"((s453_0) s_720)" -"((temp454_0)(expand-context-in-local-expand? ctx_98)))" +"((s453_0) s_721)" +"((temp454_0)(expand-context-in-local-expand? ctx_102)))" "(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_64(not(variable? t_64)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_720))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_721))" "(void))" -"(if(expand-context-to-parsed? ctx_98)" +"(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_720)" +"(keep-properties-only~ s_721)" "(if ok?_61" "(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" -" s_720))))))))" +" s_721))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_98)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_720) #f)" -" s_720)))))))))))" +"(if(expand-context-to-parsed? ctx_102)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_721) #f)" +" s_721)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_762 ctx_99)" +"(lambda(s_763 ctx_103)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_99)))" +"(let-values(((obs_122)(expand-context-observer ctx_103)))" "(if obs_122" "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_762)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_763)))" "(let-values(((ok?_63 #%expression455_0 e456_0)" -"(let-values(((s_763) disarmed-s_23))" -"(let-values(((orig-s_61) s_763))" +"(let-values(((s_764) disarmed-s_23))" +"(let-values(((orig-s_61) s_764))" "(let-values(((#%expression455_1 e456_1)" -"(let-values(((s_764)(if(syntax?$1 s_763)(syntax-e$1 s_763) s_763)))" -"(if(pair? s_764)" +"(let-values(((s_765)(if(syntax?$1 s_764)(syntax-e$1 s_764) s_764)))" +"(if(pair? s_765)" "(let-values(((#%expression457_0)" -"(let-values(((s_765)(car s_764))) s_765))" +"(let-values(((s_766)(car s_765))) s_766))" "((e458_0)" -"(let-values(((s_766)(cdr s_764)))" -"(let-values(((s_767)" -"(if(syntax?$1 s_766)" -"(syntax-e$1 s_766)" -" s_766)))" -"(if(pair? s_767)" +"(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(((e459_0)" -"(let-values(((s_768)(car s_767)))" -" s_768))" +"(let-values(((s_769)(car s_768)))" +" s_769))" "(()" -"(let-values(((s_769)(cdr s_767)))" -"(let-values(((s_770)" -"(if(syntax?$1 s_769)" -"(syntax-e$1 s_769)" -" s_769)))" -"(if(null? s_770)" +"(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" @@ -68285,37 +68335,38 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression455_1 e456_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx460_0) ctx_99)((s461_0) s_762)((temp462_0) #t))" +"(let-values(((ctx460_0) ctx_103)((s461_0) s_763)((temp462_0) #t))" "(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))" "(let-values(((exp-e_0)" "(let-values(((temp463_0) e456_0)" "((temp464_0)" -"(let-values(((temp465_0)(as-expression-context ctx_99))((ctx466_0) ctx_99))" +"(let-values(((temp465_0)(as-expression-context ctx_103))" +"((ctx466_0) ctx_103))" "(as-tail-context22.1 ctx466_0 temp465_0))))" "(expand9.1 #f #f #f temp463_0 temp464_0))))" -"(if(expand-context-to-parsed? ctx_99)" +"(if(expand-context-to-parsed? ctx_103)" " exp-e_0" -"(if(let-values(((or-part_395)" -"(if(expand-context-in-local-expand? ctx_99)" -"(expand-context-keep-#%expression? ctx_99)" +"(if(let-values(((or-part_393)" +"(if(expand-context-in-local-expand? ctx_103)" +"(expand-context-keep-#%expression? ctx_103)" " #f)))" -"(if or-part_395 or-part_395(eq? 'top-level(expand-context-context ctx_99))))" +"(if or-part_393 or-part_393(eq? 'top-level(expand-context-context ctx_103))))" "(let-values()" "(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))" "(rebuild5.1 #t rebuild-s467_0 temp468_0)))" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_99)))" +"(let-values(((obs_123)(expand-context-observer ctx_103)))" "(if obs_123" "(let-values()(let-values()(call-expand-observe obs_123 'tag result-s_13)))" "(void)))" " result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_771 ctx_100) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_772 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_772))))" +" (void (add-core-form!* 'unquote (lambda (s_772 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_772))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_773 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_773))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_125 at-phase_12 ns_112)" +"(lambda(b_42 id_126 at-phase_12 ns_112)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -68334,16 +68385,16 @@ static const char *startup_source = "((null3_0) null)" "((ns4_2) ns_112)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_125))" +"((id6_0) id_126))" "(binding-lookup50.1 #f #f b1_8 empty-env2_0 null3_0 ns4_2 at-phase5_0 id6_0))))" "(not(variable? val_14))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_45 ctx_102)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_45 ctx_106)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_102)))" +"(let-values(((ns_125)(expand-context-namespace ctx_106)))" "((letrec-values(((loop_117)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" @@ -68514,47 +68565,47 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_773)" +"(let-values(((s_774)" "(if(syntax?$1" " s_169)" "(syntax-e$1" " s_169)" " s_169)))" "(if(pair?" -" s_773)" +" s_774)" "(let-values(((for-meta6_0)" -"(let-values(((s_487)" +"(let-values(((s_489)" "(car" -" s_773)))" -" s_487))" +" s_774)))" +" s_489))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_446)" +"(let-values(((s_448)" "(cdr" -" s_773)))" -"(let-values(((s_492)" +" s_774)))" +"(let-values(((s_494)" "(if(syntax?$1" -" s_446)" +" s_448)" "(syntax-e$1" -" s_446)" -" s_446)))" +" s_448)" +" s_448)))" "(if(pair?" -" s_492)" +" s_494)" "(let-values(((phase-level9_0)" -"(let-values(((s_774)" -"(car" -" s_492)))" -" s_774))" -"((spec10_0)" "(let-values(((s_775)" +"(car" +" s_494)))" +" s_775))" +"((spec10_0)" +"(let-values(((s_776)" "(cdr" -" s_492)))" +" s_494)))" "(let-values(((s_81)" "(if(syntax?$1" -" s_775)" +" s_776)" "(syntax-e$1" -" s_775)" -" s_775)))" +" s_776)" +" s_776)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_81)))" @@ -68639,18 +68690,18 @@ static const char *startup_source = "(let-values(((ok?_65" " for-syntax13_0" " spec14_0)" -"(let-values(((s_448)" +"(let-values(((s_450)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_448))" +" s_450))" "(let-values(((for-syntax13_1" " spec14_1)" "(let-values(((s_24)" "(if(syntax?$1" -" s_448)" +" s_450)" "(syntax-e$1" -" s_448)" -" s_448)))" +" s_450)" +" s_450)))" "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" @@ -68662,7 +68713,7 @@ static const char *startup_source = "(let-values(((s_157)" "(cdr" " s_24)))" -"(let-values(((s_776)" +"(let-values(((s_777)" "(if(syntax?$1" " s_157)" "(syntax-e$1" @@ -68670,7 +68721,7 @@ static const char *startup_source = " s_157)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_776)))" +" s_777)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68727,25 +68778,25 @@ static const char *startup_source = "(let-values(((ok?_66" " for-label19_0" " spec20_0)" -"(let-values(((s_499)" +"(let-values(((s_501)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_499))" +" s_501))" "(let-values(((for-label19_1" " spec20_1)" "(let-values(((s_309)" "(if(syntax?$1" -" s_499)" +" s_501)" "(syntax-e$1" -" s_499)" -" s_499)))" +" s_501)" +" s_501)))" "(if(pair?" " s_309)" "(let-values(((for-label21_0)" -"(let-values(((s_441)" +"(let-values(((s_443)" "(car" " s_309)))" -" s_441))" +" s_443))" "((spec22_0)" "(let-values(((s_27)" "(cdr" @@ -68830,29 +68881,29 @@ static const char *startup_source = " s_49))" "(let-values(((protect25_1" " p-spec26_1)" -"(let-values(((s_777)" +"(let-values(((s_778)" "(if(syntax?$1" " s_49)" "(syntax-e$1" " s_49)" " s_49)))" "(if(pair?" -" s_777)" +" s_778)" "(let-values(((protect27_0)" -"(let-values(((s_505)" +"(let-values(((s_507)" "(car" -" s_777)))" -" s_505))" +" s_778)))" +" s_507))" "((p-spec28_0)" -"(let-values(((s_506)" +"(let-values(((s_508)" "(cdr" -" s_777)))" +" s_778)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_506)" +" s_508)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_508)" +" s_508)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" " s_52)))" @@ -68915,24 +68966,24 @@ static const char *startup_source = "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_778)" +"(let-values(((s_779)" "(if(syntax?$1" " s_314)" "(syntax-e$1" " s_314)" " s_314)))" "(if(pair?" -" s_778)" +" s_779)" "(let-values(((rename34_0)" "(let-values(((s_201)" "(car" -" s_778)))" +" s_779)))" " s_201))" "((id:from35_0" " id:to36_0)" "(let-values(((s_59)" "(cdr" -" s_778)))" +" s_779)))" "(let-values(((s_405)" "(if(syntax?$1" " s_59)" @@ -68945,15 +68996,15 @@ static const char *startup_source = "(let-values(((s_202)" "(car" " s_405)))" -"(if(let-values(((or-part_214)" +"(if(let-values(((or-part_212)" "(if(syntax?$1" " s_202)" "(symbol?" "(syntax-e$1" " s_202))" " #f)))" -"(if or-part_214" -" or-part_214" +"(if or-part_212" +" or-part_212" "(symbol?" " s_202)))" " s_202" @@ -68978,15 +69029,15 @@ static const char *startup_source = "(let-values(((s_204)" "(car" " s_61)))" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" " s_204)" "(symbol?" "(syntax-e$1" " s_204))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_394" +" or-part_394" "(symbol?" " s_204)))" " s_204" @@ -68996,15 +69047,15 @@ static const char *startup_source = " orig-s_67" " s_204))))" "(()" -"(let-values(((s_779)" +"(let-values(((s_780)" "(cdr" " s_61)))" "(let-values(((s_414)" "(if(syntax?$1" -" s_779)" +" s_780)" "(syntax-e$1" -" s_779)" -" s_779)))" +" s_780)" +" s_780)))" "(if(null?" " s_414)" "(values)" @@ -69068,19 +69119,19 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_521)" +"(let-values(((s_523)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_521))" +" s_523))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" "(let-values(((s_208)" "(if(syntax?$1" -" s_521)" +" s_523)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_523)" +" s_523)))" "(if(pair?" " s_208)" "(let-values(((struct43_0)" @@ -69102,51 +69153,51 @@ static const char *startup_source = "(if(pair?" " s_318)" "(let-values(((id:struct46_0)" -"(let-values(((s_780)" +"(let-values(((s_781)" "(car" " s_318)))" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_780)" +" s_781)" "(symbol?" "(syntax-e$1" -" s_780))" +" s_781))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_395" +" or-part_395" "(symbol?" -" s_780)))" -" s_780" +" s_781)))" +" s_781" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_780))))" +" s_781))))" "((id:field47_0)" -"(let-values(((s_781)" +"(let-values(((s_782)" "(cdr" " s_318)))" -"(let-values(((s_430)" +"(let-values(((s_432)" "(if(syntax?$1" -" s_781)" +" s_782)" "(syntax-e$1" -" s_781)" -" s_781)))" +" s_782)" +" s_782)))" "(if(pair?" -" s_430)" +" s_432)" "(let-values(((id:field48_0)" -"(let-values(((s_522)" +"(let-values(((s_524)" "(car" -" s_430)))" -"(let-values(((s_782)" +" s_432)))" +"(let-values(((s_783)" "(if(syntax?$1" -" s_522)" +" s_524)" "(syntax-e$1" -" s_522)" -" s_522)))" +" s_524)" +" s_524)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_782)))" +" s_783)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69172,7 +69223,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_269)" -"(let-values(((s_783)" +"(let-values(((s_784)" "(unsafe-car" " lst_269))" "((rest_238)" @@ -69185,23 +69236,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_783)" +" s_784)" "(symbol?" "(syntax-e$1" -" s_783))" +" s_784))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_396" +" or-part_396" "(symbol?" -" s_783)))" -" s_783" +" s_784)))" +" s_784" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_783)))))" +" s_784)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69220,17 +69271,17 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_527)" +"(let-values(((s_529)" "(cdr" -" s_430)))" -"(let-values(((s_528)" +" s_432)))" +"(let-values(((s_530)" "(if(syntax?$1" -" s_527)" +" s_529)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_529)" +" s_529)))" "(if(null?" -" s_528)" +" s_530)" "(values)" "(raise-syntax-error$1" " #f" @@ -69302,27 +69353,27 @@ static const char *startup_source = "(if(pair?" " s_322)" "(let-values(((all-from52_0)" -"(let-values(((s_426)" +"(let-values(((s_427)" "(car" " s_322)))" -" s_426))" +" s_427))" "((mod-path53_0)" -"(let-values(((s_427)" +"(let-values(((s_428)" "(cdr" " s_322)))" "(let-values(((s_215)" "(if(syntax?$1" -" s_427)" +" s_428)" "(syntax-e$1" -" s_427)" -" s_427)))" +" s_428)" +" s_428)))" "(if(pair?" " s_215)" "(let-values(((mod-path54_0)" -"(let-values(((s_784)" +"(let-values(((s_785)" "(car" " s_215)))" -" s_784))" +" s_785))" "(()" "(let-values(((s_216)" "(cdr" @@ -69367,7 +69418,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_102)" +" ctx_106)" "(values" " null" "(list" @@ -69404,26 +69455,26 @@ static const char *startup_source = " s_219))" "((mod-path59_0" " id60_1)" -"(let-values(((s_785)" +"(let-values(((s_786)" "(cdr" " s_105)))" -"(let-values(((s_786)" +"(let-values(((s_787)" "(if(syntax?$1" -" s_785)" -"(syntax-e$1" -" s_785)" -" s_785)))" -"(if(pair?" " s_786)" +"(syntax-e$1" +" s_786)" +" s_786)))" +"(if(pair?" +" s_787)" "(let-values(((mod-path61_0)" "(let-values(((s_221)" "(car" -" s_786)))" +" s_787)))" " s_221))" "((id62_0)" "(let-values(((s_222)" "(cdr" -" s_786)))" +" s_787)))" "(let-values(((s_325)" "(if(syntax?$1" " s_222)" @@ -69441,7 +69492,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_70))" "(let-values()" -"(let-values(((id_126)" +"(let-values(((id_127)" "(let-values(((lst_406)" " flat-s_51))" "(begin" @@ -69452,59 +69503,59 @@ static const char *startup_source = "(check-list" " lst_406)))" "((letrec-values(((for-loop_317)" -"(lambda(id_127" +"(lambda(id_128" " lst_407)" "(begin" " 'for-loop" "(if(pair?" " lst_407)" -"(let-values(((s_787)" +"(let-values(((s_788)" "(unsafe-car" " lst_407))" "((rest_239)" "(unsafe-cdr" " lst_407)))" -"(let-values(((id_128)" "(let-values(((id_129)" -" id_127))" "(let-values(((id_130)" +" id_128))" +"(let-values(((id_131)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_787)" +" s_788)" "(symbol?" "(syntax-e$1" -" s_787))" +" s_788))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_397" +" or-part_397" "(symbol?" -" s_787)))" -" s_787" +" s_788)))" +" s_788" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_787)))))" +" s_788)))))" "(cons" " id63_0" -" id_129)))))" -"(values" " id_130)))))" +"(values" +" id_131)))))" "(if(not" " #f)" "(for-loop_317" -" id_128" +" id_129" " rest_239)" -" id_128)))" -" id_127)))))" +" id_129)))" +" id_128)))))" " for-loop_317)" " null" " lst_406)))))" "(reverse$1" -" id_126)))))))))" +" id_127)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -69535,7 +69586,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_102)" +" ctx_106)" "(values" " null" "(list" @@ -69559,31 +69610,31 @@ static const char *startup_source = "(let-values(((orig-s_71)" " s_114))" "(let-values(((all-defined64_1)" -"(let-values(((s_788)" +"(let-values(((s_789)" "(if(syntax?$1" " s_114)" "(syntax-e$1" " s_114)" " s_114)))" "(if(pair?" -" s_788)" +" s_789)" "(let-values(((all-defined65_0)" -"(let-values(((s_436)" +"(let-values(((s_438)" "(car" -" s_788)))" -" s_436))" +" s_789)))" +" s_438))" "(()" "(let-values(((s_226)" "(cdr" -" s_788)))" -"(let-values(((s_789)" +" s_789)))" +"(let-values(((s_790)" "(if(syntax?$1" " s_226)" "(syntax-e$1" " s_226)" " s_226)))" "(if(null?" -" s_789)" +" s_790)" "(values)" "(raise-syntax-error$1" " #f" @@ -69628,32 +69679,32 @@ static const char *startup_source = " s_228))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_790)" +"(let-values(((s_791)" "(if(syntax?$1" " s_228)" "(syntax-e$1" " s_228)" " s_228)))" "(if(pair?" -" s_790)" +" s_791)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_791)" -"(car" -" s_790)))" -" s_791))" -"((id69_0)" "(let-values(((s_792)" +"(car" +" s_791)))" +" s_792))" +"((id69_0)" +"(let-values(((s_793)" "(cdr" -" s_790)))" -"(let-values(((s_462)" +" s_791)))" +"(let-values(((s_464)" "(if(syntax?$1" -" s_792)" +" s_793)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_793)" +" s_793)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_462)))" +" s_464)))" "(if(not" " flat-s_52)" "(let-values()" @@ -69662,7 +69713,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72))" "(let-values()" -"(let-values(((id_131)" +"(let-values(((id_132)" "(let-values(((lst_39)" " flat-s_52))" "(begin" @@ -69673,59 +69724,59 @@ static const char *startup_source = "(check-list" " lst_39)))" "((letrec-values(((for-loop_133)" -"(lambda(id_132" +"(lambda(id_133" " lst_408)" "(begin" " 'for-loop" "(if(pair?" " lst_408)" -"(let-values(((s_463)" +"(let-values(((s_465)" "(unsafe-car" " lst_408))" "((rest_240)" "(unsafe-cdr" " lst_408)))" -"(let-values(((id_133)" "(let-values(((id_134)" -" id_132))" "(let-values(((id_135)" +" id_133))" +"(let-values(((id_136)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_289)" +"(if(let-values(((or-part_286)" "(if(syntax?$1" -" s_463)" +" s_465)" "(symbol?" "(syntax-e$1" -" s_463))" +" s_465))" " #f)))" -"(if or-part_289" -" or-part_289" +"(if or-part_286" +" or-part_286" "(symbol?" -" s_463)))" -" s_463" +" s_465)))" +" s_465" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_463)))))" +" s_465)))))" "(cons" " id70_0" -" id_134)))))" -"(values" " id_135)))))" +"(values" +" id_136)))))" "(if(not" " #f)" "(for-loop_133" -" id_133" +" id_134" " rest_240)" -" id_133)))" -" id_132)))))" +" id_134)))" +" id_133)))))" " for-loop_133)" " null" " lst_39)))))" "(reverse$1" -" id_131)))))))))" +" id_132)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -69799,15 +69850,15 @@ static const char *startup_source = "(let-values(((s_332)" "(car" " s_236)))" -"(if(let-values(((or-part_291)" +"(if(let-values(((or-part_288)" "(if(syntax?$1" " s_332)" "(symbol?" "(syntax-e$1" " s_332))" " #f)))" -"(if or-part_291" -" or-part_291" +"(if or-part_288" +" or-part_288" "(symbol?" " s_332)))" " s_332" @@ -69879,65 +69930,65 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_793)" +"(let-values(((s_794)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_793))" +" s_794))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_794)" +"(let-values(((s_795)" "(if(syntax?$1" -" s_793)" -"(syntax-e$1" -" s_793)" -" s_793)))" -"(if(pair?" " s_794)" -"(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_534)" -"(car" +"(syntax-e$1" +" s_794)" " s_794)))" -" s_534))" +"(if(pair?" +" s_795)" +"(let-values(((prefix-all-defined-except79_0)" +"(let-values(((s_536)" +"(car" +" s_795)))" +" s_536))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_795)" +"(let-values(((s_796)" "(cdr" -" s_794)))" +" s_795)))" "(let-values(((s_243)" "(if(syntax?$1" -" s_795)" +" s_796)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_796)" +" s_796)))" "(if(pair?" " s_243)" "(let-values(((id:prefix82_0)" -"(let-values(((s_535)" +"(let-values(((s_537)" "(car" " s_243)))" -"(if(let-values(((or-part_345)" +"(if(let-values(((or-part_343)" "(if(syntax?$1" -" s_535)" +" s_537)" "(symbol?" "(syntax-e$1" -" s_535))" +" s_537))" " #f)))" -"(if or-part_345" -" or-part_345" +"(if or-part_343" +" or-part_343" "(symbol?" -" s_535)))" -" s_535" +" s_537)))" +" s_537" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_535))))" +" s_537))))" "((id83_0)" "(let-values(((s_349)" "(cdr" " s_243)))" -"(let-values(((s_796)" +"(let-values(((s_797)" "(if(syntax?$1" " s_349)" "(syntax-e$1" @@ -69945,7 +69996,7 @@ static const char *startup_source = " s_349)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_796)))" +" s_797)))" "(if(not" " flat-s_53)" "(let-values()" @@ -69954,7 +70005,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74))" "(let-values()" -"(let-values(((id_86)" +"(let-values(((id_87)" "(let-values(((lst_409)" " flat-s_53))" "(begin" @@ -69971,53 +70022,53 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_410)" -"(let-values(((s_797)" +"(let-values(((s_798)" "(unsafe-car" " lst_410))" "((rest_241)" "(unsafe-cdr" " lst_410)))" -"(let-values(((id_136)" "(let-values(((id_137)" -" id_36))" "(let-values(((id_138)" +" id_36))" +"(let-values(((id_139)" "(let-values()" "(let-values(((id84_3)" "(let-values()" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_797)" +" s_798)" "(symbol?" "(syntax-e$1" -" s_797))" +" s_798))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_797)))" -" s_797" +" s_798)))" +" s_798" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_797)))))" +" s_798)))))" "(cons" " id84_3" -" id_137)))))" -"(values" " id_138)))))" +"(values" +" id_139)))))" "(if(not" " #f)" "(for-loop_318" -" id_136" +" id_137" " rest_241)" -" id_136)))" +" id_137)))" " id_36)))))" " for-loop_318)" " null" " lst_409)))))" "(reverse$1" -" id_86)))))))))" +" id_87)))))))))" "(values" " id:prefix82_0" " id83_0))" @@ -70059,44 +70110,44 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_798)" +"(let-values(((s_799)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_798))" +" s_799))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_799)" +"(let-values(((s_800)" "(if(syntax?$1" -" s_798)" -"(syntax-e$1" -" s_798)" -" s_798)))" -"(if(pair?" " s_799)" +"(syntax-e$1" +" s_799)" +" s_799)))" +"(if(pair?" +" s_800)" "(let-values(((expand88_0)" "(let-values(((s_368)" "(car" -" s_799)))" +" s_800)))" " s_368))" "((id89_2" " datum90_0)" "(let-values(((s_369)" "(cdr" -" s_799)))" -"(let-values(((s_800)" +" s_800)))" +"(let-values(((s_801)" "(if(syntax?$1" " s_369)" "(syntax-e$1" " s_369)" " s_369)))" "(if(pair?" -" s_800)" +" s_801)" "(let-values(((id91_0" " datum92_0)" "(let-values(((s_371)" "(car" -" s_800)))" +" s_801)))" "(let-values(((s_372)" "(if(syntax?$1" " s_371)" @@ -70109,15 +70160,15 @@ static const char *startup_source = "(let-values(((s_374)" "(car" " s_372)))" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" " s_374)" "(symbol?" "(syntax-e$1" " s_374))" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_399" +" or-part_399" "(symbol?" " s_374)))" " s_374" @@ -70127,10 +70178,10 @@ static const char *startup_source = " orig-s_75" " s_374))))" "((datum94_0)" -"(let-values(((s_546)" +"(let-values(((s_547)" "(cdr" " s_372)))" -" s_546)))" +" s_547)))" "(values" " id93_2" " datum94_0))" @@ -70139,17 +70190,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75)))))" "(()" -"(let-values(((s_547)" +"(let-values(((s_548)" "(cdr" -" s_800)))" -"(let-values(((s_801)" +" s_801)))" +"(let-values(((s_802)" "(if(syntax?$1" -" s_547)" +" s_548)" "(syntax-e$1" -" s_547)" -" s_547)))" +" s_548)" +" s_548)))" "(if(null?" -" s_801)" +" s_802)" "(values)" "(raise-syntax-error$1" " #f" @@ -70178,18 +70229,18 @@ static const char *startup_source = "(let-values(((ok?_76" " expand95_0" " form96_0)" -"(let-values(((s_802)" +"(let-values(((s_803)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_802))" +" s_803))" "(let-values(((expand95_1" " form96_1)" "(let-values(((s_377)" "(if(syntax?$1" -" s_802)" +" s_803)" "(syntax-e$1" -" s_802)" -" s_802)))" +" s_803)" +" s_803)))" "(if(pair?" " s_377)" "(let-values(((expand97_0)" @@ -70253,19 +70304,19 @@ static const char *startup_source = " form96_0)" "((temp105_5)" "(let-values(((v_266)" -" ctx_102))" -"(let-values(((the-struct_99)" +" ctx_106))" +"(let-values(((the-struct_98)" " v_266))" "(if(expand-context/outer?" -" the-struct_99)" +" the-struct_98)" "(let-values(((def-ctx-scopes106_0)" " #f)" "((inner107_0)" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_99)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_100)" +" the-struct_99)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70275,95 +70326,97 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-module-scopes" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-defined-syms" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-counter" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-lift-key" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-to-parsed?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-phase" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-namespace" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-just-once?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-module-begin-k" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-allow-unbound?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-in-local-expand?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-keep-#%expression?" -" the-struct_100)" +" the-struct_99)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-lift-envs" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-module-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-require-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-to-module-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-requires+provides" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-observer" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-for-serializable?" -" the-struct_100)" +" the-struct_99)" "(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" -" inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_99)" -"(root-expand-context/outer-post-expansion-shifts" -" 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)" -" def-ctx-scopes106_0" -"(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/inner?\"" +" the-struct_99)))))" +"(expand-context/outer1.1" +" inner107_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_98)" +"(root-expand-context/outer-post-expansion-shifts" +" 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)" +" def-ctx-scopes106_0" +"(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-current-use-scopes" +" the-struct_98)" +"(expand-context/outer-name" +" the-struct_98)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_99))))))" +" the-struct_98))))))" "(expand9.1" " #f" " #f" @@ -70397,18 +70450,18 @@ static const char *startup_source = "(let-values(((ok?_77" " begin100_0" " spec101_0)" -"(let-values(((s_803)" +"(let-values(((s_804)" " exp-spec_0))" "(let-values(((orig-s_77)" -" s_803))" +" s_804))" "(let-values(((begin100_1" " spec101_1)" "(let-values(((s_266)" "(if(syntax?$1" -" s_803)" +" s_804)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_804)" +" s_804)))" "(if(pair?" " s_266)" "(let-values(((begin102_0)" @@ -70417,15 +70470,15 @@ static const char *startup_source = " s_266)))" " s_267))" "((spec103_0)" -"(let-values(((s_804)" +"(let-values(((s_805)" "(cdr" " s_266)))" "(let-values(((s_268)" "(if(syntax?$1" -" s_804)" +" s_805)" "(syntax-e$1" -" s_804)" -" s_804)))" +" s_805)" +" s_805)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_268)))" @@ -70569,11 +70622,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((id_139)(mk_0 fmt_3)))" +"(let-values(((id_140)(mk_0 fmt_3)))" "(parse-identifier!" -" id_139" +" id_140" " orig-s_79" -"(syntax-e$1 id_139)" +"(syntax-e$1 id_140)" " at-phase_15" " ns_127" " rp_3" @@ -70634,7 +70687,7 @@ static const char *startup_source = "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_103)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_107)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -70644,7 +70697,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_54)(module-path->mpi/context mod-path_33 ctx_103)))" +"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_107)))" "(parse-all-from-module mpi_54 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" @@ -70696,29 +70749,29 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((id_140)" +"(let-values(((id_141)" "(required-id i_184)))" -"(let-values(((phase_142)" +"(let-values(((phase_143)" "(required-phase" " i_184)))" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_400)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_142" +" phase_143" " at-phase_17)" "(free-identifier=?$1" -" id_140" +" id_141" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_140))" -" phase_142" -" phase_142)" +" id_141))" +" phase_143" +" phase_143)" " #f))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_400" +" or-part_400" "(let-values(((lst_417)" " except-ids_1))" "(begin" @@ -70747,10 +70800,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_140" +" id_141" " except-id_0" -" phase_142" -" phase_142)" +" phase_143" +" phase_143)" "(hash-set!" " found_0" " except-id_0" @@ -70777,14 +70830,14 @@ static const char *startup_source = "(let-values()" "(let-values(((b_95)" "(resolve+shift/extra-inspector" -" id_140" -" phase_142" +" id_141" +" phase_143" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_140)" +" id_141)" "((phase131_0)" -" phase_142)" +" phase_143)" "((temp132_2)" " #t))" "(resolve+shift28.1" @@ -70800,15 +70853,15 @@ static const char *startup_source = "((temp122_1)" "(add-prefix_1" "(syntax-e$1" -" id_140)))" +" id_141)))" "((phase123_0)" -" phase_142)" +" phase_143)" "((b124_0)" " b_95)" "((immed-b125_0)" " immed-b_1)" "((id126_1)" -" id_140)" +" id_141)" "((orig-s127_0)" " orig-s_81)" "((protected?128_0)" @@ -70855,13 +70908,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_401)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_401" +" or-part_401" "(let-values(((lst_421)" " requireds_2))" "(begin" @@ -70889,17 +70942,17 @@ static const char *startup_source = "(let-values(((result_131)" "(let-values()" "(let-values()" -"(let-values(((id_141)" +"(let-values(((id_142)" "(required-id" " i_185)))" -"(let-values(((phase_143)" +"(let-values(((phase_144)" "(required-phase" " i_185)))" "(free-identifier=?$1" -" id_141" +" id_142" " except-id_1" -" phase_143" -" phase_143)))))))" +" phase_144" +" phase_144)))))))" "(values" " result_131)))))" "(if(if(not" @@ -70978,11 +71031,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_46))" " p_46))" -"(if(let-values(((or-part_216)" +"(if(let-values(((or-part_214)" "(parsed-#%declare?" " p_46)))" -"(if or-part_216" -" or-part_216" +"(if or-part_214" +" or-part_214" "(let-values(((or-part_3)" "(parsed-module?" " p_46)))" @@ -71157,9 +71210,9 @@ static const char *startup_source = "(if(let-values(((or-part_83)(not normal-b_1)))" "(if or-part_83" " or-part_83" -"(let-values(((or-part_311)(parsed-top-id? id_4)))" -"(if or-part_311" -" or-part_311" +"(let-values(((or-part_308)(parsed-top-id? id_4)))" +"(if or-part_308" +" or-part_308" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71212,8 +71265,8 @@ static const char *startup_source = " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))" -"(if(let-values(((or-part_404)(parsed-quote-syntax? e_92)))" -"(if or-part_404 or-part_404(parsed-#%variable-reference? e_92)))" +"(if(let-values(((or-part_402)(parsed-quote-syntax? e_92)))" +"(if or-part_402 or-part_402(parsed-#%variable-reference? e_92)))" "(let-values()(disallow e_92))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71260,16 +71313,16 @@ static const char *startup_source = "(if(let-values(((or-part_158)(number? d_38)))" "(if or-part_158" " or-part_158" -"(let-values(((or-part_163)(boolean? d_38)))" -"(if or-part_163" -" or-part_163" +"(let-values(((or-part_161)(boolean? d_38)))" +"(if or-part_161" +" or-part_161" "(let-values(((or-part_21)(symbol? d_38)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_164)(string? d_38)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_258)(bytes? d_38)))(if or-part_258 or-part_258(null? d_38)))))))))))" +"(let-values(((or-part_162)(string? d_38)))" +"(if or-part_162" +" or-part_162" +"(let-values(((or-part_256)(bytes? d_38)))(if or-part_256 or-part_256(null? d_38)))))))))))" "(let-values()(void))" "(let-values()(disallow e_12))))))" "(define-values" @@ -71277,11 +71330,11 @@ static const char *startup_source = "(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_142)" +"(lambda(id_143)" "(begin" -"(if(parsed-id? id_142)" +"(if(parsed-id? id_143)" "(let-values()" -"(let-values(((b_87)(parsed-id-binding id_142)))" +"(let-values(((b_87)(parsed-id-binding id_143)))" "(if(module-binding? b_87)" "(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_87)))" "(module-binding-sym b_87)" @@ -71299,102 +71352,103 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_104)" +"(lambda(s_43 ctx_108)" "(begin" -"(if(eq?(expand-context-context ctx_104) 'top-level)" +"(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_104)))" +"(let-values(((obs_124)(expand-context-observer ctx_108)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 '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_104)((temp225_2) #f))" +"(let-values(((s223_0) s_43)((ctx224_0) ctx_108)((temp225_2) #f))" "(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_0 ctx224_0 temp225_2)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_307 ctx_105)" +"(lambda(s_307 ctx_109)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_105)))" +"(let-values(((obs_125)(expand-context-observer ctx_109)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_307)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_91 ctx_106)" +"(lambda(s_91 ctx_110)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_106)))" +"(let-values(((obs_126)(expand-context-observer ctx_110)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_106) 'module-begin)" +"(if(eq?(expand-context-context ctx_110) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_91)))" -"(if(expand-context-module-begin-k ctx_106)" +"(if(expand-context-module-begin-k ctx_110)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" -"((expand-context-module-begin-k ctx_106)" +"((expand-context-module-begin-k ctx_110)" " s_91" -"(let-values(((v_267) ctx_106))" -"(let-values(((the-struct_101) v_267))" -"(if(expand-context/outer? the-struct_101)" +"(let-values(((v_267) ctx_110))" +"(let-values(((the-struct_100) v_267))" +"(if(expand-context/outer? the-struct_100)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_267)))" -"(if(expand-context/inner? the-struct_102)" +"(let-values(((the-struct_101)(root-expand-context/outer-inner v_267)))" +"(if(expand-context/inner? the-struct_101)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_102)" -"(root-expand-context/inner-module-scopes the-struct_102)" -"(root-expand-context/inner-top-level-bind-scope the-struct_102)" -"(root-expand-context/inner-all-scopes-stx the-struct_102)" -"(root-expand-context/inner-defined-syms the-struct_102)" -"(root-expand-context/inner-counter the-struct_102)" -"(root-expand-context/inner-lift-key the-struct_102)" -"(expand-context/inner-to-parsed? the-struct_102)" -"(expand-context/inner-phase the-struct_102)" -"(expand-context/inner-namespace the-struct_102)" -"(expand-context/inner-just-once? the-struct_102)" +"(root-expand-context/inner-self-mpi the-struct_101)" +"(root-expand-context/inner-module-scopes the-struct_101)" +"(root-expand-context/inner-top-level-bind-scope the-struct_101)" +"(root-expand-context/inner-all-scopes-stx the-struct_101)" +"(root-expand-context/inner-defined-syms the-struct_101)" +"(root-expand-context/inner-counter the-struct_101)" +"(root-expand-context/inner-lift-key the-struct_101)" +"(expand-context/inner-to-parsed? the-struct_101)" +"(expand-context/inner-phase the-struct_101)" +"(expand-context/inner-namespace the-struct_101)" +"(expand-context/inner-just-once? the-struct_101)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_102)" -"(expand-context/inner-in-local-expand? the-struct_102)" -"(expand-context/inner-keep-#%expression? the-struct_102)" -"(expand-context/inner-stops the-struct_102)" -"(expand-context/inner-declared-submodule-names the-struct_102)" -"(expand-context/inner-lifts the-struct_102)" -"(expand-context/inner-lift-envs the-struct_102)" -"(expand-context/inner-module-lifts the-struct_102)" -"(expand-context/inner-require-lifts the-struct_102)" -"(expand-context/inner-to-module-lifts the-struct_102)" -"(expand-context/inner-requires+provides the-struct_102)" -"(expand-context/inner-observer the-struct_102)" -"(expand-context/inner-for-serializable? the-struct_102)" -"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" +"(expand-context/inner-allow-unbound? the-struct_101)" +"(expand-context/inner-in-local-expand? the-struct_101)" +"(expand-context/inner-keep-#%expression? the-struct_101)" +"(expand-context/inner-stops the-struct_101)" +"(expand-context/inner-declared-submodule-names the-struct_101)" +"(expand-context/inner-lifts the-struct_101)" +"(expand-context/inner-lift-envs the-struct_101)" +"(expand-context/inner-module-lifts the-struct_101)" +"(expand-context/inner-require-lifts the-struct_101)" +"(expand-context/inner-to-module-lifts the-struct_101)" +"(expand-context/inner-requires+provides the-struct_101)" +"(expand-context/inner-observer the-struct_101)" +"(expand-context/inner-for-serializable? the-struct_101)" +"(expand-context/inner-should-not-encounter-macros? the-struct_101)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_101)" -"(root-expand-context/outer-post-expansion-shifts the-struct_101)" -"(root-expand-context/outer-use-site-scopes the-struct_101)" -"(root-expand-context/outer-frame-id the-struct_101)" -"(expand-context/outer-context the-struct_101)" -"(expand-context/outer-env the-struct_101)" -"(expand-context/outer-post-expansion-scope-action the-struct_101)" -"(expand-context/outer-scopes the-struct_101)" -"(expand-context/outer-def-ctx-scopes the-struct_101)" -"(expand-context/outer-binding-layer the-struct_101)" -"(expand-context/outer-reference-records the-struct_101)" -"(expand-context/outer-only-immediate? the-struct_101)" -"(expand-context/outer-need-eventually-defined the-struct_101)" -"(expand-context/outer-current-introduction-scopes the-struct_101)" -"(expand-context/outer-name the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_100)" +"(root-expand-context/outer-post-expansion-shifts the-struct_100)" +"(root-expand-context/outer-use-site-scopes the-struct_100)" +"(root-expand-context/outer-frame-id the-struct_100)" +"(expand-context/outer-context the-struct_100)" +"(expand-context/outer-env the-struct_100)" +"(expand-context/outer-post-expansion-scope-action the-struct_100)" +"(expand-context/outer-scopes the-struct_100)" +"(expand-context/outer-def-ctx-scopes the-struct_100)" +"(expand-context/outer-binding-layer the-struct_100)" +"(expand-context/outer-reference-records the-struct_100)" +"(expand-context/outer-only-immediate? the-struct_100)" +"(expand-context/outer-need-eventually-defined the-struct_100)" +"(expand-context/outer-current-introduction-scopes the-struct_100)" +"(expand-context/outer-current-use-scopes the-struct_100)" +"(expand-context/outer-name the-struct_100)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_805 ctx_107)" +"(lambda(s_806 ctx_111)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_107)))" +"(let-values(((obs_127)(expand-context-observer ctx_111)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_805)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_806)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71409,7 +71463,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_806) s15_2))" +"(let-values(((s_807) s15_2))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" @@ -71431,7 +71485,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_128 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_806)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_807)))" "(let-values(((ok?_78 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_51) disarmed-s_24))" "(let-values(((orig-s_82) s_51))" @@ -71439,18 +71493,18 @@ static const char *startup_source = " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_506)" +"(let-values(((s_508)" "(if(syntax?$1 s_51)" "(syntax-e$1 s_51)" " s_51)))" -"(if(pair? s_506)" +"(if(pair? s_508)" "(let-values(((module232_0)" -"(let-values(((s_54)(car s_506)))" +"(let-values(((s_54)(car s_508)))" " s_54))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_311)(cdr s_506)))" +"(let-values(((s_311)(cdr s_508)))" "(let-values(((s_93)" "(if(syntax?$1 s_311)" "(syntax-e$1 s_311)" @@ -71482,24 +71536,24 @@ static const char *startup_source = "(let-values(((s_55)" "(cdr" " s_93)))" -"(let-values(((s_451)" +"(let-values(((s_453)" "(if(syntax?$1" " s_55)" "(syntax-e$1" " s_55)" " s_55)))" "(if(pair?" -" s_451)" +" s_453)" "(let-values(((initial-require239_0)" "(let-values(((s_56)" "(car" -" s_451)))" +" s_453)))" " s_56))" "((body240_0)" "(let-values(((s_33)" "(cdr" -" s_451)))" -"(let-values(((s_508)" +" s_453)))" +"(let-values(((s_510)" "(if(syntax?$1" " s_33)" "(syntax-e$1" @@ -71507,7 +71561,7 @@ static const char *startup_source = " s_33)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_508)))" +" s_510)))" "(if(not" " flat-s_55)" "(let-values()" @@ -71546,7 +71600,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_806)" +"((s254_0) s_807)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))" @@ -71562,10 +71616,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_806" +" s_807" " initial-require230_0)))" "(values))))" -"(let-values(((phase_144) 0))" +"(let-values(((phase_145) 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)))" @@ -71672,119 +71726,121 @@ static const char *startup_source = "(make-m-ns244_0" " unsafe-undefined" " temp266_0))))" -"(let-values(((ctx_108)" -"(let-values(((v_261)" +"(let-values(((ctx_112)" +"(let-values(((v_260)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_93)" -" v_261))" +"(let-values(((the-struct_91)" +" v_260))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_91)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_54)" +"(let-values(((the-struct_53)" "(root-expand-context/outer-inner" -" v_261)))" +" v_260)))" "(if(expand-context/inner?" -" the-struct_54)" +" the-struct_53)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_144)" +" phase_145)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_54)" +" the-struct_53)" "(root-expand-context/inner-module-scopes" -" the-struct_54)" +" the-struct_53)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_54)" +" the-struct_53)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_54)" +" the-struct_53)" "(root-expand-context/inner-defined-syms" -" the-struct_54)" +" the-struct_53)" "(root-expand-context/inner-counter" -" the-struct_54)" +" the-struct_53)" "(root-expand-context/inner-lift-key" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-to-parsed?" -" the-struct_54)" +" the-struct_53)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_54)" +" the-struct_53)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-keep-#%expression?" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-stops" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-declared-submodule-names" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-lifts" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-lift-envs" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-module-lifts" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-require-lifts" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-to-module-lifts" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-requires+provides" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-observer" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-for-serializable?" -" the-struct_54)" +" the-struct_53)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_54)))" +" the-struct_53)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_54)))))" +" the-struct_53)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_91)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_91)" +"(expand-context/outer-current-use-scopes" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_91))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -71794,68 +71850,68 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_524)" +"(let-values(((s_526)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_524))" +" s_526))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" "(let-values(((s_211)" "(if(syntax?$1" -" s_524)" +" s_526)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_526)" +" s_526)))" "(if(pair?" " s_211)" "(let-values(((_277_2)" -"(let-values(((s_527)" +"(let-values(((s_529)" "(car" " s_211)))" -" s_527))" +" s_529))" "((_278_0" " _279_1" " body280_0)" -"(let-values(((s_528)" +"(let-values(((s_530)" "(cdr" " s_211)))" "(let-values(((s_97)" "(if(syntax?$1" -" s_528)" +" s_530)" "(syntax-e$1" -" s_528)" -" s_528)))" +" s_530)" +" s_530)))" "(if(pair?" " s_97)" "(let-values(((_281_0)" -"(let-values(((s_459)" +"(let-values(((s_461)" "(car" " s_97)))" -" s_459))" +" s_461))" "((_282_1" " body283_0)" -"(let-values(((s_807)" +"(let-values(((s_808)" "(cdr" " s_97)))" -"(let-values(((s_808)" +"(let-values(((s_809)" "(if(syntax?$1" -" s_807)" -"(syntax-e$1" -" s_807)" -" s_807)))" -"(if(pair?" " s_808)" +"(syntax-e$1" +" s_808)" +" s_808)))" +"(if(pair?" +" s_809)" "(let-values(((_284_0)" "(let-values(((s_416)" "(car" -" s_808)))" +" s_809)))" " s_416))" "((body285_0)" "(let-values(((s_39)" "(cdr" -" s_808)))" +" s_809)))" "(let-values(((s_98)" "(if(syntax?$1" " s_39)" @@ -72035,22 +72091,22 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_109)" +"(let-values(((ctx_113)" "(let-values(((v_268)" " mb-init-ctx_0))" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_102)" " v_268))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_102)" "(let-values(((inner306_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_103)" "(root-expand-context/outer-inner" " v_268)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_103)" "(let-values(((module-begin-k307_0)" -"(lambda(s_435" -" ctx_110)" +"(lambda(s_437" +" ctx_4)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -72091,8 +72147,8 @@ static const char *startup_source = " defined-syms315_0)))" "(lambda()" "(module-begin-k_1" -" s_435" -" ctx_110))" +" s_437" +" ctx_4))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -72105,96 +72161,98 @@ static const char *startup_source = " defined-syms311_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-phase" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-namespace" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-just-once?" -" the-struct_104)" +" the-struct_103)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-keep-#%expression?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-stops" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-to-module-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_104)))))" -"(expand-context/outer1.1" -" inner306_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_103)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_103)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_103)" -"(root-expand-context/outer-frame-id" -" the-struct_103)" -"(expand-context/outer-context" -" the-struct_103)" -"(expand-context/outer-env" -" the-struct_103)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" -"(expand-context/outer-scopes" -" the-struct_103)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_103)" -"(expand-context/outer-binding-layer" -" the-struct_103)" -"(expand-context/outer-reference-records" -" the-struct_103)" -"(expand-context/outer-only-immediate?" -" the-struct_103)" -"(expand-context/outer-need-eventually-defined" -" the-struct_103)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_103)" -"(expand-context/outer-name" " the-struct_103)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_103)))))" +"(expand-context/outer1.1" +" inner306_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_102)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_102)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_102)" +"(root-expand-context/outer-frame-id" +" the-struct_102)" +"(expand-context/outer-context" +" the-struct_102)" +"(expand-context/outer-env" +" the-struct_102)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_102)" +"(expand-context/outer-scopes" +" the-struct_102)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_102)" +"(expand-context/outer-binding-layer" +" the-struct_102)" +"(expand-context/outer-reference-records" +" the-struct_102)" +"(expand-context/outer-only-immediate?" +" the-struct_102)" +"(expand-context/outer-need-eventually-defined" +" the-struct_102)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_102)" +"(expand-context/outer-current-use-scopes" +" the-struct_102)" +"(expand-context/outer-name" +" the-struct_102)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_102))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -72203,7 +72261,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_20)" "(expand-context-observer" -" ctx_109)))" +" ctx_113)))" "(if obs_20" "(let-values()" "(let-values()" @@ -72219,25 +72277,25 @@ static const char *startup_source = "(let-values(((ok?_80" " #%module-begin301_0" " body302_0)" -"(let-values(((s_789)" +"(let-values(((s_790)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_789))" +" s_790))" "(let-values(((#%module-begin301_1" " body302_1)" "(let-values(((s_119)" "(if(syntax?$1" -" s_789)" +" s_790)" "(syntax-e$1" -" s_789)" -" s_789)))" +" s_790)" +" s_790)))" "(if(pair?" " s_119)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_809)" +"(let-values(((s_810)" "(car" " s_119)))" -" s_809))" +" s_810))" "((body304_0)" "(let-values(((s_121)" "(cdr" @@ -72275,7 +72333,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx318_0)" -" ctx_109)" +" ctx_113)" "((mb-s319_0)" " mb-s_0))" "(keep-as-needed119.1" @@ -72295,7 +72353,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_145)" +" phase_146)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72303,14 +72361,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_109)))" +" ctx_113)))" "(let-values(((partial-body-ctx_0)" "(let-values(((v_269)" -" ctx_109))" -"(let-values(((the-struct_105)" +" ctx_113))" +"(let-values(((the-struct_104)" " v_269))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_104)" "(let-values(((context328_0)" " 'module)" "((def-ctx-scopes329_0)" @@ -72318,22 +72376,22 @@ static const char *startup_source = "((need-eventually-defined330_0)" " need-eventually-defined_1)" "((inner331_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_105)" "(let-values(((phase332_0)" -" phase_145)" +" phase_146)" "((namespace333_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_145))" +" phase_146))" "((stops334_0)" "(free-id-set" -" phase_145" +" phase_146" "(module-expand-stop-ids" -" phase_145)))" +" phase_146)))" "((declared-submodule-names335_0)" " declared-submodule-names_3)" "((lift-key336_0)" @@ -72352,11 +72410,11 @@ static const char *startup_source = " temp341_0)))" "((module-lifts338_0)" "(make-module-lift-context" -" phase_145" +" phase_146" " #t))" "((require-lifts339_0)" "(make-require-lift-context" -" phase_145" +" phase_146" "(let-values(((m-ns342_0)" " m-ns_19)" "((self343_0)" @@ -72372,7 +72430,7 @@ static const char *startup_source = " requires+provides344_0))))" "((to-module-lifts340_0)" "(let-values(((phase346_0)" -" phase_145)" +" phase_146)" "((module-ends347_0)" " module-ends_0)" "((temp348_0)" @@ -72383,90 +72441,92 @@ static const char *startup_source = " phase346_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_105)" " lift-key336_0" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_105)" " phase332_0" " namespace333_0" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-keep-#%expression?" -" the-struct_106)" +" the-struct_105)" " stops334_0" " declared-submodule-names335_0" " lifts337_0" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_105)" " module-lifts338_0" " require-lifts339_0" " to-module-lifts340_0" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_106)))))" -"(expand-context/outer1.1" -" inner331_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_105)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_105)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_105)" -"(root-expand-context/outer-frame-id" -" the-struct_105)" -" context328_0" -"(expand-context/outer-env" -" the-struct_105)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" -"(expand-context/outer-scopes" -" the-struct_105)" -" def-ctx-scopes329_0" -"(expand-context/outer-binding-layer" -" the-struct_105)" -"(expand-context/outer-reference-records" -" the-struct_105)" -"(expand-context/outer-only-immediate?" -" the-struct_105)" -" need-eventually-defined330_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_105)" -"(expand-context/outer-name" " the-struct_105)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_105)))))" +"(expand-context/outer1.1" +" inner331_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_104)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_104)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_104)" +"(root-expand-context/outer-frame-id" +" the-struct_104)" +" context328_0" +"(expand-context/outer-env" +" the-struct_104)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_104)" +"(expand-context/outer-scopes" +" the-struct_104)" +" def-ctx-scopes329_0" +"(expand-context/outer-binding-layer" +" the-struct_104)" +"(expand-context/outer-reference-records" +" the-struct_104)" +"(expand-context/outer-only-immediate?" +" the-struct_104)" +" need-eventually-defined330_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_104)" +"(expand-context/outer-current-use-scopes" +" the-struct_104)" +"(expand-context/outer-name" +" the-struct_104)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_104))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys349_0)" " bodys_17)" "((phase350_0)" -" phase_145)" +" phase_146)" "((partial-body-ctx351_0)" " partial-body-ctx_0)" "((m-ns352_0)" @@ -72530,25 +72590,25 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_94)" +"(let-values(((the-struct_93)" " v_262))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_93)" "(let-values(((def-ctx-scopes365_0)" " #f)" "((post-expansion-scope366_0)" " #f)" "((inner367_0)" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_262)))" "(if(expand-context/inner?" -" the-struct_107)" +" the-struct_106)" "(let-values(((stops368_0)" " empty-free-id-set)" "((to-module-lifts369_0)" "(let-values(((phase370_0)" -" phase_145)" +" phase_146)" "((module-ends371_0)" " module-ends_0)" "((temp372_0)" @@ -72559,97 +72619,99 @@ static const char *startup_source = " phase370_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-namespace" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-just-once?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-keep-#%expression?" -" the-struct_107)" +" the-struct_106)" " stops368_0" "(expand-context/inner-declared-submodule-names" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_107)" +" the-struct_106)" " to-module-lifts369_0" "(expand-context/inner-requires+provides" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_107)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_107)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner367_0" " post-expansion-scope366_0" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_94)" +" the-struct_93)" " def-ctx-scopes365_0" "(expand-context/outer-binding-layer" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-reference-records" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_93)" +"(expand-context/outer-current-use-scopes" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_94)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_93))))))" "(let-values(((partially-expanded-bodys320_0)" " partially-expanded-bodys_0)" "((phase321_0)" -" phase_145)" +" phase_146)" "((body-ctx322_0)" " body-ctx_6)" "((self323_0)" @@ -72673,20 +72735,20 @@ static const char *startup_source = " partially-expanded-bodys320_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_144)))" +" phase_145)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_109" +" ctx_113" " requires+provides_6)" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_131)" "(expand-context-observer" -" ctx_109)))" +" ctx_113)))" "(if obs_131" "(let-values()" "(let-values()" @@ -72705,11 +72767,11 @@ static const char *startup_source = "((m-ns376_0)" " m-ns_19)" "((phase377_0)" -" phase_144)" +" phase_145)" "((self378_0)" " self_32)" "((ctx379_0)" -" ctx_109))" +" ctx_113))" "(resolve-provides115.1" " ctx379_0" " declared-submodule-names375_0" @@ -72748,7 +72810,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_132)" "(expand-context-observer" -" ctx_109)))" +" ctx_113)))" "(if obs_132" "(let-values()" "(let-values()" @@ -72767,113 +72829,115 @@ static const char *startup_source = " m-ns380_0))))" "(let-values(((submod-ctx_0)" "(let-values(((v_270)" -" ctx_109))" -"(let-values(((the-struct_108)" +" ctx_113))" +"(let-values(((the-struct_107)" " v_270))" "(if(expand-context/outer?" -" the-struct_108)" +" the-struct_107)" "(let-values(((frame-id382_0)" " #f)" "((post-expansion-scope383_0)" " #f)" "((inner384_0)" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_109)" +" the-struct_108)" "(let-values(((namespace385_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_109)" +" the-struct_108)" " namespace385_0" "(expand-context/inner-just-once?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-keep-#%expression?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-stops" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-to-module-lifts" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner384_0" " post-expansion-scope383_0" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/outer-use-site-scopes" -" the-struct_108)" +" the-struct_107)" " frame-id382_0" "(expand-context/outer-context" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_108)" +" the-struct_107)" +"(expand-context/outer-current-use-scopes" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_108)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_108))))))" +" the-struct_107))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -72924,7 +72988,7 @@ static const char *startup_source = "((declare-enclosing-module398_0)" " declare-enclosing-module_0)" "((phase399_0)" -" phase_144)" +" phase_145)" "((self400_0)" " self_32)" "((requires+provides401_0)" @@ -72990,7 +73054,7 @@ static const char *startup_source = " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" "(let-values(((v_271)" -" ctx_108))" +" ctx_112))" "(let-values(((the-struct_24)" " v_271))" "(if(expand-context/outer?" @@ -72998,11 +73062,11 @@ static const char *startup_source = "(let-values(((context411_0)" " 'module-begin)" "((inner412_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_109)" "(let-values(((module-begin-k413_0)" " module-begin-k_1)" "((in-local-expand?414_0)" @@ -73017,55 +73081,55 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_109)" " module-begin-k413_0" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_109)" " in-local-expand?414_0" "(expand-context/inner-keep-#%expression?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_109)" " lifts415_0" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_109)" " module-lifts416_0" " require-lifts418_0" " to-module-lifts417_0" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_109)))))" "(expand-context/outer1.1" " inner412_0" "(root-expand-context/outer-post-expansion-scope" @@ -73095,6 +73159,8 @@ static const char *startup_source = " the-struct_24)" "(expand-context/outer-current-introduction-scopes" " the-struct_24)" +"(expand-context/outer-current-use-scopes" +" the-struct_24)" "(expand-context/outer-name" " the-struct_24)))" "(raise-argument-error" @@ -73123,9 +73189,9 @@ static const char *startup_source = "((mb-def-ctx-scopes424_0)" " mb-def-ctx-scopes_0)" "((phase425_0)" -" phase_144)" +" phase_145)" "((s426_0)" -" s_806))" +" s_807))" "(ensure-module-begin36.1" " mb-ctx423_0" " mb-def-ctx-scopes424_0" @@ -73144,10 +73210,10 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_110)" " v_272))" "(if(expand-context/outer?" -" the-struct_111)" +" the-struct_110)" "(let-values(((def-ctx-scopes429_0)" " #f)" "((inner430_0)" @@ -73156,38 +73222,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner430_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-context" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-env" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_111)" +" the-struct_110)" " def-ctx-scopes429_0" "(expand-context/outer-binding-layer" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-need-eventually-defined" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-current-introduction-scopes" -" the-struct_111)" +" the-struct_110)" +"(expand-context/outer-current-use-scopes" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_111)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))" +" the-struct_110))))))" "(expand9.1" " #f" " #f" @@ -73201,11 +73269,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_403)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_405" -" or-part_405" +"(if or-part_403" +" or-part_403" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73357,48 +73425,49 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_111) ctx24_0))" +"(let-values(((ctx_33) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_146) phase26_3))" +"(let-values(((phase_147) phase26_3))" "(let-values(((s_383) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_273) ctx_111))" -"(let-values(((the-struct_112) v_273))" -"(if(expand-context/outer? the-struct_112)" +"(let-values(((v_273) ctx_33))" +"(let-values(((the-struct_111) v_273))" +"(if(expand-context/outer? the-struct_111)" "(let-values(((context436_0) 'module-begin)" "((only-immediate?437_0) #t)" "((def-ctx-scopes438_0) def-ctx-scopes_9)" "((inner439_0)(root-expand-context/outer-inner v_273)))" "(expand-context/outer1.1" " inner439_0" -"(root-expand-context/outer-post-expansion-scope the-struct_112)" -"(root-expand-context/outer-post-expansion-shifts the-struct_112)" -"(root-expand-context/outer-use-site-scopes the-struct_112)" -"(root-expand-context/outer-frame-id the-struct_112)" +"(root-expand-context/outer-post-expansion-scope the-struct_111)" +"(root-expand-context/outer-post-expansion-shifts the-struct_111)" +"(root-expand-context/outer-use-site-scopes the-struct_111)" +"(root-expand-context/outer-frame-id the-struct_111)" " context436_0" -"(expand-context/outer-env the-struct_112)" -"(expand-context/outer-post-expansion-scope-action the-struct_112)" -"(expand-context/outer-scopes the-struct_112)" +"(expand-context/outer-env the-struct_111)" +"(expand-context/outer-post-expansion-scope-action the-struct_111)" +"(expand-context/outer-scopes the-struct_111)" " def-ctx-scopes438_0" -"(expand-context/outer-binding-layer the-struct_112)" -"(expand-context/outer-reference-records the-struct_112)" +"(expand-context/outer-binding-layer the-struct_111)" +"(expand-context/outer-reference-records the-struct_111)" " only-immediate?437_0" -"(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)))" +"(expand-context/outer-need-eventually-defined the-struct_111)" +"(expand-context/outer-current-introduction-scopes the-struct_111)" +"(expand-context/outer-current-use-scopes the-struct_111)" +"(expand-context/outer-name the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112))))))))" +" the-struct_111))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_134)(expand-context-observer ctx_111)))" +"(let-values(((obs_134)(expand-context-observer ctx_33)))" "(if obs_134" "(let-values()" "(let-values()" @@ -73406,7 +73475,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_146))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_147))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -73421,13 +73490,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_146))" +" phase_147))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp442_0)(list partly-expanded-body_0))" "((s443_0) s_383)" "((scopes-s444_0) scopes-s_0)" -"((phase445_0) phase_146)" +"((phase445_0) phase_147)" "((module-name-sym446_0) module-name-sym_1)" "((temp447_0)(make-mb-ctx_0))" "((temp448_1) #f))" @@ -73443,7 +73512,7 @@ static const char *startup_source = "(let-values(((bodys449_0) bodys_18)" "((s450_0) s_383)" "((scopes-s451_0) scopes-s_0)" -"((phase452_0) phase_146)" +"((phase452_0) phase_147)" "((module-name-sym453_0) module-name-sym_1)" "((temp454_1)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -73461,9 +73530,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_810) s42_0))" +"(let-values(((s_811) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_147) phase44_0))" +"(let-values(((phase_148) phase44_0))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0) log-rename-one?39_0))" @@ -73472,17 +73541,17 @@ 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-id455_0) mb-id_0)((phase456_0) phase_147))" +"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_148))" "(resolve40.1 #f #f null #f mb-id455_0 phase456_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_810)))" +" s_811)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_810 s_810)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_811 s_811)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -73512,13 +73581,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_147))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_148))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_810" +" s_811" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73534,13 +73603,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_811)" +"(lambda(s_812)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_811" +" s_812" "(remove-use-site-scopes" -"(remove-scopes s_811(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_812(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)))" @@ -73726,38 +73795,38 @@ static const char *startup_source = "(let-values(((ok?_81" " begin468_0" " e469_0)" -"(let-values(((s_812)" +"(let-values(((s_813)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_812))" +" s_813))" "(let-values(((begin468_1" " e469_1)" -"(let-values(((s_813)" -"(if(syntax?$1" -" s_812)" -"(syntax-e$1" -" s_812)" -" s_812)))" -"(if(pair?" -" s_813)" -"(let-values(((begin470_0)" "(let-values(((s_814)" -"(car" -" s_813)))" -" s_814))" -"((e471_0)" -"(let-values(((s_422)" -"(cdr" -" s_813)))" -"(let-values(((s_815)" "(if(syntax?$1" -" s_422)" +" s_813)" "(syntax-e$1" -" s_422)" -" s_422)))" +" s_813)" +" s_813)))" +"(if(pair?" +" s_814)" +"(let-values(((begin470_0)" +"(let-values(((s_815)" +"(car" +" s_814)))" +" s_815))" +"((e471_0)" +"(let-values(((s_816)" +"(cdr" +" s_814)))" +"(let-values(((s_423)" +"(if(syntax?$1" +" s_816)" +"(syntax-e$1" +" s_816)" +" s_816)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_815)))" +" s_423)))" "(if(not" " flat-s_58)" "(let-values()" @@ -73857,38 +73926,38 @@ static const char *startup_source = "(let-values(((ok?_82" " begin-for-syntax472_0" " e473_0)" -"(let-values(((s_816)" +"(let-values(((s_817)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_816))" +" s_817))" "(let-values(((begin-for-syntax472_1" " e473_1)" -"(let-values(((s_817)" -"(if(syntax?$1" -" s_816)" -"(syntax-e$1" -" s_816)" -" s_816)))" -"(if(pair?" -" s_817)" -"(let-values(((begin-for-syntax474_0)" "(let-values(((s_818)" -"(car" -" s_817)))" -" s_818))" -"((e475_0)" -"(let-values(((s_819)" -"(cdr" -" s_817)))" -"(let-values(((s_820)" "(if(syntax?$1" -" s_819)" +" s_817)" "(syntax-e$1" -" s_819)" -" s_819)))" +" s_817)" +" s_817)))" +"(if(pair?" +" s_818)" +"(let-values(((begin-for-syntax474_0)" +"(let-values(((s_819)" +"(car" +" s_818)))" +" s_819))" +"((e475_0)" +"(let-values(((s_820)" +"(cdr" +" s_818)))" +"(let-values(((s_821)" +"(if(syntax?$1" +" s_820)" +"(syntax-e$1" +" s_820)" +" s_820)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_820)))" +" s_821)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74034,52 +74103,52 @@ static const char *startup_source = " define-values476_0" " id477_0" " rhs478_0)" -"(let-values(((s_821)" +"(let-values(((s_822)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_821))" +" s_822))" "(let-values(((define-values476_1" " id477_1" " rhs478_1)" -"(let-values(((s_822)" -"(if(syntax?$1" -" s_821)" -"(syntax-e$1" -" s_821)" -" s_821)))" -"(if(pair?" -" s_822)" -"(let-values(((define-values479_0)" "(let-values(((s_823)" -"(car" +"(if(syntax?$1" +" s_822)" +"(syntax-e$1" +" s_822)" " s_822)))" -" s_823))" +"(if(pair?" +" s_823)" +"(let-values(((define-values479_0)" +"(let-values(((s_824)" +"(car" +" s_823)))" +" s_824))" "((id480_0" " rhs481_0)" -"(let-values(((s_824)" -"(cdr" -" s_822)))" "(let-values(((s_825)" -"(if(syntax?$1" -" s_824)" -"(syntax-e$1" -" s_824)" -" s_824)))" -"(if(pair?" -" s_825)" -"(let-values(((id482_0)" +"(cdr" +" s_823)))" "(let-values(((s_826)" -"(car" -" s_825)))" -"(let-values(((s_827)" "(if(syntax?$1" -" s_826)" +" s_825)" "(syntax-e$1" +" s_825)" +" s_825)))" +"(if(pair?" " s_826)" +"(let-values(((id482_0)" +"(let-values(((s_827)" +"(car" " s_826)))" +"(let-values(((s_828)" +"(if(syntax?$1" +" s_827)" +"(syntax-e$1" +" s_827)" +" s_827)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_827)))" +" s_828)))" "(if(not" " flat-s_60)" "(let-values()" @@ -74088,7 +74157,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_143)" +"(let-values(((id_144)" "(let-values(((lst_70)" " flat-s_60))" "(begin" @@ -74099,88 +74168,88 @@ static const char *startup_source = "(check-list" " lst_70)))" "((letrec-values(((for-loop_330)" -"(lambda(id_144" +"(lambda(id_145" " lst_428)" "(begin" " 'for-loop" "(if(pair?" " lst_428)" -"(let-values(((s_828)" +"(let-values(((s_829)" "(unsafe-car" " lst_428))" "((rest_252)" "(unsafe-cdr" " lst_428)))" -"(let-values(((id_145)" "(let-values(((id_146)" -" id_144))" "(let-values(((id_147)" +" id_145))" +"(let-values(((id_148)" "(let-values()" "(let-values(((id495_0)" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_404)" "(if(syntax?$1" -" s_828)" +" s_829)" "(symbol?" "(syntax-e$1" -" s_828))" +" s_829))" " #f)))" -"(if or-part_406" -" or-part_406" +"(if or-part_404" +" or-part_404" "(symbol?" -" s_828)))" -" s_828" +" s_829)))" +" s_829" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_828)))))" +" s_829)))))" "(cons" " id495_0" -" id_146)))))" -"(values" " id_147)))))" +"(values" +" id_148)))))" "(if(not" " #f)" "(for-loop_330" -" id_145" +" id_146" " rest_252)" -" id_145)))" -" id_144)))))" +" id_146)))" +" id_145)))))" " for-loop_330)" " null" " lst_70)))))" "(reverse$1" -" id_143))))))))" +" id_144))))))))" "((rhs483_0)" -"(let-values(((s_829)" -"(cdr" -" s_825)))" "(let-values(((s_830)" -"(if(syntax?$1" -" s_829)" -"(syntax-e$1" -" s_829)" -" s_829)))" -"(if(pair?" -" s_830)" -"(let-values(((rhs484_0)" -"(let-values(((s_831)" -"(car" -" s_830)))" -" s_831))" -"(()" -"(let-values(((s_832)" "(cdr" -" s_830)))" -"(let-values(((s_833)" +" s_826)))" +"(let-values(((s_831)" "(if(syntax?$1" -" s_832)" +" s_830)" "(syntax-e$1" -" s_832)" -" s_832)))" -"(if(null?" +" s_830)" +" s_830)))" +"(if(pair?" +" s_831)" +"(let-values(((rhs484_0)" +"(let-values(((s_832)" +"(car" +" s_831)))" +" s_832))" +"(()" +"(let-values(((s_833)" +"(cdr" +" s_831)))" +"(let-values(((s_834)" +"(if(syntax?$1" " s_833)" +"(syntax-e$1" +" s_833)" +" s_833)))" +"(if(null?" +" s_834)" "(values)" "(raise-syntax-error$1" " #f" @@ -74212,14 +74281,14 @@ static const char *startup_source = " define-values476_1" " id477_1" " rhs478_1))))))" -"(let-values(((ids_44)" +"(let-values(((ids_45)" "(remove-use-site-scopes" " id477_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids485_0)" -" ids_44)" +" ids_45)" "((phase486_0)" " phase_51)" "((exp-body487_0)" @@ -74234,7 +74303,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ids488_0)" -" ids_44)" +" ids_45)" "((phase489_0)" " phase_51)" "((requires+provides490_0)" @@ -74249,7 +74318,7 @@ static const char *startup_source = "(values))))" "(let-values(((syms_23)" "(let-values(((ids496_0)" -" ids_44)" +" ids_45)" "((defined-syms497_0)" " defined-syms_12)" "((self498_0)" @@ -74342,7 +74411,7 @@ static const char *startup_source = " #f" "(list" " define-values476_0" -" ids_44" +" ids_45" " rhs478_0)" " exp-body_7))))" "(void)))" @@ -74350,7 +74419,7 @@ static const char *startup_source = "(semi-parsed-define-values2.1" " exp-body_7" " syms_23" -" ids_44" +" ids_45" " rhs478_0)" "(loop_125" " tail?_53" @@ -74402,52 +74471,52 @@ static const char *startup_source = " define-syntaxes504_0" " id505_0" " rhs506_0)" -"(let-values(((s_834)" +"(let-values(((s_835)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_834))" +" s_835))" "(let-values(((define-syntaxes504_1" " id505_1" " rhs506_1)" -"(let-values(((s_835)" -"(if(syntax?$1" -" s_834)" -"(syntax-e$1" -" s_834)" -" s_834)))" -"(if(pair?" -" s_835)" -"(let-values(((define-syntaxes507_0)" "(let-values(((s_836)" -"(car" +"(if(syntax?$1" +" s_835)" +"(syntax-e$1" +" s_835)" " s_835)))" -" s_836))" +"(if(pair?" +" s_836)" +"(let-values(((define-syntaxes507_0)" +"(let-values(((s_837)" +"(car" +" s_836)))" +" s_837))" "((id508_0" " rhs509_0)" -"(let-values(((s_837)" -"(cdr" -" s_835)))" "(let-values(((s_838)" -"(if(syntax?$1" -" s_837)" -"(syntax-e$1" -" s_837)" -" s_837)))" -"(if(pair?" -" s_838)" -"(let-values(((id510_0)" +"(cdr" +" s_836)))" "(let-values(((s_839)" -"(car" -" s_838)))" -"(let-values(((s_840)" "(if(syntax?$1" -" s_839)" +" s_838)" "(syntax-e$1" +" s_838)" +" s_838)))" +"(if(pair?" " s_839)" +"(let-values(((id510_0)" +"(let-values(((s_840)" +"(car" " s_839)))" +"(let-values(((s_841)" +"(if(syntax?$1" +" s_840)" +"(syntax-e$1" +" s_840)" +" s_840)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_840)))" +" s_841)))" "(if(not" " flat-s_61)" "(let-values()" @@ -74456,7 +74525,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_148)" +"(let-values(((id_149)" "(let-values(((lst_431)" " flat-s_61))" "(begin" @@ -74467,88 +74536,88 @@ static const char *startup_source = "(check-list" " lst_431)))" "((letrec-values(((for-loop_332)" -"(lambda(id_149" +"(lambda(id_150" " lst_432)" "(begin" " 'for-loop" "(if(pair?" " lst_432)" -"(let-values(((s_569)" +"(let-values(((s_570)" "(unsafe-car" " lst_432))" "((rest_254)" "(unsafe-cdr" " lst_432)))" -"(let-values(((id_150)" "(let-values(((id_151)" -" id_149))" "(let-values(((id_152)" +" id_150))" +"(let-values(((id_153)" "(let-values()" "(let-values(((id524_0)" "(let-values()" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_405)" "(if(syntax?$1" -" s_569)" +" s_570)" "(symbol?" "(syntax-e$1" -" s_569))" +" s_570))" " #f)))" -"(if or-part_407" -" or-part_407" +"(if or-part_405" +" or-part_405" "(symbol?" -" s_569)))" -" s_569" +" s_570)))" +" s_570" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_569)))))" +" s_570)))))" "(cons" " id524_0" -" id_151)))))" -"(values" " id_152)))))" +"(values" +" id_153)))))" "(if(not" " #f)" "(for-loop_332" -" id_150" +" id_151" " rest_254)" -" id_150)))" -" id_149)))))" +" id_151)))" +" id_150)))))" " for-loop_332)" " null" " lst_431)))))" "(reverse$1" -" id_148))))))))" +" id_149))))))))" "((rhs511_0)" -"(let-values(((s_841)" -"(cdr" -" s_838)))" "(let-values(((s_842)" -"(if(syntax?$1" -" s_841)" -"(syntax-e$1" -" s_841)" -" s_841)))" -"(if(pair?" -" s_842)" -"(let-values(((rhs512_0)" -"(let-values(((s_843)" -"(car" -" s_842)))" -" s_843))" -"(()" -"(let-values(((s_844)" "(cdr" -" s_842)))" -"(let-values(((s_845)" +" s_839)))" +"(let-values(((s_843)" "(if(syntax?$1" -" s_844)" +" s_842)" "(syntax-e$1" -" s_844)" -" s_844)))" -"(if(null?" +" s_842)" +" s_842)))" +"(if(pair?" +" s_843)" +"(let-values(((rhs512_0)" +"(let-values(((s_844)" +"(car" +" s_843)))" +" s_844))" +"(()" +"(let-values(((s_845)" +"(cdr" +" s_843)))" +"(let-values(((s_846)" +"(if(syntax?$1" " s_845)" +"(syntax-e$1" +" s_845)" +" s_845)))" +"(if(null?" +" s_846)" "(values)" "(raise-syntax-error$1" " #f" @@ -74580,14 +74649,14 @@ static const char *startup_source = " define-syntaxes504_1" " id505_1" " rhs506_1))))))" -"(let-values(((ids_45)" +"(let-values(((ids_46)" "(remove-use-site-scopes" " id505_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids513_0)" -" ids_45)" +" ids_46)" "((phase514_0)" " phase_51)" "((exp-body515_0)" @@ -74602,7 +74671,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ids516_0)" -" ids_45)" +" ids_46)" "((phase517_0)" " phase_51)" "((requires+provides518_0)" @@ -74617,7 +74686,7 @@ static const char *startup_source = "(values))))" "(let-values(((syms_24)" "(let-values(((ids525_0)" -" ids_45)" +" ids_46)" "((defined-syms526_0)" " defined-syms_12)" "((self527_0)" @@ -74669,22 +74738,22 @@ static const char *startup_source = "((temp535_0)" " rhs506_0)" "((ids536_0)" -" ids_45)" +" ids_46)" "((temp537_0)" "(let-values(((v_274)" " partial-body-ctx_1))" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_112)" " v_274))" "(if(expand-context/outer?" -" the-struct_113)" +" the-struct_112)" "(let-values(((need-eventually-defined539_0)" " need-eventually-defined_2)" "((inner540_0)" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" " v_274)))" "(if(expand-context/inner?" -" the-struct_114)" +" the-struct_113)" "(let-values(((lifts541_0)" " #f)" "((module-lifts542_0)" @@ -74693,93 +74762,95 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-phase" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-namespace" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-module-begin-k" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-in-local-expand?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-keep-#%expression?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-stops" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-declared-submodule-names" -" the-struct_114)" +" the-struct_113)" " lifts541_0" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_113)" " module-lifts542_0" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_113)" " to-module-lifts543_0" "(expand-context/inner-requires+provides" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_114)))))" -"(expand-context/outer1.1" -" inner540_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_113)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_113)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_113)" -"(root-expand-context/outer-frame-id" -" the-struct_113)" -"(expand-context/outer-context" -" the-struct_113)" -"(expand-context/outer-env" -" the-struct_113)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" -"(expand-context/outer-scopes" -" the-struct_113)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_113)" -"(expand-context/outer-binding-layer" -" the-struct_113)" -"(expand-context/outer-reference-records" -" the-struct_113)" -"(expand-context/outer-only-immediate?" -" the-struct_113)" -" need-eventually-defined539_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_113)" -"(expand-context/outer-name" " the-struct_113)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_113)))))" +"(expand-context/outer1.1" +" inner540_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_112)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_112)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_112)" +"(root-expand-context/outer-frame-id" +" the-struct_112)" +"(expand-context/outer-context" +" the-struct_112)" +"(expand-context/outer-env" +" the-struct_112)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_112)" +"(expand-context/outer-scopes" +" the-struct_112)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_112)" +"(expand-context/outer-binding-layer" +" the-struct_112)" +"(expand-context/outer-reference-records" +" the-struct_112)" +"(expand-context/outer-only-immediate?" +" the-struct_112)" +" need-eventually-defined539_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_112)" +"(expand-context/outer-current-use-scopes" +" the-struct_112)" +"(expand-context/outer-name" +" the-struct_112)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_112)))))" "((temp538_0)" " #f))" "(expand+eval-for-syntaxes-binding108.1" @@ -74795,7 +74866,7 @@ static const char *startup_source = "((lst_434)" " vals_10)" "((lst_435)" -" ids_45))" +" ids_46))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -74841,7 +74912,7 @@ static const char *startup_source = "((rest_256)" "(unsafe-cdr" " lst_437))" -"((id_153)" +"((id_154)" "(unsafe-car" " lst_438))" "((rest_257)" @@ -74856,7 +74927,7 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_86" -" id_153" +" id_154" " phase_51" " partial-body-ctx_1)" "(namespace-set-transformer!" @@ -74895,7 +74966,7 @@ static const char *startup_source = " #f" "(list" " define-syntaxes504_0" -" ids_45" +" ids_46" " exp-rhs_6)))))" "(void)))" "(values))))" @@ -74903,7 +74974,7 @@ static const char *startup_source = "(parsed-define-syntaxes20.1" "(keep-properties-only" " exp-body_7)" -" ids_45" +" ids_46" " syms_24" " parsed-rhs_2)))" "(cons" @@ -74916,7 +74987,7 @@ static const char *startup_source = "((temp545_0)" "(list" " define-syntaxes504_0" -" ids_45" +" ids_46" " exp-rhs_6)))" "(rebuild5.1" " #t" @@ -74955,38 +75026,38 @@ static const char *startup_source = "(let-values(((ok?_85" " #%require546_0" " req547_0)" -"(let-values(((s_846)" +"(let-values(((s_847)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_846))" +" s_847))" "(let-values(((#%require546_1" " req547_1)" -"(let-values(((s_847)" -"(if(syntax?$1" -" s_846)" -"(syntax-e$1" -" s_846)" -" s_846)))" -"(if(pair?" -" s_847)" -"(let-values(((#%require548_0)" "(let-values(((s_848)" -"(car" -" s_847)))" -" s_848))" -"((req549_0)" -"(let-values(((s_849)" -"(cdr" -" s_847)))" -"(let-values(((s_850)" "(if(syntax?$1" -" s_849)" +" s_847)" "(syntax-e$1" -" s_849)" -" s_849)))" +" s_847)" +" s_847)))" +"(if(pair?" +" s_848)" +"(let-values(((#%require548_0)" +"(let-values(((s_849)" +"(car" +" s_848)))" +" s_849))" +"((req549_0)" +"(let-values(((s_850)" +"(cdr" +" s_848)))" +"(let-values(((s_851)" +"(if(syntax?$1" +" s_850)" +"(syntax-e$1" +" s_850)" +" s_850)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_850)))" +" s_851)))" "(if(not" " flat-s_62)" "(let-values()" @@ -75146,30 +75217,30 @@ static const char *startup_source = "(let-values(((ok?_86" " #%declare567_0" " kw568_0)" -"(let-values(((s_851)" +"(let-values(((s_852)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_851))" +" s_852))" "(let-values(((#%declare567_1" " kw568_1)" -"(let-values(((s_852)" +"(let-values(((s_853)" "(if(syntax?$1" -" s_851)" -"(syntax-e$1" -" s_851)" -" s_851)))" -"(if(pair?" " s_852)" +"(syntax-e$1" +" s_852)" +" s_852)))" +"(if(pair?" +" s_853)" "(let-values(((#%declare569_0)" "(let-values(((s_276)" "(car" -" s_852)))" +" s_853)))" " s_276))" "((kw570_0)" "(let-values(((s_277)" "(cdr" -" s_852)))" -"(let-values(((s_853)" +" s_853)))" +"(let-values(((s_854)" "(if(syntax?$1" " s_277)" "(syntax-e$1" @@ -75177,7 +75248,7 @@ static const char *startup_source = " s_277)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_853)))" +" s_854)))" "(if(not" " flat-s_63)" "(let-values()" @@ -75323,10 +75394,10 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_46 rhs_23 phase_148)" +"(lambda(ids_47 rhs_23 phase_149)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_441) ids_46))" +"(let-values(((lst_441) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -75336,7 +75407,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_442)" -"(let-values(((id_154)(unsafe-car lst_442))" +"(let-values(((id_155)(unsafe-car lst_442))" "((rest_259)(unsafe-cdr lst_442)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379) fold-var_377))" @@ -75345,7 +75416,7 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_154" +" id_155" " inside-scope_2))" " fold-var_379))))" "(values fold-var_380)))))" @@ -75358,7 +75429,7 @@ static const char *startup_source = "(let-values(((scoped-ids571_0) scoped-ids_0)" "((defined-syms572_0) defined-syms_13)" "((self573_0) self_35)" -"((phase574_0) phase_148)" +"((phase574_0) phase_149)" "((all-scopes-stx575_0) all-scopes-stx_6)" "((frame-id576_0) frame-id_18)" "((requires+provides577_0) requires+provides_8))" @@ -75378,16 +75449,16 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_149) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" "(values scoped-ids_0(semi-parsed-define-values2.1 s_295 syms_25 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_112)" +"(lambda(bodys_23 ctx_114)" "(begin" -"(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_112)))" +"(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_114)))" "(if sc_41" "(reverse$1" "(let-values(((lst_443) bodys_23))" @@ -75426,7 +75497,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_149) phase84_0))" +"(let-values(((phase_150) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -75440,7 +75511,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_149)) #f)" +"(if(if tail?_54(not(zero? phase_150)) #f)" "(let-values()" "(begin" "(let-values(((obs_154)(expand-context-observer body-ctx_7)))" @@ -75494,110 +75565,110 @@ static const char *startup_source = "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_408)" +"(if(let-values(((or-part_406)" "(parsed? body_22)))" -"(if or-part_408" -" or-part_408" -"(let-values(((or-part_409)" +"(if or-part_406" +" or-part_406" +"(let-values(((or-part_407)" "(expanded+parsed? body_22)))" -"(if or-part_409" -" or-part_409" +"(if or-part_407" +" or-part_407" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" "(if(semi-parsed-define-values? body_22)" "(let-values()" -"(let-values(((ids_47)" +"(let-values(((ids_48)" "(semi-parsed-define-values-ids" " body_22)))" "(let-values(((rhs-ctx_2)" "(as-named-context" "(as-expression-context" " body-ctx_7)" -" ids_47)))" +" ids_48)))" "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_854)" +"(let-values(((s_855)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" " define-values578_0" " _579_0" " _580_0)" -"(let-values(((s_855)" +"(let-values(((s_856)" "(syntax-disarm$1" -" s_854)))" +" s_855)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_855))" +" s_856))" "(let-values(((define-values578_1" " _579_1" " _580_1)" -"(let-values(((s_856)" -"(if(syntax?$1" -" s_855)" -"(syntax-e$1" -" s_855)" -" s_855)))" -"(if(pair?" -" s_856)" -"(let-values(((define-values581_0)" "(let-values(((s_857)" -"(car" +"(if(syntax?$1" +" s_856)" +"(syntax-e$1" +" s_856)" " s_856)))" -" s_857))" +"(if(pair?" +" s_857)" +"(let-values(((define-values581_0)" +"(let-values(((s_858)" +"(car" +" s_857)))" +" s_858))" "((_582_0" " _583_0)" -"(let-values(((s_858)" -"(cdr" -" s_856)))" "(let-values(((s_859)" -"(if(syntax?$1" -" s_858)" -"(syntax-e$1" -" s_858)" -" s_858)))" -"(if(pair?" -" s_859)" -"(let-values(((_584_0)" +"(cdr" +" s_857)))" "(let-values(((s_860)" -"(car" -" s_859)))" -" s_860))" -"((_585_0)" -"(let-values(((s_861)" -"(cdr" -" s_859)))" -"(let-values(((s_862)" "(if(syntax?$1" -" s_861)" +" s_859)" "(syntax-e$1" -" s_861)" -" s_861)))" +" s_859)" +" s_859)))" "(if(pair?" -" s_862)" -"(let-values(((_586_0)" -"(let-values(((s_863)" +" s_860)" +"(let-values(((_584_0)" +"(let-values(((s_861)" "(car" -" s_862)))" -" s_863))" -"(()" -"(let-values(((s_864)" +" s_860)))" +" s_861))" +"((_585_0)" +"(let-values(((s_862)" "(cdr" -" s_862)))" -"(let-values(((s_865)" +" s_860)))" +"(let-values(((s_863)" "(if(syntax?$1" -" s_864)" +" s_862)" "(syntax-e$1" -" s_864)" -" s_864)))" -"(if(null?" +" s_862)" +" s_862)))" +"(if(pair?" +" s_863)" +"(let-values(((_586_0)" +"(let-values(((s_864)" +"(car" +" s_863)))" +" s_864))" +"(()" +"(let-values(((s_865)" +"(cdr" +" s_863)))" +"(let-values(((s_866)" +"(if(syntax?$1" " s_865)" +"(syntax-e$1" +" s_865)" +" s_865)))" +"(if(null?" +" s_866)" "(values)" "(raise-syntax-error$1" " #f" @@ -75638,7 +75709,7 @@ static const char *startup_source = "(let-values(((rhs-ctx587_0)" " rhs-ctx_2)" "((s588_0)" -" s_854)" +" s_855)" "((temp589_0)" " #t))" "(keep-as-needed119.1" @@ -75676,7 +75747,7 @@ static const char *startup_source = "(let-values(((comp-form_0)" "(parsed-define-values19.1" " rebuild-s_15" -" ids_47" +" ids_48" " syms_26" "(if(expand-context-to-parsed?" " rhs-ctx_2)" @@ -75701,7 +75772,7 @@ static const char *startup_source = "((temp595_0)" "(list" " define-values578_0" -" ids_47" +" ids_48" " exp-rhs_7)))" "(rebuild5.1" " #t" @@ -75714,7 +75785,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_149)))" +" phase_150)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -75792,7 +75863,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules600_0)" " lifted-modules_0)" -"((phase601_0) phase_149)" +"((phase601_0) phase_150)" "((self602_0) self_36)" "((body-ctx603_0)" " body-ctx_7)" @@ -75843,7 +75914,7 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_113 requires+provides_9)" +"(lambda(need-eventually-defined_3 self_37 ctx_115 requires+provides_9)" "(begin" "(begin" "(let-values(((ht_165) need-eventually-defined_3))" @@ -75854,7 +75925,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_186" -"(let-values(((phase_150 l_89)(hash-iterate-key+value ht_165 i_186)))" +"(let-values(((phase_151 l_89)(hash-iterate-key+value ht_165 i_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75874,7 +75945,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_446)" -"(let-values(((id_155)" +"(let-values(((id_156)" "(unsafe-car" " lst_446))" "((rest_261)" @@ -75888,9 +75959,9 @@ static const char *startup_source = "(let-values()" "(let-values(((b_96)" "(let-values(((id608_0)" -" id_155)" +" id_156)" "((phase609_0)" -" phase_150))" +" phase_151))" "(resolve+shift28.1" " #f" " #f" @@ -75907,7 +75978,7 @@ static const char *startup_source = "(module-binding-sym" " b_96)" "(syntax-e$1" -" id_155))" +" id_156))" "(eq?" "(module-binding-module" " b_96)" @@ -75921,7 +75992,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_96)" -" phase_150)" +" phase_151)" " #f)))" "(if(eq?" " bound-kind_0" @@ -75945,20 +76016,20 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_67)" -" phase_150))" +" phase_151))" "(if(equal?" " tmp_67" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_150)))))" -" id_155" +" phase_151)))))" +" id_156" " #f" " null" "(syntax-debug-info-string" -" id_155" -" ctx_113))))))))" +" id_156" +" ctx_115))))))))" "(values)))))" "(values)))))" "(if(not #f)" @@ -75991,50 +76062,50 @@ 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_21) namespace104_0))" -"(let-values(((phase_151) phase105_0))" +"(let-values(((phase_152) phase105_0))" "(let-values(((self_38) self106_0))" -"(let-values(((ctx_114) ctx107_1))" +"(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_152)" +"(lambda(bodys_26 phase_153)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_410)(parsed?(car bodys_26))))" -"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_408)(parsed?(car bodys_26))))" +"(if or-part_408 or-part_408(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_152)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_153)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_152))))" +"(add1 phase_153))))" "(cons" -"(let-values(((the-struct_115)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_115)" +"(let-values(((the-struct_114)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_114)" "(let-values(((body610_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_115)" +"(semi-parsed-begin-for-syntax-s the-struct_114)" " body610_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_115)))" -"(loop_127(cdr bodys_26) phase_152))))" +" the-struct_114)))" +"(loop_127(cdr bodys_26) phase_153))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_152)))" +"(core-form-sym disarmed-body_1 phase_153)))" "(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_159)" "(expand-context-observer" -" ctx_114)))" +" ctx_116)))" "(if obs_159" "(let-values()" "(let-values()" @@ -76049,35 +76120,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_88 #%provide611_0 spec612_0)" -"(let-values(((s_866) disarmed-body_1))" -"(let-values(((orig-s_92) s_866))" +"(let-values(((s_867) disarmed-body_1))" +"(let-values(((orig-s_92) s_867))" "(let-values(((#%provide611_1" " spec612_1)" -"(let-values(((s_867)" -"(if(syntax?$1" -" s_866)" -"(syntax-e$1" -" s_866)" -" s_866)))" -"(if(pair? s_867)" -"(let-values(((#%provide613_0)" "(let-values(((s_868)" -"(car" -" s_867)))" -" s_868))" -"((spec614_0)" -"(let-values(((s_869)" -"(cdr" -" s_867)))" -"(let-values(((s_870)" "(if(syntax?$1" -" s_869)" +" s_867)" "(syntax-e$1" -" s_869)" -" s_869)))" +" s_867)" +" s_867)))" +"(if(pair? s_868)" +"(let-values(((#%provide613_0)" +"(let-values(((s_869)" +"(car" +" s_868)))" +" s_869))" +"((spec614_0)" +"(let-values(((s_870)" +"(cdr" +" s_868)))" +"(let-values(((s_871)" +"(if(syntax?$1" +" s_870)" +"(syntax-e$1" +" s_870)" +" s_870)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_870)))" +" s_871)))" "(if(not" " flat-s_64)" "(let-values()" @@ -76104,121 +76175,123 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_10" " self_38" -" phase_152" -"(let-values(((v_275) ctx_114))" -"(let-values(((the-struct_116)" +" phase_153" +"(let-values(((v_275) ctx_116))" +"(let-values(((the-struct_115)" " v_275))" "(if(expand-context/outer?" -" the-struct_116)" +" the-struct_115)" "(let-values(((context615_0)" " 'top-level)" "((inner616_0)" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" " v_275)))" "(if(expand-context/inner?" -" the-struct_117)" +" the-struct_116)" "(let-values(((phase617_0)" -" phase_152)" +" phase_153)" "((namespace618_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_152))" +" phase_153))" "((requires+provides619_0)" " requires+provides_10)" "((declared-submodule-names620_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_117)" +" the-struct_116)" " phase617_0" " namespace618_0" "(expand-context/inner-just-once?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-keep-#%expression?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-stops" -" the-struct_117)" +" the-struct_116)" " declared-submodule-names620_0" "(expand-context/inner-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-lift-envs" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-require-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-module-lifts" -" the-struct_117)" +" the-struct_116)" " requires+provides619_0" "(expand-context/inner-observer" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_117)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_117)))))" -"(expand-context/outer1.1" -" inner616_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_116)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_116)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_116)" -"(root-expand-context/outer-frame-id" -" the-struct_116)" -" context615_0" -"(expand-context/outer-env" -" the-struct_116)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_116)" -"(expand-context/outer-scopes" -" the-struct_116)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_116)" -"(expand-context/outer-binding-layer" -" the-struct_116)" -"(expand-context/outer-reference-records" -" the-struct_116)" -"(expand-context/outer-only-immediate?" -" the-struct_116)" -"(expand-context/outer-need-eventually-defined" -" the-struct_116)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_116)" -"(expand-context/outer-name" " the-struct_116)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_116)))))" +"(expand-context/outer1.1" +" inner616_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_115)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_115)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_115)" +"(root-expand-context/outer-frame-id" +" the-struct_115)" +" context615_0" +"(expand-context/outer-env" +" the-struct_115)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_115)" +"(expand-context/outer-scopes" +" the-struct_115)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_115)" +"(expand-context/outer-binding-layer" +" the-struct_115)" +"(expand-context/outer-reference-records" +" the-struct_115)" +"(expand-context/outer-only-immediate?" +" the-struct_115)" +"(expand-context/outer-need-eventually-defined" +" the-struct_115)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_115)" +"(expand-context/outer-current-use-scopes" +" the-struct_115)" +"(expand-context/outer-name" +" the-struct_115)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_116)))))))" -"(if(expand-context-to-parsed? ctx_114)" +" the-struct_115)))))))" +"(if(expand-context-to-parsed? ctx_116)" "(let-values()" -"(loop_127(cdr bodys_26) phase_152))" +"(loop_127(cdr bodys_26) phase_153))" "(let-values()" "(let-values(((new-s_11)" "(syntax-track-origin*" @@ -76236,7 +76309,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_160)" "(expand-context-observer" -" ctx_114)))" +" ctx_116)))" "(if obs_160" "(let-values()" "(let-values()" @@ -76249,14 +76322,14 @@ static const char *startup_source = " new-s_11" "(loop_127" "(cdr bodys_26)" -" phase_152))))))))))" +" phase_153))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_152))))))))))))))" +"(loop_127(cdr bodys_26) phase_153))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_151)))))))))))))" +" phase_152)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76280,7 +76353,7 @@ static const char *startup_source = "(let-values(((self_39) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_115) ctx125_0))" +"(let-values(((ctx_117) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -76301,8 +76374,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_411) enclosing-self_3))" -"(if or-part_411 or-part_411 self_39)))))" +"(let-values(((or-part_409) enclosing-self_3))" +"(if or-part_409 or-part_409 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod623_0) parsed-mod_0)" "((temp624_0)" @@ -76320,7 +76393,7 @@ static const char *startup_source = " m-ns628_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp625_0)(expand-context-for-serializable? ctx_115))" +"((temp625_0)(expand-context-for-serializable? ctx_117))" "((modules-being-compiled626_0) modules-being-compiled_6)" "((temp627_0) #f))" "(compile-module13.1" @@ -76354,16 +76427,16 @@ static const char *startup_source = " compiled-module631_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_685 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_686 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_689)" -"(syntax-property$1 s_685 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_871)" +"(let-values(((s_690)" +"(syntax-property$1 s_686 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_872)" "(syntax-property$1" -" s_689" +" s_690" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_871)))))" +" s_872)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76382,7 +76455,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_153) phase143_0))" +"(let-values(((phase_154) phase143_0))" "(let-values(((self_40) 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))" @@ -76394,7 +76467,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_154)" +"(lambda(bodys_27 phase_155)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76408,37 +76481,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_23)))" "(let-values(((ok?_89 begin-for-syntax633_0 _634_0)" -"(let-values(((s_872)" +"(let-values(((s_873)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_872))" +"(let-values(((orig-s_93) s_873))" "(let-values(((begin-for-syntax633_1" " _634_1)" -"(let-values(((s_873)" -"(if(syntax?$1" -" s_872)" -"(syntax-e$1" -" s_872)" -" s_872)))" -"(if(pair? s_873)" -"(let-values(((begin-for-syntax635_0)" "(let-values(((s_874)" -"(car" -" s_873)))" -" s_874))" -"((_636_0)" -"(let-values(((s_875)" -"(cdr" -" s_873)))" -"(let-values(((s_876)" "(if(syntax?$1" -" s_875)" +" s_873)" "(syntax-e$1" -" s_875)" -" s_875)))" +" s_873)" +" s_873)))" +"(if(pair? s_874)" +"(let-values(((begin-for-syntax635_0)" +"(let-values(((s_875)" +"(car" +" s_874)))" +" s_875))" +"((_636_0)" +"(let-values(((s_876)" +"(cdr" +" s_874)))" +"(let-values(((s_877)" +"(if(syntax?$1" +" s_876)" +"(syntax-e$1" +" s_876)" +" s_876)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_876)))" +" s_877)))" "(if(not" " flat-s_65)" "(let-values()" @@ -76474,7 +76547,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_23)" -"(add1 phase_154))))" +"(add1 phase_155))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76496,20 +76569,20 @@ static const char *startup_source = " rebuild-body-s639_0" " temp640_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_154))))))))" -"(if(let-values(((or-part_412)(parsed? body_23)))" -"(if or-part_412" -" or-part_412" +"(loop_128 rest-bodys_3 phase_155))))))))" +"(if(let-values(((or-part_410)(parsed? body_23)))" +"(if or-part_410" +" or-part_410" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_128 rest-bodys_3 phase_154)))" +"(cons body_23(loop_128 rest-bodys_3 phase_155)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_154)))" +" phase_155)))" "(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" @@ -76525,60 +76598,60 @@ static const char *startup_source = " module*641_0" " name642_0" " _643_0)" -"(let-values(((s_877)" +"(let-values(((s_878)" " disarmed-body_2))" -"(if(let-values(((s_878)" -"(if(syntax?$1" -" s_877)" -"(syntax-e$1" -" s_877)" -" s_877)))" -"(if(pair? s_878)" "(if(let-values(((s_879)" +"(if(syntax?$1" +" s_878)" +"(syntax-e$1" +" s_878)" +" s_878)))" +"(if(pair? s_879)" +"(if(let-values(((s_880)" "(car" -" s_878)))" +" s_879)))" " #t)" -"(let-values(((s_880)" -"(cdr" -" s_878)))" "(let-values(((s_881)" -"(if(syntax?$1" -" s_880)" -"(syntax-e$1" -" s_880)" -" s_880)))" -"(if(pair?" -" s_881)" -"(if(let-values(((s_882)" -"(car" -" s_881)))" -" #t)" -"(let-values(((s_883)" "(cdr" +" s_879)))" +"(let-values(((s_882)" +"(if(syntax?$1" +" s_881)" +"(syntax-e$1" +" s_881)" " s_881)))" -"(let-values(((s_884)" -"(if(syntax?$1" -" s_883)" -"(syntax-e$1" -" s_883)" -" s_883)))" "(if(pair?" -" s_884)" -"(if(let-values(((s_885)" +" s_882)" +"(if(let-values(((s_883)" "(car" -" s_884)))" -"(let-values(((s_886)" +" s_882)))" +" #t)" +"(let-values(((s_884)" +"(cdr" +" s_882)))" +"(let-values(((s_885)" "(if(syntax?$1" -" s_885)" +" s_884)" "(syntax-e$1" +" s_884)" +" s_884)))" +"(if(pair?" " s_885)" +"(if(let-values(((s_886)" +"(car" " s_885)))" +"(let-values(((s_887)" +"(if(syntax?$1" +" s_886)" +"(syntax-e$1" +" s_886)" +" s_886)))" "(eq?" " #f" -" s_886)))" -"(let-values(((s_887)" +" s_887)))" +"(let-values(((s_888)" "(cdr" -" s_884)))" +" s_885)))" " #t)" " #f)" " #f)))" @@ -76590,59 +76663,59 @@ static const char *startup_source = "(let-values(((module*641_1" " name642_1" " _643_1)" -"(let-values(((s_888)" -"(if(syntax?$1" -" s_877)" -"(syntax-e$1" -" s_877)" -" s_877)))" -"(let-values(((module*644_0)" "(let-values(((s_889)" +"(if(syntax?$1" +" s_878)" +"(syntax-e$1" +" s_878)" +" s_878)))" +"(let-values(((module*644_0)" +"(let-values(((s_890)" "(car" -" s_888)))" -" s_889))" +" s_889)))" +" s_890))" "((name645_0" " _646_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(((name647_0)" -"(let-values(((s_706)" -"(car" -" s_891)))" -" s_706))" -"((_648_0)" -"(let-values(((s_892)" "(cdr" +" s_889)))" +"(let-values(((s_892)" +"(if(syntax?$1" +" s_891)" +"(syntax-e$1" +" s_891)" " s_891)))" -"(let-values(((s_893)" -"(if(syntax?$1" -" s_892)" -"(syntax-e$1" -" s_892)" -" s_892)))" -"(let-values((()" -"(let-values(((s_894)" -"(car" -" s_893)))" +"(let-values(((name647_0)" "(let-values(((s_707)" +"(car" +" s_892)))" +" s_707))" +"((_648_0)" +"(let-values(((s_893)" +"(cdr" +" s_892)))" +"(let-values(((s_894)" "(if(syntax?$1" -" s_894)" +" s_893)" "(syntax-e$1" -" s_894)" +" s_893)" +" s_893)))" +"(let-values((()" +"(let-values(((s_895)" +"(car" " s_894)))" +"(let-values(((s_708)" +"(if(syntax?$1" +" s_895)" +"(syntax-e$1" +" s_895)" +" s_895)))" "(values))))" "((_649_0)" -"(let-values(((s_895)" +"(let-values(((s_896)" "(cdr" -" s_893)))" -" s_895)))" +" s_894)))" +" s_896)))" "(values" " _649_0))))))" "(values" @@ -76668,7 +76741,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_154)))" +" phase_155)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -76718,27 +76791,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_118)" +"(let-values(((the-struct_117)" " submod_4))" "(if(expanded+parsed?" -" the-struct_118)" +" the-struct_117)" "(let-values(((s662_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_154)))" +" phase_155)))" "(expanded+parsed1.1" " s662_0" "(expanded+parsed-parsed" -" the-struct_118)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_118))))" +" the-struct_117))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_154))))))))" +" phase_155))))))))" "(let-values()" "(let-values(((ready-body663_0)" " ready-body_2)" @@ -76773,36 +76846,36 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_154)))))))" +" phase_155)))))))" "(let-values()" "(cons" " body_23" "(loop_128" " rest-bodys_3" -" phase_154)))))))))))))))))" +" phase_155)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_153)))))))))))))))))" +" phase_154)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_116)" +"(lambda(ctx_118)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_116)" -"(expand-context-phase ctx_116)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_116))))))" +"(expand-context-stops ctx_118)" +"(expand-context-phase ctx_118)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_0 requires+provides172_0)" "(begin" " 'check-ids-unbound173" -"(let-values(((ids_48) ids170_0))" -"(let-values(((phase_155) phase171_0))" +"(let-values(((ids_49) ids170_0))" +"(let-values(((phase_156) phase171_0))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_896) in168_0))" +"(let-values(((s_897) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_447) ids_48))" +"(let-values(((lst_447) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -76812,7 +76885,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_448)" -"(let-values(((id_156)(unsafe-car lst_448))" +"(let-values(((id_157)(unsafe-car lst_448))" "((rest_262)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" @@ -76822,10 +76895,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides671_0)" " requires+provides_13)" -"((id672_0) id_156)" +"((id672_0) id_157)" "((phase673_0)" -" phase_155)" -"((s674_0) s_896)" +" phase_156)" +"((s674_0) s_897)" "((temp675_0) 'module))" "(check-not-defined95.1" " #f" @@ -76847,7 +76920,7 @@ static const char *startup_source = "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_156 m-ns_23 self_41 ctx_117)" +"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_119)" "(begin" "(begin" "(let-values(((lst_449) bodys_28))" @@ -76872,20 +76945,20 @@ static const char *startup_source = " body_24)))" "(if(parsed-define-values? p_88)" "(let-values()" -"(let-values(((ids_49)" +"(let-values(((ids_50)" "(parsed-define-values-ids" " p_88)))" "(let-values(((vals_11)" "(eval-for-bindings" " 'define-values" -" ids_49" +" ids_50" "(parsed-define-values-rhs" " p_88)" -" phase_156" +" phase_157" " m-ns_23" -" ctx_117)))" +" ctx_119)))" "(begin" -"(let-values(((lst_451) ids_49)" +"(let-values(((lst_451) ids_50)" "((lst_452)" "(parsed-define-values-syms" " p_88))" @@ -76920,7 +76993,7 @@ static const char *startup_source = " lst_456)" " #f)" " #f)" -"(let-values(((id_157)" +"(let-values(((id_158)" "(unsafe-car" " lst_454))" "((rest_264)" @@ -76946,7 +77019,7 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_156" +" phase_157" " sym_111" " val_87))" "(values)))))" @@ -76964,19 +77037,19 @@ static const char *startup_source = " lst_452" " lst_453)))" "(void)))))" -"(if(let-values(((or-part_413)" +"(if(let-values(((or-part_411)" "(parsed-define-syntaxes?" " p_88)))" -"(if or-part_413" -" or-part_413" +"(if or-part_411" +" or-part_411" "(semi-parsed-begin-for-syntax?" " p_88)))" "(let-values()(void))" -"(if(let-values(((or-part_414)" +"(if(let-values(((or-part_412)" "(parsed-#%declare?" " p_88)))" -"(if or-part_414" -" or-part_414" +"(if or-part_412" +" or-part_412" "(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" @@ -76987,7 +77060,7 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_117" +" ctx_119" " 1/current-namespace" " m-ns_23)" "(let-values()" @@ -76997,7 +77070,7 @@ static const char *startup_source = "(let-values(((m-ns676_0)" " m-ns_23)" "((phase677_0)" -" phase_156))" +" phase_157))" "(make-compile-context14.1" " #f" " unsafe-undefined" @@ -77029,9 +77102,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_735) s194_0))" +"(let-values(((s_736) s194_0))" "(let-values(((self_42) self195_0))" -"(let-values(((ctx_118) ctx196_0))" +"(let-values(((ctx_120) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2) keep-enclosing-scope-at-phase177_0))" "(let-values(((enclosing-r+p_2) enclosing-requires+provides178_0))" @@ -77047,47 +77120,47 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_161)(expand-context-observer ctx_118)))" +"(let-values(((obs_161)(expand-context-observer ctx_120)))" "(if obs_161" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_735)" +"(call-expand-observe obs_161 'enter-prim s_736)" "(call-expand-observe" " obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_91 module678_0 name679_0 _680_0)" -"(let-values(((s_897) s_735))" -"(let-values(((orig-s_94) s_897))" +"(let-values(((s_898) s_736))" +"(let-values(((orig-s_94) s_898))" "(let-values(((module678_1 name679_1 _680_1)" -"(let-values(((s_898)" -"(if(syntax?$1 s_897)" -"(syntax-e$1 s_897)" -" s_897)))" -"(if(pair? s_898)" +"(let-values(((s_899)" +"(if(syntax?$1 s_898)" +"(syntax-e$1 s_898)" +" s_898)))" +"(if(pair? s_899)" "(let-values(((module681_0)" -"(let-values(((s_899)(car s_898)))" -" s_899))" +"(let-values(((s_900)(car s_899)))" +" s_900))" "((name682_0 _683_0)" -"(let-values(((s_900)(cdr s_898)))" -"(let-values(((s_901)" -"(if(syntax?$1" -" s_900)" -"(syntax-e$1 s_900)" -" s_900)))" -"(if(pair? s_901)" -"(let-values(((name684_0)" +"(let-values(((s_901)(cdr s_899)))" "(let-values(((s_902)" -"(car" +"(if(syntax?$1" +" s_901)" +"(syntax-e$1 s_901)" " s_901)))" -" s_902))" -"((_685_0)" +"(if(pair? s_902)" +"(let-values(((name684_0)" "(let-values(((s_903)" +"(car" +" s_902)))" +" s_903))" +"((_685_0)" +"(let-values(((s_904)" "(cdr" -" s_901)))" -" s_903)))" +" s_902)))" +" s_904)))" "(values name684_0 _685_0))" "(raise-syntax-error$1" " #f" @@ -77107,7 +77180,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_735" +" s_736" " name_82))" "(void))" "(values))))" @@ -77120,120 +77193,122 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_118)))" +"(let-values(((obs_162)(expand-context-observer ctx_120)))" "(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_735)))" +"(call-expand-observe obs_162 'enter-prim s_736)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s686_0) s_735)" +"(let-values(((s686_0) s_736)" "((temp687_0)" -"(let-values(((v_276) ctx_118))" -"(let-values(((the-struct_119) v_276))" -"(if(expand-context/outer? the-struct_119)" +"(let-values(((v_276) ctx_120))" +"(let-values(((the-struct_118) v_276))" +"(if(expand-context/outer? the-struct_118)" "(let-values(((context696_0) 'module)" "((post-expansion-scope697_0)" " #f)" "((inner698_0)" -"(let-values(((the-struct_120)" +"(let-values(((the-struct_119)" "(root-expand-context/outer-inner" " v_276)))" "(if(expand-context/inner?" -" the-struct_120)" +" the-struct_119)" "(let-values(((stops699_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-module-scopes" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-defined-syms" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-counter" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-lift-key" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-to-parsed?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-phase" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-namespace" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-just-once?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-module-begin-k" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-allow-unbound?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-in-local-expand?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-keep-#%expression?" -" the-struct_120)" +" the-struct_119)" " stops699_0" "(expand-context/inner-declared-submodule-names" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-lift-envs" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-module-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-require-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-to-module-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-requires+provides" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-observer" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-for-serializable?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_120)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_120)))))" +" the-struct_119)))))" "(expand-context/outer1.1" " inner698_0" " post-expansion-scope697_0" "(root-expand-context/outer-post-expansion-shifts" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/outer-use-site-scopes" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/outer-frame-id" -" the-struct_119)" +" the-struct_118)" " context696_0" "(expand-context/outer-env" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-scopes" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-def-ctx-scopes" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-binding-layer" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-reference-records" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-only-immediate?" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-need-eventually-defined" -" the-struct_119)" +" the-struct_118)" "(expand-context/outer-current-introduction-scopes" -" the-struct_119)" +" the-struct_118)" +"(expand-context/outer-current-use-scopes" +" the-struct_118)" "(expand-context/outer-name" -" the-struct_119)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_119)))))" +" the-struct_118)))))" "((self688_0) self_42)" "((temp689_0) #t)" "((keep-enclosing-scope-at-phase690_0)" @@ -77260,7 +77335,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_163)" -"(expand-context-observer ctx_118)))" +"(expand-context-observer ctx_120)))" "(if obs_163" "(let-values()" "(let-values()" @@ -77270,7 +77345,7 @@ static const char *startup_source = "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_118)))" +"(let-values(((ns_131)(expand-context-namespace ctx_120)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -77295,7 +77370,7 @@ static const char *startup_source = "((temp702_0) #t)" "((temp703_0)" "(expand-context-for-serializable?" -" ctx_118))" +" ctx_120))" "((modules-being-compiled704_0)" " modules-being-compiled_8)" "((temp705_0) #f))" @@ -77333,7 +77408,7 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((obs_164)" -"(expand-context-observer ctx_118)))" +"(expand-context-observer ctx_120)))" "(if obs_164" "(let-values()" "(let-values()" @@ -77346,67 +77421,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_121) submod_5))" -"(if(expanded+parsed? the-struct_121)" +"(let-values(((the-struct_120) submod_5))" +"(if(expanded+parsed? the-struct_120)" "(let-values(((parsed711_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_121)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_122)" +"(if(parsed-module? the-struct_121)" "(let-values(((star?712_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_122)" +"(parsed-s the-struct_121)" " star?712_0" "(parsed-module-name-id" -" the-struct_122)" +" the-struct_121)" "(parsed-module-self" -" the-struct_122)" +" the-struct_121)" "(parsed-module-requires" -" the-struct_122)" +" the-struct_121)" "(parsed-module-provides" -" the-struct_122)" +" the-struct_121)" "(parsed-module-root-ctx-simple?" -" the-struct_122)" +" the-struct_121)" "(parsed-module-encoded-root-ctx" -" the-struct_122)" +" the-struct_121)" "(parsed-module-body" -" the-struct_122)" +" the-struct_121)" "(parsed-module-compiled-module" -" the-struct_122)" +" the-struct_121)" "(parsed-module-compiled-submodules" -" the-struct_122)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))" +" the-struct_121)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_121)" +"(expanded+parsed-s the-struct_120)" " parsed711_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_121))))" +" the-struct_120))))" "(let-values()" -"(let-values(((the-struct_123) submod_5))" -"(if(parsed-module? the-struct_123)" +"(let-values(((the-struct_122) submod_5))" +"(if(parsed-module? the-struct_122)" "(let-values(((star?713_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_123)" +"(parsed-s the-struct_122)" " star?713_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-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)" "(parsed-module-compiled-submodules" -" the-struct_123)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_123)))))))))))))))))))))))))))))))))))" +" the-struct_122)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77420,9 +77495,9 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_157) phase209_0))" +"(let-values(((phase_158) phase209_0))" "(let-values(((self_43) self210_0))" -"(let-values(((ctx_119) ctx211_0))" +"(let-values(((ctx_121) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" @@ -77451,7 +77526,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_25)" -" phase_157)))" +" phase_158)))" "(if(equal? tmp_70 'module)" "(let-values()" "(let-values(((body714_0)" @@ -77459,7 +77534,7 @@ static const char *startup_source = "((self715_0)" " self_43)" "((ctx716_0)" -" ctx_119)" +" ctx_121)" "((temp717_0)" " #f)" "((mpis-to-reset718_0)" @@ -77503,37 +77578,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_904 phase_158)" +"(lambda(s_905 phase_159)" "(let-values(((ok?_92 #%require722_0 req723_0)" -"(let-values(((s_905)(syntax-disarm$1 s_904)))" -"(let-values(((orig-s_95) s_905))" +"(let-values(((s_906)(syntax-disarm$1 s_905)))" +"(let-values(((orig-s_95) s_906))" "(let-values(((#%require722_1 req723_1)" -"(let-values(((s_906)" -"(if(syntax?$1 s_905)(syntax-e$1 s_905) s_905)))" -"(if(pair? s_906)" +"(let-values(((s_907)" +"(if(syntax?$1 s_906)(syntax-e$1 s_906) s_906)))" +"(if(pair? s_907)" "(let-values(((#%require724_0)" -"(let-values(((s_907)(car s_906))) s_907))" +"(let-values(((s_908)(car s_907))) s_908))" "((req725_0)" -"(let-values(((s_908)(cdr s_906)))" -"(let-values(((s_909)" -"(if(syntax?$1 s_908)" -"(syntax-e$1 s_908)" -" s_908)))" -"(if(pair? s_909)" -"(let-values(((req726_0)" +"(let-values(((s_909)(cdr s_907)))" "(let-values(((s_910)" -"(car s_909)))" -" s_910))" -"(()" +"(if(syntax?$1 s_909)" +"(syntax-e$1 s_909)" +" s_909)))" +"(if(pair? s_910)" +"(let-values(((req726_0)" "(let-values(((s_911)" -"(cdr s_909)))" +"(car s_910)))" +" s_911))" +"(()" "(let-values(((s_912)" +"(cdr s_910)))" +"(let-values(((s_913)" "(if(syntax?$1" -" s_911)" +" s_912)" "(syntax-e$1" -" s_911)" -" s_911)))" -"(if(null? s_912)" +" s_912)" +" s_912)))" +"(if(null? s_913)" "(values)" "(raise-syntax-error$1" " #f" @@ -77548,11 +77623,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" "(values #t #%require722_1 req723_1))))))" "(let-values(((temp727_0)(list req723_0))" -"((s728_0) s_904)" +"((s728_0) s_905)" "((self729_0) self_44)" "((m-ns730_0) m-ns_24)" -"((phase731_0) phase_158)" -"((phase732_0) phase_158)" +"((phase731_0) phase_159)" +"((phase732_0) phase_159)" "((requires+provides733_0) requires+provides_14)" "((declared-submodule-names734_0) declared-submodule-names_10)" "((temp735_0) 'require))" @@ -77645,38 +77720,38 @@ static const char *startup_source = "(let-values(((ok?_93" " define-values740_0" " _741_0)" -"(let-values(((s_913)" +"(let-values(((s_914)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_913))" +" s_914))" "(let-values(((define-values740_1" " _741_1)" -"(let-values(((s_914)" -"(if(syntax?$1" -" s_913)" -"(syntax-e$1" -" s_913)" -" s_913)))" -"(if(pair?" -" s_914)" -"(let-values(((define-values742_0)" "(let-values(((s_915)" -"(car" -" s_914)))" -" s_915))" -"((_743_0)" -"(let-values(((s_916)" -"(cdr" -" s_914)))" -"(let-values(((s_917)" "(if(syntax?$1" -" s_916)" +" s_914)" "(syntax-e$1" -" s_916)" -" s_916)))" +" s_914)" +" s_914)))" +"(if(pair?" +" s_915)" +"(let-values(((define-values742_0)" +"(let-values(((s_916)" +"(car" +" s_915)))" +" s_916))" +"((_743_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_66)" "(to-syntax-list.1" -" s_917)))" +" s_918)))" "(if(not" " flat-s_66)" "(let-values()" @@ -77748,16 +77823,16 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((ok?_94 form-id736_0 _737_0)" -"(let-values(((s_918) exp-body_10))" -"(let-values(((orig-s_97) s_918))" +"(let-values(((s_919) exp-body_10))" +"(let-values(((orig-s_97) s_919))" "(let-values(((form-id736_1 _737_1)" -"(let-values(((s_919)" -"(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))" -"(if(pair? s_919)" +"(let-values(((s_920)" +"(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" +"(if(pair? s_920)" "(let-values(((form-id738_0)" -"(let-values(((s_920)(car s_919))) s_920))" +"(let-values(((s_921)(car s_920))) s_921))" "((_739_0)" -"(let-values(((s_921)(cdr s_919))) s_921)))" +"(let-values(((s_922)(cdr s_920))) s_922)))" "(values form-id738_0 _739_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t form-id736_1 _737_1))))))" @@ -77772,27 +77847,27 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_120 defn_1)" +"(lambda(ctx_122 defn_1)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_120)))" +"(let-values(((obs_166)(expand-context-observer ctx_122)))" "(if obs_166" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_95 define-values744_0 _745_0)" -"(let-values(((s_922) s-defn_0))" -"(let-values(((orig-s_98) s_922))" +"(let-values(((s_923) s-defn_0))" +"(let-values(((orig-s_98) s_923))" "(let-values(((define-values744_1 _745_1)" -"(let-values(((s_923)(if(syntax?$1 s_922)(syntax-e$1 s_922) s_922)))" -"(if(pair? s_923)" +"(let-values(((s_924)(if(syntax?$1 s_923)(syntax-e$1 s_923) s_923)))" +"(if(pair? s_924)" "(let-values(((define-values746_0)" -"(let-values(((s_924)(car s_923))) s_924))" +"(let-values(((s_925)(car s_924))) s_925))" "((_747_0)" -"(let-values(((s_925)(cdr s_923)))" -"(let-values(((s_926)" -"(if(syntax?$1 s_925)" -"(syntax-e$1 s_925)" -" s_925)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_926)))" +"(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_67)(to-syntax-list.1 s_927)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -77811,9 +77886,9 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_121 defn_2 exp-rhs_8)" +"(lambda(ctx_123 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_121)))" +"(let-values(((obs_167)(expand-context-observer ctx_123)))" "(if obs_167" "(let-values()" "(let-values(((s-defn_1)" @@ -77825,12 +77900,12 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_50 s_72 ctx_122)" +"(lambda(ids_51 s_72 ctx_124)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_122)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" "(let-values(((tl-ids_2)" "(reverse$1" -"(let-values(((lst_84) ids_50))" +"(let-values(((lst_84) ids_51))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -77850,7 +77925,7 @@ static const char *startup_source = "(let-values()" "(remove-use-site-scopes" " id_50" -" ctx_122))" +" ctx_124))" " fold-var_62))))" "(values fold-var_394)))))" "(if(not #f)(for-loop_105 fold-var_61 rest_40) fold-var_61)))" @@ -77860,7 +77935,7 @@ static const char *startup_source = " lst_84))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_122))((s3_3) s_72))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_124))((s3_3) s_72))" "(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_3 unsafe-undefined))" "(values))))" "(let-values(((tmp-bind-ids_0)" @@ -77875,7 +77950,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_158)(unsafe-car lst_86))" +"(let-values(((id_159)(unsafe-car lst_86))" "((rest_248)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_395) fold-var_217))" @@ -77884,7 +77959,7 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_158" +" id_159" " top-level-bind-scope_6))" " fold-var_395))))" "(values fold-var_220)))))" @@ -77895,7 +77970,7 @@ static const char *startup_source = " for-loop_81)" " null" " lst_463))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_122)))))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" " 'define-values" @@ -77915,10 +77990,10 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_26 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_491) s_0))" -"(let-values(((orig-s_99) s_491))" +"(let-values(((s_493) s_0))" +"(let-values(((orig-s_99) s_493))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_76)(if(syntax?$1 s_491)(syntax-e$1 s_491) s_491)))" +"(let-values(((s_76)(if(syntax?$1 s_493)(syntax-e$1 s_493) s_493)))" "(if(pair? s_76)" "(let-values(((define-values4_0)" "(let-values(((s_189)(car s_76))) s_189))" @@ -77956,7 +78031,7 @@ static const char *startup_source = "(check-list" " lst_80)))" "((letrec-values(((for-loop_97)" -"(lambda(id_159" +"(lambda(id_160" " lst_81)" "(begin" " 'for-loop" @@ -77968,10 +78043,10 @@ static const char *startup_source = "((rest_119)" "(unsafe-cdr" " lst_81)))" -"(let-values(((id_160)" "(let-values(((id_161)" -" id_159))" -"(let-values(((id_112)" +"(let-values(((id_162)" +" id_160))" +"(let-values(((id_113)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -77994,16 +78069,16 @@ static const char *startup_source = " s_89)))))" "(cons" " id10_1" -" id_161)))))" +" id_162)))))" "(values" -" id_112)))))" +" id_113)))))" "(if(not" " #f)" "(for-loop_97" -" id_160" +" id_161" " rest_119)" -" id_160)))" -" id_159)))))" +" id_161)))" +" id_160)))))" " for-loop_97)" " null" " lst_80)))))" @@ -78047,34 +78122,34 @@ static const char *startup_source = "(values define-values4_0 id5_0 rhs6_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_51 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" +"(let-values(((ids_52 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_9)" "(let-values(((temp11_7) rhs3_0)" -"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_51)))" +"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_52)))" "(expand9.1 #f #f #f temp11_7 temp12_9))))" "(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_51 syms_27 exp-rhs_9)" -"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_51 exp-rhs_9)))" +"(parsed-define-values19.1 s_0 ids_52 syms_27 exp-rhs_9)" +"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_52 exp-rhs_9)))" "(rebuild5.1 #t s13_0 temp14_7))))))))))))" "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_187 ctx_123)" +"(lambda(s_187 ctx_125)" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_123)))" +"(let-values(((obs_169)(expand-context-observer ctx_125)))" "(if obs_169" "(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_123)))" +"(let-values(((obs_170)(expand-context-observer ctx_125)))" "(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_123) 'top-level)" +"(if(eq?(expand-context-context ctx_125) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_187)))" "(values))))" @@ -78086,7 +78161,7 @@ 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_493)(car s_22))) s_493))" +"(let-values(((s_495)(car s_22))) s_495))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" "(let-values(((s_306)" @@ -78095,14 +78170,14 @@ static const char *startup_source = " s_25)))" "(if(pair? s_306)" "(let-values(((id21_1)" -"(let-values(((s_927)(car s_306)))" -"(let-values(((s_928)" -"(if(syntax?$1 s_927)" -"(syntax-e$1 s_927)" -" s_927)))" +"(let-values(((s_928)(car s_306)))" +"(let-values(((s_929)" +"(if(syntax?$1 s_928)" +"(syntax-e$1 s_928)" +" s_928)))" "(let-values(((flat-s_69)" "(to-syntax-list.1" -" s_928)))" +" s_929)))" "(if(not flat-s_69)" "(let-values()" "(raise-syntax-error$1" @@ -78110,7 +78185,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_162)" +"(let-values(((id_163)" "(let-values(((lst_464)" " flat-s_69))" "(begin" @@ -78121,82 +78196,82 @@ static const char *startup_source = "(check-list" " lst_464)))" "((letrec-values(((for-loop_2)" -"(lambda(id_163" +"(lambda(id_164" " lst_465)" "(begin" " 'for-loop" "(if(pair?" " lst_465)" -"(let-values(((s_929)" +"(let-values(((s_930)" "(unsafe-car" " lst_465))" "((rest_270)" "(unsafe-cdr" " lst_465)))" -"(let-values(((id_164)" "(let-values(((id_165)" -" id_163))" "(let-values(((id_166)" +" id_164))" +"(let-values(((id_167)" "(let-values()" "(let-values(((id24_0)" "(let-values()" -"(if(let-values(((or-part_217)" +"(if(let-values(((or-part_215)" "(if(syntax?$1" -" s_929)" +" s_930)" "(symbol?" "(syntax-e$1" -" s_929))" +" s_930))" " #f)))" -"(if or-part_217" -" or-part_217" +"(if or-part_215" +" or-part_215" "(symbol?" -" s_929)))" -" s_929" +" s_930)))" +" s_930" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_929)))))" +" s_930)))))" "(cons" " id24_0" -" id_165)))))" -"(values" " id_166)))))" +"(values" +" id_167)))))" "(if(not" " #f)" "(for-loop_2" -" id_164" +" id_165" " rest_270)" -" id_164)))" -" id_163)))))" +" id_165)))" +" id_164)))))" " for-loop_2)" " null" " lst_464)))))" -"(reverse$1 id_162))))))))" +"(reverse$1 id_163))))))))" "((rhs22_0)" -"(let-values(((s_930)(cdr s_306)))" +"(let-values(((s_931)(cdr s_306)))" "(let-values(((s_176)" -"(if(syntax?$1 s_930)" -"(syntax-e$1 s_930)" -" s_930)))" +"(if(syntax?$1 s_931)" +"(syntax-e$1 s_931)" +" s_931)))" "(if(pair? s_176)" "(let-values(((rhs23_2)" -"(let-values(((s_449)" +"(let-values(((s_451)" "(car" " s_176)))" -" s_449))" +" s_451))" "(()" "(let-values(((s_46)" "(cdr" " s_176)))" -"(let-values(((s_485)" +"(let-values(((s_487)" "(if(syntax?$1" " s_46)" "(syntax-e$1" " s_46)" " s_46)))" "(if(null?" -" s_485)" +" s_487)" "(values)" "(raise-syntax-error$1" " #f" @@ -78215,38 +78290,38 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_187 ctx_123)))" +"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_187 ctx_125)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_123 ids_52)))" +"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_125 ids_53)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_123)" -"(parsed-define-syntaxes20.1 s_187 ids_52 syms_28 exp-rhs_10)" -"(let-values(((s27_3) s_187)((temp28_4)(list define-syntaxes15_0 ids_52 exp-rhs_10)))" +"(if(expand-context-to-parsed? ctx_125)" +"(parsed-define-syntaxes20.1 s_187 ids_53 syms_28 exp-rhs_10)" +"(let-values(((s27_3) s_187)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_309 ctx_108)" +"(lambda(s_309 ctx_112)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_108) 'top-level)" +"(if(eq?(expand-context-context ctx_112) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_309)))" "(values))))" "(let-values(((ok?_38 begin-for-syntax29_0 form30_0)" -"(let-values(((s_495) s_309))" -"(let-values(((orig-s_101) s_495))" +"(let-values(((s_497) s_309))" +"(let-values(((orig-s_101) s_497))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_48)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" +"(let-values(((s_48)(if(syntax?$1 s_497)(syntax-e$1 s_497) s_497)))" "(if(pair? s_48)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" "((form32_0)" -"(let-values(((s_500)(cdr s_48)))" -"(let-values(((s_777)" -"(if(syntax?$1 s_500)" -"(syntax-e$1 s_500)" -" s_500)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_777)))" +"(let-values(((s_502)(cdr s_48)))" +"(let-values(((s_778)" +"(if(syntax?$1 s_502)" +"(syntax-e$1 s_502)" +" s_502)))" +"(let-values(((flat-s_70)(to-syntax-list.1 s_778)))" "(if(not flat-s_70)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" @@ -78256,85 +78331,86 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_108)))" +"(let-values(((obs_171)(expand-context-observer ctx_112)))" "(if obs_171" "(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_108)))" +"(let-values(((obs_172)(expand-context-observer ctx_112)))" "(if obs_172" "(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_108)((temp34_7) 'top-level)((temp35_7) #t))" +"(let-values(((ctx33_0) ctx_112)((temp34_7) 'top-level)((temp35_7) #t))" "(context->transformer-context99.1 temp35_7 ctx33_0 temp34_7))))" "(let-values(((lift-ctx_7)" "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" "(let-values(((v_277) trans-ctx_1))" -"(let-values(((the-struct_124) v_277))" -"(if(expand-context/outer? the-struct_124)" +"(let-values(((the-struct_123) v_277))" +"(if(expand-context/outer? the-struct_123)" "(let-values(((inner37_0)" -"(let-values(((the-struct_125)" +"(let-values(((the-struct_124)" "(root-expand-context/outer-inner v_277)))" -"(if(expand-context/inner? the-struct_125)" +"(if(expand-context/inner? the-struct_124)" "(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_125)" -"(root-expand-context/inner-module-scopes the-struct_125)" +"(root-expand-context/inner-self-mpi the-struct_124)" +"(root-expand-context/inner-module-scopes the-struct_124)" "(root-expand-context/inner-top-level-bind-scope" -" 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)" +" 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)" " lift-key38_1" -"(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-keep-#%expression? the-struct_125)" -"(expand-context/inner-stops the-struct_125)" -"(expand-context/inner-declared-submodule-names the-struct_125)" +"(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-keep-#%expression? the-struct_124)" +"(expand-context/inner-stops the-struct_124)" +"(expand-context/inner-declared-submodule-names the-struct_124)" " lifts39_0" -"(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-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-should-not-encounter-macros?" -" the-struct_125)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_125)))))" +" the-struct_124)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_124)" -"(root-expand-context/outer-post-expansion-shifts 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))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_123)" +"(root-expand-context/outer-post-expansion-shifts 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-current-use-scopes the-struct_123)" +"(expand-context/outer-name the-struct_123)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_67)" "(lambda(forms_0)" @@ -78343,7 +78419,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_173)" -"(expand-context-observer ctx_108)))" +"(expand-context-observer ctx_112)))" "(if obs_173" "(let-values()" "(let-values()" @@ -78366,7 +78442,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_174)" "(expand-context-observer" -" ctx_108)))" +" ctx_112)))" "(if obs_174" "(let-values()" "(let-values()" @@ -78384,7 +78460,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_175)" "(expand-context-observer" -" ctx_108)))" +" ctx_112)))" "(if obs_175" "(let-values()" "(let-values()" @@ -78421,7 +78497,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_176)" "(expand-context-observer" -" ctx_108)))" +" ctx_112)))" "(if obs_176" "(let-values()" "(let-values()" @@ -78453,22 +78529,22 @@ static const char *startup_source = " exp-forms_0)))))))))))))" " loop_67)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_108)" +"(if(expand-context-to-parsed? ctx_112)" "(parsed-begin-for-syntax21.1 s_309 all-exp-forms_0)" "(let-values(((s45_0) s_309)((temp46_2)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #t s45_0 temp46_2))))))))))))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_166 ctx_124)" +"(lambda(s_166 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_177)(expand-context-observer ctx_124)))" +"(let-values(((obs_177)(expand-context-observer ctx_126)))" "(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_124) 'top-level)" +"(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_166)))" "(values))))" @@ -78533,8 +78609,8 @@ static const char *startup_source = " lst_32)))))" "((s52_0) s_166)" "((temp53_6) #f)" -"((temp54_5)(expand-context-namespace ctx_124))" -"((temp55_4)(expand-context-phase ctx_124))" +"((temp54_5)(expand-context-namespace ctx_126))" +"((temp55_4)(expand-context-phase ctx_126))" "((temp56_5)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f temp59_8)))" "((temp57_3) 'require)" "((temp58_5) #t))" @@ -78554,15 +78630,15 @@ static const char *startup_source = " temp54_5" " temp55_4" " temp56_5))" -"(if(expand-context-to-parsed? ctx_124)(parsed-require23.1 s_166) s_166))))))))))" +"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_166) s_166))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_781 ctx_125)" +"(lambda(s_782 ctx_127)" "(begin" -"(let-values(((obs_178)(expand-context-observer ctx_125)))" +"(let-values(((obs_178)(expand-context-observer ctx_127)))" "(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_781)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_782)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78675,18 +78751,18 @@ static const char *startup_source = "(let-values(((name30_0) name_85)" "((ns31_0) ns)" "((temp32_3)" -"(let-values(((or-part_165)" +"(let-values(((or-part_163)" "(eq?" " name_85" " '#%foreign)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_287)" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_284)" "(eq?" " name_85" " '#%futures)))" -"(if or-part_287" -" or-part_287" +"(if or-part_284" +" or-part_284" "(eq?" " name_85" " '#%unsafe)))))))" @@ -78713,5 +78789,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))" "(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_775)(begin(1/datum->syntax core-stx s_775)))))" ;