From 983a35a0243c02b82a04efaa6cff00b4f39163e8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 3 Mar 2018 16:46:53 -0700 Subject: [PATCH] expander: repair handling of non-interned `provide`s --- .../src/expander/expand/require+provide.rkt | 13 +- racket/src/expander/expand/require.rkt | 45 +- racket/src/expander/namespace/module.rkt | 10 +- racket/src/expander/syntax/binding-table.rkt | 3 +- racket/src/expander/syntax/bulk-binding.rkt | 4 +- racket/src/racket/src/startup.inc | 5545 +++++++++-------- 6 files changed, 2823 insertions(+), 2797 deletions(-) diff --git a/racket/src/expander/expand/require+provide.rkt b/racket/src/expander/expand/require+provide.rkt index a8aa1a62ad..b7e4aa3005 100644 --- a/racket/src/expander/expand/require+provide.rkt +++ b/racket/src/expander/expand/require+provide.rkt @@ -173,7 +173,8 @@ (define sym-to-reqds (hash-ref! at-mod phase-shift make-hasheq)) (define prefix-len (if bulk-prefix (string-length (symbol->string bulk-prefix)) 0)) (define br (bulk-required provides prefix-len s provide-phase-level can-be-shadowed?)) - (for/or ([(out-sym binding/p) (in-hash provides)]) + (for/or ([(out-sym binding/p) (in-hash provides)] + #:unless (not (symbol-interned? out-sym))) (when symbols-accum (hash-set! symbols-accum out-sym #t)) (cond [(hash-ref bulk-excepts out-sym #f) @@ -504,16 +505,12 @@ (for/list ([mpi (in-list mpis)]) (module-path-index-shift mpi from-mpi to-mpi))))])) -;; Also removes uninterned (uncluding unreadable) symbols from among -;; provides, just in case something like a lifted identifier was -;; provided. Since lifting generates a locally deterministic -;; unreadable symbol that is intended to be specific to a particular -;; module, exporting unreadable symbols can create collisions. +;; Note: the provides may include non-interned symbols. Those may be +;; accessible via` dynamic-require`, but don't import them. (define (shift-provides-module-path-index provides from-mpi to-mpi) (for/hasheqv ([(phase at-phase) (in-hash provides)]) (values phase - (for/hasheq ([(sym binding) (in-hash at-phase)] - #:when (symbol-interned? sym)) + (for/hasheq ([(sym binding) (in-hash at-phase)]) (values sym (cond [(eq? from-mpi to-mpi) binding] diff --git a/racket/src/expander/expand/require.rkt b/racket/src/expander/expand/require.rkt index a1f583addd..1f9007c0f6 100644 --- a/racket/src/expander/expand/require.rkt +++ b/racket/src/expander/expand/require.rkt @@ -295,27 +295,30 @@ (define provide-phase (module-binding-nominal-phase binding)) (define adjusted-sym (cond - [(and skip-variable-phase-level - (not as-transformer?) - (equal? provide-phase skip-variable-phase-level)) - #f] - [(not adjust) sym] - [(adjust-only? adjust) - (and (set-member? (adjust-only-syms adjust) sym) - (hash-set! done-syms sym #t) - sym)] - [(adjust-prefix? adjust) - (string->symbol - (format "~a~a" (adjust-prefix-sym adjust) sym))] - [(adjust-all-except? adjust) - (and (not (and (set-member? (adjust-all-except-syms adjust) sym) - (hash-set! done-syms sym #t))) - (string->symbol - (format "~a~a" (adjust-all-except-prefix-sym adjust) sym)))] - [(adjust-rename? adjust) - (and (eq? sym (adjust-rename-from-sym adjust)) - (hash-set! done-syms sym #t) - (adjust-rename-to-id adjust))])) + [(not (symbol-interned? sym)) + ;; Don't `require` non-interned symbols + #f] + [(and skip-variable-phase-level + (not as-transformer?) + (equal? provide-phase skip-variable-phase-level)) + #f] + [(not adjust) sym] + [(adjust-only? adjust) + (and (set-member? (adjust-only-syms adjust) sym) + (hash-set! done-syms sym #t) + sym)] + [(adjust-prefix? adjust) + (string->symbol + (format "~a~a" (adjust-prefix-sym adjust) sym))] + [(adjust-all-except? adjust) + (and (not (and (set-member? (adjust-all-except-syms adjust) sym) + (hash-set! done-syms sym #t))) + (string->symbol + (format "~a~a" (adjust-all-except-prefix-sym adjust) sym)))] + [(adjust-rename? adjust) + (and (eq? sym (adjust-rename-from-sym adjust)) + (hash-set! done-syms sym #t) + (adjust-rename-to-id adjust))])) (define skip-bind? (cond [(and adjusted-sym requires+provides) diff --git a/racket/src/expander/namespace/module.rkt b/racket/src/expander/namespace/module.rkt index fd6c482a08..036624c6aa 100644 --- a/racket/src/expander/namespace/module.rkt +++ b/racket/src/expander/namespace/module.rkt @@ -61,7 +61,7 @@ (struct module (source-name ; #f, symbol, or complete path self ; module path index used for a self reference requires ; list of (cons phase list-of-module-path-index) - provides ; phase-level -> sym -> binding or (provided binding bool bool) + provides ; phase-level -> sym -> binding or (provided binding bool bool); see [*] below [access #:mutable] ; phase-level -> sym -> 'provided or 'protected; computed on demand from `provides` language-info ; #f or vector min-phase-level ; phase-level @@ -79,6 +79,14 @@ supermodule-name ; associated supermodule (i.e, when declared together) get-all-variables)) ; for `module->indirect-exports` +;; [*] Beware that tabels in `provides` may map non-interned symbols +;; to provided bindings, in case something like a lifted +;; identifier was provided. Since lifting generates a locally +;; deterministic unreadable symbol that is intended to be specific +;; to a particular module, `require`ing unreadable symbols can +;; create collisions. Still, the provided binding is supposed to +;; be accessible via `dynamic-require`. + (struct module-linklet-info (linklet-or-instance ; #f, linklet, or instance supplied for cross-linking optimization module-uses ; #f or vector for linklet's imports self ; self modidx diff --git a/racket/src/expander/syntax/binding-table.rkt b/racket/src/expander/syntax/binding-table.rkt index 763cc5aeef..f125e2e59a 100644 --- a/racket/src/expander/syntax/binding-table.rkt +++ b/racket/src/expander/syntax/binding-table.rkt @@ -222,7 +222,8 @@ [(binding-id) (cond [(pair? i) (define bulk (bulk-binding-at-bulk (car i))) - (define b-info (hash-ref (bulk-binding-symbols bulk s extra-shifts) sym #f)) + (define b-info (and (symbol-interned? sym) ; don't `require` non-interned + (hash-ref (bulk-binding-symbols bulk s extra-shifts) sym #f))) (and b-info ((bulk-binding-create bulk) bulk b-info sym))] [else (hash-iterate-value ht i)])]) diff --git a/racket/src/expander/syntax/bulk-binding.rkt b/racket/src/expander/syntax/bulk-binding.rkt index 7540a7d964..9c929ee18d 100644 --- a/racket/src/expander/syntax/bulk-binding.rkt +++ b/racket/src/expander/syntax/bulk-binding.rkt @@ -142,7 +142,9 @@ (define (bulk-provides-add-prefix-remove-exceptions provides prefix excepts) (for/hash ([(sym val) (in-hash provides)] - #:unless (hash-ref excepts sym #f)) + #:unless (hash-ref excepts sym #f) + ;; Don't `require` non-interned + #:when (symbol-interned? sym)) (values (if prefix (string->symbol (format "~a~a" prefix sym)) sym) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index cbe423ce88..70f43890ee 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -10100,12 +10100,15 @@ static const char *startup_source = "(car" " i_76))))" "(let-values(((b-info_0)" +"(if(symbol-interned?" +" sym_15)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" " s_142" " extra-shifts_3)" " sym_15" +" #f)" " #f)))" "(if b-info_0" "((bulk-binding-create" @@ -11541,7 +11544,9 @@ static const char *startup_source = "(if(hash-ref excepts_2 sym_17 #f)" " table_84" "(let-values(((table_85) table_84))" -"(let-values(((table_86)" +"(if(symbol-interned? sym_17)" +"(let-values(((table_86) table_85))" +"(let-values(((table_87)" "(let-values()" "(let-values(((key_35 val_23)" "(let-values()" @@ -11549,13 +11554,14 @@ static const char *startup_source = "(if prefix_2" "(string->symbol" "(format" -" \"~a~a\"" +" \"~a~a\"" " prefix_2" " sym_17))" " sym_17)" " val_22))))" -"(hash-set table_85 key_35 val_23)))))" -"(values table_86)))))))" +"(hash-set table_86 key_35 val_23)))))" +"(values table_87)))" +" table_85))))))" "(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_79)) table_83)))" " table_82)))))" " for-loop_77)" @@ -11563,19 +11569,19 @@ static const char *startup_source = "(hash-iterate-first ht_64)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type 'bulk-provide #f 2 0 #f null(current-inspector) #f '(0 1) #f 'bulk-provide)))))" "(values" -" struct:_30" -" make-_30" -" ?_30" -"(make-struct-field-accessor -ref_30 0 'self)" -"(make-struct-field-accessor -ref_30 1 'provides))))" +" struct:_5" +" make-_5" +" ?_5" +"(make-struct-field-accessor -ref_5 0 'self)" +"(make-struct-field-accessor -ref_5 1 'provides))))" "(define-values" "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11590,7 +11596,7 @@ static const char *startup_source = " '(0)" " #f" " 'bulk-binding-registry)))))" -"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'table))))" +"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'table))))" "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))" "(define-values" "(register-bulk-provide!)" @@ -11613,7 +11619,7 @@ static const char *startup_source = " root-expand-context/outer-post-expansion-scope" " root-expand-context/outer-use-site-scopes" " root-expand-context/outer-frame-id)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11629,13 +11635,13 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'inner)" -"(make-struct-field-accessor -ref_32 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_32 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_32 3 'frame-id))))" +" struct:_31" +" make-_31" +" ?_31" +"(make-struct-field-accessor -ref_31 0 'inner)" +"(make-struct-field-accessor -ref_31 1 'post-expansion-scope)" +"(make-struct-field-accessor -ref_31 2 'use-site-scopes)" +"(make-struct-field-accessor -ref_31 3 'frame-id))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -11777,22 +11783,22 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" "((letrec-values(((for-loop_78)" -"(lambda(table_87 i_80)" +"(lambda(table_88 i_80)" "(begin" " 'for-loop" "(if i_80" "(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_80)))" -"(let-values(((table_88)" -"(let-values(((table_89) table_87))" -"(let-values(((table_90)" +"(let-values(((table_89)" +"(let-values(((table_90) table_88))" +"(let-values(((table_91)" "(let-values()" "(let-values(((key_36 val_24)" "(let-values()" "(values phase_22 ht_66))))" -"(hash-set table_89 key_36 val_24)))))" -"(values table_90)))))" -"(if(not #f)(for-loop_78 table_88(hash-iterate-next ht_65 i_80)) table_88)))" -" table_87)))))" +"(hash-set table_90 key_36 val_24)))))" +"(values table_91)))))" +"(if(not #f)(for-loop_78 table_89(hash-iterate-next ht_65 i_80)) table_89)))" +" table_88)))))" " for-loop_78)" " '#hasheqv()" "(hash-iterate-first ht_65))))" @@ -11928,14 +11934,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_69)))" "((letrec-values(((for-loop_80)" -"(lambda(table_91 i_83)" +"(lambda(table_92 i_83)" "(begin" " 'for-loop" "(if i_83" "(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_83)))" -"(let-values(((table_92)" -"(let-values(((table_93) table_91))" -"(let-values(((table_94)" +"(let-values(((table_93)" +"(let-values(((table_94) table_92))" +"(let-values(((table_95)" "(let-values()" "(let-values(((key_37 val_15)" "(let-values()" @@ -11952,7 +11958,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash ht_70)))" "((letrec-values(((for-loop_13)" -"(lambda(table_95" +"(lambda(table_96" " i_84)" "(begin" " 'for-loop" @@ -11962,10 +11968,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_70" " i_84)))" -"(let-values(((table_96)" "(let-values(((table_97)" -" table_95))" "(let-values(((table_98)" +" table_96))" +"(let-values(((table_99)" "(let-values()" "(let-values(((key_38" " val_25)" @@ -11974,28 +11980,28 @@ static const char *startup_source = " sym_19" " id_9))))" "(hash-set" -" table_97" +" table_98" " key_38" " val_25)))))" "(values" -" table_98)))))" +" table_99)))))" "(if(not" " #f)" "(for-loop_13" -" table_96" +" table_97" "(hash-iterate-next" " ht_70" " i_84))" -" table_96)))" -" table_95)))))" +" table_97)))" +" table_96)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" " ht_70)))))))))" -"(hash-set table_93 key_37 val_15)))))" -"(values table_94)))))" -"(if(not #f)(for-loop_80 table_92(hash-iterate-next ht_69 i_83)) table_92)))" -" table_91)))))" +"(hash-set table_94 key_37 val_15)))))" +"(values table_95)))))" +"(if(not #f)(for-loop_80 table_93(hash-iterate-next ht_69 i_83)) table_93)))" +" table_92)))))" " for-loop_80)" " '#hasheqv()" "(hash-iterate-first ht_69))))))))" @@ -12162,16 +12168,16 @@ static const char *startup_source = "(make-struct-field-mutator -set!_0 12 'inspector))))" "(define-values" "(struct:definitions definitions2.1 definitions? definitions-variables definitions-transformers)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type 'definitions #f 2 0 #f null(current-inspector) #f '(0 1) #f 'definitions)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'variables)" -"(make-struct-field-accessor -ref_33 1 'transformers))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'variables)" +"(make-struct-field-accessor -ref_32 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace9.1 #f #f #f #f #f #f)))))" "(define-values" "(new-namespace9.1)" @@ -12639,7 +12645,7 @@ static const char *startup_source = "(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" -"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12654,7 +12660,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_34 make-_34 ?_34)))" +"(values struct:_33 make-_33 ?_33)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error11_0)" @@ -12927,7 +12933,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" +"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12943,15 +12949,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_35" -" make-_35" -" ?_35" -"(make-struct-field-accessor -ref_35 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_35 1 'module-uses)" -"(make-struct-field-accessor -ref_35 2 'self)" -"(make-struct-field-accessor -ref_35 3 'inspector)" -"(make-struct-field-accessor -ref_35 4 'extra-inspector)" -"(make-struct-field-accessor -ref_35 5 'extra-inspectorsss))))" +" struct:_34" +" make-_34" +" ?_34" +"(make-struct-field-accessor -ref_34 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_34 1 'module-uses)" +"(make-struct-field-accessor -ref_34 2 'self)" +"(make-struct-field-accessor -ref_34 3 'inspector)" +"(make-struct-field-accessor -ref_34 4 'extra-inspector)" +"(make-struct-field-accessor -ref_34 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13057,7 +13063,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13073,19 +13079,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'namespace)" -"(make-struct-field-accessor -ref_36 1 'module)" -"(make-struct-field-accessor -ref_36 2 'shifted-requires)" -"(make-struct-field-accessor -ref_36 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_36 4 'made-available?)" -"(make-struct-field-accessor -ref_36 5 'attached?)" -"(make-struct-field-accessor -ref_36 6 'data-box)" -"(make-struct-field-mutator -set!_36 2 'shifted-requires)" -"(make-struct-field-mutator -set!_36 4 'made-available?)" -"(make-struct-field-mutator -set!_36 5 'attached?))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'namespace)" +"(make-struct-field-accessor -ref_35 1 'module)" +"(make-struct-field-accessor -ref_35 2 'shifted-requires)" +"(make-struct-field-accessor -ref_35 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_35 4 'made-available?)" +"(make-struct-field-accessor -ref_35 5 'attached?)" +"(make-struct-field-accessor -ref_35 6 'data-box)" +"(make-struct-field-mutator -set!_35 2 'shifted-requires)" +"(make-struct-field-mutator -set!_35 4 'made-available?)" +"(make-struct-field-mutator -set!_35 5 'attached?))))" "(define-values" "(make-module-instance)" "(lambda(m-ns_0 m_1)(begin(module-instance42.1 m-ns_0 m_1 #f(make-small-hasheqv) #f #f(box #f)))))" @@ -14243,15 +14249,15 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_72)))" "((letrec-values(((for-loop_91)" -"(lambda(table_99 i_86)" +"(lambda(table_100 i_86)" "(begin" " 'for-loop" "(if i_86" "(let-values(((phase_31 at-phase_6)" "(hash-iterate-key+value ht_72 i_86)))" -"(let-values(((table_100)" -"(let-values(((table_101) table_99))" -"(let-values(((table_102)" +"(let-values(((table_101)" +"(let-values(((table_102) table_100))" +"(let-values(((table_103)" "(let-values()" "(let-values(((key_39 val_31)" "(let-values()" @@ -14267,7 +14273,7 @@ static const char *startup_source = "(check-in-hash" " ht_73)))" "((letrec-values(((for-loop_92)" -"(lambda(table_103" +"(lambda(table_104" " i_87)" "(begin" " 'for-loop" @@ -14277,10 +14283,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_73" " i_87)))" -"(let-values(((table_104)" "(let-values(((table_105)" -" table_103))" "(let-values(((table_106)" +" table_104))" +"(let-values(((table_107)" "(let-values()" "(let-values(((key_40" " val_32)" @@ -14294,33 +14300,33 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_105" +" table_106" " key_40" " val_32)))))" "(values" -" table_106)))))" +" table_107)))))" "(if(not" " #f)" "(for-loop_92" -" table_104" +" table_105" "(hash-iterate-next" " ht_73" " i_87))" -" table_104)))" -" table_103)))))" +" table_105)))" +" table_104)))))" " for-loop_92)" " '#hash()" "(hash-iterate-first" " ht_73))))))))" "(hash-set" -" table_101" +" table_102" " key_39" " val_31)))))" -"(values table_102)))))" +"(values table_103)))))" "(if(not #f)" -"(for-loop_91 table_100(hash-iterate-next ht_72 i_86))" -" table_100)))" -" table_99)))))" +"(for-loop_91 table_101(hash-iterate-next ht_72 i_86))" +" table_101)))" +" table_100)))))" " for-loop_91)" " '#hasheqv()" "(hash-iterate-first ht_72))))))" @@ -14562,7 +14568,7 @@ static const char *startup_source = "(1/make-set!-transformer)" "(let-values()" "(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)" -"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14577,7 +14583,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_37 make-_37 ?_37(make-struct-field-accessor -ref_37 0 'proc)))))" +"(values struct:_36 make-_36 ?_36(make-struct-field-accessor -ref_36 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14948,7 +14954,7 @@ static const char *startup_source = " expand-context/outer-need-eventually-defined" " expand-context/outer-current-introduction-scopes" " expand-context/outer-name)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14964,20 +14970,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'context)" -"(make-struct-field-accessor -ref_32 1 'env)" -"(make-struct-field-accessor -ref_32 2 'post-expansion-scope-action)" -"(make-struct-field-accessor -ref_32 3 'scopes)" -"(make-struct-field-accessor -ref_32 4 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_32 5 'binding-layer)" -"(make-struct-field-accessor -ref_32 6 'reference-records)" -"(make-struct-field-accessor -ref_32 7 'only-immediate?)" -"(make-struct-field-accessor -ref_32 8 'need-eventually-defined)" -"(make-struct-field-accessor -ref_32 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_32 10 'name))))" +" struct:_31" +" make-_31" +" ?_31" +"(make-struct-field-accessor -ref_31 0 'context)" +"(make-struct-field-accessor -ref_31 1 'env)" +"(make-struct-field-accessor -ref_31 2 'post-expansion-scope-action)" +"(make-struct-field-accessor -ref_31 3 'scopes)" +"(make-struct-field-accessor -ref_31 4 'def-ctx-scopes)" +"(make-struct-field-accessor -ref_31 5 'binding-layer)" +"(make-struct-field-accessor -ref_31 6 'reference-records)" +"(make-struct-field-accessor -ref_31 7 'only-immediate?)" +"(make-struct-field-accessor -ref_31 8 'need-eventually-defined)" +"(make-struct-field-accessor -ref_31 9 'current-introduction-scopes)" +"(make-struct-field-accessor -ref_31 10 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15000,7 +15006,7 @@ static const char *startup_source = " expand-context/inner-observer" " expand-context/inner-for-serializable?" " expand-context/inner-should-not-encounter-macros?)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15016,27 +15022,27 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'to-parsed?)" -"(make-struct-field-accessor -ref_38 1 'phase)" -"(make-struct-field-accessor -ref_38 2 'namespace)" -"(make-struct-field-accessor -ref_38 3 'just-once?)" -"(make-struct-field-accessor -ref_38 4 'module-begin-k)" -"(make-struct-field-accessor -ref_38 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_38 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_38 7 'stops)" -"(make-struct-field-accessor -ref_38 8 'declared-submodule-names)" -"(make-struct-field-accessor -ref_38 9 'lifts)" -"(make-struct-field-accessor -ref_38 10 'lift-envs)" -"(make-struct-field-accessor -ref_38 11 'module-lifts)" -"(make-struct-field-accessor -ref_38 12 'require-lifts)" -"(make-struct-field-accessor -ref_38 13 'to-module-lifts)" -"(make-struct-field-accessor -ref_38 14 'requires+provides)" -"(make-struct-field-accessor -ref_38 15 'observer)" -"(make-struct-field-accessor -ref_38 16 'for-serializable?)" -"(make-struct-field-accessor -ref_38 17 'should-not-encounter-macros?))))" +" struct:_37" +" make-_37" +" ?_37" +"(make-struct-field-accessor -ref_37 0 'to-parsed?)" +"(make-struct-field-accessor -ref_37 1 'phase)" +"(make-struct-field-accessor -ref_37 2 'namespace)" +"(make-struct-field-accessor -ref_37 3 'just-once?)" +"(make-struct-field-accessor -ref_37 4 'module-begin-k)" +"(make-struct-field-accessor -ref_37 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_37 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_37 7 'stops)" +"(make-struct-field-accessor -ref_37 8 'declared-submodule-names)" +"(make-struct-field-accessor -ref_37 9 'lifts)" +"(make-struct-field-accessor -ref_37 10 'lift-envs)" +"(make-struct-field-accessor -ref_37 11 'module-lifts)" +"(make-struct-field-accessor -ref_37 12 'require-lifts)" +"(make-struct-field-accessor -ref_37 13 'to-module-lifts)" +"(make-struct-field-accessor -ref_37 14 'requires+provides)" +"(make-struct-field-accessor -ref_37 15 'observer)" +"(make-struct-field-accessor -ref_37 16 'for-serializable?)" +"(make-struct-field-accessor -ref_37 17 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" @@ -15610,7 +15616,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_96)" -"(lambda(table_107 lst_82 lst_83)" +"(lambda(table_108 lst_82 lst_83)" "(begin" " 'for-loop" "(if(if(pair? lst_82)(pair? lst_83) #f)" @@ -15618,8 +15624,8 @@ static const char *startup_source = "((rest_37)(unsafe-cdr lst_82))" "((syntax?_2)(unsafe-car lst_83))" "((rest_38)(unsafe-cdr lst_83)))" -"(let-values(((table_108)" -"(let-values(((table_109) table_107))" +"(let-values(((table_109)" +"(let-values(((table_110) table_108))" "(let-values(((ht_78) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" @@ -15628,7 +15634,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys ht_78)))" "((letrec-values(((for-loop_97)" -"(lambda(table_110" +"(lambda(table_111" " i_88)" "(begin" " 'for-loop" @@ -15637,10 +15643,10 @@ static const char *startup_source = "(hash-iterate-key" " ht_78" " i_88)))" -"(let-values(((table_111)" "(let-values(((table_112)" -" table_110))" "(let-values(((table_113)" +" table_111))" +"(let-values(((table_114)" "(let-values()" "(let-values(((key_43" " val_34)" @@ -15683,27 +15689,27 @@ static const char *startup_source = " #t)" " b_59))))))" "(hash-set" -" table_112" +" table_113" " key_43" " val_34)))))" "(values" -" table_113)))))" +" table_114)))))" "(if(not" " #f)" "(for-loop_97" -" table_111" +" table_112" "(hash-iterate-next" " ht_78" " i_88))" -" table_111)))" -" table_110)))))" +" table_112)))" +" table_111)))))" " for-loop_97)" -" table_109" +" table_110" "(hash-iterate-first ht_78)))))))" "(if(not #f)" -"(for-loop_96 table_108 rest_37 rest_38)" -" table_108)))" -" table_107)))))" +"(for-loop_96 table_109 rest_37 rest_38)" +" table_109)))" +" table_108)))))" " for-loop_96)" " '#hasheq()" " lst_80" @@ -16232,25 +16238,25 @@ static const char *startup_source = " covered-scope-sets_1)" "(let-values(((ht_82" " bulk-bindings_3)" -"(let-values(((table_114)" +"(let-values(((table_115)" "(scope-binding-table" " sc_27)))" "(if(hash?" -" table_114)" +" table_115)" "(values" "(hash-ref" -" table_114" +" table_115" " sym_16" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_114)" +" table_115)" " sym_16" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_114)))))" +" table_115)))))" "((s_181)" " s_0)" "((extra-shifts_5)" @@ -16286,12 +16292,15 @@ static const char *startup_source = "(car" " i_92))))" "(let-values(((b-info_1)" +"(if(symbol-interned?" +" sym_16)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" " s_181" " extra-shifts_5)" " sym_16" +" #f)" " #f)))" "(if b-info_1" "((bulk-binding-create" @@ -17285,14 +17294,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_85)))" "((letrec-values(((for-loop_82)" -"(lambda(table_115 i_95)" +"(lambda(table_116 i_95)" "(begin" " 'for-loop" "(if i_95" "(let-values(((k_18 v_62)(hash-iterate-key+value ht_85 i_95)))" -"(let-values(((table_116)" -"(let-values(((table_110) table_115))" "(let-values(((table_117)" +"(let-values(((table_111) table_116))" +"(let-values(((table_118)" "(let-values()" "(let-values(((key_44 val_36)" "(let-values()" @@ -17300,14 +17309,14 @@ static const char *startup_source = " v_62" " k_18))))" "(hash-set" -" table_110" +" table_111" " key_44" " val_36)))))" -"(values table_117)))))" +"(values table_118)))))" "(if(not #f)" -"(for-loop_82 table_116(hash-iterate-next ht_85 i_95))" -" table_116)))" -" table_115)))))" +"(for-loop_82 table_117(hash-iterate-next ht_85 i_95))" +" table_117)))" +" table_116)))))" " for-loop_82)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" @@ -17376,14 +17385,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_86)))" "((letrec-values(((for-loop_53)" -"(lambda(table_118 i_20)" +"(lambda(table_119 i_20)" "(begin" " 'for-loop" "(if i_20" "(let-values(((k_19 v_134)" "(hash-iterate-key+value ht_86 i_20)))" "(let-values(((table_19)" -"(let-values(((table_119) table_118))" +"(let-values(((table_120) table_119))" "(let-values(((table_9)" "(let-values()" "(let-values(((key_45" @@ -17393,14 +17402,14 @@ static const char *startup_source = " v_134" " k_19))))" "(hash-set" -" table_119" +" table_120" " key_45" " val_37)))))" "(values table_9)))))" "(if(not #f)" "(for-loop_53 table_19(hash-iterate-next ht_86 i_20))" " table_19)))" -" table_118)))))" +" table_119)))))" " for-loop_53)" " '#hasheqv()" "(hash-iterate-first ht_86))))))" @@ -18323,7 +18332,7 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_126)" -"(lambda(table_120 lst_111 pos_24)" +"(lambda(table_121 lst_111 pos_24)" "(begin" " 'for-loop" "(if(if(pair? lst_111) #t #f)" @@ -18332,10 +18341,10 @@ static const char *startup_source = "((rest_55)" "(unsafe-cdr lst_111))" "((pos_25) pos_24))" -"(let-values(((table_121)" "(let-values(((table_122)" -" table_120))" "(let-values(((table_123)" +" table_121))" +"(let-values(((table_124)" "(let-values()" "(let-values(((key_46" " val_38)" @@ -18344,17 +18353,17 @@ static const char *startup_source = " step_3" " pos_25))))" "(hash-set" -" table_122" +" table_123" " key_46" " val_38)))))" -"(values table_123)))))" +"(values table_124)))))" "(if(not #f)" "(for-loop_126" -" table_121" +" table_122" " rest_55" "(+ pos_24 1))" -" table_121)))" -" table_120)))))" +" table_122)))" +" table_121)))))" " for-loop_126)" " '#hasheqv()" " lst_110" @@ -19149,7 +19158,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_90)))" "((letrec-values(((for-loop_133)" -"(lambda(table_124 i_7)" +"(lambda(table_125 i_7)" "(begin" " 'for-loop" "(if i_7" @@ -19158,10 +19167,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_90" " i_7)))" -"(let-values(((table_125)" "(let-values(((table_126)" -" table_124))" "(let-values(((table_127)" +" table_125))" +"(let-values(((table_128)" "(let-values()" "(let-values(((key_47" " val_40)" @@ -19170,19 +19179,19 @@ static const char *startup_source = " v_146" " k_25))))" "(hash-set" -" table_126" +" table_127" " key_47" " val_40)))))" "(values" -" table_127)))))" +" table_128)))))" "(if(not #f)" "(for-loop_133" -" table_125" +" table_126" "(hash-iterate-next" " ht_90" " i_7))" -" table_125)))" -" table_124)))))" +" table_126)))" +" table_125)))))" " for-loop_133)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" @@ -19240,7 +19249,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys ht_91)))" "((letrec-values(((for-loop_135)" -"(lambda(table_128 i_115)" +"(lambda(table_129 i_115)" "(begin" " 'for-loop" "(if i_115" @@ -19248,10 +19257,10 @@ static const char *startup_source = "(hash-iterate-key" " ht_91" " i_115)))" -"(let-values(((table_129)" "(let-values(((table_130)" -" table_128))" "(let-values(((table_131)" +" table_129))" +"(let-values(((table_132)" "(let-values()" "(let-values(((key_48" " val_41)" @@ -19264,19 +19273,19 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_130" +" table_131" " key_48" " val_41)))))" "(values" -" table_131)))))" +" table_132)))))" "(if(not #f)" "(for-loop_135" -" table_129" +" table_130" "(hash-iterate-next" " ht_91" " i_115))" -" table_129)))" -" table_128)))))" +" table_130)))" +" table_129)))))" " for-loop_135)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" @@ -20747,7 +20756,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_1 1 'inspector))))" "(define-values" "(struct:parsed-primitive-id parsed-primitive-id3.1 parsed-primitive-id?)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20762,7 +20771,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_39 make-_39 ?_39)))" +"(values struct:_38 make-_38 ?_38)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -20783,7 +20792,7 @@ static const char *startup_source = "(values struct:_10 make-_10 ?_10)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20799,14 +20808,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'keys)" -"(make-struct-field-accessor -ref_38 1 'body))))" +" struct:_37" +" make-_37" +" ?_37" +"(make-struct-field-accessor -ref_37 0 'keys)" +"(make-struct-field-accessor -ref_37 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20821,10 +20830,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'clauses))))" +"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20840,11 +20849,11 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_41" -" make-_41" -" ?_41" -"(make-struct-field-accessor -ref_41 0 'rator)" -"(make-struct-field-accessor -ref_41 1 'rands))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'rator)" +"(make-struct-field-accessor -ref_40 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" "(let-values(((struct:_4 make-_4 ?_4 -ref_4 -set!_4)" @@ -20871,7 +20880,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_4 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20887,11 +20896,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'id)" -"(make-struct-field-accessor -ref_42 1 'rhs))))" +" struct:_41" +" make-_41" +" ?_41" +"(make-struct-field-accessor -ref_41 0 'id)" +"(make-struct-field-accessor -ref_41 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -20899,7 +20908,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20915,18 +20924,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'key)" -"(make-struct-field-accessor -ref_43 1 'val)" -"(make-struct-field-accessor -ref_43 2 'body))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'key)" +"(make-struct-field-accessor -ref_42 1 'val)" +"(make-struct-field-accessor -ref_42 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20941,10 +20950,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'id))))" +"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20959,10 +20968,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'body))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20977,10 +20986,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'body))))" +"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20995,10 +21004,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'datum))))" +"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21013,7 +21022,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'datum))))" +"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21021,7 +21030,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21037,15 +21046,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_49" -" make-_49" -" ?_49" -"(make-struct-field-accessor -ref_49 0 'idss)" -"(make-struct-field-accessor -ref_49 1 'clauses)" -"(make-struct-field-accessor -ref_49 2 'body))))" +" struct:_48" +" make-_48" +" ?_48" +"(make-struct-field-accessor -ref_48 0 'idss)" +"(make-struct-field-accessor -ref_48 1 'clauses)" +"(make-struct-field-accessor -ref_48 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21060,10 +21069,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_50 make-_50 ?_50)))" +"(values struct:_49 make-_49 ?_49)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21078,7 +21087,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_51 make-_51 ?_51)))" +"(values struct:_50 make-_50 ?_50)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21086,7 +21095,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21102,12 +21111,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_52" -" make-_52" -" ?_52" -"(make-struct-field-accessor -ref_52 0 'ids)" -"(make-struct-field-accessor -ref_52 1 'syms)" -"(make-struct-field-accessor -ref_52 2 'rhs))))" +" struct:_51" +" make-_51" +" ?_51" +"(make-struct-field-accessor -ref_51 0 'ids)" +"(make-struct-field-accessor -ref_51 1 'syms)" +"(make-struct-field-accessor -ref_51 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21115,7 +21124,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21131,15 +21140,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_53" -" make-_53" -" ?_53" -"(make-struct-field-accessor -ref_53 0 'ids)" -"(make-struct-field-accessor -ref_53 1 'syms)" -"(make-struct-field-accessor -ref_53 2 'rhs))))" +" struct:_52" +" make-_52" +" ?_52" +"(make-struct-field-accessor -ref_52 0 'ids)" +"(make-struct-field-accessor -ref_52 1 'syms)" +"(make-struct-field-accessor -ref_52 2 'rhs))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21154,10 +21163,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'body))))" +"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21172,10 +21181,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_55 make-_55 ?_55)))" +"(values struct:_54 make-_54 ?_54)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21190,10 +21199,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_56 make-_56 ?_56)))" +"(values struct:_55 make-_55 ?_55)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21208,7 +21217,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'body))))" +"(values struct:_56 make-_56 ?_56(make-struct-field-accessor -ref_56 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21223,7 +21232,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21239,19 +21248,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_58" -" make-_58" -" ?_58" -"(make-struct-field-accessor -ref_58 0 'star?)" -"(make-struct-field-accessor -ref_58 1 'name-id)" -"(make-struct-field-accessor -ref_58 2 'self)" -"(make-struct-field-accessor -ref_58 3 'requires)" -"(make-struct-field-accessor -ref_58 4 'provides)" -"(make-struct-field-accessor -ref_58 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_58 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_58 7 'body)" -"(make-struct-field-accessor -ref_58 8 'compiled-module)" -"(make-struct-field-accessor -ref_58 9 'compiled-submodules))))" +" struct:_57" +" make-_57" +" ?_57" +"(make-struct-field-accessor -ref_57 0 'star?)" +"(make-struct-field-accessor -ref_57 1 'name-id)" +"(make-struct-field-accessor -ref_57 2 'self)" +"(make-struct-field-accessor -ref_57 3 'requires)" +"(make-struct-field-accessor -ref_57 4 'provides)" +"(make-struct-field-accessor -ref_57 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_57 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_57 7 'body)" +"(make-struct-field-accessor -ref_57 8 'compiled-module)" +"(make-struct-field-accessor -ref_57 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 declared-submodule-names2_0 mod-path3_0 self4_2)" @@ -21345,7 +21354,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21361,20 +21370,20 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_59" -" make-_59" -" ?_59" -"(make-struct-field-accessor -ref_59 0 'self)" -"(make-struct-field-accessor -ref_59 1 'require-mpis)" -"(make-struct-field-accessor -ref_59 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_59 3 'requires)" -"(make-struct-field-accessor -ref_59 4 'provides)" -"(make-struct-field-accessor -ref_59 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_59 6 'also-required)" -"(make-struct-field-accessor -ref_59 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_59 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_59 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_59 8 'all-bindings-simple?))))" +" struct:_58" +" make-_58" +" ?_58" +"(make-struct-field-accessor -ref_58 0 'self)" +"(make-struct-field-accessor -ref_58 1 'require-mpis)" +"(make-struct-field-accessor -ref_58 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_58 3 'requires)" +"(make-struct-field-accessor -ref_58 4 'provides)" +"(make-struct-field-accessor -ref_58 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_58 6 'also-required)" +"(make-struct-field-accessor -ref_58 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_58 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_58 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_58 8 'all-bindings-simple?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -21391,7 +21400,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" +"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21407,13 +21416,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_60" -" make-_60" -" ?_60" -"(make-struct-field-accessor -ref_60 0 'module)" -"(make-struct-field-accessor -ref_60 1 'provide-phase)" -"(make-struct-field-accessor -ref_60 2 'require-phase)" -"(make-struct-field-accessor -ref_60 3 'sym))))" +" struct:_59" +" make-_59" +" ?_59" +"(make-struct-field-accessor -ref_59 0 'module)" +"(make-struct-field-accessor -ref_59 1 'provide-phase)" +"(make-struct-field-accessor -ref_59 2 'require-phase)" +"(make-struct-field-accessor -ref_59 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21423,7 +21432,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21439,14 +21448,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_61" -" make-_61" -" ?_61" -"(make-struct-field-accessor -ref_61 0 'provides)" -"(make-struct-field-accessor -ref_61 1 'prefix-len)" -"(make-struct-field-accessor -ref_61 2 's)" -"(make-struct-field-accessor -ref_61 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_61 4 'can-be-shadowed?))))" +" struct:_60" +" make-_60" +" ?_60" +"(make-struct-field-accessor -ref_60 0 'provides)" +"(make-struct-field-accessor -ref_60 1 'prefix-len)" +"(make-struct-field-accessor -ref_60 2 's)" +"(make-struct-field-accessor -ref_60 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_60 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 copy-requires6_0 self7_0)" @@ -21643,8 +21652,14 @@ static const char *startup_source = " ht_100" " i_129)))" "(let-values(((result_72)" -"(let-values()" "(let-values(((result_73)" +" result_71))" +"(if(not" +"(symbol-interned?" +" out-sym_0))" +" result_73" +"(let-values()" +"(let-values(((result_74)" "(let-values()" "(let-values()" "(begin" @@ -21670,7 +21685,7 @@ static const char *startup_source = "(let-values()" "(string->symbol" "(format" -" \"~a~a\"" +" \"~a~a\"" " bulk-prefix_0" " out-sym_0))))))" "(let-values(((already-defined?_0)" @@ -21761,7 +21776,7 @@ static const char *startup_source = " null)))))" " already-defined?_0))))))))))" "(values" -" result_73)))))" +" result_74)))))))" "(if(if(not" "((lambda x_51 result_72)" " out-sym_0" @@ -21854,15 +21869,15 @@ static const char *startup_source = "(check-in-hash" " ht_103)))" "((letrec-values(((for-loop_153)" -"(lambda(i_65)" +"(lambda(i_132)" "(begin" " 'for-loop" -"(if i_65" +"(if i_132" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" " ht_103" -" i_65)))" +" i_132)))" "(let-values((()" "(let-values(((lst_120)" " reqds_0))" @@ -21957,7 +21972,7 @@ static const char *startup_source = "(for-loop_153" "(hash-iterate-next" " ht_103" -" i_65))" +" i_132))" "(values))))" "(values))))))" " for-loop_153)" @@ -22297,7 +22312,7 @@ static const char *startup_source = "(if(not" "(null?" " lst_125))" -"(let-values(((r_24)" +"(let-values(((r_37)" "(if(pair?" " lst_125)" "(car" @@ -22315,11 +22330,11 @@ static const char *startup_source = "(let-values(((only-can-can-shadow-require?_4)" "(let-values()" "(if(if(bulk-required?" -" r_24)" +" r_37)" "(bulk-required-can-be-shadowed?" -" r_24)" +" r_37)" "(required-can-be-shadowed?" -" r_24))" +" r_37))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" @@ -22387,7 +22402,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_126)))" -"((letrec-values(((for-loop_158)" +"((letrec-values(((for-loop_144)" "(lambda(defined-syms_3 lst_127)" "(begin" " 'for-loop" @@ -22404,10 +22419,10 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_158 defined-syms_4 rest_63)" +"(for-loop_144 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_158)" +" for-loop_144)" " defined-syms_2" " lst_126)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" @@ -22424,17 +22439,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_104)))" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_110 i_132)" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_110 i_133)" "(begin" " 'for-loop" -"(if i_132" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_132)))" +"(if i_133" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_133)))" "(let-values(((fold-var_111)" "(let-values(((lst_128) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_159)" "(lambda(fold-var_112 lst_129)" "(begin" " 'for-loop" @@ -22463,19 +22478,19 @@ static const char *startup_source = "(values" " fold-var_115)))))" "(if(not #f)" -"(for-loop_160" +"(for-loop_159" " fold-var_113" " rest_64)" " fold-var_113)))" " fold-var_112)))))" -" for-loop_160)" +" for-loop_159)" " fold-var_110" " lst_128)))))" "(if(not #f)" -"(for-loop_159 fold-var_111(hash-iterate-next ht_104 i_132))" +"(for-loop_158 fold-var_111(hash-iterate-next ht_104 i_133))" " fold-var_111)))" " fold-var_110)))))" -" for-loop_159)" +" for-loop_158)" " null" "(hash-iterate-first ht_104)))))" " #f))))))" @@ -22487,7 +22502,7 @@ static const char *startup_source = "(if or-part_184 or-part_184 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_12 mod-name_12 phase_63)" +"(lambda(r+p_12 mod-name_12 phase_49)" "(begin" "(let-values(((self_10)(requires+provides-self r+p_12)))" "(let-values(((requires_2)(requires+provides-requires r+p_12)))" @@ -22499,7 +22514,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_130)))" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_160)" "(lambda(fold-var_116 lst_131)" "(begin" " 'for-loop" @@ -22517,7 +22532,7 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_162)" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_119)" "(begin" " 'for-loop" @@ -22525,12 +22540,12 @@ static const char *startup_source = "(let-values(((fold-var_120)" "(let-values(((lst_132)" "(if(eq?" -" phase_63" +" phase_49" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_63))))" +" phase_49))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -22538,14 +22553,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_132)))" -"((letrec-values(((for-loop_163)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_121" " lst_133)" "(begin" " 'for-loop" "(if(pair?" " lst_133)" -"(let-values(((phase_64)" +"(let-values(((phase_63)" "(unsafe-car" " lst_133))" "((rest_66)" @@ -22555,7 +22570,7 @@ static const char *startup_source = "(let-values(((ht_105)" "(hash-ref" " phase-to-requireds_0" -" phase_64" +" phase_63" "(lambda()" "(esc_0" " #f)))))" @@ -22566,23 +22581,23 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_105)))" -"((letrec-values(((for-loop_164)" +"((letrec-values(((for-loop_163)" "(lambda(fold-var_123" -" i_133)" +" i_134)" "(begin" " 'for-loop" -"(if i_133" +"(if i_134" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" " ht_105" -" i_133)))" +" i_134)))" "(let-values(((fold-var_124)" "(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_165)" +"((letrec-values(((for-loop_164)" "(lambda(fold-var_125" " lst_135)" "(begin" @@ -22612,50 +22627,50 @@ static const char *startup_source = "(normalize-required" " reqd_2" " mod-name_13" -" phase_64" +" phase_63" " sym_39))" " fold-var_127))))" "(values" " fold-var_128)))))" "(if(not" " #f)" -"(for-loop_165" +"(for-loop_164" " fold-var_126" " rest_67)" " fold-var_126)))" " fold-var_125)))))" -" for-loop_165)" +" for-loop_164)" " fold-var_123" " lst_134)))))" "(if(not" " #f)" -"(for-loop_164" +"(for-loop_163" " fold-var_124" "(hash-iterate-next" " ht_105" -" i_133))" +" i_134))" " fold-var_124)))" " fold-var_123)))))" -" for-loop_164)" +" for-loop_163)" " fold-var_121" "(hash-iterate-first" " ht_105))))))" "(if(not" " #f)" -"(for-loop_163" +"(for-loop_162" " fold-var_122" " rest_66)" " fold-var_122)))" " fold-var_121)))))" -" for-loop_163)" +" for-loop_162)" " fold-var_119" " lst_132)))))" " fold-var_120))))))" -" for-loop_162)" -" fold-var_118)))))))" -"(if(not #f)(for-loop_161 fold-var_117 rest_65) fold-var_117)))" -" fold-var_116)))))" " for-loop_161)" +" fold-var_118)))))))" +"(if(not #f)(for-loop_160 fold-var_117 rest_65) fold-var_117)))" +" fold-var_116)))))" +" for-loop_160)" " null" " lst_130)))))))))))" "(define-values" @@ -22673,7 +22688,7 @@ static const char *startup_source = " 'add-provide!109" "(let-values(((r+p_13) r+p102_0))" "(let-values(((sym_40) sym103_0))" -"(let-values(((phase_14) phase104_0))" +"(let-values(((phase_64) phase104_0))" "(let-values(((binding_13) binding105_0))" "(let-values(((immed-binding_0) immed-binding106_0))" "(let-values(((id_27) id107_0))" @@ -22690,11 +22705,11 @@ static const char *startup_source = "(void))" "(hash-update!" "(requires+provides-provides r+p_13)" -" phase_14" +" phase_64" "(lambda(at-phase_9)" "(let-values(((b/p_0)(hash-ref at-phase_9 sym_40 #f)))" -"(let-values(((b_39)(provided-as-binding b/p_0)))" -"(if(not b_39)" +"(let-values(((b_65)(provided-as-binding b/p_0)))" +"(if(not b_65)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_13)" @@ -22731,7 +22746,7 @@ static const char *startup_source = "(if or-part_185 or-part_185 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" -"(if(same-binding? b_39 binding_13)" +"(if(same-binding? b_65 binding_13)" "(let-values() at-phase_9)" "(let-values()" "(raise-syntax-error$1" @@ -22759,7 +22774,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_136)))" -"((letrec-values(((for-loop_166)" +"((letrec-values(((for-loop_165)" "(lambda(fold-var_129 lst_137)" "(begin" " 'for-loop" @@ -22787,7 +22802,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_138)))" -"((letrec-values(((for-loop_167)" +"((letrec-values(((for-loop_166)" "(lambda(fold-var_133" " lst_139)" "(begin" @@ -22822,21 +22837,21 @@ static const char *startup_source = " fold-var_137)))))))" "(if(not" " #f)" -"(for-loop_167" +"(for-loop_166" " fold-var_134" " rest_69)" " fold-var_134)))" " fold-var_133)))))" -" for-loop_167)" +" for-loop_166)" " null" " lst_138))))))" " fold-var_131))))" "(values fold-var_132)))))" "(if(not #f)" -"(for-loop_166 fold-var_130 rest_68)" +"(for-loop_165 fold-var_130 rest_68)" " fold-var_130)))" " fold-var_129)))))" -" for-loop_166)" +" for-loop_165)" " null" " lst_136))))))))))" "(let-values(((extract-provides_0)" @@ -22855,15 +22870,15 @@ static const char *startup_source = "(let-values(((ht_106) provides_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_106)))" -"((letrec-values(((for-loop_168)" -"(lambda(table_132 i_134)" +"((letrec-values(((for-loop_167)" +"(lambda(table_133 i_135)" "(begin" " 'for-loop" -"(if i_134" -"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_106 i_134)))" -"(let-values(((table_133)" -"(let-values(((table_134) table_132))" -"(let-values(((table_135)" +"(if i_135" +"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_106 i_135)))" +"(let-values(((table_134)" +"(let-values(((table_135) table_133))" +"(let-values(((table_136)" "(let-values()" "(let-values(((key_52 val_43)" "(let-values()" @@ -22877,24 +22892,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_107)))" -"((letrec-values(((for-loop_169)" -"(lambda(table_136" -" i_135)" +"((letrec-values(((for-loop_168)" +"(lambda(table_137" +" i_136)" "(begin" " 'for-loop" -"(if i_135" +"(if i_136" "(let-values(((sym_41" " binding_14)" "(hash-iterate-key+value" " ht_107" -" i_135)))" -"(let-values(((table_137)" +" i_136)))" "(let-values(((table_138)" -" table_136))" -"(if(symbol-interned?" -" sym_41)" "(let-values(((table_139)" -" table_138))" +" table_137))" "(let-values(((table_140)" "(let-values()" "(let-values(((key_53" @@ -22935,28 +22946,27 @@ static const char *startup_source = " key_53" " val_44)))))" "(values" -" table_140)))" -" table_138))))" +" table_140)))))" "(if(not" " #f)" -"(for-loop_169" -" table_137" +"(for-loop_168" +" table_138" "(hash-iterate-next" " ht_107" -" i_135))" -" table_137)))" -" table_136)))))" -" for-loop_169)" +" i_136))" +" table_138)))" +" table_137)))))" +" for-loop_168)" " '#hasheq()" "(hash-iterate-first" " ht_107))))))))" -"(hash-set table_134 key_52 val_43)))))" -"(values table_135)))))" +"(hash-set table_135 key_52 val_43)))))" +"(values table_136)))))" "(if(not #f)" -"(for-loop_168 table_133(hash-iterate-next ht_106 i_134))" -" table_133)))" -" table_132)))))" -" for-loop_168)" +"(for-loop_167 table_134(hash-iterate-next ht_106 i_135))" +" table_134)))" +" table_133)))))" +" for-loop_167)" " '#hasheqv()" "(hash-iterate-first ht_106)))))))" "(define-values" @@ -22998,16 +23008,16 @@ static const char *startup_source = "(make-struct-field-accessor -ref_10 1 'syms))))" "(define-values" "(struct:adjust-rename adjust-rename4.1 adjust-rename? adjust-rename-to-id adjust-rename-from-sym)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))" "(values" -" struct:_62" -" make-_62" -" ?_62" -"(make-struct-field-accessor -ref_62 0 'to-id)" -"(make-struct-field-accessor -ref_62 1 'from-sym))))" +" struct:_61" +" make-_61" +" ?_61" +"(make-struct-field-accessor -ref_61 0 'to-id)" +"(make-struct-field-accessor -ref_61 1 'from-sym))))" "(define-values(layers$1) '(raw phaseless path))" "(define-values" "(parse-and-perform-requires!30.1)" @@ -23074,8 +23084,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_140)))" -"((letrec-values(((for-loop_170)" -"(lambda(result_74 lst_13)" +"((letrec-values(((for-loop_169)" +"(lambda(result_75 lst_13)" "(begin" " 'for-loop" "(if(pair? lst_13)" @@ -23085,10 +23095,10 @@ static const char *startup_source = "((rest_70)" "(unsafe-cdr" " lst_13)))" -"(let-values(((result_75)" -"(let-values()" "(let-values(((result_76)" "(let-values()" +"(let-values(((result_77)" +"(let-values()" "(let-values()" "(let-values(((check-nested_0)" "(let-values(((check-nested117_0)" @@ -24027,7 +24037,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_142)))" -"((letrec-values(((for-loop_171)" +"((letrec-values(((for-loop_170)" "(lambda(id_34" " lst_143)" "(begin" @@ -24071,12 +24081,12 @@ static const char *startup_source = " id_37)))))" "(if(not" " #f)" -"(for-loop_171" +"(for-loop_170" " id_35" " rest_72)" " id_35)))" " id_34)))))" -" for-loop_171)" +" for-loop_170)" " null" " lst_142)))))" "(reverse$1" @@ -24658,19 +24668,19 @@ static const char *startup_source = "(set! initial-require?_0" " #f)))))))))))))))))))))))))" "(values" -" result_76)))))" +" result_77)))))" "(if(if(not" "((lambda x_52" -"(not result_75))" +"(not result_76))" " req_0))" "(not #f)" " #f)" -"(for-loop_170" -" result_75" +"(for-loop_169" +" result_76" " rest_70)" -" result_75)))" -" result_74)))))" -" for-loop_170)" +" result_76)))" +" result_75)))))" +" for-loop_169)" " #t" " lst_140)))))))" " loop_85)" @@ -24689,7 +24699,7 @@ static const char *startup_source = "(let-values(((lst_146) ids_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_172)" +"((letrec-values(((for-loop_171)" "(lambda(table_141 lst_147)" "(begin" " 'for-loop" @@ -24706,9 +24716,9 @@ static const char *startup_source = " #t))))" "(hash-set table_143 key_54 val_45)))))" "(values table_144)))))" -"(if(not #f)(for-loop_172 table_142 rest_74) table_142)))" +"(if(not #f)(for-loop_171 table_142 rest_74) table_142)))" " table_141)))))" -" for-loop_172)" +" for-loop_171)" " '#hash()" " lst_146))))))" "(define-values" @@ -25080,6 +25090,11 @@ static const char *startup_source = "(module-binding-nominal-phase" " binding_16)))" "(let-values(((adjusted-sym_0)" +"(if(not" +"(symbol-interned?" +" sym_42))" +"(let-values()" +" #f)" "(if(if skip-variable-phase-level_1" "(if(not" " as-transformer?_3)" @@ -25113,7 +25128,7 @@ static const char *startup_source = "(let-values()" "(string->symbol" "(format" -" \"~a~a\"" +" \"~a~a\"" "(adjust-prefix-sym" " adjust_1)" " sym_42)))" @@ -25132,7 +25147,7 @@ static const char *startup_source = " #f))" "(string->symbol" "(format" -" \"~a~a\"" +" \"~a~a\"" "(adjust-all-except-prefix-sym" " adjust_1)" " sym_42))" @@ -25152,7 +25167,7 @@ static const char *startup_source = " adjust_1)" " #f)" " #f))" -"(void)))))))))" +"(void))))))))))" "(let-values(((skip-bind?_0)" "(if(if adjusted-sym_0" " requires+provides_3" @@ -25290,7 +25305,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_148)))" -"((letrec-values(((for-loop_173)" +"((letrec-values(((for-loop_172)" "(lambda(lst_149)" "(begin" " 'for-loop" @@ -25313,11 +25328,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_173" +"(for-loop_172" " rest_75)" "(values))))" "(values))))))" -" for-loop_173)" +" for-loop_172)" " lst_148)))" "(void)))" "(void))" @@ -25357,15 +25372,15 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_108)))" -"((letrec-values(((for-loop_174)" -"(lambda(i_136)" +"((letrec-values(((for-loop_173)" +"(lambda(i_137)" "(begin" " 'for-loop" -"(if i_136" +"(if i_137" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" " ht_108" -" i_136)))" +" i_137)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25387,13 +25402,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_174" +"(for-loop_173" "(unsafe-immutable-hash-iterate-next" " ht_108" -" i_136))" +" i_137))" "(values))))" "(values))))))" -" for-loop_174)" +" for-loop_173)" "(unsafe-immutable-hash-iterate-first" " ht_108))))" "(void)))" @@ -25442,15 +25457,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_109)))" -"((letrec-values(((for-loop_175)" -"(lambda(i_137)" +"((letrec-values(((for-loop_174)" +"(lambda(i_138)" "(begin" " 'for-loop" -"(if i_137" +"(if i_138" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" " ht_109" -" i_137)))" +" i_138)))" "(let-values((()" "(let-values()" "(if(let-values(((or-part_208)" @@ -25497,7 +25512,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_150)))" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_175)" "(lambda(lst_151)" "(begin" " 'for-loop" @@ -25522,7 +25537,7 @@ static const char *startup_source = " #f)))" "(if binding/p_4" "(let-values()" -"(let-values(((b_65)" +"(let-values(((b_66)" "(let-values(((binding/p294_0)" " binding/p_4)" "((sym295_0)" @@ -25544,7 +25559,7 @@ static const char *startup_source = " sym295_0))))" "(let-values(((sym_45)" "(filter_0" -" b_65" +" b_66" "(provided-as-transformer?" " binding/p_4))))" "(if(if sym_45" @@ -25557,7 +25572,7 @@ static const char *startup_source = " in-stx_2" " sym_45))" "((b301_0)" -" b_65)" +" b_66)" "((phase302_0)" " phase_67))" "(add-binding!17.1" @@ -25574,11 +25589,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_176" +"(for-loop_175" " rest_76)" "(values))))" "(values))))))" -" for-loop_176)" +" for-loop_175)" " lst_150)))" "(void)))" "(void))" @@ -25640,11 +25655,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_175" -"(hash-iterate-next ht_109 i_137))" +"(for-loop_174" +"(hash-iterate-next ht_109 i_138))" "(values))))" "(values))))))" -" for-loop_175)" +" for-loop_174)" "(hash-iterate-first ht_109))))" "(void)))))))))))))))))))))))" "(define-values" @@ -26002,7 +26017,7 @@ static const char *startup_source = " top-level-bind!-id" "(lambda(id_21 mpi_39 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_45)(phase+ orig-phase_0 phase-shift_14)))" -"(let-values(((b_66)" +"(let-values(((b_67)" "(let-values(((mpi4_0) mpi_39)" "((phase5_0) phase_45)" "((sym6_1) sym_46)" @@ -26030,7 +26045,7 @@ static const char *startup_source = " phase5_0" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_21)((b2_4) b_66)((phase3_1) phase_45))" +"(let-values(((id1_3) id_21)((b2_4) b_67)((phase3_1) phase_45))" "(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_21 phase_45))(void)))" @@ -26230,35 +26245,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_63" -" make-_63" -" ?_63" -"(make-struct-field-accessor -ref_63 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_63 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_63 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_63 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_63 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_63 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_63 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_63 7 'syntax-literals)" -"(make-struct-field-mutator -set!_63 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_63 5 'require-vars-in-order))))" +" struct:_62" +" make-_62" +" ?_62" +"(make-struct-field-accessor -ref_62 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_62 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_62 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_62 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_62 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_62 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_62 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_62 7 'syntax-literals)" +"(make-struct-field-mutator -set!_62 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_62 5 'require-vars-in-order))))" "(define-values" "(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'module-use)" -"(make-struct-field-accessor -ref_64 1 'sym))))" +" struct:_63" +" make-_63" +" ?_63" +"(make-struct-field-accessor -ref_63 0 'module-use)" +"(make-struct-field-accessor -ref_63 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26290,7 +26305,7 @@ static const char *startup_source = "(begin(check-vector vec_54)(values vec_54(unsafe-vector-length vec_54))))))" "(begin" " #f" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_176)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -26305,9 +26320,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_177(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_176(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_177)" +" for-loop_176)" " 0)))" "(void)" "(cons pos_84(vector-length vec_52)))))))" @@ -26515,7 +26530,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_152)))" -"((letrec-values(((for-loop_178)" +"((letrec-values(((for-loop_177)" "(lambda(ht_110 link-mod-uses_1 lst_153)" "(begin" " 'for-loop" @@ -26554,10 +26569,10 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_113 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_178 ht_111 link-mod-uses_2 rest_77)" +"(for-loop_177 ht_111 link-mod-uses_2 rest_77)" "(values ht_111 link-mod-uses_2))))" "(values ht_110 link-mod-uses_1))))))" -" for-loop_178)" +" for-loop_177)" " '#hash()" " null" " lst_152)))))" @@ -26567,7 +26582,7 @@ static const char *startup_source = "(let-values(((lst_154) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_154)))" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_178)" "(lambda(fold-var_138 lst_155)" "(begin" " 'for-loop" @@ -26643,16 +26658,16 @@ static const char *startup_source = " lst_52)))))" " fold-var_140))))" "(values fold-var_141)))))" -"(if(not #f)(for-loop_179 fold-var_139 rest_78) fold-var_139)))" +"(if(not #f)(for-loop_178 fold-var_139 rest_78) fold-var_139)))" " fold-var_138)))))" -" for-loop_179)" +" for-loop_178)" " null" " lst_154))))" "(reverse$1" "(let-values(((lst_156) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_179)" "(lambda(fold-var_143 lst_157)" "(begin" " 'for-loop" @@ -26701,7 +26716,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_180)" "(lambda(table_30)" "(begin" " 'for-loop" @@ -26715,7 +26730,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_182)" +"((letrec-values(((for-loop_181)" "(lambda(table_146)" "(begin" " 'for-loop" @@ -26730,7 +26745,7 @@ static const char *startup_source = " cross-linklet-inlining?_0))" "(let-values(((table_149)" " table_148))" -"(let-values(((table_120)" +"(let-values(((table_121)" "(let-values()" "(let-values(((key_56" " val_47)" @@ -26743,13 +26758,13 @@ static const char *startup_source = " key_56" " val_47)))))" "(values" -" table_120)))" +" table_121)))" " table_148))))" " table_147))))))" -" for-loop_182)" +" for-loop_181)" " table_30)))))" " table_31))))))" -" for-loop_181)" +" for-loop_180)" " table_34)))" " table_34))))" "(if(not" @@ -26767,16 +26782,16 @@ static const char *startup_source = " #f)))" " fold-var_145))))" "(values fold-var_146)))))" -"(if(not #f)(for-loop_180 fold-var_144 rest_79) fold-var_144)))" +"(if(not #f)(for-loop_179 fold-var_144 rest_79) fold-var_144)))" " fold-var_143)))))" -" for-loop_180)" +" for-loop_179)" " null" " lst_156))))" "(reverse$1" "(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_159)))" -"((letrec-values(((for-loop_183)" +"((letrec-values(((for-loop_182)" "(lambda(fold-var_147 lst_160)" "(begin" " 'for-loop" @@ -26810,9 +26825,9 @@ static const char *startup_source = " fold-var_150))))" "(values fold-var_151)))" " fold-var_149))))" -"(if(not #f)(for-loop_183 fold-var_148 rest_80) fold-var_148)))" +"(if(not #f)(for-loop_182 fold-var_148 rest_80) fold-var_148)))" " fold-var_147)))))" -" for-loop_183)" +" for-loop_182)" " null" " lst_159)))))))))" "(define-values" @@ -26968,7 +26983,7 @@ static const char *startup_source = "(if(list? s_305)" "(let-values() s_305)" "(if(pair? s_305)" -"(let-values()(let-values(((r_37)(to-syntax-list.1$1(cdr s_305))))(if r_37(cons(car s_305) r_37) #f)))" +"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_305))))(if r_38(cons(car s_305) r_38) #f)))" "(if(1/syntax? s_305)(let-values()(to-syntax-list.1$1(syntax-e$2 s_305)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" @@ -27037,7 +27052,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_161)))" -"((letrec-values(((for-loop_184)" +"((letrec-values(((for-loop_183)" "(lambda(fold-var_31 lst_162)" "(begin" " 'for-loop" @@ -27063,10 +27078,10 @@ static const char *startup_source = "(values" " fold-var_153)))))" "(if(not #f)" -"(for-loop_184 fold-var_66 rest_81)" +"(for-loop_183 fold-var_66 rest_81)" " fold-var_66)))" " fold-var_31)))))" -" for-loop_184)" +" for-loop_183)" " null" " lst_161))))))" " name_40" @@ -27085,12 +27100,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_185)" +"((letrec-values(((for-loop_184)" "(lambda(fold-var_154 lst_163)" "(begin" " 'for-loop" "(if(pair? lst_163)" -"(let-values(((r_38)(unsafe-car lst_163))" +"(let-values(((r_39)(unsafe-car lst_163))" "((rest_42)" "(unsafe-cdr lst_163)))" "(let-values(((fold-var_155)" @@ -27101,17 +27116,17 @@ static const char *startup_source = "(cons" "(let-values()" "(compile_0" -" r_38" +" r_39" " #f" " #t))" " fold-var_9))))" "(values" " fold-var_68)))))" "(if(not #f)" -"(for-loop_185 fold-var_155 rest_42)" +"(for-loop_184 fold-var_155 rest_42)" " fold-var_155)))" " fold-var_154)))))" -" for-loop_185)" +" for-loop_184)" " null" " lst_42))))))))" "(if(parsed-if? p_35)" @@ -27306,7 +27321,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_186)" +"((letrec-values(((for-loop_185)" "(lambda(fold-var_157 lst_96 pos_90)" "(begin" " 'for-loop" @@ -27329,9 +27344,9 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_79))))" "(values fold-var_80)))))" -"(if(not #f)(for-loop_186 fold-var_158 rest_82(+ pos_90 1)) fold-var_158)))" +"(if(not #f)(for-loop_185 fold-var_158 rest_82(+ pos_90 1)) fold-var_158)))" " fold-var_157)))))" -" for-loop_186)" +" for-loop_185)" " null" " lst_164" " start_33)))))))))" @@ -27397,7 +27412,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_166)))" -"((letrec-values(((for-loop_187)" +"((letrec-values(((for-loop_186)" "(lambda(fold-var_159 lst_167 lst_168)" "(begin" " 'for-loop" @@ -27433,7 +27448,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_170)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_187)" "(lambda(fold-var_2" " lst_171" " lst_172)" @@ -27471,13 +27486,13 @@ static const char *startup_source = " fold-var_163)))))" "(if(not" " #f)" -"(for-loop_188" +"(for-loop_187" " fold-var_92" " rest_85" " rest_86)" " fold-var_92)))" " fold-var_2)))))" -" for-loop_188)" +" for-loop_187)" " null" " lst_169" " lst_170))))" @@ -27491,10 +27506,10 @@ static const char *startup_source = " fold-var_161))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_187 fold-var_160 rest_83 rest_84)" +"(for-loop_186 fold-var_160 rest_83 rest_84)" " fold-var_160)))" " fold-var_159)))))" -" for-loop_187)" +" for-loop_186)" " null" " lst_165" " lst_166))))" @@ -27520,7 +27535,7 @@ static const char *startup_source = "(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))" "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_41)))" -"(let-values(((b_67)" +"(let-values(((b_68)" "(let-values(((or-part_216) normal-b_0))" "(if or-part_216" " or-part_216" @@ -27550,18 +27565,18 @@ static const char *startup_source = " temp46_0" " temp47_0))))))" "(let-values(((sym_5)" -"(if(local-binding? b_67)" -"(let-values()(local-binding-key b_67))" -"(if(module-binding? b_67)" +"(if(local-binding? b_68)" +"(let-values()(local-binding-key b_68))" +"(if(module-binding? b_68)" "(let-values()" "(let-values(((mpi_41)" "(if(parsed-top-id? p_41)" "(compile-context-self cctx_9)" -"(module-binding-module b_67))))" +"(module-binding-module b_68))))" "(if(parsed-primitive-id? p_41)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_67))" +"(if(zero?(module-binding-phase b_68))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" @@ -27569,23 +27584,23 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: cannot assign to a primitive:\"" -"(module-binding-sym b_67)))" +"(module-binding-sym b_68)))" "(void))" -"(module-binding-sym b_67)))" +"(module-binding-sym b_68)))" "(if(eq? mpi_41(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" "(header-binding-sym-to-define-sym header_6)" -"(module-binding-sym b_67))))" +"(module-binding-sym b_68))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" "((mpi49_0) mpi_41)" -"((temp50_0)(module-binding-phase b_67))" -"((temp51_0)(module-binding-sym b_67))" +"((temp50_0)(module-binding-phase b_68))" +"((temp51_0)(module-binding-sym b_68))" "((temp52_1)" "(let-values(((or-part_101)" -"(module-binding-extra-inspector b_67)))" +"(module-binding-extra-inspector b_68)))" "(if or-part_101" " or-part_101" "(let-values(((or-part_217)" @@ -27606,7 +27621,7 @@ static const char *startup_source = "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_67" +" b_68" "(parsed-s p_41)))))))" "(correlate~(parsed-s p_41)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" @@ -27631,24 +27646,24 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_114)))" "((letrec-values(((for-loop_94)" -"(lambda(result_77 i_138)" +"(lambda(result_78 i_139)" "(begin" " 'for-loop" -"(if i_138" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_138)))" -"(let-values(((result_78)" -"(let-values()" +"(if i_139" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_139)))" "(let-values(((result_79)" "(let-values()" +"(let-values(((result_80)" +"(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_79)))))" -"(if(if(not((lambda x_53(not result_78)) extra-insp_0))(not #f) #f)" -"(for-loop_94 result_78(unsafe-immutable-hash-iterate-next ht_114 i_138))" -" result_78)))" -" result_77)))))" +"(values result_80)))))" +"(if(if(not((lambda x_53(not result_79)) extra-insp_0))(not #f) #f)" +"(for-loop_94 result_79(unsafe-immutable-hash-iterate-next ht_114 i_139))" +" result_79)))" +" result_78)))))" " for-loop_94)" " #t" "(unsafe-immutable-hash-iterate-first ht_114)))))" @@ -27681,7 +27696,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -27697,13 +27712,13 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'extra-inspectorss)" -"(make-struct-field-accessor -ref_65 1 'self-inspector)" -"(make-struct-field-mutator -set!_65 0 'extra-inspectorss)" -"(make-struct-field-mutator -set!_65 1 'self-inspector))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'extra-inspectorss)" +"(make-struct-field-accessor -ref_64 1 'self-inspector)" +"(make-struct-field-mutator -set!_64 0 'extra-inspectorss)" +"(make-struct-field-mutator -set!_64 1 'self-inspector))))" "(define-values" "(module-uses-add-extra-inspectorsss)" "(lambda(mus_1 extra-inspectorsss_0)" @@ -27748,7 +27763,7 @@ 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)" +"((letrec-values(((for-loop_188)" "(lambda(fold-var_167 lst_17)" "(begin" " 'for-loop" @@ -27767,9 +27782,9 @@ static const char *startup_source = " #f))" " fold-var_168))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_189 fold-var_63 rest_88) fold-var_63)))" +"(if(not #f)(for-loop_188 fold-var_63 rest_88) fold-var_63)))" " fold-var_167)))))" -" for-loop_189)" +" for-loop_188)" " null" " lst_92)))))))))" "(define-values" @@ -27780,7 +27795,7 @@ static const char *startup_source = "(let-values(((lst_174) mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_189)" "(lambda(fold-var_70 lst_175)" "(begin" " 'for-loop" @@ -27797,9 +27812,9 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_71))))" "(values fold-var_170)))))" -"(if(not #f)(for-loop_190 fold-var_169 rest_89) fold-var_169)))" +"(if(not #f)(for-loop_189 fold-var_169 rest_89) fold-var_169)))" " fold-var_70)))))" -" for-loop_190)" +" for-loop_189)" " null" " lst_174)))))))" "(define-values" @@ -27812,7 +27827,7 @@ static const char *startup_source = "(let-values(((lst_176) mu*s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" -"((letrec-values(((for-loop_191)" +"((letrec-values(((for-loop_190)" "(lambda(fold-var_74 lst_9)" "(begin" " 'for-loop" @@ -27827,9 +27842,9 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_172)))))" -"(if(not #f)(for-loop_191 fold-var_171 rest_90) fold-var_171)))" +"(if(not #f)(for-loop_190 fold-var_171 rest_90) fold-var_171)))" " fold-var_74)))))" -" for-loop_191)" +" for-loop_190)" " null" " lst_176)))))" "(let-values()" @@ -27934,7 +27949,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_192)" +"((letrec-values(((for-loop_191)" "(lambda(table_150 lst_183)" "(begin" " 'for-loop" @@ -27982,9 +27997,9 @@ static const char *startup_source = " key_57" " val_49)))))" "(values table_153)))))" -"(if(not #f)(for-loop_192 table_151 rest_94) table_151)))" +"(if(not #f)(for-loop_191 table_151 rest_94) table_151)))" " table_150)))))" -" for-loop_192)" +" for-loop_191)" " '#hash()" " lst_182))))" "(let-values()" @@ -27993,7 +28008,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_193)" +"((letrec-values(((for-loop_192)" "(lambda(extra-inspectorss_8 lst_185)" "(begin" " 'for-loop" @@ -28016,10 +28031,10 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_193 extra-inspectorss_9 rest_95)" +"(for-loop_192 extra-inspectorss_9 rest_95)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_193)" +" for-loop_192)" "(let-values(((or-part_222) extra-inspectorss_7))" "(if or-part_222 or-part_222(seteq)))" " lst_184)))))))" @@ -28036,13 +28051,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_115)))" -"((letrec-values(((for-loop_194)" -"(lambda(new-extra-inspectorss_2 i_139)" +"((letrec-values(((for-loop_193)" +"(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" -"(if i_139" +"(if i_140" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_115 i_139)))" +"(hash-iterate-key+value ht_115 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28059,12 +28074,12 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_193" " new-extra-inspectorss_3" -"(hash-iterate-next ht_115 i_139))" +"(hash-iterate-next ht_115 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_194)" +" for-loop_193)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_115))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28076,18 +28091,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type 'link-info #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'link-info)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'link-module-uses)" -"(make-struct-field-accessor -ref_32 1 'imports)" -"(make-struct-field-accessor -ref_32 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_32 3 'def-decls))))" +" struct:_31" +" make-_31" +" ?_31" +"(make-struct-field-accessor -ref_31 0 'link-module-uses)" +"(make-struct-field-accessor -ref_31 1 'imports)" +"(make-struct-field-accessor -ref_31 2 'extra-inspectorsss)" +"(make-struct-field-accessor -ref_31 3 'def-decls))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -28188,7 +28203,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_186)))" -"((letrec-values(((for-loop_195)" +"((letrec-values(((for-loop_194)" "(lambda(lst_187)" "(begin" " 'for-loop" @@ -28214,11 +28229,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_195" +"(for-loop_194" " rest_96)" "(values))))" "(values))))))" -" for-loop_195)" +" for-loop_194)" " lst_186)))" "(values))))" "(let-values()" @@ -28243,7 +28258,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_188)))" -"((letrec-values(((for-loop_196)" +"((letrec-values(((for-loop_195)" "(lambda(lst_189)" "(begin" " 'for-loop" @@ -28275,7 +28290,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_190)))" -"((letrec-values(((for-loop_197)" +"((letrec-values(((for-loop_196)" "(lambda(lst_191)" "(begin" " 'for-loop" @@ -28316,11 +28331,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_197" +"(for-loop_196" " rest_98)" "(values))))" "(values))))))" -" for-loop_197)" +" for-loop_196)" " lst_190)))" "(void)))" "(if(parsed-begin-for-syntax?" @@ -28339,11 +28354,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_196" +"(for-loop_195" " rest_97)" "(values))))" "(values))))))" -" for-loop_196)" +" for-loop_195)" " lst_188)))" "(void))))))" " loop!_0)" @@ -28402,7 +28417,7 @@ static const char *startup_source = "((rest_84)" "(unsafe-cdr" " lst_193))" -"((i_140)" +"((i_141)" " pos_92))" "(let-values((()" "(let-values()" @@ -28433,7 +28448,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_194)))" -"((letrec-values(((for-loop_198)" +"((letrec-values(((for-loop_197)" "(lambda(fold-var_3" " lst_172)" "(begin" @@ -28462,12 +28477,12 @@ static const char *startup_source = " fold-var_92)))))" "(if(not" " #f)" -"(for-loop_198" +"(for-loop_197" " fold-var_175" " rest_85)" " fold-var_175)))" " fold-var_3)))))" -" for-loop_198)" +" for-loop_197)" " null" " lst_194)))))" "(let-values()" @@ -28481,7 +28496,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_104)))" -"((letrec-values(((for-loop_199)" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_177" " lst_195)" "(begin" @@ -28527,12 +28542,12 @@ static const char *startup_source = " fold-var_180)))))" "(if(not" " #f)" -"(for-loop_199" +"(for-loop_198" " fold-var_178" " rest_99)" " fold-var_178)))" " fold-var_177)))))" -" for-loop_199)" +" for-loop_198)" " null" " lst_104))))))))" "(let-values(((rhs_1)" @@ -28619,7 +28634,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_106)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_199)" "(lambda(fold-var_181" " lst_196)" "(begin" @@ -28648,12 +28663,12 @@ static const char *startup_source = " fold-var_36)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_199" " fold-var_182" " rest_100)" " fold-var_182)))" " fold-var_181)))))" -" for-loop_200)" +" for-loop_199)" " null" " lst_106)))))" " '((void))))" @@ -28712,7 +28727,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_197)))" -"((letrec-values(((for-loop_201)" +"((letrec-values(((for-loop_200)" "(lambda(fold-var_184" " lst_198)" "(begin" @@ -28746,12 +28761,12 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_200" " fold-var_185" " rest_101)" " fold-var_185)))" " fold-var_184)))))" -" for-loop_201)" +" for-loop_200)" " null" " lst_197))))))" "(let-values(((rhs_2)" @@ -28818,7 +28833,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_200)))" -"((letrec-values(((for-loop_202)" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_188" " lst_201" " lst_202)" @@ -28859,13 +28874,13 @@ static const char *startup_source = " fold-var_191)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_201" " fold-var_189" " rest_102" " rest_103)" " fold-var_189)))" " fold-var_188)))))" -" for-loop_202)" +" for-loop_201)" " null" " lst_199" " lst_200))))))" @@ -29022,7 +29037,7 @@ static const char *startup_source = " the-struct_53)))" " #f" "(=" -" i_140" +" i_141" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29172,7 +29187,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_205)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_202)" "(lambda(table_158" " lst_206)" "(begin" @@ -29255,7 +29270,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_207)))" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_180)" "(lambda(fold-var_192" " lst_208)" "(begin" @@ -29291,12 +29306,12 @@ static const char *startup_source = " fold-var_195)))))" "(if(not" " #f)" -"(for-loop_181" +"(for-loop_180" " fold-var_193" " rest_106)" " fold-var_193)))" " fold-var_192)))))" -" for-loop_181)" +" for-loop_180)" " null" " lst_207)))))" "(qq-append" @@ -29331,12 +29346,12 @@ static const char *startup_source = " table_161)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_202" " table_159" " rest_105)" " table_159)))" " table_158)))))" -" for-loop_203)" +" for-loop_202)" " '#hasheq()" " lst_205)))))" "(let-values(((body-linklets_0)" @@ -29349,21 +29364,21 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_203)" "(lambda(table_162" -" i_141)" +" i_142)" "(begin" " 'for-loop" -"(if i_141" +"(if i_142" "(let-values(((phase_53" " l+mu*s_0)" "(hash-iterate-key+value" " ht_116" -" i_141)))" +" i_142)))" "(let-values(((table_163)" -"(let-values(((table_121)" -" table_162))" "(let-values(((table_122)" +" table_162))" +"(let-values(((table_123)" "(let-values()" "(let-values(((key_60" " val_52)" @@ -29373,21 +29388,21 @@ static const char *startup_source = "(car" " l+mu*s_0)))))" "(hash-set" -" table_121" +" table_122" " key_60" " val_52)))))" "(values" -" table_122)))))" +" table_123)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_203" " table_163" "(hash-iterate-next" " ht_116" -" i_141))" +" i_142))" " table_163)))" " table_162)))))" -" for-loop_204)" +" for-loop_203)" " '#hasheq()" "(hash-iterate-first" " ht_116))))))" @@ -29401,17 +29416,17 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_117)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_204)" "(lambda(table_164" -" i_142)" +" i_143)" "(begin" " 'for-loop" -"(if i_142" +"(if i_143" "(let-values(((phase_78" " l+mu*s_1)" "(hash-iterate-key+value" " ht_117" -" i_142)))" +" i_143)))" "(let-values(((table_165)" "(let-values(((table_40)" " table_164))" @@ -29433,14 +29448,14 @@ static const char *startup_source = " table_166)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_204" " table_165" "(hash-iterate-next" " ht_117" -" i_142))" +" i_143))" " table_165)))" " table_164)))))" -" for-loop_205)" +" for-loop_204)" " '#hasheq()" "(hash-iterate-first" " ht_117))))))" @@ -29458,17 +29473,17 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_118)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_205)" "(lambda(table_167" -" i_143)" +" i_144)" "(begin" " 'for-loop" -"(if i_143" +"(if i_144" "(let-values(((phase_79" " l+mu*s_2)" "(hash-iterate-key+value" " ht_118" -" i_143)))" +" i_144)))" "(let-values(((table_168)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" @@ -29512,14 +29527,14 @@ static const char *startup_source = " table_167)))))" "(if(not" " #f)" -"(for-loop_206" +"(for-loop_205" " table_168" "(hash-iterate-next" " ht_118" -" i_143))" +" i_144))" " table_168)))" " table_167)))))" -" for-loop_206)" +" for-loop_205)" " '#hash()" "(hash-iterate-first" " ht_118))))))" @@ -29559,7 +29574,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_117)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_206)" "(lambda(fold-var_196 lst_211)" "(begin" " 'for-loop" @@ -29577,10 +29592,10 @@ static const char *startup_source = " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_207 fold-var_197 rest_107)" +"(for-loop_206 fold-var_197 rest_107)" " fold-var_197)))" " fold-var_196)))))" -" for-loop_207)" +" for-loop_206)" " null" " lst_117))))))))" "(begin" @@ -29593,7 +29608,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_116)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_207)" "(lambda(fold-var_200 lst_212 lst_3 lst_213)" "(begin" " 'for-loop" @@ -29629,10 +29644,10 @@ static const char *startup_source = " fold-var_202))))" "(values fold-var_203)))))" "(if(not #f)" -"(for-loop_208 fold-var_201 rest_108 rest_109 rest_110)" +"(for-loop_207 fold-var_201 rest_108 rest_109 rest_110)" " fold-var_201)))" " fold-var_200)))))" -" for-loop_208)" +" for-loop_207)" " null" " lst_209" " lst_210" @@ -29662,7 +29677,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_214)))" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_208)" "(lambda(fold-var_204 lst_215)" "(begin" " 'for-loop" @@ -29674,9 +29689,9 @@ static const char *startup_source = "(let-values()" "(cons(let-values() ''#f) fold-var_206))))" "(values fold-var_207)))))" -"(if(not #f)(for-loop_209 fold-var_205 rest_111) fold-var_205)))" +"(if(not #f)(for-loop_208 fold-var_205 rest_111) fold-var_205)))" " fold-var_204)))))" -" for-loop_209)" +" for-loop_208)" " null" " lst_214)))))))" "(list* 'begin finish_1 '((void)))))" @@ -29712,7 +29727,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_142)))" -"((letrec-values(((for-loop_171)" +"((letrec-values(((for-loop_170)" "(lambda(lst_216)" "(begin" " 'for-loop" @@ -29726,9 +29741,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171 rest_112)(values))))" +"(if(not #f)(for-loop_170 rest_112)(values))))" "(values))))))" -" for-loop_171)" +" for-loop_170)" " lst_142)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -29782,7 +29797,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_210)" +"((letrec-values(((for-loop_209)" "(lambda(fold-var_208 lst_220 lst_221 lst_222)" "(begin" " 'for-loop" @@ -29825,14 +29840,14 @@ static const char *startup_source = " fold-var_210))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_210" +"(for-loop_209" " fold-var_209" " rest_113" " rest_114" " rest_115)" " fold-var_209)))" " fold-var_208)))))" -" for-loop_210)" +" for-loop_209)" " null" " lst_217" " lst_218" @@ -29849,7 +29864,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_55 i_144)" +"(let-values(((vec_55 i_145)" "(let-values(((vec_56 len_28)" "(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29858,20 +29873,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_95)" -"(lambda(vec_58 i_145 pos_93)" +"(lambda(vec_58 i_146 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" "(let-values(((mpi_43)" "(unsafe-vector-ref vec_56 pos_93)))" -"(let-values(((vec_59 i_146)" +"(let-values(((vec_59 i_147)" "(let-values(((vec_60) vec_58)" -"((i_147) i_145))" -"(let-values(((vec_61 i_148)" +"((i_148) i_146))" +"(let-values(((vec_61 i_149)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_147" +" i_148" "(unsafe-vector*-length" " vec_60))" "(grow-vector" @@ -29880,7 +29895,7 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_3" -" i_147" +" i_148" "(let-values()" "(add-module-path-index!/pos" " mpis_17" @@ -29888,21 +29903,21 @@ static const char *startup_source = "(values" " new-vec_3" "(unsafe-fx+" -" i_147" +" i_148" " 1)))))))" -"(values vec_61 i_148)))))" +"(values vec_61 i_149)))))" "(if(not #f)" "(for-loop_95" " vec_59" -" i_146" +" i_147" "(unsafe-fx+ 1 pos_93))" -"(values vec_59 i_146))))" -"(values vec_58 i_145))))))" +"(values vec_59 i_147))))" +"(values vec_58 i_146))))))" " for-loop_95)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_55 i_144))))))" +"(shrink-vector vec_55 i_145))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30059,7 +30074,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_210)" "(lambda(table_173 lst_100 pos_95)" "(begin" " 'for-loop" @@ -30088,10 +30103,10 @@ static const char *startup_source = " val_55)))))" "(values table_176)))))" "(if(not #f)" -"(for-loop_211 table_174 rest_36(+ pos_95 1))" +"(for-loop_210 table_174 rest_36(+ pos_95 1))" " table_174)))" " table_173)))))" -" for-loop_211)" +" for-loop_210)" " '#hasheq()" " lst_224" " start_35)))))" @@ -30197,35 +30212,35 @@ static const char *startup_source = " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_65 make-_65 ?_65(make-struct-field-accessor -ref_65 0 'thunk))))" +"(values struct:_64 make-_64 ?_64(make-struct-field-accessor -ref_64 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_59 make-_59 ?_59)))" +"(values struct:_58 make-_58 ?_58)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_66" -" make-_66" -" ?_66" -"(make-struct-field-accessor -ref_66 0 'arity)" -"(make-struct-field-accessor -ref_66 1 'pure?))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'arity)" +"(make-struct-field-accessor -ref_65 1 'pure?))))" "(define-values" "(struct:known-function-of-satisfying" " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30240,7 +30255,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 0 'arg-predicate-keys))))" +"(values struct:_37 make-_37 ?_37(make-struct-field-accessor -ref_37 0 'arg-predicate-keys))))" "(define-values" "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -30250,23 +30265,23 @@ static const char *startup_source = "(values struct:_11 make-_11 ?_11(make-struct-field-accessor -ref_11 0 'key))))" "(define-values" "(struct:known-satisfies known-satisfies7.1 known-satisfies? known-satisfies-predicate-key)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_67 make-_67 ?_67(make-struct-field-accessor -ref_67 0 'predicate-key))))" +"(values struct:_66 make-_66 ?_66(make-struct-field-accessor -ref_66 0 'predicate-key))))" "(define-values" "(struct:known-struct-op known-struct-op8.1 known-struct-op? known-struct-op-type known-struct-op-field-count)" -"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" +"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" "(let-values()" "(let-values()" "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_35" -" make-_35" -" ?_35" -"(make-struct-field-accessor -ref_35 0 'type)" -"(make-struct-field-accessor -ref_35 1 'field-count))))" +" struct:_34" +" make-_34" +" ?_34" +"(make-struct-field-accessor -ref_34 0 'type)" +"(make-struct-field-accessor -ref_34 1 'field-count))))" "(define-values" "(lookup-defn)" "(lambda(defns_0 sym_51)" @@ -30474,8 +30489,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_8)))" -"((letrec-values(((for-loop_212)" -"(lambda(result_80" +"((letrec-values(((for-loop_211)" +"(lambda(result_81" " lst_225)" "(begin" " 'for-loop" @@ -30489,7 +30504,7 @@ static const char *startup_source = " lst_225)))" "(let-values(((result_40)" "(let-values()" -"(let-values(((result_81)" +"(let-values(((result_82)" "(let-values()" "(let-values()" "(not" @@ -30498,7 +30513,7 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_81)))))" +" result_82)))))" "(if(if(not" "((lambda x_54" "(not" @@ -30507,12 +30522,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_212" +"(for-loop_211" " result_40" " rest_118)" " result_40)))" -" result_80)))))" -" for-loop_212)" +" result_81)))))" +" for-loop_211)" " #t" " lst_8)))" " #f)))" @@ -30544,7 +30559,7 @@ static const char *startup_source = "(check-list" " lst_226)))" "((letrec-values(((for-loop_98)" -"(lambda(result_82" +"(lambda(result_83" " lst_178" " lst_227)" "(begin" @@ -30603,7 +30618,7 @@ static const char *startup_source = " rest_119" " rest_120)" " result_42)))" -" result_82)))))" +" result_83)))))" " for-loop_98)" " #t" " lst_10" @@ -30720,7 +30735,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_228)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_212)" "(lambda(ids_9" " rhs_5" " lst_229)" @@ -30830,7 +30845,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_213" +"(for-loop_212" " ids_10" " rhs_6" " rest_121)" @@ -30840,7 +30855,7 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_213)" +" for-loop_212)" " null" " null" " lst_228)))))" @@ -30940,8 +30955,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_231)))" -"((letrec-values(((for-loop_214)" -"(lambda(result_83" +"((letrec-values(((for-loop_213)" +"(lambda(result_84" " lst_232" " lst_198)" "(begin" @@ -30963,7 +30978,7 @@ static const char *startup_source = "((rest_122)" "(unsafe-cdr" " lst_198)))" -"(let-values(((result_84)" +"(let-values(((result_85)" "(let-values()" "(let-values(((result_14)" "(let-values()" @@ -30977,23 +30992,23 @@ static const char *startup_source = " result_14)))))" "(if(if(not" "((lambda x_56" -" result_84)" +" result_85)" " ids_13))" "(if(not" "((lambda x_57" -" result_84)" +" result_85)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_214" -" result_84" +"(for-loop_213" +" result_85" " rest_101" " rest_122)" -" result_84)))" -" result_83)))))" -" for-loop_214)" +" result_85)))" +" result_84)))))" +" for-loop_213)" " #f" " lst_230" " lst_231))))" @@ -31063,7 +31078,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_215)" +"((letrec-values(((for-loop_214)" "(lambda(result_61" " lst_233)" "(begin" @@ -31076,10 +31091,10 @@ static const char *startup_source = "((rest_123)" "(unsafe-cdr" " lst_233)))" -"(let-values(((result_85)" -"(let-values()" "(let-values(((result_86)" "(let-values()" +"(let-values(((result_87)" +"(let-values()" "(let-values()" "(not" "(effects?_0" @@ -31087,21 +31102,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_86)))))" +" result_87)))))" "(if(if(not" "((lambda x_58" "(not" -" result_85))" +" result_86))" " e_53))" "(not" " #f)" " #f)" -"(for-loop_215" -" result_85" +"(for-loop_214" +" result_86" " rest_123)" -" result_85)))" +" result_86)))" " result_61)))))" -" for-loop_215)" +" for-loop_214)" " #t" " lst_155)))" "(length e39_0)" @@ -31168,8 +31183,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_234)))" -"((letrec-values(((for-loop_216)" -"(lambda(result_87" +"((letrec-values(((for-loop_215)" +"(lambda(result_88" " lst_235)" "(begin" " 'for-loop" @@ -31181,10 +31196,10 @@ static const char *startup_source = "((rest_124)" "(unsafe-cdr" " lst_235)))" -"(let-values(((result_88)" -"(let-values()" "(let-values(((result_89)" "(let-values()" +"(let-values(((result_90)" +"(let-values()" "(let-values()" "(not" "(effects?_0" @@ -31192,21 +31207,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_89)))))" +" result_90)))))" "(if(if(not" "((lambda x_59" "(not" -" result_88))" +" result_89))" " e_56))" "(not" " #f)" " #f)" -"(for-loop_216" -" result_88" +"(for-loop_215" +" result_89" " rest_124)" -" result_88)))" -" result_87)))))" -" for-loop_216)" +" result_89)))" +" result_88)))))" +" for-loop_215)" " #t" " lst_234)))" " 1" @@ -31389,7 +31404,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_44)" -"(lambda(result_90" +"(lambda(result_91" " lst_236)" "(begin" " 'for-loop" @@ -31401,10 +31416,10 @@ static const char *startup_source = "((rest_125)" "(unsafe-cdr" " lst_236)))" -"(let-values(((result_91)" -"(let-values()" "(let-values(((result_92)" "(let-values()" +"(let-values(((result_93)" +"(let-values()" "(let-values()" "(not" "(effects?_0" @@ -31412,20 +31427,20 @@ static const char *startup_source = " #f" " locals_2))))))" "(values" -" result_92)))))" +" result_93)))))" "(if(if(not" "((lambda x_60" "(not" -" result_91))" +" result_92))" " e_62))" "(not" " #f)" " #f)" "(for-loop_44" -" result_91" +" result_92" " rest_125)" -" result_91)))" -" result_90)))))" +" result_92)))" +" result_91)))))" " for-loop_44)" " #t" " lst_39)))" @@ -31997,7 +32012,7 @@ static const char *startup_source = "(begin" "(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)" +"((letrec-values(((for-loop_216)" "(lambda(locals_5 lst_239 lst_240)" "(begin" " 'for-loop" @@ -32052,7 +32067,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_242)))" -"((letrec-values(((for-loop_218)" +"((letrec-values(((for-loop_217)" "(lambda(locals_9" " lst_243" " lst_244)" @@ -32091,13 +32106,13 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_218" +"(for-loop_217" " locals_10" " rest_128" " rest_129)" " locals_10)))" " locals_9)))))" -" for-loop_218)" +" for-loop_217)" " locals_7" " lst_241" " lst_242)))))" @@ -32125,7 +32140,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_245)))" -"((letrec-values(((for-loop_219)" +"((letrec-values(((for-loop_218)" "(lambda(locals_13" " lst_246)" "(begin" @@ -32152,20 +32167,20 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_219" +"(for-loop_218" " locals_14" " rest_130)" " locals_14)))" " locals_13)))))" -" for-loop_219)" +" for-loop_218)" " locals_7" " lst_245)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_217 locals_6 rest_126 rest_127) locals_6)))" +"(if(not #f)(for-loop_216 locals_6 rest_126 rest_127) locals_6)))" " locals_5)))))" -" for-loop_217)" +" for-loop_216)" " locals_4" " lst_237" " lst_238))))))" @@ -32187,8 +32202,8 @@ static const char *startup_source = "(begin" "(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_172)" -"(lambda(result_93 lst_147 lst_249)" +"((letrec-values(((for-loop_171)" +"(lambda(result_94 lst_147 lst_249)" "(begin" " 'for-loop" "(if(if(pair? lst_147)(pair? lst_249) #f)" @@ -32196,18 +32211,18 @@ static const char *startup_source = "((rest_131)(unsafe-cdr lst_147))" "((pred_1)(unsafe-car lst_249))" "((rest_132)(unsafe-cdr lst_249)))" -"(let-values(((result_94)" -"(let-values()" "(let-values(((result_95)" +"(let-values()" +"(let-values(((result_96)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_95)))))" -"(if(if(not((lambda x_61(not result_94)) arg_0))" -"(if(not((lambda x_62(not result_94)) pred_1))(not #f) #f)" +"(values result_96)))))" +"(if(if(not((lambda x_61(not result_95)) arg_0))" +"(if(not((lambda x_62(not result_95)) pred_1))(not #f) #f)" " #f)" -"(for-loop_172 result_94 rest_131 rest_132)" -" result_94)))" -" result_93)))))" -" for-loop_172)" +"(for-loop_171 result_95 rest_131 rest_132)" +" result_95)))" +" result_94)))))" +" for-loop_171)" " #t" " lst_247" " lst_248)))" @@ -32229,17 +32244,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_220)" -"(lambda(result_96 lst_251)" +"((letrec-values(((for-loop_219)" +"(lambda(result_97 lst_251)" "(begin" " 'for-loop" "(if(pair? lst_251)" "(let-values(((prop+val_0)(unsafe-car lst_251))" "((rest_133)(unsafe-cdr lst_251)))" -"(let-values(((result_97)" -"(let-values()" "(let-values(((result_98)" "(let-values()" +"(let-values(((result_99)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -32291,14 +32306,14 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_98)))))" -"(if(if(not((lambda x_63(not result_97)) prop+val_0))" +"(values result_99)))))" +"(if(if(not((lambda x_63(not result_98)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_220 result_97 rest_133)" -" result_97)))" -" result_96)))))" -" for-loop_220)" +"(for-loop_219 result_98 rest_133)" +" result_98)))" +" result_97)))))" +" for-loop_219)" " #t" " lst_250)))" "(=" @@ -32309,7 +32324,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_252)))" -"((letrec-values(((for-loop_221)" +"((letrec-values(((for-loop_220)" "(lambda(table_177 lst_253)" "(begin" " 'for-loop" @@ -32335,9 +32350,9 @@ static const char *startup_source = " key_66" " val_56)))))" "(values table_180)))))" -"(if(not #f)(for-loop_221 table_178 rest_134) table_178)))" +"(if(not #f)(for-loop_220 table_178 rest_134) table_178)))" " table_177)))))" -" for-loop_221)" +" for-loop_220)" " '#hash()" " lst_252)))))" " #f)" @@ -32394,30 +32409,30 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_160)" -"(lambda(result_99 lst_129 lst_256)" +"((letrec-values(((for-loop_221)" +"(lambda(result_100 lst_256 lst_129)" "(begin" " 'for-loop" -"(if(if(pair? lst_129)(pair? lst_256) #f)" -"(let-values(((arg_1)(unsafe-car lst_129))" -"((rest_135)(unsafe-cdr lst_129))" -"((pred_2)(unsafe-car lst_256))" -"((rest_136)(unsafe-cdr lst_256)))" -"(let-values(((result_100)" -"(let-values()" +"(if(if(pair? lst_256)(pair? lst_129) #f)" +"(let-values(((arg_1)(unsafe-car lst_256))" +"((rest_64)(unsafe-cdr lst_256))" +"((pred_2)(unsafe-car lst_129))" +"((rest_135)(unsafe-cdr lst_129)))" "(let-values(((result_101)" "(let-values()" +"(let-values(((result_102)" +"(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_101)))))" -"(if(if(not((lambda x_64(not result_100)) arg_1))" -"(if(not((lambda x_65(not result_100)) pred_2))" +"(values result_102)))))" +"(if(if(not((lambda x_64(not result_101)) arg_1))" +"(if(not((lambda x_65(not result_101)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_160 result_100 rest_135 rest_136)" -" result_100)))" -" result_99)))))" -" for-loop_160)" +"(for-loop_221 result_101 rest_64 rest_135)" +" result_101)))" +" result_100)))))" +" for-loop_221)" " #t" " lst_254" " lst_255)))" @@ -32488,16 +32503,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_257)))" "((letrec-values(((for-loop_222)" -"(lambda(result_102 lst_258)" +"(lambda(result_103 lst_258)" "(begin" " 'for-loop" "(if(pair? lst_258)" "(let-values(((prop+val_3)(unsafe-car lst_258))" -"((rest_137)(unsafe-cdr lst_258)))" -"(let-values(((result_103)" -"(let-values()" +"((rest_136)(unsafe-cdr lst_258)))" "(let-values(((result_104)" "(let-values()" +"(let-values(((result_105)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -32518,31 +32533,31 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_104)))))" -"(if(if(not((lambda x_66(not result_103)) prop+val_3))" +"(values result_105)))))" +"(if(if(not((lambda x_66(not result_104)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_222 result_103 rest_137)" -" result_103)))" -" result_102)))))" +"(for-loop_222 result_104 rest_136)" +" result_104)))" +" result_103)))))" " for-loop_222)" " #t" " lst_257)))" "(=" "(sub1(correlated-length v_179))" "(set-count" -"(let-values(((lst_135)(cdr(correlated->list v_179))))" +"(let-values(((lst_259)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_135)))" +"(let-values()(check-list lst_259)))" "((letrec-values(((for-loop_223)" -"(lambda(table_181 lst_259)" +"(lambda(table_181 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((prop+val_5)(unsafe-car lst_259))" -"((rest_138)(unsafe-cdr lst_259)))" +"(if(pair? lst_260)" +"(let-values(((prop+val_5)(unsafe-car lst_260))" +"((rest_137)(unsafe-cdr lst_260)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" @@ -32562,11 +32577,11 @@ static const char *startup_source = " key_67" " val_57)))))" "(values table_184)))))" -"(if(not #f)(for-loop_223 table_182 rest_138) table_182)))" +"(if(not #f)(for-loop_223 table_182 rest_137) table_182)))" " table_181)))))" " for-loop_223)" " '#hash()" -" lst_135)))))" +" lst_259)))))" " #f)" " #f)" " #f))))))))" @@ -32667,21 +32682,21 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" "((letrec-values(((for-loop_224)" -"(lambda(result_105 lst_260)" +"(lambda(result_106 lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((a_41)(unsafe-car lst_260))((rest_139)(unsafe-cdr lst_260)))" -"(let-values(((result_106)" -"(let-values()" +"(if(pair? lst_261)" +"(let-values(((a_41)(unsafe-car lst_261))((rest_138)(unsafe-cdr lst_261)))" "(let-values(((result_107)" "(let-values()" +"(let-values(((result_108)" +"(let-values()" "(let-values()(equal? a_41 n_25)))))" -"(values result_107)))))" -"(if(if(not((lambda x_67 result_106) a_41))(not #f) #f)" -"(for-loop_224 result_106 rest_139)" -" result_106)))" -" result_105)))))" +"(values result_108)))))" +"(if(if(not((lambda x_67 result_107) a_41))(not #f) #f)" +"(for-loop_224 result_107 rest_138)" +" result_107)))" +" result_106)))))" " for-loop_224)" " #f" " lst_67)))" @@ -32729,29 +32744,29 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_70 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_261) l_62))" +"(let-values(((lst_262) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" +"(let-values()(check-list lst_262)))" "((letrec-values(((for-loop_225)" -"(lambda(result_108 lst_119)" +"(lambda(result_109 lst_119)" "(begin" " 'for-loop" "(if(pair? lst_119)" "(let-values(((n_26)(unsafe-car lst_119))((rest_59)(unsafe-cdr lst_119)))" -"(let-values(((result_109)" -"(let-values()" "(let-values(((result_110)" +"(let-values()" +"(let-values(((result_111)" "(let-values()(let-values()(< n_26 c_24)))))" -"(values result_110)))))" -"(if(if(not((lambda x_68(not result_109)) n_26))(not #f) #f)" -"(for-loop_225 result_109 rest_59)" -" result_109)))" -" result_108)))))" +"(values result_111)))))" +"(if(if(not((lambda x_68(not result_110)) n_26))(not #f) #f)" +"(for-loop_225 result_110 rest_59)" +" result_110)))" +" result_109)))))" " for-loop_225)" " #t" -" lst_261)))" +" lst_262)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -33248,11 +33263,11 @@ 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_262) requires_3))" +"(let-values(((lst_263) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" +"(let-values()(check-list lst_263)))" "((letrec-values(((for-loop_227)" "(lambda(lst_16)" "(begin" @@ -33270,7 +33285,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_264)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33279,7 +33294,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_263)))" +" lst_264)))" "((letrec-values(((for-loop_228)" "(lambda(lst_79)" "(begin" @@ -33361,14 +33376,14 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_228)" -" lst_263)))" +" lst_264)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_227 rest_4)(values))))" "(values))))))" " for-loop_227)" -" lst_262)))" +" lst_263)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" @@ -33379,12 +33394,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_124)))" "((letrec-values(((for-loop_106)" -"(lambda(i_149)" +"(lambda(i_150)" "(begin" " 'for-loop" -"(if i_149" +"(if i_150" "(let-values(((phase_85 linklet_3)" -"(hash-iterate-key+value ht_124 i_149)))" +"(hash-iterate-key+value ht_124 i_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33392,7 +33407,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_265)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33400,19 +33415,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_264)))" +"(check-list lst_265)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_265)" +"(lambda(lst_266)" "(begin" " 'for-loop" "(if(pair?" -" lst_265)" +" lst_266)" "(let-values(((sym_56)" "(unsafe-car" -" lst_265))" -"((rest_140)" +" lst_266))" +"((rest_139)" "(unsafe-cdr" -" lst_265)))" +" lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33475,16 +33490,16 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_229" -" rest_140)" +" rest_139)" "(values))))" "(values))))))" " for-loop_229)" -" lst_264)))" +" lst_265)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_124 i_149))" +"(for-loop_106(hash-iterate-next ht_124 i_150))" "(values))))" "(values))))))" " for-loop_106)" @@ -33553,7 +33568,7 @@ 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_266) import-module-uses_0)" +"((lst_267) import-module-uses_0)" "((lst_89) import-module-instances_0)" "((lst_163)" "(let-values(((or-part_70) extra-inspectorsss_4))" @@ -33564,7 +33579,7 @@ static const char *startup_source = "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_89)))" @@ -33572,16 +33587,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_163)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_265 lst_267 lst_24 lst_102)" +"(lambda(lst_266 lst_268 lst_24 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_265)" -"(if(pair? lst_267)(if(pair? lst_24)(pair? lst_102) #f) #f)" +"(if(if(pair? lst_266)" +"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_265))" -"((rest_141)(unsafe-cdr lst_265))" -"((mu_7)(unsafe-car lst_267))" -"((rest_142)(unsafe-cdr lst_267))" +"(let-values(((import-syms_0)(unsafe-car lst_266))" +"((rest_140)(unsafe-cdr lst_266))" +"((mu_7)(unsafe-car lst_268))" +"((rest_141)(unsafe-cdr lst_268))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" "((extra-inspectorss_14)(unsafe-car lst_102))" @@ -33711,12 +33726,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_229 rest_141 rest_142 rest_43 rest_117)" +"(for-loop_229 rest_140 rest_141 rest_43 rest_117)" "(values))))" "(values))))))" " for-loop_229)" " lst_42" -" lst_266" +" lst_267" " lst_89" " lst_163)))" "(void)))))))))))))" @@ -33958,7 +33973,7 @@ static const char *startup_source = "(let-values(((name_49)" "(unsafe-car" " lst_7))" -"((rest_143)" +"((rest_142)" "(unsafe-cdr" " lst_7)))" "(let-values((()" @@ -33998,7 +34013,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_234" -" rest_143)" +" rest_142)" "(values))))" "(values))))))" " for-loop_234)" @@ -34115,7 +34130,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_268)" +"(let-values(((lst_269)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34123,21 +34138,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_268)))" +" lst_269)))" "((letrec-values(((for-loop_235)" "(lambda(mis_2" " is_1" -" lst_269)" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" +" lst_270)" "(let-values(((mu_8)" "(unsafe-car" -" lst_269))" -"((rest_144)" +" lst_270))" +"((rest_143)" "(unsafe-cdr" -" lst_269)))" +" lst_270)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34188,7 +34203,7 @@ static const char *startup_source = "(for-loop_235" " mis_3" " is_2" -" rest_144)" +" rest_143)" "(values" " mis_3" " is_2))))" @@ -34198,7 +34213,7 @@ static const char *startup_source = " for-loop_235)" " null" " null" -" lst_268)))))" +" lst_269)))))" "(values" "(reverse$1" " mis_1)" @@ -34388,16 +34403,16 @@ static const char *startup_source = " ns_60)))))))))))))))))))))))))))))))))" "(define-values" "(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_68 1 'cache-key))))" +" struct:_67" +" make-_67" +" ?_67" +"(make-struct-field-accessor -ref_67 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_67 1 'cache-key))))" "(define-values" "(init-instance-data!)" "(lambda(data-box_4" @@ -34584,11 +34599,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_125)))" "((letrec-values(((for-loop_236)" -"(lambda(table_192 i_150)" +"(lambda(table_192 i_151)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_87 linklet_5)(hash-iterate-key+value ht_125 i_150)))" +"(if i_151" +"(let-values(((phase_87 linklet_5)(hash-iterate-key+value ht_125 i_151)))" "(let-values(((table_193)" "(let-values(((table_194) table_192))" "(let-values(((table_145)" @@ -34602,7 +34617,7 @@ static const char *startup_source = "(hash-set table_194 key_71 val_61)))))" "(values table_145)))))" "(if(not #f)" -"(for-loop_236 table_193(hash-iterate-next ht_125 i_150))" +"(for-loop_236 table_193(hash-iterate-next ht_125 i_151))" " table_193)))" " table_192)))))" " for-loop_236)" @@ -34624,12 +34639,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_126)))" "((letrec-values(((for-loop_100)" -"(lambda(fold-var_59 i_151)" +"(lambda(fold-var_59 i_152)" "(begin" " 'for-loop" -"(if i_151" +"(if i_152" "(let-values(((phase_88 at-phase_11)" -"(hash-iterate-key+value ht_126 i_151)))" +"(hash-iterate-key+value ht_126 i_152)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" "(reverse$1" @@ -34644,15 +34659,15 @@ static const char *startup_source = " ht_119)))" "((letrec-values(((for-loop_237)" "(lambda(fold-var_216" -" i_152)" +" i_153)" "(begin" " 'for-loop" -"(if i_152" +"(if i_153" "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" " ht_119" -" i_152)))" +" i_153)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218)" " fold-var_216))" @@ -34664,7 +34679,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((b_68)" +"(let-values(((b_69)" "(provided-as-binding" " b/p_1)))" "(list" @@ -34672,16 +34687,16 @@ static const char *startup_source = "(if(eq?" " self_24" "(module-binding-module" -" b_68))" +" b_69))" "(let-values()" " null)" "(let-values()" "(reverse$1" "(let-values(((lst_87)" "(cons" -" b_68" +" b_69" "(module-binding-extra-nominal-bindings" -" b_68))))" +" b_69))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -34691,17 +34706,17 @@ static const char *startup_source = " lst_87)))" "((letrec-values(((for-loop_238)" "(lambda(fold-var_32" -" lst_270)" +" lst_271)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" -"(let-values(((b_69)" +" lst_271)" +"(let-values(((b_70)" "(unsafe-car" -" lst_270))" -"((rest_145)" +" lst_271))" +"((rest_144)" "(unsafe-cdr" -" lst_270)))" +" lst_271)))" "(let-values(((fold-var_152)" "(let-values(((fold-var_153)" " fold-var_32))" @@ -34711,26 +34726,26 @@ static const char *startup_source = "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_69)" +" b_70)" " phase_88)" "(eq?" "(module-binding-nominal-sym" -" b_69)" +" b_70)" " sym_58)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_69))" +" b_70))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_69)" +" b_70)" "(module-binding-phase" -" b_69)" +" b_70)" "(module-binding-nominal-sym" -" b_69)" +" b_70)" "(module-binding-nominal-phase" -" b_69)))))" +" b_70)))))" " fold-var_153))))" "(values" " fold-var_26)))))" @@ -34738,7 +34753,7 @@ static const char *startup_source = " #f)" "(for-loop_238" " fold-var_152" -" rest_145)" +" rest_144)" " fold-var_152)))" " fold-var_32)))))" " for-loop_238)" @@ -34754,7 +34769,7 @@ static const char *startup_source = " fold-var_217" "(hash-iterate-next" " ht_119" -" i_152))" +" i_153))" " fold-var_217)))" " fold-var_216)))))" " for-loop_237)" @@ -34804,7 +34819,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_100" " fold-var_60" -"(hash-iterate-next ht_126 i_151))" +"(hash-iterate-next ht_126 i_152))" " fold-var_60)))" " fold-var_59)))))" " for-loop_100)" @@ -34850,17 +34865,17 @@ static const char *startup_source = "(check-list lst_18)))" "((letrec-values(((for-loop_239)" "(lambda(fold-var_18" -" lst_271)" +" lst_272)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" +" lst_272)" "(let-values(((var-sym_5)" "(unsafe-car" -" lst_271))" -"((rest_146)" +" lst_272))" +"((rest_145)" "(unsafe-cdr" -" lst_271)))" +" lst_272)))" "(let-values(((fold-var_70)" "(let-values(((fold-var_213)" " fold-var_18))" @@ -34883,7 +34898,7 @@ static const char *startup_source = " #f)" "(for-loop_239" " fold-var_70" -" rest_146)" +" rest_145)" " fold-var_70)))" " fold-var_18)))))" " for-loop_239)" @@ -35015,13 +35030,13 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_127)))" "((letrec-values(((for-loop_240)" -"(lambda(table_195 i_153)" +"(lambda(table_195 i_154)" "(begin" " 'for-loop" -"(if i_153" -"(let-values(((key_72 val_62)(hash-iterate-key+value ht_127 i_153)))" +"(if i_154" +"(let-values(((key_72 val_62)(hash-iterate-key+value ht_127 i_154)))" "(let-values(((table_196)" -"(let-values(((table_114) table_195))" +"(let-values(((table_115) table_195))" "(let-values(((table_197)" "(let-values()" "(let-values(((key_73 val_63)" @@ -35036,12 +35051,12 @@ static const char *startup_source = " val_62" " key_72))))))" "(hash-set" -" table_114" +" table_115" " key_73" " val_63)))))" "(values table_197)))))" "(if(not #f)" -"(for-loop_240 table_196(hash-iterate-next ht_127 i_153))" +"(for-loop_240 table_196(hash-iterate-next ht_127 i_154))" " table_196)))" " table_195)))))" " for-loop_240)" @@ -35070,12 +35085,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_173)))" "((letrec-values(((for-loop_48)" -"(lambda(ht_128 lst_272)" +"(lambda(ht_128 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((submod_1)(unsafe-car lst_272))" -"((rest_147)(unsafe-cdr lst_272)))" +"(if(pair? lst_273)" +"(let-values(((submod_1)(unsafe-car lst_273))" +"((rest_146)(unsafe-cdr lst_273)))" "(let-values(((ht_129)" "(let-values(((ht_130) ht_128))" "(let-values(((ht_120)" @@ -35097,7 +35112,7 @@ static const char *startup_source = "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_120)))))" -"(if(not #f)(for-loop_48 ht_129 rest_147) ht_129)))" +"(if(not #f)(for-loop_48 ht_129 rest_146) ht_129)))" " ht_128)))))" " for-loop_48)" " '#hasheq()" @@ -35122,8 +35137,8 @@ static const char *startup_source = "(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))" "(let-values(((or-part_26)" "(if(1/linklet-directory? ld_3)" -"(if(let-values(((b_70)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_70(hash-ref(1/linklet-bundle->hash b_70) 'decl #f) #f))" +"(if(let-values(((b_71)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_71(hash-ref(1/linklet-bundle->hash b_71) 'decl #f) #f))" " #t" " #f)" " #f)))" @@ -35164,7 +35179,7 @@ static const char *startup_source = "(let-values(((i-name_0 prefix_5)" "(if(symbol? name_54)" "(values name_54 null)" -"(let-values(((r_39)(reverse$1 name_54)))(values(car r_39)(reverse$1(cdr r_39)))))))" +"(let-values(((r_40)(reverse$1 name_54)))(values(car r_40)(reverse$1(cdr r_40)))))))" "(change-module-name c_36 i-name_0 prefix_5)))))))" "(define-values" "(1/module-compiled-submodules)" @@ -35194,12 +35209,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_72)" -"(lambda(fold-var_30 lst_273)" +"(lambda(fold-var_30 lst_274)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((name_55)(unsafe-car lst_273))" -"((rest_148)(unsafe-cdr lst_273)))" +"(if(pair? lst_274)" +"(let-values(((name_55)(unsafe-car lst_274))" +"((rest_147)(unsafe-cdr lst_274)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(let-values(((fold-var_33)" @@ -35209,7 +35224,7 @@ static const char *startup_source = "(hash-ref ht_131 name_55))" " fold-var_32))))" "(values fold-var_33)))))" -"(if(not #f)(for-loop_72 fold-var_31 rest_148) fold-var_31)))" +"(if(not #f)(for-loop_72 fold-var_31 rest_147) fold-var_31)))" " fold-var_30)))))" " for-loop_72)" " null" @@ -35357,13 +35372,13 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" "((letrec-values(((for-loop_103)" -"(lambda(table_111 pos_100)" +"(lambda(table_112 pos_100)" "(begin" " 'for-loop" "(if(< pos_100 end_27)" "(let-values(((phase-level_20) pos_100))" "(let-values(((table_198)" -"(let-values(((table_61) table_111))" +"(let-values(((table_61) table_112))" "(let-values(((table_199)" "(let-values()" "(let-values(((key_74 val_48)" @@ -35382,7 +35397,7 @@ static const char *startup_source = "(hash-set table_61 key_74 val_48)))))" "(values table_199)))))" "(if(not #f)(for-loop_103 table_198(+ pos_100 inc_21)) table_198)))" -" table_111)))))" +" table_112)))))" " for-loop_103)" " '#hash()" " start_38)))))))))))" @@ -35435,11 +35450,11 @@ static const char *startup_source = "(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_71 pre?_1 submods_2)" +"(lambda(b_72 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_71)" +"(1/linklet-bundle->hash b_72)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35488,14 +35503,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_124)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 i_154)" +"(lambda(fold-var_67 i_155)" "(begin" " 'for-loop" -"(if i_154" +"(if i_155" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" " ht_124" -" i_154)))" +" i_155)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_155)" " fold-var_67))" @@ -35528,7 +35543,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_106" " fold-var_29" -"(hash-iterate-next ht_124 i_154))" +"(hash-iterate-next ht_124 i_155))" " fold-var_29)))" " fold-var_67)))))" " for-loop_106)" @@ -35771,7 +35786,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_274)" +"(let-values(((lst_275)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35779,7 +35794,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_274)))" +" lst_275)))" "((letrec-values(((for-loop_13)" "(lambda(lst_29)" "(begin" @@ -35789,7 +35804,7 @@ static const char *startup_source = "(let-values(((kw_0)" "(unsafe-car" " lst_29))" -"((rest_149)" +"((rest_148)" "(unsafe-cdr" " lst_29)))" "(let-values((()" @@ -35824,11 +35839,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_13" -" rest_149)" +" rest_148)" "(values))))" "(values))))))" " for-loop_13)" -" lst_274)))" +" lst_275)))" "(void)" " #f)))" "(let-values() #f))))" @@ -35895,15 +35910,15 @@ static const char *startup_source = "(check-in-hash ht_133)))" "((letrec-values(((for-loop_241)" "(lambda(table_200" -" i_155)" +" i_156)" "(begin" " 'for-loop" -"(if i_155" +"(if i_156" "(let-values(((phase_91" " linklet_7)" "(hash-iterate-key+value" " ht_133" -" i_155)))" +" i_156)))" "(let-values(((table_201)" "(let-values(((table_202)" " table_200))" @@ -35941,7 +35956,7 @@ static const char *startup_source = " table_201" "(hash-iterate-next" " ht_133" -" i_155))" +" i_156))" " table_201)))" " table_200)))))" " for-loop_241)" @@ -36265,17 +36280,17 @@ static const char *startup_source = " lst_206)))" "((letrec-values(((for-loop_122)" "(lambda(ht_134" -" lst_275)" +" lst_276)" "(begin" " 'for-loop" "(if(pair?" -" lst_275)" +" lst_276)" "(let-values(((sm_0)" "(unsafe-car" -" lst_275))" -"((rest_150)" +" lst_276))" +"((rest_149)" "(unsafe-cdr" -" lst_275)))" +" lst_276)))" "(let-values(((ht_135)" "(let-values(((ht_136)" " ht_134))" @@ -36296,7 +36311,7 @@ static const char *startup_source = " #f)" "(for-loop_122" " ht_135" -" rest_150)" +" rest_149)" " ht_135)))" " ht_134)))))" " for-loop_122)" @@ -36333,15 +36348,15 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_276) pre-submodules_2))" +"(let-values(((lst_277) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" "((letrec-values(((for-loop_242)" -"(lambda(lst_277)" +"(lambda(lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((s_394)(unsafe-car lst_277))((rest_151)(unsafe-cdr lst_277)))" +"(if(pair? lst_278)" +"(let-values(((s_394)(unsafe-car lst_278))((rest_150)(unsafe-cdr lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36449,10 +36464,10 @@ static const char *startup_source = " ht_137))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_242 rest_151)(values))))" +"(if(not #f)(for-loop_242 rest_150)(values))))" "(values))))))" " for-loop_242)" -" lst_276)))" +" lst_277)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36481,11 +36496,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_138)))" "((letrec-values(((for-loop_244)" -"(lambda(table_208 i_156)" +"(lambda(table_208 i_157)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((k_32 v_66)(hash-iterate-key+value ht_138 i_156)))" +"(if i_157" +"(let-values(((k_32 v_66)(hash-iterate-key+value ht_138 i_157)))" "(let-values(((table_209)" "(let-values(((table_210) table_208))" "(let-values(((table_211)" @@ -36503,7 +36518,7 @@ static const char *startup_source = "(hash-set table_210 key_29 val_19)))))" "(values table_211)))))" "(if(not #f)" -"(for-loop_244 table_209(hash-iterate-next ht_138 i_156))" +"(for-loop_244 table_209(hash-iterate-next ht_138 i_157))" " table_209)))" " table_208)))))" " for-loop_244)" @@ -36518,11 +36533,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_139)))" "((letrec-values(((for-loop_245)" -"(lambda(table_212 i_157)" +"(lambda(table_212 i_158)" "(begin" " 'for-loop" -"(if i_157" -"(let-values(((k_33 v_1)(hash-iterate-key+value ht_139 i_157)))" +"(if i_158" +"(let-values(((k_33 v_1)(hash-iterate-key+value ht_139 i_158)))" "(let-values(((table_213)" "(let-values(((table_214) table_212))" "(let-values(((table_215)" @@ -36541,7 +36556,7 @@ static const char *startup_source = "(hash-set table_214 key_77 val_66)))))" "(values table_215)))))" "(if(not #f)" -"(for-loop_245 table_213(hash-iterate-next ht_139 i_157))" +"(for-loop_245 table_213(hash-iterate-next ht_139 i_158))" " table_213)))" " table_212)))))" " for-loop_245)" @@ -36582,13 +36597,13 @@ static const char *startup_source = "(let-values(((or-part_73)(1/linklet-bundle? ld_6)))" "(if or-part_73" " or-part_73" -"(let-values(((b_72)" +"(let-values(((b_73)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_72" -"(hash-ref(1/linklet-bundle->hash b_72) 'decl #f)" +"(if b_73" +"(hash-ref(1/linklet-bundle->hash b_73) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36606,7 +36621,7 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_266) l_10)" +"(let-values(((lst_267) l_10)" "((lst_89)" "(vector-ref" " mpi-vector-tree_0" @@ -36615,7 +36630,7 @@ static const char *startup_source = "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_264)" +"((lst_265)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36623,7 +36638,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36635,17 +36650,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" +"(let-values()(check-list lst_265)))" "((letrec-values(((for-loop_229)" "(lambda(fold-var_155" -" lst_267" +" lst_268" " lst_24" " lst_102" " lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_267)" +" lst_268)" "(if(pair?" " lst_24)" "(if(pair?" @@ -36657,10 +36672,10 @@ static const char *startup_source = " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_267))" -"((rest_152)" +" lst_268))" +"((rest_151)" "(unsafe-cdr" -" lst_267))" +" lst_268))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36697,7 +36712,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_229" " fold-var_164" -" rest_152" +" rest_151" " rest_49" " rest_87" " rest_37)" @@ -36705,10 +36720,10 @@ static const char *startup_source = " fold-var_155)))))" " for-loop_229)" " null" -" lst_266" +" lst_267" " lst_89" " lst_163" -" lst_264))))))))" +" lst_265))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36745,7 +36760,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_103)" -"(lambda(i_158 pos_100)" +"(lambda(i_159 pos_100)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36755,39 +36770,39 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_62" " pos_100)))" -"(let-values(((i_159)" "(let-values(((i_160)" -" i_158))" +"(let-values(((i_161)" +" i_159))" "(let-values(((i_58)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_62" -" i_160" +" i_161" "(let-values()" "(vector-ref" " mpi-vector_0" " pos_101)))" "(unsafe-fx+" " 1" -" i_160)))))" +" i_161)))))" "(values" " i_58)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_159" +" i_160" " len_29))" " pos_101))" "(not #f)" " #f)" "(for-loop_103" -" i_159" +" i_160" "(unsafe-fx+" " 1" " pos_100))" -" i_159)))" -" i_158)))))" +" i_160)))" +" i_159)))))" " for-loop_103)" " 0" " 0)))))" @@ -36817,16 +36832,16 @@ static const char *startup_source = "(let-values()" "(check-range start_15 end_28 inc_22)))" "((letrec-values(((for-loop_246)" -"(lambda(i_161 pos_102)" +"(lambda(i_162 pos_102)" "(begin" " 'for-loop" "(if(< pos_102 end_28)" "(let-values(((i_20)" " pos_102))" -"(let-values(((i_162)" -"(let-values(((i_34)" -" i_161))" "(let-values(((i_163)" +"(let-values(((i_34)" +" i_162))" +"(let-values(((i_164)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36845,22 +36860,22 @@ static const char *startup_source = " 1" " i_34)))))" "(values" -" i_163)))))" +" i_164)))))" "(if(if(not" "((lambda x_70" "(unsafe-fx=" -" i_162" +" i_163" " len_31))" " i_20))" "(not #f)" " #f)" "(for-loop_246" -" i_162" +" i_163" "(+" " pos_102" " inc_22))" -" i_162)))" -" i_161)))))" +" i_163)))" +" i_162)))))" " for-loop_246)" " 0" " start_15)))))" @@ -36894,12 +36909,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_177)))" "((letrec-values(((for-loop_247)" -"(lambda(fold-var_5 lst_278)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((name_44)(unsafe-car lst_278))" -"((rest_153)(unsafe-cdr lst_278)))" +"(if(pair? lst_279)" +"(let-values(((name_44)(unsafe-car lst_279))" +"((rest_152)(unsafe-cdr lst_279)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225) fold-var_5))" "(let-values(((fold-var_226)" @@ -36915,7 +36930,7 @@ static const char *startup_source = " name_44))))" " fold-var_225))))" "(values fold-var_226)))))" -"(if(not #f)(for-loop_247 fold-var_224 rest_153) fold-var_224)))" +"(if(not #f)(for-loop_247 fold-var_224 rest_152) fold-var_224)))" " fold-var_5)))))" " for-loop_247)" " null" @@ -37345,20 +37360,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_248)" -"(lambda(i_164 pos_104)" +"(lambda(i_165 pos_104)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_104 len_33)" "(let-values(((s_395)" "(unsafe-vector-ref vec_64 pos_104)))" -"(let-values(((i_165)" -"(let-values(((i_166) i_164))" -"(let-values(((i_167)" +"(let-values(((i_166)" +"(let-values(((i_167) i_165))" +"(let-values(((i_168)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_183" -" i_166" +" i_167" "(let-values()" "(swap-top-level-scopes" " s_395" @@ -37367,17 +37382,17 @@ static const char *startup_source = " to-ns_0)))" "(unsafe-fx+" " 1" -" i_166)))))" -"(values i_167)))))" +" i_167)))))" +"(values i_168)))))" "(if(if(not" "((lambda x_71" -"(unsafe-fx= i_165 len_32))" +"(unsafe-fx= i_166 len_32))" " s_395))" "(not #f)" " #f)" -"(for-loop_248 i_165(unsafe-fx+ 1 pos_104))" -" i_165)))" -" i_164)))))" +"(for-loop_248 i_166(unsafe-fx+ 1 pos_104))" +" i_166)))" +" i_165)))))" " for-loop_248)" " 0" " 0)))))" @@ -37405,22 +37420,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_111)" -"(lambda(result_111 lst_6)" +"(lambda(result_112 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_40)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" -"(let-values(((result_79)" +"(let-values(((r_41)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" +"(let-values(((result_80)" "(let-values()" -"(let-values(((result_112)" +"(let-values(((result_113)" "(let-values()" "(let-values()" -"(can-direct-eval? r_40 ns_42 self-mpi_3)))))" -"(values result_112)))))" -"(if(if(not((lambda x_72(not result_79)) r_40))(not #f) #f)" -"(for-loop_111 result_79 rest_48)" -" result_79)))" -" result_111)))))" +"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" +"(values result_113)))))" +"(if(if(not((lambda x_72(not result_80)) r_41))(not #f) #f)" +"(for-loop_111 result_80 rest_48)" +" result_80)))" +" result_112)))))" " for-loop_111)" " #t" " lst_101)))" @@ -37471,38 +37486,38 @@ static const char *startup_source = "(get-id-value)" "(lambda(p_1 ns_72 self-mpi_5)" "(begin" -"(let-values(((b_69)(parsed-id-binding p_1)))" +"(let-values(((b_70)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_69) get-not-available))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_70) get-not-available))" "(if(let-values(((or-part_72)(parsed-top-id? p_1)))" "(if or-part_72" " or-part_72" -"(let-values(((or-part_73)(not b_69)))" -"(if or-part_73 or-part_73(eq? self-mpi_5(module-binding-module b_69))))))" +"(let-values(((or-part_73)(not b_70)))" +"(if or-part_73 or-part_73(eq? self-mpi_5(module-binding-module b_70))))))" "(let-values()" "(namespace-get-variable" " ns_72" -"(if b_69(module-binding-phase b_69)(namespace-phase ns_72))" -"(if b_69(module-binding-sym b_69)(syntax-e$1(parsed-s p_1)))" +"(if b_70(module-binding-phase b_70)(namespace-phase ns_72))" +"(if b_70(module-binding-sym b_70)(syntax-e$1(parsed-s p_1)))" " get-not-available))" "(let-values()" "(let-values(((mi_18)" "(let-values(((ns1_2) ns_72)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_69)))" -"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_69))))" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_70)))" +"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_70))))" "(namespace->module-instance70.1 #f #f #f #f #f #f ns1_2 temp2_4 temp3_4))))" "(if(not mi_18)" "(let-values() not-available)" "(if(check-single-require-access" " mi_18" -"(module-binding-phase b_69)" -"(module-binding-sym b_69)" -"(module-binding-extra-inspector b_69))" +"(module-binding-phase b_70)" +"(module-binding-sym b_70)" +"(module-binding-extra-inspector b_70))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_69)" -"(module-binding-sym b_69)" +"(module-binding-phase b_70)" +"(module-binding-sym b_70)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37556,30 +37571,30 @@ static const char *startup_source = "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'lift-context #f 3 0 #f null(current-inspector) #f '(0 1 2) #f 'lift-context)))))" "(values" -" struct:_69" -" make-_69" -" ?_69" -"(make-struct-field-accessor -ref_69 0 'convert)" -"(make-struct-field-accessor -ref_69 1 'lifts)" -"(make-struct-field-accessor -ref_69 2 'module*-ok?))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'convert)" +"(make-struct-field-accessor -ref_68 1 'lifts)" +"(make-struct-field-accessor -ref_68 2 'module*-ok?))))" "(define-values" "(struct:lifted-bind lifted-bind2.1 lifted-bind? lifted-bind-ids lifted-bind-keys lifted-bind-rhs)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type 'lifted-bind #f 3 0 #f null(current-inspector) #f '(0 1 2) #f 'lifted-bind)))))" "(values" -" struct:_70" -" make-_70" -" ?_70" -"(make-struct-field-accessor -ref_70 0 'ids)" -"(make-struct-field-accessor -ref_70 1 'keys)" -"(make-struct-field-accessor -ref_70 2 'rhs))))" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 'ids)" +"(make-struct-field-accessor -ref_69 1 'keys)" +"(make-struct-field-accessor -ref_69 2 'rhs))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 module*-ok?4_0 convert5_0)" @@ -37602,18 +37617,18 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_94)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_279) ids_17))" +"(let-values(((lst_280) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_279)))" +"(let-values()(check-list lst_280)))" "((letrec-values(((for-loop_249)" -"(lambda(fold-var_229 lst_280)" +"(lambda(fold-var_229 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((id_57)(unsafe-car lst_280))" -"((rest_154)(unsafe-cdr lst_280)))" +"(if(pair? lst_281)" +"(let-values(((id_57)(unsafe-car lst_281))" +"((rest_153)(unsafe-cdr lst_281)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(let-values(((fold-var_230)" @@ -37645,11 +37660,11 @@ static const char *startup_source = " key_79)))" " fold-var_82))))" "(values fold-var_230)))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" +"(if(not #f)(for-loop_249 fold-var_81 rest_153) fold-var_81)))" " fold-var_229)))))" " for-loop_249)" " null" -" lst_279))))))" +" lst_280))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37661,18 +37676,18 @@ static const char *startup_source = "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_281) ids_18))" +"(let-values(((lst_282) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_281)))" +"(let-values()(check-list lst_282)))" "((letrec-values(((for-loop_250)" "(lambda(fold-var_231 lst_182)" "(begin" " 'for-loop" "(if(pair? lst_182)" "(let-values(((id_58)(unsafe-car lst_182))" -"((rest_155)(unsafe-cdr lst_182)))" +"((rest_154)(unsafe-cdr lst_182)))" "(let-values(((fold-var_232)" "(let-values(((fold-var_233) fold-var_231))" "(let-values(((fold-var_234)" @@ -37685,12 +37700,12 @@ static const char *startup_source = " fold-var_233))))" "(values fold-var_234)))))" "(if(not #f)" -"(for-loop_250 fold-var_232 rest_155)" +"(for-loop_250 fold-var_232 rest_154)" " fold-var_232)))" " fold-var_231)))))" " for-loop_250)" " null" -" lst_281))))))" +" lst_282))))))" "(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" @@ -37699,9 +37714,9 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_282)(reverse$1 lifts_3)))" +"(let-values(((lst_283)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_282)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_283)))" "((letrec-values(((for-loop_251)" "(lambda(body_6 lst_191)" "(begin" @@ -37731,7 +37746,7 @@ static const char *startup_source = " body_6)))))" " for-loop_251)" " body_5" -" lst_282)))))))" +" lst_283)))))))" "(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)" @@ -37749,18 +37764,18 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_96) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_283) lifts_4))" +"(let-values(((lst_284) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" -"((letrec-values(((for-loop_194)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_193)" "(lambda(fold-var_235 lst_170)" "(begin" " 'for-loop" "(if(pair? lst_170)" "(let-values(((lift_1)(unsafe-car lst_170))" -"((rest_156)(unsafe-cdr lst_170)))" +"((rest_155)(unsafe-cdr lst_170)))" "(let-values(((fold-var_3)" "(let-values(((fold-var_236) fold-var_235))" "(let-values(((fold-var_237)" @@ -37784,11 +37799,11 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_236))))" "(values fold-var_237)))))" -"(if(not #f)(for-loop_194 fold-var_3 rest_156) fold-var_3)))" +"(if(not #f)(for-loop_193 fold-var_3 rest_155) fold-var_3)))" " fold-var_235)))))" -" for-loop_194)" +" for-loop_193)" " null" -" lst_283))))" +" lst_284))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" @@ -37799,11 +37814,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_196)))" "((letrec-values(((for-loop_252)" -"(lambda(fold-var_98 lst_284)" +"(lambda(fold-var_98 lst_285)" "(begin" " 'for-loop" -"(if(pair? lst_284)" -"(let-values(((lift_2)(unsafe-car lst_284))((rest_157)(unsafe-cdr lst_284)))" +"(if(pair? lst_285)" +"(let-values(((lift_2)(unsafe-car lst_285))((rest_156)(unsafe-cdr lst_285)))" "(let-values(((fold-var_37)" "(let-values(((fold-var_38) fold-var_98))" "(let-values(((fold-var_238)" @@ -37816,7 +37831,7 @@ static const char *startup_source = "(lifted-bind-rhs lift_2)))" " fold-var_38))))" "(values fold-var_238)))))" -"(if(not #f)(for-loop_252 fold-var_37 rest_157) fold-var_37)))" +"(if(not #f)(for-loop_252 fold-var_37 rest_156) fold-var_37)))" " fold-var_98)))))" " for-loop_252)" " null" @@ -37828,7 +37843,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" +"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37844,12 +37859,12 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" struct:_71" -" make-_71" -" ?_71" -"(make-struct-field-accessor -ref_71 0 'wrt-phase)" -"(make-struct-field-accessor -ref_71 1 'lifts)" -"(make-struct-field-accessor -ref_71 2 'module*-ok?))))" +" struct:_70" +" make-_70" +" ?_70" +"(make-struct-field-accessor -ref_70 0 'wrt-phase)" +"(make-struct-field-accessor -ref_70 1 'lifts)" +"(make-struct-field-accessor -ref_70 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" "(lambda(phase_97 module*-ok?_1)(begin(module-lift-context19.1 phase_97(box null) module*-ok?_1))))" @@ -37894,7 +37909,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" +"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37910,12 +37925,12 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" struct:_72" -" make-_72" -" ?_72" -"(make-struct-field-accessor -ref_72 0 'do-require)" -"(make-struct-field-accessor -ref_72 1 'wrt-phase)" -"(make-struct-field-accessor -ref_72 2 'requires))))" +" struct:_71" +" make-_71" +" ?_71" +"(make-struct-field-accessor -ref_71 0 'do-require)" +"(make-struct-field-accessor -ref_71 1 'wrt-phase)" +"(make-struct-field-accessor -ref_71 2 'requires))))" "(define-values" "(make-require-lift-context)" "(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context20.1 do-require_0 wrt-phase_0(box null)))))" @@ -37937,7 +37952,7 @@ static const char *startup_source = " to-module-lift-context-provides" " to-module-lift-context-end-as-expressions?" " to-module-lift-context-ends)" -"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" +"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37953,13 +37968,13 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'wrt-phase)" -"(make-struct-field-accessor -ref_73 1 'provides)" -"(make-struct-field-accessor -ref_73 2 'end-as-expressions?)" -"(make-struct-field-accessor -ref_73 3 'ends))))" +" struct:_72" +" make-_72" +" ?_72" +"(make-struct-field-accessor -ref_72 0 'wrt-phase)" +"(make-struct-field-accessor -ref_72 1 'provides)" +"(make-struct-field-accessor -ref_72 2 'end-as-expressions?)" +"(make-struct-field-accessor -ref_72 3 'ends))))" "(define-values" "(make-to-module-lift-context27.1)" "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" @@ -38041,14 +38056,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_94)" -"(lambda(result_77 lst_77)" +"(lambda(result_78 lst_77)" "(begin" " 'for-loop" "(if(pair? lst_77)" "(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((result_65)" "(let-values()" -"(let-values(((result_113)" +"(let-values(((result_114)" "(let-values()" "(let-values()" "(memq" @@ -38058,11 +38073,11 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_113)))))" +"(values result_114)))))" "(if(if(not((lambda x_73(not result_65)) s_2))(not #f) #f)" "(for-loop_94 result_65 rest_35)" " result_65)))" -" result_77)))))" +" result_78)))))" " for-loop_94)" " #t" " lst_76)))" @@ -38153,7 +38168,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_184)" "(lambda(lst_89)" "(begin" " 'for-loop" @@ -38170,9 +38185,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_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_184 rest_116)(values))))))))" "(values))))))" -" for-loop_185)" +" for-loop_184)" " lst_42)))" "(void)))))" "(define-values" @@ -38190,36 +38205,36 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_80)" -"(let-values(((key_80)(unsafe-car lst_80))((rest_142)(unsafe-cdr lst_80)))" +"(let-values(((key_80)(unsafe-car lst_80))((rest_141)(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_80))))" "(values ab_6)))))" -"(if(not #f)(for-loop_253 ab_4 rest_142) ab_4)))" +"(if(not #f)(for-loop_253 ab_4 rest_141) ab_4)))" " ab_3)))))" " for-loop_253)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_272) keys_3))" +"(let-values(((lst_273) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" "((letrec-values(((for-loop_254)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_81)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" +"(let-values(((key_81)(unsafe-car lst_25))((rest_157)(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_81))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_254 rbb_1 rest_158) rbb_1)))" +"(if(not #f)(for-loop_254 rbb_1 rest_157) rbb_1)))" " rbb_0)))))" " for-loop_254)" "(reference-record-reference-before-bound rr_2)" -" lst_272))))))))" +" lst_273))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" @@ -38371,7 +38386,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38387,13 +38402,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_63" -" make-_63" -" ?_63" -"(make-struct-field-accessor -ref_63 0 's)" -"(make-struct-field-accessor -ref_63 1 'syms)" -"(make-struct-field-accessor -ref_63 2 'ids)" -"(make-struct-field-accessor -ref_63 3 'rhs))))" +" struct:_62" +" make-_62" +" ?_62" +"(make-struct-field-accessor -ref_62 0 's)" +"(make-struct-field-accessor -ref_62 1 'syms)" +"(make-struct-field-accessor -ref_62 2 'ids)" +"(make-struct-field-accessor -ref_62 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -38431,11 +38446,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" "((letrec-values(((for-loop_247)" -"(lambda(fold-var_5 lst_278)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((i_26)(unsafe-car lst_278))((rest_153)(unsafe-cdr lst_278)))" +"(if(pair? lst_279)" +"(let-values(((i_26)(unsafe-car lst_279))((rest_152)(unsafe-cdr lst_279)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225) fold-var_5))" "(if(let-values(((or-part_261)(parsed? i_26)))" @@ -38464,7 +38479,7 @@ static const char *startup_source = " fold-var_157))))" "(values fold-var_173)))" " fold-var_225))))" -"(if(not #f)(for-loop_247 fold-var_224 rest_153) fold-var_224)))" +"(if(not #f)(for-loop_247 fold-var_224 rest_152) fold-var_224)))" " fold-var_5)))))" " for-loop_247)" " null" @@ -38474,15 +38489,15 @@ static const char *startup_source = "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_279) l_67))" +"(let-values(((lst_280) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" "((letrec-values(((for-loop_249)" -"(lambda(fold-var_229 lst_280)" +"(lambda(fold-var_229 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((i_35)(unsafe-car lst_280))((rest_154)(unsafe-cdr lst_280)))" +"(if(pair? lst_281)" +"(let-values(((i_35)(unsafe-car lst_281))((rest_153)(unsafe-cdr lst_281)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(if(let-values(((or-part_262)(syntax?$1 i_35)))" @@ -38580,11 +38595,11 @@ static const char *startup_source = " fold-var_83))))" "(values fold-var_239)))" " fold-var_82))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" +"(if(not #f)(for-loop_249 fold-var_81 rest_153) fold-var_81)))" " fold-var_229)))))" " for-loop_249)" " null" -" lst_279)))))))" +" lst_280)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" @@ -38769,18 +38784,18 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_7 'resolve id_61)))" "(void)))" "(values))))" -"(let-values(((b_73)" +"(let-values(((b_74)" "(let-values(((id95_0) id_61)" "((temp96_2)(expand-context-phase ctx_17))" "((temp97_1) 'ambiguous)" "((temp98_1) #t))" "(resolve+shift30.1 temp97_1 #t #f #f #f #f temp98_1 #t #f #f id95_0 temp96_2))))" -"(if(eq? b_73 'ambiguous)" +"(if(eq? b_74 'ambiguous)" "(let-values()(raise-ambiguous-error id_61 ctx_17))" "(let-values()" "(let-values(((t_27 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_73" -"(let-values(((b99_0) b_73)((ctx100_0) ctx_17)((id101_0) id_61))" +"(if b_74" +"(let-values(((b99_0) b_74)((ctx100_0) ctx_17)((id101_0) id_61))" "(lookup17.1 #f #f #f #f b99_0 ctx100_0 id101_0))" "(values #f #f #f #f))))" "(if(transformer? t_27)" @@ -38791,7 +38806,7 @@ static const char *startup_source = "(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" " id_61" " ctx_17" -" b_73))" +" b_74))" "(if(core-form? t_27)" "(let-values()" "(if(if(eq? sym_61 '#%top)" @@ -39190,8 +39205,8 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" -"(let-values(((b_74)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_74(cons sc_30(unbox b_74)))(values(add-scope s_403 sc_30)(list sc_30))))))" +"(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_403 sc_30)(list sc_30))))))" "(let-values()(values s_403 null))))))" "(define-values" "(matching-frame?)" @@ -39242,14 +39257,14 @@ static const char *startup_source = "(lambda(in10_1 in12_1 out-of-context-as-variable?11_0 out-of-context-as-variable?13_0 b14_0 ctx15_0 id16_1)" "(begin" " 'lookup17" -"(let-values(((b_75) b14_0))" +"(let-values(((b_76) b14_0))" "(let-values(((ctx_30) ctx15_0))" "(let-values(((id_66) id16_1))" "(let-values(((in-s_7)(if in12_1 in10_1 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?13_0 out-of-context-as-variable?11_0 #f)))" "(let-values()" -"(let-values(((b120_0) b_75)" +"(let-values(((b120_0) b_76)" "((temp121_0)(expand-context-env ctx_30))" "((temp122_0)(expand-context-lift-envs ctx_30))" "((temp123_1)(expand-context-namespace ctx_30))" @@ -39837,35 +39852,35 @@ static const char *startup_source = "(let-values(((the-struct_65) v_187))" "(if(expand-context/outer? the-struct_65)" "(let-values(((env169_0)" -"(let-values(((lst_285) ids_24)((lst_286) keys_4))" +"(let-values(((lst_286) ids_24)((lst_287) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_286)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_287)))" "((letrec-values(((for-loop_255)" -"(lambda(env_3 lst_287 lst_124)" +"(lambda(env_3 lst_288 lst_289)" "(begin" " 'for-loop" -"(if(if(pair? lst_287)" -"(pair? lst_124)" +"(if(if(pair? lst_288)" +"(pair? lst_289)" " #f)" "(let-values(((id_67)" "(unsafe-car" -" lst_287))" -"((rest_159)" +" lst_288))" +"((rest_158)" "(unsafe-cdr" -" lst_287))" +" lst_288))" "((key_83)" "(unsafe-car" -" lst_124))" -"((rest_160)" +" lst_289))" +"((rest_159)" "(unsafe-cdr" -" lst_124)))" +" lst_289)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -39881,14 +39896,14 @@ static const char *startup_source = "(if(not #f)" "(for-loop_255" " env_4" -" rest_159" -" rest_160)" +" rest_158" +" rest_159)" " env_4)))" " env_3)))))" " for-loop_255)" "(expand-context-env rhs-ctx_1)" -" lst_285" -" lst_286))))" +" lst_286" +" lst_287))))" "((inner170_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" " inner170_0" @@ -40022,11 +40037,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" "((letrec-values(((for-loop_256)" -"(lambda(fold-var_240 lst_263)" +"(lambda(fold-var_240 lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_263)" -"(let-values(((sym_16)(unsafe-car lst_263))((rest_161)(unsafe-cdr lst_263)))" +"(if(pair? lst_264)" +"(let-values(((sym_16)(unsafe-car lst_264))((rest_160)(unsafe-cdr lst_264)))" "(let-values(((fold-var_218)" "(let-values(((fold-var_30) fold-var_240))" "(let-values(((fold-var_219)" @@ -40036,7 +40051,7 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_16))" " fold-var_30))))" "(values fold-var_219)))))" -"(if(not #f)(for-loop_256 fold-var_218 rest_161) fold-var_218)))" +"(if(not #f)(for-loop_256 fold-var_218 rest_160) fold-var_218)))" " fold-var_240)))))" " for-loop_256)" " null" @@ -40054,7 +40069,7 @@ static const char *startup_source = " internal-definition-context-scope" " internal-definition-context-add-scope?" " internal-definition-context-env-mixins)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40070,27 +40085,27 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'frame-id)" -"(make-struct-field-accessor -ref_65 1 'scope)" -"(make-struct-field-accessor -ref_65 2 'add-scope?)" -"(make-struct-field-accessor -ref_65 3 'env-mixins))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'frame-id)" +"(make-struct-field-accessor -ref_64 1 'scope)" +"(make-struct-field-accessor -ref_64 2 'add-scope?)" +"(make-struct-field-accessor -ref_64 3 'env-mixins))))" "(define-values" "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type 'env-mixin #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'env-mixin)))))" "(values" -" struct:_66" -" make-_66" -" ?_66" -"(make-struct-field-accessor -ref_66 0 'id)" -"(make-struct-field-accessor -ref_66 1 'sym)" -"(make-struct-field-accessor -ref_66 2 'value)" -"(make-struct-field-accessor -ref_66 3 'cache))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'id)" +"(make-struct-field-accessor -ref_65 1 'sym)" +"(make-struct-field-accessor -ref_65 2 'value)" +"(make-struct-field-accessor -ref_65 3 'cache))))" "(define-values" "(1/syntax-local-make-definition-context)" "(let-values(((syntax-local-make-definition-context7_0)" @@ -40183,18 +40198,18 @@ static const char *startup_source = "(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_288) ids_25))" +"(let-values(((lst_290) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_177)" +"(let-values()(check-list lst_290)))" +"((letrec-values(((for-loop_176)" "(lambda(fold-var_16 lst_186)" "(begin" " 'for-loop" "(if(pair? lst_186)" "(let-values(((id_69)(unsafe-car lst_186))" -"((rest_162)(unsafe-cdr lst_186)))" +"((rest_161)(unsafe-cdr lst_186)))" "(let-values(((fold-var_231)" "(let-values(((fold-var_241)" " fold-var_16))" @@ -40224,12 +40239,12 @@ static const char *startup_source = " fold-var_241))))" "(values fold-var_242)))))" "(if(not #f)" -"(for-loop_177 fold-var_231 rest_162)" +"(for-loop_176 fold-var_231 rest_161)" " fold-var_231)))" " fold-var_16)))))" -" for-loop_177)" +" for-loop_176)" " null" -" lst_288))))))" +" lst_290))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40240,18 +40255,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_289) intdef-ids_0))" +"(let-values(((lst_291) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" +"(let-values()(check-list lst_291)))" "((letrec-values(((for-loop_257)" -"(lambda(fold-var_243 lst_290)" +"(lambda(fold-var_243 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_290)" -"(let-values(((intdef-id_0)(unsafe-car lst_290))" -"((rest_163)(unsafe-cdr lst_290)))" +"(if(pair? lst_292)" +"(let-values(((intdef-id_0)(unsafe-car lst_292))" +"((rest_162)(unsafe-cdr lst_292)))" "(let-values(((fold-var_244)" "(let-values(((fold-var_245)" " fold-var_243))" @@ -40280,12 +40295,12 @@ static const char *startup_source = " fold-var_245))))" "(values fold-var_246)))))" "(if(not #f)" -"(for-loop_257 fold-var_244 rest_163)" +"(for-loop_257 fold-var_244 rest_162)" " fold-var_244)))" " fold-var_243)))))" " for-loop_257)" " null" -" lst_289))))))" +" lst_291))))))" "(let-values(((vals_5)" "(if s_410" "(let-values()" @@ -40297,12 +40312,12 @@ 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_291) syms_21))" +"(let-values(((lst_293) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" +"(let-values()(check-list lst_293)))" "((letrec-values(((for-loop_6)" "(lambda(env_7 lst_169)" "(begin" @@ -40311,7 +40326,7 @@ static const char *startup_source = "(let-values(((sym_64)" "(unsafe-car" " lst_169))" -"((rest_164)" +"((rest_163)" "(unsafe-cdr" " lst_169)))" "(let-values(((env_8)" @@ -40328,12 +40343,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_6" " env_8" -" rest_164)" +" rest_163)" " env_8)))" " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_291)))))" +" lst_293)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40413,18 +40428,18 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_292) ids_25))" +"(let-values(((lst_294) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_294)))" "((letrec-values(((for-loop_258)" -"(lambda(fold-var_179 lst_293)" +"(lambda(fold-var_179 lst_295)" "(begin" " 'for-loop" -"(if(pair? lst_293)" -"(let-values(((id_70)(unsafe-car lst_293))" -"((rest_165)(unsafe-cdr lst_293)))" +"(if(pair? lst_295)" +"(let-values(((id_70)(unsafe-car lst_295))" +"((rest_164)(unsafe-cdr lst_295)))" "(let-values(((fold-var_247)" "(let-values(((fold-var_248)" " fold-var_179))" @@ -40436,42 +40451,42 @@ static const char *startup_source = " fold-var_248))))" "(values fold-var_249)))))" "(if(not #f)" -"(for-loop_258 fold-var_247 rest_165)" +"(for-loop_258 fold-var_247 rest_164)" " fold-var_247)))" " fold-var_179)))))" " for-loop_258)" " null" -" lst_292))))))))" +" lst_294))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_294) intdef-ids_0)((lst_295) syms_21)((lst_296) vals_5))" +"(let-values(((lst_296) intdef-ids_0)((lst_297) syms_21)((lst_298) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_294)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_295)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_296)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_297)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_298)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_250 lst_297 lst_106 lst_298)" +"(lambda(fold-var_250 lst_299 lst_106 lst_300)" "(begin" " 'for-loop" -"(if(if(pair? lst_297)" -"(if(pair? lst_106)(pair? lst_298) #f)" +"(if(if(pair? lst_299)" +"(if(pair? lst_106)(pair? lst_300) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_297))" -"((rest_166)(unsafe-cdr lst_297))" +"(let-values(((intdef-id_1)(unsafe-car lst_299))" +"((rest_165)(unsafe-cdr lst_299))" "((sym_65)(unsafe-car lst_106))" "((rest_100)(unsafe-cdr lst_106))" -"((val_26)(unsafe-car lst_298))" -"((rest_22)(unsafe-cdr lst_298)))" +"((val_26)(unsafe-car lst_300))" +"((rest_22)(unsafe-cdr lst_300)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" " fold-var_250))" @@ -40493,14 +40508,14 @@ static const char *startup_source = " fold-var_37))))" "(values fold-var_38)))))" "(if(not #f)" -"(for-loop_79 fold-var_36 rest_166 rest_100 rest_22)" +"(for-loop_79 fold-var_36 rest_165 rest_100 rest_22)" " fold-var_36)))" " fold-var_250)))))" " for-loop_79)" " null" -" lst_294" -" lst_295" -" lst_296))))" +" lst_296" +" lst_297" +" lst_298))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40520,16 +40535,16 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_299)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_301)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" "((letrec-values(((for-loop_259)" "(lambda(fold-var_251 lst_230)" "(begin" " 'for-loop" "(if(pair? lst_230)" "(let-values(((env-mixin_0)(unsafe-car lst_230))" -"((rest_167)(unsafe-cdr lst_230)))" +"((rest_166)(unsafe-cdr lst_230)))" "(let-values(((fold-var_252)" "(let-values(((fold-var_184) fold-var_251))" "(let-values(((fold-var_253)" @@ -40538,11 +40553,11 @@ static const char *startup_source = "(let-values()(env-mixin-id env-mixin_0))" " fold-var_184))))" "(values fold-var_253)))))" -"(if(not #f)(for-loop_259 fold-var_252 rest_167) fold-var_252)))" +"(if(not #f)(for-loop_259 fold-var_252 rest_166) fold-var_252)))" " fold-var_251)))))" " for-loop_259)" " null" -" lst_299))))))))" +" lst_301))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40620,7 +40635,7 @@ static const char *startup_source = "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_178)" +"((letrec-values(((for-loop_177)" "(lambda(id_17 a_46)" "(begin" " 'for-loop" @@ -40635,9 +40650,9 @@ static const char *startup_source = " id_73" " 'remove))))" "(values id_74)))))" -"(if(not #f)(for-loop_178 id_72(cdr a_46)) id_72)))" +"(if(not #f)(for-loop_177 id_72(cdr a_46)) id_72)))" " id_17)))))" -" for-loop_178)" +" for-loop_177)" " id_71" " x_74)))))))" "(define-values" @@ -40726,7 +40741,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_179)" "(lambda(s_397 a_50)" "(begin" " 'for-loop" @@ -40748,9 +40763,9 @@ static const char *startup_source = " intdef_9)))))" "(values s_326)))" " s_208))))" -"(if(not #f)(for-loop_180 s_88(cdr a_50)) s_88)))" +"(if(not #f)(for-loop_179 s_88(cdr a_50)) s_88)))" " s_397)))))" -" for-loop_180)" +" for-loop_179)" " s_412" " x_76)))))))))))" "(define-values" @@ -41876,7 +41891,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_206)" "(lambda(fold-var_196 i_6)" "(begin" " 'for-loop" @@ -41893,10 +41908,10 @@ static const char *startup_source = " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_207 fold-var_197(hash-iterate-next ht_141 i_6))" +"(for-loop_206 fold-var_197(hash-iterate-next ht_141 i_6))" " fold-var_197)))" " fold-var_196)))))" -" for-loop_207)" +" for-loop_206)" " null" "(hash-iterate-first ht_141)))))" " #f)))))))))))" @@ -41904,30 +41919,30 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_300) requireds_1))" +"(let-values(((lst_302) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_302)))" "((letrec-values(((for-loop_262)" "(lambda(ht_142 lst_213)" "(begin" " 'for-loop" "(if(pair? lst_213)" -"(let-values(((r_41)(unsafe-car lst_213))((rest_108)(unsafe-cdr lst_213)))" +"(let-values(((r_42)(unsafe-car lst_213))((rest_108)(unsafe-cdr lst_213)))" "(let-values(((ht_143)" "(let-values(((ht_144) ht_142))" "(let-values(((ht_145)" "(let-values()" "(hash-update" " ht_144" -"(required-phase r_41)" -"(lambda(l_68)(cons(required-id r_41) l_68))" +"(required-phase r_42)" +"(lambda(l_68)(cons(required-id r_42) l_68))" " null))))" "(values ht_145)))))" "(if(not #f)(for-loop_262 ht_143 rest_108) ht_143)))" " ht_142)))))" " for-loop_262)" "(hasheqv)" -" lst_300))))))" +" lst_302))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -41970,11 +41985,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_146)))" "((letrec-values(((for-loop_263)" -"(lambda(fold-var_257 i_168)" +"(lambda(fold-var_257 i_169)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((phase_127 syms_22)(hash-iterate-key+value ht_146 i_168)))" +"(if i_169" +"(let-values(((phase_127 syms_22)(hash-iterate-key+value ht_146 i_169)))" "(let-values(((fold-var_258)" "(let-values(((fold-var_259) fold-var_257))" "(let-values(((fold-var_260)" @@ -42029,7 +42044,7 @@ static const char *startup_source = " fold-var_259))))" "(values fold-var_260)))))" "(if(not #f)" -"(for-loop_263 fold-var_258(hash-iterate-next ht_146 i_168))" +"(for-loop_263 fold-var_258(hash-iterate-next ht_146 i_169))" " fold-var_258)))" " fold-var_257)))))" " for-loop_263)" @@ -42051,11 +42066,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_148)))" "((letrec-values(((for-loop_265)" -"(lambda(fold-var_264 i_169)" +"(lambda(fold-var_264 i_170)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_169)))" +"(if i_170" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_170)))" "(let-values(((fold-var_265)" "(let-values(((fold-var_266) fold-var_264))" "(if(eq? kind_7 'module)" @@ -42068,7 +42083,7 @@ static const char *startup_source = "(values fold-var_268)))" " fold-var_266))))" "(if(not #f)" -"(for-loop_265 fold-var_265(hash-iterate-next ht_148 i_169))" +"(for-loop_265 fold-var_265(hash-iterate-next ht_148 i_170))" " fold-var_265)))" " fold-var_264)))))" " for-loop_265)" @@ -42266,23 +42281,23 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_76) b14_1))" +"(let-values(((b_77) b14_1))" "(let-values(((phase_20)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? a_53)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" -"(if(identifier? b_76)" +"(if(identifier? b_77)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_76)))" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_77)))" "(if(phase? phase_20)" "(void)" "(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_20)))" -"(bound-identifier=?$1 a_53 b_76 phase_20))))))))))" +"(bound-identifier=?$1 a_53 b_77 phase_20))))))))))" "(case-lambda" "((a_54 b_48)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_48 #f #f)))" -"((a_55 b_77 phase11_1)(bound-identifier=?15_0 a_55 b_77 phase11_1 #t)))))" +"((a_55 b_78 phase11_1)(bound-identifier=?15_0 a_55 b_78 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" @@ -42290,7 +42305,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_78) b22_0))" +"(let-values(((b_79) b22_0))" "(let-values(((a-phase_1)(if a-phase19_0 a-phase17_0(1/syntax-local-phase-level))))" "(let-values(((b-phase_1)(if b-phase20_0 b-phase18_0 a-phase_1)))" "(let-values()" @@ -42298,23 +42313,23 @@ static const char *startup_source = "(if(identifier? a_56)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_78)" +"(if(identifier? b_79)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_78)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_79)))" "(if(phase? a-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_56 b_78 a-phase_1 b-phase_1)))))))))))" +"(free-identifier=?$1 a_56 b_79 a-phase_1 b-phase_1)))))))))))" "(case-lambda" "((a_57 b_43)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_43 #f #f #f #f)))" -"((a_58 b_79 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_79 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_80 a-phase17_1)(free-identifier=?23_0 a_59 b_80 a-phase17_1 #f #t #f)))))" +"((a_58 b_80 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_80 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_81 a-phase17_1)(free-identifier=?23_0 a_59 b_81 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_81)" +"(lambda(a_60 b_82)" "(begin" " 'free-transformer-identifier=?" "(let-values((()" @@ -42325,15 +42340,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_81)" +"(if(identifier? b_82)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_81)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_82)))" "(values))))" "(let-values(((phase_128)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_81 phase_128 phase_128)))))))" +"(free-identifier=?$1 a_60 b_82 phase_128 phase_128)))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_82)" +"(lambda(a_61 b_83)" "(begin" " 'free-template-identifier=?" "(let-values((()" @@ -42344,25 +42359,25 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_82)" +"(if(identifier? b_83)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_82)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_83)))" "(values))))" "(let-values(((phase_129)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_82 phase_129 phase_129)))))))" +"(free-identifier=?$1 a_61 b_83 phase_129 phase_129)))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_62 b_83)" +"(lambda(a_62 b_84)" "(begin" " 'free-label-identifier=?" "(begin" "(if(identifier? a_62)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" -"(if(identifier? b_83)" +"(if(identifier? b_84)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_83)))" -"(free-identifier=?$1 a_62 b_83 #f #f)))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_84)))" +"(free-identifier=?$1 a_62 b_84 #f #f)))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" @@ -42898,7 +42913,7 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_226))" -"((rest_168)" +"((rest_167)" "(unsafe-cdr" " lst_226)))" "(let-values((()" @@ -42913,17 +42928,17 @@ static const char *startup_source = "(check-list" " lst_178)))" "((letrec-values(((for-loop_29)" -"(lambda(lst_278)" +"(lambda(lst_279)" "(begin" " 'for-loop" "(if(pair?" -" lst_278)" +" lst_279)" "(let-values(((req_5)" "(unsafe-car" -" lst_278))" -"((rest_153)" +" lst_279))" +"((rest_152)" "(unsafe-cdr" -" lst_278)))" +" lst_279)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42947,7 +42962,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_29" -" rest_153)" +" rest_152)" "(values))))" "(values))))))" " for-loop_29)" @@ -42955,13 +42970,13 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_17" -" rest_168)" +" rest_167)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_301)" +"(let-values(((lst_303)" "(module-submodule-names" " m_20)))" "(begin" @@ -42970,19 +42985,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_301)))" +" lst_303)))" "((letrec-values(((for-loop_266)" -"(lambda(lst_302)" +"(lambda(lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" +" lst_304)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_302))" -"((rest_169)" +" lst_304))" +"((rest_168)" "(unsafe-cdr" -" lst_302)))" +" lst_304)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43004,11 +43019,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_266" -" rest_169)" +" rest_168)" "(values))))" "(values))))))" " for-loop_266)" -" lst_301)))" +" lst_303)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43041,14 +43056,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_150)))" "((letrec-values(((for-loop_109)" -"(lambda(i_170)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_170" +"(if i_171" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" " ht_150" -" i_170)))" +" i_171)))" "(let-values((()" "(let-values(((ht_151)" " phases_0))" @@ -43060,15 +43075,15 @@ static const char *startup_source = "(check-in-hash" " ht_151)))" "((letrec-values(((for-loop_267)" -"(lambda(i_171)" +"(lambda(i_172)" "(begin" " 'for-loop" -"(if i_171" +"(if i_172" "(let-values(((phase_134" " m-ns_15)" "(hash-iterate-key+value" " ht_151" -" i_171)))" +" i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43144,7 +43159,7 @@ static const char *startup_source = "(for-loop_267" "(hash-iterate-next" " ht_151" -" i_171))" +" i_172))" "(values))))" "(values))))))" " for-loop_267)" @@ -43152,7 +43167,7 @@ static const char *startup_source = " ht_151))))))" "(if(not #f)" "(for-loop_109" -"(hash-iterate-next ht_150 i_170))" +"(hash-iterate-next ht_150 i_171))" "(values))))" "(values))))))" " for-loop_109)" @@ -43173,13 +43188,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_51)))" -"((letrec-values(((for-loop_177)" -"(lambda(i_172)" +"((letrec-values(((for-loop_176)" +"(lambda(i_173)" "(begin" " 'for-loop" -"(if i_172" +"(if i_173" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_51 i_172)))" +"(hash-iterate-key ht_51 i_173)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43192,11 +43207,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_177" -"(hash-iterate-next ht_51 i_172))" +"(for-loop_176" +"(hash-iterate-next ht_51 i_173))" "(values))))" "(values))))))" -" for-loop_177)" +" for-loop_176)" "(hash-iterate-first ht_51))))" "(void))))))))))))))))))))))))" "(define-values" @@ -43247,14 +43262,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_84)))" "((letrec-values(((for-loop_256)" -"(lambda(fold-var_240 i_173)" +"(lambda(fold-var_240 i_174)" "(begin" " 'for-loop" -"(if i_173" +"(if i_174" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" " ht_84" -" i_173)))" +" i_174)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218)" " fold-var_240))" @@ -43277,7 +43292,7 @@ static const char *startup_source = " fold-var_217" "(unsafe-immutable-hash-iterate-next" " ht_84" -" i_173))" +" i_174))" " fold-var_217)))" " fold-var_240)))))" " for-loop_256)" @@ -43634,14 +43649,14 @@ static const char *startup_source = "(if use-mapping?_0" "(let-values()" "(let-values(((id_104)(1/datum->syntax #f sym_69)))" -"(let-values(((b_84)" +"(let-values(((b_85)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_104 ns_81)" "(namespace-phase ns_81)" " ns_81)))" "(let-values((()" "(begin" -"(if b_84" +"(if b_85" "(let-values()" "(namespace-visit-available-modules!" " ns_81))" @@ -43651,8 +43666,8 @@ static const char *startup_source = " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_84" -"(let-values(((b123_0) b_84)" +"(if b_85" +"(let-values(((b123_0) b_85)" "((empty-env124_0) empty-env)" "((null125_0) null)" "((ns126_0) ns_81)" @@ -43689,19 +43704,19 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_84)" +"(if(module-binding? b_85)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_84))" +"(module-binding-module b_85))" " ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_84" +" b_85" " ns_81" "(namespace-phase ns_81)" " id_104)))" -"(module-binding-phase b_84)" -"(module-binding-sym b_84))" +"(module-binding-phase b_85)" +"(module-binding-sym b_85))" "(values ns_81(namespace-phase ns_81) sym_69))))))))" "(let-values()(values ns_81(namespace-phase ns_81) sym_69)))))" "(let-values(((val_69)" @@ -44021,7 +44036,7 @@ static const char *startup_source = " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" +"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" "(let-values()" "(let-values()" "(make-struct-type" @@ -44037,11 +44052,11 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_74" -" make-_74" -" ?_74" -"(make-struct-field-accessor -ref_74 0 'seq)" -"(make-struct-field-accessor -ref_74 1 'last))))" +" struct:_73" +" make-_73" +" ?_73" +"(make-struct-field-accessor -ref_73 0 'seq)" +"(make-struct-field-accessor -ref_73 1 'last))))" "(define-values" "(compile-single$1)" "(lambda(s_29 ns_97 expand_2 serializable?_7 to-source?_6)" @@ -44077,14 +44092,14 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_291)" +"(let-values(((lst_293)" "(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_291)))" +"(let-values()(check-list lst_293)))" "((letrec-values(((for-loop_6)" "(lambda(fold-var_0 lst_169)" "(begin" @@ -44092,7 +44107,7 @@ static const char *startup_source = "(if(pair? lst_169)" "(let-values(((e_75)" "(unsafe-car lst_169))" -"((rest_164)" +"((rest_163)" "(unsafe-cdr lst_169)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" @@ -44107,12 +44122,12 @@ static const char *startup_source = "(values" " fold-var_236)))))" "(if(not #f)" -"(for-loop_6 fold-var_2 rest_164)" +"(for-loop_6 fold-var_2 rest_163)" " fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_291)))))" +" lst_293)))))" "((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()" @@ -45008,7 +45023,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_303)" +"(let-values(((lst_305)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45016,20 +45031,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_303)))" +" lst_305)))" "((letrec-values(((for-loop_268)" "(lambda(fold-var_269" -" lst_304)" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_304)" +" lst_306)" "(let-values(((s_337)" "(unsafe-car" -" lst_304))" -"((rest_170)" +" lst_306))" +"((rest_169)" "(unsafe-cdr" -" lst_304)))" +" lst_306)))" "(let-values(((fold-var_202)" "(let-values(((fold-var_203)" " fold-var_269))" @@ -45060,12 +45075,12 @@ static const char *startup_source = " #f)" "(for-loop_268" " fold-var_202" -" rest_170)" +" rest_169)" " fold-var_202)))" " fold-var_269)))))" " for-loop_268)" " null" -" lst_303))))))" +" lst_305))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45109,8 +45124,8 @@ static const char *startup_source = "(begin(if(syntax?$1 s_448) s_448(1/namespace-syntax-introduce(1/datum->syntax #f s_448) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_449 r_42)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_449)(cons form-id_0 r_42) s_449 s_449) s_449))))" +"(lambda(form-id_0 s_449 r_43)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_449)(cons form-id_0 r_43) s_449 s_449) s_449))))" "(define-values" "(expand-capturing-lifts)" "(lambda(s_450 ctx_69)" @@ -45293,18 +45308,18 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_305) require-lifts_6))" +"(let-values(((lst_307) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" +"(let-values()(check-list lst_307)))" "((letrec-values(((for-loop_269)" -"(lambda(fold-var_271 lst_306)" +"(lambda(fold-var_271 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_306)" -"(let-values(((req_19)(unsafe-car lst_306))" -"((rest_171)(unsafe-cdr lst_306)))" +"(if(pair? lst_308)" +"(let-values(((req_19)(unsafe-car lst_308))" +"((rest_170)(unsafe-cdr lst_308)))" "(let-values(((fold-var_272)" "(let-values(((fold-var_273) fold-var_271))" "(let-values(((fold-var_274)" @@ -45314,24 +45329,24 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_273))))" "(values fold-var_274)))))" -"(if(not #f)(for-loop_269 fold-var_272 rest_171) fold-var_272)))" +"(if(not #f)(for-loop_269 fold-var_272 rest_170) fold-var_272)))" " fold-var_271)))))" " for-loop_269)" " null" -" lst_305))))" +" lst_307))))" "(reverse$1" -"(let-values(((lst_307)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_309)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" +"(let-values()(check-list lst_309)))" "((letrec-values(((for-loop_270)" -"(lambda(fold-var_275 lst_308)" +"(lambda(fold-var_275 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" -"((rest_172)(unsafe-cdr lst_308)))" +"(if(pair? lst_310)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_310))" +"((rest_171)(unsafe-cdr lst_310)))" "(let-values(((fold-var_276)" "(let-values(((fold-var_277) fold-var_275))" "(let-values(((fold-var_278)" @@ -45375,11 +45390,11 @@ static const char *startup_source = " dv_0)))))" " fold-var_277))))" "(values fold-var_278)))))" -"(if(not #f)(for-loop_270 fold-var_276 rest_172) fold-var_276)))" +"(if(not #f)(for-loop_270 fold-var_276 rest_171) fold-var_276)))" " fold-var_275)))))" " for-loop_270)" " null" -" lst_307)))))" +" lst_309)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45922,17 +45937,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_152)))" -"((letrec-values(((for-loop_184)" -"(lambda(result_114 i_91)" +"((letrec-values(((for-loop_183)" +"(lambda(result_115 i_91)" "(begin" " 'for-loop" "(if i_91" "(let-values(((k_34 v_3)" "(hash-iterate-key+value ht_152 i_91)))" -"(let-values(((result_115)" -"(let-values()" "(let-values(((result_116)" "(let-values()" +"(let-values(((result_117)" +"(let-values()" "(let-values()" "(if(let-values(((or-part_75)" "(not" @@ -45950,16 +45965,16 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_116)))))" -"(if(if(not((lambda x_78(not result_115)) k_34 v_3))" +"(values result_117)))))" +"(if(if(not((lambda x_78(not result_116)) k_34 v_3))" "(not #f)" " #f)" -"(for-loop_184" -" result_115" +"(for-loop_183" +" result_116" "(hash-iterate-next ht_152 i_91))" -" result_115)))" -" result_114)))))" -" for-loop_184)" +" result_116)))" +" result_115)))))" +" for-loop_183)" " #t" "(hash-iterate-first ht_152))))" " #f))))))" @@ -46751,7 +46766,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_38 r_43)(begin 'cons-if(if f_38(cons f_38 r_43) r_43))))" +"(lambda(f_38 r_44)(begin 'cons-if(if f_38(cons f_38 r_44) r_44))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -46819,7 +46834,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -46835,16 +46850,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'inner)" -"(make-struct-field-accessor -ref_32 1 'wrap)" -"(make-struct-field-accessor -ref_32 2 'line)" -"(make-struct-field-accessor -ref_32 3 'col)" -"(make-struct-field-accessor -ref_32 4 'pos)" -"(make-struct-field-accessor -ref_32 5 'indentations)" -"(make-struct-field-accessor -ref_32 6 'keep-comment?))))" +" struct:_31" +" make-_31" +" ?_31" +"(make-struct-field-accessor -ref_31 0 'inner)" +"(make-struct-field-accessor -ref_31 1 'wrap)" +"(make-struct-field-accessor -ref_31 2 'line)" +"(make-struct-field-accessor -ref_31 3 'col)" +"(make-struct-field-accessor -ref_31 4 'pos)" +"(make-struct-field-accessor -ref_31 5 'indentations)" +"(make-struct-field-accessor -ref_31 6 'keep-comment?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -46861,7 +46876,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" +"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" "(let-values()" "(let-values()" "(make-struct-type" @@ -46877,21 +46892,21 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" struct:_75" -" make-_75" -" ?_75" -"(make-struct-field-accessor -ref_75 0 'readtable)" -"(make-struct-field-accessor -ref_75 1 'next-readtable)" -"(make-struct-field-accessor -ref_75 2 'for-syntax?)" -"(make-struct-field-accessor -ref_75 3 'source)" -"(make-struct-field-accessor -ref_75 4 'read-compiled)" -"(make-struct-field-accessor -ref_75 5 'dynamic-require)" -"(make-struct-field-accessor -ref_75 6 'module-declared?)" -"(make-struct-field-accessor -ref_75 7 'coerce)" -"(make-struct-field-accessor -ref_75 8 'coerce-key)" -"(make-struct-field-accessor -ref_75 9 'parameter-override)" -"(make-struct-field-accessor -ref_75 10 'parameter-cache)" -"(make-struct-field-accessor -ref_75 11 'st))))" +" struct:_74" +" make-_74" +" ?_74" +"(make-struct-field-accessor -ref_74 0 'readtable)" +"(make-struct-field-accessor -ref_74 1 'next-readtable)" +"(make-struct-field-accessor -ref_74 2 'for-syntax?)" +"(make-struct-field-accessor -ref_74 3 'source)" +"(make-struct-field-accessor -ref_74 4 'read-compiled)" +"(make-struct-field-accessor -ref_74 5 'dynamic-require)" +"(make-struct-field-accessor -ref_74 6 'module-declared?)" +"(make-struct-field-accessor -ref_74 7 'coerce)" +"(make-struct-field-accessor -ref_74 8 'coerce-key)" +"(make-struct-field-accessor -ref_74 9 'parameter-override)" +"(make-struct-field-accessor -ref_74 10 'parameter-cache)" +"(make-struct-field-accessor -ref_74 11 'st))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" @@ -46977,7 +46992,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" +"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" "(let-values()" "(let-values()" "(make-struct-type" @@ -46993,13 +47008,13 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" struct:_76" -" make-_76" -" ?_76" -"(make-struct-field-accessor -ref_76 0 'accum-str)" -"(make-struct-field-accessor -ref_76 1 'graph)" -"(make-struct-field-mutator -set!_76 0 'accum-str)" -"(make-struct-field-mutator -set!_76 1 'graph))))" +" struct:_75" +" make-_75" +" ?_75" +"(make-struct-field-accessor -ref_75 0 'accum-str)" +"(make-struct-field-accessor -ref_75 1 'graph)" +"(make-struct-field-mutator -set!_75 0 'accum-str)" +"(make-struct-field-mutator -set!_75 1 'graph))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" @@ -47721,11 +47736,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_151)))" "((letrec-values(((for-loop_267)" -"(lambda(fold-var_80 i_174)" +"(lambda(fold-var_80 i_175)" "(begin" " 'for-loop" -"(if i_174" -"(let-values(((k_39 v_89)(hash-iterate-key+value ht_151 i_174)))" +"(if i_175" +"(let-values(((k_39 v_89)(hash-iterate-key+value ht_151 i_175)))" "(let-values(((fold-var_279)" "(let-values(((fold-var_83) fold-var_80))" "(if(eqv? v_89 c_61)" @@ -47736,7 +47751,7 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_83))))" "(if(not #f)" -"(for-loop_267 fold-var_279(hash-iterate-next ht_151 i_174))" +"(for-loop_267 fold-var_279(hash-iterate-next ht_151 i_175))" " fold-var_279)))" " fold-var_80)))))" " for-loop_267)" @@ -47744,10 +47759,10 @@ static const char *startup_source = "(hash-iterate-first ht_151))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" +"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" "(let-values()" "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'value))))" +"(values struct:_76 make-_76 ?_76(make-struct-field-accessor -ref_76 0 'value))))" "(define-values" "(wrap)" "(lambda(s-exp_3 in_2 config_7 rep_0)" @@ -48362,22 +48377,22 @@ static const char *startup_source = "(let-values()" "(let-values(((missing_2)" "(let-values(((or-part_301)" -"(let-values(((lst_309)(cdr indts_1)))" +"(let-values(((lst_311)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_309)))" +"(let-values()(check-list lst_311)))" "((letrec-values(((for-loop_272)" -"(lambda(result_39 lst_310)" +"(lambda(result_39 lst_312)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((indt_3)(unsafe-car lst_310))" -"((rest_173)" -"(unsafe-cdr lst_310)))" -"(let-values(((result_81)" +"(if(pair? lst_312)" +"(let-values(((indt_3)(unsafe-car lst_312))" +"((rest_172)" +"(unsafe-cdr lst_312)))" +"(let-values(((result_82)" "(let-values()" -"(let-values(((result_117)" +"(let-values(((result_118)" "(let-values()" "(let-values()" "(if(char=?" @@ -48386,18 +48401,18 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_117)))))" +"(values result_118)))))" "(if(if(not" -"((lambda x_79 result_81)" +"((lambda x_79 result_82)" " indt_3))" "(not #f)" " #f)" -"(for-loop_272 result_81 rest_173)" -" result_81)))" +"(for-loop_272 result_82 rest_172)" +" result_82)))" " result_39)))))" " for-loop_272)" " #f" -" lst_309)))))" +" lst_311)))))" " (if or-part_301 or-part_301 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" @@ -49008,8 +49023,8 @@ static const char *startup_source = " (let-values () (format \"no character after `#` indicator in `~.a`\" s_470))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_174)(string-ref s_470 next_4)))" -"(let-values(((tmp_39) i_174))" +"(let-values(((i_175)(string-ref s_470 next_4)))" +"(let-values(((tmp_39) i_175))" "(let-values(((index_2)" "(if(char? tmp_39)" "(let-values(((codepoint_0)(char->integer tmp_39)))" @@ -49083,7 +49098,7 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_174" +" i_175" "(substring s_470 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" @@ -49105,10 +49120,10 @@ static const char *startup_source = "((radix-set?80_0) radix-set?_0)" "((temp81_1)" "(if(let-values(((or-part_215)" -"(char=? i_174 '#\\e)))" +"(char=? i_175 '#\\e)))" "(if or-part_215" " or-part_215" -"(char=? i_174 '#\\E)))" +"(char=? i_175 '#\\E)))" " 'exact" " 'inexact))" "((temp82_3)" @@ -49137,7 +49152,7 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_40) i_174))" +"(let-values(((tmp_40) i_175))" "(if(if(equal? tmp_40 '#\\b)" " #t" "(equal? tmp_40 '#\\B))" @@ -49391,7 +49406,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_107)" -"(lambda(i_175" +"(lambda(i_176" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49403,7 +49418,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_175 end_34)" +"(if(= i_176 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49502,11 +49517,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_202 i_175)))" +"(let-values(((c_80)(string-ref s_202 i_176)))" "(if(digit? c_80 radix_5)" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " #t" " any-hashes?_0" " i-pos_3" @@ -49519,7 +49534,7 @@ static const char *startup_source = "(if(char=? c_80 '#\\#)" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " #t" " #t" " i-pos_3" @@ -49541,20 +49556,20 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_175" +" i_176" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_175 start_44)" +"(if(> i_176 start_44)" "(let-values(((or-part_311)(not @-pos_0)))" "(if or-part_311" " or-part_311" -"(> i_175(add1 @-pos_0))))" +"(> i_176(add1 @-pos_0))))" " #f)))))" "(if(char=? c_80 '#\\.)" "(let-values()" @@ -49596,13 +49611,13 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_175" +" i_176" " #f" " #f" " must-i?_0)))))" @@ -49647,14 +49662,14 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_175" +" i_176" " #f" " must-i?_0)))))" "(if(let-values(((or-part_318)(char=? c_80 '#\\e)))" @@ -49722,12 +49737,12 @@ static const char *startup_source = " c_80" "(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_175) end_34)" -"(char-sign?(string-ref s_202(add1 i_175)))" +"(if(if(<(add1 i_176) end_34)" +"(char-sign?(string-ref s_202(add1 i_176)))" " #f)" "(let-values()" "(loop_107" -"(+ i_175 2)" +"(+ i_176 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49736,11 +49751,11 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_327) exp-pos_0))" -"(if or-part_327 or-part_327 i_175))" +"(if or-part_327 or-part_327 i_176))" " must-i?_0))" "(let-values()" "(loop_107" -"(+ i_175 1)" +"(+ i_176 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49749,7 +49764,7 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_328) exp-pos_0))" -"(if or-part_328 or-part_328 i_175))" +"(if or-part_328 or-part_328 i_176))" " must-i?_0)))))" "(if(char=? c_80 '#\\@)" "(let-values()" @@ -49772,7 +49787,7 @@ static const char *startup_source = " \"too many `@`s in `~.a`\"" "(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_175 start_44)" +"(if(= i_176 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -49790,11 +49805,11 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_175" +" i_176" " #f" " #f" " #f" @@ -49820,7 +49835,7 @@ static const char *startup_source = "(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_332)" -"(<(add1 i_175) end_34)))" +"(<(add1 i_176) end_34)))" "(if or-part_332" " or-part_332" "(eq? in-complex_1 'i)))" @@ -49833,10 +49848,10 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_175)" +"(add1 i_176)" " any-digits?_0" " any-hashes?_0" -" i_175" +" i_176" " @-pos_0" " sign-pos_0" " #f" @@ -50068,7 +50083,7 @@ static const char *startup_source = "(let-values(((e-v_0)" "(string->exact-integer-number s_238(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_44)" +"(lambda(r_45)" "(begin" " 'real->precision-inexact" "(let-values(((tmp_41)(string-ref s_238 exp-pos_1)))" @@ -50077,16 +50092,16 @@ static const char *startup_source = "(if(equal? tmp_41 '#\\S)" " #t" "(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" -"(let-values()(real->single-flonum r_44))" +"(let-values()(real->single-flonum r_45))" "(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_44)" +"(real->extfl r_45)" "(string->number$1" "(replace-hashes s_238 start_45 end_35)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_44)))))))))" +"(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" "(if(let-values(((or-part_343)(not m-v_0)))(if or-part_343 or-part_343(not e-v_0)))" "(let-values() #f)" @@ -50429,20 +50444,20 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_273)" -"(lambda(result_118 idx_5)" +"(lambda(result_119 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" "(let-values(((c_82)(string-ref v*_6 idx_5)))" -"(let-values(((result_119)" -"(let-values()" "(let-values(((result_120)" +"(let-values()" +"(let-values(((result_121)" "(let-values()(let-values()(char=? c_82 '#\\#)))))" -"(values result_120)))))" -"(if(if(not((lambda x_82 result_119) c_82))(not #f) #f)" -"(for-loop_273 result_119(unsafe-fx+ idx_5 1))" -" result_119)))" -" result_118)))))" +"(values result_121)))))" +"(if(if(not((lambda x_82 result_120) c_82))(not #f) #f)" +"(for-loop_273 result_120(unsafe-fx+ idx_5 1))" +" result_120)))" +" result_119)))))" " for-loop_273)" " #f" " start*_5))))))" @@ -50473,7 +50488,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_83)(string-ref v*_7 idx_6))((i_176) pos_114))" +"(let-values(((c_83)(string-ref v*_7 idx_6))((i_177) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50481,8 +50496,8 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_83 '#\\#)" -"(string-set! new-s_9 i_176 '#\\0)" -"(string-set! new-s_9 i_176 c_83)))" +"(string-set! new-s_9 i_177 '#\\0)" +"(string-set! new-s_9 i_177 c_83)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" @@ -51014,19 +51029,19 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_24)))" "((letrec-values(((for-loop_253)" -"(lambda(i_177 lst_80)" +"(lambda(i_178 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" "(let-values(((e_72)" "(unsafe-car" " lst_80))" -"((rest_142)" +"((rest_141)" "(unsafe-cdr" " lst_80)))" "(let-values(((i_39)" "(let-values(((i_40)" -" i_177))" +" i_178))" "(let-values(((i_41)" "(let-values()" "(begin" @@ -51057,9 +51072,9 @@ static const char *startup_source = " #f)" "(for-loop_253" " i_39" -" rest_142)" +" rest_141)" " i_39)))" -" i_177)))))" +" i_178)))))" " for-loop_253)" " 0" " lst_24)))))" @@ -51087,8 +51102,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_189)" -"(lambda(i_178 lst_17)" +"((letrec-values(((for-loop_188)" +"(lambda(i_179 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" @@ -51098,10 +51113,10 @@ static const char *startup_source = "((rest_88)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_158)" +"(let-values(((i_159)" "(let-values(((i_93)" -" i_178))" -"(let-values(((i_179)" +" i_179))" +"(let-values(((i_180)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -51120,21 +51135,21 @@ static const char *startup_source = " 1" " i_93)))))" "(values" -" i_179)))))" +" i_180)))))" "(if(if(not" "((lambda x_86" "(unsafe-fx=" -" i_158" +" i_159" " len_37))" " e_79))" "(not #f)" " #f)" -"(for-loop_189" -" i_158" +"(for-loop_188" +" i_159" " rest_88)" -" i_158)))" -" i_178)))))" -" for-loop_189)" +" i_159)))" +" i_179)))))" +" for-loop_188)" " 0" " lst_92)))))" " v_235))))))" @@ -51241,10 +51256,10 @@ static const char *startup_source = "(let-values(((e_80)" "(unsafe-car" " lst_10))" -"((rest_168)" +"((rest_167)" "(unsafe-cdr" " lst_10))" -"((i_180)" +"((i_181)" " pos_116))" "(let-values((()" "(let-values()" @@ -51254,13 +51269,13 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_67" -" i_180" +" i_181" " e_80))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_275" -" rest_168" +" rest_167" "(+ pos_116 1))" "(values))))" "(values))))))" @@ -51292,10 +51307,10 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_180))" -"((rest_174)" +"((rest_173)" "(unsafe-cdr" " lst_180))" -"((i_181)" +"((i_182)" " pos_109))" "(let-values((()" "(let-values()" @@ -51305,13 +51320,13 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_67" -" i_181" +" i_182" " e_81))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_99" -" rest_174" +" rest_173" "(+" " pos_109" " 1))" @@ -51324,32 +51339,32 @@ static const char *startup_source = "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_311) seq_2)((start_57) 0))" +"(let-values(((lst_313) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_311)))" +"(let-values()(check-list lst_313)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_57)))" "((letrec-values(((for-loop_109)" -"(lambda(lst_279" +"(lambda(lst_280" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_279)" +" lst_280)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_279))" +" lst_280))" "((rest_45)" "(unsafe-cdr" -" lst_279))" +" lst_280))" "((i_35)" " pos_117))" "(let-values((()" @@ -51373,7 +51388,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_109)" -" lst_311" +" lst_313" " start_57)))" "(void)))" "(let-values()(void))))))" @@ -53395,16 +53410,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_232)))" "((letrec-values(((for-loop_276)" -"(lambda(lst_312)" +"(lambda(lst_314)" "(begin" " 'for-loop" -"(if(pair? lst_312)" +"(if(pair? lst_314)" "(let-values(((c_99)" "(unsafe-car" -" lst_312))" -"((rest_175)" +" lst_314))" +"((rest_174)" "(unsafe-cdr" -" lst_312)))" +" lst_314)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53418,7 +53433,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_276" -" rest_175)" +" rest_174)" "(values))))" "(values))))))" " for-loop_276)" @@ -54303,11 +54318,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" "((letrec-values(((for-loop_25)" -"(lambda(lst_313)" +"(lambda(lst_315)" "(begin" " 'for-loop" -"(if(pair? lst_313)" -"(let-values(((c_106)(unsafe-car lst_313))((rest_176)(unsafe-cdr lst_313)))" +"(if(pair? lst_315)" +"(let-values(((c_106)(unsafe-car lst_315))((rest_175)(unsafe-cdr lst_315)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54317,7 +54332,7 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_106))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_25 rest_176)(values))))" +"(if(not #f)(for-loop_25 rest_175)(values))))" "(values))))))" " for-loop_25)" " lst_33)))" @@ -56711,12 +56726,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_267)" +"(lambda(lst_268)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((sym_96)(unsafe-car lst_267))" -"((rest_177)(unsafe-cdr lst_267)))" +"(if(pair? lst_268)" +"(let-values(((sym_96)(unsafe-car lst_268))" +"((rest_176)(unsafe-cdr lst_268)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -56735,7 +56750,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_177)" +"(for-loop_20 rest_176)" "(values))))" "(values))))))" " for-loop_20)" @@ -56793,7 +56808,7 @@ static const char *startup_source = " 1/make-exn:fail:filesystem:missing-module" " 1/exn:fail:filesystem:missing-module?" " 1/exn:fail:filesystem:missing-module-path)" -"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)" +"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" "(let-values()" "(let-values()" "(make-struct-type" @@ -56809,13 +56824,13 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_78 make-_78 ?_78(make-struct-field-accessor -ref_78 0 'path))))" +"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'path))))" "(define-values" "(1/struct:exn:fail:syntax:missing-module" " 1/make-exn:fail:syntax:missing-module" " 1/exn:fail:syntax:missing-module?" " 1/exn:fail:syntax:missing-module-path)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type" @@ -56830,7 +56845,7 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'path))))" +"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" @@ -58041,14 +58056,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_162)))" "((letrec-values(((for-loop_266)" -"(lambda(table_11 i_181)" +"(lambda(table_11 i_182)" "(begin" " 'for-loop" -"(if i_181" +"(if i_182" "(let-values(((sym_97 val_6)" "(hash-iterate-key+value" " ht_162" -" i_181)))" +" i_182)))" "(let-values(((table_220)" "(let-values(((table_221)" " table_11))" @@ -58081,7 +58096,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_266" " table_220" -"(hash-iterate-next ht_162 i_181))" +"(hash-iterate-next ht_162 i_182))" " table_220)))" " table_11)))))" " for-loop_266)" @@ -58094,14 +58109,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_163)))" "((letrec-values(((for-loop_277)" -"(lambda(ht_164 i_182)" +"(lambda(ht_164 i_183)" "(begin" " 'for-loop" -"(if i_182" +"(if i_183" "(let-values(((k_42 v_50)" "(hash-iterate-key+value" " ht_163" -" i_182)))" +" i_183)))" "(let-values(((ht_165)" "(let-values(((ht_166)" " ht_164))" @@ -58115,7 +58130,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_277" " ht_165" -"(hash-iterate-next ht_163 i_182))" +"(hash-iterate-next ht_163 i_183))" " ht_165)))" " ht_164)))))" " for-loop_277)" @@ -58178,14 +58193,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_168)))" "((letrec-values(((for-loop_278)" -"(lambda(table_224 i_183)" +"(lambda(table_224 i_184)" "(begin" " 'for-loop" -"(if i_183" +"(if i_184" "(let-values(((sym_98)" "(hash-iterate-key" " ht_168" -" i_183)))" +" i_184)))" "(let-values(((table_225)" "(let-values(((table_226)" " table_224))" @@ -58256,7 +58271,7 @@ static const char *startup_source = " table_225" "(hash-iterate-next" " ht_168" -" i_183))" +" i_184))" " table_225)))" " table_224)))))" " for-loop_278)" @@ -58366,7 +58381,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_205)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_41 lst_206)" "(begin" " 'for-loop" @@ -58387,10 +58402,10 @@ static const char *startup_source = " fold-var_281))))" "(values fold-var_282)))))" "(if(not #f)" -"(for-loop_203 fold-var_280 rest_105)" +"(for-loop_202 fold-var_280 rest_105)" " fold-var_280)))" " fold-var_41)))))" -" for-loop_203)" +" for-loop_202)" " null" " lst_205))))))" "(let-values(((ns79_1) ns_121)" @@ -58409,14 +58424,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_55)))" "((letrec-values(((for-loop_280)" -"(lambda(table_228 lst_314)" +"(lambda(table_228 lst_316)" "(begin" " 'for-loop" -"(if(pair? lst_314)" +"(if(pair? lst_316)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_314))" -"((rest_178)" -"(unsafe-cdr lst_314)))" +"(unsafe-car lst_316))" +"((rest_177)" +"(unsafe-cdr lst_316)))" "(let-values(((table_229)" "(let-values(((m_29)" "(namespace->module" @@ -58458,7 +58473,7 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_37" " i_49)))" -"(let-values(((table_120)" +"(let-values(((table_121)" "(let-values(((table_162)" " table_147))" "(let-values(((table_230)" @@ -58478,11 +58493,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_35" -" table_120" +" table_121" "(hash-iterate-next" " ht_37" " i_49))" -" table_120)))" +" table_121)))" " table_147)))))" " for-loop_35)" " table_31" @@ -58492,7 +58507,7 @@ static const char *startup_source = " for-loop_281)" " table_228)))))" "(if(not #f)" -"(for-loop_280 table_229 rest_178)" +"(for-loop_280 table_229 rest_177)" " table_229)))" " table_228)))))" " for-loop_280)" @@ -58899,9 +58914,9 @@ static const char *startup_source = "(if(if(syntax?$1 exp_0)" "(if(pair?(1/syntax-e exp_0))" "(if(eq? 'module(1/syntax-e(car(1/syntax-e exp_0))))" -"(let-values(((r_40)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_45)(if(syntax?$1 r_40)(1/syntax-e r_40) r_40)))" -"(if(pair? r_45)(identifier?(car r_45)) #f)))" +"(let-values(((r_41)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_46)(if(syntax?$1 r_41)(1/syntax-e r_41) r_41)))" +"(if(pair? r_46)(identifier?(car r_46)) #f)))" " #f)" " #f)" " #f)" @@ -58958,25 +58973,25 @@ static const char *startup_source = "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_184)" +"(lambda(i_185)" "(begin" -"(maybe-count-lines!_0 i_184)" +"(maybe-count-lines!_0 i_185)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_184)))" +"(let-values(((c1_31)(linklet-directory-start i_185)))" "(if c1_31" "((lambda(pos_126)" "(let-values(((b-pos_0)" -"(search-directory i_184 pos_126(encode-symbols expected-mod_0))))" +"(search-directory i_185 pos_126(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_184 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_184)))" +"(file-position i_185 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_185)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_184)))" +"(let-values(((v_0)(1/read i_185)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -58985,7 +59000,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_184)" +"(object-name i_185)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -58993,15 +59008,15 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_184)))))))" +"(object-name i_185)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_184)))" +"(let-values(((c2_17)(cached-bundle i_185)))" "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_184) i_184)))" +"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" "(let-values((()" "(begin" "(if(eof-object? s_170)" @@ -59012,11 +59027,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_184)))" +"(object-name i_185)))" "(void))" "(values))))" "(let-values(((m-s_0)(check-module-form s_170 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_184) i_184)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -59028,7 +59043,7 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_184)" +"(object-name i_185)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" @@ -59099,22 +59114,22 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_148 tag_1)" +"(lambda(i_149 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_148)(char->integer '#\\#))" -"(if(equal?(peek-byte i_148 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_148 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_148)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_148(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_149)(char->integer '#\\#))" +"(if(equal?(peek-byte i_149 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_149 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_149)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_149(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_153)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_153 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_154)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_154 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" "(lambda(i_85)" @@ -59129,21 +59144,21 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_229)" -"(lambda(result_121 pos_127)" +"(lambda(result_122 pos_127)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_127 len_39)" "(let-values(((c_73)(unsafe-bytes-ref vec_68 pos_127)))" -"(let-values(((result_122)" -"(let-values()" "(let-values(((result_123)" "(let-values()" +"(let-values(((result_124)" +"(let-values()" "(let-values()(not(eq? c_73 0))))))" -"(values result_123)))))" -"(if(if(not((lambda x_90 result_122) c_73))(not #f) #f)" -"(for-loop_229 result_122(unsafe-fx+ 1 pos_127))" -" result_122)))" -" result_121)))))" +"(values result_124)))))" +"(if(if(not((lambda x_90 result_123) c_73))(not #f) #f)" +"(for-loop_229 result_123(unsafe-fx+ 1 pos_127))" +" result_123)))" +" result_122)))))" " for-loop_229)" " #f" " 0)))" @@ -59164,10 +59179,10 @@ static const char *startup_source = "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_185)" +"(lambda(i_186)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_181)(read-byte i_185)))(if(eof-object? v_181) 0 v_181))))))" +"(let-values(((v_181)(read-byte i_186)))(if(eof-object? v_181) 0 v_181))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -59175,14 +59190,14 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_186 pos_128 bstr_5)" +"(lambda(i_187 pos_128 bstr_5)" "(begin" "(if(zero? pos_128)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_186 pos_128)(values))))" -"(let-values(((name-len_0)(read-number i_186)))" -"(let-values(((v_248)(read-bytes name-len_0 i_186)))" +"(let-values((()(begin(file-position i_187 pos_128)(values))))" +"(let-values(((name-len_0)(read-number i_187)))" +"(let-values(((v_248)(read-bytes name-len_0 i_187)))" "(begin" "(if(if(bytes? v_248)(=(bytes-length v_248) name-len_0) #f)" "(void)" @@ -59195,24 +59210,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_186)" +"(object-name i_187)" " pos_128" " name-len_0" " v_248)))" "(if(bytes=? bstr_5 v_248)" -"(let-values()(read-number i_186))" +"(let-values()(read-number i_187))" "(if(bytesbytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_85)))" +"(let-values(((b_86)(path->bytes orig-file_0)))" +"(let-values(((len_7)(bytes-length b_86)))" "(if(if(>= len_7 4)" -" (bytes=? #\".rkt\" (subbytes b_85 (- len_7 4)))" +" (bytes=? #\".rkt\" (subbytes b_86 (- len_7 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_85 0 (- len_7 4)) #\".ss\"))))" +" (bytes-append (subbytes b_86 0 (- len_7 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -59659,12 +59674,12 @@ static const char *startup_source = "(path-cache-set!)" "(lambda(p_75 v_249)" "(begin" -"(let-values(((i_187)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_187)))" +"(let-values(((i_188)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_188)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_187" +" i_188" "(make-weak-box" "(cons(cons p_75 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" "(define-values(-loading-filename)(gensym))" @@ -59898,9 +59913,9 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_46)" +"(let-values(((r_47)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_46) r_46))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" "(if(if(pair? s_26)(eq?(car s_26) 'planet) #f)" "(let-values()" "(begin" @@ -60494,18 +60509,18 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_265) bodys_7))" +"(let-values(((lst_266) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_266)))" "((letrec-values(((for-loop_282)" "(lambda(fold-var_68 lst_102)" "(begin" " 'for-loop" "(if(pair? lst_102)" "(let-values(((body_11)(unsafe-car lst_102))" -"((rest_141)(unsafe-cdr lst_102)))" +"((rest_140)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" "(let-values(((fold-var_212)" @@ -60518,12 +60533,12 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_212)))))" "(if(not #f)" -"(for-loop_282 fold-var_11 rest_141)" +"(for-loop_282 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_68)))))" " for-loop_282)" " null" -" lst_265))))))" +" lst_266))))))" "(let-values((()" "(begin" "(let-values(((obs_68)(expand-context-observer ctx_14)))" @@ -60898,17 +60913,17 @@ static const char *startup_source = " lst_195)))" "((letrec-values(((for-loop_283)" "(lambda(id_81" -" lst_316)" +" lst_318)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_318)" "(let-values(((s_317)" "(unsafe-car" -" lst_316))" -"((rest_179)" +" lst_318))" +"((rest_178)" "(unsafe-cdr" -" lst_316)))" +" lst_318)))" "(let-values(((id_70)" "(let-values(((id_107)" " id_81))" @@ -60942,7 +60957,7 @@ static const char *startup_source = " #f)" "(for-loop_283" " id_70" -" rest_179)" +" rest_178)" " id_70)))" " id_81)))))" " for-loop_283)" @@ -61065,17 +61080,17 @@ static const char *startup_source = " lst_51)))" "((letrec-values(((for-loop_284)" "(lambda(fold-var_183" -" lst_317)" +" lst_319)" "(begin" " 'for-loop" "(if(pair?" -" lst_317)" +" lst_319)" "(let-values(((id_86)" "(unsafe-car" -" lst_317))" -"((rest_180)" +" lst_319))" +"((rest_179)" "(unsafe-cdr" -" lst_317)))" +" lst_319)))" "(let-values(((fold-var_238)" "(let-values(((fold-var_283)" " fold-var_183))" @@ -61108,7 +61123,7 @@ static const char *startup_source = " #f)" "(for-loop_284" " fold-var_238" -" rest_180)" +" rest_179)" " fold-var_238)))" " fold-var_183)))))" " for-loop_284)" @@ -61134,25 +61149,25 @@ static const char *startup_source = " lst_198)))" "((letrec-values(((for-loop_261)" "(lambda(env_17" -" lst_318" +" lst_320" " lst_29)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_318)" +" lst_320)" "(pair?" " lst_29)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_318))" -"((rest_149)" +" lst_320))" +"((rest_148)" "(unsafe-cdr" -" lst_318))" +" lst_320))" "((id_9)" "(unsafe-car" " lst_29))" -"((rest_181)" +"((rest_180)" "(unsafe-cdr" " lst_29)))" "(let-values(((env_18)" @@ -61171,8 +61186,8 @@ static const char *startup_source = " #f)" "(for-loop_261" " env_18" -" rest_149" -" rest_181)" +" rest_148" +" rest_180)" " env_18)))" " env_17)))))" " for-loop_261)" @@ -61282,7 +61297,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_319)" +"(let-values(((lst_321)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61290,20 +61305,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_319)))" +" lst_321)))" "((letrec-values(((for-loop_285)" "(lambda(fold-var_289" -" lst_320)" +" lst_322)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_322)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_320))" -"((rest_182)" +" lst_322))" +"((rest_181)" "(unsafe-cdr" -" lst_320)))" +" lst_322)))" "(let-values(((fold-var_290)" "(let-values(((fold-var_291)" " fold-var_289))" @@ -61319,18 +61334,18 @@ static const char *startup_source = " #f)" "(for-loop_285" " fold-var_290" -" rest_182)" +" rest_181)" " fold-var_290)))" " fold-var_289)))))" " for-loop_285)" " null" -" lst_319))))" +" lst_321))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_321)" +"(let-values(((lst_323)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61338,7 +61353,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" +" lst_323)))" "((letrec-values(((for-loop_260)" "(lambda(fold-var_293" " lst_203)" @@ -61349,7 +61364,7 @@ static const char *startup_source = "(let-values(((done-body_2)" "(unsafe-car" " lst_203))" -"((rest_183)" +"((rest_182)" "(unsafe-cdr" " lst_203)))" "(let-values(((fold-var_294)" @@ -61370,12 +61385,12 @@ static const char *startup_source = " #f)" "(for-loop_260" " fold-var_294" -" rest_183)" +" rest_182)" " fold-var_294)))" " fold-var_293)))))" " for-loop_260)" " null" -" lst_321))))" +" lst_323))))" " val-rhss_0))" "(cons" " exp-body_0" @@ -61400,7 +61415,7 @@ static const char *startup_source = "(let-values(((done-body_3)" "(unsafe-car" " lst_108))" -"((rest_184)" +"((rest_183)" "(unsafe-cdr" " lst_108)))" "(let-values(((fold-var_296)" @@ -61418,7 +61433,7 @@ static const char *startup_source = " #f)" "(for-loop_286" " fold-var_296" -" rest_184)" +" rest_183)" " fold-var_296)))" " fold-var_139)))))" " for-loop_286)" @@ -61502,7 +61517,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_109)" -"(let-values(((lst_322)" +"(let-values(((lst_324)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61510,7 +61525,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_322)))" +" lst_324)))" "((letrec-values(((for-loop_287)" "(lambda(id_110" " lst_35)" @@ -61521,7 +61536,7 @@ static const char *startup_source = "(let-values(((s_493)" "(unsafe-car" " lst_35))" -"((rest_185)" +"((rest_184)" "(unsafe-cdr" " lst_35)))" "(let-values(((id_111)" @@ -61557,12 +61572,12 @@ static const char *startup_source = " #f)" "(for-loop_287" " id_111" -" rest_185)" +" rest_184)" " id_111)))" " id_110)))))" " for-loop_287)" " null" -" lst_322)))))" +" lst_324)))))" "(reverse$1" " id_109))))))))" "((rhs112_0)" @@ -61669,7 +61684,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_323)" +"(let-values(((lst_325)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61677,20 +61692,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_323)))" +" lst_325)))" "((letrec-values(((for-loop_288)" "(lambda(fold-var_298" -" lst_324)" +" lst_326)" "(begin" " 'for-loop" "(if(pair?" -" lst_324)" +" lst_326)" "(let-values(((id_114)" "(unsafe-car" -" lst_324))" -"((rest_186)" +" lst_326))" +"((rest_185)" "(unsafe-cdr" -" lst_324)))" +" lst_326)))" "(let-values(((fold-var_299)" "(let-values(((fold-var_300)" " fold-var_298))" @@ -61723,12 +61738,12 @@ static const char *startup_source = " #f)" "(for-loop_288" " fold-var_299" -" rest_186)" +" rest_185)" " fold-var_299)))" " fold-var_298)))))" " for-loop_288)" " null" -" lst_323))))))" +" lst_325))))))" "(let-values((()" "(begin" "(let-values(((obs_74)" @@ -61766,11 +61781,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_325)" +"(let-values(((lst_327)" " keys_6)" -"((lst_326)" +"((lst_328)" " vals_8)" -"((lst_327)" +"((lst_329)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61778,52 +61793,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_326)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_327)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_328)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_329)))" "((letrec-values(((for-loop_289)" "(lambda(env_21" -" lst_328" -" lst_329" -" lst_330)" +" lst_330" +" lst_331" +" lst_332)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_328)" -"(if(pair?" -" lst_329)" -"(pair?" " lst_330)" +"(if(pair?" +" lst_331)" +"(pair?" +" lst_332)" " #f)" " #f)" "(let-values(((key_92)" "(unsafe-car" -" lst_328))" -"((rest_187)" +" lst_330))" +"((rest_186)" "(unsafe-cdr" -" lst_328))" +" lst_330))" "((val_82)" "(unsafe-car" -" lst_329))" -"((rest_188)" +" lst_331))" +"((rest_187)" "(unsafe-cdr" -" lst_329))" +" lst_331))" "((id_115)" "(unsafe-car" -" lst_330))" -"((rest_189)" +" lst_332))" +"((rest_188)" "(unsafe-cdr" -" lst_330)))" +" lst_332)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -61845,17 +61860,17 @@ static const char *startup_source = " #f)" "(for-loop_289" " env_22" +" rest_186" " rest_187" -" rest_188" -" rest_189)" +" rest_188)" " env_22)))" " env_21)))))" " for-loop_289)" "(expand-context-env" " body-ctx_2)" -" lst_325" -" lst_326" -" lst_327)))))" +" lst_327" +" lst_328" +" lst_329)))))" "(begin" "(let-values(((obs_76)" "(expand-context-observer" @@ -62115,14 +62130,14 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_331) 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_331)))" +"(check-list lst_333)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -62130,21 +62145,21 @@ static const char *startup_source = "(check-naturals start_66)))" "((letrec-values(((for-loop_290)" "(lambda(fold-var_260" -" lst_332" +" lst_334" " pos_129)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_332)" +" lst_334)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_332))" -"((rest_190)" +" lst_334))" +"((rest_189)" "(unsafe-cdr" -" lst_332))" -"((i_188)" +" lst_334))" +"((i_189)" " pos_129))" "(let-values(((fold-var_261)" "(let-values(((fold-var_262)" @@ -62169,7 +62184,7 @@ static const char *startup_source = "((temp135_2)" "(if(if name_78" "(=" -" i_188" +" i_189" " last-i_1)" " #f)" "(let-values(((v_254)" @@ -62231,7 +62246,7 @@ static const char *startup_source = " #f)" "(for-loop_290" " fold-var_261" -" rest_190" +" rest_189" "(+" " pos_129" " 1))" @@ -62239,7 +62254,7 @@ static const char *startup_source = " fold-var_260)))))" " for-loop_290)" " null" -" lst_331" +" lst_333" " start_66))))))" "(begin" "(let-values(((obs_80)" @@ -62684,7 +62699,7 @@ static const char *startup_source = "(let-values(((phase_142)(expand-context-phase ctx_40)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_285) track-stxs_4))" +"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_286) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -62694,18 +62709,18 @@ static const char *startup_source = "(let-values()(check-list lst_248)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" +"(let-values()(check-list lst_286)))" "((letrec-values(((for-loop_291)" -"(lambda(fold-var_302 lst_333 lst_287 lst_124)" +"(lambda(fold-var_302 lst_335 lst_288 lst_289)" "(begin" " 'for-loop" -"(if(if(pair? lst_333)(if(pair? lst_287)(pair? lst_124) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_333))" -"((rest_159)(unsafe-cdr lst_333))" -"((val-rhs_0)(unsafe-car lst_287))" -"((rest_160)(unsafe-cdr lst_287))" -"((track-stx_2)(unsafe-car lst_124))" -"((rest_191)(unsafe-cdr lst_124)))" +"(if(if(pair? lst_335)(if(pair? lst_288)(pair? lst_289) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_335))" +"((rest_158)(unsafe-cdr lst_335))" +"((val-rhs_0)(unsafe-car lst_288))" +"((rest_159)(unsafe-cdr lst_288))" +"((track-stx_2)(unsafe-car lst_289))" +"((rest_62)(unsafe-cdr lst_289)))" "(let-values(((fold-var_303)" "(let-values(((fold-var_304) fold-var_302))" "(let-values(((fold-var_305)" @@ -62719,14 +62734,14 @@ static const char *startup_source = " fold-var_304))))" "(values fold-var_305)))))" "(if(not #f)" -"(for-loop_291 fold-var_303 rest_159 rest_160 rest_191)" +"(for-loop_291 fold-var_303 rest_158 rest_159 rest_62)" " fold-var_303)))" " fold-var_302)))))" " for-loop_291)" " null" " lst_247" " lst_248" -" lst_285))))))" +" lst_286))))))" "(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_142)))" "(let-values(((lv-s_0)" @@ -62795,12 +62810,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_88)))" "((letrec-values(((for-loop_292)" -"(lambda(fold-var_306 lst_266)" +"(lambda(fold-var_306 lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((id_116)(unsafe-car lst_266))" -"((rest_192)(unsafe-cdr lst_266)))" +"(if(pair? lst_267)" +"(let-values(((id_116)(unsafe-car lst_267))" +"((rest_190)(unsafe-cdr lst_267)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29) fold-var_306))" "(let-values(((fold-var_155)" @@ -62826,7 +62841,7 @@ static const char *startup_source = " fold-var_29))))" "(values fold-var_155)))))" "(if(not #f)" -"(for-loop_292 fold-var_28 rest_192)" +"(for-loop_292 fold-var_28 rest_190)" " fold-var_28)))" " fold-var_306)))))" " for-loop_292)" @@ -62842,14 +62857,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_232)" -"(lambda(env_25 lst_83 lst_272)" +"(lambda(env_25 lst_83 lst_273)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_272) #f)" +"(if(if(pair? lst_83)(pair? lst_273) #f)" "(let-values(((key_93)(unsafe-car lst_83))" -"((rest_147)(unsafe-cdr lst_83))" -"((id_117)(unsafe-car lst_272))" -"((rest_193)(unsafe-cdr lst_272)))" +"((rest_146)(unsafe-cdr lst_83))" +"((id_117)(unsafe-car lst_273))" +"((rest_191)(unsafe-cdr lst_273)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -62861,7 +62876,7 @@ static const char *startup_source = " id_117)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_232 env_26 rest_147 rest_193)" +"(for-loop_232 env_26 rest_146 rest_191)" " env_26)))" " env_25)))))" " for-loop_232)" @@ -63109,27 +63124,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_334) flat-s_28))" +"(let-values(((lst_336) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_334)))" +"(check-list lst_336)))" "((letrec-values(((for-loop_293)" "(lambda(formals_4" " body_15" -" lst_335)" +" lst_337)" "(begin" " 'for-loop" "(if(pair?" -" lst_335)" +" lst_337)" "(let-values(((s_61)" "(unsafe-car" -" lst_335))" -"((rest_194)" +" lst_337))" +"((rest_192)" "(unsafe-cdr" -" lst_335)))" +" lst_337)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -63206,7 +63221,7 @@ static const char *startup_source = "(for-loop_293" " formals_5" " body_16" -" rest_194)" +" rest_192)" "(values" " formals_5" " body_16))))" @@ -63216,7 +63231,7 @@ static const char *startup_source = " for-loop_293)" " null" " null" -" lst_334)))))" +" lst_336)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -63249,30 +63264,30 @@ static const char *startup_source = "(keep-as-needed74.1 #f #f #f #f temp95_4 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_336) formals80_0)((lst_337) body81_0)((lst_206) clause88_0))" +"(let-values(((lst_338) formals80_0)((lst_339) body81_0)((lst_206) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_336)))" +"(let-values()(check-list lst_338)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_337)))" +"(let-values()(check-list lst_339)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_206)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_307 lst_275 lst_156 lst_338)" +"(lambda(fold-var_307 lst_276 lst_156 lst_340)" "(begin" " 'for-loop" -"(if(if(pair? lst_275)" -"(if(pair? lst_156)(pair? lst_338) #f)" +"(if(if(pair? lst_276)" +"(if(pair? lst_156)(pair? lst_340) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_275))" -"((rest_195)(unsafe-cdr lst_275))" +"(let-values(((formals_8)(unsafe-car lst_276))" +"((rest_193)(unsafe-cdr lst_276))" "((body_19)(unsafe-car lst_156))" "((rest_79)(unsafe-cdr lst_156))" -"((clause_3)(unsafe-car lst_338))" -"((rest_196)(unsafe-cdr lst_338)))" +"((clause_3)(unsafe-car lst_340))" +"((rest_194)(unsafe-cdr lst_340)))" "(let-values(((fold-var_146)" "(let-values(((fold-var_308) fold-var_307))" "(let-values(((fold-var_309)" @@ -63334,13 +63349,13 @@ static const char *startup_source = " fold-var_308))))" "(values fold-var_309)))))" "(if(not #f)" -"(for-loop_122 fold-var_146 rest_195 rest_79 rest_196)" +"(for-loop_122 fold-var_146 rest_193 rest_79 rest_194)" " fold-var_146)))" " fold-var_307)))))" " for-loop_122)" " null" -" lst_336" -" lst_337" +" lst_338" +" lst_339" " lst_206))))))" "(if(expand-context-to-parsed? ctx_81)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" @@ -63484,7 +63499,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_339)" +"(let-values(((lst_341)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63492,7 +63507,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" +" lst_341)))" "((letrec-values(((for-loop_294)" "(lambda(id:trans_1" " trans-rhs_1" @@ -63504,7 +63519,7 @@ static const char *startup_source = "(let-values(((s_233)" "(unsafe-car" " lst_2))" -"((rest_197)" +"((rest_195)" "(unsafe-cdr" " lst_2)))" "(let-values(((id:trans_2" @@ -63549,7 +63564,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_340)" +"(let-values(((lst_342)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63557,7 +63572,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_340)))" +" lst_342)))" "((letrec-values(((for-loop_263)" "(lambda(id:trans_6" " lst_214)" @@ -63568,7 +63583,7 @@ static const char *startup_source = "(let-values(((s_511)" "(unsafe-car" " lst_214))" -"((rest_198)" +"((rest_196)" "(unsafe-cdr" " lst_214)))" "(let-values(((id:trans_7)" @@ -63604,12 +63619,12 @@ static const char *startup_source = " #f)" "(for-loop_263" " id:trans_7" -" rest_198)" +" rest_196)" " id:trans_7)))" " id:trans_6)))))" " for-loop_263)" " null" -" lst_340)))))" +" lst_342)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" @@ -63674,7 +63689,7 @@ static const char *startup_source = "(for-loop_294" " id:trans_2" " trans-rhs_2" -" rest_197)" +" rest_195)" "(values" " id:trans_2" " trans-rhs_2))))" @@ -63684,7 +63699,7 @@ static const char *startup_source = " for-loop_294)" " null" " null" -" lst_339)))))" +" lst_341)))))" "(values" "(reverse$1" " id:trans_0)" @@ -63739,17 +63754,17 @@ static const char *startup_source = "((letrec-values(((for-loop_295)" "(lambda(id:val_1" " val-rhs_2" -" lst_341)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_341)" +" lst_343)" "(let-values(((s_355)" "(unsafe-car" -" lst_341))" -"((rest_199)" +" lst_343))" +"((rest_197)" "(unsafe-cdr" -" lst_341)))" +" lst_343)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -63792,7 +63807,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_342)" +"(let-values(((lst_344)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63800,20 +63815,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_342)))" +" lst_344)))" "((letrec-values(((for-loop_296)" "(lambda(id:val_6" -" lst_343)" +" lst_345)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" +" lst_345)" "(let-values(((s_516)" "(unsafe-car" -" lst_343))" -"((rest_200)" +" lst_345))" +"((rest_198)" "(unsafe-cdr" -" lst_343)))" +" lst_345)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63847,12 +63862,12 @@ static const char *startup_source = " #f)" "(for-loop_296" " id:val_7" -" rest_200)" +" rest_198)" " id:val_7)))" " id:val_6)))))" " for-loop_296)" " null" -" lst_342)))))" +" lst_344)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" @@ -63917,7 +63932,7 @@ static const char *startup_source = "(for-loop_295" " id:val_2" " val-rhs_3" -" rest_199)" +" rest_197)" "(values" " id:val_2" " val-rhs_3))))" @@ -64041,7 +64056,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_344)" +"(let-values(((lst_346)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64049,21 +64064,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_344)))" +" lst_346)))" "((letrec-values(((for-loop_297)" "(lambda(id:val_11" " val-rhs_7" -" lst_345)" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_345)" +" lst_347)" "(let-values(((s_375)" "(unsafe-car" -" lst_345))" -"((rest_201)" +" lst_347))" +"((rest_199)" "(unsafe-cdr" -" lst_345)))" +" lst_347)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64106,7 +64121,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_346)" +"(let-values(((lst_348)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64114,20 +64129,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" +" lst_348)))" "((letrec-values(((for-loop_298)" "(lambda(id:val_16" -" lst_347)" +" lst_349)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" +" lst_349)" "(let-values(((s_384)" "(unsafe-car" -" lst_347))" -"((rest_202)" +" lst_349))" +"((rest_200)" "(unsafe-cdr" -" lst_347)))" +" lst_349)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64161,12 +64176,12 @@ static const char *startup_source = " #f)" "(for-loop_298" " id:val_17" -" rest_202)" +" rest_200)" " id:val_17)))" " id:val_16)))))" " for-loop_298)" " null" -" lst_346)))))" +" lst_348)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" @@ -64231,7 +64246,7 @@ static const char *startup_source = "(for-loop_297" " id:val_12" " val-rhs_8" -" rest_201)" +" rest_199)" "(values" " id:val_12" " val-rhs_8))))" @@ -64241,7 +64256,7 @@ static const char *startup_source = " for-loop_297)" " null" " null" -" lst_344)))))" +" lst_346)))))" "(values" "(reverse$1" " id:val_10)" @@ -64297,20 +64312,20 @@ static const char *startup_source = "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_348)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_350)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_348)))" +"(let-values()(check-list lst_350)))" "((letrec-values(((for-loop_299)" -"(lambda(fold-var_310 lst_349)" +"(lambda(fold-var_310 lst_351)" "(begin" " 'for-loop" -"(if(pair? lst_349)" +"(if(pair? lst_351)" "(let-values(((ids_35)" -"(unsafe-car lst_349))" -"((rest_203)" -"(unsafe-cdr lst_349)))" +"(unsafe-car lst_351))" +"((rest_201)" +"(unsafe-cdr lst_351)))" "(let-values(((fold-var_311)" "(let-values(((fold-var_312)" " fold-var_310))" @@ -64319,7 +64334,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_350)" +"(let-values(((lst_352)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64327,20 +64342,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" +" lst_352)))" "((letrec-values(((for-loop_300)" "(lambda(fold-var_314" -" lst_351)" +" lst_353)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" +" lst_353)" "(let-values(((id_118)" "(unsafe-car" -" lst_351))" -"((rest_204)" +" lst_353))" +"((rest_202)" "(unsafe-cdr" -" lst_351)))" +" lst_353)))" "(let-values(((fold-var_315)" "(let-values(((fold-var_316)" " fold-var_314))" @@ -64358,47 +64373,47 @@ static const char *startup_source = " #f)" "(for-loop_300" " fold-var_315" -" rest_204)" +" rest_202)" " fold-var_315)))" " fold-var_314)))))" " for-loop_300)" " null" -" lst_350)))))" +" lst_352)))))" " fold-var_312))))" "(values" " fold-var_313)))))" "(if(not #f)" -"(for-loop_299 fold-var_311 rest_203)" +"(for-loop_299 fold-var_311 rest_201)" " fold-var_311)))" " fold-var_310)))))" " for-loop_299)" " null" -" lst_348))))))" +" lst_350))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_352)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_354)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_352)))" +"(let-values()(check-list lst_354)))" "((letrec-values(((for-loop_301)" -"(lambda(fold-var_318 lst_353)" +"(lambda(fold-var_318 lst_122)" "(begin" " 'for-loop" -"(if(pair? lst_353)" +"(if(pair? lst_122)" "(let-values(((ids_36)" -"(unsafe-car lst_353))" -"((rest_205)" -"(unsafe-cdr lst_353)))" +"(unsafe-car lst_122))" +"((rest_203)" +"(unsafe-cdr lst_122)))" "(let-values(((fold-var_319)" "(let-values(((fold-var_320)" " fold-var_318))" -"(let-values(((fold-var_104)" +"(let-values(((fold-var_321)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_354)" +"(let-values(((lst_355)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64406,95 +64421,95 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_354)))" -"((letrec-values(((for-loop_156)" -"(lambda(fold-var_105" -" lst_355)" +" lst_355)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_322" +" lst_356)" "(begin" " 'for-loop" "(if(pair?" -" lst_355)" +" lst_356)" "(let-values(((id_119)" "(unsafe-car" -" lst_355))" -"((rest_206)" +" lst_356))" +"((rest_204)" "(unsafe-cdr" -" lst_355)))" +" lst_356)))" +"(let-values(((fold-var_108)" "(let-values(((fold-var_109)" -"(let-values(((fold-var_321)" -" fold-var_105))" -"(let-values(((fold-var_322)" +" fold-var_322))" +"(let-values(((fold-var_323)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_119" " sc_37))" -" fold-var_321))))" +" fold-var_109))))" "(values" -" fold-var_322)))))" +" fold-var_323)))))" "(if(not" " #f)" -"(for-loop_156" -" fold-var_109" -" rest_206)" -" fold-var_109)))" -" fold-var_105)))))" -" for-loop_156)" +"(for-loop_302" +" fold-var_108" +" rest_204)" +" fold-var_108)))" +" fold-var_322)))))" +" for-loop_302)" " null" -" lst_354)))))" +" lst_355)))))" " fold-var_320))))" "(values" -" fold-var_104)))))" +" fold-var_321)))))" "(if(not #f)" "(for-loop_301" " fold-var_319" -" rest_205)" +" rest_203)" " fold-var_319)))" " fold-var_318)))))" " for-loop_301)" " null" -" lst_352))))))" +" lst_354))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_356)" +"(let-values(((lst_357)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_356)))" +"(let-values()(check-list lst_357)))" "((letrec-values(((for-loop_273)" -"(lambda(fold-var_323 lst_357)" +"(lambda(fold-var_324 lst_358)" "(begin" " 'for-loop" -"(if(pair? lst_357)" +"(if(pair? lst_358)" "(let-values(((rhs_20)" -"(unsafe-car lst_357))" -"((rest_207)" -"(unsafe-cdr lst_357)))" -"(let-values(((fold-var_324)" +"(unsafe-car lst_358))" +"((rest_205)" +"(unsafe-cdr lst_358)))" "(let-values(((fold-var_325)" -" fold-var_323))" "(let-values(((fold-var_326)" +" fold-var_324))" +"(let-values(((fold-var_327)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_37))" -" fold-var_325))))" +" fold-var_326))))" "(values" -" fold-var_326)))))" +" fold-var_327)))))" "(if(not #f)" "(for-loop_273" -" fold-var_324" -" rest_207)" -" fold-var_324)))" -" fold-var_323)))))" +" fold-var_325" +" rest_205)" +" fold-var_325)))" +" fold-var_324)))))" " for-loop_273)" " null" -" lst_356))))" +" lst_357))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values((()" "(begin" @@ -64513,32 +64528,32 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_82)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_358) trans-idss_2))" +"(let-values(((lst_359) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_327 lst_359)" +"(let-values()(check-list lst_359)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_328 lst_360)" "(begin" " 'for-loop" -"(if(pair? lst_359)" +"(if(pair? lst_360)" "(let-values(((ids_37)" "(unsafe-car" -" lst_359))" -"((rest_208)" +" lst_360))" +"((rest_206)" "(unsafe-cdr" -" lst_359)))" -"(let-values(((fold-var_328)" +" lst_360)))" "(let-values(((fold-var_329)" -" fold-var_327))" "(let-values(((fold-var_330)" +" fold-var_328))" +"(let-values(((fold-var_331)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_361)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64546,29 +64561,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_360)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_331" -" lst_361)" +" lst_361)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_332" +" lst_362)" "(begin" " 'for-loop" "(if(pair?" -" lst_361)" -"(let-values(((id_120)" +" lst_362)" +"(let-values(((id_26)" "(unsafe-car" -" lst_361))" -"((rest_209)" +" lst_362))" +"((rest_207)" "(unsafe-cdr" -" lst_361)))" -"(let-values(((fold-var_332)" +" lst_362)))" "(let-values(((fold-var_333)" -" fold-var_331))" "(let-values(((fold-var_334)" +" fold-var_332))" +"(let-values(((fold-var_335)" "(let-values()" "(cons" "(let-values()" "(let-values(((id154_1)" -" id_120)" +" id_26)" "((phase155_0)" " phase_145)" "((counter156_0)" @@ -64585,59 +64600,59 @@ static const char *startup_source = " id154_1" " phase155_0" " counter156_0)))" -" fold-var_333))))" +" fold-var_334))))" "(values" -" fold-var_334)))))" +" fold-var_335)))))" "(if(not" " #f)" -"(for-loop_303" -" fold-var_332" -" rest_209)" -" fold-var_332)))" +"(for-loop_304" +" fold-var_333" +" rest_207)" +" fold-var_333)))" +" fold-var_332)))))" +" for-loop_304)" +" null" +" lst_361)))))" +" fold-var_330))))" +"(values" " fold-var_331)))))" +"(if(not #f)" +"(for-loop_303" +" fold-var_329" +" rest_206)" +" fold-var_329)))" +" fold-var_328)))))" " for-loop_303)" " null" -" lst_360)))))" -" fold-var_329))))" -"(values" -" fold-var_330)))))" -"(if(not #f)" -"(for-loop_302" -" fold-var_328" -" rest_208)" -" fold-var_328)))" -" fold-var_327)))))" -" for-loop_302)" -" null" -" lst_358))))))" +" lst_359))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_362) val-idss_3))" +"(let-values(((lst_363) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_335 lst_245)" +"(let-values()(check-list lst_363)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_336 lst_245)" "(begin" " 'for-loop" "(if(pair? lst_245)" "(let-values(((ids_38)" "(unsafe-car" " lst_245))" -"((rest_210)" +"((rest_208)" "(unsafe-cdr" " lst_245)))" -"(let-values(((fold-var_336)" "(let-values(((fold-var_337)" -" fold-var_335))" "(let-values(((fold-var_338)" +" fold-var_336))" +"(let-values(((fold-var_339)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_363)" +"(let-values(((lst_364)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64645,29 +64660,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_363)))" +" lst_364)))" "((letrec-values(((for-loop_65)" -"(lambda(fold-var_339" -" lst_364)" +"(lambda(fold-var_340" +" lst_365)" "(begin" " 'for-loop" "(if(pair?" -" lst_364)" -"(let-values(((id_121)" +" lst_365)" +"(let-values(((id_120)" "(unsafe-car" -" lst_364))" -"((rest_211)" +" lst_365))" +"((rest_209)" "(unsafe-cdr" -" lst_364)))" -"(let-values(((fold-var_340)" +" lst_365)))" "(let-values(((fold-var_341)" -" fold-var_339))" "(let-values(((fold-var_342)" +" fold-var_340))" +"(let-values(((fold-var_343)" "(let-values()" "(cons" "(let-values()" "(let-values(((id159_0)" -" id_121)" +" id_120)" "((phase160_1)" " phase_145)" "((counter161_0)" @@ -64684,31 +64699,31 @@ static const char *startup_source = " id159_0" " phase160_1" " counter161_0)))" -" fold-var_341))))" +" fold-var_342))))" "(values" -" fold-var_342)))))" +" fold-var_343)))))" "(if(not" " #f)" "(for-loop_65" -" fold-var_340" -" rest_211)" -" fold-var_340)))" -" fold-var_339)))))" +" fold-var_341" +" rest_209)" +" fold-var_341)))" +" fold-var_340)))))" " for-loop_65)" " null" -" lst_363)))))" -" fold-var_337))))" +" lst_364)))))" +" fold-var_338))))" "(values" -" fold-var_338)))))" +" fold-var_339)))))" "(if(not #f)" -"(for-loop_304" -" fold-var_336" -" rest_210)" -" fold-var_336)))" -" fold-var_335)))))" -" for-loop_304)" +"(for-loop_305" +" fold-var_337" +" rest_208)" +" fold-var_337)))" +" fold-var_336)))))" +" for-loop_305)" " null" -" lst_362))))))" +" lst_363))))))" "(let-values(((bodys_10)" "(reverse$1" "(let-values(((lst_146)" @@ -64718,8 +64733,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_172)" -"(lambda(fold-var_343 lst_147)" +"((letrec-values(((for-loop_171)" +"(lambda(fold-var_344 lst_147)" "(begin" " 'for-loop" "(if(pair? lst_147)" @@ -64731,8 +64746,8 @@ static const char *startup_source = " lst_147)))" "(let-values(((fold-var_304)" "(let-values(((fold-var_305)" -" fold-var_343))" -"(let-values(((fold-var_344)" +" fold-var_344))" +"(let-values(((fold-var_345)" "(let-values()" "(cons" "(let-values()" @@ -64741,14 +64756,14 @@ static const char *startup_source = " sc_37))" " fold-var_305))))" "(values" -" fold-var_344)))))" +" fold-var_345)))))" "(if(not #f)" -"(for-loop_172" +"(for-loop_171" " fold-var_304" " rest_74)" " fold-var_304)))" -" fold-var_343)))))" -" for-loop_172)" +" fold-var_344)))))" +" for-loop_171)" " null" " lst_146))))))" "(let-values((()" @@ -64788,43 +64803,43 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_365)" +"(let-values(((lst_366)" "(if syntaxes?_0 trans-rhs104_0 '()))" -"((lst_366) trans-idss_2))" +"((lst_367) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_366)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_345" -" lst_367" -" lst_368)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_367)))" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_346" +" lst_368" +" lst_369)" "(begin" " 'for-loop" -"(if(if(pair? lst_367)" -"(pair? lst_368)" +"(if(if(pair? lst_368)" +"(pair? lst_369)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_367))" -"((rest_212)" +" lst_368))" +"((rest_210)" "(unsafe-cdr" -" lst_367))" +" lst_368))" "((ids_39)" "(unsafe-car" -" lst_368))" -"((rest_213)" +" lst_369))" +"((rest_211)" "(unsafe-cdr" -" lst_368)))" -"(let-values(((fold-var_346)" +" lst_369)))" "(let-values(((fold-var_347)" -" fold-var_345))" "(let-values(((fold-var_348)" +" fold-var_346))" +"(let-values(((fold-var_349)" "(let-values()" "(cons" "(let-values()" @@ -64864,59 +64879,59 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_347))))" +" fold-var_348))))" "(values" -" fold-var_348)))))" +" fold-var_349)))))" "(if(not #f)" -"(for-loop_305" -" fold-var_346" -" rest_212" -" rest_213)" -" fold-var_346)))" -" fold-var_345)))))" -" for-loop_305)" +"(for-loop_306" +" fold-var_347" +" rest_210" +" rest_211)" +" fold-var_347)))" +" fold-var_346)))))" +" for-loop_306)" " null" -" lst_365" -" lst_366))))))" +" lst_366" +" lst_367))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_369) val-keyss_2)" -"((lst_370) val-idss_3))" +"(let-values(((lst_370) val-keyss_2)" +"((lst_371) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_369)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_370)))" -"((letrec-values(((for-loop_306)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_371)))" +"((letrec-values(((for-loop_307)" "(lambda(env_29" -" lst_371" -" lst_372)" +" lst_372" +" lst_373)" "(begin" " 'for-loop" -"(if(if(pair? lst_371)" -"(pair? lst_372)" +"(if(if(pair? lst_372)" +"(pair? lst_373)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_371))" -"((rest_214)" +" lst_372))" +"((rest_212)" "(unsafe-cdr" -" lst_371))" +" lst_372))" "((ids_40)" "(unsafe-car" -" lst_372))" -"((rest_215)" +" lst_373))" +"((rest_213)" "(unsafe-cdr" -" lst_372)))" +" lst_373)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_373)" +"(let-values(((lst_374)" " keys_10)" -"((lst_374)" +"((lst_375)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64924,36 +64939,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_373)))" +" lst_374)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_374)))" -"((letrec-values(((for-loop_307)" +" lst_375)))" +"((letrec-values(((for-loop_308)" "(lambda(env_32" -" lst_375" -" lst_376)" +" lst_376" +" lst_377)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_375)" -"(pair?" " lst_376)" +"(pair?" +" lst_377)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_375))" -"((rest_216)" -"(unsafe-cdr" -" lst_375))" -"((id_122)" -"(unsafe-car" " lst_376))" -"((rest_217)" +"((rest_214)" "(unsafe-cdr" -" lst_376)))" +" lst_376))" +"((id_121)" +"(unsafe-car" +" lst_377))" +"((rest_215)" +"(unsafe-cdr" +" lst_377)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -64963,92 +64978,92 @@ static const char *startup_source = " env_34" " key_94" "(local-variable1.1" -" id_122)))))" +" id_121)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_308" " env_33" -" rest_216" -" rest_217)" -" env_33)))" -" env_32)))))" -" for-loop_307)" -" env_31" -" lst_373" -" lst_374))))))" -"(if(not #f)" -"(for-loop_306" -" env_30" " rest_214" " rest_215)" +" env_33)))" +" env_32)))))" +" for-loop_308)" +" env_31" +" lst_374" +" lst_375))))))" +"(if(not #f)" +"(for-loop_307" +" env_30" +" rest_212" +" rest_213)" " env_30)))" " env_29)))))" -" for-loop_306)" +" for-loop_307)" "(expand-context-env ctx_82)" -" lst_369" -" lst_370)))))" +" lst_370" +" lst_371)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_127) trans-keyss_0)" -"((lst_377) trans-valss_0)" -"((lst_378) trans-idss_2))" +"(let-values(((lst_378) trans-keyss_0)" +"((lst_127) trans-valss_0)" +"((lst_379) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_378)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_127)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_377)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_378)))" -"((letrec-values(((for-loop_308)" +"(let-values()(check-list lst_379)))" +"((letrec-values(((for-loop_309)" "(lambda(env_36" -" lst_379" " lst_380" -" lst_381)" +" lst_381" +" lst_382)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" -"(if(pair?" " lst_380)" -"(pair?" +"(if(pair?" " lst_381)" +"(pair?" +" lst_382)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_379))" -"((rest_218)" +" lst_380))" +"((rest_216)" "(unsafe-cdr" -" lst_379))" +" lst_380))" "((vals_9)" "(unsafe-car" -" lst_380))" -"((rest_219)" +" lst_381))" +"((rest_217)" "(unsafe-cdr" -" lst_380))" +" lst_381))" "((ids_41)" "(unsafe-car" -" lst_381))" -"((rest_220)" +" lst_382))" +"((rest_218)" "(unsafe-cdr" -" lst_381)))" +" lst_382)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_382)" +"(let-values(((lst_383)" " keys_11)" -"((lst_128)" +"((lst_384)" " vals_9)" -"((lst_383)" +"((lst_128)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65056,52 +65071,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_382)))" +" lst_383)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_384)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_128)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_383)))" -"((letrec-values(((for-loop_309)" +"((letrec-values(((for-loop_159)" "(lambda(env_40" -" lst_256" -" lst_384" -" lst_385)" +" lst_129" +" lst_385" +" lst_386)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_256)" +" lst_129)" "(if(pair?" -" lst_384)" -"(pair?" " lst_385)" +"(pair?" +" lst_386)" " #f)" " #f)" "(let-values(((key_95)" "(unsafe-car" -" lst_256))" -"((rest_136)" +" lst_129))" +"((rest_135)" "(unsafe-cdr" -" lst_256))" +" lst_129))" "((val_83)" "(unsafe-car" -" lst_384))" -"((rest_221)" -"(unsafe-cdr" -" lst_384))" -"((id_123)" -"(unsafe-car" " lst_385))" -"((rest_222)" +"((rest_219)" "(unsafe-cdr" -" lst_385)))" +" lst_385))" +"((id_122)" +"(unsafe-car" +" lst_386))" +"((rest_220)" +"(unsafe-cdr" +" lst_386)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -65110,7 +65125,7 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_83" -" id_123" +" id_122" " phase_145" " ctx_82)" "(env-extend" @@ -65121,33 +65136,33 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_309" +"(for-loop_159" " env_41" -" rest_136" -" rest_221" -" rest_222)" +" rest_135" +" rest_219" +" rest_220)" " env_41)))" " env_40)))))" -" for-loop_309)" +" for-loop_159)" " env_38" -" lst_382" -" lst_128" -" lst_383))))))" +" lst_383" +" lst_384" +" lst_128))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_309" " env_37" -" rest_218" -" rest_219" -" rest_220)" +" rest_216" +" rest_217" +" rest_218)" " env_37)))" " env_36)))))" -" for-loop_308)" +" for-loop_309)" " rec-val-env_0" +" lst_378" " lst_127" -" lst_377" -" lst_378)))))" +" lst_379)))))" "(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" @@ -65233,31 +65248,31 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_82)" "(reverse$1" -"(let-values(((lst_386)" +"(let-values(((lst_387)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_386)))" +"(check-list lst_387)))" "((letrec-values(((for-loop_310)" -"(lambda(fold-var_349" -" lst_387)" +"(lambda(fold-var_120" +" lst_132)" "(begin" " 'for-loop" "(if(pair?" -" lst_387)" +" lst_132)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_387))" -"((rest_223)" +" lst_132))" +"((rest_221)" "(unsafe-cdr" -" lst_387)))" +" lst_132)))" "(let-values(((fold-var_350)" "(let-values(((fold-var_351)" -" fold-var_349))" -"(let-values(((fold-var_122)" +" fold-var_120))" +"(let-values(((fold-var_352)" "(let-values()" "(cons" "(let-values()" @@ -65271,8 +65286,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_388)))" -"((letrec-values(((for-loop_164)" -"(lambda(fold-var_123" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_353" " lst_389)" "(begin" " 'for-loop" @@ -65281,13 +65296,13 @@ static const char *startup_source = "(let-values(((val-id_0)" "(unsafe-car" " lst_389))" -"((rest_224)" +"((rest_222)" "(unsafe-cdr" " lst_389)))" +"(let-values(((fold-var_354)" "(let-values(((fold-var_124)" -"(let-values(((fold-var_352)" -" fold-var_123))" -"(let-values(((fold-var_353)" +" fold-var_353))" +"(let-values(((fold-var_355)" "(let-values()" "(cons" "(let-values()" @@ -65297,32 +65312,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_352))))" +" fold-var_124))))" "(values" -" fold-var_353)))))" +" fold-var_355)))))" "(if(not" " #f)" -"(for-loop_164" -" fold-var_124" -" rest_224)" -" fold-var_124)))" -" fold-var_123)))))" -" for-loop_164)" +"(for-loop_311" +" fold-var_354" +" rest_222)" +" fold-var_354)))" +" fold-var_353)))))" +" for-loop_311)" " null" " lst_388)))))" " fold-var_351))))" "(values" -" fold-var_122)))))" +" fold-var_352)))))" "(if(not" " #f)" "(for-loop_310" " fold-var_350" -" rest_223)" +" rest_221)" " fold-var_350)))" -" fold-var_349)))))" +" fold-var_120)))))" " for-loop_310)" " null" -" lst_386))))" +" lst_387))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -65458,8 +65473,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_392)))" -"((letrec-values(((for-loop_311)" -"(lambda(fold-var_354" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_356" " lst_393" " lst_61" " lst_394)" @@ -65476,25 +65491,25 @@ static const char *startup_source = "(let-values(((ids_42)" "(unsafe-car" " lst_393))" -"((rest_225)" +"((rest_223)" "(unsafe-cdr" " lst_393))" "((keys_12)" "(unsafe-car" " lst_61))" -"((rest_226)" +"((rest_224)" "(unsafe-cdr" " lst_61))" "((rhs_22)" "(unsafe-car" " lst_394))" -"((rest_227)" +"((rest_225)" "(unsafe-cdr" " lst_394)))" "(let-values(((fold-var_47)" -"(let-values(((fold-var_355)" -" fold-var_354))" -"(let-values(((fold-var_356)" +"(let-values(((fold-var_357)" +" fold-var_356))" +"(let-values(((fold-var_358)" "(let-values()" "(cons" "(let-values()" @@ -65537,19 +65552,19 @@ static const char *startup_source = "(list" " ids_42" " exp-rhs_3)))))" -" fold-var_355))))" +" fold-var_357))))" "(values" -" fold-var_356)))))" +" fold-var_358)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_312" " fold-var_47" -" rest_225" -" rest_226" -" rest_227)" +" rest_223" +" rest_224" +" rest_225)" " fold-var_47)))" -" fold-var_354)))))" -" for-loop_311)" +" fold-var_356)))))" +" for-loop_312)" " null" " lst_390" " lst_391" @@ -65605,8 +65620,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_395)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_357" +"((letrec-values(((for-loop_313)" +"(lambda(fold-var_359" " lst_396)" "(begin" " 'for-loop" @@ -65615,28 +65630,28 @@ static const char *startup_source = "(let-values(((rhs_23)" "(unsafe-car" " lst_396))" -"((rest_228)" +"((rest_226)" "(unsafe-cdr" " lst_396)))" -"(let-values(((fold-var_358)" -"(let-values(((fold-var_359)" -" fold-var_357))" "(let-values(((fold-var_360)" +"(let-values(((fold-var_361)" +" fold-var_359))" +"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_359))))" +" fold-var_361))))" "(values" -" fold-var_360)))))" +" fold-var_362)))))" "(if(not" " #f)" -"(for-loop_312" -" fold-var_358" -" rest_228)" -" fold-var_358)))" -" fold-var_357)))))" -" for-loop_312)" +"(for-loop_313" +" fold-var_360" +" rest_226)" +" fold-var_360)))" +" fold-var_359)))))" +" for-loop_313)" " null" " lst_395)))))" "((temp187_2)" @@ -65677,42 +65692,42 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_397) val-idss_4)((lst_138) val-rhss_4))" +"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_397)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_138)))" -"((letrec-values(((for-loop_167)" -"(lambda(fold-var_133 lst_139 lst_398)" +"(let-values()(check-list lst_398)))" +"((letrec-values(((for-loop_314)" +"(lambda(fold-var_363 lst_399 lst_139)" "(begin" " 'for-loop" -"(if(if(pair? lst_139)(pair? lst_398) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_139))" -"((rest_229)(unsafe-cdr lst_139))" -"((val-rhs_11)(unsafe-car lst_398))" -"((rest_230)(unsafe-cdr lst_398)))" -"(let-values(((fold-var_137)" -"(let-values(((fold-var_361) fold-var_133))" -"(let-values(((fold-var_362)" +"(if(if(pair? lst_399)(pair? lst_139) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_399))" +"((rest_69)(unsafe-cdr lst_399))" +"((val-rhs_11)(unsafe-car lst_139))" +"((rest_227)(unsafe-cdr lst_139)))" +"(let-values(((fold-var_136)" +"(let-values(((fold-var_137) fold-var_363))" +"(let-values(((fold-var_364)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_361))))" -"(values fold-var_362)))))" +" fold-var_137))))" +"(values fold-var_364)))))" "(if(not #f)" -"(for-loop_167 fold-var_137 rest_229 rest_230)" -" fold-var_137)))" -" fold-var_133)))))" -" for-loop_167)" +"(for-loop_314 fold-var_136 rest_69 rest_227)" +" fold-var_136)))" +" fold-var_363)))))" +" for-loop_314)" " null" " lst_397" -" lst_138))))" +" lst_398))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_98" @@ -65721,26 +65736,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_399) trans-idss_3)((lst_400) trans-rhss_0))" +"(let-values(((lst_400) trans-idss_3)((lst_401) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_399)))" +"(let-values()(check-list lst_400)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_313)" -"(lambda(fold-var_363 lst_69 lst_148)" +"(let-values()(check-list lst_401)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_365 lst_69 lst_148)" "(begin" " 'for-loop" "(if(if(pair? lst_69)(pair? lst_148) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_69))" -"((rest_231)(unsafe-cdr lst_69))" +"((rest_228)(unsafe-cdr lst_69))" "((trans-rhs_5)(unsafe-car lst_148))" "((rest_75)(unsafe-cdr lst_148)))" -"(let-values(((fold-var_364)" -"(let-values(((fold-var_365) fold-var_363))" "(let-values(((fold-var_366)" +"(let-values(((fold-var_367) fold-var_365))" +"(let-values(((fold-var_368)" "(let-values()" "(cons" "(let-values()" @@ -65749,14 +65764,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_365))))" -"(values fold-var_366)))))" -"(if(not #f)(for-loop_313 fold-var_364 rest_231 rest_75) fold-var_364)))" -" fold-var_363)))))" -" for-loop_313)" +" fold-var_367))))" +"(values fold-var_368)))))" +"(if(not #f)(for-loop_315 fold-var_366 rest_228 rest_75) fold-var_366)))" +" fold-var_365)))))" +" for-loop_315)" " null" -" lst_399" -" lst_400))))" +" lst_400" +" lst_401))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -65959,23 +65974,23 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp233_2 expr-ctx234_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_401) rest-es_0))" +"(let-values(((lst_402) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_367 lst_402)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_369 lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_402)" -"(let-values(((e_89)(unsafe-car lst_402))" -"((rest_232)" -"(unsafe-cdr lst_402)))" -"(let-values(((fold-var_368)" -"(let-values(((fold-var_369)" -" fold-var_367))" +"(if(pair? lst_403)" +"(let-values(((e_89)(unsafe-car lst_403))" +"((rest_229)" +"(unsafe-cdr lst_403)))" "(let-values(((fold-var_370)" +"(let-values(((fold-var_371)" +" fold-var_369))" +"(let-values(((fold-var_372)" "(let-values()" "(cons" "(let-values()" @@ -66001,16 +66016,16 @@ static const char *startup_source = " #f" " e235_0" " expr-ctx236_0))))" -" fold-var_369))))" +" fold-var_371))))" "(values" -" fold-var_370)))))" +" fold-var_372)))))" "(if(not #f)" -"(for-loop_314 fold-var_368 rest_232)" -" fold-var_368)))" -" fold-var_367)))))" -" for-loop_314)" +"(for-loop_316 fold-var_370 rest_229)" +" fold-var_370)))" +" fold-var_369)))))" +" for-loop_316)" " null" -" lst_401))))))" +" lst_402))))))" "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" @@ -66793,7 +66808,7 @@ static const char *startup_source = "(make-begin20.1 temp351_0 temp350_0 temp348_0 parsed-begin0349_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_124 ctx_92)" +"(lambda(id_123 ctx_92)" "(begin" "(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" "(let-values()" @@ -66801,7 +66816,7 @@ static const char *startup_source = "(hash-update!" "(expand-context-need-eventually-defined ctx_92)" "(expand-context-phase ctx_92)" -"(lambda(l_82)(cons id_124 l_82))" +"(lambda(l_82)(cons id_123 l_82))" " null)" " #t))" "(let-values() #f)))))" @@ -66825,7 +66840,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((disarmed-s_17)(syntax-disarm$1 s_646)))" -"(let-values(((id_125)" +"(let-values(((id_124)" "(if implicit-omitted?_0" "(let-values() s_646)" "(let-values()" @@ -66871,8 +66886,8 @@ static const char *startup_source = " orig-s_56)))))" "(values #t #%top358_1 id359_1))))))" " id359_0)))))" -"(let-values(((b_86)" -"(let-values(((id362_0) id_125)" +"(let-values(((b_87)" +"(let-values(((id362_0) id_124)" "((temp363_0)(expand-context-phase ctx_93))" "((temp364_0) 'ambiguous))" "(resolve+shift30.1" @@ -66888,38 +66903,38 @@ static const char *startup_source = " #f" " id362_0" " temp363_0))))" -"(if(eq? b_86 'ambiguous)" -"(let-values()(raise-ambiguous-error id_125 ctx_93))" -"(if(if b_86" -"(if(module-binding? b_86)" -"(eq?(module-binding-module b_86)(root-expand-context-self-mpi ctx_93))" +"(if(eq? b_87 'ambiguous)" +"(let-values()(raise-ambiguous-error id_124 ctx_93))" +"(if(if b_87" +"(if(module-binding? b_87)" +"(eq?(module-binding-module b_87)(root-expand-context-self-mpi ctx_93))" " #f)" " #f)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_125 b_86 #f)" -"(if(top-level-module-path-index?(module-binding-module b_86))" +"(parsed-id2.1 id_124 b_87 #f)" +"(if(top-level-module-path-index?(module-binding-module b_87))" "(let-values() s_646)" -"(let-values() id_125))))" -"(if(register-eventual-variable!? id_125 ctx_93)" +"(let-values() id_124))))" +"(if(register-eventual-variable!? id_124 ctx_93)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_125 b_86 #f)" -" id_125))" +"(parsed-id2.1 id_124 b_87 #f)" +" id_124))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_93))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_125" +" id_124" " #f" " null" -"(syntax-debug-info-string id_125 ctx_93)))" +"(syntax-debug-info-string id_124 ctx_93)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_125" +" id_124" "(root-expand-context-top-level-bind-scope ctx_93))))" "(let-values(((tl-b_1)" "(let-values(((tl-id365_0) tl-id_1)" @@ -66941,7 +66956,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_93)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_125)" +"(let-values() id_124)" "(let-values()" "(let-values(((ok?_52 #%top367_0 id368_0)" "(let-values(((s_651) disarmed-s_17))" @@ -66989,11 +67004,11 @@ static const char *startup_source = " orig-s_57)))))" "(values #t #%top367_1 id368_1))))))" "(let-values(((s371_0) s_646)" -"((temp372_0)(cons #%top367_0 id_125)))" +"((temp372_0)(cons #%top367_0 id_124)))" "(rebuild5.1 #f #f s371_0 temp372_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-top-id4.1 id_125 b_86 #f)" +"(parsed-top-id4.1 id_124 b_87 #f)" " s_646)))))))))))))))))))))))" "(case-lambda" "((s_655 ctx_94)(core356_0 s_655 ctx_94 #f #f))" @@ -67077,13 +67092,13 @@ static const char *startup_source = "(values set!376_0 id377_0 rhs378_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" "(values #t set!373_1 id374_1 rhs375_1))))))" -"(let-values(((id_126) id374_0))" +"(let-values(((id_125) id374_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_127 from-rename?_0)" +"(lambda(id_126 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((id382_0) id_127)" +"(let-values(((id382_0) id_126)" "((temp383_0)(expand-context-phase ctx_96))" "((temp384_0) 'ambiguous)" "((temp385_0) #t))" @@ -67103,7 +67118,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_127 ctx_96))" +"(let-values()(raise-ambiguous-error id_126 ctx_96))" "(void))" "(values))))" "(let-values(((t_57 primitive?_11 insp_24 protected?_12)" @@ -67117,14 +67132,14 @@ static const char *startup_source = "(let-values(((obs_120)(expand-context-observer ctx_96)))" "(if obs_120" "(let-values()" -"(let-values()(call-expand-observe obs_120 'resolve id_127)))" +"(let-values()(call-expand-observe obs_120 'resolve id_126)))" "(void)))" "(if(let-values(((or-part_387)(variable? t_57)))" "(if or-part_387" " or-part_387" "(if(not binding_30)" "(let-values(((or-part_388)" -"(register-eventual-variable!? id_127 ctx_96)))" +"(register-eventual-variable!? id_126 ctx_96)))" "(if or-part_388" " or-part_388" "(expand-context-allow-unbound? ctx_96)))" @@ -67143,7 +67158,7 @@ static const char *startup_source = " #f" " \"cannot mutate module-required identifier\"" " s_657" -" id_127))" +" id_126))" "(void))" "(values))))" "(let-values((()" @@ -67179,13 +67194,13 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_96)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_127 binding_30 #f)" +"(parsed-id2.1 id_126 binding_30 #f)" " exp-rhs_4)" "(let-values(((rebuild-s393_0) rebuild-s_12)" "((temp394_0)" "(list" " set!373_0" -"(let-values(((id395_0) id_127)" +"(let-values(((id395_0) id_126)" "((t396_0) t_57)" "((temp397_0)" "(free-id-set-empty-or-just-module*?" @@ -67203,9 +67218,9 @@ static const char *startup_source = " #f" " \"unbound identifier\"" " s_657" -" id_127" +" id_126" " null" -"(syntax-debug-info-string id_127 ctx_96)))" +"(syntax-debug-info-string id_126 ctx_96)))" "(if(1/set!-transformer? t_57)" "(let-values()" "(if(not-in-this-expand-context? t_57 ctx_96)" @@ -67217,7 +67232,7 @@ static const char *startup_source = " disarmed-s_18" " set!373_0" " rhs375_0" -" id_127" +" id_126" " from-rename?_0" " ctx_96)" " t_57" @@ -67230,7 +67245,7 @@ static const char *startup_source = " t_57" " insp_24" " s_657" -" id_127" +" id_126" " ctx_96" " binding_30)))" "(if(expand-context-just-once? ctx_96)" @@ -67250,7 +67265,7 @@ static const char *startup_source = " disarmed-s_18" " set!373_0" " rhs375_0" -" id_127" +" id_126" " from-rename?_0" " ctx_96" " t_57)" @@ -67267,9 +67282,9 @@ static const char *startup_source = " #f" " \"cannot mutate syntax identifier\"" " s_657" -" id_127))))))))))))))" +" id_126))))))))))))))" " rename-loop_0)" -" id_126" +" id_125" " #f))))))))" "(define-values" "(substitute-set!-rename)" @@ -67280,7 +67295,7 @@ static const char *startup_source = "(let-values(((s_669) s25_1))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_128) id28_0))" +"(let-values(((id_127) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" "(let-values(((ctx_97) ctx31_0))" @@ -67292,7 +67307,7 @@ static const char *startup_source = "(let-values(((new-id_1)" "(if t_58" "(rename-transformer-target-in-context t_58 ctx_97)" -" id_128)))" +" id_127)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" @@ -67302,10 +67317,10 @@ static const char *startup_source = " s_669)))" "(let-values() s_669)))))))))))))))" "(case-lambda" -"((s_670 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename32_0 s_670 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" -"((s_671 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename32_0 s_671 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" +"((s_670 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98)" +"(begin(substitute-set!-rename32_0 s_670 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" +"((s_671 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1)" +"(substitute-set!-rename32_0 s_671 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" @@ -67589,7 +67604,7 @@ static const char *startup_source = " (void (add-core-form!* 'unquote-splicing (lambda (s_724 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_131 at-phase_12 ns_122)" +"(lambda(b_41 id_130 at-phase_12 ns_122)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -67608,7 +67623,7 @@ static const char *startup_source = "((null3_0) null)" "((ns4_0) ns_122)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_131))" +"((id6_0) id_130))" "(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" "(not(variable? val_84))))))))" "(define-values(layers) '(raw phaseless id))" @@ -67633,16 +67648,16 @@ static const char *startup_source = "((letrec-values(((for-loop_95)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_403)" +" lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_403)" +"(if(pair? lst_404)" "(let-values(((spec_0)" "(unsafe-car" -" lst_403))" -"((rest_233)" +" lst_404))" +"((rest_230)" "(unsafe-cdr" -" lst_403)))" +" lst_404)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68719,7 +68734,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_69))" "(let-values()" -"(let-values(((id_132)" +"(let-values(((id_131)" "(let-values(((lst_44)" " flat-s_47))" "(begin" @@ -68729,23 +68744,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_44)))" -"((letrec-values(((for-loop_315)" -"(lambda(id_133" -" lst_404)" +"((letrec-values(((for-loop_317)" +"(lambda(id_132" +" lst_405)" "(begin" " 'for-loop" "(if(pair?" -" lst_404)" +" lst_405)" "(let-values(((s_97)" "(unsafe-car" -" lst_404))" -"((rest_234)" +" lst_405))" +"((rest_231)" "(unsafe-cdr" -" lst_404)))" +" lst_405)))" +"(let-values(((id_133)" "(let-values(((id_134)" +" id_132))" "(let-values(((id_135)" -" id_133))" -"(let-values(((id_136)" "(let-values()" "(let-values(((id63_0)" "(let-values()" @@ -68768,21 +68783,21 @@ static const char *startup_source = " s_97)))))" "(cons" " id63_0" -" id_135)))))" +" id_134)))))" "(values" -" id_136)))))" +" id_135)))))" "(if(not" " #f)" -"(for-loop_315" -" id_134" -" rest_234)" -" id_134)))" -" id_133)))))" -" for-loop_315)" +"(for-loop_317" +" id_133" +" rest_231)" +" id_133)))" +" id_132)))))" +" for-loop_317)" " null" " lst_44)))))" "(reverse$1" -" id_132)))))))))" +" id_131)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -68940,8 +68955,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_71))" "(let-values()" -"(let-values(((id_137)" -"(let-values(((lst_405)" +"(let-values(((id_136)" +"(let-values(((lst_406)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68949,23 +68964,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_405)))" -"((letrec-values(((for-loop_316)" -"(lambda(id_138" -" lst_406)" +" lst_406)))" +"((letrec-values(((for-loop_318)" +"(lambda(id_137" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" +" lst_407)" "(let-values(((s_746)" "(unsafe-car" -" lst_406))" -"((rest_235)" +" lst_407))" +"((rest_232)" "(unsafe-cdr" -" lst_406)))" +" lst_407)))" +"(let-values(((id_138)" "(let-values(((id_139)" -"(let-values(((id_140)" -" id_138))" +" id_137))" "(let-values(((id_29)" "(let-values()" "(let-values(((id70_0)" @@ -68989,21 +69004,21 @@ static const char *startup_source = " s_746)))))" "(cons" " id70_0" -" id_140)))))" +" id_139)))))" "(values" " id_29)))))" "(if(not" " #f)" -"(for-loop_316" -" id_139" -" rest_235)" -" id_139)))" -" id_138)))))" -" for-loop_316)" +"(for-loop_318" +" id_138" +" rest_232)" +" id_138)))" +" id_137)))))" +" for-loop_318)" " null" -" lst_405)))))" +" lst_406)))))" "(reverse$1" -" id_137)))))))))" +" id_136)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -69232,7 +69247,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_73))" "(let-values()" -"(let-values(((id_141)" +"(let-values(((id_140)" "(let-values(((lst_4)" " flat-s_49))" "(begin" @@ -69242,23 +69257,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_317)" -"(lambda(id_142" -" lst_407)" +"((letrec-values(((for-loop_319)" +"(lambda(id_141" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" +" lst_408)" "(let-values(((s_512)" "(unsafe-car" -" lst_407))" -"((rest_190)" +" lst_408))" +"((rest_189)" "(unsafe-cdr" -" lst_407)))" +" lst_408)))" +"(let-values(((id_142)" "(let-values(((id_143)" +" id_141))" "(let-values(((id_144)" -" id_142))" -"(let-values(((id_145)" "(let-values()" "(let-values(((id84_2)" "(let-values()" @@ -69281,21 +69296,21 @@ static const char *startup_source = " s_512)))))" "(cons" " id84_2" -" id_144)))))" +" id_143)))))" "(values" -" id_145)))))" +" id_144)))))" "(if(not" " #f)" -"(for-loop_317" -" id_143" -" rest_190)" -" id_143)))" -" id_142)))))" -" for-loop_317)" +"(for-loop_319" +" id_142" +" rest_189)" +" id_142)))" +" id_141)))))" +" for-loop_319)" " null" " lst_4)))))" "(reverse$1" -" id_141)))))))))" +" id_140)))))))))" "(values" " id:prefix82_0" " id83_1))" @@ -69752,7 +69767,7 @@ static const char *startup_source = "(for-loop_95" " track-stxes_2" " exp-specs_2" -" rest_233)" +" rest_230)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -69774,10 +69789,10 @@ static const char *startup_source = "(parse-identifier!)" "(lambda(spec_1 orig-s_77 sym_101 at-phase_5 ns_124 rp_2 protected?_16)" "(begin" -"(let-values(((b_87)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" +"(let-values(((b_88)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" "(let-values((()" "(begin" -"(if b_87" +"(if b_88" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69786,14 +69801,14 @@ static const char *startup_source = " orig-s_77" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_87 spec_1 at-phase_5 ns_124)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_88 spec_1 at-phase_5 ns_124)))" "(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(((rp109_0) rp_2)" "((sym110_0) sym_101)" "((at-phase111_0) at-phase_5)" -"((b112_0) b_87)" +"((b112_0) b_88)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_77)" @@ -69817,61 +69832,61 @@ static const char *startup_source = "(lambda(fmt_1)" "(begin" " 'mk" -"(let-values(((sym_102)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" +"(let-values(((sym_36)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" +"(datum->syntax$1 id:struct_0 sym_36 id:struct_0))))))" "(let-values(((mk2_0)" "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_103)" +"(let-values(((sym_102)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" "(begin" -" (let-values (((lst_408) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_123) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_408)))" -"((letrec-values(((for-loop_318)" +"(let-values()(check-list lst_123)))" +"((letrec-values(((for-loop_320)" "(lambda(lst_409)" "(begin" " 'for-loop" "(if(pair? lst_409)" -"(let-values(((fmt_3)(unsafe-car lst_409))((rest_236)(unsafe-cdr lst_409)))" +"(let-values(((fmt_3)(unsafe-car lst_409))((rest_233)(unsafe-cdr lst_409)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_146)(mk_0 fmt_3)))" +"(let-values(((id_145)(mk_0 fmt_3)))" "(parse-identifier!" -" id_146" +" id_145" " orig-s_78" -"(syntax-e$1 id_146)" +"(syntax-e$1 id_145)" " at-phase_14" " ns_125" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_318 rest_236)(values))))" +"(if(not #f)(for-loop_320 rest_233)(values))))" "(values))))))" -" for-loop_318)" -" lst_408)))" +" for-loop_320)" +" lst_123)))" "(void)" -"(let-values(((lst_355) fields_0))" +"(let-values(((lst_356) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_319)" +"(let-values()(check-list lst_356)))" +"((letrec-values(((for-loop_321)" "(lambda(lst_410)" "(begin" " 'for-loop" "(if(pair? lst_410)" -"(let-values(((field_0)(unsafe-car lst_410))((rest_237)(unsafe-cdr lst_410)))" +"(let-values(((field_0)(unsafe-car lst_410))((rest_234)(unsafe-cdr lst_410)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69903,10 +69918,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_237)(values))))" +"(if(not #f)(for-loop_321 rest_234)(values))))" "(values))))))" -" for-loop_319)" -" lst_355)))" +" for-loop_321)" +" lst_356)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -69948,10 +69963,10 @@ static const char *startup_source = " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_104)" +"(lambda(sym_103)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" "(let-values(((lst_241) requireds_2))" @@ -69959,24 +69974,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_241)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_322)" "(lambda(lst_411)" "(begin" " 'for-loop" "(if(pair? lst_411)" -"(let-values(((i_189)(unsafe-car lst_411))" -"((rest_238)(unsafe-cdr lst_411)))" +"(let-values(((i_190)(unsafe-car lst_411))" +"((rest_235)(unsafe-cdr lst_411)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_147)" -"(required-id i_189)))" +"(let-values(((id_146)" +"(required-id i_190)))" "(let-values(((phase_148)" "(required-phase" -" i_189)))" +" i_190)))" "(if(let-values(((or-part_401)" "(if matching-stx_0" "(not" @@ -69984,11 +69999,11 @@ static const char *startup_source = " phase_148" " at-phase_16)" "(free-identifier=?$1" -" id_147" +" id_146" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_147))" +" id_146))" " phase_148" " phase_148)" " #f))" @@ -70004,8 +70019,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_412)))" -"((letrec-values(((for-loop_321)" -"(lambda(result_124" +"((letrec-values(((for-loop_323)" +"(lambda(result_125" " lst_413)" "(begin" " 'for-loop" @@ -70014,16 +70029,16 @@ static const char *startup_source = "(let-values(((except-id_0)" "(unsafe-car" " lst_413))" -"((rest_239)" +"((rest_236)" "(unsafe-cdr" " lst_413)))" -"(let-values(((result_125)" -"(let-values()" "(let-values(((result_126)" "(let-values()" +"(let-values(((result_127)" +"(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_147" +" id_146" " except-id_0" " phase_148" " phase_148)" @@ -70033,32 +70048,32 @@ static const char *startup_source = " #t)" " #f)))))" "(values" -" result_126)))))" +" result_127)))))" "(if(if(not" "((lambda x_91" -" result_125)" +" result_126)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_321" -" result_125" -" rest_239)" -" result_125)))" -" result_124)))))" -" for-loop_321)" +"(for-loop_323" +" result_126" +" rest_236)" +" result_126)))" +" result_125)))))" +" for-loop_323)" " #f" " lst_412)))))" "(void)" "(let-values()" -"(let-values(((b_88)" +"(let-values(((b_89)" "(resolve+shift/extra-inspector" -" id_147" +" id_146" " phase_148" " ns_127)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_147)" +" id_146)" "((phase131_0)" " phase_148)" "((temp132_2)" @@ -70081,22 +70096,22 @@ static const char *startup_source = "((temp122_4)" "(add-prefix_1" "(syntax-e$1" -" id_147)))" +" id_146)))" "((phase123_0)" " phase_148)" "((b124_0)" -" b_88)" +" b_89)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_147)" +" id_146)" "((orig-s127_0)" " orig-s_80)" "((protected?128_0)" " protected?_19)" "((temp129_3)" "(required-as-transformer?" -" i_189)))" +" i_190)))" "(add-provide!109.1" " protected?128_0" " temp129_3" @@ -70109,9 +70124,9 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_238)(values))))" +"(if(not #f)(for-loop_322 rest_235)(values))))" "(values))))))" -" for-loop_320)" +" for-loop_322)" " lst_241)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" @@ -70123,13 +70138,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_172)" -"(lambda(lst_414)" +"((letrec-values(((for-loop_171)" +"(lambda(lst_125)" "(begin" " 'for-loop" -"(if(pair? lst_414)" -"(let-values(((except-id_1)(unsafe-car lst_414))" -"((rest_191)(unsafe-cdr lst_414)))" +"(if(pair? lst_125)" +"(let-values(((except-id_1)(unsafe-car lst_125))" +"((rest_62)(unsafe-cdr lst_125)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70143,7 +70158,7 @@ static const char *startup_source = " #f)))" "(if or-part_402" " or-part_402" -"(let-values(((lst_415)" +"(let-values(((lst_414)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70151,53 +70166,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" +" lst_414)))" "((letrec-values(((for-loop_142)" -"(lambda(result_127" -" lst_416)" +"(lambda(result_128" +" lst_415)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" -"(let-values(((i_190)" +" lst_415)" +"(let-values(((i_191)" "(unsafe-car" -" lst_416))" -"((rest_240)" +" lst_415))" +"((rest_237)" "(unsafe-cdr" -" lst_416)))" -"(let-values(((result_128)" -"(let-values()" +" lst_415)))" "(let-values(((result_129)" "(let-values()" +"(let-values(((result_130)" "(let-values()" -"(let-values(((id_148)" +"(let-values()" +"(let-values(((id_147)" "(required-id" -" i_190)))" +" i_191)))" "(let-values(((phase_149)" "(required-phase" -" i_190)))" +" i_191)))" "(free-identifier=?$1" -" id_148" +" id_147" " except-id_1" " phase_149" " phase_149)))))))" "(values" -" result_129)))))" +" result_130)))))" "(if(if(not" "((lambda x_92" -" result_128)" -" i_190))" +" result_129)" +" i_191))" "(not" " #f)" " #f)" "(for-loop_142" -" result_128" -" rest_240)" -" result_128)))" -" result_127)))))" +" result_129" +" rest_237)" +" result_129)))" +" result_128)))))" " for-loop_142)" " #f" -" lst_415)))))" +" lst_414)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70211,9 +70226,9 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_172 rest_191)(values))))" +"(if(not #f)(for-loop_171 rest_62)(values))))" "(values))))))" -" for-loop_172)" +" for-loop_171)" " lst_146)))" "(void)))))))))))))" "(define-values" @@ -70225,12 +70240,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_417) bodys_14))" +"(let-values(((lst_416) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_417)))" -"((letrec-values(((for-loop_322)" +"(let-values()(check-list lst_416)))" +"((letrec-values(((for-loop_324)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -70278,10 +70293,10 @@ static const char *startup_source = " p_35))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_40)(values))))" +"(if(not #f)(for-loop_324 rest_40)(values))))" "(values))))))" -" for-loop_322)" -" lst_417)))" +" for-loop_324)" +" lst_416)))" "(void)))))" "((check-expr_0)" "(lambda(e_90 num-results_0 enclosing_15)" @@ -70313,7 +70328,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_241)(unsafe-cdr lst_86)))" +"((rest_238)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70326,7 +70341,7 @@ static const char *startup_source = " e_90))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_72 rest_241)(values))))" +"(if(not #f)(for-loop_72 rest_238)(values))))" "(values))))))" " for-loop_72)" " lst_79)))" @@ -70364,18 +70379,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_270)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_271)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_270)))" +"(let-values()(check-list lst_271)))" "((letrec-values(((for-loop_240)" -"(lambda(lst_418)" +"(lambda(lst_417)" "(begin" " 'for-loop" -"(if(pair? lst_418)" -"(let-values(((clause_4)(unsafe-car lst_418))" -"((rest_242)(unsafe-cdr lst_418)))" +"(if(pair? lst_417)" +"(let-values(((clause_4)(unsafe-car lst_417))" +"((rest_239)(unsafe-cdr lst_417)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70386,10 +70401,10 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_242)(values))))" +"(if(not #f)(for-loop_240 rest_239)(values))))" "(values))))))" " for-loop_240)" -" lst_270)))" +" lst_271)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" @@ -70401,12 +70416,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_223)))" "((letrec-values(((for-loop_106)" -"(lambda(lst_266)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((e_91)(unsafe-car lst_266))" -"((rest_192)(unsafe-cdr lst_266)))" +"(if(pair? lst_267)" +"(let-values(((e_91)(unsafe-car lst_267))" +"((rest_190)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70417,7 +70432,7 @@ static const char *startup_source = " e_91))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_192)(values))))" +"(if(not #f)(for-loop_106 rest_190)(values))))" "(values))))))" " for-loop_106)" " lst_223)))" @@ -70470,7 +70485,7 @@ static const char *startup_source = "(if(pair? lst_90)" "(let-values(((clause_5)" "(unsafe-car lst_90))" -"((rest_152)" +"((rest_151)" "(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" @@ -70484,7 +70499,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_253 rest_152)" +"(for-loop_253 rest_151)" "(values))))" "(values))))))" " for-loop_253)" @@ -70505,13 +70520,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_272)" +"((letrec-values(((for-loop_325)" +"(lambda(lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((e_92)(unsafe-car lst_272))" -"((rest_147)(unsafe-cdr lst_272)))" +"(if(pair? lst_273)" +"(let-values(((e_92)(unsafe-car lst_273))" +"((rest_146)(unsafe-cdr lst_273)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70522,9 +70537,9 @@ static const char *startup_source = " e_92))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_147)(values))))" +"(if(not #f)(for-loop_325 rest_146)(values))))" "(values))))))" -" for-loop_323)" +" for-loop_325)" " lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -70556,14 +70571,14 @@ static const char *startup_source = "(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_149)" +"(lambda(id_148)" "(begin" -"(if(parsed-id? id_149)" +"(if(parsed-id? id_148)" "(let-values()" -"(let-values(((b_89)(parsed-id-binding id_149)))" -"(if(module-binding? b_89)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_89)))" -"(module-binding-sym b_89)" +"(let-values(((b_90)(parsed-id-binding id_148)))" +"(if(module-binding? b_90)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_90)))" +"(module-binding-sym b_90)" " #f)" " #f)))" "(let-values() #f)))))" @@ -72482,17 +72497,17 @@ static const char *startup_source = "(check-list" " lst_144)))" "((letrec-values(((for-loop_140)" -"(lambda(lst_419)" +"(lambda(lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_419)" +" lst_418)" "(let-values(((mpi_54)" "(unsafe-car" -" lst_419))" -"((rest_243)" +" lst_418))" +"((rest_240)" "(unsafe-cdr" -" lst_419)))" +" lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72506,7 +72521,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_140" -" rest_243)" +" rest_240)" "(values))))" "(values))))))" " for-loop_140)" @@ -73196,7 +73211,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_420)" +"(let-values(((lst_419)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73204,42 +73219,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_420)))" -"((letrec-values(((for-loop_324)" -"(lambda(fold-var_371" -" lst_421)" +" lst_419)))" +"((letrec-values(((for-loop_326)" +"(lambda(fold-var_373" +" lst_420)" "(begin" " 'for-loop" "(if(pair?" -" lst_421)" +" lst_420)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_421))" -"((rest_244)" +" lst_420))" +"((rest_241)" "(unsafe-cdr" -" lst_421)))" -"(let-values(((fold-var_372)" -"(let-values(((fold-var_373)" -" fold-var_371))" +" lst_420)))" "(let-values(((fold-var_374)" +"(let-values(((fold-var_375)" +" fold-var_373))" +"(let-values(((fold-var_376)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_373))))" +" fold-var_375))))" "(values" -" fold-var_374)))))" +" fold-var_376)))))" "(if(not" " #f)" -"(for-loop_324" -" fold-var_372" -" rest_244)" -" fold-var_372)))" -" fold-var_371)))))" -" for-loop_324)" +"(for-loop_326" +" fold-var_374" +" rest_241)" +" fold-var_374)))" +" fold-var_373)))))" +" for-loop_326)" " null" -" lst_420))))))" +" lst_419))))))" "(datum->syntax$1" " #f" "(cons" @@ -73334,8 +73349,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_86))" "(let-values()" -"(let-values(((id_150)" -"(let-values(((lst_422)" +"(let-values(((id_149)" +"(let-values(((lst_421)" " flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73343,24 +73358,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_422)))" -"((letrec-values(((for-loop_325)" -"(lambda(id_151" -" lst_423)" +" lst_421)))" +"((letrec-values(((for-loop_327)" +"(lambda(id_150" +" lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" +" lst_422)" "(let-values(((s_777)" "(unsafe-car" -" lst_423))" -"((rest_245)" +" lst_422))" +"((rest_242)" "(unsafe-cdr" -" lst_423)))" +" lst_422)))" +"(let-values(((id_151)" "(let-values(((id_152)" +" id_150))" "(let-values(((id_153)" -" id_151))" -"(let-values(((id_154)" "(let-values()" "(let-values(((id484_0)" "(let-values()" @@ -73383,21 +73398,21 @@ static const char *startup_source = " s_777)))))" "(cons" " id484_0" -" id_153)))))" +" id_152)))))" "(values" -" id_154)))))" +" id_153)))))" "(if(not" " #f)" -"(for-loop_325" -" id_152" -" rest_245)" -" id_152)))" -" id_151)))))" -" for-loop_325)" +"(for-loop_327" +" id_151" +" rest_242)" +" id_151)))" +" id_150)))))" +" for-loop_327)" " null" -" lst_422)))))" +" lst_421)))))" "(reverse$1" -" id_150))))))))" +" id_149))))))))" "((rhs475_0)" "(let-values(((s_778)" "(cdr" @@ -73659,8 +73674,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_155)" -"(let-values(((lst_424)" +"(let-values(((id_154)" +"(let-values(((lst_423)" " flat-s_57))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73668,24 +73683,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_424)))" -"((letrec-values(((for-loop_326)" -"(lambda(id_156" -" lst_425)" +" lst_423)))" +"((letrec-values(((for-loop_328)" +"(lambda(id_155" +" lst_424)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" +" lst_424)" "(let-values(((s_538)" "(unsafe-car" -" lst_425))" -"((rest_246)" +" lst_424))" +"((rest_243)" "(unsafe-cdr" -" lst_425)))" +" lst_424)))" +"(let-values(((id_156)" "(let-values(((id_157)" +" id_155))" "(let-values(((id_158)" -" id_156))" -"(let-values(((id_159)" "(let-values()" "(let-values(((id509_0)" "(let-values()" @@ -73708,21 +73723,21 @@ static const char *startup_source = " s_538)))))" "(cons" " id509_0" -" id_158)))))" +" id_157)))))" "(values" -" id_159)))))" +" id_158)))))" "(if(not" " #f)" -"(for-loop_326" -" id_157" -" rest_246)" -" id_157)))" -" id_156)))))" -" for-loop_326)" +"(for-loop_328" +" id_156" +" rest_243)" +" id_156)))" +" id_155)))))" +" for-loop_328)" " null" -" lst_424)))))" +" lst_423)))))" "(reverse$1" -" id_155))))))))" +" id_154))))))))" "((rhs500_0)" "(let-values(((s_788)" "(cdr" @@ -73984,11 +73999,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_426)" +"(let-values(((lst_425)" " syms_25)" -"((lst_427)" +"((lst_426)" " vals_10)" -"((lst_428)" +"((lst_427)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73996,6 +74011,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_425)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_426)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -74003,44 +74024,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_427)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_428)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_429" -" lst_430" -" lst_431)" +"((letrec-values(((for-loop_329)" +"(lambda(lst_428" +" lst_429" +" lst_430)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_429)" +" lst_428)" "(if(pair?" -" lst_430)" +" lst_429)" "(pair?" -" lst_431)" +" lst_430)" " #f)" " #f)" -"(let-values(((sym_105)" +"(let-values(((sym_104)" "(unsafe-car" -" lst_429))" -"((rest_247)" +" lst_428))" +"((rest_244)" "(unsafe-cdr" -" lst_429))" +" lst_428))" "((val_85)" "(unsafe-car" -" lst_430))" -"((rest_248)" +" lst_429))" +"((rest_245)" "(unsafe-cdr" -" lst_430))" -"((id_160)" +" lst_429))" +"((id_159)" "(unsafe-car" -" lst_431))" -"((rest_232)" +" lst_430))" +"((rest_229)" "(unsafe-cdr" -" lst_431)))" +" lst_430)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74050,28 +74065,28 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_85" -" id_160" +" id_159" " phase_154" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" " phase_154" -" sym_105" +" sym_104" " val_85)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_327" -" rest_247" -" rest_248" -" rest_232)" +"(for-loop_329" +" rest_244" +" rest_245" +" rest_229)" "(values))))" "(values))))))" -" for-loop_327)" +" for-loop_329)" +" lst_425" " lst_426" -" lst_427" -" lst_428)))" +" lst_427)))" "(values))))" "(let-values()" "(let-values((()" @@ -74408,7 +74423,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_432)" +"(let-values(((lst_431)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74416,19 +74431,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_432)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_433)" +" lst_431)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_432)" "(begin" " 'for-loop" "(if(pair?" -" lst_433)" +" lst_432)" "(let-values(((kw_1)" "(unsafe-car" -" lst_433))" -"((rest_249)" +" lst_432))" +"((rest_246)" "(unsafe-cdr" -" lst_433)))" +" lst_432)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74479,12 +74494,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_328" -" rest_249)" +"(for-loop_330" +" rest_246)" "(values))))" "(values))))))" -" for-loop_328)" -" lst_432)))" +" for-loop_330)" +" lst_431)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74534,34 +74549,34 @@ static const char *startup_source = "(lambda(ids_45 rhs_24 phase_155)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_434) ids_45))" +"(let-values(((lst_433) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_434)))" -"((letrec-values(((for-loop_329)" -"(lambda(fold-var_375 lst_435)" +"(let-values()(check-list lst_433)))" +"((letrec-values(((for-loop_331)" +"(lambda(fold-var_377 lst_434)" "(begin" " 'for-loop" -"(if(pair? lst_435)" -"(let-values(((id_161)(unsafe-car lst_435))" -"((rest_250)(unsafe-cdr lst_435)))" -"(let-values(((fold-var_376)" -"(let-values(((fold-var_377) fold-var_375))" +"(if(pair? lst_434)" +"(let-values(((id_160)(unsafe-car lst_434))" +"((rest_247)(unsafe-cdr lst_434)))" "(let-values(((fold-var_378)" +"(let-values(((fold-var_379) fold-var_377))" +"(let-values(((fold-var_380)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_161" +" id_160" " inside-scope_2))" -" fold-var_377))))" -"(values fold-var_378)))))" -"(if(not #f)(for-loop_329 fold-var_376 rest_250) fold-var_376)))" -" fold-var_375)))))" -" for-loop_329)" +" fold-var_379))))" +"(values fold-var_380)))))" +"(if(not #f)(for-loop_331 fold-var_378 rest_247) fold-var_378)))" +" fold-var_377)))))" +" for-loop_331)" " null" -" lst_434))))))" +" lst_433))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" @@ -74602,28 +74617,28 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_114)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_436) bodys_23))" +"(let-values(((lst_435) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_436)))" -"((letrec-values(((for-loop_330)" -"(lambda(fold-var_379 lst_437)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_435)))" +"((letrec-values(((for-loop_332)" +"(lambda(fold-var_381 lst_436)" "(begin" " 'for-loop" -"(if(pair? lst_437)" -"(let-values(((body_23)(unsafe-car lst_437))((rest_251)(unsafe-cdr lst_437)))" -"(let-values(((fold-var_380)" -"(let-values(((fold-var_381) fold-var_379))" +"(if(pair? lst_436)" +"(let-values(((body_23)(unsafe-car lst_436))((rest_248)(unsafe-cdr lst_436)))" "(let-values(((fold-var_382)" +"(let-values(((fold-var_383) fold-var_381))" +"(let-values(((fold-var_384)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_381))))" -"(values fold-var_382)))))" -"(if(not #f)(for-loop_330 fold-var_380 rest_251) fold-var_380)))" -" fold-var_379)))))" -" for-loop_330)" +" fold-var_383))))" +"(values fold-var_384)))))" +"(if(not #f)(for-loop_332 fold-var_382 rest_248) fold-var_382)))" +" fold-var_381)))))" +" for-loop_332)" " null" -" lst_436))))" +" lst_435))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75069,12 +75084,12 @@ static const char *startup_source = "(let-values(((ht_170) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))" -"((letrec-values(((for-loop_331)" -"(lambda(i_191)" +"((letrec-values(((for-loop_333)" +"(lambda(i_192)" "(begin" " 'for-loop" -"(if i_191" -"(let-values(((phase_157 l_84)(hash-iterate-key+value ht_170 i_191)))" +"(if i_192" +"(let-values(((phase_157 l_84)(hash-iterate-key+value ht_170 i_192)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75082,33 +75097,33 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_438) l_84))" +"(let-values(((lst_437) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_439)" +"(let-values()(check-list lst_437)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_438)" "(begin" " 'for-loop" "(if(pair?" -" lst_439)" -"(let-values(((id_162)" +" lst_438)" +"(let-values(((id_161)" "(unsafe-car" -" lst_439))" -"((rest_252)" +" lst_438))" +"((rest_249)" "(unsafe-cdr" -" lst_439)))" +" lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_90)" +"(let-values(((b_91)" "(let-values(((id592_0)" -" id_162)" +" id_161)" "((phase593_0)" " phase_157))" "(resolve+shift30.1" @@ -75124,17 +75139,17 @@ static const char *startup_source = " #f" " id592_0" " phase593_0))))" -"(if(if b_90" +"(if(if b_91" "(if(module-binding?" -" b_90)" +" b_91)" "(if(eq?" "(module-binding-sym" -" b_90)" +" b_91)" "(syntax-e$1" -" id_162))" +" id_161))" "(eq?" "(module-binding-module" -" b_90)" +" b_91)" " self_37)" " #f)" " #f)" @@ -75144,27 +75159,27 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"reference to an unbound identifier\"" -" id_162" +" id_161" " #f" " null" "(syntax-debug-info-string" -" id_162" +" id_161" " ctx_115))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_332" -" rest_252)" +"(for-loop_334" +" rest_249)" "(values))))" "(values))))))" -" for-loop_332)" -" lst_438)))" +" for-loop_334)" +" lst_437)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_331(hash-iterate-next ht_170 i_191))(values))))" +"(if(not #f)(for-loop_333(hash-iterate-next ht_170 i_192))(values))))" "(values))))))" -" for-loop_331)" +" for-loop_333)" "(hash-iterate-first ht_170))))" "(void)))))" "(define-values" @@ -76016,18 +76031,18 @@ static const char *startup_source = "(let-values(((s_706) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_440) ids_47))" +"(let-values(((lst_439) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_441)" +"(let-values()(check-list lst_439)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((id_163)(unsafe-car lst_441))" -"((rest_253)(unsafe-cdr lst_441)))" +"(if(pair? lst_440)" +"(let-values(((id_162)(unsafe-car lst_440))" +"((rest_250)(unsafe-cdr lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76036,7 +76051,7 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides655_0)" " requires+provides_12)" -"((id656_0) id_163)" +"((id656_0) id_162)" "((phase657_0)" " phase_162)" "((s658_0) s_706)" @@ -76059,25 +76074,25 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_253)(values))))" +"(if(not #f)(for-loop_335 rest_250)(values))))" "(values))))))" -" for-loop_333)" -" lst_440)))" +" for-loop_335)" +" lst_439)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_28 phase_163 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_442) bodys_28))" +"(let-values(((lst_441) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_443)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" +"((letrec-values(((for-loop_336)" +"(lambda(lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_443)" -"(let-values(((body_26)(unsafe-car lst_443))((rest_254)(unsafe-cdr lst_443)))" +"(if(pair? lst_442)" +"(let-values(((body_26)(unsafe-car lst_442))((rest_251)(unsafe-cdr lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76103,59 +76118,59 @@ static const char *startup_source = " m-ns_23" " ctx_119)))" "(begin" -"(let-values(((lst_444) ids_48)" -"((lst_445)" +"(let-values(((lst_443) ids_48)" +"((lst_444)" "(parsed-define-values-syms" " p_86))" -"((lst_446) vals_11))" +"((lst_445) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_443)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_444)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_445)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_446)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_447" -" lst_448" -" lst_449)" +"((letrec-values(((for-loop_337)" +"(lambda(lst_446" +" lst_447" +" lst_448)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_447)" +" lst_446)" "(if(pair?" -" lst_448)" +" lst_447)" "(pair?" -" lst_449)" +" lst_448)" " #f)" " #f)" -"(let-values(((id_164)" +"(let-values(((id_163)" +"(unsafe-car" +" lst_446))" +"((rest_252)" +"(unsafe-cdr" +" lst_446))" +"((sym_105)" "(unsafe-car" " lst_447))" -"((rest_255)" +"((rest_253)" "(unsafe-cdr" " lst_447))" -"((sym_106)" -"(unsafe-car" -" lst_448))" -"((rest_256)" -"(unsafe-cdr" -" lst_448))" "((val_86)" "(unsafe-car" -" lst_449))" -"((rest_257)" +" lst_448))" +"((rest_254)" "(unsafe-cdr" -" lst_449)))" +" lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76165,22 +76180,22 @@ static const char *startup_source = "(namespace-set-variable!" " m-ns_23" " phase_163" -" sym_106" +" sym_105" " val_86))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_335" -" rest_255" -" rest_256" -" rest_257)" +"(for-loop_337" +" rest_252" +" rest_253" +" rest_254)" "(values))))" "(values))))))" -" for-loop_335)" +" for-loop_337)" +" lst_443" " lst_444" -" lst_445" -" lst_446)))" +" lst_445)))" "(void)))))" "(if(let-values(((or-part_411)" "(parsed-define-syntaxes?" @@ -76232,10 +76247,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_334 rest_254)(values))))" +"(if(not #f)(for-loop_336 rest_251)(values))))" "(values))))))" -" for-loop_334)" -" lst_442)))" +" for-loop_336)" +" lst_441)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76680,21 +76695,21 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_450) bodys_29))" +"(let-values(((lst_449) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_450)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_383 lst_451)" +"(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_385 lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_451)" -"(let-values(((body_27)(unsafe-car lst_451))" -"((rest_258)(unsafe-cdr lst_451)))" -"(let-values(((fold-var_384)" -"(let-values(((fold-var_385) fold-var_383))" +"(if(pair? lst_450)" +"(let-values(((body_27)(unsafe-car lst_450))" +"((rest_255)(unsafe-cdr lst_450)))" "(let-values(((fold-var_386)" +"(let-values(((fold-var_387) fold-var_385))" +"(let-values(((fold-var_388)" "(let-values()" "(cons" "(let-values()" @@ -76739,15 +76754,15 @@ static const char *startup_source = " self699_0" " ctx700_0)))" "(let-values() body_27))))" -" fold-var_385))))" -"(values fold-var_386)))))" +" fold-var_387))))" +"(values fold-var_388)))))" "(if(not #f)" -"(for-loop_336 fold-var_384 rest_258)" -" fold-var_384)))" -" fold-var_383)))))" -" for-loop_336)" +"(for-loop_338 fold-var_386 rest_255)" +" fold-var_386)))" +" fold-var_385)))))" +" for-loop_338)" " null" -" lst_450))))))))))))))))" +" lst_449))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -76849,30 +76864,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_452) lifted-defns_2))" +"(let-values(((lst_451) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_452)))" -"((letrec-values(((for-loop_337)" -"(lambda(fold-var_387 lst_453)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" +"((letrec-values(((for-loop_339)" +"(lambda(fold-var_389 lst_452)" "(begin" " 'for-loop" -"(if(pair? lst_453)" -"(let-values(((lifted-defn_0)(unsafe-car lst_453))" -"((rest_259)(unsafe-cdr lst_453)))" -"(let-values(((fold-var_388)" -"(let-values(((fold-var_389) fold-var_387))" +"(if(pair? lst_452)" +"(let-values(((lifted-defn_0)(unsafe-car lst_452))" +"((rest_256)(unsafe-cdr lst_452)))" "(let-values(((fold-var_390)" +"(let-values(((fold-var_391) fold-var_389))" +"(let-values(((fold-var_392)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_389))))" -"(values fold-var_390)))))" -"(if(not #f)(for-loop_337 fold-var_388 rest_259) fold-var_388)))" -" fold-var_387)))))" -" for-loop_337)" +" fold-var_391))))" +"(values fold-var_392)))))" +"(if(not #f)(for-loop_339 fold-var_390 rest_256) fold-var_390)))" +" fold-var_389)))))" +" for-loop_339)" " null" -" lst_452)))))))" +" lst_451)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -76888,18 +76903,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_454) s-lifted-defns_0))" +"(let-values(((lst_453) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_338)" -"(lambda(lst_455)" +"(let-values()(check-list lst_453)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_454)" "(begin" " 'for-loop" -"(if(pair? lst_455)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_455))" -"((rest_260)(unsafe-cdr lst_455)))" +"(if(pair? lst_454)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_454))" +"((rest_257)(unsafe-cdr lst_454)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77005,10 +77020,10 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_338 rest_260)(values))))" +"(if(not #f)(for-loop_340 rest_257)(values))))" "(values))))))" -" for-loop_338)" -" lst_454)))" +" for-loop_340)" +" lst_453)))" "(values))))" "(let-values()" "(let-values(((ok?_89 form-id720_0 _721_0)" @@ -77100,25 +77115,25 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_391 lst_85)" +"(lambda(fold-var_393 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" -"(let-values(((id_165)(unsafe-car lst_85))" +"(let-values(((id_164)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_391))" -"(let-values(((fold-var_392)" +"(let-values(((fold-var_62) fold-var_393))" +"(let-values(((fold-var_394)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_165" +" id_164" " ctx_124))" " fold-var_62))))" -"(values fold-var_392)))))" +"(values fold-var_394)))))" "(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" -" fold-var_391)))))" +" fold-var_393)))))" " for-loop_104)" " null" " lst_6))))))" @@ -77134,13 +77149,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_339)" +"((letrec-values(((for-loop_341)" "(lambda(fold-var_218 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_166)(unsafe-car lst_86))" -"((rest_241)(unsafe-cdr lst_86)))" +"(let-values(((id_165)(unsafe-car lst_86))" +"((rest_238)(unsafe-cdr lst_86)))" "(let-values(((fold-var_228)" "(let-values(((fold-var_31) fold-var_218))" "(let-values(((fold-var_32)" @@ -77148,15 +77163,15 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_166" +" id_165" " top-level-bind-scope_6))" " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_339 fold-var_228 rest_241)" +"(for-loop_341 fold-var_228 rest_238)" " fold-var_228)))" " fold-var_218)))))" -" for-loop_339)" +" for-loop_341)" " null" " lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" @@ -77209,7 +77224,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_98))" "(let-values()" -"(let-values(((id_167)" +"(let-values(((id_166)" "(let-values(((lst_24)" " flat-s_64))" "(begin" @@ -77229,13 +77244,13 @@ static const char *startup_source = "(let-values(((s_182)" "(unsafe-car" " lst_80))" -"((rest_142)" +"((rest_141)" "(unsafe-cdr" " lst_80)))" -"(let-values(((id_168)" +"(let-values(((id_167)" "(let-values(((id_52)" " id_6))" -"(let-values(((id_169)" +"(let-values(((id_168)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -77260,18 +77275,18 @@ static const char *startup_source = " id10_1" " id_52)))))" "(values" -" id_169)))))" +" id_168)))))" "(if(not" " #f)" "(for-loop_253" -" id_168" -" rest_142)" -" id_168)))" +" id_167" +" rest_141)" +" id_167)))" " id_6)))))" " for-loop_253)" " null" " lst_24)))))" -"(reverse$1 id_167))))))))" +"(reverse$1 id_166))))))))" "((rhs8_0)" "(let-values(((s_79)(cdr s_173)))" "(let-values(((s_388)" @@ -77384,23 +77399,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_181)))" -"((letrec-values(((for-loop_340)" -"(lambda(id_170" -" lst_456)" +"((letrec-values(((for-loop_342)" +"(lambda(id_169" +" lst_455)" "(begin" " 'for-loop" "(if(pair?" -" lst_456)" +" lst_455)" "(let-values(((s_146)" "(unsafe-car" -" lst_456))" -"((rest_261)" +" lst_455))" +"((rest_258)" "(unsafe-cdr" -" lst_456)))" +" lst_455)))" "(let-values(((id_100)" "(let-values(((id_101)" -" id_170))" -"(let-values(((id_171)" +" id_169))" +"(let-values(((id_170)" "(let-values()" "(let-values(((id24_1)" "(let-values()" @@ -77425,15 +77440,15 @@ static const char *startup_source = " id24_1" " id_101)))))" "(values" -" id_171)))))" +" id_170)))))" "(if(not" " #f)" -"(for-loop_340" +"(for-loop_342" " id_100" -" rest_261)" +" rest_258)" " id_100)))" -" id_170)))))" -" for-loop_340)" +" id_169)))))" +" for-loop_342)" " null" " lst_181)))))" "(reverse$1 id_77))))))))" @@ -77762,21 +77777,21 @@ static const char *startup_source = "(begin" "(let-values(((temp51_4)" "(reverse$1" -"(let-values(((lst_457) req48_0))" +"(let-values(((lst_456) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_341)" +"(let-values()(check-list lst_456)))" +"((letrec-values(((for-loop_343)" "(lambda(fold-var_286 lst_152)" "(begin" " 'for-loop" "(if(pair? lst_152)" "(let-values(((req_20)(unsafe-car lst_152))" -"((rest_262)(unsafe-cdr lst_152)))" -"(let-values(((fold-var_393)" +"((rest_259)(unsafe-cdr lst_152)))" +"(let-values(((fold-var_395)" "(let-values(((fold-var_289) fold-var_286))" -"(let-values(((fold-var_394)" +"(let-values(((fold-var_396)" "(let-values()" "(cons" "(let-values()" @@ -77784,14 +77799,14 @@ static const char *startup_source = " req_20" " sc_40))" " fold-var_289))))" -"(values fold-var_394)))))" +"(values fold-var_396)))))" "(if(not #f)" -"(for-loop_341 fold-var_393 rest_262)" -" fold-var_393)))" +"(for-loop_343 fold-var_395 rest_259)" +" fold-var_395)))" " fold-var_286)))))" -" for-loop_341)" +" for-loop_343)" " null" -" lst_457)))))" +" lst_456)))))" "((s52_0) s_33)" "((temp53_5) #f)" "((temp54_6)(expand-context-namespace ctx_126))" @@ -77898,28 +77913,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_172)))" -"((letrec-values(((for-loop_323)" -"(lambda(table_189 i_185)" +"((letrec-values(((for-loop_325)" +"(lambda(table_189 i_186)" "(begin" " 'for-loop" -"(if i_185" -"(let-values(((name_81)(hash-iterate-key ht_172 i_185)))" -"(let-values(((table_115)" -"(let-values(((table_108) table_189))" -"(let-values(((table_109)" +"(if i_186" +"(let-values(((name_81)(hash-iterate-key ht_172 i_186)))" +"(let-values(((table_116)" +"(let-values(((table_109) table_189))" +"(let-values(((table_110)" "(let-values()" "(let-values(((key_97 val_88)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_108 key_97 val_88)))))" -"(values table_109)))))" +"(hash-set table_109 key_97 val_88)))))" +"(values table_110)))))" "(if(not #f)" -"(for-loop_323 table_115(hash-iterate-next ht_172 i_185))" -" table_115)))" +"(for-loop_325 table_116(hash-iterate-next ht_172 i_186))" +" table_116)))" " table_189)))))" -" for-loop_323)" +" for-loop_325)" " '#hash()" "(hash-iterate-first ht_172))))))" "(declare-kernel-module!8.1 eval27_0 temp28_7 temp29_4 ns26_3))"