From c927a004d2acf5857d6752bf3566aaed113fdb54 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 6 May 2018 16:22:40 -0600 Subject: [PATCH] expander: fix problems with `syntax-local-make-definition-context` Allow `syntax-local-make-definition-context` in places where the created scope is not accumulated for stripping from `quote-syntax`. Refine the docs to clarify those situtations. A test for the repair exposed a problem with use-site scopes and `quote-syntax`, so fix that, too. Closes #2062 --- .../scribblings/reference/stx-trans.scrbl | 6 + pkgs/racket-test-core/tests/racket/macro.rktl | 79 + racket/src/expander/eval/main.rkt | 1 - racket/src/expander/expand/context.rkt | 2 +- .../expander/expand/definition-context.rkt | 4 +- racket/src/expander/expand/expr.rkt | 4 +- racket/src/expander/expand/module.rkt | 5 +- racket/src/expander/expand/provide.rkt | 2 +- racket/src/racket/src/startup.inc | 9056 +++++++++-------- 9 files changed, 4645 insertions(+), 4514 deletions(-) diff --git a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl index fd55639260..d23986cb9e 100644 --- a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl +++ b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl @@ -498,6 +498,12 @@ argument to ensure the necessary @tech{use-site scopes} are added to macros expa Otherwise, expansion of nested definitions can be inconsistent with the expansion of definitions in the surrounding context. +The scope associated with a new definition context is pruned from +@racket[quote-syntax] forms only when it is created during the dynamic +extent of a @tech{syntax transformer} application or in a +@racket[begin-for-syntax] form (potentially nested) within a module +being expanded. + @transform-time[] @history[#:changed "6.3" @elem{Added the @racket[add-scope?] argument, diff --git a/pkgs/racket-test-core/tests/racket/macro.rktl b/pkgs/racket-test-core/tests/racket/macro.rktl index 37200ba25b..68e4b1923f 100644 --- a/pkgs/racket-test-core/tests/racket/macro.rktl +++ b/pkgs/racket-test-core/tests/racket/macro.rktl @@ -519,6 +519,69 @@ (provide v)) (test 1 dynamic-require ''uses-internal-definition-context-around-id 'v) +;; Make sure `syntax-local-make-definition-context` can be called +;; at unusual times, where the scope that is otherwise captured +;; for `quote-syntax` isn't or can't be recorded +(let-syntax ([x (syntax-local-make-definition-context)]) + (void)) +(module makes-definition-context-at-compile-time-begin racket + (begin-for-syntax + (syntax-local-make-definition-context))) +(require 'makes-definition-context-at-compile-time-begin) + + +(module create-definition-context-during-visit racket/base + (require (for-syntax racket/base)) + (provide (for-syntax ds)) + ;; won't be stipped for `quote-syntax` + (define-for-syntax ds (syntax-local-make-definition-context))) + +(module create-definition-context-during-expand racket/base + (require (for-syntax racket/base) + 'create-definition-context-during-visit) + (provide results + get-results) + + ;; will be stipped for `quote-syntax` + (define-for-syntax ds2 (syntax-local-make-definition-context)) + + (define-syntax (m stx) + (syntax-case stx () + [(_ body) + (internal-definition-context-introduce ds #'body)])) + + (define-syntax (m2 stx) + (syntax-case stx () + [(_ body) + (internal-definition-context-introduce ds2 #'body)])) + + (define-syntax (m3 stx) + (syntax-case stx () + [(_ body) + (let ([ds3 (syntax-local-make-definition-context)]) + (internal-definition-context-introduce ds3 #'body))])) + + (define results + (list + (bound-identifier=? (m #'x) + #'x) + (bound-identifier=? (m2 #'x) + #'x) + (bound-identifier=? (m3 #'x) + #'x))) + + (define (get-results) + (list + (bound-identifier=? (m #'x) + #'x) + (bound-identifier=? (m2 #'x) + #'x) + (bound-identifier=? (m3 #'x) + #'x)))) + +(test '(#f #t #t) dynamic-require ''create-definition-context-during-expand 'results) +(test '(#f #t #t) (dynamic-require ''create-definition-context-during-expand 'get-results)) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (module local-expand-begin-for-syntax-test racket/base @@ -1509,6 +1572,22 @@ (eval-syntax #'a) (eval-syntax (expand-syntax #'b)))]))) +;; ---------------------------------------- +;; Basic use-site scope example + +(module define-n-as-ten-not-five racket/base + (define x 10) + + (define-syntax-rule (use-x misc-id) + (let ([misc-id 5]) + x)) + + (define n (use-x x)) + + (provide n)) + +(test 10 dynamic-require ''define-n-as-ten-not-five 'n) + ;; ---------------------------------------- ;; Check that use-site scopes are not pruned too eagerly ;; (based on examples from Brian Mastenbrook) diff --git a/racket/src/expander/eval/main.rkt b/racket/src/expander/eval/main.rkt index 2e995e1b8d..99b753a044 100644 --- a/racket/src/expander/eval/main.rkt +++ b/racket/src/expander/eval/main.rkt @@ -234,7 +234,6 @@ (define-values (require-lifts lifts exp-s) (expand-capturing-lifts s (struct*-copy expand-context tl-ctx [only-immediate? #t] - [def-ctx-scopes (box null)] ; discarding is ok [phase phase] [namespace ns]))) (define disarmed-exp-s (raw:syntax-disarm exp-s)) diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index bdb41d0680..53f9faa525 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -90,7 +90,7 @@ empty-env push-scope ; post-expansion-scope-action null ; scopes - #f ; def-ctx-scopes + #f ; def-ctx-scopes [=> don't record scopes to be stipped for `quote-syntax`] (root-expand-context-frame-id root-ctx) ; binding-layer null ; reference-records #f ; only-immediate? diff --git a/racket/src/expander/expand/definition-context.rkt b/racket/src/expander/expand/definition-context.rkt index 9137de5499..ac1d86fa5c 100644 --- a/racket/src/expander/expand/definition-context.rkt +++ b/racket/src/expander/expand/definition-context.rkt @@ -55,8 +55,8 @@ (gensym))) (define sc (new-scope 'intdef)) (define def-ctx-scopes (expand-context-def-ctx-scopes ctx)) - (unless def-ctx-scopes (error "internal error: no box to accumulate definition-context scopes")) - (set-box! def-ctx-scopes (cons sc (unbox def-ctx-scopes))) + (when def-ctx-scopes + (set-box! def-ctx-scopes (cons sc (unbox def-ctx-scopes)))) (internal-definition-context frame-id sc add-scope? (box null) parent-ctx)) ;; syntax-local-bind-syntaxes diff --git a/racket/src/expander/expand/expr.rkt b/racket/src/expander/expand/expr.rkt index d9eb417e9d..f364dcd369 100644 --- a/racket/src/expander/expand/expr.rkt +++ b/racket/src/expander/expand/expr.rkt @@ -454,7 +454,9 @@ `(,(m-local 'quote-syntax) ,(m-local 'datum) ,(m-kw 'kw))))] [else ;; otherwise, prune scopes up to transformer boundary: - (define datum-s (remove-scopes (m 'datum) (expand-context-scopes ctx))) + (define use-site-scopes (root-expand-context-use-site-scopes ctx)) + (define datum-s (remove-scopes (remove-scopes (m 'datum) (expand-context-scopes ctx)) + (if use-site-scopes (unbox use-site-scopes) '()))) (if (and (expand-context-to-parsed? ctx) (free-id-set-empty? (expand-context-stops ctx))) (parsed-quote-syntax (keep-properties-only~ s) datum-s) diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index fd8c8c04e2..e8171fd3d3 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -360,7 +360,7 @@ [to-module-lifts (make-to-module-lift-context phase #:shared-module-ends module-ends #:end-as-expressions? #t)])) - + (finish-expanding-body-expressons partially-expanded-bodys #:phase phase #:ctx body-ctx @@ -502,7 +502,8 @@ ;; Expand the body (define expanded-mb (performance-region ['expand 'module-begin] - (expand mb (accumulate-def-ctx-scopes mb-ctx mb-def-ctx-scopes)))) + (expand mb (struct*-copy expand-context (accumulate-def-ctx-scopes mb-ctx mb-def-ctx-scopes) + [def-ctx-scopes #f])))) ;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;; Assemble the `module` result diff --git a/racket/src/expander/expand/provide.rkt b/racket/src/expander/expand/provide.rkt index dd7b193fc1..d7fbf2d405 100644 --- a/racket/src/expander/expand/provide.rkt +++ b/racket/src/expander/expand/provide.rkt @@ -156,7 +156,7 @@ ;; Discarding definition-context scopes is ok, ;; because the scopes won't be captured by ;; any `quote-syntax`: - [def-ctx-scopes (box null)]))) + [def-ctx-scopes #f]))) (unless (and (pair? (syntax-e exp-spec)) (identifier? (car (syntax-e exp-spec))) (eq? 'begin (core-form-sym exp-spec at-phase))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index bf5650094a..7b5680d06f 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -40463,10 +40463,9 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" "(if def-ctx-scopes_4" -"(void)" "(let-values()" -" (error \"internal error: no box to accumulate definition-context scopes\")))" -"(set-box! def-ctx-scopes_4(cons sc_32(unbox def-ctx-scopes_4)))" +"(set-box! def-ctx-scopes_4(cons sc_32(unbox def-ctx-scopes_4))))" +"(void))" "(internal-definition-context1.1" " frame-id_8" " sc_32" @@ -45054,75 +45053,73 @@ static const char *startup_source = "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" -"((def-ctx-scopes140_0)" -"(box null))" -"((inner141_0)" -"(let-values(((the-struct_16)" +"((inner140_0)" +"(let-values(((the-struct_74)" "(root-expand-context/outer-inner" " v_198)))" "(if(expand-context/inner?" -" the-struct_16)" -"(let-values(((phase142_0)" +" the-struct_74)" +"(let-values(((phase141_0)" " phase_133)" -"((namespace143_0)" +"((namespace142_0)" " ns_107))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_16)" +" the-struct_74)" "(root-expand-context/inner-module-scopes" -" the-struct_16)" +" the-struct_74)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_16)" +" the-struct_74)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_16)" +" the-struct_74)" "(root-expand-context/inner-defined-syms" -" the-struct_16)" +" the-struct_74)" "(root-expand-context/inner-counter" -" the-struct_16)" +" the-struct_74)" "(root-expand-context/inner-lift-key" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-to-parsed?" -" the-struct_16)" -" phase142_0" -" namespace143_0" +" the-struct_74)" +" phase141_0" +" namespace142_0" "(expand-context/inner-just-once?" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-module-begin-k" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-allow-unbound?" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-in-local-expand?" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-keep-#%expression?" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-stops" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-declared-submodule-names" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-lifts" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-lift-envs" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-module-lifts" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-require-lifts" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-to-module-lifts" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-requires+provides" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-observer" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-for-serializable?" -" the-struct_16)" +" the-struct_74)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_16)))" +" the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_16)))))" +" the-struct_74)))))" "(expand-context/outer1.1" -" inner141_0" +" inner140_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_73)" "(root-expand-context/outer-use-site-scopes" @@ -45137,7 +45134,8 @@ static const char *startup_source = " the-struct_73)" "(expand-context/outer-scopes" " the-struct_73)" -" def-ctx-scopes140_0" +"(expand-context/outer-def-ctx-scopes" +" the-struct_73)" "(expand-context/outer-binding-layer" " the-struct_73)" "(expand-context/outer-reference-records" @@ -45160,18 +45158,18 @@ static const char *startup_source = "(if or-part_298 or-part_298(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" -"(let-values(((temp144_1)" +"(let-values(((temp143_1)" "(append" " require-lifts_5" " lifts_12))" -"((exp-s145_0) exp-s_7)" -"((phase146_0) phase_133))" +"((exp-s144_0) exp-s_7)" +"((phase145_0) phase_133))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" temp144_1" -" exp-s145_0" -" phase146_0))))" +" temp143_1" +" exp-s144_0" +" phase145_0))))" "(begin" "(let-values(((obs_48)" "(expand-context-observer" @@ -45228,39 +45226,39 @@ static const char *startup_source = " 'prim-begin)))" "(void)))" "(values))))" -"(let-values(((ok?_29 begin147_0 e148_0)" +"(let-values(((ok?_29 begin146_0 e147_0)" "(let-values(((s_461)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" " s_461))" -"(let-values(((begin147_1" -" e148_1)" -"(let-values(((s_462)" +"(let-values(((begin146_1" +" e147_1)" +"(let-values(((s_223)" "(if(syntax?$1" " s_461)" "(syntax-e$1" " s_461)" " s_461)))" "(if(pair?" -" s_462)" -"(let-values(((begin149_0)" -"(let-values(((s_437)" +" s_223)" +"(let-values(((begin148_0)" +"(let-values(((s_114)" "(car" -" s_462)))" -" s_437))" -"((e150_0)" -"(let-values(((s_224)" +" s_223)))" +" s_114))" +"((e149_0)" +"(let-values(((s_437)" "(cdr" -" s_462)))" -"(let-values(((s_427)" +" s_223)))" +"(let-values(((s_224)" "(if(syntax?$1" -" s_224)" +" s_437)" "(syntax-e$1" -" s_224)" -" s_224)))" +" s_437)" +" s_437)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_427)))" +" s_224)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45271,16 +45269,16 @@ static const char *startup_source = "(let-values()" " flat-s_21)))))))" "(values" -" begin149_0" -" e150_0))" +" begin148_0" +" e149_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_33)))))" "(values" " #t" -" begin147_1" -" e148_1))))))" +" begin146_1" +" e147_1))))))" "(letrec-values(((begin-loop_0)" "(lambda(es_2)" "(begin" @@ -45305,14 +45303,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_42)" +"(let-values(((obs_51)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_42" +"(if obs_51" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_42" +" obs_51" " 'next)))" "(void)))" "(values))))" @@ -45345,28 +45343,10 @@ static const char *startup_source = "(let-values()" "(let-values(((new-s_4)" "(wrap_2" -" begin147_0" +" begin146_0" " exp-s_7" "(begin-loop_0" -" e148_0))))" -"(begin" -"(let-values(((obs_51)" -"(expand-context-observer" -" tl-ctx_0)))" -"(if obs_51" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_51" -" 'return" -" new-s_4)))" -"(void)))" -" new-s_4)))" -"(let-values()" -"(begin-loop_0 e148_0)))))))" -"(if(equal? tmp_35 'begin-for-syntax)" -"(let-values()" -"(let-values((()" +" e147_0))))" "(begin" "(let-values(((obs_52)" "(expand-context-observer" @@ -45376,44 +45356,62 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_52" +" 'return" +" new-s_4)))" +"(void)))" +" new-s_4)))" +"(let-values()" +"(begin-loop_0 e147_0)))))))" +"(if(equal? tmp_35 'begin-for-syntax)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_43)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_43" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_43" " 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values(((ok?_30" -" begin-for-syntax151_0" -" e152_0)" -"(let-values(((s_123)" +" begin-for-syntax150_0" +" e151_0)" +"(let-values(((s_462)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_123))" -"(let-values(((begin-for-syntax151_1" -" e152_1)" -"(let-values(((s_463)" +" s_462))" +"(let-values(((begin-for-syntax150_1" +" e151_1)" +"(let-values(((s_126)" "(if(syntax?$1" -" s_123)" +" s_462)" "(syntax-e$1" -" s_123)" -" s_123)))" +" s_462)" +" s_462)))" "(if(pair?" -" s_463)" -"(let-values(((begin-for-syntax153_0)" -"(let-values(((s_464)" +" s_126)" +"(let-values(((begin-for-syntax152_0)" +"(let-values(((s_463)" "(car" -" s_463)))" -" s_464))" -"((e154_0)" -"(let-values(((s_465)" +" s_126)))" +" s_463))" +"((e153_0)" +"(let-values(((s_464)" "(cdr" -" s_463)))" -"(let-values(((s_466)" +" s_126)))" +"(let-values(((s_465)" "(if(syntax?$1" -" s_465)" +" s_464)" "(syntax-e$1" -" s_465)" -" s_465)))" +" s_464)" +" s_464)))" "(let-values(((flat-s_22)" "(to-syntax-list.1" -" s_466)))" +" s_465)))" "(if(not" " flat-s_22)" "(let-values()" @@ -45424,16 +45422,16 @@ static const char *startup_source = "(let-values()" " flat-s_22)))))))" "(values" -" begin-for-syntax153_0" -" e154_0))" +" begin-for-syntax152_0" +" e153_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_34)))))" "(values" " #t" -" begin-for-syntax151_1" -" e152_1))))))" +" begin-for-syntax150_1" +" e151_1))))))" "(let-values(((next-phase_0)" "(add1 phase_133)))" "(let-values(((next-ns_0)" @@ -45468,32 +45466,32 @@ static const char *startup_source = "(values))))" "(let-values(((l_72)" "(reverse$1" -"(let-values(((lst_206)" -" e152_0))" +"(let-values(((lst_205)" +" e151_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_206)))" -"((letrec-values(((for-loop_137)" +" lst_205)))" +"((letrec-values(((for-loop_268)" "(lambda(fold-var_271" -" lst_2)" +" lst_300)" "(begin" " 'for-loop" "(if(pair?" -" lst_2)" -"(let-values(((s_467)" +" lst_300)" +"(let-values(((s_466)" "(unsafe-car" -" lst_2))" -"((rest_174)" +" lst_300))" +"((rest_113)" "(unsafe-cdr" -" lst_2)))" +" lst_300)))" +"(let-values(((fold-var_254)" "(let-values(((fold-var_272)" -"(let-values(((fold-var_201)" " fold-var_271))" -"(let-values(((fold-var_202)" +"(let-values(((fold-var_201)" "(let-values()" "(cons" "(let-values()" @@ -45509,28 +45507,28 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_467" +" s_466" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_201))))" +" fold-var_272))))" "(values" -" fold-var_202)))))" +" fold-var_201)))))" "(if(not" " #f)" -"(for-loop_137" -" fold-var_272" -" rest_174)" -" fold-var_272)))" +"(for-loop_268" +" fold-var_254" +" rest_113)" +" fold-var_254)))" " fold-var_271)))))" -" for-loop_137)" +" for-loop_268)" " null" -" lst_206))))))" +" lst_205))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" "(wrap_2" -" begin-for-syntax151_0" +" begin-for-syntax150_0" " exp-s_7" " l_72)))" "(begin" @@ -45565,107 +45563,107 @@ static const char *startup_source = " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_341 ns_108)" -"(begin(if(syntax?$1 s_341) s_341(1/namespace-syntax-introduce(1/datum->syntax #f s_341) ns_108)))))" +"(lambda(s_340 ns_108)" +"(begin(if(syntax?$1 s_340) s_340(1/namespace-syntax-introduce(1/datum->syntax #f s_340) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_238 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_238)(cons form-id_0 r_44) s_238 s_238) s_238))))" +"(lambda(form-id_0 s_467 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_467)(cons form-id_0 r_44) s_467 s_467) s_467))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_344 ctx_27)" +"(lambda(s_343 ctx_69)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_27)))" +"(let-values(((ns_109)(expand-context-namespace ctx_69)))" "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp155_1)(make-top-level-lift ctx_27)))" -"(make-lift-context6.1 #f temp155_1))))" +"(let-values(((temp154_1)(make-top-level-lift ctx_69)))" +"(make-lift-context6.1 #f temp154_1))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" "(namespace-phase ns_109)" "(make-parse-top-lifted-require ns_109))))" "(let-values(((exp-s_8)" -"(let-values(((s156_0) s_344)" -"((temp157_0)" -"(let-values(((v_199) ctx_27))" -"(let-values(((the-struct_74) v_199))" -"(if(expand-context/outer? the-struct_74)" -"(let-values(((inner158_0)" -"(let-values(((the-struct_75)" +"(let-values(((s155_0) s_343)" +"((temp156_0)" +"(let-values(((v_199) ctx_69))" +"(let-values(((the-struct_75) v_199))" +"(if(expand-context/outer? the-struct_75)" +"(let-values(((inner157_0)" +"(let-values(((the-struct_76)" "(root-expand-context/outer-inner v_199)))" -"(if(expand-context/inner? the-struct_75)" -"(let-values(((lifts159_0) lift-ctx_6)" -"((module-lifts160_0) lift-ctx_6)" -"((require-lifts161_0)" +"(if(expand-context/inner? the-struct_76)" +"(let-values(((lifts158_0) lift-ctx_6)" +"((module-lifts159_0) lift-ctx_6)" +"((require-lifts160_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-module-scopes" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-defined-syms" -" the-struct_75)" -"(root-expand-context/inner-counter the-struct_75)" +" the-struct_76)" +"(root-expand-context/inner-counter the-struct_76)" "(root-expand-context/inner-lift-key" -" the-struct_75)" -"(expand-context/inner-to-parsed? the-struct_75)" -"(expand-context/inner-phase the-struct_75)" -"(expand-context/inner-namespace the-struct_75)" -"(expand-context/inner-just-once? the-struct_75)" +" the-struct_76)" +"(expand-context/inner-to-parsed? the-struct_76)" +"(expand-context/inner-phase the-struct_76)" +"(expand-context/inner-namespace the-struct_76)" +"(expand-context/inner-just-once? the-struct_76)" "(expand-context/inner-module-begin-k" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-allow-unbound?" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-in-local-expand?" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-keep-#%expression?" -" the-struct_75)" -"(expand-context/inner-stops the-struct_75)" +" the-struct_76)" +"(expand-context/inner-stops the-struct_76)" "(expand-context/inner-declared-submodule-names" -" the-struct_75)" -" lifts159_0" -"(expand-context/inner-lift-envs the-struct_75)" -" module-lifts160_0" -" require-lifts161_0" +" the-struct_76)" +" lifts158_0" +"(expand-context/inner-lift-envs the-struct_76)" +" module-lifts159_0" +" require-lifts160_0" "(expand-context/inner-to-module-lifts" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-requires+provides" -" the-struct_75)" -"(expand-context/inner-observer the-struct_75)" +" the-struct_76)" +"(expand-context/inner-observer the-struct_76)" "(expand-context/inner-for-serializable?" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_75)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_75)))))" +" the-struct_76)))))" "(expand-context/outer1.1" -" inner158_0" -"(root-expand-context/outer-post-expansion-scope the-struct_74)" -"(root-expand-context/outer-use-site-scopes the-struct_74)" -"(root-expand-context/outer-frame-id the-struct_74)" -"(expand-context/outer-context the-struct_74)" -"(expand-context/outer-env the-struct_74)" -"(expand-context/outer-post-expansion-scope-action the-struct_74)" -"(expand-context/outer-scopes the-struct_74)" -"(expand-context/outer-def-ctx-scopes the-struct_74)" -"(expand-context/outer-binding-layer the-struct_74)" -"(expand-context/outer-reference-records the-struct_74)" -"(expand-context/outer-only-immediate? the-struct_74)" -"(expand-context/outer-need-eventually-defined the-struct_74)" -"(expand-context/outer-current-introduction-scopes the-struct_74)" -"(expand-context/outer-name the-struct_74)))" +" inner157_0" +"(root-expand-context/outer-post-expansion-scope the-struct_75)" +"(root-expand-context/outer-use-site-scopes the-struct_75)" +"(root-expand-context/outer-frame-id the-struct_75)" +"(expand-context/outer-context the-struct_75)" +"(expand-context/outer-env the-struct_75)" +"(expand-context/outer-post-expansion-scope-action the-struct_75)" +"(expand-context/outer-scopes the-struct_75)" +"(expand-context/outer-def-ctx-scopes the-struct_75)" +"(expand-context/outer-binding-layer the-struct_75)" +"(expand-context/outer-reference-records the-struct_75)" +"(expand-context/outer-only-immediate? the-struct_75)" +"(expand-context/outer-need-eventually-defined the-struct_75)" +"(expand-context/outer-current-introduction-scopes the-struct_75)" +"(expand-context/outer-name the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_74))))))" -"(expand9.1 #f #f #f s156_0 temp157_0))))" +" the-struct_75))))))" +"(expand9.1 #f #f #f s155_0 temp156_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" "(get-and-clear-lifts! lift-ctx_6)" @@ -45674,22 +45672,22 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_348 phase_134)" -"(let-values(((ok?_31 #%require162_0 req163_0)" -"(let-values(((s_468)(syntax-disarm$1 s_348)))" +"(lambda(s_347 phase_134)" +"(let-values(((ok?_31 #%require161_0 req162_0)" +"(let-values(((s_468)(syntax-disarm$1 s_347)))" "(let-values(((orig-s_35) s_468))" -"(let-values(((#%require162_1 req163_1)" +"(let-values(((#%require161_1 req162_1)" "(let-values(((s_469)(if(syntax?$1 s_468)(syntax-e$1 s_468) s_468)))" "(if(pair? s_469)" -"(let-values(((#%require164_0)(let-values(((s_470)(car s_469))) s_470))" -"((req165_0)" +"(let-values(((#%require163_0)(let-values(((s_470)(car s_469))) s_470))" +"((req164_0)" "(let-values(((s_471)(cdr s_469)))" "(let-values(((s_472)" "(if(syntax?$1 s_471)" "(syntax-e$1 s_471)" " s_471)))" "(if(pair? s_472)" -"(let-values(((req166_0)" +"(let-values(((req165_0)" "(let-values(((s_473)(car s_472)))" " s_473))" "(()" @@ -45704,34 +45702,34 @@ static const char *startup_source = " #f" " \"bad syntax\"" " orig-s_35))))))" -"(values req166_0))" +"(values req165_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))" -"(values #%require164_0 req165_0))" +"(values #%require163_0 req164_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" -"(values #t #%require162_1 req163_1))))))" -"(let-values(((temp167_0)(list req163_0))" -"((s168_0) s_348)" -"((ns169_0) ns_110)" +"(values #t #%require161_1 req162_1))))))" +"(let-values(((temp166_0)(list req162_0))" +"((s167_0) s_347)" +"((ns168_0) ns_110)" +"((phase169_1) phase_134)" "((phase170_0) phase_134)" -"((phase171_0) phase_134)" -"((temp172_0)(let-values(((temp174_0) #f))(make-requires+provides8.1 #f temp174_0)))" -"((temp173_0) 'require))" +"((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))" +"((temp172_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" " unsafe-undefined" " #f" -" phase171_0" +" phase170_0" " #f" " #f" " #f" " #t" -" temp173_0" -" temp167_0" -" s168_0" -" ns169_0" -" phase170_0" -" temp172_0)))))))" +" temp172_0" +" temp166_0" +" s167_0" +" ns168_0" +" phase169_1" +" temp171_1)))))))" "(define-values" "(wrap-lifts-as-lifted-parsed-begin63.1)" "(lambda(adjust-form57_0 require-lifts59_0 lifts60_0 exp-s61_0 rebuild-s62_0)" @@ -45746,18 +45744,18 @@ static const char *startup_source = "(lifted-parsed-begin22.1" "(append" "(reverse$1" -"(let-values(((lst_300) require-lifts_6))" +"(let-values(((lst_301) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_273 lst_145)" +"(let-values()(check-list lst_301)))" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_273 lst_302)" "(begin" " 'for-loop" -"(if(pair? lst_145)" -"(let-values(((req_19)(unsafe-car lst_145))" -"((rest_175)(unsafe-cdr lst_145)))" +"(if(pair? lst_302)" +"(let-values(((req_19)(unsafe-car lst_302))" +"((rest_174)(unsafe-cdr lst_302)))" "(let-values(((fold-var_274)" "(let-values(((fold-var_275) fold-var_273))" "(let-values(((fold-var_276)" @@ -45767,24 +45765,24 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_275))))" "(values fold-var_276)))))" -"(if(not #f)(for-loop_268 fold-var_274 rest_175) fold-var_274)))" +"(if(not #f)(for-loop_269 fold-var_274 rest_174) fold-var_274)))" " fold-var_273)))))" -" for-loop_268)" +" for-loop_269)" " null" -" lst_300))))" +" lst_301))))" "(reverse$1" -"(let-values(((lst_301)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_303)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_277 lst_302)" +"(let-values()(check-list lst_303)))" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_277 lst_304)" "(begin" " 'for-loop" -"(if(pair? lst_302)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_302))" -"((rest_176)(unsafe-cdr lst_302)))" +"(if(pair? lst_304)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_304))" +"((rest_175)(unsafe-cdr lst_304)))" "(let-values(((fold-var_278)" "(let-values(((fold-var_279) fold-var_277))" "(let-values(((fold-var_280)" @@ -45811,69 +45809,69 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_77)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_76)" -"(let-values(((last175_0)" +" the-struct_77)" +"(let-values(((last174_0)" " dv_0))" "(lifted-parsed-begin22.1" "(lifted-parsed-begin-seq" -" the-struct_76)" -" last175_0))" +" the-struct_77)" +" last174_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_76)))" +" the-struct_77)))" " dv_0)))))" " fold-var_279))))" "(values fold-var_280)))))" -"(if(not #f)(for-loop_269 fold-var_278 rest_176) fold-var_278)))" +"(if(not #f)(for-loop_270 fold-var_278 rest_175) fold-var_278)))" " fold-var_277)))))" -" for-loop_269)" +" for-loop_270)" " null" -" lst_301)))))" +" lst_303)))))" " exp-s_9))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_69 require-lifts_7 lifts_14 exp-s_10 ns_111)" +"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_10 ns_111)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_69)))" +"(let-values(((obs_56)(expand-context-observer ctx_70)))" "(if obs_56" "(let-values()" "(let-values(((new-s_6)" -"(let-values(((temp176_1)(append require-lifts_7 lifts_14))" -"((exp-s177_0) exp-s_10)" -"((temp178_0)(namespace-phase ns_111)))" +"(let-values(((temp175_0)(append require-lifts_7 lifts_14))" +"((exp-s176_0) exp-s_10)" +"((temp177_0)(namespace-phase ns_111)))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" temp176_1" -" exp-s177_0" -" temp178_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_69 new-s_6))))" +" temp175_0" +" exp-s176_0" +" temp177_0))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_70 new-s_7)" +"(lambda(ctx_71 new-s_7)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_70)))" +"(let-values(((obs_57)(expand-context-observer ctx_71)))" "(if obs_57" "(let-values()" -"(let-values(((ok?_32 begin179_0 e180_0)" -"(let-values(((s_134) new-s_7))" -"(let-values(((orig-s_36) s_134))" -"(let-values(((begin179_1 e180_1)" -"(let-values(((s_476)(if(syntax?$1 s_134)(syntax-e$1 s_134) s_134)))" -"(if(pair? s_476)" -"(let-values(((begin181_0)(let-values(((s_477)(car s_476))) s_477))" -"((e182_0)" -"(let-values(((s_478)(cdr s_476)))" -"(let-values(((s_479)" -"(if(syntax?$1 s_478)" -"(syntax-e$1 s_478)" -" s_478)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_479)))" +"(let-values(((ok?_32 begin178_0 e179_0)" +"(let-values(((s_476) new-s_7))" +"(let-values(((orig-s_36) s_476))" +"(let-values(((begin178_1 e179_1)" +"(let-values(((s_477)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" +"(if(pair? s_477)" +"(let-values(((begin180_0)(let-values(((s_478)(car s_477))) s_478))" +"((e181_0)" +"(let-values(((s_479)(cdr s_477)))" +"(let-values(((s_480)" +"(if(syntax?$1 s_479)" +"(syntax-e$1 s_479)" +" s_479)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_480)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45881,36 +45879,36 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_36))" "(let-values() flat-s_23)))))))" -"(values begin181_0 e182_0))" +"(values begin180_0 e181_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" -"(values #t begin179_1 e180_1))))))" +"(values #t begin178_1 e179_1))))))" "(begin" "(call-expand-observe obs_57 'visit new-s_7)" -"(call-expand-observe obs_57 'resolve begin179_0)" +"(call-expand-observe obs_57 'resolve begin178_0)" "(call-expand-observe obs_57 'enter-prim new-s_7)" "(call-expand-observe obs_57 'prim-begin)" -"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e180_0 new-s_7)))))" +"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e179_0 new-s_7)))))" "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_71 new-s_8)" +"(lambda(ctx_72 new-s_8)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_71)))" +"(let-values(((obs_58)(expand-context-observer ctx_72)))" "(if obs_58" "(let-values()" -"(let-values(((ok?_33 begin183_0 e184_0)" -"(let-values(((s_136) new-s_8))" -"(let-values(((orig-s_37) s_136))" -"(let-values(((begin183_1 e184_1)" -"(let-values(((s_480)(if(syntax?$1 s_136)(syntax-e$1 s_136) s_136)))" -"(if(pair? s_480)" -"(let-values(((begin185_0)(let-values(((s_138)(car s_480))) s_138))" -"((e186_0)" -"(let-values(((s_481)(cdr s_480)))" +"(let-values(((ok?_33 begin182_0 e183_0)" +"(let-values(((s_392) new-s_8))" +"(let-values(((orig-s_37) s_392))" +"(let-values(((begin182_1 e183_1)" +"(let-values(((s_481)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" +"(if(pair? s_481)" +"(let-values(((begin184_0)(let-values(((s_137)(car s_481))) s_137))" +"((e185_0)" +"(let-values(((s_138)(cdr s_481)))" "(let-values(((s_482)" -"(if(syntax?$1 s_481)" -"(syntax-e$1 s_481)" -" s_481)))" +"(if(syntax?$1 s_138)" +"(syntax-e$1 s_138)" +" s_138)))" "(let-values(((flat-s_24)(to-syntax-list.1 s_482)))" "(if(not flat-s_24)" "(let-values()" @@ -45919,15 +45917,15 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_37))" "(let-values() flat-s_24)))))))" -"(values begin185_0 e186_0))" +"(values begin184_0 e185_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" -"(values #t begin183_1 e184_1))))))" -"(let-values(((obs_59)(expand-context-observer ctx_71)))" +"(values #t begin182_1 e183_1))))))" +"(let-values(((obs_59)(expand-context-observer ctx_72)))" "(if obs_59" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e184_0 new-s_8))" +"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e183_0 new-s_8))" "(call-expand-observe obs_59 'exit-prim new-s_8)" "(call-expand-observe obs_59 'return new-s_8))))" "(void)))))" @@ -46377,7 +46375,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_271)" "(lambda(result_118 i_91)" "(begin" " 'for-loop" @@ -46409,12 +46407,12 @@ static const char *startup_source = "(if(if(not((lambda x_84(not result_119)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_270" +"(for-loop_271" " result_119" "(hash-iterate-next ht_144 i_91))" " result_119)))" " result_118)))))" -" for-loop_270)" +" for-loop_271)" " #t" "(hash-iterate-first ht_144))))" " #f))))))" @@ -46445,7 +46443,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_272)" "(lambda(table_205 i_92)" "(begin" " 'for-loop" @@ -46466,10 +46464,10 @@ static const char *startup_source = " val_77)))))" "(values table_207)))))" "(if(not #f)" -"(for-loop_271 table_206(hash-iterate-next ht_145 i_92))" +"(for-loop_272 table_206(hash-iterate-next ht_145 i_92))" " table_206)))" " table_205)))))" -" for-loop_271)" +" for-loop_272)" " '#hash()" "(hash-iterate-first ht_145)))))))))" " l_8)))))))" @@ -47536,13 +47534,13 @@ static const char *startup_source = "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" "(let-values(((v_221) config_0))" -"(let-values(((the-struct_77) v_221))" -"(if(read-config/outer? the-struct_77)" +"(let-values(((the-struct_78) v_221))" +"(if(read-config/outer? the-struct_78)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_78)(read-config/outer-inner v_221)))" -"(if(read-config/inner? the-struct_78)" +"(let-values(((the-struct_79)(read-config/outer-inner v_221)))" +"(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47554,25 +47552,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_78)" -"(read-config/inner-read-compiled the-struct_78)" -"(read-config/inner-dynamic-require the-struct_78)" -"(read-config/inner-module-declared? the-struct_78)" -"(read-config/inner-coerce the-struct_78)" -"(read-config/inner-coerce-key the-struct_78)" -"(read-config/inner-parameter-override the-struct_78)" -"(read-config/inner-parameter-cache the-struct_78)" +"(read-config/inner-source the-struct_79)" +"(read-config/inner-read-compiled the-struct_79)" +"(read-config/inner-dynamic-require the-struct_79)" +"(read-config/inner-module-declared? the-struct_79)" +"(read-config/inner-coerce the-struct_79)" +"(read-config/inner-coerce-key the-struct_79)" +"(read-config/inner-parameter-override the-struct_79)" +"(read-config/inner-parameter-cache the-struct_79)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_78)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_77)" -"(read-config/outer-col the-struct_77)" -"(read-config/outer-pos the-struct_77)" -"(read-config/outer-indentations the-struct_77)" +"(read-config/outer-line the-struct_78)" +"(read-config/outer-col the-struct_78)" +"(read-config/outer-pos the-struct_78)" +"(read-config/outer-indentations the-struct_78)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 in47_0 config48_0)" @@ -47604,55 +47602,55 @@ static const char *startup_source = "(lambda(config_2 line_2 col_1 pos_109)" "(begin" "(let-values(((v_222) config_2))" -"(let-values(((the-struct_79) v_222))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((the-struct_80) v_222))" +"(if(read-config/outer? the-struct_80)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" "((inner65_0)(read-config/outer-inner v_222)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-wrap the-struct_80)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_79)" -"(read-config/outer-keep-comment? the-struct_79)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" +"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-keep-comment? the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" "(let-values(((v_223) config_3))" -"(let-values(((the-struct_80) v_223))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((the-struct_81) v_223))" +"(if(read-config/outer? the-struct_81)" "(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_223)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_224) config_4))" -"(let-values(((the-struct_81) v_224))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((the-struct_82) v_224))" +"(if(read-config/outer? the-struct_82)" "(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_81)" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47661,18 +47659,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_225) config_5))" -"(let-values(((the-struct_82) v_225))" -"(if(read-config/outer? the-struct_82)" +"(let-values(((the-struct_83) v_225))" +"(if(read-config/outer? the-struct_83)" "(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_225)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_82)" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47681,35 +47679,35 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_226) config_6))" -"(let-values(((the-struct_83) v_226))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((the-struct_84) v_226))" +"(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_84)(read-config/outer-inner v_226)))" -"(if(read-config/inner? the-struct_84)" +"(let-values(((the-struct_85)(read-config/outer-inner v_226)))" +"(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_84)" -"(read-config/inner-for-syntax? the-struct_84)" -"(read-config/inner-source the-struct_84)" -"(read-config/inner-read-compiled the-struct_84)" -"(read-config/inner-dynamic-require the-struct_84)" -"(read-config/inner-module-declared? the-struct_84)" -"(read-config/inner-coerce the-struct_84)" -"(read-config/inner-coerce-key the-struct_84)" -"(read-config/inner-parameter-override the-struct_84)" -"(read-config/inner-parameter-cache the-struct_84)" -"(read-config/inner-st the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" +"(read-config/inner-next-readtable the-struct_85)" +"(read-config/inner-for-syntax? the-struct_85)" +"(read-config/inner-source the-struct_85)" +"(read-config/inner-read-compiled the-struct_85)" +"(read-config/inner-dynamic-require the-struct_85)" +"(read-config/inner-module-declared? the-struct_85)" +"(read-config/inner-coerce the-struct_85)" +"(read-config/inner-coerce-key the-struct_85)" +"(read-config/inner-parameter-override the-struct_85)" +"(read-config/inner-parameter-cache the-struct_85)" +"(read-config/inner-st the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" "(read-config/outer1.1" " inner72_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" -"(read-config/outer-keep-comment? the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +"(read-config/outer-wrap the-struct_84)" +"(read-config/outer-line the-struct_84)" +"(read-config/outer-col the-struct_84)" +"(read-config/outer-pos the-struct_84)" +"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-keep-comment? the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" "(define-values" "(coerce)" "(lambda(val_78 in_2 config_7)" @@ -47762,36 +47760,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_233) config_9))" -"(let-values(((the-struct_85) v_233))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((the-struct_86) v_233))" +"(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_86)(read-config/outer-inner v_233)))" -"(if(read-config/inner? the-struct_86)" +"(let-values(((the-struct_87)(read-config/outer-inner v_233)))" +"(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_86)" -"(read-config/inner-next-readtable the-struct_86)" -"(read-config/inner-for-syntax? the-struct_86)" -"(read-config/inner-source the-struct_86)" -"(read-config/inner-read-compiled the-struct_86)" -"(read-config/inner-dynamic-require the-struct_86)" -"(read-config/inner-module-declared? the-struct_86)" -"(read-config/inner-coerce the-struct_86)" -"(read-config/inner-coerce-key the-struct_86)" +"(read-config/inner-readtable the-struct_87)" +"(read-config/inner-next-readtable the-struct_87)" +"(read-config/inner-for-syntax? the-struct_87)" +"(read-config/inner-source the-struct_87)" +"(read-config/inner-read-compiled the-struct_87)" +"(read-config/inner-dynamic-require the-struct_87)" +"(read-config/inner-module-declared? the-struct_87)" +"(read-config/inner-coerce the-struct_87)" +"(read-config/inner-coerce-key the-struct_87)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_86)" -"(read-config/inner-st the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" +"(read-config/inner-parameter-cache the-struct_87)" +"(read-config/inner-st the-struct_87)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" -"(read-config/outer-indentations the-struct_85)" -"(read-config/outer-keep-comment? the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" +"(read-config/outer-wrap the-struct_86)" +"(read-config/outer-line the-struct_86)" +"(read-config/outer-col the-struct_86)" +"(read-config/outer-pos the-struct_86)" +"(read-config/outer-indentations the-struct_86)" +"(read-config/outer-keep-comment? the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48180,7 +48178,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_273)" "(lambda(fold-var_82 i_171)" "(begin" " 'for-loop" @@ -48196,10 +48194,10 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_272 fold-var_281(hash-iterate-next ht_150 i_171))" +"(for-loop_273 fold-var_281(hash-iterate-next ht_150 i_171))" " fold-var_281)))" " fold-var_82)))))" -" for-loop_272)" +" for-loop_273)" " null" "(hash-iterate-first ht_150))))))))))" "(define-values" @@ -48934,8 +48932,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" "(let-values(((v_236) elem-config_0))" -"(let-values(((the-struct_87) v_236))" -"(if(read-config/outer? the-struct_87)" +"(let-values(((the-struct_88) v_236))" +"(if(read-config/outer? the-struct_88)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -48943,16 +48941,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_236)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_87)" -"(read-config/outer-line the-struct_87)" -"(read-config/outer-col the-struct_87)" -"(read-config/outer-pos the-struct_87)" +"(read-config/outer-wrap the-struct_88)" +"(read-config/outer-line the-struct_88)" +"(read-config/outer-col the-struct_88)" +"(read-config/outer-pos the-struct_88)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_87)))" +"(read-config/outer-keep-comment? the-struct_88)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_87))))))" +" the-struct_88))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_20)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49896,10 +49894,10 @@ static const char *startup_source = "((radix140_0) radix_5)" "((radix-set?141_0) radix-set?_1)" "((exactness142_0) exactness_1)" -"((temp143_1) 'i)" +"((temp143_2) 'i)" "((convert-mode144_0) convert-mode_3))" "(string->complex-number47.1" -" temp143_1" +" temp143_2" " radix-set?141_0" " s133_0" " start134_0" @@ -49923,10 +49921,10 @@ static const char *startup_source = "((radix152_0) radix_5)" "((radix-set?153_0) radix-set?_1)" "((exactness154_0) exactness_1)" -"((temp155_2) '@)" +"((temp155_1) '@)" "((convert-mode156_0) convert-mode_3))" "(string->complex-number47.1" -" temp155_2" +" temp155_1" " radix-set?153_0" " s145_0" " start146_0" @@ -50735,31 +50733,31 @@ static const char *startup_source = "(let-values() n_35))))))))" "(define-values" "(read-special-number)" -"(lambda(s_470 start_48 end_38 convert-mode_8)" +"(lambda(s_471 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_346)(char=?(string-ref s_470 start_48) '#\\+)))" -"(if or-part_346 or-part_346(char=?(string-ref s_470 start_48) '#\\-)))" +"(if(let-values(((or-part_346)(char=?(string-ref s_471 start_48) '#\\+)))" +"(if or-part_346 or-part_346(char=?(string-ref s_471 start_48) '#\\-)))" "(let-values(((or-part_347)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 4))) '#\\.)" "(let-values(((or-part_348)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_470 start_48) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\0)" +"(if(char=?(string-ref s_471 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_348" " or-part_348" "(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_470 start_48) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\f)" +"(if(char=?(string-ref s_471 start_48) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_349" " or-part_349" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_470 start_48) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_471 start_48) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" @@ -50768,19 +50766,19 @@ static const char *startup_source = " #f)))" "(if or-part_347" " or-part_347" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 4))) '#\\.)" "(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\0) +nan.0 #f)))" "(if or-part_350" " or-part_350" "(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\f) +nan.f #f)))" "(if or-part_351" " or-part_351" -"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50837,13 +50835,13 @@ static const char *startup_source = "((start174_0) start_49)" "((end175_0) end_39)" "((radix176_0) radix_10)" -"((temp177_0) #t)" +"((temp177_1) #t)" "((exactness178_0) exactness_5)" "((in-complex179_0) in-complex_3)" "((convert-mode180_0) convert-mode_10))" "(do-string->number17.1" " in-complex179_0" -" temp177_0" +" temp177_1" " s173_0" " start174_0" " end175_0" @@ -50873,7 +50871,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_274)" "(lambda(result_123 idx_5)" "(begin" " 'for-loop" @@ -50885,10 +50883,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_81 '#\\#)))))" "(values result_125)))))" "(if(if(not((lambda x_89 result_124) c_81))(not #f) #f)" -"(for-loop_273 result_124(unsafe-fx+ idx_5 1))" +"(for-loop_274 result_124(unsafe-fx+ idx_5 1))" " result_124)))" " result_123)))))" -" for-loop_273)" +" for-loop_274)" " #f" " start*_5))))))" "(define-values" @@ -50913,7 +50911,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_274)" +"((letrec-values(((for-loop_275)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" @@ -50930,9 +50928,9 @@ static const char *startup_source = "(string-set! new-s_9 i_124 c_82)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_274)" +" for-loop_275)" " start*_6" " start_52)))" "(void)" @@ -51461,7 +51459,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_276)" "(lambda(i_3 lst_104)" "(begin" " 'for-loop" @@ -51503,12 +51501,12 @@ static const char *startup_source = " e_78))" "(not #f)" " #f)" -"(for-loop_275" +"(for-loop_276" " i_175" " rest_145)" " i_175)))" " i_3)))))" -" for-loop_275)" +" for-loop_276)" " 0" " lst_261)))))" " v_33))))))" @@ -51687,7 +51685,7 @@ static const char *startup_source = "(let-values(((e_79)" "(unsafe-car" " lst_298))" -"((rest_177)" +"((rest_176)" "(unsafe-cdr" " lst_298))" "((i_177)" @@ -51706,7 +51704,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_265" -" rest_177" +" rest_176" "(+ pos_117 1))" "(values))))" "(values))))))" @@ -51768,18 +51766,18 @@ static const char *startup_source = "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_303) seq_2)((start_56) 0))" +"(let-values(((lst_305) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_303)))" +"(let-values()(check-list lst_305)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_277)" "(lambda(lst_98 pos_118)" "(begin" " 'for-loop" @@ -51790,7 +51788,7 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_98))" -"((rest_178)" +"((rest_177)" "(unsafe-cdr" " lst_98))" "((i_46)" @@ -51808,15 +51806,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" -" rest_178" +"(for-loop_277" +" rest_177" "(+" " pos_118" " 1))" "(values))))" "(values))))))" -" for-loop_276)" -" lst_303" +" for-loop_277)" +" lst_305" " start_56)))" "(void)))" "(let-values()(void))))))" @@ -53752,14 +53750,14 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_304)" +"(let-values(((lst_306)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_304)))" -"((letrec-values(((for-loop_277)" +"(let-values()(check-list lst_306)))" +"((letrec-values(((for-loop_278)" "(lambda(lst_28)" "(begin" " 'for-loop" @@ -53767,7 +53765,7 @@ static const char *startup_source = "(let-values(((c_94)" "(unsafe-car" " lst_28))" -"((rest_179)" +"((rest_178)" "(unsafe-cdr" " lst_28)))" "(let-values((()" @@ -53782,12 +53780,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" -" rest_179)" +"(for-loop_278" +" rest_178)" "(values))))" "(values))))))" -" for-loop_277)" -" lst_304)))" +" for-loop_278)" +" lst_306)))" "(void))))" "(if(char=? c_93 '#\\newline)" "(let-values()" @@ -54687,11 +54685,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))" "((letrec-values(((for-loop_205)" -"(lambda(lst_305)" +"(lambda(lst_307)" "(begin" " 'for-loop" -"(if(pair? lst_305)" -"(let-values(((c_102)(unsafe-car lst_305))((rest_180)(unsafe-cdr lst_305)))" +"(if(pair? lst_307)" +"(let-values(((c_102)(unsafe-car lst_307))((rest_179)(unsafe-cdr lst_307)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54701,7 +54699,7 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_102))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_205 rest_180)(values))))" +"(if(not #f)(for-loop_205 rest_179)(values))))" "(values))))))" " for-loop_205)" " lst_197)))" @@ -55581,7 +55579,7 @@ static const char *startup_source = "(let-values(((in151_0) in_70)" "((config152_0) config_58)" "((c153_0) c_107)" -" ((temp154_1) \"bad syntax `~a`\")" +" ((temp154_2) \"bad syntax `~a`\")" "((dispatch-c155_0) dispatch-c_5))" "(reader-error12.1" " unsafe-undefined" @@ -55590,7 +55588,7 @@ static const char *startup_source = " unsafe-undefined" " in151_0" " config152_0" -" temp154_1" +" temp154_2" "(list dispatch-c155_0))))" "(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_107)))" "(if c3_9" @@ -55767,14 +55765,14 @@ static const char *startup_source = "(let-values()" "(let-values(((in173_0) in_70)" "((config174_0) config_58)" -" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_107)))" -"(bad-syntax-error20.1 '#\\x in173_0 config174_0 temp175_0)))))" +" ((temp175_1) (format \"~a~a\" dispatch-c_5 c_107)))" +"(bad-syntax-error20.1 '#\\x in173_0 config174_0 temp175_1)))))" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_58)" "(let-values()" "(let-values(((read-one176_0) read-one)" -"((temp177_1) '#\\{)" -"((temp178_1) '#\\{)" +"((temp177_2) '#\\{)" +"((temp178_0) '#\\{)" "((temp179_0) '#\\})" "((in180_0) in_70)" "((config181_0) config_58))" @@ -55782,8 +55780,8 @@ static const char *startup_source = " #f" " 'any" " read-one176_0" -" temp177_1" -" temp178_1" +" temp177_2" +" temp178_0" " temp179_0" " in180_0" " config181_0)))" @@ -56610,8 +56608,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_88) empty-syntax))" -"(if(syntax?$1 the-struct_88)" +"(let-values(((the-struct_89) empty-syntax))" +"(if(syntax?$1 the-struct_89)" "(let-values(((content62_0)(datum-intern-literal s-exp_4))" "((srcloc63_0) srcloc_11)" "((props64_0)" @@ -56623,14 +56621,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content62_0" -"(syntax-scopes the-struct_88)" -"(syntax-shifted-multi-scopes the-struct_88)" -"(syntax-scope-propagations+tamper the-struct_88)" -"(syntax-mpi-shifts the-struct_88)" +"(syntax-scopes the-struct_89)" +"(syntax-shifted-multi-scopes the-struct_89)" +"(syntax-scope-propagations+tamper the-struct_89)" +"(syntax-mpi-shifts the-struct_89)" " srcloc63_0" " props64_0" -"(syntax-inspector the-struct_88)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" +"(syntax-inspector the-struct_89)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -56986,7 +56984,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_258)" "(let-values(((sym_101)(unsafe-car lst_258))" -"((rest_181)(unsafe-cdr lst_258)))" +"((rest_180)(unsafe-cdr lst_258)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57005,7 +57003,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_181)" +"(for-loop_20 rest_180)" "(values))))" "(values))))))" " for-loop_20)" @@ -57340,7 +57338,7 @@ static const char *startup_source = " temp81_3" " null82_0" " temp83_3))))" -"(let-values(((ctx_72)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" +"(let-values(((ctx_73)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -57348,15 +57346,15 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_11)" " exp-s_11" -"(flip-introduction-scopes exp-s_11 ctx_72))" -"(expand-context-binding-layer ctx_72)))" -" ctx_72)))" +"(flip-introduction-scopes exp-s_11 ctx_73))" +"(expand-context-binding-layer ctx_73)))" +" ctx_73)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_72)))" +"(let-values(((obs_60)(expand-context-observer ctx_73)))" "(if obs_60" "(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_4)(expand-context-observer ctx_72)))" +"(let-values(((obs_4)(expand-context-observer ctx_73)))" "(if obs_4" "(let-values()(let-values()(call-expand-observe obs_4 'exit-local exp-s_11)))" "(void)))" @@ -57445,15 +57443,15 @@ static const char *startup_source = " intdefs-or-false?-string" " intdefs_10)))" "(values))))" -"(let-values(((ctx_73)" +"(let-values(((ctx_74)" "(let-values(((who88_0) who_34))" "(get-current-expand-context16.1 #f who88_0))))" "(let-values(((phase_91)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_73))" -"(expand-context-phase ctx_73))))" +"(add1(expand-context-phase ctx_74))" +"(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx89_0) ctx_73)" +"(let-values(((ctx89_0) ctx_74)" "((context90_0) context_24)" "((phase91_0) phase_91)" "((intdefs92_0) intdefs_10)" @@ -57465,9 +57463,9 @@ static const char *startup_source = "(if or-part_169" " or-part_169" "(if(expand-context-in-local-expand?" -" ctx_73)" +" ctx_74)" "(expand-context-keep-#%expression?" -" ctx_73)" +" ctx_74)" " #f))))" "((track-to-be-defined?96_0)" " track-to-be-defined?_1))" @@ -57483,7 +57481,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_73)" +"(expand-context-namespace ctx_74)" " phase_91)" "(values))))" "(let-values((()" @@ -57501,7 +57499,7 @@ static const char *startup_source = "(values))))" "(let-values(((input-s_1)" "(let-values(((temp97_2)" -"(flip-introduction-scopes s_494 ctx_73))" +"(flip-introduction-scopes s_494 ctx_74))" "((intdefs98_0) intdefs_10))" "(add-intdef-scopes24.1" " unsafe-undefined" @@ -57645,7 +57643,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_73))))" +" ctx_74))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -58418,7 +58416,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_159)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_279)" "(lambda(table_212 i_179)" "(begin" " 'for-loop" @@ -58484,14 +58482,14 @@ static const char *startup_source = "(values" " table_213)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_279" " table_6" "(hash-iterate-next" " ht_159" " i_179))" " table_6)))" " table_212)))))" -" for-loop_278)" +" for-loop_279)" " '#hash()" "(hash-iterate-first ht_159))))))" "((temp75_4)" @@ -58511,7 +58509,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_160)))" -"((letrec-values(((for-loop_279)" +"((letrec-values(((for-loop_280)" "(lambda(i_180)" "(begin" " 'for-loop" @@ -58534,13 +58532,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_280" "(hash-iterate-next" " ht_160" " i_180))" "(values))))" "(values))))))" -" for-loop_279)" +" for-loop_280)" "(hash-iterate-first ht_160))))" "(void)))" "(void)))))" @@ -58632,7 +58630,7 @@ static const char *startup_source = "(if(pair? lst_54)" "(let-values(((require-mpi_0)" "(unsafe-car lst_54))" -"((rest_182)" +"((rest_181)" "(unsafe-cdr lst_54)))" "(let-values(((table_33)" "(let-values(((m_29)" @@ -58664,7 +58662,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_161)))" -"((letrec-values(((for-loop_280)" +"((letrec-values(((for-loop_281)" "(lambda(table_142" " i_181)" "(begin" @@ -58694,14 +58692,14 @@ static const char *startup_source = " table_35)))))" "(if(not" " #f)" -"(for-loop_280" +"(for-loop_281" " table_31" "(hash-iterate-next" " ht_161" " i_181))" " table_31)))" " table_142)))))" -" for-loop_280)" +" for-loop_281)" " table_141" "(hash-iterate-first" " ht_161))))))" @@ -58709,7 +58707,7 @@ static const char *startup_source = " for-loop_185)" " table_183)))))" "(if(not #f)" -"(for-loop_237 table_33 rest_182)" +"(for-loop_237 table_33 rest_181)" " table_33)))" " table_183)))))" " for-loop_237)" @@ -60761,10 +60759,10 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_74)" +"(lambda(ctx_75)" "(begin" -"(let-values(((phase_42)(add1(expand-context-phase ctx_74))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_74) phase_42)))" +"(let-values(((phase_42)(add1(expand-context-phase ctx_75))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_42)))" "(namespace-visit-available-modules! ns_59 phase_42))))))" "(define-values" "(expand-body7.1)" @@ -60772,13 +60770,13 @@ static const char *startup_source = "(begin" " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_75) ctx6_0))" +"(let-values(((ctx_76) ctx6_0))" "(let-values(((s_490) source1_0))" "(let-values(((stratified?_0) stratified?2_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_65)(expand-context-observer ctx_75)))" +"(let-values(((obs_65)(expand-context-observer ctx_76)))" "(if obs_65" "(let-values()" "(let-values()" @@ -60820,7 +60818,7 @@ static const char *startup_source = " lst_22))))))" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_75)))" +"(let-values(((obs_66)(expand-context-observer ctx_76)))" "(if obs_66" "(let-values()" "(let-values()" @@ -60831,13 +60829,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_136)(expand-context-phase ctx_75)))" +"(let-values(((phase_136)(expand-context-phase ctx_76)))" "(let-values(((frame-id_7)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_260) ctx_75))" -"(let-values(((the-struct_89) v_260))" -"(if(expand-context/outer? the-struct_89)" +"(let-values(((v_260) ctx_76))" +"(let-values(((the-struct_90) v_260))" +"(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" @@ -60845,13 +60843,13 @@ static const char *startup_source = "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" "((scopes57_1)" -"(cons inside-sc_0(expand-context-scopes ctx_75)))" +"(cons inside-sc_0(expand-context-scopes ctx_76)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_7)" "((reference-records60_0)" "(cons" " frame-id_7" -"(expand-context-reference-records ctx_75)))" +"(expand-context-reference-records ctx_76)))" "((inner61_0)(root-expand-context/outer-inner v_260)))" "(expand-context/outer1.1" " inner61_0" @@ -60859,30 +60857,30 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_89)" +"(expand-context/outer-env the-struct_90)" " post-expansion-scope-action56_0" " scopes57_1" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_89)" +"(expand-context/outer-binding-layer the-struct_90)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_89)" -"(expand-context/outer-current-introduction-scopes the-struct_89)" +"(expand-context/outer-need-eventually-defined the-struct_90)" +"(expand-context/outer-current-introduction-scopes the-struct_90)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))))" +" the-struct_90))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_30 body-ctx_1)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_75))" +"(expand-context-binding-layer ctx_76))" "(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_80)(expand-context-name ctx_75)))" +"(let-values(((name_80)(expand-context-name ctx_76)))" "((letrec-values(((loop_120)" "(lambda(body-ctx_2" " bodys_8" @@ -60949,10 +60947,10 @@ static const char *startup_source = " #f)" "(let-values(((v_261)" " body-ctx_2))" -"(let-values(((the-struct_90)" +"(let-values(((the-struct_91)" " v_261))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_91)" "(let-values(((name77_0)" " name_80)" "((inner78_0)" @@ -60961,36 +60959,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-env" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-binding-layer" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_91)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_91))))" " body-ctx_2)))" "(expand9.1" " #f" @@ -61342,10 +61340,10 @@ static const char *startup_source = " dups96_0))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_75)))" +" ctx_76)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_306)" +"(let-values(((lst_308)" " ids_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61353,20 +61351,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_306)))" -"((letrec-values(((for-loop_281)" +" lst_308)))" +"((letrec-values(((for-loop_282)" "(lambda(fold-var_185" -" lst_307)" +" lst_309)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" +" lst_309)" "(let-values(((id_104)" "(unsafe-car" -" lst_307))" -"((rest_183)" +" lst_309))" +"((rest_182)" "(unsafe-cdr" -" lst_307)))" +" lst_309)))" "(let-values(((fold-var_245)" "(let-values(((fold-var_246)" " fold-var_185))" @@ -61395,18 +61393,18 @@ static const char *startup_source = " fold-var_284)))))" "(if(not" " #f)" -"(for-loop_281" +"(for-loop_282" " fold-var_245" -" rest_183)" +" rest_182)" " fold-var_245)))" " fold-var_185)))))" -" for-loop_281)" +" for-loop_282)" " null" -" lst_306))))))" +" lst_308))))))" "(let-values(((extended-env_0)" "(let-values(((lst_225)" " keys_5)" -"((lst_304)" +"((lst_306)" " ids_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61420,28 +61418,28 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_304)))" -"((letrec-values(((for-loop_277)" +" lst_306)))" +"((letrec-values(((for-loop_278)" "(lambda(env_17" -" lst_308" +" lst_310" " lst_294)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_308)" +" lst_310)" "(pair?" " lst_294)" " #f)" "(let-values(((key_88)" "(unsafe-car" -" lst_308))" +" lst_310))" "((rest_170)" "(unsafe-cdr" -" lst_308))" +" lst_310))" "((id_105)" "(unsafe-car" " lst_294))" -"((rest_184)" +"((rest_183)" "(unsafe-cdr" " lst_294)))" "(let-values(((env_18)" @@ -61458,24 +61456,24 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_278" " env_18" " rest_170" -" rest_184)" +" rest_183)" " env_18)))" " env_17)))))" -" for-loop_277)" +" for-loop_278)" "(expand-context-env" " body-ctx_2)" " lst_225" -" lst_304)))))" +" lst_306)))))" "(loop_120" "(let-values(((v_262)" " body-ctx_2))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_92)" " v_262))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_92)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -61488,42 +61486,42 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_92)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_92)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_92))))" " rest-bodys_0" " null" "(cons" " ids_31" "(append" "(reverse$1" -"(let-values(((lst_309)" +"(let-values(((lst_311)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61531,8 +61529,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_309)))" -"((letrec-values(((for-loop_282)" +" lst_311)))" +"((letrec-values(((for-loop_283)" "(lambda(fold-var_285" " lst_154)" "(begin" @@ -61558,20 +61556,20 @@ static const char *startup_source = " fold-var_288)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_283" " fold-var_286" " rest_79)" " fold-var_286)))" " fold-var_285)))))" -" for-loop_282)" +" for-loop_283)" " null" -" lst_309))))" +" lst_311))))" " val-idss_0))" "(cons" " keys_5" "(append" "(reverse$1" -"(let-values(((lst_310)" +"(let-values(((lst_312)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61579,8 +61577,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_310)))" -"((letrec-values(((for-loop_283)" +" lst_312)))" +"((letrec-values(((for-loop_284)" "(lambda(fold-var_289" " lst_32)" "(begin" @@ -61590,7 +61588,7 @@ static const char *startup_source = "(let-values(((done-body_1)" "(unsafe-car" " lst_32))" -"((rest_185)" +"((rest_184)" "(unsafe-cdr" " lst_32)))" "(let-values(((fold-var_290)" @@ -61606,14 +61604,14 @@ static const char *startup_source = " fold-var_136)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_284" " fold-var_290" -" rest_185)" +" rest_184)" " fold-var_290)))" " fold-var_289)))))" -" for-loop_283)" +" for-loop_284)" " null" -" lst_310))))" +" lst_312))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -61630,17 +61628,17 @@ static const char *startup_source = " lst_108)))" "((letrec-values(((for-loop_123)" "(lambda(fold-var_292" -" lst_311)" +" lst_313)" "(begin" " 'for-loop" "(if(pair?" -" lst_311)" +" lst_313)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_311))" -"((rest_186)" +" lst_313))" +"((rest_185)" "(unsafe-cdr" -" lst_311)))" +" lst_313)))" "(let-values(((fold-var_293)" "(let-values(((fold-var_294)" " fold-var_292))" @@ -61659,7 +61657,7 @@ static const char *startup_source = " #f)" "(for-loop_123" " fold-var_293" -" rest_186)" +" rest_185)" " fold-var_293)))" " fold-var_292)))))" " for-loop_123)" @@ -61679,19 +61677,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_53)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_295" -" lst_312)" +" lst_314)" "(begin" " 'for-loop" "(if(pair?" -" lst_312)" +" lst_314)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_312))" -"((rest_187)" +" lst_314))" +"((rest_186)" "(unsafe-cdr" -" lst_312)))" +" lst_314)))" "(let-values(((fold-var_140)" "(let-values(((fold-var_296)" " fold-var_295))" @@ -61705,12 +61703,12 @@ static const char *startup_source = " fold-var_297)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_285" " fold-var_140" -" rest_187)" +" rest_186)" " fold-var_140)))" " fold-var_295)))))" -" for-loop_284)" +" for-loop_285)" " null" " lst_53))))" " track-stxs_0))" @@ -61791,7 +61789,7 @@ static const char *startup_source = " orig-s_7))" "(let-values()" "(let-values(((id_106)" -"(let-values(((lst_313)" +"(let-values(((lst_315)" " flat-s_27))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61799,20 +61797,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_313)))" -"((letrec-values(((for-loop_285)" +" lst_315)))" +"((letrec-values(((for-loop_286)" "(lambda(id_107" -" lst_314)" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_314)" +" lst_316)" "(let-values(((s_515)" "(unsafe-car" -" lst_314))" -"((rest_188)" +" lst_316))" +"((rest_187)" "(unsafe-cdr" -" lst_314)))" +" lst_316)))" "(let-values(((id_64)" "(let-values(((id_108)" " id_107))" @@ -61844,14 +61842,14 @@ static const char *startup_source = " id_109)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_286" " id_64" -" rest_188)" +" rest_187)" " id_64)))" " id_107)))))" -" for-loop_285)" +" for-loop_286)" " null" -" lst_313)))))" +" lst_315)))))" "(reverse$1" " id_106))))))))" "((rhs112_0)" @@ -61953,10 +61951,10 @@ static const char *startup_source = " dups118_0))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_75)))" +" ctx_76)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_315)" +"(let-values(((lst_317)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61964,20 +61962,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_315)))" -"((letrec-values(((for-loop_286)" +" lst_317)))" +"((letrec-values(((for-loop_287)" "(lambda(fold-var_298" -" lst_316)" +" lst_318)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_318)" "(let-values(((id_110)" "(unsafe-car" -" lst_316))" -"((rest_189)" +" lst_318))" +"((rest_188)" "(unsafe-cdr" -" lst_316)))" +" lst_318)))" "(let-values(((fold-var_299)" "(let-values(((fold-var_300)" " fold-var_298))" @@ -62006,14 +62004,14 @@ static const char *startup_source = " fold-var_301)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_287" " fold-var_299" -" rest_189)" +" rest_188)" " fold-var_299)))" " fold-var_298)))))" -" for-loop_286)" +" for-loop_287)" " null" -" lst_315))))))" +" lst_317))))))" "(let-values((()" "(begin" "(let-values(((obs_71)" @@ -62030,7 +62028,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_75)" +" ctx_76)" "(values))))" "(let-values((()" "(begin" @@ -62052,11 +62050,11 @@ static const char *startup_source = " ids_32" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_317)" +"(let-values(((lst_319)" " keys_6)" -"((lst_318)" +"((lst_320)" " vals_8)" -"((lst_319)" +"((lst_321)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62064,52 +62062,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_318)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_319)))" -"((letrec-values(((for-loop_287)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_320)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_321)))" +"((letrec-values(((for-loop_288)" "(lambda(env_21" " lst_36" -" lst_320" -" lst_321)" +" lst_322" +" lst_323)" "(begin" " 'for-loop" "(if(if(pair?" " lst_36)" "(if(pair?" -" lst_320)" +" lst_322)" "(pair?" -" lst_321)" +" lst_323)" " #f)" " #f)" "(let-values(((key_89)" "(unsafe-car" " lst_36))" -"((rest_190)" +"((rest_189)" "(unsafe-cdr" " lst_36))" "((val_41)" "(unsafe-car" -" lst_320))" -"((rest_191)" +" lst_322))" +"((rest_190)" "(unsafe-cdr" -" lst_320))" +" lst_322))" "((id_111)" "(unsafe-car" -" lst_321))" -"((rest_192)" +" lst_323))" +"((rest_191)" "(unsafe-cdr" -" lst_321)))" +" lst_323)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62129,19 +62127,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_288" " env_22" +" rest_189" " rest_190" -" rest_191" -" rest_192)" +" rest_191)" " env_22)))" " env_21)))))" -" for-loop_287)" +" for-loop_288)" "(expand-context-env" " body-ctx_2)" -" lst_317" -" lst_318" -" lst_319)))))" +" lst_319" +" lst_320" +" lst_321)))))" "(begin" "(let-values(((obs_73)" "(expand-context-observer" @@ -62156,10 +62154,10 @@ static const char *startup_source = "(loop_120" "(let-values(((v_263)" " body-ctx_2))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_93)" " v_263))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_93)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -62172,35 +62170,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_93)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_93)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_93))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62324,8 +62322,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_93) v_264))" -"(if(expand-context/outer? the-struct_93)" +"(let-values(((the-struct_94) v_264))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -62343,24 +62341,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_93)" +"(root-expand-context/outer-frame-id the-struct_94)" " context127_0" -"(expand-context/outer-env the-struct_93)" +"(expand-context/outer-env the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_94)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_93)" -"(expand-context/outer-reference-records the-struct_93)" +"(expand-context/outer-binding-layer the-struct_94)" +"(expand-context/outer-reference-records the-struct_94)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_93)" +"(expand-context/outer-need-eventually-defined the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" -"(expand-context/outer-name the-struct_93)))" +" the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_94))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62414,7 +62412,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_64)))" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_289)" "(lambda(fold-var_302" " lst_5" " pos_125)" @@ -62427,7 +62425,7 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_5))" -"((rest_193)" +"((rest_192)" "(unsafe-cdr" " lst_5))" "((i_14)" @@ -62460,10 +62458,10 @@ static const char *startup_source = " #f)" "(let-values(((v_265)" " finish-ctx_0))" -"(let-values(((the-struct_94)" +"(let-values(((the-struct_95)" " v_265))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_95)" "(let-values(((name136_0)" " name_81)" "((inner137_0)" @@ -62472,36 +62470,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-env" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-binding-layer" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-reference-records" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_95)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))" +" the-struct_95))))" " finish-ctx_0)))" "(expand9.1" " #f" @@ -62514,15 +62512,15 @@ static const char *startup_source = " fold-var_305)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_289" " fold-var_303" -" rest_193" +" rest_192" "(+" " pos_125" " 1))" " fold-var_303)))" " fold-var_302)))))" -" for-loop_288)" +" for-loop_289)" " null" " lst_210" " start_64))))))" @@ -62630,13 +62628,13 @@ static const char *startup_source = "(let-values(((track-stxs_2) track-stxs47_0))" "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_76) ctx32_0))" +"(let-values(((ctx_77) ctx32_0))" "(let-values(((s_366) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_137)(expand-context-phase ctx_76)))" +"(let-values(((phase_137)(expand-context-phase ctx_77)))" "((letrec-values(((loop_27)" "(lambda(idss_2" " keyss_1" @@ -62658,7 +62656,7 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_76)" +"(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" "(keep-properties-only s_366)" @@ -62696,11 +62694,11 @@ static const char *startup_source = " temp151_1)))))" "(begin" "(let-values(((obs_81)" -"(expand-context-observer ctx_76)))" +"(expand-context-observer ctx_77)))" "(if obs_81" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_76)" +"(log-tag? had-stxes?_0 ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -62715,7 +62713,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_82)" "(expand-context-observer" -" ctx_76)))" +" ctx_77)))" "(if obs_82" "(let-values()" "(let-values()" @@ -62727,7 +62725,7 @@ static const char *startup_source = "(let-values(((temp152_1)(car rhss_2))" "((temp153_1)" "(as-named-context" -" ctx_76" +" ctx_77" " ids_33)))" "(expand9.1" " #f" @@ -62775,7 +62773,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_76)" +" ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" " s_366)" @@ -62787,9 +62785,9 @@ static const char *startup_source = " exp-rest_0)" "(let-values(((track?154_0)" " track?_2)" -"((s155_0)" +"((s155_1)" " s_366)" -"((temp156_0)" +"((temp156_1)" "(list*" "(core-id" " 'let-values" @@ -62802,22 +62800,22 @@ static const char *startup_source = " exp-rest_0)))" "(rebuild5.1" " track?154_0" -" s155_0" -" temp156_0)))))" +" s155_1" +" temp156_1)))))" "(begin" -"(let-values(((obs_57)" +"(let-values(((obs_83)" "(expand-context-observer" -" ctx_76)))" -"(if obs_57" +" ctx_77)))" +"(if obs_83" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" -" obs_57" +" obs_83" " 'tag" " result-s_10))" "(void)))" @@ -62847,7 +62845,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_76)" +" ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" " s_366)" @@ -62890,19 +62888,19 @@ static const char *startup_source = " s158_0" " temp159_1)))))" "(begin" -"(let-values(((obs_83)" +"(let-values(((obs_84)" "(expand-context-observer" -" ctx_76)))" -"(if obs_83" +" ctx_77)))" +"(if obs_84" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" -" obs_83" +" obs_84" " 'tag" " result-s_11))" "(void)))" @@ -62956,37 +62954,37 @@ static const char *startup_source = " s_516)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" +"(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_84 ctx_78 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_139)(expand-context-phase ctx_78)))" +"(let-values(((phase_139)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_322) val-idss_2)((lst_323) val-rhss_2)((lst_324) track-stxs_4))" +"(let-values(((lst_324) val-idss_2)((lst_325) val-rhss_2)((lst_326) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_322)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_323)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_324)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_306 lst_325 lst_326 lst_327)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_325)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_326)))" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_306 lst_327 lst_328 lst_329)" "(begin" " 'for-loop" -"(if(if(pair? lst_325)(if(pair? lst_326)(pair? lst_327) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_325))" -"((rest_194)(unsafe-cdr lst_325))" -"((val-rhs_0)(unsafe-car lst_326))" -"((rest_195)(unsafe-cdr lst_326))" -"((track-stx_2)(unsafe-car lst_327))" -"((rest_196)(unsafe-cdr lst_327)))" +"(if(if(pair? lst_327)(if(pair? lst_328)(pair? lst_329) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_327))" +"((rest_193)(unsafe-cdr lst_327))" +"((val-rhs_0)(unsafe-car lst_328))" +"((rest_194)(unsafe-cdr lst_328))" +"((track-stx_2)(unsafe-car lst_329))" +"((rest_195)(unsafe-cdr lst_329)))" "(let-values(((fold-var_307)" "(let-values(((fold-var_308) fold-var_306))" "(let-values(((fold-var_309)" @@ -63000,14 +62998,14 @@ static const char *startup_source = " fold-var_308))))" "(values fold-var_309)))))" "(if(not #f)" -"(for-loop_289 fold-var_307 rest_194 rest_195 rest_196)" +"(for-loop_290 fold-var_307 rest_193 rest_194 rest_195)" " fold-var_307)))" " fold-var_306)))))" -" for-loop_289)" +" for-loop_290)" " null" -" lst_322" -" lst_323" -" lst_324))))))" +" lst_324" +" lst_325" +" lst_326))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" "(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_139)))" "(let-values(((lv-s_0)" @@ -63018,46 +63016,46 @@ static const char *startup_source = "(list* lv-id_0 clauses_0 done-bodys_2))" " s_396)))" "(begin" -"(call-expand-observe obs_84 'block->letrec(list lv-s_0))" -"(call-expand-observe obs_84 'visit lv-s_0)" -"(call-expand-observe obs_84 'resolve lv-id_0)" -"(call-expand-observe obs_84 'enter-prim lv-s_0)" +"(call-expand-observe obs_85 'block->letrec(list lv-s_0))" +"(call-expand-observe obs_85 'visit lv-s_0)" +"(call-expand-observe obs_85 'resolve lv-id_0)" +"(call-expand-observe obs_85 'enter-prim lv-s_0)" "(if had-stxes?_2" "(let-values()" "(begin" -"(call-expand-observe obs_84 'prim-letrec-syntaxes+values)" +"(call-expand-observe obs_85 'prim-letrec-syntaxes+values)" "(call-expand-observe" -" obs_84" +" obs_85" " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" "(datum->syntax$1 #f done-bodys_2 s_396))" -"(call-expand-observe obs_84 'prepare-env)" -"(call-expand-observe obs_84 'next-group)" +"(call-expand-observe obs_85 'prepare-env)" +"(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_84 'prim-letrec-values)" +"(call-expand-observe obs_85 'prim-letrec-values)" "(call-expand-observe" -" obs_84" +" obs_85" " 'let-renames" " clauses_0" "(datum->syntax$1 #f done-bodys_2 s_396)))))))" "(let-values()" "(begin" -"(call-expand-observe obs_84 'prim-letrec-values)" +"(call-expand-observe obs_85 'prim-letrec-values)" "(call-expand-observe" -" obs_84" +" obs_85" " 'let-renames" " clauses_0" "(datum->syntax$1 #f done-bodys_2 s_396))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" +"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_36)(new-scope 'local)))" -"(let-values(((phase_82)(expand-context-phase ctx_79)))" +"(let-values(((phase_82)(expand-context-phase ctx_80)))" "(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_36 disarmed-s_5)))" "(let-values((()" "(begin" @@ -63067,7 +63065,7 @@ static const char *startup_source = " ((temp36_8) \"argument name\"))" "(check-no-duplicate-ids7.1 temp36_8 ids33_0 phase34_1 s35_1 unsafe-undefined))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_79)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_88) ids_35))" @@ -63126,9 +63124,9 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_82)(pair? lst_58) #f)" "(let-values(((key_90)(unsafe-car lst_82))" -"((rest_197)(unsafe-cdr lst_82))" +"((rest_196)(unsafe-cdr lst_82))" "((id_113)(unsafe-car lst_58))" -"((rest_198)(unsafe-cdr lst_58)))" +"((rest_197)(unsafe-cdr lst_58)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63140,11 +63138,11 @@ static const char *startup_source = " id_113)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_49 env_26 rest_197 rest_198)" +"(for-loop_49 env_26 rest_196 rest_197)" " env_26)))" " env_25)))))" " for-loop_49)" -"(expand-context-env ctx_79)" +"(expand-context-env ctx_80)" " lst_80" " lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_36)))" @@ -63183,67 +63181,67 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_85)(expand-context-observer ctx_79)))" -"(if obs_85" +"(let-values(((obs_86)(expand-context-observer ctx_80)))" +"(if obs_86" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_85" +" obs_86" " log-renames-tag_0" " sc-formals_0" "(datum->syntax$1 #f sc-bodys_0))))" "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_266) ctx_79))" -"(let-values(((the-struct_95) v_266))" -"(if(expand-context/outer? the-struct_95)" +"(let-values(((v_266) ctx_80))" +"(let-values(((the-struct_96) v_266))" +"(if(expand-context/outer? the-struct_96)" "(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_36(expand-context-scopes ctx_79)))" +"((scopes42_0)(cons sc_36(expand-context-scopes ctx_80)))" "((binding-layer43_0)" -"(increment-binding-layer ids_35 ctx_79 sc_36))" +"(increment-binding-layer ids_35 ctx_80 sc_36))" "((frame-id44_0) #f)" "((inner45_0)(root-expand-context/outer-inner v_266)))" "(expand-context/outer1.1" " inner45_0" -"(root-expand-context/outer-post-expansion-scope the-struct_95)" -"(root-expand-context/outer-use-site-scopes the-struct_95)" +"(root-expand-context/outer-post-expansion-scope the-struct_96)" +"(root-expand-context/outer-use-site-scopes the-struct_96)" " frame-id44_0" -"(expand-context/outer-context the-struct_95)" +"(expand-context/outer-context the-struct_96)" " env41_0" -"(expand-context/outer-post-expansion-scope-action the-struct_95)" +"(expand-context/outer-post-expansion-scope-action the-struct_96)" " scopes42_0" -"(expand-context/outer-def-ctx-scopes the-struct_95)" +"(expand-context/outer-def-ctx-scopes the-struct_96)" " binding-layer43_0" -"(expand-context/outer-reference-records the-struct_95)" -"(expand-context/outer-only-immediate? the-struct_95)" -"(expand-context/outer-need-eventually-defined the-struct_95)" -"(expand-context/outer-current-introduction-scopes the-struct_95)" -"(expand-context/outer-name the-struct_95)))" +"(expand-context/outer-reference-records the-struct_96)" +"(expand-context/outer-only-immediate? the-struct_96)" +"(expand-context/outer-need-eventually-defined the-struct_96)" +"(expand-context/outer-current-introduction-scopes the-struct_96)" +"(expand-context/outer-name the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_96))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys46_0) sc-bodys_0)" "((body-ctx47_0) body-ctx_4)" "((temp48_4)" -"(let-values(((ctx49_0) ctx_79)((s50_0) s_74)((temp51_3) #t))" +"(let-values(((ctx49_0) ctx_80)((s50_0) s_74)((temp51_3) #t))" "(keep-as-needed119.1 #f temp51_3 #f ctx49_0 s50_0))))" "(expand-body7.1 temp48_4 #f sc-bodys46_0 body-ctx47_0))))" "(values" -"(if(expand-context-to-parsed? ctx_79)" +"(if(expand-context-to-parsed? ctx_80)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_80)" +"(lambda(s_13 ctx_81)" "(let-values((()" "(begin" -"(let-values(((obs_86)(expand-context-observer ctx_80)))" -"(if obs_86(let-values()(let-values()(call-expand-observe obs_86 'prim-lambda)))(void)))" +"(let-values(((obs_87)(expand-context-observer ctx_81)))" +"(if obs_87(let-values()(let-values()(call-expand-observe obs_87 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_37 lambda52_0 formals53_0 body54_0)" @@ -63292,11 +63290,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" "(values #t lambda52_1 formals53_1 body54_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx60_1) ctx_80)((s61_0) s_13)((temp62_2) #t))" +"(let-values(((ctx60_1) ctx_81)((s61_0) s_13)((temp62_2) #t))" "(keep-as-needed119.1 #f #f temp62_2 ctx60_1 s61_0))))" "(let-values(((formals_2 body_11)" -"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_80 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_80)" +"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_81 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_81)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)" "(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_4)(list* lambda52_0 formals_2 body_11)))" "(rebuild5.1 #t rebuild-s63_0 temp64_4)))))))))))" @@ -63345,8 +63343,8 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lam-id65_1 formals66_1 _67_1))))))" "(let-values(((ids_36)(parse-and-flatten-formals formals66_0 #f s_26)))" -"(let-values(((ctx_73)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" -"(let-values(((phase_91)(if ctx_73(expand-context-phase ctx_73) 0)))" +"(let-values(((ctx_74)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" +"(let-values(((phase_91)(if ctx_74(expand-context-phase ctx_74) 0)))" "(begin" " (let-values (((ids73_0) ids_36) ((phase74_2) phase_91) ((s75_0) s_26) ((temp76_6) \"argument name\"))" "(check-no-duplicate-ids7.1 temp76_6 ids73_0 phase74_2 s75_0 unsafe-undefined))" @@ -63360,12 +63358,12 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_453 ctx_81)" +"(lambda(s_453 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_81)))" -"(if obs_87" -"(let-values()(let-values()(call-expand-observe obs_87 'prim-case-lambda)))" +"(let-values(((obs_88)(expand-context-observer ctx_82)))" +"(if obs_88" +"(let-values()(let-values()(call-expand-observe obs_88 'prim-case-lambda)))" "(void)))" "(values))))" "(let-values(((disarmed-s_7)(syntax-disarm$1 s_453)))" @@ -63388,27 +63386,27 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_12)" -"(let-values(((lst_328) flat-s_30))" +"(let-values(((lst_330) flat-s_30))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_328)))" -"((letrec-values(((for-loop_290)" +"(check-list lst_330)))" +"((letrec-values(((for-loop_291)" "(lambda(formals_4" " body_13" -" lst_329)" +" lst_331)" "(begin" " 'for-loop" "(if(pair?" -" lst_329)" +" lst_331)" "(let-values(((s_208)" "(unsafe-car" -" lst_329))" -"((rest_199)" +" lst_331))" +"((rest_198)" "(unsafe-cdr" -" lst_329)))" +" lst_331)))" "(let-values(((formals_5" " body_14)" "(let-values(((formals_6)" @@ -63482,20 +63480,20 @@ static const char *startup_source = " body_16)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_291" " formals_5" " body_14" -" rest_199)" +" rest_198)" "(values" " formals_5" " body_14))))" "(values" " formals_4" " body_13))))))" -" for-loop_290)" +" for-loop_291)" " null" " null" -" lst_328)))))" +" lst_330)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_12))))))))))" @@ -63525,7 +63523,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda86_1 clause87_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_81)((s93_0) s_453)((temp94_2) #t))" +"(let-values(((ctx92_0) ctx_82)((s93_0) s_453)((temp94_2) #t))" "(keep-as-needed119.1 #f #f temp94_2 ctx92_0 s93_0))))" "(let-values(((clauses_1)" "(reverse$1" @@ -63541,18 +63539,18 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_113)))" "((letrec-values(((for-loop_31)" -"(lambda(fold-var_193 lst_330 lst_331 lst_332)" +"(lambda(fold-var_193 lst_332 lst_333 lst_334)" "(begin" " 'for-loop" -"(if(if(pair? lst_330)" -"(if(pair? lst_331)(pair? lst_332) #f)" +"(if(if(pair? lst_332)" +"(if(pair? lst_333)(pair? lst_334) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_330))" -"((rest_200)(unsafe-cdr lst_330))" -"((body_17)(unsafe-car lst_331))" -"((rest_201)(unsafe-cdr lst_331))" -"((clause_3)(unsafe-car lst_332))" -"((rest_202)(unsafe-cdr lst_332)))" +"(let-values(((formals_8)(unsafe-car lst_332))" +"((rest_199)(unsafe-cdr lst_332))" +"((body_17)(unsafe-car lst_333))" +"((rest_200)(unsafe-cdr lst_333))" +"((clause_3)(unsafe-car lst_334))" +"((rest_201)(unsafe-cdr lst_334)))" "(let-values(((fold-var_310)" "(let-values(((fold-var_311) fold-var_193))" "(let-values(((fold-var_312)" @@ -63561,20 +63559,20 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_88)" +"(let-values(((obs_89)" "(expand-context-observer" -" ctx_81)))" -"(if obs_88" +" ctx_82)))" +"(if obs_89" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_88" +" obs_89" " 'next)))" "(void)))" "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx95_0)" -" ctx_81)" +" ctx_82)" "((clause96_0)" " clause_3))" "(keep-as-needed119.1" @@ -63590,10 +63588,10 @@ static const char *startup_source = " disarmed-s_7" " formals_8" " body_17" -" ctx_81" +" ctx_82" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_82)" "(list" " exp-formals_0" " exp-body_3)" @@ -63610,7 +63608,7 @@ static const char *startup_source = " fold-var_311))))" "(values fold-var_312)))))" "(if(not #f)" -"(for-loop_31 fold-var_310 rest_200 rest_201 rest_202)" +"(for-loop_31 fold-var_310 rest_199 rest_200 rest_201)" " fold-var_310)))" " fold-var_193)))))" " for-loop_31)" @@ -63618,7 +63616,7 @@ static const char *startup_source = " lst_112" " lst_200" " lst_113))))))" -"(if(expand-context-to-parsed? ctx_81)" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_2)(list* case-lambda78_0 clauses_1)))" "(rebuild5.1 #t rebuild-s99_0 temp100_2))))))))))))" @@ -63685,12 +63683,12 @@ static const char *startup_source = "(let-values(((split-by-reference?_0) split-by-reference?4_0))" "(let-values(((renames-log-tag_0) renames-log-tag5_0))" "(let-values()" -"(lambda(s_104 ctx_82)" +"(lambda(s_104 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_89)(expand-context-observer ctx_82)))" -"(if obs_89" -"(let-values()(let-values()(call-expand-observe obs_89 log-tag_0)))" +"(let-values(((obs_53)(expand-context-observer ctx_83)))" +"(if obs_53" +"(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" "(void)))" "(values))))" "(let-values(((disarmed-s_8)(syntax-disarm$1 s_104)))" @@ -63752,7 +63750,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_333)" +"(let-values(((lst_335)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63760,21 +63758,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_333)))" -"((letrec-values(((for-loop_291)" +" lst_335)))" +"((letrec-values(((for-loop_292)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_334)" +" lst_336)" "(begin" " 'for-loop" "(if(pair?" -" lst_334)" +" lst_336)" "(let-values(((s_334)" "(unsafe-car" -" lst_334))" -"((rest_203)" +" lst_336))" +"((rest_202)" "(unsafe-cdr" -" lst_334)))" +" lst_336)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -63817,7 +63815,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_335)" +"(let-values(((lst_337)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63825,8 +63823,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_335)))" -"((letrec-values(((for-loop_292)" +" lst_337)))" +"((letrec-values(((for-loop_293)" "(lambda(id:trans_6" " lst_213)" "(begin" @@ -63836,7 +63834,7 @@ static const char *startup_source = "(let-values(((s_532)" "(unsafe-car" " lst_213))" -"((rest_204)" +"((rest_203)" "(unsafe-cdr" " lst_213)))" "(let-values(((id:trans_7)" @@ -63870,14 +63868,14 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_293" " id:trans_7" -" rest_204)" +" rest_203)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_292)" +" for-loop_293)" " null" -" lst_335)))))" +" lst_337)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs119_0)" @@ -63939,20 +63937,20 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_292" " id:trans_2" " trans-rhs_2" -" rest_203)" +" rest_202)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_291)" +" for-loop_292)" " null" " null" -" lst_333)))))" +" lst_335)))))" "(values" "(reverse$1" " id:trans_0)" @@ -63995,7 +63993,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_336)" +"(let-values(((lst_338)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64003,21 +64001,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_336)))" -"((letrec-values(((for-loop_293)" +" lst_338)))" +"((letrec-values(((for-loop_294)" "(lambda(id:val_1" " val-rhs_2" -" lst_337)" +" lst_339)" "(begin" " 'for-loop" "(if(pair?" -" lst_337)" +" lst_339)" "(let-values(((s_536)" "(unsafe-car" -" lst_337))" -"((rest_205)" +" lst_339))" +"((rest_204)" "(unsafe-cdr" -" lst_337)))" +" lst_339)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64039,18 +64037,18 @@ static const char *startup_source = "(if(pair?" " s_537)" "(let-values(((id:val124_0)" -"(let-values(((s_471)" +"(let-values(((s_472)" "(car" " s_537)))" -"(let-values(((s_472)" +"(let-values(((s_538)" "(if(syntax?$1" -" s_471)" +" s_472)" "(syntax-e$1" -" s_471)" -" s_471)))" +" s_472)" +" s_472)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_472)))" +" s_538)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64060,7 +64058,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_338)" +"(let-values(((lst_340)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64068,15 +64066,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_338)))" -"((letrec-values(((for-loop_294)" +" lst_340)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_6" " lst_123)" "(begin" " 'for-loop" "(if(pair?" " lst_123)" -"(let-values(((s_538)" +"(let-values(((s_539)" "(unsafe-car" " lst_123))" "((rest_62)" @@ -64091,21 +64089,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_377)" "(if(syntax?$1" -" s_538)" +" s_539)" "(symbol?" "(syntax-e$1" -" s_538))" +" s_539))" " #f)))" "(if or-part_377" " or-part_377" "(symbol?" -" s_538)))" -" s_538" +" s_539)))" +" s_539" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_538)))))" +" s_539)))))" "(cons" " id:val149_0" " id:val_8)))))" @@ -64113,14 +64111,14 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_295" " id:val_7" " rest_62)" " id:val_7)))" " id:val_6)))))" -" for-loop_294)" +" for-loop_295)" " null" -" lst_338)))))" +" lst_340)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs125_0)" @@ -64141,15 +64139,15 @@ static const char *startup_source = " s_248)))" " s_355))" "(()" -"(let-values(((s_539)" +"(let-values(((s_540)" "(cdr" " s_248)))" "(let-values(((s_356)" "(if(syntax?$1" -" s_539)" +" s_540)" "(syntax-e$1" -" s_539)" -" s_539)))" +" s_540)" +" s_540)))" "(if(null?" " s_356)" "(values)" @@ -64182,20 +64180,20 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_294" " id:val_2" " val-rhs_3" -" rest_205)" +" rest_204)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_293)" +" for-loop_294)" " null" " null" -" lst_336)))))" +" lst_338)))))" "(values" "(reverse$1" " id:val_0)" @@ -64279,23 +64277,23 @@ static const char *startup_source = "(let-values(((s_257)(car s_254)))" " s_257))" "((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_540)(cdr s_254)))" -"(let-values(((s_541)" -"(if(syntax?$1 s_540)" -"(syntax-e$1 s_540)" -" s_540)))" -"(if(pair? s_541)" +"(let-values(((s_541)(cdr s_254)))" +"(let-values(((s_542)" +"(if(syntax?$1 s_541)" +"(syntax-e$1 s_541)" +" s_541)))" +"(if(pair? s_542)" "(let-values(((id:val135_0" " val-rhs136_0)" -"(let-values(((s_542)" +"(let-values(((s_543)" "(car" -" s_541)))" +" s_542)))" "(let-values(((s_258)" "(if(syntax?$1" -" s_542)" +" s_543)" "(syntax-e$1" -" s_542)" -" s_542)))" +" s_543)" +" s_543)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" " s_258)))" @@ -64309,7 +64307,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_339)" +"(let-values(((lst_304)" " flat-s_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64317,21 +64315,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_295)" +" lst_304)))" +"((letrec-values(((for-loop_296)" "(lambda(id:val_11" " val-rhs_7" -" lst_340)" +" lst_341)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" -"(let-values(((s_543)" +" lst_341)" +"(let-values(((s_544)" "(unsafe-car" -" lst_340))" -"((rest_206)" +" lst_341))" +"((rest_205)" "(unsafe-cdr" -" lst_340)))" +" lst_341)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64346,25 +64344,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_372)" "(if(syntax?$1" -" s_543)" -"(syntax-e$1" -" s_543)" -" s_543)))" -"(if(pair?" -" s_372)" -"(let-values(((id:val138_0)" -"(let-values(((s_544)" -"(car" -" s_372)))" -"(let-values(((s_545)" -"(if(syntax?$1" " s_544)" "(syntax-e$1" " s_544)" " s_544)))" +"(if(pair?" +" s_372)" +"(let-values(((id:val138_0)" +"(let-values(((s_545)" +"(car" +" s_372)))" +"(let-values(((s_546)" +"(if(syntax?$1" +" s_545)" +"(syntax-e$1" +" s_545)" +" s_545)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_545)))" +" s_546)))" "(if(not" " flat-s_39)" "(let-values()" @@ -64374,7 +64372,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_341)" +"(let-values(((lst_342)" " flat-s_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64382,20 +64380,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_296)" +" lst_342)))" +"((letrec-values(((for-loop_297)" "(lambda(id:val_16" -" lst_342)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((s_546)" +" lst_343)" +"(let-values(((s_547)" "(unsafe-car" -" lst_342))" -"((rest_207)" +" lst_343))" +"((rest_206)" "(unsafe-cdr" -" lst_342)))" +" lst_343)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64405,21 +64403,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_378)" "(if(syntax?$1" -" s_546)" +" s_547)" "(symbol?" "(syntax-e$1" -" s_546))" +" s_547))" " #f)))" "(if or-part_378" " or-part_378" "(symbol?" -" s_546)))" -" s_546" +" s_547)))" +" s_547" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_546)))))" +" s_547)))))" "(cons" " id:val152_0" " id:val_18)))))" @@ -64427,14 +64425,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_297" " id:val_17" -" rest_207)" +" rest_206)" " id:val_17)))" " id:val_16)))))" -" for-loop_296)" +" for-loop_297)" " null" -" lst_341)))))" +" lst_342)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs139_0)" @@ -64450,22 +64448,22 @@ static const char *startup_source = "(if(pair?" " s_260)" "(let-values(((val-rhs140_0)" -"(let-values(((s_547)" +"(let-values(((s_548)" "(car" " s_260)))" -" s_547))" +" s_548))" "(()" -"(let-values(((s_548)" +"(let-values(((s_549)" "(cdr" " s_260)))" -"(let-values(((s_549)" +"(let-values(((s_550)" "(if(syntax?$1" -" s_548)" -"(syntax-e$1" -" s_548)" -" s_548)))" -"(if(null?" " s_549)" +"(syntax-e$1" +" s_549)" +" s_549)))" +"(if(null?" +" s_550)" "(values)" "(raise-syntax-error$1" " #f" @@ -64496,20 +64494,20 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_296" " id:val_12" " val-rhs_8" -" rest_206)" +" rest_205)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_295)" +" for-loop_296)" " null" " null" -" lst_339)))))" +" lst_304)))))" "(values" "(reverse$1" " id:val_10)" @@ -64518,7 +64516,7 @@ static const char *startup_source = "((body137_0)" "(let-values(((s_261)" "(cdr" -" s_541)))" +" s_542)))" "(let-values(((s_262)" "(if(syntax?$1" " s_261)" @@ -64561,24 +64559,24 @@ static const char *startup_source = "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_38)(new-scope 'local)))" -"(let-values(((phase_81)(expand-context-phase ctx_82)))" +"(let-values(((phase_81)(expand-context-phase ctx_83)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_343)(if syntaxes?_0 id:trans102_0 null)))" +"(let-values(((lst_344)(if syntaxes?_0 id:trans102_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_343)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_313 lst_344)" +"(let-values()(check-list lst_344)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_313 lst_345)" "(begin" " 'for-loop" -"(if(pair? lst_344)" +"(if(pair? lst_345)" "(let-values(((ids_37)" -"(unsafe-car lst_344))" -"((rest_208)" -"(unsafe-cdr lst_344)))" +"(unsafe-car lst_345))" +"((rest_207)" +"(unsafe-cdr lst_345)))" "(let-values(((fold-var_108)" "(let-values(((fold-var_109)" " fold-var_313))" @@ -64587,7 +64585,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_345)" +"(let-values(((lst_346)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64595,20 +64593,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_298)" +" lst_346)))" +"((letrec-values(((for-loop_299)" "(lambda(fold-var_314" -" lst_346)" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" +" lst_347)" "(let-values(((id_114)" "(unsafe-car" -" lst_346))" -"((rest_209)" +" lst_347))" +"((rest_208)" "(unsafe-cdr" -" lst_346)))" +" lst_347)))" "(let-values(((fold-var_315)" "(let-values(((fold-var_316)" " fold-var_314))" @@ -64624,40 +64622,40 @@ static const char *startup_source = " fold-var_317)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_299" " fold-var_315" -" rest_209)" +" rest_208)" " fold-var_315)))" " fold-var_314)))))" -" for-loop_298)" +" for-loop_299)" " null" -" lst_345)))))" +" lst_346)))))" " fold-var_109))))" "(values" " fold-var_110)))))" "(if(not #f)" -"(for-loop_297 fold-var_108 rest_208)" +"(for-loop_298 fold-var_108 rest_207)" " fold-var_108)))" " fold-var_313)))))" -" for-loop_297)" +" for-loop_298)" " null" -" lst_343))))))" +" lst_344))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_347)(if syntaxes?_0 id:val104_0 id:val128_0)))" +"(let-values(((lst_348)(if syntaxes?_0 id:val104_0 id:val128_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_347)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_318 lst_348)" +"(let-values()(check-list lst_348)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_318 lst_349)" "(begin" " 'for-loop" -"(if(pair? lst_348)" +"(if(pair? lst_349)" "(let-values(((ids_38)" -"(unsafe-car lst_348))" -"((rest_210)" -"(unsafe-cdr lst_348)))" +"(unsafe-car lst_349))" +"((rest_209)" +"(unsafe-cdr lst_349)))" "(let-values(((fold-var_319)" "(let-values(((fold-var_320)" " fold-var_318))" @@ -64666,7 +64664,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_349)" +"(let-values(((lst_350)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64674,20 +64672,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_349)))" -"((letrec-values(((for-loop_300)" +" lst_350)))" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_322" -" lst_350)" +" lst_351)" "(begin" " 'for-loop" "(if(pair?" -" lst_350)" +" lst_351)" "(let-values(((id_115)" "(unsafe-car" -" lst_350))" -"((rest_211)" +" lst_351))" +"((rest_210)" "(unsafe-cdr" -" lst_350)))" +" lst_351)))" "(let-values(((fold-var_323)" "(let-values(((fold-var_324)" " fold-var_322))" @@ -64703,44 +64701,44 @@ static const char *startup_source = " fold-var_325)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_301" " fold-var_323" -" rest_211)" +" rest_210)" " fold-var_323)))" " fold-var_322)))))" -" for-loop_300)" +" for-loop_301)" " null" -" lst_349)))))" +" lst_350)))))" " fold-var_320))))" "(values" " fold-var_321)))))" "(if(not #f)" -"(for-loop_299" +"(for-loop_300" " fold-var_319" -" rest_210)" +" rest_209)" " fold-var_319)))" " fold-var_318)))))" -" for-loop_299)" +" for-loop_300)" " null" -" lst_347))))))" +" lst_348))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_351)" +"(let-values(((lst_352)" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_351)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_326 lst_352)" +"(let-values()(check-list lst_352)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_326 lst_353)" "(begin" " 'for-loop" -"(if(pair? lst_352)" +"(if(pair? lst_353)" "(let-values(((rhs_20)" -"(unsafe-car lst_352))" -"((rest_212)" -"(unsafe-cdr lst_352)))" +"(unsafe-car lst_353))" +"((rest_211)" +"(unsafe-cdr lst_353)))" "(let-values(((fold-var_327)" "(let-values(((fold-var_328)" " fold-var_326))" @@ -64755,14 +64753,14 @@ static const char *startup_source = "(values" " fold-var_329)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_302" " fold-var_327" -" rest_212)" +" rest_211)" " fold-var_327)))" " fold-var_326)))))" -" for-loop_301)" +" for-loop_302)" " null" -" lst_351))))" +" lst_352))))" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" @@ -64774,63 +64772,63 @@ static const char *startup_source = " _154_1" " clause155_1" " _156_1)" -"(let-values(((s_550)" +"(let-values(((s_551)" "(if(syntax?$1" " s_141)" "(syntax-e$1" " s_141)" " s_141)))" -"(if(pair? s_550)" +"(if(pair? s_551)" "(let-values(((_157_0)" -"(let-values(((s_551)" +"(let-values(((s_552)" "(car" -" s_550)))" -" s_551))" +" s_551)))" +" s_552))" "((_158_0" " clause159_0" " _160_0)" -"(let-values(((s_552)" -"(cdr" -" s_550)))" "(let-values(((s_553)" -"(if(syntax?$1" -" s_552)" -"(syntax-e$1" -" s_552)" -" s_552)))" -"(if(pair?" -" s_553)" -"(let-values(((_161_0)" +"(cdr" +" s_551)))" "(let-values(((s_554)" -"(car" +"(if(syntax?$1" +" s_553)" +"(syntax-e$1" +" s_553)" " s_553)))" -" s_554))" +"(if(pair?" +" s_554)" +"(let-values(((_161_0)" +"(let-values(((s_555)" +"(car" +" s_554)))" +" s_555))" "((clause162_0" " _163_0)" -"(let-values(((s_555)" -"(cdr" -" s_553)))" "(let-values(((s_556)" -"(if(syntax?$1" -" s_555)" -"(syntax-e$1" -" s_555)" -" s_555)))" -"(if(pair?" -" s_556)" -"(let-values(((clause164_0)" +"(cdr" +" s_554)))" "(let-values(((s_557)" -"(car" -" s_556)))" -"(let-values(((s_558)" "(if(syntax?$1" -" s_557)" +" s_556)" "(syntax-e$1" +" s_556)" +" s_556)))" +"(if(pair?" " s_557)" +"(let-values(((clause164_0)" +"(let-values(((s_558)" +"(car" " s_557)))" +"(let-values(((s_559)" +"(if(syntax?$1" +" s_558)" +"(syntax-e$1" +" s_558)" +" s_558)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_558)))" +" s_559)))" "(if(not" " flat-s_41)" "(let-values()" @@ -64841,10 +64839,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_165_0)" -"(let-values(((s_559)" +"(let-values(((s_560)" "(cdr" -" s_556)))" -" s_559)))" +" s_557)))" +" s_560)))" "(values" " clause164_0" " _165_0))" @@ -64881,44 +64879,44 @@ static const char *startup_source = "(let-values(((s_144) disarmed-s_8))" "(let-values(((orig-s_47) s_144))" "(let-values(((_166_1 clause167_1 _168_1)" -"(let-values(((s_560)" +"(let-values(((s_561)" "(if(syntax?$1" " s_144)" "(syntax-e$1" " s_144)" " s_144)))" -"(if(pair? s_560)" +"(if(pair? s_561)" "(let-values(((_169_0)" -"(let-values(((s_561)" +"(let-values(((s_562)" "(car" -" s_560)))" -" s_561))" +" s_561)))" +" s_562))" "((clause170_0" " _171_0)" -"(let-values(((s_562)" -"(cdr" -" s_560)))" "(let-values(((s_563)" -"(if(syntax?$1" -" s_562)" -"(syntax-e$1" -" s_562)" -" s_562)))" -"(if(pair?" -" s_563)" -"(let-values(((clause172_0)" +"(cdr" +" s_561)))" "(let-values(((s_564)" -"(car" -" s_563)))" -"(let-values(((s_565)" "(if(syntax?$1" -" s_564)" +" s_563)" "(syntax-e$1" +" s_563)" +" s_563)))" +"(if(pair?" " s_564)" +"(let-values(((clause172_0)" +"(let-values(((s_565)" +"(car" " s_564)))" +"(let-values(((s_566)" +"(if(syntax?$1" +" s_565)" +"(syntax-e$1" +" s_565)" +" s_565)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_565)))" +" s_566)))" "(if(not" " flat-s_42)" "(let-values()" @@ -64929,10 +64927,10 @@ static const char *startup_source = "(let-values()" " flat-s_42))))))" "((_173_0)" -"(let-values(((s_566)" +"(let-values(((s_567)" "(cdr" -" s_563)))" -" s_566)))" +" s_564)))" +" s_567)))" "(values" " clause172_0" " _173_0))" @@ -64953,35 +64951,35 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp141_2)(list trans-idss_2 val-idss_3))" -"((phase142_1) phase_81)" +"((phase142_0) phase_81)" "((s143_0) s_104))" "(check-no-duplicate-ids7.1" " unsafe-undefined" " temp141_2" -" phase142_1" +" phase142_0" " s143_0" " unsafe-undefined))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_82)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_353) trans-idss_2))" +"(let-values(((lst_354) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_330 lst_354)" +"(let-values()(check-list lst_354)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_330 lst_355)" "(begin" " 'for-loop" -"(if(pair? lst_354)" +"(if(pair? lst_355)" "(let-values(((ids_39)" "(unsafe-car" -" lst_354))" -"((rest_213)" +" lst_355))" +"((rest_212)" "(unsafe-cdr" -" lst_354)))" +" lst_355)))" "(let-values(((fold-var_331)" "(let-values(((fold-var_332)" " fold-var_330))" @@ -64990,7 +64988,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_355)" +"(let-values(((lst_356)" " ids_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64998,20 +64996,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_355)))" -"((letrec-values(((for-loop_303)" +" lst_356)))" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_334" -" lst_356)" +" lst_357)" "(begin" " 'for-loop" "(if(pair?" -" lst_356)" +" lst_357)" "(let-values(((id_116)" "(unsafe-car" -" lst_356))" -"((rest_214)" +" lst_357))" +"((rest_213)" "(unsafe-cdr" -" lst_356)))" +" lst_357)))" "(let-values(((fold-var_335)" "(let-values(((fold-var_336)" " fold-var_334))" @@ -65040,45 +65038,45 @@ static const char *startup_source = " fold-var_337)))))" "(if(not" " #f)" -"(for-loop_303" +"(for-loop_304" " fold-var_335" -" rest_214)" +" rest_213)" " fold-var_335)))" " fold-var_334)))))" -" for-loop_303)" +" for-loop_304)" " null" -" lst_355)))))" +" lst_356)))))" " fold-var_332))))" "(values" " fold-var_333)))))" "(if(not #f)" -"(for-loop_302" +"(for-loop_303" " fold-var_331" -" rest_213)" +" rest_212)" " fold-var_331)))" " fold-var_330)))))" -" for-loop_302)" +" for-loop_303)" " null" -" lst_353))))))" +" lst_354))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_357) val-idss_3))" +"(let-values(((lst_358) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_338 lst_358)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_338 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_358)" +"(if(pair? lst_359)" "(let-values(((ids_40)" "(unsafe-car" -" lst_358))" -"((rest_215)" +" lst_359))" +"((rest_214)" "(unsafe-cdr" -" lst_358)))" +" lst_359)))" "(let-values(((fold-var_339)" "(let-values(((fold-var_340)" " fold-var_338))" @@ -65096,19 +65094,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_131)))" -"((letrec-values(((for-loop_305)" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_341" -" lst_359)" +" lst_360)" "(begin" " 'for-loop" "(if(pair?" -" lst_359)" +" lst_360)" "(let-values(((id_117)" "(unsafe-car" -" lst_359))" -"((rest_216)" +" lst_360))" +"((rest_215)" "(unsafe-cdr" -" lst_359)))" +" lst_360)))" "(let-values(((fold-var_342)" "(let-values(((fold-var_343)" " fold-var_341))" @@ -65137,46 +65135,46 @@ static const char *startup_source = " fold-var_344)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_306" " fold-var_342" -" rest_216)" +" rest_215)" " fold-var_342)))" " fold-var_341)))))" -" for-loop_305)" +" for-loop_306)" " null" " lst_131)))))" " fold-var_340))))" "(values" " fold-var_113)))))" "(if(not #f)" -"(for-loop_304" +"(for-loop_305" " fold-var_339" -" rest_215)" +" rest_214)" " fold-var_339)))" " fold-var_338)))))" -" for-loop_304)" +" for-loop_305)" " null" -" lst_357))))))" +" lst_358))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_361)" "(if syntaxes?_0 body106_0 body130_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_345 lst_361)" +"(let-values()(check-list lst_361)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_345 lst_362)" "(begin" " 'for-loop" -"(if(pair? lst_361)" +"(if(pair? lst_362)" "(let-values(((body_18)" "(unsafe-car" -" lst_361))" -"((rest_217)" +" lst_362))" +"((rest_216)" "(unsafe-cdr" -" lst_361)))" +" lst_362)))" "(let-values(((fold-var_118)" "(let-values(((fold-var_346)" " fold-var_345))" @@ -65191,18 +65189,18 @@ static const char *startup_source = "(values" " fold-var_48)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_307" " fold-var_118" -" rest_217)" +" rest_216)" " fold-var_118)))" " fold-var_345)))))" -" for-loop_306)" +" for-loop_307)" " null" -" lst_360))))))" +" lst_361))))))" "(let-values((()" "(begin" "(let-values(((obs_90)" -"(expand-context-observer ctx_82)))" +"(expand-context-observer ctx_83)))" "(if obs_90" "(let-values()" "(log-let-renames" @@ -65223,7 +65221,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_91" "(let-values()" "(let-values()" @@ -65231,7 +65229,7 @@ static const char *startup_source = " obs_91" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_82)))" +"(prepare-next-phase-namespace ctx_83)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" @@ -65240,7 +65238,7 @@ static const char *startup_source = "(if syntaxes?_0" " trans-rhs103_0" " '()))" -"((lst_362) trans-idss_2))" +"((lst_363) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65249,28 +65247,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_307)" +"(let-values()(check-list lst_363)))" +"((letrec-values(((for-loop_308)" "(lambda(fold-var_347" -" lst_363" -" lst_364)" +" lst_364" +" lst_365)" "(begin" " 'for-loop" -"(if(if(pair? lst_363)" -"(pair? lst_364)" +"(if(if(pair? lst_364)" +"(pair? lst_365)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_363))" -"((rest_218)" +" lst_364))" +"((rest_217)" "(unsafe-cdr" -" lst_363))" +" lst_364))" "((ids_41)" "(unsafe-car" -" lst_364))" -"((rest_219)" +" lst_365))" +"((rest_218)" "(unsafe-cdr" -" lst_364)))" +" lst_365)))" "(let-values(((fold-var_348)" "(let-values(((fold-var_349)" " fold-var_347))" @@ -65282,7 +65280,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_92" "(let-values()" "(let-values()" @@ -65302,11 +65300,11 @@ static const char *startup_source = " rhs_21" " sc_38)" " ids_41" -" ctx_82)))" +" ctx_83)))" "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_93" "(let-values()" "(let-values()" @@ -65319,56 +65317,56 @@ static const char *startup_source = "(values" " fold-var_350)))))" "(if(not #f)" -"(for-loop_307" +"(for-loop_308" " fold-var_348" -" rest_218" -" rest_219)" +" rest_217" +" rest_218)" " fold-var_348)))" " fold-var_347)))))" -" for-loop_307)" +" for-loop_308)" " null" " lst_63" -" lst_362))))))" +" lst_363))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_365) val-keyss_2)" +"(let-values(((lst_366) val-keyss_2)" "((lst_135) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" +"(let-values()(check-list lst_366)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_135)))" -"((letrec-values(((for-loop_308)" +"((letrec-values(((for-loop_309)" "(lambda(env_29" -" lst_366" -" lst_367)" +" lst_367" +" lst_368)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_366)" -"(pair? lst_367)" +" lst_367)" +"(pair? lst_368)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_366))" -"((rest_220)" +" lst_367))" +"((rest_219)" "(unsafe-cdr" -" lst_366))" +" lst_367))" "((ids_42)" "(unsafe-car" -" lst_367))" -"((rest_221)" +" lst_368))" +"((rest_220)" "(unsafe-cdr" -" lst_367)))" +" lst_368)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_368)" +"(let-values(((lst_369)" " keys_10)" -"((lst_369)" +"((lst_370)" " ids_42))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65376,36 +65374,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_368)))" +" lst_369)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_369)))" -"((letrec-values(((for-loop_309)" +" lst_370)))" +"((letrec-values(((for-loop_310)" "(lambda(env_32" -" lst_370" -" lst_371)" +" lst_371" +" lst_372)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_370)" -"(pair?" " lst_371)" +"(pair?" +" lst_372)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_370))" -"((rest_222)" +" lst_371))" +"((rest_221)" "(unsafe-cdr" -" lst_370))" +" lst_371))" "((id_118)" "(unsafe-car" -" lst_371))" -"((rest_223)" +" lst_372))" +"((rest_222)" "(unsafe-cdr" -" lst_371)))" +" lst_372)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -65420,87 +65418,87 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_309" +"(for-loop_310" " env_33" -" rest_222" -" rest_223)" +" rest_221" +" rest_222)" " env_33)))" " env_32)))))" -" for-loop_309)" +" for-loop_310)" " env_31" -" lst_368" -" lst_369))))))" +" lst_369" +" lst_370))))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_309" " env_30" -" rest_220" -" rest_221)" +" rest_219" +" rest_220)" " env_30)))" " env_29)))))" -" for-loop_308)" -"(expand-context-env ctx_82)" -" lst_365" +" for-loop_309)" +"(expand-context-env ctx_83)" +" lst_366" " lst_135)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_372) trans-keyss_0)" -"((lst_373) trans-valss_0)" -"((lst_374) trans-idss_2))" +"(let-values(((lst_373) trans-keyss_0)" +"((lst_374) trans-valss_0)" +"((lst_375) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_372)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_374)))" -"((letrec-values(((for-loop_310)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_375)))" +"((letrec-values(((for-loop_311)" "(lambda(env_36" -" lst_375" " lst_376" -" lst_377)" +" lst_377" +" lst_378)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_375)" -"(if(pair?" " lst_376)" -"(pair?" +"(if(pair?" " lst_377)" +"(pair?" +" lst_378)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_375))" -"((rest_224)" +" lst_376))" +"((rest_223)" "(unsafe-cdr" -" lst_375))" +" lst_376))" "((vals_9)" "(unsafe-car" -" lst_376))" -"((rest_225)" +" lst_377))" +"((rest_224)" "(unsafe-cdr" -" lst_376))" +" lst_377))" "((ids_43)" "(unsafe-car" -" lst_377))" -"((rest_226)" +" lst_378))" +"((rest_225)" "(unsafe-cdr" -" lst_377)))" +" lst_378)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_378)" +"(let-values(((lst_379)" " keys_11)" -"((lst_379)" -" vals_9)" "((lst_380)" +" vals_9)" +"((lst_381)" " ids_43))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65508,12 +65506,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_378)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_379)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65521,39 +65513,45 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_380)))" -"((letrec-values(((for-loop_311)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_381)))" +"((letrec-values(((for-loop_312)" "(lambda(env_40" -" lst_381" " lst_382" -" lst_383)" +" lst_383" +" lst_384)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_381)" -"(if(pair?" " lst_382)" -"(pair?" +"(if(pair?" " lst_383)" +"(pair?" +" lst_384)" " #f)" " #f)" "(let-values(((key_92)" "(unsafe-car" -" lst_381))" -"((rest_227)" +" lst_382))" +"((rest_226)" "(unsafe-cdr" -" lst_381))" +" lst_382))" "((val_86)" "(unsafe-car" -" lst_382))" -"((rest_228)" +" lst_383))" +"((rest_227)" "(unsafe-cdr" -" lst_382))" +" lst_383))" "((id_119)" "(unsafe-car" -" lst_383))" -"((rest_229)" +" lst_384))" +"((rest_228)" "(unsafe-cdr" -" lst_383)))" +" lst_384)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -65564,7 +65562,7 @@ static const char *startup_source = " val_86" " id_119" " phase_81" -" ctx_82)" +" ctx_83)" "(env-extend" " env_42" " key_92" @@ -65573,50 +65571,50 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_312" " env_41" +" rest_226" " rest_227" -" rest_228" -" rest_229)" +" rest_228)" " env_41)))" " env_40)))))" -" for-loop_311)" +" for-loop_312)" " env_38" -" lst_378" " lst_379" -" lst_380))))))" +" lst_380" +" lst_381))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_311" " env_37" +" rest_223" " rest_224" -" rest_225" -" rest_226)" +" rest_225)" " env_37)))" " env_36)))))" -" for-loop_310)" +" for-loop_311)" " rec-val-env_0" -" lst_372" " lst_373" -" lst_374)))))" +" lst_374" +" lst_375)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_82)))" +"(as-expression-context ctx_83)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_181) expr-ctx_0))" -"(let-values(((the-struct_96) v_181))" +"(let-values(((the-struct_97) v_181))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_97)" "(let-values(((env184_0)" " rec-env_0)" "((scopes185_0)" "(cons" " sc_38" "(expand-context-scopes" -" ctx_82)))" +" ctx_83)))" "((reference-records186_0)" "(if split-by-reference?_0" "(cons" @@ -65628,7 +65626,7 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_82" +" ctx_83" " sc_38))" "((inner188_0)" "(root-expand-context/outer-inner" @@ -65636,43 +65634,43 @@ static const char *startup_source = "(expand-context/outer1.1" " inner188_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_97)" " env184_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_97)" " scopes185_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_97)" " binding-layer187_0" " reference-records186_0" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_97))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_82))" +" ctx_83))" "(if syntaxes?_0" "(core-id 'letrec-values phase_81)" " let-values127_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx189_0) ctx_82)" +"(let-values(((ctx189_0) ctx_83)" "((s190_1) s_104)" "((temp191_1) #t))" "(keep-as-needed119.1" @@ -65683,7 +65681,7 @@ static const char *startup_source = " s190_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(reverse$1" "(let-values(((lst_251)" " val-idss_3))" @@ -65714,7 +65712,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_384)" +"(let-values(((lst_385)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65722,20 +65720,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_384)))" -"((letrec-values(((for-loop_312)" +" lst_385)))" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_355" -" lst_385)" +" lst_386)" "(begin" " 'for-loop" "(if(pair?" -" lst_385)" +" lst_386)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_385))" -"((rest_230)" +" lst_386))" +"((rest_229)" "(unsafe-cdr" -" lst_385)))" +" lst_386)))" "(let-values(((fold-var_356)" "(let-values(((fold-var_127)" " fold-var_355))" @@ -65754,14 +65752,14 @@ static const char *startup_source = " fold-var_357)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_313" " fold-var_356" -" rest_230)" +" rest_229)" " fold-var_356)))" " fold-var_355)))))" -" for-loop_312)" +" for-loop_313)" " null" -" lst_384)))))" +" lst_385)))))" " fold-var_353))))" "(values" " fold-var_354)))))" @@ -65782,7 +65780,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_94" "(let-values()" "(log-letrec-values" @@ -65801,7 +65799,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_95" "(let-values()" "(if(not" @@ -65819,10 +65817,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_267)" " rec-ctx_0))" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_98)" " v_267))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_98)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" @@ -65831,43 +65829,43 @@ static const char *startup_source = "(expand-context/outer1.1" " inner196_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-env" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_98)" " reference-records195_0" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_98))))))" "(let-values(((bodys192_0)" " bodys_10)" "((temp193_0)" "(let-values(((body-ctx197_0)" " body-ctx_5)" "((ctx198_0)" -" ctx_82))" +" ctx_83))" "(as-tail-context22.1" " ctx198_0" " body-ctx197_0)))" @@ -65886,11 +65884,11 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_149)" " val-name-idss_0)" -"((lst_386)" +"((lst_387)" " val-keyss_2)" "((lst_150)" " val-rhss_3)" -"((lst_387)" +"((lst_388)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65904,7 +65902,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_386)))" +" lst_387)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -65916,50 +65914,50 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_387)))" -"((letrec-values(((for-loop_313)" +" lst_388)))" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_358" -" lst_388" " lst_389" " lst_390" -" lst_391)" +" lst_391" +" lst_392)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_388)" -"(if(pair?" " lst_389)" "(if(pair?" " lst_390)" -"(pair?" +"(if(pair?" " lst_391)" +"(pair?" +" lst_392)" " #f)" " #f)" " #f)" "(let-values(((ids_44)" "(unsafe-car" -" lst_388))" -"((rest_231)" +" lst_389))" +"((rest_230)" "(unsafe-cdr" -" lst_388))" +" lst_389))" "((keys_12)" "(unsafe-car" -" lst_389))" -"((rest_232)" +" lst_390))" +"((rest_231)" "(unsafe-cdr" -" lst_389))" +" lst_390))" "((rhs_22)" "(unsafe-car" -" lst_390))" -"((rest_233)" +" lst_391))" +"((rest_232)" "(unsafe-cdr" -" lst_390))" +" lst_391))" "((clause_4)" "(unsafe-car" -" lst_391))" -"((rest_234)" +" lst_392))" +"((rest_233)" "(unsafe-cdr" -" lst_391)))" +" lst_392)))" "(let-values(((fold-var_51)" "(let-values(((fold-var_359)" " fold-var_358))" @@ -65971,7 +65969,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_96" "(let-values()" "(let-values()" @@ -65998,7 +65996,7 @@ static const char *startup_source = " rhs199_0" " temp200_0))))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(list" " keys_12" " exp-rhs_4)" @@ -66014,20 +66012,20 @@ static const char *startup_source = " fold-var_360)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_314" " fold-var_51" +" rest_230" " rest_231" " rest_232" -" rest_233" -" rest_234)" +" rest_233)" " fold-var_51)))" " fold-var_358)))))" -" for-loop_313)" +" for-loop_314)" " null" " lst_149" -" lst_386" +" lst_387" " lst_150" -" lst_387))))))" +" lst_388))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66037,7 +66035,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -66095,7 +66093,7 @@ static const char *startup_source = " val-keyss204_0" " val-rhss205_0" " val-clauses206_0))))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_83)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -66107,23 +66105,23 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_392) val-idss_4)((lst_393) val-rhss_4))" +"(let-values(((lst_393) val-idss_4)((lst_394) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_392)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_393)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_361 lst_394 lst_395)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_394)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_361 lst_395 lst_396)" "(begin" " 'for-loop" -"(if(if(pair? lst_394)(pair? lst_395) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_394))" -"((rest_235)(unsafe-cdr lst_394))" -"((val-rhs_11)(unsafe-car lst_395))" -"((rest_236)(unsafe-cdr lst_395)))" +"(if(if(pair? lst_395)(pair? lst_396) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_395))" +"((rest_234)(unsafe-cdr lst_395))" +"((val-rhs_11)(unsafe-car lst_396))" +"((rest_235)(unsafe-cdr lst_396)))" "(let-values(((fold-var_362)" "(let-values(((fold-var_363) fold-var_361))" "(let-values(((fold-var_364)" @@ -66136,13 +66134,13 @@ static const char *startup_source = " fold-var_363))))" "(values fold-var_364)))))" "(if(not #f)" -"(for-loop_314 fold-var_362 rest_235 rest_236)" +"(for-loop_315 fold-var_362 rest_234 rest_235)" " fold-var_362)))" " fold-var_361)))))" -" for-loop_314)" +" for-loop_315)" " null" -" lst_392" -" lst_393))))" +" lst_393" +" lst_394))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_97" @@ -66151,23 +66149,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_396) trans-idss_3)((lst_397) trans-rhss_0))" +"(let-values(((lst_397) trans-idss_3)((lst_398) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_396)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_397)))" -"((letrec-values(((for-loop_315)" -"(lambda(fold-var_365 lst_398 lst_399)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_398)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_365 lst_399 lst_400)" "(begin" " 'for-loop" -"(if(if(pair? lst_398)(pair? lst_399) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_398))" -"((rest_237)(unsafe-cdr lst_398))" -"((trans-rhs_5)(unsafe-car lst_399))" -"((rest_238)(unsafe-cdr lst_399)))" +"(if(if(pair? lst_399)(pair? lst_400) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_399))" +"((rest_236)(unsafe-cdr lst_399))" +"((trans-rhs_5)(unsafe-car lst_400))" +"((rest_237)(unsafe-cdr lst_400)))" "(let-values(((fold-var_366)" "(let-values(((fold-var_367) fold-var_365))" "(let-values(((fold-var_368)" @@ -66181,12 +66179,12 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_39))))" " fold-var_367))))" "(values fold-var_368)))))" -"(if(not #f)(for-loop_315 fold-var_366 rest_237 rest_238) fold-var_366)))" +"(if(not #f)(for-loop_316 fold-var_366 rest_236 rest_237) fold-var_366)))" " fold-var_365)))))" -" for-loop_315)" +" for-loop_316)" " null" -" lst_396" -" lst_397))))" +" lst_397" +" lst_398))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -66221,30 +66219,30 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_567 ctx_83)" +"(lambda(s_568 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_83)))" +"(let-values(((obs_99)(expand-context-observer ctx_84)))" "(if obs_99" "(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_567)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_568)))" "(let-values(((ok?_45 #%stratified-body222_0 body223_0)" -"(let-values(((s_568) disarmed-s_9))" -"(let-values(((orig-s_48) s_568))" +"(let-values(((s_569) disarmed-s_9))" +"(let-values(((orig-s_48) s_569))" "(let-values(((#%stratified-body222_1 body223_1)" -"(let-values(((s_569)(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" -"(if(pair? s_569)" +"(let-values(((s_570)(if(syntax?$1 s_569)(syntax-e$1 s_569) s_569)))" +"(if(pair? s_570)" "(let-values(((#%stratified-body224_0)" -"(let-values(((s_570)(car s_569))) s_570))" +"(let-values(((s_571)(car s_570))) s_571))" "((body225_0)" -"(let-values(((s_571)(cdr s_569)))" -"(let-values(((s_572)" -"(if(syntax?$1 s_571)" -"(syntax-e$1 s_571)" -" s_571)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_572)))" +"(let-values(((s_572)(cdr s_570)))" +"(let-values(((s_573)" +"(if(syntax?$1 s_572)" +"(syntax-e$1 s_572)" +" s_572)))" +"(let-values(((flat-s_43)(to-syntax-list.1 s_573)))" "(if(not flat-s_43)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -66256,40 +66254,40 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body222_1 body223_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx226_0) ctx_83)((s227_1) s_567)((temp228_0) #t))" +"(let-values(((ctx226_0) ctx_84)((s227_1) s_568)((temp228_0) #t))" "(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_1))))" "(let-values(((exp-body_5)" "(let-values(((temp229_3) body223_0)" -"((ctx230_0) ctx_83)" +"((ctx230_0) ctx_84)" "((temp231_1) #t)" "((rebuild-s232_0) rebuild-s_7))" "(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_84)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s233_0) rebuild-s_7)" "((temp234_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_83)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" "(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_573 ctx_84)" +"(lambda(s_574 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_84)))" +"(let-values(((obs_100)(expand-context-observer ctx_85)))" "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_573)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_574)))" "(let-values(((ok?_46 #%datum235_0 datum236_0)" -"(let-values(((s_574) disarmed-s_10))" -"(let-values(((orig-s_49) s_574))" +"(let-values(((s_575) disarmed-s_10))" +"(let-values(((orig-s_49) s_575))" "(let-values(((#%datum235_1 datum236_1)" -"(let-values(((s_575)(if(syntax?$1 s_574)(syntax-e$1 s_574) s_574)))" -"(if(pair? s_575)" -"(let-values(((#%datum237_0)(let-values(((s_576)(car s_575))) s_576))" -"((datum238_0)(let-values(((s_577)(cdr s_575))) s_577)))" +"(let-values(((s_576)(if(syntax?$1 s_575)(syntax-e$1 s_575) s_575)))" +"(if(pair? s_576)" +"(let-values(((#%datum237_0)(let-values(((s_577)(car s_576))) s_577))" +"((datum238_0)(let-values(((s_578)(cdr s_576))) s_578)))" "(values #%datum237_0 datum238_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%datum235_1 datum236_1))))))" @@ -66301,35 +66299,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_140)(expand-context-phase ctx_84)))" -"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_573)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_573)((temp240_0)(list(core-id 'quote phase_140) datum_2)))" +"(let-values(((phase_140)(expand-context-phase ctx_85)))" +"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_574)(syntax->datum$1 datum_2))" +"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_140) datum_2)))" "(rebuild5.1 #t s239_0 temp240_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_578 ctx_85)" +"(lambda(s_579 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_85)))" +"(let-values(((obs_101)(expand-context-observer ctx_86)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_578)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_579)))" "(let-values(((ok?_47 #%app241_0 e242_0)" -"(let-values(((s_579) disarmed-s_11))" -"(let-values(((orig-s_50) s_579))" +"(let-values(((s_580) disarmed-s_11))" +"(let-values(((orig-s_50) s_580))" "(let-values(((#%app241_1 e242_1)" -"(let-values(((s_580)(if(syntax?$1 s_579)(syntax-e$1 s_579) s_579)))" -"(if(pair? s_580)" -"(let-values(((#%app243_0)(let-values(((s_581)(car s_580))) s_581))" +"(let-values(((s_581)(if(syntax?$1 s_580)(syntax-e$1 s_580) s_580)))" +"(if(pair? s_581)" +"(let-values(((#%app243_0)(let-values(((s_582)(car s_581))) s_582))" "((e244_0)" -"(let-values(((s_582)(cdr s_580)))" -"(let-values(((s_583)" -"(if(syntax?$1 s_582)" -"(syntax-e$1 s_582)" -" s_582)))" -"(let-values(((flat-s_44)(to-syntax-list.1 s_583)))" +"(let-values(((s_583)(cdr s_581)))" +"(let-values(((s_584)" +"(if(syntax?$1 s_583)" +"(syntax-e$1 s_583)" +" s_583)))" +"(let-values(((flat-s_44)(to-syntax-list.1 s_584)))" "(if(not flat-s_44)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" @@ -66340,27 +66338,27 @@ static const char *startup_source = "(let-values(((es_3) e242_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_141)(expand-context-phase ctx_85)))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_578) null)" -"(let-values(((s245_0) s_578)((temp246_1)(list(core-id 'quote phase_141) null)))" +"(let-values(((phase_141)(expand-context-phase ctx_86)))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote14.1(keep-properties-only~ s_579) null)" +"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_141) null)))" "(rebuild5.1 #t s245_0 temp246_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx247_0) ctx_85)" -"((s248_0) s_578)" +"(let-values(((ctx247_0) ctx_86)" +"((s248_0) s_579)" "((keep-for-parsed?249_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx250_0) ctx_85)" +"(let-values(((ctx250_0) ctx_86)" "((prefixless251_0) prefixless_0)" "((keep-for-parsed?252_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 prefixless251_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_85)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" @@ -66371,7 +66369,7 @@ static const char *startup_source = "(call-expand-observe" " obs_102" " 'enter-list" -"(datum->syntax$1 #f es_3 s_578))" +"(datum->syntax$1 #f es_3 s_579))" "(call-expand-observe obs_102 'next))))" "(void)))" "(values))))" @@ -66381,19 +66379,19 @@ static const char *startup_source = "(expand9.1 #f #f #f temp253_1 expr-ctx254_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_400) rest-es_0))" +"(let-values(((lst_401) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_369 lst_401)" +"(let-values()(check-list lst_401)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_369 lst_402)" "(begin" " 'for-loop" -"(if(pair? lst_401)" -"(let-values(((e_90)(unsafe-car lst_401))" -"((rest_239)" -"(unsafe-cdr lst_401)))" +"(if(pair? lst_402)" +"(let-values(((e_90)(unsafe-car lst_402))" +"((rest_238)" +"(unsafe-cdr lst_402)))" "(let-values(((fold-var_370)" "(let-values(((fold-var_371)" " fold-var_369))" @@ -66426,13 +66424,13 @@ static const char *startup_source = "(values" " fold-var_372)))))" "(if(not #f)" -"(for-loop_316 fold-var_370 rest_239)" +"(for-loop_317 fold-var_370 rest_238)" " fold-var_370)))" " fold-var_369)))))" -" for-loop_316)" +" for-loop_317)" " null" -" lst_400))))))" -"(if(expand-context-to-parsed? ctx_85)" +" lst_401))))))" +"(if(expand-context-to-parsed? ctx_86)" "(let-values()" "(parsed-app7.1" "(let-values(((or-part_379) rebuild-prefixless_0))" @@ -66463,35 +66461,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_584 ctx_86)" +"(lambda(s_585 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_86)))" +"(let-values(((obs_105)(expand-context-observer ctx_87)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_48 quote261_0 datum262_0)" -"(let-values(((s_282)(syntax-disarm$1 s_584)))" +"(let-values(((s_282)(syntax-disarm$1 s_585)))" "(let-values(((orig-s_51) s_282))" "(let-values(((quote261_1 datum262_1)" "(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))" "(if(pair? s_284)" -"(let-values(((quote263_0)(let-values(((s_585)(car s_284))) s_585))" +"(let-values(((quote263_0)(let-values(((s_586)(car s_284))) s_586))" "((datum264_0)" -"(let-values(((s_586)(cdr s_284)))" -"(let-values(((s_587)" -"(if(syntax?$1 s_586)" -"(syntax-e$1 s_586)" -" s_586)))" -"(if(pair? s_587)" +"(let-values(((s_587)(cdr s_284)))" +"(let-values(((s_588)" +"(if(syntax?$1 s_587)" +"(syntax-e$1 s_587)" +" s_587)))" +"(if(pair? s_588)" "(let-values(((datum265_0)" -"(let-values(((s_588)(car s_587))) s_588))" +"(let-values(((s_589)(car s_588))) s_589))" "(()" -"(let-values(((s_589)(cdr s_587)))" -"(let-values(((s_590)" -"(if(syntax?$1 s_589)" -"(syntax-e$1 s_589)" -" s_589)))" -"(if(null? s_590)" +"(let-values(((s_590)(cdr s_588)))" +"(let-values(((s_591)" +"(if(syntax?$1 s_590)" +"(syntax-e$1 s_590)" +" s_590)))" +"(if(null? s_591)" "(values)" "(raise-syntax-error$1" " #f" @@ -66502,41 +66500,41 @@ static const char *startup_source = "(values quote263_0 datum264_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote261_1 datum262_1))))))" -"(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_584)(syntax->datum$1 datum262_0))" -" s_584))))))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote14.1(keep-properties-only~ s_585)(syntax->datum$1 datum262_0))" +" s_585))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_591 ctx_87)" +"(lambda(s_592 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_87)))" +"(let-values(((obs_106)(expand-context-observer ctx_88)))" "(if obs_106" "(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_591)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_592)))" "(let-values(((ok?_49 quote-syntax266_0 datum267_0)" "(let-values(((s_291) disarmed-s_12))" -"(if(let-values(((s_592)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_592)" -"(if(let-values(((s_593)(car s_592))) #t)" -"(let-values(((s_594)(cdr s_592)))" -"(let-values(((s_292)(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" +"(if(let-values(((s_593)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(if(pair? s_593)" +"(if(let-values(((s_594)(car s_593))) #t)" +"(let-values(((s_595)(cdr s_593)))" +"(let-values(((s_292)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" "(if(pair? s_292)" -"(if(let-values(((s_595)(car s_292))) #t)" -"(let-values(((s_596)(cdr s_292)))" -"(let-values(((s_293)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" +"(if(let-values(((s_596)(car s_292))) #t)" +"(let-values(((s_597)(cdr s_292)))" +"(let-values(((s_293)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" "(if(pair? s_293)" "(if(let-values(((s_294)(car s_293)))" "(let-values(((s_295)" "(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" "(eq? '#:local s_295)))" -"(let-values(((s_597)(cdr s_293)))" -"(let-values(((s_598)" -"(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" -"(null? s_598)))" +"(let-values(((s_598)(cdr s_293)))" +"(let-values(((s_599)" +"(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" +"(null? s_599)))" " #f)" " #f)))" " #f)" @@ -66545,44 +66543,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax266_1 datum267_1)" -"(let-values(((s_599)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(let-values(((s_600)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" "(let-values(((quote-syntax268_0)" -"(let-values(((s_600)(car s_599))) s_600))" +"(let-values(((s_601)(car s_600))) s_601))" "((datum269_0)" -"(let-values(((s_601)(cdr s_599)))" -"(let-values(((s_602)" -"(if(syntax?$1 s_601)" -"(syntax-e$1 s_601)" -" s_601)))" +"(let-values(((s_602)(cdr s_600)))" +"(let-values(((s_603)" +"(if(syntax?$1 s_602)" +"(syntax-e$1 s_602)" +" s_602)))" "(let-values(((datum270_0)" -"(let-values(((s_603)(car s_602))) s_603))" +"(let-values(((s_604)(car s_603))) s_604))" "(()" -"(let-values(((s_604)(cdr s_602)))" -"(let-values(((s_605)" -"(if(syntax?$1 s_604)" -"(syntax-e$1 s_604)" -" s_604)))" -"(let-values((()" +"(let-values(((s_605)(cdr s_603)))" "(let-values(((s_606)" -"(car" +"(if(syntax?$1 s_605)" +"(syntax-e$1 s_605)" " s_605)))" +"(let-values((()" "(let-values(((s_607)" -"(if(syntax?$1" -" s_606)" -"(syntax-e$1" -" s_606)" +"(car" " s_606)))" +"(let-values(((s_608)" +"(if(syntax?$1" +" s_607)" +"(syntax-e$1" +" s_607)" +" s_607)))" "(values))))" "(()" -"(let-values(((s_608)" -"(cdr" -" s_605)))" "(let-values(((s_609)" +"(cdr" +" s_606)))" +"(let-values(((s_610)" "(if(syntax?$1" -" s_608)" +" s_609)" "(syntax-e$1" -" s_608)" -" s_608)))" +" s_609)" +" s_609)))" "(values)))))" "(values))))))" "(values datum270_0))))))" @@ -66590,26 +66588,26 @@ static const char *startup_source = "(values #t quote-syntax266_1 datum267_1)))" "(values #f #f #f)))))" "(let-values(((ok?_50 quote-syntax271_0 datum272_0)" -"(let-values(((s_610) disarmed-s_12))" +"(let-values(((s_611) disarmed-s_12))" "(if(if(not ok?_49) #t #f)" -"(let-values(((orig-s_52) s_610))" +"(let-values(((orig-s_52) s_611))" "(let-values(((quote-syntax271_1 datum272_1)" -"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))" -"(if(pair? s_611)" +"(let-values(((s_612)(if(syntax?$1 s_611)(syntax-e$1 s_611) s_611)))" +"(if(pair? s_612)" "(let-values(((quote-syntax273_0)" -"(let-values(((s_297)(car s_611))) s_297))" +"(let-values(((s_297)(car s_612))) s_297))" "((datum274_0)" -"(let-values(((s_612)(cdr s_611)))" -"(let-values(((s_613)" -"(if(syntax?$1 s_612)" -"(syntax-e$1 s_612)" -" s_612)))" -"(if(pair? s_613)" +"(let-values(((s_613)(cdr s_612)))" +"(let-values(((s_614)" +"(if(syntax?$1 s_613)" +"(syntax-e$1 s_613)" +" s_613)))" +"(if(pair? s_614)" "(let-values(((datum275_0)" -"(let-values(((s_298)(car s_613)))" +"(let-values(((s_298)(car s_614)))" " s_298))" "(()" -"(let-values(((s_299)(cdr s_613)))" +"(let-values(((s_299)(cdr s_614)))" "(let-values(((s_300)" "(if(syntax?$1 s_299)" "(syntax-e$1 s_299)" @@ -66633,55 +66631,55 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_87))" +"(reference-records-all-used!(expand-context-reference-records ctx_88))" "(values))))" "(let-values(((ok?_51 _276_0 _277_0 kw278_0)" -"(let-values(((s_614) disarmed-s_12))" -"(let-values(((orig-s_53) s_614))" +"(let-values(((s_615) disarmed-s_12))" +"(let-values(((orig-s_53) s_615))" "(let-values(((_276_1 _277_1 kw278_1)" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)(syntax-e$1 s_614) s_614)))" -"(if(pair? s_615)" +"(let-values(((s_616)" +"(if(syntax?$1 s_615)(syntax-e$1 s_615) s_615)))" +"(if(pair? s_616)" "(let-values(((_279_0)" -"(let-values(((s_616)(car s_615))) s_616))" +"(let-values(((s_617)(car s_616))) s_617))" "((_280_0 kw281_0)" -"(let-values(((s_617)(cdr s_615)))" -"(let-values(((s_618)" -"(if(syntax?$1 s_617)" -"(syntax-e$1 s_617)" -" s_617)))" -"(if(pair? s_618)" -"(let-values(((_282_0)" +"(let-values(((s_618)(cdr s_616)))" "(let-values(((s_619)" -"(car s_618)))" -" s_619))" -"((kw283_0)" +"(if(syntax?$1 s_618)" +"(syntax-e$1 s_618)" +" s_618)))" +"(if(pair? s_619)" +"(let-values(((_282_0)" "(let-values(((s_620)" -"(cdr s_618)))" +"(car s_619)))" +" s_620))" +"((kw283_0)" "(let-values(((s_621)" -"(if(syntax?$1" -" s_620)" -"(syntax-e$1" -" s_620)" -" s_620)))" -"(if(pair? s_621)" -"(let-values(((kw284_0)" +"(cdr s_619)))" "(let-values(((s_622)" -"(car" -" s_621)))" -" s_622))" -"(()" -"(let-values(((s_623)" -"(cdr" -" s_621)))" -"(let-values(((s_624)" "(if(syntax?$1" -" s_623)" +" s_621)" "(syntax-e$1" -" s_623)" -" s_623)))" -"(if(null?" +" s_621)" +" s_621)))" +"(if(pair? s_622)" +"(let-values(((kw284_0)" +"(let-values(((s_623)" +"(car" +" s_622)))" +" s_623))" +"(()" +"(let-values(((s_624)" +"(cdr" +" s_622)))" +"(let-values(((s_625)" +"(if(syntax?$1" " s_624)" +"(syntax-e$1" +" s_624)" +" s_624)))" +"(if(null?" +" s_625)" "(values)" "(raise-syntax-error$1" " #f" @@ -66700,43 +66698,47 @@ static const char *startup_source = "(values _279_0 _280_0 kw281_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _276_1 _277_1 kw278_1))))))" -"(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum267_0)" -"(let-values(((s285_0) s_591)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" +"(if(expand-context-to-parsed? ctx_88)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum267_0)" +"(let-values(((s285_0) s_592)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" "(rebuild5.1 #t s285_0 temp286_0))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum272_0(expand-context-scopes ctx_87))))" -"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum-s_0)" -"(let-values(((s287_0) s_591)((temp288_0)(list quote-syntax271_0 datum-s_0)))" -"(rebuild5.1 #t s287_0 temp288_0)))))))))))))" +"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_88)))" +"(let-values(((datum-s_0)" +"(remove-scopes" +"(remove-scopes datum272_0(expand-context-scopes ctx_88))" +"(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" +"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum-s_0)" +"(let-values(((s287_0) s_592)((temp288_0)(list quote-syntax271_0 datum-s_0)))" +"(rebuild5.1 #t s287_0 temp288_0))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_625 ctx_88)" +"(lambda(s_626 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_88)))" +"(let-values(((obs_107)(expand-context-observer ctx_89)))" "(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_625)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_626)))" "(let-values(((ok?_52 _289_0 _290_0 _291_0)" -"(let-values(((s_626) disarmed-s_13))" -"(if(let-values(((s_627)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" -"(if(pair? s_627)" -"(if(let-values(((s_628)(car s_627))) #t)" -"(let-values(((s_629)(cdr s_627)))" -"(let-values(((s_630)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" -"(if(pair? s_630)" -"(if(let-values(((s_631)(car s_630))) #t)" -"(let-values(((s_632)(cdr s_630)))" -"(let-values(((s_633)(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" -"(if(pair? s_633)" -"(if(let-values(((s_634)(car s_633))) #t)" -"(let-values(((s_635)(cdr s_633)))" -"(let-values(((s_636)" -"(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" -"(null? s_636)))" +"(let-values(((s_627) disarmed-s_13))" +"(if(let-values(((s_628)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" +"(if(pair? s_628)" +"(if(let-values(((s_629)(car s_628))) #t)" +"(let-values(((s_630)(cdr s_628)))" +"(let-values(((s_631)(if(syntax?$1 s_630)(syntax-e$1 s_630) s_630)))" +"(if(pair? s_631)" +"(if(let-values(((s_632)(car s_631))) #t)" +"(let-values(((s_633)(cdr s_631)))" +"(let-values(((s_634)(if(syntax?$1 s_633)(syntax-e$1 s_633) s_633)))" +"(if(pair? s_634)" +"(if(let-values(((s_635)(car s_634))) #t)" +"(let-values(((s_636)(cdr s_634)))" +"(let-values(((s_637)" +"(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" +"(null? s_637)))" " #f)" " #f)))" " #f)" @@ -66745,37 +66747,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_289_1 _290_1 _291_1)" -"(let-values(((s_637)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" -"(let-values(((_292_0)(let-values(((s_638)(car s_637))) s_638))" +"(let-values(((s_638)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" +"(let-values(((_292_0)(let-values(((s_639)(car s_638))) s_639))" "((_293_0 _294_0)" -"(let-values(((s_639)(cdr s_637)))" -"(let-values(((s_640)" -"(if(syntax?$1 s_639)" -"(syntax-e$1 s_639)" -" s_639)))" +"(let-values(((s_640)(cdr s_638)))" +"(let-values(((s_641)" +"(if(syntax?$1 s_640)" +"(syntax-e$1 s_640)" +" s_640)))" "(let-values(((_295_0)" -"(let-values(((s_641)(car s_640))) s_641))" +"(let-values(((s_642)(car s_641))) s_642))" "((_296_0)" -"(let-values(((s_642)(cdr s_640)))" -"(let-values(((s_643)" -"(if(syntax?$1 s_642)" -"(syntax-e$1 s_642)" -" s_642)))" -"(let-values(((_297_0)" +"(let-values(((s_643)(cdr s_641)))" "(let-values(((s_644)" -"(car" +"(if(syntax?$1 s_643)" +"(syntax-e$1 s_643)" " s_643)))" -" s_644))" -"(()" +"(let-values(((_297_0)" "(let-values(((s_645)" -"(cdr" -" s_643)))" +"(car" +" s_644)))" +" s_645))" +"(()" "(let-values(((s_646)" +"(cdr" +" s_644)))" +"(let-values(((s_647)" "(if(syntax?$1" -" s_645)" +" s_646)" "(syntax-e$1" -" s_645)" -" s_645)))" +" s_646)" +" s_646)))" "(values)))))" "(values _297_0))))))" "(values _295_0 _296_0))))))" @@ -66785,67 +66787,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_52" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_625))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_626))" "(void))" "(values))))" "(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)" -"(let-values(((s_647) disarmed-s_13))" -"(let-values(((orig-s_54) s_647))" +"(let-values(((s_648) disarmed-s_13))" +"(let-values(((orig-s_54) s_648))" "(let-values(((if298_1 tst299_1 thn300_1 els301_1)" -"(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" -"(if(pair? s_648)" -"(let-values(((if302_0)(let-values(((s_649)(car s_648))) s_649))" +"(let-values(((s_649)(if(syntax?$1 s_648)(syntax-e$1 s_648) s_648)))" +"(if(pair? s_649)" +"(let-values(((if302_0)(let-values(((s_650)(car s_649))) s_650))" "((tst303_0 thn304_0 els305_0)" -"(let-values(((s_650)(cdr s_648)))" -"(let-values(((s_651)" -"(if(syntax?$1 s_650)" -"(syntax-e$1 s_650)" -" s_650)))" -"(if(pair? s_651)" +"(let-values(((s_651)(cdr s_649)))" +"(let-values(((s_652)" +"(if(syntax?$1 s_651)" +"(syntax-e$1 s_651)" +" s_651)))" +"(if(pair? s_652)" "(let-values(((tst306_0)" -"(let-values(((s_652)(car s_651)))" -" s_652))" +"(let-values(((s_653)(car s_652)))" +" s_653))" "((thn307_0 els308_0)" -"(let-values(((s_653)(cdr s_651)))" -"(let-values(((s_654)" -"(if(syntax?$1 s_653)" -"(syntax-e$1 s_653)" -" s_653)))" -"(if(pair? s_654)" -"(let-values(((thn309_0)" +"(let-values(((s_654)(cdr s_652)))" "(let-values(((s_655)" -"(car" +"(if(syntax?$1 s_654)" +"(syntax-e$1 s_654)" " s_654)))" -" s_655))" -"((els310_0)" +"(if(pair? s_655)" +"(let-values(((thn309_0)" "(let-values(((s_656)" -"(cdr" -" s_654)))" -"(let-values(((s_657)" -"(if(syntax?$1" -" s_656)" -"(syntax-e$1" -" s_656)" -" s_656)))" -"(if(pair?" -" s_657)" -"(let-values(((els311_0)" -"(let-values(((s_658)" "(car" -" s_657)))" -" s_658))" -"(()" -"(let-values(((s_659)" +" s_655)))" +" s_656))" +"((els310_0)" +"(let-values(((s_657)" "(cdr" -" s_657)))" -"(let-values(((s_660)" +" s_655)))" +"(let-values(((s_658)" "(if(syntax?$1" -" s_659)" +" s_657)" "(syntax-e$1" -" s_659)" -" s_659)))" -"(if(null?" +" s_657)" +" s_657)))" +"(if(pair?" +" s_658)" +"(let-values(((els311_0)" +"(let-values(((s_659)" +"(car" +" s_658)))" +" s_659))" +"(()" +"(let-values(((s_660)" +"(cdr" +" s_658)))" +"(let-values(((s_661)" +"(if(syntax?$1" " s_660)" +"(syntax-e$1" +" s_660)" +" s_660)))" +"(if(null?" +" s_661)" "(values)" "(raise-syntax-error$1" " #f" @@ -66870,19 +66872,19 @@ static const char *startup_source = "(values if302_0 tst303_0 thn304_0 els305_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t if298_1 tst299_1 thn300_1 els301_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_88)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_88))" +"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_89))" "(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_88)((s315_0) s_625))" +"(let-values(((ctx314_0) ctx_89)((s315_0) s_626))" "(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))" "(expand9.1 #f #f #f temp316_0 expr-ctx317_0))))" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_88)))" +"(let-values(((obs_108)(expand-context-observer ctx_89)))" "(if obs_108" "(let-values()(let-values()(call-expand-observe obs_108 'next)))" "(void)))" @@ -66892,7 +66894,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp318_0 tail-ctx319_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_88)))" +"(let-values(((obs_109)(expand-context-observer ctx_89)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -66900,7 +66902,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp320_0) els301_0)((tail-ctx321_0) tail-ctx_0))" "(expand9.1 #f #f #f temp320_0 tail-ctx321_0))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s322_0) rebuild-s_9)" "((temp323_0)(list if298_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -66908,73 +66910,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_661 ctx_89)" +"(lambda(s_662 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(let-values(((obs_110)(expand-context-observer ctx_90)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_661)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_662)))" "(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)" -"(let-values(((s_662) disarmed-s_14))" -"(let-values(((orig-s_55) s_662))" +"(let-values(((s_663) disarmed-s_14))" +"(let-values(((orig-s_55) s_663))" "(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)" -"(let-values(((s_663)(if(syntax?$1 s_662)(syntax-e$1 s_662) s_662)))" -"(if(pair? s_663)" +"(let-values(((s_664)(if(syntax?$1 s_663)(syntax-e$1 s_663) s_663)))" +"(if(pair? s_664)" "(let-values(((with-continuation-mark328_0)" -"(let-values(((s_664)(car s_663))) s_664))" +"(let-values(((s_665)(car s_664))) s_665))" "((key329_0 val330_0 body331_0)" -"(let-values(((s_665)(cdr s_663)))" -"(let-values(((s_666)" -"(if(syntax?$1 s_665)" -"(syntax-e$1 s_665)" -" s_665)))" -"(if(pair? s_666)" +"(let-values(((s_666)(cdr s_664)))" +"(let-values(((s_667)" +"(if(syntax?$1 s_666)" +"(syntax-e$1 s_666)" +" s_666)))" +"(if(pair? s_667)" "(let-values(((key332_0)" -"(let-values(((s_667)(car s_666)))" -" s_667))" +"(let-values(((s_668)(car s_667)))" +" s_668))" "((val333_0 body334_0)" -"(let-values(((s_668)(cdr s_666)))" -"(let-values(((s_669)" -"(if(syntax?$1 s_668)" -"(syntax-e$1 s_668)" -" s_668)))" -"(if(pair? s_669)" -"(let-values(((val335_0)" +"(let-values(((s_669)(cdr s_667)))" "(let-values(((s_670)" -"(car" +"(if(syntax?$1 s_669)" +"(syntax-e$1 s_669)" " s_669)))" -" s_670))" -"((body336_0)" +"(if(pair? s_670)" +"(let-values(((val335_0)" "(let-values(((s_671)" -"(cdr" -" s_669)))" -"(let-values(((s_672)" -"(if(syntax?$1" -" s_671)" -"(syntax-e$1" -" s_671)" -" s_671)))" -"(if(pair? s_672)" -"(let-values(((body337_0)" -"(let-values(((s_673)" "(car" -" s_672)))" -" s_673))" -"(()" -"(let-values(((s_674)" +" s_670)))" +" s_671))" +"((body336_0)" +"(let-values(((s_672)" "(cdr" -" s_672)))" -"(let-values(((s_675)" +" s_670)))" +"(let-values(((s_673)" "(if(syntax?$1" -" s_674)" +" s_672)" "(syntax-e$1" -" s_674)" -" s_674)))" -"(if(null?" +" s_672)" +" s_672)))" +"(if(pair? s_673)" +"(let-values(((body337_0)" +"(let-values(((s_674)" +"(car" +" s_673)))" +" s_674))" +"(()" +"(let-values(((s_675)" +"(cdr" +" s_673)))" +"(let-values(((s_676)" +"(if(syntax?$1" " s_675)" +"(syntax-e$1" +" s_675)" +" s_675)))" +"(if(null?" +" s_676)" "(values)" "(raise-syntax-error$1" " #f" @@ -66996,16 +66998,16 @@ static const char *startup_source = "(values with-continuation-mark328_0 key329_0 val330_0 body331_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_89)((s339_0) s_661))" +"(let-values(((ctx338_0) ctx_90)((s339_0) s_662))" "(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))" "(let-values(((exp-key_0)" "(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))" "(expand9.1 #f #f #f temp340_0 expr-ctx341_0))))" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_89)))" +"(let-values(((obs_111)(expand-context-observer ctx_90)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" @@ -67015,7 +67017,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp342_0 expr-ctx343_0))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_89)))" +"(let-values(((obs_112)(expand-context-observer ctx_90)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" @@ -67023,10 +67025,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp344_0) body327_0)" "((temp345_0)" -"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_89))" +"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_90))" "(as-tail-context22.1 ctx347_0 expr-ctx346_0))))" "(expand9.1 #f #f #f temp344_0 temp345_0))))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s348_0) rebuild-s_10)" "((temp349_0)(list with-continuation-mark324_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -67041,32 +67043,32 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_676 ctx_90)" +"(lambda(s_677 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_90)))" +"(let-values(((obs_113)(expand-context-observer ctx_91)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_676)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_677)))" "(let-values(((ok?_55 begin350_0 e351_0)" -"(let-values(((s_677) disarmed-s_15))" -"(let-values(((orig-s_56) s_677))" +"(let-values(((s_678) disarmed-s_15))" +"(let-values(((orig-s_56) s_678))" "(let-values(((begin350_1 e351_1)" -"(let-values(((s_678)" -"(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" -"(if(pair? s_678)" +"(let-values(((s_679)" +"(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" +"(if(pair? s_679)" "(let-values(((begin352_0)" -"(let-values(((s_679)(car s_678))) s_679))" +"(let-values(((s_680)(car s_679))) s_680))" "((e353_0)" -"(let-values(((s_680)(cdr s_678)))" -"(let-values(((s_681)" -"(if(syntax?$1 s_680)" -"(syntax-e$1 s_680)" -" s_680)))" +"(let-values(((s_681)(cdr s_679)))" +"(let-values(((s_682)" +"(if(syntax?$1 s_681)" +"(syntax-e$1 s_681)" +" s_681)))" "(let-values(((flat-s_45)" -"(to-syntax-list.1 s_681)))" +"(to-syntax-list.1 s_682)))" "(if(not flat-s_45)" "(let-values()" "(raise-syntax-error$1" @@ -67085,10 +67087,10 @@ static const char *startup_source = "(values #t begin350_1 e351_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_90)" -"(as-expression-context ctx_90))))" +"(as-begin-expression-context ctx_91)" +"(as-expression-context ctx_91))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_90)((s355_0) s_676))" +"(let-values(((ctx354_0) ctx_91)((s355_0) s_677))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_123)" @@ -67099,7 +67101,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_114)" -"(expand-context-observer ctx_90)))" +"(expand-context-observer ctx_91)))" "(if obs_114" "(let-values()" "(begin" @@ -67120,7 +67122,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_115)" "(expand-context-observer" -" ctx_90)))" +" ctx_91)))" "(if obs_115" "(let-values()" "(let-values()" @@ -67135,7 +67137,7 @@ static const char *startup_source = "(let-values(((expr-ctx358_0)" " expr-ctx_4)" "((ctx359_0)" -" ctx_90))" +" ctx_91))" "(as-tail-context22.1" " ctx359_0" " expr-ctx358_0))" @@ -67146,7 +67148,7 @@ static const char *startup_source = " e351_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_90)))" +"(let-values(((obs_116)(expand-context-observer ctx_91)))" "(if obs_116" "(let-values()" "(let-values()" @@ -67155,7 +67157,7 @@ static const char *startup_source = " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_90)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s360_0) rebuild-s_11)((temp361_0)(cons begin350_0 exp-es_2)))" "(rebuild5.1 #t rebuild-s360_0 temp361_0)))))))))))))))))))" @@ -67168,39 +67170,39 @@ static const char *startup_source = "((temp364_0) 0)" "((temp365_0) #t))" "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" -"(lambda(s_682 ctx_91)" -"(let-values(((context_25)(expand-context-context ctx_91)))" +"(lambda(s_683 ctx_92)" +"(let-values(((context_25)(expand-context-context ctx_92)))" "(if(let-values(((or-part_380)(eq? context_25 'top-level)))" "(if or-part_380 or-part_380(eq? context_25 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_682)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))" "(let-values(((ok?_56 begin366_0)" -"(let-values(((s_683) disarmed-s_16))" -"(if(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" -"(if(pair? s_684)" -"(if(let-values(((s_685)(car s_684))) #t)" -"(let-values(((s_686)(cdr s_684)))" -"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" -"(null? s_687)))" +"(let-values(((s_684) disarmed-s_16))" +"(if(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" +"(if(pair? s_685)" +"(if(let-values(((s_686)(car s_685))) #t)" +"(let-values(((s_687)(cdr s_685)))" +"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" +"(null? s_688)))" " #f)" " #f))" "(let-values()" "(let-values(((begin366_1)" -"(let-values(((s_688)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(let-values(((s_689)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" "(let-values(((begin367_0)" -"(let-values(((s_689)(car s_688))) s_689))" +"(let-values(((s_690)(car s_689))) s_690))" "(()" -"(let-values(((s_690)(cdr s_688)))" -"(let-values(((s_691)" -"(if(syntax?$1 s_690)" -"(syntax-e$1 s_690)" -" s_690)))" +"(let-values(((s_691)(cdr s_689)))" +"(let-values(((s_692)" +"(if(syntax?$1 s_691)" +"(syntax-e$1 s_691)" +" s_691)))" "(values)))))" "(values begin367_0)))))" "(values #t begin366_1)))" "(values #f #f)))))" -"(if ok?_56 s_682(nonempty-begin_0 s_682 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_682 ctx_91))))))))" +"(if ok?_56 s_683(nonempty-begin_0 s_683 ctx_92)))))" +"(let-values()(nonempty-begin_0 s_683 ctx_92))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67208,14 +67210,14 @@ static const char *startup_source = "(make-begin20.1 temp371_0 temp370_0 temp368_0 parsed-begin0369_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_120 ctx_92)" +"(lambda(id_120 ctx_93)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_92)" -"(expand-context-phase ctx_92)" +"(expand-context-need-eventually-defined ctx_93)" +"(expand-context-phase ctx_93)" "(lambda(l_87)(cons id_120 l_87))" " null)" " #t))" @@ -67227,58 +67229,58 @@ static const char *startup_source = "(lambda(s373_0 ctx374_0 implicit-omitted?372_0)" "(begin" " 'core375" -"(let-values(((s_692) s373_0))" -"(let-values(((ctx_93) ctx374_0))" +"(let-values(((s_693) s373_0))" +"(let-values(((ctx_94) ctx374_0))" "(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_93)))" +"(let-values(((obs_117)(expand-context-observer ctx_94)))" "(if obs_117" "(let-values()" "(let-values()(call-expand-observe obs_117 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_692)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_693)))" "(let-values(((id_121)" "(if implicit-omitted?_0" -"(let-values() s_692)" +"(let-values() s_693)" "(let-values()" "(let-values(((ok?_57 #%top377_0 id378_0)" -"(let-values(((s_693) disarmed-s_17))" -"(let-values(((orig-s_57) s_693))" +"(let-values(((s_694) disarmed-s_17))" +"(let-values(((orig-s_57) s_694))" "(let-values(((#%top377_1 id378_1)" -"(let-values(((s_694)" -"(if(syntax?$1 s_693)" -"(syntax-e$1 s_693)" -" s_693)))" -"(if(pair? s_694)" -"(let-values(((#%top379_0)" "(let-values(((s_695)" -"(car" +"(if(syntax?$1 s_694)" +"(syntax-e$1 s_694)" " s_694)))" -" s_695))" -"((id380_0)" +"(if(pair? s_695)" +"(let-values(((#%top379_0)" "(let-values(((s_696)" +"(car" +" s_695)))" +" s_696))" +"((id380_0)" +"(let-values(((s_697)" "(cdr" -" s_694)))" +" s_695)))" "(if(let-values(((or-part_381)" "(if(syntax?$1" -" s_696)" +" s_697)" "(symbol?" "(syntax-e$1" -" s_696))" +" s_697))" " #f)))" "(if or-part_381" " or-part_381" "(symbol?" -" s_696)))" -" s_696" +" s_697)))" +" s_697" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_696)))))" +" s_697)))))" "(values #%top379_0 id380_0))" "(raise-syntax-error$1" " #f" @@ -67288,7 +67290,7 @@ static const char *startup_source = " id378_0)))))" "(let-values(((b_92)" "(let-values(((id381_0) id_121)" -"((temp382_0)(expand-context-phase ctx_93))" +"((temp382_0)(expand-context-phase ctx_94))" "((temp383_0) 'ambiguous))" "(resolve+shift28.1" " temp383_0" @@ -67299,25 +67301,25 @@ static const char *startup_source = " id381_0" " temp382_0))))" "(if(eq? b_92 'ambiguous)" -"(let-values()(raise-ambiguous-error id_121 ctx_93))" +"(let-values()(raise-ambiguous-error id_121 ctx_94))" "(if(if b_92" "(if(module-binding? b_92)" -"(eq?(module-binding-module b_92)(root-expand-context-self-mpi ctx_93))" +"(eq?(module-binding-module b_92)(root-expand-context-self-mpi ctx_94))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-id2.1 id_121 b_92 #f)" "(if(top-level-module-path-index?(module-binding-module b_92))" -"(let-values() s_692)" +"(let-values() s_693)" "(let-values() id_121))))" -"(if(register-eventual-variable!? id_121 ctx_93)" +"(if(register-eventual-variable!? id_121 ctx_94)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-id2.1 id_121 b_92 #f)" " id_121))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_93))" +"(if(not(expand-context-allow-unbound? ctx_94))" "(let-values()" "(raise-unbound-syntax-error" " #f" @@ -67325,61 +67327,61 @@ static const char *startup_source = " id_121" " #f" " null" -"(syntax-debug-info-string id_121 ctx_93)))" +"(syntax-debug-info-string id_121 ctx_94)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" " id_121" -"(root-expand-context-top-level-bind-scope ctx_93))))" +"(root-expand-context-top-level-bind-scope ctx_94))))" "(let-values(((tl-b_1)" "(let-values(((tl-id384_0) tl-id_1)" "((temp385_0)" -"(expand-context-phase ctx_93)))" +"(expand-context-phase ctx_94)))" "(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" "(let-values() id_121)" "(let-values()" "(let-values(((ok?_58 #%top386_0 id387_0)" -"(let-values(((s_697) disarmed-s_17))" -"(let-values(((orig-s_58) s_697))" +"(let-values(((s_698) disarmed-s_17))" +"(let-values(((orig-s_58) s_698))" "(let-values(((#%top386_1 id387_1)" -"(let-values(((s_698)" -"(if(syntax?$1" -" s_697)" -"(syntax-e$1" -" s_697)" -" s_697)))" -"(if(pair? s_698)" -"(let-values(((#%top388_0)" "(let-values(((s_699)" -"(car" +"(if(syntax?$1" +" s_698)" +"(syntax-e$1" +" s_698)" " s_698)))" -" s_699))" -"((id389_0)" +"(if(pair? s_699)" +"(let-values(((#%top388_0)" "(let-values(((s_700)" +"(car" +" s_699)))" +" s_700))" +"((id389_0)" +"(let-values(((s_701)" "(cdr" -" s_698)))" +" s_699)))" "(if(let-values(((or-part_382)" "(if(syntax?$1" -" s_700)" +" s_701)" "(symbol?" "(syntax-e$1" -" s_700))" +" s_701))" " #f)))" "(if or-part_382" " or-part_382" "(symbol?" -" s_700)))" -" s_700" +" s_701)))" +" s_701" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_700)))))" +" s_701)))))" "(values" " #%top388_0" " id389_0))" @@ -67388,80 +67390,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_58)))))" "(values #t #%top386_1 id387_1))))))" -"(let-values(((s390_0) s_692)" +"(let-values(((s390_0) s_693)" "((temp391_0)(cons #%top386_0 id_121)))" "(rebuild5.1 #t s390_0 temp391_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 id_121 b_92 #f)" -" s_692)))))))))))))))))))))))" +" s_693)))))))))))))))))))))))" "(case-lambda" -"((s_701 ctx_94)(core375_0 s_701 ctx_94 #f))" -"((s_702 ctx_95 implicit-omitted?372_1)(core375_0 s_702 ctx_95 implicit-omitted?372_1))))))" +"((s_702 ctx_95)(core375_0 s_702 ctx_95 #f))" +"((s_703 ctx_96 implicit-omitted?372_1)(core375_0 s_703 ctx_96 implicit-omitted?372_1))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_703 ctx_96)" +"(lambda(s_704 ctx_97)" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_96)))" +"(let-values(((obs_118)(expand-context-observer ctx_97)))" "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_703)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_704)))" "(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)" -"(let-values(((s_704) disarmed-s_18))" -"(let-values(((orig-s_59) s_704))" +"(let-values(((s_705) disarmed-s_18))" +"(let-values(((orig-s_59) s_705))" "(let-values(((set!392_1 id393_1 rhs394_1)" -"(let-values(((s_705)(if(syntax?$1 s_704)(syntax-e$1 s_704) s_704)))" -"(if(pair? s_705)" -"(let-values(((set!395_0)(let-values(((s_706)(car s_705))) s_706))" +"(let-values(((s_706)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" +"(if(pair? s_706)" +"(let-values(((set!395_0)(let-values(((s_707)(car s_706))) s_707))" "((id396_0 rhs397_0)" -"(let-values(((s_707)(cdr s_705)))" -"(let-values(((s_708)" -"(if(syntax?$1 s_707)" -"(syntax-e$1 s_707)" -" s_707)))" -"(if(pair? s_708)" +"(let-values(((s_708)(cdr s_706)))" +"(let-values(((s_709)" +"(if(syntax?$1 s_708)" +"(syntax-e$1 s_708)" +" s_708)))" +"(if(pair? s_709)" "(let-values(((id398_0)" -"(let-values(((s_709)(car s_708)))" +"(let-values(((s_710)(car s_709)))" "(if(let-values(((or-part_383)" -"(if(syntax?$1 s_709)" +"(if(syntax?$1 s_710)" "(symbol?" "(syntax-e$1" -" s_709))" +" s_710))" " #f)))" "(if or-part_383" " or-part_383" -"(symbol? s_709)))" -" s_709" +"(symbol? s_710)))" +" s_710" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_709))))" +" s_710))))" "((rhs399_0)" -"(let-values(((s_710)(cdr s_708)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" -"(if(pair? s_711)" -"(let-values(((rhs400_0)" +"(let-values(((s_711)(cdr s_709)))" "(let-values(((s_712)" -"(car" +"(if(syntax?$1 s_711)" +"(syntax-e$1 s_711)" " s_711)))" -" s_712))" -"(()" +"(if(pair? s_712)" +"(let-values(((rhs400_0)" "(let-values(((s_713)" -"(cdr" -" s_711)))" +"(car" +" s_712)))" +" s_713))" +"(()" "(let-values(((s_714)" +"(cdr" +" s_712)))" +"(let-values(((s_715)" "(if(syntax?$1" -" s_713)" +" s_714)" "(syntax-e$1" -" s_713)" -" s_713)))" -"(if(null? s_714)" +" s_714)" +" s_714)))" +"(if(null? s_715)" "(values)" "(raise-syntax-error$1" " #f" @@ -67484,7 +67486,7 @@ static const char *startup_source = " 'rename-loop" "(let-values(((binding_28)" "(let-values(((id401_0) id_122)" -"((temp402_0)(expand-context-phase ctx_96))" +"((temp402_0)(expand-context-phase ctx_97))" "((temp403_0) 'ambiguous)" "((temp404_0) #t))" "(resolve+shift28.1" @@ -67498,18 +67500,18 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_28 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_96))" +"(let-values()(raise-ambiguous-error id_122 ctx_97))" "(void))" "(values))))" "(let-values(((t_62 primitive?_11 insp_24 protected?_12)" "(if binding_28" "(let-values(((binding405_0) binding_28)" -"((ctx406_0) ctx_96)" -"((s407_0) s_703))" +"((ctx406_0) ctx_97)" +"((s407_0) s_704))" "(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_96)))" +"(let-values(((obs_119)(expand-context-observer ctx_97)))" "(if obs_119" "(let-values()" "(let-values()(call-expand-observe obs_119 'resolve id_122)))" @@ -67519,10 +67521,10 @@ static const char *startup_source = " or-part_384" "(if(not binding_28)" "(let-values(((or-part_385)" -"(register-eventual-variable!? id_122 ctx_96)))" +"(register-eventual-variable!? id_122 ctx_97)))" "(if or-part_385" " or-part_385" -"(expand-context-allow-unbound? ctx_96)))" +"(expand-context-allow-unbound? ctx_97)))" " #f)))" "(let-values()" "(let-values((()" @@ -67531,20 +67533,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_28)" -"(root-expand-context-self-mpi ctx_96)))" +"(root-expand-context-self-mpi ctx_97)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_703" +" s_704" " id_122))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_120)" -"(expand-context-observer ctx_96)))" +"(expand-context-observer ctx_97)))" "(if obs_120" "(let-values()" "(let-values()" @@ -67556,14 +67558,14 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_28)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_96)((s409_0) s_703))" +"(let-values(((ctx408_0) ctx_97)((s409_0) s_704))" "(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))" "(let-values(((exp-rhs_5)" "(let-values(((temp410_0) rhs394_0)" "((temp411_0)" -"(as-expression-context ctx_96)))" +"(as-expression-context ctx_97)))" "(expand9.1 #f #f #f temp410_0 temp411_0))))" -"(if(expand-context-to-parsed? ctx_96)" +"(if(expand-context-to-parsed? ctx_97)" "(parsed-set!9.1" " rebuild-s_12" "(parsed-id2.1 id_122 binding_28 #f)" @@ -67577,7 +67579,7 @@ static const char *startup_source = "((temp416_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_96))))" +" ctx_97))))" "(substitute-variable6.1" " temp416_0" " id414_0" @@ -67589,35 +67591,35 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_703" +" s_704" " id_122" " null" -"(syntax-debug-info-string id_122 ctx_96)))" +"(syntax-debug-info-string id_122 ctx_97)))" "(if(1/set!-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_96)" +"(if(not-in-this-expand-context? t_62 ctx_97)" "(let-values()" "(let-values(((temp417_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_703" +" s_704" " disarmed-s_18" " set!392_0" " rhs394_0" " id_122" " from-rename?_0" -" ctx_96)" +" ctx_97)" " t_62" -" ctx_96))" -"((ctx418_0) ctx_96))" +" ctx_97))" +"((ctx418_0) ctx_97))" "(expand9.1 #f #f #f temp417_0 ctx418_0)))" "(let-values()" "(let-values(((exp-s_13 re-ctx_1)" "(let-values(((t419_0) t_62)" "((insp420_0) insp_24)" -"((s421_0) s_703)" +"((s421_0) s_704)" "((orig-id422_0) orig-id_1)" -"((ctx423_0) ctx_96)" +"((ctx423_0) ctx_97)" "((binding424_0) binding_28)" "((orig-id425_0) orig-id_1))" "(apply-transformer52.1" @@ -67628,7 +67630,7 @@ static const char *startup_source = " orig-id422_0" " ctx423_0" " binding424_0))))" -"(if(expand-context-just-once? ctx_96)" +"(if(expand-context-just-once? ctx_97)" "(let-values() exp-s_13)" "(let-values()" "(let-values(((exp-s426_0) exp-s_13)" @@ -67636,27 +67638,27 @@ static const char *startup_source = "(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))" "(if(1/rename-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_96)" +"(if(not-in-this-expand-context? t_62 ctx_97)" "(let-values()" "(let-values(((temp428_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_703" +" s_704" " disarmed-s_18" " set!392_0" " rhs394_0" " id_122" " from-rename?_0" -" ctx_96" +" ctx_97" " t_62)" " t_62" -" ctx_96))" -"((ctx429_0) ctx_96))" +" ctx_97))" +"((ctx429_0) ctx_97))" "(expand9.1 #f #f #f temp428_0 ctx429_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_62 ctx_96)" +"(rename-transformer-target-in-context t_62 ctx_97)" " id_122" " id_122)" " #t))))" @@ -67664,7 +67666,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_703" +" s_704" " id_122))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -67675,13 +67677,13 @@ static const char *startup_source = "(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" "(begin" " 'substitute-set!-rename31" -"(let-values(((s_715) s24_3))" +"(let-values(((s_716) s24_3))" "(let-values(((disarmed-s_19) disarmed-s25_0))" "(let-values(((set!-id_0) set!-id26_0))" "(let-values(((id_123) id27_0))" "(let-values(((rhs-s_0) rhs-s28_0))" "(let-values(((from-rename?_1) from-rename?29_0))" -"(let-values(((ctx_97) ctx30_0))" +"(let-values(((ctx_98) ctx30_0))" "(let-values(((t_63) t23_0))" "(let-values()" "(if(let-values(((or-part_386) t_63))" @@ -67689,7 +67691,7 @@ static const char *startup_source = "(let-values()" "(let-values(((new-id_1)" "(if t_63" -"(rename-transformer-target-in-context t_63 ctx_97)" +"(rename-transformer-target-in-context t_63 ctx_98)" " id_123)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -67697,93 +67699,93 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_715)))" -"(let-values() s_715)))))))))))))))" +" s_716)))" +"(let-values() s_716)))))))))))))))" "(case-lambda" -"((s_716 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename31_0 s_716 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98 #f)))" -"((s_717 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename31_0 s_717 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1)))))" +"((s_717 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_99)" +"(begin(substitute-set!-rename31_0 s_717 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_99 #f)))" +"((s_718 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_100 t23_1)" +"(substitute-set!-rename31_0 s_718 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_100 t23_1)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_718 ctx_100)" +"(lambda(s_719 ctx_101)" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_100)))" +"(let-values(((obs_121)(expand-context-observer ctx_101)))" "(if obs_121" "(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_718)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_719)))" "(let-values(((ok?_60 #%variable-reference430_0 id431_0)" -"(let-values(((s_719) disarmed-s_22))" -"(if(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" -"(if(pair? s_720)" -"(if(let-values(((s_721)(car s_720))) #t)" -"(let-values(((s_722)(cdr s_720)))" -"(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" -"(if(pair? s_723)" -"(if(let-values(((s_724)(car s_723)))" +"(let-values(((s_720) disarmed-s_22))" +"(if(let-values(((s_721)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" +"(if(pair? s_721)" +"(if(let-values(((s_722)(car s_721))) #t)" +"(let-values(((s_723)(cdr s_721)))" +"(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))" +"(if(pair? s_724)" +"(if(let-values(((s_725)(car s_724)))" "(let-values(((or-part_387)" -"(if(syntax?$1 s_724)(symbol?(syntax-e$1 s_724)) #f)))" -"(if or-part_387 or-part_387(symbol? s_724))))" -"(let-values(((s_725)(cdr s_723)))" -"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" -"(null? s_726)))" +"(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))" +"(if or-part_387 or-part_387(symbol? s_725))))" +"(let-values(((s_726)(cdr s_724)))" +"(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" +"(null? s_727)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference430_1 id431_1)" -"(let-values(((s_727)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" +"(let-values(((s_728)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" "(let-values(((#%variable-reference432_0)" -"(let-values(((s_728)(car s_727))) s_728))" +"(let-values(((s_729)(car s_728))) s_729))" "((id433_0)" -"(let-values(((s_729)(cdr s_727)))" -"(let-values(((s_730)" -"(if(syntax?$1 s_729)" -"(syntax-e$1 s_729)" -" s_729)))" +"(let-values(((s_730)(cdr s_728)))" +"(let-values(((s_731)" +"(if(syntax?$1 s_730)" +"(syntax-e$1 s_730)" +" s_730)))" "(let-values(((id434_0)" -"(let-values(((s_731)(car s_730))) s_731))" +"(let-values(((s_732)(car s_731))) s_732))" "(()" -"(let-values(((s_732)(cdr s_730)))" -"(let-values(((s_733)" -"(if(syntax?$1 s_732)" -"(syntax-e$1 s_732)" -" s_732)))" +"(let-values(((s_733)(cdr s_731)))" +"(let-values(((s_734)" +"(if(syntax?$1 s_733)" +"(syntax-e$1 s_733)" +" s_733)))" "(values)))))" "(values id434_0))))))" "(values #%variable-reference432_0 id433_0)))))" "(values #t #%variable-reference430_1 id431_1)))" "(values #f #f #f)))))" "(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)" -"(let-values(((s_734) disarmed-s_22))" +"(let-values(((s_735) disarmed-s_22))" "(if(if(not ok?_60)" -"(let-values(((s_735)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))" -"(if(pair? s_735)" -"(if(let-values(((s_736)(car s_735))) #t)" -"(let-values(((s_737)(cdr s_735)))" -"(let-values(((s_738)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" -"(if(pair? s_738)" -"(if(let-values(((s_739)(car s_738)))" -"(let-values(((s_740)" -"(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))" -"(if(pair? s_740)" -"(if(let-values(((s_741)(car s_740))) #t)" -"(let-values(((s_742)(cdr s_740)))" +"(let-values(((s_736)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" +"(if(pair? s_736)" +"(if(let-values(((s_737)(car s_736))) #t)" +"(let-values(((s_738)(cdr s_736)))" +"(let-values(((s_739)(if(syntax?$1 s_738)(syntax-e$1 s_738) s_738)))" +"(if(pair? s_739)" +"(if(let-values(((s_740)(car s_739)))" +"(let-values(((s_741)" +"(if(syntax?$1 s_740)(syntax-e$1 s_740) s_740)))" +"(if(pair? s_741)" +"(if(let-values(((s_742)(car s_741))) #t)" +"(let-values(((s_743)(cdr s_741)))" "(let-values(((or-part_388)" -"(if(syntax?$1 s_742)" -"(symbol?(syntax-e$1 s_742))" +"(if(syntax?$1 s_743)" +"(symbol?(syntax-e$1 s_743))" " #f)))" -"(if or-part_388 or-part_388(symbol? s_742))))" +"(if or-part_388 or-part_388(symbol? s_743))))" " #f)" " #f)))" -"(let-values(((s_743)(cdr s_738)))" -"(let-values(((s_744)(if(syntax?$1 s_743)(syntax-e$1 s_743) s_743)))" -"(null? s_744)))" +"(let-values(((s_744)(cdr s_739)))" +"(let-values(((s_745)(if(syntax?$1 s_744)(syntax-e$1 s_744) s_744)))" +"(null? s_745)))" " #f)" " #f)))" " #f)" @@ -67791,61 +67793,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference435_1 #%top436_1 id437_1)" -"(let-values(((s_745)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))" +"(let-values(((s_746)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" "(let-values(((#%variable-reference438_0)" -"(let-values(((s_746)(car s_745))) s_746))" +"(let-values(((s_747)(car s_746))) s_747))" "((#%top439_0 id440_0)" -"(let-values(((s_747)(cdr s_745)))" -"(let-values(((s_748)" -"(if(syntax?$1 s_747)" -"(syntax-e$1 s_747)" -" s_747)))" +"(let-values(((s_748)(cdr s_746)))" +"(let-values(((s_749)" +"(if(syntax?$1 s_748)" +"(syntax-e$1 s_748)" +" s_748)))" "(let-values(((#%top441_0 id442_0)" -"(let-values(((s_749)(car s_748)))" -"(let-values(((s_750)" -"(if(syntax?$1 s_749)" -"(syntax-e$1 s_749)" -" s_749)))" -"(let-values(((#%top443_0)" +"(let-values(((s_750)(car s_749)))" "(let-values(((s_751)" -"(car" +"(if(syntax?$1 s_750)" +"(syntax-e$1 s_750)" " s_750)))" -" s_751))" -"((id444_0)" +"(let-values(((#%top443_0)" "(let-values(((s_752)" +"(car" +" s_751)))" +" s_752))" +"((id444_0)" +"(let-values(((s_753)" "(cdr" -" s_750)))" -" s_752)))" +" s_751)))" +" s_753)))" "(values #%top443_0 id444_0)))))" "(()" -"(let-values(((s_753)(cdr s_748)))" -"(let-values(((s_754)" -"(if(syntax?$1 s_753)" -"(syntax-e$1 s_753)" -" s_753)))" +"(let-values(((s_754)(cdr s_749)))" +"(let-values(((s_755)" +"(if(syntax?$1 s_754)" +"(syntax-e$1 s_754)" +" s_754)))" "(values)))))" "(values #%top441_0 id442_0))))))" "(values #%variable-reference438_0 #%top439_0 id440_0)))))" "(values #t #%variable-reference435_1 #%top436_1 id437_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" -"(let-values(((s_755) disarmed-s_22))" +"(let-values(((s_756) disarmed-s_22))" "(if(if(not(let-values(((or-part_389) ok?_60))(if or-part_389 or-part_389 ok?_61)))" " #t" " #f)" -"(let-values(((orig-s_60) s_755))" +"(let-values(((orig-s_60) s_756))" "(let-values(((#%variable-reference445_1)" -"(let-values(((s_756)(if(syntax?$1 s_755)(syntax-e$1 s_755) s_755)))" -"(if(pair? s_756)" +"(let-values(((s_757)(if(syntax?$1 s_756)(syntax-e$1 s_756) s_756)))" +"(if(pair? s_757)" "(let-values(((#%variable-reference446_0)" -"(let-values(((s_757)(car s_756))) s_757))" +"(let-values(((s_758)(car s_757))) s_758))" "(()" -"(let-values(((s_758)(cdr s_756)))" -"(let-values(((s_759)" -"(if(syntax?$1 s_758)" -"(syntax-e$1 s_758)" -" s_758)))" -"(if(null? s_759)" +"(let-values(((s_759)(cdr s_757)))" +"(let-values(((s_760)" +"(if(syntax?$1 s_759)" +"(syntax-e$1 s_759)" +" s_759)))" +"(if(null? s_760)" "(values)" "(raise-syntax-error$1" " #f" @@ -67860,91 +67862,91 @@ static const char *startup_source = "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" "(let-values(((binding_29)" "(let-values(((var-id447_0) var-id_0)" -"((temp448_0)(expand-context-phase ctx_100))" +"((temp448_0)(expand-context-phase ctx_101))" "((temp449_0) 'ambiguous))" "(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))" "(let-values((()" "(begin" "(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_100))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" "(void))" "(values))))" "(let-values((()" "(begin" "(if(let-values(((or-part_391) binding_29))" -"(if or-part_391 or-part_391(expand-context-allow-unbound? ctx_100)))" +"(if or-part_391 or-part_391(expand-context-allow-unbound? ctx_101)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_718" +" s_719" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_100))))" +"(syntax-debug-info-string var-id_0 ctx_101))))" "(values))))" "(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_29" "(let-values(((binding450_0) binding_29)" -"((ctx451_0) ctx_100)" +"((ctx451_0) ctx_101)" "((var-id452_0) var-id_0)" -"((s453_0) s_718)" -"((temp454_0)(expand-context-in-local-expand? ctx_100)))" +"((s453_0) s_719)" +"((temp454_0)(expand-context-in-local-expand? ctx_101)))" "(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_64(not(variable? t_64)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_718))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_719))" "(void))" -"(if(expand-context-to-parsed? ctx_100)" +"(if(expand-context-to-parsed? ctx_101)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_718)" +"(keep-properties-only~ s_719)" "(if ok?_61" "(let-values()(parsed-top-id4.1 var-id_0 binding_29 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_29 #f))))" -" s_718))))))))" +" s_719))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_718) #f)" -" s_718)))))))))))" +"(if(expand-context-to-parsed? ctx_101)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_719) #f)" +" s_719)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_760 ctx_101)" +"(lambda(s_761 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_101)))" +"(let-values(((obs_122)(expand-context-observer ctx_102)))" "(if obs_122" "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_760)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_761)))" "(let-values(((ok?_63 #%expression455_0 e456_0)" -"(let-values(((s_761) disarmed-s_23))" -"(let-values(((orig-s_61) s_761))" +"(let-values(((s_762) disarmed-s_23))" +"(let-values(((orig-s_61) s_762))" "(let-values(((#%expression455_1 e456_1)" -"(let-values(((s_762)(if(syntax?$1 s_761)(syntax-e$1 s_761) s_761)))" -"(if(pair? s_762)" +"(let-values(((s_763)(if(syntax?$1 s_762)(syntax-e$1 s_762) s_762)))" +"(if(pair? s_763)" "(let-values(((#%expression457_0)" -"(let-values(((s_763)(car s_762))) s_763))" +"(let-values(((s_764)(car s_763))) s_764))" "((e458_0)" -"(let-values(((s_764)(cdr s_762)))" -"(let-values(((s_765)" -"(if(syntax?$1 s_764)" -"(syntax-e$1 s_764)" -" s_764)))" -"(if(pair? s_765)" +"(let-values(((s_765)(cdr s_763)))" +"(let-values(((s_766)" +"(if(syntax?$1 s_765)" +"(syntax-e$1 s_765)" +" s_765)))" +"(if(pair? s_766)" "(let-values(((e459_0)" -"(let-values(((s_766)(car s_765)))" -" s_766))" +"(let-values(((s_767)(car s_766)))" +" s_767))" "(()" -"(let-values(((s_767)(cdr s_765)))" -"(let-values(((s_768)" -"(if(syntax?$1 s_767)" -"(syntax-e$1 s_767)" -" s_767)))" -"(if(null? s_768)" +"(let-values(((s_768)(cdr s_766)))" +"(let-values(((s_769)" +"(if(syntax?$1 s_768)" +"(syntax-e$1 s_768)" +" s_768)))" +"(if(null? s_769)" "(values)" "(raise-syntax-error$1" " #f" @@ -67956,35 +67958,35 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression455_1 e456_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx460_0) ctx_101)((s461_0) s_760)((temp462_0) #t))" +"(let-values(((ctx460_0) ctx_102)((s461_0) s_761)((temp462_0) #t))" "(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))" "(let-values(((exp-e_0)" "(let-values(((temp463_0) e456_0)" "((temp464_0)" -"(let-values(((temp465_0)(as-expression-context ctx_101))" -"((ctx466_0) ctx_101))" +"(let-values(((temp465_0)(as-expression-context ctx_102))" +"((ctx466_0) ctx_102))" "(as-tail-context22.1 ctx466_0 temp465_0))))" "(expand9.1 #f #f #f temp463_0 temp464_0))))" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_102)" " exp-e_0" "(if(let-values(((or-part_392)" -"(if(expand-context-in-local-expand? ctx_101)" -"(expand-context-keep-#%expression? ctx_101)" +"(if(expand-context-in-local-expand? ctx_102)" +"(expand-context-keep-#%expression? ctx_102)" " #f)))" -"(if or-part_392 or-part_392(eq? 'top-level(expand-context-context ctx_101))))" +"(if or-part_392 or-part_392(eq? 'top-level(expand-context-context ctx_102))))" "(let-values()" "(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))" "(rebuild5.1 #t rebuild-s467_0 temp468_0)))" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_101)))" +"(let-values(((obs_123)(expand-context-observer ctx_102)))" "(if obs_123" "(let-values()(let-values()(call-expand-observe obs_123 'tag result-s_13)))" "(void)))" " result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_769 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_769))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" +" (void (add-core-form!* 'unquote (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_771 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_42 id_126 at-phase_12 ns_123)" @@ -68013,9 +68015,9 @@ static const char *startup_source = "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_43 ctx_104)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_43 ctx_105)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_104)))" +"(let-values(((ns_125)(expand-context-namespace ctx_105)))" "((letrec-values(((loop_115)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" @@ -68031,16 +68033,16 @@ static const char *startup_source = "((letrec-values(((for-loop_95)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_402)" +" lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_402)" +"(if(pair? lst_403)" "(let-values(((spec_0)" "(unsafe-car" -" lst_402))" -"((rest_240)" +" lst_403))" +"((rest_239)" "(unsafe-cdr" -" lst_402)))" +" lst_403)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68186,24 +68188,24 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_771)" +"(let-values(((s_772)" "(if(syntax?$1" " s_168)" "(syntax-e$1" " s_168)" " s_168)))" "(if(pair?" -" s_771)" +" s_772)" "(let-values(((for-meta6_0)" "(let-values(((s_486)" "(car" -" s_771)))" +" s_772)))" " s_486))" "((phase-level7_0" " spec8_0)" "(let-values(((s_447)" "(cdr" -" s_771)))" +" s_772)))" "(let-values(((s_491)" "(if(syntax?$1" " s_447)" @@ -68213,20 +68215,20 @@ static const char *startup_source = "(if(pair?" " s_491)" "(let-values(((phase-level9_0)" -"(let-values(((s_772)" +"(let-values(((s_773)" "(car" " s_491)))" -" s_772))" +" s_773))" "((spec10_0)" -"(let-values(((s_773)" +"(let-values(((s_774)" "(cdr" " s_491)))" "(let-values(((s_81)" "(if(syntax?$1" -" s_773)" +" s_774)" "(syntax-e$1" -" s_773)" -" s_773)))" +" s_774)" +" s_774)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_81)))" @@ -68334,7 +68336,7 @@ static const char *startup_source = "(let-values(((s_156)" "(cdr" " s_24)))" -"(let-values(((s_774)" +"(let-values(((s_775)" "(if(syntax?$1" " s_156)" "(syntax-e$1" @@ -68342,7 +68344,7 @@ static const char *startup_source = " s_156)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_774)))" +" s_775)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68502,23 +68504,23 @@ static const char *startup_source = " s_49))" "(let-values(((protect25_1" " p-spec26_1)" -"(let-values(((s_775)" +"(let-values(((s_776)" "(if(syntax?$1" " s_49)" "(syntax-e$1" " s_49)" " s_49)))" "(if(pair?" -" s_775)" +" s_776)" "(let-values(((protect27_0)" "(let-values(((s_505)" "(car" -" s_775)))" +" s_776)))" " s_505))" "((p-spec28_0)" "(let-values(((s_506)" "(cdr" -" s_775)))" +" s_776)))" "(let-values(((s_52)" "(if(syntax?$1" " s_506)" @@ -68587,24 +68589,24 @@ static const char *startup_source = "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_776)" +"(let-values(((s_777)" "(if(syntax?$1" " s_313)" "(syntax-e$1" " s_313)" " s_313)))" "(if(pair?" -" s_776)" +" s_777)" "(let-values(((rename34_0)" "(let-values(((s_199)" "(car" -" s_776)))" +" s_777)))" " s_199))" "((id:from35_0" " id:to36_0)" "(let-values(((s_59)" "(cdr" -" s_776)))" +" s_777)))" "(let-values(((s_404)" "(if(syntax?$1" " s_59)" @@ -68668,15 +68670,15 @@ static const char *startup_source = " orig-s_67" " s_202))))" "(()" -"(let-values(((s_777)" +"(let-values(((s_778)" "(cdr" " s_61)))" "(let-values(((s_415)" "(if(syntax?$1" -" s_777)" +" s_778)" "(syntax-e$1" -" s_777)" -" s_777)))" +" s_778)" +" s_778)))" "(if(null?" " s_415)" "(values)" @@ -68774,43 +68776,43 @@ static const char *startup_source = "(if(pair?" " s_317)" "(let-values(((id:struct46_0)" -"(let-values(((s_778)" +"(let-values(((s_779)" "(car" " s_317)))" "(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_778)" +" s_779)" "(symbol?" "(syntax-e$1" -" s_778))" +" s_779))" " #f)))" "(if or-part_394" " or-part_394" "(symbol?" -" s_778)))" -" s_778" +" s_779)))" +" s_779" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_778))))" +" s_779))))" "((id:field47_0)" -"(let-values(((s_779)" +"(let-values(((s_780)" "(cdr" " s_317)))" "(let-values(((s_431)" "(if(syntax?$1" -" s_779)" +" s_780)" "(syntax-e$1" -" s_779)" -" s_779)))" +" s_780)" +" s_780)))" "(if(pair?" " s_431)" "(let-values(((id:field48_0)" "(let-values(((s_521)" "(car" " s_431)))" -"(let-values(((s_780)" +"(let-values(((s_781)" "(if(syntax?$1" " s_521)" "(syntax-e$1" @@ -68818,7 +68820,7 @@ static const char *startup_source = " s_521)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_780)))" +" s_781)))" "(if(not" " flat-s_50)" "(let-values()" @@ -68828,7 +68830,7 @@ static const char *startup_source = " orig-s_68))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_403)" +"(let-values(((lst_404)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68836,18 +68838,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_403)))" -"((letrec-values(((for-loop_317)" +" lst_404)))" +"((letrec-values(((for-loop_318)" "(lambda(id:field_1" " lst_269)" "(begin" " 'for-loop" "(if(pair?" " lst_269)" -"(let-values(((s_781)" +"(let-values(((s_782)" "(unsafe-car" " lst_269))" -"((rest_241)" +"((rest_240)" "(unsafe-cdr" " lst_269)))" "(let-values(((id:field_2)" @@ -68859,21 +68861,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_781)" +" s_782)" "(symbol?" "(syntax-e$1" -" s_781))" +" s_782))" " #f)))" "(if or-part_395" " or-part_395" "(symbol?" -" s_781)))" -" s_781" +" s_782)))" +" s_782" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_781)))))" +" s_782)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -68881,14 +68883,14 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_317" +"(for-loop_318" " id:field_2" -" rest_241)" +" rest_240)" " id:field_2)))" " id:field_1)))))" -" for-loop_317)" +" for-loop_318)" " null" -" lst_403)))))" +" lst_404)))))" "(reverse$1" " id:field_0))))))))" "(()" @@ -68991,10 +68993,10 @@ static const char *startup_source = "(if(pair?" " s_214)" "(let-values(((mod-path54_0)" -"(let-values(((s_782)" +"(let-values(((s_783)" "(car" " s_214)))" -" s_782))" +" s_783))" "(()" "(let-values(((s_215)" "(cdr" @@ -69039,7 +69041,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_104)" +" ctx_105)" "(values" " null" "(list" @@ -69076,26 +69078,26 @@ static const char *startup_source = " s_218))" "((mod-path59_0" " id60_0)" -"(let-values(((s_783)" +"(let-values(((s_784)" "(cdr" " s_104)))" -"(let-values(((s_784)" +"(let-values(((s_785)" "(if(syntax?$1" -" s_783)" -"(syntax-e$1" -" s_783)" -" s_783)))" -"(if(pair?" " s_784)" +"(syntax-e$1" +" s_784)" +" s_784)))" +"(if(pair?" +" s_785)" "(let-values(((mod-path61_0)" "(let-values(((s_220)" "(car" -" s_784)))" +" s_785)))" " s_220))" "((id62_0)" "(let-values(((s_221)" "(cdr" -" s_784)))" +" s_785)))" "(let-values(((s_324)" "(if(syntax?$1" " s_221)" @@ -69114,7 +69116,7 @@ static const char *startup_source = " orig-s_70))" "(let-values()" "(let-values(((id_127)" -"(let-values(((lst_404)" +"(let-values(((lst_405)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69122,20 +69124,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_404)))" -"((letrec-values(((for-loop_318)" +" lst_405)))" +"((letrec-values(((for-loop_319)" "(lambda(id_128" -" lst_405)" +" lst_406)" "(begin" " 'for-loop" "(if(pair?" -" lst_405)" -"(let-values(((s_785)" +" lst_406)" +"(let-values(((s_786)" "(unsafe-car" -" lst_405))" -"((rest_242)" +" lst_406))" +"((rest_241)" "(unsafe-cdr" -" lst_405)))" +" lst_406)))" "(let-values(((id_129)" "(let-values(((id_130)" " id_128))" @@ -69145,21 +69147,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_785)" +" s_786)" "(symbol?" "(syntax-e$1" -" s_785))" +" s_786))" " #f)))" "(if or-part_396" " or-part_396" "(symbol?" -" s_785)))" -" s_785" +" s_786)))" +" s_786" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_785)))))" +" s_786)))))" "(cons" " id63_0" " id_130)))))" @@ -69167,14 +69169,14 @@ static const char *startup_source = " id_131)))))" "(if(not" " #f)" -"(for-loop_318" +"(for-loop_319" " id_129" -" rest_242)" +" rest_241)" " id_129)))" " id_128)))))" -" for-loop_318)" +" for-loop_319)" " null" -" lst_404)))))" +" lst_405)))))" "(reverse$1" " id_127)))))))))" "(values" @@ -69207,7 +69209,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_104)" +" ctx_105)" "(values" " null" "(list" @@ -69231,23 +69233,23 @@ static const char *startup_source = "(let-values(((orig-s_71)" " s_113))" "(let-values(((all-defined64_1)" -"(let-values(((s_786)" +"(let-values(((s_787)" "(if(syntax?$1" " s_113)" "(syntax-e$1" " s_113)" " s_113)))" "(if(pair?" -" s_786)" +" s_787)" "(let-values(((all-defined65_0)" "(let-values(((s_437)" "(car" -" s_786)))" +" s_787)))" " s_437))" "(()" "(let-values(((s_224)" "(cdr" -" s_786)))" +" s_787)))" "(let-values(((s_427)" "(if(syntax?$1" " s_224)" @@ -69300,32 +69302,32 @@ static const char *startup_source = " s_228))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_787)" +"(let-values(((s_788)" "(if(syntax?$1" " s_228)" "(syntax-e$1" " s_228)" " s_228)))" "(if(pair?" -" s_787)" +" s_788)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_788)" -"(car" -" s_787)))" -" s_788))" -"((id69_0)" "(let-values(((s_789)" -"(cdr" -" s_787)))" +"(car" +" s_788)))" +" s_789))" +"((id69_0)" "(let-values(((s_790)" +"(cdr" +" s_788)))" +"(let-values(((s_462)" "(if(syntax?$1" -" s_789)" +" s_790)" "(syntax-e$1" -" s_789)" -" s_789)))" +" s_790)" +" s_790)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_790)))" +" s_462)))" "(if(not" " flat-s_52)" "(let-values()" @@ -69346,17 +69348,17 @@ static const char *startup_source = " lst_204)))" "((letrec-values(((for-loop_135)" "(lambda(id_133" -" lst_406)" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" -"(let-values(((s_791)" +" lst_407)" +"(let-values(((s_463)" "(unsafe-car" -" lst_406))" -"((rest_243)" +" lst_407))" +"((rest_242)" "(unsafe-cdr" -" lst_406)))" +" lst_407)))" "(let-values(((id_134)" "(let-values(((id_135)" " id_133))" @@ -69366,21 +69368,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_287)" "(if(syntax?$1" -" s_791)" +" s_463)" "(symbol?" "(syntax-e$1" -" s_791))" +" s_463))" " #f)))" "(if or-part_287" " or-part_287" "(symbol?" -" s_791)))" -" s_791" +" s_463)))" +" s_463" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_791)))))" +" s_463)))))" "(cons" " id70_0" " id_135)))))" @@ -69390,7 +69392,7 @@ static const char *startup_source = " #f)" "(for-loop_135" " id_134" -" rest_243)" +" rest_242)" " id_134)))" " id_133)))))" " for-loop_135)" @@ -69551,37 +69553,37 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_792)" +"(let-values(((s_791)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_792))" +" s_791))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_793)" +"(let-values(((s_792)" "(if(syntax?$1" -" s_792)" +" s_791)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_791)" +" s_791)))" "(if(pair?" -" s_793)" +" s_792)" "(let-values(((prefix-all-defined-except79_0)" "(let-values(((s_533)" "(car" -" s_793)))" +" s_792)))" " s_533))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_794)" +"(let-values(((s_793)" "(cdr" -" s_793)))" +" s_792)))" "(let-values(((s_243)" "(if(syntax?$1" -" s_794)" +" s_793)" "(syntax-e$1" -" s_794)" -" s_794)))" +" s_793)" +" s_793)))" "(if(pair?" " s_243)" "(let-values(((id:prefix82_0)" @@ -69609,7 +69611,7 @@ static const char *startup_source = "(let-values(((s_348)" "(cdr" " s_243)))" -"(let-values(((s_795)" +"(let-values(((s_794)" "(if(syntax?$1" " s_348)" "(syntax-e$1" @@ -69617,7 +69619,7 @@ static const char *startup_source = " s_348)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_795)))" +" s_794)))" "(if(not" " flat-s_53)" "(let-values()" @@ -69627,7 +69629,7 @@ static const char *startup_source = " orig-s_74))" "(let-values()" "(let-values(((id_86)" -"(let-values(((lst_407)" +"(let-values(((lst_408)" " flat-s_53))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69635,20 +69637,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_407)))" -"((letrec-values(((for-loop_319)" +" lst_408)))" +"((letrec-values(((for-loop_320)" "(lambda(id_36" -" lst_408)" +" lst_409)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" -"(let-values(((s_796)" +" lst_409)" +"(let-values(((s_795)" "(unsafe-car" -" lst_408))" -"((rest_244)" +" lst_409))" +"((rest_243)" "(unsafe-cdr" -" lst_408)))" +" lst_409)))" "(let-values(((id_137)" "(let-values(((id_138)" " id_36))" @@ -69658,21 +69660,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_796)" +" s_795)" "(symbol?" "(syntax-e$1" -" s_796))" +" s_795))" " #f)))" "(if or-part_397" " or-part_397" "(symbol?" -" s_796)))" -" s_796" +" s_795)))" +" s_795" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_796)))))" +" s_795)))))" "(cons" " id84_3" " id_138)))))" @@ -69680,14 +69682,14 @@ static const char *startup_source = " id_139)))))" "(if(not" " #f)" -"(for-loop_319" +"(for-loop_320" " id_137" -" rest_244)" +" rest_243)" " id_137)))" " id_36)))))" -" for-loop_319)" +" for-loop_320)" " null" -" lst_407)))))" +" lst_408)))))" "(reverse$1" " id_86)))))))))" "(values" @@ -69731,44 +69733,44 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_797)" +"(let-values(((s_796)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_797))" +" s_796))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_798)" +"(let-values(((s_797)" "(if(syntax?$1" -" s_797)" +" s_796)" "(syntax-e$1" -" s_797)" -" s_797)))" +" s_796)" +" s_796)))" "(if(pair?" -" s_798)" +" s_797)" "(let-values(((expand88_0)" "(let-values(((s_367)" "(car" -" s_798)))" +" s_797)))" " s_367))" "((id89_2" " datum90_0)" "(let-values(((s_368)" "(cdr" -" s_798)))" -"(let-values(((s_799)" +" s_797)))" +"(let-values(((s_798)" "(if(syntax?$1" " s_368)" "(syntax-e$1" " s_368)" " s_368)))" "(if(pair?" -" s_799)" +" s_798)" "(let-values(((id91_0" " datum92_0)" "(let-values(((s_370)" "(car" -" s_799)))" +" s_798)))" "(let-values(((s_371)" "(if(syntax?$1" " s_370)" @@ -69799,10 +69801,10 @@ static const char *startup_source = " orig-s_75" " s_373))))" "((datum94_0)" -"(let-values(((s_544)" +"(let-values(((s_545)" "(cdr" " s_371)))" -" s_544)))" +" s_545)))" "(values" " id93_2" " datum94_0))" @@ -69811,17 +69813,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75)))))" "(()" -"(let-values(((s_545)" +"(let-values(((s_546)" "(cdr" -" s_799)))" -"(let-values(((s_800)" +" s_798)))" +"(let-values(((s_799)" "(if(syntax?$1" -" s_545)" +" s_546)" "(syntax-e$1" -" s_545)" -" s_545)))" +" s_546)" +" s_546)))" "(if(null?" -" s_800)" +" s_799)" "(values)" "(raise-syntax-error$1" " #f" @@ -69850,18 +69852,18 @@ static const char *startup_source = "(let-values(((ok?_76" " expand95_0" " form96_0)" -"(let-values(((s_801)" +"(let-values(((s_800)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_801))" +" s_800))" "(let-values(((expand95_1" " form96_1)" "(let-values(((s_376)" "(if(syntax?$1" -" s_801)" +" s_800)" "(syntax-e$1" -" s_801)" -" s_801)))" +" s_800)" +" s_800)))" "(if(pair?" " s_376)" "(let-values(((expand97_0)" @@ -69925,20 +69927,19 @@ static const char *startup_source = " form96_0)" "((temp105_4)" "(let-values(((v_268)" -" ctx_104))" -"(let-values(((the-struct_98)" +" ctx_105))" +"(let-values(((the-struct_99)" " v_268))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_99)" "(let-values(((def-ctx-scopes106_0)" -"(box" -" null))" +" #f)" "((inner107_0)" -"(let-values(((the-struct_99)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" " v_268)))" "(if(expand-context/inner?" -" the-struct_99)" +" the-struct_100)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -69948,93 +69949,93 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-phase" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-namespace" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-just-once?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-module-begin-k" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-allow-unbound?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-keep-#%expression?" -" the-struct_99)" +" the-struct_100)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_99)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_99)))))" +" the-struct_100)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" +" the-struct_99)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_99)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-env" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_99)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-reference-records" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_99))))))" "(expand9.1" " #f" " #f" @@ -70068,18 +70069,18 @@ static const char *startup_source = "(let-values(((ok?_77" " begin100_0" " spec101_0)" -"(let-values(((s_802)" +"(let-values(((s_801)" " exp-spec_0))" "(let-values(((orig-s_77)" -" s_802))" +" s_801))" "(let-values(((begin100_1" " spec101_1)" "(let-values(((s_266)" "(if(syntax?$1" -" s_802)" +" s_801)" "(syntax-e$1" -" s_802)" -" s_802)))" +" s_801)" +" s_801)))" "(if(pair?" " s_266)" "(let-values(((begin102_0)" @@ -70088,15 +70089,15 @@ static const char *startup_source = " s_266)))" " s_267))" "((spec103_0)" -"(let-values(((s_803)" +"(let-values(((s_802)" "(cdr" " s_266)))" "(let-values(((s_268)" "(if(syntax?$1" -" s_803)" +" s_802)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_802)" +" s_802)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_268)))" @@ -70147,7 +70148,7 @@ static const char *startup_source = "(for-loop_95" " track-stxes_2" " exp-specs_2" -" rest_240)" +" rest_239)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -70223,17 +70224,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" "(begin" -" (let-values (((lst_409) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_410) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_409)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_410)" +"(let-values()(check-list lst_410)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_411)" "(begin" " 'for-loop" -"(if(pair? lst_410)" -"(let-values(((fmt_3)(unsafe-car lst_410))((rest_245)(unsafe-cdr lst_410)))" +"(if(pair? lst_411)" +"(let-values(((fmt_3)(unsafe-car lst_411))((rest_244)(unsafe-cdr lst_411)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70251,22 +70252,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_245)(values))))" +"(if(not #f)(for-loop_321 rest_244)(values))))" "(values))))))" -" for-loop_320)" -" lst_409)))" +" for-loop_321)" +" lst_410)))" "(void)" -"(let-values(((lst_411) fields_0))" +"(let-values(((lst_412) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_411)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_412)" +"(let-values()(check-list lst_412)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_413)" "(begin" " 'for-loop" -"(if(pair? lst_412)" -"(let-values(((field_0)(unsafe-car lst_412))((rest_246)(unsafe-cdr lst_412)))" +"(if(pair? lst_413)" +"(let-values(((field_0)(unsafe-car lst_413))((rest_245)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70298,14 +70299,14 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_246)(values))))" +"(if(not #f)(for-loop_322 rest_245)(values))))" "(values))))))" -" for-loop_321)" -" lst_411)))" +" for-loop_322)" +" lst_412)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_105)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_106)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -70315,7 +70316,7 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_105)))" +"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_106)))" "(parse-all-from-module mpi_54 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" @@ -70349,18 +70350,18 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_413) requireds_2))" +"(let-values(((lst_414) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_413)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_414)" +"(let-values()(check-list lst_414)))" +"((letrec-values(((for-loop_323)" +"(lambda(lst_415)" "(begin" " 'for-loop" -"(if(pair? lst_414)" -"(let-values(((i_187)(unsafe-car lst_414))" -"((rest_247)(unsafe-cdr lst_414)))" +"(if(pair? lst_415)" +"(let-values(((i_187)(unsafe-car lst_415))" +"((rest_246)(unsafe-cdr lst_415)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70390,7 +70391,7 @@ static const char *startup_source = " #f)))" "(if or-part_399" " or-part_399" -"(let-values(((lst_415)" +"(let-values(((lst_416)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70398,20 +70399,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" -"((letrec-values(((for-loop_323)" +" lst_416)))" +"((letrec-values(((for-loop_324)" "(lambda(result_129" -" lst_416)" +" lst_417)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" +" lst_417)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_416))" -"((rest_248)" +" lst_417))" +"((rest_247)" "(unsafe-cdr" -" lst_416)))" +" lst_417)))" "(let-values(((result_130)" "(let-values()" "(let-values(((result_131)" @@ -70436,14 +70437,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_323" +"(for-loop_324" " result_130" -" rest_248)" +" rest_247)" " result_130)))" " result_129)))))" -" for-loop_323)" +" for-loop_324)" " #f" -" lst_415)))))" +" lst_416)))))" "(void)" "(let-values()" "(let-values(((b_94)" @@ -70499,27 +70500,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_247)(values))))" +"(if(not #f)(for-loop_323 rest_246)(values))))" "(values))))))" -" for-loop_322)" -" lst_413)))" +" for-loop_323)" +" lst_414)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_417) except-ids_1))" +"(let-values(((lst_418) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_417)))" -"((letrec-values(((for-loop_324)" -"(lambda(lst_418)" +"(let-values()(check-list lst_418)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_419)" "(begin" " 'for-loop" -"(if(pair? lst_418)" -"(let-values(((except-id_1)(unsafe-car lst_418))" -"((rest_249)(unsafe-cdr lst_418)))" +"(if(pair? lst_419)" +"(let-values(((except-id_1)(unsafe-car lst_419))" +"((rest_248)(unsafe-cdr lst_419)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70533,7 +70534,7 @@ static const char *startup_source = " #f)))" "(if or-part_400" " or-part_400" -"(let-values(((lst_419)" +"(let-values(((lst_420)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70541,20 +70542,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_419)))" -"((letrec-values(((for-loop_325)" +" lst_420)))" +"((letrec-values(((for-loop_326)" "(lambda(result_132" -" lst_420)" +" lst_421)" "(begin" " 'for-loop" "(if(pair?" -" lst_420)" +" lst_421)" "(let-values(((i_188)" "(unsafe-car" -" lst_420))" -"((rest_250)" +" lst_421))" +"((rest_249)" "(unsafe-cdr" -" lst_420)))" +" lst_421)))" "(let-values(((result_133)" "(let-values()" "(let-values(((result_134)" @@ -70580,14 +70581,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_325" +"(for-loop_326" " result_133" -" rest_250)" +" rest_249)" " result_133)))" " result_132)))))" -" for-loop_325)" +" for-loop_326)" " #f" -" lst_419)))))" +" lst_420)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70601,10 +70602,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_249)(values))))" +"(if(not #f)(for-loop_325 rest_248)(values))))" "(values))))))" -" for-loop_324)" -" lst_417)))" +" for-loop_325)" +" lst_418)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -70615,12 +70616,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_421) bodys_14))" +"(let-values(((lst_422) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_326)" +"(let-values()(check-list lst_422)))" +"((letrec-values(((for-loop_327)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -70668,10 +70669,10 @@ static const char *startup_source = " p_45))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_40)(values))))" +"(if(not #f)(for-loop_327 rest_40)(values))))" "(values))))))" -" for-loop_326)" -" lst_421)))" +" for-loop_327)" +" lst_422)))" "(void)))))" "((check-expr_0)" "(lambda(e_91 num-results_0 enclosing_15)" @@ -70697,13 +70698,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_328)" "(lambda(lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_251)(unsafe-cdr lst_86)))" +"((rest_250)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70717,10 +70718,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_327 rest_251)" +"(for-loop_328 rest_250)" "(values))))" "(values))))))" -" for-loop_327)" +" for-loop_328)" " lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))" @@ -70762,12 +70763,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_266)))" "((letrec-values(((for-loop_240)" -"(lambda(lst_422)" +"(lambda(lst_423)" "(begin" " 'for-loop" -"(if(pair? lst_422)" -"(let-values(((clause_5)(unsafe-car lst_422))" -"((rest_252)(unsafe-cdr lst_422)))" +"(if(pair? lst_423)" +"(let-values(((clause_5)(unsafe-car lst_423))" +"((rest_251)(unsafe-cdr lst_423)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70778,7 +70779,7 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_252)(values))))" +"(if(not #f)(for-loop_240 rest_251)(values))))" "(values))))))" " for-loop_240)" " lst_266)))" @@ -70897,13 +70898,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_329)" "(lambda(lst_58)" "(begin" " 'for-loop" "(if(pair? lst_58)" "(let-values(((e_82)(unsafe-car lst_58))" -"((rest_197)(unsafe-cdr lst_58)))" +"((rest_196)(unsafe-cdr lst_58)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70914,9 +70915,9 @@ static const char *startup_source = " e_82))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_197)(values))))" +"(if(not #f)(for-loop_329 rest_196)(values))))" "(values))))))" -" for-loop_328)" +" for-loop_329)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -70970,101 +70971,101 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_106)" +"(lambda(s_43 ctx_107)" "(begin" -"(if(eq?(expand-context-context ctx_106) 'top-level)" +"(if(eq?(expand-context-context ctx_107) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_106)))" +"(let-values(((obs_124)(expand-context-observer ctx_107)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_0) s_43)((ctx224_0) ctx_106)((temp225_2) #f))" +"(let-values(((s223_0) s_43)((ctx224_0) ctx_107)((temp225_2) #f))" "(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_0 ctx224_0 temp225_2)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_306 ctx_107)" +"(lambda(s_306 ctx_108)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_107)))" +"(let-values(((obs_125)(expand-context-observer ctx_108)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_90 ctx_108)" +"(lambda(s_90 ctx_109)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_108)))" +"(let-values(((obs_126)(expand-context-observer ctx_109)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_108) 'module-begin)" +"(if(eq?(expand-context-context ctx_109) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_90)))" -"(if(expand-context-module-begin-k ctx_108)" +"(if(expand-context-module-begin-k ctx_109)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_90)))" -"((expand-context-module-begin-k ctx_108)" +"((expand-context-module-begin-k ctx_109)" " s_90" -"(let-values(((v_269) ctx_108))" -"(let-values(((the-struct_100) v_269))" -"(if(expand-context/outer? the-struct_100)" +"(let-values(((v_269) ctx_109))" +"(let-values(((the-struct_101) v_269))" +"(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_101)(root-expand-context/outer-inner v_269)))" -"(if(expand-context/inner? the-struct_101)" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_269)))" +"(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_101)" -"(root-expand-context/inner-module-scopes the-struct_101)" -"(root-expand-context/inner-top-level-bind-scope the-struct_101)" -"(root-expand-context/inner-all-scopes-stx the-struct_101)" -"(root-expand-context/inner-defined-syms the-struct_101)" -"(root-expand-context/inner-counter the-struct_101)" -"(root-expand-context/inner-lift-key the-struct_101)" -"(expand-context/inner-to-parsed? the-struct_101)" -"(expand-context/inner-phase the-struct_101)" -"(expand-context/inner-namespace the-struct_101)" -"(expand-context/inner-just-once? the-struct_101)" +"(root-expand-context/inner-self-mpi the-struct_102)" +"(root-expand-context/inner-module-scopes the-struct_102)" +"(root-expand-context/inner-top-level-bind-scope the-struct_102)" +"(root-expand-context/inner-all-scopes-stx the-struct_102)" +"(root-expand-context/inner-defined-syms the-struct_102)" +"(root-expand-context/inner-counter the-struct_102)" +"(root-expand-context/inner-lift-key the-struct_102)" +"(expand-context/inner-to-parsed? the-struct_102)" +"(expand-context/inner-phase the-struct_102)" +"(expand-context/inner-namespace the-struct_102)" +"(expand-context/inner-just-once? the-struct_102)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_101)" -"(expand-context/inner-in-local-expand? the-struct_101)" -"(expand-context/inner-keep-#%expression? the-struct_101)" -"(expand-context/inner-stops the-struct_101)" -"(expand-context/inner-declared-submodule-names the-struct_101)" -"(expand-context/inner-lifts the-struct_101)" -"(expand-context/inner-lift-envs the-struct_101)" -"(expand-context/inner-module-lifts the-struct_101)" -"(expand-context/inner-require-lifts the-struct_101)" -"(expand-context/inner-to-module-lifts the-struct_101)" -"(expand-context/inner-requires+provides the-struct_101)" -"(expand-context/inner-observer the-struct_101)" -"(expand-context/inner-for-serializable? the-struct_101)" -"(expand-context/inner-should-not-encounter-macros? the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))" +"(expand-context/inner-allow-unbound? the-struct_102)" +"(expand-context/inner-in-local-expand? the-struct_102)" +"(expand-context/inner-keep-#%expression? the-struct_102)" +"(expand-context/inner-stops the-struct_102)" +"(expand-context/inner-declared-submodule-names the-struct_102)" +"(expand-context/inner-lifts the-struct_102)" +"(expand-context/inner-lift-envs the-struct_102)" +"(expand-context/inner-module-lifts the-struct_102)" +"(expand-context/inner-require-lifts the-struct_102)" +"(expand-context/inner-to-module-lifts the-struct_102)" +"(expand-context/inner-requires+provides the-struct_102)" +"(expand-context/inner-observer the-struct_102)" +"(expand-context/inner-for-serializable? the-struct_102)" +"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_100)" -"(root-expand-context/outer-use-site-scopes the-struct_100)" -"(root-expand-context/outer-frame-id the-struct_100)" -"(expand-context/outer-context the-struct_100)" -"(expand-context/outer-env the-struct_100)" -"(expand-context/outer-post-expansion-scope-action the-struct_100)" -"(expand-context/outer-scopes the-struct_100)" -"(expand-context/outer-def-ctx-scopes the-struct_100)" -"(expand-context/outer-binding-layer the-struct_100)" -"(expand-context/outer-reference-records the-struct_100)" -"(expand-context/outer-only-immediate? the-struct_100)" -"(expand-context/outer-need-eventually-defined the-struct_100)" -"(expand-context/outer-current-introduction-scopes the-struct_100)" -"(expand-context/outer-name the-struct_100)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_101)" +"(root-expand-context/outer-use-site-scopes the-struct_101)" +"(root-expand-context/outer-frame-id the-struct_101)" +"(expand-context/outer-context the-struct_101)" +"(expand-context/outer-env the-struct_101)" +"(expand-context/outer-post-expansion-scope-action the-struct_101)" +"(expand-context/outer-scopes the-struct_101)" +"(expand-context/outer-def-ctx-scopes the-struct_101)" +"(expand-context/outer-binding-layer the-struct_101)" +"(expand-context/outer-reference-records the-struct_101)" +"(expand-context/outer-only-immediate? the-struct_101)" +"(expand-context/outer-need-eventually-defined the-struct_101)" +"(expand-context/outer-current-introduction-scopes the-struct_101)" +"(expand-context/outer-name the-struct_101)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_804 ctx_109)" +"(lambda(s_803 ctx_110)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_109)))" +"(let-values(((obs_127)(expand-context-observer ctx_110)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_804)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_803)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71079,7 +71080,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_805) s15_2))" +"(let-values(((s_804) s15_2))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" @@ -71101,7 +71102,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_128 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_805)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_804)))" "(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))" @@ -71216,7 +71217,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_805)" +"((s254_0) s_804)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))" @@ -71232,7 +71233,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_805" +" s_804" " initial-require230_0)))" "(values))))" "(let-values(((phase_144) 0))" @@ -71342,15 +71343,15 @@ static const char *startup_source = "(make-m-ns244_0" " unsafe-undefined" " temp266_0))))" -"(let-values(((ctx_110)" +"(let-values(((ctx_111)" "(let-values(((v_262)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_92)" " v_262))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_92)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" @@ -71423,36 +71424,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_91)" +" the-struct_92)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-binding-layer" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_92))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -71507,23 +71508,23 @@ static const char *startup_source = "(let-values(((s_71)" "(cdr" " s_96)))" -"(let-values(((s_806)" +"(let-values(((s_805)" "(if(syntax?$1" " s_71)" "(syntax-e$1" " s_71)" " s_71)))" "(if(pair?" -" s_806)" +" s_805)" "(let-values(((_284_0)" "(let-values(((s_159)" "(car" -" s_806)))" +" s_805)))" " s_159))" "((body285_0)" "(let-values(((s_39)" "(cdr" -" s_806)))" +" s_805)))" "(let-values(((s_97)" "(if(syntax?$1" " s_39)" @@ -71703,7 +71704,7 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_111)" +"(let-values(((ctx_112)" "(let-values(((v_132)" " mb-init-ctx_0))" "(let-values(((the-struct_43)" @@ -71711,14 +71712,14 @@ static const char *startup_source = "(if(expand-context/outer?" " the-struct_43)" "(let-values(((inner306_0)" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_103)" "(root-expand-context/outer-inner" " v_132)))" "(if(expand-context/inner?" -" the-struct_102)" +" the-struct_103)" "(let-values(((module-begin-k307_0)" "(lambda(s_436" -" ctx_112)" +" ctx_113)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -71760,7 +71761,7 @@ static const char *startup_source = "(lambda()" "(module-begin-k_1" " s_436" -" ctx_112))" +" ctx_113))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -71773,60 +71774,60 @@ static const char *startup_source = " defined-syms311_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/inner-module-scopes" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/inner-defined-syms" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/inner-counter" -" the-struct_102)" +" the-struct_103)" "(root-expand-context/inner-lift-key" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-to-parsed?" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-phase" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-namespace" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-just-once?" -" the-struct_102)" +" the-struct_103)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-in-local-expand?" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-keep-#%expression?" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-stops" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-declared-submodule-names" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-lifts" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-lift-envs" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-module-lifts" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-require-lifts" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-to-module-lifts" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-requires+provides" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-observer" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-for-serializable?" -" the-struct_102)" +" the-struct_103)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_102)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_102)))))" +" the-struct_103)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" @@ -71869,7 +71870,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_20)" "(expand-context-observer" -" ctx_111)))" +" ctx_112)))" "(if obs_20" "(let-values()" "(let-values()" @@ -71900,10 +71901,10 @@ static const char *startup_source = "(if(pair?" " s_118)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_807)" +"(let-values(((s_806)" "(car" " s_118)))" -" s_807))" +" s_806))" "((body304_0)" "(let-values(((s_120)" "(cdr" @@ -71941,7 +71942,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx318_0)" -" ctx_111)" +" ctx_112)" "((mb-s319_0)" " mb-s_0))" "(keep-as-needed119.1" @@ -71969,14 +71970,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_111)))" +" ctx_112)))" "(let-values(((partial-body-ctx_0)" "(let-values(((v_270)" -" ctx_111))" -"(let-values(((the-struct_103)" +" ctx_112))" +"(let-values(((the-struct_104)" " v_270))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_104)" "(let-values(((context328_0)" " 'module)" "((def-ctx-scopes329_0)" @@ -71984,11 +71985,11 @@ static const char *startup_source = "((need-eventually-defined330_0)" " need-eventually-defined_1)" "((inner331_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_105)" "(let-values(((phase332_0)" " phase_145)" "((namespace333_0)" @@ -72049,83 +72050,83 @@ static const char *startup_source = " phase346_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_105)" " lift-key336_0" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_105)" " phase332_0" " namespace333_0" "(expand-context/inner-just-once?" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-module-begin-k" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-keep-#%expression?" -" the-struct_104)" +" the-struct_105)" " stops334_0" " declared-submodule-names335_0" " lifts337_0" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_105)" " module-lifts338_0" " require-lifts339_0" " to-module-lifts340_0" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_105)))))" "(expand-context/outer1.1" " inner331_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_104)" " context328_0" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_104)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" +" the-struct_104)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_104)" " def-ctx-scopes329_0" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_104)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_104)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_104)" " need-eventually-defined330_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_104)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_104))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys349_0)" " bodys_17)" @@ -72194,20 +72195,20 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_93)" +"(let-values(((the-struct_94)" " v_264))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_94)" "(let-values(((def-ctx-scopes365_0)" " #f)" "((post-expansion-scope366_0)" " #f)" "((inner367_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_264)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_106)" "(let-values(((stops368_0)" " empty-free-id-set)" "((to-module-lifts369_0)" @@ -72223,91 +72224,91 @@ static const char *startup_source = " phase370_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-namespace" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-keep-#%expression?" -" the-struct_105)" +" the-struct_106)" " stops368_0" "(expand-context/inner-declared-submodule-names" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_105)" +" the-struct_106)" " to-module-lifts369_0" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_105)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner367_0" " post-expansion-scope366_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_94)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_94)" " def-ctx-scopes365_0" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_94)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_94))))))" "(let-values(((partially-expanded-bodys320_0)" " partially-expanded-bodys_0)" "((phase321_0)" @@ -72341,14 +72342,14 @@ static const char *startup_source = "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_111" +" ctx_112" " requires+provides_6)" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_131)" "(expand-context-observer" -" ctx_111)))" +" ctx_112)))" "(if obs_131" "(let-values()" "(let-values()" @@ -72371,7 +72372,7 @@ static const char *startup_source = "((self378_0)" " self_32)" "((ctx379_0)" -" ctx_111))" +" ctx_112))" "(resolve-provides115.1" " ctx379_0" " declared-submodule-names375_0" @@ -72410,7 +72411,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_132)" "(expand-context-observer" -" ctx_111)))" +" ctx_112)))" "(if obs_132" "(let-values()" "(let-values()" @@ -72428,112 +72429,112 @@ static const char *startup_source = " temp381_0" " m-ns380_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_199)" -" ctx_111))" -"(let-values(((the-struct_74)" -" v_199))" +"(let-values(((v_271)" +" ctx_112))" +"(let-values(((the-struct_107)" +" v_271))" "(if(expand-context/outer?" -" the-struct_74)" +" the-struct_107)" "(let-values(((frame-id382_0)" " #f)" "((post-expansion-scope383_0)" " #f)" "((inner384_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_199)))" +" v_271)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_108)" "(let-values(((namespace385_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_108)" " namespace385_0" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-keep-#%expression?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-stops" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-to-module-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner384_0" " post-expansion-scope383_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_74)" +" the-struct_107)" " frame-id382_0" "(expand-context/outer-context" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_74)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_74)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_74))))))" +" the-struct_107))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -72649,20 +72650,20 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_271)" -" ctx_110))" +"(let-values(((v_272)" +" ctx_111))" "(let-values(((the-struct_24)" -" v_271))" +" v_272))" "(if(expand-context/outer?" " the-struct_24)" "(let-values(((context411_0)" " 'module-begin)" "((inner412_0)" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_271)))" +" v_272)))" "(if(expand-context/inner?" -" the-struct_107)" +" the-struct_109)" "(let-values(((module-begin-k413_0)" " module-begin-k_1)" "((in-local-expand?414_0)" @@ -72677,55 +72678,55 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/inner-module-scopes" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/inner-defined-syms" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/inner-counter" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/inner-lift-key" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-to-parsed?" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-phase" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-namespace" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-just-once?" -" the-struct_107)" +" the-struct_109)" " module-begin-k413_0" "(expand-context/inner-allow-unbound?" -" the-struct_107)" +" the-struct_109)" " in-local-expand?414_0" "(expand-context/inner-keep-#%expression?" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-stops" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-declared-submodule-names" -" the-struct_107)" +" the-struct_109)" " lifts415_0" "(expand-context/inner-lift-envs" -" the-struct_107)" +" the-struct_109)" " module-lifts416_0" " require-lifts418_0" " to-module-lifts417_0" "(expand-context/inner-requires+provides" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-observer" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-for-serializable?" -" the-struct_107)" +" the-struct_109)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_107)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_107)))))" +" the-struct_109)))))" "(expand-context/outer1.1" " inner412_0" "(root-expand-context/outer-post-expansion-scope" @@ -72783,7 +72784,7 @@ static const char *startup_source = "((phase425_0)" " phase_144)" "((s426_0)" -" s_805))" +" s_804))" "(ensure-module-begin36.1" " mb-ctx423_0" " mb-def-ctx-scopes424_0" @@ -72798,9 +72799,52 @@ static const char *startup_source = "(let-values(((mb427_0)" " mb_0)" "((temp428_1)" +"(let-values(((v_273)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" +"(let-values(((the-struct_110)" +" v_273))" +"(if(expand-context/outer?" +" the-struct_110)" +"(let-values(((def-ctx-scopes429_0)" +" #f)" +"((inner430_0)" +"(root-expand-context/outer-inner" +" v_273)))" +"(expand-context/outer1.1" +" inner430_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_110)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_110)" +"(root-expand-context/outer-frame-id" +" the-struct_110)" +"(expand-context/outer-context" +" the-struct_110)" +"(expand-context/outer-env" +" the-struct_110)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_110)" +"(expand-context/outer-scopes" +" the-struct_110)" +" def-ctx-scopes429_0" +"(expand-context/outer-binding-layer" +" the-struct_110)" +"(expand-context/outer-reference-records" +" the-struct_110)" +"(expand-context/outer-only-immediate?" +" the-struct_110)" +"(expand-context/outer-need-eventually-defined" +" the-struct_110)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_110)" +"(expand-context/outer-name" +" the-struct_110)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_110))))))" "(expand9.1" " #f" " #f" @@ -72814,11 +72858,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_231)" +"(if(let-values(((or-part_402)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_231" -" or-part_231" +"(if or-part_402" +" or-part_402" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -72854,7 +72898,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_423)" +"(let-values(((lst_424)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -72863,19 +72907,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_423)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_424)" +" lst_424)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_424)" +" lst_425)" "(let-values(((mpi_56)" "(unsafe-car" -" lst_424))" -"((rest_253)" +" lst_425))" +"((rest_252)" "(unsafe-cdr" -" lst_424)))" +" lst_425)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72888,17 +72932,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_329" -" rest_253)" +"(for-loop_330" +" rest_252)" "(values))))" "(values))))))" -" for-loop_329)" -" lst_423)))" +" for-loop_330)" +" lst_424)))" "(void)" "(let-values(((result-s_15)" -"(let-values(((rebuild-s429_0)" +"(let-values(((rebuild-s431_0)" " rebuild-s_14)" -"((temp430_0)" +"((temp432_0)" "(list" " module228_0" " id:module-name229_0" @@ -72907,20 +72951,20 @@ static const char *startup_source = " expanded-mb_0))))" "(rebuild5.1" " #t" -" rebuild-s429_0" -" temp430_0))))" +" rebuild-s431_0" +" temp432_0))))" "(let-values(((result-s_16)" -"(let-values(((result-s431_0)" +"(let-values(((result-s433_0)" " result-s_15)" -"((self432_0)" +"((self434_0)" " self_32)" -"((generic-self433_0)" +"((generic-self435_0)" " generic-self_0))" "(syntax-module-path-index-shift13.1" " #f" -" result-s431_0" -" self432_0" -" generic-self433_0" +" result-s433_0" +" self434_0" +" generic-self435_0" " #f))))" "(let-values(((result-s_17)" "(attach-root-expand-context-properties" @@ -72970,47 +73014,47 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_71) ctx24_0))" +"(let-values(((ctx_114) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_146) phase26_3))" -"(let-values(((s_808) s27_2))" +"(let-values(((s_382) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_272) ctx_71))" -"(let-values(((the-struct_108) v_272))" -"(if(expand-context/outer? the-struct_108)" -"(let-values(((context434_0) 'module-begin)" -"((only-immediate?435_0) #t)" -"((def-ctx-scopes436_0) def-ctx-scopes_9)" -"((inner437_0)(root-expand-context/outer-inner v_272)))" +"(let-values(((v_274) ctx_114))" +"(let-values(((the-struct_111) v_274))" +"(if(expand-context/outer? the-struct_111)" +"(let-values(((context436_0) 'module-begin)" +"((only-immediate?437_0) #t)" +"((def-ctx-scopes438_0) def-ctx-scopes_9)" +"((inner439_0)(root-expand-context/outer-inner v_274)))" "(expand-context/outer1.1" -" inner437_0" -"(root-expand-context/outer-post-expansion-scope the-struct_108)" -"(root-expand-context/outer-use-site-scopes the-struct_108)" -"(root-expand-context/outer-frame-id the-struct_108)" -" context434_0" -"(expand-context/outer-env the-struct_108)" -"(expand-context/outer-post-expansion-scope-action the-struct_108)" -"(expand-context/outer-scopes the-struct_108)" -" def-ctx-scopes436_0" -"(expand-context/outer-binding-layer the-struct_108)" -"(expand-context/outer-reference-records the-struct_108)" -" only-immediate?435_0" -"(expand-context/outer-need-eventually-defined the-struct_108)" -"(expand-context/outer-current-introduction-scopes the-struct_108)" -"(expand-context/outer-name the-struct_108)))" +" inner439_0" +"(root-expand-context/outer-post-expansion-scope the-struct_111)" +"(root-expand-context/outer-use-site-scopes the-struct_111)" +"(root-expand-context/outer-frame-id the-struct_111)" +" context436_0" +"(expand-context/outer-env the-struct_111)" +"(expand-context/outer-post-expansion-scope-action the-struct_111)" +"(expand-context/outer-scopes the-struct_111)" +" def-ctx-scopes438_0" +"(expand-context/outer-binding-layer the-struct_111)" +"(expand-context/outer-reference-records the-struct_111)" +" only-immediate?437_0" +"(expand-context/outer-need-eventually-defined the-struct_111)" +"(expand-context/outer-current-introduction-scopes the-struct_111)" +"(expand-context/outer-name the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_108))))))))" +" the-struct_111))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_134)(expand-context-observer ctx_71)))" +"(let-values(((obs_134)(expand-context-observer ctx_114)))" "(if obs_134" "(let-values()" "(let-values()" @@ -73023,12 +73067,12 @@ static const char *startup_source = "(let-values()" "(let-values(((partly-expanded-body_0)" "(let-values()" -"(let-values(((temp438_0)" +"(let-values(((temp440_0)" "(add-enclosing-name-property" "(car bodys_18)" " module-name-sym_1))" -"((temp439_0)(make-mb-ctx_0)))" -"(expand9.1 #f #f #f temp438_0 temp439_0)))))" +"((temp441_0)(make-mb-ctx_0)))" +"(expand9.1 #f #f #f temp440_0 temp441_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" @@ -73036,36 +73080,36 @@ static const char *startup_source = " phase_146))" "(let-values() partly-expanded-body_0)" "(let-values()" -"(let-values(((temp440_0)(list partly-expanded-body_0))" -"((s441_0) s_808)" -"((scopes-s442_0) scopes-s_0)" -"((phase443_0) phase_146)" -"((module-name-sym444_0) module-name-sym_1)" -"((temp445_0)(make-mb-ctx_0))" -"((temp446_0) #f))" +"(let-values(((temp442_0)(list partly-expanded-body_0))" +"((s443_0) s_382)" +"((scopes-s444_0) scopes-s_0)" +"((phase445_0) phase_146)" +"((module-name-sym446_0) module-name-sym_1)" +"((temp447_0)(make-mb-ctx_0))" +"((temp448_1) #f))" "(add-module-begin47.1" -" temp446_0" -" temp440_0" -" s441_0" -" scopes-s442_0" -" phase443_0" -" module-name-sym444_0" -" temp445_0)))))))))" +" temp448_1" +" temp442_0" +" s443_0" +" scopes-s444_0" +" phase445_0" +" module-name-sym446_0" +" temp447_0)))))))))" "(let-values()" -"(let-values(((bodys447_0) bodys_18)" -"((s448_0) s_808)" -"((scopes-s449_0) scopes-s_0)" -"((phase450_0) phase_146)" -"((module-name-sym451_0) module-name-sym_1)" -"((temp452_0)(make-mb-ctx_0)))" +"(let-values(((bodys449_0) bodys_18)" +"((s450_0) s_382)" +"((scopes-s451_0) scopes-s_0)" +"((phase452_0) phase_146)" +"((module-name-sym453_0) module-name-sym_1)" +"((temp454_1)(make-mb-ctx_0)))" "(add-module-begin47.1" " #t" -" bodys447_0" -" s448_0" -" scopes-s449_0" -" phase450_0" -" module-name-sym451_0" -" temp452_0))))))" +" bodys449_0" +" s450_0" +" scopes-s451_0" +" phase452_0" +" module-name-sym453_0" +" temp454_1))))))" "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" "(define-values" "(add-module-begin47.1)" @@ -73073,7 +73117,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_191) s42_0))" +"(let-values(((s_807) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_147) phase44_0))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -73084,17 +73128,17 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id453_0) mb-id_0)((phase454_0) phase_147))" -"(resolve40.1 #f #f null #f mb-id453_0 phase454_0))" +"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_147))" +"(resolve40.1 #f #f null #f mb-id455_0 phase456_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_191)))" +" s_807)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_191 s_191)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_807 s_807)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -73117,10 +73161,10 @@ static const char *startup_source = "(values))))" "(let-values(((partly-expanded-mb_0)" "(let-values()" -"(let-values(((temp455_0)" +"(let-values(((temp457_0)" "(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx456_0) mb-ctx_1))" -"(expand9.1 #f #f #f temp455_0 mb-ctx456_0)))))" +"((mb-ctx458_0) mb-ctx_1))" +"(expand9.1 #f #f #f temp457_0 mb-ctx458_0)))))" "(begin" "(if(eq?" " '#%module-begin" @@ -73130,7 +73174,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_191" +" s_807" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73146,39 +73190,39 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_809)" +"(lambda(s_808)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_809" +" s_808" "(remove-use-site-scopes" -"(remove-scopes s_809(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_808(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-edges461_0) s-with-edges_0)" -"((enclosing-self462_0) enclosing-self_2)" -"((enclosing-mod463_0) enclosing-mod_2))" +"(let-values(((s-with-edges463_0) s-with-edges_0)" +"((enclosing-self464_0) enclosing-self_2)" +"((enclosing-mod465_0) enclosing-mod_2))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-edges461_0" -" enclosing-self462_0" -" enclosing-mod463_0" +" s-with-edges463_0" +" enclosing-self464_0" +" enclosing-mod465_0" " #f)))" "(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing457_0) s-with-suitable-enclosing_0)" -"((temp458_0)(make-generic-self-module-path-index self_33))" -"((self459_0) self_33)" -"((temp460_0)(current-code-inspector)))" +"(let-values(((s-with-suitable-enclosing459_0) s-with-suitable-enclosing_0)" +"((temp460_0)(make-generic-self-module-path-index self_33))" +"((self461_0) self_33)" +"((temp462_1)(current-code-inspector)))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-suitable-enclosing457_0" -" temp458_0" -" self459_0" -" temp460_0))))))))))" +" s-with-suitable-enclosing459_0" +" temp460_0" +" self461_0" +" temp462_1))))))))))" "(define-values" "(partially-expand-bodys81.1)" "(lambda(all-scopes-stx57_0" @@ -73200,7 +73244,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_148) phase50_1))" +"(let-values(((phase_49) phase50_1))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -73217,14 +73261,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_148)" +"(namespace-visit-available-modules! m-ns_20 phase_49)" "((letrec-values(((loop_124)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_148)) #f)" +"(if(if tail?_53(not(zero? phase_49)) #f)" "(let-values()" "(begin" "(let-values(((obs_137)" @@ -73274,29 +73318,29 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_92)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_92" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_92" +" obs_139" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_7)" "(let-values()" -"(let-values(((temp464_1)" +"(let-values(((temp466_0)" "(car bodys_21))" -"((partial-body-ctx465_0)" +"((partial-body-ctx467_0)" " partial-body-ctx_1))" "(expand9.1" " #f" " #f" " #f" -" temp464_1" -" partial-body-ctx465_0)))))" +" temp466_0" +" partial-body-ctx467_0)))))" "(let-values(((disarmed-exp-body_1)" "(syntax-disarm$1 exp-body_7)))" "(let-values(((lifted-defns_0)" @@ -73312,14 +73356,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_139)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_140" " 'rename-one" " exp-body_7)))" "(void)))" @@ -73330,46 +73374,46 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_148)))" +" phase_49)))" "(if(equal?" " tmp_65" " 'begin)" "(let-values()" "(let-values(((ok?_81" -" begin466_0" -" e467_0)" -"(let-values(((s_810)" +" begin468_0" +" e469_0)" +"(let-values(((s_809)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_810))" -"(let-values(((begin466_1" -" e467_1)" -"(let-values(((s_811)" +" s_809))" +"(let-values(((begin468_1" +" e469_1)" +"(let-values(((s_810)" "(if(syntax?$1" -" s_810)" +" s_809)" "(syntax-e$1" -" s_810)" -" s_810)))" +" s_809)" +" s_809)))" "(if(pair?" -" s_811)" -"(let-values(((begin468_0)" -"(let-values(((s_812)" +" s_810)" +"(let-values(((begin470_0)" +"(let-values(((s_811)" "(car" -" s_811)))" -" s_812))" -"((e469_0)" -"(let-values(((s_813)" +" s_810)))" +" s_811))" +"((e471_0)" +"(let-values(((s_812)" "(cdr" -" s_811)))" -"(let-values(((s_814)" +" s_810)))" +"(let-values(((s_813)" "(if(syntax?$1" -" s_813)" +" s_812)" "(syntax-e$1" -" s_813)" -" s_813)))" +" s_812)" +" s_812)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_814)))" +" s_813)))" "(if(not" " flat-s_58)" "(let-values()" @@ -73380,16 +73424,16 @@ static const char *startup_source = "(let-values()" " flat-s_58)))))))" "(values" -" begin468_0" -" e469_0))" +" begin470_0" +" e471_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85)))))" "(values" " #t" -" begin466_1" -" e467_1))))))" +" begin468_1" +" e469_1))))))" "(let-values(((track_1)" "(lambda(e_95)" "(begin" @@ -73401,17 +73445,17 @@ static const char *startup_source = "(append" "(map2" " track_1" -" e467_0)" +" e469_0)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_140)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_141" " 'splice" " spliced-bodys_0)))" "(void)))" @@ -73424,22 +73468,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_141)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_142" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_141" +" obs_142" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_141" +" obs_142" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_141" +" obs_142" " 'prepare-env))))" "(void)))" "(values))))" @@ -73447,7 +73491,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_148))))" +" phase_49))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -73455,52 +73499,52 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_142" +" obs_143" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_82" -" begin-for-syntax470_0" -" e471_0)" -"(let-values(((s_815)" +" begin-for-syntax472_0" +" e473_0)" +"(let-values(((s_814)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_815))" -"(let-values(((begin-for-syntax470_1" -" e471_1)" -"(let-values(((s_816)" +" s_814))" +"(let-values(((begin-for-syntax472_1" +" e473_1)" +"(let-values(((s_815)" "(if(syntax?$1" -" s_815)" +" s_814)" "(syntax-e$1" -" s_815)" -" s_815)))" +" s_814)" +" s_814)))" "(if(pair?" -" s_816)" -"(let-values(((begin-for-syntax472_0)" -"(let-values(((s_817)" +" s_815)" +"(let-values(((begin-for-syntax474_0)" +"(let-values(((s_816)" "(car" -" s_816)))" -" s_817))" -"((e473_0)" -"(let-values(((s_818)" +" s_815)))" +" s_816))" +"((e475_0)" +"(let-values(((s_817)" "(cdr" -" s_816)))" -"(let-values(((s_819)" +" s_815)))" +"(let-values(((s_818)" "(if(syntax?$1" -" s_818)" +" s_817)" "(syntax-e$1" -" s_818)" -" s_818)))" +" s_817)" +" s_817)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_819)))" +" s_818)))" "(if(not" " flat-s_59)" "(let-values()" @@ -73511,46 +73555,22 @@ static const char *startup_source = "(let-values()" " flat-s_59)))))))" "(values" -" begin-for-syntax472_0" -" e473_0))" +" begin-for-syntax474_0" +" e475_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86)))))" "(values" " #t" -" begin-for-syntax470_1" -" e471_1))))))" +" begin-for-syntax472_1" +" e473_1))))))" "(let-values(((nested-bodys_1)" "(pass-1-and-2-loop_1" -" e471_0" +" e473_0" "(add1" -" phase_148))))" +" phase_49))))" "(begin" -"(let-values(((obs_143)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_143" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_143" -" '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_144)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73559,10 +73579,34 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_144" +" 'next-group)))" +"(void)))" +"(namespace-run-available-modules!" +" m-ns_20" +"(add1" +" phase_49))" +"(eval-nested-bodys" +" nested-bodys_1" +"(add1" +" phase_49)" +" ct-m-ns_0" +" self_34" +" partial-body-ctx_1)" +"(namespace-visit-available-modules!" +" m-ns_20" +" phase_49)" +"(let-values(((obs_145)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_145" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_145" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_425)" +"(let-values(((lst_252)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73570,8 +73614,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_425)))" -"((letrec-values(((for-loop_330)" +" lst_252)))" +"((letrec-values(((for-loop_331)" "(lambda(fold-var_373" " lst_426)" "(begin" @@ -73581,35 +73625,35 @@ static const char *startup_source = "(let-values(((nested-body_0)" "(unsafe-car" " lst_426))" -"((rest_254)" +"((rest_253)" "(unsafe-cdr" " lst_426)))" "(let-values(((fold-var_374)" -"(let-values(((fold-var_352)" +"(let-values(((fold-var_375)" " fold-var_373))" -"(let-values(((fold-var_353)" +"(let-values(((fold-var_355)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_352))))" +" fold-var_375))))" "(values" -" fold-var_353)))))" +" fold-var_355)))))" "(if(not" " #f)" -"(for-loop_330" +"(for-loop_331" " fold-var_374" -" rest_254)" +" rest_253)" " fold-var_374)))" " fold-var_373)))))" -" for-loop_330)" +" for-loop_331)" " null" -" lst_425))))))" +" lst_252))))))" "(datum->syntax$1" " #f" "(cons" -" begin-for-syntax470_0" +" begin-for-syntax472_0" " s-nested-bodys_0)" " exp-body_7)))))" "(void)))" @@ -73626,72 +73670,72 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_145)" +"(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_146" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_145" +" obs_146" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_145" +" obs_146" " 'prim-define-values))))" "(void)))" "(values))))" "(let-values(((ok?_83" -" define-values474_0" -" id475_0" -" rhs476_0)" -"(let-values(((s_820)" +" define-values476_0" +" id477_0" +" rhs478_0)" +"(let-values(((s_819)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_820))" -"(let-values(((define-values474_1" -" id475_1" -" rhs476_1)" +" s_819))" +"(let-values(((define-values476_1" +" id477_1" +" rhs478_1)" +"(let-values(((s_820)" +"(if(syntax?$1" +" s_819)" +"(syntax-e$1" +" s_819)" +" s_819)))" +"(if(pair?" +" s_820)" +"(let-values(((define-values479_0)" "(let-values(((s_821)" -"(if(syntax?$1" -" s_820)" -"(syntax-e$1" -" s_820)" +"(car" " s_820)))" -"(if(pair?" -" s_821)" -"(let-values(((define-values477_0)" +" s_821))" +"((id480_0" +" rhs481_0)" "(let-values(((s_822)" -"(car" -" s_821)))" -" s_822))" -"((id478_0" -" rhs479_0)" -"(let-values(((s_823)" "(cdr" -" s_821)))" -"(let-values(((s_824)" +" s_820)))" +"(let-values(((s_823)" "(if(syntax?$1" -" s_823)" +" s_822)" "(syntax-e$1" -" s_823)" -" s_823)))" +" s_822)" +" s_822)))" "(if(pair?" -" s_824)" -"(let-values(((id480_0)" -"(let-values(((s_825)" +" s_823)" +"(let-values(((id482_0)" +"(let-values(((s_824)" "(car" -" s_824)))" -"(let-values(((s_826)" +" s_823)))" +"(let-values(((s_825)" "(if(syntax?$1" -" s_825)" +" s_824)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_824)" +" s_824)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_826)))" +" s_825)))" "(if(not" " flat-s_60)" "(let-values()" @@ -73701,7 +73745,7 @@ static const char *startup_source = " orig-s_87))" "(let-values()" "(let-values(((id_144)" -"(let-values(((lst_427)" +"(let-values(((lst_70)" " flat-s_60))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73709,211 +73753,211 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_427)))" -"((letrec-values(((for-loop_331)" +" lst_70)))" +"((letrec-values(((for-loop_332)" "(lambda(id_145" -" lst_428)" +" lst_427)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" -"(let-values(((s_827)" +" lst_427)" +"(let-values(((s_826)" "(unsafe-car" -" lst_428))" -"((rest_255)" +" lst_427))" +"((rest_254)" "(unsafe-cdr" -" lst_428)))" +" lst_427)))" "(let-values(((id_146)" "(let-values(((id_147)" " id_145))" "(let-values(((id_148)" "(let-values()" -"(let-values(((id493_0)" +"(let-values(((id495_0)" "(let-values()" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_403)" "(if(syntax?$1" -" s_827)" +" s_826)" "(symbol?" "(syntax-e$1" -" s_827))" +" s_826))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_403" +" or-part_403" "(symbol?" -" s_827)))" -" s_827" +" s_826)))" +" s_826" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_827)))))" +" s_826)))))" "(cons" -" id493_0" +" id495_0" " id_147)))))" "(values" " id_148)))))" "(if(not" " #f)" -"(for-loop_331" +"(for-loop_332" " id_146" -" rest_255)" +" rest_254)" " id_146)))" " id_145)))))" -" for-loop_331)" +" for-loop_332)" " null" -" lst_427)))))" +" lst_70)))))" "(reverse$1" " id_144))))))))" -"((rhs481_0)" +"((rhs483_0)" +"(let-values(((s_827)" +"(cdr" +" s_823)))" "(let-values(((s_828)" -"(cdr" -" s_824)))" -"(let-values(((s_829)" "(if(syntax?$1" -" s_828)" +" s_827)" "(syntax-e$1" -" s_828)" -" s_828)))" +" s_827)" +" s_827)))" "(if(pair?" -" s_829)" -"(let-values(((rhs482_0)" -"(let-values(((s_830)" +" s_828)" +"(let-values(((rhs484_0)" +"(let-values(((s_829)" "(car" -" s_829)))" -" s_830))" +" s_828)))" +" s_829))" "(()" -"(let-values(((s_831)" +"(let-values(((s_830)" "(cdr" -" s_829)))" -"(let-values(((s_832)" +" s_828)))" +"(let-values(((s_831)" "(if(syntax?$1" -" s_831)" +" s_830)" "(syntax-e$1" -" s_831)" -" s_831)))" +" s_830)" +" s_830)))" "(if(null?" -" s_832)" +" s_831)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" rhs482_0))" +" rhs484_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" id480_0" -" rhs481_0))" +" id482_0" +" rhs483_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" define-values477_0" -" id478_0" -" rhs479_0))" +" define-values479_0" +" id480_0" +" rhs481_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87)))))" "(values" " #t" -" define-values474_1" -" id475_1" -" rhs476_1))))))" +" define-values476_1" +" id477_1" +" rhs478_1))))))" "(let-values(((ids_45)" "(remove-use-site-scopes" -" id475_0" +" id477_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids483_0)" +"(let-values(((ids485_0)" " ids_45)" -"((phase484_0)" -" phase_148)" -"((exp-body485_0)" +"((phase486_0)" +" phase_49)" +"((exp-body487_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids483_0" -" phase484_0" -" exp-body485_0" +" ids485_0" +" phase486_0" +" exp-body487_0" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids486_0)" +"(let-values(((ids488_0)" " ids_45)" -"((phase487_0)" -" phase_148)" -"((requires+provides488_0)" +"((phase489_0)" +" phase_49)" +"((requires+provides490_0)" " requires+provides_7)" -"((exp-body489_0)" +"((exp-body491_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body489_0" -" ids486_0" -" phase487_0" -" requires+provides488_0))" +" exp-body491_0" +" ids488_0" +" phase489_0" +" requires+provides490_0))" "(values))))" "(let-values(((syms_22)" -"(let-values(((ids494_0)" +"(let-values(((ids496_0)" " ids_45)" -"((defined-syms495_0)" +"((defined-syms497_0)" " defined-syms_12)" -"((self496_0)" +"((self498_0)" " self_34)" -"((phase497_0)" -" phase_148)" -"((all-scopes-stx498_0)" +"((phase499_0)" +" phase_49)" +"((all-scopes-stx500_0)" " all-scopes-stx_5)" -"((frame-id499_0)" +"((frame-id501_0)" " frame-id_17)" -"((requires+provides500_0)" +"((requires+provides502_0)" " requires+provides_7)" -"((exp-body501_0)" +"((exp-body503_0)" " exp-body_7))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id499_0" -" exp-body501_0" -" requires+provides500_0" +" frame-id501_0" +" exp-body503_0" +" requires+provides502_0" " #f" -" ids494_0" -" defined-syms495_0" -" self496_0" -" phase497_0" -" all-scopes-stx498_0))))" +" ids496_0" +" defined-syms497_0" +" self498_0" +" phase499_0" +" all-scopes-stx500_0))))" "(begin" -"(let-values(((requires+provides490_0)" +"(let-values(((requires+provides492_0)" " requires+provides_7)" -"((syms491_0)" +"((syms493_0)" " syms_22)" -"((phase492_0)" -" phase_148))" +"((phase494_0)" +" phase_49))" "(add-defined-syms!103.1" " #f" -" requires+provides490_0" -" syms491_0" -" phase492_0))" -"(let-values(((obs_146)" +" requires+provides492_0" +" syms493_0" +" phase494_0))" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_147" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_146" +" obs_147" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-values474_0" +" define-values476_0" " ids_45" -" rhs476_0)" +" rhs478_0)" " exp-body_7))))" "(void)))" "(cons" @@ -73921,7 +73965,7 @@ static const char *startup_source = " exp-body_7" " syms_22" " ids_45" -" rhs476_0)" +" rhs478_0)" "(loop_124" " tail?_53" " rest-bodys_1))))))))))" @@ -73931,22 +73975,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_148" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_147" +" obs_148" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_147" +" obs_148" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_147" +" obs_148" " 'prepare-env))))" "(void)))" "(values))))" @@ -73957,67 +74001,67 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_148)" +"(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_148" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_148" +" obs_149" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_84" -" define-syntaxes502_0" -" id503_0" -" rhs504_0)" -"(let-values(((s_833)" +" define-syntaxes504_0" +" id505_0" +" rhs506_0)" +"(let-values(((s_832)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_833))" -"(let-values(((define-syntaxes502_1" -" id503_1" -" rhs504_1)" +" s_832))" +"(let-values(((define-syntaxes504_1" +" id505_1" +" rhs506_1)" +"(let-values(((s_833)" +"(if(syntax?$1" +" s_832)" +"(syntax-e$1" +" s_832)" +" s_832)))" +"(if(pair?" +" s_833)" +"(let-values(((define-syntaxes507_0)" "(let-values(((s_834)" -"(if(syntax?$1" -" s_833)" -"(syntax-e$1" -" s_833)" +"(car" " s_833)))" -"(if(pair?" -" s_834)" -"(let-values(((define-syntaxes505_0)" +" s_834))" +"((id508_0" +" rhs509_0)" "(let-values(((s_835)" -"(car" -" s_834)))" -" s_835))" -"((id506_0" -" rhs507_0)" -"(let-values(((s_836)" "(cdr" -" s_834)))" -"(let-values(((s_837)" +" s_833)))" +"(let-values(((s_836)" "(if(syntax?$1" -" s_836)" +" s_835)" "(syntax-e$1" -" s_836)" -" s_836)))" +" s_835)" +" s_835)))" "(if(pair?" -" s_837)" -"(let-values(((id508_0)" -"(let-values(((s_838)" +" s_836)" +"(let-values(((id510_0)" +"(let-values(((s_837)" "(car" -" s_837)))" -"(let-values(((s_839)" +" s_836)))" +"(let-values(((s_838)" "(if(syntax?$1" -" s_838)" +" s_837)" "(syntax-e$1" -" s_838)" -" s_838)))" +" s_837)" +" s_837)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_839)))" +" s_838)))" "(if(not" " flat-s_61)" "(let-values()" @@ -74027,7 +74071,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_149)" -"(let-values(((lst_429)" +"(let-values(((lst_428)" " flat-s_61))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74035,334 +74079,334 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" -"((letrec-values(((for-loop_332)" +" lst_428)))" +"((letrec-values(((for-loop_333)" "(lambda(id_150" -" lst_430)" +" lst_429)" "(begin" " 'for-loop" "(if(pair?" -" lst_430)" -"(let-values(((s_840)" +" lst_429)" +"(let-values(((s_839)" "(unsafe-car" -" lst_430))" -"((rest_256)" +" lst_429))" +"((rest_255)" "(unsafe-cdr" -" lst_430)))" +" lst_429)))" "(let-values(((id_151)" "(let-values(((id_152)" " id_150))" "(let-values(((id_153)" "(let-values()" -"(let-values(((id522_0)" +"(let-values(((id524_0)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_404)" "(if(syntax?$1" -" s_840)" +" s_839)" "(symbol?" "(syntax-e$1" -" s_840))" +" s_839))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_404" +" or-part_404" "(symbol?" -" s_840)))" -" s_840" +" s_839)))" +" s_839" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_840)))))" +" s_839)))))" "(cons" -" id522_0" +" id524_0" " id_152)))))" "(values" " id_153)))))" "(if(not" " #f)" -"(for-loop_332" +"(for-loop_333" " id_151" -" rest_256)" +" rest_255)" " id_151)))" " id_150)))))" -" for-loop_332)" +" for-loop_333)" " null" -" lst_429)))))" +" lst_428)))))" "(reverse$1" " id_149))))))))" -"((rhs509_0)" +"((rhs511_0)" +"(let-values(((s_840)" +"(cdr" +" s_836)))" "(let-values(((s_841)" -"(cdr" -" s_837)))" -"(let-values(((s_842)" "(if(syntax?$1" -" s_841)" +" s_840)" "(syntax-e$1" -" s_841)" -" s_841)))" +" s_840)" +" s_840)))" "(if(pair?" -" s_842)" -"(let-values(((rhs510_0)" -"(let-values(((s_843)" +" s_841)" +"(let-values(((rhs512_0)" +"(let-values(((s_842)" "(car" -" s_842)))" -" s_843))" +" s_841)))" +" s_842))" "(()" -"(let-values(((s_844)" +"(let-values(((s_843)" "(cdr" -" s_842)))" -"(let-values(((s_845)" +" s_841)))" +"(let-values(((s_844)" "(if(syntax?$1" -" s_844)" +" s_843)" "(syntax-e$1" -" s_844)" -" s_844)))" +" s_843)" +" s_843)))" "(if(null?" -" s_845)" +" s_844)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" rhs510_0))" +" rhs512_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" id508_0" -" rhs509_0))" +" id510_0" +" rhs511_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" define-syntaxes505_0" -" id506_0" -" rhs507_0))" +" define-syntaxes507_0" +" id508_0" +" rhs509_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88)))))" "(values" " #t" -" define-syntaxes502_1" -" id503_1" -" rhs504_1))))))" +" define-syntaxes504_1" +" id505_1" +" rhs506_1))))))" "(let-values(((ids_46)" "(remove-use-site-scopes" -" id503_0" +" id505_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids511_0)" +"(let-values(((ids513_0)" " ids_46)" -"((phase512_0)" -" phase_148)" -"((exp-body513_0)" +"((phase514_0)" +" phase_49)" +"((exp-body515_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids511_0" -" phase512_0" -" exp-body513_0" +" ids513_0" +" phase514_0" +" exp-body515_0" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids514_0)" +"(let-values(((ids516_0)" " ids_46)" -"((phase515_0)" -" phase_148)" -"((requires+provides516_0)" +"((phase517_0)" +" phase_49)" +"((requires+provides518_0)" " requires+provides_7)" -"((exp-body517_0)" +"((exp-body519_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body517_0" -" ids514_0" -" phase515_0" -" requires+provides516_0))" +" exp-body519_0" +" ids516_0" +" phase517_0" +" requires+provides518_0))" "(values))))" "(let-values(((syms_23)" -"(let-values(((ids523_0)" +"(let-values(((ids525_0)" " ids_46)" -"((defined-syms524_0)" +"((defined-syms526_0)" " defined-syms_12)" -"((self525_0)" +"((self527_0)" " self_34)" -"((phase526_0)" -" phase_148)" -"((all-scopes-stx527_0)" +"((phase528_0)" +" phase_49)" +"((all-scopes-stx529_0)" " all-scopes-stx_5)" -"((frame-id528_0)" +"((frame-id530_0)" " frame-id_17)" -"((requires+provides529_0)" +"((requires+provides531_0)" " requires+provides_7)" -"((exp-body530_0)" +"((exp-body532_0)" " exp-body_7)" -"((temp531_0)" +"((temp533_0)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp531_0" -" frame-id528_0" -" exp-body530_0" -" requires+provides529_0" +" temp533_0" +" frame-id530_0" +" exp-body532_0" +" requires+provides531_0" " #f" -" ids523_0" -" defined-syms524_0" -" self525_0" -" phase526_0" -" all-scopes-stx527_0))))" +" ids525_0" +" defined-syms526_0" +" self527_0" +" phase528_0" +" all-scopes-stx529_0))))" "(let-values((()" "(begin" -"(let-values(((requires+provides518_0)" +"(let-values(((requires+provides520_0)" " requires+provides_7)" -"((syms519_0)" +"((syms521_0)" " syms_23)" -"((phase520_0)" -" phase_148)" -"((temp521_0)" +"((phase522_0)" +" phase_49)" +"((temp523_0)" " #t))" "(add-defined-syms!103.1" -" temp521_0" -" requires+provides518_0" -" syms519_0" -" phase520_0))" +" temp523_0" +" requires+provides520_0" +" syms521_0" +" phase522_0))" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp532_0)" +"(let-values(((temp534_0)" " 'define-syntaxes)" -"((temp533_0)" -" rhs504_0)" -"((ids534_0)" -" ids_46)" "((temp535_0)" -"(let-values(((v_273)" +" rhs506_0)" +"((ids536_0)" +" ids_46)" +"((temp537_0)" +"(let-values(((v_275)" " partial-body-ctx_1))" -"(let-values(((the-struct_109)" -" v_273))" +"(let-values(((the-struct_112)" +" v_275))" "(if(expand-context/outer?" -" the-struct_109)" -"(let-values(((need-eventually-defined537_0)" +" the-struct_112)" +"(let-values(((need-eventually-defined539_0)" " need-eventually-defined_2)" -"((inner538_0)" -"(let-values(((the-struct_110)" +"((inner540_0)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_273)))" +" v_275)))" "(if(expand-context/inner?" -" the-struct_110)" -"(let-values(((lifts539_0)" +" the-struct_113)" +"(let-values(((lifts541_0)" " #f)" -"((module-lifts540_0)" +"((module-lifts542_0)" " #f)" -"((to-module-lifts541_0)" +"((to-module-lifts543_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-module-begin-k" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-in-local-expand?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-keep-#%expression?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" -" lifts539_0" +" the-struct_113)" +" lifts541_0" "(expand-context/inner-lift-envs" -" the-struct_110)" -" module-lifts540_0" +" the-struct_113)" +" module-lifts542_0" "(expand-context/inner-require-lifts" -" the-struct_110)" -" to-module-lifts541_0" +" the-struct_113)" +" to-module-lifts543_0" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_113)))))" "(expand-context/outer1.1" -" inner538_0" +" inner540_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_109)" +" the-struct_112)" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_112)" "(root-expand-context/outer-frame-id" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-context" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-def-ctx-scopes" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-only-immediate?" -" the-struct_109)" -" need-eventually-defined537_0" +" the-struct_112)" +" need-eventually-defined539_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109)))))" -"((temp536_0)" +" the-struct_112)))))" +"((temp538_0)" " #f))" "(expand+eval-for-syntaxes-binding108.1" -" temp536_0" -" temp532_0" -" temp533_0" -" ids534_0" -" temp535_0))))" +" temp538_0" +" temp534_0" +" temp535_0" +" ids536_0" +" temp537_0))))" "(let-values((()" "(begin" -"(let-values(((lst_431)" +"(let-values(((lst_430)" " syms_23)" -"((lst_432)" +"((lst_431)" " vals_10)" -"((lst_433)" +"((lst_432)" " ids_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74370,6 +74414,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_430)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_431)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -74377,44 +74427,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_432)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_433)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_434" -" lst_435" -" lst_436)" +"((letrec-values(((for-loop_334)" +"(lambda(lst_433" +" lst_434" +" lst_435)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_434)" +" lst_433)" "(if(pair?" -" lst_435)" +" lst_434)" "(pair?" -" lst_436)" +" lst_435)" " #f)" " #f)" "(let-values(((sym_109)" "(unsafe-car" +" lst_433))" +"((rest_256)" +"(unsafe-cdr" +" lst_433))" +"((val_87)" +"(unsafe-car" " lst_434))" "((rest_257)" "(unsafe-cdr" " lst_434))" -"((val_87)" +"((id_154)" "(unsafe-car" " lst_435))" "((rest_258)" "(unsafe-cdr" -" lst_435))" -"((id_154)" -"(unsafe-car" -" lst_436))" -"((rest_259)" -"(unsafe-cdr" -" lst_436)))" +" lst_435)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74425,44 +74469,44 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_87" " id_154" -" phase_148" +" phase_49" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_148" +" phase_49" " sym_109" " val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_333" +"(for-loop_334" +" rest_256" " rest_257" -" rest_258" -" rest_259)" +" rest_258)" "(values))))" "(values))))))" -" for-loop_333)" +" for-loop_334)" +" lst_430" " lst_431" -" lst_432" -" lst_433)))" +" lst_432)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_150)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_149" +"(if obs_150" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_150" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes502_0" +" define-syntaxes504_0" " ids_46" " exp-rhs_6)))))" "(void)))" @@ -74479,17 +74523,17 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body542_0)" +"(let-values(((exp-body544_0)" " exp-body_7)" -"((temp543_0)" +"((temp545_0)" "(list" -" define-syntaxes502_0" +" define-syntaxes504_0" " ids_46" " exp-rhs_6)))" "(rebuild5.1" " #t" -" exp-body542_0" -" temp543_0))" +" exp-body544_0" +" temp545_0))" " parsed-body_0))" "(loop_124" " tail?_53" @@ -74500,19 +74544,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_150" +"(if obs_151" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_150" +" obs_151" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_150" +" obs_151" " 'prim-require))))" "(void)))" "(values))))" @@ -74521,40 +74565,40 @@ static const char *startup_source = " disarmed-exp-body_1" " partial-body-ctx_1)))" "(let-values(((ok?_85" -" #%require544_0" -" req545_0)" -"(let-values(((s_846)" +" #%require546_0" +" req547_0)" +"(let-values(((s_845)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_846))" -"(let-values(((#%require544_1" -" req545_1)" -"(let-values(((s_847)" +" s_845))" +"(let-values(((#%require546_1" +" req547_1)" +"(let-values(((s_846)" "(if(syntax?$1" -" s_846)" +" s_845)" "(syntax-e$1" -" s_846)" -" s_846)))" +" s_845)" +" s_845)))" "(if(pair?" -" s_847)" -"(let-values(((#%require546_0)" -"(let-values(((s_848)" +" s_846)" +"(let-values(((#%require548_0)" +"(let-values(((s_847)" "(car" -" s_847)))" -" s_848))" -"((req547_0)" -"(let-values(((s_849)" +" s_846)))" +" s_847))" +"((req549_0)" +"(let-values(((s_848)" "(cdr" -" s_847)))" -"(let-values(((s_850)" +" s_846)))" +"(let-values(((s_849)" "(if(syntax?$1" -" s_849)" +" s_848)" "(syntax-e$1" -" s_849)" -" s_849)))" +" s_848)" +" s_848)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_850)))" +" s_849)))" "(if(not" " flat-s_62)" "(let-values()" @@ -74565,59 +74609,59 @@ static const char *startup_source = "(let-values()" " flat-s_62)))))))" "(values" -" #%require546_0" -" req547_0))" +" #%require548_0" +" req549_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89)))))" "(values" " #t" -" #%require544_1" -" req545_1))))))" +" #%require546_1" +" req547_1))))))" "(begin" -"(let-values(((temp548_0)" -" req545_0)" -"((exp-body549_0)" +"(let-values(((temp550_0)" +" req547_0)" +"((exp-body551_0)" " exp-body_7)" -"((self550_0)" +"((self552_0)" " self_34)" -"((m-ns551_0)" +"((m-ns553_0)" " m-ns_20)" -"((phase552_0)" -" phase_148)" -"((phase553_0)" -" phase_148)" -"((requires+provides554_0)" +"((phase554_0)" +" phase_49)" +"((phase555_0)" +" phase_49)" +"((requires+provides556_0)" " requires+provides_7)" -"((declared-submodule-names555_0)" +"((declared-submodule-names557_0)" " declared-submodule-names_4)" -"((temp556_0)" +"((temp558_0)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names555_0" +" declared-submodule-names557_0" " #f" -" phase553_0" +" phase555_0" " #f" -" self550_0" +" self552_0" " #f" " #t" -" temp556_0" -" temp548_0" -" exp-body549_0" -" m-ns551_0" -" phase552_0" -" requires+provides554_0))" -"(let-values(((obs_151)" +" temp558_0" +" temp550_0" +" exp-body551_0" +" m-ns553_0" +" phase554_0" +" requires+provides556_0))" +"(let-values(((obs_152)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_151" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_152" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -74644,35 +74688,35 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((ready-body557_0)" +"(let-values(((ready-body559_0)" " ready-body_1)" -"((self558_0)" +"((self560_0)" " self_34)" -"((partial-body-ctx559_0)" +"((partial-body-ctx561_0)" " partial-body-ctx_1)" -"((temp560_0)" +"((temp562_0)" " #f)" -"((declared-submodule-names561_0)" +"((declared-submodule-names563_0)" " declared-submodule-names_4)" -"((mpis-to-reset562_0)" +"((mpis-to-reset564_0)" " mpis-to-reset_1)" -"((compiled-submodules563_0)" +"((compiled-submodules565_0)" " compiled-submodules_2)" -"((modules-being-compiled564_0)" +"((modules-being-compiled566_0)" " modules-being-compiled_4))" "(expand-submodule197.1" -" compiled-submodules563_0" -" declared-submodule-names561_0" +" compiled-submodules565_0" +" declared-submodule-names563_0" " #f" " #f" " #f" -" temp560_0" +" temp562_0" " #f" -" modules-being-compiled564_0" -" mpis-to-reset562_0" -" ready-body557_0" -" self558_0" -" partial-body-ctx559_0))))" +" modules-being-compiled566_0" +" mpis-to-reset564_0" +" ready-body559_0" +" self560_0" +" partial-body-ctx561_0))))" "(cons" " submod_2" "(loop_124" @@ -74683,22 +74727,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_152)" +"(let-values(((obs_153)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_152" +"(if obs_153" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_152" +" obs_153" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_152" +" obs_153" " 'prim-submodule*)" "(call-expand-observe" -" obs_152" +" obs_153" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -74712,40 +74756,40 @@ static const char *startup_source = " '#%declare)" "(let-values()" "(let-values(((ok?_86" -" #%declare565_0" -" kw566_0)" -"(let-values(((s_851)" +" #%declare567_0" +" kw568_0)" +"(let-values(((s_850)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_851))" -"(let-values(((#%declare565_1" -" kw566_1)" -"(let-values(((s_852)" +" s_850))" +"(let-values(((#%declare567_1" +" kw568_1)" +"(let-values(((s_851)" "(if(syntax?$1" -" s_851)" +" s_850)" "(syntax-e$1" -" s_851)" -" s_851)))" +" s_850)" +" s_850)))" "(if(pair?" -" s_852)" -"(let-values(((#%declare567_0)" -"(let-values(((s_853)" +" s_851)" +"(let-values(((#%declare569_0)" +"(let-values(((s_274)" "(car" -" s_852)))" -" s_853))" -"((kw568_0)" -"(let-values(((s_854)" +" s_851)))" +" s_274))" +"((kw570_0)" +"(let-values(((s_852)" "(cdr" -" s_852)))" -"(let-values(((s_855)" +" s_851)))" +"(let-values(((s_853)" "(if(syntax?$1" -" s_854)" +" s_852)" "(syntax-e$1" -" s_854)" -" s_854)))" +" s_852)" +" s_852)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_855)))" +" s_853)))" "(if(not" " flat-s_63)" "(let-values()" @@ -74756,39 +74800,39 @@ static const char *startup_source = "(let-values()" " flat-s_63)))))))" "(values" -" #%declare567_0" -" kw568_0))" +" #%declare569_0" +" kw570_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90)))))" "(values" " #t" -" #%declare565_1" -" kw566_1))))))" +" #%declare567_1" +" kw568_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_437)" -" kw566_0))" +"(let-values(((lst_436)" +" kw568_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_437)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_438)" +" lst_436)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_437)" "(begin" " 'for-loop" "(if(pair?" -" lst_438)" +" lst_437)" "(let-values(((kw_1)" "(unsafe-car" -" lst_438))" -"((rest_260)" +" lst_437))" +"((rest_259)" "(unsafe-cdr" -" lst_438)))" +" lst_437)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74839,12 +74883,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_260)" +"(for-loop_335" +" rest_259)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_437)))" +" for-loop_335)" +" lst_436)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74891,95 +74935,95 @@ 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_47 rhs_23 phase_149)" +"(lambda(ids_47 rhs_23 phase_148)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_439) ids_47))" +"(let-values(((lst_438) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_439)))" -"((letrec-values(((for-loop_335)" -"(lambda(fold-var_375 lst_440)" +"(let-values()(check-list lst_438)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_376 lst_439)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((id_155)(unsafe-car lst_440))" -"((rest_261)(unsafe-cdr lst_440)))" -"(let-values(((fold-var_376)" -"(let-values(((fold-var_377) fold-var_375))" -"(let-values(((fold-var_378)" +"(if(pair? lst_439)" +"(let-values(((id_155)(unsafe-car lst_439))" +"((rest_260)(unsafe-cdr lst_439)))" +"(let-values(((fold-var_377)" +"(let-values(((fold-var_378) fold-var_376))" +"(let-values(((fold-var_379)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_155" " inside-scope_2))" -" fold-var_377))))" -"(values fold-var_378)))))" -"(if(not #f)(for-loop_335 fold-var_376 rest_261) fold-var_376)))" -" fold-var_375)))))" -" for-loop_335)" +" fold-var_378))))" +"(values fold-var_379)))))" +"(if(not #f)(for-loop_336 fold-var_377 rest_260) fold-var_377)))" +" fold-var_376)))))" +" for-loop_336)" " null" -" lst_439))))))" +" lst_438))))))" "(let-values(((syms_24)" -"(let-values(((scoped-ids569_0) scoped-ids_0)" -"((defined-syms570_0) defined-syms_13)" -"((self571_0) self_35)" -"((phase572_0) phase_149)" -"((all-scopes-stx573_0) all-scopes-stx_6)" -"((frame-id574_0) frame-id_18)" -"((requires+provides575_0) requires+provides_8))" +"(let-values(((scoped-ids571_0) scoped-ids_0)" +"((defined-syms572_0) defined-syms_13)" +"((self573_0) self_35)" +"((phase574_0) phase_148)" +"((all-scopes-stx575_0) all-scopes-stx_6)" +"((frame-id576_0) frame-id_18)" +"((requires+provides577_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id574_0" +" frame-id576_0" " #f" -" requires+provides575_0" +" requires+provides577_0" " #f" -" scoped-ids569_0" -" defined-syms570_0" -" self571_0" -" phase572_0" -" all-scopes-stx573_0))))" -"(let-values(((s_291)" +" scoped-ids571_0" +" defined-syms572_0" +" self573_0" +" phase574_0" +" all-scopes-stx575_0))))" +"(let-values(((s_292)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_149) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_291 syms_24 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_292 syms_24 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_113)" +"(lambda(bodys_23 ctx_115)" "(begin" -"(let-values(((sc_40)(root-expand-context-post-expansion-scope ctx_113)))" +"(let-values(((sc_40)(root-expand-context-post-expansion-scope ctx_115)))" "(if sc_40" "(reverse$1" -"(let-values(((lst_441) bodys_23))" +"(let-values(((lst_440) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_379 lst_442)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_380 lst_441)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((body_21)(unsafe-car lst_442))((rest_262)(unsafe-cdr lst_442)))" -"(let-values(((fold-var_380)" -"(let-values(((fold-var_381) fold-var_379))" -"(let-values(((fold-var_382)" +"(if(pair? lst_441)" +"(let-values(((body_21)(unsafe-car lst_441))((rest_261)(unsafe-cdr lst_441)))" +"(let-values(((fold-var_381)" +"(let-values(((fold-var_382) fold-var_380))" +"(let-values(((fold-var_383)" "(let-values()" "(cons" "(let-values()(add-scope body_21 sc_40))" -" fold-var_381))))" -"(values fold-var_382)))))" -"(if(not #f)(for-loop_336 fold-var_380 rest_262) fold-var_380)))" -" fold-var_379)))))" -" for-loop_336)" +" fold-var_382))))" +"(values fold-var_383)))))" +"(if(not #f)(for-loop_337 fold-var_381 rest_261) fold-var_381)))" +" fold-var_380)))))" +" for-loop_337)" " null" -" lst_441))))" +" lst_440))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -74994,7 +75038,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_150) phase84_0))" +"(let-values(((phase_149) 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))" @@ -75008,15 +75052,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_150)) #f)" +"(if(if tail?_54(not(zero? phase_149)) #f)" "(let-values()" "(begin" -"(let-values(((obs_153)(expand-context-observer body-ctx_7)))" -"(if obs_153" +"(let-values(((obs_154)(expand-context-observer body-ctx_7)))" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_153" +" obs_154" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75032,13 +75076,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_154)" +"(let-values(((obs_155)" "(expand-context-observer body-ctx_7)))" -"(if obs_154" +"(if obs_155" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_155" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75051,25 +75095,25 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_155)" +"(let-values(((obs_156)" "(expand-context-observer body-ctx_7)))" -"(if obs_155" +"(if obs_156" "(let-values()" "(let-values()" -"(call-expand-observe obs_155 'next)))" +"(call-expand-observe obs_156 '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_404)" +"(if(let-values(((or-part_405)" "(parsed? body_22)))" -"(if or-part_404" -" or-part_404" -"(let-values(((or-part_405)" -"(expanded+parsed? body_22)))" "(if or-part_405" " or-part_405" +"(let-values(((or-part_406)" +"(expanded+parsed? body_22)))" +"(if or-part_406" +" or-part_406" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" @@ -75086,135 +75130,135 @@ static const char *startup_source = "(let-values(((syms_25)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_856)" +"(let-values(((s_854)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" -" define-values576_0" -" _577_0" -" _578_0)" -"(let-values(((s_857)" +" define-values578_0" +" _579_0" +" _580_0)" +"(let-values(((s_855)" "(syntax-disarm$1" -" s_856)))" +" s_854)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" +" s_855))" +"(let-values(((define-values578_1" +" _579_1" +" _580_1)" +"(let-values(((s_856)" +"(if(syntax?$1" +" s_855)" +"(syntax-e$1" +" s_855)" +" s_855)))" +"(if(pair?" +" s_856)" +"(let-values(((define-values581_0)" +"(let-values(((s_857)" +"(car" +" s_856)))" " s_857))" -"(let-values(((define-values576_1" -" _577_1" -" _578_1)" +"((_582_0" +" _583_0)" "(let-values(((s_858)" -"(if(syntax?$1" -" s_857)" -"(syntax-e$1" -" s_857)" -" s_857)))" -"(if(pair?" -" s_858)" -"(let-values(((define-values579_0)" +"(cdr" +" s_856)))" "(let-values(((s_859)" -"(car" -" s_858)))" -" s_859))" -"((_580_0" -" _581_0)" -"(let-values(((s_860)" -"(cdr" -" s_858)))" -"(let-values(((s_861)" "(if(syntax?$1" -" s_860)" +" s_858)" "(syntax-e$1" -" s_860)" -" s_860)))" +" s_858)" +" s_858)))" "(if(pair?" -" s_861)" -"(let-values(((_582_0)" -"(let-values(((s_862)" -"(car" -" s_861)))" -" s_862))" -"((_583_0)" -"(let-values(((s_863)" -"(cdr" -" s_861)))" -"(let-values(((s_864)" -"(if(syntax?$1" -" s_863)" -"(syntax-e$1" -" s_863)" -" s_863)))" -"(if(pair?" -" s_864)" +" s_859)" "(let-values(((_584_0)" -"(let-values(((s_865)" +"(let-values(((s_860)" "(car" -" s_864)))" -" s_865))" -"(()" -"(let-values(((s_866)" +" s_859)))" +" s_860))" +"((_585_0)" +"(let-values(((s_861)" "(cdr" -" s_864)))" -"(let-values(((s_867)" +" s_859)))" +"(let-values(((s_862)" "(if(syntax?$1" -" s_866)" +" s_861)" "(syntax-e$1" -" s_866)" -" s_866)))" +" s_861)" +" s_861)))" +"(if(pair?" +" s_862)" +"(let-values(((_586_0)" +"(let-values(((s_863)" +"(car" +" s_862)))" +" s_863))" +"(()" +"(let-values(((s_864)" +"(cdr" +" s_862)))" +"(let-values(((s_865)" +"(if(syntax?$1" +" s_864)" +"(syntax-e$1" +" s_864)" +" s_864)))" "(if(null?" -" s_867)" +" s_865)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _584_0))" +" _586_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _582_0" -" _583_0))" +" _584_0" +" _585_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" define-values579_0" -" _580_0" -" _581_0))" +" define-values581_0" +" _582_0" +" _583_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91)))))" "(values" " #t" -" define-values576_1" -" _577_1" -" _578_1)))" +" define-values578_1" +" _579_1" +" _580_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx585_0)" +"(let-values(((rhs-ctx587_0)" " rhs-ctx_2)" -"((s586_0)" -" s_856)" -"((temp587_0)" +"((s588_0)" +" s_854)" +"((temp589_0)" " #t))" "(keep-as-needed119.1" " #f" " #f" -" temp587_0" -" rhs-ctx585_0" -" s586_0))))" +" temp589_0" +" rhs-ctx587_0" +" s588_0))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -75223,17 +75267,17 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp588_0)" +"(let-values(((temp590_0)" "(semi-parsed-define-values-rhs" " body_22))" -"((rhs-ctx589_0)" +"((rhs-ctx591_0)" " rhs-ctx_2))" "(expand9.1" " #f" " #f" " #f" -" temp588_0" -" rhs-ctx589_0)))))" +" temp590_0" +" rhs-ctx591_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -75249,32 +75293,32 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs590_0)" +"(let-values(((exp-rhs592_0)" " exp-rhs_7)" -"((temp591_0)" +"((temp593_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand9.1" " #f" " #f" " #f" -" exp-rhs590_0" -" temp591_0))))))" +" exp-rhs592_0" +" temp593_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s592_0)" +"(let-values(((rebuild-s594_0)" " rebuild-s_15)" -"((temp593_0)" +"((temp595_0)" "(list" -" define-values576_0" +" define-values578_0" " ids_48" " exp-rhs_7)))" "(rebuild5.1" " #t" -" rebuild-s592_0" -" temp593_0))" +" rebuild-s594_0" +" temp595_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" @@ -75282,7 +75326,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_150)))" +" phase_149)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -75292,33 +75336,33 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body594_0)" +"(let-values(((body596_0)" " body_22)" -"((temp595_0)" +"((temp597_0)" "(as-expression-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" body594_0" -" temp595_0))))" +" body596_0" +" temp597_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body596_0)" +"(let-values(((exp-body598_0)" " exp-body_9)" -"((temp597_0)" +"((temp599_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" exp-body596_0" -" temp597_0)))))))))))))))" +" exp-body598_0" +" temp599_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -75339,14 +75383,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_156)" +"(let-values(((obs_157)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_156" +"(if obs_157" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_156" +" obs_157" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -75358,43 +75402,43 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules598_0)" +"(let-values(((lifted-modules600_0)" " lifted-modules_0)" -"((phase599_0) phase_150)" -"((self600_0) self_36)" -"((body-ctx601_0)" +"((phase601_0) phase_149)" +"((self602_0) self_36)" +"((body-ctx603_0)" " body-ctx_7)" -"((mpis-to-reset602_0)" +"((mpis-to-reset604_0)" " mpis-to-reset_2)" -"((declared-submodule-names603_0)" +"((declared-submodule-names605_0)" " declared-submodule-names_5)" -"((compiled-submodules604_0)" +"((compiled-submodules606_0)" " compiled-submodules_3)" -"((modules-being-compiled605_0)" +"((modules-being-compiled607_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules604_0" -" declared-submodule-names603_0" -" modules-being-compiled605_0" -" mpis-to-reset602_0" -" lifted-modules598_0" -" phase599_0" -" self600_0" -" body-ctx601_0))))" +" compiled-submodules606_0" +" declared-submodule-names605_0" +" modules-being-compiled607_0" +" mpis-to-reset604_0" +" lifted-modules600_0" +" phase601_0" +" self602_0" +" body-ctx603_0))))" "(let-values(((exp-lifted-defns_0)" "(loop_125 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_157)" +"(let-values(((obs_158)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_157" +"(if obs_158" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_158" " 'next)))" "(void)))))" "(append" @@ -75411,18 +75455,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_114 requires+provides_9)" +"(lambda(need-eventually-defined_3 self_37 ctx_116 requires+provides_9)" "(begin" "(begin" "(let-values(((ht_162) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_337)" +"((letrec-values(((for-loop_338)" "(lambda(i_189)" "(begin" " 'for-loop" "(if i_189" -"(let-values(((phase_151 l_89)(hash-iterate-key+value ht_162 i_189)))" +"(let-values(((phase_150 l_89)(hash-iterate-key+value ht_162 i_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75430,24 +75474,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_443) l_89))" +"(let-values(((lst_442) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_338)" -"(lambda(lst_444)" +"(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_339)" +"(lambda(lst_443)" "(begin" " 'for-loop" "(if(pair?" -" lst_444)" +" lst_443)" "(let-values(((id_156)" "(unsafe-car" -" lst_444))" -"((rest_263)" +" lst_443))" +"((rest_262)" "(unsafe-cdr" -" lst_444)))" +" lst_443)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75455,18 +75499,18 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_95)" -"(let-values(((id606_0)" +"(let-values(((id608_0)" " id_156)" -"((phase607_0)" -" phase_151))" +"((phase609_0)" +" phase_150))" "(resolve+shift28.1" " #f" " #f" " null" " unsafe-undefined" " #f" -" id606_0" -" phase607_0))))" +" id608_0" +" phase609_0))))" "(let-values(((bound-here?_0)" "(if b_95" "(if(module-binding?" @@ -75489,7 +75533,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_95)" -" phase_151)" +" phase_150)" " #f)))" "(if(eq?" " bound-kind_0" @@ -75513,35 +75557,35 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_67)" -" phase_151))" +" phase_150))" "(if(equal?" " tmp_67" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_151)))))" +" phase_150)))))" " id_156" " #f" " null" "(syntax-debug-info-string" " id_156" -" ctx_114))))))))" +" ctx_116))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_338" -" rest_263)" +"(for-loop_339" +" rest_262)" "(values))))" "(values))))))" -" for-loop_338)" -" lst_443)))" +" for-loop_339)" +" lst_442)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_337(hash-iterate-next ht_162 i_189))(values))))" +"(if(not #f)(for-loop_338(hash-iterate-next ht_162 i_189))(values))))" "(values))))))" -" for-loop_337)" +" for-loop_338)" "(hash-iterate-first ht_162))))" "(void)))))" "(define-values" @@ -75559,93 +75603,93 @@ static const char *startup_source = "(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_152) phase105_0))" +"(let-values(((phase_151) phase105_0))" "(let-values(((self_38) self106_0))" -"(let-values(((ctx_115) ctx107_1))" +"(let-values(((ctx_117) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_126)" -"(lambda(bodys_26 phase_153)" +"(lambda(bodys_26 phase_152)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_406)(parsed?(car bodys_26))))" -"(if or-part_406 or-part_406(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_407)(parsed?(car bodys_26))))" +"(if or-part_407 or-part_407(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_153)))" +"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_152)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_126" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_153))))" +"(add1 phase_152))))" "(cons" -"(let-values(((the-struct_111)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_111)" -"(let-values(((body608_0) nested-bodys_2))" +"(let-values(((the-struct_114)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_114)" +"(let-values(((body610_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_111)" -" body608_0))" +"(semi-parsed-begin-for-syntax-s the-struct_114)" +" body610_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_111)))" -"(loop_126(cdr bodys_26) phase_153))))" +" the-struct_114)))" +"(loop_126(cdr bodys_26) phase_152))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_153)))" +"(core-form-sym disarmed-body_1 phase_152)))" "(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_158)" +"(let-values(((obs_159)" "(expand-context-observer" -" ctx_115)))" -"(if obs_158" +" ctx_117)))" +"(if obs_159" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_158" +" obs_159" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_158" +" obs_159" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_88 #%provide609_0 spec610_0)" -"(let-values(((s_868) disarmed-body_1))" -"(let-values(((orig-s_92) s_868))" -"(let-values(((#%provide609_1" -" spec610_1)" +"(let-values(((ok?_88 #%provide611_0 spec612_0)" +"(let-values(((s_866) disarmed-body_1))" +"(let-values(((orig-s_92) s_866))" +"(let-values(((#%provide611_1" +" spec612_1)" +"(let-values(((s_663)" +"(if(syntax?$1" +" s_866)" +"(syntax-e$1" +" s_866)" +" s_866)))" +"(if(pair? s_663)" +"(let-values(((#%provide613_0)" +"(let-values(((s_867)" +"(car" +" s_663)))" +" s_867))" +"((spec614_0)" +"(let-values(((s_868)" +"(cdr" +" s_663)))" "(let-values(((s_869)" "(if(syntax?$1" " s_868)" "(syntax-e$1" " s_868)" " s_868)))" -"(if(pair? s_869)" -"(let-values(((#%provide611_0)" -"(let-values(((s_662)" -"(car" -" s_869)))" -" s_662))" -"((spec612_0)" -"(let-values(((s_870)" -"(cdr" -" s_869)))" -"(let-values(((s_871)" -"(if(syntax?$1" -" s_870)" -"(syntax-e$1" -" s_870)" -" s_870)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_871)))" +" s_869)))" "(if(not" " flat-s_64)" "(let-values()" @@ -75656,158 +75700,158 @@ static const char *startup_source = "(let-values()" " flat-s_64)))))))" "(values" -" #%provide611_0" -" spec612_0))" +" #%provide613_0" +" spec614_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92)))))" "(values" " #t" -" #%provide609_1" -" spec610_1))))))" +" #%provide611_1" +" spec612_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec610_0" +" spec612_0" "(car bodys_26)" " requires+provides_10" " self_38" -" phase_153" -"(let-values(((v_274) ctx_115))" -"(let-values(((the-struct_112)" -" v_274))" +" phase_152" +"(let-values(((v_276) ctx_117))" +"(let-values(((the-struct_115)" +" v_276))" "(if(expand-context/outer?" -" the-struct_112)" -"(let-values(((context613_0)" +" the-struct_115)" +"(let-values(((context615_0)" " 'top-level)" -"((inner614_0)" -"(let-values(((the-struct_113)" +"((inner616_0)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_274)))" +" v_276)))" "(if(expand-context/inner?" -" the-struct_113)" -"(let-values(((phase615_0)" -" phase_153)" -"((namespace616_0)" +" the-struct_116)" +"(let-values(((phase617_0)" +" phase_152)" +"((namespace618_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_153))" -"((requires+provides617_0)" +" phase_152))" +"((requires+provides619_0)" " requires+provides_10)" -"((declared-submodule-names618_0)" +"((declared-submodule-names620_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_113)" -" phase615_0" -" namespace616_0" +" the-struct_116)" +" phase617_0" +" namespace618_0" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-keep-#%expression?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-stops" -" the-struct_113)" -" declared-submodule-names618_0" +" the-struct_116)" +" declared-submodule-names620_0" "(expand-context/inner-lifts" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-module-lifts" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-require-lifts" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-to-module-lifts" -" the-struct_113)" -" requires+provides617_0" +" the-struct_116)" +" requires+provides619_0" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_116)))))" "(expand-context/outer1.1" -" inner614_0" +" inner616_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" +" the-struct_115)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_115)" "(root-expand-context/outer-frame-id" -" the-struct_112)" -" context613_0" +" the-struct_115)" +" context615_0" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-only-immediate?" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-need-eventually-defined" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112)))))))" -"(if(expand-context-to-parsed? ctx_115)" +" the-struct_115)))))))" +"(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_126(cdr bodys_26) phase_153))" +"(loop_126(cdr bodys_26) phase_152))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp619_0)" +"(let-values(((temp621_0)" "(car bodys_26))" -"((temp620_0)" +"((temp622_0)" "(list*" -" #%provide609_0" +" #%provide611_0" " specs_2)))" "(rebuild5.1" " #t" -" temp619_0" -" temp620_0)))))" +" temp621_0" +" temp622_0)))))" "(begin" -"(let-values(((obs_159)" +"(let-values(((obs_160)" "(expand-context-observer" -" ctx_115)))" -"(if obs_159" +" ctx_117)))" +"(if obs_160" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_159" +" obs_160" " 'exit-prim" " new-s_10)))" "(void)))" @@ -75815,14 +75859,14 @@ static const char *startup_source = " new-s_10" "(loop_126" "(cdr bodys_26)" -" phase_153))))))))))" +" phase_152))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_153))))))))))))))" +"(loop_126(cdr bodys_26) phase_152))))))))))))))" " loop_126)" " expression-expanded-bodys_1" -" phase_152)))))))))))))" +" phase_151)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -75846,7 +75890,7 @@ static const char *startup_source = "(let-values(((self_39) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_116) ctx125_0))" +"(let-values(((ctx_118) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -75867,36 +75911,36 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_407) enclosing-self_3))" -"(if or-part_407 or-part_407 self_39)))))" +"(let-values(((or-part_408) enclosing-self_3))" +"(if or-part_408 or-part_408 self_39)))))" "(let-values(((compiled-module_0)" -"(let-values(((parsed-mod621_0) parsed-mod_0)" -"((temp622_0)" -"(let-values(((m-ns626_0) m-ns_22)" -"((enclosing-self627_0) enclosing-self_3)" -"((temp628_0)" +"(let-values(((parsed-mod623_0) parsed-mod_0)" +"((temp624_0)" +"(let-values(((m-ns628_0) m-ns_22)" +"((enclosing-self629_0) enclosing-self_3)" +"((temp630_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp628_0" +" temp630_0" " unsafe-undefined" -" enclosing-self627_0" -" m-ns626_0" +" enclosing-self629_0" +" m-ns628_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp623_0)(expand-context-for-serializable? ctx_116))" -"((modules-being-compiled624_0) modules-being-compiled_6)" -"((temp625_0) #f))" +"((temp625_0)(expand-context-for-serializable? ctx_118))" +"((modules-being-compiled626_0) modules-being-compiled_6)" +"((temp627_0) #f))" "(compile-module13.1" " #f" -" modules-being-compiled624_0" +" modules-being-compiled626_0" +" temp627_0" " temp625_0" -" temp623_0" " #f" -" parsed-mod621_0" -" temp622_0))))" +" parsed-mod623_0" +" temp624_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -75912,24 +75956,24 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((compiled-module629_0) compiled-module_0)((temp630_0) #f))" +"(let-values(((compiled-module631_0) compiled-module_0)((temp632_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp630_0" -" compiled-module629_0)))))))))))))))))))))))))" +" temp632_0" +" compiled-module631_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_872 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_870 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_873)" -"(syntax-property$1 s_872 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_874)" +"(let-values(((s_871)" +"(syntax-property$1 s_870 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_684)" "(syntax-property$1" -" s_873" +" s_871" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_874)))))" +" s_684)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -75948,7 +75992,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_154) phase143_0))" +"(let-values(((phase_153) 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))" @@ -75960,7 +76004,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_27 phase_155)" +"(lambda(bodys_27 phase_154)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -75973,38 +76017,38 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_23)))" -"(let-values(((ok?_89 begin-for-syntax631_0 _632_0)" -"(let-values(((s_694)" +"(let-values(((ok?_89 begin-for-syntax633_0 _634_0)" +"(let-values(((s_696)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_694))" -"(let-values(((begin-for-syntax631_1" -" _632_1)" -"(let-values(((s_696)" +"(let-values(((orig-s_93) s_696))" +"(let-values(((begin-for-syntax633_1" +" _634_1)" +"(let-values(((s_872)" "(if(syntax?$1" -" s_694)" +" s_696)" "(syntax-e$1" -" s_694)" -" s_694)))" -"(if(pair? s_696)" -"(let-values(((begin-for-syntax633_0)" -"(let-values(((s_875)" +" s_696)" +" s_696)))" +"(if(pair? s_872)" +"(let-values(((begin-for-syntax635_0)" +"(let-values(((s_873)" "(car" -" s_696)))" -" s_875))" -"((_634_0)" -"(let-values(((s_876)" +" s_872)))" +" s_873))" +"((_636_0)" +"(let-values(((s_874)" "(cdr" -" s_696)))" -"(let-values(((s_877)" +" s_872)))" +"(let-values(((s_875)" "(if(syntax?$1" -" s_876)" +" s_874)" "(syntax-e$1" -" s_876)" -" s_876)))" +" s_874)" +" s_874)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_877)))" +" s_875)))" "(if(not" " flat-s_65)" "(let-values()" @@ -76015,32 +76059,32 @@ static const char *startup_source = "(let-values()" " flat-s_65)))))))" "(values" -" begin-for-syntax633_0" -" _634_0))" +" begin-for-syntax635_0" +" _636_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93)))))" "(values" " #t" -" begin-for-syntax631_1" -" _632_1))))))" +" begin-for-syntax633_1" +" _634_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx635_0)" +"(let-values(((submod-ctx637_0)" " submod-ctx_1)" -"((body-s636_0)" +"((body-s638_0)" " body-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" submod-ctx635_0" -" body-s636_0))))" +" submod-ctx637_0" +" body-s638_0))))" "(let-values(((nested-bodys_3)" "(loop_127" "(semi-parsed-begin-for-syntax-body" " body_23)" -"(add1 phase_155))))" +"(add1 phase_154))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76050,32 +76094,32 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s637_0)" +"(let-values(((rebuild-body-s639_0)" " rebuild-body-s_0)" -"((temp638_0)" +"((temp640_0)" "(list*" -" begin-for-syntax631_0" +" begin-for-syntax633_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #t" -" rebuild-body-s637_0" -" temp638_0))" +" rebuild-body-s639_0" +" temp640_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_155))))))))" -"(if(let-values(((or-part_408)(parsed? body_23)))" -"(if or-part_408" -" or-part_408" +"(loop_127 rest-bodys_3 phase_154))))))))" +"(if(let-values(((or-part_409)(parsed? body_23)))" +"(if or-part_409" +" or-part_409" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_127 rest-bodys_3 phase_155)))" +"(cons body_23(loop_127 rest-bodys_3 phase_154)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_155)))" +" phase_154)))" "(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" @@ -76088,63 +76132,63 @@ static const char *startup_source = " body_23" " submod-ctx_1)))" "(let-values(((ok?_90" -" module*639_0" -" name640_0" -" _641_0)" -"(let-values(((s_878)" +" module*641_0" +" name642_0" +" _643_0)" +"(let-values(((s_876)" " disarmed-body_2))" -"(if(let-values(((s_879)" +"(if(let-values(((s_703)" +"(if(syntax?$1" +" s_876)" +"(syntax-e$1" +" s_876)" +" s_876)))" +"(if(pair? s_703)" +"(if(let-values(((s_877)" +"(car" +" s_703)))" +" #t)" +"(let-values(((s_878)" +"(cdr" +" s_703)))" +"(let-values(((s_704)" "(if(syntax?$1" " s_878)" "(syntax-e$1" " s_878)" " s_878)))" -"(if(pair? s_879)" -"(if(let-values(((s_701)" +"(if(pair?" +" s_704)" +"(if(let-values(((s_879)" "(car" -" s_879)))" +" s_704)))" " #t)" "(let-values(((s_880)" "(cdr" -" s_879)))" -"(let-values(((s_702)" +" s_704)))" +"(let-values(((s_881)" "(if(syntax?$1" " s_880)" "(syntax-e$1" " s_880)" " s_880)))" "(if(pair?" -" s_702)" -"(if(let-values(((s_881)" +" s_881)" +"(if(let-values(((s_882)" "(car" -" s_702)))" -" #t)" -"(let-values(((s_882)" -"(cdr" -" s_702)))" -"(let-values(((s_703)" +" s_881)))" +"(let-values(((s_883)" "(if(syntax?$1" " s_882)" "(syntax-e$1" " s_882)" " s_882)))" -"(if(pair?" -" s_703)" -"(if(let-values(((s_883)" -"(car" -" s_703)))" -"(let-values(((s_884)" -"(if(syntax?$1" -" s_883)" -"(syntax-e$1" -" s_883)" -" s_883)))" "(eq?" " #f" -" s_884)))" -"(let-values(((s_885)" +" s_883)))" +"(let-values(((s_884)" "(cdr" -" s_703)))" +" s_881)))" " #t)" " #f)" " #f)))" @@ -76153,76 +76197,76 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*639_1" -" name640_1" -" _641_1)" +"(let-values(((module*641_1" +" name642_1" +" _643_1)" +"(let-values(((s_885)" +"(if(syntax?$1" +" s_876)" +"(syntax-e$1" +" s_876)" +" s_876)))" +"(let-values(((module*644_0)" "(let-values(((s_886)" -"(if(syntax?$1" -" s_878)" -"(syntax-e$1" -" s_878)" -" s_878)))" -"(let-values(((module*642_0)" +"(car" +" s_885)))" +" s_886))" +"((name645_0" +" _646_0)" "(let-values(((s_887)" -"(car" -" s_886)))" -" s_887))" -"((name643_0" -" _644_0)" +"(cdr" +" s_885)))" "(let-values(((s_888)" -"(cdr" -" s_886)))" +"(if(syntax?$1" +" s_887)" +"(syntax-e$1" +" s_887)" +" s_887)))" +"(let-values(((name647_0)" "(let-values(((s_889)" -"(if(syntax?$1" -" s_888)" -"(syntax-e$1" -" s_888)" +"(car" " s_888)))" -"(let-values(((name645_0)" +" s_889))" +"((_648_0)" "(let-values(((s_890)" -"(car" -" s_889)))" -" s_890))" -"((_646_0)" +"(cdr" +" s_888)))" "(let-values(((s_891)" -"(cdr" -" s_889)))" -"(let-values(((s_892)" "(if(syntax?$1" -" s_891)" +" s_890)" "(syntax-e$1" -" s_891)" -" s_891)))" +" s_890)" +" s_890)))" "(let-values((()" -"(let-values(((s_893)" +"(let-values(((s_892)" "(car" -" s_892)))" -"(let-values(((s_894)" +" s_891)))" +"(let-values(((s_705)" "(if(syntax?$1" -" s_893)" +" s_892)" "(syntax-e$1" -" s_893)" -" s_893)))" -"(values))))" -"((_647_0)" -"(let-values(((s_895)" -"(cdr" +" s_892)" " s_892)))" -" s_895)))" +"(values))))" +"((_649_0)" +"(let-values(((s_893)" +"(cdr" +" s_891)))" +" s_893)))" "(values" -" _647_0))))))" +" _649_0))))))" "(values" +" name647_0" +" _648_0))))))" +"(values" +" module*644_0" " name645_0" -" _646_0))))))" -"(values" -" module*642_0" -" name643_0" -" _644_0)))))" +" _646_0)))))" "(values" " #t" -" module*639_1" -" name640_1" -" _641_1)))" +" module*641_1" +" name642_1" +" _643_1)))" "(values" " #f" " #f" @@ -76234,49 +76278,49 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_155)))" +" phase_154)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((shifted-s648_0)" +"(let-values(((shifted-s650_0)" " shifted-s_0)" -"((self649_0)" +"((self651_0)" " self_40)" -"((submod-ctx650_0)" +"((submod-ctx652_0)" " submod-ctx_1)" -"((temp651_0)" +"((temp653_0)" " #t)" -"((neg-phase652_0)" +"((neg-phase654_0)" " neg-phase_0)" -"((all-scopes-s653_0)" +"((all-scopes-s655_0)" " all-scopes-s_1)" -"((requires+provides654_0)" +"((requires+provides656_0)" " requires+provides_12)" -"((enclosing-is-cross-phase-persistent?655_0)" +"((enclosing-is-cross-phase-persistent?657_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset656_0)" +"((mpis-to-reset658_0)" " mpis-to-reset_3)" -"((declared-submodule-names657_0)" +"((declared-submodule-names659_0)" " declared-submodule-names_7)" -"((compiled-submodules658_0)" +"((compiled-submodules660_0)" " compiled-submodules_4)" -"((modules-being-compiled659_0)" +"((modules-being-compiled661_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules658_0" -" declared-submodule-names657_0" -" all-scopes-s653_0" -" enclosing-is-cross-phase-persistent?655_0" -" requires+provides654_0" -" temp651_0" -" neg-phase652_0" -" modules-being-compiled659_0" -" mpis-to-reset656_0" -" shifted-s648_0" -" self649_0" -" submod-ctx650_0))))" +" compiled-submodules660_0" +" declared-submodule-names659_0" +" all-scopes-s655_0" +" enclosing-is-cross-phase-persistent?657_0" +" requires+provides656_0" +" temp653_0" +" neg-phase654_0" +" modules-being-compiled661_0" +" mpis-to-reset658_0" +" shifted-s650_0" +" self651_0" +" submod-ctx652_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -76284,147 +76328,147 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_117)" " submod_4))" "(if(expanded+parsed?" -" the-struct_114)" -"(let-values(((s660_0)" +" the-struct_117)" +"(let-values(((s662_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_155)))" +" phase_154)))" "(expanded+parsed1.1" -" s660_0" +" s662_0" "(expanded+parsed-parsed" -" the-struct_114)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_114))))" +" the-struct_117))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_155))))))))" +" phase_154))))))))" "(let-values()" -"(let-values(((ready-body661_0)" +"(let-values(((ready-body663_0)" " ready-body_2)" -"((self662_0)" +"((self664_0)" " self_40)" -"((submod-ctx663_0)" +"((submod-ctx665_0)" " submod-ctx_1)" -"((temp664_0)" +"((temp666_0)" " #t)" -"((mpis-to-reset665_0)" +"((mpis-to-reset667_0)" " mpis-to-reset_3)" -"((declared-submodule-names666_0)" +"((declared-submodule-names668_0)" " declared-submodule-names_7)" -"((compiled-submodules667_0)" +"((compiled-submodules669_0)" " compiled-submodules_4)" -"((modules-being-compiled668_0)" +"((modules-being-compiled670_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules667_0" -" declared-submodule-names666_0" +" compiled-submodules669_0" +" declared-submodule-names668_0" " #f" " #f" " #f" -" temp664_0" +" temp666_0" " #f" -" modules-being-compiled668_0" -" mpis-to-reset665_0" -" ready-body661_0" -" self662_0" -" submod-ctx663_0))))))" +" modules-being-compiled670_0" +" mpis-to-reset667_0" +" ready-body663_0" +" self664_0" +" submod-ctx665_0))))))" "(cons" " submod_3" "(loop_127" " rest-bodys_3" -" phase_155)))))))" +" phase_154)))))))" "(let-values()" "(cons" " body_23" "(loop_127" " rest-bodys_3" -" phase_155)))))))))))))))))" +" phase_154)))))))))))))))))" " loop_127)" " fully-expanded-bodys-except-post-submodules_2" -" phase_154)))))))))))))))))" +" phase_153)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_117)" +"(lambda(ctx_119)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_117)" -"(expand-context-phase ctx_117)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_117))))))" +"(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_1 requires+provides172_0)" +"(lambda(in168_0 ids170_0 phase171_0 requires+provides172_0)" "(begin" " 'check-ids-unbound173" "(let-values(((ids_49) ids170_0))" -"(let-values(((phase_156) phase171_1))" +"(let-values(((phase_155) phase171_0))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_896) in168_0))" +"(let-values(((s_894) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_445) ids_49))" +"(let-values(((lst_444) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_339)" -"(lambda(lst_446)" +"(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((id_157)(unsafe-car lst_446))" -"((rest_264)(unsafe-cdr lst_446)))" +"(if(pair? lst_445)" +"(let-values(((id_125)(unsafe-car lst_445))" +"((rest_263)(unsafe-cdr lst_445)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((requires+provides669_0)" +"(let-values(((requires+provides671_0)" " requires+provides_13)" -"((id670_0) id_157)" -"((phase671_0)" -" phase_156)" -"((s672_0) s_896)" -"((temp673_0) 'module))" +"((id672_0) id_125)" +"((phase673_0)" +" phase_155)" +"((s674_0) s_894)" +"((temp675_0) 'module))" "(check-not-defined95.1" " #f" " #f" " #f" -" s672_0" +" s674_0" " #f" " #f" -" temp673_0" -" requires+provides669_0" -" id670_0" -" phase671_0)))" +" temp675_0" +" requires+provides671_0" +" id672_0" +" phase673_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_339 rest_264)(values))))" +"(if(not #f)(for-loop_340 rest_263)(values))))" "(values))))))" -" for-loop_339)" -" lst_445)))" +" for-loop_340)" +" lst_444)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_118)" +"(lambda(bodys_28 phase_156 m-ns_23 self_41 ctx_120)" "(begin" "(begin" -"(let-values(((lst_447) bodys_28))" +"(let-values(((lst_446) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_340)" -"(lambda(lst_448)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" +"((letrec-values(((for-loop_341)" +"(lambda(lst_447)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((body_24)(unsafe-car lst_448))((rest_265)(unsafe-cdr lst_448)))" +"(if(pair? lst_447)" +"(let-values(((body_24)(unsafe-car lst_447))((rest_264)(unsafe-cdr lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76447,63 +76491,63 @@ static const char *startup_source = " ids_50" "(parsed-define-values-rhs" " p_87)" -" phase_157" +" phase_156" " m-ns_23" -" ctx_118)))" +" ctx_120)))" "(begin" -"(let-values(((lst_449) ids_50)" -"((lst_450)" +"(let-values(((lst_448) ids_50)" +"((lst_449)" "(parsed-define-values-syms" " p_87))" -"((lst_451) vals_11))" +"((lst_450) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_448)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_449)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_450)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_451)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_452" -" lst_453" -" lst_454)" +"((letrec-values(((for-loop_342)" +"(lambda(lst_451" +" lst_452" +" lst_453)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_452)" +" lst_451)" "(if(pair?" -" lst_453)" +" lst_452)" "(pair?" -" lst_454)" +" lst_453)" " #f)" " #f)" -"(let-values(((id_158)" +"(let-values(((id_157)" +"(unsafe-car" +" lst_451))" +"((rest_265)" +"(unsafe-cdr" +" lst_451))" +"((sym_110)" "(unsafe-car" " lst_452))" "((rest_266)" "(unsafe-cdr" " lst_452))" -"((sym_110)" +"((val_88)" "(unsafe-car" " lst_453))" "((rest_267)" "(unsafe-cdr" -" lst_453))" -"((val_88)" -"(unsafe-car" -" lst_454))" -"((rest_268)" -"(unsafe-cdr" -" lst_454)))" +" lst_453)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76512,37 +76556,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_157" +" phase_156" " sym_110" " val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_341" +"(for-loop_342" +" rest_265" " rest_266" -" rest_267" -" rest_268)" +" rest_267)" "(values))))" "(values))))))" -" for-loop_341)" +" for-loop_342)" +" lst_448" " lst_449" -" lst_450" -" lst_451)))" +" lst_450)))" "(void)))))" -"(if(let-values(((or-part_409)" -"(parsed-define-syntaxes?" -" p_87)))" -"(if or-part_409" -" or-part_409" -"(semi-parsed-begin-for-syntax?" -" p_87)))" -"(let-values()(void))" "(if(let-values(((or-part_410)" -"(parsed-#%declare?" +"(parsed-define-syntaxes?" " p_87)))" "(if or-part_410" " or-part_410" +"(semi-parsed-begin-for-syntax?" +" p_87)))" +"(let-values()(void))" +"(if(let-values(((or-part_411)" +"(parsed-#%declare?" +" p_87)))" +"(if or-part_411" +" or-part_411" "(syntax?$1 p_87)))" "(let-values()(void))" "(let-values()" @@ -76553,31 +76597,31 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_118" +" ctx_120" " 1/current-namespace" " m-ns_23)" "(let-values()" "(eval-single-top" "(compile-single" " p_87" -"(let-values(((m-ns674_0)" +"(let-values(((m-ns676_0)" " m-ns_23)" -"((phase675_0)" -" phase_157))" +"((phase677_0)" +" phase_156))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" m-ns674_0" -" phase675_0" +" m-ns676_0" +" phase677_0" " unsafe-undefined)))" " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_265)(values))))" +"(if(not #f)(for-loop_341 rest_264)(values))))" "(values))))))" -" for-loop_340)" -" lst_447)))" +" for-loop_341)" +" lst_446)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76595,9 +76639,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_897) s194_0))" +"(let-values(((s_730) s194_0))" "(let-values(((self_42) self195_0))" -"(let-values(((ctx_119) ctx196_0))" +"(let-values(((ctx_121) 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))" @@ -76613,59 +76657,59 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_160)(expand-context-observer ctx_119)))" -"(if obs_160" +"(let-values(((obs_161)(expand-context-observer ctx_121)))" +"(if obs_161" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_160 'enter-prim s_897)" +"(call-expand-observe obs_161 'enter-prim s_730)" "(call-expand-observe" -" obs_160" +" obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_91 module676_0 name677_0 _678_0)" -"(let-values(((s_752) s_897))" -"(let-values(((orig-s_94) s_752))" -"(let-values(((module676_1 name677_1 _678_1)" +"(let-values(((ok?_91 module678_0 name679_0 _680_0)" +"(let-values(((s_756) s_730))" +"(let-values(((orig-s_94) s_756))" +"(let-values(((module678_1 name679_1 _680_1)" +"(let-values(((s_895)" +"(if(syntax?$1 s_756)" +"(syntax-e$1 s_756)" +" s_756)))" +"(if(pair? s_895)" +"(let-values(((module681_0)" +"(let-values(((s_896)(car s_895)))" +" s_896))" +"((name682_0 _683_0)" +"(let-values(((s_897)(cdr s_895)))" "(let-values(((s_898)" -"(if(syntax?$1 s_752)" -"(syntax-e$1 s_752)" -" s_752)))" -"(if(pair? s_898)" -"(let-values(((module679_0)" -"(let-values(((s_757)(car s_898)))" -" s_757))" -"((name680_0 _681_0)" -"(let-values(((s_758)(cdr s_898)))" -"(let-values(((s_759)" "(if(syntax?$1" -" s_758)" -"(syntax-e$1 s_758)" -" s_758)))" -"(if(pair? s_759)" -"(let-values(((name682_0)" +" s_897)" +"(syntax-e$1 s_897)" +" s_897)))" +"(if(pair? s_898)" +"(let-values(((name684_0)" "(let-values(((s_899)" "(car" -" s_759)))" +" s_898)))" " s_899))" -"((_683_0)" +"((_685_0)" "(let-values(((s_900)" "(cdr" -" s_759)))" +" s_898)))" " s_900)))" -"(values name682_0 _683_0))" +"(values name684_0 _685_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94))))))" -"(values module679_0 name680_0 _681_0))" +"(values module681_0 name682_0 _683_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94)))))" -"(values #t module676_1 name677_1 _678_1))))))" -"(let-values(((name_82)(syntax-e$1 name677_0)))" +"(values #t module678_1 name679_1 _680_1))))))" +"(let-values(((name_82)(syntax-e$1 name679_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_82 #f)" @@ -76673,7 +76717,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_897" +" s_730" " name_82))" "(void))" "(values))))" @@ -76682,195 +76726,195 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_82" -"(syntax-e$1 module676_0))" +"(syntax-e$1 module678_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_161)(expand-context-observer ctx_119)))" -"(if obs_161" -"(let-values()" -"(let-values()" -"(call-expand-observe obs_161 'enter-prim s_897)))" -"(void)))" -"(values))))" -"(let-values(((submod_5)" -"(let-values(((s684_0) s_897)" -"((temp685_0)" -"(let-values(((v_275) ctx_119))" -"(let-values(((the-struct_115) v_275))" -"(if(expand-context/outer? the-struct_115)" -"(let-values(((context694_0) 'module)" -"((post-expansion-scope695_0)" -" #f)" -"((inner696_0)" -"(let-values(((the-struct_116)" -"(root-expand-context/outer-inner" -" v_275)))" -"(if(expand-context/inner?" -" the-struct_116)" -"(let-values(((stops697_0)" -" empty-free-id-set))" -"(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi" -" the-struct_116)" -"(root-expand-context/inner-module-scopes" -" the-struct_116)" -"(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" -"(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" -"(root-expand-context/inner-defined-syms" -" the-struct_116)" -"(root-expand-context/inner-counter" -" the-struct_116)" -"(root-expand-context/inner-lift-key" -" the-struct_116)" -"(expand-context/inner-to-parsed?" -" the-struct_116)" -"(expand-context/inner-phase" -" the-struct_116)" -"(expand-context/inner-namespace" -" the-struct_116)" -"(expand-context/inner-just-once?" -" the-struct_116)" -"(expand-context/inner-module-begin-k" -" the-struct_116)" -"(expand-context/inner-allow-unbound?" -" the-struct_116)" -"(expand-context/inner-in-local-expand?" -" the-struct_116)" -"(expand-context/inner-keep-#%expression?" -" the-struct_116)" -" stops697_0" -"(expand-context/inner-declared-submodule-names" -" the-struct_116)" -"(expand-context/inner-lifts" -" the-struct_116)" -"(expand-context/inner-lift-envs" -" the-struct_116)" -"(expand-context/inner-module-lifts" -" the-struct_116)" -"(expand-context/inner-require-lifts" -" the-struct_116)" -"(expand-context/inner-to-module-lifts" -" the-struct_116)" -"(expand-context/inner-requires+provides" -" the-struct_116)" -"(expand-context/inner-observer" -" the-struct_116)" -"(expand-context/inner-for-serializable?" -" the-struct_116)" -"(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_116)))))" -"(expand-context/outer1.1" -" inner696_0" -" post-expansion-scope695_0" -"(root-expand-context/outer-use-site-scopes" -" the-struct_115)" -"(root-expand-context/outer-frame-id" -" the-struct_115)" -" context694_0" -"(expand-context/outer-env" -" the-struct_115)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" -"(expand-context/outer-scopes" -" the-struct_115)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_115)" -"(expand-context/outer-binding-layer" -" the-struct_115)" -"(expand-context/outer-reference-records" -" the-struct_115)" -"(expand-context/outer-only-immediate?" -" the-struct_115)" -"(expand-context/outer-need-eventually-defined" -" the-struct_115)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_115)" -"(expand-context/outer-name" -" the-struct_115)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_115)))))" -"((self686_0) self_42)" -"((temp687_0) #t)" -"((keep-enclosing-scope-at-phase688_0)" -" keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx689_0)" -" enclosing-all-scopes-stx_1)" -"((enclosing-r+p690_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?691_0)" -" enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset692_0) mpis-to-reset_4)" -"((modules-being-compiled693_0)" -" modules-being-compiled_8))" -"(expand-module18.1" -" temp687_0" -" enclosing-all-scopes-stx689_0" -" enclosing-is-cross-phase-persistent?691_0" -" enclosing-r+p690_0" -" keep-enclosing-scope-at-phase688_0" -" modules-being-compiled693_0" -" mpis-to-reset692_0" -" s684_0" -" temp685_0" -" self686_0))))" -"(let-values((()" -"(begin" -"(let-values(((obs_162)" -"(expand-context-observer ctx_119)))" +"(let-values(((obs_162)(expand-context-observer ctx_121)))" "(if obs_162" "(let-values()" "(let-values()" +"(call-expand-observe obs_162 'enter-prim s_730)))" +"(void)))" +"(values))))" +"(let-values(((submod_5)" +"(let-values(((s686_0) s_730)" +"((temp687_0)" +"(let-values(((v_277) ctx_121))" +"(let-values(((the-struct_118) v_277))" +"(if(expand-context/outer? the-struct_118)" +"(let-values(((context696_0) 'module)" +"((post-expansion-scope697_0)" +" #f)" +"((inner698_0)" +"(let-values(((the-struct_119)" +"(root-expand-context/outer-inner" +" v_277)))" +"(if(expand-context/inner?" +" the-struct_119)" +"(let-values(((stops699_0)" +" empty-free-id-set))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_119)" +"(root-expand-context/inner-module-scopes" +" the-struct_119)" +"(root-expand-context/inner-top-level-bind-scope" +" the-struct_119)" +"(root-expand-context/inner-all-scopes-stx" +" the-struct_119)" +"(root-expand-context/inner-defined-syms" +" the-struct_119)" +"(root-expand-context/inner-counter" +" the-struct_119)" +"(root-expand-context/inner-lift-key" +" the-struct_119)" +"(expand-context/inner-to-parsed?" +" the-struct_119)" +"(expand-context/inner-phase" +" the-struct_119)" +"(expand-context/inner-namespace" +" the-struct_119)" +"(expand-context/inner-just-once?" +" the-struct_119)" +"(expand-context/inner-module-begin-k" +" the-struct_119)" +"(expand-context/inner-allow-unbound?" +" the-struct_119)" +"(expand-context/inner-in-local-expand?" +" the-struct_119)" +"(expand-context/inner-keep-#%expression?" +" the-struct_119)" +" stops699_0" +"(expand-context/inner-declared-submodule-names" +" the-struct_119)" +"(expand-context/inner-lifts" +" the-struct_119)" +"(expand-context/inner-lift-envs" +" the-struct_119)" +"(expand-context/inner-module-lifts" +" the-struct_119)" +"(expand-context/inner-require-lifts" +" the-struct_119)" +"(expand-context/inner-to-module-lifts" +" the-struct_119)" +"(expand-context/inner-requires+provides" +" the-struct_119)" +"(expand-context/inner-observer" +" the-struct_119)" +"(expand-context/inner-for-serializable?" +" the-struct_119)" +"(expand-context/inner-should-not-encounter-macros?" +" the-struct_119)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_119)))))" +"(expand-context/outer1.1" +" inner698_0" +" post-expansion-scope697_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_118)" +"(root-expand-context/outer-frame-id" +" the-struct_118)" +" context696_0" +"(expand-context/outer-env" +" the-struct_118)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_118)" +"(expand-context/outer-scopes" +" the-struct_118)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_118)" +"(expand-context/outer-binding-layer" +" the-struct_118)" +"(expand-context/outer-reference-records" +" the-struct_118)" +"(expand-context/outer-only-immediate?" +" the-struct_118)" +"(expand-context/outer-need-eventually-defined" +" the-struct_118)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_118)" +"(expand-context/outer-name" +" the-struct_118)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_118)))))" +"((self688_0) self_42)" +"((temp689_0) #t)" +"((keep-enclosing-scope-at-phase690_0)" +" keep-enclosing-scope-at-phase_2)" +"((enclosing-all-scopes-stx691_0)" +" enclosing-all-scopes-stx_1)" +"((enclosing-r+p692_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?693_0)" +" enclosing-is-cross-phase-persistent?_2)" +"((mpis-to-reset694_0) mpis-to-reset_4)" +"((modules-being-compiled695_0)" +" modules-being-compiled_8))" +"(expand-module18.1" +" temp689_0" +" enclosing-all-scopes-stx691_0" +" enclosing-is-cross-phase-persistent?693_0" +" enclosing-r+p692_0" +" keep-enclosing-scope-at-phase690_0" +" modules-being-compiled695_0" +" mpis-to-reset694_0" +" s686_0" +" temp687_0" +" self688_0))))" +"(let-values((()" +"(begin" +"(let-values(((obs_163)" +"(expand-context-observer ctx_121)))" +"(if obs_163" +"(let-values()" +"(let-values()" "(call-expand-observe" -" obs_162" +" obs_163" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_119)))" +"(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(((temp698_0)" +"(let-values(((temp700_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp699_0)" -"(let-values(((ns704_0) ns_131)" -"((self705_0) self_42)" -"((temp706_0)" +"((temp701_0)" +"(let-values(((ns706_0) ns_131)" +"((self707_0) self_42)" +"((temp708_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp706_0" +" temp708_0" " unsafe-undefined" -" self705_0" -" ns704_0" +" self707_0" +" ns706_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp700_0) #t)" -"((temp701_0)" +"((temp702_0) #t)" +"((temp703_0)" "(expand-context-for-serializable?" -" ctx_119))" -"((modules-being-compiled702_0)" +" ctx_121))" +"((modules-being-compiled704_0)" " modules-being-compiled_8)" -"((temp703_0) #f))" +"((temp705_0) #f))" "(compile-module13.1" -" temp700_0" -" modules-being-compiled702_0" +" temp702_0" +" modules-being-compiled704_0" +" temp705_0" " temp703_0" -" temp701_0" " #f" -" temp698_0" -" temp699_0))))" +" temp700_0" +" temp701_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -76885,24 +76929,24 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((compiled-submodule707_0)" +"(let-values(((compiled-submodule709_0)" " compiled-submodule_0)" -"((temp708_0) #f))" +"((temp710_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp708_0" -" compiled-submodule707_0))))" +" temp710_0" +" compiled-submodule709_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_163)" -"(expand-context-observer ctx_119)))" -"(if obs_163" +"(let-values(((obs_164)" +"(expand-context-observer ctx_121)))" +"(if obs_164" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_163" +" obs_164" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -76910,67 +76954,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_117) submod_5))" -"(if(expanded+parsed? the-struct_117)" -"(let-values(((parsed709_0)" -"(let-values(((the-struct_118)" +"(let-values(((the-struct_120) submod_5))" +"(if(expanded+parsed? the-struct_120)" +"(let-values(((parsed711_0)" +"(let-values(((the-struct_121)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_118)" -"(let-values(((star?710_0) #t))" +"(if(parsed-module? the-struct_121)" +"(let-values(((star?712_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_118)" -" star?710_0" +"(parsed-s the-struct_121)" +" star?712_0" "(parsed-module-name-id" -" the-struct_118)" +" the-struct_121)" "(parsed-module-self" -" the-struct_118)" +" the-struct_121)" "(parsed-module-requires" -" the-struct_118)" +" the-struct_121)" "(parsed-module-provides" -" the-struct_118)" +" the-struct_121)" "(parsed-module-root-ctx-simple?" -" the-struct_118)" +" the-struct_121)" "(parsed-module-encoded-root-ctx" -" the-struct_118)" +" the-struct_121)" "(parsed-module-body" -" the-struct_118)" +" the-struct_121)" "(parsed-module-compiled-module" -" the-struct_118)" +" the-struct_121)" "(parsed-module-compiled-submodules" -" the-struct_118)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_118)))))" +" the-struct_121)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_117)" -" parsed709_0))" +"(expanded+parsed-s the-struct_120)" +" parsed711_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_117))))" +" the-struct_120))))" "(let-values()" -"(let-values(((the-struct_119) submod_5))" -"(if(parsed-module? the-struct_119)" -"(let-values(((star?711_0) #t))" +"(let-values(((the-struct_122) submod_5))" +"(if(parsed-module? the-struct_122)" +"(let-values(((star?713_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_119)" -" star?711_0" -"(parsed-module-name-id the-struct_119)" -"(parsed-module-self the-struct_119)" -"(parsed-module-requires the-struct_119)" -"(parsed-module-provides the-struct_119)" -"(parsed-module-root-ctx-simple? the-struct_119)" -"(parsed-module-encoded-root-ctx the-struct_119)" -"(parsed-module-body the-struct_119)" -"(parsed-module-compiled-module the-struct_119)" +"(parsed-s the-struct_122)" +" star?713_0" +"(parsed-module-name-id the-struct_122)" +"(parsed-module-self the-struct_122)" +"(parsed-module-requires the-struct_122)" +"(parsed-module-provides the-struct_122)" +"(parsed-module-root-ctx-simple? the-struct_122)" +"(parsed-module-encoded-root-ctx the-struct_122)" +"(parsed-module-body the-struct_122)" +"(parsed-module-compiled-module the-struct_122)" "(parsed-module-compiled-submodules" -" the-struct_119)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_119)))))))))))))))))))))))))))))))))))" +" the-struct_122)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -76984,30 +77028,30 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_158) phase209_0))" +"(let-values(((phase_157) phase209_0))" "(let-values(((self_43) self210_0))" -"(let-values(((ctx_120) ctx211_0))" +"(let-values(((ctx_122) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_455) bodys_29))" +"(let-values(((lst_454) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_455)))" -"((letrec-values(((for-loop_342)" -"(lambda(fold-var_383 lst_456)" +"(let-values()(check-list lst_454)))" +"((letrec-values(((for-loop_343)" +"(lambda(fold-var_384 lst_455)" "(begin" " 'for-loop" -"(if(pair? lst_456)" -"(let-values(((body_25)(unsafe-car lst_456))" -"((rest_269)(unsafe-cdr lst_456)))" -"(let-values(((fold-var_384)" -"(let-values(((fold-var_385) fold-var_383))" -"(let-values(((fold-var_386)" +"(if(pair? lst_455)" +"(let-values(((body_25)(unsafe-car lst_455))" +"((rest_268)(unsafe-cdr lst_455)))" +"(let-values(((fold-var_385)" +"(let-values(((fold-var_386) fold-var_384))" +"(let-values(((fold-var_387)" "(let-values()" "(cons" "(let-values()" @@ -77015,48 +77059,48 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_25)" -" phase_158)))" +" phase_157)))" "(if(equal? tmp_70 'module)" "(let-values()" -"(let-values(((body712_0)" +"(let-values(((body714_0)" " body_25)" -"((self713_0)" +"((self715_0)" " self_43)" -"((ctx714_0)" -" ctx_120)" -"((temp715_0)" +"((ctx716_0)" +" ctx_122)" +"((temp717_0)" " #f)" -"((mpis-to-reset716_0)" +"((mpis-to-reset718_0)" " mpis-to-reset_5)" -"((declared-submodule-names717_0)" +"((declared-submodule-names719_0)" " declared-submodule-names_9)" -"((compiled-submodules718_0)" +"((compiled-submodules720_0)" " compiled-submodules_6)" -"((modules-being-compiled719_0)" +"((modules-being-compiled721_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules718_0" -" declared-submodule-names717_0" +" compiled-submodules720_0" +" declared-submodule-names719_0" " #f" " #f" " #f" -" temp715_0" +" temp717_0" " #f" -" modules-being-compiled719_0" -" mpis-to-reset716_0" -" body712_0" -" self713_0" -" ctx714_0)))" +" modules-being-compiled721_0" +" mpis-to-reset718_0" +" body714_0" +" self715_0" +" ctx716_0)))" "(let-values() body_25))))" -" fold-var_385))))" -"(values fold-var_386)))))" +" fold-var_386))))" +"(values fold-var_387)))))" "(if(not #f)" -"(for-loop_342 fold-var_384 rest_269)" -" fold-var_384)))" -" fold-var_383)))))" -" for-loop_342)" +"(for-loop_343 fold-var_385 rest_268)" +" fold-var_385)))" +" fold-var_384)))))" +" for-loop_343)" " null" -" lst_455))))))))))))))))" +" lst_454))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77067,24 +77111,24 @@ static const char *startup_source = "(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_901 phase_159)" -"(let-values(((ok?_92 #%require720_0 req721_0)" +"(lambda(s_901 phase_158)" +"(let-values(((ok?_92 #%require722_0 req723_0)" "(let-values(((s_902)(syntax-disarm$1 s_901)))" "(let-values(((orig-s_95) s_902))" -"(let-values(((#%require720_1 req721_1)" +"(let-values(((#%require722_1 req723_1)" "(let-values(((s_903)" "(if(syntax?$1 s_902)(syntax-e$1 s_902) s_902)))" "(if(pair? s_903)" -"(let-values(((#%require722_0)" +"(let-values(((#%require724_0)" "(let-values(((s_904)(car s_903))) s_904))" -"((req723_0)" +"((req725_0)" "(let-values(((s_905)(cdr s_903)))" "(let-values(((s_906)" "(if(syntax?$1 s_905)" "(syntax-e$1 s_905)" " s_905)))" "(if(pair? s_906)" -"(let-values(((req724_0)" +"(let-values(((req726_0)" "(let-values(((s_907)" "(car s_906)))" " s_907))" @@ -77103,39 +77147,39 @@ static const char *startup_source = " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values req724_0))" +"(values req726_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values #%require722_0 req723_0))" +"(values #%require724_0 req725_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t #%require720_1 req721_1))))))" -"(let-values(((temp725_0)(list req721_0))" -"((s726_0) s_901)" -"((self727_0) self_44)" -"((m-ns728_0) m-ns_24)" -"((phase729_0) phase_159)" -"((phase730_0) phase_159)" -"((requires+provides731_0) requires+provides_14)" -"((declared-submodule-names732_0) declared-submodule-names_10)" -"((temp733_0) 'require))" +"(values #t #%require722_1 req723_1))))))" +"(let-values(((temp727_0)(list req723_0))" +"((s728_0) s_901)" +"((self729_0) self_44)" +"((m-ns730_0) m-ns_24)" +"((phase731_0) phase_158)" +"((phase732_0) phase_158)" +"((requires+provides733_0) requires+provides_14)" +"((declared-submodule-names734_0) declared-submodule-names_10)" +"((temp735_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names732_0" +" declared-submodule-names734_0" " #f" -" phase730_0" +" phase732_0" " #f" -" self727_0" +" self729_0" " #f" " #t" -" temp733_0" -" temp725_0" -" s726_0" -" m-ns728_0" -" phase729_0" -" requires+provides731_0))))))))))))" +" temp735_0" +" temp727_0" +" s728_0" +" m-ns730_0" +" phase731_0" +" requires+provides733_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -77149,57 +77193,57 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_457) lifted-defns_2))" +"(let-values(((lst_456) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_343)" -"(lambda(fold-var_387 lst_458)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_388 lst_457)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((lifted-defn_0)(unsafe-car lst_458))" -"((rest_270)(unsafe-cdr lst_458)))" -"(let-values(((fold-var_388)" -"(let-values(((fold-var_389) fold-var_387))" -"(let-values(((fold-var_390)" +"(if(pair? lst_457)" +"(let-values(((lifted-defn_0)(unsafe-car lst_457))" +"((rest_269)(unsafe-cdr lst_457)))" +"(let-values(((fold-var_389)" +"(let-values(((fold-var_390) fold-var_388))" +"(let-values(((fold-var_391)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_389))))" -"(values fold-var_390)))))" -"(if(not #f)(for-loop_343 fold-var_388 rest_270) fold-var_388)))" -" fold-var_387)))))" -" for-loop_343)" +" fold-var_390))))" +"(values fold-var_391)))))" +"(if(not #f)(for-loop_344 fold-var_389 rest_269) fold-var_389)))" +" fold-var_388)))))" +" for-loop_344)" " null" -" lst_457)))))))" +" lst_456)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_164)(expand-context-observer partial-body-ctx_2)))" -"(if obs_164" +"(let-values(((obs_165)(expand-context-observer partial-body-ctx_2)))" +"(if obs_165" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_164 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_165 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_164 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_459) s-lifted-defns_0))" +"(let-values(((lst_458) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_460)" +"(let-values()(check-list lst_458)))" +"((letrec-values(((for-loop_345)" +"(lambda(lst_459)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_460))" -"((rest_271)(unsafe-cdr lst_460)))" +"(if(pair? lst_459)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" +"((rest_270)(unsafe-cdr lst_459)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77207,14 +77251,14 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((ok?_93" -" define-values738_0" -" _739_0)" +" define-values740_0" +" _741_0)" "(let-values(((s_910)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" " s_910))" -"(let-values(((define-values738_1" -" _739_1)" +"(let-values(((define-values740_1" +" _741_1)" "(let-values(((s_911)" "(if(syntax?$1" " s_910)" @@ -77223,12 +77267,12 @@ static const char *startup_source = " s_910)))" "(if(pair?" " s_911)" -"(let-values(((define-values740_0)" +"(let-values(((define-values742_0)" "(let-values(((s_912)" "(car" " s_911)))" " s_912))" -"((_741_0)" +"((_743_0)" "(let-values(((s_913)" "(cdr" " s_911)))" @@ -77251,106 +77295,106 @@ static const char *startup_source = "(let-values()" " flat-s_66)))))))" "(values" -" define-values740_0" -" _741_0))" +" define-values742_0" +" _743_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_96)))))" "(values" " #t" -" define-values738_1" -" _739_1))))))" +" define-values740_1" +" _741_1))))))" "(begin" "(call-expand-observe" -" obs_164" +" obs_165" " 'next)" "(call-expand-observe" -" obs_164" +" obs_165" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'resolve" -" define-values738_0)" +" define-values740_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'prim-stop)" "(call-expand-observe" -" obs_164" +" obs_165" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_164" +" obs_165" " 'prim-define-values)" "(call-expand-observe" -" obs_164" +" obs_165" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_344 rest_271)(values))))" +"(if(not #f)(for-loop_345 rest_270)(values))))" "(values))))))" -" for-loop_344)" -" lst_459)))" +" for-loop_345)" +" lst_458)))" "(values))))" "(let-values()" -"(let-values(((ok?_94 form-id734_0 _735_0)" +"(let-values(((ok?_94 form-id736_0 _737_0)" "(let-values(((s_915) exp-body_10))" "(let-values(((orig-s_97) s_915))" -"(let-values(((form-id734_1 _735_1)" +"(let-values(((form-id736_1 _737_1)" "(let-values(((s_916)" "(if(syntax?$1 s_915)(syntax-e$1 s_915) s_915)))" "(if(pair? s_916)" -"(let-values(((form-id736_0)" +"(let-values(((form-id738_0)" "(let-values(((s_917)(car s_916))) s_917))" -"((_737_0)" +"((_739_0)" "(let-values(((s_918)(cdr s_916))) s_918)))" -"(values form-id736_0 _737_0))" +"(values form-id738_0 _739_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" -"(values #t form-id734_1 _735_1))))))" +"(values #t form-id736_1 _737_1))))))" "(begin" -"(call-expand-observe obs_164 'next)" -"(call-expand-observe obs_164 'visit exp-body_10)" -"(call-expand-observe obs_164 'resolve form-id734_0)" -"(call-expand-observe obs_164 'enter-prim exp-body_10)" -"(call-expand-observe obs_164 'prim-stop)" -"(call-expand-observe obs_164 'exit-prim exp-body_10)" -"(call-expand-observe obs_164 'return exp-body_10)))))))))" +"(call-expand-observe obs_165 'next)" +"(call-expand-observe obs_165 'visit exp-body_10)" +"(call-expand-observe obs_165 'resolve form-id736_0)" +"(call-expand-observe obs_165 'enter-prim exp-body_10)" +"(call-expand-observe obs_165 'prim-stop)" +"(call-expand-observe obs_165 'exit-prim exp-body_10)" +"(call-expand-observe obs_165 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_121 defn_1)" +"(lambda(ctx_123 defn_1)" "(begin" -"(let-values(((obs_165)(expand-context-observer ctx_121)))" -"(if obs_165" +"(let-values(((obs_166)(expand-context-observer ctx_123)))" +"(if obs_166" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_95 define-values742_0 _743_0)" +"(let-values(((ok?_95 define-values744_0 _745_0)" "(let-values(((s_919) s-defn_0))" "(let-values(((orig-s_98) s_919))" -"(let-values(((define-values742_1 _743_1)" +"(let-values(((define-values744_1 _745_1)" "(let-values(((s_920)(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" "(if(pair? s_920)" -"(let-values(((define-values744_0)" +"(let-values(((define-values746_0)" "(let-values(((s_921)(car s_920))) s_921))" -"((_745_0)" +"((_747_0)" "(let-values(((s_922)(cdr s_920)))" "(let-values(((s_923)" "(if(syntax?$1 s_922)" @@ -77364,34 +77408,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_98))" "(let-values() flat-s_67)))))))" -"(values define-values744_0 _745_0))" +"(values define-values746_0 _747_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t define-values742_1 _743_1))))))" +"(values #t define-values744_1 _745_1))))))" "(begin" -"(call-expand-observe obs_165 'visit s-defn_0)" -"(call-expand-observe obs_165 'resolve define-values742_0)" -"(call-expand-observe obs_165 'enter-prim s-defn_0)" -"(call-expand-observe obs_165 'prim-define-values)))))" +"(call-expand-observe obs_166 'visit s-defn_0)" +"(call-expand-observe obs_166 'resolve define-values744_0)" +"(call-expand-observe obs_166 'enter-prim s-defn_0)" +"(call-expand-observe obs_166 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_122 defn_2 exp-rhs_8)" +"(lambda(ctx_124 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_122)))" -"(if obs_166" +"(let-values(((obs_167)(expand-context-observer ctx_124)))" +"(if obs_167" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_166 'exit-prim s-defn_1)(call-expand-observe obs_166 'return s-defn_1))))" +"(begin(call-expand-observe obs_167 'exit-prim s-defn_1)(call-expand-observe obs_167 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_51 s_72 ctx_123)" +"(lambda(ids_51 s_72 ctx_125)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_123)))" +"(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_51))" @@ -77400,75 +77444,75 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_84)))" "((letrec-values(((for-loop_103)" -"(lambda(fold-var_391 lst_85)" +"(lambda(fold-var_392 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((id_50)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_391))" -"(let-values(((fold-var_392)" +"(let-values(((fold-var_62) fold-var_392))" +"(let-values(((fold-var_393)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" " id_50" -" ctx_123))" +" ctx_125))" " fold-var_62))))" -"(values fold-var_392)))))" +"(values fold-var_393)))))" "(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" -" fold-var_391)))))" +" fold-var_392)))))" " for-loop_103)" " null" " lst_84))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_123))((s3_3) s_72))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_125))((s3_3) s_72))" "(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_3 unsafe-undefined))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_461) tl-ids_2))" +"(let-values(((lst_460) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_461)))" +"(let-values()(check-list lst_460)))" "((letrec-values(((for-loop_80)" "(lambda(fold-var_216 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_159)(unsafe-car lst_86))" -"((rest_251)(unsafe-cdr lst_86)))" +"(let-values(((id_158)(unsafe-car lst_86))" +"((rest_250)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_393) fold-var_216))" +"(let-values(((fold-var_394) fold-var_216))" "(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_159" +" id_158" " top-level-bind-scope_6))" -" fold-var_393))))" +" fold-var_394))))" "(values fold-var_219)))))" "(if(not #f)" -"(for-loop_80 fold-var_26 rest_251)" +"(for-loop_80 fold-var_26 rest_250)" " fold-var_26)))" " fold-var_216)))))" " for-loop_80)" " null" -" lst_461))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_123)))))))))" +" lst_460))))))" +"(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_167)(expand-context-observer ctx_7)))" -"(if obs_167" -"(let-values()(let-values()(call-expand-observe obs_167 'prim-define-values)))" +"(let-values(((obs_168)(expand-context-observer ctx_7)))" +"(if obs_168" +"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -77520,7 +77564,7 @@ static const char *startup_source = "(check-list" " lst_80)))" "((letrec-values(((for-loop_96)" -"(lambda(id_160" +"(lambda(id_159" " lst_81)" "(begin" " 'for-loop" @@ -77532,9 +77576,9 @@ static const char *startup_source = "((rest_121)" "(unsafe-cdr" " lst_81)))" +"(let-values(((id_160)" "(let-values(((id_161)" -"(let-values(((id_162)" -" id_160))" +" id_159))" "(let-values(((id_113)" "(let-values()" "(let-values(((id10_1)" @@ -77558,16 +77602,16 @@ static const char *startup_source = " s_88)))))" "(cons" " id10_1" -" id_162)))))" +" id_161)))))" "(values" " id_113)))))" "(if(not" " #f)" "(for-loop_96" -" id_161" +" id_160" " rest_121)" -" id_161)))" -" id_160)))))" +" id_160)))" +" id_159)))))" " for-loop_96)" " null" " lst_80)))))" @@ -77623,22 +77667,22 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_186 ctx_124)" +"(lambda(s_186 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_124)))" -"(if obs_168" -"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-syntaxes)))" +"(let-values(((obs_169)(expand-context-observer ctx_126)))" +"(if obs_169" +"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_124)))" -"(if obs_169(let-values()(let-values()(call-expand-observe obs_169 'prepare-env)))(void)))" +"(let-values(((obs_170)(expand-context-observer ctx_126)))" +"(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_124) '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))))" @@ -77674,8 +77718,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_163)" -"(let-values(((lst_462)" +"(let-values(((id_162)" +"(let-values(((lst_461)" " flat-s_69))" "(begin" "(if(variable-reference-from-unsafe?" @@ -77683,24 +77727,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_462)))" +" lst_461)))" "((letrec-values(((for-loop_2)" -"(lambda(id_164" -" lst_463)" +"(lambda(id_163" +" lst_462)" "(begin" " 'for-loop" "(if(pair?" -" lst_463)" +" lst_462)" "(let-values(((s_926)" "(unsafe-car" -" lst_463))" -"((rest_272)" +" lst_462))" +"((rest_271)" "(unsafe-cdr" -" lst_463)))" +" lst_462)))" +"(let-values(((id_164)" "(let-values(((id_165)" +" id_163))" "(let-values(((id_166)" -" id_164))" -"(let-values(((id_167)" "(let-values()" "(let-values(((id24_0)" "(let-values()" @@ -77723,20 +77767,20 @@ static const char *startup_source = " s_926)))))" "(cons" " id24_0" -" id_166)))))" +" id_165)))))" "(values" -" id_167)))))" +" id_166)))))" "(if(not" " #f)" "(for-loop_2" -" id_165" -" rest_272)" -" id_165)))" -" id_164)))))" +" id_164" +" rest_271)" +" id_164)))" +" id_163)))))" " for-loop_2)" " null" -" lst_462)))))" -"(reverse$1 id_163))))))))" +" lst_461)))))" +"(reverse$1 id_162))))))))" "((rhs22_0)" "(let-values(((s_927)(cdr s_305)))" "(let-values(((s_175)" @@ -77779,21 +77823,21 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_53 syms_27)(as-expand-time-top-level-bindings id16_1 s_186 ctx_124)))" +"(let-values(((ids_53 syms_27)(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_124 ids_53)))" +"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_53)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_124)" +"(if(expand-context-to-parsed? ctx_126)" "(parsed-define-syntaxes20.1 s_186 ids_53 syms_27 exp-rhs_10)" "(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_308 ctx_110)" +"(lambda(s_308 ctx_111)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_110) 'top-level)" +"(if(eq?(expand-context-context ctx_111) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_308)))" "(values))))" @@ -77806,11 +77850,11 @@ static const char *startup_source = "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" "((form32_0)" "(let-values(((s_500)(cdr s_48)))" -"(let-values(((s_775)" +"(let-values(((s_776)" "(if(syntax?$1 s_500)" "(syntax-e$1 s_500)" " s_500)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_775)))" +"(let-values(((flat-s_70)(to-syntax-list.1 s_776)))" "(if(not flat-s_70)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" @@ -77820,84 +77864,84 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_110)))" -"(if obs_170" -"(let-values()(let-values()(call-expand-observe obs_170 'prim-begin-for-syntax)))" +"(let-values(((obs_171)(expand-context-observer ctx_111)))" +"(if obs_171" +"(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_110)))" -"(if obs_171" -"(let-values()(let-values()(call-expand-observe obs_171 'prepare-env)))" +"(let-values(((obs_172)(expand-context-observer ctx_111)))" +"(if obs_172" +"(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_110)((temp34_7) 'top-level)((temp35_7) #t))" +"(let-values(((ctx33_0) ctx_111)((temp34_7) 'top-level)((temp35_7) #t))" "(context->transformer-context99.1 temp35_7 ctx33_0 temp34_7))))" "(let-values(((lift-ctx_7)" "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_276) trans-ctx_1))" -"(let-values(((the-struct_120) v_276))" -"(if(expand-context/outer? the-struct_120)" +"(let-values(((v_278) trans-ctx_1))" +"(let-values(((the-struct_123) v_278))" +"(if(expand-context/outer? the-struct_123)" "(let-values(((inner37_0)" -"(let-values(((the-struct_121)" -"(root-expand-context/outer-inner v_276)))" -"(if(expand-context/inner? the-struct_121)" +"(let-values(((the-struct_124)" +"(root-expand-context/outer-inner v_278)))" +"(if(expand-context/inner? the-struct_124)" "(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_121)" -"(root-expand-context/inner-module-scopes the-struct_121)" +"(root-expand-context/inner-self-mpi the-struct_124)" +"(root-expand-context/inner-module-scopes the-struct_124)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_121)" -"(root-expand-context/inner-all-scopes-stx the-struct_121)" -"(root-expand-context/inner-defined-syms the-struct_121)" -"(root-expand-context/inner-counter the-struct_121)" +" the-struct_124)" +"(root-expand-context/inner-all-scopes-stx the-struct_124)" +"(root-expand-context/inner-defined-syms the-struct_124)" +"(root-expand-context/inner-counter the-struct_124)" " lift-key38_1" -"(expand-context/inner-to-parsed? the-struct_121)" -"(expand-context/inner-phase the-struct_121)" -"(expand-context/inner-namespace the-struct_121)" -"(expand-context/inner-just-once? the-struct_121)" -"(expand-context/inner-module-begin-k the-struct_121)" -"(expand-context/inner-allow-unbound? the-struct_121)" -"(expand-context/inner-in-local-expand? the-struct_121)" -"(expand-context/inner-keep-#%expression? the-struct_121)" -"(expand-context/inner-stops the-struct_121)" -"(expand-context/inner-declared-submodule-names the-struct_121)" +"(expand-context/inner-to-parsed? the-struct_124)" +"(expand-context/inner-phase the-struct_124)" +"(expand-context/inner-namespace the-struct_124)" +"(expand-context/inner-just-once? the-struct_124)" +"(expand-context/inner-module-begin-k the-struct_124)" +"(expand-context/inner-allow-unbound? the-struct_124)" +"(expand-context/inner-in-local-expand? the-struct_124)" +"(expand-context/inner-keep-#%expression? the-struct_124)" +"(expand-context/inner-stops the-struct_124)" +"(expand-context/inner-declared-submodule-names the-struct_124)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_121)" -"(expand-context/inner-module-lifts the-struct_121)" -"(expand-context/inner-require-lifts the-struct_121)" -"(expand-context/inner-to-module-lifts the-struct_121)" -"(expand-context/inner-requires+provides the-struct_121)" -"(expand-context/inner-observer the-struct_121)" -"(expand-context/inner-for-serializable? the-struct_121)" +"(expand-context/inner-lift-envs the-struct_124)" +"(expand-context/inner-module-lifts the-struct_124)" +"(expand-context/inner-require-lifts the-struct_124)" +"(expand-context/inner-to-module-lifts the-struct_124)" +"(expand-context/inner-requires+provides the-struct_124)" +"(expand-context/inner-observer the-struct_124)" +"(expand-context/inner-for-serializable? the-struct_124)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_121)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_121)))))" +" the-struct_124)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_120)" -"(root-expand-context/outer-use-site-scopes the-struct_120)" -"(root-expand-context/outer-frame-id the-struct_120)" -"(expand-context/outer-context the-struct_120)" -"(expand-context/outer-env the-struct_120)" -"(expand-context/outer-post-expansion-scope-action the-struct_120)" -"(expand-context/outer-scopes the-struct_120)" -"(expand-context/outer-def-ctx-scopes the-struct_120)" -"(expand-context/outer-binding-layer the-struct_120)" -"(expand-context/outer-reference-records the-struct_120)" -"(expand-context/outer-only-immediate? the-struct_120)" -"(expand-context/outer-need-eventually-defined the-struct_120)" -"(expand-context/outer-current-introduction-scopes the-struct_120)" -"(expand-context/outer-name the-struct_120)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_120))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_123)" +"(root-expand-context/outer-use-site-scopes the-struct_123)" +"(root-expand-context/outer-frame-id the-struct_123)" +"(expand-context/outer-context the-struct_123)" +"(expand-context/outer-env the-struct_123)" +"(expand-context/outer-post-expansion-scope-action the-struct_123)" +"(expand-context/outer-scopes the-struct_123)" +"(expand-context/outer-def-ctx-scopes the-struct_123)" +"(expand-context/outer-binding-layer the-struct_123)" +"(expand-context/outer-reference-records the-struct_123)" +"(expand-context/outer-only-immediate? the-struct_123)" +"(expand-context/outer-need-eventually-defined the-struct_123)" +"(expand-context/outer-current-introduction-scopes the-struct_123)" +"(expand-context/outer-name the-struct_123)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_65)" "(lambda(forms_0)" @@ -77905,13 +77949,13 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_172)" -"(expand-context-observer ctx_110)))" -"(if obs_172" +"(let-values(((obs_173)" +"(expand-context-observer ctx_111)))" +"(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_172" +" obs_173" " 'enter-list" "(datum->syntax$1 #f form30_0 s_308))))" "(void)))" @@ -77927,14 +77971,14 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_173)" +"(let-values(((obs_174)" "(expand-context-observer" -" ctx_110)))" -"(if obs_173" +" ctx_111)))" +"(if obs_174" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_173" +" obs_174" " 'exit-list" "(datum->syntax$1" " #f" @@ -77945,14 +77989,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_174)" +"(let-values(((obs_175)" "(expand-context-observer" -" ctx_110)))" -"(if obs_174" +" ctx_111)))" +"(if obs_175" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_174" +" obs_175" " 'next)))" "(void)))" "(values))))" @@ -77982,14 +78026,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_175)" +"(let-values(((obs_176)" "(expand-context-observer" -" ctx_110)))" -"(if obs_175" +" ctx_111)))" +"(if obs_176" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_175" +" obs_176" " 'module-lift-loop" " lifts_15)))" "(void)))" @@ -78016,22 +78060,22 @@ static const char *startup_source = " exp-forms_0)))))))))))))" " loop_65)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_110)" +"(if(expand-context-to-parsed? ctx_111)" "(parsed-begin-for-syntax21.1 s_308 all-exp-forms_0)" "(let-values(((s45_0) s_308)((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_125)" +"(lambda(s_928 ctx_127)" "(let-values((()" "(begin" -"(let-values(((obs_176)(expand-context-observer ctx_125)))" -"(if obs_176(let-values()(let-values()(call-expand-observe obs_176 'prim-require)))(void)))" +"(let-values(((obs_177)(expand-context-observer ctx_127)))" +"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_928)))" "(values))))" @@ -78070,14 +78114,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_32)))" "((letrec-values(((for-loop_25)" -"(lambda(fold-var_394 lst_33)" +"(lambda(fold-var_395 lst_33)" "(begin" " 'for-loop" "(if(pair? lst_33)" "(let-values(((req_20)(unsafe-car lst_33))" "((rest_13)(unsafe-cdr lst_33)))" -"(let-values(((fold-var_395)" -"(let-values(((fold-var_396) fold-var_394))" +"(let-values(((fold-var_396)" +"(let-values(((fold-var_397) fold-var_395))" "(let-values(((fold-var_292)" "(let-values()" "(cons" @@ -78085,19 +78129,19 @@ static const char *startup_source = "(add-scope" " req_20" " sc_41))" -" fold-var_396))))" +" fold-var_397))))" "(values fold-var_292)))))" "(if(not #f)" -"(for-loop_25 fold-var_395 rest_13)" -" fold-var_395)))" -" fold-var_394)))))" +"(for-loop_25 fold-var_396 rest_13)" +" fold-var_396)))" +" fold-var_395)))))" " for-loop_25)" " null" " lst_32)))))" "((s52_0) s_928)" "((temp53_6) #f)" -"((temp54_6)(expand-context-namespace ctx_125))" -"((temp55_5)(expand-context-phase ctx_125))" +"((temp54_6)(expand-context-namespace ctx_127))" +"((temp55_5)(expand-context-phase ctx_127))" "((temp56_5)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f temp59_8)))" "((temp57_3) 'require)" "((temp58_5) #t))" @@ -78117,15 +78161,15 @@ static const char *startup_source = " temp54_6" " temp55_5" " temp56_5))" -"(if(expand-context-to-parsed? ctx_125)(parsed-require23.1 s_928) s_928))))))))))" +"(if(expand-context-to-parsed? ctx_127)(parsed-require23.1 s_928) s_928))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_779 ctx_126)" +"(lambda(s_780 ctx_128)" "(begin" -"(let-values(((obs_177)(expand-context-observer ctx_126)))" -"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_779)))))" +"(let-values(((obs_178)(expand-context-observer ctx_128)))" +"(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_780)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78191,7 +78235,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_122)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_329)" "(lambda(table_217 i_185)" "(begin" " 'for-loop" @@ -78209,10 +78253,10 @@ static const char *startup_source = "(hash-set table_110 key_94 val_90)))))" "(values table_111)))))" "(if(not #f)" -"(for-loop_328 table_117(hash-iterate-next ht_122 i_185))" +"(for-loop_329 table_117(hash-iterate-next ht_122 i_185))" " table_117)))" " table_217)))))" -" for-loop_328)" +" for-loop_329)" " '#hash()" "(hash-iterate-first ht_122))))))" "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))" @@ -78276,5 +78320,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_772)(begin(1/datum->syntax core-stx s_772)))))" +"(define-values(datum->kernel-syntax)(lambda(s_773)(begin(1/datum->syntax core-stx s_773)))))" ;