diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index 7c2a792107..561f3a09ff 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2443,4 +2443,19 @@ case of module-leve bindings; it doesn't cover local bindings. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(let ([check + (lambda (later rx) + (err/rt-test (expand `(module m racket/base + (require (for-syntax racket/base)) + (begin-for-syntax + (define (foo) (bar))) + ,later)) + (lambda (exn) + (regexp-match? rx (exn-message exn)))))]) + (check '(void) "unbound identifier") + (check '(begin-for-syntax (struct bar ())) #rx"later defined as syntax") + (check '(require (for-syntax (only-in racket/base [car bar]))) #rx"later bound differently")) + +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + (report-errs) diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 5179bf146a..1dfbf87c78 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -369,7 +369,7 @@ #:mpis-to-reset mpis-to-reset))) ;; Check that any tentatively allowed reference at phase >= 1 is ok - (check-defined-by-now need-eventually-defined self ctx) + (check-defined-by-now need-eventually-defined self ctx requires+provides) ;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;; Pass 3: resolve provides at all phases @@ -790,7 +790,7 @@ #:requires+provides requires+provides #:in exp-body #:as-transformer? #t)) - (add-defined-syms! requires+provides syms phase) + (add-defined-syms! requires+provides syms phase #:as-transformer? #t) ;; Expand and evaluate RHS: (define-values (exp-rhs parsed-rhs vals) (expand+eval-for-syntaxes-binding (m 'rhs) ids @@ -1019,17 +1019,27 @@ (cons exp-body (loop tail? rest-bodys)))]))) -(define (check-defined-by-now need-eventually-defined self ctx) +(define (check-defined-by-now need-eventually-defined self ctx requires+provides) ;; If `need-eventually-defined` is not empty, report an error (for ([(phase l) (in-hash need-eventually-defined)]) (for ([id (in-list l)]) (define b (resolve+shift id phase)) - ;; FIXME: check that the binding is for a variable - (unless (and b - (module-binding? b) - (eq? (module-binding-sym b) (syntax-e id)) - (eq? (module-binding-module b) self)) - (raise-syntax-error #f "reference to an unbound identifier" + (define bound-here? (and b + (module-binding? b) + (eq? (module-binding-sym b) (syntax-e id)) + (eq? (module-binding-module b) self))) + (define bound-kind (and bound-here? + (defined-sym-kind requires+provides (module-binding-sym b) phase))) + (unless (eq? bound-kind 'variable) + (raise-syntax-error #f + (string-append + (cond + [(not b) "reference to an unbound identifier"] + [(eq? bound-kind 'transformer) "identifier treated as a variable, but later defined as syntax"] + [else "identifier treated as a variable, but later bound differently"]) + (format "\n at phase: ~a" (case phase + [(1) "1; the transformer environment"] + [else phase]))) id #f null (syntax-debug-info-string id ctx)))))) diff --git a/racket/src/expander/expand/require+provide.rkt b/racket/src/expander/expand/require+provide.rkt index da3844c1a6..1338589546 100644 --- a/racket/src/expander/expand/require+provide.rkt +++ b/racket/src/expander/expand/require+provide.rkt @@ -30,6 +30,7 @@ remove-required-id! check-not-defined add-defined-syms! + defined-sym-kind extract-module-requires extract-module-definitions extract-all-module-requires @@ -48,7 +49,7 @@ require-mpis-in-order ; require-phase -> list of module-path-index requires ; mpi [interned] -> require-phase -> sym -> list-ish of [bulk-]required provides ; phase -> sym -> binding or protected - phase-to-defined-syms ; phase -> sym -> boolean + phase-to-defined-syms ; phase -> sym -> (or/c 'variable 'transformer) also-required ; sym -> binding [can-cross-phase-persistent? #:mutable] [all-bindings-simple? #:mutable]) ; tracks whether bindings are easily reconstructed @@ -397,14 +398,20 @@ (remove-non-matching-requireds reqds id phase mpi nominal-phase (syntax-e id))))]) #f])])])) -(define (add-defined-syms! r+p syms phase) +(define (add-defined-syms! r+p syms phase #:as-transformer? [as-transformer? #f]) (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p)) (define defined-syms (hash-ref phase-to-defined-syms phase #hasheq())) (define new-defined-syms (for/fold ([defined-syms defined-syms]) ([sym (in-list syms)]) - (hash-set defined-syms sym #t))) + (hash-set defined-syms sym (if as-transformer? 'transformer 'variable)))) (hash-set! phase-to-defined-syms phase new-defined-syms)) +;; Returns 'variable, 'transformer, or #f +(define (defined-sym-kind r+p sym phase) + (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p)) + (define defined-syms (hash-ref phase-to-defined-syms phase #hasheq())) + (hash-ref defined-syms sym #f)) + ;; Get all the bindings imported from a given module (define (extract-module-requires r+p mod-name phase) (define mpi (intern-mpi r+p mod-name)) diff --git a/racket/src/expander/expand/root-expand-context.rkt b/racket/src/expander/expand/root-expand-context.rkt index 3a7729aa6b..e475724e2f 100644 --- a/racket/src/expander/expand/root-expand-context.rkt +++ b/racket/src/expander/expand/root-expand-context.rkt @@ -25,7 +25,7 @@ all-scopes-stx ; scopes like the initial import, which correspond to original forms * use-site-scopes ; #f or boxed list: scopes that should be pruned from binders defined-syms ; phase -> sym -> id; symbols picked for bindings - * frame-id ; #f or a gensym to identify a binding frame; 'all matches any for use-site scopes + * frame-id ; #f or a gensym to identify a binding frame; 'all matches any for use-site scopes counter ; box of an integer; used for generating names deterministically lift-key ; identifies (via `syntax-local-lift-context`) a target for lifts )) ; after adding a field, update `copy-module-context` in "context.rkt" diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 6fbaf98d00..57ef334f28 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -211,16 +211,20 @@ static const char *startup_source = "(lambda(who_1 mut?_0 set_0 ht_0 key_0 xform_0 default_1)" "(begin" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()" +"(begin" "(if(if(hash? ht_0)(if mut?_0(not(immutable? ht_0))(immutable? ht_0)) #f)" "(void)" "(let-values()" "(raise-argument-error" " who_1" -" (if mut?_0 \"(and/c hash? (not/c immutable?))\" \"(and/c hash? immutable?)\")" +" (if mut?_0 \"(and/c hash? (not/c immutable?))\" \"(and/c hash? immutable?)\")" " ht_0)))" "(if(if(procedure? xform_0)(procedure-arity-includes? xform_0 1) #f)" "(void)" -" (let-values () (raise-argument-error who_1 \"(any/c . -> . any/c)\" xform_0)))" +" (let-values () (raise-argument-error who_1 \"(any/c . -> . any/c)\" xform_0))))))" "(let-values(((v_6)(hash-ref ht_0 key_0 default_1)))" "(if(eq? v_6 not-there)" " (raise-mismatch-error who_1 \"no value found for key: \" key_0)" @@ -21779,21 +21783,21 @@ static const char *startup_source = "(module-binding-nominal-require-phase binding_11)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" -"(let-values(((r+p116_0) r+p_3)" -"((id117_0) id_23)" -"((phase118_0) phase_54)" -"((temp119_0)(module-binding-nominal-module binding_11))" -"((temp120_0)(module-binding-nominal-require-phase binding_11))" -"((can-be-shadowed?121_0) can-be-shadowed?_0)" -"((as-transformer?122_0) as-transformer?_0))" +"(let-values(((r+p124_0) r+p_3)" +"((id125_0) id_23)" +"((phase126_0) phase_54)" +"((temp127_0)(module-binding-nominal-module binding_11))" +"((temp128_0)(module-binding-nominal-require-phase binding_11))" +"((can-be-shadowed?129_0) can-be-shadowed?_0)" +"((as-transformer?130_0) as-transformer?_0))" "(add-defined-or-required-id-at-nominal!33.1" -" as-transformer?122_0" -" can-be-shadowed?121_0" -" temp119_0" -" temp120_0" -" r+p116_0" -" id117_0" -" phase118_0)))))))))))))" +" as-transformer?130_0" +" can-be-shadowed?129_0" +" temp127_0" +" temp128_0" +" r+p124_0" +" id125_0" +" phase126_0)))))))))))))" "(define-values" "(add-defined-or-required-id-at-nominal!33.1)" "(lambda(as-transformer?25_0" @@ -21951,64 +21955,64 @@ static const char *startup_source = " #f)))" " #f)" "(let-values()" -"(let-values(((temp123_0)" +"(let-values(((temp131_0)" " #t)" -"((temp124_0)" +"((temp132_0)" " #t)" -"((r+p125_0)" +"((r+p133_0)" " r+p_5)" -"((temp126_0)" +"((temp134_0)" "(datum->syntax$1" " s_194" " sym_31" " s_194))" -"((phase127_0)" +"((phase135_0)" " phase_56)" -"((orig-s128_0)" +"((orig-s136_0)" " orig-s_0)" -"((temp129_0)" +"((temp137_0)" "(lambda()" -"(let-values(((binding/p133_0)" +"(let-values(((binding/p141_0)" " binding/p_2)" -"((sym134_0)" +"((sym142_0)" " sym_31)" -"((self135_0)" +"((self143_0)" " self_9)" -"((mpi136_0)" +"((mpi144_0)" " mpi_32)" -"((provide-phase-level137_0)" +"((provide-phase-level145_0)" " provide-phase-level_3)" -"((phase-shift138_0)" +"((phase-shift146_0)" " phase-shift_7))" "(provide-binding-to-require-binding11.1" -" mpi136_0" -" phase-shift138_0" -" provide-phase-level137_0" -" self135_0" -" binding/p133_0" -" sym134_0))))" -"((temp130_0)" +" mpi144_0" +" phase-shift146_0" +" provide-phase-level145_0" +" self143_0" +" binding/p141_0" +" sym142_0))))" +"((temp138_0)" " #t)" -"((accum-update-nominals131_0)" +"((accum-update-nominals139_0)" " accum-update-nominals_0)" -"((who132_0)" +"((who140_0)" " who_12))" "(check-not-defined95.1" -" accum-update-nominals131_0" +" accum-update-nominals139_0" " #t" -" temp124_0" +" temp132_0" " #t" -" temp123_0" +" temp131_0" " #t" -" orig-s128_0" -" temp130_0" +" orig-s136_0" +" temp138_0" " #t" -" temp129_0" +" temp137_0" " #t" -" who132_0" -" r+p125_0" -" temp126_0" -" phase127_0)))" +" who140_0" +" r+p133_0" +" temp134_0" +" phase135_0)))" "(let-values()" " #f))))" "(begin" @@ -22164,49 +22168,49 @@ static const char *startup_source = " mod-name_10" " phase_59" " sym_34)))" -"(let-values(((r+p139_0)" +"(let-values(((r+p147_0)" " r+p_6)" -"((temp140_0)" +"((temp148_0)" "(syntax-shift-phase-level$1" -"(let-values(((temp146_0)" +"(let-values(((temp154_0)" "(required-id" " reqd_0))" -"((temp147_0)" +"((temp155_0)" "(requires+provides-self" " enclosing-r+p_0))" -"((enclosing-mod148_0)" +"((enclosing-mod156_0)" " enclosing-mod_0))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" temp146_0" -" temp147_0" -" enclosing-mod148_0" +" temp154_0" +" temp155_0" +" enclosing-mod156_0" " #f" " #f))" " phase-shift_8))" -"((temp141_0)" +"((temp149_0)" "(phase+" "(required-phase" " reqd_0)" " phase-shift_8))" -"((enclosing-mod142_0)" +"((enclosing-mod150_0)" " enclosing-mod_0)" -"((phase-shift143_0)" +"((phase-shift151_0)" " phase-shift_8)" -"((temp144_0)" +"((temp152_0)" " #t)" -"((temp145_0)" +"((temp153_0)" "(required-as-transformer?" " reqd_0)))" "(add-defined-or-required-id-at-nominal!33.1" -" temp145_0" -" temp144_0" -" enclosing-mod142_0" -" phase-shift143_0" -" r+p139_0" -" temp140_0" -" temp141_0))))" +" temp153_0" +" temp152_0" +" enclosing-mod150_0" +" phase-shift151_0" +" r+p147_0" +" temp148_0" +" temp149_0))))" "(values)))))" "(values)))))" "(if(not" @@ -22259,8 +22263,8 @@ static const char *startup_source = "(let-values(((binding_12) unless-matches70_0))" "(let-values()" "(let-values(((b_65)" -"(let-values(((id149_0) id_25)((phase150_0) phase_60)((temp151_0) #t))" -"(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" +"(let-values(((id157_0) id_25)((phase158_0) phase_60)((temp159_0) #t))" +"(resolve+shift30.1 #f #f temp159_0 #t #f #f #f #f #f #f id157_0 phase158_0))))" "(if b_65" "(let-values()" "(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_65))))" @@ -22385,11 +22389,11 @@ static const char *startup_source = "(let-values(((who_13) who84_0))" "(let-values()" "(let-values(((b_66)" -"(let-values(((id152_0) id_27)((phase153_0) phase_62)((temp154_0) #t))" +"(let-values(((id160_0) id_27)((phase161_0) phase_62)((temp162_1) #t))" "(resolve+shift30.1" " #f" " #f" -" temp154_0" +" temp162_1" " #t" " #f" " #f" @@ -22397,8 +22401,8 @@ static const char *startup_source = " #f" " #f" " #f" -" id152_0" -" phase153_0))))" +" id160_0" +" phase161_0))))" "(if(not b_66)" "(let-values() #f)" "(if(not(module-binding? b_66))" @@ -22463,12 +22467,12 @@ static const char *startup_source = "(lambda()" "(begin" " 'update!" -"(let-values(((temp155_0) #t)" -"((id156_0) id_27)" -"((temp157_0)" -"(let-values(((ok-binding159_0)" +"(let-values(((temp163_0) #t)" +"((id164_0) id_27)" +"((temp165_1)" +"(let-values(((ok-binding167_0)" " ok-binding_0)" -"((temp160_0)" +"((temp168_0)" "(cons" " b_66" "(module-binding-extra-nominal-bindings" @@ -22476,7 +22480,7 @@ static const char *startup_source = "(module-binding-update48.1" " #f" " #f" -" temp160_0" +" temp168_0" " #t" " #f" " #f" @@ -22496,16 +22500,16 @@ static const char *startup_source = " #f" " #f" " #f" -" ok-binding159_0)))" -"((phase158_0) phase_62))" +" ok-binding167_0)))" +"((phase166_0) phase_62))" "(add-binding!17.1" " #f" " #f" -" temp155_0" +" temp163_0" " #t" -" id156_0" -" temp157_0" -" phase158_0))))))" +" id164_0" +" temp165_1" +" phase166_0))))))" "(if accum-update-nominals_1" "(let-values()" "(set-box!" @@ -22640,9 +22644,15 @@ static const char *startup_source = "(void))))" " #f)))))))))))))))))))))))))))))))))))" "(define-values" -"(add-defined-syms!)" -"(lambda(r+p_9 syms_18 phase_63)" +"(add-defined-syms!103.1)" +"(lambda(as-transformer?98_0 as-transformer?99_0 r+p100_0 syms101_0 phase102_0)" "(begin" +" 'add-defined-syms!103" +"(let-values(((r+p_9) r+p100_0))" +"(let-values(((syms_18) syms101_0))" +"(let-values(((phase_63) phase102_0))" +"(let-values(((as-transformer?_2)(if as-transformer?99_0 as-transformer?98_0 #f)))" +"(let-values()" "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_63 '#hasheq())))" "(let-values(((new-defined-syms_0)" @@ -22651,7 +22661,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_127)))" -"((letrec-values(((for-loop_145)" +"((letrec-values(((for-loop_158)" "(lambda(defined-syms_3 lst_128)" "(begin" " 'for-loop" @@ -22659,46 +22669,56 @@ static const char *startup_source = "(let-values(((sym_37)(unsafe-car lst_128))" "((rest_63)(unsafe-cdr lst_128)))" "(let-values(((defined-syms_4)" -"(let-values(((defined-syms_5) defined-syms_3))" +"(let-values(((defined-syms_5)" +" defined-syms_3))" "(let-values(((defined-syms_6)" "(let-values()" "(hash-set" " defined-syms_5" " sym_37" -" #t))))" +"(if as-transformer?_2" +" 'transformer" +" 'variable)))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_145 defined-syms_4 rest_63)" +"(for-loop_158 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_145)" +" for-loop_158)" " defined-syms_2" " lst_127)))))" -"(hash-set! phase-to-defined-syms_0 phase_63 new-defined-syms_0)))))))" +"(hash-set! phase-to-defined-syms_0 phase_63 new-defined-syms_0))))))))))))" +"(define-values" +"(defined-sym-kind)" +"(lambda(r+p_10 sym_38 phase_64)" +"(begin" +"(let-values(((phase-to-defined-syms_1)(requires+provides-phase-to-defined-syms r+p_10)))" +"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_64 '#hasheq())))" +"(hash-ref defined-syms_7 sym_38 #f))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_10 mod-name_11 phase_64)" +"(lambda(r+p_11 mod-name_11 phase_65)" "(begin" -"(let-values(((mpi_36)(intern-mpi r+p_10 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" +"(let-values(((mpi_36)(intern-mpi r+p_11 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_99)(hash-ref at-mod_5 phase_64 '#hasheq())))" +"(let-values(((ht_99)(hash-ref at-mod_5 phase_65 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_99)))" -"((letrec-values(((for-loop_158)" +"((letrec-values(((for-loop_159)" "(lambda(fold-var_113 i_133)" "(begin" " 'for-loop" "(if i_133" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_99 i_133)))" +"(let-values(((sym_39 reqds_3)(hash-iterate-key+value ht_99 i_133)))" "(let-values(((fold-var_114)" "(let-values(((lst_129) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" +"((letrec-values(((for-loop_160)" "(lambda(fold-var_115 lst_130)" "(begin" " 'for-loop" @@ -22721,49 +22741,49 @@ static const char *startup_source = "(normalize-required" " reqd_1" " mpi_36" -" phase_64" -" sym_38))" +" phase_65" +" sym_39))" " fold-var_117))))" "(values" " fold-var_118)))))" "(if(not #f)" -"(for-loop_159" +"(for-loop_160" " fold-var_116" " rest_64)" " fold-var_116)))" " fold-var_115)))))" -" for-loop_159)" +" for-loop_160)" " fold-var_113" " lst_129)))))" "(if(not #f)" -"(for-loop_158 fold-var_114(hash-iterate-next ht_99 i_133))" +"(for-loop_159 fold-var_114(hash-iterate-next ht_99 i_133))" " fold-var_114)))" " fold-var_113)))))" -" for-loop_158)" +" for-loop_159)" " null" "(hash-iterate-first ht_99)))))" " #f))))))" "(define-values" "(extract-module-definitions)" -"(lambda(r+p_11)" +"(lambda(r+p_12)" "(begin" -"(let-values(((or-part_174)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(let-values(((or-part_174)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" "(if or-part_174 or-part_174 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_12 mod-name_12 phase_51)" +"(lambda(r+p_13 mod-name_12 phase_66)" "(begin" -"(let-values(((self_10)(requires+provides-self r+p_12)))" -"(let-values(((requires_2)(requires+provides-requires r+p_12)))" +"(let-values(((self_10)(requires+provides-self r+p_13)))" +"(let-values(((requires_2)(requires+provides-requires r+p_13)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_131)))" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_119 lst_132)" "(begin" " 'for-loop" @@ -22781,7 +22801,7 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_122)" "(begin" " 'for-loop" @@ -22789,12 +22809,12 @@ static const char *startup_source = "(let-values(((fold-var_123)" "(let-values(((lst_133)" "(if(eq?" -" phase_51" +" phase_66" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_51))))" +" phase_66))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -22802,24 +22822,24 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_133)))" -"((letrec-values(((for-loop_162)" +"((letrec-values(((for-loop_163)" "(lambda(fold-var_124" -" lst_134)" +" lst_60)" "(begin" " 'for-loop" "(if(pair?" -" lst_134)" -"(let-values(((phase_65)" +" lst_60)" +"(let-values(((phase_67)" "(unsafe-car" -" lst_134))" +" lst_60))" "((rest_66)" "(unsafe-cdr" -" lst_134)))" +" lst_60)))" "(let-values(((fold-var_125)" "(let-values(((ht_100)" "(hash-ref" " phase-to-requireds_0" -" phase_65" +" phase_67" "(lambda()" "(esc_0" " #f)))))" @@ -22830,139 +22850,139 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_100)))" -"((letrec-values(((for-loop_163)" -"(lambda(fold-var_126" +"((letrec-values(((for-loop_164)" +"(lambda(fold-var_44" " i_134)" "(begin" " 'for-loop" "(if i_134" -"(let-values(((sym_39" +"(let-values(((sym_40" " reqds_4)" "(hash-iterate-key+value" " ht_100" " i_134)))" -"(let-values(((fold-var_127)" -"(let-values(((lst_135)" +"(let-values(((fold-var_126)" +"(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_164)" -"(lambda(fold-var_128" -" lst_136)" +"((letrec-values(((for-loop_165)" +"(lambda(fold-var_127" +" lst_135)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_136))" +" lst_135))" "(let-values(((reqd_2)" "(if(pair?" -" lst_136)" +" lst_135)" "(car" -" lst_136)" -" lst_136))" +" lst_135)" +" lst_135))" "((rest_67)" "(if(pair?" -" lst_136)" +" lst_135)" "(cdr" -" lst_136)" +" lst_135)" " null)))" +"(let-values(((fold-var_50)" +"(let-values(((fold-var_128)" +" fold-var_127))" "(let-values(((fold-var_129)" -"(let-values(((fold-var_130)" -" fold-var_128))" -"(let-values(((fold-var_131)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_2" " mod-name_13" -" phase_65" -" sym_39))" -" fold-var_130))))" +" phase_67" +" sym_40))" +" fold-var_128))))" "(values" -" fold-var_131)))))" +" fold-var_129)))))" +"(if(not" +" #f)" +"(for-loop_165" +" fold-var_50" +" rest_67)" +" fold-var_50)))" +" fold-var_127)))))" +" for-loop_165)" +" fold-var_44" +" lst_134)))))" "(if(not" " #f)" "(for-loop_164" -" fold-var_129" -" rest_67)" -" fold-var_129)))" -" fold-var_128)))))" -" for-loop_164)" " fold-var_126" -" lst_135)))))" -"(if(not" -" #f)" -"(for-loop_163" -" fold-var_127" "(hash-iterate-next" " ht_100" " i_134))" -" fold-var_127)))" -" fold-var_126)))))" -" for-loop_163)" +" fold-var_126)))" +" fold-var_44)))))" +" for-loop_164)" " fold-var_124" "(hash-iterate-first" " ht_100))))))" "(if(not" " #f)" -"(for-loop_162" +"(for-loop_163" " fold-var_125" " rest_66)" " fold-var_125)))" " fold-var_124)))))" -" for-loop_162)" +" for-loop_163)" " fold-var_122" " lst_133)))))" " fold-var_123))))))" -" for-loop_161)" +" for-loop_162)" " fold-var_121)))))))" -"(if(not #f)(for-loop_160 fold-var_120 rest_65) fold-var_120)))" +"(if(not #f)(for-loop_161 fold-var_120 rest_65) fold-var_120)))" " fold-var_119)))))" -" for-loop_160)" +" for-loop_161)" " null" " lst_131)))))))))))" "(define-values" -"(add-provide!109.1)" -"(lambda(as-protected?98_0" -" as-transformer?99_0" -" r+p102_0" -" sym103_0" -" phase104_0" -" binding105_0" -" immed-binding106_0" -" id107_0" -" orig-s108_0)" +"(add-provide!117.1)" +"(lambda(as-protected?106_0" +" as-transformer?107_0" +" r+p110_0" +" sym111_0" +" phase112_0" +" binding113_0" +" immed-binding114_0" +" id115_0" +" orig-s116_0)" "(begin" -" 'add-provide!109" -"(let-values(((r+p_13) r+p102_0))" -"(let-values(((sym_40) sym103_0))" -"(let-values(((phase_66) phase104_0))" -"(let-values(((binding_13) binding105_0))" -"(let-values(((immed-binding_0) immed-binding106_0))" -"(let-values(((id_28) id107_0))" -"(let-values(((orig-s_2) orig-s108_0))" -"(let-values(((as-protected?_0) as-protected?98_0))" -"(let-values(((as-transformer?_2) as-transformer?99_0))" +" 'add-provide!117" +"(let-values(((r+p_14) r+p110_0))" +"(let-values(((sym_41) sym111_0))" +"(let-values(((phase_68) phase112_0))" +"(let-values(((binding_13) binding113_0))" +"(let-values(((immed-binding_0) immed-binding114_0))" +"(let-values(((id_28) id115_0))" +"(let-values(((orig-s_2) orig-s116_0))" +"(let-values(((as-protected?_0) as-protected?106_0))" +"(let-values(((as-transformer?_3) as-transformer?107_0))" "(let-values()" "(begin" "(if(if as-protected?_0" -"(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_13)))" +"(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_14)))" " #f)" "(let-values()" -" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_40))" +" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_41))" "(void))" "(hash-update!" -"(requires+provides-provides r+p_13)" -" phase_66" +"(requires+provides-provides r+p_14)" +" phase_68" "(lambda(at-phase_9)" -"(let-values(((b/p_0)(hash-ref at-phase_9 sym_40 #f)))" +"(let-values(((b/p_0)(hash-ref at-phase_9 sym_41 #f)))" "(let-values(((b_67)(provided-as-binding b/p_0)))" "(if(not b_67)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_13)" -"(let-values(((binding161_0) binding_13)((temp162_1) #f))" +"(let-values(((binding169_0) binding_13)((temp170_1) #f))" "(module-binding-update48.1" " #f" " #f" @@ -22970,7 +22990,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp162_1" +" temp170_1" " #t" " #f" " #f" @@ -22986,14 +23006,14 @@ static const char *startup_source = " #f" " #f" " #f" -" binding161_0))" +" binding169_0))" " binding_13)))" "(hash-set" " at-phase_9" -" sym_40" +" sym_41" "(if(let-values(((or-part_175) as-protected?_0))" -"(if or-part_175 or-part_175 as-transformer?_2))" -"(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" +"(if or-part_175 or-part_175 as-transformer?_3))" +"(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" " plain-binding_0))))" "(if(same-binding? b_67 binding_13)" "(let-values() at-phase_9)" @@ -23006,74 +23026,74 @@ static const char *startup_source = " '#hasheq())))))))))))))))" "(define-values" "(extract-requires-and-provides)" -"(lambda(r+p_14 old-self_0 new-self_1)" +"(lambda(r+p_15 old-self_0 new-self_1)" "(begin" "(let-values(((extract-requires_0)" "(lambda()" "(begin" " 'extract-requires" -"(let-values(((phase-to-mpis-in-order_0)(requires+provides-require-mpis-in-order r+p_14)))" +"(let-values(((phase-to-mpis-in-order_0)(requires+provides-require-mpis-in-order r+p_15)))" "(let-values(((phases-in-order_1)" -"(let-values(((temp163_0)(hash-keys phase-to-mpis-in-order_0))" -"((phasesym-set" -" id149_1))" +" id149_0))" " #f" " #f" " 'path))))" @@ -24277,7 +24297,7 @@ static const char *startup_source = " orig-s_11))" "(let-values()" "(let-values(((id_34)" -"(let-values(((lst_143)" +"(let-values(((lst_142)" " flat-s_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24285,20 +24305,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_143)))" -"((letrec-values(((for-loop_170)" +" lst_142)))" +"((letrec-values(((for-loop_171)" "(lambda(id_35" -" lst_144)" +" lst_143)" "(begin" " 'for-loop" "(if(pair?" -" lst_144)" +" lst_143)" "(let-values(((s_241)" "(unsafe-car" -" lst_144))" +" lst_143))" "((rest_72)" "(unsafe-cdr" -" lst_144)))" +" lst_143)))" "(let-values(((id_36)" "(let-values(((id_37)" " id_35))" @@ -24330,14 +24350,14 @@ static const char *startup_source = " id_38)))))" "(if(not" " #f)" -"(for-loop_170" +"(for-loop_171" " id_36" " rest_72)" " id_36)))" " id_35)))))" -" for-loop_170)" +" for-loop_171)" " null" -" lst_143)))))" +" lst_142)))))" "(reverse$1" " id_34)))))))))" "(values" @@ -24487,7 +24507,7 @@ static const char *startup_source = " orig-s_12))" "(let-values()" "(let-values(((id_39)" -"(let-values(((lst_145)" +"(let-values(((lst_144)" " flat-s_7))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24495,20 +24515,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_145)))" +" lst_144)))" "((letrec-values(((for-loop_141)" "(lambda(id_40" -" lst_146)" +" lst_145)" "(begin" " 'for-loop" "(if(pair?" -" lst_146)" +" lst_145)" "(let-values(((s_253)" "(unsafe-car" -" lst_146))" +" lst_145))" "((rest_73)" "(unsafe-cdr" -" lst_146)))" +" lst_145)))" "(let-values(((id_41)" "(let-values(((id_42)" " id_40))" @@ -24547,7 +24567,7 @@ static const char *startup_source = " id_40)))))" " for-loop_141)" " null" -" lst_145)))))" +" lst_144)))))" "(reverse$1" " id_39)))))))))" "(values" @@ -24924,14 +24944,14 @@ static const char *startup_source = " req_0))" "(not #f)" " #f)" -"(for-loop_169" +"(for-loop_170" " result_77" " rest_70)" " result_77)))" " result_76)))))" -" for-loop_169)" +" for-loop_170)" " #t" -" lst_141)))))))" +" lst_140)))))))" " loop_84)" " reqs_0" " #f" @@ -24945,15 +24965,15 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_147) ids_3))" +"(let-values(((lst_146) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" -"((letrec-values(((for-loop_171)" -"(lambda(table_143 lst_148)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" +"((letrec-values(((for-loop_172)" +"(lambda(table_143 lst_147)" "(begin" " 'for-loop" -"(if(pair? lst_148)" -"(let-values(((id_44)(unsafe-car lst_148))((rest_74)(unsafe-cdr lst_148)))" +"(if(pair? lst_147)" +"(let-values(((id_44)(unsafe-car lst_147))((rest_74)(unsafe-cdr lst_147)))" "(let-values(((table_144)" "(let-values(((table_145) table_143))" "(let-values(((table_146)" @@ -24965,11 +24985,11 @@ static const char *startup_source = " #t))))" "(hash-set table_145 key_54 val_46)))))" "(values table_146)))))" -"(if(not #f)(for-loop_171 table_144 rest_74) table_144)))" +"(if(not #f)(for-loop_172 table_144 rest_74) table_144)))" " table_143)))))" -" for-loop_171)" +" for-loop_172)" " '#hash()" -" lst_147))))))" +" lst_146))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -25329,10 +25349,10 @@ static const char *startup_source = " or-part_198" " copy-variable-phase-level_1))" "(lambda(binding_16" -" as-transformer?_3)" +" as-transformer?_4)" "(begin" " 'temp251" -"(let-values(((sym_42)" +"(let-values(((sym_43)" "(module-binding-nominal-sym" " binding_16)))" "(let-values(((provide-phase_0)" @@ -25341,12 +25361,12 @@ static const char *startup_source = "(let-values(((adjusted-sym_0)" "(if(not" "(symbol-interned?" -" sym_42))" +" sym_43))" "(let-values()" " #f)" "(if(if skip-variable-phase-level_1" "(if(not" -" as-transformer?_3)" +" as-transformer?_4)" "(equal?" " provide-phase_0" " skip-variable-phase-level_1)" @@ -25357,19 +25377,19 @@ static const char *startup_source = "(if(not" " adjust_1)" "(let-values()" -" sym_42)" +" sym_43)" "(if(adjust-only?" " adjust_1)" "(let-values()" "(if(set-member?" "(adjust-only-syms" " adjust_1)" -" sym_42)" +" sym_43)" "(if(hash-set!" " done-syms_0" -" sym_42" +" sym_43" " #t)" -" sym_42" +" sym_43" " #f)" " #f))" "(if(adjust-prefix?" @@ -25380,7 +25400,7 @@ static const char *startup_source = " \"~a~a\"" "(adjust-prefix-sym" " adjust_1)" -" sym_42)))" +" sym_43)))" "(if(adjust-all-except?" " adjust_1)" "(let-values()" @@ -25388,10 +25408,10 @@ static const char *startup_source = "(if(set-member?" "(adjust-all-except-syms" " adjust_1)" -" sym_42)" +" sym_43)" "(hash-set!" " done-syms_0" -" sym_42" +" sym_43" " #t)" " #f))" "(string->symbol" @@ -25399,18 +25419,18 @@ static const char *startup_source = " \"~a~a\"" "(adjust-all-except-prefix-sym" " adjust_1)" -" sym_42))" +" sym_43))" " #f))" "(if(adjust-rename?" " adjust_1)" "(let-values()" "(if(eq?" -" sym_42" +" sym_43" "(adjust-rename-from-sym" " adjust_1))" "(if(hash-set!" " done-syms_0" -" sym_42" +" sym_43" " #t)" "(adjust-rename-to-id" " adjust_1)" @@ -25484,7 +25504,7 @@ static const char *startup_source = "((can-be-shadowed?292_0)" " can-be-shadowed?_3)" "((as-transformer?293_0)" -" as-transformer?_3))" +" as-transformer?_4))" "(add-defined-or-required-id!19.1" " as-transformer?293_0" " can-be-shadowed?292_0" @@ -25499,7 +25519,7 @@ static const char *startup_source = "(begin" "(if(if copy-variable-phase-level_1" "(if(not" -" as-transformer?_3)" +" as-transformer?_4)" "(equal?" " provide-phase_0" " copy-variable-phase-level_1)" @@ -25508,7 +25528,7 @@ static const char *startup_source = "(let-values()" "(copy-namespace-value" " m-ns_10" -" sym_42" +" sym_43" " binding_16" " copy-variable-phase-level_1" " phase-shift_11" @@ -25542,7 +25562,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_149)" +"(let-values(((lst_148)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25551,19 +25571,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" -"((letrec-values(((for-loop_172)" -"(lambda(lst_150)" +" lst_148)))" +"((letrec-values(((for-loop_173)" +"(lambda(lst_149)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_149)" "(let-values(((update!_1)" "(unsafe-car" -" lst_150))" +" lst_149))" "((rest_75)" "(unsafe-cdr" -" lst_150)))" +" lst_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25575,12 +25595,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_173" " rest_75)" "(values))))" "(values))))))" -" for-loop_172)" -" lst_149)))" +" for-loop_173)" +" lst_148)))" "(void)))" "(void))" "(values))))" @@ -25619,12 +25639,12 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_103)))" -"((letrec-values(((for-loop_173)" +"((letrec-values(((for-loop_174)" "(lambda(i_137)" "(begin" " 'for-loop" "(if i_137" -"(let-values(((sym_43)" +"(let-values(((sym_44)" "(unsafe-immutable-hash-iterate-key" " ht_103" " i_137)))" @@ -25636,7 +25656,7 @@ static const char *startup_source = "(let-values()" "(if(hash-ref" " done-syms_0" -" sym_43" +" sym_44" " #f)" "(void)" "(let-values()" @@ -25644,18 +25664,18 @@ static const char *startup_source = " who_16" " \"not in nested spec\"" " orig-s_14" -" sym_43))))" +" sym_44))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_173" +"(for-loop_174" "(unsafe-immutable-hash-iterate-next" " ht_103" " i_137))" "(values))))" "(values))))))" -" for-loop_173)" +" for-loop_174)" "(unsafe-immutable-hash-iterate-first" " ht_103))))" "(void)))" @@ -25704,7 +25724,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_104)))" -"((letrec-values(((for-loop_174)" +"((letrec-values(((for-loop_175)" "(lambda(i_138)" "(begin" " 'for-loop" @@ -25729,7 +25749,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_69)" +"(let-values(((phase_71)" "(phase+" " phase-shift_12" " provide-phase-level_5)))" @@ -25745,7 +25765,7 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_151)" +"(let-values(((lst_150)" "(let-values(((or-part_200)" " only-syms_0))" "(if or-part_200" @@ -25758,19 +25778,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" -"((letrec-values(((for-loop_175)" -"(lambda(lst_152)" +" lst_150)))" +"((letrec-values(((for-loop_176)" +"(lambda(lst_151)" "(begin" " 'for-loop" "(if(pair?" -" lst_152)" -"(let-values(((sym_44)" +" lst_151)" +"(let-values(((sym_45)" "(unsafe-car" -" lst_152))" +" lst_151))" "((rest_76)" "(unsafe-cdr" -" lst_152)))" +" lst_151)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25780,7 +25800,7 @@ static const char *startup_source = "(let-values(((binding/p_4)" "(hash-ref" " provides_7" -" sym_44" +" sym_45" " #f)))" "(if binding/p_4" "(let-values()" @@ -25788,7 +25808,7 @@ static const char *startup_source = "(let-values(((binding/p294_0)" " binding/p_4)" "((sym295_0)" -" sym_44)" +" sym_45)" "((self296_0)" " self_13)" "((mpi297_0)" @@ -25804,12 +25824,12 @@ static const char *startup_source = " self296_0" " binding/p294_0" " sym295_0))))" -"(let-values(((sym_45)" +"(let-values(((sym_46)" "(filter_0" " b_68" "(provided-as-transformer?" " binding/p_4))))" -"(if(if sym_45" +"(if(if sym_46" "(not" " can-bulk?_0)" " #f)" @@ -25817,11 +25837,11 @@ static const char *startup_source = "(let-values(((temp300_0)" "(datum->syntax$1" " in-stx_2" -" sym_45))" +" sym_46))" "((b301_0)" " b_68)" "((phase302_0)" -" phase_69))" +" phase_71))" "(add-binding!17.1" " #f" " #f" @@ -25836,12 +25856,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_175" +"(for-loop_176" " rest_76)" "(values))))" "(values))))))" -" for-loop_175)" -" lst_151)))" +" for-loop_176)" +" lst_150)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25881,7 +25901,7 @@ static const char *startup_source = " phase-shift_12" " bulk-binding-registry_10))" "((phase305_0)" -" phase_69)" +" phase_71)" "((orig-s306_0)" " orig-s_15)" "((temp307_0)" @@ -25902,11 +25922,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_174" +"(for-loop_175" "(hash-iterate-next ht_104 i_138))" "(values))))" "(values))))))" -" for-loop_174)" +" for-loop_175)" "(hash-iterate-first ht_104))))" "(void)))))))))))))))))))))))" "(define-values" @@ -26262,12 +26282,12 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" +"(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_47 trans?_0 trans-val_0)" "(let-values(((phase_47)(phase+ orig-phase_0 phase-shift_14)))" "(let-values(((b_69)" "(let-values(((mpi4_0) mpi_41)" "((phase5_0) phase_47)" -"((sym6_1) sym_46)" +"((sym6_1) sym_47)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" " #f" @@ -26296,7 +26316,7 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f id1_3 b2_4 phase3_1))" "(if trans?_0" "(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_47))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_47 sym_46)))))))" +"(let-values()(namespace-unset-transformer! ns_51 phase_47 sym_47)))))))" " top-level-require!-id" "(lambda(stx_12 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_12))))" @@ -26552,7 +26572,7 @@ static const char *startup_source = "(begin(check-vector vec_57)(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_177)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -26567,9 +26587,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_176(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_177(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_176)" +" for-loop_177)" " 0)))" "(void)" "(cons pos_84(vector-length vec_55)))))))" @@ -26701,24 +26721,24 @@ static const char *startup_source = "(lambda(sl_6)(begin(list->vector(reverse$1(syntax-literals-stxes sl_6))))))" "(define-values" "(select-fresh)" -"(lambda(sym_47 header_0)" +"(lambda(sym_48 header_0)" "(begin" -"(if(symbol-conflicts? sym_47 header_0)" +"(if(symbol-conflicts? sym_48 header_0)" "((letrec-values(((loop_86)" "(lambda(pos_88)" "(begin" " 'loop" -" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_47))))" +" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_48))))" "(if(symbol-conflicts? new-sym_0 header_0)(loop_86(add1 pos_88)) new-sym_0))))))" " loop_86)" " 1)" -" sym_47))))" +" sym_48))))" "(define-values" "(symbol-conflicts?)" -"(lambda(sym_48 header_1)" +"(lambda(sym_49 header_1)" "(begin" -"(let-values(((or-part_165)(built-in-symbol? sym_48)))" -"(if or-part_165 or-part_165(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_165)(built-in-symbol? sym_49)))" +"(if or-part_165 or-part_165(hash-ref(header-define-and-import-syms header_1) sym_49 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" @@ -26726,29 +26746,29 @@ static const char *startup_source = " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" "(let-values(((mpi_42) mpi15_0))" -"(let-values(((phase_70) phase16_1))" -"(let-values(((sym_49) sym17_0))" +"(let-values(((phase_72) phase16_1))" +"(let-values(((sym_50) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_42 phase_70) sym_49)))" +"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_42 phase_72) sym_50)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" "(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" "(let-values(((var-sym_0)" "(let-values(((or-part_202) prev-var-sym_0))" "(if or-part_202" " or-part_202" -"(let-values(((sym_50)(select-fresh(variable-use-sym key_55) header_2)))" +"(let-values(((sym_51)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_55 sym_50)" +"(hash-set! variable-uses_0 key_55 sym_51)" "(set-header-require-vars-in-order!" " header_2" "(cons key_55(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" -" sym_50" +" sym_51" "(if defined?_2 'defined 'required))" -" sym_50))))))" +" sym_51))))))" "(begin" "(if(if extra-inspector_4(not prev-var-sym_0) #f)" "(let-values()" @@ -26769,21 +26789,21 @@ static const char *startup_source = "(begin(eq? 'required(hash-ref(header-define-and-import-syms header_4) var-sym_1 #f)))))" "(define-values" "(generate-links+imports)" -"(lambda(header_5 phase_71 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_5 phase_73 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_153)(header-require-vars-in-order header_5)))" +"(let-values(((lst_152)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_153)))" -"((letrec-values(((for-loop_177)" -"(lambda(ht_105 link-mod-uses_1 lst_154)" +"(let-values()(check-list lst_152)))" +"((letrec-values(((for-loop_178)" +"(lambda(ht_105 link-mod-uses_1 lst_153)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((vu_0)(unsafe-car lst_154))" -"((rest_77)(unsafe-cdr lst_154)))" +"(if(pair? lst_153)" +"(let-values(((vu_0)(unsafe-car lst_153))" +"((rest_77)(unsafe-cdr lst_153)))" "(let-values(((ht_106 link-mod-uses_2)" "(let-values(((ht_107) ht_105)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26816,28 +26836,28 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_108 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_177 ht_106 link-mod-uses_2 rest_77)" +"(for-loop_178 ht_106 link-mod-uses_2 rest_77)" "(values ht_106 link-mod-uses_2))))" "(values ht_105 link-mod-uses_1))))))" -" for-loop_177)" +" for-loop_178)" " '#hash()" " null" -" lst_153)))))" +" lst_152)))))" "(values" " link-mod-uses_0" "(reverse$1" "(let-values(((lst_34) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_141 lst_155)" +"((letrec-values(((for-loop_179)" +"(lambda(fold-var_139 lst_154)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" +"(if(pair? lst_154)" +"(let-values(((mu_3)(unsafe-car lst_154))((rest_78)(unsafe-cdr lst_154)))" +"(let-values(((fold-var_140)" +"(let-values(((fold-var_141) fold-var_139))" "(let-values(((fold-var_142)" -"(let-values(((fold-var_143) fold-var_141))" -"(let-values(((fold-var_144)" "(let-values()" "(cons" "(let-values()" @@ -26850,28 +26870,28 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_109)))" -"((letrec-values(((for-loop_179)" -"(lambda(fold-var_145" -" lst_156)" +"((letrec-values(((for-loop_180)" +"(lambda(fold-var_143" +" lst_155)" "(begin" " 'for-loop" "(if(pair?" -" lst_156)" +" lst_155)" "(let-values(((vu_1)" "(unsafe-car" -" lst_156))" +" lst_155))" "((rest_79)" "(unsafe-cdr" -" lst_156)))" -"(let-values(((fold-var_146)" -"(let-values(((fold-var_147)" -" fold-var_145))" +" lst_155)))" +"(let-values(((fold-var_144)" +"(let-values(((fold-var_145)" +" fold-var_143))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" -"(let-values(((fold-var_148)" -" fold-var_147))" +"(let-values(((fold-var_146)" +" fold-var_145))" "(let-values(((fold-var_39)" "(let-values()" "(cons" @@ -26891,39 +26911,39 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_148))))" +" fold-var_146))))" "(values" " fold-var_39)))" -" fold-var_147))))" +" fold-var_145))))" "(if(not #f)" -"(for-loop_179" -" fold-var_146" +"(for-loop_180" +" fold-var_144" " rest_79)" -" fold-var_146)))" -" fold-var_145)))))" -" for-loop_179)" +" fold-var_144)))" +" fold-var_143)))))" +" for-loop_180)" " null" " lst_109)))))" -" fold-var_143))))" -"(values fold-var_144)))))" -"(if(not #f)(for-loop_178 fold-var_142 rest_78) fold-var_142)))" -" fold-var_141)))))" -" for-loop_178)" +" fold-var_141))))" +"(values fold-var_142)))))" +"(if(not #f)(for-loop_179 fold-var_140 rest_78) fold-var_140)))" +" fold-var_139)))))" +" for-loop_179)" " null" " lst_34))))" "(reverse$1" -"(let-values(((lst_157) link-mod-uses_0))" +"(let-values(((lst_156) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_41 lst_158)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" +"((letrec-values(((for-loop_181)" +"(lambda(fold-var_41 lst_157)" "(begin" " 'for-loop" -"(if(pair? lst_158)" -"(let-values(((mu_4)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" +"(if(pair? lst_157)" +"(let-values(((mu_4)(unsafe-car lst_157))((rest_80)(unsafe-cdr lst_157)))" +"(let-values(((fold-var_147)" +"(let-values(((fold-var_148) fold-var_41))" "(let-values(((fold-var_149)" -"(let-values(((fold-var_150) fold-var_41))" -"(let-values(((fold-var_151)" "(let-values()" "(cons" "(let-values()" @@ -26939,17 +26959,17 @@ static const char *startup_source = "(check-list lst_110)))" "((letrec-values(((for-loop_126)" "(lambda(table_147" -" lst_159)" +" lst_158)" "(begin" " 'for-loop" "(if(pair?" -" lst_159)" +" lst_158)" "(let-values(((vu_2)" "(unsafe-car" -" lst_159))" +" lst_158))" "((rest_81)" "(unsafe-cdr" -" lst_159)))" +" lst_158)))" "(let-values(((table_148)" "(let-values(((table_34)" " table_147))" @@ -26964,7 +26984,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_182)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -26978,7 +26998,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_182)" +"((letrec-values(((for-loop_183)" "(lambda(table_149)" "(begin" " 'for-loop" @@ -27009,10 +27029,10 @@ static const char *startup_source = " table_123)))" " table_151))))" " table_150))))))" -" for-loop_182)" +" for-loop_183)" " table_31)))))" " table_32))))))" -" for-loop_181)" +" for-loop_182)" " table_34)))" " table_34))))" "(if(not" @@ -27028,25 +27048,25 @@ static const char *startup_source = "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_150))))" -"(values fold-var_151)))))" -"(if(not #f)(for-loop_180 fold-var_149 rest_80) fold-var_149)))" +" fold-var_148))))" +"(values fold-var_149)))))" +"(if(not #f)(for-loop_181 fold-var_147 rest_80) fold-var_147)))" " fold-var_41)))))" -" for-loop_180)" +" for-loop_181)" " null" -" lst_157))))" +" lst_156))))" "(reverse$1" -"(let-values(((lst_160)(header-require-vars-in-order header_5)))" +"(let-values(((lst_159)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_160)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_152 lst_161)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_150 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_161)" -"(let-values(((vu_3)(unsafe-car lst_161))((rest_82)(unsafe-cdr lst_161)))" -"(let-values(((fold-var_153)" -"(let-values(((fold-var_154) fold-var_152))" +"(if(pair? lst_160)" +"(let-values(((vu_3)(unsafe-car lst_160))((rest_82)(unsafe-cdr lst_160)))" +"(let-values(((fold-var_151)" +"(let-values(((fold-var_152) fold-var_150))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" @@ -27055,8 +27075,8 @@ static const char *startup_source = "(if or-part_205" " or-part_205" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_155) fold-var_154))" -"(let-values(((fold-var_156)" +"(let-values(((fold-var_153) fold-var_152))" +"(let-values(((fold-var_154)" "(let-values()" "(cons" "(let-values()" @@ -27070,14 +27090,14 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" -" fold-var_155))))" -"(values fold-var_156)))" -" fold-var_154))))" -"(if(not #f)(for-loop_183 fold-var_153 rest_82) fold-var_153)))" -" fold-var_152)))))" -" for-loop_183)" +" fold-var_153))))" +"(values fold-var_154)))" +" fold-var_152))))" +"(if(not #f)(for-loop_184 fold-var_151 rest_82) fold-var_151)))" +" fold-var_150)))))" +" for-loop_184)" " null" -" lst_160)))))))))" +" lst_159)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27295,23 +27315,23 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_162)(parsed-case-lambda-clauses p_36)))" +"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_157 lst_163)" +"(let-values()(check-list lst_161)))" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_155 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_163)" +"(if(pair? lst_162)" "(let-values(((clause_0)" -"(unsafe-car lst_163))" +"(unsafe-car lst_162))" "((rest_83)" -"(unsafe-cdr lst_163)))" +"(unsafe-cdr lst_162)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29)" -" fold-var_157))" +" fold-var_155))" "(let-values(((fold-var_30)" "(let-values()" "(cons" @@ -27326,12 +27346,12 @@ static const char *startup_source = "(values" " fold-var_30)))))" "(if(not #f)" -"(for-loop_184 fold-var_28 rest_83)" +"(for-loop_185 fold-var_28 rest_83)" " fold-var_28)))" -" fold-var_157)))))" -" for-loop_184)" +" fold-var_155)))))" +" for-loop_185)" " null" -" lst_162))))))" +" lst_161))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" @@ -27348,17 +27368,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_158 lst_164)" +"((letrec-values(((for-loop_186)" +"(lambda(fold-var_156 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_164)" -"(let-values(((r_38)(unsafe-car lst_164))" +"(if(pair? lst_163)" +"(let-values(((r_38)(unsafe-car lst_163))" "((rest_42)" -"(unsafe-cdr lst_164)))" -"(let-values(((fold-var_159)" +"(unsafe-cdr lst_163)))" +"(let-values(((fold-var_157)" "(let-values(((fold-var_9)" -" fold-var_158))" +" fold-var_156))" "(let-values(((fold-var_70)" "(let-values()" "(cons" @@ -27371,10 +27391,10 @@ static const char *startup_source = "(values" " fold-var_70)))))" "(if(not #f)" -"(for-loop_185 fold-var_159 rest_42)" -" fold-var_159)))" -" fold-var_158)))))" -" for-loop_185)" +"(for-loop_186 fold-var_157 rest_42)" +" fold-var_157)))" +" fold-var_156)))))" +" for-loop_186)" " null" " lst_42))))))))" "(if(parsed-if? p_36)" @@ -27431,7 +27451,7 @@ static const char *startup_source = "(let-values(((fold-var_92)" "(let-values(((fold-var_93)" " fold-var_11))" -"(let-values(((fold-var_160)" +"(let-values(((fold-var_158)" "(let-values()" "(cons" "(let-values()" @@ -27441,7 +27461,7 @@ static const char *startup_source = " #f))" " fold-var_93))))" "(values" -" fold-var_160)))))" +" fold-var_158)))))" "(if(not #f)" "(for-loop_107" " fold-var_92" @@ -27563,22 +27583,22 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_165) es_0)((start_33) 0))" +"(let-values(((lst_164) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_165)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_161 lst_96 pos_90)" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_159 lst_96 pos_90)" "(begin" " 'for-loop" "(if(if(pair? lst_96) #t #f)" "(let-values(((e_34)(unsafe-car lst_96))" "((rest_84)(unsafe-cdr lst_96))" "((i_43) pos_90))" -"(let-values(((fold-var_162)" -"(let-values(((fold-var_81) fold-var_161))" +"(let-values(((fold-var_160)" +"(let-values(((fold-var_81) fold-var_159))" "(let-values(((fold-var_82)" "(let-values()" "(cons" @@ -27591,11 +27611,11 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_81))))" "(values fold-var_82)))))" -"(if(not #f)(for-loop_186 fold-var_162 rest_84(+ pos_90 1)) fold-var_162)))" -" fold-var_161)))))" -" for-loop_186)" +"(if(not #f)(for-loop_187 fold-var_160 rest_84(+ pos_90 1)) fold-var_160)))" +" fold-var_159)))))" +" for-loop_187)" " null" -" lst_165" +" lst_164" " start_33)))))))))" "(define-values" "(add-lambda-properties)" @@ -27650,26 +27670,26 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_166)(parsed-let_-values-clauses p_41))" -"((lst_167)(parsed-let_-values-idss p_41)))" +"(let-values(((lst_165)(parsed-let_-values-clauses p_41))" +"((lst_166)(parsed-let_-values-idss p_41)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_165)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_166)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_167)))" -"((letrec-values(((for-loop_187)" -"(lambda(fold-var_163 lst_168 lst_169)" +"((letrec-values(((for-loop_188)" +"(lambda(fold-var_161 lst_167 lst_168)" "(begin" " 'for-loop" -"(if(if(pair? lst_168)(pair? lst_169) #f)" -"(let-values(((clause_1)(unsafe-car lst_168))" -"((rest_85)(unsafe-cdr lst_168))" -"((ids_4)(unsafe-car lst_169))" -"((rest_86)(unsafe-cdr lst_169)))" -"(let-values(((fold-var_164)" -"(let-values(((fold-var_165) fold-var_163))" +"(if(if(pair? lst_167)(pair? lst_168) #f)" +"(let-values(((clause_1)(unsafe-car lst_167))" +"((rest_85)(unsafe-cdr lst_167))" +"((ids_4)(unsafe-car lst_168))" +"((rest_86)(unsafe-cdr lst_168)))" +"(let-values(((fold-var_162)" +"(let-values(((fold-var_163) fold-var_161))" "(let-values(((fold-var_0)" "(let-values()" "(cons" @@ -27677,10 +27697,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_170)" +"(let-values(((lst_169)" "(car" " clause_1))" -"((lst_171)" +"((lst_170)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27688,61 +27708,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_170)))" +" lst_169)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_171)))" -"((letrec-values(((for-loop_188)" +" lst_170)))" +"((letrec-values(((for-loop_189)" "(lambda(fold-var_2" -" lst_172" -" lst_173)" +" lst_171" +" lst_172)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_172)" +" lst_171)" "(pair?" -" lst_173)" +" lst_172)" " #f)" -"(let-values(((sym_51)" +"(let-values(((sym_52)" "(unsafe-car" -" lst_172))" +" lst_171))" "((rest_87)" "(unsafe-cdr" -" lst_172))" +" lst_171))" "((id_46)" "(unsafe-car" -" lst_173))" +" lst_172))" "((rest_88)" "(unsafe-cdr" -" lst_173)))" +" lst_172)))" "(let-values(((fold-var_94)" -"(let-values(((fold-var_166)" +"(let-values(((fold-var_164)" " fold-var_2))" -"(let-values(((fold-var_167)" +"(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" -" sym_51" +" sym_52" " id_46))" -" fold-var_166))))" +" fold-var_164))))" "(values" -" fold-var_167)))))" +" fold-var_165)))))" "(if(not" " #f)" -"(for-loop_188" +"(for-loop_189" " fold-var_94" " rest_87" " rest_88)" " fold-var_94)))" " fold-var_2)))))" -" for-loop_188)" +" for-loop_189)" " null" -" lst_170" -" lst_171))))" +" lst_169" +" lst_170))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27750,22 +27770,22 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_165))))" +" fold-var_163))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_187 fold-var_164 rest_85 rest_86)" -" fold-var_164)))" -" fold-var_163)))))" -" for-loop_187)" +"(for-loop_188 fold-var_162 rest_85 rest_86)" +" fold-var_162)))" +" fold-var_161)))))" +" for-loop_188)" " null" -" lst_166" -" lst_167))))" +" lst_165" +" lst_166))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" -"(lambda(sym_49 orig-id_0)" +"(lambda(sym_50 orig-id_0)" "(begin" -"(let-values(((id_47)(correlate~ orig-id_0 sym_49)))" +"(let-values(((id_47)(correlate~ orig-id_0 sym_50)))" "(correlated-property" "(->correlated id_47)" " 'undefined-error-name" @@ -27978,17 +27998,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91 lst_174)" +"(lambda(fold-var_11 lst_91 lst_173)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_174) #f)" +"(if(if(pair? lst_91)(pair? lst_173) #f)" "(let-values(((mu_5)(unsafe-car lst_91))" "((rest_89)(unsafe-cdr lst_91))" -"((extra-inspectorss_1)(unsafe-car lst_174))" -"((rest_37)(unsafe-cdr lst_174)))" +"((extra-inspectorss_1)(unsafe-car lst_173))" +"((rest_37)(unsafe-cdr lst_173)))" +"(let-values(((fold-var_166)" +"(let-values(((fold-var_167) fold-var_11))" "(let-values(((fold-var_168)" -"(let-values(((fold-var_169) fold-var_11))" -"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -27997,9 +28017,9 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_169))))" -"(values fold-var_170)))))" -"(if(not #f)(for-loop_107 fold-var_168 rest_89 rest_37) fold-var_168)))" +" fold-var_167))))" +"(values fold-var_168)))))" +"(if(not #f)(for-loop_107 fold-var_166 rest_89 rest_37) fold-var_166)))" " fold-var_11)))))" " for-loop_107)" " null" @@ -28010,15 +28030,15 @@ static const char *startup_source = "(let-values(((lst_92) mus_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_189)" -"(lambda(fold-var_171 lst_17)" +"((letrec-values(((for-loop_190)" +"(lambda(fold-var_169 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_90)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_172) fold-var_171))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_170) fold-var_169))" +"(let-values(((fold-var_171)" "(let-values()" "(cons" "(let-values()" @@ -28027,11 +28047,11 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_172))))" -"(values fold-var_173)))))" -"(if(not #f)(for-loop_189 fold-var_63 rest_90) fold-var_63)))" -" fold-var_171)))))" -" for-loop_189)" +" fold-var_170))))" +"(values fold-var_171)))))" +"(if(not #f)(for-loop_190 fold-var_63 rest_90) fold-var_63)))" +" fold-var_169)))))" +" for-loop_190)" " null" " lst_92)))))))))" "(define-values" @@ -28039,18 +28059,18 @@ static const char *startup_source = "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_175) mu*s_0))" +"(let-values(((lst_174) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_190)" -"(lambda(fold-var_72 lst_176)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_191)" +"(lambda(fold-var_72 lst_175)" "(begin" " 'for-loop" -"(if(pair? lst_176)" -"(let-values(((mu*_0)(unsafe-car lst_176))((rest_91)(unsafe-cdr lst_176)))" +"(if(pair? lst_175)" +"(let-values(((mu*_0)(unsafe-car lst_175))((rest_91)(unsafe-cdr lst_175)))" "(let-values(((fold-var_17)" "(let-values(((fold-var_73) fold-var_72))" -"(let-values(((fold-var_174)" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" @@ -28058,12 +28078,12 @@ static const char *startup_source = "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" " fold-var_73))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_190 fold-var_17 rest_91) fold-var_17)))" +"(values fold-var_172)))))" +"(if(not #f)(for-loop_191 fold-var_17 rest_91) fold-var_17)))" " fold-var_72)))))" -" for-loop_190)" +" for-loop_191)" " null" -" lst_175)))))))" +" lst_174)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -28071,47 +28091,47 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_177) mu*s_1))" +"(let-values(((lst_176) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_191)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_192)" "(lambda(fold-var_76 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_92)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_175)" +"(let-values(((fold-var_173)" "(let-values(((fold-var_4) fold-var_76))" -"(let-values(((fold-var_176)" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_176)))))" -"(if(not #f)(for-loop_191 fold-var_175 rest_92) fold-var_175)))" +"(values fold-var_174)))))" +"(if(not #f)(for-loop_192 fold-var_173 rest_92) fold-var_173)))" " fold-var_76)))))" -" for-loop_191)" +" for-loop_192)" " null" -" lst_177)))))" +" lst_176)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_178) mu*s_1)((lst_179)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_177) mu*s_1)((lst_178)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" "((letrec-values(((for-loop_28)" -"(lambda(fold-var_6 lst_180 lst_181)" +"(lambda(fold-var_6 lst_179 lst_180)" "(begin" " 'for-loop" -"(if(if(pair? lst_180)(pair? lst_181) #f)" -"(let-values(((mu*_2)(unsafe-car lst_180))" -"((rest_93)(unsafe-cdr lst_180))" -"((imports_0)(unsafe-car lst_181))" -"((rest_94)(unsafe-cdr lst_181)))" -"(let-values(((fold-var_161)" -"(let-values(((fold-var_177) fold-var_6))" -"(let-values(((fold-var_178)" +"(if(if(pair? lst_179)(pair? lst_180) #f)" +"(let-values(((mu*_2)(unsafe-car lst_179))" +"((rest_93)(unsafe-cdr lst_179))" +"((imports_0)(unsafe-car lst_180))" +"((rest_94)(unsafe-cdr lst_180)))" +"(let-values(((fold-var_159)" +"(let-values(((fold-var_175) fold-var_6))" +"(let-values(((fold-var_176)" "(let-values()" "(cons" "(let-values()" @@ -28126,17 +28146,17 @@ static const char *startup_source = "(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_182)" +" lst_181)" "(begin" " 'for-loop" "(if(pair?" -" lst_182)" +" lst_181)" "(let-values(((import_0)" "(unsafe-car" -" lst_182))" +" lst_181))" "((rest_95)" "(unsafe-cdr" -" lst_182)))" +" lst_181)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -28169,20 +28189,20 @@ static const char *startup_source = " for-loop_19)" " extra-inspectorss_2" " lst_97)))))" -" fold-var_177))))" -"(values fold-var_178)))))" -"(if(not #f)(for-loop_28 fold-var_161 rest_93 rest_94) fold-var_161)))" +" fold-var_175))))" +"(values fold-var_176)))))" +"(if(not #f)(for-loop_28 fold-var_159 rest_93 rest_94) fold-var_159)))" " fold-var_6)))))" " for-loop_28)" " null" -" lst_178" -" lst_179)))))))))" +" lst_177" +" lst_178)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_44 phase_72 imports_1 inspector_11 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_44 phase_74 imports_1 inspector_11 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_11(inspector-superior? inspector_11 now-inspector_0) #f)))" @@ -28191,18 +28211,18 @@ static const char *startup_source = "(let-values(((new-extra-inspectorss_0)" "(if(let-values(((or-part_211) add-insp?_0))(if or-part_211 or-part_211 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_183) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_183)))" -"((letrec-values(((for-loop_192)" -"(lambda(table_153 lst_184)" +"(let-values()(check-list lst_182)))" +"((letrec-values(((for-loop_193)" +"(lambda(table_153 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_184)" -"(let-values(((import_1)(unsafe-car lst_184))" -"((rest_96)(unsafe-cdr lst_184)))" +"(if(pair? lst_183)" +"(let-values(((import_1)(unsafe-car lst_183))" +"((rest_96)(unsafe-cdr lst_183)))" "(let-values(((table_154)" "(let-values(((table_155) table_153))" "(let-values(((table_156)" @@ -28244,24 +28264,24 @@ static const char *startup_source = " key_57" " val_50)))))" "(values table_156)))))" -"(if(not #f)(for-loop_192 table_154 rest_96) table_154)))" +"(if(not #f)(for-loop_193 table_154 rest_96) table_154)))" " table_153)))))" -" for-loop_192)" +" for-loop_193)" " '#hash()" -" lst_183))))" +" lst_182))))" "(let-values()" -"(let-values(((lst_185) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_185)))" -"((letrec-values(((for-loop_193)" -"(lambda(extra-inspectorss_8 lst_186)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_194)" +"(lambda(extra-inspectorss_8 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_186)" -"(let-values(((import_2)(unsafe-car lst_186))" -"((rest_97)(unsafe-cdr lst_186)))" +"(if(pair? lst_185)" +"(let-values(((import_2)(unsafe-car lst_185))" +"((rest_97)(unsafe-cdr lst_185)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28278,14 +28298,14 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_193 extra-inspectorss_9 rest_97)" +"(for-loop_194 extra-inspectorss_9 rest_97)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_193)" +" for-loop_194)" "(let-values(((or-part_212) extra-inspectorss_7))" "(if or-part_212 or-part_212(seteq)))" -" lst_185)))))))" -"(module-use*1.1 mpi_44 phase_72 new-extra-inspectorss_0 #f))))))))" +" lst_184)))))))" +"(module-use*1.1 mpi_44 phase_74 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28298,12 +28318,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_110)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_195)" "(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" "(if i_140" -"(let-values(((sym_52 extra-inspectors_4)" +"(let-values(((sym_53 extra-inspectors_4)" "(hash-iterate-key+value ht_110 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" @@ -28312,21 +28332,21 @@ static const char *startup_source = "(let-values()" "(hash-set" " new-extra-inspectorss_4" -" sym_52" +" sym_53" "(extra-inspectors-merge" " extra-inspectors_4" "(hash-ref" " new-extra-inspectorss_4" -" sym_52" +" sym_53" "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_195" " new-extra-inspectorss_3" "(hash-iterate-next ht_110 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_194)" +" for-loop_195)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_110))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28407,28 +28427,28 @@ static const char *startup_source = "(let-values(((cross-linklet-inlining?_1)" "(if cross-linklet-inlining?27_0 cross-linklet-inlining?14_0 #t)))" "(let-values()" -"(let-values(((phase_73)(compile-context-phase cctx_3)))" +"(let-values(((phase_75)(compile-context-phase cctx_3)))" "(let-values(((self_18)(compile-context-self cctx_3)))" "(let-values(((syntax-literals_1)(make-syntax-literals)))" "(let-values(((phase-to-body_0)(make-hasheqv)))" "(let-values(((add-body!_0)" -"(lambda(phase_72 body_1)" +"(lambda(phase_74 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_72" +" phase_74" "(lambda(l_54)(cons body_1 l_54))" " null)))))" "(let-values(((phase-to-header_0)(make-hasheqv)))" "(let-values(((find-or-create-header!_0)" -"(lambda(phase_74)" +"(lambda(phase_76)" "(begin" " 'find-or-create-header!" "(let-values(((or-part_206)" "(hash-ref" " phase-to-header_0" -" phase_74" +" phase_76" " #f)))" "(if or-part_206" " or-part_206" @@ -28439,28 +28459,28 @@ static const char *startup_source = "(begin" "(hash-set!" " phase-to-header_0" -" phase_74" +" phase_76" " header_7)" " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_187) force-phases_0))" +"(let-values(((lst_186) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_187)))" -"((letrec-values(((for-loop_195)" -"(lambda(lst_188)" +"(let-values()(check-list lst_186)))" +"((letrec-values(((for-loop_196)" +"(lambda(lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_188)" -"(let-values(((phase_75)" +"(if(pair? lst_187)" +"(let-values(((phase_77)" "(unsafe-car" -" lst_188))" +" lst_187))" "((rest_98)" "(unsafe-cdr" -" lst_188)))" +" lst_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28469,19 +28489,19 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_75)" +" phase_77)" "(add-body!_0" -" phase_75" +" phase_77" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_195" +"(for-loop_196" " rest_98)" "(values))))" "(values))))))" -" for-loop_195)" -" lst_187)))" +" for-loop_196)" +" lst_186)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28491,12 +28511,12 @@ static const char *startup_source = "(let-values()" "((letrec-values(((loop!_0)" "(lambda(bodys_3" -" phase_76" +" phase_78" " header_8)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_189)" +"(let-values(((lst_188)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28504,19 +28524,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" -"((letrec-values(((for-loop_196)" -"(lambda(lst_190)" +" lst_188)))" +"((letrec-values(((for-loop_197)" +"(lambda(lst_189)" "(begin" " 'for-loop" "(if(pair?" -" lst_190)" +" lst_189)" "(let-values(((body_2)" "(unsafe-car" -" lst_190))" +" lst_189))" "((rest_99)" "(unsafe-cdr" -" lst_190)))" +" lst_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28527,7 +28547,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_191)" +"(let-values(((lst_190)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28536,19 +28556,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" -"((letrec-values(((for-loop_197)" -"(lambda(lst_192)" +" lst_190)))" +"((letrec-values(((for-loop_198)" +"(lambda(lst_191)" "(begin" " 'for-loop" "(if(pair?" -" lst_192)" -"(let-values(((sym_53)" +" lst_191)" +"(let-values(((sym_54)" "(unsafe-car" -" lst_192))" +" lst_191))" "((rest_100)" "(unsafe-cdr" -" lst_192)))" +" lst_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28557,18 +28577,18 @@ static const char *startup_source = "(let-values()" "(let-values(((def-sym_1)" "(select-fresh" -" sym_53" +" sym_54" " header_8)))" "(begin" "(hash-set!" "(header-binding-sym-to-define-sym" " header_8)" -" sym_53" +" sym_54" " def-sym_1)" "(set-header-binding-syms-in-order!" " header_8" "(cons" -" sym_53" +" sym_54" "(header-binding-syms-in-order" " header_8)))" "(register-as-defined!" @@ -28578,12 +28598,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_197" +"(for-loop_198" " rest_100)" "(values))))" "(values))))))" -" for-loop_197)" -" lst_191)))" +" for-loop_198)" +" lst_190)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28592,47 +28612,47 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_2)" "(add1" -" phase_76)" +" phase_78)" "(find-or-create-header!_0" "(add1" -" phase_76))))" +" phase_78))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_196" +"(for-loop_197" " rest_99)" "(values))))" "(values))))))" -" for-loop_196)" -" lst_189)))" +" for-loop_197)" +" lst_188)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_73" -"(find-or-create-header!_0 phase_73)))" +" phase_75" +"(find-or-create-header!_0 phase_75)))" "(void))" "(values))))" "(let-values(((as-required?_0)" "(lambda(header_9)" "(begin" " 'as-required?" -"(lambda(sym_54)" +"(lambda(sym_55)" "(registered-as-required?" " header_9" -" sym_54))))))" +" sym_55))))))" "(let-values(((last-i_0)(sub1(length bodys_2))))" "(let-values((()" "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_77" +" phase_79" " header_10)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_193)" +"(let-values(((lst_192)" " bodys_4)" "((start_34)" " 0))" @@ -28642,7 +28662,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_193)))" +" lst_192)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -28650,20 +28670,20 @@ static const char *startup_source = "(check-naturals" " start_34)))" "((letrec-values(((for-loop_117)" -"(lambda(lst_194" +"(lambda(lst_193" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_194)" +" lst_193)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_194))" +" lst_193))" "((rest_86)" "(unsafe-cdr" -" lst_194))" +" lst_193))" "((i_141)" " pos_92))" "(let-values((()" @@ -28686,7 +28706,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_195)" +"(let-values(((lst_194)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28694,22 +28714,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_198)" +" lst_194)))" +"((letrec-values(((for-loop_199)" "(lambda(fold-var_3" -" lst_173)" +" lst_172)" "(begin" " 'for-loop" "(if(pair?" -" lst_173)" +" lst_172)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_173))" +" lst_172))" "((rest_87)" "(unsafe-cdr" -" lst_173)))" -"(let-values(((fold-var_179)" -"(let-values(((fold-var_180)" +" lst_172)))" +"(let-values(((fold-var_177)" +"(let-values(((fold-var_178)" " fold-var_3))" "(let-values(((fold-var_94)" "(let-values()" @@ -28719,19 +28739,19 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_180))))" +" fold-var_178))))" "(values" " fold-var_94)))))" "(if(not" " #f)" -"(for-loop_198" -" fold-var_179" +"(for-loop_199" +" fold-var_177" " rest_87)" -" fold-var_179)))" +" fold-var_177)))" " fold-var_3)))))" -" for-loop_198)" +" for-loop_199)" " null" -" lst_195)))))" +" lst_194)))))" "(let-values()" "(reverse$1" "(let-values(((lst_104)" @@ -28743,23 +28763,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_104)))" -"((letrec-values(((for-loop_199)" -"(lambda(fold-var_181" -" lst_196)" +"((letrec-values(((for-loop_200)" +"(lambda(fold-var_179" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_196)" +" lst_195)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_196))" +" lst_195))" "((rest_101)" "(unsafe-cdr" -" lst_196)))" +" lst_195)))" +"(let-values(((fold-var_180)" +"(let-values(((fold-var_181)" +" fold-var_179))" "(let-values(((fold-var_182)" -"(let-values(((fold-var_183)" -" fold-var_181))" -"(let-values(((fold-var_184)" "(let-values()" "(cons" "(let-values()" @@ -28769,7 +28789,7 @@ static const char *startup_source = "(compile-context-self" " cctx_3))" "((phase37_1)" -" phase_77)" +" phase_79)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_0)" @@ -28784,17 +28804,17 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_183))))" +" fold-var_181))))" "(values" -" fold-var_184)))))" +" fold-var_182)))))" "(if(not" " #f)" -"(for-loop_199" -" fold-var_182" +"(for-loop_200" +" fold-var_180" " rest_101)" -" fold-var_182)))" -" fold-var_181)))))" -" for-loop_199)" +" fold-var_180)))" +" fold-var_179)))))" +" for-loop_200)" " null" " lst_104))))))))" "(let-values(((rhs_1)" @@ -28806,7 +28826,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_46)" "(let-values(((phase41_0)" -" phase_77)" +" phase_79)" "((header42_0)" " header_10))" "(compile-context1.1" @@ -28839,11 +28859,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_77" +" phase_79" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_77" +" phase_79" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28865,7 +28885,7 @@ static const char *startup_source = "(let-values()" "(begin" "(add-body!_0" -" phase_77" +" phase_79" "(list*" " 'if" " #f" @@ -28881,23 +28901,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_106)))" -"((letrec-values(((for-loop_200)" -"(lambda(fold-var_185" -" lst_197)" +"((letrec-values(((for-loop_201)" +"(lambda(fold-var_183" +" lst_196)" "(begin" " 'for-loop" "(if(pair?" -" lst_197)" +" lst_196)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_197))" +" lst_196))" "((rest_102)" "(unsafe-cdr" -" lst_197)))" +" lst_196)))" +"(let-values(((fold-var_184)" +"(let-values(((fold-var_185)" +" fold-var_183))" "(let-values(((fold-var_186)" -"(let-values(((fold-var_187)" -" fold-var_185))" -"(let-values(((fold-var_188)" "(let-values()" "(cons" "(let-values()" @@ -28905,22 +28925,22 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_187))))" +" fold-var_185))))" "(values" -" fold-var_188)))))" +" fold-var_186)))))" "(if(not" " #f)" -"(for-loop_200" -" fold-var_186" +"(for-loop_201" +" fold-var_184" " rest_102)" -" fold-var_186)))" -" fold-var_185)))))" -" for-loop_200)" +" fold-var_184)))" +" fold-var_183)))))" +" for-loop_201)" " null" " lst_106)))))" " '((void))))" "(add-body!_0" -" phase_77" +" phase_79" "(compile-top-level-bind" " ids_5" " binding-syms_0" @@ -28929,7 +28949,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_47)" "(let-values(((phase43_0)" -" phase_77)" +" phase_79)" "((header44_0)" " header_10))" "(compile-context1.1" @@ -28962,10 +28982,10 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_77))))" +" phase_79))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_198)" +"(let-values(((lst_197)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28973,24 +28993,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" -"((letrec-values(((for-loop_201)" -"(lambda(fold-var_189" -" lst_199)" +" lst_197)))" +"((letrec-values(((for-loop_202)" +"(lambda(fold-var_187" +" lst_198)" "(begin" " 'for-loop" "(if(pair?" -" lst_199)" +" lst_198)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_199))" +" lst_198))" "((rest_103)" "(unsafe-cdr" -" lst_199)))" +" lst_198)))" +"(let-values(((fold-var_188)" +"(let-values(((fold-var_189)" +" fold-var_187))" "(let-values(((fold-var_190)" -"(let-values(((fold-var_191)" -" fold-var_189))" -"(let-values(((fold-var_192)" "(let-values()" "(cons" "(let-values()" @@ -29003,19 +29023,19 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_191))))" +" fold-var_189))))" "(values" -" fold-var_192)))))" +" fold-var_190)))))" "(if(not" " #f)" -"(for-loop_201" -" fold-var_190" +"(for-loop_202" +" fold-var_188" " rest_103)" -" fold-var_190)))" -" fold-var_189)))))" -" for-loop_201)" +" fold-var_188)))" +" fold-var_187)))))" +" for-loop_202)" " null" -" lst_198))))))" +" lst_197))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -29026,7 +29046,7 @@ static const char *startup_source = " the-struct_48)" "(let-values(((phase45_0)" "(add1" -" phase_77))" +" phase_79))" "((header46_0)" " next-header_0))" "(compile-context1.1" @@ -29057,7 +29077,7 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_77)" +" phase_79)" "(as-required?_0" " header_10))" "(values))))" @@ -29065,7 +29085,7 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_29)" " binding-syms_1)" -"((lst_200)" +"((lst_199)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29079,34 +29099,34 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_200)))" -"((letrec-values(((for-loop_202)" -"(lambda(fold-var_193" -" lst_201" -" lst_202)" +" lst_199)))" +"((letrec-values(((for-loop_203)" +"(lambda(fold-var_191" +" lst_200" +" lst_201)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_201)" +" lst_200)" "(pair?" -" lst_202)" +" lst_201)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_201))" +" lst_200))" "((rest_104)" "(unsafe-cdr" -" lst_201))" +" lst_200))" "((gen-sym_1)" "(unsafe-car" -" lst_202))" +" lst_201))" "((rest_105)" "(unsafe-cdr" -" lst_202)))" +" lst_201)))" +"(let-values(((fold-var_192)" +"(let-values(((fold-var_193)" +" fold-var_191))" "(let-values(((fold-var_194)" -"(let-values(((fold-var_195)" -" fold-var_193))" -"(let-values(((fold-var_196)" "(let-values()" "(cons" "(let-values()" @@ -29116,28 +29136,28 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_195))))" +" fold-var_193))))" "(values" -" fold-var_196)))))" +" fold-var_194)))))" "(if(not" " #f)" -"(for-loop_202" -" fold-var_194" +"(for-loop_203" +" fold-var_192" " rest_104" " rest_105)" -" fold-var_194)))" -" fold-var_193)))))" -" for-loop_202)" +" fold-var_192)))" +" fold-var_191)))))" +" for-loop_203)" " null" " lst_29" -" lst_200))))))" +" lst_199))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" "(let-values()" "(add-body!_0" "(add1" -" phase_77)" +" phase_79)" "(list" " 'let-values" "(list" @@ -29152,7 +29172,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_77)" +" phase_79)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -29165,7 +29185,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_0)" "(let-values(((phase47_0)" -" phase_77)" +" phase_79)" "((header48_0)" " header_10))" "(compile-context1.1" @@ -29195,10 +29215,10 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_3)" "(add1" -" phase_77)" +" phase_79)" "(find-or-create-header!_0" "(add1" -" phase_77))))" +" phase_79))))" "(if(let-values(((or-part_213)" "(parsed-#%declare?" " body_3)))" @@ -29220,7 +29240,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_49)" "(let-values(((phase49_0)" -" phase_77)" +" phase_79)" "((header50_0)" " header_10))" "(compile-context1.1" @@ -29246,11 +29266,11 @@ static const char *startup_source = "(compiled-expression-callback_0" " e_35" " #f" -" phase_77" +" phase_79" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_77" +" phase_79" " e_35)))" "(void))))" "(let-values()" @@ -29262,7 +29282,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_50)" "(let-values(((phase51_0)" -" phase_77)" +" phase_79)" "((header52_0)" " header_10))" "(compile-context1.1" @@ -29290,11 +29310,11 @@ static const char *startup_source = "(compiled-expression-callback_0" " e_36" " #f" -" phase_77" +" phase_79" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_77" +" phase_79" " e_36)))))))))" "(values)))))" "(values)))))" @@ -29308,13 +29328,13 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_117)" -" lst_193" +" lst_192" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_73" -"(find-or-create-header!_0 phase_73))" +" phase_75" +"(find-or-create-header!_0 phase_75))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -29350,35 +29370,35 @@ static const char *startup_source = "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_73)))" +" phase_75)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_73)))" +" phase_75)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_203)" +"(let-values(((lst_202)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_203)))" +"(check-list lst_202)))" "((letrec-values(((for-loop_121)" "(lambda(table_157" -" lst_204)" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" -"(let-values(((phase_78)" +" lst_203)" +"(let-values(((phase_80)" "(unsafe-car" -" lst_204))" +" lst_203))" "((rest_106)" "(unsafe-cdr" -" lst_204)))" +" lst_203)))" "(let-values(((table_158)" "(let-values(((table_159)" " table_157))" @@ -29390,7 +29410,7 @@ static const char *startup_source = "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_78" +" phase_80" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -29398,11 +29418,11 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_78" +" phase_80" " cctx_3" " cross-linklet-inlining?_1)))" "(values" -" phase_78" +" phase_80" "(link-info1.1" " link-module-uses_0" " imports_2" @@ -29423,9 +29443,9 @@ static const char *startup_source = " table_157)))))" " for-loop_121)" " '#hash()" -" lst_203)))))" +" lst_202)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_205)" +"(let-values(((lst_204)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29433,20 +29453,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_205)))" -"((letrec-values(((for-loop_203)" +" lst_204)))" +"((letrec-values(((for-loop_204)" "(lambda(table_161" -" lst_206)" +" lst_205)" "(begin" " 'for-loop" "(if(pair?" -" lst_206)" -"(let-values(((phase_79)" +" lst_205)" +"(let-values(((phase_81)" "(unsafe-car" -" lst_206))" +" lst_205))" "((rest_107)" "(unsafe-cdr" -" lst_206)))" +" lst_205)))" "(let-values(((table_162)" "(let-values(((table_163)" " table_161))" @@ -29458,16 +29478,16 @@ static const char *startup_source = "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_79)))" +" phase_81)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_79)))" +" phase_81)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_79))))" +" phase_81))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -29507,35 +29527,35 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_207)" +"(let-values(((lst_206)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" -" phase_79))))" +" phase_81))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_207)))" -"((letrec-values(((for-loop_181)" -"(lambda(fold-var_197" -" lst_208)" +" lst_206)))" +"((letrec-values(((for-loop_182)" +"(lambda(fold-var_195" +" lst_207)" "(begin" " 'for-loop" "(if(pair?" -" lst_208)" +" lst_207)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_208))" +" lst_207))" "((rest_108)" "(unsafe-cdr" -" lst_208)))" +" lst_207)))" +"(let-values(((fold-var_196)" +"(let-values(((fold-var_197)" +" fold-var_195))" "(let-values(((fold-var_198)" -"(let-values(((fold-var_199)" -" fold-var_197))" -"(let-values(((fold-var_200)" "(let-values()" "(cons" "(let-values()" @@ -29550,19 +29570,19 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_199))))" +" fold-var_197))))" "(values" -" fold-var_200)))))" +" fold-var_198)))))" "(if(not" " #f)" -"(for-loop_181" -" fold-var_198" +"(for-loop_182" +" fold-var_196" " rest_108)" -" fold-var_198)))" -" fold-var_197)))))" -" for-loop_181)" +" fold-var_196)))" +" fold-var_195)))))" +" for-loop_182)" " null" -" lst_207)))))" +" lst_206)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29579,7 +29599,7 @@ static const char *startup_source = " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_79" +" phase_81" "(cons" " linklet_1" "(list-tail" @@ -29595,14 +29615,14 @@ static const char *startup_source = " table_164)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_204" " table_162" " rest_107)" " table_162)))" " table_161)))))" -" for-loop_203)" +" for-loop_204)" " '#hasheq()" -" lst_205)))))" +" lst_204)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_111)" " body-linklets+module-use*s_0))" @@ -29613,7 +29633,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_111)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_205)" "(lambda(table_165" " i_142)" "(begin" @@ -29644,14 +29664,14 @@ static const char *startup_source = " table_125)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_205" " table_166" "(hash-iterate-next" " ht_111" " i_142))" " table_166)))" " table_165)))))" -" for-loop_204)" +" for-loop_205)" " '#hasheq()" "(hash-iterate-first" " ht_111))))))" @@ -29665,13 +29685,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_112)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_206)" "(lambda(table_167" " i_143)" "(begin" " 'for-loop" "(if i_143" -"(let-values(((phase_80" +"(let-values(((phase_82" " l+mu*s_1)" "(hash-iterate-key+value" " ht_112" @@ -29685,7 +29705,7 @@ static const char *startup_source = " val_54)" "(let-values()" "(values" -" phase_80" +" phase_82" "(module-uses-strip-extra-inspectorsss" "(cdr" " l+mu*s_1))))))" @@ -29697,14 +29717,14 @@ static const char *startup_source = " table_169)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_206" " table_168" "(hash-iterate-next" " ht_112" " i_143))" " table_168)))" " table_167)))))" -" for-loop_205)" +" for-loop_206)" " '#hasheq()" "(hash-iterate-first" " ht_112))))))" @@ -29722,13 +29742,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_113)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_207)" "(lambda(table_170" " i_144)" "(begin" " 'for-loop" "(if i_144" -"(let-values(((phase_81" +"(let-values(((phase_83" " l+mu*s_2)" "(hash-iterate-key+value" " ht_113" @@ -29762,7 +29782,7 @@ static const char *startup_source = " val_55)" "(let-values()" "(values" -" phase_81" +" phase_83" " extra-inspectorsss_2))))" "(hash-set" " table_175" @@ -29776,14 +29796,14 @@ static const char *startup_source = " table_170)))))" "(if(not" " #f)" -"(for-loop_206" +"(for-loop_207" " table_171" "(hash-iterate-next" " ht_113" " i_144))" " table_171)))" " table_170)))))" -" for-loop_206)" +" for-loop_207)" " '#hash()" "(hash-iterate-first" " ht_113))))))" @@ -29800,7 +29820,7 @@ static const char *startup_source = "(compile-top-level-bind)" "(lambda(ids_7 binding-syms_2 cctx_11 trans-exprs_0)" "(begin" -"(let-values(((phase_82)(compile-context-phase cctx_11)))" +"(let-values(((phase_84)(compile-context-phase cctx_11)))" "(let-values(((self_19)(compile-context-self cctx_11)))" "(let-values(((header_12)(compile-context-header cctx_11)))" "(let-values(((mpis_16)(header-module-path-indexes header_12)))" @@ -29811,8 +29831,8 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_209) ids_7)" -"((lst_210) binding-syms_2)" +"(let-values(((lst_208) ids_7)" +"((lst_209) binding-syms_2)" "((lst_117)" "(let-values(((or-part_109) trans-exprs_0))" "(if or-part_109" @@ -29823,54 +29843,54 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_118)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_201 lst_211)" +"((letrec-values(((for-loop_208)" +"(lambda(fold-var_199 lst_210)" "(begin" " 'for-loop" -"(if(pair? lst_211)" -"(let-values(((id_48)(unsafe-car lst_211))" -"((rest_109)(unsafe-cdr lst_211)))" +"(if(pair? lst_210)" +"(let-values(((id_48)(unsafe-car lst_210))" +"((rest_109)(unsafe-cdr lst_210)))" +"(let-values(((fold-var_200)" +"(let-values(((fold-var_201)" +" fold-var_199))" "(let-values(((fold-var_202)" -"(let-values(((fold-var_203)" -" fold-var_201))" -"(let-values(((fold-var_204)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_203))))" -"(values fold-var_204)))))" +" fold-var_201))))" +"(values fold-var_202)))))" "(if(not #f)" -"(for-loop_207 fold-var_202 rest_109)" -" fold-var_202)))" -" fold-var_201)))))" -" for-loop_207)" +"(for-loop_208 fold-var_200 rest_109)" +" fold-var_200)))" +" fold-var_199)))))" +" for-loop_208)" " null" " lst_118))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_208)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_209)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_210)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_117)))" -"((letrec-values(((for-loop_208)" -"(lambda(fold-var_205 lst_212 lst_3 lst_213)" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_203 lst_211 lst_3 lst_212)" "(begin" " 'for-loop" -"(if(if(pair? lst_212)(if(pair? lst_3)(pair? lst_213) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_212))" -"((rest_110)(unsafe-cdr lst_212))" +"(if(if(pair? lst_211)(if(pair? lst_3)(pair? lst_212) #f) #f)" +"(let-values(((id_49)(unsafe-car lst_211))" +"((rest_110)(unsafe-cdr lst_211))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_111)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_213))" -"((rest_112)(unsafe-cdr lst_213)))" +"((trans-expr_0)(unsafe-car lst_212))" +"((rest_112)(unsafe-cdr lst_212)))" +"(let-values(((fold-var_204)" +"(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" -"(let-values(((fold-var_207) fold-var_205))" -"(let-values(((fold-var_208)" "(let-values()" "(cons" "(let-values()" @@ -29884,22 +29904,22 @@ static const char *startup_source = " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_82" +" phase_84" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" "(if trans-exprs_0 #t #f)" " trans-expr_0)))" -" fold-var_207))))" -"(values fold-var_208)))))" +" fold-var_205))))" +"(values fold-var_206)))))" "(if(not #f)" -"(for-loop_208 fold-var_206 rest_110 rest_111 rest_112)" -" fold-var_206)))" -" fold-var_205)))))" -" for-loop_208)" +"(for-loop_209 fold-var_204 rest_110 rest_111 rest_112)" +" fold-var_204)))" +" fold-var_203)))))" +" for-loop_209)" " null" +" lst_208" " lst_209" -" lst_210" " lst_117))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" @@ -29921,28 +29941,28 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_214) gen-syms_1))" +"(let-values(((lst_213) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_214)))" -"((letrec-values(((for-loop_209)" -"(lambda(fold-var_209 lst_215)" +"(let-values()(check-list lst_213)))" +"((letrec-values(((for-loop_210)" +"(lambda(fold-var_207 lst_214)" "(begin" " 'for-loop" -"(if(pair? lst_215)" -"(let-values(((s_303)(unsafe-car lst_215))((rest_113)(unsafe-cdr lst_215)))" +"(if(pair? lst_214)" +"(let-values(((s_303)(unsafe-car lst_214))((rest_113)(unsafe-cdr lst_214)))" +"(let-values(((fold-var_208)" +"(let-values(((fold-var_209) fold-var_207))" "(let-values(((fold-var_210)" -"(let-values(((fold-var_211) fold-var_209))" -"(let-values(((fold-var_212)" "(let-values()" -"(cons(let-values() ''#f) fold-var_211))))" -"(values fold-var_212)))))" -"(if(not #f)(for-loop_209 fold-var_210 rest_113) fold-var_210)))" -" fold-var_209)))))" -" for-loop_209)" +"(cons(let-values() ''#f) fold-var_209))))" +"(values fold-var_210)))))" +"(if(not #f)(for-loop_210 fold-var_208 rest_113) fold-var_208)))" +" fold-var_207)))))" +" for-loop_210)" " null" -" lst_214)))))))" +" lst_213)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" @@ -29971,17 +29991,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_143) init-mu*s_0))" +"(let-values(((lst_142) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_143)))" -"((letrec-values(((for-loop_170)" -"(lambda(lst_216)" +"(let-values()(check-list lst_142)))" +"((letrec-values(((for-loop_171)" +"(lambda(lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_216)" -"(let-values(((mu*_6)(unsafe-car lst_216))((rest_114)(unsafe-cdr lst_216)))" +"(if(pair? lst_215)" +"(let-values(((mu*_6)(unsafe-car lst_215))((rest_114)(unsafe-cdr lst_215)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29990,10 +30010,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_170 rest_114)(values))))" +"(if(not #f)(for-loop_171 rest_114)(values))))" "(values))))))" -" for-loop_170)" -" lst_143)))" +" for-loop_171)" +" lst_142)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -30029,41 +30049,41 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_217) mus_2)" -"((lst_218)" +"(let-values(((lst_216) mus_2)" +"((lst_217)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_219)" +"((lst_218)" "(let-values(((or-part_216) extra-inspectorsss_3))" "(if or-part_216 or-part_216 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_216)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_217)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_210)" -"(lambda(fold-var_213 lst_220 lst_221 lst_222)" +"((letrec-values(((for-loop_211)" +"(lambda(fold-var_211 lst_219 lst_220 lst_221)" "(begin" " 'for-loop" -"(if(if(pair? lst_220)" -"(if(pair? lst_221)(pair? lst_222) #f)" +"(if(if(pair? lst_219)" +"(if(pair? lst_220)(pair? lst_221) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_220))" -"((rest_115)(unsafe-cdr lst_220))" -"((imports_3)(unsafe-car lst_221))" -"((rest_116)(unsafe-cdr lst_221))" +"(let-values(((sub-mu_0)(unsafe-car lst_219))" +"((rest_115)(unsafe-cdr lst_219))" +"((imports_3)(unsafe-car lst_220))" +"((rest_116)(unsafe-cdr lst_220))" "((extra-inspectorss_13)" -"(unsafe-car lst_222))" -"((rest_117)(unsafe-cdr lst_222)))" +"(unsafe-car lst_221))" +"((rest_117)(unsafe-cdr lst_221)))" +"(let-values(((fold-var_212)" +"(let-values(((fold-var_213)" +" fold-var_211))" "(let-values(((fold-var_214)" -"(let-values(((fold-var_215)" -" fold-var_213))" -"(let-values(((fold-var_216)" "(let-values()" "(cons" "(let-values()" @@ -30086,21 +30106,21 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_215))))" -"(values fold-var_216)))))" +" fold-var_213))))" +"(values fold-var_214)))))" "(if(not #f)" -"(for-loop_210" -" fold-var_214" +"(for-loop_211" +" fold-var_212" " rest_115" " rest_116" " rest_117)" -" fold-var_214)))" -" fold-var_213)))))" -" for-loop_210)" +" fold-var_212)))" +" fold-var_211)))))" +" for-loop_211)" " null" +" lst_216" " lst_217" -" lst_218" -" lst_219)))))))" +" lst_218)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -30193,11 +30213,11 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_223)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_222)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" +"(let-values()(check-list lst_222)))" "((letrec-values(((for-loop_106)" "(lambda(fold-var_69 lst_89)" "(begin" @@ -30207,7 +30227,7 @@ static const char *startup_source = "(unsafe-car lst_89))" "((rest_118)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_159)" +"(let-values(((fold-var_157)" " fold-var_69))" "(let-values(((fold-var_9)" "(let-values()" @@ -30216,7 +30236,7 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_159))))" +" fold-var_157))))" "(values fold-var_9)))))" "(if(not #f)" "(for-loop_106 fold-var_34 rest_118)" @@ -30224,7 +30244,7 @@ static const char *startup_source = " fold-var_69)))))" " for-loop_106)" " null" -" lst_223)))))))" +" lst_222)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30263,15 +30283,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_97)" -"(lambda(fold-var_217 lst_82)" +"(lambda(fold-var_215 lst_82)" "(begin" " 'for-loop" "(if(pair? lst_82)" "(let-values(((cim_4)(unsafe-car lst_82))" "((rest_119)(unsafe-cdr lst_82)))" -"(let-values(((fold-var_160)" -"(let-values(((fold-var_168) fold-var_217))" -"(let-values(((fold-var_169)" +"(let-values(((fold-var_158)" +"(let-values(((fold-var_166) fold-var_215))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -30283,12 +30303,12 @@ static const char *startup_source = "(loop_88" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_168))))" -"(values fold-var_169)))))" +" fold-var_166))))" +"(values fold-var_167)))))" "(if(not #f)" -"(for-loop_97 fold-var_160 rest_119)" -" fold-var_160)))" -" fold-var_217)))))" +"(for-loop_97 fold-var_158 rest_119)" +" fold-var_158)))" +" fold-var_215)))))" " for-loop_97)" " null" " lst_81))))))))" @@ -30315,15 +30335,15 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_224) cims_3)((start_35) 0))" +"(let-values(((lst_223) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_224)))" +"(let-values()(check-list lst_223)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_212)" "(lambda(table_176 lst_100 pos_95)" "(begin" " 'for-loop" @@ -30352,12 +30372,12 @@ static const char *startup_source = " val_56)))))" "(values table_179)))))" "(if(not #f)" -"(for-loop_211 table_177 rest_36(+ pos_95 1))" +"(for-loop_212 table_177 rest_36(+ pos_95 1))" " table_177)))" " table_176)))))" -" for-loop_211)" +" for-loop_212)" " '#hasheq()" -" lst_224" +" lst_223" " start_35)))))" "(let-values(((ht_114)" "(if merge-serialization?_0" @@ -30399,12 +30419,12 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_218 pos_96)" +"(lambda(fold-var_216 pos_96)" "(begin" " 'for-loop" "(if(< pos_96 end_25)" "(let-values(((i_92) pos_96))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_171)" "(let-values(((top_0)" "(hash-ref" " ht_115" @@ -30418,25 +30438,25 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((fold-var_72)" -"(let-values(((fold-var_219)" +"(let-values(((fold-var_217)" " fold-var_66))" "(if top_0" -"(let-values(((fold-var_220)" -" fold-var_219))" -"(let-values(((fold-var_221)" +"(let-values(((fold-var_218)" +" fold-var_217))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_220))))" +" fold-var_218))))" "(values" -" fold-var_221)))" -" fold-var_219))))" +" fold-var_219)))" +" fold-var_217))))" " fold-var_72))))))" " for-loop_113)" -" fold-var_218)))))" -"(if(not #f)(for-loop_10 fold-var_173(+ pos_96 inc_19)) fold-var_173)))" -" fold-var_218)))))" +" fold-var_216)))))" +"(if(not #f)(for-loop_10 fold-var_171(+ pos_96 inc_19)) fold-var_171)))" +" fold-var_216)))))" " for-loop_10)" " null" " start_36))))))))" @@ -30533,11 +30553,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_35 1 'field-count))))" "(define-values" "(lookup-defn)" -"(lambda(defns_0 sym_51)" +"(lambda(defns_0 sym_52)" "(begin" -"(let-values(((d_29)(hash-ref defns_0 sym_51 #f)))" +"(let-values(((d_29)(hash-ref defns_0 sym_52 #f)))" "(if(known-defined/delay? d_29)" -"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_51)))" +"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_52)))" "(let-values() d_29))))))" "(define-values" "(any-side-effects?9.1)" @@ -30738,19 +30758,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_8)))" -"((letrec-values(((for-loop_212)" +"((letrec-values(((for-loop_213)" "(lambda(result_82" -" lst_225)" +" lst_224)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_224)" "(let-values(((e_43)" "(unsafe-car" -" lst_225))" +" lst_224))" "((rest_120)" "(unsafe-cdr" -" lst_225)))" +" lst_224)))" "(let-values(((result_83)" "(let-values()" "(let-values(((result_84)" @@ -30771,12 +30791,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_212" +"(for-loop_213" " result_83" " rest_120)" " result_83)))" " result_82)))))" -" for-loop_212)" +" for-loop_213)" " #t" " lst_8)))" " #f)))" @@ -30791,7 +30811,7 @@ static const char *startup_source = " d_19)))" "(let-values(((lst_10)" " e18_0)" -"((lst_226)" +"((lst_225)" "(known-function-of-satisfying-arg-predicate-keys" " d_19)))" "(begin" @@ -30806,30 +30826,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" +" lst_225)))" "((letrec-values(((for-loop_99)" "(lambda(result_85" -" lst_179" -" lst_227)" +" lst_178" +" lst_226)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_179)" +" lst_178)" "(pair?" -" lst_227)" +" lst_226)" " #f)" "(let-values(((e_44)" "(unsafe-car" -" lst_179))" +" lst_178))" "((rest_121)" "(unsafe-cdr" -" lst_179))" +" lst_178))" "((key_64)" "(unsafe-car" -" lst_227))" +" lst_226))" "((rest_122)" "(unsafe-cdr" -" lst_227)))" +" lst_226)))" "(let-values(((result_86)" "(let-values()" "(let-values(((result_87)" @@ -30871,7 +30891,7 @@ static const char *startup_source = " for-loop_99)" " #t" " lst_10" -" lst_226)))" +" lst_225)))" " #f)" " #f)))" " 1" @@ -30975,7 +30995,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_228)" +"(let-values(((lst_227)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30983,21 +31003,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_228)))" -"((letrec-values(((for-loop_213)" +" lst_227)))" +"((letrec-values(((for-loop_214)" "(lambda(ids_9" " rhs_5" -" lst_229)" +" lst_228)" "(begin" " 'for-loop" "(if(pair?" -" lst_229)" +" lst_228)" "(let-values(((s_308)" "(unsafe-car" -" lst_229))" +" lst_228))" "((rest_123)" "(unsafe-cdr" -" lst_229)))" +" lst_228)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -31094,7 +31114,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_213" +"(for-loop_214" " ids_10" " rhs_6" " rest_123)" @@ -31104,10 +31124,10 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_213)" +" for-loop_214)" " null" " null" -" lst_228)))))" +" lst_227)))))" "(values" "(reverse$1" " ids_8)" @@ -31193,40 +31213,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_230) ids22_0)" -"((lst_231) rhs23_0))" +"(let-values(((lst_229) ids22_0)" +"((lst_230) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_229)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_230)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_231)))" -"((letrec-values(((for-loop_214)" +"((letrec-values(((for-loop_215)" "(lambda(result_88" -" lst_232" -" lst_199)" +" lst_231" +" lst_198)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_232)" +" lst_231)" "(pair?" -" lst_199)" +" lst_198)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_232))" +" lst_231))" "((rest_103)" "(unsafe-cdr" -" lst_232))" +" lst_231))" "((rhs_9)" "(unsafe-car" -" lst_199))" +" lst_198))" "((rest_124)" "(unsafe-cdr" -" lst_199)))" +" lst_198)))" "(let-values(((result_89)" "(let-values()" "(let-values(((result_14)" @@ -31251,16 +31271,16 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_214" +"(for-loop_215" " result_89" " rest_103" " rest_124)" " result_89)))" " result_88)))))" -" for-loop_214)" +" for-loop_215)" " #f" -" lst_230" -" lst_231))))" +" lst_229" +" lst_230))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31321,25 +31341,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_155) e39_0))" +"(if(let-values(((lst_154) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_215)" +"(let-values()(check-list lst_154)))" +"((letrec-values(((for-loop_216)" "(lambda(result_62" -" lst_233)" +" lst_232)" "(begin" " 'for-loop" "(if(pair?" -" lst_233)" +" lst_232)" "(let-values(((e_55)" "(unsafe-car" -" lst_233))" +" lst_232))" "((rest_125)" "(unsafe-cdr" -" lst_233)))" +" lst_232)))" "(let-values(((result_90)" "(let-values()" "(let-values(((result_91)" @@ -31360,14 +31380,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_215" +"(for-loop_216" " result_90" " rest_125)" " result_90)))" " result_62)))))" -" for-loop_215)" +" for-loop_216)" " #t" -" lst_155)))" +" lst_154)))" "(length e39_0)" " #f)))" "(let-values()" @@ -31426,25 +31446,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_234) e43_0))" +"(if(let-values(((lst_233) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_234)))" -"((letrec-values(((for-loop_216)" +"(let-values()(check-list lst_233)))" +"((letrec-values(((for-loop_217)" "(lambda(result_92" -" lst_235)" +" lst_234)" "(begin" " 'for-loop" "(if(pair?" -" lst_235)" +" lst_234)" "(let-values(((e_58)" "(unsafe-car" -" lst_235))" +" lst_234))" "((rest_126)" "(unsafe-cdr" -" lst_235)))" +" lst_234)))" "(let-values(((result_93)" "(let-values()" "(let-values(((result_94)" @@ -31465,14 +31485,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_216" +"(for-loop_217" " result_93" " rest_126)" " result_93)))" " result_92)))))" -" for-loop_216)" +" for-loop_217)" " #t" -" lst_234)))" +" lst_233)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" @@ -31654,17 +31674,17 @@ static const char *startup_source = "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_45)" "(lambda(result_95" -" lst_236)" +" lst_235)" "(begin" " 'for-loop" "(if(pair?" -" lst_236)" +" lst_235)" "(let-values(((e_64)" "(unsafe-car" -" lst_236))" +" lst_235))" "((rest_127)" "(unsafe-cdr" -" lst_236)))" +" lst_235)))" "(let-values(((result_96)" "(let-values()" "(let-values(((result_97)" @@ -32257,19 +32277,19 @@ static const char *startup_source = "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_237) idss_0)((lst_238) rhss_0))" +"(let-values(((lst_236) idss_0)((lst_237) rhss_0))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_238)))" -"((letrec-values(((for-loop_217)" -"(lambda(locals_5 lst_239 lst_240)" +"((letrec-values(((for-loop_218)" +"(lambda(locals_5 lst_238 lst_239)" "(begin" " 'for-loop" -"(if(if(pair? lst_239)(pair? lst_240) #f)" -"(let-values(((ids_14)(unsafe-car lst_239))" -"((rest_128)(unsafe-cdr lst_239))" -"((rhs_10)(unsafe-car lst_240))" -"((rest_129)(unsafe-cdr lst_240)))" +"(if(if(pair? lst_238)(pair? lst_239) #f)" +"(let-values(((ids_14)(unsafe-car lst_238))" +"((rest_128)(unsafe-cdr lst_238))" +"((rhs_10)(unsafe-car lst_239))" +"((rest_129)(unsafe-cdr lst_239)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32294,10 +32314,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_241)" +"(let-values(((lst_240)" "(correlated->list" " ids_14))" -"((lst_242)" +"((lst_241)" " '(struct-type" " constructor" " predicate" @@ -32309,36 +32329,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_241)))" +" lst_240)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_242)))" -"((letrec-values(((for-loop_218)" +" lst_241)))" +"((letrec-values(((for-loop_219)" "(lambda(locals_9" -" lst_243" -" lst_244)" +" lst_242" +" lst_243)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_243)" +" lst_242)" "(pair?" -" lst_244)" +" lst_243)" " #f)" "(let-values(((id_51)" "(unsafe-car" -" lst_243))" +" lst_242))" "((rest_130)" "(unsafe-cdr" -" lst_243))" +" lst_242))" "((type_0)" "(unsafe-car" -" lst_244))" +" lst_243))" "((rest_131)" "(unsafe-cdr" -" lst_244)))" +" lst_243)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32355,16 +32375,16 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_218" +"(for-loop_219" " locals_10" " rest_130" " rest_131)" " locals_10)))" " locals_9)))))" -" for-loop_218)" +" for-loop_219)" " locals_7" -" lst_241" -" lst_242)))))" +" lst_240" +" lst_241)))))" "(if(equal?" " tmp_27" " 'let-values)" @@ -32379,7 +32399,7 @@ static const char *startup_source = " rhs_11)))" "(loop_90 #f)))" "(let-values()" -"(let-values(((lst_245)" +"(let-values(((lst_244)" "(correlated->list" " ids_14)))" "(begin" @@ -32388,20 +32408,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_245)))" -"((letrec-values(((for-loop_219)" +" lst_244)))" +"((letrec-values(((for-loop_220)" "(lambda(locals_13" -" lst_246)" +" lst_245)" "(begin" " 'for-loop" "(if(pair?" -" lst_246)" +" lst_245)" "(let-values(((id_52)" "(unsafe-car" -" lst_246))" +" lst_245))" "((rest_132)" "(unsafe-cdr" -" lst_246)))" +" lst_245)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32416,31 +32436,31 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_219" +"(for-loop_220" " locals_14" " rest_132)" " locals_14)))" " locals_13)))))" -" for-loop_219)" +" for-loop_220)" " locals_7" -" lst_245)))))))))))" +" lst_244)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_217 locals_6 rest_128 rest_129) locals_6)))" +"(if(not #f)(for-loop_218 locals_6 rest_128 rest_129) locals_6)))" " locals_5)))))" -" for-loop_217)" +" for-loop_218)" " locals_4" -" lst_237" -" lst_238))))))" +" lst_236" +" lst_237))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_66 defns_3)" "(begin" "(let-values(((l_57)(correlated->list e_66)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_247)(cdr l_57))" -"((lst_248)" +"(let-values(((lst_246)(cdr l_57))" +"((lst_247)" "(list" "(lambda(v_159)(quoted? symbol? v_159))" "(lambda(v_160)(is-lambda? v_160 2 defns_3))" @@ -32449,17 +32469,17 @@ static const char *startup_source = "(let-values(((v92_0) v_162)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_247)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_171)" -"(lambda(result_98 lst_148 lst_249)" +"((letrec-values(((for-loop_172)" +"(lambda(result_98 lst_147 lst_248)" "(begin" " 'for-loop" -"(if(if(pair? lst_148)(pair? lst_249) #f)" -"(let-values(((arg_0)(unsafe-car lst_148))" -"((rest_133)(unsafe-cdr lst_148))" -"((pred_1)(unsafe-car lst_249))" -"((rest_134)(unsafe-cdr lst_249)))" +"(if(if(pair? lst_147)(pair? lst_248) #f)" +"(let-values(((arg_0)(unsafe-car lst_147))" +"((rest_133)(unsafe-cdr lst_147))" +"((pred_1)(unsafe-car lst_248))" +"((rest_134)(unsafe-cdr lst_248)))" "(let-values(((result_99)" "(let-values()" "(let-values(((result_100)" @@ -32468,13 +32488,13 @@ static const char *startup_source = "(if(if(not((lambda x_62(not result_99)) arg_0))" "(if(not((lambda x_63(not result_99)) pred_1))(not #f) #f)" " #f)" -"(for-loop_171 result_99 rest_133 rest_134)" +"(for-loop_172 result_99 rest_133 rest_134)" " result_99)))" " result_98)))))" -" for-loop_171)" +" for-loop_172)" " #t" -" lst_247" -" lst_248)))" +" lst_246" +" lst_247)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" @@ -32488,18 +32508,18 @@ static const char *startup_source = " or-part_224" "(if(pair?(correlated-e v_163))" "(if(eq?(correlated-e(car(correlated-e v_163))) 'list)" -"(if(let-values(((lst_250)(cdr(correlated->list v_163))))" +"(if(let-values(((lst_249)(cdr(correlated->list v_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_220)" -"(lambda(result_101 lst_251)" +"(let-values()(check-list lst_249)))" +"((letrec-values(((for-loop_221)" +"(lambda(result_101 lst_250)" "(begin" " 'for-loop" -"(if(pair? lst_251)" -"(let-values(((prop+val_0)(unsafe-car lst_251))" -"((rest_135)(unsafe-cdr lst_251)))" +"(if(pair? lst_250)" +"(let-values(((prop+val_0)(unsafe-car lst_250))" +"((rest_135)(unsafe-cdr lst_250)))" "(let-values(((result_102)" "(let-values()" "(let-values(((result_103)" @@ -32559,27 +32579,27 @@ static const char *startup_source = "(if(if(not((lambda x_64(not result_102)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_220 result_102 rest_135)" +"(for-loop_221 result_102 rest_135)" " result_102)))" " result_101)))))" -" for-loop_220)" +" for-loop_221)" " #t" -" lst_250)))" +" lst_249)))" "(=" "(sub1(correlated-length v_163))" "(set-count" -"(let-values(((lst_252)(cdr(correlated->list v_163))))" +"(let-values(((lst_251)(cdr(correlated->list v_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_252)))" -"((letrec-values(((for-loop_221)" -"(lambda(table_180 lst_253)" +"(let-values()(check-list lst_251)))" +"((letrec-values(((for-loop_222)" +"(lambda(table_180 lst_252)" "(begin" " 'for-loop" -"(if(pair? lst_253)" -"(let-values(((prop+val_2)(unsafe-car lst_253))" -"((rest_136)(unsafe-cdr lst_253)))" +"(if(pair? lst_252)" +"(let-values(((prop+val_2)(unsafe-car lst_252))" +"((rest_136)(unsafe-cdr lst_252)))" "(let-values(((table_181)" "(let-values(((table_182) table_180))" "(let-values(((table_183)" @@ -32599,11 +32619,11 @@ static const char *startup_source = " key_66" " val_57)))))" "(values table_183)))))" -"(if(not #f)(for-loop_221 table_181 rest_136) table_181)))" +"(if(not #f)(for-loop_222 table_181 rest_136) table_181)))" " table_180)))))" -" for-loop_221)" +" for-loop_222)" " '#hash()" -" lst_252)))))" +" lst_251)))))" " #f)" " #f)" " #f))))))))" @@ -32624,8 +32644,8 @@ static const char *startup_source = "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" -"(let-values(((lst_254)(cdr l_58))" -"((lst_255)" +"(let-values(((lst_253)(cdr l_58))" +"((lst_127)" "(list" "(lambda(v_164)(quoted? symbol? v_164))" "(lambda(v_165)(super-ok? v_165 defns_5))" @@ -32654,19 +32674,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_254)))" +"(let-values()(check-list lst_253)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_104 lst_256 lst_130)" +"(let-values()(check-list lst_127)))" +"((letrec-values(((for-loop_223)" +"(lambda(result_104 lst_254 lst_255)" "(begin" " 'for-loop" -"(if(if(pair? lst_256)(pair? lst_130) #f)" -"(let-values(((arg_1)(unsafe-car lst_256))" -"((rest_64)(unsafe-cdr lst_256))" -"((pred_2)(unsafe-car lst_130))" -"((rest_137)(unsafe-cdr lst_130)))" +"(if(if(pair? lst_254)(pair? lst_255) #f)" +"(let-values(((arg_1)(unsafe-car lst_254))" +"((rest_137)(unsafe-cdr lst_254))" +"((pred_2)(unsafe-car lst_255))" +"((rest_138)(unsafe-cdr lst_255)))" "(let-values(((result_105)" "(let-values()" "(let-values(((result_106)" @@ -32678,13 +32698,13 @@ static const char *startup_source = "(not #f)" " #f)" " #f)" -"(for-loop_222 result_105 rest_64 rest_137)" +"(for-loop_223 result_105 rest_137 rest_138)" " result_105)))" " result_104)))))" -" for-loop_222)" +" for-loop_223)" " #t" -" lst_254" -" lst_255)))" +" lst_253" +" lst_127)))" " #f)" " #f))))))))))" "(define-values" @@ -32746,18 +32766,18 @@ static const char *startup_source = " or-part_232" "(if(pair?(correlated-e v_178))" "(if(eq?(correlated-e(car(correlated-e v_178))) 'list)" -"(if(let-values(((lst_257)(cdr(correlated->list v_178))))" +"(if(let-values(((lst_130)(cdr(correlated->list v_178))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_223)" -"(lambda(result_107 lst_258)" +"(let-values()(check-list lst_130)))" +"((letrec-values(((for-loop_224)" +"(lambda(result_107 lst_256)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((prop+val_3)(unsafe-car lst_258))" -"((rest_138)(unsafe-cdr lst_258)))" +"(if(pair? lst_256)" +"(let-values(((prop+val_3)(unsafe-car lst_256))" +"((rest_139)(unsafe-cdr lst_256)))" "(let-values(((result_108)" "(let-values()" "(let-values(((result_109)" @@ -32786,27 +32806,27 @@ static const char *startup_source = "(if(if(not((lambda x_67(not result_108)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_223 result_108 rest_138)" +"(for-loop_224 result_108 rest_139)" " result_108)))" " result_107)))))" -" for-loop_223)" +" for-loop_224)" " #t" -" lst_257)))" +" lst_130)))" "(=" "(sub1(correlated-length v_178))" "(set-count" -"(let-values(((lst_259)(cdr(correlated->list v_178))))" +"(let-values(((lst_257)(cdr(correlated->list v_178))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_259)))" -"((letrec-values(((for-loop_224)" -"(lambda(table_184 lst_260)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_225)" +"(lambda(table_184 lst_131)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((prop+val_5)(unsafe-car lst_260))" -"((rest_139)(unsafe-cdr lst_260)))" +"(if(pair? lst_131)" +"(let-values(((prop+val_5)(unsafe-car lst_131))" +"((rest_140)(unsafe-cdr lst_131)))" "(let-values(((table_185)" "(let-values(((table_186) table_184))" "(let-values(((table_187)" @@ -32826,11 +32846,11 @@ static const char *startup_source = " key_67" " val_58)))))" "(values table_187)))))" -"(if(not #f)(for-loop_224 table_185 rest_139) table_185)))" +"(if(not #f)(for-loop_225 table_185 rest_140) table_185)))" " table_184)))))" -" for-loop_224)" +" for-loop_225)" " '#hash()" -" lst_259)))))" +" lst_257)))))" " #f)" " #f)" " #f))))))))" @@ -32930,12 +32950,12 @@ static const char *startup_source = "(let-values(((lst_67) a_40))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_110 lst_261)" +"((letrec-values(((for-loop_226)" +"(lambda(result_110 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((a_41)(unsafe-car lst_261))((rest_140)(unsafe-cdr lst_261)))" +"(if(pair? lst_258)" +"(let-values(((a_41)(unsafe-car lst_258))((rest_141)(unsafe-cdr lst_258)))" "(let-values(((result_111)" "(let-values()" "(let-values(((result_112)" @@ -32943,10 +32963,10 @@ static const char *startup_source = "(let-values()(equal? a_41 n_25)))))" "(values result_112)))))" "(if(if(not((lambda x_68 result_111) a_41))(not #f) #f)" -"(for-loop_225 result_111 rest_140)" +"(for-loop_226 result_111 rest_141)" " result_111)))" " result_110)))))" -" for-loop_225)" +" for-loop_226)" " #f" " lst_67)))" " #f))))))" @@ -32993,12 +33013,12 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_72 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_262) l_62))" +"(let-values(((lst_259) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_226)" +"(let-values()(check-list lst_259)))" +"((letrec-values(((for-loop_227)" "(lambda(result_113 lst_120)" "(begin" " 'for-loop" @@ -33010,12 +33030,12 @@ static const char *startup_source = "(let-values()(let-values()(< n_26 c_24)))))" "(values result_115)))))" "(if(if(not((lambda x_69(not result_114)) n_26))(not #f) #f)" -"(for-loop_226 result_114 rest_59)" +"(for-loop_227 result_114 rest_59)" " result_114)))" " result_113)))))" -" for-loop_226)" +" for-loop_227)" " #t" -" lst_262)))" +" lst_259)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -33062,7 +33082,7 @@ static const char *startup_source = "(let-values(((to-source?_2)(if to-source?6_0 to-source?3_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((phase_83)(compile-context-phase cctx_13)))" +"(let-values(((phase_85)(compile-context-phase cctx_13)))" "(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((purely-functional?_0) #t))" "(let-values(((body-linklets_1" @@ -33092,7 +33112,7 @@ static const char *startup_source = "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" "((temp24_3)" -"(lambda(e_74 expected-results_2 phase_84 required-reference?_0)" +"(lambda(e_74 expected-results_2 phase_86 required-reference?_0)" "(if(if purely-functional?_0" "(let-values(((e27_0) e_74)" "((expected-results28_0) expected-results_2)" @@ -33148,7 +33168,7 @@ static const char *startup_source = "(lambda(ht_115)" "(begin" " 'add-metadata" -"(let-values(((ht_76)(hash-set ht_115 'original-phase phase_83)))" +"(let-values(((ht_76)(hash-set ht_115 'original-phase phase_85)))" "(let-values(((ht_116)(hash-set ht_76 'max-phase max-phase_1)))" " ht_116))))))" "(let-values(((bundle_0)" @@ -33161,7 +33181,7 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_18" -" phase_83" +" phase_85" "(compile-context-self cctx_13)" "(compile-context-namespace cctx_13)))))" "(let-values(((link-linklet_0)" @@ -33194,7 +33214,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_83) '(#f)))" +"(list* 'make-vector(add1 phase_85) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -33251,38 +33271,38 @@ static const char *startup_source = "(begin" " 'select-defined-syms-and-bind!16" "(let-values(((ids_15) ids11_0))" -"(let-values(((defined-syms_7) defined-syms12_0))" +"(let-values(((defined-syms_8) defined-syms12_0))" "(let-values(((self_20) self13_0))" -"(let-values(((phase_85) phase14_0))" +"(let-values(((phase_87) phase14_0))" "(let-values(((all-scopes-stx_3) all-scopes-stx15_0))" "(let-values(((frame-id_7) frame-id1_0))" "(let-values(((top-level-bind-scope_3)(if top-level-bind-scope7_0 top-level-bind-scope2_0 #f)))" "(let-values(((requires+provides_4)(if requires+provides8_0 requires+provides3_0 #f)))" "(let-values(((orig-s_28)(if in9_0 in4_0 #f)))" -"(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" +"(let-values(((as-transformer?_5)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_160)(hash-ref defined-syms_7 phase_85 #f)))" +"(let-values(((or-part_160)(hash-ref defined-syms_8 phase_87 #f)))" "(if or-part_160" " or-part_160" "(let-values(((ht_117)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_85 ht_117) ht_117))))))" +"(begin(hash-set! defined-syms_8 phase_87 ht_117) ht_117))))))" "(reverse$1" "(let-values(((lst_80) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_227)" -"(lambda(fold-var_12 lst_174)" +"((letrec-values(((for-loop_228)" +"(lambda(fold-var_12 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_174)" -"(let-values(((id_53)(unsafe-car lst_174))" -"((rest_89)(unsafe-cdr lst_174)))" +"(if(pair? lst_173)" +"(let-values(((id_53)(unsafe-car lst_173))" +"((rest_89)(unsafe-cdr lst_173)))" "(let-values(((fold-var_93)" -"(let-values(((fold-var_160) fold-var_12))" -"(let-values(((fold-var_168)" +"(let-values(((fold-var_158) fold-var_12))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -33297,13 +33317,13 @@ static const char *startup_source = " sym_12" " #f)" " id_53" -" phase_85" +" phase_87" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_53" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_85)" +" phase_87)" "(symbol-interned?" " sym_12)" " #f)" @@ -33325,7 +33345,7 @@ static const char *startup_source = " s_178" " #f)" " id_53" -" phase_85" +" phase_87" " top-level-bind-scope_3)" "(loop_92" "(add1" @@ -33344,7 +33364,7 @@ static const char *startup_source = "(let-values(((self23_0)" " self_20)" "((phase24_0)" -" phase_85)" +" phase_87)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" @@ -33381,7 +33401,7 @@ static const char *startup_source = "((id29_0)" " id_53)" "((phase30_0)" -" phase_85)" +" phase_87)" "((b31_0)" " b_71))" "(remove-required-id!75.1" @@ -33395,7 +33415,7 @@ static const char *startup_source = "((b20_0)" " b_71)" "((phase21_0)" -" phase_85)" +" phase_87)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -33413,11 +33433,11 @@ static const char *startup_source = "((id33_0)" " id_53)" "((phase34_0)" -" phase_85)" +" phase_87)" "((b35_0)" " b_71)" "((as-transformer?36_0)" -" as-transformer?_4))" +" as-transformer?_5))" "(add-defined-or-required-id!19.1" " as-transformer?36_0" " #f" @@ -33428,32 +33448,32 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_160))))" -"(values fold-var_168)))))" +" fold-var_158))))" +"(values fold-var_166)))))" "(if(not #f)" -"(for-loop_227 fold-var_93 rest_89)" +"(for-loop_228 fold-var_93 rest_89)" " fold-var_93)))" " fold-var_12)))))" -" for-loop_227)" +" for-loop_228)" " null" " lst_80)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_86)" +"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_88)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_131)(bound-identifier=?$1 id_54 m-id_0 phase_86)))" +"(let-values(((or-part_131)(bound-identifier=?$1 id_54 m-id_0 phase_88)))" "(if or-part_131" " or-part_131" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_86)" +"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_88)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_55 phase_75 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_55 phase_77 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_75))" +"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_77))" "(let-values(((or-part_244)(not top-level-bind-scope_5)))" "(if or-part_244" " or-part_244" @@ -33461,7 +33481,7 @@ static const char *startup_source = "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" "(remove-scope id_55 top-level-bind-scope_5)" -" phase_75))))" +" phase_77))))" " #f)" " #f))))" "(define-values" @@ -33492,15 +33512,15 @@ static const char *startup_source = " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_87 sym_55 id_56)" +"(lambda(defined-syms_9 phase_89 sym_56 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_95)(hash-ref defined-syms_8 phase_87 #f)))" +"(let-values(((or-part_95)(hash-ref defined-syms_9 phase_89 #f)))" "(if or-part_95" " or-part_95" "(let-values(((ht_118)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_87 ht_118) ht_118))))))" -"(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" +"(begin(hash-set! defined-syms_9 phase_89 ht_118) ht_118))))))" +"(hash-set! defined-syms-at-phase_1 sym_56 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" @@ -33512,12 +33532,12 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_263) requires_3))" +"(let-values(((lst_260) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_228)" +"(let-values()(check-list lst_260)))" +"((letrec-values(((for-loop_229)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33534,7 +33554,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_261)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33543,8 +33563,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_264)))" -"((letrec-values(((for-loop_229)" +" lst_261)))" +"((letrec-values(((for-loop_230)" "(lambda(lst_79)" "(begin" " 'for-loop" @@ -33620,22 +33640,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_230" " rest_36)" "(values))))" "(values))))))" -" for-loop_229)" -" lst_264)))" +" for-loop_230)" +" lst_261)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_228 rest_4)(values))))" +"(if(not #f)(for-loop_229 rest_4)(values))))" "(values))))))" -" for-loop_228)" -" lst_263)))" +" for-loop_229)" +" lst_260)))" "(values))))" "(let-values()" -"(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" +"(let-values(((defined-syms_10)(root-expand-context-defined-syms root-ctx_4)))" "(begin" "(let-values(((ht_119) evaled-ld-h_0))" "(begin" @@ -33647,7 +33667,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_149" -"(let-values(((phase_88 linklet_3)" +"(let-values(((phase_90 linklet_3)" "(hash-iterate-key+value ht_119 i_149)))" "(let-values((()" "(let-values()" @@ -33656,7 +33676,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_265)" +"(let-values(((lst_262)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33664,19 +33684,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_265)))" -"((letrec-values(((for-loop_230)" -"(lambda(lst_266)" +"(check-list lst_262)))" +"((letrec-values(((for-loop_231)" +"(lambda(lst_263)" "(begin" " 'for-loop" "(if(pair?" -" lst_266)" -"(let-values(((sym_56)" +" lst_263)" +"(let-values(((sym_57)" "(unsafe-car" -" lst_266))" -"((rest_141)" +" lst_263))" +"((rest_142)" "(unsafe-cdr" -" lst_266)))" +" lst_263)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33686,7 +33706,7 @@ static const char *startup_source = "(let-values(((id_57)" "(datum->syntax$1" " s_3" -" sym_56)))" +" sym_57)))" "(begin" "(let-values(((id10_0)" " id_57)" @@ -33694,9 +33714,9 @@ static const char *startup_source = "(let-values(((self13_1)" " self_7)" "((phase14_1)" -" phase_88)" +" phase_90)" "((sym15_0)" -" sym_56))" +" sym_57))" "(make-module-binding22.1" " #f" " #f" @@ -33720,7 +33740,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_88))" +" phase_90))" "(add-binding!17.1" " #f" " #f" @@ -33730,20 +33750,20 @@ static const char *startup_source = " temp11_2" " phase12_0))" "(add-defined-sym!" -" defined-syms_9" -" phase_88" -" sym_56" +" defined-syms_10" +" phase_90" +" sym_57" " id_57))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_230" -" rest_141)" +"(for-loop_231" +" rest_142)" "(values))))" "(values))))))" -" for-loop_230)" -" lst_265)))" +" for-loop_231)" +" lst_262)))" "(void)))" "(values)))))" "(values)))))" @@ -33817,9 +33837,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_267) import-module-uses_0)" +"((lst_264) import-module-uses_0)" "((lst_89) import-module-instances_0)" -"((lst_164)" +"((lst_163)" "(let-values(((or-part_84) extra-inspectorsss_4))" "(if or-part_84 or-part_84 import-module-uses_0))))" "(begin" @@ -33828,24 +33848,24 @@ static const char *startup_source = "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_264)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_230)" -"(lambda(lst_266 lst_268 lst_24 lst_102)" +"(let-values()(check-list lst_163)))" +"((letrec-values(((for-loop_231)" +"(lambda(lst_263 lst_265 lst_24 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_266)" -"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_102) #f) #f)" +"(if(if(pair? lst_263)" +"(if(pair? lst_265)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_266))" -"((rest_142)(unsafe-cdr lst_266))" -"((mu_7)(unsafe-car lst_268))" -"((rest_143)(unsafe-cdr lst_268))" +"(let-values(((import-syms_0)(unsafe-car lst_263))" +"((rest_143)(unsafe-cdr lst_263))" +"((mu_7)(unsafe-car lst_265))" +"((rest_144)(unsafe-cdr lst_265))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" "((extra-inspectorss_14)(unsafe-car lst_102))" @@ -33881,7 +33901,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_59)))" -"((letrec-values(((for-loop_231)" +"((letrec-values(((for-loop_232)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -33965,28 +33985,28 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_231" +"(for-loop_232" " rest_9)" "(values))))" "(values))))))" -" for-loop_231)" +" for-loop_232)" " lst_59)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_230 rest_142 rest_143 rest_43 rest_119)" +"(for-loop_231 rest_143 rest_144 rest_43 rest_119)" "(values))))" "(values))))))" -" for-loop_230)" +" for-loop_231)" " lst_42" -" lst_267" +" lst_264" " lst_89" -" lst_164)))" +" lst_163)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_89 sym_57 insp_11)" +"(lambda(mi_17 phase_91 sym_58 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" @@ -33995,7 +34015,7 @@ static const char *startup_source = "(let-values(((access_3)" "(let-values(((or-part_247)(module-access m_16)))" "(if or-part_247 or-part_247(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_89 '#hasheq()) sym_57 'unexported)))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_91 '#hasheq()) sym_58 'unexported)))" "(if(let-values(((or-part_248)(eq? a_44 'unexported)))" "(if or-part_248 or-part_248(eq? a_44 'protected)))" "(let-values()" @@ -34070,7 +34090,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_233)" "(lambda(table_188 pos_98)" "(begin" " 'for-loop" @@ -34116,12 +34136,12 @@ static const char *startup_source = " for-loop_50)" " table_188)))))" "(if(not #f)" -"(for-loop_232" +"(for-loop_233" " table_189" "(+ pos_98 inc_20))" " table_189)))" " table_188)))))" -" for-loop_232)" +" for-loop_233)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34163,7 +34183,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_234)" "(lambda(lst_93)" "(begin" " 'for-loop" @@ -34199,11 +34219,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_234" " rest_44)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_234)" " lst_20)))" "(void))" "(begin" @@ -34223,7 +34243,7 @@ static const char *startup_source = "(let-values(((name_49)" "(unsafe-car" " lst_7))" -"((rest_144)" +"((rest_145)" "(unsafe-cdr" " lst_7)))" "(let-values((()" @@ -34263,7 +34283,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_26" -" rest_144)" +" rest_145)" "(values))))" "(values))))))" " for-loop_26)" @@ -34380,7 +34400,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_269)" +"(let-values(((lst_266)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34388,21 +34408,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_269)))" -"((letrec-values(((for-loop_234)" +" lst_266)))" +"((letrec-values(((for-loop_235)" "(lambda(mis_2" " is_1" -" lst_270)" +" lst_267)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" +" lst_267)" "(let-values(((mu_8)" "(unsafe-car" -" lst_270))" -"((rest_145)" +" lst_267))" +"((rest_146)" "(unsafe-cdr" -" lst_270)))" +" lst_267)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34450,20 +34470,20 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_235" " mis_3" " is_2" -" rest_145)" +" rest_146)" "(values" " mis_3" " is_2))))" "(values" " mis_2" " is_1))))))" -" for-loop_234)" +" for-loop_235)" " null" " null" -" lst_269)))))" +" lst_266)))))" "(values" "(reverse$1" " mis_1)" @@ -34848,12 +34868,12 @@ static const char *startup_source = "(let-values(((ht_120) phases-h_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_120)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_236)" "(lambda(table_195 i_150)" "(begin" " 'for-loop" "(if i_150" -"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_120 i_150)))" +"(let-values(((phase_92 linklet_5)(hash-iterate-key+value ht_120 i_150)))" "(let-values(((table_196)" "(let-values(((table_197) table_195))" "(let-values(((table_147)" @@ -34861,16 +34881,16 @@ static const char *startup_source = "(let-values(((key_71 val_62)" "(let-values()" "(values" -" phase_90" +" phase_92" "(1/linklet-export-variables" " linklet_5)))))" "(hash-set table_197 key_71 val_62)))))" "(values table_147)))))" "(if(not #f)" -"(for-loop_235 table_196(hash-iterate-next ht_120 i_150))" +"(for-loop_236 table_196(hash-iterate-next ht_120 i_150))" " table_196)))" " table_195)))))" -" for-loop_235)" +" for-loop_236)" " '#hash()" "(hash-iterate-first ht_120)))))))" "(define-values" @@ -34893,7 +34913,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_151" -"(let-values(((phase_91 at-phase_11)" +"(let-values(((phase_93 at-phase_11)" "(hash-iterate-key+value ht_121 i_151)))" "(let-values(((fold-var_60)" "(let-values(((l_66)" @@ -34907,25 +34927,25 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_236)" -"(lambda(fold-var_222" +"((letrec-values(((for-loop_237)" +"(lambda(fold-var_220" " i_152)" "(begin" " 'for-loop" "(if i_152" -"(let-values(((sym_58" +"(let-values(((sym_59" " b/p_1)" "(hash-iterate-key+value" " ht_114" " i_152)))" -"(let-values(((fold-var_223)" -"(let-values(((fold-var_224)" -" fold-var_222))" +"(let-values(((fold-var_221)" +"(let-values(((fold-var_222)" +" fold-var_220))" "(if(ok?_24" " b/p_1)" -"(let-values(((fold-var_225)" -" fold-var_224))" -"(let-values(((fold-var_226)" +"(let-values(((fold-var_223)" +" fold-var_222))" +"(let-values(((fold-var_224)" "(let-values()" "(cons" "(let-values()" @@ -34933,7 +34953,7 @@ static const char *startup_source = "(provided-as-binding" " b/p_1)))" "(list" -" sym_58" +" sym_59" "(if(eq?" " self_24" "(module-binding-module" @@ -34954,22 +34974,22 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_227" -" lst_271)" +"((letrec-values(((for-loop_238)" +"(lambda(fold-var_225" +" lst_268)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" +" lst_268)" "(let-values(((b_73)" "(unsafe-car" -" lst_271))" -"((rest_146)" +" lst_268))" +"((rest_147)" "(unsafe-cdr" -" lst_271)))" +" lst_268)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" -" fold-var_227))" +" fold-var_225))" "(let-values(((fold-var_31)" "(let-values()" "(cons" @@ -34977,11 +34997,11 @@ static const char *startup_source = "(if(if(eqv?" "(module-binding-nominal-phase" " b_73)" -" phase_91)" +" phase_93)" "(eq?" "(module-binding-nominal-sym" " b_73)" -" sym_58)" +" sym_59)" " #f)" "(let-values()" "(module-binding-nominal-module" @@ -35001,28 +35021,28 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_237" +"(for-loop_238" " fold-var_29" -" rest_146)" +" rest_147)" " fold-var_29)))" -" fold-var_227)))))" -" for-loop_237)" +" fold-var_225)))))" +" for-loop_238)" " null" " lst_87)))))))))" -" fold-var_225))))" +" fold-var_223))))" "(values" -" fold-var_226)))" -" fold-var_224))))" +" fold-var_224)))" +" fold-var_222))))" "(if(not" " #f)" -"(for-loop_236" -" fold-var_223" +"(for-loop_237" +" fold-var_221" "(hash-iterate-next" " ht_114" " i_152))" -" fold-var_223)))" -" fold-var_222)))))" -" for-loop_236)" +" fold-var_221)))" +" fold-var_220)))))" +" for-loop_237)" " null" "(hash-iterate-first" " ht_114)))))))" @@ -35033,7 +35053,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_158)" +"(let-values(((fold-var_156)" "(let-values(((fold-var_32)" " fold-var_69))" "(if(null?" @@ -35046,7 +35066,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_91" +" phase_93" "(let-values(((l4_0)" " l_66)" "((symbollinklet-directory" "(hash-set" -"(let-values(((lst_174) submods_0))" +"(let-values(((lst_173) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_240)" -"(lambda(ht_123 lst_273)" +"(let-values()(check-list lst_173)))" +"((letrec-values(((for-loop_241)" +"(lambda(ht_123 lst_270)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((submod_1)(unsafe-car lst_273))" -"((rest_148)(unsafe-cdr lst_273)))" +"(if(pair? lst_270)" +"(let-values(((submod_1)(unsafe-car lst_270))" +"((rest_149)(unsafe-cdr lst_270)))" "(let-values(((ht_124)" "(let-values(((ht_125) ht_123))" "(let-values(((ht_115)" @@ -35362,11 +35382,11 @@ static const char *startup_source = "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_115)))))" -"(if(not #f)(for-loop_240 ht_124 rest_148) ht_124)))" +"(if(not #f)(for-loop_241 ht_124 rest_149) ht_124)))" " ht_123)))))" -" for-loop_240)" +" for-loop_241)" " '#hasheq()" -" lst_174)))" +" lst_173)))" " #f" " main_0))))))))))" "(define-values" @@ -35641,7 +35661,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_191)" "(lambda(table_63 pos_100)" "(begin" " 'for-loop" @@ -35669,9 +35689,9 @@ static const char *startup_source = " key_74" " val_65)))))" "(values table_202)))))" -"(if(not #f)(for-loop_190 table_66(+ pos_100 inc_21)) table_66)))" +"(if(not #f)(for-loop_191 table_66(+ pos_100 inc_21)) table_66)))" " table_63)))))" -" for-loop_190)" +" for-loop_191)" " '#hash()" " start_38)))))))))))))" "(define-values" @@ -35787,13 +35807,13 @@ static const char *startup_source = " ht_119" " i_154)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_159)" +"(let-values(((fold-var_157)" " fold-var_69))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_159))" +" fold-var_157))" "(let-values(((fold-var_70)" "(let-values()" "(cons" @@ -35814,7 +35834,7 @@ static const char *startup_source = " star?+compiled_0))))" " fold-var_9))))" "(values fold-var_70)))" -" fold-var_159))))" +" fold-var_157))))" "(if(not #f)" "(for-loop_106" " fold-var_34" @@ -36061,7 +36081,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_274)" +"(let-values(((lst_271)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -36069,19 +36089,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_274)))" +" lst_271)))" "((letrec-values(((for-loop_13)" -"(lambda(lst_275)" +"(lambda(lst_272)" "(begin" " 'for-loop" "(if(pair?" -" lst_275)" +" lst_272)" "(let-values(((kw_0)" "(unsafe-car" -" lst_275))" -"((rest_149)" +" lst_272))" +"((rest_150)" "(unsafe-cdr" -" lst_275)))" +" lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36114,16 +36134,16 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_13" -" rest_149)" +" rest_150)" "(values))))" "(values))))))" " for-loop_13)" -" lst_274)))" +" lst_271)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_93)" +"(lambda(mod-name_17 phase_95)" "(let-values(((ht_127)" "(if modules-being-compiled_1" "(hash-ref" @@ -36134,7 +36154,7 @@ static const char *startup_source = "(if ht_127" "(hash-ref" " ht_127" -" phase_93" +" phase_95" " #f)" " #f))))" "((to-source?67_0) to-source?_4)" @@ -36189,7 +36209,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_155" -"(let-values(((phase_94" +"(let-values(((phase_96" " linklet_6)" "(hash-iterate-key+value" " ht_128" @@ -36203,12 +36223,12 @@ static const char *startup_source = " val_66)" "(let-values()" "(values" -" phase_94" +" phase_96" "(module-linklet-info2.1" " linklet_6" "(hash-ref" " phase-to-link-module-uses_4" -" phase_94" +" phase_96" " #f)" " self_25" " #f" @@ -36216,7 +36236,7 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_94" +" phase_96" " #f)" " #f))))))" "(hash-set" @@ -36546,7 +36566,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_206)" +"(let-values(((lst_205)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36556,20 +36576,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_206)))" +" lst_205)))" "((letrec-values(((for-loop_124)" "(lambda(ht_129" -" lst_276)" +" lst_273)" "(begin" " 'for-loop" "(if(pair?" -" lst_276)" +" lst_273)" "(let-values(((sm_0)" "(unsafe-car" -" lst_276))" -"((rest_150)" +" lst_273))" +"((rest_151)" "(unsafe-cdr" -" lst_276)))" +" lst_273)))" "(let-values(((ht_130)" "(let-values(((ht_131)" " ht_129))" @@ -36590,12 +36610,12 @@ static const char *startup_source = " #f)" "(for-loop_124" " ht_130" -" rest_150)" +" rest_151)" " ht_130)))" " ht_129)))))" " for-loop_124)" "(hasheq #f bundle_1)" -" lst_206))))))))" +" lst_205))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36627,15 +36647,15 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_277) pre-submodules_2))" +"(let-values(((lst_274) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_241)" -"(lambda(lst_278)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" +"((letrec-values(((for-loop_242)" +"(lambda(lst_275)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((s_106)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" +"(if(pair? lst_275)" +"(let-values(((s_106)(unsafe-car lst_275))((rest_152)(unsafe-cdr lst_275)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36679,7 +36699,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_132)))" -"((letrec-values(((for-loop_242)" +"((letrec-values(((for-loop_243)" "(lambda(table_207" " i_5)" "(begin" @@ -36730,23 +36750,23 @@ static const char *startup_source = " table_209))))" "(if(not" " #f)" -"(for-loop_242" +"(for-loop_243" " table_208" "(hash-iterate-next" " ht_132" " i_5))" " table_208)))" " table_207)))))" -" for-loop_242)" +" for-loop_243)" " '#hasheq()" "(hash-iterate-first" " ht_132))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_151)(values))))" +"(if(not #f)(for-loop_242 rest_152)(values))))" "(values))))))" -" for-loop_241)" -" lst_277)))" +" for-loop_242)" +" lst_274)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36774,7 +36794,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_133)))" -"((letrec-values(((for-loop_243)" +"((letrec-values(((for-loop_244)" "(lambda(table_211 i_156)" "(begin" " 'for-loop" @@ -36797,10 +36817,10 @@ static const char *startup_source = "(hash-set table_213 key_77 val_68)))))" "(values table_214)))))" "(if(not #f)" -"(for-loop_243 table_212(hash-iterate-next ht_133 i_156))" +"(for-loop_244 table_212(hash-iterate-next ht_133 i_156))" " table_212)))" " table_211)))))" -" for-loop_243)" +" for-loop_244)" " '#hasheq()" "(hash-iterate-first ht_133))))))" "(if(1/linklet-directory? c_31)" @@ -36811,7 +36831,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_134)))" -"((letrec-values(((for-loop_244)" +"((letrec-values(((for-loop_245)" "(lambda(table_215 i_157)" "(begin" " 'for-loop" @@ -36835,10 +36855,10 @@ static const char *startup_source = "(hash-set table_217 key_78 val_69)))))" "(values table_218)))))" "(if(not #f)" -"(for-loop_244 table_216(hash-iterate-next ht_134 i_157))" +"(for-loop_245 table_216(hash-iterate-next ht_134 i_157))" " table_216)))" " table_215)))))" -" for-loop_244)" +" for-loop_245)" " '#hasheq()" "(hash-iterate-first ht_134))))))" "(let-values() c_31)))))))" @@ -36900,16 +36920,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_267) l_68)" +"(let-values(((lst_264) l_68)" "((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_164)" +"((lst_163)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_265)" +"((lst_262)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36917,7 +36937,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_264)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36925,21 +36945,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_230)" -"(lambda(fold-var_159" -" lst_268" +"(let-values()(check-list lst_262)))" +"((letrec-values(((for-loop_231)" +"(lambda(fold-var_157" +" lst_265" " lst_24" " lst_102" " lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_268)" +" lst_265)" "(if(pair?" " lst_24)" "(if(pair?" @@ -36951,10 +36971,10 @@ static const char *startup_source = " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_268))" -"((rest_152)" +" lst_265))" +"((rest_153)" "(unsafe-cdr" -" lst_268))" +" lst_265))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36973,10 +36993,10 @@ static const char *startup_source = "((rest_37)" "(unsafe-cdr" " lst_90)))" +"(let-values(((fold-var_166)" +"(let-values(((fold-var_167)" +" fold-var_157))" "(let-values(((fold-var_168)" -"(let-values(((fold-var_169)" -" fold-var_159))" -"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -36985,24 +37005,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_169))))" +" fold-var_167))))" "(values" -" fold-var_170)))))" +" fold-var_168)))))" "(if(not #f)" -"(for-loop_230" -" fold-var_168" -" rest_152" +"(for-loop_231" +" fold-var_166" +" rest_153" " rest_49" " rest_89" " rest_37)" -" fold-var_168)))" -" fold-var_159)))))" -" for-loop_230)" +" fold-var_166)))" +" fold-var_157)))))" +" for-loop_231)" " null" -" lst_267" +" lst_264" " lst_89" -" lst_164" -" lst_265))))))))" +" lst_163" +" lst_262))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -37110,7 +37130,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_245)" +"((letrec-values(((for-loop_246)" "(lambda(i_161 pos_103)" "(begin" " 'for-loop" @@ -37148,14 +37168,14 @@ static const char *startup_source = " i_96))" "(not #f)" " #f)" -"(for-loop_245" +"(for-loop_246" " i_162" "(+" " pos_103" " inc_22))" " i_162)))" " i_161)))))" -" for-loop_245)" +" for-loop_246)" " 0" " start_15)))))" " v_34))))" @@ -37182,21 +37202,21 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_178) names_2))" +"(let-values(((lst_177) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_5 lst_279)" +"(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((name_44)(unsafe-car lst_279))" -"((rest_153)(unsafe-cdr lst_279)))" +"(if(pair? lst_276)" +"(let-values(((name_44)(unsafe-car lst_276))" +"((rest_154)(unsafe-cdr lst_276)))" +"(let-values(((fold-var_227)" +"(let-values(((fold-var_228) fold-var_5))" "(let-values(((fold-var_229)" -"(let-values(((fold-var_230) fold-var_5))" -"(let-values(((fold-var_231)" "(let-values()" "(cons" "(let-values()" @@ -37207,13 +37227,13 @@ static const char *startup_source = "(error" " \"missing submodule declaration:\"" " name_44))))" -" fold-var_230))))" -"(values fold-var_231)))))" -"(if(not #f)(for-loop_246 fold-var_229 rest_153) fold-var_229)))" +" fold-var_228))))" +"(values fold-var_229)))))" +"(if(not #f)(for-loop_247 fold-var_227 rest_154) fold-var_227)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_247)" " null" -" lst_178))))))))))))))" +" lst_177))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -37341,7 +37361,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(> pos_104 end_29)" -"(let-values(((phase_95) pos_104))" +"(let-values(((phase_97) pos_104))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37355,13 +37375,13 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_95" +" phase_97" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_226)" +"(let-values(((lst_225)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37369,21 +37389,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" +" lst_225)))" "((letrec-values(((for-loop_99)" "(lambda(mis_7" " is_6" -" lst_227)" +" lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" +" lst_226)" "(let-values(((mu_9)" "(unsafe-car" -" lst_227))" +" lst_226))" "((rest_121)" "(unsafe-cdr" -" lst_227)))" +" lst_226)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37403,7 +37423,7 @@ static const char *startup_source = "((temp33_1)" "(phase-" "(phase+" -" phase_95" +" phase_97" " phase-shift_19)" "(module-use-phase" " mu_9))))" @@ -37440,7 +37460,7 @@ static const char *startup_source = " for-loop_99)" " null" " null" -" lst_226)))))" +" lst_225)))))" "(values" "(reverse$1" " mis_6)" @@ -37450,7 +37470,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_70" "(phase+" -" phase_95" +" phase_97" " phase-shift_19))))" "(let-values(((inst_6)" "(if single-expression?_1" @@ -37475,7 +37495,7 @@ static const char *startup_source = " ns_70" "(phase+" "(sub1" -" phase_95)" +" phase_97)" " phase-shift_19)" " name_45" " val_70))))" @@ -37489,7 +37509,7 @@ static const char *startup_source = "(let-values(((linklet_9)" "(hash-ref" " h_11" -" phase_95" +" phase_97" " #f)))" "(if linklet_9" "(let-values()" @@ -37510,7 +37530,7 @@ static const char *startup_source = "((temp46_1)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_95" +" phase_97" " #f)))" "(check-require-access9.1" " temp41_2" @@ -37536,14 +37556,14 @@ static const char *startup_source = " ns_70" "(phase-" "(phase+" -" phase_95" +" phase_97" " phase-shift_19)" "(namespace-0-phase" " ns_70)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_95)" +" phase_97)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -37567,7 +37587,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_95))))" +" phase_97))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37638,7 +37658,7 @@ static const char *startup_source = "(values vec_68(unsafe-vector-length vec_68))))))" "(begin" " #f" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_248)" "(lambda(i_163 pos_105)" "(begin" " 'for-loop" @@ -37669,10 +37689,10 @@ static const char *startup_source = " s_389))" "(not #f)" " #f)" -"(for-loop_247 i_164(unsafe-fx+ 1 pos_105))" +"(for-loop_248 i_164(unsafe-fx+ 1 pos_105))" " i_164)))" " i_163)))))" -" for-loop_247)" +" for-loop_248)" " 0" " 0)))))" " v_182)))))))))" @@ -37737,13 +37757,13 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" -"(lambda(fold-var_232 lst_79)" +"(lambda(fold-var_230 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" "(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" -"(let-values(((fold-var_226)" -"(let-values(((fold-var_67) fold-var_232))" +"(let-values(((fold-var_224)" +"(let-values(((fold-var_67) fold-var_230))" "(let-values(((fold-var_26)" "(let-values()" "(cons" @@ -37751,8 +37771,8 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_67))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_96 fold-var_226 rest_36) fold-var_226)))" -" fold-var_232)))))" +"(if(not #f)(for-loop_96 fold-var_224 rest_36) fold-var_224)))" +" fold-var_230)))))" " for-loop_96)" " null" " lst_78))))))" @@ -37805,12 +37825,12 @@ static const char *startup_source = "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))" "(define-values" "(add-runtime-primitive!)" -"(lambda(sym_59)" +"(lambda(sym_60)" "(begin" "(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_59)" +"((sym2_0) sym_60)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_59))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_60))" "(make-module-binding22.1" " #f" " #f" @@ -37906,33 +37926,33 @@ static const char *startup_source = "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_96)" +"(lambda(lifts_1 ids_16 rhs_12 phase_98)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_96)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_98)))" "(begin(box-cons!(lift-context-lifts lifts_1) lifted_0) lifted-ids_0)))))" "(define-values(get-and-clear-lifts!)(lambda(lifts_2)(begin(box-clear!(lift-context-lifts lifts_2)))))" "(define-values" "(make-local-lift)" "(lambda(lift-env_1 counter_3)" "(begin" -"(lambda(ids_17 rhs_13 phase_97)" +"(lambda(ids_17 rhs_13 phase_99)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_280) ids_17))" +"(let-values(((lst_277) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_233 lst_281)" +"(let-values()(check-list lst_277)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_231 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((id_58)(unsafe-car lst_281))" -"((rest_154)(unsafe-cdr lst_281)))" +"(if(pair? lst_278)" +"(let-values(((id_58)(unsafe-car lst_278))" +"((rest_155)(unsafe-cdr lst_278)))" "(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_233))" -"(let-values(((fold-var_234)" +"(let-values(((fold-var_84) fold-var_231))" +"(let-values(((fold-var_232)" "(let-values()" "(cons" "(let-values()" @@ -37940,7 +37960,7 @@ static const char *startup_source = "(let-values(((id32_0)" " id_58)" "((phase33_0)" -" phase_97)" +" phase_99)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -37960,70 +37980,70 @@ static const char *startup_source = " variable))" " key_80)))" " fold-var_84))))" -"(values fold-var_234)))))" -"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" -" fold-var_233)))))" -" for-loop_248)" +"(values fold-var_232)))))" +"(if(not #f)(for-loop_249 fold-var_83 rest_155) fold-var_83)))" +" fold-var_231)))))" +" for-loop_249)" " null" -" lst_280))))))" +" lst_277))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" "(lambda(ctx_11)" "(begin" -"(lambda(ids_18 rhs_14 phase_74)" +"(lambda(ids_18 rhs_14 phase_76)" "(let-values(((post-scope_0)" "(root-expand-context-post-expansion-scope" "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_282) ids_18))" +"(let-values(((lst_279) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_235 lst_183)" +"(let-values()(check-list lst_279)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_233 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((id_59)(unsafe-car lst_183))" -"((rest_155)(unsafe-cdr lst_183)))" +"(if(pair? lst_182)" +"(let-values(((id_59)(unsafe-car lst_182))" +"((rest_156)(unsafe-cdr lst_182)))" +"(let-values(((fold-var_234)" +"(let-values(((fold-var_235) fold-var_233))" "(let-values(((fold-var_236)" -"(let-values(((fold-var_237) fold-var_235))" -"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_59" " post-scope_0))" -" fold-var_237))))" -"(values fold-var_238)))))" +" fold-var_235))))" +"(values fold-var_236)))))" "(if(not #f)" -"(for-loop_249 fold-var_236 rest_155)" -" fold-var_236)))" -" fold-var_235)))))" -" for-loop_249)" +"(for-loop_250 fold-var_234 rest_156)" +" fold-var_234)))" +" fold-var_233)))))" +" for-loop_250)" " null" -" lst_282))))))" +" lst_279))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_5 phase_98)" +"(lambda(lifts_3 body_5 phase_100)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_283)(reverse$1 lifts_3)))" +"(let-values(((lst_280)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_283)))" -"((letrec-values(((for-loop_250)" -"(lambda(body_6 lst_192)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_251)" +"(lambda(body_6 lst_191)" "(begin" " 'for-loop" -"(if(pair? lst_192)" -"(let-values(((lift_0)(unsafe-car lst_192))((rest_100)(unsafe-cdr lst_192)))" +"(if(pair? lst_191)" +"(let-values(((lift_0)(unsafe-car lst_191))((rest_100)(unsafe-cdr lst_191)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -38035,7 +38055,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_98)" +"(syntax-shift-phase-level$1 core-stx phase_100)" " 'let-values)" "(list" "(list" @@ -38043,11 +38063,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_250 body_7 rest_100) body_7)))" +"(if(not #f)(for-loop_251 body_7 rest_100) body_7)))" " body_6)))))" -" for-loop_250)" +" for-loop_251)" " body_5" -" lst_283)))))))" +" lst_280)))))))" "(define-values" "(wrap-lifts-as-begin16.1)" "(lambda(adjust-body10_0 adjust-body12_0 adjust-form9_0 adjust-form11_0 lifts13_0 body14_0 phase15_0)" @@ -38055,31 +38075,31 @@ static const char *startup_source = " 'wrap-lifts-as-begin16" "(let-values(((lifts_4) lifts13_0))" "(let-values(((body_10) body14_0))" -"(let-values(((phase_99) phase15_0))" +"(let-values(((phase_101) phase15_0))" "(let-values(((adjust-form_0)(if adjust-form11_0 adjust-form9_0 values)))" "(let-values(((adjust-body_0)(if adjust-body12_0 adjust-body10_0 values)))" "(let-values()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_99) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_101) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_284) lifts_4))" +"(let-values(((lst_281) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_194)" -"(lambda(fold-var_239 lst_171)" +"(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_195)" +"(lambda(fold-var_237 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_171)" -"(let-values(((lift_1)(unsafe-car lst_171))" -"((rest_156)(unsafe-cdr lst_171)))" +"(if(pair? lst_170)" +"(let-values(((lift_1)(unsafe-car lst_170))" +"((rest_157)(unsafe-cdr lst_170)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_240) fold-var_239))" -"(let-values(((fold-var_241)" +"(let-values(((fold-var_238) fold-var_237))" +"(let-values(((fold-var_239)" "(let-values()" "(cons" "(let-values()" @@ -38092,37 +38112,37 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_99)" +" phase_101)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" " lift_1))))" "(let-values() lift_1))))" -" fold-var_240))))" -"(values fold-var_241)))))" -"(if(not #f)(for-loop_194 fold-var_3 rest_156) fold-var_3)))" -" fold-var_239)))))" -" for-loop_194)" +" fold-var_238))))" +"(values fold-var_239)))))" +"(if(not #f)(for-loop_195 fold-var_3 rest_157) fold-var_3)))" +" fold-var_237)))))" +" for-loop_195)" " null" -" lst_284))))" +" lst_281))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_197) lifts_5))" +"(let-values(((lst_196) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))" -"((letrec-values(((for-loop_251)" -"(lambda(fold-var_101 lst_285)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_196)))" +"((letrec-values(((for-loop_252)" +"(lambda(fold-var_101 lst_282)" "(begin" " 'for-loop" -"(if(pair? lst_285)" -"(let-values(((lift_2)(unsafe-car lst_285))((rest_157)(unsafe-cdr lst_285)))" +"(if(pair? lst_282)" +"(let-values(((lift_2)(unsafe-car lst_282))((rest_158)(unsafe-cdr lst_282)))" "(let-values(((fold-var_35)" -"(let-values(((fold-var_242) fold-var_101))" -"(let-values(((fold-var_243)" +"(let-values(((fold-var_240) fold-var_101))" +"(let-values(((fold-var_241)" "(let-values()" "(cons" "(let-values()" @@ -38130,13 +38150,13 @@ static const char *startup_source = "(lifted-bind-ids lift_2)" "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" -" fold-var_242))))" -"(values fold-var_243)))))" -"(if(not #f)(for-loop_251 fold-var_35 rest_157) fold-var_35)))" +" fold-var_240))))" +"(values fold-var_241)))))" +"(if(not #f)(for-loop_252 fold-var_35 rest_158) fold-var_35)))" " fold-var_101)))))" -" for-loop_251)" +" for-loop_252)" " null" -" lst_197)))))))" +" lst_196)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -38168,13 +38188,13 @@ static const char *startup_source = "(make-struct-field-accessor -ref_71 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" -"(lambda(phase_100 module*-ok?_1)(begin(module-lift-context19.1 phase_100(box null) module*-ok?_1))))" +"(lambda(phase_102 module*-ok?_1)(begin(module-lift-context19.1 phase_102(box null) module*-ok?_1))))" "(define-values" "(get-and-clear-module-lifts!)" "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_390 phase_101)" +"(lambda(module-lifts_2 s_390 phase_103)" "(begin" "(begin" "(if(let-values(((or-part_214)" @@ -38186,7 +38206,7 @@ static const char *startup_source = "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_30)(core-form-sym s_390 phase_101)))" +"(let-values(((tmp_30)(core-form-sym s_390 phase_103)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -38240,10 +38260,10 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_391 phase_102)" +"(lambda(require-lifts_2 s_391 phase_104)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_391 phase_102)" +"((require-lift-context-do-require require-lifts_2) s_391 phase_104)" "(box-cons!(require-lift-context-requires require-lifts_2) s_391)))))" "(define-values" "(struct:to-module-lift-context" @@ -38281,10 +38301,10 @@ static const char *startup_source = "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_103) phase26_2))" +"(let-values(((phase_105) phase26_2))" "(let-values(((ends_0) shared-module-ends22_0))" "(let-values(((end-as-expressions?_0) end-as-expressions?23_0))" -"(let-values()(to-module-lift-context21.1 phase_103(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_105(box null) end-as-expressions?_0 ends_0))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" @@ -38294,11 +38314,11 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_217 phase_104)" +"(lambda(to-module-lifts_3 s_217 phase_106)" "(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_217))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_392 phase_105)" +"(lambda(to-module-lifts_4 s_392 phase_107)" "(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_392))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" @@ -38403,13 +38423,13 @@ static const char *startup_source = "(lambda(s_172 t_45 ctx_13)" "(begin" "(let-values(((wrap_1)" -"(lambda(sym_60)" +"(lambda(sym_61)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_61)(expand-context-phase ctx_13))" " s_172))))))" "(let-values(((fail_0)" "(lambda()" @@ -38481,7 +38501,7 @@ static const char *startup_source = "(let-values(((lst_42) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_185)" +"((letrec-values(((for-loop_186)" "(lambda(lst_89)" "(begin" " 'for-loop" @@ -38498,9 +38518,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_185 rest_118)(values))))))))" +"(if(post-guard-var_0)(for-loop_186 rest_118)(values))))))))" "(values))))))" -" for-loop_185)" +" for-loop_186)" " lst_42)))" "(void)))))" "(define-values" @@ -38513,41 +38533,41 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_253)" "(lambda(ab_3 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" -"(let-values(((key_81)(unsafe-car lst_80))((rest_143)(unsafe-cdr lst_80)))" +"(let-values(((key_81)(unsafe-car lst_80))((rest_144)(unsafe-cdr lst_80)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_81))))" "(values ab_6)))))" -"(if(not #f)(for-loop_252 ab_4 rest_143) ab_4)))" +"(if(not #f)(for-loop_253 ab_4 rest_144) ab_4)))" " ab_3)))))" -" for-loop_252)" +" for-loop_253)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_273) keys_3))" +"(let-values(((lst_270) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" -"((letrec-values(((for-loop_253)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_270)))" +"((letrec-values(((for-loop_254)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_82)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" +"(let-values(((key_82)(unsafe-car lst_25))((rest_159)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" "(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_82))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_253 rbb_1 rest_158) rbb_1)))" +"(if(not #f)(for-loop_254 rbb_1 rest_159) rbb_1)))" " rbb_0)))))" -" for-loop_253)" +" for-loop_254)" "(reference-record-reference-before-bound rr_2)" -" lst_273))))))))" +" lst_270))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" @@ -38755,17 +38775,17 @@ static const char *startup_source = "(lambda(l_70)" "(begin" "(reverse$1" -"(let-values(((lst_178) l_70))" +"(let-values(((lst_177) l_70))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_5 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_26)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_229)" -"(let-values(((fold-var_230) fold-var_5))" +"(if(pair? lst_276)" +"(let-values(((i_26)(unsafe-car lst_276))((rest_154)(unsafe-cdr lst_276)))" +"(let-values(((fold-var_227)" +"(let-values(((fold-var_228) fold-var_5))" "(if(let-values(((or-part_251)(parsed? i_26)))" "(if or-part_251" " or-part_251" @@ -38773,8 +38793,8 @@ static const char *startup_source = "(if or-part_34" " or-part_34" "(semi-parsed-begin-for-syntax? i_26)))))" -"(let-values(((fold-var_161) fold-var_230))" -"(let-values(((fold-var_177)" +"(let-values(((fold-var_159) fold-var_228))" +"(let-values(((fold-var_175)" "(let-values()" "(cons" "(let-values()" @@ -38789,30 +38809,30 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_26))))" "(let-values() i_26))))" -" fold-var_161))))" -"(values fold-var_177)))" -" fold-var_230))))" -"(if(not #f)(for-loop_246 fold-var_229 rest_153) fold-var_229)))" +" fold-var_159))))" +"(values fold-var_175)))" +" fold-var_228))))" +"(if(not #f)(for-loop_247 fold-var_227 rest_154) fold-var_227)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_247)" " null" -" lst_178)))))))" +" lst_177)))))))" "(define-values" "(syntax-only)" "(lambda(l_71)" "(begin" "(reverse$1" -"(let-values(((lst_280) l_71))" +"(let-values(((lst_277) l_71))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_233 lst_281)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_231 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((i_35)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" +"(if(pair? lst_278)" +"(let-values(((i_35)(unsafe-car lst_278))((rest_155)(unsafe-cdr lst_278)))" "(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_233))" +"(let-values(((fold-var_84) fold-var_231))" "(if(let-values(((or-part_24)(syntax?$1 i_35)))" "(if or-part_24" " or-part_24" @@ -38821,7 +38841,7 @@ static const char *startup_source = " or-part_252" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_85) fold-var_84))" -"(let-values(((fold-var_244)" +"(let-values(((fold-var_242)" "(let-values()" "(cons" "(let-values()" @@ -38906,13 +38926,13 @@ static const char *startup_source = " temp12_2)))))))" "(let-values() i_35))))" " fold-var_85))))" -"(values fold-var_244)))" +"(values fold-var_242)))" " fold-var_84))))" -"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" -" fold-var_233)))))" -" for-loop_248)" +"(if(not #f)(for-loop_249 fold-var_83 rest_155) fold-var_83)))" +" fold-var_231)))))" +" for-loop_249)" " null" -" lst_280)))))))" +" lst_277)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" @@ -39065,7 +39085,7 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_185 ctx_17 trigger-id_1)" +"(lambda(sym_62 s_185 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" @@ -39075,7 +39095,7 @@ static const char *startup_source = " s_185))" "(let-values()" "(let-values(((disarmed-s_1)(syntax-disarm$1 s_185)))" -"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_61)))" +"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_62)))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" "(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" " #f)" @@ -39122,13 +39142,13 @@ static const char *startup_source = "(dispatch-transformer" " t_48" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" +"(make-explicit ctx_17 sym_62 s_185 disarmed-s_1)" " id_62" " ctx_17" " b_77))" "(if(core-form? t_48)" "(let-values()" -"(if(if(eq? sym_61 '#%top)" +"(if(if(eq? sym_62 '#%top)" "(if(eq?(core-form-name t_48) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" @@ -39137,11 +39157,11 @@ static const char *startup_source = "(let-values()" "(dispatch-core-form" " t_48" -"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" +"(make-explicit ctx_17 sym_62 s_185 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_61 '#%top)" +"(if(eq? sym_62 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" "(add-scope s_185(root-expand-context-top-level-bind-scope ctx_17))" " #f)" @@ -39162,7 +39182,7 @@ static const char *startup_source = "(let-values()" "(raise-syntax-implicit-error" " s_185" -" sym_61" +" sym_62" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" @@ -39211,10 +39231,10 @@ static const char *startup_source = " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_307 disarmed-s_2)" +"(lambda(ctx_19 sym_63 s_307 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_307 s_307) s_307)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_63 disarmed-s_2) s_307 s_307) s_307)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" @@ -39350,17 +39370,17 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-s125_0) exp-s_1)" "((re-ctx126_0) re-ctx_0)" -"((temp127_0)" +"((temp127_1)" "(if(1/rename-transformer? t_52)" "(syntax-track-origin$1" "(transfer-srcloc(rename-transformer-target-in-context t_52 ctx_23) id_64)" " id_64" " id_64)" " #f))" -"((temp128_0)" +"((temp128_1)" "(let-values(((or-part_253)(expand-context-only-immediate? ctx_23)))" "(if or-part_253 or-part_253(1/rename-transformer? t_52)))))" -"(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" +"(expand7.1 temp127_1 #t temp128_1 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" "(lambda(t_53 s_396 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" @@ -39383,9 +39403,9 @@ static const char *startup_source = "(let-values(((result-s_4)" "(let-values(((id129_0) id_65)" "((t130_0) t_53)" -"((temp131_0)" +"((temp131_1)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" -"(substitute-variable6.1 temp131_0 id129_0 t130_0))))" +"(substitute-variable6.1 temp131_1 id129_0 t130_0))))" "(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" @@ -39623,10 +39643,10 @@ static const char *startup_source = "(if out-of-context-as-variable?24_0 out-of-context-as-variable?22_0 #f)))" "(let-values()" "(let-values(((b137_0) b_79)" -"((temp138_0)(expand-context-env ctx_30))" +"((temp138_1)(expand-context-env ctx_30))" "((temp139_0)(expand-context-lift-envs ctx_30))" -"((temp140_1)(expand-context-namespace ctx_30))" -"((temp141_1)(expand-context-phase ctx_30))" +"((temp140_0)(expand-context-namespace ctx_30))" +"((temp141_0)(expand-context-phase ctx_30))" "((id142_0) id_68)" "((in-s143_0) in-s_7)" "((out-of-context-as-variable?144_0) out-of-context-as-variable?_1))" @@ -39636,10 +39656,10 @@ static const char *startup_source = " out-of-context-as-variable?144_0" " #t" " b137_0" -" temp138_0" +" temp138_1" " temp139_0" -" temp140_1" -" temp141_1" +" temp140_0" +" temp141_0" " id142_0)))))))))))" "(define-values" "(substitute-alternate-id)" @@ -39685,7 +39705,7 @@ static const char *startup_source = "(let-values(((always-wrap?_0)(if always-wrap?38_0 always-wrap?34_0 #f)))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_106)(expand-context-phase ctx_31)))" +"(let-values(((phase_108)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_94)" "(lambda(s_223 always-wrap?_1 ctx_32)" @@ -39693,17 +39713,17 @@ static const char *startup_source = " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" "(let-values(((lift-ctx_0)" -"(let-values(((temp145_1)" +"(let-values(((temp145_0)" "(if local?_0" "(make-local-lift" " lift-env_2" "(root-expand-context-counter ctx_32))" "(make-top-level-lift ctx_32)))" -"((temp146_1)" +"((temp146_0)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp146_1 #t temp145_1))))" +"(make-lift-context6.1 temp146_0 #t temp145_0))))" "(let-values(((capture-ctx_0)" "(let-values(((v_75) ctx_32))" "(let-values(((the-struct_57) v_75))" @@ -39861,7 +39881,7 @@ static const char *startup_source = "(let-values(((lifts154_0) lifts_6)" "((exp-s155_0) exp-s_2)" "((phase156_0)" -" phase_106))" +" phase_108))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -39873,7 +39893,7 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_106)))))" +" phase_108)))))" "(let-values() exp-s_2))))" "(if(let-values(((or-part_109)(not expand-lifts?_0)))" "(if or-part_109" @@ -39964,10 +39984,10 @@ static const char *startup_source = "(let-values(((context_8)(if context64_0 context63_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?62_0 keep-stops?61_0 #f)))" "(let-values()" -"(let-values(((phase_107)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_107)))" +"(let-values(((phase_109)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_109)))" "(begin" -"(namespace-visit-available-modules! ns_73 phase_107)" +"(namespace-visit-available-modules! ns_73 phase_109)" "(let-values(((v_185) ctx_34))" "(let-values(((the-struct_59) v_185))" "(if(expand-context/outer? the-struct_59)" @@ -39981,7 +40001,7 @@ static const char *startup_source = "((inner172_0)" "(let-values(((the-struct_60)(root-expand-context/outer-inner v_185)))" "(if(expand-context/inner? the-struct_60)" -"(let-values(((phase173_0) phase_107)" +"(let-values(((phase173_0) phase_109)" "((namespace174_0) ns_73)" "((stops175_0)" "(if keep-stops?_1" @@ -40047,7 +40067,7 @@ static const char *startup_source = "(let-values(((exp-rhs_0)" "(let-values(((rhs176_0) rhs_16)((temp177_0)(as-named-context ctx_35 ids_19)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs176_0 temp177_0))))" -"(let-values(((phase_108)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_110)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -40068,8 +40088,8 @@ static const char *startup_source = "(eval-for-bindings" " ids_19" " parsed-rhs_0" -" phase_108" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_108)" +" phase_110" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_110)" " ctx_35))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -40081,14 +40101,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_49 phase_109 ns_74 ctx_37)" +"(lambda(ids_21 p_49 phase_111 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" "(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_49" -"(let-values(((ns184_0) ns_74)((phase185_0) phase_109))" +"(let-values(((ns184_0) ns_74)((phase185_0) phase_111))" "(make-compile-context14.1 #f #f #f #f #f #f ns184_0 #t phase185_0 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" @@ -40210,35 +40230,35 @@ static const char *startup_source = "(let-values(((the-struct_61) v_186))" "(if(expand-context/outer? the-struct_61)" "(let-values(((env186_0)" -"(let-values(((lst_286) ids_24)((lst_287) keys_4))" +"(let-values(((lst_283) ids_24)((lst_284) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_286)))" +"(let-values()(check-list lst_283)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_254)" -"(lambda(env_3 lst_288 lst_289)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_255)" +"(lambda(env_3 lst_285 lst_286)" "(begin" " 'for-loop" -"(if(if(pair? lst_288)" -"(pair? lst_289)" +"(if(if(pair? lst_285)" +"(pair? lst_286)" " #f)" "(let-values(((id_69)" "(unsafe-car" -" lst_288))" -"((rest_159)" -"(unsafe-cdr" -" lst_288))" -"((key_84)" -"(unsafe-car" -" lst_289))" +" lst_285))" "((rest_160)" "(unsafe-cdr" -" lst_289)))" +" lst_285))" +"((key_84)" +"(unsafe-car" +" lst_286))" +"((rest_161)" +"(unsafe-cdr" +" lst_286)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40252,16 +40272,16 @@ static const char *startup_source = "(values" " env_6)))))" "(if(not #f)" -"(for-loop_254" +"(for-loop_255" " env_4" -" rest_159" -" rest_160)" +" rest_160" +" rest_161)" " env_4)))" " env_3)))))" -" for-loop_254)" +" for-loop_255)" "(expand-context-env rhs-ctx_1)" -" lst_286" -" lst_287))))" +" lst_283" +" lst_284))))" "((inner187_0)(root-expand-context/outer-inner v_186)))" "(expand-context/outer1.1" " inner187_0" @@ -40296,14 +40316,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_56))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_71 id_70 phase_110 ctx_42)" +"(lambda(val_71 id_70 phase_112 ctx_42)" "(begin" "(if(1/rename-transformer? val_71)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_71 id_70 phase_110))))" +"(let-values()(maybe-install-free=id! val_71 id_70 phase_112))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40351,7 +40371,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_63)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" +"(let-values(((sym_64)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_60)" @@ -40360,7 +40380,7 @@ static const char *startup_source = "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_63))" +" sym_64))" " fold-var_90))))" "(values fold-var_60)))))" "(if(not #f)(for-loop_111 fold-var_89 rest_48) fold-var_89)))" @@ -40387,33 +40407,33 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_111)" +"(lambda(phase_113)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_111)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_113)))" "(reverse$1" -"(let-values(((lst_224) module-stop-syms))" +"(let-values(((lst_223) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_245 lst_264)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_243 lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_264)" -"(let-values(((sym_16)(unsafe-car lst_264))((rest_161)(unsafe-cdr lst_264)))" +"(if(pair? lst_261)" +"(let-values(((sym_16)(unsafe-car lst_261))((rest_162)(unsafe-cdr lst_261)))" +"(let-values(((fold-var_222)" +"(let-values(((fold-var_223) fold-var_243))" "(let-values(((fold-var_224)" -"(let-values(((fold-var_225) fold-var_245))" -"(let-values(((fold-var_226)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_16))" -" fold-var_225))))" -"(values fold-var_226)))))" -"(if(not #f)(for-loop_255 fold-var_224 rest_161) fold-var_224)))" -" fold-var_245)))))" -" for-loop_255)" +" fold-var_223))))" +"(values fold-var_224)))))" +"(if(not #f)(for-loop_256 fold-var_222 rest_162) fold-var_222)))" +" fold-var_243)))))" +" for-loop_256)" " null" -" lst_224))))))))" +" lst_223))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40552,26 +40572,26 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_28 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_112)(expand-context-phase ctx_44)))" +"(let-values(((phase_114)(expand-context-phase ctx_44)))" "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_290) ids_25))" +"(let-values(((lst_287) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_176)" -"(lambda(fold-var_16 lst_187)" +"(let-values()(check-list lst_287)))" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_16 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_187)" -"(let-values(((id_71)(unsafe-car lst_187))" -"((rest_162)(unsafe-cdr lst_187)))" -"(let-values(((fold-var_235)" -"(let-values(((fold-var_246)" +"(if(pair? lst_186)" +"(let-values(((id_71)(unsafe-car lst_186))" +"((rest_163)(unsafe-cdr lst_186)))" +"(let-values(((fold-var_233)" +"(let-values(((fold-var_244)" " fold-var_16))" -"(let-values(((fold-var_247)" +"(let-values(((fold-var_245)" "(let-values()" "(cons" "(let-values()" @@ -40594,15 +40614,15 @@ static const char *startup_source = " #t" " pre-id44_0" " intdef45_0))))" -" fold-var_246))))" -"(values fold-var_247)))))" +" fold-var_244))))" +"(values fold-var_245)))))" "(if(not #f)" -"(for-loop_176 fold-var_235 rest_162)" -" fold-var_235)))" +"(for-loop_177 fold-var_233 rest_163)" +" fold-var_233)))" " fold-var_16)))))" -" for-loop_176)" +" for-loop_177)" " null" -" lst_290))))))" +" lst_287))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40613,29 +40633,29 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_291) intdef-ids_0))" +"(let-values(((lst_288) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_248 lst_292)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_246 lst_289)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((intdef-id_0)(unsafe-car lst_292))" -"((rest_163)(unsafe-cdr lst_292)))" +"(if(pair? lst_289)" +"(let-values(((intdef-id_0)(unsafe-car lst_289))" +"((rest_164)(unsafe-cdr lst_289)))" +"(let-values(((fold-var_247)" +"(let-values(((fold-var_248)" +" fold-var_246))" "(let-values(((fold-var_249)" -"(let-values(((fold-var_250)" -" fold-var_248))" -"(let-values(((fold-var_251)" "(let-values()" "(cons" "(let-values()" "(let-values(((intdef-id47_0)" " intdef-id_0)" "((phase48_1)" -" phase_112)" +" phase_114)" "((temp49_1)" "(root-expand-context-counter" " ctx_44))" @@ -40650,15 +40670,15 @@ static const char *startup_source = " intdef-id47_0" " phase48_1" " temp49_1)))" -" fold-var_250))))" -"(values fold-var_251)))))" +" fold-var_248))))" +"(values fold-var_249)))))" "(if(not #f)" -"(for-loop_256 fold-var_249 rest_163)" -" fold-var_249)))" -" fold-var_248)))))" -" for-loop_256)" +"(for-loop_257 fold-var_247 rest_164)" +" fold-var_247)))" +" fold-var_246)))))" +" for-loop_257)" " null" -" lst_291))))))" +" lst_288))))))" "(let-values(((vals_5)" "(if s_403" "(let-values()" @@ -40670,23 +40690,23 @@ static const char *startup_source = "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_293) syms_21))" +"(let-values(((lst_290) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_170)" +"(lambda(env_7 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((sym_64)" +"(if(pair? lst_169)" +"(let-values(((sym_65)" "(unsafe-car" -" lst_170))" -"((rest_164)" +" lst_169))" +"((rest_165)" "(unsafe-cdr" -" lst_170)))" +" lst_169)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40694,19 +40714,19 @@ static const char *startup_source = "(let-values()" "(hash-set" " env_9" -" sym_64" +" sym_65" " variable))))" "(values" " env_10)))))" "(if(not #f)" "(for-loop_6" " env_8" -" rest_164)" +" rest_165)" " env_8)))" " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_293)))))" +" lst_290)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40786,69 +40806,69 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_294) ids_25))" +"(let-values(((lst_291) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_294)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_183 lst_295)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_181 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_295)" -"(let-values(((id_72)(unsafe-car lst_295))" -"((rest_165)(unsafe-cdr lst_295)))" +"(if(pair? lst_292)" +"(let-values(((id_72)(unsafe-car lst_292))" +"((rest_166)(unsafe-cdr lst_292)))" +"(let-values(((fold-var_250)" +"(let-values(((fold-var_251)" +" fold-var_181))" "(let-values(((fold-var_252)" -"(let-values(((fold-var_253)" -" fold-var_183))" -"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_253))))" -"(values fold-var_254)))))" +" fold-var_251))))" +"(values fold-var_252)))))" "(if(not #f)" -"(for-loop_257 fold-var_252 rest_165)" -" fold-var_252)))" -" fold-var_183)))))" -" for-loop_257)" +"(for-loop_258 fold-var_250 rest_166)" +" fold-var_250)))" +" fold-var_181)))))" +" for-loop_258)" " null" -" lst_294))))))))" +" lst_291))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_296) intdef-ids_0)((lst_297) syms_21)((lst_298) vals_5))" +"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_296)))" +"(let-values()(check-list lst_293)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_297)))" +"(let-values()(check-list lst_294)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_298)))" +"(let-values()(check-list lst_295)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_255 lst_299 lst_106 lst_300)" +"(lambda(fold-var_253 lst_296 lst_106 lst_297)" "(begin" " 'for-loop" -"(if(if(pair? lst_299)" -"(if(pair? lst_106)(pair? lst_300) #f)" +"(if(if(pair? lst_296)" +"(if(pair? lst_106)(pair? lst_297) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_299))" -"((rest_166)(unsafe-cdr lst_299))" -"((sym_65)(unsafe-car lst_106))" +"(let-values(((intdef-id_1)(unsafe-car lst_296))" +"((rest_167)(unsafe-cdr lst_296))" +"((sym_66)(unsafe-car lst_106))" "((rest_102)(unsafe-cdr lst_106))" -"((val_27)(unsafe-car lst_300))" -"((rest_167)(unsafe-cdr lst_300)))" -"(let-values(((fold-var_188)" +"((val_27)(unsafe-car lst_297))" +"((rest_168)(unsafe-cdr lst_297)))" +"(let-values(((fold-var_186)" "(let-values(((fold-var_35)" -" fold-var_255))" -"(let-values(((fold-var_242)" +" fold-var_253))" +"(let-values(((fold-var_240)" "(let-values()" "(cons" "(let-values()" @@ -40856,28 +40876,28 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_27" " intdef-id_1" -" phase_112" +" phase_114" " ctx_44)" "(env-mixin2.1" " intdef-id_1" -" sym_65" +" sym_66" " val_27" "(make-weak-hasheq))))" " fold-var_35))))" -"(values fold-var_242)))))" +"(values fold-var_240)))))" "(if(not #f)" "(for-loop_79" -" fold-var_188" -" rest_166" +" fold-var_186" +" rest_167" " rest_102" -" rest_167)" -" fold-var_188)))" -" fold-var_255)))))" +" rest_168)" +" fold-var_186)))" +" fold-var_253)))))" " for-loop_79)" " null" -" lst_296" -" lst_297" -" lst_298))))" +" lst_293" +" lst_294" +" lst_295))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40897,29 +40917,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_301)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_38 lst_230)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_38 lst_229)" "(begin" " 'for-loop" -"(if(pair? lst_230)" -"(let-values(((env-mixin_0)(unsafe-car lst_230))" -"((rest_168)(unsafe-cdr lst_230)))" -"(let-values(((fold-var_256)" -"(let-values(((fold-var_189) fold-var_38))" -"(let-values(((fold-var_257)" +"(if(pair? lst_229)" +"(let-values(((env-mixin_0)(unsafe-car lst_229))" +"((rest_169)(unsafe-cdr lst_229)))" +"(let-values(((fold-var_254)" +"(let-values(((fold-var_187) fold-var_38))" +"(let-values(((fold-var_255)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_189))))" -"(values fold-var_257)))))" -"(if(not #f)(for-loop_258 fold-var_256 rest_168) fold-var_256)))" +" fold-var_187))))" +"(values fold-var_255)))))" +"(if(not #f)(for-loop_259 fold-var_254 rest_169) fold-var_254)))" " fold-var_38)))))" -" for-loop_258)" +" for-loop_259)" " null" -" lst_301))))))))" +" lst_298))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40997,7 +41017,7 @@ static const char *startup_source = "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_178)" "(lambda(id_19 a_46)" "(begin" " 'for-loop" @@ -41012,9 +41032,9 @@ static const char *startup_source = " id_75" " 'remove))))" "(values id_76)))))" -"(if(not #f)(for-loop_177 id_74(cdr a_46)) id_74)))" +"(if(not #f)(for-loop_178 id_74(cdr a_46)) id_74)))" " id_19)))))" -" for-loop_177)" +" for-loop_178)" " id_73" " x_75)))))))" "(define-values" @@ -41028,7 +41048,7 @@ static const char *startup_source = "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_260)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -41081,9 +41101,9 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_259 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_260 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_259)" +" for-loop_260)" " env_11" " x_76))))))" "(define-values" @@ -41103,7 +41123,7 @@ static const char *startup_source = "(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" "(begin" " #t" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_181)" "(lambda(s_391 a_50)" "(begin" " 'for-loop" @@ -41125,9 +41145,9 @@ static const char *startup_source = " intdef_9)))))" "(values s_319)))" " s_210))))" -"(if(not #f)(for-loop_180 s_209(cdr a_50)) s_209)))" +"(if(not #f)(for-loop_181 s_209(cdr a_50)) s_209)))" " s_391)))))" -" for-loop_180)" +" for-loop_181)" " s_405" " x_77)))))))))))" "(define-values" @@ -41147,7 +41167,7 @@ static const char *startup_source = " 'make-local-expand-context37" "(let-values(((ctx_45) ctx36_0))" "(let-values(((context_9) context24_0))" -"(let-values(((phase_113)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" +"(let-values(((phase_115)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs26_0))" "(let-values(((stop-ids_1)(if stop-ids33_0 stop-ids27_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?34_0 to-parsed-ok?28_0 #f)))" @@ -41159,7 +41179,7 @@ static const char *startup_source = " or-part_267" "(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_113) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_115) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" @@ -41262,7 +41282,7 @@ static const char *startup_source = "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" -" phase_113" +" phase_115" "(let-values(((or-part_272) all-stop-ids_0))" "(if or-part_272 or-part_272 null)))))" "(expand-context/inner2.1" @@ -41456,7 +41476,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_114)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_116)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -41485,27 +41505,27 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_114)" +"(if(phase? phase_116)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_114)))" +" phase_116)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_114)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_116)))" "(let-values(((base-scs_0)" "(syntax-scope-set" "(let-values(((or-part_273) base-s_0))" "(if or-part_273 or-part_273 empty-syntax))" -" phase_114)))" +" phase_116)))" "(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_114)" +"((phase81_0) phase_116)" "((temp82_1) #t))" "(resolve40.1" " #f" @@ -41850,15 +41870,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_260)" -"(lambda(fold-var_258 pos_106)" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_256 pos_106)" "(begin" " 'for-loop" "(if(< pos_106 end_30)" "(let-values()" +"(let-values(((fold-var_257)" +"(let-values(((fold-var_258) fold-var_256))" "(let-values(((fold-var_259)" -"(let-values(((fold-var_260) fold-var_258))" -"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" @@ -41882,13 +41902,13 @@ static const char *startup_source = " name_25)" "(new-scope" " 'macro)))))" -" fold-var_260))))" -"(values fold-var_261)))))" +" fold-var_258))))" +"(values fold-var_259)))))" "(if(not #f)" -"(for-loop_260 fold-var_259(+ pos_106 inc_24))" -" fold-var_259)))" -" fold-var_258)))))" -" for-loop_260)" +"(for-loop_261 fold-var_257(+ pos_106 inc_24))" +" fold-var_257)))" +" fold-var_256)))))" +" for-loop_261)" " null" " start_40))))))" "(begin" @@ -41942,9 +41962,9 @@ static const char *startup_source = "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" -"(let-values(((phase_115)(expand-context-phase ctx_58)))" +"(let-values(((phase_117)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_65 phase_115)))" +"(let-values(((tmp_35)(core-form-sym s_65 phase_117)))" "(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" @@ -41957,7 +41977,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_65)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_65 ctx_58) phase_115))))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_65 ctx_58) phase_117))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_65))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" @@ -41995,15 +42015,15 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_210 phase_116 lift-ctx_1)(begin 'pre-wrap s_210)))))" +"(lambda(s_210 phase_118 lift-ctx_1)(begin 'pre-wrap s_210)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_411 phase_117 lift-ctx_2)(begin 'shift-wrap s_411)))))" +"(lambda(s_411 phase_119 lift-ctx_2)(begin 'shift-wrap s_411)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_322 phase_118 lift-ctx_3)(begin 'post-wrap s_322)))))" +"(lambda(s_322 phase_120 lift-ctx_3)(begin 'post-wrap s_322)))))" "(let-values()" "(let-values((()" "(begin" @@ -42027,13 +42047,13 @@ static const char *startup_source = " \"form to lift\"" " s_410)))" "(values))))" -"(let-values(((phase_119)(expand-context-phase ctx_59)))" +"(let-values(((phase_121)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" "(if intro?_0(flip-introduction-scopes s_410 ctx_59) s_410)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_119 lift-ctx_4)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_121 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_119)" +"(let-values(((start_41) phase_121)" "((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -42042,7 +42062,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_31 inc_25)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_205)" "(lambda(s_99 pos_24)" "(begin" " 'for-loop" @@ -42062,12 +42082,12 @@ static const char *startup_source = "(values" " s_414)))))" "(if(not #f)" -"(for-loop_204" +"(for-loop_205" " s_412" "(+ pos_24 inc_25))" " s_412)))" " s_99)))))" -" for-loop_204)" +" for-loop_205)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" @@ -42085,8 +42105,8 @@ static const char *startup_source = "(let-values(((sc_33)(new-scope 'macro)))" "(let-values(((ctx_4 added-s_1)" "(let-values(((who118_0) 'syntax-local-lift-require)" -"((temp119_1)(datum->syntax$1 #f s_111))" -" ((temp120_1) \"could not find target context\")" +"((temp119_0)(datum->syntax$1 #f s_111))" +" ((temp120_0) \"could not find target context\")" "((temp121_0) #f)" "((temp122_0)" "(lambda()" @@ -42097,12 +42117,12 @@ static const char *startup_source = "((expand-context-require-lifts123_0) expand-context-require-lifts)" "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" -"((temp126_1)" -"(lambda(s_415 phase_120 require-lift-ctx_0)" +"((temp126_0)" +"(lambda(s_415 phase_122 require-lift-ctx_0)" "(require-spec-shift-for-syntax s_415)))" -"((temp127_1)" -"(lambda(s_117 phase_121 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_117 sc_33) phase_121))))" +"((temp127_2)" +"(lambda(s_117 phase_123 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_117 sc_33) phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -42111,15 +42131,15 @@ static const char *startup_source = " #t" " temp122_0" " #t" -" temp120_1" -" temp127_1" +" temp120_0" +" temp127_2" " #t" " #f" " #f" -" temp126_1" +" temp126_0" " #t" " who118_0" -" temp119_1))))" +" temp119_0))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" @@ -42144,15 +42164,15 @@ static const char *startup_source = "(let-values(((ctx_60 result-s_7)" "(let-values(((who129_0) 'syntax-local-lift-provide)" "((s130_0) s_118)" -" ((temp131_1) \"not expanding in a module run-time body\")" +" ((temp131_2) \"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_416 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_416 #f)))" +"(lambda(s_416 phase_124 to-module-lift-ctx_0)(wrap-form 'for-syntax s_416 #f)))" "((temp136_0)" -"(lambda(s_417 phase_123 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_417 phase_123))))" +"(lambda(s_417 phase_125 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_417 phase_125))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -42161,7 +42181,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp131_1" +" temp131_2" " temp136_0" " #t" " #f" @@ -42184,19 +42204,19 @@ static const char *startup_source = "(let-values(((ctx_61 also-s_0)" "(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" "((s139_0) s_418)" -"((temp140_2)" +"((temp140_1)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" "((temp142_0)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" -"((temp144_1)" -"(lambda(orig-s_32 phase_124 to-module-lift-ctx_2)" +"((temp144_0)" +"(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_2)" -"(lambda(s_127 phase_125 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_127 phase_125))))" +"((temp145_1)" +"(lambda(s_127 phase_127 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_127 phase_127))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -42205,12 +42225,12 @@ static const char *startup_source = " #f" " #f" " #f" -" temp140_2" +" temp140_1" " #f" " #f" -" temp144_1" +" temp144_0" " #t" -" temp145_2" +" temp145_1" " #t" " who138_0" " s139_0))))" @@ -42220,11 +42240,11 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_128 phase_126)" +"(lambda(sym_67 s_128 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_66) s_128)))))" +"(list(datum->syntax$1(if phase_128(syntax-shift-phase-level$1 core-stx phase_128) #f) sym_67) s_128)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42242,8 +42262,8 @@ static const char *startup_source = " \"not currently transforming module provides\")))" "(values))))" "(let-values(((ctx_62)" -"(let-values(((temp147_1) 'syntax-local-module-defined-identifiers))" -"(get-current-expand-context17.1 #f #f temp147_1 #t))))" +"(let-values(((temp147_0) 'syntax-local-module-defined-identifiers))" +"(get-current-expand-context17.1 #f #f temp147_0 #t))))" "(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" @@ -42284,8 +42304,8 @@ static const char *startup_source = " \"not currently transforming module provides\")))" "(values))))" "(let-values(((ctx_63)" -"(let-values(((temp149_0) 'syntax-local-module-required-identifiers))" -"(get-current-expand-context17.1 #f #f temp149_0 #t))))" +"(let-values(((temp149_1) 'syntax-local-module-required-identifiers))" +"(get-current-expand-context17.1 #f #f temp149_1 #t))))" "(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" "(let-values(((mpi_47)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" "(let-values(((requireds_0)" @@ -42300,29 +42320,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_206 i_167)" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_204 i_167)" "(begin" " 'for-loop" "(if i_167" -"(let-values(((phase_127 ids_27)" +"(let-values(((phase_129 ids_27)" "(hash-iterate-key+value ht_136 i_167)))" +"(let-values(((fold-var_260)" +"(let-values(((fold-var_261) fold-var_204))" "(let-values(((fold-var_262)" -"(let-values(((fold-var_263) fold-var_206))" -"(let-values(((fold-var_264)" "(let-values()" "(cons" "(let-values()" -"(cons phase_127 ids_27))" -" fold-var_263))))" -"(values fold-var_264)))))" +"(cons phase_129 ids_27))" +" fold-var_261))))" +"(values fold-var_262)))))" "(if(not #f)" -"(for-loop_261" -" fold-var_262" +"(for-loop_262" +" fold-var_260" "(hash-iterate-next ht_136 i_167))" -" fold-var_262)))" -" fold-var_206)))))" -" for-loop_261)" +" fold-var_260)))" +" fold-var_204)))))" +" for-loop_262)" " null" "(hash-iterate-first ht_136)))))" " #f)))))))))))))" @@ -42330,15 +42350,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_302) requireds_1))" +"(let-values(((lst_299) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_302)))" -"((letrec-values(((for-loop_262)" -"(lambda(ht_137 lst_303)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_263)" +"(lambda(ht_137 lst_300)" "(begin" " 'for-loop" -"(if(pair? lst_303)" -"(let-values(((r_41)(unsafe-car lst_303))((rest_169)(unsafe-cdr lst_303)))" +"(if(pair? lst_300)" +"(let-values(((r_41)(unsafe-car lst_300))((rest_170)(unsafe-cdr lst_300)))" "(let-values(((ht_138)" "(let-values(((ht_139) ht_137))" "(let-values(((ht_140)" @@ -42349,11 +42369,11 @@ static const char *startup_source = "(lambda(l_72)(cons(required-id r_41) l_72))" " null))))" "(values ht_140)))))" -"(if(not #f)(for-loop_262 ht_138 rest_169) ht_138)))" +"(if(not #f)(for-loop_263 ht_138 rest_170) ht_138)))" " ht_137)))))" -" for-loop_262)" +" for-loop_263)" "(hasheqv)" -" lst_302))))))" +" lst_299))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42379,8 +42399,8 @@ static const char *startup_source = " mod-path_9)))" "(values))))" "(let-values(((ctx_64)" -"(let-values(((temp151_1) 'syntax-local-module-exports))" -"(get-current-expand-context17.1 #f #f temp151_1 #t))))" +"(let-values(((temp151_0) 'syntax-local-module-exports))" +"(get-current-expand-context17.1 #f #f temp151_0 #t))))" "(let-values(((ns_75)(expand-context-namespace ctx_64)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" @@ -42399,21 +42419,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_263)" -"(lambda(fold-var_265 i_12)" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_263 i_12)" "(begin" " 'for-loop" "(if i_12" -"(let-values(((phase_128 syms_22)" +"(let-values(((phase_130 syms_22)" "(hash-iterate-key+value ht_141 i_12)))" +"(let-values(((fold-var_264)" +"(let-values(((fold-var_265) fold-var_263))" "(let-values(((fold-var_266)" -"(let-values(((fold-var_267) fold-var_265))" -"(let-values(((fold-var_268)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_128" +" phase_130" "(reverse$1" "(let-values(((ht_1) syms_22))" "(begin" @@ -42423,47 +42443,47 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_1)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_269" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_267" " i_168)" "(begin" " 'for-loop" "(if i_168" -"(let-values(((sym_67)" +"(let-values(((sym_68)" "(hash-iterate-key" " ht_1" " i_168)))" +"(let-values(((fold-var_268)" +"(let-values(((fold-var_269)" +" fold-var_267))" "(let-values(((fold-var_270)" -"(let-values(((fold-var_271)" -" fold-var_269))" -"(let-values(((fold-var_272)" "(let-values()" "(cons" "(let-values()" -" sym_67)" -" fold-var_271))))" +" sym_68)" +" fold-var_269))))" "(values" -" fold-var_272)))))" +" fold-var_270)))))" "(if(not" " #f)" -"(for-loop_264" -" fold-var_270" +"(for-loop_265" +" fold-var_268" "(hash-iterate-next" " ht_1" " i_168))" -" fold-var_270)))" -" fold-var_269)))))" -" for-loop_264)" +" fold-var_268)))" +" fold-var_267)))))" +" for-loop_265)" " null" "(hash-iterate-first" " ht_1)))))))" -" fold-var_267))))" -"(values fold-var_268)))))" +" fold-var_265))))" +"(values fold-var_266)))))" "(if(not #f)" -"(for-loop_263 fold-var_266(hash-iterate-next ht_141 i_12))" -" fold-var_266)))" -" fold-var_265)))))" -" for-loop_263)" +"(for-loop_264 fold-var_264(hash-iterate-next ht_141 i_12))" +" fold-var_264)))" +" fold-var_263)))))" +" for-loop_264)" " null" "(hash-iterate-first ht_141))))))))))))))))" "(define-values" @@ -42483,28 +42503,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_142)))" -"((letrec-values(((for-loop_265)" -"(lambda(fold-var_273 i_169)" +"((letrec-values(((for-loop_266)" +"(lambda(fold-var_271 i_169)" "(begin" " 'for-loop" "(if i_169" "(let-values(((name_61 kind_7)(hash-iterate-key+value ht_142 i_169)))" -"(let-values(((fold-var_274)" -"(let-values(((fold-var_275) fold-var_273))" +"(let-values(((fold-var_272)" +"(let-values(((fold-var_273) fold-var_271))" "(if(eq? kind_7 'module)" -"(let-values(((fold-var_276) fold-var_275))" -"(let-values(((fold-var_277)" +"(let-values(((fold-var_274) fold-var_273))" +"(let-values(((fold-var_275)" "(let-values()" "(cons" "(let-values() name_61)" -" fold-var_276))))" -"(values fold-var_277)))" -" fold-var_275))))" +" fold-var_274))))" +"(values fold-var_275)))" +" fold-var_273))))" "(if(not #f)" -"(for-loop_265 fold-var_274(hash-iterate-next ht_142 i_169))" -" fold-var_274)))" -" fold-var_273)))))" -" for-loop_265)" +"(for-loop_266 fold-var_272(hash-iterate-next ht_142 i_169))" +" fold-var_272)))" +" fold-var_271)))))" +" for-loop_266)" " null" "(hash-iterate-first ht_142))))))))))))" "(define-values" @@ -42715,7 +42735,7 @@ static const char *startup_source = " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" "(let-values(((b_81) 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()" @@ -42726,10 +42746,10 @@ static const char *startup_source = "(if(identifier? b_81)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_81)))" -"(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_81 phase_129))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_131)))" +"(bound-identifier=?$1 a_53 b_81 phase_131))))))))))))" "(case-lambda" "((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" "((a_55 b_82 phase11_1)(bound-identifier=?15_0 a_55 b_82 phase11_1 #t)))))" @@ -42783,8 +42803,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_87)))" "(values))))" -"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_87 phase_130 phase_130)))))))))" +"(let-values(((phase_132)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_87 phase_132 phase_132)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_61 b_88)" @@ -42804,8 +42824,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_88)))" "(values))))" -"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_88 phase_131 phase_131)))))))))" +"(let-values(((phase_133)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_88 phase_133 phase_133)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_62 b_89)" @@ -42843,7 +42863,7 @@ static const char *startup_source = "(identifier-binding$1 id_93 phase_36 top-level-symbol?_1))))))))))))" "(case-lambda" "((id_94)(begin 'identifier-binding(identifier-binding30_0 id_94 #f #f #f #f)))" -"((id_95 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_95 phase_132 top-level-symbol?26_1 #t #t))" +"((id_95 phase_134 top-level-symbol?26_1)(identifier-binding30_0 id_95 phase_134 top-level-symbol?26_1 #t #t))" "((id_96 phase25_2)(identifier-binding30_0 id_96 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" @@ -42852,7 +42872,7 @@ static const char *startup_source = "(begin" " 'identifier-transformer-binding35" "(let-values(((id_97) id34_1))" -"(let-values(((phase_133)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values(((phase_135)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42861,7 +42881,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_97)))" -"(identifier-binding$1 id_97(if phase_133(add1 phase_133) #f))))))))))))" +"(identifier-binding$1 id_97(if phase_135(add1 phase_135) #f))))))))))))" "(case-lambda" "((id_98)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_98 #f #f)))" "((id_99 phase32_2)(identifier-transformer-binding35_0 id_99 phase32_2 #t)))))" @@ -42896,7 +42916,7 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol40" "(let-values(((id_101) id39_0))" -"(let-values(((phase_134)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((phase_136)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42905,11 +42925,11 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_101)))" -"(if(phase? phase_134)" +"(if(phase? phase_136)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_134)))" -"(identifier-binding-symbol$1 id_101 phase_134)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_136)))" +"(identifier-binding-symbol$1 id_101 phase_136)))))))))))" "(case-lambda" "((id_102)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_102 #f #f)))" "((id_103 phase37_3)(identifier-binding-symbol40_0 id_103 phase37_3 #t)))))" @@ -42947,7 +42967,7 @@ static const char *startup_source = "(begin" " 'syntax-debug-info52" "(let-values(((s_421) s51_1))" -"(let-values(((phase_135)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(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()" @@ -42956,13 +42976,13 @@ static const char *startup_source = "(if(syntax?$1 s_421)" "(void)" " (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_421)))" -"(if(phase? phase_135)" +"(if(phase? phase_137)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_135)))" -"(syntax-debug-info$1 s_421 phase_135 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_137)))" +"(syntax-debug-info$1 s_421 phase_137 all-bindings?_1))))))))))))" "(case-lambda" "((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" -"((s_88 phase_99 all-bindings?48_1)(syntax-debug-info52_0 s_88 phase_99 all-bindings?48_1 #t #t))" +"((s_88 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_88 phase_101 all-bindings?48_1 #t #t))" "((s_47 phase47_3)(syntax-debug-info52_0 s_47 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" @@ -43106,17 +43126,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_20 \"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_20" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_129" +" phase_131" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43126,7 +43146,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" @@ -43145,7 +43165,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" @@ -43153,7 +43173,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_136" +" phase_138" " missing_0)))" "(if(let-values(((or-part_245)" "(eq? missing_0 m-ns_12)))" @@ -43179,9 +43199,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()" @@ -43226,7 +43246,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_136))" +" phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43255,7 +43275,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_136))" +" phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43294,14 +43314,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" @@ -43328,7 +43348,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_48)" "((phase43_1)" -" phase_136))" +" phase_138))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -43354,7 +43374,7 @@ static const char *startup_source = "(lambda(ht_143)" "(hash-set" " ht_143" -" phase_136" +" phase_138" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43372,19 +43392,19 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_226)" +"(lambda(lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_225)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_226))" -"((rest_170)" +" lst_225))" +"((rest_171)" "(unsafe-cdr" -" lst_226)))" +" lst_225)))" "(let-values((()" -"(let-values(((lst_179)" +"(let-values(((lst_178)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43393,19 +43413,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_179)))" +" lst_178)))" "((letrec-values(((for-loop_28)" -"(lambda(lst_279)" +"(lambda(lst_276)" "(begin" " 'for-loop" "(if(pair?" -" lst_279)" +" lst_276)" "(let-values(((req_5)" "(unsafe-car" -" lst_279))" -"((rest_153)" +" lst_276))" +"((rest_154)" "(unsafe-cdr" -" lst_279)))" +" lst_276)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43419,7 +43439,7 @@ static const char *startup_source = " m_20)" " mpi_48)" "(phase+" -" phase_136" +" phase_138" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43429,21 +43449,21 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_28" -" rest_153)" +" rest_154)" "(values))))" "(values))))))" " for-loop_28)" -" lst_179)))))" +" lst_178)))))" "(if(not" " #f)" "(for-loop_17" -" rest_170)" +" rest_171)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_304)" +"(let-values(((lst_301)" "(module-submodule-names" " m_20)))" "(begin" @@ -43452,19 +43472,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_304)))" -"((letrec-values(((for-loop_266)" -"(lambda(lst_305)" +" lst_301)))" +"((letrec-values(((for-loop_267)" +"(lambda(lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_305)" +" lst_302)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_305))" -"((rest_171)" +" lst_302))" +"((rest_172)" "(unsafe-cdr" -" lst_305)))" +" lst_302)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43485,12 +43505,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_266" -" rest_171)" +"(for-loop_267" +" rest_172)" "(values))))" "(values))))))" -" for-loop_266)" -" lst_304)))" +" for-loop_267)" +" lst_301)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43511,9 +43531,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" @@ -43541,12 +43561,12 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_145)))" -"((letrec-values(((for-loop_267)" +"((letrec-values(((for-loop_268)" "(lambda(i_171)" "(begin" " 'for-loop" "(if i_171" -"(let-values(((phase_137" +"(let-values(((phase_139" " m-ns_15)" "(hash-iterate-key+value" " ht_145" @@ -43592,14 +43612,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" @@ -43615,7 +43635,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)))))" @@ -43623,13 +43643,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_267" +"(for-loop_268" "(hash-iterate-next" " ht_145" " i_171))" "(values))))" "(values))))))" -" for-loop_267)" +" for-loop_268)" "(hash-iterate-first" " ht_145))))))" "(if(not #f)" @@ -43655,7 +43675,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_49)))" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_177)" "(lambda(i_172)" "(begin" " 'for-loop" @@ -43674,11 +43694,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_176" +"(for-loop_177" "(hash-iterate-next ht_49 i_172))" "(values))))" "(values))))))" -" for-loop_176)" +" for-loop_177)" "(hash-iterate-first ht_49))))" "(void))))))))))))))))))))))))" "(define-values" @@ -43733,8 +43753,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_146)))" -"((letrec-values(((for-loop_211)" -"(lambda(fold-var_278 i_173)" +"((letrec-values(((for-loop_212)" +"(lambda(fold-var_276 i_173)" "(begin" " 'for-loop" "(if i_173" @@ -43742,32 +43762,32 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-key" " ht_146" " i_173)))" -"(let-values(((fold-var_224)" -"(let-values(((fold-var_225)" -" fold-var_278))" +"(let-values(((fold-var_222)" +"(let-values(((fold-var_223)" +" fold-var_276))" "(if(equal?" " sc_34" " post-scope_1)" -" fold-var_225" -"(let-values(((fold-var_226)" -" fold-var_225))" +" fold-var_223" +"(let-values(((fold-var_224)" +" fold-var_223))" "(let-values(((fold-var_67)" "(let-values()" "(cons" "(let-values()" " sc_34)" -" fold-var_226))))" +" fold-var_224))))" "(values" " fold-var_67)))))))" "(if(not #f)" -"(for-loop_211" -" fold-var_224" +"(for-loop_212" +" fold-var_222" "(unsafe-immutable-hash-iterate-next" " ht_146" " i_173))" -" fold-var_224)))" -" fold-var_278)))))" -" for-loop_211)" +" fold-var_222)))" +" fold-var_276)))))" +" for-loop_212)" " null" "(unsafe-immutable-hash-iterate-first ht_146)))))))" "(let-values(((add-ns-scopes_0)" @@ -43849,16 +43869,16 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_68)" +"(lambda(sym_69)" "(begin" " 'namespace-symbol->identifier" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_68)" +"(if(symbol? sym_69)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_68)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_68))))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_69)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_69))))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -44062,9 +44082,9 @@ static const char *startup_source = "((req120_0) req_13)" "((ns121_0) ns_79)" "((temp122_1) 0)" -"((temp123_1) #t))" +"((temp123_0) #t))" "(do-namespace-require23.1" -" temp123_1" +" temp123_0" " #t" " temp122_1" " #t" @@ -44094,16 +44114,16 @@ static const char *startup_source = "(let-values(((who125_0) 'namespace-require/copy)" "((req126_0) req_16)" "((ns127_0) ns_80)" -"((temp128_1) 0)" -"((temp129_1) 0))" +"((temp128_2) 0)" +"((temp129_0) 0))" "(do-namespace-require23.1" " #f" " #f" -" temp128_1" +" temp128_2" " #t" " #f" " #f" -" temp129_1" +" temp129_0" " #t" " #f" " #f" @@ -44119,7 +44139,7 @@ static const char *startup_source = "(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)" "(begin" " 'namespace-variable-value53" -"(let-values(((sym_69) sym52_0))" +"(let-values(((sym_70) sym52_0))" "(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" "(let-values(((ns_81)(if ns51_0 ns48_0(1/current-namespace))))" @@ -44127,9 +44147,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_69)" +"(if(symbol? sym_70)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_70)))" "(if(let-values(((or-part_283)(not failure-thunk_5)))" "(if or-part_283" " or-part_283" @@ -44151,7 +44171,7 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_18)(1/datum->syntax #f sym_69)))" +"(let-values(((id_18)(1/datum->syntax #f sym_70)))" "(let-values(((b_90)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_18 ns_81)" @@ -44205,7 +44225,7 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_69)" +" sym_70)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_90)" @@ -44224,8 +44244,8 @@ static const char *startup_source = "(values" " ns_81" "(namespace-phase ns_81)" -" sym_69))))))))" -"(let-values()(values ns_81(namespace-phase ns_81) sym_69)))))" +" sym_70))))))))" +"(let-values()(values ns_81(namespace-phase ns_81) sym_70)))))" "(let-values(((val_72)" "(namespace-get-variable" " var-ns_0" @@ -44242,24 +44262,24 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_69)" +" sym_70)" "(current-continuation-marks)" -" sym_69)))))))))" +" sym_70)))))))))" "(lambda() val_72))))))))))))))))))" "(case-lambda" -"((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" -"((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" -"(namespace-variable-value53_0 sym_71 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" -"((sym_72 use-mapping?_2 failure-thunk47_1)" -"(namespace-variable-value53_0 sym_72 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" -"((sym_73 use-mapping?46_1)(namespace-variable-value53_0 sym_73 use-mapping?46_1 #f #f #t #f #f)))))" +"((sym_71)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_71 #f #f #f #f #f #f)))" +"((sym_72 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_72 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_73 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_73 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_74 use-mapping?46_1)(namespace-variable-value53_0 sym_74 use-mapping?46_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!63_0)" "(lambda(sym61_0 val62_0 map?55_0 ns56_0 as-constant?57_0 map?58_0 ns59_0 as-constant?60_0)" "(begin" " 'namespace-set-variable-value!63" -"(let-values(((sym_74) sym61_0))" +"(let-values(((sym_75) sym61_0))" "(let-values(((val_73) 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))))" @@ -44268,10 +44288,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_74)" +"(if(symbol? sym_75)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_74)))" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_75)))" "(if(1/namespace? ns_82)" "(void)" "(let-values()" @@ -44279,7 +44299,7 @@ static const char *startup_source = "(namespace-set-variable!" " ns_82" "(namespace-phase ns_82)" -" sym_74" +" sym_75" " val_73" " as-constant?_2)" "(if map?_0" @@ -44289,14 +44309,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_74)" +" sym_75)" "(values))))" -"(let-values(((id_108)(1/datum->syntax #f sym_74)))" -"(let-values(((temp138_1)(1/namespace-syntax-introduce id_108 ns_82))" +"(let-values(((id_108)(1/datum->syntax #f sym_75)))" +"(let-values(((temp138_2)(1/namespace-syntax-introduce id_108 ns_82))" "((temp139_1)" -"(let-values(((temp141_2)(namespace-mpi ns_82))" +"(let-values(((temp141_1)(namespace-mpi ns_82))" "((temp142_1)(namespace-phase ns_82))" -"((sym143_0) sym_74))" +"((sym143_0) sym_75))" "(make-module-binding22.1" " #f" " #f" @@ -44316,42 +44336,42 @@ static const char *startup_source = " #f" " #f" " #f" -" temp141_2" +" temp141_1" " temp142_1" " sym143_0)))" -"((temp140_3)(namespace-phase ns_82)))" -"(add-binding!17.1 #f #f #f #f temp138_1 temp139_1 temp140_3)))))" +"((temp140_2)(namespace-phase ns_82)))" +"(add-binding!17.1 #f #f #f #f temp138_2 temp139_1 temp140_2)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_75 val_74)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_74 #f #f #f #f #f #f)))" -"((sym_76 val_75 map?_1 ns_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_76 val_75 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_77 val_76 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_76 map?_2 ns56_1 #f #t #t #f))" -"((sym_78 val_77 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_77 map?55_1 #f #f #t #f #f)))))" +"((sym_76 val_74)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_76 val_74 #f #f #f #f #f #f)))" +"((sym_77 val_75 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_77 val_75 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_78 val_76 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_78 val_76 map?_2 ns56_1 #f #t #t #f))" +"((sym_79 val_77 map?55_1)(namespace-set-variable-value!63_0 sym_79 val_77 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" "(lambda(sym67_0 ns65_0 ns66_0)" "(begin" " 'namespace-undefine-variable!68" -"(let-values(((sym_79) sym67_0))" +"(let-values(((sym_80) sym67_0))" "(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_79)" +"(if(symbol? sym_80)" "(void)" -" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_79)))" +" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_80)))" "(if(1/namespace? ns_84)" "(void)" "(let-values()" " (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_79)))))))))))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_80)))))))))))" "(case-lambda" -"((sym_80)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_80 #f #f)))" -"((sym_81 ns65_1)(namespace-undefine-variable!68_0 sym_81 ns65_1 #t)))))" +"((sym_81)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_81 #f #f)))" +"((sym_82 ns65_1)(namespace-undefine-variable!68_0 sym_82 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" @@ -44615,27 +44635,27 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_293)" +"(let-values(((lst_290)" "(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_293)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_170)" +"(lambda(fold-var_0 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_170)" +"(if(pair? lst_169)" "(let-values(((e_77)" -"(unsafe-car lst_170))" -"((rest_164)" -"(unsafe-cdr lst_170)))" +"(unsafe-car lst_169))" +"((rest_165)" +"(unsafe-cdr lst_169)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" -"(let-values(((fold-var_240)" +"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" @@ -44643,14 +44663,14 @@ static const char *startup_source = " e_77))" " fold-var_3))))" "(values" -" fold-var_240)))))" +" fold-var_238)))))" "(if(not #f)" -"(for-loop_6 fold-var_2 rest_164)" +"(for-loop_6 fold-var_2 rest_165)" " fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_293)))))" +" lst_290)))))" "((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()" @@ -44783,8 +44803,8 @@ static const char *startup_source = "(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_9 exp-s_6 ns_103)" "(values))))" "(let-values(((new-s_2)" -"(let-values(((temp123_2)(append require-lifts_3 lifts_9))" -"((temp124_1)" +"(let-values(((temp123_1)(append require-lifts_3 lifts_9))" +"((temp124_0)" "(lambda(form_1)" "(begin" "(let-values(((obs_23)(expand-context-observer ctx_68)))" @@ -44816,15 +44836,15 @@ static const char *startup_source = " to-parsed?_4" " serializable?_9))))))" "((exp-s126_0) exp-s_6)" -"((temp127_2)(namespace-phase ns_103)))" +"((temp127_3)(namespace-phase ns_103)))" "(wrap-lifts-as-begin16.1" " temp125_0" " #t" -" temp124_1" +" temp124_0" " #t" -" temp123_2" +" temp123_1" " exp-s126_0" -" temp127_2))))" +" temp127_3))))" "(begin(log-top-begin-after ctx_68 new-s_2) new-s_2))))))))))))" "(define-values" "(expand-once$1)" @@ -44837,23 +44857,23 @@ static const char *startup_source = "(let-values()" "(let-values(((s128_0) s_388)" "((ns129_0) ns_104)" -"((temp130_1)" +"((temp130_0)" "(lambda(s_433 ns_105 as-tail?_6)(expand-single-once s_433 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" -"((temp134_0) #f))" +"((temp134_1) #f))" "(per-top-level68.1" " cons131_0" " #t" " temp133_0" " #t" -" temp134_0" +" temp134_1" " #f" " #f" " #f" " #f" -" temp130_1" +" temp130_0" " re-pair132_0" " #t" " s128_0" @@ -44927,10 +44947,10 @@ static const char *startup_source = "(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp138_2)(append require-lifts_4 lifts_10))" +"(let-values(((temp138_3)(append require-lifts_4 lifts_10))" "((exp-s139_0) exp-s_7)" -"((temp140_4)(namespace-phase ns_106)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_4))))))))" +"((temp140_3)(namespace-phase ns_106)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_3 exp-s139_0 temp140_3))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" @@ -44953,7 +44973,7 @@ static const char *startup_source = "(let-values(((s141_0) s_320)" "((ns142_0) ns_84)" "((temp143_0) #f)" -"((temp144_2) #f)" +"((temp144_1) #f)" "((observer145_0) observer_4))" "(per-top-level68.1" " #f" @@ -44961,7 +44981,7 @@ static const char *startup_source = " #f" " #f" " observer145_0" -" temp144_2" +" temp144_1" " #t" " #f" " #f" @@ -45005,9 +45025,9 @@ static const char *startup_source = "(let-values(((ctx_69)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_138)(namespace-phase ns_107)))" +"(let-values(((phase_140)(namespace-phase ns_107)))" "((letrec-values(((loop_100)" -"(lambda(s_153 phase_139 ns_108 as-tail?_7)" +"(lambda(s_153 phase_141 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -45021,7 +45041,7 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_68)" "(let-values(((phase149_0)" -" phase_139)" +" phase_141)" "((namespace150_0)" " ns_108)" "((just-once?151_0)" @@ -45142,7 +45162,7 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_70)" "(let-values(((phase156_1)" -" phase_139)" +" phase_141)" "((namespace157_0)" " ns_108))" "(expand-context/inner2.1" @@ -45242,7 +45262,7 @@ static const char *startup_source = " require-lifts_5" " lifts_11))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_139))" +"((phase160_0) phase_141))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -45267,7 +45287,7 @@ static const char *startup_source = " new-s_3" "(loop_100" " new-s_3" -" phase_139" +" phase_141" " ns_108" " as-tail?_7)))))" "(if(not single_0)" @@ -45291,7 +45311,7 @@ static const char *startup_source = "(let-values(((tmp_36)" "(core-form-sym" " disarmed-exp-s_0" -" phase_139)))" +" phase_141)))" "(if(equal? tmp_36 'begin)" "(let-values()" "(let-values((()" @@ -45378,7 +45398,7 @@ static const char *startup_source = "(let-values()" "(loop_100" "(car es_2)" -" phase_139" +" phase_141" " ns_108" " as-tail?_7))" "(let-values()" @@ -45400,14 +45420,14 @@ static const char *startup_source = "(loop_100" "(car" " es_2)" -" phase_139" +" phase_141" " ns_108" " #f)" "(begin" "(loop_100" "(car" " es_2)" -" phase_139" +" phase_141" " ns_108" " #f)" "(void)))))" @@ -45514,7 +45534,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_108" @@ -45547,7 +45567,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_73)" "(reverse$1" -"(let-values(((lst_306)" +"(let-values(((lst_303)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45555,24 +45575,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_306)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_279" -" lst_307)" +" lst_303)))" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_277" +" lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" +" lst_304)" "(let-values(((s_331)" "(unsafe-car" -" lst_307))" -"((rest_172)" +" lst_304))" +"((rest_173)" "(unsafe-cdr" -" lst_307)))" -"(let-values(((fold-var_207)" -"(let-values(((fold-var_208)" -" fold-var_279))" -"(let-values(((fold-var_280)" +" lst_304)))" +"(let-values(((fold-var_205)" +"(let-values(((fold-var_206)" +" fold-var_277))" +"(let-values(((fold-var_278)" "(let-values()" "(cons" "(let-values()" @@ -45592,19 +45612,19 @@ static const char *startup_source = " next-phase_0" " next-ns_0" " #f)))" -" fold-var_208))))" +" fold-var_206))))" "(values" -" fold-var_280)))))" +" fold-var_278)))))" "(if(not" " #f)" -"(for-loop_268" -" fold-var_207" -" rest_172)" -" fold-var_207)))" -" fold-var_279)))))" -" for-loop_268)" +"(for-loop_269" +" fold-var_205" +" rest_173)" +" fold-var_205)))" +" fold-var_277)))))" +" for-loop_269)" " null" -" lst_306))))))" +" lst_303))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45639,7 +45659,7 @@ static const char *startup_source = " as-tail?_7))))))))))))))))))" " loop_100)" " s_105" -" phase_138" +" phase_140" " ns_107" " #t)))))))))))))))))" "(define-values" @@ -45666,7 +45686,7 @@ static const char *startup_source = "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" "(let-values(((s170_0) s_442)" -"((temp171_0)" +"((temp171_1)" "(let-values(((v_194) ctx_70))" "(let-values(((the-struct_71) v_194))" "(if(expand-context/outer? the-struct_71)" @@ -45742,7 +45762,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_71))))))" -"(expand7.1 #f #f #f #f s170_0 temp171_0))))" +"(expand7.1 #f #f #f #f s170_0 temp171_1))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" "(get-and-clear-lifts! lift-ctx_6)" @@ -45751,7 +45771,7 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_443 phase_140)" +"(lambda(s_443 phase_142)" "(let-values(((ok?_28 #%require176_0 req177_0)" "(let-values(((s_444)(syntax-disarm$1 s_443)))" "(let-values(((orig-s_35) s_444))" @@ -45789,8 +45809,8 @@ static const char *startup_source = "(let-values(((temp181_0)(list req177_0))" "((s182_0) s_443)" "((ns183_0) ns_111)" -"((phase184_1) phase_140)" -"((phase185_1) phase_140)" +"((phase184_1) phase_142)" +"((phase185_1) 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" @@ -45832,48 +45852,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_308) require-lifts_6))" +"(let-values(((lst_305) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_308)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_281 lst_309)" +"(let-values()(check-list lst_305)))" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_279 lst_306)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((req_19)(unsafe-car lst_309))" -"((rest_173)(unsafe-cdr lst_309)))" +"(if(pair? lst_306)" +"(let-values(((req_19)(unsafe-car lst_306))" +"((rest_174)(unsafe-cdr lst_306)))" +"(let-values(((fold-var_280)" +"(let-values(((fold-var_281) fold-var_279))" "(let-values(((fold-var_282)" -"(let-values(((fold-var_283) fold-var_281))" -"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_283))))" -"(values fold-var_284)))))" -"(if(not #f)(for-loop_269 fold-var_282 rest_173) fold-var_282)))" -" fold-var_281)))))" -" for-loop_269)" +" fold-var_281))))" +"(values fold-var_282)))))" +"(if(not #f)(for-loop_270 fold-var_280 rest_174) fold-var_280)))" +" fold-var_279)))))" +" for-loop_270)" " null" -" lst_308))))" +" lst_305))))" "(reverse$1" -"(let-values(((lst_310)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_307)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_310)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_285 lst_311)" +"(let-values()(check-list lst_307)))" +"((letrec-values(((for-loop_271)" +"(lambda(fold-var_283 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_311)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_311))" -"((rest_174)(unsafe-cdr lst_311)))" +"(if(pair? lst_308)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" +"((rest_175)(unsafe-cdr lst_308)))" +"(let-values(((fold-var_284)" +"(let-values(((fold-var_285) fold-var_283))" "(let-values(((fold-var_286)" -"(let-values(((fold-var_287) fold-var_285))" -"(let-values(((fold-var_288)" "(let-values()" "(cons" "(let-values()" @@ -45912,13 +45932,13 @@ static const char *startup_source = " \"lifted-parsed-begin?\"" " the-struct_72)))" " dv_0)))))" -" fold-var_287))))" -"(values fold-var_288)))))" -"(if(not #f)(for-loop_270 fold-var_286 rest_174) fold-var_286)))" -" fold-var_285)))))" -" for-loop_270)" +" fold-var_285))))" +"(values fold-var_286)))))" +"(if(not #f)(for-loop_271 fold-var_284 rest_175) fold-var_284)))" +" fold-var_283)))))" +" for-loop_271)" " null" -" lst_310)))))" +" lst_307)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -46021,7 +46041,7 @@ static const char *startup_source = " 'do-dynamic-require6" "(let-values(((who_22) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_82) sym5_0))" +"(let-values(((sym_83) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -46040,17 +46060,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_82)))" +"(if(let-values(((or-part_5)(symbol? sym_83)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_82)))" +"(let-values(((or-part_6)(not sym_83)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_287)(equal? sym_82 0)))" -"(if or-part_287 or-part_287(void? sym_82)))))))" +"(let-values(((or-part_287)(equal? sym_83 0)))" +"(if or-part_287 or-part_287(void? sym_83)))))))" "(void)" "(let-values()" -" (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_82)))" +" (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_83)))" "(values))))" "(let-values((()" "(begin" @@ -46071,13 +46091,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)))" -"(if(not sym_82)" +"(let-values(((phase_143)(namespace-phase ns_58)))" +"(if(not sym_83)" "(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" @@ -46091,12 +46111,12 @@ static const char *startup_source = " ns20_1" " mpi21_0" " phase22_0)))" -"(if(equal? sym_82 0)" +"(if(equal? sym_83 0)" "(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" @@ -46109,12 +46129,12 @@ static const char *startup_source = " ns25_2" " mpi26_0" " phase27_1)))" -"(if(void? sym_82)" +"(if(void? sym_83)" "(let-values()" "(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_49)" -"((phase31_1) phase_141)" -"((phase32_3) phase_141))" +"((phase31_1) phase_143)" +"((phase32_3) phase_143))" "(namespace-module-visit!104.1" " phase32_3" " #t" @@ -46135,7 +46155,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_82" +" sym_83" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -46144,7 +46164,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_82" +" sym_83" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -46159,9 +46179,9 @@ static const char *startup_source = "(begin" "(let-values(((ns33_0) ns_58)" "((mpi34_0) mpi_49)" -"((phase35_1) phase_141)" +"((phase35_1) phase_143)" "((phase36_0)" -" phase_141))" +" phase_143))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -46187,7 +46207,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp39_4)" "(phase-" -" phase_141" +" phase_143" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -46245,7 +46265,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_82" +" sym_83" " \"module\"" " mod-name_22))" "(void))" @@ -46261,7 +46281,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_82" +" sym_83" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -46284,9 +46304,9 @@ static const char *startup_source = "((mpi42_1)" " mpi_49)" "((phase43_2)" -" phase_141)" +" phase_143)" "((phase44_0)" -" phase_141))" +" phase_143))" "(namespace-module-visit!104.1" " phase44_0" " #t" @@ -46330,11 +46350,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_82" +" sym_83" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_23 mod-path_17 sym_83)(begin(do-dynamic-require6_0 who_23 mod-path_17 sym_83 #f #f)))" -"((who_24 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_24 mod-path_18 sym_84 fail-k1_1 #t)))))" +"((who_23 mod-path_17 sym_84)(begin(do-dynamic-require6_0 who_23 mod-path_17 sym_84 #f #f)))" +"((who_24 mod-path_18 sym_85 fail-k1_1)(do-dynamic-require6_0 who_24 mod-path_18 sym_85 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -46343,14 +46363,14 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_85) sym11_0))" +"(let-values(((sym_86) sym11_0))" "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values()" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_85 fail-k_3)))))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_86 fail-k_3)))))))))))" "(case-lambda" -"((mod-path_20 sym_86)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_86 #f #f)))" -"((mod-path_21 sym_87 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_87 fail-k8_1 #t)))))" +"((mod-path_20 sym_87)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_87 #f #f)))" +"((mod-path_21 sym_88 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_88 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -46377,9 +46397,9 @@ static const char *startup_source = " sym_26" " fail-k_4)))))))))))))" "(case-lambda" -"((mod-path_23 sym_88)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_88 #f #f)))" -"((mod-path_24 sym_89 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_89 fail-k14_1 #t)))))" +"((mod-path_23 sym_89)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_89 #f #f)))" +"((mod-path_24 sym_90 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_90 fail-k14_1 #t)))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" @@ -46469,7 +46489,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_147)))" -"((letrec-values(((for-loop_184)" +"((letrec-values(((for-loop_185)" "(lambda(result_119 i_90)" "(begin" " 'for-loop" @@ -46501,12 +46521,12 @@ static const char *startup_source = "(if(if(not((lambda x_80(not result_120)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_184" +"(for-loop_185" " result_120" "(hash-iterate-next ht_147 i_90))" " result_120)))" " result_119)))))" -" for-loop_184)" +" for-loop_185)" " #t" "(hash-iterate-first ht_147))))" " #f))))))" @@ -46537,7 +46557,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_272)" "(lambda(table_219 i_91)" "(begin" " 'for-loop" @@ -46558,10 +46578,10 @@ static const char *startup_source = " val_78)))))" "(values table_221)))))" "(if(not #f)" -"(for-loop_271 table_220(hash-iterate-next ht_148 i_91))" +"(for-loop_272 table_220(hash-iterate-next ht_148 i_91))" " table_220)))" " table_219)))))" -" for-loop_271)" +" for-loop_272)" " '#hash()" "(hash-iterate-first ht_148)))))))))" " l_8)))))))" @@ -47113,7 +47133,7 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_90)" +"(let-values(((sym_91)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" "((letrec-values(((loop_103)" @@ -47128,13 +47148,13 @@ static const char *startup_source = "(if(hash?(car l_82))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_82) sym_90 null))" +"(map2 box(hash-ref(car l_82) sym_91 null))" "(hash-ref(car l_82) #f null)" "(loop_103(cdr l_82))))" "(let-values()" "(let-values(((ht_152)(get-linked-collections(car l_82))))" "(append" -"(hash-ref ht_152 sym_90 null)" +"(hash-ref ht_152 sym_91 null)" "(hash-ref ht_152 #f null)" "(loop_103(cdr l_82))))))))))))" " loop_103)" @@ -47601,7 +47621,7 @@ static const char *startup_source = "(let-values(((or-part_91) dynamic-require_1))" "(if or-part_91" " or-part_91" -"(lambda(mod-path_25 sym_91 failure-k_0)" +"(lambda(mod-path_25 sym_92 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" "(let-values(((or-part_293) module-declared?_1))" "(if or-part_293" @@ -48285,26 +48305,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_267)" +"((letrec-values(((for-loop_268)" "(lambda(fold-var_82 i_174)" "(begin" " 'for-loop" "(if i_174" "(let-values(((k_40 v_87)(hash-iterate-key+value ht_145 i_174)))" -"(let-values(((fold-var_289)" +"(let-values(((fold-var_287)" "(let-values(((fold-var_85) fold-var_82))" "(if(eqv? v_87 c_64)" -"(let-values(((fold-var_244) fold-var_85))" +"(let-values(((fold-var_242) fold-var_85))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_40) fold-var_244))))" +"(cons(let-values() k_40) fold-var_242))))" "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_267 fold-var_289(hash-iterate-next ht_145 i_174))" -" fold-var_289)))" +"(for-loop_268 fold-var_287(hash-iterate-next ht_145 i_174))" +" fold-var_287)))" " fold-var_82)))))" -" for-loop_267)" +" for-loop_268)" " null" "(hash-iterate-first ht_145))))))))))" "(define-values" @@ -48952,19 +48972,19 @@ static const char *startup_source = "(let-values()" "(let-values(((missing_2)" "(let-values(((or-part_289)" -"(let-values(((lst_312)(cdr indts_1)))" +"(let-values(((lst_309)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_312)))" -"((letrec-values(((for-loop_272)" -"(lambda(result_122 lst_313)" +"(let-values()(check-list lst_309)))" +"((letrec-values(((for-loop_273)" +"(lambda(result_122 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_313)" -"(let-values(((indt_3)(unsafe-car lst_313))" -"((rest_175)" -"(unsafe-cdr lst_313)))" +"(if(pair? lst_310)" +"(let-values(((indt_3)(unsafe-car lst_310))" +"((rest_176)" +"(unsafe-cdr lst_310)))" "(let-values(((result_84)" "(let-values()" "(let-values(((result_123)" @@ -48982,12 +49002,12 @@ static const char *startup_source = " indt_3))" "(not #f)" " #f)" -"(for-loop_272 result_84 rest_175)" +"(for-loop_273 result_84 rest_176)" " result_84)))" " result_122)))))" -" for-loop_272)" +" for-loop_273)" " #f" -" lst_312)))))" +" lst_309)))))" " (if or-part_289 or-part_289 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" @@ -49927,28 +49947,28 @@ static const char *startup_source = "((lambda(v2_4)" "(let-values(((s118_0) s_458)" "((start119_0) start_44)" -"((temp120_2)(- end_34 7))" +"((temp120_1)(- end_34 7))" "((radix121_0) radix_3)" "((exactness122_0) exactness_0)" "((convert-mode123_0) convert-mode_2)" -"((temp124_2) '@)" +"((temp124_1) '@)" "((temp125_1) #t)" "((v2126_0) v2_4)" -"((temp127_3)" +"((temp127_4)" "(lambda(v2_5 v_234)" "(begin 'temp127(make-polar v_234 v2_5)))))" "(read-for-special-compound65.1" -" temp124_2" +" temp124_1" " temp125_1" " #t" " s118_0" " start119_0" -" temp120_2" +" temp120_1" " radix121_0" " exactness122_0" " convert-mode123_0" " v2126_0" -" temp127_3)))" +" temp127_4)))" " c5_1)" "(let-values()" "(let-values(((s128_1) s_458)" @@ -50042,22 +50062,22 @@ static const char *startup_source = "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" -"((temp140_5)(sub1 end_35))" +"((temp140_4)(sub1 end_35))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" "((radix-set?144_0) radix-set?_1)" "((exactness145_0) exactness_1)" -"((temp146_2) 'i)" +"((temp146_1) 'i)" "((convert-mode147_0) convert-mode_3))" "(string->complex-number50.1" -" temp146_2" +" temp146_1" " radix-set?144_0" " s136_0" " start137_0" " sign-pos138_0" " sign-pos139_0" -" temp140_5" +" temp140_4" " i-pos141_0" " sign-pos142_0" " radix143_0" @@ -50068,7 +50088,7 @@ static const char *startup_source = "(let-values(((s148_0) s_204)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" -"((temp151_2)(add1 @-pos_0))" +"((temp151_1)(add1 @-pos_0))" "((end152_0) end_35)" "((i-pos153_0) i-pos_3)" "((sign-pos154_0) sign-pos_0)" @@ -50083,7 +50103,7 @@ static const char *startup_source = " s148_0" " start149_0" " @-pos150_0" -" temp151_2" +" temp151_1" " end152_0" " i-pos153_0" " sign-pos154_0" @@ -51029,7 +51049,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_274)" "(lambda(result_124 idx_5)" "(begin" " 'for-loop" @@ -51041,10 +51061,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_83 '#\\#)))))" "(values result_126)))))" "(if(if(not((lambda x_85 result_125) c_83))(not #f) #f)" -"(for-loop_273 result_125(unsafe-fx+ idx_5 1))" +"(for-loop_274 result_125(unsafe-fx+ idx_5 1))" " result_125)))" " result_124)))))" -" for-loop_273)" +" for-loop_274)" " #f" " start*_5))))))" "(define-values" @@ -51069,7 +51089,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_274)" +"((letrec-values(((for-loop_275)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" @@ -51086,9 +51106,9 @@ static const char *startup_source = "(string-set! new-s_9 i_176 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_274)" +" for-loop_275)" " start*_6" " start_53)))" "(void)" @@ -51622,7 +51642,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_253)" "(lambda(i_177 lst_80)" "(begin" " 'for-loop" @@ -51630,7 +51650,7 @@ static const char *startup_source = "(let-values(((e_74)" "(unsafe-car" " lst_80))" -"((rest_143)" +"((rest_144)" "(unsafe-cdr" " lst_80)))" "(let-values(((i_178)" @@ -51664,12 +51684,12 @@ static const char *startup_source = " e_74))" "(not #f)" " #f)" -"(for-loop_252" +"(for-loop_253" " i_178" -" rest_143)" +" rest_144)" " i_178)))" " i_177)))))" -" for-loop_252)" +" for-loop_253)" " 0" " lst_24)))))" " v_195))))))" @@ -51696,7 +51716,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_189)" +"((letrec-values(((for-loop_190)" "(lambda(i_180 lst_17)" "(begin" " 'for-loop" @@ -51738,12 +51758,12 @@ static const char *startup_source = " e_81))" "(not #f)" " #f)" -"(for-loop_189" +"(for-loop_190" " i_158" " rest_90)" " i_158)))" " i_180)))))" -" for-loop_189)" +" for-loop_190)" " 0" " lst_92)))))" " v_238))))))" @@ -51842,7 +51862,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_276)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" @@ -51852,7 +51872,7 @@ static const char *startup_source = "(let-values(((e_82)" "(unsafe-car" " lst_10))" -"((rest_170)" +"((rest_171)" "(unsafe-cdr" " lst_10))" "((i_182)" @@ -51870,42 +51890,42 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_275" -" rest_170" +"(for-loop_276" +" rest_171" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_275)" +" for-loop_276)" " lst_9" " start_56)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_227) seq_2)((start_57) 0))" +"(let-values(((lst_226) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_227)))" +"(let-values()(check-list lst_226)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_57)))" "((letrec-values(((for-loop_100)" -"(lambda(lst_181 pos_109)" +"(lambda(lst_180 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_181)" +" lst_180)" " #t" " #f)" "(let-values(((e_83)" "(unsafe-car" -" lst_181))" -"((rest_176)" +" lst_180))" +"((rest_177)" "(unsafe-cdr" -" lst_181))" +" lst_180))" "((i_183)" " pos_109))" "(let-values((()" @@ -51922,45 +51942,45 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_100" -" rest_176" +" rest_177" "(+" " pos_109" " 1))" "(values))))" "(values))))))" " for-loop_100)" -" lst_227" +" lst_226" " start_57)))" "(void)))" "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_314) seq_2)((start_58) 0))" +"(let-values(((lst_311) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_314)))" +"(let-values()(check-list lst_311)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_58)))" "((letrec-values(((for-loop_109)" -"(lambda(lst_280" +"(lambda(lst_277" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_280)" +" lst_277)" " #t" " #f)" "(let-values(((e_84)" "(unsafe-car" -" lst_280))" +" lst_277))" "((rest_45)" "(unsafe-cdr" -" lst_280))" +" lst_277))" "((i_35)" " pos_117))" "(let-values((()" @@ -51984,7 +52004,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_109)" -" lst_314" +" lst_311" " start_58)))" "(void)))" "(let-values()(void))))))" @@ -54111,24 +54131,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_315)" +"(let-values(((lst_312)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_315)))" -"((letrec-values(((for-loop_276)" -"(lambda(lst_316)" +"(let-values()(check-list lst_312)))" +"((letrec-values(((for-loop_277)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_316)" +"(if(pair? lst_313)" "(let-values(((c_12)" "(unsafe-car" -" lst_316))" -"((rest_177)" +" lst_313))" +"((rest_178)" "(unsafe-cdr" -" lst_316)))" +" lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54141,12 +54161,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" -" rest_177)" +"(for-loop_277" +" rest_178)" "(values))))" "(values))))))" -" for-loop_276)" -" lst_315)))" +" for-loop_277)" +" lst_312)))" "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" @@ -55105,15 +55125,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_55)))" "(begin" -"(let-values(((lst_317) already_0))" +"(let-values(((lst_314) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_317)))" -"((letrec-values(((for-loop_277)" -"(lambda(lst_318)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" +"((letrec-values(((for-loop_278)" +"(lambda(lst_315)" "(begin" " 'for-loop" -"(if(pair? lst_318)" -"(let-values(((c_104)(unsafe-car lst_318))((rest_178)(unsafe-cdr lst_318)))" +"(if(pair? lst_315)" +"(let-values(((c_104)(unsafe-car lst_315))((rest_179)(unsafe-cdr lst_315)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55123,10 +55143,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_104))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_277 rest_178)(values))))" +"(if(not #f)(for-loop_278 rest_179)(values))))" "(values))))))" -" for-loop_277)" -" lst_317)))" +" for-loop_278)" +" lst_314)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -55146,12 +55166,12 @@ static const char *startup_source = "(let-values()" "(let-values(((in118_0) in_60)" "((config119_0) config_55)" -"((temp120_3)" +"((temp120_2)" "(let-values(((accum-str122_0) accum-str_11)" "((config123_0) config_55))" "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" "((c121_0) c_26))" -"(bad-syntax-error20.1 c121_0 #t in118_0 config119_0 temp120_3))))" +"(bad-syntax-error20.1 c121_0 #t in118_0 config119_0 temp120_2))))" "(loop_12(cdr wanted_1))))))))))" " loop_12)" " wanted_0)" @@ -55943,7 +55963,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in117_0) in_62)" "((r-config118_0) r-config_0)" -" ((temp119_2) \"illegal use of `~a`\")" +" ((temp119_1) \"illegal use of `~a`\")" "((c120_0) c_107))" "(reader-error12.1" " #f" @@ -55956,7 +55976,7 @@ static const char *startup_source = " #f" " in117_0" " r-config118_0" -" temp119_2" +" temp119_1" "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" @@ -55969,11 +55989,11 @@ static const char *startup_source = "(wrap" "(let-values(((read-one121_0) read-one)" "((ec122_0) ec_10)" -"((temp123_3) '#\\{)" -"((temp124_3) '#\\})" +"((temp123_2) '#\\{)" +"((temp124_2) '#\\})" "((in125_0) in_62)" "((r-config126_0) r-config_0)" -"((temp127_4) #t))" +"((temp127_5) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -55981,14 +56001,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp127_4" +" temp127_5" " #t" " #f" " #f" " read-one121_0" " ec122_0" -" temp123_3" -" temp124_3" +" temp123_2" +" temp124_2" " in125_0" " r-config126_0))" " in_62" @@ -55997,7 +56017,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in128_0) in_62)" "((r-config129_0) r-config_0)" -" ((temp130_2) \"illegal use of `~a`\")" +" ((temp130_1) \"illegal use of `~a`\")" "((c131_0) c_107))" "(reader-error12.1" " #f" @@ -56010,7 +56030,7 @@ static const char *startup_source = " #f" " in128_0" " r-config129_0" -" temp130_2" +" temp130_1" "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" @@ -56022,7 +56042,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in132_0) in_62)" "((r-config133_0) r-config_0)" -" ((temp134_1) \"~a\")" +" ((temp134_2) \"~a\")" "((temp135_2)" "(indentation-unexpected-closer-message" " ec_10" @@ -56039,12 +56059,12 @@ static const char *startup_source = " #f" " in132_0" " r-config133_0" -" temp134_1" +" temp134_2" "(list temp135_2))))" "(let-values()" "(let-values(((in136_0) in_62)" "((r-config137_0) r-config_0)" -" ((temp138_3) \"illegal use of `~a`\")" +" ((temp138_4) \"illegal use of `~a`\")" "((c139_0) c_107))" "(reader-error12.1" " #f" @@ -56057,7 +56077,7 @@ static const char *startup_source = " #f" " in136_0" " r-config137_0" -" temp138_3" +" temp138_4" "(list c139_0))))))" "(if(unsafe-fx< index_4 12)" "(let-values()" @@ -56067,11 +56087,11 @@ static const char *startup_source = "(let-values(((c142_0) c_107)" "((in143_0) in_62)" "((r-config144_0) r-config_0)" -"((temp145_3) 'symbol))" +"((temp145_2) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" -" temp145_3" +" temp145_2" " #t" " c142_0" " in143_0" @@ -56088,9 +56108,9 @@ static const char *startup_source = "(let-values(((in146_0) in_67)" "((config147_0) config_62)" "((c148_0) c_109)" -" ((temp149_1) \"bad syntax `~a`\")" +" ((temp149_2) \"bad syntax `~a`\")" "((dispatch-c150_0) dispatch-c_5))" -"(reader-error12.1 #f #f c148_0 #t #f #f #f #f in146_0 config147_0 temp149_1(list dispatch-c150_0))))" +"(reader-error12.1 #f #f c148_0 #t #f #f #f #f in146_0 config147_0 temp149_2(list dispatch-c150_0))))" "(if(not(char? c_109))" "(let-values()" "(let-values(((in151_0) in_67)" @@ -56263,9 +56283,9 @@ static const char *startup_source = "(if(check-parameter 1/read-square-bracket-as-paren config_62)" "(let-values()" "(let-values(((read-one167_0) read-one)" -"((temp168_0) '#\\[)" +"((temp168_1) '#\\[)" "((temp169_1) '#\\[)" -"((temp170_1) '#\\])" +"((temp170_2) '#\\])" "((in171_0) in_67)" "((config172_0) config_62))" "(read-vector11.1" @@ -56274,9 +56294,9 @@ static const char *startup_source = " #f" " #f" " read-one167_0" -" temp168_0" +" temp168_1" " temp169_1" -" temp170_1" +" temp170_2" " in171_0" " config172_0)))" "(let-values()" @@ -56835,12 +56855,12 @@ static const char *startup_source = " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_83)" +"(lambda(mod_17 sym_84)" "(begin" " 'module-provide-protected?" "(module->" "(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_83 #f)))" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_84 #f)))" "(let-values(((or-part_33)(not b/p_3)))(if or-part_33 or-part_33(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" @@ -56875,11 +56895,11 @@ static const char *startup_source = "(let-values(((name_69)" "(let-values(((mod49_0) mod_18)((temp50_4) #t))" "(reference->resolved-module-path32.1 temp50_4 mod49_0))))" -"(let-values(((phase_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" @@ -56920,7 +56940,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_5)))))" "(let-values(((ns46_0) ns_114)" "((temp47_2)(namespace-mpi m-ns_17))" -"((phase48_2) phase_130))" +"((phase48_2) phase_132))" "(namespace-module-make-available!112.1 #f #f ns46_0 temp47_2 phase48_2))" " m-ns_17)))))))))))))))" "(case-lambda" @@ -56971,11 +56991,11 @@ static const char *startup_source = "(let-values(((name_70)" "(let-values(((mod56_0) mod_21)((temp57_0) #f))" "(reference->resolved-module-path32.1 temp57_0 mod56_0))))" -"(let-values(((phase_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" @@ -57227,32 +57247,32 @@ static const char *startup_source = "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_270) v_250))" +"(let-values(((lst_267) v_250))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_270)))" +"(let-values()(check-list lst_267)))" "((letrec-values(((for-loop_53)" -"(lambda(fold-var_290 lst_283)" +"(lambda(fold-var_288 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((e_88)(unsafe-car lst_283))" -"((rest_179)(unsafe-cdr lst_283)))" -"(let-values(((fold-var_291)" -"(let-values(((fold-var_292) fold-var_290))" -"(let-values(((fold-var_249)" +"(if(pair? lst_280)" +"(let-values(((e_88)(unsafe-car lst_280))" +"((rest_180)(unsafe-cdr lst_280)))" +"(let-values(((fold-var_289)" +"(let-values(((fold-var_290) fold-var_288))" +"(let-values(((fold-var_247)" "(let-values()" "(cons" "(let-values()" "(read-coerce #t e_88 srcloc_12))" -" fold-var_292))))" -"(values fold-var_249)))))" -"(if(not #f)(for-loop_53 fold-var_291 rest_179) fold-var_291)))" -" fold-var_290)))))" +" fold-var_290))))" +"(values fold-var_247)))))" +"(if(not #f)(for-loop_53 fold-var_289 rest_180) fold-var_289)))" +" fold-var_288)))))" " for-loop_53)" " null" -" lst_270))))" +" lst_267))))" " srcloc_12" " #f))" "(if(pair? v_250)" @@ -57291,7 +57311,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader21" "(let-values(((mod-path_30) mod-path19_0))" -"(let-values(((sym_92) sym20_0))" +"(let-values(((sym_93) sym20_0))" "(let-values(((fail-thunk_1)" "(if fail-thunk18_0 fail-thunk17_0 default-dynamic-require-fail-thunk)))" "(let-values()" @@ -57303,11 +57323,11 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" " root-ns_0)" -"(let-values()(1/dynamic-require mod-path_30 sym_92 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_92 fail-thunk_1)))))))))))" +"(let-values()(1/dynamic-require mod-path_30 sym_93 fail-thunk_1)))" +"(1/dynamic-require mod-path_30 sym_93 fail-thunk_1)))))))))))" "(case-lambda" -"((mod-path_31 sym_93)(begin(dynamic-require-reader21_0 mod-path_31 sym_93 #f #f)))" -"((mod-path_32 sym_94 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_94 fail-thunk17_1 #t)))))" +"((mod-path_31 sym_94)(begin(dynamic-require-reader21_0 mod-path_31 sym_94 #f #f)))" +"((mod-path_32 sym_95 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_95 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -57491,7 +57511,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_79)" -"(let-values(((sym_60)(unsafe-car lst_79))" +"(let-values(((sym_61)(unsafe-car lst_79))" "((rest_36)(unsafe-cdr lst_79)))" "(let-values(((table_222)" "(let-values(((table_177) table_216))" @@ -57506,7 +57526,7 @@ static const char *startup_source = "((temp11_6)" " 0)" "((sym12_0)" -" sym_60))" +" sym_61))" "(make-module-binding22.1" " #f" " #f" @@ -57530,10 +57550,10 @@ static const char *startup_source = " temp11_6" " sym12_0))))" "(values" -" sym_60" +" sym_61" "(if(hash-ref" " protected_0" -" sym_60" +" sym_61" " #f)" "(provided1.1" " binding_27" @@ -57569,12 +57589,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_268)" +"(lambda(lst_265)" "(begin" " 'for-loop" -"(if(pair? lst_268)" -"(let-values(((sym_95)(unsafe-car lst_268))" -"((rest_180)(unsafe-cdr lst_268)))" +"(if(pair? lst_265)" +"(let-values(((sym_96)(unsafe-car lst_265))" +"((rest_181)(unsafe-cdr lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57584,16 +57604,16 @@ static const char *startup_source = "(let-values(((val_22)" "(1/instance-variable-value" " inst_7" -" sym_95)))" +" sym_96)))" "(namespace-set-variable!" " ns_46" " 0" -" sym_95" +" sym_96" " val_22)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_180)" +"(for-loop_20 rest_181)" "(values))))" "(values))))))" " for-loop_20)" @@ -58020,13 +58040,13 @@ static const char *startup_source = "(let-values(((stop-ids_16) stop-ids55_0))" "(let-values(((intdefs_9)(if intdefs51_0 intdefs50_0 #f)))" "(let-values(((capture-lifts?_0)(if capture-lifts?44_0 capture-lifts?38_0 #f)))" -"(let-values(((as-transformer?_5)(if as-transformer?45_0 as-transformer?39_0 #f)))" +"(let-values(((as-transformer?_6)(if as-transformer?45_0 as-transformer?39_0 #f)))" "(let-values(((to-parsed-ok?_1)(if to-parsed-ok?46_0 to-parsed-ok?40_0 #f)))" "(let-values(((lift-key_6)" "(if lift-key47_1" " lift-key41_0" "(if(let-values(((or-part_356) capture-lifts?_0))" -"(if or-part_356 or-part_356 as-transformer?_5))" +"(if or-part_356 or-part_356 as-transformer?_6))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -58042,14 +58062,14 @@ static const char *startup_source = " or-part_165" "(memq" " context_23" -"(if as-transformer?_5" +"(if as-transformer?_6" " '(expression top-level)" " '(expression top-level module module-begin)))))" "(void)" "(let-values()" "(raise-argument-error" " who_34" -"(if as-transformer?_5" +"(if as-transformer?_6" " \"(or/c 'expression 'top-level list?)\"" " \"(or/c 'expression 'top-level 'module 'module-begin list?)\")" " context_23)))" @@ -58091,14 +58111,14 @@ static const char *startup_source = "(let-values(((ctx_75)" "(let-values(((who93_0) who_34))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_142)" -"(if as-transformer?_5" +"(let-values(((phase_144)" +"(if as-transformer?_6" "(add1(expand-context-phase ctx_75))" "(expand-context-phase ctx_75))))" "(let-values(((local-ctx_0)" "(let-values(((ctx94_0) ctx_75)" "((context95_0) context_23)" -"((phase96_0) phase_142)" +"((phase96_0) phase_144)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -58120,7 +58140,7 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_75)" -" phase_142)" +" phase_144)" "(values))))" "(let-values((()" "(begin" @@ -58148,7 +58168,7 @@ static const char *startup_source = " intdefs102_0))))" "(let-values((()" "(begin" -"(if as-transformer?_5" +"(if as-transformer?_6" "(let-values()" "(let-values(((obs_60)" "(expand-context-observer" @@ -58191,7 +58211,7 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((output-s_0)" -"(if(if as-transformer?_5 capture-lifts?_0 #f)" +"(if(if as-transformer?_6 capture-lifts?_0 #f)" "(let-values()" "(let-values(((input-s103_0) input-s_1)" "((local-ctx104_0) local-ctx_0)" @@ -58216,7 +58236,7 @@ static const char *startup_source = " #t" " input-s103_0" " local-ctx104_0)))" -"(if as-transformer?_5" +"(if as-transformer?_6" "(let-values()" "(let-values(((input-s111_0) input-s_1)" "((local-ctx112_0)" @@ -58247,14 +58267,14 @@ static const char *startup_source = "(let-values(((input-s118_0) input-s_1)" "((local-ctx119_0)" " local-ctx_0)" -"((temp120_4) #t)" +"((temp120_3) #t)" "((lift-key121_0)" " lift-key_6)" "((temp122_3) #t))" "(expand/capture-lifts41.1" " temp122_3" " #t" -" temp120_4" +" temp120_3" " #t" " #f" " #f" @@ -58914,12 +58934,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_24)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_279)" "(lambda(i_26)" "(begin" " 'for-loop" "(if i_26" -"(let-values(((sym_96)" +"(let-values(((sym_97)" "(hash-iterate-key ht_24 i_26)))" "(let-values((()" "(let-values()" @@ -58928,15 +58948,15 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_96))" +" sym_97))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_279" "(hash-iterate-next ht_24 i_26))" "(values))))" "(values))))))" -" for-loop_278)" +" for-loop_279)" "(hash-iterate-first ht_24))))" "(values))))" "(let-values()" @@ -58946,12 +58966,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_266)" +"((letrec-values(((for-loop_267)" "(lambda(table_11 i_183)" "(begin" " 'for-loop" "(if i_183" -"(let-values(((sym_97 val_5)" +"(let-values(((sym_98 val_5)" "(hash-iterate-key+value" " ht_157" " i_183)))" @@ -58960,7 +58980,7 @@ static const char *startup_source = " table_11))" "(if(set-member?" " skip-syms_0" -" sym_97)" +" sym_98)" " table_224" "(let-values(((table_20)" " table_224))" @@ -58970,11 +58990,11 @@ static const char *startup_source = " val_82)" "(let-values()" "(values" -" sym_97" +" sym_98" "(let-values(((or-part_359)" "(hash-ref" " alts_0" -" sym_97" +" sym_98" " #f)))" "(if or-part_359" " or-part_359" @@ -58985,12 +59005,12 @@ static const char *startup_source = " val_82)))))" "(values table_225)))))))" "(if(not #f)" -"(for-loop_266" +"(for-loop_267" " table_223" "(hash-iterate-next ht_157 i_183))" " table_223)))" " table_11)))))" -" for-loop_266)" +" for-loop_267)" " '#hasheq()" "(hash-iterate-first ht_157))))))" "(let-values(((ht+extras_0)" @@ -58999,7 +59019,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_158)))" -"((letrec-values(((for-loop_279)" +"((letrec-values(((for-loop_280)" "(lambda(ht_159 i_184)" "(begin" " 'for-loop" @@ -59018,12 +59038,12 @@ static const char *startup_source = " v_50))))" "(values ht_161)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_280" " ht_160" "(hash-iterate-next ht_158 i_184))" " ht_160)))" " ht_159)))))" -" for-loop_279)" +" for-loop_280)" " ht_156" "(hash-iterate-first ht_158))))))" "(let-values(((to-name61_0) to-name_0)" @@ -59082,12 +59102,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_163)))" -"((letrec-values(((for-loop_280)" +"((letrec-values(((for-loop_281)" "(lambda(table_226 i_185)" "(begin" " 'for-loop" "(if i_185" -"(let-values(((sym_98)" +"(let-values(((sym_99)" "(hash-iterate-key" " ht_163" " i_185)))" @@ -59104,7 +59124,7 @@ static const char *startup_source = "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_98))" +" sym_99))" "(void))" "(values))))" "(let-values(((binding_28)" @@ -59113,7 +59133,7 @@ static const char *startup_source = "((temp77_3)" " 0)" "((sym78_0)" -" sym_98))" +" sym_99))" "(make-module-binding22.1" " #f" " #f" @@ -59137,13 +59157,13 @@ static const char *startup_source = " temp77_3" " sym78_0))))" "(values" -" sym_98" +" sym_99" "(if(let-values(((or-part_360)" " protected?_11))" "(if or-part_360" " or-part_360" "(member" -" sym_98" +" sym_99" " protected-syms_0)))" "(provided1.1" " binding_28" @@ -59157,14 +59177,14 @@ static const char *startup_source = "(values" " table_229)))))" "(if(not #f)" -"(for-loop_280" +"(for-loop_281" " table_227" "(hash-iterate-next" " ht_163" " i_185))" " table_227)))" " table_226)))))" -" for-loop_280)" +" for-loop_281)" " '#hash()" "(hash-iterate-first ht_163))))))" "((temp75_3)" @@ -59184,7 +59204,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_281)" +"((letrec-values(((for-loop_282)" "(lambda(i_47)" "(begin" " 'for-loop" @@ -59207,13 +59227,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_282" "(hash-iterate-next" " ht_164" " i_47))" "(values))))" "(values))))))" -" for-loop_281)" +" for-loop_282)" "(hash-iterate-first ht_164))))" "(void)))" "(void)))))" @@ -59266,20 +59286,20 @@ static const char *startup_source = "(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_205) require-names_0))" +"(let-values(((lst_204) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_205)))" -"((letrec-values(((for-loop_203)" -"(lambda(fold-var_147 lst_206)" +"(let-values()(check-list lst_204)))" +"((letrec-values(((for-loop_204)" +"(lambda(fold-var_145 lst_205)" "(begin" " 'for-loop" -"(if(pair? lst_206)" -"(let-values(((require-name_0)(unsafe-car lst_206))" -"((rest_107)(unsafe-cdr lst_206)))" -"(let-values(((fold-var_293)" -"(let-values(((fold-var_294) fold-var_147))" +"(if(pair? lst_205)" +"(let-values(((require-name_0)(unsafe-car lst_205))" +"((rest_107)(unsafe-cdr lst_205)))" +"(let-values(((fold-var_291)" +"(let-values(((fold-var_292) fold-var_145))" "(let-values(((fold-var_40)" "(let-values()" "(cons" @@ -59289,15 +59309,15 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_294))))" +" fold-var_292))))" "(values fold-var_40)))))" "(if(not #f)" -"(for-loop_203 fold-var_293 rest_107)" -" fold-var_293)))" -" fold-var_147)))))" -" for-loop_203)" +"(for-loop_204 fold-var_291 rest_107)" +" fold-var_291)))" +" fold-var_145)))))" +" for-loop_204)" " null" -" lst_205))))))" +" lst_204))))))" "(let-values(((ns79_1) ns_122)" "((temp80_4)" "(let-values(((temp82_7) #t)" @@ -59313,14 +59333,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_111)))" -"((letrec-values(((for-loop_282)" +"((letrec-values(((for-loop_283)" "(lambda(table_230 lst_55)" "(begin" " 'for-loop" "(if(pair? lst_55)" "(let-values(((require-mpi_0)" "(unsafe-car lst_55))" -"((rest_181)" +"((rest_182)" "(unsafe-cdr lst_55)))" "(let-values(((table_231)" "(let-values(((m_29)" @@ -59330,7 +59350,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_283)" +"((letrec-values(((for-loop_284)" "(lambda(table_32)" "(begin" " 'for-loop" @@ -59358,7 +59378,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_49" -"(let-values(((sym_99" +"(let-values(((sym_100" " binding_29)" "(hash-iterate-key+value" " ht_34" @@ -59372,7 +59392,7 @@ static const char *startup_source = " val_84)" "(let-values()" "(values" -" sym_99" +" sym_100" " binding_29))))" "(hash-set" " table_165" @@ -59394,13 +59414,13 @@ static const char *startup_source = "(hash-iterate-first" " ht_34))))))" " table_35))))))" -" for-loop_283)" +" for-loop_284)" " table_230)))))" "(if(not #f)" -"(for-loop_282 table_231 rest_181)" +"(for-loop_283 table_231 rest_182)" " table_231)))" " table_230)))))" -" for-loop_282)" +" for-loop_283)" " '#hash()" " lst_111))))" " '#hasheqv()))" @@ -60123,7 +60143,7 @@ static const char *startup_source = "(begin(check-bytes vec_72)(values vec_72(unsafe-bytes-length vec_72))))))" "(begin" " #f" -"((letrec-values(((for-loop_230)" +"((letrec-values(((for-loop_231)" "(lambda(result_127 pos_126)" "(begin" " 'for-loop" @@ -60136,10 +60156,10 @@ static const char *startup_source = "(let-values()(not(eq? c_76 0))))))" "(values result_129)))))" "(if(if(not((lambda x_94 result_128) c_76))(not #f) #f)" -"(for-loop_230 result_128(unsafe-fx+ 1 pos_126))" +"(for-loop_231 result_128(unsafe-fx+ 1 pos_126))" " result_128)))" " result_127)))))" -" for-loop_230)" +" for-loop_231)" " #f" " 0)))" " hash-code_5" @@ -60218,11 +60238,11 @@ static const char *startup_source = "(apply" " bytes-append" "(reverse$1" -"(let-values(((lst_319)(cdr expected-mod_1)))" +"(let-values(((lst_316)(cdr expected-mod_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_319)))" +"(let-values()(check-list lst_316)))" "((letrec-values(((for-loop_103)" "(lambda(fold-var_63 lst_93)" "(begin" @@ -60260,7 +60280,7 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_103)" " null" -" lst_319))))))))))" +" lst_316))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -61361,7 +61381,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_100)" +"(let-values(((sym_101)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -61372,9 +61392,9 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_100" +" sym_101" " subm-path_0))" -" sym_100))))))))))))))" +" sym_101))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" @@ -61489,21 +61509,21 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_266) bodys_7))" +"(let-values(((lst_263) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_284)" +"(let-values()(check-list lst_263)))" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_70 lst_102)" "(begin" " 'for-loop" "(if(pair? lst_102)" "(let-values(((body_11)(unsafe-car lst_102))" -"((rest_142)(unsafe-cdr lst_102)))" +"((rest_143)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_70))" -"(let-values(((fold-var_217)" +"(let-values(((fold-var_215)" "(let-values()" "(cons" "(let-values()" @@ -61511,14 +61531,14 @@ static const char *startup_source = " body_11" " inside-sc_0))" " fold-var_12))))" -"(values fold-var_217)))))" +"(values fold-var_215)))))" "(if(not #f)" -"(for-loop_284 fold-var_11 rest_142)" +"(for-loop_285 fold-var_11 rest_143)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_284)" +" for-loop_285)" " null" -" lst_266))))))" +" lst_263))))))" "(let-values((()" "(begin" "(let-values(((obs_66)(expand-context-observer ctx_14)))" @@ -61532,7 +61552,7 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_143)(expand-context-phase ctx_14)))" +"(let-values(((phase_145)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" @@ -61705,7 +61725,7 @@ static const char *startup_source = "(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_0" -" phase_143)))" +" phase_145)))" "(if(equal? tmp_64 'begin)" "(let-values()" "(let-values((()" @@ -61882,7 +61902,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_109)" -"(let-values(((lst_196)" +"(let-values(((lst_195)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61890,20 +61910,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_196)))" -"((letrec-values(((for-loop_285)" +" lst_195)))" +"((letrec-values(((for-loop_286)" "(lambda(id_110" -" lst_320)" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_317)" "(let-values(((s_54)" "(unsafe-car" -" lst_320))" -"((rest_182)" +" lst_317))" +"((rest_183)" "(unsafe-cdr" -" lst_320)))" +" lst_317)))" "(let-values(((id_72)" "(let-values(((id_111)" " id_110))" @@ -61935,14 +61955,14 @@ static const char *startup_source = " id_112)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_286" " id_72" -" rest_182)" +" rest_183)" " id_72)))" " id_110)))))" -" for-loop_285)" +" for-loop_286)" " null" -" lst_196)))))" +" lst_195)))))" "(reverse$1" " id_109))))))))" "((rhs90_0)" @@ -62031,7 +62051,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_29)" "((phase94_1)" -" phase_143)" +" phase_145)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -62049,7 +62069,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_321)" +"(let-values(((lst_318)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62057,23 +62077,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_187" -" lst_322)" +" lst_318)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_185" +" lst_319)" "(begin" " 'for-loop" "(if(pair?" -" lst_322)" +" lst_319)" "(let-values(((id_113)" "(unsafe-car" -" lst_322))" -"((rest_183)" +" lst_319))" +"((rest_184)" "(unsafe-cdr" -" lst_322)))" -"(let-values(((fold-var_243)" -"(let-values(((fold-var_295)" -" fold-var_187))" +" lst_319)))" +"(let-values(((fold-var_241)" +"(let-values(((fold-var_293)" +" fold-var_185))" "(let-values(((fold-var_36)" "(let-values()" "(cons" @@ -62081,7 +62101,7 @@ static const char *startup_source = "(let-values(((id97_2)" " id_113)" "((phase98_0)" -" phase_143)" +" phase_145)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -62096,23 +62116,23 @@ static const char *startup_source = " id97_2" " phase98_0" " counter99_0)))" -" fold-var_295))))" +" fold-var_293))))" "(values" " fold-var_36)))))" "(if(not" " #f)" -"(for-loop_286" -" fold-var_243" -" rest_183)" -" fold-var_243)))" -" fold-var_187)))))" -" for-loop_286)" +"(for-loop_287" +" fold-var_241" +" rest_184)" +" fold-var_241)))" +" fold-var_185)))))" +" for-loop_287)" " null" -" lst_321))))))" +" lst_318))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_232)" +"(let-values(((lst_231)" " keys_5)" -"((lst_199)" +"((lst_198)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62120,36 +62140,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_232)))" +" lst_231)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_199)))" -"((letrec-values(((for-loop_287)" +" lst_198)))" +"((letrec-values(((for-loop_288)" "(lambda(env_17" -" lst_323" -" lst_275)" +" lst_320" +" lst_272)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_323)" +" lst_320)" "(pair?" -" lst_275)" +" lst_272)" " #f)" "(let-values(((key_92)" "(unsafe-car" -" lst_323))" -"((rest_149)" +" lst_320))" +"((rest_150)" "(unsafe-cdr" -" lst_323))" +" lst_320))" "((id_9)" "(unsafe-car" -" lst_275))" -"((rest_184)" +" lst_272))" +"((rest_185)" "(unsafe-cdr" -" lst_275)))" +" lst_272)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -62164,17 +62184,17 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_288" " env_18" -" rest_149" -" rest_184)" +" rest_150" +" rest_185)" " env_18)))" " env_17)))))" -" for-loop_287)" +" for-loop_288)" "(expand-context-env" " body-ctx_2)" -" lst_232" -" lst_199)))))" +" lst_231" +" lst_198)))))" "(loop_40" "(let-values(((v_254)" " body-ctx_2))" @@ -62229,7 +62249,7 @@ static const char *startup_source = " ids_29" "(append" "(reverse$1" -"(let-values(((lst_324)" +"(let-values(((lst_321)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62237,41 +62257,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_296" -" lst_325)" +" lst_321)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_294" +" lst_322)" "(begin" " 'for-loop" "(if(pair?" -" lst_325)" +" lst_322)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_325))" -"((rest_185)" +" lst_322))" +"((rest_186)" "(unsafe-cdr" -" lst_325)))" +" lst_322)))" +"(let-values(((fold-var_295)" +"(let-values(((fold-var_296)" +" fold-var_294))" "(let-values(((fold-var_297)" -"(let-values(((fold-var_298)" -" fold-var_296))" -"(let-values(((fold-var_299)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_298))))" +" fold-var_296))))" "(values" -" fold-var_299)))))" +" fold-var_297)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_297" -" rest_185)" -" fold-var_297)))" -" fold-var_296)))))" -" for-loop_288)" +"(for-loop_289" +" fold-var_295" +" rest_186)" +" fold-var_295)))" +" fold-var_294)))))" +" for-loop_289)" " null" -" lst_324))))" +" lst_321))))" " val-idss_0))" "(cons" " keys_5" @@ -62286,38 +62306,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_32)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_300" -" lst_326)" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_298" +" lst_323)" "(begin" " 'for-loop" "(if(pair?" -" lst_326)" +" lst_323)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_326))" -"((rest_186)" +" lst_323))" +"((rest_187)" "(unsafe-cdr" -" lst_326)))" +" lst_323)))" +"(let-values(((fold-var_299)" +"(let-values(((fold-var_300)" +" fold-var_298))" "(let-values(((fold-var_301)" -"(let-values(((fold-var_302)" -" fold-var_300))" -"(let-values(((fold-var_303)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_302))))" +" fold-var_300))))" "(values" -" fold-var_303)))))" +" fold-var_301)))))" "(if(not" " #f)" -"(for-loop_289" -" fold-var_301" -" rest_186)" -" fold-var_301)))" -" fold-var_300)))))" -" for-loop_289)" +"(for-loop_290" +" fold-var_299" +" rest_187)" +" fold-var_299)))" +" fold-var_298)))))" +" for-loop_290)" " null" " lst_32))))" " val-keyss_0))" @@ -62325,7 +62345,7 @@ static const char *startup_source = " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_327)" +"(let-values(((lst_324)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62333,44 +62353,44 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_304" -" lst_203)" +" lst_324)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_302" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" +" lst_202)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_203))" -"((rest_187)" +" lst_202))" +"((rest_188)" "(unsafe-cdr" -" lst_203)))" -"(let-values(((fold-var_305)" -"(let-values(((fold-var_141)" -" fold-var_304))" -"(let-values(((fold-var_306)" +" lst_202)))" +"(let-values(((fold-var_303)" +"(let-values(((fold-var_139)" +" fold-var_302))" +"(let-values(((fold-var_304)" "(let-values()" "(cons" "(let-values()" "(no-binds" " done-body_2" " s_174" -" phase_143))" -" fold-var_141))))" +" phase_145))" +" fold-var_139))))" "(values" -" fold-var_306)))))" +" fold-var_304)))))" "(if(not" " #f)" -"(for-loop_259" -" fold-var_305" -" rest_187)" -" fold-var_305)))" -" fold-var_304)))))" -" for-loop_259)" +"(for-loop_260" +" fold-var_303" +" rest_188)" +" fold-var_303)))" +" fold-var_302)))))" +" for-loop_260)" " null" -" lst_327))))" +" lst_324))))" " val-rhss_0))" "(cons" " exp-body_0" @@ -62385,8 +62405,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_107)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_142" +"((letrec-values(((for-loop_291)" +"(lambda(fold-var_140" " lst_108)" "(begin" " 'for-loop" @@ -62395,28 +62415,28 @@ static const char *startup_source = "(let-values(((done-body_3)" "(unsafe-car" " lst_108))" -"((rest_188)" +"((rest_189)" "(unsafe-cdr" " lst_108)))" -"(let-values(((fold-var_307)" -"(let-values(((fold-var_145)" -" fold-var_142))" -"(let-values(((fold-var_308)" +"(let-values(((fold-var_305)" +"(let-values(((fold-var_143)" +" fold-var_140))" +"(let-values(((fold-var_306)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_145))))" +" fold-var_143))))" "(values" -" fold-var_308)))))" +" fold-var_306)))))" "(if(not" " #f)" -"(for-loop_290" -" fold-var_307" -" rest_188)" -" fold-var_307)))" -" fold-var_142)))))" -" for-loop_290)" +"(for-loop_291" +" fold-var_305" +" rest_189)" +" fold-var_305)))" +" fold-var_140)))))" +" for-loop_291)" " null" " lst_107))))" " track-stxs_0))" @@ -62497,7 +62517,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_114)" -"(let-values(((lst_328)" +"(let-values(((lst_325)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62505,8 +62525,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_328)))" -"((letrec-values(((for-loop_291)" +" lst_325)))" +"((letrec-values(((for-loop_292)" "(lambda(id_115" " lst_35)" "(begin" @@ -62516,7 +62536,7 @@ static const char *startup_source = "(let-values(((s_482)" "(unsafe-car" " lst_35))" -"((rest_189)" +"((rest_190)" "(unsafe-cdr" " lst_35)))" "(let-values(((id_116)" @@ -62550,14 +62570,14 @@ static const char *startup_source = " id_118)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_292" " id_116" -" rest_189)" +" rest_190)" " id_116)))" " id_115)))))" -" for-loop_291)" +" for-loop_292)" " null" -" lst_328)))))" +" lst_325)))))" "(reverse$1" " id_114))))))))" "((rhs112_0)" @@ -62646,7 +62666,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_30)" "((phase116_0)" -" phase_143)" +" phase_145)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62664,7 +62684,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_329)" +"(let-values(((lst_326)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62672,31 +62692,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_329)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_309" -" lst_330)" +" lst_326)))" +"((letrec-values(((for-loop_293)" +"(lambda(fold-var_307" +" lst_327)" "(begin" " 'for-loop" "(if(pair?" -" lst_330)" +" lst_327)" "(let-values(((id_119)" "(unsafe-car" -" lst_330))" -"((rest_190)" +" lst_327))" +"((rest_191)" "(unsafe-cdr" -" lst_330)))" +" lst_327)))" +"(let-values(((fold-var_308)" +"(let-values(((fold-var_309)" +" fold-var_307))" "(let-values(((fold-var_310)" -"(let-values(((fold-var_311)" -" fold-var_309))" -"(let-values(((fold-var_312)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" " id_119)" "((phase120_0)" -" phase_143)" +" phase_145)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62711,19 +62731,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_311))))" +" fold-var_309))))" "(values" -" fold-var_312)))))" +" fold-var_310)))))" "(if(not" " #f)" -"(for-loop_292" -" fold-var_310" -" rest_190)" -" fold-var_310)))" -" fold-var_309)))))" -" for-loop_292)" +"(for-loop_293" +" fold-var_308" +" rest_191)" +" fold-var_308)))" +" fold-var_307)))))" +" for-loop_293)" " null" -" lst_329))))))" +" lst_326))))))" "(let-values((()" "(begin" "(let-values(((obs_72)" @@ -62763,9 +62783,9 @@ static const char *startup_source = "(let-values(((extended-env_1)" "(let-values(((lst_46)" " keys_6)" -"((lst_331)" +"((lst_328)" " vals_8)" -"((lst_332)" +"((lst_329)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62779,46 +62799,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_331)))" +" lst_328)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_332)))" -"((letrec-values(((for-loop_293)" +" lst_329)))" +"((letrec-values(((for-loop_294)" "(lambda(env_21" -" lst_333" -" lst_334" -" lst_335)" +" lst_330" +" lst_331" +" lst_332)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_333)" +" lst_330)" "(if(pair?" -" lst_334)" +" lst_331)" "(pair?" -" lst_335)" +" lst_332)" " #f)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_333))" -"((rest_191)" -"(unsafe-cdr" -" lst_333))" -"((val_85)" -"(unsafe-car" -" lst_334))" +" lst_330))" "((rest_192)" "(unsafe-cdr" -" lst_334))" -"((id_120)" +" lst_330))" +"((val_85)" "(unsafe-car" -" lst_335))" +" lst_331))" "((rest_193)" "(unsafe-cdr" -" lst_335)))" +" lst_331))" +"((id_120)" +"(unsafe-car" +" lst_332))" +"((rest_194)" +"(unsafe-cdr" +" lst_332)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62828,7 +62848,7 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_85" " id_120" -" phase_143" +" phase_145" " body-ctx_2)" "(env-extend" " env_23" @@ -62838,19 +62858,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_294" " env_22" -" rest_191" " rest_192" -" rest_193)" +" rest_193" +" rest_194)" " env_22)))" " env_21)))))" -" for-loop_293)" +" for-loop_294)" "(expand-context-env" " body-ctx_2)" " lst_46" -" lst_331" -" lst_332)))))" +" lst_328" +" lst_329)))))" "(begin" "(let-values(((obs_74)" "(expand-context-observer" @@ -62953,7 +62973,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_143)" +" phase_145)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -63110,41 +63130,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_336) done-bodys_1)" +"(let-values(((lst_333) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_336)))" +"(check-list lst_333)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_294)" -"(lambda(fold-var_313" -" lst_337" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_311" +" lst_334" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_337)" +" lst_334)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_337))" -"((rest_194)" +" lst_334))" +"((rest_195)" "(unsafe-cdr" -" lst_337))" +" lst_334))" "((i_190)" " pos_127))" +"(let-values(((fold-var_312)" +"(let-values(((fold-var_313)" +" fold-var_311))" "(let-values(((fold-var_314)" -"(let-values(((fold-var_315)" -" fold-var_313))" -"(let-values(((fold-var_316)" "(let-values()" "(cons" "(let-values()" @@ -63219,22 +63239,22 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_3))))" -" fold-var_315))))" +" fold-var_313))))" "(values" -" fold-var_316)))))" +" fold-var_314)))))" "(if(not" " #f)" -"(for-loop_294" -" fold-var_314" -" rest_194" +"(for-loop_295" +" fold-var_312" +" rest_195" "(+" " pos_127" " 1))" -" fold-var_314)))" -" fold-var_313)))))" -" for-loop_294)" +" fold-var_312)))" +" fold-var_311)))))" +" for-loop_295)" " null" -" lst_336" +" lst_333" " start_66))))))" "(begin" "(let-values(((obs_78)" @@ -63289,17 +63309,17 @@ static const char *startup_source = "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" "((s145_0) s_230)" -"((temp146_3)(pair? stx-clauses_1))" +"((temp146_2)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" -"((temp148_0) #f))" +"((temp148_1) #f))" "(expand-and-split-bindings-by-reference48.1" " finish-ctx144_0" " frame-id143_0" " finish-bodys147_0" -" temp146_3" +" temp146_2" " s145_0" " temp142_2" -" temp148_0" +" temp148_1" " val-idss138_0" " val-keyss139_0" " val-rhss140_0" @@ -63346,7 +63366,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_77)))" +"(let-values(((phase_146)(expand-context-phase ctx_77)))" "((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" @@ -63386,15 +63406,15 @@ static const char *startup_source = " exp-body_1))" "(let-values(((track?149_0) track?_2)" "((s150_0) s_486)" -"((temp151_3)" +"((temp151_2)" "(list*" "(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" @@ -63404,7 +63424,7 @@ static const char *startup_source = " track?149_0" " #t" " s150_0" -" temp151_3)))))" +" temp151_2)))))" "(begin" "(let-values(((obs_82)" "(expand-context-observer ctx_77)))" @@ -63435,8 +63455,8 @@ static const char *startup_source = "(values))))" "(let-values(((ids_31)(car idss_2)))" "(let-values(((expanded-rhs_0)" -"(let-values(((temp152_0)(car rhss_2))" -"((temp153_0)" +"(let-values(((temp152_1)(car rhss_2))" +"((temp153_1)" "(as-named-context" " ctx_77" " ids_31)))" @@ -63445,8 +63465,8 @@ static const char *startup_source = " #f" " #f" " #f" -" temp152_0" -" temp153_0))))" +" temp152_1" +" temp153_1))))" "(let-values(((track-stx_0)(car track-stxs_3)))" "(let-values(((local-or-forward-references?_0)" "(reference-record-forward-references?" @@ -63505,7 +63525,7 @@ static const char *startup_source = "(list*" "(core-id" " 'let-values" -" phase_144)" +" phase_146)" "(list" "(build-clause" " ids_31" @@ -63582,11 +63602,11 @@ static const char *startup_source = " track?_2)" "((s158_0)" " s_486)" -"((temp159_0)" +"((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_144)" +" phase_146)" "(build-clauses" "(cons" " ids_31" @@ -63602,7 +63622,7 @@ static const char *startup_source = " track?157_0" " #t" " s158_0" -" temp159_0)))))" +" temp159_1)))))" "(begin" "(let-values(((obs_27)" "(expand-context-observer" @@ -63661,12 +63681,12 @@ 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_487 phase_145)" +"(lambda(expr_10 s_487 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)))" +"(core-id '#%app phase_147)" +"(list(core-id 'begin phase_147) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" " s_487)))))" "(define-values" "(log-tag?)" @@ -63676,34 +63696,34 @@ static const char *startup_source = "(lambda(obs_85 ctx_79 s_488 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_79)))" +"(let-values(((phase_148)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_338) track-stxs_4))" +"(let-values(((lst_246) val-idss_2)((lst_247) val-rhss_2)((lst_335) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_246)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_247)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_338)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_317 lst_339 lst_340 lst_341)" +"(let-values()(check-list lst_335)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_315 lst_336 lst_337 lst_338)" "(begin" " 'for-loop" -"(if(if(pair? lst_339)(if(pair? lst_340)(pair? lst_341) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_339))" -"((rest_195)(unsafe-cdr lst_339))" -"((val-rhs_0)(unsafe-car lst_340))" -"((rest_196)(unsafe-cdr lst_340))" -"((track-stx_2)(unsafe-car lst_341))" -"((rest_62)(unsafe-cdr lst_341)))" +"(if(if(pair? lst_336)(if(pair? lst_337)(pair? lst_338) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_336))" +"((rest_196)(unsafe-cdr lst_336))" +"((val-rhs_0)(unsafe-car lst_337))" +"((rest_197)(unsafe-cdr lst_337))" +"((track-stx_2)(unsafe-car lst_338))" +"((rest_62)(unsafe-cdr lst_338)))" +"(let-values(((fold-var_316)" +"(let-values(((fold-var_317) fold-var_315))" "(let-values(((fold-var_318)" -"(let-values(((fold-var_319) fold-var_317))" -"(let-values(((fold-var_320)" "(let-values()" "(cons" "(let-values()" @@ -63711,19 +63731,19 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_319))))" -"(values fold-var_320)))))" +" fold-var_317))))" +"(values fold-var_318)))))" "(if(not #f)" -"(for-loop_295 fold-var_318 rest_195 rest_196 rest_62)" -" fold-var_318)))" -" fold-var_317)))))" -" for-loop_295)" +"(for-loop_296 fold-var_316 rest_196 rest_197 rest_62)" +" fold-var_316)))" +" fold-var_315)))))" +" for-loop_296)" " null" +" lst_246" " lst_247" -" lst_248" -" lst_338))))))" +" lst_335))))))" "(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" @@ -63771,12 +63791,12 @@ static const char *startup_source = "(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_147)(expand-context-phase ctx_80)))" +"(let-values(((phase_149)(expand-context-phase ctx_80)))" "(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_33)" -"((phase35_2) phase_147)" +"((phase35_2) phase_149)" "((s36_0) s_73)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" @@ -63789,23 +63809,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_321 lst_267)" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_319 lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((id_121)(unsafe-car lst_267))" -"((rest_197)(unsafe-cdr lst_267)))" +"(if(pair? lst_264)" +"(let-values(((id_121)(unsafe-car lst_264))" +"((rest_198)(unsafe-cdr lst_264)))" "(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_321))" -"(let-values(((fold-var_159)" +"(let-values(((fold-var_34) fold-var_319))" +"(let-values(((fold-var_157)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_0)" " id_121)" "((phase39_1)" -" phase_147)" +" phase_149)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -63819,12 +63839,12 @@ static const char *startup_source = " phase39_1" " counter40_0)))" " fold-var_34))))" -"(values fold-var_159)))))" +"(values fold-var_157)))))" "(if(not #f)" -"(for-loop_296 fold-var_33 rest_197)" +"(for-loop_297 fold-var_33 rest_198)" " fold-var_33)))" -" fold-var_321)))))" -" for-loop_296)" +" fold-var_319)))))" +" for-loop_297)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63837,14 +63857,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_50)" -"(lambda(env_25 lst_83 lst_273)" +"(lambda(env_25 lst_83 lst_270)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_273) #f)" +"(if(if(pair? lst_83)(pair? lst_270) #f)" "(let-values(((key_94)(unsafe-car lst_83))" -"((rest_148)(unsafe-cdr lst_83))" -"((id_122)(unsafe-car lst_273))" -"((rest_198)(unsafe-cdr lst_273)))" +"((rest_149)(unsafe-cdr lst_83))" +"((id_122)(unsafe-car lst_270))" +"((rest_199)(unsafe-cdr lst_270)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63856,7 +63876,7 @@ static const char *startup_source = " id_122)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_50 env_26 rest_148 rest_198)" +"(for-loop_50 env_26 rest_149 rest_199)" " env_26)))" " env_25)))))" " for-loop_50)" @@ -63872,7 +63892,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_17)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_218 lst_18)" +"(lambda(fold-var_216 lst_18)" "(begin" " 'for-loop" "(if(pair? lst_18)" @@ -63880,7 +63900,7 @@ static const char *startup_source = "((rest_5)(unsafe-cdr lst_18)))" "(let-values(((fold-var_64)" "(let-values(((fold-var_65)" -" fold-var_218))" +" fold-var_216))" "(let-values(((fold-var_66)" "(let-values()" "(cons" @@ -63893,7 +63913,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_10 fold-var_64 rest_5)" " fold-var_64)))" -" fold-var_218)))))" +" fold-var_216)))))" " for-loop_10)" " null" " lst_17))))))" @@ -64062,14 +64082,14 @@ static const char *startup_source = "(values #t lam-id66_1 formals67_1 _68_1))))))" "(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_490)))" "(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" -"(let-values(((phase_148)(if ctx_82(expand-context-phase ctx_82) 0)))" +"(let-values(((phase_150)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_148) ((s76_2) s_490) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_150) ((s76_2) s_490) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" " s_490" "(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_490)))" " s_490" " s_490)))))))))" @@ -64104,27 +64124,27 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_342) flat-s_28))" +"(let-values(((lst_339) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_342)))" -"((letrec-values(((for-loop_297)" +"(check-list lst_339)))" +"((letrec-values(((for-loop_298)" "(lambda(formals_4" " body_15" -" lst_343)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" +" lst_340)" "(let-values(((s_316)" "(unsafe-car" -" lst_343))" -"((rest_199)" +" lst_340))" +"((rest_200)" "(unsafe-cdr" -" lst_343)))" +" lst_340)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -64198,20 +64218,20 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_298" " formals_5" " body_16" -" rest_199)" +" rest_200)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_297)" +" for-loop_298)" " null" " null" -" lst_342)))))" +" lst_339)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64244,33 +64264,33 @@ static const char *startup_source = "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_344) formals80_0)((lst_53) body81_0)((lst_206) clause88_0))" +"(let-values(((lst_341) formals80_0)((lst_53) body81_0)((lst_205) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_344)))" +"(let-values()(check-list lst_341)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_53)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_206)))" +"(let-values()(check-list lst_205)))" "((letrec-values(((for-loop_124)" -"(lambda(fold-var_322 lst_276 lst_157 lst_345)" +"(lambda(fold-var_320 lst_273 lst_156 lst_342)" "(begin" " 'for-loop" -"(if(if(pair? lst_276)" -"(if(pair? lst_157)(pair? lst_345) #f)" +"(if(if(pair? lst_273)" +"(if(pair? lst_156)(pair? lst_342) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_276))" -"((rest_200)(unsafe-cdr lst_276))" -"((body_19)(unsafe-car lst_157))" -"((rest_80)(unsafe-cdr lst_157))" -"((clause_3)(unsafe-car lst_345))" -"((rest_201)(unsafe-cdr lst_345)))" -"(let-values(((fold-var_151)" -"(let-values(((fold-var_323) fold-var_322))" -"(let-values(((fold-var_324)" +"(let-values(((formals_8)(unsafe-car lst_273))" +"((rest_201)(unsafe-cdr lst_273))" +"((body_19)(unsafe-car lst_156))" +"((rest_80)(unsafe-cdr lst_156))" +"((clause_3)(unsafe-car lst_342))" +"((rest_202)(unsafe-cdr lst_342)))" +"(let-values(((fold-var_149)" +"(let-values(((fold-var_321) fold-var_320))" +"(let-values(((fold-var_322)" "(let-values()" "(cons" "(let-values()" @@ -64326,17 +64346,17 @@ static const char *startup_source = " #f" " rebuild-clause98_0" " temp99_4)))))))" -" fold-var_323))))" -"(values fold-var_324)))))" +" fold-var_321))))" +"(values fold-var_322)))))" "(if(not #f)" -"(for-loop_124 fold-var_151 rest_200 rest_80 rest_201)" -" fold-var_151)))" -" fold-var_322)))))" +"(for-loop_124 fold-var_149 rest_201 rest_80 rest_202)" +" fold-var_149)))" +" fold-var_320)))))" " for-loop_124)" " null" -" lst_344" +" lst_341" " lst_53" -" lst_206))))))" +" lst_205))))))" "(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" @@ -64479,7 +64499,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_346)" +"(let-values(((lst_343)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64487,21 +64507,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" +" lst_343)))" "((letrec-values(((for-loop_48)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_347)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" +" lst_344)" "(let-values(((s_327)" "(unsafe-car" -" lst_347))" -"((rest_202)" +" lst_344))" +"((rest_203)" "(unsafe-cdr" -" lst_347)))" +" lst_344)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64544,7 +64564,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_302)" +"(let-values(((lst_299)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64552,20 +64572,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_302)))" -"((letrec-values(((for-loop_262)" +" lst_299)))" +"((letrec-values(((for-loop_263)" "(lambda(id:trans_6" -" lst_303)" +" lst_300)" "(begin" " 'for-loop" "(if(pair?" -" lst_303)" +" lst_300)" "(let-values(((s_233)" "(unsafe-car" -" lst_303))" -"((rest_169)" +" lst_300))" +"((rest_170)" "(unsafe-cdr" -" lst_303)))" +" lst_300)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64597,14 +64617,14 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_263" " id:trans_7" -" rest_169)" +" rest_170)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_262)" +" for-loop_263)" " null" -" lst_302)))))" +" lst_299)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" @@ -64669,7 +64689,7 @@ static const char *startup_source = "(for-loop_48" " id:trans_2" " trans-rhs_2" -" rest_202)" +" rest_203)" "(values" " id:trans_2" " trans-rhs_2))))" @@ -64679,7 +64699,7 @@ static const char *startup_source = " for-loop_48)" " null" " null" -" lst_346)))))" +" lst_343)))))" "(values" "(reverse$1" " id:trans_0)" @@ -64722,7 +64742,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_348)" +"(let-values(((lst_345)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64730,21 +64750,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_348)))" -"((letrec-values(((for-loop_264)" +" lst_345)))" +"((letrec-values(((for-loop_265)" "(lambda(id:val_1" " val-rhs_2" -" lst_349)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_349)" +" lst_346)" "(let-values(((s_350)" "(unsafe-car" -" lst_349))" -"((rest_203)" +" lst_346))" +"((rest_204)" "(unsafe-cdr" -" lst_349)))" +" lst_346)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64787,7 +64807,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_350)" +"(let-values(((lst_347)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64795,20 +64815,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" -"((letrec-values(((for-loop_298)" +" lst_347)))" +"((letrec-values(((for-loop_299)" "(lambda(id:val_6" -" lst_351)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" +" lst_348)" "(let-values(((s_506)" "(unsafe-car" -" lst_351))" -"((rest_204)" +" lst_348))" +"((rest_205)" "(unsafe-cdr" -" lst_351)))" +" lst_348)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -64840,14 +64860,14 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_299" " id:val_7" -" rest_204)" +" rest_205)" " id:val_7)))" " id:val_6)))))" -" for-loop_298)" +" for-loop_299)" " null" -" lst_350)))))" +" lst_347)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" @@ -64909,20 +64929,20 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_264" +"(for-loop_265" " id:val_2" " val-rhs_3" -" rest_203)" +" rest_204)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_264)" +" for-loop_265)" " null" " null" -" lst_348)))))" +" lst_345)))))" "(values" "(reverse$1" " id:val_0)" @@ -65036,7 +65056,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_352)" +"(let-values(((lst_349)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65044,21 +65064,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_352)))" -"((letrec-values(((for-loop_299)" +" lst_349)))" +"((letrec-values(((for-loop_300)" "(lambda(id:val_11" " val-rhs_7" -" lst_353)" +" lst_350)" "(begin" " 'for-loop" "(if(pair?" -" lst_353)" +" lst_350)" "(let-values(((s_370)" "(unsafe-car" -" lst_353))" -"((rest_205)" +" lst_350))" +"((rest_206)" "(unsafe-cdr" -" lst_353)))" +" lst_350)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -65101,7 +65121,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_308)" +"(let-values(((lst_305)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65109,20 +65129,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_308)))" -"((letrec-values(((for-loop_269)" +" lst_305)))" +"((letrec-values(((for-loop_270)" "(lambda(id:val_16" -" lst_309)" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_309)" +" lst_306)" "(let-values(((s_513)" "(unsafe-car" -" lst_309))" -"((rest_173)" +" lst_306))" +"((rest_174)" "(unsafe-cdr" -" lst_309)))" +" lst_306)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -65154,14 +65174,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_269" +"(for-loop_270" " id:val_17" -" rest_173)" +" rest_174)" " id:val_17)))" " id:val_16)))))" -" for-loop_269)" +" for-loop_270)" " null" -" lst_308)))))" +" lst_305)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" @@ -65223,20 +65243,20 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_300" " id:val_12" " val-rhs_8" -" rest_205)" +" rest_206)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_299)" +" for-loop_300)" " null" " null" -" lst_352)))))" +" lst_349)))))" "(values" "(reverse$1" " id:val_10)" @@ -65288,33 +65308,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_84)))" +"(let-values(((phase_151)(expand-context-phase ctx_84)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_354)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_351)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_325 lst_355)" +"(let-values()(check-list lst_351)))" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_323 lst_352)" "(begin" " 'for-loop" -"(if(pair? lst_355)" +"(if(pair? lst_352)" "(let-values(((ids_35)" -"(unsafe-car lst_355))" -"((rest_206)" -"(unsafe-cdr lst_355)))" +"(unsafe-car lst_352))" +"((rest_207)" +"(unsafe-cdr lst_352)))" +"(let-values(((fold-var_324)" +"(let-values(((fold-var_325)" +" fold-var_323))" "(let-values(((fold-var_326)" -"(let-values(((fold-var_327)" -" fold-var_325))" -"(let-values(((fold-var_328)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_356)" +"(let-values(((lst_353)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65322,78 +65342,78 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_356)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_329" -" lst_357)" +" lst_353)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_327" +" lst_354)" "(begin" " 'for-loop" "(if(pair?" -" lst_357)" +" lst_354)" "(let-values(((id_123)" "(unsafe-car" -" lst_357))" -"((rest_207)" +" lst_354))" +"((rest_208)" "(unsafe-cdr" -" lst_357)))" +" lst_354)))" +"(let-values(((fold-var_328)" +"(let-values(((fold-var_329)" +" fold-var_327))" "(let-values(((fold-var_330)" -"(let-values(((fold-var_331)" -" fold-var_329))" -"(let-values(((fold-var_332)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_123" " sc_37))" -" fold-var_331))))" +" fold-var_329))))" "(values" -" fold-var_332)))))" +" fold-var_330)))))" "(if(not" " #f)" -"(for-loop_301" -" fold-var_330" -" rest_207)" -" fold-var_330)))" -" fold-var_329)))))" +"(for-loop_302" +" fold-var_328" +" rest_208)" +" fold-var_328)))" +" fold-var_327)))))" +" for-loop_302)" +" null" +" lst_353)))))" +" fold-var_325))))" +"(values" +" fold-var_326)))))" +"(if(not #f)" +"(for-loop_301 fold-var_324 rest_207)" +" fold-var_324)))" +" fold-var_323)))))" " for-loop_301)" " null" -" lst_356)))))" -" fold-var_327))))" -"(values" -" fold-var_328)))))" -"(if(not #f)" -"(for-loop_300 fold-var_326 rest_206)" -" fold-var_326)))" -" fold-var_325)))))" -" for-loop_300)" -" null" -" lst_354))))))" +" lst_351))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_358)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_355)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_333 lst_359)" +"(let-values()(check-list lst_355)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_331 lst_356)" "(begin" " 'for-loop" -"(if(pair? lst_359)" +"(if(pair? lst_356)" "(let-values(((ids_36)" -"(unsafe-car lst_359))" -"((rest_208)" -"(unsafe-cdr lst_359)))" -"(let-values(((fold-var_334)" -"(let-values(((fold-var_335)" -" fold-var_333))" +"(unsafe-car lst_356))" +"((rest_209)" +"(unsafe-cdr lst_356)))" +"(let-values(((fold-var_332)" +"(let-values(((fold-var_333)" +" fold-var_331))" "(let-values(((fold-var_107)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_357)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65401,95 +65421,95 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_360)))" +" lst_357)))" "((letrec-values(((for-loop_156)" "(lambda(fold-var_108" -" lst_361)" +" lst_358)" "(begin" " 'for-loop" "(if(pair?" -" lst_361)" +" lst_358)" "(let-values(((id_124)" "(unsafe-car" -" lst_361))" -"((rest_209)" +" lst_358))" +"((rest_210)" "(unsafe-cdr" -" lst_361)))" +" lst_358)))" "(let-values(((fold-var_112)" -"(let-values(((fold-var_336)" +"(let-values(((fold-var_334)" " fold-var_108))" -"(let-values(((fold-var_337)" +"(let-values(((fold-var_335)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_124" " sc_37))" -" fold-var_336))))" +" fold-var_334))))" "(values" -" fold-var_337)))))" +" fold-var_335)))))" "(if(not" " #f)" "(for-loop_156" " fold-var_112" -" rest_209)" +" rest_210)" " fold-var_112)))" " fold-var_108)))))" " for-loop_156)" " null" -" lst_360)))))" -" fold-var_335))))" +" lst_357)))))" +" fold-var_333))))" "(values" " fold-var_107)))))" "(if(not #f)" -"(for-loop_302" -" fold-var_334" -" rest_208)" -" fold-var_334)))" -" fold-var_333)))))" -" for-loop_302)" +"(for-loop_303" +" fold-var_332" +" rest_209)" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_303)" " null" -" lst_358))))))" +" lst_355))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_362)" +"(let-values(((lst_359)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_338 lst_363)" +"(let-values()(check-list lst_359)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_336 lst_360)" "(begin" " 'for-loop" -"(if(pair? lst_363)" +"(if(pair? lst_360)" "(let-values(((rhs_17)" -"(unsafe-car lst_363))" -"((rest_210)" -"(unsafe-cdr lst_363)))" +"(unsafe-car lst_360))" +"((rest_211)" +"(unsafe-cdr lst_360)))" +"(let-values(((fold-var_337)" +"(let-values(((fold-var_338)" +" fold-var_336))" "(let-values(((fold-var_339)" -"(let-values(((fold-var_340)" -" fold-var_338))" -"(let-values(((fold-var_341)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_17" " sc_37))" -" fold-var_340))))" +" fold-var_338))))" "(values" -" fold-var_341)))))" +" fold-var_339)))))" "(if(not #f)" -"(for-loop_303" -" fold-var_339" -" rest_210)" -" fold-var_339)))" -" fold-var_338)))))" -" for-loop_303)" +"(for-loop_304" +" fold-var_337" +" rest_211)" +" fold-var_337)))" +" fold-var_336)))))" +" for-loop_304)" " null" -" lst_362))))" +" lst_359))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" @@ -65680,7 +65700,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_149)" +"((phase143_0) phase_151)" "((s144_0) s_323))" "(check-no-duplicate-ids8.1" " #f" @@ -65694,32 +65714,32 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_364) trans-idss_2))" +"(let-values(((lst_361) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_342 lst_365)" +"(let-values()(check-list lst_361)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_340 lst_362)" "(begin" " 'for-loop" -"(if(pair? lst_365)" +"(if(pair? lst_362)" "(let-values(((ids_37)" "(unsafe-car" -" lst_365))" -"((rest_211)" +" lst_362))" +"((rest_212)" "(unsafe-cdr" -" lst_365)))" +" lst_362)))" +"(let-values(((fold-var_341)" +"(let-values(((fold-var_342)" +" fold-var_340))" "(let-values(((fold-var_343)" -"(let-values(((fold-var_344)" -" fold-var_342))" -"(let-values(((fold-var_345)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_366)" +"(let-values(((lst_363)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65727,31 +65747,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_366)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_346" -" lst_367)" +" lst_363)))" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_344" +" lst_364)" "(begin" " 'for-loop" "(if(pair?" -" lst_367)" +" lst_364)" "(let-values(((id_125)" "(unsafe-car" -" lst_367))" -"((rest_212)" +" lst_364))" +"((rest_213)" "(unsafe-cdr" -" lst_367)))" +" lst_364)))" +"(let-values(((fold-var_345)" +"(let-values(((fold-var_346)" +" fold-var_344))" "(let-values(((fold-var_347)" -"(let-values(((fold-var_348)" -" fold-var_346))" -"(let-values(((fold-var_349)" "(let-values()" "(cons" "(let-values()" "(let-values(((id175_0)" " id_125)" "((phase176_0)" -" phase_149)" +" phase_151)" "((counter177_0)" " counter_8)" "((frame-id178_0)" @@ -65766,59 +65786,59 @@ static const char *startup_source = " id175_0" " phase176_0" " counter177_0)))" -" fold-var_348))))" +" fold-var_346))))" "(values" -" fold-var_349)))))" +" fold-var_347)))))" "(if(not" " #f)" +"(for-loop_306" +" fold-var_345" +" rest_213)" +" fold-var_345)))" +" fold-var_344)))))" +" for-loop_306)" +" null" +" lst_363)))))" +" fold-var_342))))" +"(values" +" fold-var_343)))))" +"(if(not #f)" "(for-loop_305" -" fold-var_347" +" fold-var_341" " rest_212)" -" fold-var_347)))" -" fold-var_346)))))" +" fold-var_341)))" +" fold-var_340)))))" " for-loop_305)" " null" -" lst_366)))))" -" fold-var_344))))" -"(values" -" fold-var_345)))))" -"(if(not #f)" -"(for-loop_304" -" fold-var_343" -" rest_211)" -" fold-var_343)))" -" fold-var_342)))))" -" for-loop_304)" -" null" -" lst_364))))))" +" lst_361))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_255) val-idss_3))" +"(let-values(((lst_127) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_350 lst_368)" +"(let-values()(check-list lst_127)))" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_348 lst_128)" "(begin" " 'for-loop" -"(if(pair? lst_368)" +"(if(pair? lst_128)" "(let-values(((ids_38)" "(unsafe-car" -" lst_368))" -"((rest_213)" +" lst_128))" +"((rest_63)" "(unsafe-cdr" -" lst_368)))" +" lst_128)))" +"(let-values(((fold-var_349)" +"(let-values(((fold-var_350)" +" fold-var_348))" "(let-values(((fold-var_351)" -"(let-values(((fold-var_352)" -" fold-var_350))" -"(let-values(((fold-var_353)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_369)" +"(let-values(((lst_365)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65826,31 +65846,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_369)))" +" lst_365)))" "((letrec-values(((for-loop_307)" -"(lambda(fold-var_354" -" lst_370)" +"(lambda(fold-var_352" +" lst_366)" "(begin" " 'for-loop" "(if(pair?" -" lst_370)" +" lst_366)" "(let-values(((id_126)" "(unsafe-car" -" lst_370))" +" lst_366))" "((rest_214)" "(unsafe-cdr" -" lst_370)))" +" lst_366)))" +"(let-values(((fold-var_353)" +"(let-values(((fold-var_354)" +" fold-var_352))" "(let-values(((fold-var_355)" -"(let-values(((fold-var_356)" -" fold-var_354))" -"(let-values(((fold-var_115)" "(let-values()" "(cons" "(let-values()" "(let-values(((id180_0)" " id_126)" "((phase181_0)" -" phase_149)" +" phase_151)" "((counter182_0)" " counter_8)" "((frame-id183_0)" @@ -65865,73 +65885,73 @@ static const char *startup_source = " id180_0" " phase181_0" " counter182_0)))" -" fold-var_356))))" +" fold-var_354))))" "(values" -" fold-var_115)))))" +" fold-var_355)))))" "(if(not" " #f)" "(for-loop_307" -" fold-var_355" +" fold-var_353" " rest_214)" -" fold-var_355)))" -" fold-var_354)))))" +" fold-var_353)))" +" fold-var_352)))))" " for-loop_307)" " null" -" lst_369)))))" -" fold-var_352))))" +" lst_365)))))" +" fold-var_350))))" "(values" -" fold-var_353)))))" +" fold-var_351)))))" "(if(not #f)" -"(for-loop_306" -" fold-var_351" -" rest_213)" -" fold-var_351)))" -" fold-var_350)))))" -" for-loop_306)" +"(for-loop_158" +" fold-var_349" +" rest_63)" +" fold-var_349)))" +" fold-var_348)))))" +" for-loop_158)" " null" -" lst_255))))))" +" lst_127))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_371)" +"(let-values(((lst_367)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_371)))" +"(let-values()(check-list lst_367)))" "((letrec-values(((for-loop_308)" -"(lambda(fold-var_357 lst_372)" +"(lambda(fold-var_356 lst_368)" "(begin" " 'for-loop" -"(if(pair? lst_372)" +"(if(pair? lst_368)" "(let-values(((body_20)" "(unsafe-car" -" lst_372))" +" lst_368))" "((rest_215)" "(unsafe-cdr" -" lst_372)))" +" lst_368)))" +"(let-values(((fold-var_357)" "(let-values(((fold-var_358)" +" fold-var_356))" "(let-values(((fold-var_359)" -" fold-var_357))" -"(let-values(((fold-var_360)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_37))" -" fold-var_359))))" +" fold-var_358))))" "(values" -" fold-var_360)))))" +" fold-var_359)))))" "(if(not #f)" "(for-loop_308" -" fold-var_358" +" fold-var_357" " rest_215)" -" fold-var_358)))" -" fold-var_357)))))" +" fold-var_357)))" +" fold-var_356)))))" " for-loop_308)" " null" -" lst_371))))))" +" lst_367))))))" "(let-values((()" "(begin" "(let-values(((obs_88)" @@ -65969,44 +65989,44 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_132)" +"(let-values(((lst_369)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" -"((lst_373) trans-idss_2))" +"((lst_370) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_132)))" +"(let-values()(check-list lst_369)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_373)))" +"(let-values()(check-list lst_370)))" "((letrec-values(((for-loop_309)" -"(lambda(fold-var_120" -" lst_374" -" lst_375)" +"(lambda(fold-var_360" +" lst_371" +" lst_372)" "(begin" " 'for-loop" -"(if(if(pair? lst_374)" -"(pair? lst_375)" +"(if(if(pair? lst_371)" +"(pair? lst_372)" " #f)" "(let-values(((rhs_20)" "(unsafe-car" -" lst_374))" +" lst_371))" "((rest_216)" "(unsafe-cdr" -" lst_374))" +" lst_371))" "((ids_39)" "(unsafe-car" -" lst_375))" +" lst_372))" "((rest_217)" "(unsafe-cdr" -" lst_375)))" +" lst_372)))" +"(let-values(((fold-var_114)" "(let-values(((fold-var_361)" -"(let-values(((fold-var_124)" -" fold-var_120))" +" fold-var_360))" "(let-values(((fold-var_362)" "(let-values()" "(cons" @@ -66047,60 +66067,60 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_124))))" +" fold-var_361))))" "(values" " fold-var_362)))))" "(if(not #f)" "(for-loop_309" -" fold-var_361" +" fold-var_114" " rest_216" " rest_217)" -" fold-var_361)))" -" fold-var_120)))))" +" fold-var_114)))" +" fold-var_360)))))" " for-loop_309)" " null" -" lst_132" -" lst_373))))))" +" lst_369" +" lst_370))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_376) val-keyss_2)" -"((lst_258) val-idss_3))" +"(let-values(((lst_373) val-keyss_2)" +"((lst_256) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_376)))" +"(let-values()(check-list lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" +"(let-values()(check-list lst_256)))" "((letrec-values(((for-loop_310)" "(lambda(env_29" -" lst_377" -" lst_378)" +" lst_374" +" lst_375)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_377)" -"(pair? lst_378)" +" lst_374)" +"(pair? lst_375)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_377))" +" lst_374))" "((rest_218)" "(unsafe-cdr" -" lst_377))" +" lst_374))" "((ids_40)" "(unsafe-car" -" lst_378))" +" lst_375))" "((rest_219)" "(unsafe-cdr" -" lst_378)))" +" lst_375)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_260)" +"(let-values(((lst_131)" " keys_10)" -"((lst_379)" +"((lst_376)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66108,36 +66128,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_260)))" +" lst_131)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_379)))" +" lst_376)))" "((letrec-values(((for-loop_311)" "(lambda(env_32" -" lst_380" -" lst_381)" +" lst_377" +" lst_378)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_380)" +" lst_377)" "(pair?" -" lst_381)" +" lst_378)" " #f)" "(let-values(((key_67)" "(unsafe-car" -" lst_380))" +" lst_377))" "((rest_220)" "(unsafe-cdr" -" lst_380))" +" lst_377))" "((id_127)" "(unsafe-car" -" lst_381))" +" lst_378))" "((rest_221)" "(unsafe-cdr" -" lst_381)))" +" lst_378)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -66160,8 +66180,8 @@ static const char *startup_source = " env_32)))))" " for-loop_311)" " env_31" -" lst_260" -" lst_379))))))" +" lst_131" +" lst_376))))))" "(if(not #f)" "(for-loop_310" " env_30" @@ -66171,21 +66191,21 @@ static const char *startup_source = " env_29)))))" " for-loop_310)" "(expand-context-env ctx_84)" -" lst_376" -" lst_258)))))" +" lst_373" +" lst_256)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_382) trans-keyss_0)" -"((lst_383) trans-valss_0)" +"(let-values(((lst_379) trans-keyss_0)" +"((lst_380) trans-valss_0)" "((lst_60) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_382)))" +"(let-values()(check-list lst_379)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_383)))" +"(let-values()(check-list lst_380)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -66193,16 +66213,16 @@ static const char *startup_source = "((letrec-values(((for-loop_84)" "(lambda(env_36" " lst_61" -" lst_384" -" lst_385)" +" lst_381" +" lst_382)" "(begin" " 'for-loop" "(if(if(pair?" " lst_61)" "(if(pair?" -" lst_384)" +" lst_381)" "(pair?" -" lst_385)" +" lst_382)" " #f)" " #f)" "(let-values(((keys_11)" @@ -66213,26 +66233,26 @@ static const char *startup_source = " lst_61))" "((vals_9)" "(unsafe-car" -" lst_384))" +" lst_381))" "((rest_223)" "(unsafe-cdr" -" lst_384))" +" lst_381))" "((ids_41)" "(unsafe-car" -" lst_385))" +" lst_382))" "((rest_224)" "(unsafe-cdr" -" lst_385)))" +" lst_382)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_386)" +"(let-values(((lst_383)" " keys_11)" -"((lst_387)" +"((lst_384)" " vals_9)" -"((lst_388)" +"((lst_385)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66240,32 +66260,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_386)))" +" lst_383)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_387)))" +" lst_384)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_388)))" +" lst_385)))" "((letrec-values(((for-loop_312)" "(lambda(env_40" " lst_65" -" lst_389" -" lst_390)" +" lst_386" +" lst_387)" "(begin" " 'for-loop" "(if(if(pair?" " lst_65)" "(if(pair?" -" lst_389)" +" lst_386)" "(pair?" -" lst_390)" +" lst_387)" " #f)" " #f)" "(let-values(((key_95)" @@ -66276,16 +66296,16 @@ static const char *startup_source = " lst_65))" "((val_86)" "(unsafe-car" -" lst_389))" +" lst_386))" "((rest_226)" "(unsafe-cdr" -" lst_389))" +" lst_386))" "((id_128)" "(unsafe-car" -" lst_390))" +" lst_387))" "((rest_30)" "(unsafe-cdr" -" lst_390)))" +" lst_387)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -66295,7 +66315,7 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_86" " id_128" -" phase_149" +" phase_151" " ctx_84)" "(env-extend" " env_42" @@ -66314,9 +66334,9 @@ static const char *startup_source = " env_40)))))" " for-loop_312)" " env_38" -" lst_386" -" lst_387" -" lst_388))))))" +" lst_383" +" lst_384" +" lst_385))))))" "(values" " env_39)))))" "(if(not #f)" @@ -66329,8 +66349,8 @@ static const char *startup_source = " env_36)))))" " for-loop_84)" " rec-val-env_0" -" lst_382" -" lst_383" +" lst_379" +" lst_380" " lst_60)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_84)))" @@ -66400,7 +66420,7 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_84))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_149)" +"(core-id 'letrec-values phase_151)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" @@ -66420,27 +66440,27 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_84)" "(reverse$1" -"(let-values(((lst_391)" +"(let-values(((lst_388)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_391)))" +"(check-list lst_388)))" "((letrec-values(((for-loop_313)" "(lambda(fold-var_363" -" lst_392)" +" lst_389)" "(begin" " 'for-loop" "(if(pair?" -" lst_392)" +" lst_389)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_392))" +" lst_389))" "((rest_227)" "(unsafe-cdr" -" lst_392)))" +" lst_389)))" "(let-values(((fold-var_364)" "(let-values(((fold-var_365)" " fold-var_363))" @@ -66449,7 +66469,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_262)" +"(let-values(((lst_259)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66457,8 +66477,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_262)))" -"((letrec-values(((for-loop_226)" +" lst_259)))" +"((letrec-values(((for-loop_227)" "(lambda(fold-var_367" " lst_120)" "(begin" @@ -66489,14 +66509,14 @@ static const char *startup_source = " fold-var_370)))))" "(if(not" " #f)" -"(for-loop_226" +"(for-loop_227" " fold-var_368" " rest_59)" " fold-var_368)))" " fold-var_367)))))" -" for-loop_226)" +" for-loop_227)" " null" -" lst_262)))))" +" lst_259)))))" " fold-var_365))))" "(values" " fold-var_366)))))" @@ -66509,7 +66529,7 @@ static const char *startup_source = " fold-var_363)))))" " for-loop_313)" " null" -" lst_391))))" +" lst_388))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -66620,13 +66640,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_393)" +"(let-values(((lst_390)" " val-name-idss_0)" -"((lst_140)" +"((lst_391)" " val-keyss_2)" -"((lst_394)" +"((lst_392)" " val-rhss_3)" -"((lst_395)" +"((lst_393)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66634,72 +66654,72 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_390)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_391)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_392)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_393)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_140)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_394)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_395)))" "((letrec-values(((for-loop_314)" -"(lambda(fold-var_138" +"(lambda(fold-var_371" +" lst_394" +" lst_395" " lst_396" -" lst_397" -" lst_398" -" lst_399)" +" lst_397)" "(begin" " 'for-loop" "(if(if(pair?" +" lst_394)" +"(if(pair?" +" lst_395)" +"(if(pair?" " lst_396)" -"(if(pair?" -" lst_397)" -"(if(pair?" -" lst_398)" "(pair?" -" lst_399)" +" lst_397)" " #f)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_396))" +" lst_394))" "((rest_228)" "(unsafe-cdr" -" lst_396))" +" lst_394))" "((keys_12)" "(unsafe-car" -" lst_397))" +" lst_395))" "((rest_229)" "(unsafe-cdr" -" lst_397))" +" lst_395))" "((rhs_21)" "(unsafe-car" -" lst_398))" +" lst_396))" "((rest_31)" "(unsafe-cdr" -" lst_398))" +" lst_396))" "((clause_4)" "(unsafe-car" -" lst_399))" +" lst_397))" "((rest_230)" "(unsafe-cdr" -" lst_399)))" -"(let-values(((fold-var_371)" +" lst_397)))" "(let-values(((fold-var_372)" -" fold-var_138))" "(let-values(((fold-var_373)" +" fold-var_371))" +"(let-values(((fold-var_374)" "(let-values()" "(cons" "(let-values()" @@ -66746,25 +66766,25 @@ static const char *startup_source = " exp-rhs_4)" " clause_4" " clause_4)))))" -" fold-var_372))))" +" fold-var_373))))" "(values" -" fold-var_373)))))" +" fold-var_374)))))" "(if(not" " #f)" "(for-loop_314" -" fold-var_371" +" fold-var_372" " rest_228" " rest_229" " rest_31" " rest_230)" -" fold-var_371)))" -" fold-var_138)))))" +" fold-var_372)))" +" fold-var_371)))))" " for-loop_314)" " null" -" lst_393" -" lst_140" -" lst_394" -" lst_395))))))" +" lst_390" +" lst_391" +" lst_392" +" lst_393))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66845,25 +66865,25 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_400) val-idss_4)((lst_401) val-rhss_4))" +"(let-values(((lst_398) val-idss_4)((lst_399) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" +"(let-values()(check-list lst_398)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" +"(let-values()(check-list lst_399)))" "((letrec-values(((for-loop_315)" -"(lambda(fold-var_374 lst_402 lst_403)" +"(lambda(fold-var_375 lst_400 lst_401)" "(begin" " 'for-loop" -"(if(if(pair? lst_402)(pair? lst_403) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_402))" -"((rest_231)(unsafe-cdr lst_402))" -"((val-rhs_11)(unsafe-car lst_403))" -"((rest_232)(unsafe-cdr lst_403)))" -"(let-values(((fold-var_375)" -"(let-values(((fold-var_376) fold-var_374))" +"(if(if(pair? lst_400)(pair? lst_401) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_400))" +"((rest_231)(unsafe-cdr lst_400))" +"((val-rhs_11)(unsafe-car lst_401))" +"((rest_232)(unsafe-cdr lst_401)))" +"(let-values(((fold-var_376)" +"(let-values(((fold-var_377) fold-var_375))" "(let-values(((fold-var_51)" "(let-values()" "(cons" @@ -66871,16 +66891,16 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_376))))" +" fold-var_377))))" "(values fold-var_51)))))" "(if(not #f)" -"(for-loop_315 fold-var_375 rest_231 rest_232)" -" fold-var_375)))" -" fold-var_374)))))" +"(for-loop_315 fold-var_376 rest_231 rest_232)" +" fold-var_376)))" +" fold-var_375)))))" " for-loop_315)" " null" -" lst_400" -" lst_401))))" +" lst_398" +" lst_399))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_95" @@ -66889,25 +66909,25 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_71) trans-idss_3)((lst_404) trans-rhss_0))" +"(let-values(((lst_71) trans-idss_3)((lst_402) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_71)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_404)))" +"(let-values()(check-list lst_402)))" "((letrec-values(((for-loop_316)" -"(lambda(fold-var_52 lst_405 lst_406)" +"(lambda(fold-var_52 lst_403 lst_404)" "(begin" " 'for-loop" -"(if(if(pair? lst_405)(pair? lst_406) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_405))" -"((rest_233)(unsafe-cdr lst_405))" -"((trans-rhs_5)(unsafe-car lst_406))" -"((rest_234)(unsafe-cdr lst_406)))" -"(let-values(((fold-var_377)" -"(let-values(((fold-var_378) fold-var_52))" +"(if(if(pair? lst_403)(pair? lst_404) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_403))" +"((rest_233)(unsafe-cdr lst_403))" +"((trans-rhs_5)(unsafe-car lst_404))" +"((rest_234)(unsafe-cdr lst_404)))" +"(let-values(((fold-var_378)" +"(let-values(((fold-var_379) fold-var_52))" "(let-values(((fold-var_56)" "(let-values()" "(cons" @@ -66917,14 +66937,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_378))))" +" fold-var_379))))" "(values fold-var_56)))))" -"(if(not #f)(for-loop_316 fold-var_377 rest_233 rest_234) fold-var_377)))" +"(if(not #f)(for-loop_316 fold-var_378 rest_233 rest_234) fold-var_378)))" " fold-var_52)))))" " for-loop_316)" " null" " lst_71" -" lst_404))))" +" lst_402))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -67039,10 +67059,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_86)))" +"(let-values(((phase_152)(expand-context-phase ctx_86)))" "(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" "(parsed-quote14.1(keep-properties-only~ s_534)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_534)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" +"(let-values(((s240_0) s_534)((temp241_1)(list(core-id 'quote phase_152) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" @@ -67078,10 +67098,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_87)))" +"(let-values(((phase_153)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" "(parsed-quote14.1(keep-properties-only~ s_539) null)" -"(let-values(((s246_0) s_539)((temp247_0)(list(core-id 'quote phase_151) null)))" +"(let-values(((s246_0) s_539)((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)))" @@ -67127,23 +67147,23 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_407) rest-es_0))" +"(let-values(((lst_405) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_407)))" +"(let-values()(check-list lst_405)))" "((letrec-values(((for-loop_317)" -"(lambda(fold-var_379 lst_408)" +"(lambda(fold-var_380 lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_408)" -"(let-values(((e_93)(unsafe-car lst_408))" +"(if(pair? lst_406)" +"(let-values(((e_93)(unsafe-car lst_406))" "((rest_235)" -"(unsafe-cdr lst_408)))" -"(let-values(((fold-var_380)" +"(unsafe-cdr lst_406)))" "(let-values(((fold-var_381)" -" fold-var_379))" "(let-values(((fold-var_382)" +" fold-var_380))" +"(let-values(((fold-var_383)" "(let-values()" "(cons" "(let-values()" @@ -67169,16 +67189,16 @@ static const char *startup_source = " #f" " e256_0" " expr-ctx257_0))))" -" fold-var_381))))" +" fold-var_382))))" "(values" -" fold-var_382)))))" +" fold-var_383)))))" "(if(not #f)" -"(for-loop_317 fold-var_380 rest_235)" -" fold-var_380)))" -" fold-var_379)))))" +"(for-loop_317 fold-var_381 rest_235)" +" fold-var_381)))" +" fold-var_380)))))" " for-loop_317)" " null" -" lst_407))))))" +" lst_405))))))" "(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" @@ -68813,16 +68833,16 @@ static const char *startup_source = "((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_409)" +" lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_409)" +"(if(pair? lst_407)" "(let-values(((spec_0)" "(unsafe-car" -" lst_409))" +" lst_407))" "((rest_236)" "(unsafe-cdr" -" lst_409)))" +" lst_407)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -69614,7 +69634,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_317)" +"(let-values(((lst_314)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69622,20 +69642,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" -"((letrec-values(((for-loop_277)" +" lst_314)))" +"((letrec-values(((for-loop_278)" "(lambda(id:field_1" -" lst_410)" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" +" lst_408)" "(let-values(((s_743)" "(unsafe-car" -" lst_410))" +" lst_408))" "((rest_237)" "(unsafe-cdr" -" lst_410)))" +" lst_408)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -69667,14 +69687,14 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_278" " id:field_2" " rest_237)" " id:field_2)))" " id:field_1)))))" -" for-loop_277)" +" for-loop_278)" " null" -" lst_317)))))" +" lst_314)))))" "(reverse$1" " id:field_0))))))))" "(()" @@ -70121,7 +70141,7 @@ static const char *startup_source = " orig-s_73))" "(let-values()" "(let-values(((id_140)" -"(let-values(((lst_411)" +"(let-values(((lst_409)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70129,20 +70149,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_411)))" +" lst_409)))" "((letrec-values(((for-loop_318)" "(lambda(id_141" -" lst_412)" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" +" lst_410)" "(let-values(((s_120)" "(unsafe-car" -" lst_412))" +" lst_410))" "((rest_238)" "(unsafe-cdr" -" lst_412)))" +" lst_410)))" "(let-values(((id_142)" "(let-values(((id_143)" " id_141))" @@ -70181,7 +70201,7 @@ static const char *startup_source = " id_141)))))" " for-loop_318)" " null" -" lst_411)))))" +" lst_409)))))" "(reverse$1" " id_140)))))))))" "(values" @@ -70424,17 +70444,17 @@ static const char *startup_source = " lst_4)))" "((letrec-values(((for-loop_319)" "(lambda(id_145" -" lst_413)" +" lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_413)" +" lst_411)" "(let-values(((s_762)" "(unsafe-car" -" lst_413))" -"((rest_194)" +" lst_411))" +"((rest_195)" "(unsafe-cdr" -" lst_413)))" +" lst_411)))" "(let-values(((id_146)" "(let-values(((id_147)" " id_145))" @@ -70468,7 +70488,7 @@ static const char *startup_source = " #f)" "(for-loop_319" " id_146" -" rest_194)" +" rest_195)" " id_146)))" " id_145)))))" " for-loop_319)" @@ -70952,7 +70972,7 @@ static const char *startup_source = " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_79 sym_101 at-phase_5 ns_126 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_79 sym_102 at-phase_5 ns_126 rp_2 protected?_16)" "(begin" "(let-values(((b_93)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_126)))" "(let-values((()" @@ -70966,20 +70986,20 @@ static const char *startup_source = " orig-s_79" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_93 spec_1 at-phase_5 ns_126)))" +"(let-values(((as-transformer?_7)(binding-for-transformer? b_93 spec_1 at-phase_5 ns_126)))" "(let-values(((immed-b_0)" -"(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_5) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f temp120_5 #t #f #f spec118_0 at-phase119_0))))" +"(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_4) #t))" +"(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" -"((sym110_0) sym_101)" +"((sym110_0) sym_102)" "((at-phase111_0) at-phase_5)" "((b112_0) b_93)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_79)" "((protected?116_0) protected?_16)" -"((as-transformer?117_0) as-transformer?_6))" -"(add-provide!109.1" +"((as-transformer?117_0) as-transformer?_7))" +"(add-provide!117.1" " protected?116_0" " as-transformer?117_0" " rp109_0" @@ -71003,10 +71023,10 @@ static const char *startup_source = "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_102)" +"(let-values(((sym_103)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" "(begin" " (let-values (((lst_124) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" @@ -71014,11 +71034,11 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_124)))" "((letrec-values(((for-loop_64)" -"(lambda(lst_414)" +"(lambda(lst_412)" "(begin" " 'for-loop" -"(if(pair? lst_414)" -"(let-values(((fmt_3)(unsafe-car lst_414))((rest_239)(unsafe-cdr lst_414)))" +"(if(pair? lst_412)" +"(let-values(((fmt_3)(unsafe-car lst_412))((rest_239)(unsafe-cdr lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71041,17 +71061,17 @@ static const char *startup_source = " for-loop_64)" " lst_124)))" "(void)" -"(let-values(((lst_415) fields_0))" +"(let-values(((lst_413) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_415)))" +"(let-values()(check-list lst_413)))" "((letrec-values(((for-loop_320)" -"(lambda(lst_416)" +"(lambda(lst_414)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((field_0)(unsafe-car lst_416))((rest_240)(unsafe-cdr lst_416)))" +"(if(pair? lst_414)" +"(let-values(((field_0)(unsafe-car lst_414))((rest_240)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71086,7 +71106,7 @@ static const char *startup_source = "(if(not #f)(for-loop_320 rest_240)(values))))" "(values))))))" " for-loop_320)" -" lst_415)))" +" lst_413)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -71128,24 +71148,24 @@ static const char *startup_source = " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_103)" +"(lambda(sym_104)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_241) requireds_2))" +"(let-values(((lst_240) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_241)))" +"(let-values()(check-list lst_240)))" "((letrec-values(((for-loop_321)" -"(lambda(lst_417)" +"(lambda(lst_415)" "(begin" " 'for-loop" -"(if(pair? lst_417)" -"(let-values(((i_191)(unsafe-car lst_417))" -"((rest_241)(unsafe-cdr lst_417)))" +"(if(pair? lst_415)" +"(let-values(((i_191)(unsafe-car lst_415))" +"((rest_241)(unsafe-cdr lst_415)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71154,14 +71174,14 @@ static const char *startup_source = "(let-values()" "(let-values(((id_150)" "(required-id i_191)))" -"(let-values(((phase_152)" +"(let-values(((phase_154)" "(required-phase" " i_191)))" "(if(let-values(((or-part_391)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_152" +" phase_154" " at-phase_16)" "(free-identifier=?$1" " id_150" @@ -71169,13 +71189,13 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_150))" -" phase_152" -" phase_152)" +" phase_154" +" phase_154)" " #f))" " #f)))" "(if or-part_391" " or-part_391" -"(let-values(((lst_418)" +"(let-values(((lst_416)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71183,20 +71203,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_418)))" +" lst_416)))" "((letrec-values(((for-loop_322)" "(lambda(result_130" -" lst_419)" +" lst_417)" "(begin" " 'for-loop" "(if(pair?" -" lst_419)" +" lst_417)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_419))" +" lst_417))" "((rest_242)" "(unsafe-cdr" -" lst_419)))" +" lst_417)))" "(let-values(((result_131)" "(let-values()" "(let-values(((result_132)" @@ -71205,8 +71225,8 @@ static const char *startup_source = "(if(free-identifier=?$1" " id_150" " except-id_0" -" phase_152" -" phase_152)" +" phase_154" +" phase_154)" "(hash-set!" " found_0" " except-id_0" @@ -71228,20 +71248,20 @@ static const char *startup_source = " result_130)))))" " for-loop_322)" " #f" -" lst_418)))))" +" lst_416)))))" "(void)" "(let-values()" "(let-values(((b_94)" "(resolve+shift/extra-inspector" " id_150" -" phase_152" +" phase_154" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" " id_150)" "((phase131_0)" -" phase_152)" -"((temp132_0)" +" phase_154)" +"((temp132_1)" " #t))" "(resolve+shift30.1" " #f" @@ -71250,7 +71270,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp132_0" +" temp132_1" " #t" " #f" " #f" @@ -71263,7 +71283,7 @@ static const char *startup_source = "(syntax-e$1" " id_150)))" "((phase123_0)" -" phase_152)" +" phase_154)" "((b124_0)" " b_94)" "((immed-b125_0)" @@ -71274,12 +71294,12 @@ static const char *startup_source = " orig-s_82)" "((protected?128_0)" " protected?_19)" -"((temp129_2)" +"((temp129_1)" "(required-as-transformer?" " i_191)))" -"(add-provide!109.1" +"(add-provide!117.1" " protected?128_0" -" temp129_2" +" temp129_1" " rp121_0" " temp122_4" " phase123_0" @@ -71292,18 +71312,18 @@ static const char *startup_source = "(if(not #f)(for-loop_321 rest_241)(values))))" "(values))))))" " for-loop_321)" -" lst_241)))" +" lst_240)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_147) except-ids_1))" +"(let-values(((lst_146) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_147)))" -"((letrec-values(((for-loop_171)" +"(let-values()(check-list lst_146)))" +"((letrec-values(((for-loop_172)" "(lambda(lst_126)" "(begin" " 'for-loop" @@ -71323,7 +71343,7 @@ static const char *startup_source = " #f)))" "(if or-part_392" " or-part_392" -"(let-values(((lst_420)" +"(let-values(((lst_418)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71331,20 +71351,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_420)))" +" lst_418)))" "((letrec-values(((for-loop_143)" "(lambda(result_133" -" lst_421)" +" lst_419)" "(begin" " 'for-loop" "(if(pair?" -" lst_421)" +" lst_419)" "(let-values(((i_192)" "(unsafe-car" -" lst_421))" +" lst_419))" "((rest_243)" "(unsafe-cdr" -" lst_421)))" +" lst_419)))" "(let-values(((result_134)" "(let-values()" "(let-values(((result_135)" @@ -71353,14 +71373,14 @@ static const char *startup_source = "(let-values(((id_151)" "(required-id" " i_192)))" -"(let-values(((phase_153)" +"(let-values(((phase_155)" "(required-phase" " i_192)))" "(free-identifier=?$1" " id_151" " except-id_1" -" phase_153" -" phase_153)))))))" +" phase_155" +" phase_155)))))))" "(values" " result_135)))))" "(if(if(not" @@ -71377,7 +71397,7 @@ static const char *startup_source = " result_133)))))" " for-loop_143)" " #f" -" lst_420)))))" +" lst_418)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71391,10 +71411,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171 rest_62)(values))))" +"(if(not #f)(for-loop_172 rest_62)(values))))" "(values))))))" -" for-loop_171)" -" lst_147)))" +" for-loop_172)" +" lst_146)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -71405,11 +71425,11 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_422) bodys_14))" +"(let-values(((lst_420) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_422)))" +"(let-values()(check-list lst_420)))" "((letrec-values(((for-loop_323)" "(lambda(lst_85)" "(begin" @@ -71461,7 +71481,7 @@ static const char *startup_source = "(if(not #f)(for-loop_323 rest_40)(values))))" "(values))))))" " for-loop_323)" -" lst_422)))" +" lst_420)))" "(void)))))" "((check-expr_0)" "(lambda(e_94 num-results_0 enclosing_15)" @@ -71544,18 +71564,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_40)" "(let-values()" "(begin" -"(let-values(((lst_271)(parsed-case-lambda-clauses e_40)))" +"(let-values(((lst_268)(parsed-case-lambda-clauses e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_239)" -"(lambda(lst_423)" +"(let-values()(check-list lst_268)))" +"((letrec-values(((for-loop_240)" +"(lambda(lst_421)" "(begin" " 'for-loop" -"(if(pair? lst_423)" -"(let-values(((clause_5)(unsafe-car lst_423))" -"((rest_245)(unsafe-cdr lst_423)))" +"(if(pair? lst_421)" +"(let-values(((clause_5)(unsafe-car lst_421))" +"((rest_245)(unsafe-cdr lst_421)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71566,27 +71586,27 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_239 rest_245)(values))))" +"(if(not #f)(for-loop_240 rest_245)(values))))" "(values))))))" -" for-loop_239)" -" lst_271)))" +" for-loop_240)" +" lst_268)))" "(void)))" "(if(parsed-app? e_40)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_40))" -"(let-values(((lst_223)(parsed-app-rands e_40)))" +"(let-values(((lst_222)(parsed-app-rands e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" +"(let-values()(check-list lst_222)))" "((letrec-values(((for-loop_106)" -"(lambda(lst_267)" +"(lambda(lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((e_95)(unsafe-car lst_267))" -"((rest_197)(unsafe-cdr lst_267)))" +"(if(pair? lst_264)" +"(let-values(((e_95)(unsafe-car lst_264))" +"((rest_198)(unsafe-cdr lst_264)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71597,10 +71617,10 @@ static const char *startup_source = " e_95))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_197)(values))))" +"(if(not #f)(for-loop_106 rest_198)(values))))" "(values))))))" " for-loop_106)" -" lst_223)))" +" lst_222)))" "(void)))" "(if(parsed-if? e_40)" "(let-values()" @@ -71643,14 +71663,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_253)" "(lambda(lst_90)" "(begin" " 'for-loop" "(if(pair? lst_90)" "(let-values(((clause_6)" "(unsafe-car lst_90))" -"((rest_152)" +"((rest_153)" "(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" @@ -71664,10 +71684,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_252 rest_152)" +"(for-loop_253 rest_153)" "(values))))" "(values))))))" -" for-loop_252)" +" for-loop_253)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_40))))" @@ -71686,12 +71706,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_82)))" "((letrec-values(((for-loop_324)" -"(lambda(lst_273)" +"(lambda(lst_270)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((e_96)(unsafe-car lst_273))" -"((rest_148)(unsafe-cdr lst_273)))" +"(if(pair? lst_270)" +"(let-values(((e_96)(unsafe-car lst_270))" +"((rest_149)(unsafe-cdr lst_270)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71702,7 +71722,7 @@ static const char *startup_source = " e_96))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_148)(values))))" +"(if(not #f)(for-loop_324 rest_149)(values))))" "(values))))))" " for-loop_324)" " lst_82)))" @@ -72042,7 +72062,7 @@ static const char *startup_source = " s_16" " 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)))" @@ -72176,7 +72196,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" @@ -72390,7 +72410,7 @@ static const char *startup_source = " #f" " #f" " self286_0))))" -"(let-values(((defined-syms_10)" +"(let-values(((defined-syms_11)" "(root-expand-context-defined-syms" " root-ctx_6)))" "(let-values(((compiled-submodules_1)" @@ -72767,7 +72787,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_155)" +" phase_157)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72796,16 +72816,16 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_57)" "(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)" @@ -72817,7 +72837,7 @@ static const char *startup_source = " frame-id_16" " inside-scope_0" " all-scopes-s_0" -" defined-syms_10" +" defined-syms_11" " requires+provides_6)))" "(make-lift-context6.1" " #f" @@ -72825,11 +72845,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)" @@ -72845,7 +72865,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)" @@ -72935,7 +72955,7 @@ static const char *startup_source = "(let-values(((bodys347_0)" " bodys_17)" "((phase348_0)" -" phase_155)" +" phase_157)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -72951,7 +72971,7 @@ static const char *startup_source = "((all-scopes-s355_0)" " all-scopes-s_0)" "((defined-syms356_0)" -" defined-syms_10)" +" defined-syms_11)" "((declared-keywords357_0)" " declared-keywords_0)" "((declared-submodule-names358_0)" @@ -73017,7 +73037,7 @@ static const char *startup_source = " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_155)" +" phase_157)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -73114,7 +73134,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)" @@ -73138,13 +73158,14 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_154)))" +" phase_156)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_113)" +" ctx_113" +" requires+provides_6)" "(values))))" "(let-values((()" "(begin" @@ -73169,7 +73190,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_18)" "((phase375_0)" -" phase_154)" +" phase_156)" "((self376_0)" " self_32)" "((ctx377_0)" @@ -73385,7 +73406,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_154)" +" phase_156)" "((self398_0)" " self_32)" "((requires+provides399_0)" @@ -73577,7 +73598,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_154)" +" phase_156)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -73651,7 +73672,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_145)" +"(let-values(((lst_144)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73660,19 +73681,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_145)))" +" lst_144)))" "((letrec-values(((for-loop_141)" -"(lambda(lst_424)" +"(lambda(lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_424)" +" lst_422)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_424))" +" lst_422))" "((rest_246)" "(unsafe-cdr" -" lst_424)))" +" lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73690,7 +73711,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_141)" -" lst_145)))" +" lst_144)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -73772,7 +73793,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_115) 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_773) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" @@ -73818,7 +73839,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_156))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_158))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -73833,13 +73854,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_773)" "((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))" @@ -73856,7 +73877,7 @@ static const char *startup_source = "(let-values(((bodys441_0) bodys_18)" "((s442_0) s_773)" "((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" @@ -73884,7 +73905,7 @@ static const char *startup_source = "(let-values(((bodys_19) bodys41_0))" "(let-values(((s_523) 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)))" @@ -73893,7 +73914,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()" @@ -73933,7 +73954,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" @@ -74013,7 +74034,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_158) phase50_0))" +"(let-values(((phase_160) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_19) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -74021,7 +74042,7 @@ static const char *startup_source = "(let-values(((requires+provides_7) requires-and-provides55_0))" "(let-values(((need-eventually-defined_2) need-eventually-defined56_0))" "(let-values(((all-scopes-stx_5) all-scopes-stx57_0))" -"(let-values(((defined-syms_11) defined-syms58_0))" +"(let-values(((defined-syms_12) defined-syms58_0))" "(let-values(((declared-keywords_1) declared-keywords59_0))" "(let-values(((declared-submodule-names_4) declared-submodule-names60_0))" "(let-values(((compiled-submodules_2) compiled-submodules61_0))" @@ -74030,14 +74051,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_19 phase_158)" +"(namespace-visit-available-modules! m-ns_19 phase_160)" "((letrec-values(((loop_125)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_52(not(zero? phase_158)) #f)" +"(if(if tail?_52(not(zero? phase_160)) #f)" "(let-values()" "(begin" "(let-values(((obs_134)" @@ -74144,7 +74165,7 @@ static const char *startup_source = "(let-values(((tmp_68)" "(core-form-sym" " disarmed-exp-body_1" -" phase_158)))" +" phase_160)))" "(if(equal?" " tmp_68" " 'begin)" @@ -74261,7 +74282,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_19" "(add1" -" phase_158))))" +" phase_160))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -74339,7 +74360,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_158))))" +" phase_160))))" "(begin" "(let-values(((obs_141)" "(expand-context-observer" @@ -74354,17 +74375,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_19" "(add1" -" phase_158))" +" phase_160))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_158)" +" phase_160)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_19" -" phase_158)" +" phase_160)" "(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74376,7 +74397,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_425)" +"(let-values(((lst_423)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74384,42 +74405,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_425)))" +" lst_423)))" "((letrec-values(((for-loop_325)" "(lambda(fold-var_370" -" lst_426)" +" lst_424)" "(begin" " 'for-loop" "(if(pair?" -" lst_426)" +" lst_424)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_426))" +" lst_424))" "((rest_247)" "(unsafe-cdr" -" lst_426)))" -"(let-values(((fold-var_383)" +" lst_424)))" "(let-values(((fold-var_384)" -" fold-var_370))" "(let-values(((fold-var_385)" +" fold-var_370))" +"(let-values(((fold-var_386)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_384))))" +" fold-var_385))))" "(values" -" fold-var_385)))))" +" fold-var_386)))))" "(if(not" " #f)" "(for-loop_325" -" fold-var_383" +" fold-var_384" " rest_247)" -" fold-var_383)))" +" fold-var_384)))" " fold-var_370)))))" " for-loop_325)" " null" -" lst_425))))))" +" lst_423))))))" "(datum->syntax$1" " #f" "(cons" @@ -74515,7 +74536,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_154)" -"(let-values(((lst_427)" +"(let-values(((lst_425)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74523,26 +74544,26 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_427)))" +" lst_425)))" "((letrec-values(((for-loop_326)" "(lambda(id_155" -" lst_428)" +" lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" +" lst_426)" "(let-values(((s_790)" "(unsafe-car" -" lst_428))" +" lst_426))" "((rest_248)" "(unsafe-cdr" -" lst_428)))" +" lst_426)))" "(let-values(((id_156)" "(let-values(((id_157)" " id_155))" "(let-values(((id_158)" "(let-values()" -"(let-values(((id484_0)" +"(let-values(((id487_0)" "(let-values()" "(if(let-values(((or-part_394)" "(if(syntax?$1" @@ -74562,7 +74583,7 @@ static const char *startup_source = " orig-s_88" " s_790)))))" "(cons" -" id484_0" +" id487_0" " id_157)))))" "(values" " id_158)))))" @@ -74575,7 +74596,7 @@ static const char *startup_source = " id_155)))))" " for-loop_326)" " null" -" lst_427)))))" +" lst_425)))))" "(reverse$1" " id_154))))))))" "((rhs475_0)" @@ -74647,7 +74668,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_43)" "((phase478_0)" -" phase_158)" +" phase_160)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -74664,7 +74685,7 @@ static const char *startup_source = "(let-values(((ids480_0)" " ids_43)" "((phase481_0)" -" phase_158)" +" phase_160)" "((requires+provides482_0)" " requires+provides_7)" "((exp-body483_0)" @@ -74676,42 +74697,50 @@ static const char *startup_source = " requires+provides482_0))" "(values))))" "(let-values(((syms_24)" -"(let-values(((ids485_0)" +"(let-values(((ids488_0)" " ids_43)" -"((defined-syms486_0)" -" defined-syms_11)" -"((self487_0)" +"((defined-syms489_0)" +" defined-syms_12)" +"((self490_0)" " self_34)" -"((phase488_0)" -" phase_158)" -"((all-scopes-stx489_0)" +"((phase491_0)" +" phase_160)" +"((all-scopes-stx492_0)" " all-scopes-stx_5)" -"((frame-id490_0)" +"((frame-id493_0)" " frame-id_17)" -"((requires+provides491_0)" +"((requires+provides494_0)" " requires+provides_7)" -"((exp-body492_0)" +"((exp-body495_0)" " exp-body_7))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id490_0" -" exp-body492_0" +" frame-id493_0" +" exp-body495_0" " #t" -" requires+provides491_0" +" requires+provides494_0" " #t" " #f" " #f" -" ids485_0" -" defined-syms486_0" -" self487_0" -" phase488_0" -" all-scopes-stx489_0))))" +" ids488_0" +" defined-syms489_0" +" self490_0" +" phase491_0" +" all-scopes-stx492_0))))" "(begin" -"(add-defined-syms!" -" requires+provides_7" -" syms_24" -" phase_158)" +"(let-values(((requires+provides484_0)" +" requires+provides_7)" +"((syms485_0)" +" syms_24)" +"((phase486_0)" +" phase_160))" +"(add-defined-syms!103.1" +" #f" +" #f" +" requires+provides484_0" +" syms485_0" +" phase486_0))" "(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74782,16 +74811,16 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_81" -" define-syntaxes493_0" -" id494_0" -" rhs495_0)" +" define-syntaxes496_0" +" id497_0" +" rhs498_0)" "(let-values(((s_796)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" " s_796))" -"(let-values(((define-syntaxes493_1" -" id494_1" -" rhs495_1)" +"(let-values(((define-syntaxes496_1" +" id497_1" +" rhs498_1)" "(let-values(((s_797)" "(if(syntax?$1" " s_796)" @@ -74800,13 +74829,13 @@ static const char *startup_source = " s_796)))" "(if(pair?" " s_797)" -"(let-values(((define-syntaxes496_0)" +"(let-values(((define-syntaxes499_0)" "(let-values(((s_798)" "(car" " s_797)))" " s_798))" -"((id497_0" -" rhs498_0)" +"((id500_0" +" rhs501_0)" "(let-values(((s_799)" "(cdr" " s_797)))" @@ -74818,7 +74847,7 @@ static const char *startup_source = " s_799)))" "(if(pair?" " s_800)" -"(let-values(((id499_0)" +"(let-values(((id502_0)" "(let-values(((s_801)" "(car" " s_800)))" @@ -74840,7 +74869,7 @@ static const char *startup_source = " orig-s_89))" "(let-values()" "(let-values(((id_159)" -"(let-values(((lst_429)" +"(let-values(((lst_427)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74848,26 +74877,26 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" +" lst_427)))" "((letrec-values(((for-loop_327)" "(lambda(id_160" -" lst_430)" +" lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_430)" +" lst_428)" "(let-values(((s_803)" "(unsafe-car" -" lst_430))" +" lst_428))" "((rest_249)" "(unsafe-cdr" -" lst_430)))" +" lst_428)))" "(let-values(((id_161)" "(let-values(((id_162)" " id_160))" "(let-values(((id_163)" "(let-values()" -"(let-values(((id509_0)" +"(let-values(((id516_0)" "(let-values()" "(if(let-values(((or-part_395)" "(if(syntax?$1" @@ -74887,7 +74916,7 @@ static const char *startup_source = " orig-s_89" " s_803)))))" "(cons" -" id509_0" +" id516_0" " id_162)))))" "(values" " id_163)))))" @@ -74900,10 +74929,10 @@ static const char *startup_source = " id_160)))))" " for-loop_327)" " null" -" lst_429)))))" +" lst_427)))))" "(reverse$1" " id_159))))))))" -"((rhs500_0)" +"((rhs503_0)" "(let-values(((s_804)" "(cdr" " s_800)))" @@ -74915,7 +74944,7 @@ static const char *startup_source = " s_804)))" "(if(pair?" " s_805)" -"(let-values(((rhs501_0)" +"(let-values(((rhs504_0)" "(let-values(((s_806)" "(car" " s_805)))" @@ -74938,136 +74967,146 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_89))))))" "(values" -" rhs501_0))" +" rhs504_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89))))))" "(values" -" id499_0" -" rhs500_0))" +" id502_0" +" rhs503_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89))))))" "(values" -" define-syntaxes496_0" -" id497_0" -" rhs498_0))" +" define-syntaxes499_0" +" id500_0" +" rhs501_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89)))))" "(values" " #t" -" define-syntaxes493_1" -" id494_1" -" rhs495_1))))))" +" define-syntaxes496_1" +" id497_1" +" rhs498_1))))))" "(let-values(((ids_44)" "(remove-use-site-scopes" -" id494_0" +" id497_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids502_0)" -" ids_44)" -"((phase503_0)" -" phase_158)" -"((exp-body504_0)" -" exp-body_7))" -"(check-no-duplicate-ids8.1" -" #f" -" #f" -" ids502_0" -" phase503_0" -" exp-body504_0" -" #f" -" #f))" -"(values))))" -"(let-values((()" -"(begin" "(let-values(((ids505_0)" " ids_44)" "((phase506_0)" -" phase_158)" -"((requires+provides507_0)" -" requires+provides_7)" -"((exp-body508_0)" +" phase_160)" +"((exp-body507_0)" " exp-body_7))" -"(check-ids-unbound173.1" -" exp-body508_0" +"(check-no-duplicate-ids8.1" +" #f" +" #f" " ids505_0" " phase506_0" -" requires+provides507_0))" +" exp-body507_0" +" #f" +" #f))" "(values))))" -"(let-values(((syms_25)" -"(let-values(((ids510_0)" -" ids_44)" -"((defined-syms511_0)" -" defined-syms_11)" -"((self512_0)" -" self_34)" -"((phase513_0)" -" phase_158)" -"((all-scopes-stx514_0)" -" all-scopes-stx_5)" -"((frame-id515_0)" -" frame-id_17)" -"((requires+provides516_0)" -" requires+provides_7)" -"((exp-body517_0)" -" exp-body_7)" -"((temp518_0)" -" #t))" -"(select-defined-syms-and-bind!16.1" -" temp518_0" -" #t" -" frame-id515_0" -" exp-body517_0" -" #t" -" requires+provides516_0" -" #t" -" #f" -" #f" -" ids510_0" -" defined-syms511_0" -" self512_0" -" phase513_0" -" all-scopes-stx514_0))))" "(let-values((()" "(begin" -"(add-defined-syms!" -" requires+provides_7" -" syms_25" -" phase_158)" +"(let-values(((ids508_0)" +" ids_44)" +"((phase509_0)" +" phase_160)" +"((requires+provides510_0)" +" requires+provides_7)" +"((exp-body511_0)" +" exp-body_7))" +"(check-ids-unbound173.1" +" exp-body511_0" +" ids508_0" +" phase509_0" +" requires+provides510_0))" +"(values))))" +"(let-values(((syms_25)" +"(let-values(((ids517_0)" +" ids_44)" +"((defined-syms518_0)" +" defined-syms_12)" +"((self519_0)" +" self_34)" +"((phase520_0)" +" phase_160)" +"((all-scopes-stx521_0)" +" all-scopes-stx_5)" +"((frame-id522_0)" +" frame-id_17)" +"((requires+provides523_0)" +" requires+provides_7)" +"((exp-body524_0)" +" exp-body_7)" +"((temp525_0)" +" #t))" +"(select-defined-syms-and-bind!16.1" +" temp525_0" +" #t" +" frame-id522_0" +" exp-body524_0" +" #t" +" requires+provides523_0" +" #t" +" #f" +" #f" +" ids517_0" +" defined-syms518_0" +" self519_0" +" phase520_0" +" all-scopes-stx521_0))))" +"(let-values((()" +"(begin" +"(let-values(((requires+provides512_0)" +" requires+provides_7)" +"((syms513_0)" +" syms_25)" +"((phase514_0)" +" phase_160)" +"((temp515_0)" +" #t))" +"(add-defined-syms!103.1" +" temp515_0" +" #t" +" requires+provides512_0" +" syms513_0" +" phase514_0))" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp519_0)" -" rhs495_0)" -"((ids520_0)" +"(let-values(((temp526_0)" +" rhs498_0)" +"((ids527_0)" " ids_44)" -"((temp521_0)" +"((temp528_0)" "(let-values(((v_268)" " partial-body-ctx_1))" "(let-values(((the-struct_109)" " v_268))" "(if(expand-context/outer?" " the-struct_109)" -"(let-values(((need-eventually-defined523_0)" +"(let-values(((need-eventually-defined530_0)" " need-eventually-defined_2)" -"((inner524_0)" +"((inner531_0)" "(let-values(((the-struct_110)" "(root-expand-context/outer-inner" " v_268)))" "(if(expand-context/inner?" " the-struct_110)" -"(let-values(((lifts525_0)" +"(let-values(((lifts532_0)" " #f)" -"((module-lifts526_0)" +"((module-lifts533_0)" " #f)" -"((to-module-lifts527_0)" +"((to-module-lifts534_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -75102,13 +75141,13 @@ static const char *startup_source = " the-struct_110)" "(expand-context/inner-declared-submodule-names" " the-struct_110)" -" lifts525_0" +" lifts532_0" "(expand-context/inner-lift-envs" " the-struct_110)" -" module-lifts526_0" +" module-lifts533_0" "(expand-context/inner-require-lifts" " the-struct_110)" -" to-module-lifts527_0" +" to-module-lifts534_0" "(expand-context/inner-requires+provides" " the-struct_110)" "(expand-context/inner-observer" @@ -75122,7 +75161,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_110)))))" "(expand-context/outer1.1" -" inner524_0" +" inner531_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_109)" "(root-expand-context/outer-use-site-scopes" @@ -75145,7 +75184,7 @@ static const char *startup_source = " the-struct_109)" "(expand-context/outer-only-immediate?" " the-struct_109)" -" need-eventually-defined523_0" +" need-eventually-defined530_0" "(expand-context/outer-current-introduction-scopes" " the-struct_109)" "(expand-context/outer-name" @@ -75154,21 +75193,21 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_109)))))" -"((temp522_0)" +"((temp529_0)" " #f))" "(expand+eval-for-syntaxes-binding74.1" -" temp522_0" +" temp529_0" " #t" -" temp519_0" -" ids520_0" -" temp521_0))))" +" temp526_0" +" ids527_0" +" temp528_0))))" "(let-values((()" "(begin" -"(let-values(((lst_431)" +"(let-values(((lst_429)" " syms_25)" -"((lst_432)" +"((lst_430)" " vals_10)" -"((lst_433)" +"((lst_431)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75176,51 +75215,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_429)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(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)))" "((letrec-values(((for-loop_328)" -"(lambda(lst_434" -" lst_435" -" lst_436)" +"(lambda(lst_432" +" lst_433" +" lst_434)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_434)" +" lst_432)" "(if(pair?" -" lst_435)" +" lst_433)" "(pair?" -" lst_436)" +" lst_434)" " #f)" " #f)" -"(let-values(((sym_104)" +"(let-values(((sym_105)" "(unsafe-car" -" lst_434))" +" lst_432))" "((rest_250)" "(unsafe-cdr" -" lst_434))" +" lst_432))" "((val_87)" "(unsafe-car" -" lst_435))" +" lst_433))" "((rest_251)" "(unsafe-cdr" -" lst_435))" +" lst_433))" "((id_164)" "(unsafe-car" -" lst_436))" +" lst_434))" "((rest_252)" "(unsafe-cdr" -" lst_436)))" +" lst_434)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75231,12 +75270,12 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_87" " id_164" -" phase_158" +" phase_160" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_19" -" phase_158" -" sym_104" +" phase_160" +" sym_105" " val_87)))" "(values)))))" "(values)))))" @@ -75249,9 +75288,9 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_328)" -" lst_431" -" lst_432" -" lst_433)))" +" lst_429" +" lst_430" +" lst_431)))" "(values))))" "(let-values()" "(let-values((()" @@ -75268,7 +75307,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -" define-syntaxes493_0" +" define-syntaxes496_0" " ids_44" " exp-rhs_6)))))" "(void)))" @@ -75285,18 +75324,18 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body528_0)" +"(let-values(((exp-body535_0)" " exp-body_7)" -"((temp529_0)" +"((temp536_0)" "(list" -" define-syntaxes493_0" +" define-syntaxes496_0" " ids_44" " exp-rhs_6)))" "(rebuild5.1" " #f" " #f" -" exp-body528_0" -" temp529_0))" +" exp-body535_0" +" temp536_0))" " parsed-body_0))" "(loop_125" " tail?_52" @@ -75328,40 +75367,40 @@ static const char *startup_source = " disarmed-exp-body_1" " partial-body-ctx_1)))" "(let-values(((ok?_82" -" #%require530_0" -" req531_0)" -"(let-values(((s_539)" +" #%require537_0" +" req538_0)" +"(let-values(((s_809)" " ready-body_0))" "(let-values(((orig-s_90)" -" s_539))" -"(let-values(((#%require530_1" -" req531_1)" -"(let-values(((s_809)" -"(if(syntax?$1" -" s_539)" -"(syntax-e$1" -" s_539)" -" s_539)))" -"(if(pair?" -" s_809)" -"(let-values(((#%require532_0)" +" s_809))" +"(let-values(((#%require537_1" +" req538_1)" "(let-values(((s_810)" -"(car" -" s_809)))" -" s_810))" -"((req533_0)" -"(let-values(((s_811)" -"(cdr" -" s_809)))" -"(let-values(((s_812)" "(if(syntax?$1" -" s_811)" +" s_809)" "(syntax-e$1" -" s_811)" -" s_811)))" +" s_809)" +" s_809)))" +"(if(pair?" +" s_810)" +"(let-values(((#%require539_0)" +"(let-values(((s_811)" +"(car" +" s_810)))" +" s_811))" +"((req540_0)" +"(let-values(((s_812)" +"(cdr" +" s_810)))" +"(let-values(((s_813)" +"(if(syntax?$1" +" s_812)" +"(syntax-e$1" +" s_812)" +" s_812)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_812)))" +" s_813)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75372,60 +75411,60 @@ static const char *startup_source = "(let-values()" " flat-s_60)))))))" "(values" -" #%require532_0" -" req533_0))" +" #%require539_0" +" req540_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90)))))" "(values" " #t" -" #%require530_1" -" req531_1))))))" +" #%require537_1" +" req538_1))))))" "(begin" -"(let-values(((temp534_0)" -" req531_0)" -"((exp-body535_0)" +"(let-values(((temp541_0)" +" req538_0)" +"((exp-body542_0)" " exp-body_7)" -"((self536_0)" +"((self543_0)" " self_34)" -"((m-ns537_0)" +"((m-ns544_0)" " m-ns_19)" -"((phase538_0)" -" phase_158)" -"((phase539_0)" -" phase_158)" -"((requires+provides540_0)" +"((phase545_0)" +" phase_160)" +"((phase546_0)" +" phase_160)" +"((requires+provides547_0)" " requires+provides_7)" -"((declared-submodule-names541_0)" +"((declared-submodule-names548_0)" " declared-submodule-names_4)" -"((temp542_0)" +"((temp549_0)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names541_0" +" declared-submodule-names548_0" " #t" " #f" " #f" -" phase539_0" +" phase546_0" " #t" " #f" " #f" -" self536_0" +" self543_0" " #t" " #f" " #f" " #f" " #f" -" temp542_0" -" temp534_0" -" exp-body535_0" -" m-ns537_0" -" phase538_0" -" requires+provides540_0))" +" temp549_0" +" temp541_0" +" exp-body542_0" +" m-ns544_0" +" phase545_0" +" requires+provides547_0))" "(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -75460,39 +75499,39 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((ready-body543_0)" +"(let-values(((ready-body550_0)" " ready-body_1)" -"((self544_0)" +"((self551_0)" " self_34)" -"((partial-body-ctx545_0)" +"((partial-body-ctx552_0)" " partial-body-ctx_1)" -"((temp546_0)" +"((temp553_0)" " #f)" -"((declared-submodule-names547_0)" +"((declared-submodule-names554_0)" " declared-submodule-names_4)" -"((mpis-to-reset548_0)" +"((mpis-to-reset555_0)" " mpis-to-reset_1)" -"((compiled-submodules549_0)" +"((compiled-submodules556_0)" " compiled-submodules_2)" -"((modules-being-compiled550_0)" +"((modules-being-compiled557_0)" " modules-being-compiled_4))" "(expand-submodule197.1" -" compiled-submodules549_0" -" declared-submodule-names547_0" +" compiled-submodules556_0" +" declared-submodule-names554_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp546_0" +" temp553_0" " #f" " #f" -" modules-being-compiled550_0" -" mpis-to-reset548_0" -" ready-body543_0" -" self544_0" -" partial-body-ctx545_0))))" +" modules-being-compiled557_0" +" mpis-to-reset555_0" +" ready-body550_0" +" self551_0" +" partial-body-ctx552_0))))" "(cons" " submod_2" "(loop_125" @@ -75532,40 +75571,40 @@ static const char *startup_source = " '#%declare)" "(let-values()" "(let-values(((ok?_83" -" #%declare551_0" -" kw552_0)" -"(let-values(((s_813)" +" #%declare558_0" +" kw559_0)" +"(let-values(((s_814)" " disarmed-exp-body_1))" "(let-values(((orig-s_91)" -" s_813))" -"(let-values(((#%declare551_1" -" kw552_1)" -"(let-values(((s_814)" -"(if(syntax?$1" -" s_813)" -"(syntax-e$1" -" s_813)" -" s_813)))" -"(if(pair?" -" s_814)" -"(let-values(((#%declare553_0)" +" s_814))" +"(let-values(((#%declare558_1" +" kw559_1)" "(let-values(((s_815)" -"(car" -" s_814)))" -" s_815))" -"((kw554_0)" -"(let-values(((s_816)" -"(cdr" -" s_814)))" -"(let-values(((s_817)" "(if(syntax?$1" -" s_816)" +" s_814)" "(syntax-e$1" -" s_816)" -" s_816)))" +" s_814)" +" s_814)))" +"(if(pair?" +" s_815)" +"(let-values(((#%declare560_0)" +"(let-values(((s_816)" +"(car" +" s_815)))" +" s_816))" +"((kw561_0)" +"(let-values(((s_817)" +"(cdr" +" s_815)))" +"(let-values(((s_818)" +"(if(syntax?$1" +" s_817)" +"(syntax-e$1" +" s_817)" +" s_817)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_817)))" +" s_818)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75576,39 +75615,39 @@ static const char *startup_source = "(let-values()" " flat-s_61)))))))" "(values" -" #%declare553_0" -" kw554_0))" +" #%declare560_0" +" kw561_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91)))))" "(values" " #t" -" #%declare551_1" -" kw552_1))))))" +" #%declare558_1" +" kw559_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_437)" -" kw552_0))" +"(let-values(((lst_435)" +" kw559_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_437)))" +" lst_435)))" "((letrec-values(((for-loop_329)" -"(lambda(lst_438)" +"(lambda(lst_436)" "(begin" " 'for-loop" "(if(pair?" -" lst_438)" +" lst_436)" "(let-values(((kw_1)" "(unsafe-car" -" lst_438))" +" lst_436))" "((rest_253)" "(unsafe-cdr" -" lst_438)))" +" lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75664,7 +75703,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_329)" -" lst_437)))" +" lst_435)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75709,72 +75748,72 @@ static const char *startup_source = " bodys_20))))))))))))))))))))))" "(define-values" "(make-wrap-as-definition)" -"(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" +"(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_45 rhs_22 phase_159)" +"(lambda(ids_45 rhs_22 phase_161)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_439) ids_45))" +"(let-values(((lst_437) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_439)))" +"(let-values()(check-list lst_437)))" "((letrec-values(((for-loop_330)" -"(lambda(fold-var_386 lst_440)" +"(lambda(fold-var_387 lst_438)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((id_165)(unsafe-car lst_440))" -"((rest_254)(unsafe-cdr lst_440)))" -"(let-values(((fold-var_387)" -"(let-values(((fold-var_388) fold-var_386))" -"(let-values(((fold-var_389)" +"(if(pair? lst_438)" +"(let-values(((id_165)(unsafe-car lst_438))" +"((rest_254)(unsafe-cdr lst_438)))" +"(let-values(((fold-var_388)" +"(let-values(((fold-var_389) fold-var_387))" +"(let-values(((fold-var_390)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_165" " inside-scope_2))" -" fold-var_388))))" -"(values fold-var_389)))))" -"(if(not #f)(for-loop_330 fold-var_387 rest_254) fold-var_387)))" -" fold-var_386)))))" +" fold-var_389))))" +"(values fold-var_390)))))" +"(if(not #f)(for-loop_330 fold-var_388 rest_254) fold-var_388)))" +" fold-var_387)))))" " for-loop_330)" " null" -" lst_439))))))" +" lst_437))))))" "(let-values(((syms_26)" -"(let-values(((scoped-ids555_0) scoped-ids_0)" -"((defined-syms556_0) defined-syms_12)" -"((self557_0) self_35)" -"((phase558_0) phase_159)" -"((all-scopes-stx559_0) all-scopes-stx_6)" -"((frame-id560_0) frame-id_18)" -"((requires+provides561_0) requires+provides_8))" +"(let-values(((scoped-ids562_0) scoped-ids_0)" +"((defined-syms563_0) defined-syms_13)" +"((self564_0) self_35)" +"((phase565_0) phase_161)" +"((all-scopes-stx566_0) all-scopes-stx_6)" +"((frame-id567_0) frame-id_18)" +"((requires+provides568_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id560_0" +" frame-id567_0" " #f" " #f" -" requires+provides561_0" +" requires+provides568_0" " #t" " #f" " #f" -" scoped-ids555_0" -" defined-syms556_0" -" self557_0" -" phase558_0" -" all-scopes-stx559_0))))" -"(let-values(((s_561)" +" scoped-ids562_0" +" defined-syms563_0" +" self564_0" +" phase565_0" +" all-scopes-stx566_0))))" +"(let-values(((s_286)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_159) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_161) 'define-values)" " scoped-ids_0" " rhs_22))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_561 syms_26 scoped-ids_0 rhs_22)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_286 syms_26 scoped-ids_0 rhs_22)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_116)" @@ -75782,28 +75821,28 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_116)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_441) bodys_23))" +"(let-values(((lst_439) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))" "((letrec-values(((for-loop_331)" -"(lambda(fold-var_390 lst_442)" +"(lambda(fold-var_391 lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((body_23)(unsafe-car lst_442))((rest_255)(unsafe-cdr lst_442)))" -"(let-values(((fold-var_391)" -"(let-values(((fold-var_392) fold-var_390))" -"(let-values(((fold-var_393)" +"(if(pair? lst_440)" +"(let-values(((body_23)(unsafe-car lst_440))((rest_255)(unsafe-cdr lst_440)))" +"(let-values(((fold-var_392)" +"(let-values(((fold-var_393) fold-var_391))" +"(let-values(((fold-var_394)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_392))))" -"(values fold-var_393)))))" -"(if(not #f)(for-loop_331 fold-var_391 rest_255) fold-var_391)))" -" fold-var_390)))))" +" fold-var_393))))" +"(values fold-var_394)))))" +"(if(not #f)(for-loop_331 fold-var_392 rest_255) fold-var_392)))" +" fold-var_391)))))" " for-loop_331)" " null" -" lst_441))))" +" lst_439))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75818,7 +75857,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_160) phase84_0))" +"(let-values(((phase_162) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -75832,7 +75871,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_53(not(zero? phase_160)) #f)" +"(if(if tail?_53(not(zero? phase_162)) #f)" "(let-values()" "(begin" "(let-values(((obs_151)(expand-context-observer body-ctx_7)))" @@ -75910,138 +75949,138 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_818)" +"(let-values(((s_819)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_84" -" define-values562_0" -" _563_0" -" _564_0)" -"(let-values(((s_819)" +" define-values569_0" +" _570_0" +" _571_0)" +"(let-values(((s_820)" "(syntax-disarm$1" -" s_818)))" +" s_819)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_92)" -" s_819))" -"(let-values(((define-values562_1" -" _563_1" -" _564_1)" -"(let-values(((s_820)" -"(if(syntax?$1" -" s_819)" -"(syntax-e$1" -" s_819)" -" s_819)))" -"(if(pair?" -" s_820)" -"(let-values(((define-values565_0)" +" s_820))" +"(let-values(((define-values569_1" +" _570_1" +" _571_1)" "(let-values(((s_821)" -"(car" +"(if(syntax?$1" +" s_820)" +"(syntax-e$1" +" s_820)" " s_820)))" -" s_821))" -"((_566_0" -" _567_0)" +"(if(pair?" +" s_821)" +"(let-values(((define-values572_0)" "(let-values(((s_822)" -"(cdr" -" s_820)))" +"(car" +" s_821)))" +" s_822))" +"((_573_0" +" _574_0)" "(let-values(((s_823)" -"(if(syntax?$1" -" s_822)" -"(syntax-e$1" -" s_822)" -" s_822)))" -"(if(pair?" -" s_823)" -"(let-values(((_568_0)" +"(cdr" +" s_821)))" "(let-values(((s_824)" -"(car" -" s_823)))" -" s_824))" -"((_569_0)" -"(let-values(((s_825)" -"(cdr" -" s_823)))" -"(let-values(((s_826)" "(if(syntax?$1" -" s_825)" +" s_823)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_823)" +" s_823)))" "(if(pair?" -" s_826)" -"(let-values(((_570_0)" -"(let-values(((s_827)" +" s_824)" +"(let-values(((_575_0)" +"(let-values(((s_825)" "(car" -" s_826)))" -" s_827))" -"(()" -"(let-values(((s_828)" +" s_824)))" +" s_825))" +"((_576_0)" +"(let-values(((s_826)" "(cdr" -" s_826)))" -"(let-values(((s_829)" +" s_824)))" +"(let-values(((s_827)" "(if(syntax?$1" -" s_828)" +" s_826)" "(syntax-e$1" -" s_828)" -" s_828)))" -"(if(null?" +" s_826)" +" s_826)))" +"(if(pair?" +" s_827)" +"(let-values(((_577_0)" +"(let-values(((s_828)" +"(car" +" s_827)))" +" s_828))" +"(()" +"(let-values(((s_829)" +"(cdr" +" s_827)))" +"(let-values(((s_588)" +"(if(syntax?$1" " s_829)" +"(syntax-e$1" +" s_829)" +" s_829)))" +"(if(null?" +" s_588)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92))))))" "(values" -" _570_0))" +" _577_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92))))))" "(values" -" _568_0" -" _569_0))" +" _575_0" +" _576_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92))))))" "(values" -" define-values565_0" -" _566_0" -" _567_0))" +" define-values572_0" +" _573_0" +" _574_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92)))))" "(values" " #t" -" define-values562_1" -" _563_1" -" _564_1)))" +" define-values569_1" +" _570_1" +" _571_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx571_0)" +"(let-values(((rhs-ctx578_0)" " rhs-ctx_2)" -"((s572_0)" -" s_818)" -"((temp573_0)" +"((s579_0)" +" s_819)" +"((temp580_0)" " #t))" "(keep-as-needed85.1" " #f" " #f" " #f" " #f" -" temp573_0" +" temp580_0" " #t" -" rhs-ctx571_0" -" s572_0))))" +" rhs-ctx578_0" +" s579_0))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -76050,18 +76089,18 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp574_0)" +"(let-values(((temp581_0)" "(semi-parsed-define-values-rhs" " body_24))" -"((rhs-ctx575_0)" +"((rhs-ctx582_0)" " rhs-ctx_2))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp574_0" -" rhs-ctx575_0)))))" +" temp581_0" +" rhs-ctx582_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -76077,9 +76116,9 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs576_0)" +"(let-values(((exp-rhs583_0)" " exp-rhs_7)" -"((temp577_0)" +"((temp584_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand7.1" @@ -76087,24 +76126,24 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-rhs576_0" -" temp577_0))))))" +" exp-rhs583_0" +" temp584_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s578_0)" +"(let-values(((rebuild-s585_0)" " rebuild-s_15)" -"((temp579_0)" +"((temp586_0)" "(list" -" define-values562_0" +" define-values569_0" " ids_46" " exp-rhs_7)))" "(rebuild5.1" " #f" " #f" -" rebuild-s578_0" -" temp579_0))" +" rebuild-s585_0" +" temp586_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" @@ -76112,7 +76151,7 @@ static const char *startup_source = "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_0" -" phase_160)))" +" phase_162)))" "(if(if(equal? tmp_69 '#%require)" " #t" "(if(equal? tmp_69 '#%provide)" @@ -76122,9 +76161,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body580_0)" +"(let-values(((body587_0)" " body_24)" -"((temp581_0)" +"((temp588_0)" "(as-expression-context" " body-ctx_7)))" "(expand7.1" @@ -76132,16 +76171,16 @@ static const char *startup_source = " #f" " #f" " #f" -" body580_0" -" temp581_0))))" +" body587_0" +" temp588_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body582_0)" +"(let-values(((exp-body589_0)" " exp-body_9)" -"((temp583_0)" +"((temp590_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand7.1" @@ -76149,8 +76188,8 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-body582_0" -" temp583_0)))))))))))))))" +" exp-body589_0" +" temp590_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -76190,29 +76229,29 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules584_0)" +"(let-values(((lifted-modules591_0)" " lifted-modules_0)" -"((phase585_0) phase_160)" -"((self586_0) self_36)" -"((body-ctx587_0)" +"((phase592_0) phase_162)" +"((self593_0) self_36)" +"((body-ctx594_0)" " body-ctx_7)" -"((mpis-to-reset588_0)" +"((mpis-to-reset595_0)" " mpis-to-reset_2)" -"((declared-submodule-names589_0)" +"((declared-submodule-names596_0)" " declared-submodule-names_5)" -"((compiled-submodules590_0)" +"((compiled-submodules597_0)" " compiled-submodules_3)" -"((modules-being-compiled591_0)" +"((modules-being-compiled598_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules590_0" -" declared-submodule-names589_0" -" modules-being-compiled591_0" -" mpis-to-reset588_0" -" lifted-modules584_0" -" phase585_0" -" self586_0" -" body-ctx587_0))))" +" compiled-submodules597_0" +" declared-submodule-names596_0" +" modules-being-compiled598_0" +" mpis-to-reset595_0" +" lifted-modules591_0" +" phase592_0" +" self593_0" +" body-ctx594_0))))" "(let-values(((exp-lifted-defns_0)" "(loop_126 #f lifted-defns_1)))" "(begin" @@ -76243,7 +76282,7 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_117)" +"(lambda(need-eventually-defined_3 self_37 ctx_117 requires+provides_9)" "(begin" "(begin" "(let-values(((ht_165) need-eventually-defined_3))" @@ -76254,7 +76293,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_193" -"(let-values(((phase_161 l_88)(hash-iterate-key+value ht_165 i_193)))" +"(let-values(((phase_163 l_88)(hash-iterate-key+value ht_165 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76262,24 +76301,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_443) l_88))" +"(let-values(((lst_441) l_88))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" +"(let-values()(check-list lst_441)))" "((letrec-values(((for-loop_333)" -"(lambda(lst_444)" +"(lambda(lst_442)" "(begin" " 'for-loop" "(if(pair?" -" lst_444)" +" lst_442)" "(let-values(((id_166)" "(unsafe-car" -" lst_444))" +" lst_442))" "((rest_256)" "(unsafe-cdr" -" lst_444)))" +" lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76287,10 +76326,10 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_96)" -"(let-values(((id592_0)" +"(let-values(((id599_0)" " id_166)" -"((phase593_0)" -" phase_161))" +"((phase600_0)" +" phase_163))" "(resolve+shift30.1" " #f" " #f" @@ -76302,9 +76341,10 @@ static const char *startup_source = " #f" " #f" " #f" -" id592_0" -" phase593_0))))" -"(if(if b_96" +" id599_0" +" phase600_0))))" +"(let-values(((bound-here?_0)" +"(if b_96" "(if(module-binding?" " b_96)" "(if(eq?" @@ -76318,18 +76358,51 @@ static const char *startup_source = " self_37)" " #f)" " #f)" -" #f)" +" #f)))" +"(let-values(((bound-kind_0)" +"(if bound-here?_0" +"(defined-sym-kind" +" requires+provides_9" +"(module-binding-sym" +" b_96)" +" phase_163)" +" #f)))" +"(if(eq?" +" bound-kind_0" +" 'variable)" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"reference to an unbound identifier\"" +"(string-append" +"(if(not" +" b_96)" +"(let-values()" +" \"reference to an unbound identifier\")" +"(if(eq?" +" bound-kind_0" +" 'transformer)" +"(let-values()" +" \"identifier treated as a variable, but later defined as syntax\")" +"(let-values()" +" \"identifier treated as a variable, but later bound differently\")))" +"(format" +" \"\\n at phase: ~a\"" +"(let-values(((tmp_70)" +" phase_163))" +"(if(equal?" +" tmp_70" +" 1)" +"(let-values()" +" \"1; the transformer environment\")" +"(let-values()" +" phase_163)))))" " id_166" " #f" " null" "(syntax-debug-info-string" " id_166" -" ctx_117))))))" +" ctx_117))))))))" "(values)))))" "(values)))))" "(if(not #f)" @@ -76338,7 +76411,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_333)" -" lst_443)))" +" lst_441)))" "(void)))" "(values)))))" "(values)))))" @@ -76359,16 +76432,16 @@ static const char *startup_source = "(begin" " 'resolve-provides115" "(let-values(((expression-expanded-bodys_1) expression-expanded-bodys114_0))" -"(let-values(((requires+provides_9) requires-and-provides102_0))" +"(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_20) namespace104_0))" -"(let-values(((phase_162) phase105_0))" +"(let-values(((phase_164) phase105_0))" "(let-values(((self_38) self106_0))" "(let-values(((ctx_118) ctx107_0))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_163)" +"(lambda(bodys_26 phase_165)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -76376,30 +76449,30 @@ static const char *startup_source = "(if(let-values(((or-part_398)(parsed?(car bodys_26))))" "(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_163)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_165)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_163))))" +"(add1 phase_165))))" "(cons" "(let-values(((the-struct_111)(car bodys_26)))" "(if(semi-parsed-begin-for-syntax? the-struct_111)" -"(let-values(((body594_0) nested-bodys_2))" +"(let-values(((body601_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" "(semi-parsed-begin-for-syntax-s the-struct_111)" -" body594_0))" +" body601_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_111)))" -"(loop_127(cdr bodys_26) phase_163))))" +"(loop_127(cdr bodys_26) phase_165))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_70)" -"(core-form-sym disarmed-body_1 phase_163)))" -"(if(equal? tmp_70 '#%provide)" +"(let-values(((tmp_71)" +"(core-form-sym disarmed-body_1 phase_165)))" +"(if(equal? tmp_71 '#%provide)" "(let-values()" "(let-values((()" "(begin" @@ -76419,36 +76492,36 @@ static const char *startup_source = " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_85 #%provide595_0 spec596_0)" -"(let-values(((s_626) disarmed-body_1))" -"(let-values(((orig-s_93) s_626))" -"(let-values(((#%provide595_1" -" spec596_1)" +"(let-values(((ok?_85 #%provide602_0 spec603_0)" +"(let-values(((s_633) disarmed-body_1))" +"(let-values(((orig-s_93) s_633))" +"(let-values(((#%provide602_1" +" spec603_1)" +"(let-values(((s_636)" +"(if(syntax?$1" +" s_633)" +"(syntax-e$1" +" s_633)" +" s_633)))" +"(if(pair? s_636)" +"(let-values(((#%provide604_0)" "(let-values(((s_830)" -"(if(syntax?$1" -" s_626)" -"(syntax-e$1" -" s_626)" -" s_626)))" -"(if(pair? s_830)" -"(let-values(((#%provide597_0)" -"(let-values(((s_630)" "(car" -" s_830)))" -" s_630))" -"((spec598_0)" -"(let-values(((s_631)" -"(cdr" -" s_830)))" +" s_636)))" +" s_830))" +"((spec605_0)" "(let-values(((s_831)" +"(cdr" +" s_636)))" +"(let-values(((s_832)" "(if(syntax?$1" -" s_631)" +" s_831)" "(syntax-e$1" -" s_631)" -" s_631)))" +" s_831)" +" s_831)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_831)))" +" s_832)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76459,45 +76532,45 @@ static const char *startup_source = "(let-values()" " flat-s_62)))))))" "(values" -" #%provide597_0" -" spec598_0))" +" #%provide604_0" +" spec605_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93)))))" "(values" " #t" -" #%provide595_1" -" spec596_1))))))" +" #%provide602_1" +" spec603_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec596_0" +" spec603_0" "(car bodys_26)" -" requires+provides_9" +" requires+provides_10" " self_38" -" phase_163" +" phase_165" "(let-values(((v_269) ctx_118))" "(let-values(((the-struct_112)" " v_269))" "(if(expand-context/outer?" " the-struct_112)" -"(let-values(((context599_0)" +"(let-values(((context606_0)" " 'top-level)" -"((inner600_0)" +"((inner607_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" " the-struct_113)" -"(let-values(((phase601_0)" -" phase_163)" -"((namespace602_0)" +"(let-values(((phase608_0)" +" phase_165)" +"((namespace609_0)" "(namespace->namespace-at-phase" " m-ns_20" -" phase_163))" -"((requires+provides603_0)" -" requires+provides_9)" -"((declared-submodule-names604_0)" +" phase_165))" +"((requires+provides610_0)" +" requires+provides_10)" +"((declared-submodule-names611_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -76516,8 +76589,8 @@ static const char *startup_source = " the-struct_113)" "(expand-context/inner-to-parsed?" " the-struct_113)" -" phase601_0" -" namespace602_0" +" phase608_0" +" namespace609_0" "(expand-context/inner-just-once?" " the-struct_113)" "(expand-context/inner-module-begin-k" @@ -76528,7 +76601,7 @@ static const char *startup_source = " the-struct_113)" "(expand-context/inner-stops" " the-struct_113)" -" declared-submodule-names604_0" +" declared-submodule-names611_0" "(expand-context/inner-lifts" " the-struct_113)" "(expand-context/inner-lift-envs" @@ -76539,7 +76612,7 @@ static const char *startup_source = " the-struct_113)" "(expand-context/inner-to-module-lifts" " the-struct_113)" -" requires+provides603_0" +" requires+provides610_0" "(expand-context/inner-observer" " the-struct_113)" "(expand-context/inner-for-serializable?" @@ -76551,14 +76624,14 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_113)))))" "(expand-context/outer1.1" -" inner600_0" +" inner607_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_112)" "(root-expand-context/outer-use-site-scopes" " the-struct_112)" "(root-expand-context/outer-frame-id" " the-struct_112)" -" context599_0" +" context606_0" "(expand-context/outer-env" " the-struct_112)" "(expand-context/outer-post-expansion-scope-action" @@ -76585,22 +76658,22 @@ static const char *startup_source = " the-struct_112)))))))" "(if(expand-context-to-parsed? ctx_118)" "(let-values()" -"(loop_127(cdr bodys_26) phase_163))" +"(loop_127(cdr bodys_26) phase_165))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp605_0)" +"(let-values(((temp612_0)" "(car bodys_26))" -"((temp606_0)" +"((temp613_0)" "(list*" -" #%provide595_0" +" #%provide602_0" " specs_2)))" "(rebuild5.1" " #f" " #f" -" temp605_0" -" temp606_0)))))" +" temp612_0" +" temp613_0)))))" "(begin" "(let-values(((obs_157)" "(expand-context-observer" @@ -76617,14 +76690,14 @@ static const char *startup_source = " new-s_10" "(loop_127" "(cdr bodys_26)" -" phase_163))))))))))" +" phase_165))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_163))))))))))))))" +"(loop_127(cdr bodys_26) phase_165))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_162)))))))))))))" +" phase_164)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76643,7 +76716,7 @@ static const char *startup_source = "(let-values(((fully-expanded-bodys-except-post-submodules_1) fully-expanded-bodys-except-post-submodules138_0))" "(let-values(((module-name-id_0) module-name-id118_0))" "(let-values(((rebuild-s_16) rebuild-s119_0))" -"(let-values(((requires+provides_10) requires-and-provides120_0))" +"(let-values(((requires+provides_11) requires-and-provides120_0))" "(let-values(((m-ns_21) namespace121_0))" "(let-values(((self_39) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" @@ -76653,7 +76726,7 @@ static const char *startup_source = "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" "(let-values(((requires_7 provides_14)" -"(extract-requires-and-provides requires+provides_10 self_39 self_39)))" +"(extract-requires-and-provides requires+provides_11 self_39 self_39)))" "(let-values(((parsed-mod_0)" "(parsed-module25.1" " rebuild-s_16" @@ -76662,7 +76735,7 @@ static const char *startup_source = " self_39" " requires_7" " provides_14" -"(requires+provides-all-bindings-simple? requires+provides_10)" +"(requires+provides-all-bindings-simple? requires+provides_11)" "(root-expand-context-encode-for-module root-ctx_7 self_39 self_39)" "(parsed-only fully-expanded-bodys-except-post-submodules_1)" " #f" @@ -76672,44 +76745,44 @@ static const char *startup_source = "(let-values(((or-part_399) enclosing-self_3))" "(if or-part_399 or-part_399 self_39)))))" "(let-values(((compiled-module_0)" -"(let-values(((parsed-mod607_0) parsed-mod_0)" -"((temp608_0)" -"(let-values(((m-ns612_0) m-ns_21)" -"((enclosing-self613_0) enclosing-self_3)" -"((temp614_0)" +"(let-values(((parsed-mod614_0) parsed-mod_0)" +"((temp615_0)" +"(let-values(((m-ns619_0) m-ns_21)" +"((enclosing-self620_0) enclosing-self_3)" +"((temp621_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp614_0" +" temp621_0" " #t" " #f" " #f" -" enclosing-self613_0" +" enclosing-self620_0" " #t" -" m-ns612_0" +" m-ns619_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp609_0)(expand-context-for-serializable? ctx_119))" -"((modules-being-compiled610_0) modules-being-compiled_6)" -"((temp611_0) #f))" +"((temp616_0)(expand-context-for-serializable? ctx_119))" +"((modules-being-compiled617_0) modules-being-compiled_6)" +"((temp618_0) #f))" "(compile-module13.1" " #f" " #f" -" modules-being-compiled610_0" +" modules-being-compiled617_0" " #t" -" temp611_0" +" temp618_0" " #t" -" temp609_0" +" temp616_0" " #t" " #f" " #f" -" parsed-mod607_0" -" temp608_0))))" +" parsed-mod614_0" +" temp615_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -76725,27 +76798,27 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((compiled-module615_0) compiled-module_0)((temp616_0) #f))" +"(let-values(((compiled-module622_0) compiled-module_0)((temp623_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp616_0" +" temp623_0" " #t" -" compiled-module615_0)))))))))))))))))))))))))" +" compiled-module622_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_832 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_833 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_833)" -"(syntax-property$1 s_832 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_834)" +"(syntax-property$1 s_833 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_835)" "(syntax-property$1" -" s_833" +" s_834" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_834)))))" +" s_835)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76764,9 +76837,9 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_164) phase143_1))" +"(let-values(((phase_166) phase143_1))" "(let-values(((self_40) self144_0))" -"(let-values(((requires+provides_11) requires-and-provides145_0))" +"(let-values(((requires+provides_12) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" "(let-values(((all-scopes-s_1) all-scopes-s147_0))" "(let-values(((mpis-to-reset_3) mpis-to-reset148_0))" @@ -76776,7 +76849,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_165)" +"(lambda(bodys_27 phase_167)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76789,38 +76862,38 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_25)))" -"(let-values(((ok?_86 begin-for-syntax617_0 _618_0)" -"(let-values(((s_835)" +"(let-values(((ok?_86 begin-for-syntax624_0 _625_0)" +"(let-values(((s_661)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_94) s_835))" -"(let-values(((begin-for-syntax617_1" -" _618_1)" +"(let-values(((orig-s_94) s_661))" +"(let-values(((begin-for-syntax624_1" +" _625_1)" "(let-values(((s_836)" "(if(syntax?$1" -" s_835)" +" s_661)" "(syntax-e$1" -" s_835)" -" s_835)))" +" s_661)" +" s_661)))" "(if(pair? s_836)" -"(let-values(((begin-for-syntax619_0)" -"(let-values(((s_837)" +"(let-values(((begin-for-syntax626_0)" +"(let-values(((s_664)" "(car" " s_836)))" -" s_837))" -"((_620_0)" -"(let-values(((s_838)" +" s_664))" +"((_627_0)" +"(let-values(((s_837)" "(cdr" " s_836)))" -"(let-values(((s_660)" +"(let-values(((s_838)" "(if(syntax?$1" -" s_838)" +" s_837)" "(syntax-e$1" -" s_838)" -" s_838)))" +" s_837)" +" s_837)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_660)))" +" s_838)))" "(if(not" " flat-s_63)" "(let-values()" @@ -76831,20 +76904,20 @@ static const char *startup_source = "(let-values()" " flat-s_63)))))))" "(values" -" begin-for-syntax619_0" -" _620_0))" +" begin-for-syntax626_0" +" _627_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94)))))" "(values" " #t" -" begin-for-syntax617_1" -" _618_1))))))" +" begin-for-syntax624_1" +" _625_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx621_0)" +"(let-values(((submod-ctx628_0)" " submod-ctx_1)" -"((body-s622_0)" +"((body-s629_0)" " body-s_0))" "(keep-as-needed85.1" " #f" @@ -76853,13 +76926,13 @@ static const char *startup_source = " #f" " #f" " #f" -" submod-ctx621_0" -" body-s622_0))))" +" submod-ctx628_0" +" body-s629_0))))" "(let-values(((nested-bodys_3)" "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_165))))" +"(add1 phase_167))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76869,34 +76942,34 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s623_0)" +"(let-values(((rebuild-body-s630_0)" " rebuild-body-s_0)" -"((temp624_0)" +"((temp631_0)" "(list*" -" begin-for-syntax617_0" +" begin-for-syntax624_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #f" " #f" -" rebuild-body-s623_0" -" temp624_0))" +" rebuild-body-s630_0" +" temp631_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_165))))))))" +"(loop_128 rest-bodys_3 phase_167))))))))" "(if(let-values(((or-part_400)(parsed? body_25)))" "(if or-part_400" " or-part_400" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_165)))" +"(cons body_25(loop_128 rest-bodys_3 phase_167)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_71)" +"(let-values(((tmp_72)" "(core-form-sym" " disarmed-body_2" -" phase_165)))" -"(if(equal? tmp_71 'module*)" +" phase_167)))" +"(if(equal? tmp_72 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -76908,63 +76981,63 @@ static const char *startup_source = " body_25" " submod-ctx_1)))" "(let-values(((ok?_87" -" module*625_0" -" name626_0" -" _627_0)" -"(let-values(((s_839)" +" module*632_0" +" name633_0" +" _634_0)" +"(let-values(((s_667)" " disarmed-body_2))" +"(if(let-values(((s_839)" +"(if(syntax?$1" +" s_667)" +"(syntax-e$1" +" s_667)" +" s_667)))" +"(if(pair? s_839)" "(if(let-values(((s_840)" -"(if(syntax?$1" -" s_839)" -"(syntax-e$1" -" s_839)" +"(car" " s_839)))" -"(if(pair? s_840)" -"(if(let-values(((s_841)" -"(car" -" s_840)))" " #t)" +"(let-values(((s_841)" +"(cdr" +" s_839)))" +"(let-values(((s_668)" +"(if(syntax?$1" +" s_841)" +"(syntax-e$1" +" s_841)" +" s_841)))" +"(if(pair?" +" s_668)" +"(if(let-values(((s_669)" +"(car" +" s_668)))" +" #t)" +"(let-values(((s_670)" +"(cdr" +" s_668)))" "(let-values(((s_842)" -"(cdr" -" s_840)))" -"(let-values(((s_843)" "(if(syntax?$1" -" s_842)" +" s_670)" "(syntax-e$1" +" s_670)" +" s_670)))" +"(if(pair?" " s_842)" +"(if(let-values(((s_843)" +"(car" " s_842)))" -"(if(pair?" +"(let-values(((s_671)" +"(if(syntax?$1" " s_843)" -"(if(let-values(((s_844)" -"(car" -" s_843)))" -" #t)" -"(let-values(((s_845)" -"(cdr" -" s_843)))" -"(let-values(((s_666)" -"(if(syntax?$1" -" s_845)" "(syntax-e$1" -" s_845)" -" s_845)))" -"(if(pair?" -" s_666)" -"(if(let-values(((s_846)" -"(car" -" s_666)))" -"(let-values(((s_847)" -"(if(syntax?$1" -" s_846)" -"(syntax-e$1" -" s_846)" -" s_846)))" +" s_843)" +" s_843)))" "(eq?" " #f" -" s_847)))" -"(let-values(((s_848)" +" s_671)))" +"(let-values(((s_844)" "(cdr" -" s_666)))" +" s_842)))" " #t)" " #f)" " #f)))" @@ -76973,76 +77046,76 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*625_1" -" name626_1" -" _627_1)" -"(let-values(((s_849)" +"(let-values(((module*632_1" +" name633_1" +" _634_1)" +"(let-values(((s_675)" "(if(syntax?$1" -" s_839)" +" s_667)" "(syntax-e$1" -" s_839)" -" s_839)))" -"(let-values(((module*628_0)" -"(let-values(((s_850)" +" s_667)" +" s_667)))" +"(let-values(((module*635_0)" +"(let-values(((s_845)" "(car" -" s_849)))" -" s_850))" -"((name629_0" -" _630_0)" -"(let-values(((s_851)" +" s_675)))" +" s_845))" +"((name636_0" +" _637_0)" +"(let-values(((s_846)" "(cdr" +" s_675)))" +"(let-values(((s_847)" +"(if(syntax?$1" +" s_846)" +"(syntax-e$1" +" s_846)" +" s_846)))" +"(let-values(((name638_0)" +"(let-values(((s_848)" +"(car" +" s_847)))" +" s_848))" +"((_639_0)" +"(let-values(((s_849)" +"(cdr" +" s_847)))" +"(let-values(((s_850)" +"(if(syntax?$1" +" s_849)" +"(syntax-e$1" +" s_849)" " s_849)))" -"(let-values(((s_671)" +"(let-values((()" +"(let-values(((s_851)" +"(car" +" s_850)))" +"(let-values(((s_852)" "(if(syntax?$1" " s_851)" "(syntax-e$1" " s_851)" " s_851)))" -"(let-values(((name631_0)" -"(let-values(((s_673)" -"(car" -" s_671)))" -" s_673))" -"((_632_0)" -"(let-values(((s_852)" -"(cdr" -" s_671)))" -"(let-values(((s_674)" -"(if(syntax?$1" -" s_852)" -"(syntax-e$1" -" s_852)" -" s_852)))" -"(let-values((()" -"(let-values(((s_676)" -"(car" -" s_674)))" -"(let-values(((s_853)" -"(if(syntax?$1" -" s_676)" -"(syntax-e$1" -" s_676)" -" s_676)))" "(values))))" -"((_633_0)" -"(let-values(((s_854)" +"((_640_0)" +"(let-values(((s_853)" "(cdr" -" s_674)))" -" s_854)))" +" s_850)))" +" s_853)))" "(values" -" _633_0))))))" +" _640_0))))))" "(values" -" name631_0" -" _632_0))))))" +" name638_0" +" _639_0))))))" "(values" -" module*628_0" -" name629_0" -" _630_0)))))" +" module*635_0" +" name636_0" +" _637_0)))))" "(values" " #t" -" module*625_1" -" name626_1" -" _627_1)))" +" module*632_1" +" name633_1" +" _634_1)))" "(values" " #f" " #f" @@ -77054,53 +77127,53 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_165)))" +" phase_167)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((shifted-s634_0)" +"(let-values(((shifted-s641_0)" " shifted-s_0)" -"((self635_0)" +"((self642_0)" " self_40)" -"((submod-ctx636_0)" +"((submod-ctx643_0)" " submod-ctx_1)" -"((temp637_0)" +"((temp644_0)" " #t)" -"((neg-phase638_0)" +"((neg-phase645_0)" " neg-phase_0)" -"((all-scopes-s639_0)" +"((all-scopes-s646_0)" " all-scopes-s_1)" -"((requires+provides640_0)" -" requires+provides_11)" -"((enclosing-is-cross-phase-persistent?641_0)" +"((requires+provides647_0)" +" requires+provides_12)" +"((enclosing-is-cross-phase-persistent?648_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset642_0)" +"((mpis-to-reset649_0)" " mpis-to-reset_3)" -"((declared-submodule-names643_0)" +"((declared-submodule-names650_0)" " declared-submodule-names_7)" -"((compiled-submodules644_0)" +"((compiled-submodules651_0)" " compiled-submodules_4)" -"((modules-being-compiled645_0)" +"((modules-being-compiled652_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules644_0" -" declared-submodule-names643_0" -" all-scopes-s639_0" +" compiled-submodules651_0" +" declared-submodule-names650_0" +" all-scopes-s646_0" " #t" -" enclosing-is-cross-phase-persistent?641_0" +" enclosing-is-cross-phase-persistent?648_0" " #t" -" requires+provides640_0" +" requires+provides647_0" " #t" -" temp637_0" -" neg-phase638_0" +" temp644_0" +" neg-phase645_0" " #t" -" modules-being-compiled645_0" -" mpis-to-reset642_0" -" shifted-s634_0" -" self635_0" -" submod-ctx636_0))))" +" modules-being-compiled652_0" +" mpis-to-reset649_0" +" shifted-s641_0" +" self642_0" +" submod-ctx643_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -77112,13 +77185,13 @@ static const char *startup_source = " submod_4))" "(if(expanded+parsed?" " the-struct_114)" -"(let-values(((s646_0)" +"(let-values(((s653_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_165)))" +" phase_167)))" "(expanded+parsed1.1" -" s646_0" +" s653_0" "(expanded+parsed-parsed" " the-struct_114)))" "(raise-argument-error" @@ -77128,55 +77201,55 @@ static const char *startup_source = "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_165))))))))" +" phase_167))))))))" "(let-values()" -"(let-values(((ready-body647_0)" +"(let-values(((ready-body654_0)" " ready-body_2)" -"((self648_0)" +"((self655_0)" " self_40)" -"((submod-ctx649_0)" +"((submod-ctx656_0)" " submod-ctx_1)" -"((temp650_0)" +"((temp657_0)" " #t)" -"((mpis-to-reset651_0)" +"((mpis-to-reset658_0)" " mpis-to-reset_3)" -"((declared-submodule-names652_0)" +"((declared-submodule-names659_0)" " declared-submodule-names_7)" -"((compiled-submodules653_0)" +"((compiled-submodules660_0)" " compiled-submodules_4)" -"((modules-being-compiled654_0)" +"((modules-being-compiled661_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules653_0" -" declared-submodule-names652_0" +" compiled-submodules660_0" +" declared-submodule-names659_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp650_0" +" temp657_0" " #f" " #f" -" modules-being-compiled654_0" -" mpis-to-reset651_0" -" ready-body647_0" -" self648_0" -" submod-ctx649_0))))))" +" modules-being-compiled661_0" +" mpis-to-reset658_0" +" ready-body654_0" +" self655_0" +" submod-ctx656_0))))))" "(cons" " submod_3" "(loop_128" " rest-bodys_3" -" phase_165)))))))" +" phase_167)))))))" "(let-values()" "(cons" " body_25" "(loop_128" " rest-bodys_3" -" phase_165)))))))))))))))))" +" phase_167)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_164)))))))))))))))))" +" phase_166)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_120)" @@ -77191,36 +77264,36 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_166) phase171_1))" -"(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_855) in168_0))" +"(let-values(((phase_168) phase171_1))" +"(let-values(((requires+provides_13) requires+provides172_0))" +"(let-values(((s_854) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_445) ids_47))" +"(let-values(((lst_443) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_445)))" +"(let-values()(check-list lst_443)))" "((letrec-values(((for-loop_334)" -"(lambda(lst_446)" +"(lambda(lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((id_167)(unsafe-car lst_446))" -"((rest_257)(unsafe-cdr lst_446)))" +"(if(pair? lst_444)" +"(let-values(((id_167)(unsafe-car lst_444))" +"((rest_257)(unsafe-cdr lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((requires+provides655_0)" -" requires+provides_12)" -"((id656_0) id_167)" -"((phase657_0)" -" phase_166)" -"((s658_0) s_855)" -"((temp659_0) 'module))" +"(let-values(((requires+provides662_0)" +" requires+provides_13)" +"((id663_0) id_167)" +"((phase664_0)" +" phase_168)" +"((s665_0) s_854)" +"((temp666_0) 'module))" "(check-not-defined95.1" " #f" " #f" @@ -77228,36 +77301,36 @@ static const char *startup_source = " #f" " #f" " #f" -" s658_0" +" s665_0" " #f" " #f" " #f" " #f" -" temp659_0" -" requires+provides655_0" -" id656_0" -" phase657_0)))" +" temp666_0" +" requires+provides662_0" +" id663_0" +" phase664_0)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_334 rest_257)(values))))" "(values))))))" " for-loop_334)" -" lst_445)))" +" lst_443)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_167 m-ns_22 self_41 ctx_121)" +"(lambda(bodys_28 phase_169 m-ns_22 self_41 ctx_121)" "(begin" "(begin" -"(let-values(((lst_447) bodys_28))" +"(let-values(((lst_445) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" "((letrec-values(((for-loop_335)" -"(lambda(lst_448)" +"(lambda(lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((body_26)(unsafe-car lst_448))((rest_258)(unsafe-cdr lst_448)))" +"(if(pair? lst_446)" +"(let-values(((body_26)(unsafe-car lst_446))((rest_258)(unsafe-cdr lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77279,63 +77352,63 @@ static const char *startup_source = " ids_48" "(parsed-define-values-rhs" " p_89)" -" phase_167" +" phase_169" " m-ns_22" " ctx_121)))" "(begin" -"(let-values(((lst_449) ids_48)" -"((lst_450)" +"(let-values(((lst_447) ids_48)" +"((lst_448)" "(parsed-define-values-syms" " p_89))" -"((lst_451) vals_11))" +"((lst_449) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_447)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_448)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_449)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_450)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_451)))" "((letrec-values(((for-loop_336)" -"(lambda(lst_452" -" lst_453" -" lst_454)" +"(lambda(lst_450" +" lst_451" +" lst_452)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_452)" +" lst_450)" "(if(pair?" -" lst_453)" +" lst_451)" "(pair?" -" lst_454)" +" lst_452)" " #f)" " #f)" "(let-values(((id_168)" "(unsafe-car" -" lst_452))" +" lst_450))" "((rest_259)" "(unsafe-cdr" -" lst_452))" -"((sym_105)" +" lst_450))" +"((sym_106)" "(unsafe-car" -" lst_453))" +" lst_451))" "((rest_260)" "(unsafe-cdr" -" lst_453))" +" lst_451))" "((val_88)" "(unsafe-car" -" lst_454))" +" lst_452))" "((rest_261)" "(unsafe-cdr" -" lst_454)))" +" lst_452)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77344,8 +77417,8 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_22" -" phase_167" -" sym_105" +" phase_169" +" sym_106" " val_88))" "(values)))))" "(values)))))" @@ -77358,9 +77431,9 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_336)" -" lst_449" -" lst_450" -" lst_451)))" +" lst_447" +" lst_448" +" lst_449)))" "(void)))))" "(if(let-values(((or-part_401)" "(parsed-define-syntaxes?" @@ -77392,10 +77465,10 @@ static const char *startup_source = "(eval-single-top" "(compile-single" " p_89" -"(let-values(((m-ns660_0)" +"(let-values(((m-ns667_0)" " m-ns_22)" -"((phase661_0)" -" phase_167))" +"((phase668_0)" +" phase_169))" "(make-compile-context14.1" " #f" " #f" @@ -77403,9 +77476,9 @@ static const char *startup_source = " #f" " #f" " #f" -" m-ns660_0" +" m-ns667_0" " #t" -" phase661_0" +" phase668_0" " #t" " #f" " #f)))" @@ -77415,7 +77488,7 @@ static const char *startup_source = "(if(not #f)(for-loop_335 rest_258)(values))))" "(values))))))" " for-loop_335)" -" lst_447)))" +" lst_445)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77437,7 +77510,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_856) s194_0))" +"(let-values(((s_720) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77466,54 +77539,54 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_856)" +"(call-expand-observe obs_158 'enter-prim s_720)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_88 module662_0 name663_0 _664_0)" -"(let-values(((s_857) s_856))" -"(let-values(((orig-s_95) s_857))" -"(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_858)" -"(if(syntax?$1 s_857)" -"(syntax-e$1 s_857)" -" s_857)))" -"(if(pair? s_858)" -"(let-values(((module665_0)" -"(let-values(((s_859)(car s_858)))" -" s_859))" -"((name666_0 _667_0)" -"(let-values(((s_860)(cdr s_858)))" -"(let-values(((s_861)" +"(let-values(((ok?_88 module669_0 name670_0 _671_0)" +"(let-values(((s_855) s_720))" +"(let-values(((orig-s_95) s_855))" +"(let-values(((module669_1 name670_1 _671_1)" +"(let-values(((s_856)" +"(if(syntax?$1 s_855)" +"(syntax-e$1 s_855)" +" s_855)))" +"(if(pair? s_856)" +"(let-values(((module672_0)" +"(let-values(((s_857)(car s_856)))" +" s_857))" +"((name673_0 _674_0)" +"(let-values(((s_858)(cdr s_856)))" +"(let-values(((s_725)" "(if(syntax?$1" -" s_860)" -"(syntax-e$1 s_860)" -" s_860)))" -"(if(pair? s_861)" -"(let-values(((name668_0)" -"(let-values(((s_862)" +" s_858)" +"(syntax-e$1 s_858)" +" s_858)))" +"(if(pair? s_725)" +"(let-values(((name675_0)" +"(let-values(((s_859)" "(car" -" s_861)))" -" s_862))" -"((_669_0)" -"(let-values(((s_863)" +" s_725)))" +" s_859))" +"((_676_0)" +"(let-values(((s_728)" "(cdr" -" s_861)))" -" s_863)))" -"(values name668_0 _669_0))" +" s_725)))" +" s_728)))" +"(values name675_0 _676_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values module665_0 name666_0 _667_0))" +"(values module672_0 name673_0 _674_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95)))))" -"(values #t module662_1 name663_1 _664_1))))))" -"(let-values(((name_80)(syntax-e$1 name663_0)))" +"(values #t module669_1 name670_1 _671_1))))))" +"(let-values(((name_80)(syntax-e$1 name670_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_80 #f)" @@ -77521,7 +77594,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_856" +" s_720" " name_80))" "(void))" "(values))))" @@ -77530,7 +77603,7 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_80" -"(syntax-e$1 module662_0))" +"(syntax-e$1 module669_0))" "(values))))" "(let-values((()" "(begin" @@ -77538,25 +77611,25 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_856)))" +"(call-expand-observe obs_159 'enter-prim s_720)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_856)" -"((temp671_0)" +"(let-values(((s677_0) s_720)" +"((temp678_0)" "(let-values(((v_270) ctx_122))" "(let-values(((the-struct_115) v_270))" "(if(expand-context/outer? the-struct_115)" -"(let-values(((context680_0) 'module)" -"((post-expansion-scope681_0)" +"(let-values(((context687_0) 'module)" +"((post-expansion-scope688_0)" " #f)" -"((inner682_0)" +"((inner689_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" " the-struct_116)" -"(let-values(((stops683_0)" +"(let-values(((stops690_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -77587,7 +77660,7 @@ static const char *startup_source = " the-struct_116)" "(expand-context/inner-in-local-expand?" " the-struct_116)" -" stops683_0" +" stops690_0" "(expand-context/inner-declared-submodule-names" " the-struct_116)" "(expand-context/inner-lifts" @@ -77613,13 +77686,13 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_116)))))" "(expand-context/outer1.1" -" inner682_0" -" post-expansion-scope681_0" +" inner689_0" +" post-expansion-scope688_0" "(root-expand-context/outer-use-site-scopes" " the-struct_115)" "(root-expand-context/outer-frame-id" " the-struct_115)" -" context680_0" +" context687_0" "(expand-context/outer-env" " the-struct_115)" "(expand-context/outer-post-expansion-scope-action" @@ -77644,36 +77717,36 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_115)))))" -"((self672_0) self_42)" -"((temp673_0) #t)" -"((keep-enclosing-scope-at-phase674_0)" +"((self679_0) self_42)" +"((temp680_0) #t)" +"((keep-enclosing-scope-at-phase681_0)" " keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx675_0)" +"((enclosing-all-scopes-stx682_0)" " enclosing-all-scopes-stx_1)" -"((enclosing-r+p676_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?677_0)" +"((enclosing-r+p683_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?684_0)" " enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset678_0) mpis-to-reset_4)" -"((modules-being-compiled679_0)" +"((mpis-to-reset685_0) mpis-to-reset_4)" +"((modules-being-compiled686_0)" " modules-being-compiled_8))" "(expand-module18.1" -" temp673_0" +" temp680_0" " #t" -" enclosing-all-scopes-stx675_0" +" enclosing-all-scopes-stx682_0" " #t" -" enclosing-is-cross-phase-persistent?677_0" +" enclosing-is-cross-phase-persistent?684_0" " #t" -" enclosing-r+p676_0" +" enclosing-r+p683_0" " #t" -" keep-enclosing-scope-at-phase674_0" +" keep-enclosing-scope-at-phase681_0" " #t" -" modules-being-compiled679_0" +" modules-being-compiled686_0" " #t" -" mpis-to-reset678_0" +" mpis-to-reset685_0" " #t" -" s670_0" -" temp671_0" -" self672_0))))" +" s677_0" +" temp678_0" +" self679_0))))" "(let-values((()" "(begin" "(let-values(((obs_160)" @@ -77692,49 +77765,49 @@ static const char *startup_source = "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" "(let-values(((compiled-submodule_0)" -"(let-values(((temp684_0)" +"(let-values(((temp691_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp685_0)" -"(let-values(((ns690_0) ns_130)" -"((self691_0) self_42)" "((temp692_0)" +"(let-values(((ns697_0) ns_130)" +"((self698_0) self_42)" +"((temp699_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp692_0" +" temp699_0" " #t" " #f" " #f" -" self691_0" +" self698_0" " #t" -" ns690_0" +" ns697_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp686_0) #t)" -"((temp687_0)" +"((temp693_0) #t)" +"((temp694_0)" "(expand-context-for-serializable?" " ctx_122))" -"((modules-being-compiled688_0)" +"((modules-being-compiled695_0)" " modules-being-compiled_8)" -"((temp689_0) #f))" +"((temp696_0) #f))" "(compile-module13.1" -" temp686_0" +" temp693_0" " #t" -" modules-being-compiled688_0" +" modules-being-compiled695_0" " #t" -" temp689_0" +" temp696_0" " #t" -" temp687_0" +" temp694_0" " #t" " #f" " #f" -" temp684_0" -" temp685_0))))" +" temp691_0" +" temp692_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -77749,17 +77822,17 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((compiled-submodule693_0)" +"(let-values(((compiled-submodule700_0)" " compiled-submodule_0)" -"((temp694_0) #f))" +"((temp701_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp694_0" +" temp701_0" " #t" -" compiled-submodule693_0))))" +" compiled-submodule700_0))))" "(if is-star?_0" "(void)" "(let-values()" @@ -77779,15 +77852,15 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_117) submod_5))" "(if(expanded+parsed? the-struct_117)" -"(let-values(((parsed695_0)" +"(let-values(((parsed702_0)" "(let-values(((the-struct_118)" "(expanded+parsed-parsed" " submod_5)))" "(if(parsed-module? the-struct_118)" -"(let-values(((star?696_0) #t))" +"(let-values(((star?703_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_118)" -" star?696_0" +" star?703_0" "(parsed-module-name-id" " the-struct_118)" "(parsed-module-self" @@ -77812,7 +77885,7 @@ static const char *startup_source = " the-struct_118)))))" "(expanded+parsed1.1" "(expanded+parsed-s the-struct_117)" -" parsed695_0))" +" parsed702_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" @@ -77820,10 +77893,10 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_119) submod_5))" "(if(parsed-module? the-struct_119)" -"(let-values(((star?697_0) #t))" +"(let-values(((star?704_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_119)" -" star?697_0" +" star?704_0" "(parsed-module-name-id the-struct_119)" "(parsed-module-self the-struct_119)" "(parsed-module-requires the-struct_119)" @@ -77851,7 +77924,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_168) phase209_0))" +"(let-values(((phase_170) phase209_0))" "(let-values(((self_43) self210_0))" "(let-values(((ctx_123) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -77860,74 +77933,74 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_455) bodys_29))" +"(let-values(((lst_453) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_455)))" +"(let-values()(check-list lst_453)))" "((letrec-values(((for-loop_337)" -"(lambda(fold-var_394 lst_456)" +"(lambda(fold-var_395 lst_454)" "(begin" " 'for-loop" -"(if(pair? lst_456)" -"(let-values(((body_27)(unsafe-car lst_456))" -"((rest_262)(unsafe-cdr lst_456)))" -"(let-values(((fold-var_395)" -"(let-values(((fold-var_396) fold-var_394))" -"(let-values(((fold-var_397)" +"(if(pair? lst_454)" +"(let-values(((body_27)(unsafe-car lst_454))" +"((rest_262)(unsafe-cdr lst_454)))" +"(let-values(((fold-var_396)" +"(let-values(((fold-var_397) fold-var_395))" +"(let-values(((fold-var_398)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_72)" +"(let-values(((tmp_73)" "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_168)))" -"(if(equal? tmp_72 'module)" +" phase_170)))" +"(if(equal? tmp_73 'module)" "(let-values()" -"(let-values(((body698_0)" +"(let-values(((body705_0)" " body_27)" -"((self699_0)" +"((self706_0)" " self_43)" -"((ctx700_0)" +"((ctx707_0)" " ctx_123)" -"((temp701_0)" +"((temp708_0)" " #f)" -"((mpis-to-reset702_0)" +"((mpis-to-reset709_0)" " mpis-to-reset_5)" -"((declared-submodule-names703_0)" +"((declared-submodule-names710_0)" " declared-submodule-names_9)" -"((compiled-submodules704_0)" +"((compiled-submodules711_0)" " compiled-submodules_6)" -"((modules-being-compiled705_0)" +"((modules-being-compiled712_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules704_0" -" declared-submodule-names703_0" +" compiled-submodules711_0" +" declared-submodule-names710_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp701_0" +" temp708_0" " #f" " #f" -" modules-being-compiled705_0" -" mpis-to-reset702_0" -" body698_0" -" self699_0" -" ctx700_0)))" +" modules-being-compiled712_0" +" mpis-to-reset709_0" +" body705_0" +" self706_0" +" ctx707_0)))" "(let-values() body_27))))" -" fold-var_396))))" -"(values fold-var_397)))))" +" fold-var_397))))" +"(values fold-var_398)))))" "(if(not #f)" -"(for-loop_337 fold-var_395 rest_262)" -" fold-var_395)))" -" fold-var_394)))))" +"(for-loop_337 fold-var_396 rest_262)" +" fold-var_396)))" +" fold-var_395)))))" " for-loop_337)" " null" -" lst_455))))))))))))))))" +" lst_453))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77935,87 +78008,87 @@ static const char *startup_source = " 'make-parse-lifted-require220" "(let-values(((m-ns_23) m-ns217_0))" "(let-values(((self_44) self218_0))" -"(let-values(((requires+provides_13) requires+provides219_0))" +"(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_864 phase_169)" -"(let-values(((ok?_89 #%require706_0 req707_0)" -"(let-values(((s_865)(syntax-disarm$1 s_864)))" -"(let-values(((orig-s_96) s_865))" -"(let-values(((#%require706_1 req707_1)" +"(lambda(s_860 phase_171)" +"(let-values(((ok?_89 #%require713_0 req714_0)" +"(let-values(((s_861)(syntax-disarm$1 s_860)))" +"(let-values(((orig-s_96) s_861))" +"(let-values(((#%require713_1 req714_1)" +"(let-values(((s_862)" +"(if(syntax?$1 s_861)(syntax-e$1 s_861) s_861)))" +"(if(pair? s_862)" +"(let-values(((#%require715_0)" +"(let-values(((s_863)(car s_862))) s_863))" +"((req716_0)" +"(let-values(((s_864)(cdr s_862)))" +"(let-values(((s_865)" +"(if(syntax?$1 s_864)" +"(syntax-e$1 s_864)" +" s_864)))" +"(if(pair? s_865)" +"(let-values(((req717_0)" "(let-values(((s_866)" -"(if(syntax?$1 s_865)(syntax-e$1 s_865) s_865)))" -"(if(pair? s_866)" -"(let-values(((#%require708_0)" -"(let-values(((s_867)(car s_866))) s_867))" -"((req709_0)" -"(let-values(((s_868)(cdr s_866)))" -"(let-values(((s_869)" -"(if(syntax?$1 s_868)" -"(syntax-e$1 s_868)" -" s_868)))" -"(if(pair? s_869)" -"(let-values(((req710_0)" -"(let-values(((s_870)" -"(car s_869)))" -" s_870))" +"(car s_865)))" +" s_866))" "(()" -"(let-values(((s_871)" -"(cdr s_869)))" -"(let-values(((s_872)" +"(let-values(((s_867)" +"(cdr s_865)))" +"(let-values(((s_868)" "(if(syntax?$1" -" s_871)" +" s_867)" "(syntax-e$1" -" s_871)" -" s_871)))" -"(if(null? s_872)" +" s_867)" +" s_867)))" +"(if(null? s_868)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_96))))))" -"(values req710_0))" +"(values req717_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_96))))))" -"(values #%require708_0 req709_0))" +"(values #%require715_0 req716_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" -"(values #t #%require706_1 req707_1))))))" -"(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_864)" -"((self713_0) self_44)" -"((m-ns714_0) m-ns_23)" -"((phase715_0) phase_169)" -"((phase716_0) phase_169)" -"((requires+provides717_0) requires+provides_13)" -"((declared-submodule-names718_0) declared-submodule-names_10)" -"((temp719_0) 'require))" +"(values #t #%require713_1 req714_1))))))" +"(let-values(((temp718_0)(list req714_0))" +"((s719_0) s_860)" +"((self720_0) self_44)" +"((m-ns721_0) m-ns_23)" +"((phase722_0) phase_171)" +"((phase723_0) phase_171)" +"((requires+provides724_0) requires+provides_14)" +"((declared-submodule-names725_0) declared-submodule-names_10)" +"((temp726_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names718_0" +" declared-submodule-names725_0" " #t" " #f" " #f" -" phase716_0" +" phase723_0" " #t" " #f" " #f" -" self713_0" +" self720_0" " #t" " #f" " #f" " #f" " #f" -" temp719_0" -" temp711_0" -" s712_0" -" m-ns714_0" -" phase715_0" -" requires+provides717_0))))))))))))" +" temp726_0" +" temp718_0" +" s719_0" +" m-ns721_0" +" phase722_0" +" requires+provides724_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -78029,30 +78102,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_457) lifted-defns_2))" +"(let-values(((lst_455) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_457)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_455)))" "((letrec-values(((for-loop_338)" -"(lambda(fold-var_398 lst_458)" +"(lambda(fold-var_399 lst_456)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((lifted-defn_0)(unsafe-car lst_458))" -"((rest_263)(unsafe-cdr lst_458)))" -"(let-values(((fold-var_399)" -"(let-values(((fold-var_400) fold-var_398))" -"(let-values(((fold-var_401)" +"(if(pair? lst_456)" +"(let-values(((lifted-defn_0)(unsafe-car lst_456))" +"((rest_263)(unsafe-cdr lst_456)))" +"(let-values(((fold-var_400)" +"(let-values(((fold-var_401) fold-var_399))" +"(let-values(((fold-var_402)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_400))))" -"(values fold-var_401)))))" -"(if(not #f)(for-loop_338 fold-var_399 rest_263) fold-var_399)))" -" fold-var_398)))))" +" fold-var_401))))" +"(values fold-var_402)))))" +"(if(not #f)(for-loop_338 fold-var_400 rest_263) fold-var_400)))" +" fold-var_399)))))" " for-loop_338)" " null" -" lst_457)))))))" +" lst_455)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -78068,18 +78141,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_162 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_459) s-lifted-defns_0))" +"(let-values(((lst_457) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_459)))" +"(let-values()(check-list lst_457)))" "((letrec-values(((for-loop_339)" -"(lambda(lst_460)" +"(lambda(lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_460))" -"((rest_264)(unsafe-cdr lst_460)))" +"(if(pair? lst_458)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_458))" +"((rest_264)(unsafe-cdr lst_458)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78087,40 +78160,40 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((ok?_90" -" define-values724_0" -" _725_0)" -"(let-values(((s_873)" +" define-values731_0" +" _732_0)" +"(let-values(((s_869)" " s-lifted-defn_0))" "(let-values(((orig-s_97)" -" s_873))" -"(let-values(((define-values724_1" -" _725_1)" -"(let-values(((s_874)" +" s_869))" +"(let-values(((define-values731_1" +" _732_1)" +"(let-values(((s_870)" "(if(syntax?$1" -" s_873)" +" s_869)" "(syntax-e$1" -" s_873)" -" s_873)))" +" s_869)" +" s_869)))" "(if(pair?" -" s_874)" -"(let-values(((define-values726_0)" -"(let-values(((s_875)" +" s_870)" +"(let-values(((define-values733_0)" +"(let-values(((s_871)" "(car" -" s_874)))" -" s_875))" -"((_727_0)" -"(let-values(((s_876)" +" s_870)))" +" s_871))" +"((_734_0)" +"(let-values(((s_872)" "(cdr" -" s_874)))" -"(let-values(((s_877)" +" s_870)))" +"(let-values(((s_873)" "(if(syntax?$1" -" s_876)" +" s_872)" "(syntax-e$1" -" s_876)" -" s_876)))" +" s_872)" +" s_872)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_877)))" +" s_873)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78131,16 +78204,16 @@ static const char *startup_source = "(let-values()" " flat-s_64)))))))" "(values" -" define-values726_0" -" _727_0))" +" define-values733_0" +" _734_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_97)))))" "(values" " #t" -" define-values724_1" -" _725_1))))))" +" define-values731_1" +" _732_1))))))" "(begin" "(call-expand-observe" " obs_162" @@ -78152,7 +78225,7 @@ static const char *startup_source = "(call-expand-observe" " obs_162" " 'resolve" -" define-values724_0)" +" define-values731_0)" "(call-expand-observe" " obs_162" " 'enter-prim" @@ -78188,27 +78261,27 @@ static const char *startup_source = "(if(not #f)(for-loop_339 rest_264)(values))))" "(values))))))" " for-loop_339)" -" lst_459)))" +" lst_457)))" "(values))))" "(let-values()" -"(let-values(((ok?_91 form-id720_0 _721_0)" -"(let-values(((s_878) exp-body_10))" -"(let-values(((orig-s_98) s_878))" -"(let-values(((form-id720_1 _721_1)" -"(let-values(((s_879)" -"(if(syntax?$1 s_878)(syntax-e$1 s_878) s_878)))" -"(if(pair? s_879)" -"(let-values(((form-id722_0)" -"(let-values(((s_880)(car s_879))) s_880))" -"((_723_0)" -"(let-values(((s_881)(cdr s_879))) s_881)))" -"(values form-id722_0 _723_0))" +"(let-values(((ok?_91 form-id727_0 _728_0)" +"(let-values(((s_874) exp-body_10))" +"(let-values(((orig-s_98) s_874))" +"(let-values(((form-id727_1 _728_1)" +"(let-values(((s_875)" +"(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" +"(if(pair? s_875)" +"(let-values(((form-id729_0)" +"(let-values(((s_876)(car s_875))) s_876))" +"((_730_0)" +"(let-values(((s_877)(cdr s_875))) s_877)))" +"(values form-id729_0 _730_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t form-id720_1 _721_1))))))" +"(values #t form-id727_1 _728_1))))))" "(begin" "(call-expand-observe obs_162 'next)" "(call-expand-observe obs_162 'visit exp-body_10)" -"(call-expand-observe obs_162 'resolve form-id720_0)" +"(call-expand-observe obs_162 'resolve form-id727_0)" "(call-expand-observe obs_162 'enter-prim exp-body_10)" "(call-expand-observe obs_162 'prim-stop)" "(call-expand-observe obs_162 'exit-prim exp-body_10)" @@ -78222,21 +78295,21 @@ static const char *startup_source = "(if obs_163" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_92 define-values728_0 _729_0)" -"(let-values(((s_882) s-defn_0))" -"(let-values(((orig-s_99) s_882))" -"(let-values(((define-values728_1 _729_1)" -"(let-values(((s_883)(if(syntax?$1 s_882)(syntax-e$1 s_882) s_882)))" -"(if(pair? s_883)" -"(let-values(((define-values730_0)" -"(let-values(((s_884)(car s_883))) s_884))" -"((_731_0)" -"(let-values(((s_885)(cdr s_883)))" -"(let-values(((s_886)" -"(if(syntax?$1 s_885)" -"(syntax-e$1 s_885)" -" s_885)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_886)))" +"(let-values(((ok?_92 define-values735_0 _736_0)" +"(let-values(((s_878) s-defn_0))" +"(let-values(((orig-s_99) s_878))" +"(let-values(((define-values735_1 _736_1)" +"(let-values(((s_879)(if(syntax?$1 s_878)(syntax-e$1 s_878) s_878)))" +"(if(pair? s_879)" +"(let-values(((define-values737_0)" +"(let-values(((s_880)(car s_879))) s_880))" +"((_738_0)" +"(let-values(((s_881)(cdr s_879)))" +"(let-values(((s_882)" +"(if(syntax?$1 s_881)" +"(syntax-e$1 s_881)" +" s_881)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_882)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78244,12 +78317,12 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_99))" "(let-values() flat-s_65)))))))" -"(values define-values730_0 _731_0))" +"(values define-values737_0 _738_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" -"(values #t define-values728_1 _729_1))))))" +"(values #t define-values735_1 _736_1))))))" "(begin" "(call-expand-observe obs_163 'visit s-defn_0)" -"(call-expand-observe obs_163 'resolve define-values728_0)" +"(call-expand-observe obs_163 'resolve define-values735_0)" "(call-expand-observe obs_163 'enter-prim s-defn_0)" "(call-expand-observe obs_163 'prim-define-values)))))" "(void))))))" @@ -78280,15 +78353,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_402 lst_85)" +"(lambda(fold-var_403 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((id_169)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(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_403))" +"(let-values(((fold-var_404)" "(let-values()" "(cons" "(let-values()" @@ -78296,9 +78369,9 @@ static const char *startup_source = " id_169" " ctx_126))" " fold-var_62))))" -"(values fold-var_403)))))" +"(values fold-var_404)))))" "(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" -" fold-var_402)))))" +" fold-var_403)))))" " for-loop_104)" " null" " lst_6))))))" @@ -78315,27 +78388,27 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_100)))" "((letrec-values(((for-loop_340)" -"(lambda(fold-var_224 lst_86)" +"(lambda(fold-var_222 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((id_170)(unsafe-car lst_86))" "((rest_244)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_157) fold-var_224))" -"(let-values(((fold-var_227)" +"(let-values(((fold-var_155) fold-var_222))" +"(let-values(((fold-var_225)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_170" " top-level-bind-scope_6))" -" fold-var_157))))" -"(values fold-var_227)))))" +" fold-var_155))))" +"(values fold-var_225)))))" "(if(not #f)" "(for-loop_340 fold-var_26 rest_244)" " fold-var_26)))" -" fold-var_224)))))" +" fold-var_222)))))" " for-loop_340)" " null" " lst_100))))))" @@ -78399,7 +78472,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_253)" "(lambda(id_171" " lst_80)" "(begin" @@ -78409,7 +78482,7 @@ static const char *startup_source = "(let-values(((s_176)" "(unsafe-car" " lst_80))" -"((rest_143)" +"((rest_144)" "(unsafe-cdr" " lst_80)))" "(let-values(((id_172)" @@ -78443,12 +78516,12 @@ static const char *startup_source = " id_173)))))" "(if(not" " #f)" -"(for-loop_252" +"(for-loop_253" " id_172" -" rest_143)" +" rest_144)" " id_172)))" " id_171)))))" -" for-loop_252)" +" for-loop_253)" " null" " lst_24)))))" "(reverse$1 id_5))))))))" @@ -78506,7 +78579,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_887 ctx_127)" +"(lambda(s_883 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78523,9 +78596,9 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_887)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_883)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_887)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_883)))" "(let-values(((ok?_93 define-syntaxes15_0 id16_1 rhs17_0)" "(let-values(((s_426) disarmed-s_26))" "(let-values(((orig-s_101) s_426))" @@ -78558,7 +78631,7 @@ static const char *startup_source = " orig-s_101))" "(let-values()" "(let-values(((id_174)" -"(let-values(((lst_182)" +"(let-values(((lst_181)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78566,20 +78639,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_182)))" +" lst_181)))" "((letrec-values(((for-loop_341)" "(lambda(id_175" -" lst_461)" +" lst_459)" "(begin" " 'for-loop" "(if(pair?" -" lst_461)" -"(let-values(((s_888)" +" lst_459)" +"(let-values(((s_884)" "(unsafe-car" -" lst_461))" +" lst_459))" "((rest_265)" "(unsafe-cdr" -" lst_461)))" +" lst_459)))" "(let-values(((id_176)" "(let-values(((id_98)" " id_175))" @@ -78589,21 +78662,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_74)" "(if(syntax?$1" -" s_888)" +" s_884)" "(symbol?" "(syntax-e$1" -" s_888))" +" s_884))" " #f)))" "(if or-part_74" " or-part_74" "(symbol?" -" s_888)))" -" s_888" +" s_884)))" +" s_884" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_101" -" s_888)))))" +" s_884)))))" "(cons" " id24_1" " id_98)))))" @@ -78618,7 +78691,7 @@ static const char *startup_source = " id_175)))))" " for-loop_341)" " null" -" lst_182)))))" +" lst_181)))))" "(reverse$1 id_174))))))))" "((rhs22_0)" "(let-values(((s_489)(cdr s_24)))" @@ -78662,13 +78735,13 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_887 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_883 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-define-syntaxes20.1 s_887 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_887)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_883 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_883)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" @@ -78690,9 +78763,9 @@ static const char *startup_source = "(let-values(((s_31)(car s_422))) s_31))" "((form32_0)" "(let-values(((s_47)(cdr s_422)))" -"(let-values(((s_889)" +"(let-values(((s_885)" "(if(syntax?$1 s_47)(syntax-e$1 s_47) s_47)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_889)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_885)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102))" @@ -78928,11 +79001,11 @@ static const char *startup_source = "(if(pair? s_60)" "(let-values(((#%require49_0)(let-values(((s_495)(car s_60))) s_495))" "((req50_0)" -"(let-values(((s_890)(cdr s_60)))" +"(let-values(((s_886)(cdr s_60)))" "(let-values(((s_197)" -"(if(syntax?$1 s_890)" -"(syntax-e$1 s_890)" -" s_890)))" +"(if(syntax?$1 s_886)" +"(syntax-e$1 s_886)" +" s_886)))" "(let-values(((flat-s_69)(to-syntax-list.1 s_197)))" "(if(not flat-s_69)" "(let-values()" @@ -78945,36 +79018,36 @@ static const char *startup_source = "(begin" "(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_462) req48_0))" +"(let-values(((lst_460) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_462)))" +"(let-values()(check-list lst_460)))" "((letrec-values(((for-loop_342)" -"(lambda(fold-var_297 lst_153)" +"(lambda(fold-var_295 lst_152)" "(begin" " 'for-loop" -"(if(pair? lst_153)" -"(let-values(((req_20)(unsafe-car lst_153))" -"((rest_266)(unsafe-cdr lst_153)))" -"(let-values(((fold-var_404)" -"(let-values(((fold-var_300) fold-var_297))" +"(if(pair? lst_152)" +"(let-values(((req_20)(unsafe-car lst_152))" +"((rest_266)(unsafe-cdr lst_152)))" "(let-values(((fold-var_405)" +"(let-values(((fold-var_298) fold-var_295))" +"(let-values(((fold-var_406)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" " sc_40))" -" fold-var_300))))" -"(values fold-var_405)))))" +" fold-var_298))))" +"(values fold-var_406)))))" "(if(not #f)" -"(for-loop_342 fold-var_404 rest_266)" -" fold-var_404)))" -" fold-var_297)))))" +"(for-loop_342 fold-var_405 rest_266)" +" fold-var_405)))" +" fold-var_295)))))" " for-loop_342)" " null" -" lst_462)))))" +" lst_460)))))" "((s52_0) s_33)" "((temp53_5) #f)" "((temp54_7)(expand-context-namespace ctx_128))" @@ -79172,5 +79245,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_891)(begin(1/datum->syntax core-stx s_891)))))" +"(define-values(datum->kernel-syntax)(lambda(s_887)(begin(1/datum->syntax core-stx s_887)))))" ;