From b27ca8c6a992daf2239933f67ab982ac91483913 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 5 Jul 2018 18:27:53 -0600 Subject: [PATCH] expander: fix tracking of submodule base scopes When expanding a `(module* _name #f ...)` submodule, accumulate all module scopes on the `#f` and use the `#f` for a reexpansion. Attempting to start each time from the enclosing module's scope loses scopes that were generated from previous expansions. One consequence of losind a scope is that an original definition may appear to be macro-introduced, and the defined variable may become inaccessible in the module's namespace. --- .../racket-test-core/tests/racket/module.rktl | 15 + racket/src/expander/expand/module.rkt | 10 +- racket/src/racket/src/startup.inc | 6337 ++++++++--------- 3 files changed, 3168 insertions(+), 3194 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index e82692bdce..bd484b753a 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2721,6 +2721,21 @@ case of module-leve bindings; it doesn't cover local bindings. (list #'module* #'stop) #:extend-stop-ids? #f))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Make sure that re-expansion of a `(module _name #f ....)` +;; submodule doesn't lose track of the base scope of the +;; submodule --- which would, for example, cause a definition +;; of `x` in the original submodule to be mapped to an +;; inaccessible `x.1`. + +(parameterize ([current-namespace (make-base-namespace)]) + (eval-syntax (expand '(module m racket/base + (require syntax/location) + (module* check #f + (define x 42))))) + (dynamic-require '(submod 'm check) #f) + (eval 'x (module->namespace '(submod 'm check)))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index a180baaf3f..30c1b6c010 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -85,7 +85,6 @@ (define (expand-module s init-ctx enclosing-self #:always-produce-compiled? [always-produce-compiled? #f] #:keep-enclosing-scope-at-phase [keep-enclosing-scope-at-phase #f] - #:enclosing-all-scopes-stx [enclosing-all-scopes-stx #f] #:enclosing-is-cross-phase-persistent? [enclosing-is-cross-phase-persistent? #f] #:enclosing-requires+provides [enclosing-r+p #f] #:mpis-for-enclosing-reset [mpis-for-enclosing-reset #f] @@ -129,11 +128,7 @@ ;; Initial require name provides the module's base scopes (define initial-require-s (apply-module-scopes (m 'initial-require))) - (define all-scopes-s (if enclosing-all-scopes-stx - (apply-module-scopes - (syntax-shift-phase-level enclosing-all-scopes-stx - keep-enclosing-scope-at-phase)) - initial-require-s)) + (define all-scopes-s initial-require-s) (define root-ctx (make-root-expand-context #:self-mpi self @@ -1240,7 +1235,6 @@ (expand-submodule shifted-s self submod-ctx #:is-star? #t #:keep-enclosing-scope-at-phase neg-phase - #:enclosing-all-scopes-stx all-scopes-s #:enclosing-requires+provides requires+provides #:enclosing-is-cross-phase-persistent? enclosing-is-cross-phase-persistent? #:mpis-to-reset mpis-to-reset @@ -1321,7 +1315,6 @@ #:keep-enclosing-scope-at-phase [keep-enclosing-scope-at-phase #f] #:enclosing-requires+provides [enclosing-r+p #f] #:enclosing-is-cross-phase-persistent? [enclosing-is-cross-phase-persistent? #f] - #:enclosing-all-scopes-stx [enclosing-all-scopes-stx #f] #:mpis-to-reset mpis-to-reset #:declared-submodule-names declared-submodule-names #:compiled-submodules compiled-submodules @@ -1347,7 +1340,6 @@ self #:always-produce-compiled? #t #:keep-enclosing-scope-at-phase keep-enclosing-scope-at-phase - #:enclosing-all-scopes-stx enclosing-all-scopes-stx #:enclosing-requires+provides enclosing-r+p #:enclosing-is-cross-phase-persistent? enclosing-is-cross-phase-persistent? #:mpis-for-enclosing-reset mpis-to-reset diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 5ba2728499..8ab060144a 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -71039,8 +71039,8 @@ static const char *startup_source = "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_1) s_43)((ctx224_0) ctx_109)((temp225_2) #f))" -"(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_1 ctx224_0 temp225_2)))))))" +"(let-values(((s219_0) s_43)((ctx220_0) ctx_109)((temp221_4) #f))" +"(expand-module16.1 #f #f #f #f unsafe-undefined #f s219_0 ctx220_0 temp221_4)))))))" "(void" "(add-core-form!*" " 'module*" @@ -71067,10 +71067,10 @@ static const char *startup_source = "(let-values(((v_259) ctx_111))" "(let-values(((the-struct_101) v_259))" "(if(expand-context/outer? the-struct_101)" -"(let-values(((inner226_0)" +"(let-values(((inner222_0)" "(let-values(((the-struct_102)(root-expand-context/outer-inner v_259)))" "(if(expand-context/inner? the-struct_102)" -"(let-values(((module-begin-k227_0) #f))" +"(let-values(((module-begin-k223_0) #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_102)" "(root-expand-context/inner-module-scopes the-struct_102)" @@ -71083,7 +71083,7 @@ static const char *startup_source = "(expand-context/inner-phase the-struct_102)" "(expand-context/inner-namespace the-struct_102)" "(expand-context/inner-just-once? the-struct_102)" -" module-begin-k227_0" +" module-begin-k223_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)" @@ -71100,7 +71100,7 @@ static const char *startup_source = "(expand-context/inner-should-not-encounter-macros? the-struct_102)))" " (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" "(expand-context/outer1.1" -" inner226_0" +" inner222_0" "(root-expand-context/outer-post-expansion the-struct_101)" "(root-expand-context/outer-use-site-scopes the-struct_101)" "(root-expand-context/outer-frame-id the-struct_101)" @@ -71125,177 +71125,173 @@ static const char *startup_source = "(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_805)))))" "(define-values" -"(expand-module18.1)" +"(expand-module16.1)" "(lambda(always-produce-compiled?1_0" -" enclosing-all-scopes-stx3_0" -" enclosing-is-cross-phase-persistent?4_0" -" enclosing-requires+provides5_0" +" enclosing-is-cross-phase-persistent?3_0" +" enclosing-requires+provides4_0" " keep-enclosing-scope-at-phase2_0" -" modules-being-compiled7_0" -" mpis-for-enclosing-reset6_0" -" s15_2" -" init-ctx16_0" -" enclosing-self17_0)" +" modules-being-compiled6_0" +" mpis-for-enclosing-reset5_0" +" s13_0" +" init-ctx14_0" +" enclosing-self15_0)" "(begin" -" 'expand-module18" -"(let-values(((s_806) s15_2))" -"(let-values(((init-ctx_0) init-ctx16_0))" -"(let-values(((enclosing-self_1) enclosing-self17_0))" +" 'expand-module16" +"(let-values(((s_450) s13_0))" +"(let-values(((init-ctx_0) init-ctx14_0))" +"(let-values(((enclosing-self_1) enclosing-self15_0))" "(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" "(let-values(((keep-enclosing-scope-at-phase_0) keep-enclosing-scope-at-phase2_0))" -"(let-values(((enclosing-all-scopes-stx_0) enclosing-all-scopes-stx3_0))" -"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?4_0))" -"(let-values(((enclosing-r+p_1) enclosing-requires+provides5_0))" -"(let-values(((mpis-for-enclosing-reset_0) mpis-for-enclosing-reset6_0))" +"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?3_0))" +"(let-values(((enclosing-r+p_1) enclosing-requires+provides4_0))" +"(let-values(((mpis-for-enclosing-reset_0) mpis-for-enclosing-reset5_0))" "(let-values(((modules-being-compiled_3)" -"(if(eq? modules-being-compiled7_0 unsafe-undefined)" +"(if(eq? modules-being-compiled6_0 unsafe-undefined)" "(make-hasheq)" -" modules-being-compiled7_0)))" +" modules-being-compiled6_0)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_61)(expand-context-observer init-ctx_0)))" -"(if obs_61" -"(let-values()" -"(let-values()(call-expand-observe obs_61 'prim-module)))" +"(let-values(((obs_129)(expand-context-observer init-ctx_0)))" +"(if obs_129" +"(let-values()(let-values()(call-expand-observe obs_129 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_806)))" -"(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))" -"(let-values(((module228_1" -" id:module-name229_1" -" initial-require230_1" -" body231_1)" -"(let-values(((s_507)" -"(if(syntax?$1 s_51)" -"(syntax-e$1 s_51)" -" s_51)))" -"(if(pair? s_507)" -"(let-values(((module232_0)" -"(let-values(((s_54)(car s_507)))" -" s_54))" -"((id:module-name233_0" -" initial-require234_0" -" body235_0)" -"(let-values(((s_312)(cdr s_507)))" -"(let-values(((s_93)" -"(if(syntax?$1 s_312)" -"(syntax-e$1 s_312)" -" s_312)))" -"(if(pair? s_93)" -"(let-values(((id:module-name236_0)" -"(let-values(((s_314)" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_450)))" +"(let-values(((ok?_78 module224_0 id:module-name225_0 initial-require226_0 body227_0)" +"(let-values(((s_49) disarmed-s_24))" +"(let-values(((orig-s_66) s_49))" +"(let-values(((module224_1" +" id:module-name225_1" +" initial-require226_1" +" body227_1)" +"(let-values(((s_453)" +"(if(syntax?$1 s_49)" +"(syntax-e$1 s_49)" +" s_49)))" +"(if(pair? s_453)" +"(let-values(((module228_0)" +"(let-values(((s_508)(car s_453)))" +" s_508))" +"((id:module-name229_0" +" initial-require230_0" +" body231_0)" +"(let-values(((s_53)(cdr s_453)))" +"(let-values(((s_54)" +"(if(syntax?$1 s_53)" +"(syntax-e$1 s_53)" +" s_53)))" +"(if(pair? s_54)" +"(let-values(((id:module-name232_0)" +"(let-values(((s_94)" "(car" -" s_93)))" -"(if(let-values(((or-part_48)" +" s_54)))" +"(if(let-values(((or-part_407)" "(if(syntax?$1" -" s_314)" +" s_94)" "(symbol?" "(syntax-e$1" -" s_314))" +" s_94))" " #f)))" -"(if or-part_48" -" or-part_48" +"(if or-part_407" +" or-part_407" "(symbol?" -" s_314)))" -" s_314" +" s_94)))" +" s_94" "(raise-syntax-error$1" " #f" -" \"not an identifier\"" -" orig-s_82" -" s_314))))" -"((initial-require237_0" -" body238_0)" -"(let-values(((s_55)" +" \"not an identifier\"" +" orig-s_66" +" s_94))))" +"((initial-require233_0" +" body234_0)" +"(let-values(((s_314)" "(cdr" -" s_93)))" -"(let-values(((s_454)" +" s_54)))" +"(let-values(((s_95)" "(if(syntax?$1" -" s_55)" +" s_314)" "(syntax-e$1" -" s_55)" -" s_55)))" -"(if(pair?" -" s_454)" -"(let-values(((initial-require239_0)" -"(let-values(((s_56)" +" s_314)" +" s_314)))" +"(if(pair? s_95)" +"(let-values(((initial-require235_0)" +"(let-values(((s_455)" "(car" -" s_454)))" -" s_56))" -"((body240_0)" -"(let-values(((s_33)" +" s_95)))" +" s_455))" +"((body236_0)" +"(let-values(((s_806)" "(cdr" -" s_454)))" -"(let-values(((s_509)" +" s_95)))" +"(let-values(((s_56)" "(if(syntax?$1" -" s_33)" +" s_806)" "(syntax-e$1" -" s_33)" -" s_33)))" +" s_806)" +" s_806)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_509)))" +" s_56)))" "(if(not" " flat-s_55)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_82))" +" \"bad syntax\"" +" orig-s_66))" "(let-values()" " flat-s_55)))))))" "(values" -" initial-require239_0" -" body240_0))" +" initial-require235_0" +" body236_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_82))))))" +" \"bad syntax\"" +" orig-s_66))))))" "(values" -" id:module-name236_0" -" initial-require237_0" -" body238_0))" +" id:module-name232_0" +" initial-require233_0" +" body234_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_82))))))" +" \"bad syntax\"" +" orig-s_66))))))" "(values" -" module232_0" -" id:module-name233_0" -" initial-require234_0" -" body235_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_82)))))" +" module228_0" +" id:module-name229_0" +" initial-require230_0" +" body231_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_66)))))" "(values" " #t" -" module228_1" -" id:module-name229_1" -" initial-require230_1" -" body231_1))))))" +" module224_1" +" id:module-name225_1" +" initial-require226_1" +" body227_1))))))" "(let-values(((rebuild-s_14)" -"(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_806)" -"((temp255_0) #t)" -"((temp256_0) #t))" -"(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))" -"(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" +"(let-values(((init-ctx249_0) init-ctx_0)" +"((s250_0) s_450)" +"((temp251_1) #t)" +"((temp252_0) #t))" +"(keep-as-needed119.1 #f temp252_0 temp251_1 init-ctx249_0 s250_0))))" +"(let-values(((initial-require_0)(syntax->datum$1 initial-require226_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_56) keep-enclosing-scope-at-phase_0))" -"(if or-part_56" -" or-part_56" +"(if(let-values(((or-part_408) keep-enclosing-scope-at-phase_0))" +"(if or-part_408" +" or-part_408" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"not a module path\"" -" s_806" -" initial-require230_0)))" +" \"not a module path\"" +" s_450" +" initial-require226_0)))" "(values))))" -"(let-values(((phase_147) 0))" -"(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" +"(let-values(((phase_7) 0))" +"(let-values(((module-name-sym_0)(syntax-e$1 id:module-name225_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" "(let-values(((self_32)" @@ -71307,13 +71303,11 @@ static const char *startup_source = " enclosing-self_1)))" "(let-values(((enclosing-mod_1)" "(if enclosing-self_1" -" (1/module-path-index-join '(submod \"..\") self_32)" +" (1/module-path-index-join '(submod \"..\") self_32)" " #f)))" "(let-values((()" "(begin" -"(if(if enclosing-mod_1" -" mpis-for-enclosing-reset_0" -" #f)" +"(if(if enclosing-mod_1 mpis-for-enclosing-reset_0 #f)" "(let-values()" "(set-box!" " mpis-for-enclosing-reset_0" @@ -71332,317 +71326,309 @@ static const char *startup_source = " enclosing-self_1" " enclosing-mod_1)))" "(let-values(((initial-require-s_0)" -"(apply-module-scopes_0 initial-require230_0)))" -"(let-values(((all-scopes-s_0)" -"(if enclosing-all-scopes-stx_0" -"(apply-module-scopes_0" -"(syntax-shift-phase-level$1" -" enclosing-all-scopes-stx_0" -" keep-enclosing-scope-at-phase_0))" -" initial-require-s_0)))" +"(apply-module-scopes_0 initial-require226_0)))" +"(let-values(((all-scopes-s_0) initial-require-s_0))" "(let-values(((root-ctx_6)" -"(let-values(((self257_0) self_32)" -"((temp258_1)" +"(let-values(((self253_0) self_32)" +"((temp254_0)" "(if keep-enclosing-scope-at-phase_0" "(root-expand-context-module-scopes" " init-ctx_0)" " null))" -"((outside-scope259_0)" +"((outside-scope255_0)" " outside-scope_1)" -"((inside-scope260_0)" +"((inside-scope256_0)" " inside-scope_0)" -"((all-scopes-s261_0)" +"((all-scopes-s257_0)" " all-scopes-s_0))" "(make-root-expand-context13.1" -" all-scopes-s261_0" -" temp258_1" -" outside-scope259_0" -" inside-scope260_0" -" self257_0))))" +" all-scopes-s257_0" +" temp254_0" +" outside-scope255_0" +" inside-scope256_0" +" self253_0))))" "(let-values(((new-module-scopes_0)" "(root-expand-context-module-scopes" " root-ctx_6)))" "(let-values(((frame-id_16)" -"(root-expand-context-frame-id" -" root-ctx_6)))" -"(let-values(((make-m-ns244_0)" -"(lambda(for-submodule?241_0 ns243_0)" +"(root-expand-context-frame-id root-ctx_6)))" +"(let-values(((make-m-ns240_0)" +"(lambda(for-submodule?237_0 ns239_0)" "(begin" -" 'make-m-ns244" -"(let-values(((ns_130) ns243_0))" +" 'make-m-ns240" +"(let-values(((ns_130) ns239_0))" "(let-values(((for-submodule?_1)" "(if(eq?" -" for-submodule?241_0" +" for-submodule?237_0" " unsafe-undefined)" "(if enclosing-self_1" " #t" " #f)" -" for-submodule?241_0)))" +" for-submodule?237_0)))" "(let-values()" -"(let-values(((ns262_0)" -" ns_130)" -"((self263_0)" +"(let-values(((ns258_0) ns_130)" +"((self259_0)" " self_32)" -"((root-ctx264_0)" +"((root-ctx260_0)" " root-ctx_6)" -"((for-submodule?265_0)" +"((for-submodule?261_0)" " for-submodule?_1))" "(make-module-namespace50.1" -" for-submodule?265_0" -" self263_0" -" root-ctx264_0" -" ns262_0)))))))))" +" for-submodule?261_0" +" self259_0" +" root-ctx260_0" +" ns258_0)))))))))" "(let-values()" "(let-values()" "(let-values(((m-ns_19)" -"(let-values(((temp266_0)" +"(let-values(((temp262_0)" "(expand-context-namespace" " init-ctx_0)))" -"(make-m-ns244_0" +"(make-m-ns240_0" " unsafe-undefined" -" temp266_0))))" +" temp262_0))))" "(let-values(((ctx_113)" -"(let-values(((v_252)" +"(let-values(((v_260)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_92)" -" v_252))" -"(if(expand-context/outer?" -" the-struct_92)" -"(let-values(((post-expansion267_0)" -"(lambda(s_409)" -"(begin" -" 'post-expansion267" -"(add-scope" -" s_409" -" inside-scope_0))))" -"((inner268_0)" "(let-values(((the-struct_103)" -"(root-expand-context/outer-inner" -" v_252)))" -"(if(expand-context/inner?" +" v_260))" +"(if(expand-context/outer?" " the-struct_103)" -"(let-values(((allow-unbound?269_0)" +"(let-values(((post-expansion263_0)" +"(lambda(s_64)" +"(begin" +" 'post-expansion263" +"(add-scope" +" s_64" +" inside-scope_0))))" +"((inner264_0)" +"(let-values(((the-struct_0)" +"(root-expand-context/outer-inner" +" v_260)))" +"(if(expand-context/inner?" +" the-struct_0)" +"(let-values(((allow-unbound?265_0)" " #f)" -"((namespace270_0)" +"((namespace266_0)" " m-ns_19)" -"((phase271_0)" -" phase_147)" -"((just-once?272_0)" +"((phase267_0)" +" phase_7)" +"((just-once?268_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_103)" +" the-struct_0)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_0)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_0)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_0)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_0)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_0)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-to-parsed?" -" the-struct_103)" -" phase271_0" -" namespace270_0" -" just-once?272_0" +" the-struct_0)" +" phase267_0" +" namespace266_0" +" just-once?268_0" "(expand-context/inner-module-begin-k" -" the-struct_103)" -" allow-unbound?269_0" +" the-struct_0)" +" allow-unbound?265_0" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-keep-#%expression?" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_0)" "(expand-context/inner-should-not-encounter-macros?" +" the-struct_0)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_0)))))" +"(expand-context/outer1.1" +" inner264_0" +" post-expansion263_0" +"(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-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-current-use-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" -" inner268_0" -" post-expansion267_0" -"(root-expand-context/outer-use-site-scopes" -" the-struct_92)" -"(root-expand-context/outer-frame-id" -" the-struct_92)" -"(expand-context/outer-context" -" the-struct_92)" -"(expand-context/outer-env" -" the-struct_92)" -"(expand-context/outer-scopes" -" the-struct_92)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_92)" -"(expand-context/outer-binding-layer" -" the-struct_92)" -"(expand-context/outer-reference-records" -" the-struct_92)" -"(expand-context/outer-only-immediate?" -" the-struct_92)" -"(expand-context/outer-need-eventually-defined" -" the-struct_92)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_92)" -"(expand-context/outer-current-use-scopes" -" the-struct_92)" -"(expand-context/outer-name" -" the-struct_92)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_92))))))" +" \"expand-context/outer?\"" +" the-struct_103))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" " disarmed-s_24)))" "(let-values(((ok?_79" -" _273_0" -" _274_0" +" _269_0" +" _270_0" +" _271_0" +" body272_0)" +"(let-values(((s_524)" +" scoped-s_0))" +"(let-values(((orig-s_82)" +" s_524))" +"(let-values(((_269_1" +" _270_1" +" _271_1" +" body272_1)" +"(let-values(((s_807)" +"(if(syntax?$1" +" s_524)" +"(syntax-e$1" +" s_524)" +" s_524)))" +"(if(pair?" +" s_807)" +"(let-values(((_273_0)" +"(let-values(((s_211)" +"(car" +" s_807)))" +" s_211))" +"((_274_0" " _275_0" " body276_0)" -"(let-values(((s_526)" -" scoped-s_0))" -"(let-values(((orig-s_83)" -" s_526))" -"(let-values(((_273_1" -" _274_1" -" _275_1" -" body276_1)" -"(let-values(((s_459)" -"(if(syntax?$1" -" s_526)" -"(syntax-e$1" -" s_526)" -" s_526)))" -"(if(pair?" -" s_459)" -"(let-values(((_277_2)" +"(let-values(((s_528)" +"(cdr" +" s_807)))" "(let-values(((s_529)" +"(if(syntax?$1" +" s_528)" +"(syntax-e$1" +" s_528)" +" s_528)))" +"(if(pair?" +" s_529)" +"(let-values(((_277_2)" +"(let-values(((s_460)" "(car" -" s_459)))" -" s_529))" +" s_529)))" +" s_460))" "((_278_0" -" _279_1" -" body280_0)" -"(let-values(((s_97)" +" body279_0)" +"(let-values(((s_461)" "(cdr" -" s_459)))" -"(let-values(((s_212)" -"(if(syntax?$1" -" s_97)" -"(syntax-e$1" -" s_97)" -" s_97)))" -"(if(pair?" -" s_212)" -"(let-values(((_281_0)" -"(let-values(((s_807)" -"(car" -" s_212)))" -" s_807))" -"((_282_1" -" body283_0)" +" s_529)))" "(let-values(((s_808)" -"(cdr" -" s_212)))" -"(let-values(((s_809)" "(if(syntax?$1" -" s_808)" +" s_461)" "(syntax-e$1" -" s_808)" -" s_808)))" +" s_461)" +" s_461)))" "(if(pair?" -" s_809)" -"(let-values(((_284_0)" -"(let-values(((s_39)" +" s_808)" +"(let-values(((_280_1)" +"(let-values(((s_809)" "(car" -" s_809)))" -" s_39))" -"((body285_0)" -"(let-values(((s_98)" +" s_808)))" +" s_809))" +"((body281_0)" +"(let-values(((s_416)" "(cdr" -" s_809)))" -"(let-values(((s_320)" +" s_808)))" +"(let-values(((s_39)" "(if(syntax?$1" -" s_98)" +" s_416)" "(syntax-e$1" -" s_98)" -" s_98)))" +" s_416)" +" s_416)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_320)))" +" s_39)))" "(if(not" " flat-s_56)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_83))" +" \"bad syntax\"" +" orig-s_82))" "(let-values()" " flat-s_56)))))))" "(values" -" _284_0" -" body285_0))" +" _280_1" +" body281_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_83))))))" -"(values" -" _281_0" -" _282_1" -" body283_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_83))))))" +" \"bad syntax\"" +" orig-s_82))))))" "(values" " _277_2" " _278_0" -" _279_1" -" body280_0))" +" body279_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_83)))))" +" \"bad syntax\"" +" orig-s_82))))))" +"(values" +" _273_0" +" _274_0" +" _275_0" +" body276_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_82)))))" "(values" " #t" -" _273_1" -" _274_1" -" _275_1" -" body276_1))))))" -" body276_0))))" +" _269_1" +" _270_1" +" _271_1" +" body272_1))))))" +" body272_0))))" "(let-values(((requires+provides_6)" -"(let-values(((self286_0)" +"(let-values(((self282_0)" " self_32))" "(make-requires+provides8.1" " #f" -" self286_0))))" +" self282_0))))" "(let-values(((defined-syms_11)" "(root-expand-context-defined-syms" " root-ctx_6)))" @@ -71652,38 +71638,38 @@ static const char *startup_source = "(box #f)))" "(let-values(((mpis-to-reset_0)" "(box null)))" -"(let-values(((initial-require!249_0)" -"(lambda(bind?247_0)" +"(let-values(((initial-require!245_0)" +"(lambda(bind?243_0)" "(begin" -" 'initial-require!249" +" 'initial-require!245" "(let-values(((bind?_3)" -" bind?247_0))" +" bind?243_0))" "(let-values()" "(if(not" " keep-enclosing-scope-at-phase_0)" "(let-values()" -"(let-values(((initial-require287_0)" +"(let-values(((initial-require283_0)" " initial-require_0)" -"((self288_0)" +"((self284_0)" " self_32)" -"((all-scopes-s289_0)" +"((all-scopes-s285_0)" " all-scopes-s_0)" -"((m-ns290_0)" +"((m-ns286_0)" " m-ns_19)" -"((requires+provides291_0)" +"((requires+provides287_1)" " requires+provides_6)" -"((bind?292_0)" +"((bind?288_0)" " bind?_3)" -"((temp293_0)" +"((temp289_0)" " 'module))" "(perform-initial-require!42.1" -" bind?292_0" -" temp293_0" -" initial-require287_0" -" self288_0" -" all-scopes-s289_0" -" m-ns290_0" -" requires+provides291_0)))" +" bind?288_0" +" temp289_0" +" initial-require283_0" +" self284_0" +" all-scopes-s285_0" +" m-ns286_0" +" requires+provides287_1)))" "(let-values()" "(begin" "(add-required-module!" @@ -71691,51 +71677,51 @@ static const char *startup_source = " enclosing-mod_1" " keep-enclosing-scope-at-phase_0" " enclosing-is-cross-phase-persistent?_0)" -"(let-values(((requires+provides294_0)" +"(let-values(((requires+provides290_0)" " requires+provides_6)" -"((enclosing-r+p295_0)" +"((enclosing-r+p291_0)" " enclosing-r+p_1)" -"((enclosing-mod296_0)" +"((enclosing-mod292_0)" " enclosing-mod_1)" -"((keep-enclosing-scope-at-phase297_0)" +"((keep-enclosing-scope-at-phase293_0)" " keep-enclosing-scope-at-phase_0))" "(add-enclosing-module-defined-and-required!67.1" -" enclosing-r+p295_0" -" requires+provides294_0" -" enclosing-mod296_0" -" keep-enclosing-scope-at-phase297_0))" -"(let-values(((m-ns298_0)" +" enclosing-r+p291_0" +" requires+provides290_0" +" enclosing-mod292_0" +" keep-enclosing-scope-at-phase293_0))" +"(let-values(((m-ns294_0)" " m-ns_19)" -"((enclosing-mod299_0)" +"((enclosing-mod295_0)" " enclosing-mod_1)" -"((keep-enclosing-scope-at-phase300_0)" +"((keep-enclosing-scope-at-phase296_0)" " keep-enclosing-scope-at-phase_0))" "(namespace-module-visit!104.1" " unsafe-undefined" -" m-ns298_0" -" enclosing-mod299_0" -" keep-enclosing-scope-at-phase300_0)))))))))))" +" m-ns294_0" +" enclosing-mod295_0" +" keep-enclosing-scope-at-phase296_0)))))))))))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_129)" +"(let-values(((obs_130)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_129" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_129" +" obs_130" " 'prepare-env)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((temp252_0)" +"(let-values(((temp248_1)" " #t))" -"(initial-require!249_0" -" temp252_0))" +"(initial-require!245_0" +" temp248_1))" "(values))))" "(let-values(((again?_0)" " #f))" @@ -71751,10 +71737,10 @@ static const char *startup_source = "(begin" "(requires+provides-reset!" " requires+provides_6)" -"(let-values(((temp305_0)" +"(let-values(((temp301_0)" " #f))" -"(initial-require!249_0" -" temp305_0))" +"(initial-require!245_0" +" temp301_0))" "(hash-clear!" " compiled-submodules_1)" "(set-box!" @@ -71767,184 +71753,184 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_23)" -"(let-values(((v_260)" +"(let-values(((ctx_114)" +"(let-values(((v_186)" " mb-init-ctx_0))" -"(let-values(((the-struct_104)" -" v_260))" +"(let-values(((the-struct_66)" +" v_186))" "(if(expand-context/outer?" -" the-struct_104)" -"(let-values(((post-expansion306_0)" -"(lambda(s_161)" +" the-struct_66)" +"(let-values(((post-expansion302_0)" +"(lambda(s_810)" "(begin" -" 'post-expansion306" +" 'post-expansion302" "(add-scope" -" s_161" +" s_810" " inside-scope_0))))" -"((inner307_0)" -"(let-values(((the-struct_18)" +"((inner303_0)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_260)))" +" v_186)))" "(if(expand-context/inner?" -" the-struct_18)" -"(let-values(((module-begin-k308_0)" -"(lambda(s_810" -" ctx_114)" +" the-struct_104)" +"(let-values(((module-begin-k304_0)" +"(lambda(s_811" +" ctx_60)" "(begin" -" 'module-begin-k308" +" 'module-begin-k304" "(let-values(((new-requires+provides_0)" -"(let-values(((self317_0)" +"(let-values(((self313_0)" " self_32)" -"((requires+provides318_0)" +"((requires+provides314_0)" " requires+provides_6))" "(make-requires+provides8.1" -" requires+provides318_0" -" self317_0))))" -"(let-values(((requires+provides309_0)" +" requires+provides314_0" +" self313_0))))" +"(let-values(((requires+provides305_0)" " requires+provides_6)" -"((compiled-submodules310_0)" +"((compiled-submodules306_0)" " compiled-submodules_1)" -"((compiled-module-box311_0)" +"((compiled-module-box307_0)" " compiled-module-box_0)" -"((defined-syms312_0)" +"((defined-syms308_0)" " defined-syms_11)" -"((requires+provides313_0)" +"((requires+provides309_0)" " new-requires+provides_0)" -"((compiled-submodules314_0)" +"((compiled-submodules310_0)" "(make-hasheq))" -"((compiled-module-box315_0)" +"((compiled-module-box311_0)" "(box" " #f))" -"((defined-syms316_0)" +"((defined-syms312_0)" "(make-hasheq)))" "(dynamic-wind" "(lambda()" "(begin" "(set! requires+provides_6" -" requires+provides313_0)" -"(set! compiled-submodules_1" -" compiled-submodules314_0)" -"(set! compiled-module-box_0" -" compiled-module-box315_0)" -"(set! defined-syms_11" -" defined-syms316_0)))" -"(lambda()" -"(module-begin-k_1" -" s_810" -" ctx_114))" -"(lambda()" -"(begin" -"(set! requires+provides_6" " requires+provides309_0)" "(set! compiled-submodules_1" " compiled-submodules310_0)" "(set! compiled-module-box_0" " compiled-module-box311_0)" "(set! defined-syms_11" -" defined-syms312_0))))))))))" +" defined-syms312_0)))" +"(lambda()" +"(module-begin-k_1" +" s_811" +" ctx_60))" +"(lambda()" +"(begin" +"(set! requires+provides_6" +" requires+provides305_0)" +"(set! compiled-submodules_1" +" compiled-submodules306_0)" +"(set! compiled-module-box_0" +" compiled-module-box307_0)" +"(set! defined-syms_11" +" defined-syms308_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_18)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_18)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_18)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_18)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_18)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_18)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_18)" -" module-begin-k308_0" +" the-struct_104)" +" module-begin-k304_0" "(expand-context/inner-allow-unbound?" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-keep-#%expression?" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_18)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_18)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_18)))))" -"(expand-context/outer1.1" -" inner307_0" -" post-expansion306_0" -"(root-expand-context/outer-use-site-scopes" -" the-struct_104)" -"(root-expand-context/outer-frame-id" -" the-struct_104)" -"(expand-context/outer-context" -" the-struct_104)" -"(expand-context/outer-env" -" the-struct_104)" -"(expand-context/outer-scopes" -" the-struct_104)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_104)" -"(expand-context/outer-binding-layer" -" the-struct_104)" -"(expand-context/outer-reference-records" -" the-struct_104)" -"(expand-context/outer-only-immediate?" -" the-struct_104)" -"(expand-context/outer-need-eventually-defined" -" the-struct_104)" -"(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_104))))))" +" \"expand-context/inner?\"" +" the-struct_104)))))" +"(expand-context/outer1.1" +" inner303_0" +" post-expansion302_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_66)" +"(root-expand-context/outer-frame-id" +" the-struct_66)" +"(expand-context/outer-context" +" the-struct_66)" +"(expand-context/outer-env" +" the-struct_66)" +"(expand-context/outer-scopes" +" the-struct_66)" +"(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)" +"(expand-context/outer-only-immediate?" +" the-struct_66)" +"(expand-context/outer-need-eventually-defined" +" the-struct_66)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_66)" +"(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_66))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_130)" +"(let-values(((obs_131)" "(expand-context-observer" -" ctx_23)))" -"(if obs_130" +" ctx_114)))" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_130" +" obs_131" " 'rename-one" " added-s_2)))" "(void)))" @@ -71953,73 +71939,73 @@ static const char *startup_source = "(syntax-disarm$1" " added-s_2)))" "(let-values(((ok?_80" -" #%module-begin301_0" -" body302_0)" -"(let-values(((s_118)" +" #%module-begin297_0" +" body298_0)" +"(let-values(((s_116)" " disarmed-mb-s_0))" -"(let-values(((orig-s_84)" -" s_118))" -"(let-values(((#%module-begin301_1" -" body302_1)" -"(let-values(((s_429)" +"(let-values(((orig-s_0)" +" s_116))" +"(let-values(((#%module-begin297_1" +" body298_1)" +"(let-values(((s_225)" "(if(syntax?$1" -" s_118)" +" s_116)" "(syntax-e$1" -" s_118)" -" s_118)))" +" s_116)" +" s_116)))" "(if(pair?" -" s_429)" -"(let-values(((#%module-begin303_0)" -"(let-values(((s_227)" +" s_225)" +"(let-values(((#%module-begin299_0)" +"(let-values(((s_121)" "(car" -" s_429)))" -" s_227))" -"((body304_0)" -"(let-values(((s_163)" +" s_225)))" +" s_121))" +"((body300_0)" +"(let-values(((s_226)" "(cdr" -" s_429)))" -"(let-values(((s_164)" +" s_225)))" +"(let-values(((s_227)" "(if(syntax?$1" -" s_163)" +" s_226)" "(syntax-e$1" -" s_163)" -" s_163)))" -"(let-values(((flat-s_57)" +" s_226)" +" s_226)))" +"(let-values(((flat-s_5)" "(to-syntax-list.1" -" s_164)))" +" s_227)))" "(if(not" -" flat-s_57)" +" flat-s_5)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_84))" +" \"bad syntax\"" +" orig-s_0))" "(let-values()" -" flat-s_57)))))))" +" flat-s_5)))))))" "(values" -" #%module-begin303_0" -" body304_0))" +" #%module-begin299_0" +" body300_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_84)))))" +" \"bad syntax\"" +" orig-s_0)))))" "(values" " #t" -" #%module-begin301_1" -" body302_1))))))" +" #%module-begin297_1" +" body298_1))))))" "(let-values(((bodys_16)" -" body302_0))" +" body298_0))" "(let-values(((rebuild-mb-s_0)" -"(let-values(((ctx319_0)" -" ctx_23)" -"((mb-s320_0)" +"(let-values(((ctx315_0)" +" ctx_114)" +"((mb-s316_0)" " mb-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" ctx319_0" -" mb-s320_0))))" +" ctx315_0" +" mb-s316_0))))" "(let-values(((need-eventually-defined_1)" "(make-hasheqv)))" "(let-values(((module-ends_0)" @@ -72031,7 +72017,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_148" +" phase_84" " keep-stops?_2)" "(begin" " 'pass-1-and-2-loop" @@ -72040,40 +72026,40 @@ static const char *startup_source = " null)))" "(let-values(((partial-body-ctx_0)" "(let-values(((v_261)" -" ctx_23))" +" ctx_114))" "(let-values(((the-struct_105)" " v_261))" "(if(expand-context/outer?" " the-struct_105)" -"(let-values(((context329_0)" +"(let-values(((context325_0)" " 'module)" -"((def-ctx-scopes330_0)" +"((def-ctx-scopes326_0)" " def-ctx-scopes_8)" -"((need-eventually-defined331_0)" +"((need-eventually-defined327_0)" " need-eventually-defined_1)" -"((inner332_0)" +"((inner328_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" " the-struct_106)" -"(let-values(((phase333_0)" -" phase_148)" -"((namespace334_0)" +"(let-values(((phase329_0)" +" phase_84)" +"((namespace330_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_148))" -"((stops335_0)" +" phase_84))" +"((stops331_0)" "(free-id-set" -" phase_148" +" phase_84" "(module-expand-stop-ids" -" phase_148)))" -"((declared-submodule-names336_0)" +" phase_84)))" +"((declared-submodule-names332_0)" " declared-submodule-names_3)" -"((lift-key337_0)" +"((lift-key333_0)" "(generate-lift-key))" -"((lifts338_0)" -"(let-values(((temp342_1)" +"((lifts334_0)" +"(let-values(((temp338_1)" "(make-wrap-as-definition" " self_32" " frame-id_16" @@ -72083,38 +72069,38 @@ static const char *startup_source = " requires+provides_6)))" "(make-lift-context6.1" " #f" -" temp342_1)))" -"((module-lifts339_0)" +" temp338_1)))" +"((module-lifts335_0)" "(make-module-lift-context" -" phase_148" +" phase_84" " #t))" -"((require-lifts340_0)" +"((require-lifts336_0)" "(make-require-lift-context" -" phase_148" -"(let-values(((m-ns343_0)" +" phase_84" +"(let-values(((m-ns339_0)" " m-ns_19)" -"((self344_0)" +"((self340_0)" " self_32)" -"((requires+provides345_0)" +"((requires+provides341_0)" " requires+provides_6)" -"((declared-submodule-names346_0)" +"((declared-submodule-names342_0)" " declared-submodule-names_3))" -"(make-parse-lifted-require220.1" -" declared-submodule-names346_0" -" m-ns343_0" -" self344_0" -" requires+provides345_0))))" -"((to-module-lifts341_0)" -"(let-values(((phase347_0)" -" phase_148)" -"((module-ends348_0)" +"(make-parse-lifted-require216.1" +" declared-submodule-names342_0" +" m-ns339_0" +" self340_0" +" requires+provides341_0))))" +"((to-module-lifts337_0)" +"(let-values(((phase343_0)" +" phase_84)" +"((module-ends344_0)" " module-ends_0)" -"((temp349_1)" +"((temp345_1)" " #f))" "(make-to-module-lift-context27.1" -" temp349_1" -" module-ends348_0" -" phase347_0))))" +" temp345_1" +" module-ends344_0" +" phase343_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_106)" @@ -72128,11 +72114,11 @@ static const char *startup_source = " the-struct_106)" "(root-expand-context/inner-counter" " the-struct_106)" -" lift-key337_0" +" lift-key333_0" "(expand-context/inner-to-parsed?" " the-struct_106)" -" phase333_0" -" namespace334_0" +" phase329_0" +" namespace330_0" "(expand-context/inner-just-once?" " the-struct_106)" "(expand-context/inner-module-begin-k" @@ -72143,14 +72129,14 @@ static const char *startup_source = " the-struct_106)" "(expand-context/inner-keep-#%expression?" " the-struct_106)" -" stops335_0" -" declared-submodule-names336_0" -" lifts338_0" +" stops331_0" +" declared-submodule-names332_0" +" lifts334_0" "(expand-context/inner-lift-envs" " the-struct_106)" -" module-lifts339_0" -" require-lifts340_0" -" to-module-lifts341_0" +" module-lifts335_0" +" require-lifts336_0" +" to-module-lifts337_0" "(expand-context/inner-requires+provides" " the-struct_106)" "(expand-context/inner-observer" @@ -72161,29 +72147,29 @@ static const char *startup_source = " the-struct_106)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_106)))))" "(expand-context/outer1.1" -" inner332_0" +" inner328_0" "(root-expand-context/outer-post-expansion" " the-struct_105)" "(root-expand-context/outer-use-site-scopes" " the-struct_105)" "(root-expand-context/outer-frame-id" " the-struct_105)" -" context329_0" +" context325_0" "(expand-context/outer-env" " the-struct_105)" "(expand-context/outer-scopes" " the-struct_105)" -" def-ctx-scopes330_0" +" def-ctx-scopes326_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-defined331_0" +" need-eventually-defined327_0" "(expand-context/outer-current-introduction-scopes" " the-struct_105)" "(expand-context/outer-current-use-scopes" @@ -72192,68 +72178,68 @@ static const char *startup_source = " the-struct_105)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" -"(let-values(((bodys350_0)" +"(let-values(((bodys346_0)" " bodys_17)" -"((phase351_0)" -" phase_148)" -"((partial-body-ctx352_0)" +"((phase347_0)" +" phase_84)" +"((partial-body-ctx348_0)" " partial-body-ctx_0)" -"((m-ns353_0)" +"((m-ns349_0)" " m-ns_19)" -"((self354_0)" +"((self350_0)" " self_32)" -"((frame-id355_0)" +"((frame-id351_0)" " frame-id_16)" -"((requires+provides356_0)" +"((requires+provides352_0)" " requires+provides_6)" -"((need-eventually-defined357_0)" +"((need-eventually-defined353_0)" " need-eventually-defined_1)" -"((all-scopes-s358_0)" +"((all-scopes-s354_0)" " all-scopes-s_0)" -"((defined-syms359_0)" +"((defined-syms355_0)" " defined-syms_11)" -"((declared-keywords360_0)" +"((declared-keywords356_0)" " declared-keywords_0)" -"((declared-submodule-names361_0)" +"((declared-submodule-names357_0)" " declared-submodule-names_3)" -"((compiled-submodules362_0)" +"((compiled-submodules358_0)" " compiled-submodules_1)" -"((modules-being-compiled363_0)" +"((modules-being-compiled359_0)" " modules-being-compiled_3)" -"((mpis-to-reset364_0)" +"((mpis-to-reset360_0)" " mpis-to-reset_0)" -"((pass-1-and-2-loop365_0)" +"((pass-1-and-2-loop361_0)" " pass-1-and-2-loop_0))" -"(partially-expand-bodys81.1" -" all-scopes-s358_0" -" compiled-submodules362_0" -" partial-body-ctx352_0" -" declared-keywords360_0" -" declared-submodule-names361_0" -" defined-syms359_0" -" frame-id355_0" -" pass-1-and-2-loop365_0" -" modules-being-compiled363_0" -" mpis-to-reset364_0" -" m-ns353_0" -" need-eventually-defined357_0" -" phase351_0" -" requires+provides356_0" -" self354_0" -" bodys350_0))))" +"(partially-expand-bodys79.1" +" all-scopes-s354_0" +" compiled-submodules358_0" +" partial-body-ctx348_0" +" declared-keywords356_0" +" declared-submodule-names357_0" +" defined-syms355_0" +" frame-id351_0" +" pass-1-and-2-loop361_0" +" modules-being-compiled359_0" +" mpis-to-reset360_0" +" m-ns349_0" +" need-eventually-defined353_0" +" phase347_0" +" requires+provides352_0" +" self350_0" +" bodys346_0))))" "(let-values((()" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_132)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_131" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_132" " 'next-group)))" "(void)))" "(values))))" @@ -72266,32 +72252,32 @@ static const char *startup_source = " v_262))" "(if(expand-context/outer?" " the-struct_107)" -"(let-values(((def-ctx-scopes366_0)" +"(let-values(((def-ctx-scopes362_0)" " #f)" -"((post-expansion367_0)" +"((post-expansion363_0)" " #f)" -"((inner368_0)" +"((inner364_0)" "(let-values(((the-struct_108)" "(root-expand-context/outer-inner" " v_262)))" "(if(expand-context/inner?" " the-struct_108)" -"(let-values(((stops369_0)" +"(let-values(((stops365_0)" "(if keep-stops?_2" "(expand-context-stops" -" ctx_23)" +" ctx_114)" " empty-free-id-set))" -"((to-module-lifts370_0)" -"(let-values(((phase371_0)" -" phase_148)" -"((module-ends372_0)" +"((to-module-lifts366_0)" +"(let-values(((phase367_0)" +" phase_84)" +"((module-ends368_0)" " module-ends_0)" -"((temp373_0)" +"((temp369_0)" " #t))" "(make-to-module-lift-context27.1" -" temp373_0" -" module-ends372_0" -" phase371_0))))" +" temp369_0" +" module-ends368_0" +" phase367_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_108)" @@ -72323,7 +72309,7 @@ static const char *startup_source = " the-struct_108)" "(expand-context/inner-keep-#%expression?" " the-struct_108)" -" stops369_0" +" stops365_0" "(expand-context/inner-declared-submodule-names" " the-struct_108)" "(expand-context/inner-lifts" @@ -72334,7 +72320,7 @@ static const char *startup_source = " the-struct_108)" "(expand-context/inner-require-lifts" " the-struct_108)" -" to-module-lifts370_0" +" to-module-lifts366_0" "(expand-context/inner-requires+provides" " the-struct_108)" "(expand-context/inner-observer" @@ -72345,11 +72331,11 @@ static const char *startup_source = " the-struct_108)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_108)))))" "(expand-context/outer1.1" -" inner368_0" -" post-expansion367_0" +" inner364_0" +" post-expansion363_0" "(root-expand-context/outer-use-site-scopes" " the-struct_107)" "(root-expand-context/outer-frame-id" @@ -72360,7 +72346,7 @@ static const char *startup_source = " the-struct_107)" "(expand-context/outer-scopes" " the-struct_107)" -" def-ctx-scopes366_0" +" def-ctx-scopes362_0" "(expand-context/outer-binding-layer" " the-struct_107)" "(expand-context/outer-reference-records" @@ -72377,82 +72363,82 @@ static const char *startup_source = " the-struct_107)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_107))))))" -"(let-values(((partially-expanded-bodys321_0)" +"(let-values(((partially-expanded-bodys317_0)" " partially-expanded-bodys_0)" -"((phase322_0)" -" phase_148)" -"((body-ctx323_0)" +"((phase318_0)" +" phase_84)" +"((body-ctx319_0)" " body-ctx_6)" -"((self324_0)" +"((self320_0)" " self_32)" -"((declared-submodule-names325_0)" +"((declared-submodule-names321_0)" " declared-submodule-names_3)" -"((compiled-submodules326_0)" +"((compiled-submodules322_0)" " compiled-submodules_1)" -"((modules-being-compiled327_0)" +"((modules-being-compiled323_0)" " modules-being-compiled_3)" -"((mpis-to-reset328_0)" +"((mpis-to-reset324_0)" " mpis-to-reset_0))" -"(finish-expanding-body-expressons99.1" -" compiled-submodules326_0" -" body-ctx323_0" -" declared-submodule-names325_0" -" modules-being-compiled327_0" -" mpis-to-reset328_0" -" phase322_0" -" self324_0" -" partially-expanded-bodys321_0)))))))))))" +"(finish-expanding-body-expressons97.1" +" compiled-submodules322_0" +" body-ctx319_0" +" declared-submodule-names321_0" +" modules-being-compiled323_0" +" mpis-to-reset324_0" +" phase318_0" +" self320_0" +" partially-expanded-bodys317_0)))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_147" +" phase_7" "(stop-at-module*?" -" ctx_23))))" +" ctx_114))))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_23" +" ctx_114" " requires+provides_6)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_26)" +"(let-values(((obs_133)" "(expand-context-observer" -" ctx_23)))" -"(if obs_26" +" ctx_114)))" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_26" +" obs_133" " 'next-group)))" "(void)))" "(values))))" "(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((expression-expanded-bodys374_0)" +"(let-values(((expression-expanded-bodys370_0)" " expression-expanded-bodys_0)" -"((requires+provides375_0)" +"((requires+provides371_0)" " requires+provides_6)" -"((declared-submodule-names376_0)" +"((declared-submodule-names372_0)" " declared-submodule-names_3)" -"((m-ns377_0)" +"((m-ns373_0)" " m-ns_19)" -"((phase378_0)" -" phase_147)" -"((self379_0)" +"((phase374_0)" +" phase_7)" +"((self375_0)" " self_32)" -"((ctx380_0)" -" ctx_23))" -"(resolve-provides115.1" -" ctx380_0" -" declared-submodule-names376_0" -" m-ns377_0" -" phase378_0" -" requires+provides375_0" -" self379_0" -" expression-expanded-bodys374_0))))" +"((ctx376_0)" +" ctx_114))" +"(resolve-provides113.1" +" ctx376_0" +" declared-submodule-names372_0" +" m-ns373_0" +" phase374_0" +" requires+provides371_0" +" self375_0" +" expression-expanded-bodys370_0))))" "(let-values(((is-cross-phase-persistent?_1)" "(hash-ref" " declared-keywords_0" @@ -72469,7 +72455,7 @@ static const char *startup_source = "(let-values()" "(raise-syntax-error$1" " #f" -" \"cannot be cross-phase persistent due to required modules\"" +" \"cannot be cross-phase persistent due to required modules\"" " rebuild-s_14" "(hash-ref" " declared-keywords_0" @@ -72481,43 +72467,43 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_78)" +"(let-values(((obs_134)" "(expand-context-observer" -" ctx_23)))" -"(if obs_78" +" ctx_114)))" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_78" +" obs_134" " 'next)))" "(void)))" "(values))))" "(let-values(((submod-m-ns_0)" -"(let-values(((m-ns381_0)" +"(let-values(((m-ns377_0)" " m-ns_19)" -"((temp382_1)" +"((temp378_0)" " #t))" -"(make-m-ns244_0" -" temp382_1" -" m-ns381_0))))" +"(make-m-ns240_0" +" temp378_0" +" m-ns377_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_182)" -" ctx_23))" -"(let-values(((the-struct_58)" -" v_182))" +"(let-values(((v_263)" +" ctx_114))" +"(let-values(((the-struct_76)" +" v_263))" "(if(expand-context/outer?" -" the-struct_58)" -"(let-values(((frame-id383_0)" +" the-struct_76)" +"(let-values(((frame-id379_0)" " #f)" -"((post-expansion384_0)" +"((post-expansion380_0)" " #f)" -"((inner385_0)" +"((inner381_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_182)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_109)" -"(let-values(((namespace386_0)" +"(let-values(((namespace382_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -72538,7 +72524,7 @@ static const char *startup_source = " the-struct_109)" "(expand-context/inner-phase" " the-struct_109)" -" namespace386_0" +" namespace382_0" "(expand-context/inner-just-once?" " the-struct_109)" "(expand-context/inner-module-begin-k" @@ -72573,77 +72559,77 @@ static const char *startup_source = " the-struct_109)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_109)))))" "(expand-context/outer1.1" -" inner385_0" -" post-expansion384_0" +" inner381_0" +" post-expansion380_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_58)" -" frame-id383_0" +" the-struct_76)" +" frame-id379_0" "(expand-context/outer-context" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-env" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-scopes" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-def-ctx-scopes" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-binding-layer" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-reference-records" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-only-immediate?" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-need-eventually-defined" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-current-introduction-scopes" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-current-use-scopes" -" the-struct_58)" +" the-struct_76)" "(expand-context/outer-name" -" the-struct_58)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_58))))))" +" \"expand-context/outer?\"" +" the-struct_76))))))" "(let-values(((declare-enclosing-module_0)" "(promise1.1" "(lambda()" -"(let-values(((fully-expanded-bodys-except-post-submodules387_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules383_0)" " fully-expanded-bodys-except-post-submodules_0)" -"((temp388_0)" -" id:module-name229_0)" -"((rebuild-s389_0)" +"((temp384_0)" +" id:module-name225_0)" +"((rebuild-s385_0)" " rebuild-s_14)" -"((requires+provides390_0)" +"((requires+provides386_0)" " requires+provides_6)" -"((submod-m-ns391_0)" +"((submod-m-ns387_0)" " submod-m-ns_0)" -"((self392_0)" +"((self388_0)" " self_32)" -"((enclosing-self393_0)" +"((enclosing-self389_0)" " enclosing-self_1)" -"((root-ctx394_0)" +"((root-ctx390_0)" " root-ctx_6)" -"((submod-ctx395_0)" +"((submod-ctx391_0)" " submod-ctx_0)" -"((modules-being-compiled396_0)" +"((modules-being-compiled392_0)" " modules-being-compiled_3)" -"((compiled-module-box397_0)" +"((compiled-module-box393_0)" " compiled-module-box_0))" -"(declare-module-for-expansion139.1" -" submod-ctx395_0" -" enclosing-self393_0" -" compiled-module-box397_0" -" temp388_0" -" modules-being-compiled396_0" -" submod-m-ns391_0" -" rebuild-s389_0" -" requires+provides390_0" -" root-ctx394_0" -" self392_0" -" fully-expanded-bodys-except-post-submodules387_0)))" +"(declare-module-for-expansion137.1" +" submod-ctx391_0" +" enclosing-self389_0" +" compiled-module-box393_0" +" temp384_0" +" modules-being-compiled392_0" +" submod-m-ns387_0" +" rebuild-s385_0" +" requires+provides386_0" +" root-ctx390_0" +" self388_0" +" fully-expanded-bodys-except-post-submodules383_0)))" " #f)))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" @@ -72651,43 +72637,43 @@ static const char *startup_source = "(let-values()" " fully-expanded-bodys-except-post-submodules_0)" "(let-values()" -"(let-values(((fully-expanded-bodys-except-post-submodules398_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules394_0)" " fully-expanded-bodys-except-post-submodules_0)" -"((declare-enclosing-module399_0)" +"((declare-enclosing-module395_0)" " declare-enclosing-module_0)" -"((phase400_0)" -" phase_147)" -"((self401_0)" +"((phase396_0)" +" phase_7)" +"((self397_0)" " self_32)" -"((requires+provides402_0)" +"((requires+provides398_0)" " requires+provides_6)" -"((is-cross-phase-persistent?403_0)" +"((is-cross-phase-persistent?399_0)" " is-cross-phase-persistent?_1)" -"((all-scopes-s404_0)" +"((all-scopes-s400_0)" " all-scopes-s_0)" -"((mpis-to-reset405_0)" +"((mpis-to-reset401_0)" " mpis-to-reset_0)" -"((declared-submodule-names406_0)" +"((declared-submodule-names402_0)" " declared-submodule-names_3)" -"((compiled-submodules407_0)" +"((compiled-submodules403_0)" " compiled-submodules_1)" -"((modules-being-compiled408_0)" +"((modules-being-compiled404_0)" " modules-being-compiled_3)" -"((submod-ctx409_0)" +"((submod-ctx405_0)" " submod-ctx_0))" -"(expand-post-submodules165.1" -" all-scopes-s404_0" -" compiled-submodules407_0" -" submod-ctx409_0" -" declare-enclosing-module399_0" -" declared-submodule-names406_0" -" is-cross-phase-persistent?403_0" -" modules-being-compiled408_0" -" mpis-to-reset405_0" -" phase400_0" -" requires+provides402_0" -" self401_0" -" fully-expanded-bodys-except-post-submodules398_0))))))" +"(expand-post-submodules163.1" +" all-scopes-s400_0" +" compiled-submodules403_0" +" submod-ctx405_0" +" declare-enclosing-module395_0" +" declared-submodule-names402_0" +" is-cross-phase-persistent?399_0" +" modules-being-compiled404_0" +" mpis-to-reset401_0" +" phase396_0" +" requires+provides398_0" +" self397_0" +" fully-expanded-bodys-except-post-submodules394_0))))))" "(if(expand-context-to-parsed?" " submod-ctx_0)" "(let-values()" @@ -72697,17 +72683,17 @@ static const char *startup_source = " fully-expanded-bodys_0)))" "(let-values()" "(let-values(((mb-result-s_0)" -"(let-values(((rebuild-mb-s410_0)" +"(let-values(((rebuild-mb-s406_0)" " rebuild-mb-s_0)" -"((temp411_1)" +"((temp407_0)" "(list*" -" #%module-begin301_0" +" #%module-begin297_0" "(syntax-only" " fully-expanded-bodys_0))))" "(rebuild5.1" " #t" -" rebuild-mb-s410_0" -" temp411_1))))" +" rebuild-mb-s406_0" +" temp407_0))))" "(if(not" "(expand-context-in-local-expand?" " submod-ctx_0))" @@ -72721,31 +72707,31 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_263)" +"(let-values(((v_264)" " ctx_113))" "(let-values(((the-struct_110)" -" v_263))" +" v_264))" "(if(expand-context/outer?" " the-struct_110)" -"(let-values(((context412_0)" +"(let-values(((context408_0)" " 'module-begin)" -"((inner413_0)" +"((inner409_0)" "(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_263)))" +" v_264)))" "(if(expand-context/inner?" " the-struct_111)" -"(let-values(((module-begin-k414_0)" +"(let-values(((module-begin-k410_0)" " module-begin-k_1)" -"((in-local-expand?415_0)" +"((in-local-expand?411_0)" " #f)" -"((lifts416_0)" +"((lifts412_0)" " #f)" -"((module-lifts417_0)" +"((module-lifts413_0)" " #f)" -"((to-module-lifts418_0)" +"((to-module-lifts414_0)" " #f)" -"((require-lifts419_0)" +"((require-lifts415_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -72770,22 +72756,22 @@ static const char *startup_source = " the-struct_111)" "(expand-context/inner-just-once?" " the-struct_111)" -" module-begin-k414_0" +" module-begin-k410_0" "(expand-context/inner-allow-unbound?" " the-struct_111)" -" in-local-expand?415_0" +" in-local-expand?411_0" "(expand-context/inner-keep-#%expression?" " the-struct_111)" "(expand-context/inner-stops" " the-struct_111)" "(expand-context/inner-declared-submodule-names" " the-struct_111)" -" lifts416_0" +" lifts412_0" "(expand-context/inner-lift-envs" " the-struct_111)" -" module-lifts417_0" -" require-lifts419_0" -" to-module-lifts418_0" +" module-lifts413_0" +" require-lifts415_0" +" to-module-lifts414_0" "(expand-context/inner-requires+provides" " the-struct_111)" "(expand-context/inner-observer" @@ -72796,17 +72782,17 @@ static const char *startup_source = " the-struct_111)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_111)))))" "(expand-context/outer1.1" -" inner413_0" +" inner409_0" "(root-expand-context/outer-post-expansion" " the-struct_110)" "(root-expand-context/outer-use-site-scopes" " the-struct_110)" "(root-expand-context/outer-frame-id" " the-struct_110)" -" context412_0" +" context408_0" "(expand-context/outer-env" " the-struct_110)" "(expand-context/outer-scopes" @@ -72829,7 +72815,7 @@ static const char *startup_source = " the-struct_110)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_110))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" @@ -72840,51 +72826,51 @@ static const char *startup_source = "(box" " null)))" "(let-values(((mb_0)" -"(let-values(((bodys420_0)" +"(let-values(((bodys416_0)" " bodys_15)" -"((module-name-sym421_0)" +"((module-name-sym417_0)" " module-name-sym_0)" -"((mb-scopes-s422_0)" +"((mb-scopes-s418_0)" " mb-scopes-s_0)" -"((m-ns423_0)" +"((m-ns419_0)" " m-ns_19)" -"((mb-ctx424_0)" +"((mb-ctx420_0)" " mb-ctx_0)" -"((mb-def-ctx-scopes425_0)" +"((mb-def-ctx-scopes421_0)" " mb-def-ctx-scopes_0)" -"((phase426_0)" -" phase_147)" -"((s427_0)" -" s_806))" -"(ensure-module-begin36.1" -" mb-ctx424_0" -" mb-def-ctx-scopes425_0" -" m-ns423_0" -" module-name-sym421_0" -" phase426_0" -" s427_0" -" mb-scopes-s422_0" -" bodys420_0))))" +"((phase422_0)" +" phase_7)" +"((s423_0)" +" s_450))" +"(ensure-module-begin34.1" +" mb-ctx420_0" +" mb-def-ctx-scopes421_0" +" m-ns419_0" +" module-name-sym417_0" +" phase422_0" +" s423_0" +" mb-scopes-s418_0" +" bodys416_0))))" "(let-values(((expanded-mb_0)" "(let-values()" -"(let-values(((mb428_0)" +"(let-values(((mb424_0)" " mb_0)" -"((temp429_0)" -"(let-values(((v_264)" +"((temp425_0)" +"(let-values(((v_265)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" "(let-values(((the-struct_112)" -" v_264))" +" v_265))" "(if(expand-context/outer?" " the-struct_112)" -"(let-values(((def-ctx-scopes430_0)" +"(let-values(((def-ctx-scopes426_0)" " #f)" -"((inner431_0)" +"((inner427_0)" "(root-expand-context/outer-inner" -" v_264)))" +" v_265)))" "(expand-context/outer1.1" -" inner431_0" +" inner427_0" "(root-expand-context/outer-post-expansion" " the-struct_112)" "(root-expand-context/outer-use-site-scopes" @@ -72897,7 +72883,7 @@ static const char *startup_source = " the-struct_112)" "(expand-context/outer-scopes" " the-struct_112)" -" def-ctx-scopes430_0" +" def-ctx-scopes426_0" "(expand-context/outer-binding-layer" " the-struct_112)" "(expand-context/outer-reference-records" @@ -72914,14 +72900,14 @@ static const char *startup_source = " the-struct_112)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_112))))))" "(expand9.1" " #f" " #f" " #f" -" mb428_0" -" temp429_0)))))" +" mb424_0" +" temp425_0)))))" "(let-values(((requires_6" " provides_13)" "(extract-requires-and-provides" @@ -72929,16 +72915,16 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_188)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_407" -" or-part_407" +"(if or-part_188" +" or-part_188" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" " #f" -" id:module-name229_0" +" id:module-name225_0" " self_32" " requires_6" " provides_13" @@ -72980,17 +72966,17 @@ static const char *startup_source = "(check-list" " lst_426)))" "((letrec-values(((for-loop_328)" -"(lambda(lst_302)" +"(lambda(lst_427)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" +" lst_427)" "(let-values(((mpi_55)" "(unsafe-car" -" lst_302))" +" lst_427))" "((rest_252)" "(unsafe-cdr" -" lst_302)))" +" lst_427)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73011,31 +72997,31 @@ static const char *startup_source = " lst_426)))" "(void)" "(let-values(((result-s_15)" -"(let-values(((rebuild-s432_0)" +"(let-values(((rebuild-s428_0)" " rebuild-s_14)" -"((temp433_0)" +"((temp429_0)" "(list" -" module228_0" -" id:module-name229_0" +" module224_0" +" id:module-name225_0" " initial-require-s_0" "(expanded+parsed-s" " expanded-mb_0))))" "(rebuild5.1" " #t" -" rebuild-s432_0" -" temp433_0))))" +" rebuild-s428_0" +" temp429_0))))" "(let-values(((result-s_16)" -"(let-values(((result-s434_0)" +"(let-values(((result-s430_0)" " result-s_15)" -"((self435_0)" +"((self431_0)" " self_32)" -"((generic-self436_0)" +"((generic-self432_0)" " generic-self_0))" "(syntax-module-path-index-shift13.1" " #f" -" result-s434_0" -" self435_0" -" generic-self436_0" +" result-s430_0" +" self431_0" +" generic-self432_0" " #f))))" "(let-values(((result-s_17)" "(attach-root-expand-context-properties" @@ -73052,14 +73038,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_135)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_132" +"(if obs_135" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_135" " 'rename-one" " result-s_18)))" "(void)))" @@ -73075,44 +73061,44 @@ static const char *startup_source = " result-s_14" " result-form_0))" "(let-values()" -" result-s_14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))" +" result-s_14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))" "(define-values" -"(ensure-module-begin36.1)" -"(lambda(ctx24_0 def-ctx-scopes25_0 m-ns23_0 module-name-sym21_0 phase26_3 s27_2 scopes-s22_0 bodys35_0)" +"(ensure-module-begin34.1)" +"(lambda(ctx22_0 def-ctx-scopes23_0 m-ns21_0 module-name-sym19_0 phase24_4 s25_0 scopes-s20_0 bodys33_0)" "(begin" -" 'ensure-module-begin36" -"(let-values(((bodys_18) bodys35_0))" -"(let-values(((module-name-sym_1) module-name-sym21_0))" -"(let-values(((scopes-s_0) scopes-s22_0))" +" 'ensure-module-begin34" +"(let-values(((bodys_18) bodys33_0))" +"(let-values(((module-name-sym_1) module-name-sym19_0))" +"(let-values(((scopes-s_0) scopes-s20_0))" "(let-values()" -"(let-values(((ctx_115) ctx24_0))" -"(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_149) phase26_3))" -"(let-values(((s_385) s27_2))" +"(let-values(((ctx_73) ctx22_0))" +"(let-values(((def-ctx-scopes_9) def-ctx-scopes23_0))" +"(let-values(((phase_147) phase24_4))" +"(let-values(((s_812) s25_0))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_265) ctx_115))" -"(let-values(((the-struct_113) v_265))" +"(let-values(((v_266) ctx_73))" +"(let-values(((the-struct_113) v_266))" "(if(expand-context/outer? the-struct_113)" -"(let-values(((context437_0) 'module-begin)" -"((only-immediate?438_0) #t)" -"((def-ctx-scopes439_0) def-ctx-scopes_9)" -"((inner440_0)(root-expand-context/outer-inner v_265)))" +"(let-values(((context433_0) 'module-begin)" +"((only-immediate?434_0) #t)" +"((def-ctx-scopes435_0) def-ctx-scopes_9)" +"((inner436_0)(root-expand-context/outer-inner v_266)))" "(expand-context/outer1.1" -" inner440_0" +" inner436_0" "(root-expand-context/outer-post-expansion the-struct_113)" "(root-expand-context/outer-use-site-scopes the-struct_113)" "(root-expand-context/outer-frame-id the-struct_113)" -" context437_0" +" context433_0" "(expand-context/outer-env the-struct_113)" "(expand-context/outer-scopes the-struct_113)" -" def-ctx-scopes439_0" +" def-ctx-scopes435_0" "(expand-context/outer-binding-layer the-struct_113)" "(expand-context/outer-reference-records the-struct_113)" -" only-immediate?438_0" +" only-immediate?434_0" "(expand-context/outer-need-eventually-defined the-struct_113)" "(expand-context/outer-current-introduction-scopes the-struct_113)" "(expand-context/outer-current-use-scopes the-struct_113)" @@ -73125,127 +73111,127 @@ static const char *startup_source = "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_133)(expand-context-observer ctx_115)))" -"(if obs_133" +"(let-values(((obs_136)(expand-context-observer ctx_73)))" +"(if obs_136" "(let-values()" "(let-values()" -"(call-expand-observe obs_133 'rename-one(car bodys_18))))" +"(call-expand-observe obs_136 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_149))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_147))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" "(let-values()" -"(let-values(((temp441_0)" +"(let-values(((temp437_0)" "(add-enclosing-name-property" "(car bodys_18)" " module-name-sym_1))" -"((temp442_0)(make-mb-ctx_0)))" -"(expand9.1 #f #f #f temp441_0 temp442_0)))))" +"((temp438_0)(make-mb-ctx_0)))" +"(expand9.1 #f #f #f temp437_0 temp438_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_149))" +" phase_147))" "(let-values() partly-expanded-body_0)" "(let-values()" -"(let-values(((temp443_0)(list partly-expanded-body_0))" -"((s444_0) s_385)" -"((scopes-s445_0) scopes-s_0)" -"((phase446_0) phase_149)" -"((module-name-sym447_0) module-name-sym_1)" -"((temp448_1)(make-mb-ctx_0))" -"((temp449_1) #f))" -"(add-module-begin47.1" -" temp449_1" -" temp443_0" -" s444_0" -" scopes-s445_0" -" phase446_0" -" module-name-sym447_0" -" temp448_1)))))))))" +"(let-values(((temp439_0)(list partly-expanded-body_0))" +"((s440_0) s_812)" +"((scopes-s441_0) scopes-s_0)" +"((phase442_0) phase_147)" +"((module-name-sym443_0) module-name-sym_1)" +"((temp444_0)(make-mb-ctx_0))" +"((temp445_0) #f))" +"(add-module-begin45.1" +" temp445_0" +" temp439_0" +" s440_0" +" scopes-s441_0" +" phase442_0" +" module-name-sym443_0" +" temp444_0)))))))))" "(let-values()" -"(let-values(((bodys450_0) bodys_18)" -"((s451_0) s_385)" -"((scopes-s452_0) scopes-s_0)" -"((phase453_0) phase_149)" -"((module-name-sym454_0) module-name-sym_1)" -"((temp455_0)(make-mb-ctx_0)))" -"(add-module-begin47.1" +"(let-values(((bodys446_0) bodys_18)" +"((s447_0) s_812)" +"((scopes-s448_0) scopes-s_0)" +"((phase449_0) phase_147)" +"((module-name-sym450_0) module-name-sym_1)" +"((temp451_0)(make-mb-ctx_0)))" +"(add-module-begin45.1" " #t" -" bodys450_0" -" s451_0" -" scopes-s452_0" -" phase453_0" -" module-name-sym454_0" -" temp455_0))))))" +" bodys446_0" +" s447_0" +" scopes-s448_0" +" phase449_0" +" module-name-sym450_0" +" temp451_0))))))" "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" "(define-values" -"(add-module-begin47.1)" -"(lambda(log-rename-one?39_0 bodys41_0 s42_0 scopes-s43_0 phase44_0 module-name-sym45_0 mb-ctx46_0)" +"(add-module-begin45.1)" +"(lambda(log-rename-one?37_0 bodys39_0 s40_1 scopes-s41_0 phase42_1 module-name-sym43_0 mb-ctx44_0)" "(begin" -" 'add-module-begin47" -"(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_193) s42_0))" -"(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_150) 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))" +" 'add-module-begin45" +"(let-values(((bodys_19) bodys39_0))" +"(let-values(((s_813) s40_1))" +"(let-values(((scopes-s_1) scopes-s41_0))" +"(let-values(((phase_106) phase42_1))" +"(let-values(((module-name-sym_2) module-name-sym43_0))" +"(let-values(((mb-ctx_1) mb-ctx44_0))" +"(let-values(((log-rename-one?_0) log-rename-one?37_0))" "(let-values()" "(let-values(((disarmed-scopes-s_0)(syntax-disarm$1 scopes-s_1)))" "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id456_0) mb-id_0)((phase457_0) phase_150))" -"(resolve40.1 #f #f null #f mb-id456_0 phase457_0))" +"(if(let-values(((mb-id452_0) mb-id_0)((phase453_0) phase_106))" +"(resolve40.1 #f #f null #f mb-id452_0 phase453_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_193)))" +" s_813)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_193 s_193)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_813 s_813)))" "(let-values((()" "(begin" -"(let-values(((obs_134)(expand-context-observer mb-ctx_1)))" -"(if obs_134" +"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" +"(if obs_137" "(let-values()" -"(let-values()(call-expand-observe obs_134 'tag mb_2)))" +"(let-values()(call-expand-observe obs_137 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" -"(if obs_135" +"(let-values(((obs_138)(expand-context-observer mb-ctx_1)))" +"(if obs_138" "(let-values()" "(let-values()" -"(call-expand-observe obs_135 'rename-one mb_2)))" +"(call-expand-observe obs_138 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" "(let-values(((partly-expanded-mb_0)" "(let-values()" -"(let-values(((temp458_0)" +"(let-values(((temp454_1)" "(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx459_0) mb-ctx_1))" -"(expand9.1 #f #f #f temp458_0 mb-ctx459_0)))))" +"((mb-ctx455_0) mb-ctx_1))" +"(expand9.1 #f #f #f temp454_1 mb-ctx455_0)))))" "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_150))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_106))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_193" +" s_813" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73261,95 +73247,95 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_811)" +"(lambda(s_814)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_811" +" s_814" "(remove-use-site-scopes" -"(remove-scopes s_811(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_814(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" "(let-values(((s-with-suitable-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" "(let-values()" -"(let-values(((s-with-edges464_0) s-with-edges_0)" -"((enclosing-self465_0) enclosing-self_2)" -"((enclosing-mod466_0) enclosing-mod_2))" +"(let-values(((s-with-edges460_0) s-with-edges_0)" +"((enclosing-self461_0) enclosing-self_2)" +"((enclosing-mod462_0) enclosing-mod_2))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-edges464_0" -" enclosing-self465_0" -" enclosing-mod466_0" +" s-with-edges460_0" +" enclosing-self461_0" +" enclosing-mod462_0" " #f)))" "(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing460_0) s-with-suitable-enclosing_0)" -"((temp461_0)(make-generic-self-module-path-index self_33))" -"((self462_0) self_33)" -"((temp463_1)(current-code-inspector)))" +"(let-values(((s-with-suitable-enclosing456_0) s-with-suitable-enclosing_0)" +"((temp457_0)(make-generic-self-module-path-index self_33))" +"((self458_0) self_33)" +"((temp459_0)(current-code-inspector)))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-suitable-enclosing460_0" -" temp461_0" -" self462_0" -" temp463_1))))))))))" +" s-with-suitable-enclosing456_0" +" temp457_0" +" self458_0" +" temp459_0))))))))))" "(define-values" -"(partially-expand-bodys81.1)" -"(lambda(all-scopes-stx57_0" -" compiled-submodules61_0" -" ctx51_0" -" declared-keywords59_0" -" declared-submodule-names60_0" -" defined-syms58_0" -" frame-id54_0" -" loop64_0" -" modules-being-compiled62_0" -" mpis-to-reset63_0" -" namespace52_0" -" need-eventually-defined56_0" -" phase50_0" -" requires-and-provides55_0" -" self53_0" -" bodys80_0)" +"(partially-expand-bodys79.1)" +"(lambda(all-scopes-stx55_0" +" compiled-submodules59_0" +" ctx49_1" +" declared-keywords57_0" +" declared-submodule-names58_0" +" defined-syms56_0" +" frame-id52_0" +" loop62_0" +" modules-being-compiled60_0" +" mpis-to-reset61_0" +" namespace50_0" +" need-eventually-defined54_0" +" phase48_2" +" requires-and-provides53_0" +" self51_0" +" bodys78_0)" "(begin" -" 'partially-expand-bodys81" -"(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_108) phase50_0))" -"(let-values(((partial-body-ctx_1) ctx51_0))" -"(let-values(((m-ns_20) namespace52_0))" -"(let-values(((self_34) self53_0))" -"(let-values(((frame-id_17) frame-id54_0))" -"(let-values(((requires+provides_7) requires-and-provides55_0))" -"(let-values(((need-eventually-defined_2) need-eventually-defined56_0))" -"(let-values(((all-scopes-stx_5) all-scopes-stx57_0))" -"(let-values(((defined-syms_12) defined-syms58_0))" -"(let-values(((declared-keywords_1) declared-keywords59_0))" -"(let-values(((declared-submodule-names_4) declared-submodule-names60_0))" -"(let-values(((compiled-submodules_2) compiled-submodules61_0))" -"(let-values(((modules-being-compiled_4) modules-being-compiled62_0))" -"(let-values(((mpis-to-reset_1) mpis-to-reset63_0))" -"(let-values(((pass-1-and-2-loop_1) loop64_0))" +" 'partially-expand-bodys79" +"(let-values(((bodys_20) bodys78_0))" +"(let-values(((phase_148) phase48_2))" +"(let-values(((partial-body-ctx_1) ctx49_1))" +"(let-values(((m-ns_20) namespace50_0))" +"(let-values(((self_34) self51_0))" +"(let-values(((frame-id_17) frame-id52_0))" +"(let-values(((requires+provides_7) requires-and-provides53_0))" +"(let-values(((need-eventually-defined_2) need-eventually-defined54_0))" +"(let-values(((all-scopes-stx_5) all-scopes-stx55_0))" +"(let-values(((defined-syms_12) defined-syms56_0))" +"(let-values(((declared-keywords_1) declared-keywords57_0))" +"(let-values(((declared-submodule-names_4) declared-submodule-names58_0))" +"(let-values(((compiled-submodules_2) compiled-submodules59_0))" +"(let-values(((modules-being-compiled_4) modules-being-compiled60_0))" +"(let-values(((mpis-to-reset_1) mpis-to-reset61_0))" +"(let-values(((pass-1-and-2-loop_1) loop62_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_108)" +"(namespace-visit-available-modules! m-ns_20 phase_148)" "((letrec-values(((loop_122)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_108)) #f)" +"(if(if tail?_53(not(zero? phase_148)) #f)" "(let-values()" "(begin" -"(let-values(((obs_93)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_93" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_93" +" obs_139" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73365,14 +73351,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_136)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_136" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_136" +" obs_140" " 'module-lift-end-loop" " bodys_22)))" "(void)))" @@ -73389,29 +73375,29 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_137)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_137" +" obs_141" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_7)" "(let-values()" -"(let-values(((temp467_0)" +"(let-values(((temp463_1)" "(car bodys_21))" -"((partial-body-ctx468_0)" +"((partial-body-ctx464_0)" " partial-body-ctx_1))" "(expand9.1" " #f" " #f" " #f" -" temp467_0" -" partial-body-ctx468_0)))))" +" temp463_1" +" partial-body-ctx464_0)))))" "(let-values(((disarmed-exp-body_1)" "(syntax-disarm$1 exp-body_7)))" "(let-values(((lifted-defns_0)" @@ -73427,14 +73413,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_138)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_142" " 'rename-one" " exp-body_7)))" "(void)))" @@ -73442,69 +73428,69 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_23)" +"(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_1" -" phase_108)))" +" phase_148)))" "(if(equal?" -" tmp_23" +" tmp_64" " 'begin)" "(let-values()" "(let-values(((ok?_81" -" begin469_0" -" e470_0)" -"(let-values(((s_812)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_85)" -" s_812))" -"(let-values(((begin469_1" -" e470_1)" -"(let-values(((s_813)" -"(if(syntax?$1" -" s_812)" -"(syntax-e$1" -" s_812)" -" s_812)))" -"(if(pair?" -" s_813)" -"(let-values(((begin471_0)" -"(let-values(((s_814)" -"(car" -" s_813)))" -" s_814))" -"((e472_0)" +" begin465_0" +" e466_0)" "(let-values(((s_815)" -"(cdr" -" s_813)))" +" disarmed-exp-body_1))" +"(let-values(((orig-s_83)" +" s_815))" +"(let-values(((begin465_1" +" e466_1)" "(let-values(((s_816)" "(if(syntax?$1" " s_815)" "(syntax-e$1" " s_815)" " s_815)))" -"(let-values(((flat-s_58)" -"(to-syntax-list.1" +"(if(pair?" +" s_816)" +"(let-values(((begin467_0)" +"(let-values(((s_817)" +"(car" " s_816)))" +" s_817))" +"((e468_0)" +"(let-values(((s_818)" +"(cdr" +" s_816)))" +"(let-values(((s_819)" +"(if(syntax?$1" +" s_818)" +"(syntax-e$1" +" s_818)" +" s_818)))" +"(let-values(((flat-s_57)" +"(to-syntax-list.1" +" s_819)))" "(if(not" -" flat-s_58)" +" flat-s_57)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))" +" orig-s_83))" "(let-values()" -" flat-s_58)))))))" +" flat-s_57)))))))" "(values" -" begin471_0" -" e472_0))" +" begin467_0" +" e468_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85)))))" +" orig-s_83)))))" "(values" " #t" -" begin469_1" -" e470_1))))))" +" begin465_1" +" e466_1))))))" "(let-values(((track_1)" "(lambda(e_94)" "(begin" @@ -73516,157 +73502,9 @@ static const char *startup_source = "(append" "(map2" " track_1" -" e470_0)" +" e466_0)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_139)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_139" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_139" -" 'splice" -" spliced-bodys_0)))" -"(void)))" -"(loop_122" -" tail?_53" -" spliced-bodys_0))))))" -"(if(equal?" -" tmp_23" -" 'begin-for-syntax)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_140)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_140" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_140" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_140" -" 'prim-begin-for-syntax)" -"(call-expand-observe" -" obs_140" -" 'prepare-env))))" -"(void)))" -"(values))))" -"(let-values(((ct-m-ns_0)" -"(namespace->namespace-at-phase" -" m-ns_20" -"(add1" -" phase_108))))" -"(let-values((()" -"(begin" -"(prepare-next-phase-namespace" -" partial-body-ctx_1)" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_141)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_141" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_141" -" 'phase-up)))" -"(void)))" -"(values))))" -"(let-values(((ok?_82" -" begin-for-syntax473_0" -" e474_0)" -"(let-values(((s_817)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_86)" -" s_817))" -"(let-values(((begin-for-syntax473_1" -" e474_1)" -"(let-values(((s_818)" -"(if(syntax?$1" -" s_817)" -"(syntax-e$1" -" s_817)" -" s_817)))" -"(if(pair?" -" s_818)" -"(let-values(((begin-for-syntax475_0)" -"(let-values(((s_819)" -"(car" -" s_818)))" -" s_819))" -"((e476_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_821)))" -"(if(not" -" flat-s_59)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_86))" -"(let-values()" -" flat-s_59)))))))" -"(values" -" begin-for-syntax475_0" -" e476_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_86)))))" -"(values" -" #t" -" begin-for-syntax473_1" -" e474_1))))))" -"(let-values(((nested-bodys_1)" -"(pass-1-and-2-loop_1" -" e474_0" -"(add1" -" phase_108)" -" #f)))" -"(begin" -"(let-values(((obs_142)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_142" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_142" -" 'next-group)))" -"(void)))" -"(namespace-run-available-modules!" -" m-ns_20" -"(add1" -" phase_108))" -"(eval-nested-bodys" -" nested-bodys_1" -"(add1" -" phase_108)" -" ct-m-ns_0" -" self_34" -" partial-body-ctx_1)" -"(namespace-visit-available-modules!" -" m-ns_20" -" phase_108)" "(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73675,70 +73513,15 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_143" -" 'exit-prim" -"(let-values(((s-nested-bodys_0)" -"(reverse$1" -"(let-values(((lst_427)" -" nested-bodys_1))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_427)))" -"((letrec-values(((for-loop_329)" -"(lambda(fold-var_357" -" lst_388)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_388)" -"(let-values(((nested-body_0)" -"(unsafe-car" -" lst_388))" -"((rest_253)" -"(unsafe-cdr" -" lst_388)))" -"(let-values(((fold-var_376)" -"(let-values(((fold-var_377)" -" fold-var_357))" -"(let-values(((fold-var_378)" -"(let-values()" -"(cons" -"(let-values()" -"(extract-syntax" -" nested-body_0))" -" fold-var_377))))" -"(values" -" fold-var_378)))))" -"(if(not" -" #f)" -"(for-loop_329" -" fold-var_376" -" rest_253)" -" fold-var_376)))" -" fold-var_357)))))" -" for-loop_329)" -" null" -" lst_427))))))" -"(datum->syntax$1" -" #f" -"(cons" -" begin-for-syntax473_0" -" s-nested-bodys_0)" -" exp-body_7)))))" +" 'splice" +" spliced-bodys_0)))" "(void)))" -"(cons" -"(semi-parsed-begin-for-syntax3.1" -" exp-body_7" -" nested-bodys_1)" "(loop_122" " tail?_53" -" rest-bodys_1))))))))))" +" spliced-bodys_0))))))" "(if(equal?" -" tmp_23" -" 'define-values)" +" tmp_64" +" 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" @@ -73755,308 +73538,24 @@ static const char *startup_source = " exp-body_7)" "(call-expand-observe" " obs_144" -" 'prim-define-values))))" +" 'prim-begin-for-syntax)" +"(call-expand-observe" +" obs_144" +" 'prepare-env))))" "(void)))" "(values))))" -"(let-values(((ok?_83" -" define-values477_0" -" id478_0" -" rhs479_0)" -"(let-values(((s_822)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_87)" -" s_822))" -"(let-values(((define-values477_1" -" id478_1" -" rhs479_1)" -"(let-values(((s_823)" -"(if(syntax?$1" -" s_822)" -"(syntax-e$1" -" s_822)" -" s_822)))" -"(if(pair?" -" s_823)" -"(let-values(((define-values480_0)" -"(let-values(((s_824)" -"(car" -" s_823)))" -" s_824))" -"((id481_0" -" rhs482_0)" -"(let-values(((s_825)" -"(cdr" -" s_823)))" -"(let-values(((s_826)" -"(if(syntax?$1" -" s_825)" -"(syntax-e$1" -" s_825)" -" s_825)))" -"(if(pair?" -" s_826)" -"(let-values(((id483_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_828)))" -"(if(not" -" flat-s_60)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))" -"(let-values()" -"(let-values(((id_146)" -"(let-values(((lst_428)" -" flat-s_60))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_428)))" -"((letrec-values(((for-loop_330)" -"(lambda(id_147" -" lst_71)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_71)" -"(let-values(((s_829)" -"(unsafe-car" -" lst_71))" -"((rest_254)" -"(unsafe-cdr" -" lst_71)))" -"(let-values(((id_148)" -"(let-values(((id_149)" -" id_147))" -"(let-values(((id_150)" -"(let-values()" -"(let-values(((id496_0)" -"(let-values()" -"(if(let-values(((or-part_408)" -"(if(syntax?$1" -" s_829)" -"(symbol?" -"(syntax-e$1" -" s_829))" -" #f)))" -"(if or-part_408" -" or-part_408" -"(symbol?" -" s_829)))" -" s_829" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_87" -" s_829)))))" -"(cons" -" id496_0" -" id_149)))))" -"(values" -" id_150)))))" -"(if(not" -" #f)" -"(for-loop_330" -" id_148" -" rest_254)" -" id_148)))" -" id_147)))))" -" for-loop_330)" -" null" -" lst_428)))))" -"(reverse$1" -" id_146))))))))" -"((rhs484_0)" -"(let-values(((s_830)" -"(cdr" -" s_826)))" -"(let-values(((s_831)" -"(if(syntax?$1" -" s_830)" -"(syntax-e$1" -" s_830)" -" s_830)))" -"(if(pair?" -" s_831)" -"(let-values(((rhs485_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" -" \"bad syntax\"" -" orig-s_87))))))" -"(values" -" rhs485_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))))))" -"(values" -" id483_0" -" rhs484_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))))))" -"(values" -" define-values480_0" -" id481_0" -" rhs482_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87)))))" -"(values" -" #t" -" define-values477_1" -" id478_1" -" rhs479_1))))))" -"(let-values(((ids_44)" -"(remove-use-site-scopes" -" id478_0" -" partial-body-ctx_1)))" -"(let-values((()" -"(begin" -"(let-values(((ids486_0)" -" ids_44)" -"((phase487_0)" -" phase_108)" -"((exp-body488_0)" -" exp-body_7))" -"(check-no-duplicate-ids7.1" -" unsafe-undefined" -" ids486_0" -" phase487_0" -" exp-body488_0" -" unsafe-undefined))" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((ids489_0)" -" ids_44)" -"((phase490_0)" -" phase_108)" -"((requires+provides491_0)" -" requires+provides_7)" -"((exp-body492_0)" -" exp-body_7))" -"(check-ids-unbound173.1" -" exp-body492_0" -" ids489_0" -" phase490_0" -" requires+provides491_0))" -"(values))))" -"(let-values(((syms_23)" -"(let-values(((ids497_0)" -" ids_44)" -"((defined-syms498_0)" -" defined-syms_12)" -"((self499_0)" -" self_34)" -"((phase500_0)" -" phase_108)" -"((all-scopes-stx501_0)" -" all-scopes-stx_5)" -"((frame-id502_0)" -" frame-id_17)" -"((requires+provides503_0)" -" requires+provides_7)" -"((exp-body504_0)" -" exp-body_7))" -"(select-defined-syms-and-bind!16.1" -" #f" -" frame-id502_0" -" exp-body504_0" -" requires+provides503_0" -" #f" -" ids497_0" -" defined-syms498_0" -" self499_0" -" phase500_0" -" all-scopes-stx501_0))))" -"(begin" -"(let-values(((lst_429)" -" syms_23))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_429)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_430)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_430)" -"(let-values(((sym_110)" -"(unsafe-car" -" lst_430))" -"((rest_255)" -"(unsafe-cdr" -" lst_430)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(namespace-unset-transformer!" +"(let-values(((ct-m-ns_0)" +"(namespace->namespace-at-phase" " m-ns_20" -" phase_108" -" sym_110))" -"(values)))))" -"(values)))))" -"(if(not" -" #f)" -"(for-loop_331" -" rest_255)" +"(add1" +" phase_148))))" +"(let-values((()" +"(begin" +"(prepare-next-phase-namespace" +" partial-body-ctx_1)" "(values))))" -"(values))))))" -" for-loop_331)" -" lst_429)))" -"(void)" -"(let-values(((requires+provides493_0)" -" requires+provides_7)" -"((syms494_0)" -" syms_23)" -"((phase495_0)" -" phase_108))" -"(add-defined-syms!103.1" -" #f" -" requires+provides493_0" -" syms494_0" -" phase495_0))" +"(let-values((()" +"(begin" "(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74065,29 +73564,70 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_145" -" 'exit-prim" -"(datum->syntax$1" -" #f" -"(list" -" define-values477_0" -" ids_44" -" rhs479_0)" -" exp-body_7))))" +" 'phase-up)))" "(void)))" -"(cons" -"(semi-parsed-define-values2.1" -" exp-body_7" -" syms_23" -" ids_44" -" rhs479_0)" -"(loop_122" -" tail?_53" -" rest-bodys_1))))))))))" -"(if(equal?" -" tmp_23" -" 'define-syntaxes)" +"(values))))" +"(let-values(((ok?_82" +" begin-for-syntax469_0" +" e470_0)" +"(let-values(((s_820)" +" disarmed-exp-body_1))" +"(let-values(((orig-s_84)" +" s_820))" +"(let-values(((begin-for-syntax469_1" +" e470_1)" +"(let-values(((s_821)" +"(if(syntax?$1" +" s_820)" +"(syntax-e$1" +" s_820)" +" s_820)))" +"(if(pair?" +" s_821)" +"(let-values(((begin-for-syntax471_0)" +"(let-values(((s_822)" +"(car" +" s_821)))" +" s_822))" +"((e472_0)" +"(let-values(((s_823)" +"(cdr" +" s_821)))" +"(let-values(((s_824)" +"(if(syntax?$1" +" s_823)" +"(syntax-e$1" +" s_823)" +" s_823)))" +"(let-values(((flat-s_58)" +"(to-syntax-list.1" +" s_824)))" +"(if(not" +" flat-s_58)" "(let-values()" -"(let-values((()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_84))" +"(let-values()" +" flat-s_58)))))))" +"(values" +" begin-for-syntax471_0" +" e472_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_84)))))" +"(values" +" #t" +" begin-for-syntax469_1" +" e470_1))))))" +"(let-values(((nested-bodys_1)" +"(pass-1-and-2-loop_1" +" e470_0" +"(add1" +" phase_148)" +" #f)))" "(begin" "(let-values(((obs_146)" "(expand-context-observer" @@ -74095,16 +73635,462 @@ static const char *startup_source = "(if obs_146" "(let-values()" "(let-values()" -"(begin" "(call-expand-observe" " obs_146" +" 'next-group)))" +"(void)))" +"(namespace-run-available-modules!" +" m-ns_20" +"(add1" +" phase_148))" +"(eval-nested-bodys" +" nested-bodys_1" +"(add1" +" phase_148)" +" ct-m-ns_0" +" self_34" +" partial-body-ctx_1)" +"(namespace-visit-available-modules!" +" m-ns_20" +" phase_148)" +"(let-values(((obs_147)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_147" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_147" +" 'exit-prim" +"(let-values(((s-nested-bodys_0)" +"(reverse$1" +"(let-values(((lst_428)" +" nested-bodys_1))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_428)))" +"((letrec-values(((for-loop_154)" +"(lambda(fold-var_376" +" lst_429)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_429)" +"(let-values(((nested-body_0)" +"(unsafe-car" +" lst_429))" +"((rest_253)" +"(unsafe-cdr" +" lst_429)))" +"(let-values(((fold-var_377)" +"(let-values(((fold-var_378)" +" fold-var_376))" +"(let-values(((fold-var_355)" +"(let-values()" +"(cons" +"(let-values()" +"(extract-syntax" +" nested-body_0))" +" fold-var_378))))" +"(values" +" fold-var_355)))))" +"(if(not" +" #f)" +"(for-loop_154" +" fold-var_377" +" rest_253)" +" fold-var_377)))" +" fold-var_376)))))" +" for-loop_154)" +" null" +" lst_428))))))" +"(datum->syntax$1" +" #f" +"(cons" +" begin-for-syntax469_0" +" s-nested-bodys_0)" +" exp-body_7)))))" +"(void)))" +"(cons" +"(semi-parsed-begin-for-syntax3.1" +" exp-body_7" +" nested-bodys_1)" +"(loop_122" +" tail?_53" +" rest-bodys_1))))))))))" +"(if(equal?" +" tmp_64" +" 'define-values)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_148)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_148" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_148" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_146" +" obs_148" +" 'prim-define-values))))" +"(void)))" +"(values))))" +"(let-values(((ok?_83" +" define-values473_0" +" id474_0" +" rhs475_0)" +"(let-values(((s_825)" +" disarmed-exp-body_1))" +"(let-values(((orig-s_85)" +" s_825))" +"(let-values(((define-values473_1" +" id474_1" +" rhs475_1)" +"(let-values(((s_826)" +"(if(syntax?$1" +" s_825)" +"(syntax-e$1" +" s_825)" +" s_825)))" +"(if(pair?" +" s_826)" +"(let-values(((define-values476_0)" +"(let-values(((s_827)" +"(car" +" s_826)))" +" s_827))" +"((id477_0" +" rhs478_0)" +"(let-values(((s_828)" +"(cdr" +" s_826)))" +"(let-values(((s_829)" +"(if(syntax?$1" +" s_828)" +"(syntax-e$1" +" s_828)" +" s_828)))" +"(if(pair?" +" s_829)" +"(let-values(((id479_0)" +"(let-values(((s_830)" +"(car" +" s_829)))" +"(let-values(((s_831)" +"(if(syntax?$1" +" s_830)" +"(syntax-e$1" +" s_830)" +" s_830)))" +"(let-values(((flat-s_59)" +"(to-syntax-list.1" +" s_831)))" +"(if(not" +" flat-s_59)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85))" +"(let-values()" +"(let-values(((id_146)" +"(let-values(((lst_430)" +" flat-s_59))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_430)))" +"((letrec-values(((for-loop_329)" +"(lambda(id_147" +" lst_431)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_431)" +"(let-values(((s_832)" +"(unsafe-car" +" lst_431))" +"((rest_254)" +"(unsafe-cdr" +" lst_431)))" +"(let-values(((id_148)" +"(let-values(((id_149)" +" id_147))" +"(let-values(((id_150)" +"(let-values()" +"(let-values(((id492_0)" +"(let-values()" +"(if(let-values(((or-part_409)" +"(if(syntax?$1" +" s_832)" +"(symbol?" +"(syntax-e$1" +" s_832))" +" #f)))" +"(if or-part_409" +" or-part_409" +"(symbol?" +" s_832)))" +" s_832" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_85" +" s_832)))))" +"(cons" +" id492_0" +" id_149)))))" +"(values" +" id_150)))))" +"(if(not" +" #f)" +"(for-loop_329" +" id_148" +" rest_254)" +" id_148)))" +" id_147)))))" +" for-loop_329)" +" null" +" lst_430)))))" +"(reverse$1" +" id_146))))))))" +"((rhs480_0)" +"(let-values(((s_833)" +"(cdr" +" s_829)))" +"(let-values(((s_834)" +"(if(syntax?$1" +" s_833)" +"(syntax-e$1" +" s_833)" +" s_833)))" +"(if(pair?" +" s_834)" +"(let-values(((rhs481_0)" +"(let-values(((s_835)" +"(car" +" s_834)))" +" s_835))" +"(()" +"(let-values(((s_836)" +"(cdr" +" s_834)))" +"(let-values(((s_837)" +"(if(syntax?$1" +" s_836)" +"(syntax-e$1" +" s_836)" +" s_836)))" +"(if(null?" +" s_837)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85))))))" +"(values" +" rhs481_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85))))))" +"(values" +" id479_0" +" rhs480_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85))))))" +"(values" +" define-values476_0" +" id477_0" +" rhs478_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85)))))" +"(values" +" #t" +" define-values473_1" +" id474_1" +" rhs475_1))))))" +"(let-values(((ids_44)" +"(remove-use-site-scopes" +" id474_0" +" partial-body-ctx_1)))" +"(let-values((()" +"(begin" +"(let-values(((ids482_0)" +" ids_44)" +"((phase483_0)" +" phase_148)" +"((exp-body484_0)" +" exp-body_7))" +"(check-no-duplicate-ids7.1" +" unsafe-undefined" +" ids482_0" +" phase483_0" +" exp-body484_0" +" unsafe-undefined))" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((ids485_0)" +" ids_44)" +"((phase486_0)" +" phase_148)" +"((requires+provides487_0)" +" requires+provides_7)" +"((exp-body488_0)" +" exp-body_7))" +"(check-ids-unbound171.1" +" exp-body488_0" +" ids485_0" +" phase486_0" +" requires+provides487_0))" +"(values))))" +"(let-values(((syms_23)" +"(let-values(((ids493_0)" +" ids_44)" +"((defined-syms494_0)" +" defined-syms_12)" +"((self495_0)" +" self_34)" +"((phase496_0)" +" phase_148)" +"((all-scopes-stx497_0)" +" all-scopes-stx_5)" +"((frame-id498_0)" +" frame-id_17)" +"((requires+provides499_0)" +" requires+provides_7)" +"((exp-body500_0)" +" exp-body_7))" +"(select-defined-syms-and-bind!16.1" +" #f" +" frame-id498_0" +" exp-body500_0" +" requires+provides499_0" +" #f" +" ids493_0" +" defined-syms494_0" +" self495_0" +" phase496_0" +" all-scopes-stx497_0))))" +"(begin" +"(let-values(((lst_432)" +" syms_23))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_432)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_260)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_260)" +"(let-values(((sym_23)" +"(unsafe-car" +" lst_260))" +"((rest_142)" +"(unsafe-cdr" +" lst_260)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(namespace-unset-transformer!" +" m-ns_20" +" phase_148" +" sym_23))" +"(values)))))" +"(values)))))" +"(if(not" +" #f)" +"(for-loop_330" +" rest_142)" +"(values))))" +"(values))))))" +" for-loop_330)" +" lst_432)))" +"(void)" +"(let-values(((requires+provides489_0)" +" requires+provides_7)" +"((syms490_0)" +" syms_23)" +"((phase491_0)" +" phase_148))" +"(add-defined-syms!103.1" +" #f" +" requires+provides489_0" +" syms490_0" +" phase491_0))" +"(let-values(((obs_149)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_149" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_149" +" 'exit-prim" +"(datum->syntax$1" +" #f" +"(list" +" define-values473_0" +" ids_44" +" rhs475_0)" +" exp-body_7))))" +"(void)))" +"(cons" +"(semi-parsed-define-values2.1" +" exp-body_7" +" syms_23" +" ids_44" +" rhs475_0)" +"(loop_122" +" tail?_53" +" rest-bodys_1))))))))))" +"(if(equal?" +" tmp_64" +" 'define-syntaxes)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_150)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_150" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_150" +" 'enter-prim" +" exp-body_7)" +"(call-expand-observe" +" obs_150" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_146" +" obs_150" " 'prepare-env))))" "(void)))" "(values))))" @@ -74115,46 +74101,28 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_147" +" obs_151" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_84" -" define-syntaxes505_0" -" id506_0" -" rhs507_0)" -"(let-values(((s_835)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_88)" -" s_835))" -"(let-values(((define-syntaxes505_1" -" id506_1" -" rhs507_1)" -"(let-values(((s_836)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" -"(if(pair?" -" s_836)" -"(let-values(((define-syntaxes508_0)" -"(let-values(((s_837)" -"(car" -" s_836)))" -" s_837))" -"((id509_0" -" rhs510_0)" +" define-syntaxes501_0" +" id502_0" +" rhs503_0)" "(let-values(((s_838)" -"(cdr" -" s_836)))" +" disarmed-exp-body_1))" +"(let-values(((orig-s_86)" +" s_838))" +"(let-values(((define-syntaxes501_1" +" id502_1" +" rhs503_1)" "(let-values(((s_839)" "(if(syntax?$1" " s_838)" @@ -74163,261 +74131,279 @@ static const char *startup_source = " s_838)))" "(if(pair?" " s_839)" -"(let-values(((id511_0)" +"(let-values(((define-syntaxes504_0)" "(let-values(((s_840)" "(car" " s_839)))" +" s_840))" +"((id505_0" +" rhs506_0)" "(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_841)))" -"(if(not" -" flat-s_61)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_88))" -"(let-values()" -"(let-values(((id_151)" -"(let-values(((lst_431)" -" flat-s_61))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_431)))" -"((letrec-values(((for-loop_332)" -"(lambda(id_152" -" lst_432)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_432)" -"(let-values(((s_842)" -"(unsafe-car" -" lst_432))" -"((rest_256)" -"(unsafe-cdr" -" lst_432)))" -"(let-values(((id_153)" -"(let-values(((id_154)" -" id_152))" -"(let-values(((id_155)" -"(let-values()" -"(let-values(((id525_0)" -"(let-values()" -"(if(let-values(((or-part_409)" -"(if(syntax?$1" -" s_842)" -"(symbol?" -"(syntax-e$1" -" s_842))" -" #f)))" -"(if or-part_409" -" or-part_409" -"(symbol?" -" s_842)))" -" s_842" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_88" -" s_842)))))" -"(cons" -" id525_0" -" id_154)))))" -"(values" -" id_155)))))" -"(if(not" -" #f)" -"(for-loop_332" -" id_153" -" rest_256)" -" id_153)))" -" id_152)))))" -" for-loop_332)" -" null" -" lst_431)))))" -"(reverse$1" -" id_151))))))))" -"((rhs512_0)" -"(let-values(((s_843)" "(cdr" " s_839)))" +"(let-values(((s_842)" +"(if(syntax?$1" +" s_841)" +"(syntax-e$1" +" s_841)" +" s_841)))" +"(if(pair?" +" s_842)" +"(let-values(((id507_0)" +"(let-values(((s_843)" +"(car" +" s_842)))" "(let-values(((s_844)" "(if(syntax?$1" " s_843)" "(syntax-e$1" " s_843)" " s_843)))" -"(if(pair?" -" s_844)" -"(let-values(((rhs513_0)" -"(let-values(((s_845)" -"(car" +"(let-values(((flat-s_60)" +"(to-syntax-list.1" " s_844)))" +"(if(not" +" flat-s_60)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_86))" +"(let-values()" +"(let-values(((id_151)" +"(let-values(((lst_433)" +" flat-s_60))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_433)))" +"((letrec-values(((for-loop_331)" +"(lambda(id_152" +" lst_434)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_434)" +"(let-values(((s_845)" +"(unsafe-car" +" lst_434))" +"((rest_255)" +"(unsafe-cdr" +" lst_434)))" +"(let-values(((id_153)" +"(let-values(((id_154)" +" id_152))" +"(let-values(((id_155)" +"(let-values()" +"(let-values(((id521_0)" +"(let-values()" +"(if(let-values(((or-part_410)" +"(if(syntax?$1" +" s_845)" +"(symbol?" +"(syntax-e$1" " s_845))" -"(()" +" #f)))" +"(if or-part_410" +" or-part_410" +"(symbol?" +" s_845)))" +" s_845" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_86" +" s_845)))))" +"(cons" +" id521_0" +" id_154)))))" +"(values" +" id_155)))))" +"(if(not" +" #f)" +"(for-loop_331" +" id_153" +" rest_255)" +" id_153)))" +" id_152)))))" +" for-loop_331)" +" null" +" lst_433)))))" +"(reverse$1" +" id_151))))))))" +"((rhs508_0)" "(let-values(((s_846)" "(cdr" -" s_844)))" +" s_842)))" "(let-values(((s_847)" "(if(syntax?$1" " s_846)" "(syntax-e$1" " s_846)" " s_846)))" -"(if(null?" +"(if(pair?" " s_847)" +"(let-values(((rhs509_0)" +"(let-values(((s_848)" +"(car" +" s_847)))" +" s_848))" +"(()" +"(let-values(((s_849)" +"(cdr" +" s_847)))" +"(let-values(((s_850)" +"(if(syntax?$1" +" s_849)" +"(syntax-e$1" +" s_849)" +" s_849)))" +"(if(null?" +" s_850)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))))))" +" orig-s_86))))))" "(values" -" rhs513_0))" +" rhs509_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))))))" +" orig-s_86))))))" "(values" -" id511_0" -" rhs512_0))" +" id507_0" +" rhs508_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))))))" +" orig-s_86))))))" "(values" -" define-syntaxes508_0" -" id509_0" -" rhs510_0))" +" define-syntaxes504_0" +" id505_0" +" rhs506_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88)))))" +" orig-s_86)))))" "(values" " #t" -" define-syntaxes505_1" -" id506_1" -" rhs507_1))))))" +" define-syntaxes501_1" +" id502_1" +" rhs503_1))))))" "(let-values(((ids_45)" "(remove-use-site-scopes" -" id506_0" +" id502_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids514_0)" +"(let-values(((ids510_0)" " ids_45)" -"((phase515_0)" -" phase_108)" -"((exp-body516_0)" +"((phase511_0)" +" phase_148)" +"((exp-body512_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids514_0" -" phase515_0" -" exp-body516_0" +" ids510_0" +" phase511_0" +" exp-body512_0" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids517_0)" +"(let-values(((ids513_0)" " ids_45)" -"((phase518_0)" -" phase_108)" -"((requires+provides519_0)" +"((phase514_0)" +" phase_148)" +"((requires+provides515_0)" " requires+provides_7)" -"((exp-body520_0)" +"((exp-body516_0)" " exp-body_7))" -"(check-ids-unbound173.1" -" exp-body520_0" -" ids517_0" -" phase518_0" -" requires+provides519_0))" +"(check-ids-unbound171.1" +" exp-body516_0" +" ids513_0" +" phase514_0" +" requires+provides515_0))" "(values))))" "(let-values(((syms_24)" -"(let-values(((ids526_0)" +"(let-values(((ids522_0)" " ids_45)" -"((defined-syms527_0)" +"((defined-syms523_0)" " defined-syms_12)" -"((self528_0)" +"((self524_0)" " self_34)" -"((phase529_0)" -" phase_108)" -"((all-scopes-stx530_0)" +"((phase525_0)" +" phase_148)" +"((all-scopes-stx526_0)" " all-scopes-stx_5)" -"((frame-id531_0)" +"((frame-id527_0)" " frame-id_17)" -"((requires+provides532_0)" +"((requires+provides528_0)" " requires+provides_7)" -"((exp-body533_0)" +"((exp-body529_0)" " exp-body_7)" -"((temp534_0)" +"((temp530_0)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp534_0" -" frame-id531_0" -" exp-body533_0" -" requires+provides532_0" +" temp530_0" +" frame-id527_0" +" exp-body529_0" +" requires+provides528_0" " #f" -" ids526_0" -" defined-syms527_0" -" self528_0" -" phase529_0" -" all-scopes-stx530_0))))" +" ids522_0" +" defined-syms523_0" +" self524_0" +" phase525_0" +" all-scopes-stx526_0))))" "(let-values((()" "(begin" -"(let-values(((requires+provides521_0)" +"(let-values(((requires+provides517_0)" " requires+provides_7)" -"((syms522_0)" +"((syms518_0)" " syms_24)" -"((phase523_0)" -" phase_108)" -"((temp524_0)" +"((phase519_0)" +" phase_148)" +"((temp520_0)" " #t))" "(add-defined-syms!103.1" -" temp524_0" -" requires+provides521_0" -" syms522_0" -" phase523_0))" +" temp520_0" +" requires+provides517_0" +" syms518_0" +" phase519_0))" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp535_0)" +"(let-values(((temp531_0)" " 'define-syntaxes)" -"((temp536_0)" -" rhs507_0)" -"((ids537_0)" +"((temp532_0)" +" rhs503_0)" +"((ids533_0)" " ids_45)" -"((temp538_0)" -"(let-values(((v_266)" +"((temp534_0)" +"(let-values(((v_267)" " partial-body-ctx_1))" "(let-values(((the-struct_114)" -" v_266))" +" v_267))" "(if(expand-context/outer?" " the-struct_114)" -"(let-values(((need-eventually-defined540_0)" +"(let-values(((need-eventually-defined536_0)" " need-eventually-defined_2)" -"((inner541_0)" +"((inner537_0)" "(let-values(((the-struct_115)" "(root-expand-context/outer-inner" -" v_266)))" +" v_267)))" "(if(expand-context/inner?" " the-struct_115)" -"(let-values(((lifts542_0)" +"(let-values(((lifts538_0)" " #f)" -"((module-lifts543_0)" +"((module-lifts539_0)" " #f)" -"((to-module-lifts544_0)" +"((to-module-lifts540_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -74454,13 +74440,13 @@ static const char *startup_source = " the-struct_115)" "(expand-context/inner-declared-submodule-names" " the-struct_115)" -" lifts542_0" +" lifts538_0" "(expand-context/inner-lift-envs" " the-struct_115)" -" module-lifts543_0" +" module-lifts539_0" "(expand-context/inner-require-lifts" " the-struct_115)" -" to-module-lifts544_0" +" to-module-lifts540_0" "(expand-context/inner-requires+provides" " the-struct_115)" "(expand-context/inner-observer" @@ -74474,7 +74460,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_115)))))" "(expand-context/outer1.1" -" inner541_0" +" inner537_0" "(root-expand-context/outer-post-expansion" " the-struct_114)" "(root-expand-context/outer-use-site-scopes" @@ -74495,7 +74481,7 @@ static const char *startup_source = " the-struct_114)" "(expand-context/outer-only-immediate?" " the-struct_114)" -" need-eventually-defined540_0" +" need-eventually-defined536_0" "(expand-context/outer-current-introduction-scopes" " the-struct_114)" "(expand-context/outer-current-use-scopes" @@ -74506,21 +74492,21 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_114)))))" -"((temp539_0)" +"((temp535_0)" " #f))" "(expand+eval-for-syntaxes-binding108.1" -" temp539_0" " temp535_0" -" temp536_0" -" ids537_0" -" temp538_0))))" +" temp531_0" +" temp532_0" +" ids533_0" +" temp534_0))))" "(let-values((()" "(begin" -"(let-values(((lst_433)" +"(let-values(((lst_435)" " syms_24)" -"((lst_434)" +"((lst_436)" " vals_10)" -"((lst_435)" +"((lst_437)" " ids_45))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74528,51 +74514,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_433)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_434)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_435)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_436" -" lst_437" -" lst_438)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_436)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_437)))" +"((letrec-values(((for-loop_332)" +"(lambda(lst_438" +" lst_439" +" lst_440)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_436)" -"(if(pair?" -" lst_437)" -"(pair?" " lst_438)" +"(if(pair?" +" lst_439)" +"(pair?" +" lst_440)" " #f)" " #f)" -"(let-values(((sym_111)" -"(unsafe-car" -" lst_436))" -"((rest_257)" -"(unsafe-cdr" -" lst_436))" -"((val_87)" -"(unsafe-car" -" lst_437))" -"((rest_258)" -"(unsafe-cdr" -" lst_437))" -"((id_156)" +"(let-values(((sym_110)" "(unsafe-car" " lst_438))" -"((rest_259)" +"((rest_256)" "(unsafe-cdr" -" lst_438)))" +" lst_438))" +"((val_87)" +"(unsafe-car" +" lst_439))" +"((rest_257)" +"(unsafe-cdr" +" lst_439))" +"((id_156)" +"(unsafe-car" +" lst_440))" +"((rest_258)" +"(unsafe-cdr" +" lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74583,44 +74569,44 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_87" " id_156" -" phase_108" +" phase_148" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_108" -" sym_111" +" phase_148" +" sym_110" " val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_333" +"(for-loop_332" +" rest_256" " rest_257" -" rest_258" -" rest_259)" +" rest_258)" "(values))))" "(values))))))" -" for-loop_333)" -" lst_433" -" lst_434" -" lst_435)))" +" for-loop_332)" +" lst_435" +" lst_436" +" lst_437)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_148)" +"(let-values(((obs_152)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_148" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_148" +" obs_152" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes505_0" +" define-syntaxes501_0" " ids_45" " exp-rhs_6)))))" "(void)))" @@ -74637,40 +74623,40 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body545_0)" +"(let-values(((exp-body541_0)" " exp-body_7)" -"((temp546_0)" +"((temp542_0)" "(list" -" define-syntaxes505_0" +" define-syntaxes501_0" " ids_45" " exp-rhs_6)))" "(rebuild5.1" " #t" -" exp-body545_0" -" temp546_0))" +" exp-body541_0" +" temp542_0))" " parsed-body_0))" "(loop_122" " tail?_53" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_23" +" tmp_64" " '#%require)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_153)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_149" +"(if obs_153" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_149" +" obs_153" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_149" +" obs_153" " 'prim-require))))" "(void)))" "(values))))" @@ -74679,103 +74665,103 @@ static const char *startup_source = " disarmed-exp-body_1" " partial-body-ctx_1)))" "(let-values(((ok?_85" -" #%require547_0" -" req548_0)" -"(let-values(((s_848)" -" ready-body_0))" -"(let-values(((orig-s_89)" -" s_848))" -"(let-values(((#%require547_1" -" req548_1)" -"(let-values(((s_849)" -"(if(syntax?$1" -" s_848)" -"(syntax-e$1" -" s_848)" -" s_848)))" -"(if(pair?" -" s_849)" -"(let-values(((#%require549_0)" -"(let-values(((s_850)" -"(car" -" s_849)))" -" s_850))" -"((req550_0)" +" #%require543_0" +" req544_0)" "(let-values(((s_851)" -"(cdr" -" s_849)))" +" ready-body_0))" +"(let-values(((orig-s_87)" +" s_851))" +"(let-values(((#%require543_1" +" req544_1)" "(let-values(((s_852)" "(if(syntax?$1" " s_851)" "(syntax-e$1" " s_851)" " s_851)))" -"(let-values(((flat-s_62)" -"(to-syntax-list.1" +"(if(pair?" +" s_852)" +"(let-values(((#%require545_0)" +"(let-values(((s_853)" +"(car" " s_852)))" +" s_853))" +"((req546_0)" +"(let-values(((s_854)" +"(cdr" +" s_852)))" +"(let-values(((s_855)" +"(if(syntax?$1" +" s_854)" +"(syntax-e$1" +" s_854)" +" s_854)))" +"(let-values(((flat-s_61)" +"(to-syntax-list.1" +" s_855)))" "(if(not" -" flat-s_62)" +" flat-s_61)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))" +" orig-s_87))" "(let-values()" -" flat-s_62)))))))" +" flat-s_61)))))))" "(values" -" #%require549_0" -" req550_0))" +" #%require545_0" +" req546_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89)))))" +" orig-s_87)))))" "(values" " #t" -" #%require547_1" -" req548_1))))))" +" #%require543_1" +" req544_1))))))" "(begin" -"(let-values(((temp551_0)" -" req548_0)" -"((exp-body552_0)" +"(let-values(((temp547_0)" +" req544_0)" +"((exp-body548_0)" " exp-body_7)" -"((self553_0)" +"((self549_0)" " self_34)" -"((m-ns554_0)" +"((m-ns550_0)" " m-ns_20)" -"((phase555_0)" -" phase_108)" -"((phase556_0)" -" phase_108)" -"((requires+provides557_0)" +"((phase551_0)" +" phase_148)" +"((phase552_0)" +" phase_148)" +"((requires+provides553_0)" " requires+provides_7)" -"((declared-submodule-names558_0)" +"((declared-submodule-names554_0)" " declared-submodule-names_4)" -"((temp559_0)" +"((temp555_0)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names558_0" +" declared-submodule-names554_0" " #f" -" phase556_0" +" phase552_0" " #f" -" self553_0" +" self549_0" " #f" " #t" -" temp559_0" -" temp551_0" -" exp-body552_0" -" m-ns554_0" -" phase555_0" -" requires+provides557_0))" -"(let-values(((obs_150)" +" temp555_0" +" temp547_0" +" exp-body548_0" +" m-ns550_0" +" phase551_0" +" requires+provides553_0))" +"(let-values(((obs_154)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_150" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_150" +" obs_154" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -74785,7 +74771,7 @@ static const char *startup_source = " tail?_53" " rest-bodys_1)))))))" "(if(equal?" -" tmp_23" +" tmp_64" " '#%provide)" "(let-values()" "(cons" @@ -74794,7 +74780,7 @@ static const char *startup_source = " tail?_53" " rest-bodys_1)))" "(if(equal?" -" tmp_23" +" tmp_64" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -74802,61 +74788,60 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((ready-body560_0)" +"(let-values(((ready-body556_0)" " ready-body_1)" -"((self561_0)" +"((self557_0)" " self_34)" -"((partial-body-ctx562_0)" +"((partial-body-ctx558_0)" " partial-body-ctx_1)" -"((temp563_0)" +"((temp559_0)" " #f)" -"((declared-submodule-names564_0)" +"((declared-submodule-names560_0)" " declared-submodule-names_4)" -"((mpis-to-reset565_0)" +"((mpis-to-reset561_0)" " mpis-to-reset_1)" -"((compiled-submodules566_0)" +"((compiled-submodules562_0)" " compiled-submodules_2)" -"((modules-being-compiled567_0)" +"((modules-being-compiled563_0)" " modules-being-compiled_4))" -"(expand-submodule197.1" -" compiled-submodules566_0" -" declared-submodule-names564_0" +"(expand-submodule193.1" +" compiled-submodules562_0" +" declared-submodule-names560_0" " #f" " #f" +" temp559_0" " #f" -" temp563_0" -" #f" -" modules-being-compiled567_0" -" mpis-to-reset565_0" -" ready-body560_0" -" self561_0" -" partial-body-ctx562_0))))" +" modules-being-compiled563_0" +" mpis-to-reset561_0" +" ready-body556_0" +" self557_0" +" partial-body-ctx558_0))))" "(cons" " submod_2" "(loop_122" " tail?_53" " rest-bodys_1)))))" "(if(equal?" -" tmp_23" +" tmp_64" " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_151)" +"(let-values(((obs_155)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_151" +"(if obs_155" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_151" +" obs_155" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_151" +" obs_155" " 'prim-submodule*)" "(call-expand-observe" -" obs_151" +" obs_155" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -74866,87 +74851,87 @@ static const char *startup_source = " tail?_53" " rest-bodys_1))))" "(if(equal?" -" tmp_23" +" tmp_64" " '#%declare)" "(let-values()" "(let-values(((ok?_86" -" #%declare568_0" -" kw569_0)" -"(let-values(((s_853)" +" #%declare564_0" +" kw565_0)" +"(let-values(((s_856)" " disarmed-exp-body_1))" -"(let-values(((orig-s_90)" -" s_853))" -"(let-values(((#%declare568_1" -" kw569_1)" -"(let-values(((s_276)" +"(let-values(((orig-s_88)" +" s_856))" +"(let-values(((#%declare564_1" +" kw565_1)" +"(let-values(((s_857)" "(if(syntax?$1" -" s_853)" +" s_856)" "(syntax-e$1" -" s_853)" -" s_853)))" +" s_856)" +" s_856)))" "(if(pair?" -" s_276)" -"(let-values(((#%declare570_0)" -"(let-values(((s_854)" +" s_857)" +"(let-values(((#%declare566_0)" +"(let-values(((s_274)" "(car" -" s_276)))" -" s_854))" -"((kw571_0)" -"(let-values(((s_278)" +" s_857)))" +" s_274))" +"((kw567_0)" +"(let-values(((s_858)" "(cdr" -" s_276)))" -"(let-values(((s_279)" +" s_857)))" +"(let-values(((s_859)" "(if(syntax?$1" -" s_278)" +" s_858)" "(syntax-e$1" -" s_278)" -" s_278)))" -"(let-values(((flat-s_63)" +" s_858)" +" s_858)))" +"(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_279)))" +" s_859)))" "(if(not" -" flat-s_63)" +" flat-s_62)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90))" +" orig-s_88))" "(let-values()" -" flat-s_63)))))))" +" flat-s_62)))))))" "(values" -" #%declare570_0" -" kw571_0))" +" #%declare566_0" +" kw567_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90)))))" +" orig-s_88)))))" "(values" " #t" -" #%declare568_1" -" kw569_1))))))" +" #%declare564_1" +" kw565_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_439)" -" kw569_0))" +"(let-values(((lst_441)" +" kw565_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_439)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_440)" +" lst_441)))" +"((letrec-values(((for-loop_333)" +"(lambda(lst_442)" "(begin" " 'for-loop" "(if(pair?" -" lst_440)" +" lst_442)" "(let-values(((kw_1)" "(unsafe-car" -" lst_440))" -"((rest_260)" +" lst_442))" +"((rest_259)" "(unsafe-cdr" -" lst_440)))" +" lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74997,12 +74982,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_260)" +"(for-loop_333" +" rest_259)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_439)))" +" for-loop_333)" +" lst_441)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75049,21 +75034,21 @@ 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_151)" +"(lambda(ids_46 rhs_23 phase_149)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_441) ids_46))" +"(let-values(((lst_443) ids_46))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_335)" -"(lambda(fold-var_379 lst_442)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_334)" +"(lambda(fold-var_379 lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((id_157)(unsafe-car lst_442))" -"((rest_261)(unsafe-cdr lst_442)))" +"(if(pair? lst_444)" +"(let-values(((id_157)(unsafe-car lst_444))" +"((rest_260)(unsafe-cdr lst_444)))" "(let-values(((fold-var_380)" "(let-values(((fold-var_381) fold-var_379))" "(let-values(((fold-var_382)" @@ -75075,56 +75060,56 @@ static const char *startup_source = " inside-scope_2))" " fold-var_381))))" "(values fold-var_382)))))" -"(if(not #f)(for-loop_335 fold-var_380 rest_261) fold-var_380)))" +"(if(not #f)(for-loop_334 fold-var_380 rest_260) fold-var_380)))" " fold-var_379)))))" -" for-loop_335)" +" for-loop_334)" " null" -" lst_441))))))" +" lst_443))))))" "(let-values(((syms_25)" -"(let-values(((scoped-ids572_0) scoped-ids_0)" -"((defined-syms573_0) defined-syms_13)" -"((self574_0) self_35)" -"((phase575_0) phase_151)" -"((all-scopes-stx576_0) all-scopes-stx_6)" -"((frame-id577_0) frame-id_18)" -"((requires+provides578_0) requires+provides_8))" +"(let-values(((scoped-ids568_0) scoped-ids_0)" +"((defined-syms569_0) defined-syms_13)" +"((self570_0) self_35)" +"((phase571_0) phase_149)" +"((all-scopes-stx572_0) all-scopes-stx_6)" +"((frame-id573_0) frame-id_18)" +"((requires+provides574_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id577_0" +" frame-id573_0" " #f" -" requires+provides578_0" +" requires+provides574_0" " #f" -" scoped-ids572_0" -" defined-syms573_0" -" self574_0" -" phase575_0" -" all-scopes-stx576_0))))" -"(let-values(((s_855)" +" scoped-ids568_0" +" defined-syms569_0" +" self570_0" +" phase571_0" +" all-scopes-stx572_0))))" +"(let-values(((s_292)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_151) '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_855 syms_25 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_292 syms_25 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_116)" +"(lambda(bodys_23 ctx_115)" "(begin" -"(let-values(((pe_3)(root-expand-context-post-expansion ctx_116)))" +"(let-values(((pe_3)(root-expand-context-post-expansion ctx_115)))" "(if pe_3" "(reverse$1" -"(let-values(((lst_443) bodys_23))" +"(let-values(((lst_445) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_383 lst_444)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_335)" +"(lambda(fold-var_383 lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((body_21)(unsafe-car lst_444))((rest_262)(unsafe-cdr lst_444)))" +"(if(pair? lst_446)" +"(let-values(((body_21)(unsafe-car lst_446))((rest_261)(unsafe-cdr lst_446)))" "(let-values(((fold-var_384)" "(let-values(((fold-var_385) fold-var_383))" "(let-values(((fold-var_386)" @@ -75134,32 +75119,32 @@ static const char *startup_source = "(apply-post-expansion pe_3 body_21))" " fold-var_385))))" "(values fold-var_386)))))" -"(if(not #f)(for-loop_336 fold-var_384 rest_262) fold-var_384)))" +"(if(not #f)(for-loop_335 fold-var_384 rest_261) fold-var_384)))" " fold-var_383)))))" -" for-loop_336)" +" for-loop_335)" " null" -" lst_443))))" +" lst_445))))" " bodys_23)))))" "(define-values" -"(finish-expanding-body-expressons99.1)" -"(lambda(compiled-submodules88_0" -" ctx85_0" -" declared-submodule-names87_0" -" modules-being-compiled89_0" -" mpis-to-reset90_0" -" phase84_0" -" self86_0" -" partially-expanded-bodys98_0)" +"(finish-expanding-body-expressons97.1)" +"(lambda(compiled-submodules86_0" +" ctx83_0" +" declared-submodule-names85_0" +" modules-being-compiled87_0" +" mpis-to-reset88_0" +" phase82_0" +" self84_0" +" partially-expanded-bodys96_0)" "(begin" -" 'finish-expanding-body-expressons99" -"(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_152) 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))" -"(let-values(((compiled-submodules_3) compiled-submodules88_0))" -"(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" -"(let-values(((mpis-to-reset_2) mpis-to-reset90_0))" +" 'finish-expanding-body-expressons97" +"(let-values(((partially-expanded-bodys_1) partially-expanded-bodys96_0))" +"(let-values(((phase_150) phase82_0))" +"(let-values(((body-ctx_7) ctx83_0))" +"(let-values(((self_36) self84_0))" +"(let-values(((declared-submodule-names_5) declared-submodule-names85_0))" +"(let-values(((compiled-submodules_3) compiled-submodules86_0))" +"(let-values(((modules-being-compiled_5) modules-being-compiled87_0))" +"(let-values(((mpis-to-reset_2) mpis-to-reset88_0))" "(let-values()" "((letrec-values(((loop_123)" "(lambda(tail?_54 bodys_24)" @@ -75167,15 +75152,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_152)) #f)" +"(if(if tail?_54(not(zero? phase_150)) #f)" "(let-values()" "(begin" -"(let-values(((obs_152)(expand-context-observer body-ctx_7)))" -"(if obs_152" +"(let-values(((obs_156)(expand-context-observer body-ctx_7)))" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_156" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75191,13 +75176,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_157)" "(expand-context-observer body-ctx_7)))" -"(if obs_153" +"(if obs_157" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_153" +" obs_157" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75210,25 +75195,25 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_154)" +"(let-values(((obs_158)" "(expand-context-observer body-ctx_7)))" -"(if obs_154" +"(if obs_158" "(let-values()" "(let-values()" -"(call-expand-observe obs_154 'next)))" +"(call-expand-observe obs_158 'next)))" "(void)))" "(values))))" "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_411)" "(parsed? body_22)))" -"(if or-part_410" -" or-part_410" -"(let-values(((or-part_411)" -"(expanded+parsed? body_22)))" "(if or-part_411" " or-part_411" +"(let-values(((or-part_412)" +"(expanded+parsed? body_22)))" +"(if or-part_412" +" or-part_412" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" @@ -75245,135 +75230,135 @@ static const char *startup_source = "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_626)" +"(let-values(((s_860)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" -" define-values579_0" -" _580_0" -" _581_0)" -"(let-values(((s_856)" +" define-values575_0" +" _576_0" +" _577_0)" +"(let-values(((s_861)" "(syntax-disarm$1" -" s_626)))" +" s_860)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" -"(let-values(((orig-s_91)" -" s_856))" -"(let-values(((define-values579_1" -" _580_1" -" _581_1)" -"(let-values(((s_857)" -"(if(syntax?$1" -" s_856)" -"(syntax-e$1" -" s_856)" -" s_856)))" -"(if(pair?" -" s_857)" -"(let-values(((define-values582_0)" -"(let-values(((s_858)" -"(car" -" s_857)))" -" s_858))" -"((_583_0" -" _584_0)" -"(let-values(((s_859)" -"(cdr" -" s_857)))" -"(let-values(((s_860)" -"(if(syntax?$1" -" s_859)" -"(syntax-e$1" -" s_859)" -" s_859)))" -"(if(pair?" -" s_860)" -"(let-values(((_585_0)" -"(let-values(((s_861)" -"(car" -" s_860)))" +"(let-values(((orig-s_89)" " s_861))" -"((_586_0)" +"(let-values(((define-values575_1" +" _576_1" +" _577_1)" "(let-values(((s_862)" -"(cdr" -" s_860)))" -"(let-values(((s_863)" "(if(syntax?$1" -" s_862)" +" s_861)" "(syntax-e$1" -" s_862)" -" s_862)))" +" s_861)" +" s_861)))" "(if(pair?" -" s_863)" -"(let-values(((_587_0)" -"(let-values(((s_864)" +" s_862)" +"(let-values(((define-values578_0)" +"(let-values(((s_863)" "(car" -" s_863)))" -" s_864))" -"(()" -"(let-values(((s_865)" +" s_862)))" +" s_863))" +"((_579_0" +" _580_0)" +"(let-values(((s_864)" "(cdr" -" s_863)))" -"(let-values(((s_866)" +" s_862)))" +"(let-values(((s_865)" "(if(syntax?$1" -" s_865)" +" s_864)" "(syntax-e$1" +" s_864)" +" s_864)))" +"(if(pair?" " s_865)" +"(let-values(((_581_0)" +"(let-values(((s_866)" +"(car" " s_865)))" +" s_866))" +"((_582_0)" +"(let-values(((s_867)" +"(cdr" +" s_865)))" +"(let-values(((s_868)" +"(if(syntax?$1" +" s_867)" +"(syntax-e$1" +" s_867)" +" s_867)))" +"(if(pair?" +" s_868)" +"(let-values(((_583_0)" +"(let-values(((s_869)" +"(car" +" s_868)))" +" s_869))" +"(()" +"(let-values(((s_870)" +"(cdr" +" s_868)))" +"(let-values(((s_871)" +"(if(syntax?$1" +" s_870)" +"(syntax-e$1" +" s_870)" +" s_870)))" "(if(null?" -" s_866)" +" s_871)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))))))" +" orig-s_89))))))" "(values" -" _587_0))" +" _583_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))))))" +" orig-s_89))))))" "(values" -" _585_0" -" _586_0))" +" _581_0" +" _582_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))))))" +" orig-s_89))))))" "(values" -" define-values582_0" -" _583_0" -" _584_0))" +" define-values578_0" +" _579_0" +" _580_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91)))))" +" orig-s_89)))))" "(values" " #t" -" define-values579_1" -" _580_1" -" _581_1)))" +" define-values575_1" +" _576_1" +" _577_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx588_0)" +"(let-values(((rhs-ctx584_0)" " rhs-ctx_2)" -"((s589_0)" -" s_626)" -"((temp590_0)" +"((s585_0)" +" s_860)" +"((temp586_0)" " #t))" "(keep-as-needed119.1" " #f" " #f" -" temp590_0" -" rhs-ctx588_0" -" s589_0))))" +" temp586_0" +" rhs-ctx584_0" +" s585_0))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -75382,17 +75367,17 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp591_0)" +"(let-values(((temp587_0)" "(semi-parsed-define-values-rhs" " body_22))" -"((rhs-ctx592_0)" +"((rhs-ctx588_0)" " rhs-ctx_2))" "(expand9.1" " #f" " #f" " #f" -" temp591_0" -" rhs-ctx592_0)))))" +" temp587_0" +" rhs-ctx588_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -75408,76 +75393,76 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs593_0)" +"(let-values(((exp-rhs589_0)" " exp-rhs_7)" -"((temp594_0)" +"((temp590_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand9.1" " #f" " #f" " #f" -" exp-rhs593_0" -" temp594_0))))))" +" exp-rhs589_0" +" temp590_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s595_0)" +"(let-values(((rebuild-s591_0)" " rebuild-s_15)" -"((temp596_0)" +"((temp592_0)" "(list" -" define-values579_0" +" define-values575_0" " ids_47" " exp-rhs_7)))" "(rebuild5.1" " #t" -" rebuild-s595_0" -" temp596_0))" +" rebuild-s591_0" +" temp592_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_22)))" -"(let-values(((tmp_64)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" -" phase_152)))" -"(if(if(equal? tmp_64 '#%require)" +" phase_150)))" +"(if(if(equal? tmp_65 '#%require)" " #t" -"(if(equal? tmp_64 '#%provide)" +"(if(equal? tmp_65 '#%provide)" " #t" -"(equal? tmp_64 'module*)))" +"(equal? tmp_65 'module*)))" "(let-values() body_22)" "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body597_0)" +"(let-values(((body593_0)" " body_22)" -"((temp598_0)" +"((temp594_0)" "(as-expression-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" body597_0" -" temp598_0))))" +" body593_0" +" temp594_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body599_0)" +"(let-values(((exp-body595_0)" " exp-body_9)" -"((temp600_0)" +"((temp596_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" exp-body599_0" -" temp600_0)))))))))))))))" +" exp-body595_0" +" temp596_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -75498,14 +75483,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_155)" +"(let-values(((obs_159)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_155" +"(if obs_159" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_155" +" obs_159" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -75517,43 +75502,43 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules601_0)" +"(let-values(((lifted-modules597_0)" " lifted-modules_0)" -"((phase602_0) phase_152)" -"((self603_0) self_36)" -"((body-ctx604_0)" +"((phase598_0) phase_150)" +"((self599_0) self_36)" +"((body-ctx600_0)" " body-ctx_7)" -"((mpis-to-reset605_0)" +"((mpis-to-reset601_0)" " mpis-to-reset_2)" -"((declared-submodule-names606_0)" +"((declared-submodule-names602_0)" " declared-submodule-names_5)" -"((compiled-submodules607_0)" +"((compiled-submodules603_0)" " compiled-submodules_3)" -"((modules-being-compiled608_0)" +"((modules-being-compiled604_0)" " modules-being-compiled_5))" -"(expand-non-module*-submodules212.1" -" compiled-submodules607_0" -" declared-submodule-names606_0" -" modules-being-compiled608_0" -" mpis-to-reset605_0" -" lifted-modules601_0" -" phase602_0" -" self603_0" -" body-ctx604_0))))" +"(expand-non-module*-submodules208.1" +" compiled-submodules603_0" +" declared-submodule-names602_0" +" modules-being-compiled604_0" +" mpis-to-reset601_0" +" lifted-modules597_0" +" phase598_0" +" self599_0" +" body-ctx600_0))))" "(let-values(((exp-lifted-defns_0)" "(loop_123 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_156)" +"(let-values(((obs_160)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_156" +"(if obs_160" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_156" +" obs_160" " 'next)))" "(void)))))" "(append" @@ -75570,18 +75555,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_117 requires+provides_9)" +"(lambda(need-eventually-defined_3 self_37 ctx_116 requires+provides_9)" "(begin" "(begin" "(let-values(((ht_166) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" -"((letrec-values(((for-loop_337)" +"((letrec-values(((for-loop_336)" "(lambda(i_186)" "(begin" " 'for-loop" "(if i_186" -"(let-values(((phase_153 l_89)(hash-iterate-key+value ht_166 i_186)))" +"(let-values(((phase_151 l_89)(hash-iterate-key+value ht_166 i_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75589,24 +75574,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_445) l_89))" +"(let-values(((lst_447) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_338)" -"(lambda(lst_446)" +"(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_337)" +"(lambda(lst_448)" "(begin" " 'for-loop" "(if(pair?" -" lst_446)" +" lst_448)" "(let-values(((id_158)" "(unsafe-car" -" lst_446))" -"((rest_263)" +" lst_448))" +"((rest_262)" "(unsafe-cdr" -" lst_446)))" +" lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75614,18 +75599,18 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_96)" -"(let-values(((id609_0)" +"(let-values(((id605_0)" " id_158)" -"((phase610_0)" -" phase_153))" +"((phase606_0)" +" phase_151))" "(resolve+shift28.1" " #f" " #f" " null" " unsafe-undefined" " #f" -" id609_0" -" phase610_0))))" +" id605_0" +" phase606_0))))" "(let-values(((bound-here?_0)" "(if b_96" "(if(module-binding?" @@ -75648,7 +75633,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_96)" -" phase_153)" +" phase_151)" " #f)))" "(if(eq?" " bound-kind_0" @@ -75671,189 +75656,189 @@ static const char *startup_source = " \"identifier treated as a variable, but later bound differently\")))" "(format" " \"\\n at phase: ~a\"" -"(let-values(((tmp_65)" -" phase_153))" +"(let-values(((tmp_66)" +" phase_151))" "(if(equal?" -" tmp_65" +" tmp_66" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_153)))))" +" phase_151)))))" " id_158" " #f" " null" "(syntax-debug-info-string" " id_158" -" ctx_117))))))))" +" ctx_116))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_338" -" rest_263)" +"(for-loop_337" +" rest_262)" "(values))))" "(values))))))" -" for-loop_338)" -" lst_445)))" +" for-loop_337)" +" lst_447)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_337(hash-iterate-next ht_166 i_186))(values))))" +"(if(not #f)(for-loop_336(hash-iterate-next ht_166 i_186))(values))))" "(values))))))" -" for-loop_337)" +" for-loop_336)" "(hash-iterate-first ht_166))))" "(void)))))" "(define-values" -"(resolve-provides115.1)" -"(lambda(ctx107_1" -" declared-submodule-names103_0" -" namespace104_0" -" phase105_0" -" requires-and-provides102_0" -" self106_0" -" expression-expanded-bodys114_0)" +"(resolve-provides113.1)" +"(lambda(ctx105_0" +" declared-submodule-names101_0" +" namespace102_0" +" phase103_0" +" requires-and-provides100_0" +" self104_0" +" expression-expanded-bodys112_0)" "(begin" -" 'resolve-provides115" -"(let-values(((expression-expanded-bodys_1) expression-expanded-bodys114_0))" -"(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_154) phase105_0))" -"(let-values(((self_38) self106_0))" -"(let-values(((ctx_118) ctx107_1))" +" 'resolve-provides113" +"(let-values(((expression-expanded-bodys_1) expression-expanded-bodys112_0))" +"(let-values(((requires+provides_10) requires-and-provides100_0))" +"(let-values(((declared-submodule-names_6) declared-submodule-names101_0))" +"(let-values(((m-ns_21) namespace102_0))" +"(let-values(((phase_152) phase103_0))" +"(let-values(((self_38) self104_0))" +"(let-values(((ctx_117) ctx105_0))" "(let-values()" "(let-values()" "((letrec-values(((loop_124)" -"(lambda(bodys_26 phase_155)" +"(lambda(bodys_26 phase_153)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_412)(parsed?(car bodys_26))))" -"(if or-part_412 or-part_412(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_413)(parsed?(car bodys_26))))" +"(if or-part_413 or-part_413(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_124(cdr bodys_26) phase_155)))" +"(cons(car bodys_26)(loop_124(cdr bodys_26) phase_153)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_124" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_155))))" +"(add1 phase_153))))" "(cons" "(let-values(((the-struct_116)(car bodys_26)))" "(if(semi-parsed-begin-for-syntax? the-struct_116)" -"(let-values(((body611_0) nested-bodys_2))" +"(let-values(((body607_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" "(semi-parsed-begin-for-syntax-s the-struct_116)" -" body611_0))" +" body607_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_116)))" -"(loop_124(cdr bodys_26) phase_155))))" +"(loop_124(cdr bodys_26) phase_153))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_66)" -"(core-form-sym disarmed-body_1 phase_155)))" -"(if(equal? tmp_66 '#%provide)" +"(let-values(((tmp_67)" +"(core-form-sym disarmed-body_1 phase_153)))" +"(if(equal? tmp_67 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_157)" +"(let-values(((obs_161)" "(expand-context-observer" -" ctx_118)))" -"(if obs_157" +" ctx_117)))" +"(if obs_161" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_157" +" obs_161" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_157" +" obs_161" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_88 #%provide612_0 spec613_0)" -"(let-values(((s_867) disarmed-body_1))" -"(let-values(((orig-s_92) s_867))" -"(let-values(((#%provide612_1" -" spec613_1)" -"(let-values(((s_868)" +"(let-values(((ok?_88 #%provide608_0 spec609_0)" +"(let-values(((s_872) disarmed-body_1))" +"(let-values(((orig-s_90) s_872))" +"(let-values(((#%provide608_1" +" spec609_1)" +"(let-values(((s_664)" "(if(syntax?$1" -" s_867)" +" s_872)" "(syntax-e$1" -" s_867)" -" s_867)))" -"(if(pair? s_868)" -"(let-values(((#%provide614_0)" -"(let-values(((s_666)" +" s_872)" +" s_872)))" +"(if(pair? s_664)" +"(let-values(((#%provide610_0)" +"(let-values(((s_873)" "(car" -" s_868)))" -" s_666))" -"((spec615_0)" -"(let-values(((s_667)" +" s_664)))" +" s_873))" +"((spec611_0)" +"(let-values(((s_874)" "(cdr" -" s_868)))" -"(let-values(((s_668)" +" s_664)))" +"(let-values(((s_875)" "(if(syntax?$1" -" s_667)" +" s_874)" "(syntax-e$1" -" s_667)" -" s_667)))" -"(let-values(((flat-s_64)" +" s_874)" +" s_874)))" +"(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_668)))" +" s_875)))" "(if(not" -" flat-s_64)" +" flat-s_63)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92))" +" orig-s_90))" "(let-values()" -" flat-s_64)))))))" +" flat-s_63)))))))" "(values" -" #%provide614_0" -" spec615_0))" +" #%provide610_0" +" spec611_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92)))))" +" orig-s_90)))))" "(values" " #t" -" #%provide612_1" -" spec613_1))))))" +" #%provide608_1" +" spec609_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec613_0" +" spec609_0" "(car bodys_26)" " requires+provides_10" " self_38" -" phase_155" -"(let-values(((v_267) ctx_118))" +" phase_153" +"(let-values(((v_268) ctx_117))" "(let-values(((the-struct_117)" -" v_267))" +" v_268))" "(if(expand-context/outer?" " the-struct_117)" -"(let-values(((context616_0)" +"(let-values(((context612_0)" " 'top-level)" -"((inner617_0)" +"((inner613_0)" "(let-values(((the-struct_118)" "(root-expand-context/outer-inner" -" v_267)))" +" v_268)))" "(if(expand-context/inner?" " the-struct_118)" -"(let-values(((phase618_0)" -" phase_155)" -"((namespace619_0)" +"(let-values(((phase614_0)" +" phase_153)" +"((namespace615_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_155))" -"((requires+provides620_0)" +" phase_153))" +"((requires+provides616_0)" " requires+provides_10)" -"((declared-submodule-names621_0)" +"((declared-submodule-names617_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -75872,8 +75857,8 @@ static const char *startup_source = " the-struct_118)" "(expand-context/inner-to-parsed?" " the-struct_118)" -" phase618_0" -" namespace619_0" +" phase614_0" +" namespace615_0" "(expand-context/inner-just-once?" " the-struct_118)" "(expand-context/inner-module-begin-k" @@ -75886,7 +75871,7 @@ static const char *startup_source = " the-struct_118)" "(expand-context/inner-stops" " the-struct_118)" -" declared-submodule-names621_0" +" declared-submodule-names617_0" "(expand-context/inner-lifts" " the-struct_118)" "(expand-context/inner-lift-envs" @@ -75897,7 +75882,7 @@ static const char *startup_source = " the-struct_118)" "(expand-context/inner-to-module-lifts" " the-struct_118)" -" requires+provides620_0" +" requires+provides616_0" "(expand-context/inner-observer" " the-struct_118)" "(expand-context/inner-for-serializable?" @@ -75909,14 +75894,14 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_118)))))" "(expand-context/outer1.1" -" inner617_0" +" inner613_0" "(root-expand-context/outer-post-expansion" " the-struct_117)" "(root-expand-context/outer-use-site-scopes" " the-struct_117)" "(root-expand-context/outer-frame-id" " the-struct_117)" -" context616_0" +" context612_0" "(expand-context/outer-env" " the-struct_117)" "(expand-context/outer-scopes" @@ -75941,32 +75926,32 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_117)))))))" -"(if(expand-context-to-parsed? ctx_118)" +"(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_124(cdr bodys_26) phase_155))" +"(loop_124(cdr bodys_26) phase_153))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp622_0)" +"(let-values(((temp618_0)" "(car bodys_26))" -"((temp623_0)" +"((temp619_0)" "(list*" -" #%provide612_0" +" #%provide608_0" " specs_2)))" "(rebuild5.1" " #t" -" temp622_0" -" temp623_0)))))" +" temp618_0" +" temp619_0)))))" "(begin" -"(let-values(((obs_158)" +"(let-values(((obs_162)" "(expand-context-observer" -" ctx_118)))" -"(if obs_158" +" ctx_117)))" +"(if obs_162" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_158" +" obs_162" " 'exit-prim" " new-s_10)))" "(void)))" @@ -75974,40 +75959,40 @@ static const char *startup_source = " new-s_10" "(loop_124" "(cdr bodys_26)" -" phase_155))))))))))" +" phase_153))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_124(cdr bodys_26) phase_155))))))))))))))" +"(loop_124(cdr bodys_26) phase_153))))))))))))))" " loop_124)" " expression-expanded-bodys_1" -" phase_154)))))))))))))" +" phase_152)))))))))))))" "(define-values" -"(declare-module-for-expansion139.1)" -"(lambda(ctx125_0" -" enclosing123_0" -" fill127_0" -" module-name-id118_0" -" modules-being-compiled126_0" -" namespace121_0" -" rebuild-s119_0" -" requires-and-provides120_0" -" root-ctx124_0" -" self122_0" -" fully-expanded-bodys-except-post-submodules138_0)" +"(declare-module-for-expansion137.1)" +"(lambda(ctx123_1" +" enclosing121_0" +" fill125_0" +" module-name-id116_0" +" modules-being-compiled124_0" +" namespace119_0" +" rebuild-s117_0" +" requires-and-provides118_0" +" root-ctx122_0" +" self120_0" +" fully-expanded-bodys-except-post-submodules136_0)" "(begin" -" 'declare-module-for-expansion139" -"(let-values(((fully-expanded-bodys-except-post-submodules_1) fully-expanded-bodys-except-post-submodules138_0))" -"(let-values(((module-name-id_0) module-name-id118_0))" -"(let-values(((rebuild-s_16) rebuild-s119_0))" -"(let-values(((requires+provides_11) requires-and-provides120_0))" -"(let-values(((m-ns_22) namespace121_0))" -"(let-values(((self_39) self122_0))" -"(let-values(((enclosing-self_3) enclosing123_0))" -"(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_119) ctx125_0))" -"(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" -"(let-values(((compiled-module-box_1) fill127_0))" +" 'declare-module-for-expansion137" +"(let-values(((fully-expanded-bodys-except-post-submodules_1) fully-expanded-bodys-except-post-submodules136_0))" +"(let-values(((module-name-id_0) module-name-id116_0))" +"(let-values(((rebuild-s_16) rebuild-s117_0))" +"(let-values(((requires+provides_11) requires-and-provides118_0))" +"(let-values(((m-ns_22) namespace119_0))" +"(let-values(((self_39) self120_0))" +"(let-values(((enclosing-self_3) enclosing121_0))" +"(let-values(((root-ctx_7) root-ctx122_0))" +"(let-values(((ctx_118) ctx123_1))" +"(let-values(((modules-being-compiled_6) modules-being-compiled124_0))" +"(let-values(((compiled-module-box_1) fill125_0))" "(let-values()" "(let-values(((requires_7 provides_14)" "(extract-requires-and-provides requires+provides_11 self_39 self_39)))" @@ -76026,36 +76011,36 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_413) enclosing-self_3))" -"(if or-part_413 or-part_413 self_39)))))" +"(let-values(((or-part_414) enclosing-self_3))" +"(if or-part_414 or-part_414 self_39)))))" "(let-values(((compiled-module_0)" -"(let-values(((parsed-mod624_0) parsed-mod_0)" -"((temp625_0)" -"(let-values(((m-ns629_0) m-ns_22)" -"((enclosing-self630_0) enclosing-self_3)" -"((temp631_0)" +"(let-values(((parsed-mod620_0) parsed-mod_0)" +"((temp621_0)" +"(let-values(((m-ns625_0) m-ns_22)" +"((enclosing-self626_0) enclosing-self_3)" +"((temp627_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp631_0" +" temp627_0" " unsafe-undefined" -" enclosing-self630_0" -" m-ns629_0" +" enclosing-self626_0" +" m-ns625_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp626_0)(expand-context-for-serializable? ctx_119))" -"((modules-being-compiled627_0) modules-being-compiled_6)" -"((temp628_0) #f))" +"((temp622_0)(expand-context-for-serializable? ctx_118))" +"((modules-being-compiled623_0) modules-being-compiled_6)" +"((temp624_0) #f))" "(compile-module13.1" " #f" -" modules-being-compiled627_0" -" temp628_0" -" temp626_0" +" modules-being-compiled623_0" +" temp624_0" +" temp622_0" " #f" -" parsed-mod624_0" -" temp625_0))))" +" parsed-mod620_0" +" temp621_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -76071,55 +76056,55 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((compiled-module632_0) compiled-module_0)((temp633_0) #f))" +"(let-values(((compiled-module628_0) compiled-module_0)((temp629_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp633_0" -" compiled-module632_0)))))))))))))))))))))))))" +" temp629_0" +" compiled-module628_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_688 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_876 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_690)" -"(syntax-property$1 s_688 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_869)" +"(let-values(((s_877)" +"(syntax-property$1 s_876 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_685)" "(syntax-property$1" -" s_690" +" s_877" " 'module-body-inside-context" "(apply-post-expansion(root-expand-context-post-expansion root-ctx_8) empty-syntax))))" -" s_869)))))" +" s_685)))))" "(define-values" -"(expand-post-submodules165.1)" -"(lambda(all-scopes-s147_0" -" compiled-submodules150_0" -" ctx152_0" -" declare-enclosing142_0" -" declared-submodule-names149_0" -" enclosing-is-cross-phase-persistent?146_0" -" modules-being-compiled151_0" -" mpis-to-reset148_0" -" phase143_0" -" requires-and-provides145_0" -" self144_0" -" fully-expanded-bodys-except-post-submodules164_0)" +"(expand-post-submodules163.1)" +"(lambda(all-scopes-s145_0" +" compiled-submodules148_0" +" ctx150_0" +" declare-enclosing140_0" +" declared-submodule-names147_0" +" enclosing-is-cross-phase-persistent?144_0" +" modules-being-compiled149_0" +" mpis-to-reset146_0" +" phase141_1" +" requires-and-provides143_0" +" self142_0" +" fully-expanded-bodys-except-post-submodules162_0)" "(begin" -" '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_156) 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))" -"(let-values(((all-scopes-s_1) all-scopes-s147_0))" -"(let-values(((mpis-to-reset_3) mpis-to-reset148_0))" -"(let-values(((declared-submodule-names_7) declared-submodule-names149_0))" -"(let-values(((compiled-submodules_4) compiled-submodules150_0))" -"(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" -"(let-values(((submod-ctx_1) ctx152_0))" +" 'expand-post-submodules163" +"(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules162_0))" +"(let-values(((declare-enclosing-module_1) declare-enclosing140_0))" +"(let-values(((phase_154) phase141_1))" +"(let-values(((self_40) self142_0))" +"(let-values(((requires+provides_12) requires-and-provides143_0))" +"(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?144_0))" +"(let-values()" +"(let-values(((mpis-to-reset_3) mpis-to-reset146_0))" +"(let-values(((declared-submodule-names_7) declared-submodule-names147_0))" +"(let-values(((compiled-submodules_4) compiled-submodules148_0))" +"(let-values(((modules-being-compiled_7) modules-being-compiled149_0))" +"(let-values(((submod-ctx_1) ctx150_0))" "(let-values()" "((letrec-values(((loop_125)" -"(lambda(bodys_27 phase_157)" +"(lambda(bodys_27 phase_155)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76132,74 +76117,74 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_23)))" -"(let-values(((ok?_89 begin-for-syntax634_0 _635_0)" -"(let-values(((s_870)" +"(let-values(((ok?_89 begin-for-syntax630_0 _631_0)" +"(let-values(((s_697)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_870))" -"(let-values(((begin-for-syntax634_1" -" _635_1)" -"(let-values(((s_871)" +"(let-values(((orig-s_91) s_697))" +"(let-values(((begin-for-syntax630_1" +" _631_1)" +"(let-values(((s_878)" "(if(syntax?$1" -" s_870)" +" s_697)" "(syntax-e$1" -" s_870)" -" s_870)))" -"(if(pair? s_871)" -"(let-values(((begin-for-syntax636_0)" -"(let-values(((s_872)" +" s_697)" +" s_697)))" +"(if(pair? s_878)" +"(let-values(((begin-for-syntax632_0)" +"(let-values(((s_879)" "(car" -" s_871)))" -" s_872))" -"((_637_0)" -"(let-values(((s_873)" +" s_878)))" +" s_879))" +"((_633_0)" +"(let-values(((s_880)" "(cdr" -" s_871)))" -"(let-values(((s_874)" +" s_878)))" +"(let-values(((s_881)" "(if(syntax?$1" -" s_873)" +" s_880)" "(syntax-e$1" -" s_873)" -" s_873)))" -"(let-values(((flat-s_65)" +" s_880)" +" s_880)))" +"(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_874)))" +" s_881)))" "(if(not" -" flat-s_65)" +" flat-s_64)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93))" +" orig-s_91))" "(let-values()" -" flat-s_65)))))))" +" flat-s_64)))))))" "(values" -" begin-for-syntax636_0" -" _637_0))" +" begin-for-syntax632_0" +" _633_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93)))))" +" orig-s_91)))))" "(values" " #t" -" begin-for-syntax634_1" -" _635_1))))))" +" begin-for-syntax630_1" +" _631_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx638_0)" +"(let-values(((submod-ctx634_0)" " submod-ctx_1)" -"((body-s639_0)" +"((body-s635_0)" " body-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" submod-ctx638_0" -" body-s639_0))))" +" submod-ctx634_0" +" body-s635_0))))" "(let-values(((nested-bodys_3)" "(loop_125" "(semi-parsed-begin-for-syntax-body" " body_23)" -"(add1 phase_157))))" +"(add1 phase_155))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76209,33 +76194,33 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s640_0)" +"(let-values(((rebuild-body-s636_0)" " rebuild-body-s_0)" -"((temp641_0)" +"((temp637_0)" "(list*" -" begin-for-syntax634_0" +" begin-for-syntax630_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #t" -" rebuild-body-s640_0" -" temp641_0))" +" rebuild-body-s636_0" +" temp637_0))" " parsed-bfs_0))" -"(loop_125 rest-bodys_3 phase_157))))))))" -"(if(let-values(((or-part_414)(parsed? body_23)))" -"(if or-part_414" -" or-part_414" +"(loop_125 rest-bodys_3 phase_155))))))))" +"(if(let-values(((or-part_415)(parsed? body_23)))" +"(if or-part_415" +" or-part_415" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_125 rest-bodys_3 phase_157)))" +"(cons body_23(loop_125 rest-bodys_3 phase_155)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" -"(let-values(((tmp_67)" +"(let-values(((tmp_68)" "(core-form-sym" " disarmed-body_2" -" phase_157)))" -"(if(equal? tmp_67 'module*)" +" phase_155)))" +"(if(equal? tmp_68 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -76247,63 +76232,63 @@ static const char *startup_source = " body_23" " submod-ctx_1)))" "(let-values(((ok?_90" -" module*642_0" -" name643_0" -" _644_0)" -"(let-values(((s_875)" -" disarmed-body_2))" -"(if(let-values(((s_876)" -"(if(syntax?$1" -" s_875)" -"(syntax-e$1" -" s_875)" -" s_875)))" -"(if(pair? s_876)" -"(if(let-values(((s_877)" -"(car" -" s_876)))" -" #t)" -"(let-values(((s_878)" -"(cdr" -" s_876)))" -"(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_879)))" -" #t)" -"(let-values(((s_881)" -"(cdr" -" s_879)))" +" module*638_0" +" name639_0" +" _640_0)" "(let-values(((s_882)" +" disarmed-body_2))" +"(if(let-values(((s_704)" "(if(syntax?$1" -" s_881)" -"(syntax-e$1" -" s_881)" -" s_881)))" -"(if(pair?" " s_882)" +"(syntax-e$1" +" s_882)" +" s_882)))" +"(if(pair? s_704)" "(if(let-values(((s_883)" "(car" -" s_882)))" +" s_704)))" +" #t)" "(let-values(((s_884)" +"(cdr" +" s_704)))" +"(let-values(((s_705)" "(if(syntax?$1" -" s_883)" +" s_884)" "(syntax-e$1" -" s_883)" -" s_883)))" +" s_884)" +" s_884)))" +"(if(pair?" +" s_705)" +"(if(let-values(((s_885)" +"(car" +" s_705)))" +" #t)" +"(let-values(((s_886)" +"(cdr" +" s_705)))" +"(let-values(((s_887)" +"(if(syntax?$1" +" s_886)" +"(syntax-e$1" +" s_886)" +" s_886)))" +"(if(pair?" +" s_887)" +"(if(let-values(((s_888)" +"(car" +" s_887)))" +"(let-values(((s_889)" +"(if(syntax?$1" +" s_888)" +"(syntax-e$1" +" s_888)" +" s_888)))" "(eq?" " #f" -" s_884)))" -"(let-values(((s_885)" +" s_889)))" +"(let-values(((s_890)" "(cdr" -" s_882)))" +" s_887)))" " #t)" " #f)" " #f)))" @@ -76312,76 +76297,76 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*642_1" -" name643_1" -" _644_1)" -"(let-values(((s_886)" +"(let-values(((module*638_1" +" name639_1" +" _640_1)" +"(let-values(((s_891)" "(if(syntax?$1" -" s_875)" +" s_882)" "(syntax-e$1" -" s_875)" -" s_875)))" -"(let-values(((module*645_0)" -"(let-values(((s_887)" +" s_882)" +" s_882)))" +"(let-values(((module*641_0)" +"(let-values(((s_892)" "(car" -" s_886)))" -" s_887))" -"((name646_0" -" _647_0)" -"(let-values(((s_888)" +" s_891)))" +" s_892))" +"((name642_0" +" _643_0)" +"(let-values(((s_893)" "(cdr" -" s_886)))" +" s_891)))" +"(let-values(((s_894)" +"(if(syntax?$1" +" s_893)" +"(syntax-e$1" +" s_893)" +" s_893)))" +"(let-values(((name644_0)" +"(let-values(((s_895)" +"(car" +" s_894)))" +" s_895))" +"((_645_0)" +"(let-values(((s_896)" +"(cdr" +" s_894)))" +"(let-values(((s_897)" +"(if(syntax?$1" +" s_896)" +"(syntax-e$1" +" s_896)" +" s_896)))" +"(let-values((()" +"(let-values(((s_898)" +"(car" +" s_897)))" "(let-values(((s_706)" "(if(syntax?$1" -" s_888)" +" s_898)" "(syntax-e$1" -" s_888)" -" s_888)))" -"(let-values(((name648_0)" -"(let-values(((s_889)" -"(car" -" s_706)))" -" s_889))" -"((_649_0)" -"(let-values(((s_890)" -"(cdr" -" s_706)))" -"(let-values(((s_707)" -"(if(syntax?$1" -" s_890)" -"(syntax-e$1" -" s_890)" -" s_890)))" -"(let-values((()" -"(let-values(((s_891)" -"(car" -" s_707)))" -"(let-values(((s_892)" -"(if(syntax?$1" -" s_891)" -"(syntax-e$1" -" s_891)" -" s_891)))" +" s_898)" +" s_898)))" "(values))))" -"((_650_0)" -"(let-values(((s_708)" +"((_646_0)" +"(let-values(((s_899)" "(cdr" -" s_707)))" -" s_708)))" +" s_897)))" +" s_899)))" "(values" -" _650_0))))))" +" _646_0))))))" "(values" -" name648_0" -" _649_0))))))" +" name644_0" +" _645_0))))))" "(values" -" module*645_0" -" name646_0" -" _647_0)))))" +" module*641_0" +" name642_0" +" _643_0)))))" "(values" " #t" -" module*642_1" -" name643_1" -" _644_1)))" +" module*638_1" +" name639_1" +" _640_1)))" "(values" " #f" " #f" @@ -76393,49 +76378,46 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_157)))" +" phase_155)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((shifted-s651_0)" +"(let-values(((shifted-s647_0)" " shifted-s_0)" -"((self652_0)" +"((self648_0)" " self_40)" -"((submod-ctx653_0)" +"((submod-ctx649_0)" " submod-ctx_1)" -"((temp654_0)" +"((temp650_0)" " #t)" -"((neg-phase655_0)" +"((neg-phase651_0)" " neg-phase_0)" -"((all-scopes-s656_0)" -" all-scopes-s_1)" -"((requires+provides657_0)" +"((requires+provides652_0)" " requires+provides_12)" -"((enclosing-is-cross-phase-persistent?658_0)" +"((enclosing-is-cross-phase-persistent?653_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset659_0)" +"((mpis-to-reset654_0)" " mpis-to-reset_3)" -"((declared-submodule-names660_0)" +"((declared-submodule-names655_0)" " declared-submodule-names_7)" -"((compiled-submodules661_0)" +"((compiled-submodules656_0)" " compiled-submodules_4)" -"((modules-being-compiled662_0)" +"((modules-being-compiled657_0)" " modules-being-compiled_7))" -"(expand-submodule197.1" -" compiled-submodules661_0" -" declared-submodule-names660_0" -" all-scopes-s656_0" -" enclosing-is-cross-phase-persistent?658_0" -" requires+provides657_0" -" temp654_0" -" neg-phase655_0" -" modules-being-compiled662_0" -" mpis-to-reset659_0" -" shifted-s651_0" -" self652_0" -" submod-ctx653_0))))" +"(expand-submodule193.1" +" compiled-submodules656_0" +" declared-submodule-names655_0" +" enclosing-is-cross-phase-persistent?653_0" +" requires+provides652_0" +" temp650_0" +" neg-phase651_0" +" modules-being-compiled657_0" +" mpis-to-reset654_0" +" shifted-s647_0" +" self648_0" +" submod-ctx649_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -76447,13 +76429,13 @@ static const char *startup_source = " submod_4))" "(if(expanded+parsed?" " the-struct_119)" -"(let-values(((s663_0)" +"(let-values(((s658_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_157)))" +" phase_155)))" "(expanded+parsed1.1" -" s663_0" +" s658_0" "(expanded+parsed-parsed" " the-struct_119)))" "(raise-argument-error" @@ -76463,127 +76445,126 @@ static const char *startup_source = "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_157))))))))" +" phase_155))))))))" "(let-values()" -"(let-values(((ready-body664_0)" +"(let-values(((ready-body659_0)" " ready-body_2)" -"((self665_0)" +"((self660_0)" " self_40)" -"((submod-ctx666_0)" +"((submod-ctx661_0)" " submod-ctx_1)" -"((temp667_0)" +"((temp662_0)" " #t)" -"((mpis-to-reset668_0)" +"((mpis-to-reset663_0)" " mpis-to-reset_3)" -"((declared-submodule-names669_0)" +"((declared-submodule-names664_0)" " declared-submodule-names_7)" -"((compiled-submodules670_0)" +"((compiled-submodules665_0)" " compiled-submodules_4)" -"((modules-being-compiled671_0)" +"((modules-being-compiled666_0)" " modules-being-compiled_7))" -"(expand-submodule197.1" -" compiled-submodules670_0" -" declared-submodule-names669_0" +"(expand-submodule193.1" +" compiled-submodules665_0" +" declared-submodule-names664_0" " #f" " #f" +" temp662_0" " #f" -" temp667_0" -" #f" -" modules-being-compiled671_0" -" mpis-to-reset668_0" -" ready-body664_0" -" self665_0" -" submod-ctx666_0))))))" +" modules-being-compiled666_0" +" mpis-to-reset663_0" +" ready-body659_0" +" self660_0" +" submod-ctx661_0))))))" "(cons" " submod_3" "(loop_125" " rest-bodys_3" -" phase_157)))))))" +" phase_155)))))))" "(let-values()" "(cons" " body_23" "(loop_125" " rest-bodys_3" -" phase_157)))))))))))))))))" +" phase_155)))))))))))))))))" " loop_125)" " fully-expanded-bodys-except-post-submodules_2" -" phase_156)))))))))))))))))" +" phase_154)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_120)" +"(lambda(ctx_119)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_120)" -"(expand-context-phase ctx_120)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_120))))))" +"(expand-context-stops ctx_119)" +"(expand-context-phase ctx_119)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_119))))))" "(define-values" -"(check-ids-unbound173.1)" -"(lambda(in168_0 ids170_0 phase171_0 requires+provides172_0)" +"(check-ids-unbound171.1)" +"(lambda(in166_0 ids168_0 phase169_2 requires+provides170_0)" "(begin" -" 'check-ids-unbound173" -"(let-values(((ids_48) ids170_0))" -"(let-values(((phase_158) phase171_0))" -"(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_893) in168_0))" +" 'check-ids-unbound171" +"(let-values(((ids_48) ids168_0))" +"(let-values(((phase_156) phase169_2))" +"(let-values(((requires+provides_13) requires+provides170_0))" +"(let-values(((s_900) in166_0))" "(let-values()" "(begin" -"(let-values(((lst_447) ids_48))" +"(let-values(((lst_449) ids_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_339)" -"(lambda(lst_448)" -"(begin" -" 'for-loop" -"(if(pair? lst_448)" -"(let-values(((id_159)(unsafe-car lst_448))" -"((rest_264)(unsafe-cdr lst_448)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(let-values(((requires+provides672_0)" -" requires+provides_13)" -"((id673_0) id_159)" -"((phase674_0)" -" phase_158)" -"((s675_0) s_893)" -"((temp676_0) 'module))" -"(check-not-defined95.1" -" #f" -" #f" -" #f" -" s675_0" -" #f" -" #f" -" temp676_0" -" requires+provides672_0" -" id673_0" -" phase674_0)))" -"(values)))))" -"(values)))))" -"(if(not #f)(for-loop_339 rest_264)(values))))" -"(values))))))" -" for-loop_339)" -" lst_447)))" -"(void))))))))))" -"(define-values" -"(eval-nested-bodys)" -"(lambda(bodys_28 phase_159 m-ns_23 self_41 ctx_121)" -"(begin" -"(begin" -"(let-values(((lst_449) bodys_28))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_340)" +"(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_338)" "(lambda(lst_450)" "(begin" " 'for-loop" "(if(pair? lst_450)" -"(let-values(((body_24)(unsafe-car lst_450))((rest_265)(unsafe-cdr lst_450)))" +"(let-values(((id_159)(unsafe-car lst_450))" +"((rest_263)(unsafe-cdr lst_450)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(let-values(((requires+provides667_0)" +" requires+provides_13)" +"((id668_0) id_159)" +"((phase669_0)" +" phase_156)" +"((s670_0) s_900)" +"((temp671_0) 'module))" +"(check-not-defined95.1" +" #f" +" #f" +" #f" +" s670_0" +" #f" +" #f" +" temp671_0" +" requires+provides667_0" +" id668_0" +" phase669_0)))" +"(values)))))" +"(values)))))" +"(if(not #f)(for-loop_338 rest_263)(values))))" +"(values))))))" +" for-loop_338)" +" lst_449)))" +"(void))))))))))" +"(define-values" +"(eval-nested-bodys)" +"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_120)" +"(begin" +"(begin" +"(let-values(((lst_451) bodys_28))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" +"((letrec-values(((for-loop_339)" +"(lambda(lst_452)" +"(begin" +" 'for-loop" +"(if(pair? lst_452)" +"(let-values(((body_24)(unsafe-car lst_452))((rest_264)(unsafe-cdr lst_452)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76606,63 +76587,63 @@ static const char *startup_source = " ids_49" "(parsed-define-values-rhs" " p_80)" -" phase_159" +" phase_157" " m-ns_23" -" ctx_121)))" +" ctx_120)))" "(begin" -"(let-values(((lst_451) ids_49)" -"((lst_452)" +"(let-values(((lst_453) ids_49)" +"((lst_454)" "(parsed-define-values-syms" " p_80))" -"((lst_453) vals_11))" +"((lst_455) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_451)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_452)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_453)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_454" -" lst_455" -" lst_456)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_454)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_455)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_456" +" lst_457" +" lst_458)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_454)" -"(if(pair?" -" lst_455)" -"(pair?" " lst_456)" +"(if(pair?" +" lst_457)" +"(pair?" +" lst_458)" " #f)" " #f)" "(let-values(((id_160)" "(unsafe-car" -" lst_454))" +" lst_456))" +"((rest_265)" +"(unsafe-cdr" +" lst_456))" +"((sym_111)" +"(unsafe-car" +" lst_457))" "((rest_266)" "(unsafe-cdr" -" lst_454))" -"((sym_112)" -"(unsafe-car" -" lst_455))" -"((rest_267)" -"(unsafe-cdr" -" lst_455))" +" lst_457))" "((val_88)" "(unsafe-car" -" lst_456))" -"((rest_268)" +" lst_458))" +"((rest_267)" "(unsafe-cdr" -" lst_456)))" +" lst_458)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76671,37 +76652,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_159" -" sym_112" +" phase_157" +" sym_111" " val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_341" +"(for-loop_340" +" rest_265" " rest_266" -" rest_267" -" rest_268)" +" rest_267)" "(values))))" "(values))))))" -" for-loop_341)" -" lst_451" -" lst_452" -" lst_453)))" +" for-loop_340)" +" lst_453" +" lst_454" +" lst_455)))" "(void)))))" -"(if(let-values(((or-part_415)" -"(parsed-define-syntaxes?" -" p_80)))" -"(if or-part_415" -" or-part_415" -"(semi-parsed-begin-for-syntax?" -" p_80)))" -"(let-values()(void))" "(if(let-values(((or-part_416)" -"(parsed-#%declare?" +"(parsed-define-syntaxes?" " p_80)))" "(if or-part_416" " or-part_416" +"(semi-parsed-begin-for-syntax?" +" p_80)))" +"(let-values()(void))" +"(if(let-values(((or-part_417)" +"(parsed-#%declare?" +" p_80)))" +"(if or-part_417" +" or-part_417" "(syntax?$1 p_80)))" "(let-values()(void))" "(let-values()" @@ -76712,127 +76693,121 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_121" +" ctx_120" " 1/current-namespace" " m-ns_23)" "(let-values()" "(eval-single-top" "(compile-single" " p_80" -"(let-values(((m-ns677_0)" +"(let-values(((m-ns672_0)" " m-ns_23)" -"((phase678_0)" -" phase_159))" +"((phase673_0)" +" phase_157))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" m-ns677_0" -" phase678_0" +" m-ns672_0" +" phase673_0" " unsafe-undefined)))" " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_265)(values))))" +"(if(not #f)(for-loop_339 rest_264)(values))))" "(values))))))" -" for-loop_340)" -" lst_449)))" +" for-loop_339)" +" lst_451)))" "(void)))))" "(define-values" -"(expand-submodule197.1)" -"(lambda(compiled-submodules183_0" -" declared-submodule-names182_0" -" enclosing-all-scopes-stx180_0" -" enclosing-is-cross-phase-persistent?179_0" -" enclosing-requires+provides178_0" -" is-star?176_0" -" keep-enclosing-scope-at-phase177_0" -" modules-being-compiled184_0" -" mpis-to-reset181_0" -" s194_0" -" self195_0" -" ctx196_0)" +"(expand-submodule193.1)" +"(lambda(compiled-submodules180_0" +" declared-submodule-names179_0" +" enclosing-is-cross-phase-persistent?177_0" +" enclosing-requires+provides176_0" +" is-star?174_0" +" keep-enclosing-scope-at-phase175_0" +" modules-being-compiled181_0" +" mpis-to-reset178_0" +" s190_2" +" self191_0" +" ctx192_1)" "(begin" -" 'expand-submodule197" -"(let-values(((s_738) s194_0))" -"(let-values(((self_42) self195_0))" -"(let-values(((ctx_122) 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))" -"(let-values(((enclosing-is-cross-phase-persistent?_2) enclosing-is-cross-phase-persistent?179_0))" -"(let-values(((enclosing-all-scopes-stx_1) enclosing-all-scopes-stx180_0))" -"(let-values(((mpis-to-reset_4) mpis-to-reset181_0))" -"(let-values(((declared-submodule-names_8) declared-submodule-names182_0))" -"(let-values(((compiled-submodules_5) compiled-submodules183_0))" -"(let-values(((modules-being-compiled_8) modules-being-compiled184_0))" +" 'expand-submodule193" +"(let-values(((s_901) s190_2))" +"(let-values(((self_42) self191_0))" +"(let-values(((ctx_121) ctx192_1))" +"(let-values(((is-star?_0) is-star?174_0))" +"(let-values(((keep-enclosing-scope-at-phase_2) keep-enclosing-scope-at-phase175_0))" +"(let-values(((enclosing-r+p_2) enclosing-requires+provides176_0))" +"(let-values(((enclosing-is-cross-phase-persistent?_2) enclosing-is-cross-phase-persistent?177_0))" +"(let-values(((mpis-to-reset_4) mpis-to-reset178_0))" +"(let-values(((declared-submodule-names_8) declared-submodule-names179_0))" +"(let-values(((compiled-submodules_5) compiled-submodules180_0))" +"(let-values(((modules-being-compiled_8) modules-being-compiled181_0))" "(let-values()" "(let-values((()" "(begin" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_159)(expand-context-observer ctx_122)))" -"(if obs_159" +"(let-values(((obs_163)(expand-context-observer ctx_121)))" +"(if obs_163" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_159 'enter-prim s_738)" +"(call-expand-observe obs_163 'enter-prim s_901)" "(call-expand-observe" -" obs_159" +" obs_163" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_91 module679_0 name680_0 _681_0)" -"(let-values(((s_761) s_738))" -"(let-values(((orig-s_94) s_761))" -"(let-values(((module679_1 name680_1 _681_1)" -"(let-values(((s_894)" -"(if(syntax?$1 s_761)" -"(syntax-e$1 s_761)" -" s_761)))" -"(if(pair? s_894)" -"(let-values(((module682_0)" -"(let-values(((s_895)(car s_894)))" -" s_895))" -"((name683_0 _684_0)" -"(let-values(((s_896)(cdr s_894)))" -"(let-values(((s_897)" -"(if(syntax?$1" -" s_896)" -"(syntax-e$1 s_896)" -" s_896)))" -"(if(pair? s_897)" -"(let-values(((name685_0)" -"(let-values(((s_898)" +"(let-values(((ok?_91 module674_0 name675_0 _676_0)" +"(let-values(((s_754) s_901))" +"(let-values(((orig-s_92) s_754))" +"(let-values(((module674_1 name675_1 _676_1)" +"(let-values(((s_902)" +"(if(syntax?$1 s_754)" +"(syntax-e$1 s_754)" +" s_754)))" +"(if(pair? s_902)" +"(let-values(((module677_0)" +"(let-values(((s_759)(car s_902)))" +" s_759))" +"((name678_0 _679_0)" +"(let-values(((s_760)(cdr s_902)))" +"(let-values(((s_761)" +"(if(syntax?$1 s_760)" +"(syntax-e$1 s_760)" +" s_760)))" +"(if(pair? s_761)" +"(let-values(((name680_0)" +"(let-values(((s_903)" "(car" -" s_897)))" -" s_898))" -"((_686_0)" -"(let-values(((s_899)" +" s_761)))" +" s_903))" +"((_681_0)" +"(let-values(((s_904)" "(cdr" -" s_897)))" -" s_899)))" -"(values name685_0 _686_0))" +" s_761)))" +" s_904)))" +"(values name680_0 _681_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_94))))))" -"(values module682_0 name683_0 _684_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_94)))))" -"(values #t module679_1 name680_1 _681_1))))))" -"(let-values(((name_81)(syntax-e$1 name680_0)))" +" \"bad syntax\"" +" orig-s_92))))))" +"(values module677_0 name678_0 _679_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_92)))))" +"(values #t module674_1 name675_1 _676_1))))))" +"(let-values(((name_81)(syntax-e$1 name675_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_81 #f)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"submodule already declared with the same name\"" -" s_738" +" \"submodule already declared with the same name\"" +" s_901" " name_81))" "(void))" "(values))))" @@ -76841,32 +76816,32 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_81" -"(syntax-e$1 module679_0))" +"(syntax-e$1 module674_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_160)(expand-context-observer ctx_122)))" -"(if obs_160" +"(let-values(((obs_164)(expand-context-observer ctx_121)))" +"(if obs_164" "(let-values()" "(let-values()" -"(call-expand-observe obs_160 'enter-prim s_738)))" +"(call-expand-observe obs_164 'enter-prim s_901)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s687_0) s_738)" -"((temp688_0)" -"(let-values(((v_268) ctx_122))" -"(let-values(((the-struct_120) v_268))" +"(let-values(((s682_0) s_901)" +"((temp683_0)" +"(let-values(((v_269) ctx_121))" +"(let-values(((the-struct_120) v_269))" "(if(expand-context/outer? the-struct_120)" -"(let-values(((context697_0) 'module)" -"((post-expansion698_0) #f)" -"((inner699_0)" +"(let-values(((context691_0) 'module)" +"((post-expansion692_0) #f)" +"((inner693_0)" "(let-values(((the-struct_121)" "(root-expand-context/outer-inner" -" v_268)))" +" v_269)))" "(if(expand-context/inner?" " the-struct_121)" -"(let-values(((stops700_0)" +"(let-values(((stops694_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -76899,7 +76874,7 @@ static const char *startup_source = " the-struct_121)" "(expand-context/inner-keep-#%expression?" " the-struct_121)" -" stops700_0" +" stops694_0" "(expand-context/inner-declared-submodule-names" " the-struct_121)" "(expand-context/inner-lifts" @@ -76922,18 +76897,17 @@ static const char *startup_source = " the-struct_121)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_121)))))" "(expand-context/outer1.1" -" inner699_0" -" post-expansion698_0" +" inner693_0" +" post-expansion692_0" "(root-expand-context/outer-use-site-scopes" " the-struct_120)" "(root-expand-context/outer-frame-id" " the-struct_120)" -" context697_0" -"(expand-context/outer-env" -" the-struct_120)" +" context691_0" +"(expand-context/outer-env the-struct_120)" "(expand-context/outer-scopes" " the-struct_120)" "(expand-context/outer-def-ctx-scopes" @@ -76954,81 +76928,77 @@ static const char *startup_source = " the-struct_120)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_120)))))" -"((self689_0) self_42)" -"((temp690_0) #t)" -"((keep-enclosing-scope-at-phase691_0)" +"((self684_0) self_42)" +"((temp685_0) #t)" +"((keep-enclosing-scope-at-phase686_0)" " keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx692_0)" -" enclosing-all-scopes-stx_1)" -"((enclosing-r+p693_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?694_0)" +"((enclosing-r+p687_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?688_0)" " enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset695_0) mpis-to-reset_4)" -"((modules-being-compiled696_0)" +"((mpis-to-reset689_0) mpis-to-reset_4)" +"((modules-being-compiled690_0)" " modules-being-compiled_8))" -"(expand-module18.1" -" temp690_0" -" enclosing-all-scopes-stx692_0" -" enclosing-is-cross-phase-persistent?694_0" -" enclosing-r+p693_0" -" keep-enclosing-scope-at-phase691_0" -" modules-being-compiled696_0" -" mpis-to-reset695_0" -" s687_0" -" temp688_0" -" self689_0))))" +"(expand-module16.1" +" temp685_0" +" enclosing-is-cross-phase-persistent?688_0" +" enclosing-r+p687_0" +" keep-enclosing-scope-at-phase686_0" +" modules-being-compiled690_0" +" mpis-to-reset689_0" +" s682_0" +" temp683_0" +" self684_0))))" "(let-values((()" "(begin" -"(let-values(((obs_161)" -"(expand-context-observer ctx_122)))" -"(if obs_161" +"(let-values(((obs_165)(expand-context-observer ctx_121)))" +"(if obs_165" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_161" +" obs_165" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_122)))" +"(let-values(((ns_131)(expand-context-namespace ctx_121)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" "(let-values(((compiled-submodule_0)" -"(let-values(((temp701_0)" +"(let-values(((temp695_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp702_0)" -"(let-values(((ns707_0) ns_131)" -"((self708_0) self_42)" -"((temp709_0)" +"((temp696_0)" +"(let-values(((ns701_0) ns_131)" +"((self702_0) self_42)" +"((temp703_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp709_0" +" temp703_0" " unsafe-undefined" -" self708_0" -" ns707_0" +" self702_0" +" ns701_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp703_0) #t)" -"((temp704_0)" +"((temp697_0) #t)" +"((temp698_0)" "(expand-context-for-serializable?" -" ctx_122))" -"((modules-being-compiled705_0)" +" ctx_121))" +"((modules-being-compiled699_0)" " modules-being-compiled_8)" -"((temp706_0) #f))" +"((temp700_0) #f))" "(compile-module13.1" -" temp703_0" -" modules-being-compiled705_0" -" temp706_0" -" temp704_0" +" temp697_0" +" modules-being-compiled699_0" +" temp700_0" +" temp698_0" " #f" -" temp701_0" -" temp702_0))))" +" temp695_0" +" temp696_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -77043,24 +77013,22 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((compiled-submodule710_0)" -" compiled-submodule_0)" -"((temp711_0) #f))" +"(let-values(((compiled-submodule704_0) compiled-submodule_0)" +"((temp705_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp711_0" -" compiled-submodule710_0))))" +" temp705_0" +" compiled-submodule704_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_162)" -"(expand-context-observer ctx_122)))" -"(if obs_162" +"(let-values(((obs_166)(expand-context-observer ctx_121)))" +"(if obs_166" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_162" +" obs_166" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -77070,15 +77038,15 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_122) submod_5))" "(if(expanded+parsed? the-struct_122)" -"(let-values(((parsed712_0)" +"(let-values(((parsed706_0)" "(let-values(((the-struct_123)" "(expanded+parsed-parsed" " submod_5)))" "(if(parsed-module? the-struct_123)" -"(let-values(((star?713_0) #t))" +"(let-values(((star?707_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_123)" -" star?713_0" +" star?707_0" "(parsed-module-name-id" " the-struct_123)" "(parsed-module-self" @@ -77099,22 +77067,22 @@ static const char *startup_source = " the-struct_123)))" "(raise-argument-error" " 'struct-copy" -" \"parsed-module?\"" +" \"parsed-module?\"" " the-struct_123)))))" "(expanded+parsed1.1" "(expanded+parsed-s the-struct_122)" -" parsed712_0))" +" parsed706_0))" "(raise-argument-error" " 'struct-copy" -" \"expanded+parsed?\"" +" \"expanded+parsed?\"" " the-struct_122))))" "(let-values()" "(let-values(((the-struct_124) submod_5))" "(if(parsed-module? the-struct_124)" -"(let-values(((star?714_0) #t))" +"(let-values(((star?708_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_124)" -" star?714_0" +" star?708_0" "(parsed-module-name-id the-struct_124)" "(parsed-module-self the-struct_124)" "(parsed-module-requires the-struct_124)" @@ -77127,173 +77095,172 @@ static const char *startup_source = " the-struct_124)))" "(raise-argument-error" " 'struct-copy" -" \"parsed-module?\"" -" the-struct_124)))))))))))))))))))))))))))))))))))" +" \"parsed-module?\"" +" the-struct_124))))))))))))))))))))))))))))))))))" "(define-values" -"(expand-non-module*-submodules212.1)" -"(lambda(compiled-submodules202_0" -" declared-submodule-names201_0" -" modules-being-compiled203_0" -" mpis-to-reset200_0" -" bodys208_0" -" phase209_0" -" self210_0" -" ctx211_0)" +"(expand-non-module*-submodules208.1)" +"(lambda(compiled-submodules198_0" +" declared-submodule-names197_0" +" modules-being-compiled199_0" +" mpis-to-reset196_0" +" bodys204_0" +" phase205_0" +" self206_0" +" ctx207_0)" "(begin" -" 'expand-non-module*-submodules212" -"(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_160) phase209_0))" -"(let-values(((self_43) self210_0))" -"(let-values(((ctx_123) ctx211_0))" -"(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" -"(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" -"(let-values(((compiled-submodules_6) compiled-submodules202_0))" -"(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" +" 'expand-non-module*-submodules208" +"(let-values(((bodys_29) bodys204_0))" +"(let-values(((phase_158) phase205_0))" +"(let-values(((self_43) self206_0))" +"(let-values(((ctx_122) ctx207_0))" +"(let-values(((mpis-to-reset_5) mpis-to-reset196_0))" +"(let-values(((declared-submodule-names_9) declared-submodule-names197_0))" +"(let-values(((compiled-submodules_6) compiled-submodules198_0))" +"(let-values(((modules-being-compiled_9) modules-being-compiled199_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_457) bodys_29))" +"(let-values(((lst_459) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_342)" -"(lambda(fold-var_387 lst_458)" +"(let-values()(check-list lst_459)))" +"((letrec-values(((for-loop_341)" +"(lambda(fold-var_387 lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((body_25)(unsafe-car lst_458))" -"((rest_269)(unsafe-cdr lst_458)))" +"(if(pair? lst_460)" +"(let-values(((body_25)(unsafe-car lst_460))" +"((rest_268)(unsafe-cdr lst_460)))" "(let-values(((fold-var_388)" "(let-values(((fold-var_389) fold-var_387))" "(let-values(((fold-var_390)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_68)" +"(let-values(((tmp_69)" "(core-form-sym" "(syntax-disarm$1" " body_25)" -" phase_160)))" -"(if(equal? tmp_68 'module)" +" phase_158)))" +"(if(equal? tmp_69 'module)" "(let-values()" -"(let-values(((body715_0)" +"(let-values(((body709_0)" " body_25)" -"((self716_0)" +"((self710_0)" " self_43)" -"((ctx717_0)" -" ctx_123)" -"((temp718_0)" +"((ctx711_0)" +" ctx_122)" +"((temp712_0)" " #f)" -"((mpis-to-reset719_0)" +"((mpis-to-reset713_0)" " mpis-to-reset_5)" -"((declared-submodule-names720_0)" +"((declared-submodule-names714_0)" " declared-submodule-names_9)" -"((compiled-submodules721_0)" +"((compiled-submodules715_0)" " compiled-submodules_6)" -"((modules-being-compiled722_0)" +"((modules-being-compiled716_0)" " modules-being-compiled_9))" -"(expand-submodule197.1" -" compiled-submodules721_0" -" declared-submodule-names720_0" +"(expand-submodule193.1" +" compiled-submodules715_0" +" declared-submodule-names714_0" " #f" " #f" +" temp712_0" " #f" -" temp718_0" -" #f" -" modules-being-compiled722_0" -" mpis-to-reset719_0" -" body715_0" -" self716_0" -" ctx717_0)))" +" modules-being-compiled716_0" +" mpis-to-reset713_0" +" body709_0" +" self710_0" +" ctx711_0)))" "(let-values() body_25))))" " fold-var_389))))" "(values fold-var_390)))))" "(if(not #f)" -"(for-loop_342 fold-var_388 rest_269)" +"(for-loop_341 fold-var_388 rest_268)" " fold-var_388)))" " fold-var_387)))))" -" for-loop_342)" +" for-loop_341)" " null" -" lst_457))))))))))))))))" +" lst_459))))))))))))))))" "(define-values" -"(make-parse-lifted-require220.1)" -"(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" +"(make-parse-lifted-require216.1)" +"(lambda(declared-submodule-names211_0 m-ns213_0 self214_0 requires+provides215_0)" "(begin" -" 'make-parse-lifted-require220" -"(let-values(((m-ns_24) m-ns217_0))" -"(let-values(((self_44) self218_0))" -"(let-values(((requires+provides_14) requires+provides219_0))" -"(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" +" 'make-parse-lifted-require216" +"(let-values(((m-ns_24) m-ns213_0))" +"(let-values(((self_44) self214_0))" +"(let-values(((requires+provides_14) requires+provides215_0))" +"(let-values(((declared-submodule-names_10) declared-submodule-names211_0))" "(let-values()" -"(lambda(s_900 phase_161)" -"(let-values(((ok?_92 #%require723_0 req724_0)" -"(let-values(((s_901)(syntax-disarm$1 s_900)))" -"(let-values(((orig-s_95) s_901))" -"(let-values(((#%require723_1 req724_1)" -"(let-values(((s_902)" -"(if(syntax?$1 s_901)(syntax-e$1 s_901) s_901)))" -"(if(pair? s_902)" -"(let-values(((#%require725_0)" -"(let-values(((s_903)(car s_902))) s_903))" -"((req726_0)" -"(let-values(((s_904)(cdr s_902)))" -"(let-values(((s_905)" -"(if(syntax?$1 s_904)" -"(syntax-e$1 s_904)" -" s_904)))" -"(if(pair? s_905)" -"(let-values(((req727_0)" -"(let-values(((s_906)" -"(car s_905)))" -" s_906))" -"(()" +"(lambda(s_905 phase_159)" +"(let-values(((ok?_92 #%require717_0 req718_0)" +"(let-values(((s_906)(syntax-disarm$1 s_905)))" +"(let-values(((orig-s_93) s_906))" +"(let-values(((#%require717_1 req718_1)" "(let-values(((s_907)" -"(cdr s_905)))" -"(let-values(((s_908)" +"(if(syntax?$1 s_906)(syntax-e$1 s_906) s_906)))" +"(if(pair? s_907)" +"(let-values(((#%require719_0)" +"(let-values(((s_908)(car s_907))) s_908))" +"((req720_0)" +"(let-values(((s_909)(cdr s_907)))" +"(let-values(((s_910)" +"(if(syntax?$1 s_909)" +"(syntax-e$1 s_909)" +" s_909)))" +"(if(pair? s_910)" +"(let-values(((req721_0)" +"(let-values(((s_911)" +"(car s_910)))" +" s_911))" +"(()" +"(let-values(((s_912)" +"(cdr s_910)))" +"(let-values(((s_913)" "(if(syntax?$1" -" s_907)" +" s_912)" "(syntax-e$1" -" s_907)" -" s_907)))" -"(if(null? s_908)" +" s_912)" +" s_912)))" +"(if(null? s_913)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_95))))))" -"(values req727_0))" +" orig-s_93))))))" +"(values req721_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_95))))))" -"(values #%require725_0 req726_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t #%require723_1 req724_1))))))" -"(let-values(((temp728_0)(list req724_0))" -"((s729_0) s_900)" -"((self730_0) self_44)" -"((m-ns731_0) m-ns_24)" -"((phase732_0) phase_161)" -"((phase733_0) phase_161)" -"((requires+provides734_0) requires+provides_14)" -"((declared-submodule-names735_0) declared-submodule-names_10)" -"((temp736_0) 'require))" +" orig-s_93))))))" +"(values #%require719_0 req720_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" +"(values #t #%require717_1 req718_1))))))" +"(let-values(((temp722_0)(list req718_0))" +"((s723_0) s_905)" +"((self724_0) self_44)" +"((m-ns725_0) m-ns_24)" +"((phase726_0) phase_159)" +"((phase727_0) phase_159)" +"((requires+provides728_0) requires+provides_14)" +"((declared-submodule-names729_0) declared-submodule-names_10)" +"((temp730_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names735_0" +" declared-submodule-names729_0" " #f" -" phase733_0" +" phase727_0" " #f" -" self730_0" +" self724_0" " #f" " #t" -" temp736_0" -" temp728_0" -" s729_0" -" m-ns731_0" -" phase732_0" -" requires+provides734_0))))))))))))" +" temp730_0" +" temp722_0" +" s723_0" +" m-ns725_0" +" phase726_0" +" requires+provides728_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -77307,16 +77274,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_459) lifted-defns_2))" +"(let-values(((lst_461) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_343)" -"(lambda(fold-var_391 lst_460)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))" +"((letrec-values(((for-loop_342)" +"(lambda(fold-var_391 lst_462)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((lifted-defn_0)(unsafe-car lst_460))" -"((rest_270)(unsafe-cdr lst_460)))" +"(if(pair? lst_462)" +"(let-values(((lifted-defn_0)(unsafe-car lst_462))" +"((rest_269)(unsafe-cdr lst_462)))" "(let-values(((fold-var_392)" "(let-values(((fold-var_393) fold-var_391))" "(let-values(((fold-var_394)" @@ -77326,38 +77293,38 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_393))))" "(values fold-var_394)))))" -"(if(not #f)(for-loop_343 fold-var_392 rest_270) fold-var_392)))" +"(if(not #f)(for-loop_342 fold-var_392 rest_269) fold-var_392)))" " fold-var_391)))))" -" for-loop_343)" +" for-loop_342)" " null" -" lst_459)))))))" +" lst_461)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_163)(expand-context-observer partial-body-ctx_2)))" -"(if obs_163" +"(let-values(((obs_167)(expand-context-observer partial-body-ctx_2)))" +"(if obs_167" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_163 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_167 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_163 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_167 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_461) s-lifted-defns_0))" +"(let-values(((lst_463) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_462)" +"(let-values()(check-list lst_463)))" +"((letrec-values(((for-loop_343)" +"(lambda(lst_464)" "(begin" " 'for-loop" -"(if(pair? lst_462)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_462))" -"((rest_271)(unsafe-cdr lst_462)))" +"(if(pair? lst_464)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_464))" +"((rest_270)(unsafe-cdr lst_464)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77365,191 +77332,191 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((ok?_93" -" define-values741_0" -" _742_0)" -"(let-values(((s_909)" +" define-values735_0" +" _736_0)" +"(let-values(((s_914)" " s-lifted-defn_0))" -"(let-values(((orig-s_96)" -" s_909))" -"(let-values(((define-values741_1" -" _742_1)" -"(let-values(((s_910)" +"(let-values(((orig-s_94)" +" s_914))" +"(let-values(((define-values735_1" +" _736_1)" +"(let-values(((s_915)" "(if(syntax?$1" -" s_909)" +" s_914)" "(syntax-e$1" -" s_909)" -" s_909)))" +" s_914)" +" s_914)))" "(if(pair?" -" s_910)" -"(let-values(((define-values743_0)" -"(let-values(((s_911)" +" s_915)" +"(let-values(((define-values737_0)" +"(let-values(((s_916)" "(car" -" s_910)))" -" s_911))" -"((_744_0)" -"(let-values(((s_912)" +" s_915)))" +" s_916))" +"((_738_0)" +"(let-values(((s_917)" "(cdr" -" s_910)))" -"(let-values(((s_913)" +" s_915)))" +"(let-values(((s_918)" "(if(syntax?$1" -" s_912)" +" s_917)" "(syntax-e$1" -" s_912)" -" s_912)))" -"(let-values(((flat-s_66)" +" s_917)" +" s_917)))" +"(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_913)))" +" s_918)))" "(if(not" -" flat-s_66)" +" flat-s_65)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))" +" orig-s_94))" "(let-values()" -" flat-s_66)))))))" +" flat-s_65)))))))" "(values" -" define-values743_0" -" _744_0))" +" define-values737_0" +" _738_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96)))))" +" orig-s_94)))))" "(values" " #t" -" define-values741_1" -" _742_1))))))" +" define-values735_1" +" _736_1))))))" "(begin" "(call-expand-observe" -" obs_163" +" obs_167" " 'next)" "(call-expand-observe" -" obs_163" +" obs_167" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'resolve" -" define-values741_0)" +" define-values735_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'prim-stop)" "(call-expand-observe" -" obs_163" +" obs_167" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_163" +" obs_167" " 'prim-define-values)" "(call-expand-observe" -" obs_163" +" obs_167" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_344 rest_271)(values))))" +"(if(not #f)(for-loop_343 rest_270)(values))))" "(values))))))" -" for-loop_344)" -" lst_461)))" +" for-loop_343)" +" lst_463)))" "(values))))" "(let-values()" -"(let-values(((ok?_94 form-id737_0 _738_0)" -"(let-values(((s_914) exp-body_10))" -"(let-values(((orig-s_97) s_914))" -"(let-values(((form-id737_1 _738_1)" -"(let-values(((s_915)" -"(if(syntax?$1 s_914)(syntax-e$1 s_914) s_914)))" -"(if(pair? s_915)" -"(let-values(((form-id739_0)" -"(let-values(((s_916)(car s_915))) s_916))" -"((_740_0)" -"(let-values(((s_917)(cdr s_915))) s_917)))" -"(values form-id739_0 _740_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" -"(values #t form-id737_1 _738_1))))))" +"(let-values(((ok?_94 form-id731_0 _732_0)" +"(let-values(((s_919) exp-body_10))" +"(let-values(((orig-s_95) s_919))" +"(let-values(((form-id731_1 _732_1)" +"(let-values(((s_920)" +"(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" +"(if(pair? s_920)" +"(let-values(((form-id733_0)" +"(let-values(((s_921)(car s_920))) s_921))" +"((_734_0)" +"(let-values(((s_922)(cdr s_920))) s_922)))" +"(values form-id733_0 _734_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" +"(values #t form-id731_1 _732_1))))))" "(begin" -"(call-expand-observe obs_163 'next)" -"(call-expand-observe obs_163 'visit exp-body_10)" -"(call-expand-observe obs_163 'resolve form-id737_0)" -"(call-expand-observe obs_163 'enter-prim exp-body_10)" -"(call-expand-observe obs_163 'prim-stop)" -"(call-expand-observe obs_163 'exit-prim exp-body_10)" -"(call-expand-observe obs_163 'return exp-body_10)))))))))" +"(call-expand-observe obs_167 'next)" +"(call-expand-observe obs_167 'visit exp-body_10)" +"(call-expand-observe obs_167 'resolve form-id731_0)" +"(call-expand-observe obs_167 'enter-prim exp-body_10)" +"(call-expand-observe obs_167 'prim-stop)" +"(call-expand-observe obs_167 'exit-prim exp-body_10)" +"(call-expand-observe obs_167 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_124 defn_1)" +"(lambda(ctx_123 defn_1)" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_124)))" -"(if obs_164" +"(let-values(((obs_168)(expand-context-observer ctx_123)))" +"(if obs_168" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_95 define-values745_0 _746_0)" -"(let-values(((s_918) s-defn_0))" -"(let-values(((orig-s_98) s_918))" -"(let-values(((define-values745_1 _746_1)" -"(let-values(((s_919)(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))" -"(if(pair? s_919)" -"(let-values(((define-values747_0)" -"(let-values(((s_920)(car s_919))) s_920))" -"((_748_0)" -"(let-values(((s_921)(cdr s_919)))" -"(let-values(((s_922)" -"(if(syntax?$1 s_921)" -"(syntax-e$1 s_921)" -" s_921)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_922)))" -"(if(not flat-s_67)" +"(let-values(((ok?_95 define-values739_0 _740_0)" +"(let-values(((s_923) s-defn_0))" +"(let-values(((orig-s_96) s_923))" +"(let-values(((define-values739_1 _740_1)" +"(let-values(((s_924)(if(syntax?$1 s_923)(syntax-e$1 s_923) s_923)))" +"(if(pair? s_924)" +"(let-values(((define-values741_0)" +"(let-values(((s_925)(car s_924))) s_925))" +"((_742_0)" +"(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_66)(to-syntax-list.1 s_927)))" +"(if(not flat-s_66)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))" -"(let-values() flat-s_67)))))))" -"(values define-values747_0 _748_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t define-values745_1 _746_1))))))" +" orig-s_96))" +"(let-values() flat-s_66)))))))" +"(values define-values741_0 _742_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" +"(values #t define-values739_1 _740_1))))))" "(begin" -"(call-expand-observe obs_164 'visit s-defn_0)" -"(call-expand-observe obs_164 'resolve define-values745_0)" -"(call-expand-observe obs_164 'enter-prim s-defn_0)" -"(call-expand-observe obs_164 'prim-define-values)))))" +"(call-expand-observe obs_168 'visit s-defn_0)" +"(call-expand-observe obs_168 'resolve define-values739_0)" +"(call-expand-observe obs_168 'enter-prim s-defn_0)" +"(call-expand-observe obs_168 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_125 defn_2 exp-rhs_8)" +"(lambda(ctx_124 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_165)(expand-context-observer ctx_125)))" -"(if obs_165" +"(let-values(((obs_169)(expand-context-observer ctx_124)))" +"(if obs_169" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_165 'exit-prim s-defn_1)(call-expand-observe obs_165 'return s-defn_1))))" +"(begin(call-expand-observe obs_169 'exit-prim s-defn_1)(call-expand-observe obs_169 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_50 s_72 ctx_126)" +"(lambda(ids_50 s_72 ctx_125)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_126)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_125)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_84) ids_50))" @@ -77572,7 +77539,7 @@ static const char *startup_source = "(let-values()" "(remove-use-site-scopes" " id_51" -" ctx_126))" +" ctx_125))" " fold-var_62))))" "(values fold-var_396)))))" "(if(not #f)(for-loop_107 fold-var_61 rest_40) fold-var_61)))" @@ -77582,16 +77549,16 @@ static const char *startup_source = " lst_84))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_72))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_125))((s3_4) s_72))" "(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_4 unsafe-undefined))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_463) tl-ids_2))" +"(let-values(((lst_465) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_463)))" +"(let-values()(check-list lst_465)))" "((letrec-values(((for-loop_83)" "(lambda(fold-var_221 lst_86)" "(begin" @@ -77616,17 +77583,17 @@ static const char *startup_source = " fold-var_221)))))" " for-loop_83)" " null" -" lst_463))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" +" lst_465))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_7)))" -"(if obs_166" -"(let-values()(let-values()(call-expand-observe obs_166 'prim-define-values)))" +"(let-values(((obs_170)(expand-context-observer ctx_7)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -77638,7 +77605,7 @@ static const char *startup_source = "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_26 define-values1_0 id2_1 rhs3_0)" "(let-values(((s_503) s_0))" -"(let-values(((orig-s_99) s_503))" +"(let-values(((orig-s_97) s_503))" "(let-values(((define-values1_1 id2_2 rhs3_1)" "(let-values(((s_76)(if(syntax?$1 s_503)(syntax-e$1 s_503) s_503)))" "(if(pair? s_76)" @@ -77657,19 +77624,19 @@ static const char *startup_source = "(if(syntax?$1 s_80)" "(syntax-e$1 s_80)" " s_80)))" -"(let-values(((flat-s_68)" +"(let-values(((flat-s_67)" "(to-syntax-list.1" " s_6)))" -"(if(not flat-s_68)" +"(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_99))" +" orig-s_97))" "(let-values()" "(let-values(((id_54)" "(let-values(((lst_76)" -" flat-s_68))" +" flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -77712,7 +77679,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_99" +" orig-s_97" " s_89)))))" "(cons" " id10_1" @@ -77758,16 +77725,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_99))))))" +" orig-s_97))))))" "(values rhs9_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_99))))))" +" orig-s_97))))))" "(values id7_0 rhs8_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))))))" "(values define-values4_0 id5_0 rhs6_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(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(((exp-rhs_9)" @@ -77776,39 +77743,39 @@ static const char *startup_source = "(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_6)(list define-values1_0 ids_51 exp-rhs_9)))" -"(rebuild5.1 #t s13_0 temp14_6))))))))))))" +"(let-values(((s13_1) s_0)((temp14_6)(list define-values1_0 ids_51 exp-rhs_9)))" +"(rebuild5.1 #t s13_1 temp14_6))))))))))))" "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_186 ctx_127)" +"(lambda(s_186 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_127)))" -"(if obs_167" -"(let-values()(let-values()(call-expand-observe obs_167 'prim-define-syntaxes)))" +"(let-values(((obs_171)(expand-context-observer ctx_126)))" +"(if obs_171" +"(let-values()(let-values()(call-expand-observe obs_171 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_127)))" -"(if obs_168(let-values()(let-values()(call-expand-observe obs_168 'prepare-env)))(void)))" +"(let-values(((obs_172)(expand-context-observer ctx_126)))" +"(if obs_172(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_127) 'top-level)" +"(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))" "(values))))" "(let-values(((disarmed-s_26)(syntax-disarm$1 s_186)))" "(let-values(((ok?_96 define-syntaxes15_0 id16_1 rhs17_0)" "(let-values(((s_18) disarmed-s_26))" -"(let-values(((orig-s_100) s_18))" +"(let-values(((orig-s_98) s_18))" "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" "(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_923)(car s_22))) s_923))" +"(let-values(((s_928)(car s_22))) s_928))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" "(let-values(((s_306)" @@ -77818,43 +77785,43 @@ static const char *startup_source = "(if(pair? s_306)" "(let-values(((id21_1)" "(let-values(((s_495)(car s_306)))" -"(let-values(((s_924)" +"(let-values(((s_929)" "(if(syntax?$1 s_495)" "(syntax-e$1 s_495)" " s_495)))" -"(let-values(((flat-s_69)" +"(let-values(((flat-s_68)" "(to-syntax-list.1" -" s_924)))" -"(if(not flat-s_69)" +" s_929)))" +"(if(not flat-s_68)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_100))" +" orig-s_98))" "(let-values()" "(let-values(((id_165)" -"(let-values(((lst_464)" -" flat-s_69))" +"(let-values(((lst_466)" +" flat-s_68))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_464)))" +" lst_466)))" "((letrec-values(((for-loop_2)" "(lambda(id_166" -" lst_465)" +" lst_467)" "(begin" " 'for-loop" "(if(pair?" -" lst_465)" -"(let-values(((s_925)" +" lst_467)" +"(let-values(((s_930)" "(unsafe-car" -" lst_465))" -"((rest_272)" +" lst_467))" +"((rest_271)" "(unsafe-cdr" -" lst_465)))" +" lst_467)))" "(let-values(((id_167)" "(let-values(((id_168)" " id_166))" @@ -77864,21 +77831,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_218)" "(if(syntax?$1" -" s_925)" +" s_930)" "(symbol?" "(syntax-e$1" -" s_925))" +" s_930))" " #f)))" "(if or-part_218" " or-part_218" "(symbol?" -" s_925)))" -" s_925" +" s_930)))" +" s_930" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_100" -" s_925)))))" +" orig-s_98" +" s_930)))))" "(cons" " id24_0" " id_168)))))" @@ -77888,19 +77855,19 @@ static const char *startup_source = " #f)" "(for-loop_2" " id_167" -" rest_272)" +" rest_271)" " id_167)))" " id_166)))))" " for-loop_2)" " null" -" lst_464)))))" +" lst_466)))))" "(reverse$1 id_165))))))))" "((rhs22_0)" -"(let-values(((s_926)(cdr s_306)))" +"(let-values(((s_931)(cdr s_306)))" "(let-values(((s_175)" -"(if(syntax?$1 s_926)" -"(syntax-e$1 s_926)" -" s_926)))" +"(if(syntax?$1 s_931)" +"(syntax-e$1 s_931)" +" s_931)))" "(if(pair? s_175)" "(let-values(((rhs23_2)" "(let-values(((s_452)" @@ -77923,43 +77890,43 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_100))))))" +" orig-s_98))))))" "(values rhs23_2))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_100))))))" +" orig-s_98))))))" "(values id21_1 rhs22_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_100))))))" +" orig-s_98))))))" "(values define-syntaxes18_0 id19_1 rhs20_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_127)))" +"(let-values(((ids_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_126)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_52)))" +"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_52)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_127)" +"(if(expand-context-to-parsed? ctx_126)" "(parsed-define-syntaxes20.1 s_186 ids_52 syms_28 exp-rhs_10)" -"(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_52 exp-rhs_10)))" -"(rebuild5.1 #t s27_3 temp28_4)))))))))))))" +"(let-values(((s27_2) s_186)((temp28_4)(list define-syntaxes15_0 ids_52 exp-rhs_10)))" +"(rebuild5.1 #t s27_2 temp28_4)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_309 ctx_113)" +"(lambda(s_309 ctx_127)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_113) 'top-level)" +"(if(eq?(expand-context-context ctx_127) '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_927) s_309))" -"(let-values(((orig-s_101) s_927))" +"(let-values(((s_932) s_309))" +"(let-values(((orig-s_99) s_932))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_48)(if(syntax?$1 s_927)(syntax-e$1 s_927) s_927)))" +"(let-values(((s_48)(if(syntax?$1 s_932)(syntax-e$1 s_932) s_932)))" "(if(pair? s_48)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" "((form32_0)" @@ -77968,30 +77935,30 @@ static const char *startup_source = "(if(syntax?$1 s_496)" "(syntax-e$1 s_496)" " s_496)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_778)))" -"(if(not flat-s_70)" +"(let-values(((flat-s_69)(to-syntax-list.1 s_778)))" +"(if(not flat-s_69)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" -"(let-values() flat-s_70)))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99))" +"(let-values() flat-s_69)))))))" "(values begin-for-syntax31_0 form32_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_113)))" -"(if obs_169" -"(let-values()(let-values()(call-expand-observe obs_169 'prim-begin-for-syntax)))" +"(let-values(((obs_173)(expand-context-observer ctx_127)))" +"(if obs_173" +"(let-values()(let-values()(call-expand-observe obs_173 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_113)))" -"(if obs_170" -"(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))" +"(let-values(((obs_174)(expand-context-observer ctx_127)))" +"(if obs_174" +"(let-values()(let-values()(call-expand-observe obs_174 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_113)((temp34_7) 'top-level)((temp35_7) #t))" +"(let-values(((ctx33_0) ctx_127)((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)))" @@ -78063,13 +78030,13 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_171)" -"(expand-context-observer ctx_113)))" -"(if obs_171" +"(let-values(((obs_175)" +"(expand-context-observer ctx_127)))" +"(if obs_175" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_171" +" obs_175" " 'enter-list" "(datum->syntax$1 #f form30_0 s_309))))" "(void)))" @@ -78085,14 +78052,14 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_172)" +"(let-values(((obs_176)" "(expand-context-observer" -" ctx_113)))" -"(if obs_172" +" ctx_127)))" +"(if obs_176" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_172" +" obs_176" " 'exit-list" "(datum->syntax$1" " #f" @@ -78103,14 +78070,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_173)" +"(let-values(((obs_177)" "(expand-context-observer" -" ctx_113)))" -"(if obs_173" +" ctx_127)))" +"(if obs_177" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_173" +" obs_177" " 'next)))" "(void)))" "(values))))" @@ -78140,14 +78107,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_174)" +"(let-values(((obs_178)" "(expand-context-observer" -" ctx_113)))" -"(if obs_174" +" ctx_127)))" +"(if obs_178" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_174" +" obs_178" " 'module-lift-loop" " lifts_15)))" "(void)))" @@ -78174,29 +78141,29 @@ static const char *startup_source = " exp-forms_0)))))))))))))" " loop_65)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_113)" +"(if(expand-context-to-parsed? ctx_127)" "(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_928 ctx_128)" +"(lambda(s_933 ctx_128)" "(let-values((()" "(begin" -"(let-values(((obs_175)(expand-context-observer ctx_128)))" -"(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-require)))(void)))" +"(let-values(((obs_179)(expand-context-observer ctx_128)))" +"(if obs_179(let-values()(let-values()(call-expand-observe obs_179 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_128) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_928)))" +" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_933)))" "(values))))" -"(let-values(((disarmed-s_27)(syntax-disarm$1 s_928)))" +"(let-values(((disarmed-s_27)(syntax-disarm$1 s_933)))" "(let-values(((ok?_97 #%require47_0 req48_0)" "(let-values(((s_63) disarmed-s_27))" -"(let-values(((orig-s_102) s_63))" +"(let-values(((orig-s_100) s_63))" "(let-values(((#%require47_1 req48_1)" "(let-values(((s_406)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))" "(if(pair? s_406)" @@ -78207,16 +78174,16 @@ static const char *startup_source = "(if(syntax?$1 s_415)" "(syntax-e$1 s_415)" " s_415)))" -"(let-values(((flat-s_71)(to-syntax-list.1 s_65)))" -"(if(not flat-s_71)" +"(let-values(((flat-s_70)(to-syntax-list.1 s_65)))" +"(if(not flat-s_70)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_102))" -"(let-values() flat-s_71)))))))" +" orig-s_100))" +"(let-values() flat-s_70)))))))" "(values #%require49_0 req50_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_102)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t #%require47_1 req48_1))))))" "(let-values(((sc_41)(new-scope 'macro)))" "(begin" @@ -78252,7 +78219,7 @@ static const char *startup_source = " for-loop_25)" " null" " lst_32)))))" -"((s52_0) s_928)" +"((s52_0) s_933)" "((temp53_5) #f)" "((temp54_5)(expand-context-namespace ctx_128))" "((temp55_5)(expand-context-phase ctx_128))" @@ -78275,14 +78242,14 @@ static const char *startup_source = " temp54_5" " temp55_5" " temp56_4))" -"(if(expand-context-to-parsed? ctx_128)(parsed-require23.1 s_928) s_928))))))))))" +"(if(expand-context-to-parsed? ctx_128)(parsed-require23.1 s_933) s_933))))))))))" "(void" "(add-core-form!*" " '#%provide" "(lambda(s_781 ctx_129)" "(begin" -"(let-values(((obs_176)(expand-context-observer ctx_129)))" -"(if obs_176(let-values()(let-values()(call-expand-observe obs_176 'prim-provide)))(void)))" +"(let-values(((obs_180)(expand-context-observer ctx_129)))" +"(if obs_180(let-values()(let-values()(call-expand-observe obs_180 'prim-provide)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_781)))))" "(define-values(ns)(make-namespace))" "(void"