From 3531cb24f4ca181927133cf33a1245c5660678d8 Mon Sep 17 00:00:00 2001 From: Alexis King Date: Mon, 23 Apr 2018 11:05:19 -0500 Subject: [PATCH] Restore binding-introduction behavior of parent definition contexts This behavior was in Racket 6, but was not preserved in the new expander. --- .../scribblings/reference/stx-trans.scrbl | 69 +- pkgs/racket-test-core/tests/racket/macro.rktl | 34 + .../expander/expand/definition-context.rkt | 9 +- racket/src/racket/src/startup.inc | 5830 +++++++++-------- 4 files changed, 3000 insertions(+), 2942 deletions(-) diff --git a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl index 3c642db05c..28da502f9d 100644 --- a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl +++ b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl @@ -292,16 +292,18 @@ expansion is a @racket[#%plain-module-begin] form, then a @racket[module] form (but not @racket[module*] forms) in the same way as by @racket[module] expansion. -If the @racket[intdef-ctx] argument is an internal-definition context, its @tech{bindings} are added -to the @tech{local binding context} during the dynamic extent of the call to @racket[local-expand]. +If the @racket[intdef-ctx] argument is an internal-definition context, its @tech{bindings} and +@tech{bindings} from all @tech{parent internal-definition contexts} are added to the +@tech{local binding context} during the dynamic extent of the call to @racket[local-expand]. Additionally, unless @racket[#f] was provided for the @racket[_add-scope?] argument to @racket[syntax-local-make-definition-context] when the internal-definition context was created, -its @tech{scope} is added to the @tech{lexical information} for both @racket[stx] prior to its -expansion and the expansion result (because the expansion might introduce bindings or references to -internal-definition bindings). If @racket[intdef-ctx] is a list, all @tech{bindings} from all of the -provided internal-definition contexts are added to the @tech{local binding context}, and the -@tech{scope} from each context for which @racket[_add-scope?] was not @racket[#f] is added in the same -way. For backwards compatibility, providing @racket[#f] for @racket[intdef-ctx] is treated the same as +its @tech{scope} (but @emph{not} the scopes of any @tech{parent internal-definition contexts}) is +added to the @tech{lexical information} for both @racket[stx] prior to its expansion and the expansion +result (because the expansion might introduce bindings or references to internal-definition bindings). +If @racket[intdef-ctx] is a list, all @tech{bindings} from all of the provided internal-definition +contexts and their parents are added to the @tech{local binding context}, and the @tech{scope} from +each context for which @racket[_add-scope?] was not @racket[#f] is added in the same way. For +backwards compatibility, providing @racket[#f] for @racket[intdef-ctx] is treated the same as providing an empty list. For a particular @tech{internal-definition context}, generate a unique @@ -465,28 +467,36 @@ context}, @racket[#f] otherwise.} @defproc[(syntax-local-make-definition-context - [intdef-ctx (or/c internal-definition-context? #f) #f] + [parent-ctx (or/c internal-definition-context? #f) #f] [add-scope? any/c #t]) internal-definition-context?]{ -Creates an opaque @tech{internal-definition context} value to be used -with @racket[local-expand] and other functions. A transformer should -create one context for each set of internal definitions to be -expanded, and use it when expanding any form whose lexical context -should include the definitions. After discovering an internal -@racket[define-values] or @racket[define-syntaxes] form, use -@racket[syntax-local-bind-syntaxes] to add bindings to the context. +Creates an opaque @tech{internal-definition context} value to be used with @racket[local-expand] and +other functions. A transformer should create one context for each set of internal definitions to be +expanded, and use it when expanding any form whose lexical context should include the definitions. +After discovering an internal @racket[define-values] or @racket[define-syntaxes] form, use +@racket[syntax-local-bind-syntaxes] to add @tech{bindings} to the context. -An @tech{internal-definition context} internally creates a -@tech{scope} to represent the context. Unless @racket[add-scope?] is -@racket[#f], the @tech{scope} is added to any form that is expanded -within the context or that appears as the result of a (partial) -expansion within the context. +An @tech{internal-definition context} internally creates a @tech{scope} to represent the context. +Unless @racket[add-scope?] is @racket[#f], the @tech{scope} is added to any form that is expanded +within the context or that appears as the result of a (partial) expansion within the context. -If the created definition context is intended to be spliced into a -surrounding definition context, the surrounding context should be -provided for the @racket[intdef-ctx] argument to ensure the necessary -@tech{use-site scopes} are added to macros expanded in the context. +If @racket[parent-ctx] is not @racket[#f], then @racket[parent-ctx] is made the @deftech{parent +internal-definition context} for the new internal-definition context. Whenever the new context’s +@tech{bindings} are added to the @tech{local binding context} (e.g. by providing the context to +@racket[local-expand], @racket[syntax-local-bind-syntaxes], or @racket[syntax-local-value]), then the +bindings from @racket[parent-ctx] are also added as well. If @racket[parent-ctx] was also created with a +@tech{parent internal-definition context}, @tech{bindings} from its parent are also added, and so on +recursively. Note that the @tech{scopes} of parent contexts are @emph{not} added implicitly, only the +@tech{bindings}, even when the @tech{scope} of the child context would be implicitly added. If the +@tech{scopes} of parent definition contexts should be added, the parent contexts must be provided +explicitly. + +Additionally, if the created definition context is intended to be spliced into a surrounding +definition context, the surrounding context should always be provided for the @racket[parent-ctx] +argument to ensure the necessary @tech{use-site scopes} are added to macros expanded in the context. +Otherwise, expansion of nested definitions can be inconsistent with the expansion of definitions in +the surrounding context. @transform-time[] @@ -516,10 +526,11 @@ match the number of identifiers, otherwise the @exnraise[exn:fail:contract:arity]. When @racket[expr] is not @racket[#f], it is expanded in an @tech{expression context} and evaluated in -the current @tech{transformer environment}. In this case, the value provided for -@racket[extra-intdef-ctxs] is used to enrich @racket[expr]’s @tech{lexical information} and extend the -@tech{local binding context} in the same way as the fourth argument to @racket[local-expand]. If -@racket[expr] is @racket[#f], the value provided for @racket[extra-intdef-ctxs] is ignored. +the current @tech{transformer environment}. In this case, the @tech{bindings} and @tech{lexical +information} from both @racket[intdef-ctx] and @racket[extra-intdef-ctxs] are used to enrich +@racket[expr]’s @tech{lexical information} and extend the @tech{local binding context} in the same way +as the fourth argument to @racket[local-expand]. If @racket[expr] is @racket[#f], the value provided +for @racket[extra-intdef-ctxs] is ignored. @transform-time[] diff --git a/pkgs/racket-test-core/tests/racket/macro.rktl b/pkgs/racket-test-core/tests/racket/macro.rktl index ff7b58700a..95673e8215 100644 --- a/pkgs/racket-test-core/tests/racket/macro.rktl +++ b/pkgs/racket-test-core/tests/racket/macro.rktl @@ -1968,6 +1968,40 @@ [(pair? e) (or (loop (car e)) (loop (cdr e)))] [else #f])))) +;; ---------------------------------------- +;; parent definition contexts’ bindings, but not scopes, are added implicitly during expansion + +(err/rt-test + (eval #'(module parent-internal-definition-contexts-do-not-add-scopes racket/base + (require (for-syntax racket/base)) + (begin-for-syntax + (define intdef-ctx-a (syntax-local-make-definition-context)) + (syntax-local-bind-syntaxes (list #'x) #'42 intdef-ctx-a) + + (define intdef-ctx-b (syntax-local-make-definition-context intdef-ctx-a)) + (syntax-local-bind-syntaxes (list #'y) #'(make-rename-transformer #'x) intdef-ctx-b) + + (syntax-local-value (internal-definition-context-introduce intdef-ctx-b #'y) + #f intdef-ctx-b)))) + exn:fail?) + +(module parent-internal-definition-contexts-do-add-bindings racket/base + (require (for-syntax racket/base)) + (provide result) + (define-syntax (m stx) + (define intdef-ctx-a (syntax-local-make-definition-context)) + (syntax-local-bind-syntaxes (list #'x) #'42 intdef-ctx-a) + + (define intdef-ctx-b (syntax-local-make-definition-context intdef-ctx-a)) + (define x_a-id (internal-definition-context-introduce intdef-ctx-a #'x)) + (syntax-local-bind-syntaxes (list #'y) #`(make-rename-transformer #'#,x_a-id) intdef-ctx-b) + + #`(quote #,(syntax-local-value (internal-definition-context-introduce intdef-ctx-b #'y) + #f intdef-ctx-b))) + (define result (m))) + +(test 42 dynamic-require ''parent-internal-definition-contexts-do-add-bindings 'result) + ;; ---------------------------------------- (report-errs) diff --git a/racket/src/expander/expand/definition-context.rkt b/racket/src/expander/expand/definition-context.rkt index 21c0b5f163..9137de5499 100644 --- a/racket/src/expander/expand/definition-context.rkt +++ b/racket/src/expander/expand/definition-context.rkt @@ -36,7 +36,8 @@ (struct internal-definition-context (frame-id ; identifies the frame for use-site scopes scope ; scope that represents the context add-scope? ; whether the scope is auto-added for expansion - env-mixins)) ; bindings for this context: box of list of mix-binding + env-mixins ; bindings for this context: box of list of mix-binding + parent-ctx)) ; parent definition context or #f (struct env-mixin (id sym @@ -56,7 +57,7 @@ (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))) - (internal-definition-context frame-id sc add-scope? (box null))) + (internal-definition-context frame-id sc add-scope? (box null) parent-ctx)) ;; syntax-local-bind-syntaxes (define (syntax-local-bind-syntaxes ids s intdef [extra-intdefs '()]) @@ -189,8 +190,10 @@ (define (add-intdef-bindings env intdefs) (for/fold ([env env]) ([intdef (in-intdefs intdefs)]) + (define parent-ctx (internal-definition-context-parent-ctx intdef)) + (define parent-env (if parent-ctx (add-intdef-bindings env parent-ctx) env)) (define env-mixins (unbox (internal-definition-context-env-mixins intdef))) - (let loop ([env env] [env-mixins env-mixins]) + (let loop ([env parent-env] [env-mixins env-mixins]) (cond [(null? env-mixins) env] [else diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 5187ac42c2..1d28b04336 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -40842,20 +40842,21 @@ static const char *startup_source = " internal-definition-context-frame-id" " internal-definition-context-scope" " internal-definition-context-add-scope?" -" internal-definition-context-env-mixins)" +" internal-definition-context-env-mixins" +" internal-definition-context-parent-ctx)" "(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" " 'internal-definition-context" " #f" -" 4" +" 5" " 0" " #f" " null" "(current-inspector)" " #f" -" '(0 1 2 3)" +" '(0 1 2 3 4)" " #f" " 'internal-definition-context)))))" "(values" @@ -40865,7 +40866,8 @@ static const char *startup_source = "(make-struct-field-accessor -ref_38 0 'frame-id)" "(make-struct-field-accessor -ref_38 1 'scope)" "(make-struct-field-accessor -ref_38 2 'add-scope?)" -"(make-struct-field-accessor -ref_38 3 'env-mixins))))" +"(make-struct-field-accessor -ref_38 3 'env-mixins)" +"(make-struct-field-accessor -ref_38 4 'parent-ctx))))" "(define-values" "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)" "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" @@ -40891,9 +40893,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_257)(not parent-ctx_0)))" -"(if or-part_257" -" or-part_257" +"(if(let-values(((or-part_36)(not parent-ctx_0)))" +"(if or-part_36" +" or-part_36" "(1/internal-definition-context? parent-ctx_0)))" "(void)" "(let-values()" @@ -40906,14 +40908,14 @@ static const char *startup_source = "(let-values(((temp51_2) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp51_2 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_35)(root-expand-context-frame-id ctx_43)))" -"(if or-part_35" -" or-part_35" -"(let-values(((or-part_67)" +"(let-values(((or-part_68)(root-expand-context-frame-id ctx_43)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_218)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_67 or-part_67(gensym)))))))" +"(if or-part_218 or-part_218(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40926,7 +40928,8 @@ static const char *startup_source = " frame-id_8" " sc_31" " add-scope?_0" -"(box null)))))))))))))))" +"(box null)" +" parent-ctx_0))))))))))))))" "(case-lambda" "(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context7_0 #f #f #f #f)))" "((parent-ctx_1 add-scope?4_1)(syntax-local-make-definition-context7_0 parent-ctx_1 add-scope?4_1 #t #t))" @@ -40938,7 +40941,7 @@ static const char *startup_source = "(begin" " 'syntax-local-bind-syntaxes14" "(let-values(((ids_25) ids11_1))" -"(let-values(((s_90) s12_1))" +"(let-values(((s_83) s12_1))" "(let-values(((intdef_0) intdef13_0))" "(let-values(((extra-intdefs_0)(if extra-intdefs10_0 extra-intdefs9_0 '())))" "(let-values()" @@ -40954,14 +40957,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_131)(not s_90)))" -"(if or-part_131 or-part_131(syntax?$1 s_90)))" +"(if(let-values(((or-part_250)(not s_83)))" +"(if or-part_250 or-part_250(syntax?$1 s_83)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"(or/c syntax? #f)\"" -" s_90)))" +" s_83)))" "(values))))" "(let-values((()" "(begin" @@ -40995,7 +40998,7 @@ static const char *startup_source = "(call-expand-observe obs_29 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_73)(expand-context-phase ctx_44)))" +"(let-values(((phase_113)(expand-context-phase ctx_44)))" "(let-values(((all-intdefs_0)" "(if(list? extra-intdefs_0)" "(cons intdef_0 extra-intdefs_0)" @@ -41008,21 +41011,21 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_3)" -"(lambda(fold-var_244 lst_269)" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_244 lst_188)" "(begin" " 'for-loop" -"(if(pair? lst_269)" +"(if(pair? lst_188)" "(let-values(((id_70)" "(unsafe-car" -" lst_269))" -"((rest_160)" +" lst_188))" +"((rest_100)" "(unsafe-cdr" -" lst_269)))" -"(let-values(((fold-var_236)" +" lst_188)))" "(let-values(((fold-var_245)" -" fold-var_244))" "(let-values(((fold-var_246)" +" fold-var_244))" +"(let-values(((fold-var_247)" "(let-values()" "(cons" "(let-values()" @@ -41055,16 +41058,16 @@ static const char *startup_source = " #f" " temp53_1" " extra-intdefs54_0))))" -" fold-var_245))))" +" fold-var_246))))" "(values" -" fold-var_246)))))" +" fold-var_247)))))" "(if(not #f)" -"(for-loop_3" -" fold-var_236" -" rest_160)" -" fold-var_236)))" +"(for-loop_259" +" fold-var_245" +" rest_100)" +" fold-var_245)))" " fold-var_244)))))" -" for-loop_3)" +" for-loop_259)" " null" " lst_288))))))" "(let-values((()" @@ -41088,28 +41091,28 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_289)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_247 lst_164)" +"((letrec-values(((for-loop_5)" +"(lambda(fold-var_248 lst_167)" "(begin" " 'for-loop" -"(if(pair? lst_164)" +"(if(pair? lst_167)" "(let-values(((intdef-id_0)" "(unsafe-car" -" lst_164))" -"((rest_161)" +" lst_167))" +"((rest_86)" "(unsafe-cdr" -" lst_164)))" -"(let-values(((fold-var_161)" -"(let-values(((fold-var_248)" -" fold-var_247))" +" lst_167)))" "(let-values(((fold-var_249)" +"(let-values(((fold-var_250)" +" fold-var_248))" +"(let-values(((fold-var_162)" "(let-values()" "(cons" "(let-values()" "(let-values(((intdef-id58_0)" " intdef-id_0)" "((phase59_0)" -" phase_73)" +" phase_113)" "((temp60_3)" "(root-expand-context-counter" " ctx_44))" @@ -41124,24 +41127,24 @@ static const char *startup_source = " intdef-id58_0" " phase59_0" " temp60_3)))" -" fold-var_248))))" +" fold-var_250))))" "(values" -" fold-var_249)))))" +" fold-var_162)))))" "(if(not #f)" -"(for-loop_259" -" fold-var_161" -" rest_161)" -" fold-var_161)))" -" fold-var_247)))))" -" for-loop_259)" +"(for-loop_5" +" fold-var_249" +" rest_86)" +" fold-var_249)))" +" fold-var_248)))))" +" for-loop_5)" " null" " lst_289))))))" "(let-values(((vals_5)" -"(if s_90" +"(if s_83" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s62_0) s_90)" +"(let-values(((s62_0) s_83)" "((all-intdefs63_0)" " all-intdefs_0))" "(add-intdef-scopes28.1" @@ -41153,26 +41156,26 @@ static const char *startup_source = " all-intdefs63_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_225) syms_20))" +"(let-values(((lst_104) syms_20))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_225)))" -"((letrec-values(((for-loop_78)" +"(check-list lst_104)))" +"((letrec-values(((for-loop_120)" "(lambda(env_7" -" lst_290)" +" lst_11)" "(begin" " 'for-loop" "(if(pair?" -" lst_290)" +" lst_11)" "(let-values(((sym_66)" "(unsafe-car" -" lst_290))" -"((rest_162)" +" lst_11))" +"((rest_52)" "(unsafe-cdr" -" lst_290)))" +" lst_11)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -41186,14 +41189,14 @@ static const char *startup_source = " env_10)))))" "(if(not" " #f)" -"(for-loop_78" +"(for-loop_120" " env_8" -" rest_162)" +" rest_52)" " env_8)))" " env_7)))))" -" for-loop_78)" +" for-loop_120)" "(expand-context-env ctx_44)" -" lst_225)))))" +" lst_104)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" @@ -41213,17 +41216,17 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp64_2)" -"(let-values(((v_93)" +"(let-values(((v_194)" " ctx_44))" "(let-values(((the-struct_64)" -" v_93))" +" v_194))" "(if(expand-context/outer?" " the-struct_64)" "(let-values(((env67_0)" " tmp-env_0)" "((inner68_0)" "(root-expand-context/outer-inner" -" v_93)))" +" v_194)))" "(expand-context/outer1.1" " inner68_0" "(root-expand-context/outer-post-expansion-scope" @@ -41289,44 +41292,44 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_291) ids_25))" +"(let-values(((lst_290) ids_25))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_250" -" lst_292)" +"(let-values()(check-list lst_290)))" +"((letrec-values(((for-loop_80)" +"(lambda(fold-var_251" +" lst_291)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((id_71)" +"(if(pair? lst_291)" +"(let-values(((id_47)" "(unsafe-car" -" lst_292))" -"((rest_163)" +" lst_291))" +"((rest_160)" "(unsafe-cdr" -" lst_292)))" -"(let-values(((fold-var_251)" -"(let-values(((fold-var_252)" -" fold-var_250))" -"(let-values(((fold-var_98)" +" lst_291)))" +"(let-values(((fold-var_183)" +"(let-values(((fold-var_99)" +" fold-var_251))" +"(let-values(((fold-var_100)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_252))))" +" fold-var_99))))" "(values" -" fold-var_98)))))" +" fold-var_100)))))" "(if(not #f)" -"(for-loop_260" -" fold-var_251" -" rest_163)" -" fold-var_251)))" -" fold-var_250)))))" -" for-loop_260)" +"(for-loop_80" +" fold-var_183" +" rest_160)" +" fold-var_183)))" +" fold-var_251)))))" +" for-loop_80)" " null" -" lst_291))))))))" +" lst_290))))))))" "(let-values(((env-mixins_0)" "(internal-definition-context-env-mixins intdef_0)))" "(begin" @@ -41334,86 +41337,86 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_106) intdef-ids_0)" -"((lst_293) syms_20)" -"((lst_294) vals_5))" +"(let-values(((lst_292) intdef-ids_0)" +"((lst_286) syms_20)" +"((lst_50) vals_5))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_106)))" +"(let-values()(check-list lst_292)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" +"(let-values()(check-list lst_286)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_294)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_100" -" lst_295" -" lst_286" -" lst_50)" +"(let-values()(check-list lst_50)))" +"((letrec-values(((for-loop_73)" +"(lambda(fold-var_35" +" lst_51" +" lst_293" +" lst_294)" "(begin" " 'for-loop" -"(if(if(pair? lst_295)" -"(if(pair? lst_286)" -"(pair? lst_50)" +"(if(if(pair? lst_51)" +"(if(pair? lst_293)" +"(pair? lst_294)" " #f)" " #f)" "(let-values(((intdef-id_1)" "(unsafe-car" -" lst_295))" -"((rest_164)" +" lst_51))" +"((rest_161)" "(unsafe-cdr" -" lst_295))" +" lst_51))" "((sym_67)" "(unsafe-car" -" lst_286))" -"((rest_165)" +" lst_293))" +"((rest_162)" "(unsafe-cdr" -" lst_286))" -"((val_28)" +" lst_293))" +"((val_72)" "(unsafe-car" -" lst_50))" -"((rest_166)" +" lst_294))" +"((rest_163)" "(unsafe-cdr" -" lst_50)))" -"(let-values(((fold-var_37)" -"(let-values(((fold-var_38)" -" fold-var_100))" +" lst_294)))" +"(let-values(((fold-var_252)" +"(let-values(((fold-var_187)" +" fold-var_35))" "(let-values(((fold-var_253)" "(let-values()" "(cons" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_28" +" val_72" " intdef-id_1" -" phase_73" +" phase_113" " ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_67" -" val_28" +" val_72" "(make-weak-hasheq))))" -" fold-var_38))))" +" fold-var_187))))" "(values" " fold-var_253)))))" "(if(not #f)" -"(for-loop_261" -" fold-var_37" -" rest_164" -" rest_165" -" rest_166)" -" fold-var_37)))" -" fold-var_100)))))" -" for-loop_261)" +"(for-loop_73" +" fold-var_252" +" rest_161" +" rest_162" +" rest_163)" +" fold-var_252)))" +" fold-var_35)))))" +" for-loop_73)" " null" -" lst_106" -" lst_293" -" lst_294))))" +" lst_292" +" lst_286" +" lst_50))))" "(unbox env-mixins_0)))" "(let-values(((obs_33)(expand-context-observer ctx_44)))" "(if obs_33" @@ -41422,10 +41425,10 @@ static const char *startup_source = "(call-expand-observe obs_33 'exit-local-bind)))" "(void))))))))))))))))))))))))))" "(case-lambda" -"((ids_26 s_58 intdef_1)" -"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes14_0 ids_26 s_58 intdef_1 #f #f)))" -"((ids_27 s_413 intdef_2 extra-intdefs9_1)" -"(syntax-local-bind-syntaxes14_0 ids_27 s_413 intdef_2 extra-intdefs9_1 #t)))))" +"((ids_26 s_415 intdef_1)" +"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes14_0 ids_26 s_415 intdef_1 #f #f)))" +"((ids_27 s_435 intdef_2 extra-intdefs9_1)" +"(syntax-local-bind-syntaxes14_0 ids_27 s_435 intdef_2 extra-intdefs9_1 #t)))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" "(lambda(intdef_3)" @@ -41440,29 +41443,28 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_3)))" "(reverse$1" -"(let-values(((lst_274)(unbox(internal-definition-context-env-mixins intdef_3))))" +"(let-values(((lst_28)(unbox(internal-definition-context-env-mixins intdef_3))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" -"((letrec-values(((for-loop_243)" -"(lambda(fold-var_254 lst_230)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_28)))" +"((letrec-values(((for-loop_23)" +"(lambda(fold-var_254 lst_29)" "(begin" " 'for-loop" -"(if(pair? lst_230)" -"(let-values(((env-mixin_0)(unsafe-car lst_230))" -"((rest_121)(unsafe-cdr lst_230)))" +"(if(pair? lst_29)" +"(let-values(((env-mixin_0)(unsafe-car lst_29))((rest_11)(unsafe-cdr lst_29)))" "(let-values(((fold-var_255)" "(let-values(((fold-var_256) fold-var_254))" -"(let-values(((fold-var_191)" +"(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" " fold-var_256))))" -"(values fold-var_191)))))" -"(if(not #f)(for-loop_243 fold-var_255 rest_121) fold-var_255)))" +"(values fold-var_257)))))" +"(if(not #f)(for-loop_23 fold-var_255 rest_11) fold-var_255)))" " fold-var_254)))))" -" for-loop_243)" +" for-loop_23)" " null" -" lst_274))))))))" +" lst_28))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce20_0)" @@ -41470,7 +41472,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce20" "(let-values(((intdef_4) intdef18_0))" -"(let-values(((s_201) s19_0))" +"(let-values(((s_420) s19_0))" "(let-values(((mode_12)(if mode17_0 mode16_0 'flip)))" "(let-values()" "(begin" @@ -41481,11 +41483,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_4)))" -"(if(syntax?$1 s_201)" +"(if(syntax?$1 s_420)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_201)))" -"(let-values(((s69_0) s_201)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_420)))" +"(let-values(((s69_0) s_420)" "((intdef70_0) intdef_4)" "((temp71_0) #t)" "((temp72_0)" @@ -41503,9 +41505,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes28.1 temp72_0 #t temp71_0 #t s69_0 intdef70_0)))))))))))" "(case-lambda" -"((intdef_5 s_435)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce20_0 intdef_5 s_435 #f #f)))" -"((intdef_6 s_436 mode16_1)(internal-definition-context-introduce20_0 intdef_6 s_436 mode16_1 #t)))))" +"((intdef_5 s_67)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce20_0 intdef_5 s_67 #f #f)))" +"((intdef_6 s_95 mode16_1)(internal-definition-context-introduce20_0 intdef_6 s_95 mode16_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_7)" @@ -41519,13 +41521,13 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_72 intdef_8)" +"(lambda(id_71 intdef_8)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_72)" +"(if(identifier? id_71)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" "(if(let-values(((or-part_270)(1/internal-definition-context? intdef_8)))" "(if or-part_270 or-part_270(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" "(void)" @@ -41541,25 +41543,25 @@ static const char *startup_source = "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_123)" -"(lambda(id_73 a_46)" +"((letrec-values(((for-loop_260)" +"(lambda(id_72 a_46)" "(begin" " 'for-loop" "(if(pair? a_46)" "(let-values(((intdef_9)(car a_46)))" -"(let-values(((id_74)" -"(let-values(((id_23) id_73))" +"(let-values(((id_73)" +"(let-values(((id_74) id_72))" "(let-values(((id_75)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_9" -" id_23" +" id_74" " 'remove))))" "(values id_75)))))" -"(if(not #f)(for-loop_123 id_74(cdr a_46)) id_74)))" -" id_73)))))" -" for-loop_123)" -" id_72" +"(if(not #f)(for-loop_260 id_73(cdr a_46)) id_73)))" +" id_72)))))" +" for-loop_260)" +" id_71" " x_74)))))))" "(define-values" "(intdefs?)" @@ -41570,7 +41572,7 @@ static const char *startup_source = " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_40)(begin(let-values(((or-part_105)(not x_40)))(if or-part_105 or-part_105(intdefs? x_40))))))" +"(lambda(x_76)(begin(let-values(((or-part_272)(not x_76)))(if or-part_272 or-part_272(intdefs? x_76))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41578,14 +41580,14 @@ static const char *startup_source = "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_76)" +"(let-values(((x_43)" "(let-values(((a_47) intdefs_0))" "(if(list? a_47)" "(let-values()(reverse$1 a_47))" "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_262)" +"((letrec-values(((for-loop_261)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -41595,12 +41597,22 @@ static const char *startup_source = "(let-values(((env_14) env_12))" "(let-values(((env_15)" "(let-values()" +"(let-values(((parent-ctx_2)" +"(internal-definition-context-parent-ctx" +" intdef_10)))" +"(let-values(((parent-env_0)" +"(if parent-ctx_2" +"(add-intdef-bindings" +" env_14" +" parent-ctx_2)" +" env_14)))" "(let-values(((env-mixins_1)" "(unbox" "(internal-definition-context-env-mixins" " intdef_10))))" "((letrec-values(((loop_96)" -"(lambda(env_16 env-mixins_2)" +"(lambda(env_16" +" env-mixins_2)" "(begin" " 'loop" "(if(null? env-mixins_2)" @@ -41609,14 +41621,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_272)" +"(let-values(((or-part_273)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_272" -" or-part_272" +"(if or-part_273" +" or-part_273" "(let-values(((new-env_0)" "(env-extend" "(loop_96" @@ -41635,20 +41647,20 @@ static const char *startup_source = " new-env_0)" " new-env_0)))))))))))" " loop_96)" -" env_14" -" env-mixins_1)))))" +" parent-env_0" +" env-mixins_1)))))))" "(values env_15)))))" -"(if(not #f)(for-loop_262 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_261 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_262)" +" for-loop_261)" " env_11" -" x_76))))))" +" x_43))))))" "(define-values" "(add-intdef-scopes28.1)" "(lambda(action23_0 action25_0 always?22_0 always?24_0 s26_0 intdefs27_0)" "(begin" " 'add-intdef-scopes28" -"(let-values(((s_437) s26_0))" +"(let-values(((s_100) s26_0))" "(let-values(((intdefs_1) intdefs27_0))" "(let-values(((always?_0)(if always?24_0 always?22_0 #f)))" "(let-values(((action_0)(if action25_0 action23_0 add-scope)))" @@ -41660,32 +41672,32 @@ static const char *startup_source = "(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" "(begin" " #t" -"((letrec-values(((for-loop_188)" -"(lambda(s_100 a_50)" +"((letrec-values(((for-loop_262)" +"(lambda(s_329 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_11)(car a_50)))" -"(let-values(((s_328)" -"(let-values(((s_158) s_100))" -"(if(let-values(((or-part_273) always?_0))" -"(if or-part_273" -" or-part_273" +"(let-values(((s_103)" +"(let-values(((s_436) s_329))" +"(if(let-values(((or-part_274) always?_0))" +"(if or-part_274" +" or-part_274" "(internal-definition-context-add-scope?" " intdef_11)))" -"(let-values(((s_102) s_158))" -"(let-values(((s_329)" +"(let-values(((s_169) s_436))" +"(let-values(((s_437)" "(let-values()" "(action_0" -" s_102" +" s_169" "(internal-definition-context-scope" " intdef_11)))))" -"(values s_329)))" -" s_158))))" -"(if(not #f)(for-loop_188 s_328(cdr a_50)) s_328)))" -" s_100)))))" -" for-loop_188)" -" s_437" +"(values s_437)))" +" s_436))))" +"(if(not #f)(for-loop_262 s_103(cdr a_50)) s_103)))" +" s_329)))))" +" for-loop_262)" +" s_100" " x_77)))))))))))" "(define-values" "(make-local-expand-context46.1)" @@ -41706,7 +41718,7 @@ static const char *startup_source = " 'make-local-expand-context46" "(let-values(((ctx_45) ctx45_0))" "(let-values(((context_9) context31_0))" -"(let-values(((phase_107)(if phase39_1 phase32_1(expand-context-phase ctx_45))))" +"(let-values(((phase_114)(if phase39_1 phase32_1(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs33_0))" "(let-values(((stop-ids_1)(if stop-ids41_0 stop-ids34_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?42_0 to-parsed-ok?35_0 #f)))" @@ -41714,18 +41726,18 @@ static const char *startup_source = "(let-values(((keep-#%expression?_1)(if keep-#%expression?44_0 keep-#%expression?37_0 #t)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_274)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_274" -" or-part_274" +"(let-values(((or-part_181)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_181" +" or-part_181" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_107) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_114) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_161) ctx_45))" -"(let-values(((the-struct_65) v_161))" +"(let-values(((v_195) ctx_45))" +"(let-values(((the-struct_65) v_195))" "(if(expand-context/outer? the-struct_65)" "(let-values(((context73_0) context_9)" "((env74_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" @@ -41749,7 +41761,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_263)" +"((letrec-values(((for-loop_41)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -41782,12 +41794,10 @@ static const char *startup_source = "(values" " frame-id_12)))))" "(if(not #f)" -"(for-loop_263" -" frame-id_10" -"(cdr a_52))" +"(for-loop_41 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_263)" +" for-loop_41)" "(root-expand-context-frame-id ctx_45)" " x_78))))" "((post-expansion-scope77_0)" @@ -41800,10 +41810,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action78_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" -"(lambda(s_220 placeholder-sc_0)" +"(lambda(s_438 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action78" -"(let-values(((s84_0) s_220)((intdefs85_0) intdefs_2))" +"(let-values(((s84_0) s_438)((intdefs85_0) intdefs_2))" "(add-intdef-scopes28.1 #f #f #f #f s84_0 intdefs85_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes79_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" @@ -41817,7 +41827,7 @@ static const char *startup_source = "(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" "((inner83_0)" "(let-values(((the-struct_66)" -"(root-expand-context/outer-inner v_161)))" +"(root-expand-context/outer-inner v_195)))" "(if(expand-context/inner? the-struct_66)" "(let-values(((to-parsed?86_0)" "(if to-parsed-ok?_0" @@ -41828,7 +41838,7 @@ static const char *startup_source = "((keep-#%expression?89_0) keep-#%expression?_1)" "((stops90_0)" "(free-id-set" -" phase_107" +" phase_114" "(let-values(((or-part_279) all-stop-ids_0))" "(if or-part_279 or-part_279 null)))))" "(expand-context/inner2.1" @@ -41885,7 +41895,7 @@ static const char *startup_source = " the-struct_65)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_438 ctx_46)(begin(flip-scopes s_438(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_228 ctx_46)(begin(flip-scopes s_228(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -42023,7 +42033,7 @@ static const char *startup_source = " 'make-syntax-delta-introducer9" "(let-values(((ext-s_0) ext-s7_0))" "(let-values(((base-s_0) base-s8_0))" -"(let-values(((phase_113)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_115)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42052,27 +42062,27 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_113)" +"(if(phase? phase_115)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_113)))" +" phase_115)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_113)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_115)))" "(let-values(((base-scs_0)" "(syntax-scope-set" "(let-values(((or-part_280) base-s_0))" "(if or-part_280 or-part_280 empty-syntax))" -" phase_113)))" +" phase_115)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" "(let-values(((or-part_33)" "(if(identifier? base-s_0)" "(let-values(((base-s80_0) base-s_0)" -"((phase81_0) phase_113)" +"((phase81_0) phase_115)" "((temp82_1) #t))" "(resolve40.1" " #f" @@ -42182,14 +42192,14 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who89_0 #t))))" "(let-values(((ctx_55)" "(if intdefs_3" -"(let-values(((v_194) current-ctx_0))" -"(let-values(((the-struct_67) v_194))" +"(let-values(((v_196) current-ctx_0))" +"(let-values(((the-struct_67) v_196))" "(if(expand-context/outer? the-struct_67)" "(let-values(((env90_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner91_0)(root-expand-context/outer-inner v_194)))" +"((inner91_0)(root-expand-context/outer-inner v_196)))" "(expand-context/outer1.1" " inner91_0" "(root-expand-context/outer-post-expansion-scope the-struct_67)" @@ -42221,12 +42231,12 @@ static const char *startup_source = "(values))))" "(let-values(((phase_7)(expand-context-phase ctx_55)))" "((letrec-values(((loop_97)" -"(lambda(id_70)" +"(lambda(id_79)" "(begin" " 'loop" "(let-values(((b_23)" "(if immediate?_1" -"(let-values(((id92_0) id_70)" +"(let-values(((id92_0) id_79)" "((phase93_0) phase_7)" "((temp94_1) #t))" "(resolve+shift30.1" @@ -42243,7 +42253,7 @@ static const char *startup_source = " id92_0" " phase93_0))" "(resolve+shift/extra-inspector" -" id_70" +" id_79" " phase_7" "(expand-context-namespace ctx_55)))))" "(begin" @@ -42251,7 +42261,7 @@ static const char *startup_source = "(if obs_35" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_70)))" +"(call-expand-observe obs_35 'resolve id_79)))" "(void)))" "(if(not b_23)" "(let-values()" @@ -42268,12 +42278,12 @@ static const char *startup_source = "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_20 \"unbound identifier: ~v\" id_70))))" +" (error who_20 \"unbound identifier: ~v\" id_79))))" "(let-values()" -"(let-values(((v_195 primitive?_7 insp_17 protected?_8)" +"(let-values(((v_197 primitive?_7 insp_17 protected?_8)" "(let-values(((b95_0) b_23)" "((ctx96_0) ctx_55)" -"((id97_0) id_70)" +"((id97_0) id_79)" "((temp98_1) #t))" "(lookup62.1" " #f" @@ -42283,8 +42293,8 @@ static const char *startup_source = " b95_0" " ctx96_0" " id97_0))))" -"(if(let-values(((or-part_281)(variable? v_195)))" -"(if or-part_281 or-part_281(core-form? v_195)))" +"(if(let-values(((or-part_281)(variable? v_197)))" +"(if or-part_281 or-part_281(core-form? v_197)))" "(let-values()" "(begin" "(let-values(((obs_37)" @@ -42302,7 +42312,7 @@ static const char *startup_source = "(error" " who_20" " \"identifier is not bound to syntax: ~v\"" -" id_70))))" +" id_79))))" "(let-values()" "(begin" "(let-values(((obs_38)" @@ -42310,7 +42320,7 @@ static const char *startup_source = "(if obs_38" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_195)" +"(if(1/rename-transformer? v_197)" "(not immediate?_1)" " #f))" "(let-values()" @@ -42320,17 +42330,17 @@ static const char *startup_source = " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_195)" +"(if(1/rename-transformer? v_197)" "(let-values()" "(if immediate?_1" "(values" -" v_195" -"(1/rename-transformer-target v_195))" +" v_197" +"(1/rename-transformer-target v_197))" "(loop_97" -"(1/rename-transformer-target v_195))))" +"(1/rename-transformer-target v_197))))" "(if immediate?_1" -"(let-values()(values v_195 #f))" -"(let-values() v_195)))))))))))))))" +"(let-values()(values v_197 #f))" +"(let-values() v_197)))))))))))))))" " loop_97)" "(flip-introduction-scopes id_78 ctx_55))))))))))))))))))" "(define-values" @@ -42339,13 +42349,13 @@ static const char *startup_source = "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_79) id24_0))" +"(let-values(((id_80) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_13)(if intdef23_0 intdef21_0 #f)))" "(let-values()" "(let-values(((temp99_0) 'syntax-local-value)" "((temp100_0) #f)" -"((id101_0) id_79)" +"((id101_0) id_80)" "((intdef102_0) intdef_13)" "((failure-thunk103_0) failure-thunk_1))" "(do-syntax-local-value17.1" @@ -42357,20 +42367,20 @@ static const char *startup_source = "(case-lambda" "((id_62)(begin 'syntax-local-value(syntax-local-value25_0 id_62 #f #f #f #f)))" "((id_17 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_17 failure-thunk_2 intdef21_1 #t #t))" -"((id_71 failure-thunk20_1)(syntax-local-value25_0 id_71 failure-thunk20_1 #f #t #f)))))" +"((id_81 failure-thunk20_1)(syntax-local-value25_0 id_81 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_80) id31_1))" +"(let-values(((id_82) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_14)(if intdef30_0 intdef28_0 #f)))" "(let-values()" "(let-values(((temp104_1) 'syntax-local-value/immediate)" "((temp105_0) #t)" -"((id106_0) id_80)" +"((id106_0) id_82)" "((intdef107_0) intdef_14)" "((failure-thunk108_0) failure-thunk_3))" "(do-syntax-local-value17.1" @@ -42380,9 +42390,9 @@ static const char *startup_source = " intdef107_0" " failure-thunk108_0))))))))))" "(case-lambda" -"((id_81)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_81 #f #f #f #f)))" -"((id_82 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_82 failure-thunk_4 intdef28_1 #t #t))" -"((id_83 failure-thunk27_1)(syntax-local-value/immediate32_0 id_83 failure-thunk27_1 #f #t #f)))))" +"((id_83)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_83 #f #f #f #f)))" +"((id_84 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_84 failure-thunk_4 intdef28_1 #t #t))" +"((id_85 failure-thunk27_1)(syntax-local-value/immediate32_0 id_85 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" "(lambda(who_21 n_28 s_427)" @@ -42411,15 +42421,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_257 pos_106)" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_258 pos_106)" "(begin" " 'for-loop" "(if(< pos_106 end_30)" "(let-values()" -"(let-values(((fold-var_256)" -"(let-values(((fold-var_191) fold-var_257))" -"(let-values(((fold-var_258)" +"(let-values(((fold-var_254)" +"(let-values(((fold-var_191) fold-var_258))" +"(let-values(((fold-var_259)" "(let-values()" "(cons" "(let-values()" @@ -42444,12 +42454,12 @@ static const char *startup_source = "(new-scope" " 'macro)))))" " fold-var_191))))" -"(values fold-var_258)))))" +"(values fold-var_259)))))" "(if(not #f)" -"(for-loop_264 fold-var_256(+ pos_106 inc_24))" -" fold-var_256)))" -" fold-var_257)))))" -" for-loop_264)" +"(for-loop_263 fold-var_254(+ pos_106 inc_24))" +" fold-var_254)))" +" fold-var_258)))))" +" for-loop_263)" " null" " start_40))))))" "(begin" @@ -42458,7 +42468,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_28 s_427)))" "(void)))" "(map2" -"(lambda(id_84)(flip-introduction-scopes id_84 ctx_18))" +"(lambda(id_86)(flip-introduction-scopes id_86 ctx_18))" "(add-lifted!" " lifts_8" " ids_28" @@ -42503,9 +42513,9 @@ static const char *startup_source = "(let-values(((ctx_57)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" -"(let-values(((phase_114)(expand-context-phase ctx_57)))" +"(let-values(((phase_116)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_64 phase_114)))" +"(let-values(((tmp_34)(core-form-sym s_64 phase_116)))" "(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" "(let-values()" "(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" @@ -42518,7 +42528,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_64)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_114))))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_116))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))" "(let-values(((obs_40)(expand-context-observer ctx_57)))" @@ -42556,15 +42566,15 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_442 phase_115 lift-ctx_1)(begin 'pre-wrap s_442)))))" +"(lambda(s_442 phase_117 lift-ctx_1)(begin 'pre-wrap s_442)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_98 phase_116 lift-ctx_2)(begin 'shift-wrap s_98)))))" +"(lambda(s_98 phase_118 lift-ctx_2)(begin 'shift-wrap s_98)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_443 phase_117 lift-ctx_3)(begin 'post-wrap s_443)))))" +"(lambda(s_443 phase_119 lift-ctx_3)(begin 'post-wrap s_443)))))" "(let-values()" "(let-values((()" "(begin" @@ -42588,13 +42598,13 @@ static const char *startup_source = " \"form to lift\"" " s_441)))" "(values))))" -"(let-values(((phase_118)(expand-context-phase ctx_58)))" +"(let-values(((phase_120)(expand-context-phase ctx_58)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" "(if intro?_0(flip-introduction-scopes s_441 ctx_58) s_441)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_120 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_118)" +"(let-values(((start_41) phase_120)" "((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -42603,14 +42613,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_31 inc_25)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(s_68 pos_107)" "(begin" " 'for-loop" "(if(> pos_107 end_31)" -"(let-values(((phase_119)" +"(let-values(((phase_121)" " pos_107))" -"(let-values(((s_444)" +"(let-values(((s_436)" "(let-values(((s_104)" " s_68))" "(let-values(((s_169)" @@ -42618,17 +42628,17 @@ static const char *startup_source = "(shift-wrap_0" " s_104" "(sub1" -" phase_119)" +" phase_121)" " lift-ctx_4))))" "(values" " s_169)))))" "(if(not #f)" -"(for-loop_265" -" s_444" +"(for-loop_264" +" s_436" "(+ pos_107 inc_25))" -" s_444)))" +" s_436)))" " s_68)))))" -" for-loop_265)" +" for-loop_264)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" @@ -42659,11 +42669,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_0)" -"(lambda(s_445 phase_120 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_445)))" +"(lambda(s_444 phase_122 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_444)))" "((temp127_1)" -"(lambda(s_446 phase_121 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_446 sc_33) phase_121))))" +"(lambda(s_445 phase_123 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_445 sc_33) phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -42697,23 +42707,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_447)" +"(lambda(s_446)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" "(let-values(((ctx_60 result-s_7)" "(let-values(((who129_0) 'syntax-local-lift-provide)" -"((s130_0) s_447)" +"((s130_0) s_446)" " ((temp131_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts132_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_126 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_126 #f)))" +"(lambda(s_126 phase_124 to-module-lift-ctx_0)(wrap-form 'for-syntax s_126 #f)))" "((temp136_0)" -"(lambda(s_448 phase_123 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_448 phase_123))))" +"(lambda(s_447 phase_125 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_447 phase_125))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -42751,13 +42761,13 @@ static const char *startup_source = "((temp142_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" "((temp144_0)" -"(lambda(orig-s_32 phase_124 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_126 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_32 phase_124)" +"(wrap-form '#%expression orig-s_32 phase_126)" " orig-s_32)))" "((temp145_1)" -"(lambda(s_449 phase_125 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_449 phase_125))))" +"(lambda(s_448 phase_127 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_448 phase_127))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -42781,11 +42791,11 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_68 s_450 phase_126)" +"(lambda(sym_68 s_449 phase_128)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_68) s_450)))))" +"(list(datum->syntax$1(if phase_128(syntax-shift-phase-level$1 core-stx phase_128) #f) sym_68) s_449)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42862,27 +42872,27 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_139)))" "((letrec-values(((for-loop_138)" -"(lambda(fold-var_259 i_112)" +"(lambda(fold-var_260 i_112)" "(begin" " 'for-loop" "(if i_112" -"(let-values(((phase_127 ids_29)" +"(let-values(((phase_129 ids_29)" "(hash-iterate-key+value ht_139 i_112)))" "(let-values(((fold-var_206)" -"(let-values(((fold-var_260) fold-var_259))" -"(let-values(((fold-var_261)" +"(let-values(((fold-var_261) fold-var_260))" +"(let-values(((fold-var_262)" "(let-values()" "(cons" "(let-values()" -"(cons phase_127 ids_29))" -" fold-var_260))))" -"(values fold-var_261)))))" +"(cons phase_129 ids_29))" +" fold-var_261))))" +"(values fold-var_262)))))" "(if(not #f)" "(for-loop_138" " fold-var_206" "(hash-iterate-next ht_139 i_112))" " fold-var_206)))" -" fold-var_259)))))" +" fold-var_260)))))" " for-loop_138)" " null" "(hash-iterate-first ht_139)))))" @@ -42891,15 +42901,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_296) requireds_1))" +"(let-values(((lst_295) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_296)))" -"((letrec-values(((for-loop_266)" -"(lambda(ht_140 lst_297)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))" +"((letrec-values(((for-loop_265)" +"(lambda(ht_140 lst_296)" "(begin" " 'for-loop" -"(if(pair? lst_297)" -"(let-values(((r_42)(unsafe-car lst_297))((rest_167)(unsafe-cdr lst_297)))" +"(if(pair? lst_296)" +"(let-values(((r_42)(unsafe-car lst_296))((rest_164)(unsafe-cdr lst_296)))" "(let-values(((ht_141)" "(let-values(((ht_142) ht_140))" "(let-values(((ht_143)" @@ -42910,11 +42920,11 @@ static const char *startup_source = "(lambda(l_73)(cons(required-id r_42) l_73))" " null))))" "(values ht_143)))))" -"(if(not #f)(for-loop_266 ht_141 rest_167) ht_141)))" +"(if(not #f)(for-loop_265 ht_141 rest_164) ht_141)))" " ht_140)))))" -" for-loop_266)" +" for-loop_265)" "(hasheqv)" -" lst_296))))))" +" lst_295))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42960,21 +42970,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_262 i_166)" +"((letrec-values(((for-loop_266)" +"(lambda(fold-var_263 i_166)" "(begin" " 'for-loop" "(if i_166" -"(let-values(((phase_128 syms_21)" +"(let-values(((phase_130 syms_21)" "(hash-iterate-key+value ht_144 i_166)))" -"(let-values(((fold-var_263)" -"(let-values(((fold-var_264) fold-var_262))" -"(let-values(((fold-var_265)" +"(let-values(((fold-var_264)" +"(let-values(((fold-var_265) fold-var_263))" +"(let-values(((fold-var_266)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_128" +" phase_130" "(reverse$1" "(let-values(((ht_145)" " syms_21))" @@ -42985,8 +42995,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_145)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_266" +"((letrec-values(((for-loop_267)" +"(lambda(fold-var_267" " i_167)" "(begin" " 'for-loop" @@ -42995,37 +43005,37 @@ static const char *startup_source = "(hash-iterate-key" " ht_145" " i_167)))" -"(let-values(((fold-var_267)" "(let-values(((fold-var_268)" -" fold-var_266))" "(let-values(((fold-var_269)" +" fold-var_267))" +"(let-values(((fold-var_270)" "(let-values()" "(cons" "(let-values()" " sym_69)" -" fold-var_268))))" +" fold-var_269))))" "(values" -" fold-var_269)))))" +" fold-var_270)))))" "(if(not" " #f)" -"(for-loop_268" -" fold-var_267" +"(for-loop_267" +" fold-var_268" "(hash-iterate-next" " ht_145" " i_167))" -" fold-var_267)))" -" fold-var_266)))))" -" for-loop_268)" +" fold-var_268)))" +" fold-var_267)))))" +" for-loop_267)" " null" "(hash-iterate-first" " ht_145)))))))" -" fold-var_264))))" -"(values fold-var_265)))))" +" fold-var_265))))" +"(values fold-var_266)))))" "(if(not #f)" -"(for-loop_267 fold-var_263(hash-iterate-next ht_144 i_166))" -" fold-var_263)))" -" fold-var_262)))))" -" for-loop_267)" +"(for-loop_266 fold-var_264(hash-iterate-next ht_144 i_166))" +" fold-var_264)))" +" fold-var_263)))))" +" for-loop_266)" " null" "(hash-iterate-first ht_144))))))))))))))))" "(define-values" @@ -43045,28 +43055,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_270 i_168)" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_271 i_168)" "(begin" " 'for-loop" "(if i_168" "(let-values(((name_61 kind_7)(hash-iterate-key+value ht_146 i_168)))" -"(let-values(((fold-var_271)" -"(let-values(((fold-var_272) fold-var_270))" +"(let-values(((fold-var_272)" +"(let-values(((fold-var_273) fold-var_271))" "(if(eq? kind_7 'module)" -"(let-values(((fold-var_273) fold-var_272))" -"(let-values(((fold-var_274)" +"(let-values(((fold-var_274) fold-var_273))" +"(let-values(((fold-var_275)" "(let-values()" "(cons" "(let-values() name_61)" +" fold-var_274))))" +"(values fold-var_275)))" " fold-var_273))))" -"(values fold-var_274)))" -" fold-var_272))))" "(if(not #f)" -"(for-loop_269 fold-var_271(hash-iterate-next ht_146 i_168))" -" fold-var_271)))" -" fold-var_270)))))" -" for-loop_269)" +"(for-loop_268 fold-var_272(hash-iterate-next ht_146 i_168))" +" fold-var_272)))" +" fold-var_271)))))" +" for-loop_268)" " null" "(hash-iterate-first ht_146))))))))))))" "(define-values" @@ -43096,7 +43106,7 @@ static const char *startup_source = "(let-values(((new-id_0)(add-scopes id_34(expand-context-scopes ctx_30))))" "(if(syntax-clean? id_34) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" -"((id_85)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_85 #f #f)))" +"((id_87)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_87 #f #f)))" "((id_36 only-generated?57_1)(syntax-local-get-shadower60_0 id_36 only-generated?57_1 #t)))))" "(define-values" "(syntax-source-accessor)" @@ -43136,13 +43146,13 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_196)" +"(lambda(v_198)" "(begin" -"(if(srcloc? v_196)" +"(if(srcloc? v_198)" "(let-values()" "(let-values(((the-struct_68) empty-syntax))" "(if(syntax?$1 the-struct_68)" -"(let-values(((srcloc1_2) v_196))" +"(let-values(((srcloc1_2) v_198))" "(syntax1.1" "(syntax-content the-struct_68)" "(syntax-scopes the-struct_68)" @@ -43153,19 +43163,19 @@ static const char *startup_source = "(syntax-props the-struct_68)" "(syntax-inspector the-struct_68)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))" -"(if(pair? v_196)" -"(let-values()(to-srcloc-stx(list->vector v_196)))" -"(if(vector? v_196)" +"(if(pair? v_198)" +"(let-values()(to-srcloc-stx(list->vector v_198)))" +"(if(vector? v_198)" "(let-values()" "(let-values(((the-struct_69) empty-syntax))" "(if(syntax?$1 the-struct_69)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_196 0)" -"(vector-ref v_196 1)" -"(vector-ref v_196 2)" -"(vector-ref v_196 3)" -"(vector-ref v_196 4))))" +"(vector-ref v_198 0)" +"(vector-ref v_198 1)" +"(vector-ref v_198 2)" +"(vector-ref v_198 3)" +"(vector-ref v_198 4))))" "(syntax1.1" "(syntax-content the-struct_69)" "(syntax-scopes the-struct_69)" @@ -43176,7 +43186,7 @@ static const char *startup_source = "(syntax-props the-struct_69)" "(syntax-inspector the-struct_69)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_69))))" -"(let-values() v_196)))))))" +"(let-values() v_198)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -43246,9 +43256,9 @@ static const char *startup_source = "(datum->syntax$1 stx-c_4 s_177(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_304)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_304 #f #f #f #f #f #f)))" -"((stx-c_6 s_451 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_451 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_6 s_450 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_450 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_75 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_75 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_452 stx-l1_1)(datum->syntax9_0 stx-c_8 s_452 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_8 s_451 stx-l1_1)(datum->syntax9_0 stx-c_8 s_451 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -43277,7 +43287,7 @@ static const char *startup_source = " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" "(let-values(((b_82) b14_0))" -"(let-values(((phase_129)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((phase_131)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -43288,10 +43298,10 @@ static const char *startup_source = "(if(identifier? b_82)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_82)))" -"(if(phase? phase_129)" +"(if(phase? phase_131)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))" -"(bound-identifier=?$1 a_53 b_82 phase_129))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_131)))" +"(bound-identifier=?$1 a_53 b_82 phase_131))))))))))))" "(case-lambda" "((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" "((a_55 b_83 phase11_1)(bound-identifier=?15_0 a_55 b_83 phase11_1 #t)))))" @@ -43345,8 +43355,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_88)))" "(values))))" -"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_88 phase_130 phase_130)))))))))" +"(let-values(((phase_132)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_88 phase_132 phase_132)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_61 b_89)" @@ -43366,8 +43376,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_131 phase_131)))))))))" +"(let-values(((phase_133)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_89 phase_133 phase_133)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_62 b_90)" @@ -43389,44 +43399,44 @@ static const char *startup_source = "(lambda(id29_1 phase25_0 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" "(begin" " 'identifier-binding30" -"(let-values(((id_86) id29_1))" +"(let-values(((id_88) id29_1))" "(let-values(((phase_36)(if phase27_0 phase25_0(1/syntax-local-phase-level))))" "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_86)" +"(if(identifier? id_88)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_86)))" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_88)))" "(if(phase? phase_36)" "(void)" "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_36)))" -"(identifier-binding$1 id_86 phase_36 top-level-symbol?_1))))))))))))" +"(identifier-binding$1 id_88 phase_36 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_87)(begin 'identifier-binding(identifier-binding30_0 id_87 #f #f #f #f)))" -"((id_88 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_88 phase_132 top-level-symbol?26_1 #t #t))" -"((id_89 phase25_1)(identifier-binding30_0 id_89 phase25_1 #f #t #f)))))" +"((id_89)(begin 'identifier-binding(identifier-binding30_0 id_89 #f #f #f #f)))" +"((id_90 phase_134 top-level-symbol?26_1)(identifier-binding30_0 id_90 phase_134 top-level-symbol?26_1 #t #t))" +"((id_91 phase25_1)(identifier-binding30_0 id_91 phase25_1 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding35_0)" "(lambda(id34_1 phase32_2 phase33_1)" "(begin" " 'identifier-transformer-binding35" -"(let-values(((id_90) id34_1))" -"(let-values(((phase_133)(if phase33_1 phase32_2(1/syntax-local-phase-level))))" +"(let-values(((id_92) id34_1))" +"(let-values(((phase_135)(if phase33_1 phase32_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_90)" +"(if(identifier? id_92)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_90)))" -"(identifier-binding$1 id_90(if phase_133(add1 phase_133) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_92)))" +"(identifier-binding$1 id_92(if phase_135(add1 phase_135) #f))))))))))))" "(case-lambda" -"((id_91)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_91 #f #f)))" -"((id_92 phase32_3)(identifier-transformer-binding35_0 id_92 phase32_3 #t)))))" +"((id_93)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_93 #f #f)))" +"((id_94 phase32_3)(identifier-transformer-binding35_0 id_94 phase32_3 #t)))))" "(define-values" "(1/identifier-template-binding)" "(lambda(id_54)" @@ -43441,55 +43451,55 @@ static const char *startup_source = "(identifier-binding$1 id_54(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_93)" +"(lambda(id_95)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_93)" +"(if(identifier? id_95)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_93)))" -"(identifier-binding$1 id_93 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_95)))" +"(identifier-binding$1 id_95 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" "(lambda(id39_0 phase37_2 phase38_0)" "(begin" " 'identifier-binding-symbol40" -"(let-values(((id_94) id39_0))" -"(let-values(((phase_134)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" -"(let-values()" -"(let-values()" -"(let-values()" -"(begin" -"(if(identifier? id_94)" -"(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_94)))" -"(if(phase? phase_134)" -"(void)" -"(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_134)))" -"(identifier-binding-symbol$1 id_94 phase_134)))))))))))" -"(case-lambda" -"((id_95)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_95 #f #f)))" -"((id_70 phase37_3)(identifier-binding-symbol40_0 id_70 phase37_3 #t)))))" -"(define-values" -"(1/identifier-prune-lexical-context)" -"(let-values(((identifier-prune-lexical-context45_0)" -"(lambda(id44_0 syms42_0 syms43_0)" -"(begin" -" 'identifier-prune-lexical-context45" -"(let-values(((id_96) id44_0))" -"(let-values(((syms_22)(if syms43_0 syms42_0 null)))" +"(let-values(((id_96) id39_0))" +"(let-values(((phase_136)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" "(if(identifier? id_96)" "(void)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_96)))" +"(if(phase? phase_136)" +"(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_96)))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_136)))" +"(identifier-binding-symbol$1 id_96 phase_136)))))))))))" +"(case-lambda" +"((id_97)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_97 #f #f)))" +"((id_79 phase37_3)(identifier-binding-symbol40_0 id_79 phase37_3 #t)))))" +"(define-values" +"(1/identifier-prune-lexical-context)" +"(let-values(((identifier-prune-lexical-context45_0)" +"(lambda(id44_0 syms42_0 syms43_0)" +"(begin" +" 'identifier-prune-lexical-context45" +"(let-values(((id_98) id44_0))" +"(let-values(((syms_22)(if syms43_0 syms42_0 null)))" +"(let-values()" +"(let-values()" +"(let-values()" +"(begin" +"(if(identifier? id_98)" +"(void)" +"(let-values()" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_98)))" "(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" @@ -43497,30 +43507,30 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_22)))" -" id_96))))))))))" +" id_98))))))))))" "(case-lambda" -"((id_97)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_97 #f #f)))" -"((id_98 syms42_1)(identifier-prune-lexical-context45_0 id_98 syms42_1 #t)))))" +"((id_99)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_99 #f #f)))" +"((id_100 syms42_1)(identifier-prune-lexical-context45_0 id_100 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" "(lambda(s51_0 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_453) s51_0))" -"(let-values(((phase_135)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((s_452) s51_0))" +"(let-values(((phase_137)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_453)" +"(if(syntax?$1 s_452)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_453)))" -"(if(phase? phase_135)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_452)))" +"(if(phase? phase_137)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_135)))" -"(syntax-debug-info$1 s_453 phase_135 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_137)))" +"(syntax-debug-info$1 s_452 phase_137 all-bindings?_1))))))))))))" "(case-lambda" "((s_314)(begin 'syntax-debug-info(syntax-debug-info52_0 s_314 #f #f #f #f)))" "((s_91 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_91 phase_101 all-bindings?48_1 #t #t))" @@ -43540,7 +43550,7 @@ static const char *startup_source = "(syntax-shift-phase-level$1 s_93 phase_23)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_99)" +"(lambda(new-stx_8 old-stx_4 id_101)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -43559,11 +43569,11 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_99)" +"(if(identifier? id_101)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_99)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_101)))" "(values))))" -"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_99)))" +"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_101)))" "(let-values(((ctx_66)" "(let-values(((temp73_0) #t))(get-current-expand-context17.1 temp73_0 #t #f #f))))" "(begin" @@ -43667,17 +43677,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_23 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_129)(namespace-phase src-namespace_6)))" +"(let-values(((phase_131)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_129(namespace-phase dest-namespace_2))" +"(if(eqv? phase_131(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_23" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_129" +" phase_131" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43687,7 +43697,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_98)" "(lambda(mpi_48" -" phase_136" +" phase_138" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43706,7 +43716,7 @@ static const char *startup_source = " mpi_48)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_136 attach-phase_0)" +"(eqv? phase_138 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43714,7 +43724,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_136" +" phase_138" " missing_0)))" "(if(let-values(((or-part_251)" "(eq? missing_0 m-ns_12)))" @@ -43740,9 +43750,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_136))" +"(label-phase? phase_138))" "(not" -"(zero-phase? phase_136))" +"(zero-phase? phase_138))" " #f)" " #f)" "(let-values()" @@ -43787,7 +43797,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_136))" +" phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43816,7 +43826,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_136))" +" phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43855,14 +43865,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_136)" +" phase_138)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_136))" +" phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43889,7 +43899,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_48)" "((phase43_1)" -" phase_136))" +" phase_138))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -43915,7 +43925,7 @@ static const char *startup_source = "(lambda(ht_147)" "(hash-set" " ht_147" -" phase_136" +" phase_138" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43941,7 +43951,7 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_280))" -"((rest_168)" +"((rest_165)" "(unsafe-cdr" " lst_280)))" "(let-values((()" @@ -43980,7 +43990,7 @@ static const char *startup_source = " m_20)" " mpi_48)" "(phase+" -" phase_136" +" phase_138" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43998,13 +44008,13 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_17" -" rest_168)" +" rest_165)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_298)" +"(let-values(((lst_297)" "(module-submodule-names" " m_20)))" "(begin" @@ -44013,19 +44023,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_298)))" -"((letrec-values(((for-loop_270)" -"(lambda(lst_299)" +" lst_297)))" +"((letrec-values(((for-loop_269)" +"(lambda(lst_298)" "(begin" " 'for-loop" "(if(pair?" -" lst_299)" +" lst_298)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_299))" -"((rest_169)" +" lst_298))" +"((rest_166)" "(unsafe-cdr" -" lst_299)))" +" lst_298)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -44046,12 +44056,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_270" -" rest_169)" +"(for-loop_269" +" rest_166)" "(values))))" "(values))))))" -" for-loop_270)" -" lst_298)))" +" for-loop_269)" +" lst_297)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -44072,9 +44082,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_129" +" phase_131" " attach-instances?_0" -" phase_129)" +" phase_131)" "(values))))" "(let-values((()" "(begin" @@ -44102,12 +44112,12 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_149)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_270)" "(lambda(i_170)" "(begin" " 'for-loop" "(if i_170" -"(let-values(((phase_137" +"(let-values(((phase_139" " m-ns_15)" "(hash-iterate-key+value" " ht_149" @@ -44153,14 +44163,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_137)" +" phase_139)" "(let-values(((or-part_72)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_137))" +" phase_139))" "(namespace->module-namespace82.1" " #f" " #f" @@ -44176,7 +44186,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_137" +" phase_139" " m_21" " m-ns_15)))))" "(void)))))" @@ -44184,13 +44194,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_271" +"(for-loop_270" "(hash-iterate-next" " ht_149" " i_170))" "(values))))" "(values))))))" -" for-loop_271)" +" for-loop_270)" "(hash-iterate-first" " ht_149))))))" "(if(not #f)" @@ -44295,7 +44305,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_150)))" "((letrec-values(((for-loop_216)" -"(lambda(fold-var_275 i_172)" +"(lambda(fold-var_276 i_172)" "(begin" " 'for-loop" "(if i_172" @@ -44305,7 +44315,7 @@ static const char *startup_source = " i_172)))" "(let-values(((fold-var_222)" "(let-values(((fold-var_223)" -" fold-var_275))" +" fold-var_276))" "(if(equal?" " sc_34" " post-scope_1)" @@ -44327,7 +44337,7 @@ static const char *startup_source = " ht_150" " i_172))" " fold-var_222)))" -" fold-var_275)))))" +" fold-var_276)))))" " for-loop_216)" " null" "(unsafe-immutable-hash-iterate-first ht_150)))))))" @@ -44376,7 +44386,7 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_454)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_454 #f #f)))" +"((s_453)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_453 #f #f)))" "((s_75 ns1_4)(namespace-syntax-introduce4_0 s_75 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" @@ -44726,7 +44736,7 @@ static const char *startup_source = " ns_81))" "(void))" "(values))))" -"(let-values(((v_197" +"(let-values(((v_199" " primitive?_8" " extra-inspector_8" " protected?_9)" @@ -44752,7 +44762,7 @@ static const char *startup_source = " id136_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_197)" +"(if(variable? v_199)" "(void)" "(let-values()" "(escape_0" @@ -44787,7 +44797,7 @@ static const char *startup_source = "(namespace-phase ns_81)" " sym_71))))))))" "(let-values()(values ns_81(namespace-phase ns_81) sym_71)))))" -"(let-values(((val_72)" +"(let-values(((val_73)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" @@ -44806,7 +44816,7 @@ static const char *startup_source = " sym_71)" "(current-continuation-marks)" " sym_71)))))))))" -"(lambda() val_72))))))))))))))))))" +"(lambda() val_73))))))))))))))))))" "(case-lambda" "((sym_72)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_72 #f #f #f #f #f #f)))" "((sym_73 use-mapping?_1 failure-thunk_6 ns48_1)" @@ -44821,7 +44831,7 @@ static const char *startup_source = "(begin" " 'namespace-set-variable-value!63" "(let-values(((sym_76) sym61_0))" -"(let-values(((val_73) val62_0))" +"(let-values(((val_74) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" "(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" @@ -44841,7 +44851,7 @@ static const char *startup_source = " ns_82" "(namespace-phase ns_82)" " sym_76" -" val_73" +" val_74" " as-constant?_2)" "(if map?_0" "(let-values()" @@ -44852,8 +44862,8 @@ static const char *startup_source = "(namespace-phase ns_82)" " sym_76)" "(values))))" -"(let-values(((id_100)(1/datum->syntax #f sym_76)))" -"(let-values(((temp138_1)(1/namespace-syntax-introduce id_100 ns_82))" +"(let-values(((id_73)(1/datum->syntax #f sym_76)))" +"(let-values(((temp138_1)(1/namespace-syntax-introduce id_73 ns_82))" "((temp139_0)" "(let-values(((temp141_0)(namespace-mpi ns_82))" "((temp142_2)(namespace-phase ns_82))" @@ -44884,12 +44894,12 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f temp138_1 temp139_0 temp140_1)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_77 val_74)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_77 val_74 #f #f #f #f #f #f)))" -"((sym_78 val_75 map?_1 ns_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_78 val_75 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_79 val_76 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_79 val_76 map?_2 ns56_1 #f #t #t #f))" -"((sym_80 val_77 map?55_1)(namespace-set-variable-value!63_0 sym_80 val_77 map?55_1 #f #f #t #f #f)))))" +"((sym_77 val_75)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_77 val_75 #f #f #f #f #f #f)))" +"((sym_78 val_76 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_78 val_76 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_79 val_77 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_79 val_77 map?_2 ns56_1 #f #t #t #f))" +"((sym_80 val_78 map?55_1)(namespace-set-variable-value!63_0 sym_80 val_78 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" @@ -44965,7 +44975,7 @@ static const char *startup_source = "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_455 ns_87)(begin 'compile(1/compile s_455 ns_87 #f))))))" +"(lambda(s_454 ns_87)(begin 'compile(1/compile s_454 ns_87 #f))))))" "(let-values()" "(if(let-values(((or-part_287)(compiled-in-memory? s_178)))" "(if or-part_287" @@ -45039,21 +45049,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_456) s22_0))" +"(let-values(((s_455) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_456)" -"(let-values()(list s_456))" -"(if(if(syntax?$1 s_456)" -"(1/compiled-expression?(1/syntax-e s_456))" +"(if(1/compiled-expression? s_455)" +"(let-values()(list s_455))" +"(if(if(syntax?$1 s_455)" +"(1/compiled-expression?(1/syntax-e s_455))" " #f)" -"(let-values()(list(1/syntax-e s_456)))" +"(let-values()(list(1/syntax-e s_455)))" "(let-values()" -"(let-values(((s86_0) s_456)" +"(let-values(((s86_0) s_455)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_80 ns_49 as-tail?_4)" @@ -45097,8 +45107,8 @@ static const char *startup_source = " cs91_0))))))))))))))" "(case-lambda" "((s_189)(begin 'compile(compile23_0 s_189 #f #f #f #f #f #f #f #f)))" -"((s_457 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_457 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_456 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_456 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_81 ns_94 serializable?_6 expand16_1)(compile23_0 s_81 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_19 ns_95 serializable?15_1)(compile23_0 s_19 ns_95 serializable?15_1 #f #f #t #t #f #f))" "((s_156 ns14_3)(compile23_0 s_156 ns14_3 #f #f #f #t #f #f #f)))))" @@ -45112,7 +45122,7 @@ static const char *startup_source = "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_25 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_458)(begin(compile-to-linklets28_0 s_458 #f #f)))" +"((s_457)(begin(compile-to-linklets28_0 s_457 #f #f)))" "((s_307 ns25_1)(compile-to-linklets28_0 s_307 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -45176,22 +45186,22 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_300)" +"(let-values(((lst_299)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_272)" +"(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_271)" "(lambda(fold-var_164 lst_168)" "(begin" " 'for-loop" "(if(pair? lst_168)" "(let-values(((e_76)" "(unsafe-car lst_168))" -"((rest_170)" +"((rest_167)" "(unsafe-cdr lst_168)))" "(let-values(((fold-var_165)" "(let-values(((fold-var_0)" @@ -45206,14 +45216,14 @@ static const char *startup_source = "(values" " fold-var_238)))))" "(if(not #f)" -"(for-loop_272" +"(for-loop_271" " fold-var_165" -" rest_170)" +" rest_167)" " fold-var_165)))" " fold-var_164)))))" -" for-loop_272)" +" for-loop_271)" " null" -" lst_300)))))" +" lst_299)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" @@ -45279,9 +45289,9 @@ static const char *startup_source = "(let-values(((s108_0) s_317)" "((ns109_1) ns_98)" "((temp110_1)" -"(lambda(s_459 ns_99 as-tail?_5)" +"(lambda(s_458 ns_99 as-tail?_5)" "(expand-single" -" s_459" +" s_458" " ns_99" " observer_2" " to-parsed?_2" @@ -45308,9 +45318,9 @@ static const char *startup_source = "((s_305)(begin 'expand(expand40_0 s_305 #f #f #f #f #f #f #f #f)))" "((s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" "(expand40_0 s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_460 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_460 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_459 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_459 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" -"((s_461 ns31_4)(expand40_0 s_461 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_460 ns31_4)(expand40_0 s_460 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_414 ns_103 observer_3 to-parsed?_4 serializable?_9)" @@ -45395,10 +45405,10 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_462) s44_1))" +"(let-values(((s_461) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_462)" +"(let-values(((s128_0) s_461)" "((ns129_0) ns_104)" "((temp130_1)" "(lambda(s_206 ns_105 as-tail?_6)(expand-single-once s_206 ns_105)))" @@ -45422,22 +45432,22 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_463)(begin 'expand-once(expand-once45_0 s_463 #f #f)))" -"((s_464 ns42_2)(expand-once45_0 s_464 ns42_2 #t)))))" +"((s_462)(begin 'expand-once(expand-once45_0 s_462 #f #f)))" +"((s_463 ns42_2)(expand-once45_0 s_463 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_465 ns_45)" +"(lambda(s_464 ns_45)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_465" -"(let-values(((v_198)" +" s_464" +"(let-values(((v_200)" "(let-values(((ns135_1) ns_45))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_70) v_198))" +"(let-values(((the-struct_70) v_200))" "(if(expand-context/outer? the-struct_70)" "(let-values(((inner136_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_198)))" +"(let-values(((the-struct_71)(root-expand-context/outer-inner v_200)))" "(if(expand-context/inner? the-struct_71)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" @@ -45535,8 +45545,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_466)(begin 'expand-to-top-form(expand-to-top-form50_0 s_466 #f #f)))" -"((s_467 ns47_3)(expand-to-top-form50_0 s_467 ns47_3 #t)))))" +"((s_465)(begin 'expand-to-top-form(expand-to-top-form50_0 s_465 #f #f)))" +"((s_466 ns47_3)(expand-to-top-form50_0 s_466 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -45569,9 +45579,9 @@ static const char *startup_source = "(let-values(((ctx_23)" "(let-values(((ns146_0) ns_106)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_138)(namespace-phase ns_106)))" +"(let-values(((phase_140)(namespace-phase ns_106)))" "((letrec-values(((loop_100)" -"(lambda(s_159 phase_139 ns_107 as-tail?_7)" +"(lambda(s_159 phase_141 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -45585,7 +45595,7 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase149_0)" -" phase_139)" +" phase_141)" "((namespace150_0)" " ns_107)" "((just-once?151_0)" @@ -45694,8 +45704,8 @@ static const char *startup_source = "(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" " s_159" -"(let-values(((v_199) tl-ctx_0))" -"(let-values(((the-struct_73) v_199))" +"(let-values(((v_201) tl-ctx_0))" +"(let-values(((the-struct_73) v_201))" "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?153_0)" " #t)" @@ -45704,11 +45714,11 @@ static const char *startup_source = "((inner155_0)" "(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_199)))" +" v_201)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase156_0)" -" phase_139)" +" phase_141)" "((namespace157_0)" " ns_107))" "(expand-context/inner2.1" @@ -45810,7 +45820,7 @@ static const char *startup_source = " require-lifts_5" " lifts_12))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_139))" +"((phase160_0) phase_141))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -45835,7 +45845,7 @@ static const char *startup_source = " new-s_3" "(loop_100" " new-s_3" -" phase_139" +" phase_141" " ns_107" " as-tail?_7)))))" "(if(not single_0)" @@ -45859,7 +45869,7 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_139)))" +" phase_141)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" @@ -45876,25 +45886,25 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_468)" +"(let-values(((s_467)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_468))" +" s_467))" "(let-values(((begin161_1" " e162_1)" "(let-values(((s_222)" "(if(syntax?$1" -" s_468)" +" s_467)" "(syntax-e$1" -" s_468)" -" s_468)))" +" s_467)" +" s_467)))" "(if(pair?" " s_222)" "(let-values(((begin163_0)" -"(let-values(((s_469)" +"(let-values(((s_468)" "(car" " s_222)))" -" s_469))" +" s_468))" "((e164_0)" "(let-values(((s_224)" "(cdr" @@ -45946,7 +45956,7 @@ static const char *startup_source = "(let-values()" "(loop_100" "(car es_2)" -" phase_139" +" phase_141" " ns_107" " as-tail?_7))" "(let-values()" @@ -45968,14 +45978,14 @@ static const char *startup_source = "(loop_100" "(car" " es_2)" -" phase_139" +" phase_141" " ns_107" " #f)" "(begin" "(loop_100" "(car" " es_2)" -" phase_139" +" phase_141" " ns_107" " #f)" "(void)))))" @@ -46029,35 +46039,35 @@ static const char *startup_source = "(let-values(((ok?_29" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_470)" +"(let-values(((s_469)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_470))" +" s_469))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_471)" +"(let-values(((s_470)" "(if(syntax?$1" -" s_470)" +" s_469)" "(syntax-e$1" -" s_470)" -" s_470)))" +" s_469)" +" s_469)))" "(if(pair?" -" s_471)" +" s_470)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_472)" +"(let-values(((s_471)" "(car" -" s_471)))" -" s_472))" +" s_470)))" +" s_471))" "((e168_0)" -"(let-values(((s_473)" +"(let-values(((s_472)" "(cdr" -" s_471)))" +" s_470)))" "(let-values(((s_228)" "(if(syntax?$1" -" s_473)" +" s_472)" "(syntax-e$1" -" s_473)" -" s_473)))" +" s_472)" +" s_472)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" " s_228)))" @@ -46082,7 +46092,7 @@ static const char *startup_source = " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_139)))" +"(add1 phase_141)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" @@ -46115,7 +46125,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_74)" "(reverse$1" -"(let-values(((lst_301)" +"(let-values(((lst_300)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -46123,24 +46133,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_301)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_260" -" lst_302)" +" lst_300)))" +"((letrec-values(((for-loop_272)" +"(lambda(fold-var_261" +" lst_301)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" -"(let-values(((s_474)" +" lst_301)" +"(let-values(((s_473)" "(unsafe-car" -" lst_302))" -"((rest_171)" +" lst_301))" +"((rest_168)" "(unsafe-cdr" -" lst_302)))" -"(let-values(((fold-var_276)" +" lst_301)))" "(let-values(((fold-var_277)" -" fold-var_260))" "(let-values(((fold-var_278)" +" fold-var_261))" +"(let-values(((fold-var_279)" "(let-values()" "(cons" "(let-values()" @@ -46156,23 +46166,23 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_100" -" s_474" +" s_473" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_277))))" +" fold-var_278))))" "(values" -" fold-var_278)))))" +" fold-var_279)))))" "(if(not" " #f)" -"(for-loop_273" -" fold-var_276" -" rest_171)" -" fold-var_276)))" -" fold-var_260)))))" -" for-loop_273)" +"(for-loop_272" +" fold-var_277" +" rest_168)" +" fold-var_277)))" +" fold-var_261)))))" +" for-loop_272)" " null" -" lst_301))))))" +" lst_300))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -46207,13 +46217,13 @@ static const char *startup_source = " as-tail?_7))))))))))))))))))" " loop_100)" " s_109" -" phase_138" +" phase_140" " ns_106" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_475 ns_108)" -"(begin(if(syntax?$1 s_475) s_475(1/namespace-syntax-introduce(1/datum->syntax #f s_475) ns_108)))))" +"(lambda(s_474 ns_108)" +"(begin(if(syntax?$1 s_474) s_474(1/namespace-syntax-introduce(1/datum->syntax #f s_474) ns_108)))))" "(define-values" "(re-pair)" "(lambda(form-id_0 s_241 r_43)" @@ -46235,12 +46245,12 @@ static const char *startup_source = "(let-values(((exp-s_9)" "(let-values(((s170_0) s_243)" "((temp171_2)" -"(let-values(((v_200) ctx_68))" -"(let-values(((the-struct_75) v_200))" +"(let-values(((v_202) ctx_68))" +"(let-values(((the-struct_75) v_202))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner172_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_200)))" +"(root-expand-context/outer-inner v_202)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" @@ -46321,12 +46331,12 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_476 phase_140)" +"(lambda(s_475 phase_142)" "(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_477)(syntax-disarm$1 s_476)))" -"(let-values(((orig-s_35) s_477))" +"(let-values(((s_476)(syntax-disarm$1 s_475)))" +"(let-values(((orig-s_35) s_476))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_353)(if(syntax?$1 s_477)(syntax-e$1 s_477) s_477)))" +"(let-values(((s_353)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" "(if(pair? s_353)" "(let-values(((#%require178_0)(let-values(((s_356)(car s_353))) s_356))" "((req179_0)" @@ -46337,8 +46347,8 @@ static const char *startup_source = " s_357)))" "(if(pair? s_248)" "(let-values(((req180_0)" -"(let-values(((s_478)(car s_248)))" -" s_478))" +"(let-values(((s_477)(car s_248)))" +" s_477))" "(()" "(let-values(((s_359)(cdr s_248)))" "(let-values(((s_360)" @@ -46357,10 +46367,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_1) s_476)" +"((s182_1) s_475)" "((ns183_0) ns_110)" -"((phase184_1) phase_140)" -"((phase185_0) phase_140)" +"((phase184_1) phase_142)" +"((phase185_0) phase_142)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46402,48 +46412,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_303) require-lifts_6))" +"(let-values(((lst_302) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_303)))" -"((letrec-values(((for-loop_274)" -"(lambda(fold-var_279 lst_304)" +"(let-values()(check-list lst_302)))" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_280 lst_303)" "(begin" " 'for-loop" -"(if(pair? lst_304)" -"(let-values(((req_19)(unsafe-car lst_304))" -"((rest_172)(unsafe-cdr lst_304)))" -"(let-values(((fold-var_280)" -"(let-values(((fold-var_281) fold-var_279))" -"(let-values(((fold-var_282)" +"(if(pair? lst_303)" +"(let-values(((req_19)(unsafe-car lst_303))" +"((rest_169)(unsafe-cdr lst_303)))" +"(let-values(((fold-var_281)" +"(let-values(((fold-var_282) fold-var_280))" +"(let-values(((fold-var_283)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_281))))" -"(values fold-var_282)))))" -"(if(not #f)(for-loop_274 fold-var_280 rest_172) fold-var_280)))" -" fold-var_279)))))" -" for-loop_274)" +" fold-var_282))))" +"(values fold-var_283)))))" +"(if(not #f)(for-loop_273 fold-var_281 rest_169) fold-var_281)))" +" fold-var_280)))))" +" for-loop_273)" " null" -" lst_303))))" +" lst_302))))" "(reverse$1" -"(let-values(((lst_305)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_304)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" -"((letrec-values(((for-loop_275)" -"(lambda(fold-var_283 lst_306)" +"(let-values()(check-list lst_304)))" +"((letrec-values(((for-loop_274)" +"(lambda(fold-var_284 lst_305)" "(begin" " 'for-loop" -"(if(pair? lst_306)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_306))" -"((rest_173)(unsafe-cdr lst_306)))" -"(let-values(((fold-var_284)" -"(let-values(((fold-var_285) fold-var_283))" -"(let-values(((fold-var_286)" +"(if(pair? lst_305)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_305))" +"((rest_170)(unsafe-cdr lst_305)))" +"(let-values(((fold-var_285)" +"(let-values(((fold-var_286) fold-var_284))" +"(let-values(((fold-var_287)" "(let-values()" "(cons" "(let-values()" @@ -46482,13 +46492,13 @@ static const char *startup_source = " \"lifted-parsed-begin?\"" " the-struct_77)))" " dv_0)))))" -" fold-var_285))))" -"(values fold-var_286)))))" -"(if(not #f)(for-loop_275 fold-var_284 rest_173) fold-var_284)))" -" fold-var_283)))))" -" for-loop_275)" +" fold-var_286))))" +"(values fold-var_287)))))" +"(if(not #f)(for-loop_274 fold-var_285 rest_170) fold-var_285)))" +" fold-var_284)))))" +" for-loop_274)" " null" -" lst_305)))))" +" lst_304)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -46512,10 +46522,10 @@ static const char *startup_source = "(if obs_58" "(let-values()" "(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_479) new-s_7))" -"(let-values(((orig-s_36) s_479))" +"(let-values(((s_478) new-s_7))" +"(let-values(((orig-s_36) s_478))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_389)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" +"(let-values(((s_389)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" "(if(pair? s_389)" "(let-values(((begin195_0)(let-values(((s_141)(car s_389))) s_141))" "((e196_0)" @@ -46550,19 +46560,19 @@ static const char *startup_source = "(if obs_59" "(let-values()" "(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_480) new-s_8))" -"(let-values(((orig-s_37) s_480))" +"(let-values(((s_479) new-s_8))" +"(let-values(((orig-s_37) s_479))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_481)(if(syntax?$1 s_480)(syntax-e$1 s_480) s_480)))" -"(if(pair? s_481)" -"(let-values(((begin199_0)(let-values(((s_406)(car s_481))) s_406))" +"(let-values(((s_480)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" +"(if(pair? s_480)" +"(let-values(((begin199_0)(let-values(((s_406)(car s_480))) s_406))" "((e200_0)" -"(let-values(((s_407)(cdr s_481)))" -"(let-values(((s_482)" +"(let-values(((s_407)(cdr s_480)))" +"(let-values(((s_481)" "(if(syntax?$1 s_407)" "(syntax-e$1 s_407)" " s_407)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_482)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_481)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46641,13 +46651,13 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_49 #t)))" -"(let-values(((phase_141)(namespace-phase ns_58)))" +"(let-values(((phase_143)(namespace-phase ns_58)))" "(if(not sym_84)" "(let-values()" "(let-values(((ns20_1) ns_58)" "((mpi21_0) mpi_49)" -"((phase22_0) phase_141)" -"((phase23_1) phase_141)" +"((phase22_0) phase_143)" +"((phase23_1) phase_143)" "((temp24_4) #f))" "(namespace-module-instantiate!96.1" " temp24_4" @@ -46665,8 +46675,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns25_2) ns_58)" "((mpi26_0) mpi_49)" -"((phase27_1) phase_141)" -"((phase28_1) phase_141))" +"((phase27_1) phase_143)" +"((phase28_1) phase_143))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -46683,8 +46693,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_49)" -"((phase31_0) phase_141)" -"((phase32_4) phase_141))" +"((phase31_0) phase_143)" +"((phase32_4) phase_143))" "(namespace-module-visit!104.1" " phase32_4" " #t" @@ -46729,8 +46739,8 @@ static const char *startup_source = "(begin" "(let-values(((ns33_0) ns_58)" "((mpi34_0) mpi_49)" -"((phase35_1) phase_141)" -"((phase36_0) phase_141)" +"((phase35_1) phase_143)" +"((phase36_0) phase_143)" "((temp37_2) #f))" "(namespace-module-instantiate!96.1" " temp37_2" @@ -46757,7 +46767,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp40_2)" "(phase-" -" phase_141" +" phase_143" " ex-phase_0))" "((temp41_3) #t))" "(namespace->module-namespace82.1" @@ -46854,9 +46864,9 @@ static const char *startup_source = "((mpi43_1)" " mpi_49)" "((phase44_0)" -" phase_141)" +" phase_143)" "((phase45_1)" -" phase_141))" +" phase_143))" "(namespace-module-visit!104.1" " phase45_1" " #t" @@ -47107,31 +47117,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_152)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_275)" "(lambda(table_216 i_90)" "(begin" " 'for-loop" "(if i_90" -"(let-values(((k_36 v_201)(hash-iterate-key+value ht_152 i_90)))" +"(let-values(((k_36 v_203)(hash-iterate-key+value ht_152 i_90)))" "(let-values(((table_217)" "(let-values(((table_185) table_216))" "(let-values(((table_218)" "(let-values()" -"(let-values(((key_83 val_78)" +"(let-values(((key_83 val_79)" "(let-values()" "(values" " k_36" -"(to-path v_201)))))" +"(to-path v_203)))))" "(hash-set" " table_185" " key_83" -" val_78)))))" +" val_79)))))" "(values table_218)))))" "(if(not #f)" -"(for-loop_276 table_217(hash-iterate-next ht_152 i_90))" +"(for-loop_275 table_217(hash-iterate-next ht_152 i_90))" " table_217)))" " table_216)))))" -" for-loop_276)" +" for-loop_275)" " '#hash()" "(hash-iterate-first ht_152)))))))))" " l_8)))))))" @@ -47174,17 +47184,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_202)" +"(lambda(v_204)" "(begin" "(if((lambda(v_66)" "(let-values(((or-part_32)(eq? v_66 'modify-seconds)))" "(if or-part_32 or-part_32(eq? v_66 'exists))))" -" v_202)" +" v_204)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_202)))" -" v_202))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_204)))" +" v_204))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_79)(if v_79 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_203)(if v_203 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_205)(if v_205 #t #f))))" "(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" @@ -47565,7 +47575,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_204)" +"(let-values(((v_206)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" @@ -47582,7 +47592,7 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_204)" +"(if(if(list? v_206)" "(andmap2" "(lambda(p_67)" "(if(list? p_67)" @@ -47603,7 +47613,7 @@ static const char *startup_source = " #f)" " #f)" " #f))" -" v_204)" +" v_206)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -47641,19 +47651,19 @@ static const char *startup_source = "(let-values()(hash-set! ht_155 #f null)))" "(hash-for-each" " ht_155" -"(lambda(k_38 v_205)" -"(hash-set! ht_155 k_38(cons dir_1 v_205))))))" +"(lambda(k_38 v_207)" +"(hash-set! ht_155 k_38(cons dir_1 v_207))))))" "(let-values()" -"(let-values(((s_483)(string->symbol(car p_68))))" +"(let-values(((s_482)(string->symbol(car p_68))))" "(hash-set!" " ht_155" -" s_483" -"(cons(box dir_1)(hash-ref ht_155 s_483 null)))))))))" +" s_482" +"(cons(box dir_1)(hash-ref ht_155 s_482 null)))))))))" "(void)))" -" v_204)" +" v_206)" "(hash-for-each" " ht_155" -"(lambda(k_39 v_206)(hash-set! ht_155 k_39(reverse$1 v_206))))" +"(lambda(k_39 v_208)(hash-set! ht_155 k_39(reverse$1 v_208))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_155))" " ht_155))))))))))))))))))))))" "(define-values" @@ -47895,13 +47905,13 @@ static const char *startup_source = "(if(null? l_84)" " null" "(let-values(((collects-path_1)(car l_84)))" -"(let-values(((v_207)" +"(let-values(((v_209)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_207" +"(if v_209" "(cons" "(simplify-path" -"(path->complete-path v_207(current-directory)))" +"(path->complete-path v_209(current-directory)))" "(loop_84(cdr l_84)))" "(loop_84(cdr l_84))))))))))" " loop_84)" @@ -47921,14 +47931,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_208)" +"(lambda(v_210)" "(begin" "(if((lambda(x_81)" "(let-values(((or-part_11)(not x_81)))(if or-part_11 or-part_11(prop:readtable? x_81))))" -" v_208)" +" v_210)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_208)))" -" v_208))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_210)))" +" v_210))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -48055,41 +48065,41 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_25)(begin(read-config/outer-wrap v_25))))" -"(define-values(read-config-line)(lambda(v_209)(begin(read-config/outer-line v_209))))" -"(define-values(read-config-col)(lambda(v_210)(begin(read-config/outer-col v_210))))" -"(define-values(read-config-pos)(lambda(v_211)(begin(read-config/outer-pos v_211))))" -"(define-values(read-config-indentations)(lambda(v_212)(begin(read-config/outer-indentations v_212))))" -"(define-values(read-config-keep-comment?)(lambda(v_213)(begin(read-config/outer-keep-comment? v_213))))" +"(define-values(read-config-line)(lambda(v_211)(begin(read-config/outer-line v_211))))" +"(define-values(read-config-col)(lambda(v_212)(begin(read-config/outer-col v_212))))" +"(define-values(read-config-pos)(lambda(v_213)(begin(read-config/outer-pos v_213))))" +"(define-values(read-config-indentations)(lambda(v_214)(begin(read-config/outer-indentations v_214))))" +"(define-values(read-config-keep-comment?)(lambda(v_215)(begin(read-config/outer-keep-comment? v_215))))" "(define-values" "(read-config-readtable)" -"(lambda(v_214)(begin(read-config/inner-readtable(read-config/outer-inner v_214)))))" +"(lambda(v_216)(begin(read-config/inner-readtable(read-config/outer-inner v_216)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_215)(begin(read-config/inner-next-readtable(read-config/outer-inner v_215)))))" +"(lambda(v_217)(begin(read-config/inner-next-readtable(read-config/outer-inner v_217)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_216)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_216)))))" +"(lambda(v_218)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_218)))))" "(define-values(read-config-source)(lambda(v_73)(begin(read-config/inner-source(read-config/outer-inner v_73)))))" "(define-values" "(read-config-read-compiled)" "(lambda(v_188)(begin(read-config/inner-read-compiled(read-config/outer-inner v_188)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_217)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_217)))))" +"(lambda(v_219)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_219)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_218)(begin(read-config/inner-module-declared?(read-config/outer-inner v_218)))))" +"(lambda(v_220)(begin(read-config/inner-module-declared?(read-config/outer-inner v_220)))))" "(define-values(read-config-coerce)(lambda(v_80)(begin(read-config/inner-coerce(read-config/outer-inner v_80)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_219)(begin(read-config/inner-coerce-key(read-config/outer-inner v_219)))))" +"(lambda(v_221)(begin(read-config/inner-coerce-key(read-config/outer-inner v_221)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_207)(begin(read-config/inner-parameter-override(read-config/outer-inner v_207)))))" +"(lambda(v_209)(begin(read-config/inner-parameter-override(read-config/outer-inner v_209)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_220)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_220)))))" -"(define-values(read-config-st)(lambda(v_221)(begin(read-config/inner-st(read-config/outer-inner v_221)))))" +"(lambda(v_222)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_222)))))" +"(define-values(read-config-st)(lambda(v_223)(begin(read-config/inner-st(read-config/outer-inner v_223)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -48210,13 +48220,13 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_222) config_0))" -"(let-values(((the-struct_78) v_222))" +"(let-values(((v_224) config_0))" +"(let-values(((the-struct_78) v_224))" "(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_79)(read-config/outer-inner v_222)))" +"(let-values(((the-struct_79)(read-config/outer-inner v_224)))" "(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -48278,13 +48288,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_223) config_2))" -"(let-values(((the-struct_80) v_223))" +"(let-values(((v_225) config_2))" +"(let-values(((the-struct_80) v_225))" "(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_223)))" +"((inner65_0)(read-config/outer-inner v_225)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_80)" @@ -48298,10 +48308,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_224) config_3))" -"(let-values(((the-struct_81) v_224))" +"(let-values(((v_226) config_3))" +"(let-values(((the-struct_81) v_226))" "(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_224)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_226)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -48315,10 +48325,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_225) config_4))" -"(let-values(((the-struct_82) v_225))" +"(let-values(((v_227) config_4))" +"(let-values(((the-struct_82) v_227))" "(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_225)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_82)" @@ -48335,10 +48345,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_226) config_5))" -"(let-values(((the-struct_83) v_226))" +"(let-values(((v_228) config_5))" +"(let-values(((the-struct_83) v_228))" "(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_226)))" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_228)))" "(read-config/outer1.1" " inner71_0" "(read-config/outer-wrap the-struct_83)" @@ -48355,11 +48365,11 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_227) config_6))" -"(let-values(((the-struct_84) v_227))" +"(let-values(((v_229) config_6))" +"(let-values(((the-struct_84) v_229))" "(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_227)))" +"(let-values(((the-struct_85)(read-config/outer-inner v_229)))" "(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -48387,35 +48397,35 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" "(define-values" "(coerce)" -"(lambda(val_79 in_2 config_7)" +"(lambda(val_80 in_2 config_7)" "(begin" "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" "((read-config-coerce config_7)" " for-syntax?_5" -" val_79" +" val_80" "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_228)(begin 'default-reader-guard v_228)))" +"(define-values(default-reader-guard$1)(lambda(v_230)(begin 'default-reader-guard v_230)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_229)" +"(lambda(v_231)" "(begin" -"(if(if(procedure? v_229)(procedure-arity-includes? v_229 1) #f)" +"(if(if(procedure? v_231)(procedure-arity-includes? v_231 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_229)))" -" v_229))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_231)))" +" v_231))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_230)(if v_230 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_233)(if v_233 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_63)(if v_63 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_64)(if v_64 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" "(define-values(1/read-accept-box)(make-parameter #t(lambda(v_96)(if v_96 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_234)(if v_234 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_65)(if v_65 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -48791,7 +48801,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_233)" +"(let-values(((v_235)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48813,7 +48823,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_233) v_233(coerce v_233 in_3 config_14)))))))" +"(if(1/special-comment? v_235) v_235(coerce v_235 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48855,13 +48865,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_270)" "(lambda(fold-var_82 i_173)" "(begin" " 'for-loop" "(if i_173" "(let-values(((k_40 v_91)(hash-iterate-key+value ht_149 i_173)))" -"(let-values(((fold-var_287)" +"(let-values(((fold-var_288)" "(let-values(((fold-var_85) fold-var_82))" "(if(eqv? v_91 c_64)" "(let-values(((fold-var_242) fold-var_85))" @@ -48871,10 +48881,10 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_271 fold-var_287(hash-iterate-next ht_149 i_173))" -" fold-var_287)))" +"(for-loop_270 fold-var_288(hash-iterate-next ht_149 i_173))" +" fold-var_288)))" " fold-var_82)))))" -" for-loop_271)" +" for-loop_270)" " null" "(hash-iterate-first ht_149))))))))))" "(define-values" @@ -48972,8 +48982,8 @@ static const char *startup_source = "((config34_0) config_18)" " ((temp35_1) \"~a\")" "((temp36_4)" -"(let-values(((s_484)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_484 \"\")))" +"(let-values(((s_483)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_483 \"\")))" "((temp37_3)(exn-continuation-marks exn_2)))" "(reader-error12.1" " temp37_3" @@ -49605,14 +49615,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_234) elem-config_0))" -"(let-values(((the-struct_88) v_234))" +"(let-values(((v_236) elem-config_0))" +"(let-values(((the-struct_88) v_236))" "(if(read-config/outer? the-struct_88)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_234)))" +"((inner21_0)(read-config/outer-inner v_236)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_88)" @@ -49918,12 +49928,12 @@ static const char *startup_source = " temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_235)" +"(let-values(((v_237)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_235)" +"(if(1/special-comment? v_237)" "(let-values()" "(loop_98" " depth_11" @@ -49935,13 +49945,13 @@ static const char *startup_source = "(let-values()" "(loop_98" " depth_11" -"(cons v_235 accum_0)" +"(cons v_237 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_235" +" v_237" "(loop_98" "(add1 depth_11)" " null" @@ -50006,11 +50016,11 @@ static const char *startup_source = "(consume-char in_12 c_75)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_75))(void))" "((letrec-values(((loop_60)" -"(lambda(v_236 max-count_1)" +"(lambda(v_238 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_236)" +"(let-values() v_238)" "(let-values()" "(let-values(((c_68)" "(let-values(((in_24) in_12)" @@ -50034,9 +50044,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" "(loop_60" -"(+(digit->number c_68)(* v_236 base_23))" +"(+(digit->number c_68)(* v_238 base_23))" "(sub1 max-count_1))))" -"(let-values() v_236)))))))))" +"(let-values() v_238)))))))))" " loop_60)" "(+(digit->number c_75)(* init-v_0 base_23))" "(sub1 max-count_0))))" @@ -50137,10 +50147,10 @@ static const char *startup_source = " convert-mode75_0))))))))))))))" "(case-lambda" "((s_309)(begin 'string->number(string->number8_0 s_309 #f #f #f #f #f #f)))" -"((s_456 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_456 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_485 radix_2 convert-mode2_1)(string->number8_0 s_485 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_486 radix1_1)(string->number8_0 s_486 radix1_1 #f #f #t #f #f)))))" +"((s_455 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_455 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_484 radix_2 convert-mode2_1)(string->number8_0 s_484 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_485 radix1_1)(string->number8_0 s_485 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -50347,13 +50357,13 @@ static const char *startup_source = "(read-special-number s_21 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_30" -"((lambda(v_195)" +"((lambda(v_197)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_195))" +" (let-values () (format \"no exact representation for `~a`\" v_197))" "(let-values() #f)))" -"(let-values() v_195)))" +"(let-values() v_197)))" " c1_30)" "(let-values(((c2_3)" "(if(char-sign? c_80)" @@ -50382,8 +50392,8 @@ static const char *startup_source = "((temp96_1) 'i)" "((v97_0) v_37)" "((temp98_2)" -"(lambda(v_237 v2_0)" -"(begin 'temp98(make-rectangular v_237 v2_0)))))" +"(lambda(v_239 v2_0)" +"(begin 'temp98(make-rectangular v_239 v2_0)))))" "(read-for-special-compound65.1" " temp96_1" " #f" @@ -50426,8 +50436,8 @@ static const char *startup_source = "((temp106_1) #t)" "((v2107_0) v2_1)" "((temp108_0)" -"(lambda(v2_2 v_219)" -"(begin 'temp108(make-rectangular v_219 v2_2)))))" +"(lambda(v2_2 v_221)" +"(begin 'temp108(make-rectangular v_221 v2_2)))))" "(read-for-special-compound65.1" " temp105_1" " temp106_1" @@ -50456,7 +50466,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_220)" +"((lambda(v_222)" "(let-values(((s109_0) s_21)" "((temp110_2)(+ start_44 7))" "((end111_0) end_34)" @@ -50464,10 +50474,10 @@ static const char *startup_source = "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_220)" +"((v116_0) v_222)" "((temp117_1)" -"(lambda(v_238 v2_3)" -"(begin 'temp117(make-polar v_238 v2_3)))))" +"(lambda(v_240 v2_3)" +"(begin 'temp117(make-polar v_240 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -50505,8 +50515,8 @@ static const char *startup_source = "((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_239)" -"(begin 'temp127(make-polar v_239 v2_5)))))" +"(lambda(v2_5 v_241)" +"(begin 'temp127(make-polar v_241 v2_5)))))" "(read-for-special-compound65.1" " temp124_1" " temp125_1" @@ -50780,9 +50790,9 @@ static const char *startup_source = "(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_316)(not sign-pos_0)))" -"(if or-part_316" -" or-part_316" +"(let-values(((or-part_274)(not sign-pos_0)))" +"(if or-part_274" +" or-part_274" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50792,21 +50802,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_317)" +"(if(let-values(((or-part_316)" "(if exp-pos_0" +"(let-values(((or-part_317)" +"(not sign-pos_0)))" +"(if or-part_317" +" or-part_317" +"(> exp-pos_0 sign-pos_0)))" +" #f)))" +"(if or-part_316" +" or-part_316" +"(if slash-pos_0" "(let-values(((or-part_318)" "(not sign-pos_0)))" "(if or-part_318" " or-part_318" -"(> exp-pos_0 sign-pos_0)))" -" #f)))" -"(if or-part_317" -" or-part_317" -"(if slash-pos_0" -"(let-values(((or-part_319)" -"(not sign-pos_0)))" -"(if or-part_319" -" or-part_319" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50828,24 +50838,24 @@ static const char *startup_source = " i_174" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_320)(char=? c_81 '#\\e)))" +"(if(let-values(((or-part_319)(char=? c_81 '#\\e)))" +"(if or-part_319" +" or-part_319" +"(let-values(((or-part_320)(char=? c_81 '#\\E)))" "(if or-part_320" " or-part_320" -"(let-values(((or-part_321)(char=? c_81 '#\\E)))" +"(let-values(((or-part_321)" +"(char=? c_81 '#\\f)))" "(if or-part_321" " or-part_321" "(let-values(((or-part_322)" -"(char=? c_81 '#\\f)))" +"(char=? c_81 '#\\F)))" "(if or-part_322" " or-part_322" "(let-values(((or-part_323)" -"(char=? c_81 '#\\F)))" +"(char=? c_81 '#\\d)))" "(if or-part_323" " or-part_323" -"(let-values(((or-part_324)" -"(char=? c_81 '#\\d)))" -"(if or-part_324" -" or-part_324" "(let-values(((or-part_204)" "(char=? c_81 '#\\D)))" "(if or-part_204" @@ -50856,24 +50866,24 @@ static const char *startup_source = " '#\\s)))" "(if or-part_173" " or-part_173" -"(let-values(((or-part_325)" +"(let-values(((or-part_324)" "(char=?" " c_81" " '#\\S)))" +"(if or-part_324" +" or-part_324" +"(let-values(((or-part_325)" +"(char=?" +" c_81" +" '#\\l)))" "(if or-part_325" " or-part_325" "(let-values(((or-part_326)" "(char=?" " c_81" -" '#\\l)))" +" '#\\L)))" "(if or-part_326" " or-part_326" -"(let-values(((or-part_327)" -"(char=?" -" c_81" -" '#\\L)))" -"(if or-part_327" -" or-part_327" "(let-values(((or-part_180)" "(char=?" " c_81" @@ -50906,8 +50916,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_328) exp-pos_0))" -"(if or-part_328 or-part_328 i_174))" +"(let-values(((or-part_327) exp-pos_0))" +"(if or-part_327 or-part_327 i_174))" " must-i?_0))" "(let-values()" "(loop_108" @@ -50919,8 +50929,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_329) exp-pos_0))" -"(if or-part_329 or-part_329 i_174))" +"(let-values(((or-part_328) exp-pos_0))" +"(if or-part_328 or-part_328 i_174))" " must-i?_0)))))" "(if(char=? c_81 '#\\@)" "(let-values()" @@ -50971,17 +50981,17 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_330)" +"(if(if(let-values(((or-part_329)" "(char=? c_81 '#\\i)))" -"(if or-part_330" -" or-part_330" +"(if or-part_329" +" or-part_329" "(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_331) @-pos_0))" -"(if or-part_331" -" or-part_331" +"(if(let-values(((or-part_330) @-pos_0))" +"(if or-part_330" +" or-part_330" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50990,10 +51000,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_332)" +"(if(let-values(((or-part_331)" "(<(add1 i_174) end_35)))" -"(if or-part_332" -" or-part_332" +"(if or-part_331" +" or-part_331" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -51053,7 +51063,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_487) s40_0))" +"(let-values(((s_486) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -51070,7 +51080,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_487)" +"(let-values(((s160_0) s_486)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -51091,12 +51101,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_487 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_486 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_487)" +"(let-values(((s168_0) s_486)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -51114,11 +51124,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_333)(not v1_0)))" -"(if or-part_333 or-part_333(not v2_6)))" +"(if(let-values(((or-part_332)(not v1_0)))" +"(if or-part_332 or-part_332(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_334)(extflonum? v1_0)))" -"(if or-part_334 or-part_334(extflonum? v2_6)))" +"(if(if(let-values(((or-part_333)(extflonum? v1_0)))" +"(if or-part_333 or-part_333(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -51145,16 +51155,16 @@ static const char *startup_source = "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_237 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" -"(if or-part_335" -" or-part_335" -"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_337)(not exp-pos_1)))" -"(if or-part_337" -" or-part_337" -"(let-values(((or-part_338)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_338 or-part_338(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_334)(eq? exactness_3 'inexact)))" +"(if or-part_334" +" or-part_334" +"(let-values(((or-part_335)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_335 or-part_335(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_336)(not exp-pos_1)))" +"(if or-part_336" +" or-part_336" +"(let-values(((or-part_337)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_337 or-part_337(not(extfl-mark?_0))))))" "(not(if any-hashes?_1(hashes? s_237 start_46 end_36) #f))" " #f)" " #f)" @@ -51180,9 +51190,9 @@ static const char *startup_source = " (format \"missing digits before exponent marker in `~.a`\" (substring s_237 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_339)(= exp-pos_1(sub1 end_36))))" -"(if or-part_339" -" or-part_339" +"(let-values(((or-part_338)(= exp-pos_1(sub1 end_36))))" +"(if or-part_338" +" or-part_338" "(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_237(sub1 end_36))) #f)))" " #f)" "(let-values()" @@ -51195,14 +51205,14 @@ static const char *startup_source = "(string->number$1" "(maybe-substring s_237 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_340" -" or-part_340" -"(let-values(((or-part_341)(not exp-pos_1)))" -"(if or-part_341 or-part_341(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_339)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_339" +" or-part_339" +"(let-values(((or-part_340)(not exp-pos_1)))" +"(if or-part_340 or-part_340(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_342)(not n_30)))(if or-part_342 or-part_342(string? n_30)))" +"(if(let-values(((or-part_341)(not n_30)))(if or-part_341 or-part_341(string? n_30)))" "(let-values()" "(error" " 'string->number" @@ -51267,8 +51277,8 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_343)(eq? exactness_3 'inexact)))" -"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_342)(eq? exactness_3 'inexact)))" +"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" @@ -51290,8 +51300,8 @@ static const char *startup_source = "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_344)(eq? exactness_3 'exact)))" -"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_343)(eq? exactness_3 'exact)))" +"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" "(if(if(eqv? n_31 0)(char=?(string-ref s_237 start_46) '#\\-) #f)" @@ -51327,9 +51337,9 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_345)(eq? exactness_3 'inexact)))" -"(if or-part_345" -" or-part_345" +"(let-values(((or-part_344)(eq? exactness_3 'inexact)))" +"(if or-part_344" +" or-part_344" "(if(not(eq? exactness_3 'exact))" "(hashes? s_237 from-pos_0 end_36)" " #f)))))))" @@ -51365,8 +51375,8 @@ static const char *startup_source = "(lambda(s_246 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_346)(eq? exactness_4 'exact)))" -"(if or-part_346 or-part_346(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_345)(eq? exactness_4 'exact)))" +"(if or-part_345 or-part_345(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_109)" "(lambda(i_175 j_3 hashes-pos_0)" @@ -51442,69 +51452,69 @@ static const char *startup_source = " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_488 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_487 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_488 start_48 end_38)" +"(if(hashes? s_487 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_488 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_487 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_488 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_487 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_488 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_487 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_489 start_49 end_39 convert-mode_8)" +"(lambda(s_488 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_347)(char=?(string-ref s_489 start_49) '#\\+)))" -"(if or-part_347 or-part_347(char=?(string-ref s_489 start_49) '#\\-)))" +"(if(let-values(((or-part_346)(char=?(string-ref s_488 start_49) '#\\+)))" +"(if or-part_346 or-part_346(char=?(string-ref s_488 start_49) '#\\-)))" +"(let-values(((or-part_347)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)" "(let-values(((or-part_348)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_488 start_49) '#\\+) +inf.0 -inf.0)" +" #f)))" +"(if or-part_348" +" or-part_348" "(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_489 start_49) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_488 start_49) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_349" " or-part_349" -"(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_489 start_49) '#\\+) +inf.f -inf.f)" -" #f)))" -"(if or-part_350" -" or-part_350" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_489 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_488 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_348" -" or-part_348" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 4))) '#\\.)" +"(if or-part_347" +" or-part_347" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)" +"(let-values(((or-part_350)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_350" +" or-part_350" "(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f) +nan.f #f)))" "(if or-part_351" " or-part_351" -"(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_352" -" or-part_352" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -51515,10 +51525,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_240)" +"(lambda(convert-mode_9 v_242)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_240))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_242))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -51543,19 +51553,19 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_241) v63_0))" +"(let-values(((v_243) v63_0))" "(let-values(((combine_1) combine64_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_241))" +" (let-values () (format \"no exact representation for `~a`\" v_243))" "(let-values() #f)))" -"(if(if(extflonum? v_241)" -"(let-values(((or-part_353)(not reading-first?_0)))" -"(if or-part_353 or-part_353(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_243)" +"(let-values(((or-part_352)(not reading-first?_0)))" +"(if or-part_352 or-part_352(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_241))" +"(let-values()(fail-extflonum convert-mode_10 v_243))" "(let-values()" "(let-values(((v2_7)" "(let-values(((s176_0) s_258)" @@ -51580,12 +51590,12 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_241)" -"(let-values()(fail-extflonum convert-mode_10 v_241))" -"(let-values()(combine_1 v_241 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_243)" +"(let-values()(fail-extflonum convert-mode_10 v_243))" +"(let-values()(combine_1 v_243 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_490 start_51 end_41)" +"(lambda(s_489 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -51593,13 +51603,13 @@ static const char *startup_source = " \"string\"" "(lambda(x_83)(string? x_83))" "(lambda(x_84)(unsafe-string-length x_84))" -" s_490" +" s_489" " start_51" " end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_276)" "(lambda(result_126 idx_5)" "(begin" " 'for-loop" @@ -51611,10 +51621,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_83 '#\\#)))))" "(values result_128)))))" "(if(if(not((lambda x_85 result_127) c_83))(not #f) #f)" -"(for-loop_277 result_127(unsafe-fx+ idx_5 1))" +"(for-loop_276 result_127(unsafe-fx+ idx_5 1))" " result_127)))" " result_126)))))" -" for-loop_277)" +" for-loop_276)" " #f" " start*_5))))))" "(define-values" @@ -51639,7 +51649,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_277)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" @@ -51656,9 +51666,9 @@ static const char *startup_source = "(string-set! new-s_9 i_121 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_278(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_277(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_278)" +" for-loop_277)" " start*_6" " start_53)))" "(void)" @@ -51671,33 +51681,33 @@ static const char *startup_source = "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_353)(eq? exactness_6 'exact)))(if or-part_353 or-part_353(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_85)" -"(begin(let-values(((or-part_355)(char=? c_85 '#\\-)))(if or-part_355 or-part_355(char=? c_85 '#\\+))))))" +"(begin(let-values(((or-part_354)(char=? c_85 '#\\-)))(if or-part_354 or-part_354(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_86 radix_11)" "(begin" -"(let-values(((v_242)(char->integer c_86)))" +"(let-values(((v_244)(char->integer c_86)))" +"(let-values(((or-part_355)" +"(if(>= v_244(char->integer '#\\0))(<(- v_244(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_355" +" or-part_355" +"(if(> radix_11 10)" "(let-values(((or-part_356)" -"(if(>= v_242(char->integer '#\\0))(<(- v_242(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_244(char->integer '#\\a))(<(- v_244(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_356" " or-part_356" -"(if(> radix_11 10)" -"(let-values(((or-part_357)" -"(if(>= v_242(char->integer '#\\a))(<(- v_242(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_357" -" or-part_357" -"(if(>= v_242(char->integer '#\\A))(<(- v_242(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_244(char->integer '#\\A))(<(- v_244(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_491 start_55 end_44)" +"(lambda(convert-mode_11 s_490 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_491 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_490 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -52181,7 +52191,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_0) 0))" -"(let-values(((v_201)(make-fxvector len_38 fill_0)))" +"(let-values(((v_203)(make-fxvector len_38 fill_0)))" "(begin" "(if(zero? len_38)" "(void)" @@ -52215,7 +52225,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_201" +" v_203" " i_178" " elem_0)" "(not-an-fX.1" @@ -52242,7 +52252,7 @@ static const char *startup_source = " for-loop_256)" " 0" " lst_23)))))" -" v_201))))))" +" v_203))))))" "(if(equal? tmp_41 'flonum)" "(let-values()" "(let-values(((len_8)(length seq_2)))" @@ -52255,7 +52265,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_8)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_243)(make-flvector len_8 fill_1)))" +"(let-values(((v_245)(make-flvector len_8 fill_1)))" "(begin" "(if(zero? len_8)" "(void)" @@ -52289,7 +52299,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_243" +" v_245" " i_91" " elem_1)" "(not-an-fX.1$1" @@ -52316,7 +52326,7 @@ static const char *startup_source = " for-loop_195)" " 0" " lst_91)))))" -" v_243))))))" +" v_245))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -52354,11 +52364,11 @@ static const char *startup_source = "(list temp25_6 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_244)" +"(lambda(v_246)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_244 in_30 config_40 #f)" +"(wrap v_246 in_30 config_40 #f)" "((letrec-values(((loop_111)" "(lambda(seq_3)" "(begin" @@ -52412,7 +52422,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_279)" +"((letrec-values(((for-loop_278)" "(lambda(lst_96 pos_117)" "(begin" " 'for-loop" @@ -52422,7 +52432,7 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_96))" -"((rest_168)" +"((rest_165)" "(unsafe-cdr" " lst_96))" "((i_181)" @@ -52440,12 +52450,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_279" -" rest_168" +"(for-loop_278" +" rest_165" "(+ pos_117 1))" "(values))))" "(values))))))" -" for-loop_279)" +" for-loop_278)" " lst_95" " start_56)))" "(void)))" @@ -52473,7 +52483,7 @@ static const char *startup_source = "(let-values(((e_82)" "(unsafe-car" " lst_179))" -"((rest_174)" +"((rest_171)" "(unsafe-cdr" " lst_179))" "((i_182)" @@ -52492,7 +52502,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_101" -" rest_174" +" rest_171" "(+" " pos_110" " 1))" @@ -52505,12 +52515,12 @@ static const char *startup_source = "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_307) seq_2)((start_44) 0))" +"(let-values(((lst_306) seq_2)((start_44) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" +"(let-values()(check-list lst_306)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -52554,7 +52564,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_111)" -" lst_307" +" lst_306" " start_44)))" "(void)))" "(let-values()(void))))))" @@ -52690,7 +52700,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_44)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_10)(values))))" "(let-values(((init-v_1)(digit->number init-c_10)))" -"(let-values(((v_245)" +"(let-values(((v_247)" "(let-values(((in69_0) in_35)" "((config70_0) config_44)" "((accum-str71_0) accum-str_2)" @@ -52710,7 +52720,7 @@ static const char *startup_source = " accum-str71_0" " #t))))" "(values" -" v_245" +" v_247" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_44))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_36) in_35)((source_20)(read-config-source config_44)))" @@ -53592,8 +53602,8 @@ static const char *startup_source = "((temp64_4)(indentation-unexpected-closer-message ec_8 c_93 config_48)))" "(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_4))))" "(let-values()" -"(let-values(((v_246)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_246)" +"(let-values(((v_248)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_248)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53664,7 +53674,7 @@ static const char *startup_source = " temp72_2" "(list temp73_4)))))" "(values))))" -"(let-values(((v_247)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_249)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53697,7 +53707,7 @@ static const char *startup_source = " temp75_1" " temp77_1" "(list temp78_2)))))" -"(cons(coerce-key k_41 elem-config_1) v_247))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_249))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -54126,7 +54136,7 @@ static const char *startup_source = "(let-values(((pos_103)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_244)" +"(let-values(((v_246)" "(let-values(((in40_1)" " in_43)" "((config41_1)" @@ -54149,13 +54159,13 @@ static const char *startup_source = " accum-str42_0" " #t))))" "(begin" -"(if(integer? v_244)" +"(if(integer? v_246)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_244" +" v_246" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -54164,7 +54174,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_244))))))" +" v_246))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -54179,7 +54189,7 @@ static const char *startup_source = "(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_248)" +"(let-values(((v_250)" "(let-values(((in45_0)" " in_43)" "((config46_0)" @@ -54203,23 +54213,23 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_248)" +" v_250)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_248" +" v_250" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_253)" "(<" -" v_248" +" v_250" " 55296)))" "(if or-part_253" " or-part_253" "(>" -" v_248" +" v_250" " 57343)))" "(let-values()" "(begin" @@ -54229,7 +54239,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_248))))" +" v_250))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -54313,7 +54323,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_248" +" v_250" " 55296)" " 10)" "(-" @@ -54419,7 +54429,7 @@ static const char *startup_source = "(let-values(((pos_121)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_249)" +"(let-values(((v_251)" "(let-values(((in72_0)" " in_43)" "((config73_0)" @@ -54443,26 +54453,26 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_249)" +" v_251)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_249" +" v_251" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_249" +" v_251" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_249" +" v_251" " 57343)))" "(<=" -" v_249" +" v_251" " 1114111)" " #f)" "(let-values()" @@ -54473,7 +54483,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_249))))" +" v_251))))" "(let-values()" "(let-values(((in77_1)" " in_43)" @@ -54688,17 +54698,17 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_264)" -"(lambda(lst_308)" +"((letrec-values(((for-loop_263)" +"(lambda(lst_307)" "(begin" " 'for-loop" -"(if(pair? lst_308)" +"(if(pair? lst_307)" "(let-values(((c_12)" "(unsafe-car" -" lst_308))" -"((rest_175)" +" lst_307))" +"((rest_172)" "(unsafe-cdr" -" lst_308)))" +" lst_307)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54711,11 +54721,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_264" -" rest_175)" +"(for-loop_263" +" rest_172)" "(values))))" "(values))))))" -" for-loop_264)" +" for-loop_263)" " lst_229)))" "(void))))" "(if(char=? c_98 '#\\newline)" @@ -55019,7 +55029,7 @@ static const char *startup_source = "(wrap(list wrapped-sym_0 e_85) in_43 config_22 #f))))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_80 in_43 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_81 in_43 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" @@ -55122,7 +55132,7 @@ static const char *startup_source = " loop_115)" " chars_0)" "(wrap" -" val_80" +" val_81" " in_43" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -55675,15 +55685,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_54)))" "(begin" -"(let-values(((lst_309) already_0))" +"(let-values(((lst_308) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_309)))" -"((letrec-values(((for-loop_280)" -"(lambda(lst_310)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_308)))" +"((letrec-values(((for-loop_279)" +"(lambda(lst_309)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((c_105)(unsafe-car lst_310))((rest_176)(unsafe-cdr lst_310)))" +"(if(pair? lst_309)" +"(let-values(((c_105)(unsafe-car lst_309))((rest_173)(unsafe-cdr lst_309)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55693,10 +55703,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_105))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_280 rest_176)(values))))" +"(if(not #f)(for-loop_279 rest_173)(values))))" "(values))))))" -" for-loop_280)" -" lst_309)))" +" for-loop_279)" +" lst_308)))" "(void)" "((letrec-values(((loop_117)" "(lambda(wanted_1)" @@ -56040,7 +56050,7 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_250)(read-one init-c_15 in_12 config_57)))" +"(let-values(((v_252)(read-one init-c_15 in_12 config_57)))" "(if(if(let-values(((or-part_306)(not recursive?_0)))" "(if or-part_306 or-part_306 local-graph?_1))" "(read-config-state-graph(read-config-st config_57))" @@ -56049,17 +56059,17 @@ static const char *startup_source = "(catch-and-reraise-as-reader/proc" " #f" " config_57" -"(lambda()(make-reader-graph v_250))))" +"(lambda()(make-reader-graph v_252))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_250))(not(1/special-comment? v_250)) #f)" +"(if(not(eof-object? v_252))(not(1/special-comment? v_252)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_57)(make-placeholder v_250)))" -"(let-values() v_250))))))))))))))))))))))))" +"(begin(get-graph-hash config_57)(make-placeholder v_252)))" +"(let-values() v_252))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -56134,12 +56144,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_60)" "(let-values()" "(let-values(((line_11 col_10 pos_123)(port-next-location in_62)))" -"(let-values(((v_251)(read-undotted init-c_16 in_62 config_60)))" -"(if(1/special-comment? v_251)" -"(let-values() v_251)" +"(let-values(((v_253)(read-undotted init-c_16 in_62 config_60)))" +"(if(1/special-comment? v_253)" +"(let-values() v_253)" "(let-values()" "((letrec-values(((loop_118)" -"(lambda(v_252)" +"(lambda(v_254)" "(begin" " 'loop" "(let-values(((c_106)" @@ -56155,9 +56165,9 @@ static const char *startup_source = "(if(eq? c_107 'special)(special1.1 'special) c_107)))))" "(let-values(((ec_9)(effective-char c_106 config_60)))" "(if(not(char? ec_9))" -"(let-values() v_252)" +"(let-values() v_254)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_62 c_106)(loop_118 v_252)))" +"(let-values()(begin(consume-char in_62 c_106)(loop_118 v_254)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -56177,13 +56187,13 @@ static const char *startup_source = "(read-undotted #f in_62 config_60)))" "(loop_118" "(wrap" -"(list cdot_0 v_252 post-v_0)" +"(list cdot_0 v_254 post-v_0)" " in_62" "(reading-at config_60 line_11 col_10 pos_123)" " '#\\.)))))))" -"(let-values() v_252))))))))))" +"(let-values() v_254))))))))))" " loop_118)" -" v_251))))))" +" v_253))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -56195,10 +56205,10 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_108))" "(let-values()" -"(let-values(((v_253)(special-value c_108)))" -"(if(1/special-comment? v_253)" -"(let-values()(if(read-config-keep-comment? config_55) v_253(read-undotted #f in_60 config_55)))" -"(let-values()(coerce v_253 in_60(reading-at config_55 line_12 col_11 pos_124))))))" +"(let-values(((v_255)(special-value c_108)))" +"(if(1/special-comment? v_255)" +"(let-values()(if(read-config-keep-comment? config_55) v_255(read-undotted #f in_60 config_55)))" +"(let-values()(coerce v_255 in_60(reading-at config_55 line_12 col_11 pos_124))))))" "(let-values(((c2_8)(readtable-handler config_55 c_108)))" "(if c2_8" "((lambda(handler_3)" @@ -56272,14 +56282,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_254)" +"(let-values(((v_256)" "(let-values(((c79_1) c_108)" "((in80_1) in_60)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_327)(eq? c_108 ec_10)))" -"(if or-part_327" -" or-part_327" +"(if(let-values(((or-part_326)(eq? c_108 ec_10)))" +"(if or-part_326" +" or-part_326" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -56293,7 +56303,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_254 in_60 config_55)))" +"(retry-special-comment v_256 in_60 config_55)))" "(let-values()(read-dispatch c_108 in_60 r-config_0 config_55)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_108 in_60 r-config_0))" @@ -56430,10 +56440,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_357)" "(check-parameter 1/read-square-bracket-as-paren config_55)))" -"(if or-part_358" -" or-part_358" +"(if or-part_357" +" or-part_357" "(check-parameter 1/read-square-bracket-with-tag config_55)))" "(let-values()" "(wrap" @@ -56483,10 +56493,10 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_359)" +"(if(let-values(((or-part_358)" "(check-parameter 1/read-square-bracket-as-paren config_55)))" -"(if or-part_359" -" or-part_359" +"(if or-part_358" +" or-part_358" "(check-parameter 1/read-square-bracket-with-tag config_55)))" "(let-values()" "(let-values(((in113_1) in_60)" @@ -56530,10 +56540,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_276)" +"(if(let-values(((or-part_359)" "(check-parameter 1/read-curly-brace-as-paren config_55)))" -"(if or-part_276" -" or-part_276" +"(if or-part_359" +" or-part_359" "(check-parameter 1/read-curly-brace-with-tag config_55)))" "(let-values()" "(wrap" @@ -57013,8 +57023,8 @@ static const char *startup_source = "(if(eq? c_114 'special)(special1.1 'special) c_114)))))" "(if(char-delimiter? c2_13 config_61)" "(let-values()(wrap #f in_65 config_61 c_110))" -"(if(let-values(((or-part_349)(char=? c2_13 '#\\x)))" -"(if or-part_349 or-part_349(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_348)(char=? c2_13 '#\\x)))" +"(if or-part_348 or-part_348(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -57286,11 +57296,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_255 in_74 config_62)" +"(lambda(v_257 in_74 config_62)" "(begin" -"(if(1/special-comment? v_255)" -"(let-values()(if(read-config-keep-comment? config_62) v_255(read-undotted #f in_74 config_62)))" -"(let-values() v_255)))))" +"(if(1/special-comment? v_257)" +"(let-values()(if(read-config-keep-comment? config_62) v_257(read-undotted #f in_74 config_62)))" +"(let-values() v_257)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -57445,11 +57455,11 @@ static const char *startup_source = "(let-values(((name_69)" "(let-values(((mod49_0) mod_18)((temp50_3) #t))" "(reference->resolved-module-path32.1 temp50_3 mod49_0))))" -"(let-values(((phase_130)(namespace-phase ns_114)))" +"(let-values(((phase_132)(namespace-phase ns_114)))" "(let-values(((m-ns_17)" "(let-values(((ns51_1) ns_114)" "((name52_0) name_69)" -"((phase53_0) phase_130))" +"((phase53_0) phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -57490,7 +57500,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_4)))))" "(let-values(((ns46_1) ns_114)" "((temp47_2)(namespace-mpi m-ns_17))" -"((phase48_1) phase_130))" +"((phase48_1) phase_132))" "(namespace-module-make-available!112.1 #f #f ns46_1 temp47_2 phase48_1))" " m-ns_17)))))))))))))))" "(case-lambda" @@ -57541,11 +57551,11 @@ static const char *startup_source = "(let-values(((name_70)" "(let-values(((mod56_0) mod_21)((temp57_1) #f))" "(reference->resolved-module-path32.1 temp57_1 mod56_0))))" -"(let-values(((phase_137)(namespace-phase ns_115)))" +"(let-values(((phase_139)(namespace-phase ns_115)))" "(let-values(((m-ns_15)" "(let-values(((ns58_0) ns_115)" "((name59_0) name_70)" -"((phase60_0) phase_137))" +"((phase60_0) phase_139))" "(namespace->module-namespace82.1" " #f" " #f" @@ -57787,30 +57797,30 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_256 srcloc_12)" +"(lambda(for-syntax?_12 v_258 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_256)(let-values()(syntax->datum$1 v_256))(let-values() v_256)))" -"(if(syntax?$1 v_256)" -"(let-values() v_256)" -"(if(list? v_256)" +"(let-values()(if(syntax?$1 v_258)(let-values()(syntax->datum$1 v_258))(let-values() v_258)))" +"(if(syntax?$1 v_258)" +"(let-values() v_258)" +"(if(list? v_258)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_270) v_256))" +"(let-values(((lst_270) v_258))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_270)))" "((letrec-values(((for-loop_51)" -"(lambda(fold-var_288 lst_284)" +"(lambda(fold-var_289 lst_284)" "(begin" " 'for-loop" "(if(pair? lst_284)" "(let-values(((e_87)(unsafe-car lst_284))" -"((rest_177)(unsafe-cdr lst_284)))" -"(let-values(((fold-var_289)" -"(let-values(((fold-var_290) fold-var_288))" +"((rest_174)(unsafe-cdr lst_284)))" +"(let-values(((fold-var_247)" +"(let-values(((fold-var_290) fold-var_289))" "(let-values(((fold-var_291)" "(let-values()" "(cons" @@ -57818,20 +57828,20 @@ static const char *startup_source = "(read-coerce #t e_87 srcloc_12))" " fold-var_290))))" "(values fold-var_291)))))" -"(if(not #f)(for-loop_51 fold-var_289 rest_177) fold-var_289)))" -" fold-var_288)))))" +"(if(not #f)(for-loop_51 fold-var_247 rest_174) fold-var_247)))" +" fold-var_289)))))" " for-loop_51)" " null" " lst_270))))" " srcloc_12" " #f))" -"(if(pair? v_256)" +"(if(pair? v_258)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_256) srcloc_12)(read-coerce #t(cdr v_256) srcloc_12))" +"(cons(read-coerce #t(car v_258) srcloc_12)(read-coerce #t(cdr v_258) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_256 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_258 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_42)" @@ -58068,7 +58078,7 @@ static const char *startup_source = "(let-values(((table_175)" "(let-values()" "(let-values(((key_33" -" val_81)" +" val_82)" "(let-values()" "(let-values(((binding_27)" "(let-values(((mpi10_0)" @@ -58113,7 +58123,7 @@ static const char *startup_source = "(hash-set" " table_174" " key_33" -" val_81)))))" +" val_82)))))" "(values table_175)))))" "(if(not #f)" "(for-loop_97 table_219 rest_36)" @@ -58144,7 +58154,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_267)" "(let-values(((sym_98)(unsafe-car lst_267))" -"((rest_178)(unsafe-cdr lst_267)))" +"((rest_175)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58163,7 +58173,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_178)" +"(for-loop_20 rest_175)" "(values))))" "(values))))))" " for-loop_20)" @@ -58422,13 +58432,13 @@ static const char *startup_source = "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_492) s19_1))" +"(let-values(((s_491) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_7)(if intdefs18_0 intdefs17_0 '())))" "(let-values()" "(let-values(((temp73_5) 'local-expand)" -"((s74_0) s_492)" +"((s74_0) s_491)" "((context75_0) context_16)" "((stop-ids76_0) stop-ids_9)" "((intdefs77_0) intdefs_7)" @@ -58455,24 +58465,24 @@ static const char *startup_source = " intdefs77_0" " #t)))))))))))" "(case-lambda" -"((s_486 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_486 context_17 stop-ids_10 #f #f)))" -"((s_493 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_493 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_485 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_485 context_17 stop-ids_10 #f #f)))" +"((s_492 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_492 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" "(lambda(s28_1 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_0 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_483) s28_1))" +"(let-values(((s_482) s28_1))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_8)(if intdefs26_0 intdefs24_0 '())))" "(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp79_2) 'local-expand)" -"((s80_1) s_483)" +"((s80_1) s_482)" "((context81_0) context_19)" "((stop-ids82_0) stop-ids_12)" "((intdefs83_0) intdefs_8)" @@ -58501,10 +58511,10 @@ static const char *startup_source = " intdefs83_0" " #t))))))))))))" "(case-lambda" -"((s_494 context_20 stop-ids_13)" +"((s_493 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_494 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_493 context_20 stop-ids_13 #f #f #f #f)))" "((s_25 context_21 stop-ids_14 intdefs_9 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_25 context_21 stop-ids_14 intdefs_9 lift-key25_1 #t #t))" "((s_90 context_22 stop-ids_15 intdefs24_1)" @@ -58618,7 +58628,7 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?51_0 skip-log-exit?44_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_494)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" "(if(let-values(((or-part_170)(list? context_23)))" @@ -58666,14 +58676,14 @@ static const char *startup_source = "(let-values(((ctx_73)" "(let-values(((who96_0) who_37))" "(get-current-expand-context17.1 #f #f who96_0 #t))))" -"(let-values(((phase_142)" +"(let-values(((phase_144)" "(if as-transformer?_6" "(add1(expand-context-phase ctx_73))" "(expand-context-phase ctx_73))))" "(let-values(((local-ctx_0)" "(let-values(((ctx97_0) ctx_73)" "((context98_1) context_23)" -"((phase99_0) phase_142)" +"((phase99_0) phase_144)" "((intdefs100_0) intdefs_10)" "((stop-ids101_0) stop-ids_16)" "((to-parsed-ok?102_0) to-parsed-ok?_1)" @@ -58707,7 +58717,7 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_73)" -" phase_142)" +" phase_144)" "(values))))" "(let-values((()" "(begin" @@ -58719,12 +58729,12 @@ static const char *startup_source = "(call-expand-observe" " obs_61" " 'enter-local" -" s_495)))" +" s_494)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp105_4)" -"(flip-introduction-scopes s_495 ctx_73))" +"(flip-introduction-scopes s_494 ctx_73))" "((intdefs106_0) intdefs_10))" "(add-intdef-scopes28.1" " #f" @@ -58950,25 +58960,25 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_176" -"(lambda(s_496)(syntax-arm$1 s_496 insp_21))" +"(lambda(s_495)(syntax-arm$1 s_495 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_176 insp_21))))))))))))))))" "(case-lambda" "((s_177)(begin 'syntax-arm(syntax-arm6_0 s_177 #f #f #f #f)))" "((s_178 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_178 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_455 maybe-insp1_1)(syntax-arm6_0 s_455 maybe-insp1_1 #f #t #f)))))" +"((s_454 maybe-insp1_1)(syntax-arm6_0 s_454 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_497 maybe-insp_2)" +"(lambda(s_496 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_497)" +"(if(syntax?$1 s_496)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_496)))" "(values))))" "(let-values((()" "(begin" @@ -58977,35 +58987,35 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_497 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_496 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_454) s10_0))" +"(let-values(((s_453) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_454)" +"(if(syntax?$1 s_453)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_454)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_453)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_454" -"(lambda(s_498)(syntax-rearm$1 s_498 from-s_2))" +" s_453" +"(lambda(s_497)(syntax-rearm$1 s_497 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_454 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_453 from-s_2))))))))))))))" "(case-lambda" -"((s_452 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_452 from-s_3 #f #f)))" +"((s_451 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_451 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" @@ -59511,7 +59521,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_24)))" -"((letrec-values(((for-loop_281)" +"((letrec-values(((for-loop_280)" "(lambda(i_26)" "(begin" " 'for-loop" @@ -59529,11 +59539,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_280" "(hash-iterate-next ht_24 i_26))" "(values))))" "(values))))))" -" for-loop_281)" +" for-loop_280)" "(hash-iterate-first ht_24))))" "(values))))" "(let-values()" @@ -59543,7 +59553,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_161)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_269)" "(lambda(table_11 i_182)" "(begin" " 'for-loop" @@ -59564,7 +59574,7 @@ static const char *startup_source = "(let-values(((table_222)" "(let-values()" "(let-values(((key_87" -" val_82)" +" val_83)" "(let-values()" "(values" " sym_100" @@ -59579,15 +59589,15 @@ static const char *startup_source = "(hash-set" " table_20" " key_87" -" val_82)))))" +" val_83)))))" "(values table_222)))))))" "(if(not #f)" -"(for-loop_270" +"(for-loop_269" " table_220" "(hash-iterate-next ht_161 i_182))" " table_220)))" " table_11)))))" -" for-loop_270)" +" for-loop_269)" " '#hasheq()" "(hash-iterate-first ht_161))))))" "(let-values(((ht+extras_0)" @@ -59596,7 +59606,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_282)" +"((letrec-values(((for-loop_281)" "(lambda(ht_163 i_183)" "(begin" " 'for-loop" @@ -59615,12 +59625,12 @@ static const char *startup_source = " v_50))))" "(values ht_164)))))" "(if(not #f)" -"(for-loop_282" +"(for-loop_281" " ht_16" "(hash-iterate-next ht_162 i_183))" " ht_16)))" " ht_163)))))" -" for-loop_282)" +" for-loop_281)" " ht_160" "(hash-iterate-first ht_162))))))" "(let-values(((to-name61_0) to-name_0)" @@ -59679,7 +59689,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_166)))" -"((letrec-values(((for-loop_283)" +"((letrec-values(((for-loop_282)" "(lambda(table_223 i_184)" "(begin" " 'for-loop" @@ -59694,7 +59704,7 @@ static const char *startup_source = "(let-values(((table_226)" "(let-values()" "(let-values(((key_88" -" val_83)" +" val_84)" "(let-values()" "(let-values((()" "(begin" @@ -59750,18 +59760,18 @@ static const char *startup_source = "(hash-set" " table_225" " key_88" -" val_83)))))" +" val_84)))))" "(values" " table_226)))))" "(if(not #f)" -"(for-loop_283" +"(for-loop_282" " table_224" "(hash-iterate-next" " ht_166" " i_184))" " table_224)))" " table_223)))))" -" for-loop_283)" +" for-loop_282)" " '#hash()" "(hash-iterate-first ht_166))))))" "((temp75_3)" @@ -59910,14 +59920,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_111)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_283)" "(lambda(table_227 lst_54)" "(begin" " 'for-loop" "(if(pair? lst_54)" "(let-values(((require-mpi_0)" "(unsafe-car lst_54))" -"((rest_179)" +"((rest_176)" "(unsafe-cdr lst_54)))" "(let-values(((table_228)" "(let-values(((m_29)" @@ -59927,7 +59937,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_285)" +"((letrec-values(((for-loop_284)" "(lambda(table_32)" "(begin" " 'for-loop" @@ -59949,7 +59959,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_168)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_285)" "(lambda(table_148" " i_186)" "(begin" @@ -59966,7 +59976,7 @@ static const char *startup_source = "(let-values(((table_35)" "(let-values()" "(let-values(((key_89" -" val_84)" +" val_85)" "(let-values()" "(values" " sym_103" @@ -59974,30 +59984,30 @@ static const char *startup_source = "(hash-set" " table_163" " key_89" -" val_84)))))" +" val_85)))))" "(values" " table_35)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_285" " table_122" "(hash-iterate-next" " ht_168" " i_186))" " table_122)))" " table_148)))))" -" for-loop_286)" +" for-loop_285)" " table_32" "(hash-iterate-first" " ht_168))))))" " table_229))))))" -" for-loop_285)" +" for-loop_284)" " table_227)))))" "(if(not #f)" -"(for-loop_284 table_228 rest_179)" +"(for-loop_283 table_228 rest_176)" " table_228)))" " table_227)))))" -" for-loop_284)" +" for-loop_283)" " '#hash()" " lst_111))))" " '#hasheqv()))" @@ -60139,15 +60149,15 @@ static const char *startup_source = "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_499)" +"(lambda(s_498)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_499) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_499)))" -"(expand$1 s_499(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_496)(begin 'expand-once(expand-once$1(intro s_496)))))" +" (if (syntax?$1 s_498) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_498)))" +"(expand$1 s_498(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_495)(begin 'expand-once(expand-once$1(intro s_495)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_177)" @@ -60180,8 +60190,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_500)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_500 ns_68)))))))))" +"(let-values(((s_499)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_499 ns_68)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" "(define-values" "(main-primitives)" @@ -60625,11 +60635,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_455)" +"(lambda(s_454)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_455) s_455))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_454) s_454))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_83)" @@ -60774,9 +60784,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_189 pos_119)(values))))" "(let-values(((name-len_0)(read-number i_189)))" -"(let-values(((v_257)(read-bytes name-len_0 i_189)))" +"(let-values(((v_259)(read-bytes name-len_0 i_189)))" "(begin" -"(if(if(bytes? v_257)(=(bytes-length v_257) name-len_0) #f)" +"(if(if(bytes? v_259)(=(bytes-length v_259) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -60790,10 +60800,10 @@ static const char *startup_source = "(object-name i_189)" " pos_119" " name-len_0" -" v_257)))" -"(if(bytes=? bstr_5 v_257)" +" v_259)))" +"(if(bytes=? bstr_5 v_259)" "(let-values()(read-number i_189))" -"(if(bytesrkt_0)" "(lambda(s_94)" "(begin" @@ -61620,8 +61630,8 @@ static const char *startup_source = " (path-replace-extension p_81 #\".rkt\")" " p_81)))))" "((s_92)" -"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" -"(let-values(((v_38)(cadr s_503)))" +"(if(if(pair? s_502)(eq? 'submod(car s_502)) #f)" +"(let-values(((v_38)(cadr s_502)))" " (if (let-values (((or-part_371) (equal? v_38 \".\")))" " (if or-part_371 or-part_371 (equal? v_38 \"..\")))" "(if relto_1" @@ -61632,19 +61642,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_503))" +" s_502))" " v_38))" -" s_503))" +" s_502))" "((subm-path_0)" -"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" +"(if(if(pair? s_502)(eq? 'submod(car s_502)) #f)" "(let-values(((p_83)" "(if(if(let-values(((or-part_166)" "(equal?" -"(cadr s_503)" +"(cadr s_502)" " \".\")))" "(if or-part_166" " or-part_166" -" (equal? (cadr s_503) \"..\")))" +" (equal? (cadr s_502) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -61652,10 +61662,10 @@ static const char *startup_source = " relto_1))" "((r_27)" "(if(equal?" -"(cadr s_503)" +"(cadr s_502)" " \"..\")" -"(cdr s_503)" -"(cddr s_503))))" +"(cdr s_502)" +"(cddr s_502))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -61663,9 +61673,9 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_27)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_503) \"..\")" -"(cdr s_503)" -"(cddr s_503))))))" +" (if (equal? (cadr s_502) \"..\")" +"(cdr s_502)" +"(cddr s_502))))))" "(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" @@ -62004,10 +62014,10 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_504)" +"(lambda(s_503)" "(begin" "(1/eval" -" s_504" +" s_503" "(1/current-namespace)" "(let-values(((c_116)(1/current-compile)))" "(lambda(e_90 ns_16)" @@ -62091,7 +62101,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_287)" +"((letrec-values(((for-loop_286)" "(lambda(fold-var_70 lst_103)" "(begin" " 'for-loop" @@ -62110,10 +62120,10 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_215)))))" "(if(not #f)" -"(for-loop_287 fold-var_11 rest_140)" +"(for-loop_286 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_287)" +" for-loop_286)" " null" " lst_265))))))" "(let-values((()" @@ -62129,12 +62139,12 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_143)(expand-context-phase ctx_75)))" +"(let-values(((phase_145)(expand-context-phase ctx_75)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_259) ctx_75))" -"(let-values(((the-struct_90) v_259))" +"(let-values(((v_261) ctx_75))" +"(let-values(((the-struct_90) v_261))" "(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" @@ -62150,7 +62160,7 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_75)))" -"((inner61_0)(root-expand-context/outer-inner v_259)))" +"((inner61_0)(root-expand-context/outer-inner v_261)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -62245,17 +62255,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_233)" +"(let-values(((v_235)" " body-ctx_2))" "(let-values(((the-struct_91)" -" v_233))" +" v_235))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_233)))" +" v_235)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -62304,7 +62314,7 @@ static const char *startup_source = "(let-values(((tmp_62)" "(core-form-sym" " disarmed-exp-body_0" -" phase_143)))" +" phase_145)))" "(if(equal? tmp_62 'begin)" "(let-values()" "(let-values((()" @@ -62336,15 +62346,15 @@ static const char *startup_source = "(if(pair?" " s_426)" "(let-values(((begin81_0)" -"(let-values(((s_502)" +"(let-values(((s_501)" "(car" " s_426)))" -" s_502))" +" s_501))" "((e82_0)" "(let-values(((s_46)" "(cdr" " s_426)))" -"(let-values(((s_505)" +"(let-values(((s_504)" "(if(syntax?$1" " s_46)" "(syntax-e$1" @@ -62352,7 +62362,7 @@ static const char *startup_source = " s_46)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_505)))" +" s_504)))" "(if(not" " flat-s_24)" "(let-values()" @@ -62426,37 +62436,37 @@ static const char *startup_source = " define-values83_0" " id84_0" " rhs85_0)" -"(let-values(((s_506)" +"(let-values(((s_505)" " disarmed-exp-body_0))" "(let-values(((orig-s_39)" -" s_506))" +" s_505))" "(let-values(((define-values83_1" " id84_1" " rhs85_1)" "(let-values(((s_94)" "(if(syntax?$1" -" s_506)" +" s_505)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_505)" +" s_505)))" "(if(pair?" " s_94)" "(let-values(((define-values86_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(car" " s_94)))" -" s_507))" +" s_506))" "((id87_0" " rhs88_0)" -"(let-values(((s_508)" +"(let-values(((s_507)" "(cdr" " s_94)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_508)" +" s_507)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_507)" +" s_507)))" "(if(pair?" " s_52)" "(let-values(((id89_0)" @@ -62480,8 +62490,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))" "(let-values()" -"(let-values(((id_101)" -"(let-values(((lst_312)" +"(let-values(((id_102)" +"(let-values(((lst_311)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62489,24 +62499,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_312)))" -"((letrec-values(((for-loop_288)" +" lst_311)))" +"((letrec-values(((for-loop_287)" "(lambda(id_17" -" lst_313)" +" lst_312)" "(begin" " 'for-loop" "(if(pair?" -" lst_313)" +" lst_312)" "(let-values(((s_318)" "(unsafe-car" -" lst_313))" -"((rest_180)" +" lst_312))" +"((rest_177)" "(unsafe-cdr" -" lst_313)))" -"(let-values(((id_102)" +" lst_312)))" "(let-values(((id_103)" -" id_17))" "(let-values(((id_104)" +" id_17))" +"(let-values(((id_105)" "(let-values()" "(let-values(((id92_1)" "(let-values()" @@ -62529,48 +62539,48 @@ static const char *startup_source = " s_318)))))" "(cons" " id92_1" -" id_103)))))" -"(values" " id_104)))))" +"(values" +" id_105)))))" "(if(not" " #f)" -"(for-loop_288" -" id_102" -" rest_180)" -" id_102)))" +"(for-loop_287" +" id_103" +" rest_177)" +" id_103)))" " id_17)))))" -" for-loop_288)" +" for-loop_287)" " null" -" lst_312)))))" +" lst_311)))))" "(reverse$1" -" id_101))))))))" +" id_102))))))))" "((rhs90_0)" -"(let-values(((s_509)" +"(let-values(((s_508)" "(cdr" " s_52)))" -"(let-values(((s_510)" +"(let-values(((s_509)" "(if(syntax?$1" -" s_509)" +" s_508)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_508)" +" s_508)))" "(if(pair?" -" s_510)" +" s_509)" "(let-values(((rhs91_0)" "(let-values(((s_33)" "(car" -" s_510)))" +" s_509)))" " s_33))" "(()" -"(let-values(((s_459)" +"(let-values(((s_458)" "(cdr" -" s_510)))" +" s_509)))" "(let-values(((s_320)" "(if(syntax?$1" -" s_459)" +" s_458)" "(syntax-e$1" -" s_459)" -" s_459)))" +" s_458)" +" s_458)))" "(if(null?" " s_320)" "(values)" @@ -62630,7 +62640,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_31)" "((phase94_1)" -" phase_143)" +" phase_145)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -62648,7 +62658,7 @@ static const char *startup_source = " ctx_75)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_314)" +"(let-values(((lst_294)" " ids_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62656,31 +62666,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" +" lst_294)))" "((letrec-values(((for-loop_81)" "(lambda(fold-var_37" -" lst_315)" +" lst_313)" "(begin" " 'for-loop" "(if(pair?" -" lst_315)" -"(let-values(((id_83)" +" lst_313)" +"(let-values(((id_85)" "(unsafe-car" -" lst_315))" -"((rest_181)" +" lst_313))" +"((rest_178)" "(unsafe-cdr" -" lst_315)))" +" lst_313)))" "(let-values(((fold-var_294)" -"(let-values(((fold-var_295)" +"(let-values(((fold-var_252)" " fold-var_37))" "(let-values(((fold-var_187)" "(let-values()" "(cons" "(let-values()" "(let-values(((id97_1)" -" id_83)" +" id_85)" "((phase98_0)" -" phase_143)" +" phase_145)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -62695,21 +62705,21 @@ static const char *startup_source = " id97_1" " phase98_0" " counter99_0)))" -" fold-var_295))))" +" fold-var_252))))" "(values" " fold-var_187)))))" "(if(not" " #f)" "(for-loop_81" " fold-var_294" -" rest_181)" +" rest_178)" " fold-var_294)))" " fold-var_37)))))" " for-loop_81)" " null" -" lst_314))))))" +" lst_294))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_316)" +"(let-values(((lst_314)" " keys_5)" "((lst_229)" " ids_31))" @@ -62719,14 +62729,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_316)))" +" lst_314)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_229)))" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_263)" "(lambda(env_17" " lst_28" " lst_197)" @@ -62740,10 +62750,10 @@ static const char *startup_source = "(let-values(((key_90)" "(unsafe-car" " lst_28))" -"((rest_182)" +"((rest_179)" "(unsafe-cdr" " lst_28))" -"((id_105)" +"((id_106)" "(unsafe-car" " lst_197))" "((rest_11)" @@ -62758,21 +62768,21 @@ static const char *startup_source = " env_19" " key_90" "(local-variable1.1" -" id_105)))))" +" id_106)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_264" +"(for-loop_263" " env_18" -" rest_182" +" rest_179" " rest_11)" " env_18)))" " env_17)))))" -" for-loop_264)" +" for-loop_263)" "(expand-context-env" " body-ctx_2)" -" lst_316" +" lst_314" " lst_229)))))" "(loop_40" "(let-values(((v_98)" @@ -62838,36 +62848,36 @@ static const char *startup_source = "(check-list" " lst_152)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_296" -" lst_317)" +"(lambda(fold-var_295" +" lst_315)" "(begin" " 'for-loop" "(if(pair?" -" lst_317)" +" lst_315)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_317))" -"((rest_183)" +" lst_315))" +"((rest_180)" "(unsafe-cdr" -" lst_317)))" +" lst_315)))" +"(let-values(((fold-var_296)" "(let-values(((fold-var_297)" +" fold-var_295))" "(let-values(((fold-var_298)" -" fold-var_296))" -"(let-values(((fold-var_299)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_298))))" +" fold-var_297))))" "(values" -" fold-var_299)))))" +" fold-var_298)))))" "(if(not" " #f)" "(for-loop_184" -" fold-var_297" -" rest_183)" -" fold-var_297)))" -" fold-var_296)))))" +" fold-var_296" +" rest_180)" +" fold-var_296)))" +" fold-var_295)))))" " for-loop_184)" " null" " lst_152))))" @@ -62876,7 +62886,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_310)" +"(let-values(((lst_309)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62884,41 +62894,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_310)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_300" -" lst_318)" +" lst_309)))" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_299" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" +" lst_316)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_318))" -"((rest_184)" +" lst_316))" +"((rest_181)" "(unsafe-cdr" -" lst_318)))" +" lst_316)))" +"(let-values(((fold-var_300)" "(let-values(((fold-var_301)" +" fold-var_299))" "(let-values(((fold-var_302)" -" fold-var_300))" -"(let-values(((fold-var_303)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_302))))" +" fold-var_301))))" "(values" -" fold-var_303)))))" +" fold-var_302)))))" "(if(not" " #f)" -"(for-loop_289" -" fold-var_301" -" rest_184)" -" fold-var_301)))" -" fold-var_300)))))" -" for-loop_289)" +"(for-loop_288" +" fold-var_300" +" rest_181)" +" fold-var_300)))" +" fold-var_299)))))" +" for-loop_288)" " null" -" lst_310))))" +" lst_309))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -62934,39 +62944,39 @@ static const char *startup_source = "(check-list" " lst_74)))" "((letrec-values(((for-loop_124)" -"(lambda(fold-var_304" -" lst_319)" +"(lambda(fold-var_303" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_319)" +" lst_317)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_319))" -"((rest_185)" +" lst_317))" +"((rest_182)" "(unsafe-cdr" -" lst_319)))" +" lst_317)))" "(let-values(((fold-var_142)" +"(let-values(((fold-var_304)" +" fold-var_303))" "(let-values(((fold-var_305)" -" fold-var_304))" -"(let-values(((fold-var_306)" "(let-values()" "(cons" "(let-values()" "(no-binds" " done-body_2" " s_179" -" phase_143))" -" fold-var_305))))" +" phase_145))" +" fold-var_304))))" "(values" -" fold-var_306)))))" +" fold-var_305)))))" "(if(not" " #f)" "(for-loop_124" " fold-var_142" -" rest_185)" +" rest_182)" " fold-var_142)))" -" fold-var_304)))))" +" fold-var_303)))))" " for-loop_124)" " null" " lst_74))))" @@ -62975,7 +62985,7 @@ static const char *startup_source = " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_320)" +"(let-values(((lst_318)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62983,9 +62993,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_320)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_307" +" lst_318)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_306" " lst_202)" "(begin" " 'for-loop" @@ -62994,30 +63004,30 @@ static const char *startup_source = "(let-values(((done-body_3)" "(unsafe-car" " lst_202))" -"((rest_186)" +"((rest_183)" "(unsafe-cdr" " lst_202)))" "(let-values(((fold-var_146)" "(let-values(((fold-var_39)" -" fold-var_307))" -"(let-values(((fold-var_308)" +" fold-var_306))" +"(let-values(((fold-var_307)" "(let-values()" "(cons" "(let-values()" " #f)" " fold-var_39))))" "(values" -" fold-var_308)))))" +" fold-var_307)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_289" " fold-var_146" -" rest_186)" +" rest_183)" " fold-var_146)))" -" fold-var_307)))))" -" for-loop_290)" +" fold-var_306)))))" +" for-loop_289)" " null" -" lst_320))))" +" lst_318))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -63048,45 +63058,45 @@ static const char *startup_source = "(let-values(((define-syntaxes105_1" " id106_2" " rhs107_1)" -"(let-values(((s_444)" +"(let-values(((s_436)" "(if(syntax?$1" " s_102)" "(syntax-e$1" " s_102)" " s_102)))" "(if(pair?" -" s_444)" +" s_436)" "(let-values(((define-syntaxes108_0)" "(let-values(((s_211)" "(car" -" s_444)))" +" s_436)))" " s_211))" "((id109_0" " rhs110_0)" -"(let-values(((s_511)" +"(let-values(((s_510)" "(cdr" -" s_444)))" -"(let-values(((s_512)" +" s_436)))" +"(let-values(((s_511)" "(if(syntax?$1" -" s_511)" +" s_510)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_510)" +" s_510)))" "(if(pair?" -" s_512)" +" s_511)" "(let-values(((id111_0)" -"(let-values(((s_513)" +"(let-values(((s_512)" "(car" -" s_512)))" -"(let-values(((s_514)" +" s_511)))" +"(let-values(((s_513)" "(if(syntax?$1" -" s_513)" +" s_512)" "(syntax-e$1" -" s_513)" -" s_513)))" +" s_512)" +" s_512)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_514)))" +" s_513)))" "(if(not" " flat-s_26)" "(let-values()" @@ -63095,8 +63105,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_40))" "(let-values()" -"(let-values(((id_106)" -"(let-values(((lst_321)" +"(let-values(((id_107)" +"(let-values(((lst_319)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63104,88 +63114,88 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_291)" -"(lambda(id_107" -" lst_322)" +" lst_319)))" +"((letrec-values(((for-loop_290)" +"(lambda(id_108" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_322)" -"(let-values(((s_515)" +" lst_320)" +"(let-values(((s_514)" "(unsafe-car" -" lst_322))" -"((rest_187)" +" lst_320))" +"((rest_184)" "(unsafe-cdr" -" lst_322)))" -"(let-values(((id_108)" +" lst_320)))" "(let-values(((id_109)" -" id_107))" "(let-values(((id_110)" +" id_108))" +"(let-values(((id_111)" "(let-values()" "(let-values(((id114_0)" "(let-values()" "(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_515)" +" s_514)" "(symbol?" "(syntax-e$1" -" s_515))" +" s_514))" " #f)))" "(if or-part_375" " or-part_375" "(symbol?" -" s_515)))" -" s_515" +" s_514)))" +" s_514" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_515)))))" +" s_514)))))" "(cons" " id114_0" -" id_109)))))" -"(values" " id_110)))))" +"(values" +" id_111)))))" "(if(not" " #f)" -"(for-loop_291" -" id_108" -" rest_187)" -" id_108)))" -" id_107)))))" -" for-loop_291)" +"(for-loop_290" +" id_109" +" rest_184)" +" id_109)))" +" id_108)))))" +" for-loop_290)" " null" -" lst_321)))))" +" lst_319)))))" "(reverse$1" -" id_106))))))))" +" id_107))))))))" "((rhs112_0)" -"(let-values(((s_516)" +"(let-values(((s_515)" "(cdr" -" s_512)))" +" s_511)))" "(let-values(((s_111)" "(if(syntax?$1" -" s_516)" +" s_515)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_515)" +" s_515)))" "(if(pair?" " s_111)" "(let-values(((rhs113_0)" -"(let-values(((s_517)" +"(let-values(((s_516)" "(car" " s_111)))" -" s_517))" +" s_516))" "(()" -"(let-values(((s_518)" +"(let-values(((s_517)" "(cdr" " s_111)))" "(let-values(((s_159)" "(if(syntax?$1" -" s_518)" +" s_517)" "(syntax-e$1" -" s_518)" -" s_518)))" +" s_517)" +" s_517)))" "(if(null?" " s_159)" "(values)" @@ -63245,7 +63255,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_32)" "((phase116_0)" -" phase_143)" +" phase_145)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -63263,7 +63273,7 @@ static const char *startup_source = " ctx_75)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_323)" +"(let-values(((lst_321)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63271,31 +63281,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_323)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_309" +" lst_321)))" +"((letrec-values(((for-loop_291)" +"(lambda(fold-var_308" " lst_44)" "(begin" " 'for-loop" "(if(pair?" " lst_44)" -"(let-values(((id_111)" +"(let-values(((id_112)" "(unsafe-car" " lst_44))" -"((rest_188)" +"((rest_185)" "(unsafe-cdr" " lst_44)))" +"(let-values(((fold-var_309)" "(let-values(((fold-var_310)" +" fold-var_308))" "(let-values(((fold-var_311)" -" fold-var_309))" -"(let-values(((fold-var_312)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" -" id_111)" +" id_112)" "((phase120_0)" -" phase_143)" +" phase_145)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -63310,19 +63320,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_311))))" +" fold-var_310))))" "(values" -" fold-var_312)))))" +" fold-var_311)))))" "(if(not" " #f)" -"(for-loop_292" -" fold-var_310" -" rest_188)" -" fold-var_310)))" -" fold-var_309)))))" -" for-loop_292)" +"(for-loop_291" +" fold-var_309" +" rest_185)" +" fold-var_309)))" +" fold-var_308)))))" +" for-loop_291)" " null" -" lst_323))))))" +" lst_321))))))" "(let-values((()" "(begin" "(let-values(((obs_73)" @@ -63361,11 +63371,11 @@ static const char *startup_source = " ids_32" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_324)" +"(let-values(((lst_322)" " keys_6)" -"((lst_325)" +"((lst_323)" " vals_8)" -"((lst_326)" +"((lst_324)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63373,52 +63383,52 @@ static const char *startup_source = "(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)))" -"(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_293)" +"((letrec-values(((for-loop_292)" "(lambda(env_21" " lst_36" -" lst_327" -" lst_328)" +" lst_325" +" lst_326)" "(begin" " 'for-loop" "(if(if(pair?" " lst_36)" "(if(pair?" -" lst_327)" +" lst_325)" "(pair?" -" lst_328)" +" lst_326)" " #f)" " #f)" "(let-values(((key_91)" "(unsafe-car" " lst_36))" -"((rest_189)" +"((rest_186)" "(unsafe-cdr" " lst_36))" "((val_40)" "(unsafe-car" -" lst_327))" -"((rest_190)" +" lst_325))" +"((rest_187)" "(unsafe-cdr" -" lst_327))" -"((id_112)" +" lst_325))" +"((id_113)" "(unsafe-car" -" lst_328))" -"((rest_191)" +" lst_326))" +"((rest_188)" "(unsafe-cdr" -" lst_328)))" +" lst_326)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -63427,8 +63437,8 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_40" -" id_112" -" phase_143" +" id_113" +" phase_145" " body-ctx_2)" "(env-extend" " env_23" @@ -63438,19 +63448,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_292" " env_22" -" rest_189" -" rest_190" -" rest_191)" +" rest_186" +" rest_187" +" rest_188)" " env_22)))" " env_21)))))" -" for-loop_293)" +" for-loop_292)" "(expand-context-env" " body-ctx_2)" -" lst_324" -" lst_325" -" lst_326)))))" +" lst_322" +" lst_323" +" lst_324)))))" "(begin" "(let-values(((obs_75)" "(expand-context-observer" @@ -63463,10 +63473,10 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_40" -"(let-values(((v_260)" +"(let-values(((v_262)" " body-ctx_2))" "(let-values(((the-struct_93)" -" v_260))" +" v_262))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((env124_0)" @@ -63477,7 +63487,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_260)))" +" v_262)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -63553,7 +63563,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_143)" +" phase_145)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -63629,11 +63639,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_261)" +"(let-values(((v_263)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_261))" +"(let-values(((the-struct_94) v_263))" "(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -63647,7 +63657,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_261)))" +"(root-expand-context/outer-inner v_263)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -63710,41 +63720,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_329) done-bodys_1)" +"(let-values(((lst_327) done-bodys_1)" "((start_65) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_329)))" +"(check-list lst_327)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_65)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_262" -" lst_330" +"((letrec-values(((for-loop_266)" +"(lambda(fold-var_263" +" lst_328" " pos_128)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_330)" +" lst_328)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_330))" -"((rest_192)" +" lst_328))" +"((rest_189)" "(unsafe-cdr" -" lst_330))" +" lst_328))" "((i_191)" " pos_128))" -"(let-values(((fold-var_265)" +"(let-values(((fold-var_266)" +"(let-values(((fold-var_312)" +" fold-var_263))" "(let-values(((fold-var_313)" -" fold-var_262))" -"(let-values(((fold-var_314)" "(let-values()" "(cons" "(let-values()" @@ -63767,17 +63777,17 @@ static const char *startup_source = " i_191" " last-i_1)" " #f)" -"(let-values(((v_262)" +"(let-values(((v_264)" " finish-ctx_0))" "(let-values(((the-struct_95)" -" v_262))" +" v_264))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_262)))" +" v_264)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -63821,22 +63831,22 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_3))))" -" fold-var_313))))" +" fold-var_312))))" "(values" -" fold-var_314)))))" +" fold-var_313)))))" "(if(not" " #f)" -"(for-loop_267" -" fold-var_265" -" rest_192" +"(for-loop_266" +" fold-var_266" +" rest_189" "(+" " pos_128" " 1))" -" fold-var_265)))" -" fold-var_262)))))" -" for-loop_267)" +" fold-var_266)))" +" fold-var_263)))))" +" for-loop_266)" " null" -" lst_329" +" lst_327" " start_65))))))" "(begin" "(let-values(((obs_79)" @@ -63948,7 +63958,7 @@ static const char *startup_source = "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_144)(expand-context-phase ctx_76)))" +"(let-values(((phase_146)(expand-context-phase ctx_76)))" "((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" @@ -63993,10 +64003,10 @@ static const char *startup_source = "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_144)" +" phase_146)" "(core-id" " 'letrec-values" -" phase_144))" +" phase_146))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -64109,7 +64119,7 @@ static const char *startup_source = "(list*" "(core-id" " 'let-values" -" phase_144)" +" phase_146)" "(list" "(build-clause" " ids_33" @@ -64190,7 +64200,7 @@ static const char *startup_source = "(list*" "(core-id" " 'letrec-values" -" phase_144)" +" phase_146)" "(build-clauses" "(cons" " ids_33" @@ -64265,49 +64275,49 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_519 phase_145)" +"(lambda(expr_10 s_518 phase_147)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_147)))" "(datum->syntax$1" -"(core-id '#%app phase_145)" -"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_519)))))" +"(core-id '#%app phase_147)" +"(list(core-id 'begin phase_147) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_518)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_87 ctx_78 s_520 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_87 ctx_78 s_519 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_146)(expand-context-phase ctx_78)))" +"(let-values(((phase_148)(expand-context-phase ctx_78)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_124) val-idss_2)((lst_331) val-rhss_2)((lst_332) track-stxs_4))" +"(let-values(((lst_124) val-idss_2)((lst_329) val-rhss_2)((lst_330) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_124)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_331)))" +"(let-values()(check-list lst_329)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_332)))" -"((letrec-values(((for-loop_294)" -"(lambda(fold-var_315 lst_333 lst_334 lst_335)" +"(let-values()(check-list lst_330)))" +"((letrec-values(((for-loop_293)" +"(lambda(fold-var_314 lst_331 lst_332 lst_333)" "(begin" " 'for-loop" -"(if(if(pair? lst_333)(if(pair? lst_334)(pair? lst_335) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_333))" -"((rest_193)(unsafe-cdr lst_333))" -"((val-rhs_0)(unsafe-car lst_334))" -"((rest_194)(unsafe-cdr lst_334))" -"((track-stx_2)(unsafe-car lst_335))" -"((rest_195)(unsafe-cdr lst_335)))" -"(let-values(((fold-var_316)" -"(let-values(((fold-var_317) fold-var_315))" -"(let-values(((fold-var_318)" +"(if(if(pair? lst_331)(if(pair? lst_332)(pair? lst_333) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_331))" +"((rest_190)(unsafe-cdr lst_331))" +"((val-rhs_0)(unsafe-car lst_332))" +"((rest_191)(unsafe-cdr lst_332))" +"((track-stx_2)(unsafe-car lst_333))" +"((rest_192)(unsafe-cdr lst_333)))" +"(let-values(((fold-var_315)" +"(let-values(((fold-var_316) fold-var_314))" +"(let-values(((fold-var_317)" "(let-values()" "(cons" "(let-values()" @@ -64315,26 +64325,26 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_317))))" -"(values fold-var_318)))))" +" fold-var_316))))" +"(values fold-var_317)))))" "(if(not #f)" -"(for-loop_294 fold-var_316 rest_193 rest_194 rest_195)" -" fold-var_316)))" -" fold-var_315)))))" -" for-loop_294)" +"(for-loop_293 fold-var_315 rest_190 rest_191 rest_192)" +" fold-var_315)))" +" fold-var_314)))))" +" for-loop_293)" " null" " lst_124" -" lst_331" -" lst_332))))))" +" lst_329" +" lst_330))))))" "(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_146)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_148)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_520)))" +" s_519)))" "(begin" "(call-expand-observe obs_87 'block->letrec(list lv-s_0))" "(call-expand-observe obs_87 'visit lv-s_0)" @@ -64349,7 +64359,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_520))" +"(datum->syntax$1 #f done-bodys_2 s_519))" "(call-expand-observe obs_87 'prepare-env)" "(call-expand-observe obs_87 'next-group)" "(if(null? val-idss_2)" @@ -64361,7 +64371,7 @@ static const char *startup_source = " obs_87" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_520)))))))" +"(datum->syntax$1 #f done-bodys_2 s_519)))))))" "(let-values()" "(begin" "(call-expand-observe obs_87 'prim-letrec-values)" @@ -64369,18 +64379,18 @@ static const char *startup_source = " obs_87" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_520))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_519))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_147)(expand-context-phase ctx_79)))" +"(let-values(((phase_149)(expand-context-phase ctx_79)))" "(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_35)" -"((phase35_2) phase_147)" +"((phase35_2) phase_149)" "((s36_0) s_73)" " ((temp37_5) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_5 #t ids34_0 phase35_2 s36_0 #f #f))" @@ -64393,23 +64403,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_319 lst_266)" +"((letrec-values(((for-loop_294)" +"(lambda(fold-var_318 lst_266)" "(begin" " 'for-loop" "(if(pair? lst_266)" -"(let-values(((id_113)(unsafe-car lst_266))" -"((rest_196)(unsafe-cdr lst_266)))" +"(let-values(((id_114)(unsafe-car lst_266))" +"((rest_193)(unsafe-cdr lst_266)))" "(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_319))" +"(let-values(((fold-var_34) fold-var_318))" "(let-values(((fold-var_157)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_1)" -" id_113)" +" id_114)" "((phase39_2)" -" phase_147)" +" phase_149)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -64425,10 +64435,10 @@ static const char *startup_source = " fold-var_34))))" "(values fold-var_157)))))" "(if(not #f)" -"(for-loop_295 fold-var_33 rest_196)" +"(for-loop_294 fold-var_33 rest_193)" " fold-var_33)))" -" fold-var_319)))))" -" for-loop_295)" +" fold-var_318)))))" +" for-loop_294)" " null" " lst_87))))))" "(let-values(((body-env_0)" @@ -64447,8 +64457,8 @@ static const char *startup_source = "(if(if(pair? lst_82)(pair? lst_273) #f)" "(let-values(((key_92)(unsafe-car lst_82))" "((rest_146)(unsafe-cdr lst_82))" -"((id_114)(unsafe-car lst_273))" -"((rest_197)(unsafe-cdr lst_273)))" +"((id_115)(unsafe-car lst_273))" +"((rest_194)(unsafe-cdr lst_273)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -64457,10 +64467,10 @@ static const char *startup_source = " env_27" " key_92" "(local-variable1.1" -" id_114)))))" +" id_115)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_48 env_26 rest_146 rest_197)" +"(for-loop_48 env_26 rest_146 rest_194)" " env_26)))" " env_25)))))" " for-loop_48)" @@ -64515,15 +64525,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_263) ctx_79))" -"(let-values(((the-struct_96) v_263))" +"(let-values(((v_265) ctx_79))" +"(let-values(((the-struct_96) v_265))" "(if(expand-context/outer? the-struct_96)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_79)))" "((binding-layer44_0)" "(increment-binding-layer ids_35 ctx_79 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_263)))" +"((inner46_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_96)" @@ -64567,10 +64577,10 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_36 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_521) disarmed-s_6))" -"(let-values(((orig-s_41) s_521))" +"(let-values(((s_520) disarmed-s_6))" +"(let-values(((orig-s_41) s_520))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_172)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" +"(let-values(((s_172)(if(syntax?$1 s_520)(syntax-e$1 s_520) s_520)))" "(if(pair? s_172)" "(let-values(((lambda56_0)(let-values(((s_45)(car s_172))) s_45))" "((formals57_0 body58_0)" @@ -64585,13 +64595,13 @@ static const char *startup_source = " s_174))" "((body60_0)" "(let-values(((s_175)(cdr s_82)))" -"(let-values(((s_502)" +"(let-values(((s_501)" "(if(syntax?$1 s_175)" "(syntax-e$1 s_175)" " s_175)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_502)))" +" s_501)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -64625,16 +64635,16 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_37 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_506) s_26))" -"(let-values(((orig-s_39) s_506))" +"(let-values(((s_505) s_26))" +"(let-values(((orig-s_39) s_505))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_94)(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" +"(let-values(((s_94)(if(syntax?$1 s_505)(syntax-e$1 s_505) s_505)))" "(if(pair? s_94)" -"(let-values(((lam-id69_0)(let-values(((s_507)(car s_94))) s_507))" +"(let-values(((lam-id69_0)(let-values(((s_506)(car s_94))) s_506))" "((formals70_0 _71_1)" -"(let-values(((s_508)(cdr s_94)))" +"(let-values(((s_507)(cdr s_94)))" "(let-values(((s_52)" -"(if(syntax?$1 s_508)(syntax-e$1 s_508) s_508)))" +"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" "(if(pair? s_52)" "(let-values(((formals72_0)" "(let-values(((s_53)(car s_52))) s_53))" @@ -64666,21 +64676,21 @@ static const char *startup_source = "(values #t lam-id66_1 formals67_1 _68_1))))))" "(let-values(((ids_36)(parse-and-flatten-formals formals67_0 #f s_26)))" "(let-values(((ctx_81)(let-values(((temp78_4) #t))(get-current-expand-context17.1 temp78_4 #t #f #f))))" -"(let-values(((phase_148)(if ctx_81(expand-context-phase ctx_81) 0)))" +"(let-values(((phase_150)(if ctx_81(expand-context-phase ctx_81) 0)))" "(begin" -" (let-values (((ids74_0) ids_36) ((phase75_0) phase_148) ((s76_2) s_26) ((temp77_3) \"argument name\"))" +" (let-values (((ids74_0) ids_36) ((phase75_0) phase_150) ((s76_2) s_26) ((temp77_3) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_3 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" " s_26" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'lambda lam-id66_0 lam-id66_0)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_150) 'lambda lam-id66_0 lam-id66_0)" "(cdr(syntax-e$1 s_26)))" " s_26" " s_26)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_522 ctx_82)" +"(lambda(s_521 ctx_82)" "(let-values((()" "(begin" "(let-values(((obs_90)(expand-context-observer ctx_82)))" @@ -64688,34 +64698,34 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_90 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_522)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_521)))" "(let-values(((ok?_1 case-lambda79_0 formals80_0 body81_0)" "(let-values(((s_440) disarmed-s_7))" "(let-values(((orig-s_42) s_440))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_523)(if(syntax?$1 s_440)(syntax-e$1 s_440) s_440)))" -"(if(pair? s_523)" -"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_523))) s_37))" +"(let-values(((s_522)(if(syntax?$1 s_440)(syntax-e$1 s_440) s_440)))" +"(if(pair? s_522)" +"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_522))) s_37))" "((formals83_0 body84_0)" -"(let-values(((s_65)(cdr s_523)))" -"(let-values(((s_435)" +"(let-values(((s_65)(cdr s_522)))" +"(let-values(((s_523)" "(if(syntax?$1 s_65)" "(syntax-e$1 s_65)" " s_65)))" -"(let-values(((flat-s_29)(to-syntax-list.1 s_435)))" +"(let-values(((flat-s_29)(to-syntax-list.1 s_523)))" "(if(not flat-s_29)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_310) flat-s_29))" +"(let-values(((lst_309) flat-s_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_310)))" -"((letrec-values(((for-loop_289)" +"(check-list lst_309)))" +"((letrec-values(((for-loop_288)" "(lambda(formals_4" " body_15" " lst_32)" @@ -64726,7 +64736,7 @@ static const char *startup_source = "(let-values(((s_324)" "(unsafe-car" " lst_32))" -"((rest_198)" +"((rest_195)" "(unsafe-cdr" " lst_32)))" "(let-values(((formals_5" @@ -64755,18 +64765,18 @@ static const char *startup_source = " s_205)))" " s_97))" "((body86_0)" -"(let-values(((s_463)" +"(let-values(((s_462)" "(cdr" " s_205)))" -"(let-values(((s_464)" +"(let-values(((s_463)" "(if(syntax?$1" -" s_463)" +" s_462)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_462)" +" s_462)))" "(let-values(((flat-s_30)" "(to-syntax-list.1" -" s_464)))" +" s_463)))" "(if(not" " flat-s_30)" "(let-values()" @@ -64802,20 +64812,20 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_288" " formals_5" " body_16" -" rest_198)" +" rest_195)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_289)" +" for-loop_288)" " null" " null" -" lst_310)))))" +" lst_309)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64823,10 +64833,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_38 case-lambda87_0 clause88_0)" -"(let-values(((s_465) disarmed-s_7))" -"(let-values(((orig-s_43) s_465))" +"(let-values(((s_464) disarmed-s_7))" +"(let-values(((orig-s_43) s_464))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_524)(if(syntax?$1 s_465)(syntax-e$1 s_465) s_465)))" +"(let-values(((s_524)(if(syntax?$1 s_464)(syntax-e$1 s_464) s_464)))" "(if(pair? s_524)" "(let-values(((case-lambda89_0)" "(let-values(((s_525)(car s_524))) s_525))" @@ -64845,36 +64855,36 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_82)((s94_0) s_522)((temp95_2) #t))" +"(let-values(((ctx93_0) ctx_82)((s94_0) s_521)((temp95_2) #t))" "(keep-as-needed120.1 #f #f #f #f temp95_2 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_336) formals80_0)((lst_110) body81_0)((lst_337) clause88_0))" +"(let-values(((lst_334) formals80_0)((lst_110) body81_0)((lst_335) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_336)))" +"(let-values()(check-list lst_334)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_110)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_337)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_320 lst_338 lst_54 lst_339)" +"(let-values()(check-list lst_335)))" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_319 lst_336 lst_54 lst_337)" "(begin" " 'for-loop" -"(if(if(pair? lst_338)" -"(if(pair? lst_54)(pair? lst_339) #f)" +"(if(if(pair? lst_336)" +"(if(pair? lst_54)(pair? lst_337) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_338))" -"((rest_199)(unsafe-cdr lst_338))" +"(let-values(((formals_8)(unsafe-car lst_336))" +"((rest_196)(unsafe-cdr lst_336))" "((body_19)(unsafe-car lst_54))" -"((rest_200)(unsafe-cdr lst_54))" -"((clause_3)(unsafe-car lst_339))" -"((rest_24)(unsafe-cdr lst_339)))" +"((rest_197)(unsafe-cdr lst_54))" +"((clause_3)(unsafe-car lst_337))" +"((rest_24)(unsafe-cdr lst_337)))" "(let-values(((fold-var_105)" -"(let-values(((fold-var_196) fold-var_320))" +"(let-values(((fold-var_196) fold-var_319))" "(let-values(((fold-var_197)" "(let-values()" "(cons" @@ -64909,7 +64919,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_522" +" s_521" " disarmed-s_7" " formals_8" " body_19" @@ -64934,14 +64944,14 @@ static const char *startup_source = " fold-var_196))))" "(values fold-var_197)))))" "(if(not #f)" -"(for-loop_296 fold-var_105 rest_199 rest_200 rest_24)" +"(for-loop_295 fold-var_105 rest_196 rest_197 rest_24)" " fold-var_105)))" -" fold-var_320)))))" -" for-loop_296)" +" fold-var_319)))))" +" for-loop_295)" " null" -" lst_336" +" lst_334" " lst_110" -" lst_337))))))" +" lst_335))))))" "(if(expand-context-to-parsed? ctx_82)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_4)(list* case-lambda79_0 clauses_1)))" @@ -65042,19 +65052,19 @@ static const char *startup_source = " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_471)" +"(let-values(((s_470)" "(if(syntax?$1 s_529)" "(syntax-e$1 s_529)" " s_529)))" -"(if(pair? s_471)" +"(if(pair? s_470)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_530)(car s_471))) s_530))" +"(let-values(((s_530)(car s_470))) s_530))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_531)(cdr s_471)))" +"(let-values(((s_531)(cdr s_470)))" "(let-values(((s_532)" "(if(syntax?$1 s_531)" "(syntax-e$1 s_531)" @@ -65093,20 +65103,20 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_212)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_296)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_340)" +" lst_338)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" +" lst_338)" "(let-values(((s_237)" "(unsafe-car" -" lst_340))" -"((rest_201)" +" lst_338))" +"((rest_198)" "(unsafe-cdr" -" lst_340)))" +" lst_338)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -65149,7 +65159,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_341)" +"(let-values(((lst_339)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65157,20 +65167,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_298)" +" lst_339)))" +"((letrec-values(((for-loop_297)" "(lambda(id:trans_6" -" lst_342)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" +" lst_340)" "(let-values(((s_346)" "(unsafe-car" -" lst_342))" -"((rest_202)" +" lst_340))" +"((rest_199)" "(unsafe-cdr" -" lst_342)))" +" lst_340)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -65202,37 +65212,37 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_297" " id:trans_7" -" rest_202)" +" rest_199)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_298)" +" for-loop_297)" " null" -" lst_341)))))" +" lst_339)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" "(let-values(((s_240)" "(cdr" " s_533)))" -"(let-values(((s_475)" +"(let-values(((s_474)" "(if(syntax?$1" " s_240)" "(syntax-e$1" " s_240)" " s_240)))" "(if(pair?" -" s_475)" +" s_474)" "(let-values(((trans-rhs121_0)" "(let-values(((s_534)" "(car" -" s_475)))" +" s_474)))" " s_534))" "(()" "(let-values(((s_241)" "(cdr" -" s_475)))" +" s_474)))" "(let-values(((s_242)" "(if(syntax?$1" " s_241)" @@ -65271,17 +65281,17 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_296" " id:trans_2" " trans-rhs_2" -" rest_201)" +" rest_198)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_297)" +" for-loop_296)" " null" " null" " lst_212)))))" @@ -65327,7 +65337,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_343)" +"(let-values(((lst_341)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65335,21 +65345,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_299)" +" lst_341)))" +"((letrec-values(((for-loop_298)" "(lambda(id:val_1" " val-rhs_2" -" lst_344)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" +" lst_342)" "(let-values(((s_536)" "(unsafe-car" -" lst_344))" -"((rest_203)" +" lst_342))" +"((rest_200)" "(unsafe-cdr" -" lst_344)))" +" lst_342)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -65371,15 +65381,15 @@ static const char *startup_source = "(if(pair?" " s_537)" "(let-values(((id:val125_0)" -"(let-values(((s_489)" +"(let-values(((s_488)" "(car" " s_537)))" "(let-values(((s_538)" "(if(syntax?$1" -" s_489)" +" s_488)" "(syntax-e$1" -" s_489)" -" s_489)))" +" s_488)" +" s_488)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_538)))" @@ -65392,7 +65402,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_345)" +"(let-values(((lst_343)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65400,20 +65410,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_300)" +" lst_343)))" +"((letrec-values(((for-loop_299)" "(lambda(id:val_6" -" lst_346)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" +" lst_344)" "(let-values(((s_539)" "(unsafe-car" -" lst_346))" -"((rest_204)" +" lst_344))" +"((rest_201)" "(unsafe-cdr" -" lst_346)))" +" lst_344)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -65445,14 +65455,14 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_299" " id:val_7" -" rest_204)" +" rest_201)" " id:val_7)))" " id:val_6)))))" -" for-loop_300)" +" for-loop_299)" " null" -" lst_345)))))" +" lst_343)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" @@ -65468,10 +65478,10 @@ static const char *startup_source = "(if(pair?" " s_248)" "(let-values(((val-rhs127_0)" -"(let-values(((s_478)" +"(let-values(((s_477)" "(car" " s_248)))" -" s_478))" +" s_477))" "(()" "(let-values(((s_359)" "(cdr" @@ -65514,20 +65524,20 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_298" " id:val_2" " val-rhs_3" -" rest_203)" +" rest_200)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_299)" +" for-loop_298)" " null" " null" -" lst_343)))))" +" lst_341)))))" "(values" "(reverse$1" " id:val_0)" @@ -65641,7 +65651,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_347)" +"(let-values(((lst_345)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65649,21 +65659,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_301)" +" lst_345)))" +"((letrec-values(((for-loop_300)" "(lambda(id:val_11" " val-rhs_7" -" lst_303)" +" lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_303)" +" lst_302)" "(let-values(((s_542)" "(unsafe-car" -" lst_303))" -"((rest_205)" +" lst_302))" +"((rest_202)" "(unsafe-cdr" -" lst_303)))" +" lst_302)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -65706,7 +65716,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_348)" +"(let-values(((lst_346)" " flat-s_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65714,20 +65724,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_348)))" -"((letrec-values(((for-loop_302)" +" lst_346)))" +"((letrec-values(((for-loop_301)" "(lambda(id:val_16" -" lst_349)" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_349)" +" lst_347)" "(let-values(((s_545)" "(unsafe-car" -" lst_349))" -"((rest_206)" +" lst_347))" +"((rest_203)" "(unsafe-cdr" -" lst_349)))" +" lst_347)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -65759,14 +65769,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " id:val_17" -" rest_206)" +" rest_203)" " id:val_17)))" " id:val_16)))))" -" for-loop_302)" +" for-loop_301)" " null" -" lst_348)))))" +" lst_346)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" @@ -65828,20 +65838,20 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_300" " id:val_12" " val-rhs_8" -" rest_205)" +" rest_202)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_301)" +" for-loop_300)" " null" " null" -" lst_347)))))" +" lst_345)))))" "(values" "(reverse$1" " id:val_10)" @@ -65893,33 +65903,33 @@ static const char *startup_source = "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_149)(expand-context-phase ctx_83)))" +"(let-values(((phase_151)(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_350)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_348)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_350)))" +"(let-values()(check-list lst_348)))" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_108 lst_351)" +"(lambda(fold-var_108 lst_349)" "(begin" " 'for-loop" -"(if(pair? lst_351)" +"(if(pair? lst_349)" "(let-values(((ids_37)" -"(unsafe-car lst_351))" -"((rest_207)" -"(unsafe-cdr lst_351)))" +"(unsafe-car lst_349))" +"((rest_204)" +"(unsafe-cdr lst_349)))" "(let-values(((fold-var_112)" -"(let-values(((fold-var_321)" +"(let-values(((fold-var_320)" " fold-var_108))" -"(let-values(((fold-var_322)" +"(let-values(((fold-var_321)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_352)" +"(let-values(((lst_350)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65927,78 +65937,78 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_352)))" -"((letrec-values(((for-loop_277)" -"(lambda(fold-var_323" -" lst_353)" +" lst_350)))" +"((letrec-values(((for-loop_276)" +"(lambda(fold-var_322" +" lst_351)" "(begin" " 'for-loop" "(if(pair?" -" lst_353)" -"(let-values(((id_115)" +" lst_351)" +"(let-values(((id_116)" "(unsafe-car" -" lst_353))" -"((rest_208)" +" lst_351))" +"((rest_205)" "(unsafe-cdr" -" lst_353)))" +" lst_351)))" +"(let-values(((fold-var_323)" "(let-values(((fold-var_324)" +" fold-var_322))" "(let-values(((fold-var_325)" -" fold-var_323))" -"(let-values(((fold-var_326)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_115" +" id_116" " sc_37))" -" fold-var_325))))" +" fold-var_324))))" "(values" -" fold-var_326)))))" +" fold-var_325)))))" "(if(not" " #f)" -"(for-loop_277" -" fold-var_324" -" rest_208)" -" fold-var_324)))" -" fold-var_323)))))" -" for-loop_277)" -" null" -" lst_352)))))" -" fold-var_321))))" -"(values" +"(for-loop_276" +" fold-var_323" +" rest_205)" +" fold-var_323)))" " fold-var_322)))))" +" for-loop_276)" +" null" +" lst_350)))))" +" fold-var_320))))" +"(values" +" fold-var_321)))))" "(if(not #f)" -"(for-loop_160 fold-var_112 rest_207)" +"(for-loop_160 fold-var_112 rest_204)" " fold-var_112)))" " fold-var_108)))))" " for-loop_160)" " null" -" lst_350))))))" +" lst_348))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_354)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_352)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_327 lst_355)" +"(let-values()(check-list lst_352)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_326 lst_353)" "(begin" " 'for-loop" -"(if(pair? lst_355)" +"(if(pair? lst_353)" "(let-values(((ids_38)" -"(unsafe-car lst_355))" -"((rest_209)" -"(unsafe-cdr lst_355)))" +"(unsafe-car lst_353))" +"((rest_206)" +"(unsafe-cdr lst_353)))" +"(let-values(((fold-var_327)" "(let-values(((fold-var_328)" +" fold-var_326))" "(let-values(((fold-var_329)" -" fold-var_327))" -"(let-values(((fold-var_330)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_356)" +"(let-values(((lst_354)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66006,112 +66016,112 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_356)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_331" -" lst_357)" +" lst_354)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_330" +" lst_355)" "(begin" " 'for-loop" "(if(pair?" -" lst_357)" -"(let-values(((id_116)" +" lst_355)" +"(let-values(((id_117)" "(unsafe-car" -" lst_357))" -"((rest_210)" +" lst_355))" +"((rest_207)" "(unsafe-cdr" -" lst_357)))" +" lst_355)))" +"(let-values(((fold-var_331)" "(let-values(((fold-var_332)" +" fold-var_330))" "(let-values(((fold-var_333)" -" fold-var_331))" -"(let-values(((fold-var_334)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_116" +" id_117" " sc_37))" -" fold-var_333))))" +" fold-var_332))))" "(values" -" fold-var_334)))))" +" fold-var_333)))))" "(if(not" " #f)" -"(for-loop_304" -" fold-var_332" -" rest_210)" -" fold-var_332)))" -" fold-var_331)))))" -" for-loop_304)" -" null" -" lst_356)))))" -" fold-var_329))))" -"(values" -" fold-var_330)))))" -"(if(not #f)" "(for-loop_303" -" fold-var_328" -" rest_209)" -" fold-var_328)))" -" fold-var_327)))))" +" fold-var_331" +" rest_207)" +" fold-var_331)))" +" fold-var_330)))))" " for-loop_303)" " null" -" lst_354))))))" +" lst_354)))))" +" fold-var_328))))" +"(values" +" fold-var_329)))))" +"(if(not #f)" +"(for-loop_302" +" fold-var_327" +" rest_206)" +" fold-var_327)))" +" fold-var_326)))))" +" for-loop_302)" +" null" +" lst_352))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_358)" +"(let-values(((lst_356)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_335 lst_359)" +"(let-values()(check-list lst_356)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_334 lst_357)" "(begin" " 'for-loop" -"(if(pair? lst_359)" +"(if(pair? lst_357)" "(let-values(((rhs_20)" -"(unsafe-car lst_359))" -"((rest_211)" -"(unsafe-cdr lst_359)))" +"(unsafe-car lst_357))" +"((rest_208)" +"(unsafe-cdr lst_357)))" +"(let-values(((fold-var_335)" "(let-values(((fold-var_336)" +" fold-var_334))" "(let-values(((fold-var_337)" -" fold-var_335))" -"(let-values(((fold-var_338)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_37))" -" fold-var_337))))" +" fold-var_336))))" "(values" -" fold-var_338)))))" +" fold-var_337)))))" "(if(not #f)" -"(for-loop_305" -" fold-var_336" -" rest_211)" -" fold-var_336)))" -" fold-var_335)))))" -" for-loop_305)" +"(for-loop_304" +" fold-var_335" +" rest_208)" +" fold-var_335)))" +" fold-var_334)))))" +" for-loop_304)" " null" -" lst_358))))" +" lst_356))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_41 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_482) disarmed-s_8))" -"(let-values(((orig-s_46) s_482))" +"(let-values(((s_481) disarmed-s_8))" +"(let-values(((orig-s_46) s_481))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" "(let-values(((s_142)" "(if(syntax?$1" -" s_482)" +" s_481)" "(syntax-e$1" -" s_482)" -" s_482)))" +" s_481)" +" s_481)))" "(if(pair? s_142)" "(let-values(((_158_0)" "(let-values(((s_550)" @@ -66285,7 +66295,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp142_4)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_149)" +"((phase143_0) phase_151)" "((s144_0) s_528))" "(check-no-duplicate-ids8.1" " #f" @@ -66299,27 +66309,27 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_83)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_360) trans-idss_2))" +"(let-values(((lst_358) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_339 lst_361)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_338 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_361)" +"(if(pair? lst_359)" "(let-values(((ids_39)" "(unsafe-car" -" lst_361))" -"((rest_212)" +" lst_359))" +"((rest_209)" "(unsafe-cdr" -" lst_361)))" +" lst_359)))" +"(let-values(((fold-var_339)" "(let-values(((fold-var_340)" +" fold-var_338))" "(let-values(((fold-var_341)" -" fold-var_339))" -"(let-values(((fold-var_342)" "(let-values()" "(cons" "(let-values()" @@ -66333,30 +66343,30 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_238)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_343" -" lst_362)" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_342" +" lst_360)" "(begin" " 'for-loop" "(if(pair?" -" lst_362)" -"(let-values(((id_117)" +" lst_360)" +"(let-values(((id_118)" "(unsafe-car" -" lst_362))" +" lst_360))" "((rest_127)" "(unsafe-cdr" -" lst_362)))" +" lst_360)))" +"(let-values(((fold-var_343)" "(let-values(((fold-var_344)" +" fold-var_342))" "(let-values(((fold-var_345)" -" fold-var_343))" -"(let-values(((fold-var_346)" "(let-values()" "(cons" "(let-values()" "(let-values(((id175_0)" -" id_117)" +" id_118)" "((phase176_0)" -" phase_149)" +" phase_151)" "((counter177_0)" " counter_8)" "((frame-id178_0)" @@ -66371,59 +66381,59 @@ static const char *startup_source = " id175_0" " phase176_0" " counter177_0)))" -" fold-var_345))))" +" fold-var_344))))" "(values" -" fold-var_346)))))" +" fold-var_345)))))" "(if(not" " #f)" -"(for-loop_307" -" fold-var_344" -" rest_127)" -" fold-var_344)))" -" fold-var_343)))))" -" for-loop_307)" -" null" -" lst_238)))))" -" fold-var_341))))" -"(values" -" fold-var_342)))))" -"(if(not #f)" "(for-loop_306" -" fold-var_340" -" rest_212)" -" fold-var_340)))" -" fold-var_339)))))" +" fold-var_343" +" rest_127)" +" fold-var_343)))" +" fold-var_342)))))" " for-loop_306)" " null" -" lst_360))))))" +" lst_238)))))" +" fold-var_340))))" +"(values" +" fold-var_341)))))" +"(if(not #f)" +"(for-loop_305" +" fold-var_339" +" rest_209)" +" fold-var_339)))" +" fold-var_338)))))" +" for-loop_305)" +" null" +" lst_358))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_363) val-idss_3))" +"(let-values(((lst_361) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_347 lst_364)" +"(let-values()(check-list lst_361)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_346 lst_362)" "(begin" " 'for-loop" -"(if(pair? lst_364)" +"(if(pair? lst_362)" "(let-values(((ids_40)" "(unsafe-car" -" lst_364))" -"((rest_213)" +" lst_362))" +"((rest_210)" "(unsafe-cdr" -" lst_364)))" +" lst_362)))" +"(let-values(((fold-var_347)" "(let-values(((fold-var_348)" +" fold-var_346))" "(let-values(((fold-var_349)" -" fold-var_347))" -"(let-values(((fold-var_350)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_365)" +"(let-values(((lst_363)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66431,31 +66441,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_365)))" -"((letrec-values(((for-loop_309)" -"(lambda(fold-var_351" -" lst_366)" +" lst_363)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_350" +" lst_364)" "(begin" " 'for-loop" "(if(pair?" -" lst_366)" -"(let-values(((id_118)" +" lst_364)" +"(let-values(((id_119)" "(unsafe-car" -" lst_366))" -"((rest_214)" +" lst_364))" +"((rest_211)" "(unsafe-cdr" -" lst_366)))" -"(let-values(((fold-var_352)" +" lst_364)))" +"(let-values(((fold-var_351)" "(let-values(((fold-var_116)" -" fold-var_351))" +" fold-var_350))" "(let-values(((fold-var_117)" "(let-values()" "(cons" "(let-values()" "(let-values(((id180_0)" -" id_118)" +" id_119)" "((phase181_0)" -" phase_149)" +" phase_151)" "((counter182_0)" " counter_8)" "((frame-id183_0)" @@ -66475,68 +66485,68 @@ static const char *startup_source = " fold-var_117)))))" "(if(not" " #f)" -"(for-loop_309" -" fold-var_352" -" rest_214)" -" fold-var_352)))" -" fold-var_351)))))" -" for-loop_309)" -" null" -" lst_365)))))" -" fold-var_349))))" -"(values" -" fold-var_350)))))" -"(if(not #f)" "(for-loop_308" -" fold-var_348" -" rest_213)" -" fold-var_348)))" -" fold-var_347)))))" +" fold-var_351" +" rest_211)" +" fold-var_351)))" +" fold-var_350)))))" " for-loop_308)" " null" -" lst_363))))))" +" lst_363)))))" +" fold-var_348))))" +"(values" +" fold-var_349)))))" +"(if(not #f)" +"(for-loop_307" +" fold-var_347" +" rest_210)" +" fold-var_347)))" +" fold-var_346)))))" +" for-loop_307)" +" null" +" lst_361))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_367)" +"(let-values(((lst_365)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_367)))" -"((letrec-values(((for-loop_310)" -"(lambda(fold-var_353 lst_129)" +"(let-values()(check-list lst_365)))" +"((letrec-values(((for-loop_309)" +"(lambda(fold-var_352 lst_129)" "(begin" " 'for-loop" "(if(pair? lst_129)" "(let-values(((body_20)" "(unsafe-car" " lst_129))" -"((rest_215)" +"((rest_212)" "(unsafe-cdr" " lst_129)))" +"(let-values(((fold-var_353)" "(let-values(((fold-var_354)" +" fold-var_352))" "(let-values(((fold-var_355)" -" fold-var_353))" -"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_37))" -" fold-var_355))))" +" fold-var_354))))" "(values" -" fold-var_356)))))" +" fold-var_355)))))" "(if(not #f)" -"(for-loop_310" -" fold-var_354" -" rest_215)" -" fold-var_354)))" -" fold-var_353)))))" -" for-loop_310)" +"(for-loop_309" +" fold-var_353" +" rest_212)" +" fold-var_353)))" +" fold-var_352)))))" +" for-loop_309)" " null" -" lst_367))))))" +" lst_365))))))" "(let-values((()" "(begin" "(let-values(((obs_92)" @@ -66574,7 +66584,7 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_368)" +"(let-values(((lst_366)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" @@ -66583,36 +66593,36 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_368)))" +"(let-values()(check-list lst_366)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_247)))" -"((letrec-values(((for-loop_311)" +"((letrec-values(((for-loop_310)" "(lambda(fold-var_123" " lst_131" -" lst_369)" +" lst_367)" "(begin" " 'for-loop" "(if(if(pair? lst_131)" -"(pair? lst_369)" +"(pair? lst_367)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" " lst_131))" -"((rest_216)" +"((rest_213)" "(unsafe-cdr" " lst_131))" "((ids_41)" "(unsafe-car" -" lst_369))" +" lst_367))" "((rest_67)" "(unsafe-cdr" -" lst_369)))" +" lst_367)))" "(let-values(((fold-var_125)" -"(let-values(((fold-var_357)" +"(let-values(((fold-var_356)" " fold-var_123))" -"(let-values(((fold-var_358)" +"(let-values(((fold-var_357)" "(let-values()" "(cons" "(let-values()" @@ -66653,19 +66663,19 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_357))))" +" fold-var_356))))" "(values" -" fold-var_358)))))" +" fold-var_357)))))" "(if(not #f)" -"(for-loop_311" +"(for-loop_310" " fold-var_125" -" rest_216" +" rest_213" " rest_67)" " fold-var_125)))" " fold-var_123)))))" -" for-loop_311)" +" for-loop_310)" " null" -" lst_368" +" lst_366" " lst_247))))))" "(let-values(((rec-val-env_0)" "(let-values(((lst_61) val-keyss_2)" @@ -66679,34 +66689,34 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_249)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_311)" "(lambda(env_29" -" lst_370" +" lst_368" " lst_133)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_370)" +" lst_368)" "(pair? lst_133)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_370))" +" lst_368))" "((rest_68)" "(unsafe-cdr" -" lst_370))" +" lst_368))" "((ids_42)" "(unsafe-car" " lst_133))" -"((rest_217)" +"((rest_214)" "(unsafe-cdr" " lst_133)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_371)" +"(let-values(((lst_369)" " keys_10)" -"((lst_372)" +"((lst_370)" " ids_42))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66714,34 +66724,34 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_371)))" +" lst_369)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_372)))" -"((letrec-values(((for-loop_313)" +" lst_370)))" +"((letrec-values(((for-loop_312)" "(lambda(env_32" -" lst_373" +" lst_371" " lst_66)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_373)" +" lst_371)" "(pair?" " lst_66)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_373))" +" lst_371))" "((rest_30)" "(unsafe-cdr" -" lst_373))" -"((id_119)" +" lst_371))" +"((id_120)" "(unsafe-car" " lst_66))" -"((rest_218)" +"((rest_215)" "(unsafe-cdr" " lst_66)))" "(let-values(((env_33)" @@ -66753,92 +66763,92 @@ static const char *startup_source = " env_34" " key_93" "(local-variable1.1" -" id_119)))))" +" id_120)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_312" " env_33" " rest_30" -" rest_218)" +" rest_215)" " env_33)))" " env_32)))))" -" for-loop_313)" +" for-loop_312)" " env_31" -" lst_371" -" lst_372))))))" +" lst_369" +" lst_370))))))" "(if(not #f)" -"(for-loop_312" +"(for-loop_311" " env_30" " rest_68" -" rest_217)" +" rest_214)" " env_30)))" " env_29)))))" -" for-loop_312)" +" for-loop_311)" "(expand-context-env ctx_83)" " lst_61" " lst_249)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_374) trans-keyss_0)" -"((lst_375) trans-valss_0)" -"((lst_376) trans-idss_2))" +"(let-values(((lst_372) trans-keyss_0)" +"((lst_373) trans-valss_0)" +"((lst_374) 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)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_375)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_376)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_313)" "(lambda(env_36" -" lst_377" -" lst_378" -" lst_379)" +" lst_375" +" lst_376" +" lst_377)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_377)" +" lst_375)" "(if(pair?" -" lst_378)" +" lst_376)" "(pair?" -" lst_379)" +" lst_377)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_377))" -"((rest_219)" +" lst_375))" +"((rest_216)" "(unsafe-cdr" -" lst_377))" +" lst_375))" "((vals_9)" "(unsafe-car" -" lst_378))" -"((rest_220)" +" lst_376))" +"((rest_217)" "(unsafe-cdr" -" lst_378))" +" lst_376))" "((ids_43)" "(unsafe-car" -" lst_379))" -"((rest_221)" +" lst_377))" +"((rest_218)" "(unsafe-cdr" -" lst_379)))" +" lst_377)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_380)" +"(let-values(((lst_378)" " keys_11)" -"((lst_381)" +"((lst_379)" " vals_9)" -"((lst_382)" +"((lst_380)" " ids_43))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66846,28 +66856,28 @@ 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))" +"(void)" +"(let-values()" +"(check-list" " lst_380)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_381)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_382)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_314)" "(lambda(env_40" -" lst_383" +" lst_381" " lst_48" " lst_118)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_383)" +" lst_381)" "(if(pair?" " lst_48)" "(pair?" @@ -66876,20 +66886,20 @@ static const char *startup_source = " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_383))" -"((rest_222)" +" lst_381))" +"((rest_219)" "(unsafe-cdr" -" lst_383))" -"((val_85)" +" lst_381))" +"((val_86)" "(unsafe-car" " lst_48))" "((rest_21)" "(unsafe-cdr" " lst_48))" -"((id_120)" +"((id_121)" "(unsafe-car" " lst_118))" -"((rest_223)" +"((rest_220)" "(unsafe-cdr" " lst_118)))" "(let-values(((env_41)" @@ -66899,45 +66909,45 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_85" -" id_120" -" phase_149" +" val_86" +" id_121" +" phase_151" " ctx_83)" "(env-extend" " env_42" " key_94" -" val_85)))))" +" val_86)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_314" " env_41" -" rest_222" +" rest_219" " rest_21" -" rest_223)" +" rest_220)" " env_41)))" " env_40)))))" -" for-loop_315)" +" for-loop_314)" " env_38" -" lst_380" -" lst_381" -" lst_382))))))" +" lst_378" +" lst_379" +" lst_380))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_314" +"(for-loop_313" " env_37" -" rest_219" -" rest_220" -" rest_221)" +" rest_216" +" rest_217" +" rest_218)" " env_37)))" " env_36)))))" -" for-loop_314)" +" for-loop_313)" " rec-val-env_0" -" lst_374" -" lst_375" -" lst_376)))))" +" lst_372" +" lst_373" +" lst_374)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_83)))" "(let-values(((orig-rrs_0)" @@ -67006,7 +67016,7 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_83))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_149)" +"(core-id 'letrec-values phase_151)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" @@ -67026,31 +67036,31 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_83)" "(reverse$1" -"(let-values(((lst_384)" +"(let-values(((lst_382)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_384)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_359" -" lst_385)" +"(check-list lst_382)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_358" +" lst_383)" "(begin" " 'for-loop" "(if(pair?" -" lst_385)" +" lst_383)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_385))" -"((rest_224)" +" lst_383))" +"((rest_221)" "(unsafe-cdr" -" lst_385)))" +" lst_383)))" +"(let-values(((fold-var_359)" "(let-values(((fold-var_360)" +" fold-var_358))" "(let-values(((fold-var_361)" -" fold-var_359))" -"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" @@ -67065,22 +67075,22 @@ static const char *startup_source = "(check-list" " lst_67)))" "((letrec-values(((for-loop_90)" -"(lambda(fold-var_363" -" lst_386)" +"(lambda(fold-var_362" +" lst_384)" "(begin" " 'for-loop" "(if(pair?" -" lst_386)" +" lst_384)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_386))" -"((rest_225)" +" lst_384))" +"((rest_222)" "(unsafe-cdr" -" lst_386)))" +" lst_384)))" +"(let-values(((fold-var_363)" "(let-values(((fold-var_364)" +" fold-var_362))" "(let-values(((fold-var_365)" -" fold-var_363))" -"(let-values(((fold-var_366)" "(let-values()" "(cons" "(let-values()" @@ -67090,32 +67100,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_365))))" +" fold-var_364))))" "(values" -" fold-var_366)))))" +" fold-var_365)))))" "(if(not" " #f)" "(for-loop_90" -" fold-var_364" -" rest_225)" -" fold-var_364)))" -" fold-var_363)))))" +" fold-var_363" +" rest_222)" +" fold-var_363)))" +" fold-var_362)))))" " for-loop_90)" " null" " lst_67)))))" -" fold-var_361))))" +" fold-var_360))))" "(values" -" fold-var_362)))))" +" fold-var_361)))))" "(if(not" " #f)" -"(for-loop_316" -" fold-var_360" -" rest_224)" -" fold-var_360)))" -" fold-var_359)))))" -" for-loop_316)" +"(for-loop_315" +" fold-var_359" +" rest_221)" +" fold-var_359)))" +" fold-var_358)))))" +" for-loop_315)" " null" -" lst_384))))" +" lst_382))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -67158,17 +67168,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_264)" +"(let-values(((v_266)" " rec-ctx_0))" "(let-values(((the-struct_98)" -" v_264))" +" v_266))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" "(root-expand-context/outer-inner" -" v_264)))" +" v_266)))" "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" @@ -67226,13 +67236,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_387)" +"(let-values(((lst_385)" " val-name-idss_0)" -"((lst_388)" +"((lst_386)" " val-keyss_2)" -"((lst_389)" +"((lst_387)" " val-rhss_3)" -"((lst_390)" +"((lst_388)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67240,6 +67250,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_385)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_386)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_387)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -67247,65 +67269,53 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_388)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_389)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_390)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_367" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_366" +" lst_389" +" lst_390" " lst_391" -" lst_392" -" lst_393" -" lst_394)" +" lst_392)" "(begin" " 'for-loop" "(if(if(pair?" +" lst_389)" +"(if(pair?" +" lst_390)" +"(if(pair?" " lst_391)" -"(if(pair?" -" lst_392)" -"(if(pair?" -" lst_393)" "(pair?" -" lst_394)" +" lst_392)" " #f)" " #f)" " #f)" "(let-values(((ids_44)" "(unsafe-car" -" lst_391))" -"((rest_226)" +" lst_389))" +"((rest_223)" "(unsafe-cdr" -" lst_391))" +" lst_389))" "((keys_12)" "(unsafe-car" -" lst_392))" -"((rest_227)" +" lst_390))" +"((rest_224)" "(unsafe-cdr" -" lst_392))" +" lst_390))" "((rhs_22)" "(unsafe-car" -" lst_393))" -"((rest_228)" +" lst_391))" +"((rest_225)" "(unsafe-cdr" -" lst_393))" +" lst_391))" "((clause_4)" "(unsafe-car" -" lst_394))" -"((rest_229)" +" lst_392))" +"((rest_226)" "(unsafe-cdr" -" lst_394)))" +" lst_392)))" +"(let-values(((fold-var_367)" "(let-values(((fold-var_368)" +" fold-var_366))" "(let-values(((fold-var_369)" -" fold-var_367))" -"(let-values(((fold-var_370)" "(let-values()" "(cons" "(let-values()" @@ -67354,25 +67364,25 @@ static const char *startup_source = " exp-rhs_4)" " clause_4" " clause_4)))))" -" fold-var_369))))" +" fold-var_368))))" "(values" -" fold-var_370)))))" +" fold-var_369)))))" "(if(not" " #f)" -"(for-loop_317" -" fold-var_368" -" rest_226" -" rest_227" -" rest_228" -" rest_229)" -" fold-var_368)))" -" fold-var_367)))))" -" for-loop_317)" +"(for-loop_316" +" fold-var_367" +" rest_223" +" rest_224" +" rest_225" +" rest_226)" +" fold-var_367)))" +" fold-var_366)))))" +" for-loop_316)" " null" +" lst_385" +" lst_386" " lst_387" -" lst_388" -" lst_389" -" lst_390))))))" +" lst_388))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -67453,42 +67463,42 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_395) val-idss_4)((lst_396) 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_395)))" +"(let-values()(check-list lst_393)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_396)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_371 lst_397 lst_398)" +"(let-values()(check-list lst_394)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_370 lst_395 lst_396)" "(begin" " 'for-loop" -"(if(if(pair? lst_397)(pair? lst_398) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_397))" -"((rest_230)(unsafe-cdr lst_397))" -"((val-rhs_11)(unsafe-car lst_398))" -"((rest_231)(unsafe-cdr lst_398)))" -"(let-values(((fold-var_372)" -"(let-values(((fold-var_373) fold-var_371))" -"(let-values(((fold-var_374)" +"(if(if(pair? lst_395)(pair? lst_396) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_395))" +"((rest_227)(unsafe-cdr lst_395))" +"((val-rhs_11)(unsafe-car lst_396))" +"((rest_228)(unsafe-cdr lst_396)))" +"(let-values(((fold-var_371)" +"(let-values(((fold-var_372) fold-var_370))" +"(let-values(((fold-var_373)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_373))))" -"(values fold-var_374)))))" +" fold-var_372))))" +"(values fold-var_373)))))" "(if(not #f)" -"(for-loop_318 fold-var_372 rest_230 rest_231)" -" fold-var_372)))" -" fold-var_371)))))" -" for-loop_318)" +"(for-loop_317 fold-var_371 rest_227 rest_228)" +" fold-var_371)))" +" fold-var_370)))))" +" for-loop_317)" " null" -" lst_395" -" lst_396))))" +" lst_393" +" lst_394))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_99" @@ -67497,26 +67507,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_399) trans-idss_3)((lst_400) 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_399)))" +"(let-values()(check-list lst_397)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_319)" -"(lambda(fold-var_375 lst_401 lst_402)" +"(let-values()(check-list lst_398)))" +"((letrec-values(((for-loop_318)" +"(lambda(fold-var_374 lst_399 lst_400)" "(begin" " 'for-loop" -"(if(if(pair? lst_401)(pair? lst_402) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_401))" -"((rest_232)(unsafe-cdr lst_401))" -"((trans-rhs_5)(unsafe-car lst_402))" -"((rest_233)(unsafe-cdr lst_402)))" -"(let-values(((fold-var_376)" -"(let-values(((fold-var_377) fold-var_375))" -"(let-values(((fold-var_378)" +"(if(if(pair? lst_399)(pair? lst_400) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_399))" +"((rest_229)(unsafe-cdr lst_399))" +"((trans-rhs_5)(unsafe-car lst_400))" +"((rest_230)(unsafe-cdr lst_400)))" +"(let-values(((fold-var_375)" +"(let-values(((fold-var_376) fold-var_374))" +"(let-values(((fold-var_377)" "(let-values()" "(cons" "(let-values()" @@ -67525,14 +67535,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_377))))" -"(values fold-var_378)))))" -"(if(not #f)(for-loop_319 fold-var_376 rest_232 rest_233) fold-var_376)))" -" fold-var_375)))))" -" for-loop_319)" +" fold-var_376))))" +"(values fold-var_377)))))" +"(if(not #f)(for-loop_318 fold-var_375 rest_229 rest_230) fold-var_375)))" +" fold-var_374)))))" +" for-loop_318)" " null" -" lst_399" -" lst_400))))" +" lst_397" +" lst_398))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -67647,10 +67657,10 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_150)(expand-context-phase ctx_85)))" +"(let-values(((phase_152)(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_572)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_572)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" +"(let-values(((s240_0) s_572)((temp241_1)(list(core-id 'quote phase_152) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" @@ -67686,10 +67696,10 @@ static const char *startup_source = "(let-values(((es_3) e243_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_151)(expand-context-phase ctx_86)))" +"(let-values(((phase_153)(expand-context-phase ctx_86)))" "(if(expand-context-to-parsed? ctx_86)" "(parsed-quote14.1(keep-properties-only~ s_577) null)" -"(let-values(((s246_0) s_577)((temp247_0)(list(core-id 'quote phase_151) null)))" +"(let-values(((s246_0) s_577)((temp247_0)(list(core-id 'quote phase_153) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" @@ -67735,23 +67745,23 @@ static const char *startup_source = "(expand9.1 #f #f #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_403) rest-es_0))" +"(let-values(((lst_401) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_320)" -"(lambda(fold-var_379 lst_404)" +"(let-values()(check-list lst_401)))" +"((letrec-values(((for-loop_319)" +"(lambda(fold-var_378 lst_402)" "(begin" " 'for-loop" -"(if(pair? lst_404)" -"(let-values(((e_92)(unsafe-car lst_404))" -"((rest_234)" -"(unsafe-cdr lst_404)))" +"(if(pair? lst_402)" +"(let-values(((e_92)(unsafe-car lst_402))" +"((rest_231)" +"(unsafe-cdr lst_402)))" +"(let-values(((fold-var_379)" "(let-values(((fold-var_380)" +" fold-var_378))" "(let-values(((fold-var_381)" -" fold-var_379))" -"(let-values(((fold-var_382)" "(let-values()" "(cons" "(let-values()" @@ -67779,16 +67789,16 @@ static const char *startup_source = " #f" " e256_0" " expr-ctx257_0))))" -" fold-var_381))))" +" fold-var_380))))" "(values" -" fold-var_382)))))" +" fold-var_381)))))" "(if(not #f)" -"(for-loop_320 fold-var_380 rest_234)" -" fold-var_380)))" -" fold-var_379)))))" -" for-loop_320)" +"(for-loop_319 fold-var_379 rest_231)" +" fold-var_379)))" +" fold-var_378)))))" +" for-loop_319)" " null" -" lst_403))))))" +" lst_401))))))" "(if(expand-context-to-parsed? ctx_86)" "(let-values()" "(parsed-app7.1" @@ -68573,7 +68583,7 @@ static const char *startup_source = "(make-begin20.1 temp372_0 temp371_0 temp369_0 parsed-begin0370_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_121 ctx_93)" +"(lambda(id_122 ctx_93)" "(begin" "(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" "(let-values()" @@ -68581,7 +68591,7 @@ static const char *startup_source = "(hash-update!" "(expand-context-need-eventually-defined ctx_93)" "(expand-context-phase ctx_93)" -"(lambda(l_87)(cons id_121 l_87))" +"(lambda(l_87)(cons id_122 l_87))" " null)" " #t))" "(let-values() #f)))))" @@ -68605,7 +68615,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((disarmed-s_17)(syntax-disarm$1 s_697)))" -"(let-values(((id_122)" +"(let-values(((id_123)" "(if implicit-omitted?_0" "(let-values() s_697)" "(let-values()" @@ -68652,7 +68662,7 @@ static const char *startup_source = "(values #t #%top379_1 id380_1))))))" " id380_0)))))" "(let-values(((b_93)" -"(let-values(((id383_0) id_122)" +"(let-values(((id383_0) id_123)" "((temp384_0)(expand-context-phase ctx_94))" "((temp385_0) 'ambiguous))" "(resolve+shift30.1" @@ -68669,7 +68679,7 @@ static const char *startup_source = " id383_0" " temp384_0))))" "(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_94))" +"(let-values()(raise-ambiguous-error id_123 ctx_94))" "(if(if b_93" "(if(module-binding? b_93)" "(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_94))" @@ -68677,29 +68687,29 @@ static const char *startup_source = " #f)" "(let-values()" "(if(expand-context-to-parsed? ctx_94)" -"(parsed-id2.1 id_122 b_93 #f)" +"(parsed-id2.1 id_123 b_93 #f)" "(if(top-level-module-path-index?(module-binding-module b_93))" "(let-values() s_697)" -"(let-values() id_122))))" -"(if(register-eventual-variable!? id_122 ctx_94)" +"(let-values() id_123))))" +"(if(register-eventual-variable!? id_123 ctx_94)" "(let-values()" "(if(expand-context-to-parsed? ctx_94)" -"(parsed-id2.1 id_122 b_93 #f)" -" id_122))" +"(parsed-id2.1 id_123 b_93 #f)" +" id_123))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_94))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_122" +" id_123" " #f" " null" -"(syntax-debug-info-string id_122 ctx_94)))" +"(syntax-debug-info-string id_123 ctx_94)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_122" +" id_123" "(root-expand-context-top-level-bind-scope ctx_94))))" "(let-values(((tl-b_1)" "(let-values(((tl-id386_0) tl-id_1)" @@ -68721,7 +68731,7 @@ static const char *startup_source = "(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_122)" +"(let-values() id_123)" "(let-values()" "(let-values(((ok?_56 #%top388_0 id389_0)" "(let-values(((s_702) disarmed-s_17))" @@ -68769,11 +68779,11 @@ static const char *startup_source = " orig-s_58)))))" "(values #t #%top388_1 id389_1))))))" "(let-values(((s392_0) s_697)" -"((temp393_0)(cons #%top388_0 id_122)))" +"((temp393_0)(cons #%top388_0 id_123)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_94)" -"(parsed-top-id4.1 id_122 b_93 #f)" +"(parsed-top-id4.1 id_123 b_93 #f)" " s_697)))))))))))))))))))))))" "(case-lambda" "((s_706 ctx_95)(core377_0 s_706 ctx_95 #f #f))" @@ -68859,11 +68869,11 @@ static const char *startup_source = "(values #t set!394_1 id395_1 rhs396_1))))))" "(let-values(((orig-id_1) id395_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_123 from-rename?_0)" +"(lambda(id_124 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((id403_0) id_123)" +"(let-values(((id403_0) id_124)" "((temp404_0)(expand-context-phase ctx_97))" "((temp405_0) 'ambiguous)" "((temp406_0) #t))" @@ -68883,7 +68893,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_123 ctx_97))" +"(let-values()(raise-ambiguous-error id_124 ctx_97))" "(void))" "(values))))" "(let-values(((t_59 primitive?_11 insp_24 protected?_12)" @@ -68897,14 +68907,14 @@ static const char *startup_source = "(let-values(((obs_121)(expand-context-observer ctx_97)))" "(if obs_121" "(let-values()" -"(let-values()(call-expand-observe obs_121 'resolve id_123)))" +"(let-values()(call-expand-observe obs_121 'resolve id_124)))" "(void)))" "(if(let-values(((or-part_384)(variable? t_59)))" "(if or-part_384" " or-part_384" "(if(not binding_30)" "(let-values(((or-part_385)" -"(register-eventual-variable!? id_123 ctx_97)))" +"(register-eventual-variable!? id_124 ctx_97)))" "(if or-part_385" " or-part_385" "(expand-context-allow-unbound? ctx_97)))" @@ -68923,7 +68933,7 @@ static const char *startup_source = " #f" " \"cannot mutate module-required identifier\"" " s_708" -" id_123))" +" id_124))" "(void))" "(values))))" "(let-values((()" @@ -68967,13 +68977,13 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_97)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_123 binding_30 #f)" +"(parsed-id2.1 id_124 binding_30 #f)" " exp-rhs_5)" "(let-values(((rebuild-s414_0) rebuild-s_12)" "((temp415_0)" "(list" " set!394_0" -"(let-values(((id416_0) id_123)" +"(let-values(((id416_0) id_124)" "((t417_0) t_59)" "((temp418_0)" "(free-id-set-empty-or-just-module*?" @@ -68991,9 +69001,9 @@ static const char *startup_source = " #f" " \"unbound identifier\"" " s_708" -" id_123" +" id_124" " null" -"(syntax-debug-info-string id_123 ctx_97)))" +"(syntax-debug-info-string id_124 ctx_97)))" "(if(1/set!-transformer? t_59)" "(let-values()" "(if(not-in-this-expand-context? t_59 ctx_97)" @@ -69005,7 +69015,7 @@ static const char *startup_source = " disarmed-s_18" " set!394_0" " rhs396_0" -" id_123" +" id_124" " from-rename?_0" " ctx_97)" " t_59" @@ -69055,7 +69065,7 @@ static const char *startup_source = " disarmed-s_18" " set!394_0" " rhs396_0" -" id_123" +" id_124" " from-rename?_0" " ctx_97" " t_59)" @@ -69067,15 +69077,15 @@ static const char *startup_source = "(rename-loop_0" "(syntax-track-origin$1" "(rename-transformer-target-in-context t_59 ctx_97)" -" id_123" -" id_123)" +" id_124" +" id_124)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" " s_708" -" id_123))))))))))))))" +" id_124))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -69088,7 +69098,7 @@ static const char *startup_source = "(let-values(((s_720) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_124) id28_0))" +"(let-values(((id_125) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" "(let-values(((ctx_98) ctx31_0))" @@ -69100,7 +69110,7 @@ static const char *startup_source = "(let-values(((new-id_1)" "(if t_60" "(rename-transformer-target-in-context t_60 ctx_98)" -" id_124)))" +" id_125)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" @@ -69110,10 +69120,10 @@ static const char *startup_source = " s_720)))" "(let-values() s_720)))))))))))))))" "(case-lambda" -"((s_721 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_99)" -"(begin(substitute-set!-rename32_0 s_721 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_99 #f #f)))" -"((s_722 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_100 t23_1)" -"(substitute-set!-rename32_0 s_722 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))" +"((s_721 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_99)" +"(begin(substitute-set!-rename32_0 s_721 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_99 #f #f)))" +"((s_722 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_100 t23_1)" +"(substitute-set!-rename32_0 s_722 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" @@ -69397,7 +69407,7 @@ static const char *startup_source = " (void (add-core-form!* 'unquote-splicing (lambda (s_775 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_775))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_127 at-phase_12 ns_123)" +"(lambda(b_42 id_128 at-phase_12 ns_123)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -69416,7 +69426,7 @@ static const char *startup_source = "((null3_0) null)" "((ns4_1) ns_123)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_127))" +"((id6_0) id_128))" "(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_1 at-phase5_0 id6_0))))" "(not(variable? val_14))))))))" "(define-values(layers) '(raw phaseless id))" @@ -69441,16 +69451,16 @@ static const char *startup_source = "((letrec-values(((for-loop_97)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_405)" +" lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_405)" +"(if(pair? lst_403)" "(let-values(((spec_0)" "(unsafe-car" -" lst_405))" -"((rest_235)" +" lst_403))" +"((rest_232)" "(unsafe-cdr" -" lst_405)))" +" lst_403)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -69596,24 +69606,24 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_456)" +"(let-values(((s_455)" "(if(syntax?$1" " s_167)" "(syntax-e$1" " s_167)" " s_167)))" "(if(pair?" -" s_456)" +" s_455)" "(let-values(((for-meta6_0)" -"(let-values(((s_485)" +"(let-values(((s_484)" "(car" -" s_456)))" -" s_485))" +" s_455)))" +" s_484))" "((phase-level7_0" " spec8_0)" "(let-values(((s_776)" "(cdr" -" s_456)))" +" s_455)))" "(let-values(((s_777)" "(if(syntax?$1" " s_776)" @@ -69628,15 +69638,15 @@ static const char *startup_source = " s_777)))" " s_778))" "((spec10_0)" -"(let-values(((s_493)" +"(let-values(((s_492)" "(cdr" " s_777)))" "(let-values(((s_779)" "(if(syntax?$1" -" s_493)" +" s_492)" "(syntax-e$1" -" s_493)" -" s_493)))" +" s_492)" +" s_492)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" " s_779)))" @@ -69737,20 +69747,20 @@ static const char *startup_source = "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" -"(let-values(((s_501)" +"(let-values(((s_500)" "(car" " s_24)))" -" s_501))" +" s_500))" "((spec16_0)" -"(let-values(((s_458)" +"(let-values(((s_457)" "(cdr" " s_24)))" "(let-values(((s_307)" "(if(syntax?$1" -" s_458)" +" s_457)" "(syntax-e$1" -" s_458)" -" s_458)))" +" s_457)" +" s_457)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_307)))" @@ -69811,29 +69821,29 @@ static const char *startup_source = "(let-values(((ok?_64" " for-label19_0" " spec20_0)" -"(let-values(((s_503)" +"(let-values(((s_502)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_503))" +" s_502))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_484)" +"(let-values(((s_483)" "(if(syntax?$1" -" s_503)" +" s_502)" "(syntax-e$1" -" s_503)" -" s_503)))" +" s_502)" +" s_502)))" "(if(pair?" -" s_484)" +" s_483)" "(let-values(((for-label21_0)" "(let-values(((s_168)" "(car" -" s_484)))" +" s_483)))" " s_168))" "((spec22_0)" "(let-values(((s_27)" "(cdr" -" s_484)))" +" s_483)))" "(let-values(((s_28)" "(if(syntax?$1" " s_27)" @@ -69924,20 +69934,20 @@ static const char *startup_source = "(if(pair?" " s_780)" "(let-values(((protect27_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(car" " s_780)))" -" s_507))" +" s_506))" "((p-spec28_0)" -"(let-values(((s_508)" +"(let-values(((s_507)" "(cdr" " s_780)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_508)" +" s_507)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_507)" +" s_507)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" " s_52)))" @@ -70028,26 +70038,26 @@ static const char *startup_source = "(if(pair?" " s_34)" "(let-values(((id:from37_0)" -"(let-values(((s_461)" +"(let-values(((s_460)" "(car" " s_34)))" "(if(let-values(((or-part_393)" "(if(syntax?$1" -" s_461)" +" s_460)" "(symbol?" "(syntax-e$1" -" s_461))" +" s_460))" " #f)))" "(if or-part_393" " or-part_393" "(symbol?" -" s_461)))" -" s_461" +" s_460)))" +" s_460" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_461))))" +" s_460))))" "((id:to38_0)" "(let-values(((s_414)" "(cdr" @@ -70154,19 +70164,19 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_435)" +"(let-values(((s_523)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_435))" +" s_523))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" "(let-values(((s_67)" "(if(syntax?$1" -" s_435)" +" s_523)" "(syntax-e$1" -" s_435)" -" s_435)))" +" s_523)" +" s_523)))" "(if(pair?" " s_67)" "(let-values(((struct43_0)" @@ -70176,15 +70186,15 @@ static const char *startup_source = " s_324))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_462)" +"(let-values(((s_461)" "(cdr" " s_67)))" "(let-values(((s_203)" "(if(syntax?$1" -" s_462)" +" s_461)" "(syntax-e$1" -" s_462)" -" s_462)))" +" s_461)" +" s_461)))" "(if(pair?" " s_203)" "(let-values(((id:struct46_0)" @@ -70251,19 +70261,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_155)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_320)" "(lambda(id:field_1" -" lst_406)" +" lst_404)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" +" lst_404)" "(let-values(((s_788)" "(unsafe-car" -" lst_406))" -"((rest_236)" +" lst_404))" +"((rest_233)" "(unsafe-cdr" -" lst_406)))" +" lst_404)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -70295,12 +70305,12 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_321" +"(for-loop_320" " id:field_2" -" rest_236)" +" rest_233)" " id:field_2)))" " id:field_1)))))" -" for-loop_321)" +" for-loop_320)" " null" " lst_155)))))" "(reverse$1" @@ -70405,10 +70415,10 @@ static const char *startup_source = "(if(pair?" " s_789)" "(let-values(((mod-path54_0)" -"(let-values(((s_444)" +"(let-values(((s_436)" "(car" " s_789)))" -" s_444))" +" s_436))" "(()" "(let-values(((s_104)" "(cdr" @@ -70475,24 +70485,24 @@ static const char *startup_source = "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_518)" +"(let-values(((s_517)" "(if(syntax?$1" " s_110)" "(syntax-e$1" " s_110)" " s_110)))" "(if(pair?" -" s_518)" +" s_517)" "(let-values(((all-from-except58_0)" "(let-values(((s_528)" "(car" -" s_518)))" +" s_517)))" " s_528))" "((mod-path59_0" " id60_0)" "(let-values(((s_790)" "(cdr" -" s_518)))" +" s_517)))" "(let-values(((s_330)" "(if(syntax?$1" " s_790)" @@ -70527,8 +70537,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_70))" "(let-values()" -"(let-values(((id_128)" -"(let-values(((lst_407)" +"(let-values(((id_129)" +"(let-values(((lst_405)" " flat-s_49))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70536,24 +70546,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_407)))" -"((letrec-values(((for-loop_322)" -"(lambda(id_129" -" lst_408)" +" lst_405)))" +"((letrec-values(((for-loop_321)" +"(lambda(id_130" +" lst_406)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" +" lst_406)" "(let-values(((s_116)" "(unsafe-car" -" lst_408))" -"((rest_237)" +" lst_406))" +"((rest_234)" "(unsafe-cdr" -" lst_408)))" -"(let-values(((id_130)" +" lst_406)))" "(let-values(((id_131)" -" id_129))" "(let-values(((id_132)" +" id_130))" +"(let-values(((id_133)" "(let-values()" "(let-values(((id63_0)" "(let-values()" @@ -70576,21 +70586,21 @@ static const char *startup_source = " s_116)))))" "(cons" " id63_0" -" id_131)))))" -"(values" " id_132)))))" +"(values" +" id_133)))))" "(if(not" " #f)" -"(for-loop_322" -" id_130" -" rest_237)" -" id_130)))" -" id_129)))))" -" for-loop_322)" +"(for-loop_321" +" id_131" +" rest_234)" +" id_131)))" +" id_130)))))" +" for-loop_321)" " null" -" lst_407)))))" +" lst_405)))))" "(reverse$1" -" id_128)))))))))" +" id_129)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -70645,23 +70655,23 @@ static const char *startup_source = "(let-values(((orig-s_71)" " s_791))" "(let-values(((all-defined64_1)" -"(let-values(((s_447)" +"(let-values(((s_446)" "(if(syntax?$1" " s_791)" "(syntax-e$1" " s_791)" " s_791)))" "(if(pair?" -" s_447)" +" s_446)" "(let-values(((all-defined65_0)" "(let-values(((s_122)" "(car" -" s_447)))" +" s_446)))" " s_122))" "(()" "(let-values(((s_123)" "(cdr" -" s_447)))" +" s_446)))" "(let-values(((s_124)" "(if(syntax?$1" " s_123)" @@ -70708,18 +70718,18 @@ static const char *startup_source = "(let-values(((ok?_71" " all-defined-except66_0" " id67_0)" -"(let-values(((s_469)" +"(let-values(((s_468)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_469))" +" s_468))" "(let-values(((all-defined-except66_1" " id67_1)" "(let-values(((s_792)" "(if(syntax?$1" -" s_469)" +" s_468)" "(syntax-e$1" -" s_469)" -" s_469)))" +" s_468)" +" s_468)))" "(if(pair?" " s_792)" "(let-values(((all-defined-except68_0)" @@ -70748,8 +70758,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72))" "(let-values()" -"(let-values(((id_133)" -"(let-values(((lst_409)" +"(let-values(((id_134)" +"(let-values(((lst_407)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70757,61 +70767,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_409)))" -"((letrec-values(((for-loop_323)" +" lst_407)))" +"((letrec-values(((for-loop_322)" "(lambda(id_33" -" lst_410)" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" -"(let-values(((s_449)" +" lst_408)" +"(let-values(((s_448)" "(unsafe-car" -" lst_410))" -"((rest_238)" +" lst_408))" +"((rest_235)" "(unsafe-cdr" -" lst_410)))" -"(let-values(((id_134)" +" lst_408)))" "(let-values(((id_135)" -" id_33))" "(let-values(((id_136)" +" id_33))" +"(let-values(((id_137)" "(let-values()" "(let-values(((id70_0)" "(let-values()" "(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_449)" +" s_448)" "(symbol?" "(syntax-e$1" -" s_449))" +" s_448))" " #f)))" "(if or-part_397" " or-part_397" "(symbol?" -" s_449)))" -" s_449" +" s_448)))" +" s_448" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_449)))))" +" s_448)))))" "(cons" " id70_0" -" id_135)))))" -"(values" " id_136)))))" +"(values" +" id_137)))))" "(if(not" " #f)" -"(for-loop_323" -" id_134" -" rest_238)" -" id_134)))" +"(for-loop_322" +" id_135" +" rest_235)" +" id_135)))" " id_33)))))" -" for-loop_323)" +" for-loop_322)" " null" -" lst_409)))))" +" lst_407)))))" "(reverse$1" -" id_133)))))))))" +" id_134)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -71002,15 +71012,15 @@ static const char *startup_source = "(let-values(((s_798)" "(car" " s_350)))" -"(if(let-values(((or-part_344)" +"(if(let-values(((or-part_343)" "(if(syntax?$1" " s_798)" "(symbol?" "(syntax-e$1" " s_798))" " #f)))" -"(if or-part_344" -" or-part_344" +"(if or-part_343" +" or-part_343" "(symbol?" " s_798)))" " s_798" @@ -71040,8 +71050,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74))" "(let-values()" -"(let-values(((id_137)" -"(let-values(((lst_411)" +"(let-values(((id_138)" +"(let-values(((lst_409)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71049,23 +71059,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_411)))" -"((letrec-values(((for-loop_324)" -"(lambda(id_138" -" lst_412)" +" lst_409)))" +"((letrec-values(((for-loop_323)" +"(lambda(id_139" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" +" lst_410)" "(let-values(((s_535)" "(unsafe-car" -" lst_412))" -"((rest_239)" +" lst_410))" +"((rest_236)" "(unsafe-cdr" -" lst_412)))" -"(let-values(((id_139)" +" lst_410)))" "(let-values(((id_140)" -" id_138))" +"(let-values(((id_141)" +" id_139))" "(let-values(((id_35)" "(let-values()" "(let-values(((id84_2)" @@ -71089,21 +71099,21 @@ static const char *startup_source = " s_535)))))" "(cons" " id84_2" -" id_140)))))" +" id_141)))))" "(values" " id_35)))))" "(if(not" " #f)" -"(for-loop_324" -" id_139" -" rest_239)" -" id_139)))" -" id_138)))))" -" for-loop_324)" +"(for-loop_323" +" id_140" +" rest_236)" +" id_140)))" +" id_139)))))" +" for-loop_323)" " null" -" lst_411)))))" +" lst_409)))))" "(reverse$1" -" id_137)))))))))" +" id_138)))))))))" "(values" " id:prefix82_0" " id83_0))" @@ -71338,10 +71348,10 @@ static const char *startup_source = "(let-values(((temp104_5)" " form96_0)" "((temp105_5)" -"(let-values(((v_265)" +"(let-values(((v_267)" " ctx_105))" "(let-values(((the-struct_99)" -" v_265))" +" v_267))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((def-ctx-scopes106_0)" @@ -71350,7 +71360,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_265)))" +" v_267)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((stops108_0)" @@ -71491,23 +71501,23 @@ static const char *startup_source = " s_549))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_490)" +"(let-values(((s_489)" "(if(syntax?$1" " s_549)" "(syntax-e$1" " s_549)" " s_549)))" "(if(pair?" -" s_490)" +" s_489)" "(let-values(((begin102_0)" "(let-values(((s_263)" "(car" -" s_490)))" +" s_489)))" " s_263))" "((spec103_0)" "(let-values(((s_134)" "(cdr" -" s_490)))" +" s_489)))" "(let-values(((s_807)" "(if(syntax?$1" " s_134)" @@ -71564,7 +71574,7 @@ static const char *startup_source = "(for-loop_97" " track-stxes_2" " exp-specs_2" -" rest_235)" +" rest_232)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -71640,7 +71650,40 @@ 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_413) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_411) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_411)))" +"((letrec-values(((for-loop_324)" +"(lambda(lst_412)" +"(begin" +" 'for-loop" +"(if(pair? lst_412)" +"(let-values(((fmt_3)(unsafe-car lst_412))((rest_237)(unsafe-cdr lst_412)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(let-values(((id_142)(mk_0 fmt_3)))" +"(parse-identifier!" +" id_142" +" orig-s_79" +"(syntax-e$1 id_142)" +" at-phase_15" +" ns_127" +" rp_3" +" protected?_17)))" +"(values)))))" +"(values)))))" +"(if(not #f)(for-loop_324 rest_237)(values))))" +"(values))))))" +" for-loop_324)" +" lst_411)))" +"(void)" +"(let-values(((lst_413) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -71650,40 +71693,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_414)" -"(let-values(((fmt_3)(unsafe-car lst_414))((rest_240)(unsafe-cdr lst_414)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(let-values(((id_141)(mk_0 fmt_3)))" -"(parse-identifier!" -" id_141" -" orig-s_79" -"(syntax-e$1 id_141)" -" at-phase_15" -" ns_127" -" rp_3" -" protected?_17)))" -"(values)))))" -"(values)))))" -"(if(not #f)(for-loop_325 rest_240)(values))))" -"(values))))))" -" for-loop_325)" -" lst_413)))" -"(void)" -"(let-values(((lst_415) fields_0))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_416)" -"(begin" -" 'for-loop" -"(if(pair? lst_416)" -"(let-values(((field_0)(unsafe-car lst_416))((rest_241)(unsafe-cdr lst_416)))" +"(let-values(((field_0)(unsafe-car lst_414))((rest_238)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71715,10 +71725,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_241)(values))))" +"(if(not #f)(for-loop_325 rest_238)(values))))" "(values))))))" -" for-loop_326)" -" lst_415)))" +" for-loop_325)" +" lst_413)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -71766,48 +71776,48 @@ 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_417) requireds_2))" +"(let-values(((lst_415) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_417)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_418)" +"(let-values()(check-list lst_415)))" +"((letrec-values(((for-loop_326)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_418)" -"(let-values(((i_192)(unsafe-car lst_418))" -"((rest_242)(unsafe-cdr lst_418)))" +"(if(pair? lst_416)" +"(let-values(((i_192)(unsafe-car lst_416))" +"((rest_239)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_142)" +"(let-values(((id_143)" "(required-id i_192)))" -"(let-values(((phase_152)" +"(let-values(((phase_154)" "(required-phase" " i_192)))" "(if(let-values(((or-part_400)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_152" +" phase_154" " at-phase_17)" "(free-identifier=?$1" -" id_142" +" id_143" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_142))" -" phase_152" -" phase_152)" +" id_143))" +" phase_154" +" phase_154)" " #f))" " #f)))" "(if or-part_400" " or-part_400" -"(let-values(((lst_419)" +"(let-values(((lst_417)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71815,30 +71825,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_419)))" -"((letrec-values(((for-loop_328)" +" lst_417)))" +"((letrec-values(((for-loop_327)" "(lambda(result_132" -" lst_420)" +" lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_420)" +" lst_418)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_420))" -"((rest_243)" +" lst_418))" +"((rest_240)" "(unsafe-cdr" -" lst_420)))" +" lst_418)))" "(let-values(((result_133)" "(let-values()" "(let-values(((result_134)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_142" +" id_143" " except-id_0" -" phase_152" -" phase_152)" +" phase_154" +" phase_154)" "(hash-set!" " found_0" " except-id_0" @@ -71853,26 +71863,26 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_328" +"(for-loop_327" " result_133" -" rest_243)" +" rest_240)" " result_133)))" " result_132)))))" -" for-loop_328)" +" for-loop_327)" " #f" -" lst_419)))))" +" lst_417)))))" "(void)" "(let-values()" "(let-values(((b_95)" "(resolve+shift/extra-inspector" -" id_142" -" phase_152" +" id_143" +" phase_154" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_142)" +" id_143)" "((phase131_0)" -" phase_152)" +" phase_154)" "((temp132_1)" " #t))" "(resolve+shift30.1" @@ -71893,15 +71903,15 @@ static const char *startup_source = "((temp122_3)" "(add-prefix_1" "(syntax-e$1" -" id_142)))" +" id_143)))" "((phase123_0)" -" phase_152)" +" phase_154)" "((b124_0)" " b_95)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_142)" +" id_143)" "((orig-s127_0)" " orig-s_81)" "((protected?128_0)" @@ -71921,27 +71931,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_327 rest_242)(values))))" +"(if(not #f)(for-loop_326 rest_239)(values))))" "(values))))))" -" for-loop_327)" -" lst_417)))" +" for-loop_326)" +" lst_415)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_421) except-ids_1))" +"(let-values(((lst_419) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_422)" +"(let-values()(check-list lst_419)))" +"((letrec-values(((for-loop_328)" +"(lambda(lst_420)" "(begin" " 'for-loop" -"(if(pair? lst_422)" -"(let-values(((except-id_1)(unsafe-car lst_422))" -"((rest_244)(unsafe-cdr lst_422)))" +"(if(pair? lst_420)" +"(let-values(((except-id_1)(unsafe-car lst_420))" +"((rest_241)(unsafe-cdr lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71982,17 +71992,17 @@ static const char *startup_source = "(let-values(((result_137)" "(let-values()" "(let-values()" -"(let-values(((id_143)" +"(let-values(((id_144)" "(required-id" " i_72)))" -"(let-values(((phase_153)" +"(let-values(((phase_155)" "(required-phase" " i_72)))" "(free-identifier=?$1" -" id_143" +" id_144" " except-id_1" -" phase_153" -" phase_153)))))))" +" phase_155" +" phase_155)))))))" "(values" " result_137)))))" "(if(if(not" @@ -72023,10 +72033,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_244)(values))))" +"(if(not #f)(for-loop_328 rest_241)(values))))" "(values))))))" -" for-loop_329)" -" lst_421)))" +" for-loop_328)" +" lst_419)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -72037,12 +72047,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_423) bodys_14))" +"(let-values(((lst_421) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_330)" +"(let-values()(check-list lst_421)))" +"((letrec-values(((for-loop_329)" "(lambda(lst_84)" "(begin" " 'for-loop" @@ -72090,10 +72100,10 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_40)(values))))" +"(if(not #f)(for-loop_329 rest_40)(values))))" "(values))))))" -" for-loop_330)" -" lst_423)))" +" for-loop_329)" +" lst_421)))" "(void)))))" "((check-expr_0)" "(lambda(e_93 num-results_0 enclosing_15)" @@ -72125,7 +72135,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_85)" "(let-values(((rand_0)(unsafe-car lst_85))" -"((rest_245)(unsafe-cdr lst_85)))" +"((rest_242)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72138,7 +72148,7 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_82 rest_245)(values))))" +"(if(not #f)(for-loop_82 rest_242)(values))))" "(values))))))" " for-loop_82)" " lst_78)))" @@ -72182,12 +72192,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_271)))" "((letrec-values(((for-loop_241)" -"(lambda(lst_424)" +"(lambda(lst_422)" "(begin" " 'for-loop" -"(if(pair? lst_424)" -"(let-values(((clause_5)(unsafe-car lst_424))" -"((rest_246)(unsafe-cdr lst_424)))" +"(if(pair? lst_422)" +"(let-values(((clause_5)(unsafe-car lst_422))" +"((rest_243)(unsafe-cdr lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72198,7 +72208,7 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_246)(values))))" +"(if(not #f)(for-loop_241 rest_243)(values))))" "(values))))))" " for-loop_241)" " lst_271)))" @@ -72218,7 +72228,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_266)" "(let-values(((e_94)(unsafe-car lst_266))" -"((rest_196)(unsafe-cdr lst_266)))" +"((rest_193)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72229,7 +72239,7 @@ static const char *startup_source = " e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_107 rest_196)(values))))" +"(if(not #f)(for-loop_107 rest_193)(values))))" "(values))))))" " for-loop_107)" " lst_221)))" @@ -72242,13 +72252,13 @@ static const char *startup_source = "(check-no-disallowed-expr_0(parsed-if-els e_40))))" "(if(parsed-set!? e_40)" "(let-values()" -"(let-values(((id_144)(parsed-set!-id e_40)))" -"(let-values(((normal-b_1)(parsed-id-binding id_144)))" +"(let-values(((id_145)(parsed-set!-id e_40)))" +"(let-values(((normal-b_1)(parsed-id-binding id_145)))" "(begin" "(if(let-values(((or-part_86)(not normal-b_1)))" "(if or-part_86" " or-part_86" -"(let-values(((or-part_290)(parsed-top-id? id_144)))" +"(let-values(((or-part_290)(parsed-top-id? id_145)))" "(if or-part_290" " or-part_290" "(if(not(symbol? normal-b_1))" @@ -72317,7 +72327,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_331)" +"((letrec-values(((for-loop_330)" "(lambda(lst_273)" "(begin" " 'for-loop" @@ -72334,9 +72344,9 @@ static const char *startup_source = " e_84))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_331 rest_146)(values))))" +"(if(not #f)(for-loop_330 rest_146)(values))))" "(values))))))" -" for-loop_331)" +" for-loop_330)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -72368,11 +72378,11 @@ static const char *startup_source = "(lambda(e_95)(begin(if(parsed-quote? e_95)(string?(parsed-quote-datum e_95)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_145)" +"(lambda(id_146)" "(begin" -"(if(parsed-id? id_145)" +"(if(parsed-id? id_146)" "(let-values()" -"(let-values(((b_96)(parsed-id-binding id_145)))" +"(let-values(((b_96)(parsed-id-binding id_146)))" "(if(module-binding? b_96)" "(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_96)))" "(module-binding-sym b_96)" @@ -72425,11 +72435,11 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_89)))" "((expand-context-module-begin-k ctx_109)" " s_89" -"(let-values(((v_266) ctx_109))" -"(let-values(((the-struct_101) v_266))" +"(let-values(((v_268) ctx_109))" +"(let-values(((the-struct_101) v_268))" "(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_266)))" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_268)))" "(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -72506,7 +72516,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_483) s15_0))" +"(let-values(((s_482) s15_0))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0)(if always-produce-compiled?8_0 always-produce-compiled?1_0 #f)))" @@ -72533,7 +72543,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_130 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_483)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_482)))" "(let-values(((ok?_77 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_52) disarmed-s_24))" "(let-values(((orig-s_82) s_52))" @@ -72581,15 +72591,15 @@ static const char *startup_source = " s_811))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_510)" +"(let-values(((s_509)" "(cdr" " s_319)))" "(let-values(((s_812)" "(if(syntax?$1" -" s_510)" +" s_509)" "(syntax-e$1" -" s_510)" -" s_510)))" +" s_509)" +" s_509)))" "(if(pair?" " s_812)" "(let-values(((initial-require239_0)" @@ -72648,7 +72658,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_483)" +"((s254_0) s_482)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed120.1" @@ -72672,10 +72682,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_483" +" s_482" " initial-require230_0)))" "(values))))" -"(let-values(((phase_154) 0))" +"(let-values(((phase_156) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -72809,7 +72819,7 @@ static const char *startup_source = "((namespace270_0)" " m-ns_18)" "((phase271_0)" -" phase_154)" +" phase_156)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" @@ -72961,20 +72971,20 @@ static const char *startup_source = "(if(pair?" " s_157)" "(let-values(((_284_0)" -"(let-values(((s_466)" +"(let-values(((s_465)" "(car" " s_157)))" -" s_466))" +" s_465))" "((body285_0)" -"(let-values(((s_467)" +"(let-values(((s_466)" "(cdr" " s_157)))" "(let-values(((s_328)" "(if(syntax?$1" -" s_467)" +" s_466)" "(syntax-e$1" -" s_467)" -" s_467)))" +" s_466)" +" s_466)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_328)))" @@ -73151,16 +73161,16 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_112)" -"(let-values(((v_267)" +"(let-values(((v_269)" " mb-init-ctx_0))" "(let-values(((the-struct_105)" -" v_267))" +" v_269))" "(if(expand-context/outer?" " the-struct_105)" "(let-values(((inner306_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_267)))" +" v_269)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((module-begin-k307_0)" @@ -73331,23 +73341,23 @@ static const char *startup_source = " s_815))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_468)" +"(let-values(((s_467)" "(if(syntax?$1" " s_815)" "(syntax-e$1" " s_815)" " s_815)))" "(if(pair?" -" s_468)" +" s_467)" "(let-values(((#%module-begin303_0)" "(let-values(((s_221)" "(car" -" s_468)))" +" s_467)))" " s_221))" "((body304_0)" "(let-values(((s_222)" "(cdr" -" s_468)))" +" s_467)))" "(let-values(((s_223)" "(if(syntax?$1" " s_222)" @@ -73404,7 +73414,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_16" -" phase_155)" +" phase_157)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -73433,16 +73443,16 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_108)" "(let-values(((phase330_0)" -" phase_155)" +" phase_157)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_18" -" phase_155))" +" phase_157))" "((stops332_0)" "(free-id-set" -" phase_155" +" phase_157" "(module-expand-stop-ids" -" phase_155)))" +" phase_157)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -73462,11 +73472,11 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_155" +" phase_157" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_155" +" phase_157" "(let-values(((m-ns340_0)" " m-ns_18)" "((self341_0)" @@ -73482,7 +73492,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_155)" +" phase_157)" "((module-ends345_0)" " module-ends_0)" "((temp346_1)" @@ -73574,7 +73584,7 @@ static const char *startup_source = "(let-values(((bodys347_0)" " bodys_16)" "((phase348_0)" -" phase_155)" +" phase_157)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -73634,12 +73644,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_268)" +"(let-values(((v_270)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_109)" -" v_268))" +" v_270))" "(if(expand-context/outer?" " the-struct_109)" "(let-values(((def-ctx-scopes363_0)" @@ -73649,14 +73659,14 @@ static const char *startup_source = "((inner365_0)" "(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_268)))" +" v_270)))" "(if(expand-context/inner?" " the-struct_110)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_155)" +" phase_157)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -73755,7 +73765,7 @@ static const char *startup_source = "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_155)" +" phase_157)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -73779,7 +73789,7 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_15" -" phase_154)))" +" phase_156)))" "(let-values((()" "(begin" "(check-defined-by-now" @@ -73811,7 +73821,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_18)" "((phase375_0)" -" phase_154)" +" phase_156)" "((self376_0)" " self_14)" "((ctx377_0)" @@ -73873,10 +73883,10 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_269)" +"(let-values(((v_271)" " ctx_112))" "(let-values(((the-struct_24)" -" v_269))" +" v_271))" "(if(expand-context/outer?" " the-struct_24)" "(let-values(((frame-id380_0)" @@ -73886,7 +73896,7 @@ static const char *startup_source = "((inner382_0)" "(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_269)))" +" v_271)))" "(if(expand-context/inner?" " the-struct_111)" "(let-values(((namespace383_0)" @@ -74029,7 +74039,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_154)" +" phase_156)" "((self398_0)" " self_14)" "((requires+provides399_0)" @@ -74095,10 +74105,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_270)" +"(let-values(((v_272)" " ctx_111))" "(let-values(((the-struct_112)" -" v_270))" +" v_272))" "(if(expand-context/outer?" " the-struct_112)" "(let-values(((context409_0)" @@ -74106,7 +74116,7 @@ static const char *startup_source = "((inner410_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_270)))" +" v_272)))" "(if(expand-context/inner?" " the-struct_113)" "(let-values(((module-begin-k411_0)" @@ -74223,9 +74233,9 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_154)" +" phase_156)" "((s420_0)" -" s_483))" +" s_482))" "(ensure-module-begin36.1" " mb-ctx417_0" " mb-def-ctx-scopes418_0" @@ -74299,7 +74309,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_14)" -"(let-values(((lst_425)" +"(let-values(((lst_423)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -74308,19 +74318,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_425)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_426)" +" lst_423)))" +"((letrec-values(((for-loop_331)" +"(lambda(lst_424)" "(begin" " 'for-loop" "(if(pair?" -" lst_426)" +" lst_424)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_426))" -"((rest_247)" +" lst_424))" +"((rest_244)" "(unsafe-cdr" -" lst_426)))" +" lst_424)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74333,12 +74343,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_332" -" rest_247)" +"(for-loop_331" +" rest_244)" "(values))))" "(values))))))" -" for-loop_332)" -" lst_425)))" +" for-loop_331)" +" lst_423)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -74420,20 +74430,20 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_114) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_156) phase26_3))" +"(let-values(((phase_158) phase26_3))" "(let-values(((s_138) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_271) ctx_114))" -"(let-values(((the-struct_114) v_271))" +"(let-values(((v_273) ctx_114))" +"(let-values(((the-struct_114) v_273))" "(if(expand-context/outer? the-struct_114)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" -"((inner431_0)(root-expand-context/outer-inner v_271)))" +"((inner431_0)(root-expand-context/outer-inner v_273)))" "(expand-context/outer1.1" " inner431_0" "(root-expand-context/outer-post-expansion-scope the-struct_114)" @@ -74466,7 +74476,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_156))" +"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_158))" "(let-values()(car bodys_17))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -74489,13 +74499,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_156))" +" phase_158))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" "((s435_0) s_138)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_156)" +"((phase437_0) phase_158)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_0)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -74512,7 +74522,7 @@ static const char *startup_source = "(let-values(((bodys441_0) bodys_17)" "((s442_0) s_138)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_156)" +"((phase444_0) phase_158)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -74540,7 +74550,7 @@ static const char *startup_source = "(let-values(((bodys_18) bodys41_0))" "(let-values(((s_816) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_157) phase44_1))" +"(let-values(((phase_159) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -74549,7 +74559,7 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_157))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_159))" "(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" @@ -74589,7 +74599,7 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_157))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_159))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -75034,7 +75044,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_427)" +"(let-values(((lst_425)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75042,42 +75052,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_427)))" -"((letrec-values(((for-loop_333)" -"(lambda(fold-var_383" -" lst_428)" +" lst_425)))" +"((letrec-values(((for-loop_332)" +"(lambda(fold-var_382" +" lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" +" lst_426)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_428))" -"((rest_248)" +" lst_426))" +"((rest_245)" "(unsafe-cdr" -" lst_428)))" +" lst_426)))" +"(let-values(((fold-var_383)" "(let-values(((fold-var_384)" -"(let-values(((fold-var_385)" -" fold-var_383))" -"(let-values(((fold-var_360)" +" fold-var_382))" +"(let-values(((fold-var_359)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_385))))" +" fold-var_384))))" "(values" -" fold-var_360)))))" +" fold-var_359)))))" "(if(not" " #f)" -"(for-loop_333" -" fold-var_384" -" rest_248)" -" fold-var_384)))" -" fold-var_383)))))" -" for-loop_333)" +"(for-loop_332" +" fold-var_383" +" rest_245)" +" fold-var_383)))" +" fold-var_382)))))" +" for-loop_332)" " null" -" lst_427))))))" +" lst_425))))))" "(datum->syntax$1" " #f" "(cons" @@ -75172,8 +75182,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_146)" -"(let-values(((lst_429)" +"(let-values(((id_147)" +"(let-values(((lst_427)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75181,9 +75191,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" -"((letrec-values(((for-loop_334)" -"(lambda(id_147" +" lst_427)))" +"((letrec-values(((for-loop_333)" +"(lambda(id_148" " lst_148)" "(begin" " 'for-loop" @@ -75192,13 +75202,13 @@ static const char *startup_source = "(let-values(((s_834)" "(unsafe-car" " lst_148))" -"((rest_249)" +"((rest_246)" "(unsafe-cdr" " lst_148)))" -"(let-values(((id_148)" "(let-values(((id_149)" -" id_147))" "(let-values(((id_150)" +" id_148))" +"(let-values(((id_151)" "(let-values()" "(let-values(((id487_0)" "(let-values()" @@ -75221,21 +75231,21 @@ static const char *startup_source = " s_834)))))" "(cons" " id487_0" -" id_149)))))" -"(values" " id_150)))))" +"(values" +" id_151)))))" "(if(not" " #f)" -"(for-loop_334" -" id_148" -" rest_249)" -" id_148)))" -" id_147)))))" -" for-loop_334)" +"(for-loop_333" +" id_149" +" rest_246)" +" id_149)))" +" id_148)))))" +" for-loop_333)" " null" -" lst_429)))))" +" lst_427)))))" "(reverse$1" -" id_146))))))))" +" id_147))))))))" "((rhs475_0)" "(let-values(((s_835)" "(cdr" @@ -75505,8 +75515,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_151)" -"(let-values(((lst_430)" +"(let-values(((id_152)" +"(let-values(((lst_428)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75514,24 +75524,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_430)))" -"((letrec-values(((for-loop_335)" -"(lambda(id_152" -" lst_431)" +" lst_428)))" +"((letrec-values(((for-loop_334)" +"(lambda(id_153" +" lst_429)" "(begin" " 'for-loop" "(if(pair?" -" lst_431)" +" lst_429)" "(let-values(((s_847)" "(unsafe-car" -" lst_431))" -"((rest_250)" +" lst_429))" +"((rest_247)" "(unsafe-cdr" -" lst_431)))" -"(let-values(((id_153)" +" lst_429)))" "(let-values(((id_154)" -" id_152))" "(let-values(((id_155)" +" id_153))" +"(let-values(((id_156)" "(let-values()" "(let-values(((id516_0)" "(let-values()" @@ -75554,21 +75564,21 @@ static const char *startup_source = " s_847)))))" "(cons" " id516_0" -" id_154)))))" -"(values" " id_155)))))" +"(values" +" id_156)))))" "(if(not" " #f)" -"(for-loop_335" -" id_153" -" rest_250)" -" id_153)))" -" id_152)))))" -" for-loop_335)" +"(for-loop_334" +" id_154" +" rest_247)" +" id_154)))" +" id_153)))))" +" for-loop_334)" " null" -" lst_430)))))" +" lst_428)))))" "(reverse$1" -" id_151))))))))" +" id_152))))))))" "((rhs503_0)" "(let-values(((s_848)" "(cdr" @@ -75727,10 +75737,10 @@ static const char *startup_source = "((ids528_0)" " ids_46)" "((temp529_0)" -"(let-values(((v_272)" +"(let-values(((v_274)" " partial-body-ctx_1))" "(let-values(((the-struct_115)" -" v_272))" +" v_274))" "(if(expand-context/outer?" " the-struct_115)" "(let-values(((need-eventually-defined531_0)" @@ -75738,7 +75748,7 @@ static const char *startup_source = "((inner532_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_272)))" +" v_274)))" "(if(expand-context/inner?" " the-struct_116)" "(let-values(((lifts533_0)" @@ -75845,11 +75855,11 @@ static const char *startup_source = " temp529_0))))" "(let-values((()" "(begin" -"(let-values(((lst_432)" +"(let-values(((lst_430)" " syms_24)" -"((lst_433)" +"((lst_431)" " vals_10)" -"((lst_434)" +"((lst_432)" " ids_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75857,51 +75867,51 @@ 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))" +"(void)" +"(let-values()" +"(check-list" " lst_432)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_433)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_434)))" -"((letrec-values(((for-loop_336)" -"(lambda(lst_435" -" lst_436" -" lst_437)" +"((letrec-values(((for-loop_335)" +"(lambda(lst_433" +" lst_434" +" lst_435)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_435)" +" lst_433)" "(if(pair?" -" lst_436)" +" lst_434)" "(pair?" -" lst_437)" +" lst_435)" " #f)" " #f)" "(let-values(((sym_109)" "(unsafe-car" -" lst_435))" -"((rest_251)" +" lst_433))" +"((rest_248)" "(unsafe-cdr" -" lst_435))" -"((val_86)" +" lst_433))" +"((val_87)" "(unsafe-car" -" lst_436))" -"((rest_252)" +" lst_434))" +"((rest_249)" "(unsafe-cdr" -" lst_436))" -"((id_156)" +" lst_434))" +"((id_157)" "(unsafe-car" -" lst_437))" -"((rest_253)" +" lst_435))" +"((rest_250)" "(unsafe-cdr" -" lst_437)))" +" lst_435)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75910,29 +75920,29 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_156" +" val_87" +" id_157" " phase_53" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_19" " phase_53" " sym_109" -" val_86)))" +" val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_336" -" rest_251" -" rest_252" -" rest_253)" +"(for-loop_335" +" rest_248" +" rest_249" +" rest_250)" "(values))))" "(values))))))" -" for-loop_336)" -" lst_432" -" lst_433" -" lst_434)))" +" for-loop_335)" +" lst_430" +" lst_431" +" lst_432)))" "(values))))" "(let-values()" "(let-values((()" @@ -76269,7 +76279,7 @@ static const char *startup_source = " kw560_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_438)" +"(let-values(((lst_436)" " kw560_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -76277,19 +76287,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_438)))" -"((letrec-values(((for-loop_337)" -"(lambda(lst_439)" +" lst_436)))" +"((letrec-values(((for-loop_336)" +"(lambda(lst_437)" "(begin" " 'for-loop" "(if(pair?" -" lst_439)" +" lst_437)" "(let-values(((kw_1)" "(unsafe-car" -" lst_439))" -"((rest_254)" +" lst_437))" +"((rest_251)" "(unsafe-cdr" -" lst_439)))" +" lst_437)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76340,12 +76350,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_337" -" rest_254)" +"(for-loop_336" +" rest_251)" "(values))))" "(values))))))" -" for-loop_337)" -" lst_438)))" +" for-loop_336)" +" lst_436)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -76392,42 +76402,42 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_34 frame-id_17 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_47 rhs_23 phase_158)" +"(lambda(ids_47 rhs_23 phase_160)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_440) ids_47))" +"(let-values(((lst_438) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_386 lst_441)" +"(let-values()(check-list lst_438)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_385 lst_439)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((id_157)(unsafe-car lst_441))" -"((rest_255)(unsafe-cdr lst_441)))" -"(let-values(((fold-var_387)" -"(let-values(((fold-var_388) fold-var_386))" -"(let-values(((fold-var_389)" +"(if(pair? lst_439)" +"(let-values(((id_158)(unsafe-car lst_439))" +"((rest_252)(unsafe-cdr lst_439)))" +"(let-values(((fold-var_386)" +"(let-values(((fold-var_387) fold-var_385))" +"(let-values(((fold-var_388)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_157" +" id_158" " inside-scope_2))" -" fold-var_388))))" -"(values fold-var_389)))))" -"(if(not #f)(for-loop_338 fold-var_387 rest_255) fold-var_387)))" -" fold-var_386)))))" -" for-loop_338)" +" fold-var_387))))" +"(values fold-var_388)))))" +"(if(not #f)(for-loop_337 fold-var_386 rest_252) fold-var_386)))" +" fold-var_385)))))" +" for-loop_337)" " null" -" lst_440))))))" +" lst_438))))))" "(let-values(((syms_25)" "(let-values(((scoped-ids563_0) scoped-ids_0)" "((defined-syms564_0) defined-syms_13)" "((self565_0) self_34)" -"((phase566_0) phase_158)" +"((phase566_0) phase_160)" "((all-scopes-stx567_0) all-scopes-stx_6)" "((frame-id568_0) frame-id_17)" "((requires+provides569_0) requires+provides_8))" @@ -76451,7 +76461,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_158) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_160) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" @@ -76463,28 +76473,28 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_115)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_442) bodys_22))" +"(let-values(((lst_440) bodys_22))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_339)" -"(lambda(fold-var_390 lst_443)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_389 lst_441)" "(begin" " 'for-loop" -"(if(pair? lst_443)" -"(let-values(((body_23)(unsafe-car lst_443))((rest_256)(unsafe-cdr lst_443)))" -"(let-values(((fold-var_391)" -"(let-values(((fold-var_392) fold-var_390))" -"(let-values(((fold-var_393)" +"(if(pair? lst_441)" +"(let-values(((body_23)(unsafe-car lst_441))((rest_253)(unsafe-cdr lst_441)))" +"(let-values(((fold-var_390)" +"(let-values(((fold-var_391) fold-var_389))" +"(let-values(((fold-var_392)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_392))))" -"(values fold-var_393)))))" -"(if(not #f)(for-loop_339 fold-var_391 rest_256) fold-var_391)))" -" fold-var_390)))))" -" for-loop_339)" +" fold-var_391))))" +"(values fold-var_392)))))" +"(if(not #f)(for-loop_338 fold-var_390 rest_253) fold-var_390)))" +" fold-var_389)))))" +" for-loop_338)" " null" -" lst_442))))" +" lst_440))))" " bodys_22)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -76499,7 +76509,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_159) phase84_0))" +"(let-values(((phase_161) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_35) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -76513,7 +76523,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_23)" "(let-values()" -"(if(if tail?_53(not(zero? phase_159)) #f)" +"(if(if tail?_53(not(zero? phase_161)) #f)" "(let-values()" "(begin" "(let-values(((obs_155)(expand-context-observer body-ctx_7)))" @@ -76797,7 +76807,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_159)))" +" phase_161)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -76881,7 +76891,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules592_0)" " lifted-modules_0)" -"((phase593_0) phase_159)" +"((phase593_0) phase_161)" "((self594_0) self_35)" "((body-ctx595_0)" " body-ctx_7)" @@ -76938,12 +76948,12 @@ static const char *startup_source = "(let-values(((ht_169) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_169)))" -"((letrec-values(((for-loop_340)" +"((letrec-values(((for-loop_339)" "(lambda(i_193)" "(begin" " 'for-loop" "(if i_193" -"(let-values(((phase_160 l_89)(hash-iterate-key+value ht_169 i_193)))" +"(let-values(((phase_162 l_89)(hash-iterate-key+value ht_169 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76951,24 +76961,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_444) l_89))" +"(let-values(((lst_442) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_445)" +"(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_443)" "(begin" " 'for-loop" "(if(pair?" -" lst_445)" -"(let-values(((id_158)" +" lst_443)" +"(let-values(((id_159)" "(unsafe-car" -" lst_445))" -"((rest_257)" +" lst_443))" +"((rest_254)" "(unsafe-cdr" -" lst_445)))" +" lst_443)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76977,9 +76987,9 @@ static const char *startup_source = "(let-values()" "(let-values(((b_97)" "(let-values(((id600_0)" -" id_158)" +" id_159)" "((phase601_0)" -" phase_160))" +" phase_162))" "(resolve+shift30.1" " #f" " #f" @@ -77001,7 +77011,7 @@ static const char *startup_source = "(module-binding-sym" " b_97)" "(syntax-e$1" -" id_158))" +" id_159))" "(eq?" "(module-binding-module" " b_97)" @@ -77015,7 +77025,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_97)" -" phase_160)" +" phase_162)" " #f)))" "(if(eq?" " bound-kind_0" @@ -77039,35 +77049,35 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_67)" -" phase_160))" +" phase_162))" "(if(equal?" " tmp_67" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_160)))))" -" id_158" +" phase_162)))))" +" id_159" " #f" " null" "(syntax-debug-info-string" -" id_158" +" id_159" " ctx_116))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_341" -" rest_257)" +"(for-loop_340" +" rest_254)" "(values))))" "(values))))))" -" for-loop_341)" -" lst_444)))" +" for-loop_340)" +" lst_442)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340(hash-iterate-next ht_169 i_193))(values))))" +"(if(not #f)(for-loop_339(hash-iterate-next ht_169 i_193))(values))))" "(values))))))" -" for-loop_340)" +" for-loop_339)" "(hash-iterate-first ht_169))))" "(void)))))" "(define-values" @@ -77085,13 +77095,13 @@ static const char *startup_source = "(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_20) namespace104_0))" -"(let-values(((phase_161) phase105_0))" +"(let-values(((phase_163) phase105_0))" "(let-values(((self_37) self106_0))" "(let-values(((ctx_117) ctx107_0))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_25 phase_162)" +"(lambda(bodys_25 phase_164)" "(begin" " 'loop" "(if(null? bodys_25)" @@ -77099,13 +77109,13 @@ static const char *startup_source = "(if(let-values(((or-part_408)(parsed?(car bodys_25))))" "(if or-part_408 or-part_408(expanded+parsed?(car bodys_25))))" "(let-values()" -"(cons(car bodys_25)(loop_127(cdr bodys_25) phase_162)))" +"(cons(car bodys_25)(loop_127(cdr bodys_25) phase_164)))" "(if(semi-parsed-begin-for-syntax?(car bodys_25))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_25))" -"(add1 phase_162))))" +"(add1 phase_164))))" "(cons" "(let-values(((the-struct_117)(car bodys_25)))" "(if(semi-parsed-begin-for-syntax? the-struct_117)" @@ -77117,11 +77127,11 @@ static const char *startup_source = " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_117)))" -"(loop_127(cdr bodys_25) phase_162))))" +"(loop_127(cdr bodys_25) phase_164))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_25))))" "(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_162)))" +"(core-form-sym disarmed-body_1 phase_164)))" "(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" @@ -77198,10 +77208,10 @@ static const char *startup_source = "(car bodys_25)" " requires+provides_10" " self_37" -" phase_162" -"(let-values(((v_273) ctx_117))" +" phase_164" +"(let-values(((v_275) ctx_117))" "(let-values(((the-struct_118)" -" v_273))" +" v_275))" "(if(expand-context/outer?" " the-struct_118)" "(let-values(((context607_0)" @@ -77209,15 +77219,15 @@ static const char *startup_source = "((inner608_0)" "(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_273)))" +" v_275)))" "(if(expand-context/inner?" " the-struct_119)" "(let-values(((phase609_0)" -" phase_162)" +" phase_164)" "((namespace610_0)" "(namespace->namespace-at-phase" " m-ns_20" -" phase_162))" +" phase_164))" "((requires+provides611_0)" " requires+provides_10)" "((declared-submodule-names612_0)" @@ -77310,7 +77320,7 @@ static const char *startup_source = " the-struct_118)))))))" "(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_127(cdr bodys_25) phase_162))" +"(loop_127(cdr bodys_25) phase_164))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -77342,14 +77352,14 @@ static const char *startup_source = " new-s_10" "(loop_127" "(cdr bodys_25)" -" phase_162))))))))))" +" phase_164))))))))))" "(let-values()" "(cons" "(car bodys_25)" -"(loop_127(cdr bodys_25) phase_162))))))))))))))" +"(loop_127(cdr bodys_25) phase_164))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_161)))))))))))))" +" phase_163)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -77489,7 +77499,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_163) phase143_1))" +"(let-values(((phase_165) phase143_1))" "(let-values(((self_39) self144_0))" "(let-values(((requires+provides_12) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -77501,7 +77511,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_26 phase_164)" +"(lambda(bodys_26 phase_166)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -77584,7 +77594,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_164))))" +"(add1 phase_166))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -77607,20 +77617,20 @@ static const char *startup_source = " rebuild-body-s631_0" " temp632_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_164))))))))" +"(loop_128 rest-bodys_3 phase_166))))))))" "(if(let-values(((or-part_410)(parsed? body_25)))" "(if or-part_410" " or-part_410" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_164)))" +"(cons body_25(loop_128 rest-bodys_3 phase_166)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_164)))" +" phase_166)))" "(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" @@ -77779,7 +77789,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_164)))" +" phase_166)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -77841,7 +77851,7 @@ static const char *startup_source = "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_164)))" +" phase_166)))" "(expanded+parsed1.1" " s654_0" "(expanded+parsed-parsed" @@ -77853,7 +77863,7 @@ static const char *startup_source = "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_164))))))))" +" phase_166))))))))" "(let-values()" "(let-values(((ready-body655_0)" " ready-body_2)" @@ -77892,16 +77902,16 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_164)))))))" +" phase_166)))))))" "(let-values()" "(cons" " body_25" "(loop_128" " rest-bodys_3" -" phase_164)))))))))))))))))" +" phase_166)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_163)))))))))))))))))" +" phase_165)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_119)" @@ -77916,23 +77926,23 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_49) ids170_0))" -"(let-values(((phase_165) phase171_1))" +"(let-values(((phase_167) phase171_1))" "(let-values(((requires+provides_13) requires+provides172_0))" "(let-values(((s_721) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_446) ids_49))" +"(let-values(((lst_444) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_342)" -"(lambda(lst_447)" +"(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_341)" +"(lambda(lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((id_159)(unsafe-car lst_447))" -"((rest_258)(unsafe-cdr lst_447)))" +"(if(pair? lst_445)" +"(let-values(((id_160)(unsafe-car lst_445))" +"((rest_255)(unsafe-cdr lst_445)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77941,9 +77951,9 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides663_0)" " requires+provides_13)" -"((id664_0) id_159)" +"((id664_0) id_160)" "((phase665_0)" -" phase_165)" +" phase_167)" "((s666_0) s_721)" "((temp667_0) 'module))" "(check-not-defined95.1" @@ -77964,25 +77974,25 @@ static const char *startup_source = " phase665_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_342 rest_258)(values))))" +"(if(not #f)(for-loop_341 rest_255)(values))))" "(values))))))" -" for-loop_342)" -" lst_446)))" +" for-loop_341)" +" lst_444)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_27 phase_166 m-ns_22 self_40 ctx_120)" +"(lambda(bodys_27 phase_168 m-ns_22 self_40 ctx_120)" "(begin" "(begin" -"(let-values(((lst_448) bodys_27))" +"(let-values(((lst_446) bodys_27))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_448)))" -"((letrec-values(((for-loop_343)" -"(lambda(lst_449)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" +"((letrec-values(((for-loop_342)" +"(lambda(lst_447)" "(begin" " 'for-loop" -"(if(pair? lst_449)" -"(let-values(((body_26)(unsafe-car lst_449))((rest_259)(unsafe-cdr lst_449)))" +"(if(pair? lst_447)" +"(let-values(((body_26)(unsafe-car lst_447))((rest_256)(unsafe-cdr lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78005,63 +78015,63 @@ static const char *startup_source = " ids_50" "(parsed-define-values-rhs" " p_89)" -" phase_166" +" phase_168" " m-ns_22" " ctx_120)))" "(begin" -"(let-values(((lst_450) ids_50)" -"((lst_451)" +"(let-values(((lst_448) ids_50)" +"((lst_449)" "(parsed-define-values-syms" " p_89))" -"((lst_452) 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)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_452)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_453" -" lst_454" -" lst_455)" +"((letrec-values(((for-loop_343)" +"(lambda(lst_451" +" lst_452" +" lst_453)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_453)" +" lst_451)" "(if(pair?" -" lst_454)" +" lst_452)" "(pair?" -" lst_455)" +" lst_453)" " #f)" " #f)" -"(let-values(((id_160)" +"(let-values(((id_161)" "(unsafe-car" -" lst_453))" -"((rest_260)" +" lst_451))" +"((rest_257)" "(unsafe-cdr" -" lst_453))" +" lst_451))" "((sym_110)" "(unsafe-car" -" lst_454))" -"((rest_261)" +" lst_452))" +"((rest_258)" "(unsafe-cdr" -" lst_454))" -"((val_87)" +" lst_452))" +"((val_88)" "(unsafe-car" -" lst_455))" -"((rest_262)" +" lst_453))" +"((rest_259)" "(unsafe-cdr" -" lst_455)))" +" lst_453)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78070,23 +78080,23 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_22" -" phase_166" +" phase_168" " sym_110" -" val_87))" +" val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_344" -" rest_260" -" rest_261" -" rest_262)" +"(for-loop_343" +" rest_257" +" rest_258" +" rest_259)" "(values))))" "(values))))))" -" for-loop_344)" -" lst_450" -" lst_451" -" lst_452)))" +" for-loop_343)" +" lst_448" +" lst_449" +" lst_450)))" "(void)))))" "(if(let-values(((or-part_411)" "(parsed-define-syntaxes?" @@ -78121,7 +78131,7 @@ static const char *startup_source = "(let-values(((m-ns668_0)" " m-ns_22)" "((phase669_0)" -" phase_166))" +" phase_168))" "(make-compile-context14.1" " #f" " #f" @@ -78138,10 +78148,10 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_343 rest_259)(values))))" +"(if(not #f)(for-loop_342 rest_256)(values))))" "(values))))))" -" for-loop_343)" -" lst_448)))" +" for-loop_342)" +" lst_446)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -78270,8 +78280,8 @@ static const char *startup_source = "(let-values(((submod_5)" "(let-values(((s678_0) s_902)" "((temp679_0)" -"(let-values(((v_274) ctx_121))" -"(let-values(((the-struct_121) v_274))" +"(let-values(((v_276) ctx_121))" +"(let-values(((the-struct_121) v_276))" "(if(expand-context/outer? the-struct_121)" "(let-values(((context688_0) 'module)" "((post-expansion-scope689_0)" @@ -78279,7 +78289,7 @@ static const char *startup_source = "((inner690_0)" "(let-values(((the-struct_122)" "(root-expand-context/outer-inner" -" v_274)))" +" v_276)))" "(if(expand-context/inner?" " the-struct_122)" "(let-values(((stops691_0)" @@ -78579,7 +78589,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_28) bodys208_0))" -"(let-values(((phase_167) phase209_0))" +"(let-values(((phase_169) phase209_0))" "(let-values(((self_42) self210_0))" "(let-values(((ctx_122) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -78588,21 +78598,21 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_456) bodys_28))" +"(let-values(((lst_454) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_456)))" -"((letrec-values(((for-loop_345)" -"(lambda(fold-var_394 lst_457)" +"(let-values()(check-list lst_454)))" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_393 lst_455)" "(begin" " 'for-loop" -"(if(pair? lst_457)" -"(let-values(((body_27)(unsafe-car lst_457))" -"((rest_263)(unsafe-cdr lst_457)))" -"(let-values(((fold-var_395)" -"(let-values(((fold-var_396) fold-var_394))" -"(let-values(((fold-var_397)" +"(if(pair? lst_455)" +"(let-values(((body_27)(unsafe-car lst_455))" +"((rest_260)(unsafe-cdr lst_455)))" +"(let-values(((fold-var_394)" +"(let-values(((fold-var_395) fold-var_393))" +"(let-values(((fold-var_396)" "(let-values()" "(cons" "(let-values()" @@ -78610,7 +78620,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_167)))" +" phase_169)))" "(if(equal? tmp_70 'module)" "(let-values()" "(let-values(((body706_0)" @@ -78647,15 +78657,15 @@ static const char *startup_source = " self707_0" " ctx708_0)))" "(let-values() body_27))))" -" fold-var_396))))" -"(values fold-var_397)))))" +" fold-var_395))))" +"(values fold-var_396)))))" "(if(not #f)" -"(for-loop_345 fold-var_395 rest_263)" -" fold-var_395)))" -" fold-var_394)))))" -" for-loop_345)" +"(for-loop_344 fold-var_394 rest_260)" +" fold-var_394)))" +" fold-var_393)))))" +" for-loop_344)" " null" -" lst_456))))))))))))))))" +" lst_454))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -78666,7 +78676,7 @@ 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_907 phase_168)" +"(lambda(s_907 phase_170)" "(let-values(((ok?_91 #%require714_0 req715_0)" "(let-values(((s_908)(syntax-disarm$1 s_907)))" "(let-values(((orig-s_95) s_908))" @@ -78714,8 +78724,8 @@ static const char *startup_source = "((s720_0) s_907)" "((self721_0) self_43)" "((m-ns722_0) m-ns_23)" -"((phase723_0) phase_168)" -"((phase724_0) phase_168)" +"((phase723_0) phase_170)" +"((phase724_0) phase_170)" "((requires+provides725_0) requires+provides_14)" "((declared-submodule-names726_0) declared-submodule-names_10)" "((temp727_0) 'require))" @@ -78757,30 +78767,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_458) lifted-defns_2))" +"(let-values(((lst_456) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_458)))" -"((letrec-values(((for-loop_346)" -"(lambda(fold-var_398 lst_459)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" +"((letrec-values(((for-loop_345)" +"(lambda(fold-var_397 lst_457)" "(begin" " 'for-loop" -"(if(pair? lst_459)" -"(let-values(((lifted-defn_0)(unsafe-car lst_459))" -"((rest_264)(unsafe-cdr lst_459)))" -"(let-values(((fold-var_399)" -"(let-values(((fold-var_400) fold-var_398))" -"(let-values(((fold-var_401)" +"(if(pair? lst_457)" +"(let-values(((lifted-defn_0)(unsafe-car lst_457))" +"((rest_261)(unsafe-cdr lst_457)))" +"(let-values(((fold-var_398)" +"(let-values(((fold-var_399) fold-var_397))" +"(let-values(((fold-var_400)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_400))))" -"(values fold-var_401)))))" -"(if(not #f)(for-loop_346 fold-var_399 rest_264) fold-var_399)))" -" fold-var_398)))))" -" for-loop_346)" +" fold-var_399))))" +"(values fold-var_400)))))" +"(if(not #f)(for-loop_345 fold-var_398 rest_261) fold-var_398)))" +" fold-var_397)))))" +" for-loop_345)" " null" -" lst_458)))))))" +" lst_456)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -78796,18 +78806,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_164 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_460) 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_460)))" -"((letrec-values(((for-loop_347)" -"(lambda(lst_461)" +"(let-values()(check-list lst_458)))" +"((letrec-values(((for-loop_346)" +"(lambda(lst_459)" "(begin" " 'for-loop" -"(if(pair? lst_461)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_461))" -"((rest_265)(unsafe-cdr lst_461)))" +"(if(pair? lst_459)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" +"((rest_262)(unsafe-cdr lst_459)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78913,10 +78923,10 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_347 rest_265)(values))))" +"(if(not #f)(for-loop_346 rest_262)(values))))" "(values))))))" -" for-loop_347)" -" lst_460)))" +" for-loop_346)" +" lst_458)))" "(values))))" "(let-values()" "(let-values(((ok?_93 form-id728_0 _729_0)" @@ -79008,25 +79018,25 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_105)" -"(lambda(fold-var_402 lst_84)" +"(lambda(fold-var_401 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" -"(let-values(((id_161)(unsafe-car lst_84))" +"(let-values(((id_162)(unsafe-car lst_84))" "((rest_40)(unsafe-cdr lst_84)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_402))" -"(let-values(((fold-var_403)" +"(let-values(((fold-var_62) fold-var_401))" +"(let-values(((fold-var_402)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_161" +" id_162" " ctx_125))" " fold-var_62))))" -"(values fold-var_403)))))" +"(values fold-var_402)))))" "(if(not #f)(for-loop_105 fold-var_61 rest_40) fold-var_61)))" -" fold-var_402)))))" +" fold-var_401)))))" " for-loop_105)" " null" " lst_6))))))" @@ -79042,13 +79052,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_348)" +"((letrec-values(((for-loop_347)" "(lambda(fold-var_222 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" -"(let-values(((id_162)(unsafe-car lst_85))" -"((rest_245)(unsafe-cdr lst_85)))" +"(let-values(((id_163)(unsafe-car lst_85))" +"((rest_242)(unsafe-cdr lst_85)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_155) fold-var_222))" "(let-values(((fold-var_225)" @@ -79056,15 +79066,15 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_162" +" id_163" " top-level-bind-scope_6))" " fold-var_155))))" "(values fold-var_225)))))" "(if(not #f)" -"(for-loop_348 fold-var_26 rest_245)" +"(for-loop_347 fold-var_26 rest_242)" " fold-var_26)))" " fold-var_222)))))" -" for-loop_348)" +" for-loop_347)" " null" " lst_101))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" @@ -79087,13 +79097,13 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_451) s_0))" -"(let-values(((orig-s_99) s_451))" +"(let-values(((s_450) s_0))" +"(let-values(((orig-s_99) s_450))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_75)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" +"(let-values(((s_75)(if(syntax?$1 s_450)(syntax-e$1 s_450) s_450)))" "(if(pair? s_75)" "(let-values(((define-values4_0)" -"(let-values(((s_452)(car s_75))) s_452))" +"(let-values(((s_451)(car s_75))) s_451))" "((id5_0 rhs6_0)" "(let-values(((s_166)(cdr s_75)))" "(let-values(((s_5)" @@ -79128,7 +79138,7 @@ static const char *startup_source = "(check-list" " lst_80)))" "((letrec-values(((for-loop_98)" -"(lambda(id_163" +"(lambda(id_164" " lst_81)" "(begin" " 'for-loop" @@ -79140,10 +79150,10 @@ static const char *startup_source = "((rest_119)" "(unsafe-cdr" " lst_81)))" -"(let-values(((id_164)" "(let-values(((id_165)" -" id_163))" -"(let-values(((id_114)" +"(let-values(((id_166)" +" id_164))" +"(let-values(((id_115)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -79166,16 +79176,16 @@ static const char *startup_source = " s_87)))))" "(cons" " id10_1" -" id_165)))))" +" id_166)))))" "(values" -" id_114)))))" +" id_115)))))" "(if(not" " #f)" "(for-loop_98" -" id_164" +" id_165" " rest_119)" -" id_164)))" -" id_163)))))" +" id_165)))" +" id_164)))))" " for-loop_98)" " null" " lst_80)))))" @@ -79196,14 +79206,14 @@ static const char *startup_source = "(let-values(((s_167)" "(cdr" " s_35)))" -"(let-values(((s_492)" +"(let-values(((s_491)" "(if(syntax?$1" " s_167)" "(syntax-e$1" " s_167)" " s_167)))" "(if(null?" -" s_492)" +" s_491)" "(values)" "(raise-syntax-error$1" " #f" @@ -79261,13 +79271,13 @@ static const char *startup_source = "(let-values(((s_930)(car s_22))) s_930))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" -"(let-values(((s_501)" +"(let-values(((s_500)" "(if(syntax?$1 s_25)" "(syntax-e$1 s_25)" " s_25)))" -"(if(pair? s_501)" +"(if(pair? s_500)" "(let-values(((id21_0)" -"(let-values(((s_931)(car s_501)))" +"(let-values(((s_931)(car s_500)))" "(let-values(((s_90)" "(if(syntax?$1 s_931)" "(syntax-e$1 s_931)" @@ -79282,8 +79292,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_91)" -"(let-values(((lst_462)" +"(let-values(((id_93)" +"(let-values(((lst_460)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -79291,24 +79301,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_462)))" +" lst_460)))" "((letrec-values(((for-loop_2)" "(lambda(id_54" -" lst_463)" +" lst_461)" "(begin" " 'for-loop" "(if(pair?" -" lst_463)" +" lst_461)" "(let-values(((s_932)" "(unsafe-car" -" lst_463))" -"((rest_266)" +" lst_461))" +"((rest_263)" "(unsafe-cdr" -" lst_463)))" -"(let-values(((id_166)" +" lst_461)))" "(let-values(((id_167)" -" id_54))" "(let-values(((id_168)" +" id_54))" +"(let-values(((id_169)" "(let-values()" "(let-values(((id24_1)" "(let-values()" @@ -79331,44 +79341,44 @@ static const char *startup_source = " s_932)))))" "(cons" " id24_1" -" id_167)))))" -"(values" " id_168)))))" +"(values" +" id_169)))))" "(if(not" " #f)" "(for-loop_2" -" id_166" -" rest_266)" -" id_166)))" +" id_167" +" rest_263)" +" id_167)))" " id_54)))))" " for-loop_2)" " null" -" lst_462)))))" -"(reverse$1 id_91))))))))" +" lst_460)))))" +"(reverse$1 id_93))))))))" "((rhs22_0)" -"(let-values(((s_426)(cdr s_501)))" +"(let-values(((s_426)(cdr s_500)))" "(let-values(((s_174)" "(if(syntax?$1 s_426)" "(syntax-e$1 s_426)" " s_426)))" "(if(pair? s_174)" "(let-values(((rhs23_2)" -"(let-values(((s_502)" +"(let-values(((s_501)" "(car" " s_174)))" -" s_502))" +" s_501))" "(()" "(let-values(((s_46)" "(cdr" " s_174)))" -"(let-values(((s_505)" +"(let-values(((s_504)" "(if(syntax?$1" " s_46)" "(syntax-e$1" " s_46)" " s_46)))" "(if(null?" -" s_505)" +" s_504)" "(values)" "(raise-syntax-error$1" " #f" @@ -79398,15 +79408,15 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_484 ctx_127)" +"(lambda(s_483 ctx_127)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_484)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_483)))" "(values))))" "(let-values(((ok?_37 begin-for-syntax29_0 form30_0)" -"(let-values(((s_933) s_484))" +"(let-values(((s_933) s_483))" "(let-values(((orig-s_101) s_933))" "(let-values(((begin-for-syntax29_1 form30_1)" "(let-values(((s_49)(if(syntax?$1 s_933)(syntax-e$1 s_933) s_933)))" @@ -79433,9 +79443,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_31)(expand-context-observer ctx_127)))" -"(if obs_31" -"(let-values()(let-values()(call-expand-observe obs_31 'prepare-env)))" +"(let-values(((obs_170)(expand-context-observer ctx_127)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" @@ -79445,12 +79455,12 @@ static const char *startup_source = "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_275) trans-ctx_1))" -"(let-values(((the-struct_126) v_275))" +"(let-values(((v_277) trans-ctx_1))" +"(let-values(((the-struct_126) v_277))" "(if(expand-context/outer? the-struct_126)" "(let-values(((inner37_0)" "(let-values(((the-struct_127)" -"(root-expand-context/outer-inner v_275)))" +"(root-expand-context/outer-inner v_277)))" "(if(expand-context/inner? the-struct_127)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" @@ -79511,15 +79521,15 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_170)" +"(let-values(((obs_171)" "(expand-context-observer ctx_127)))" -"(if obs_170" +"(if obs_171" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_170" +" obs_171" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_484))))" +"(datum->syntax$1 #f form30_0 s_483))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -79533,19 +79543,19 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_171)" +"(let-values(((obs_172)" "(expand-context-observer" " ctx_127)))" -"(if obs_171" +"(if obs_172" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_171" +" obs_172" " 'exit-list" "(datum->syntax$1" " #f" " forms_2" -" s_484))))" +" s_483))))" "(void)))" " forms_2)))" "(let-values()" @@ -79628,8 +79638,8 @@ static const char *startup_source = " loop_63)" " form30_0)))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-begin-for-syntax21.1 s_484 all-exp-forms_0)" -"(let-values(((s45_0) s_484)((temp46_3)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_483 all-exp-forms_0)" +"(let-values(((s45_0) s_483)((temp46_3)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_3))))))))))))))" "(void" "(add-core-form!*" @@ -79655,11 +79665,11 @@ static const char *startup_source = "(if(pair? s_200)" "(let-values(((#%require49_0)(let-values(((s_63)(car s_200))) s_63))" "((req50_0)" -"(let-values(((s_523)(cdr s_200)))" +"(let-values(((s_522)(cdr s_200)))" "(let-values(((s_416)" -"(if(syntax?$1 s_523)" -"(syntax-e$1 s_523)" -" s_523)))" +"(if(syntax?$1 s_522)" +"(syntax-e$1 s_522)" +" s_522)))" "(let-values(((flat-s_69)(to-syntax-list.1 s_416)))" "(if(not flat-s_69)" "(let-values()" @@ -79675,21 +79685,21 @@ static const char *startup_source = "(begin" "(let-values(((temp51_4)" "(reverse$1" -"(let-values(((lst_464) req48_0))" +"(let-values(((lst_462) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_464)))" -"((letrec-values(((for-loop_349)" -"(lambda(fold-var_404 lst_200)" +"(let-values()(check-list lst_462)))" +"((letrec-values(((for-loop_348)" +"(lambda(fold-var_403 lst_200)" "(begin" " 'for-loop" "(if(pair? lst_200)" "(let-values(((req_20)(unsafe-car lst_200))" -"((rest_267)(unsafe-cdr lst_200)))" -"(let-values(((fold-var_303)" -"(let-values(((fold-var_139) fold-var_404))" -"(let-values(((fold-var_405)" +"((rest_264)(unsafe-cdr lst_200)))" +"(let-values(((fold-var_302)" +"(let-values(((fold-var_139) fold-var_403))" +"(let-values(((fold-var_404)" "(let-values()" "(cons" "(let-values()" @@ -79697,14 +79707,14 @@ static const char *startup_source = " req_20" " sc_40))" " fold-var_139))))" -"(values fold-var_405)))))" +"(values fold-var_404)))))" "(if(not #f)" -"(for-loop_349 fold-var_303 rest_267)" -" fold-var_303)))" -" fold-var_404)))))" -" for-loop_349)" +"(for-loop_348 fold-var_302 rest_264)" +" fold-var_302)))" +" fold-var_403)))))" +" for-loop_348)" " null" -" lst_464)))))" +" lst_462)))))" "((s52_0) s_412)" "((temp53_5) #f)" "((temp54_6)(expand-context-namespace ctx_128))" @@ -79743,8 +79753,8 @@ static const char *startup_source = " '#%provide" "(lambda(s_786 ctx_129)" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_129)))" -"(if obs_172(let-values()(let-values()(call-expand-observe obs_172 'prim-provide)))(void)))" +"(let-values(((obs_173)(expand-context-observer ctx_129)))" +"(if obs_173(let-values()(let-values()(call-expand-observe obs_173 'prim-provide)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_786)))))" "(define-values(ns)(make-namespace))" "(void" @@ -79791,12 +79801,12 @@ static const char *startup_source = "(let-values(((table_231) table_230))" "(let-values(((table_186)" "(let-values()" -"(let-values(((key_95 val_88)" +"(let-values(((key_95 val_89)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_231 key_95 val_88)))))" +"(hash-set table_231 key_95 val_89)))))" "(values table_186)))))" "(if(not #f)" "(for-loop_20 table_218(hash-iterate-next ht_170 i_3))" @@ -79811,7 +79821,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_171)))" -"((letrec-values(((for-loop_331)" +"((letrec-values(((for-loop_330)" "(lambda(table_189 i_188)" "(begin" " 'for-loop" @@ -79821,18 +79831,18 @@ static const char *startup_source = "(let-values(((table_110) table_189))" "(let-values(((table_111)" "(let-values()" -"(let-values(((key_96 val_89)" +"(let-values(((key_96 val_90)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_110 key_96 val_89)))))" +"(hash-set table_110 key_96 val_90)))))" "(values table_111)))))" "(if(not #f)" -"(for-loop_331 table_117(hash-iterate-next ht_171 i_188))" +"(for-loop_330 table_117(hash-iterate-next ht_171 i_188))" " table_117)))" " table_189)))))" -" for-loop_331)" +" for-loop_330)" " '#hash()" "(hash-iterate-first ht_171))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))"