From 11fd70c3ddf88a72bb2e458294e15330d84f61fc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 1 Mar 2018 14:13:59 -0700 Subject: [PATCH] expander: fix `require` after shadowing `define` --- .../racket-test-core/tests/racket/module.rktl | 49 + racket/src/expander/expand/env.rkt | 7 +- .../src/expander/expand/require+provide.rkt | 113 +- racket/src/expander/expand/require.rkt | 52 +- racket/src/expander/syntax/binding-table.rkt | 36 +- racket/src/expander/syntax/scope.rkt | 6 +- racket/src/racket/src/startup.inc | 29770 ++++++++-------- 7 files changed, 15171 insertions(+), 14862 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index 79e7032567..826225ccf8 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -683,6 +683,55 @@ (let ([n-ns (eval '(module->namespace ''n) ns)]) (test 5 eval '(lambda (x) x) n-ns))))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check shadowing when `define` precedes `require` + +(module definition-shadows-later-require racket/base + (provide result) + (define first "last") + (require racket/list) + (define result first)) + +(test "last" dynamic-require ''definition-shadows-later-require 'result) + +(module definition-shadows-later-require/rename racket/base + (provide result) + (define first "last") + (require (rename-in racket/function + [curry first])) + (define result first)) + +(test "last" dynamic-require ''definition-shadows-later-require/rename 'result) + +(module definition-shadows-later-require/2 racket/base + (provide result) + (define first "last") + (require racket/list) + (require racket/list) + (define result first)) + +(test "last" dynamic-require ''definition-shadows-later-require/2 'result) + +(err/rt-test + (eval + '(module m racket/base + (define first "last") + (require racket/list) + ;; late `require` collision: + (require (rename-in racket/function + [curry first])))) + exn:fail:syntax?) + +(err/rt-test + (eval + '(module m racket/base + (require racket/list) + (define first "last") + ;; late `require` collision: + (require (rename-in racket/function + [curry first])))) + exn:fail:syntax?) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Check printing of resolved module paths diff --git a/racket/src/expander/expand/env.rkt b/racket/src/expander/expand/env.rkt index 694ced6113..daec1d2387 100644 --- a/racket/src/expander/expand/env.rkt +++ b/racket/src/expander/expand/env.rkt @@ -85,10 +85,13 @@ (add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) binding #:just-for-nominal? just-for-nominal?)) -(define (add-bulk-binding! s binding phase #:in [in-s #f]) +(define (add-bulk-binding! s binding phase + #:in [in-s #f] + #:shadow-except [shadow-except #f]) (when (syntax-tainted? s) (raise-syntax-error #f "cannot bind from tainted syntax" in-s s)) - (add-bulk-binding-in-scopes! (syntax-scope-set s phase) binding)) + (add-bulk-binding-in-scopes! (syntax-scope-set s phase) binding + #:shadow-except shadow-except)) ;; Helper for registering a local binding in a set of scopes: (define (add-local-binding! id phase counter #:frame-id [frame-id #f] #:in [in-s #f]) diff --git a/racket/src/expander/expand/require+provide.rkt b/racket/src/expander/expand/require+provide.rkt index b398752ef7..7bc616b4a1 100644 --- a/racket/src/expander/expand/require+provide.rkt +++ b/racket/src/expander/expand/require+provide.rkt @@ -49,6 +49,7 @@ requires ; mpi [interned] -> require-phase -> sym -> list-ish of [bulk-]required provides ; phase -> sym -> binding or protected phase-to-defined-syms ; phase -> sym -> boolean + also-required ; sym -> binding [can-cross-phase-persistent? #:mutable] [all-bindings-simple? #:mutable]) ; tracks whether bindings are easily reconstructed #:authentic) @@ -82,6 +83,7 @@ (make-hasheq) ; requires (make-hasheqv) ; provides (make-hasheqv) ; phase-to-defined-syms + (make-hasheq) ; also-required #t #t)) @@ -90,7 +92,8 @@ ;; all previously required modules (hash-clear! (requires+provides-requires r+p)) (hash-clear! (requires+provides-provides r+p)) - (hash-clear! (requires+provides-phase-to-defined-syms r+p))) + (hash-clear! (requires+provides-phase-to-defined-syms r+p)) + (hash-clear! (requires+provides-also-required r+p))) ;; ---------------------------------------- @@ -150,7 +153,8 @@ (hash-ref sym-to-reqds sym null)))) ;; Like `add-defined-or-required-id!`, but faster for bindings that -;; all have the same scope, etc. +;; all have the same scope, etc.< +;; Return #t if any required id is already defined by a shaodwing definition. (define (add-bulk-required-ids! r+p s self nominal-module phase-shift provides provide-phase-level #:prefix bulk-prefix #:excepts bulk-excepts @@ -169,29 +173,38 @@ (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 ([(out-sym binding/p) (in-hash provides)]) + (for/or ([(out-sym binding/p) (in-hash provides)]) (when symbols-accum (hash-set! symbols-accum out-sym #t)) - (unless (hash-ref bulk-excepts out-sym #f) - (define sym (cond - [(not bulk-prefix) out-sym] - [else (string->symbol (format "~a~a" bulk-prefix out-sym))])) - (when (and check-and-remove? + (cond + [(hash-ref bulk-excepts out-sym #f) + #f] + [else + (define sym (cond + [(not bulk-prefix) out-sym] + [else (string->symbol (format "~a~a" bulk-prefix out-sym))])) + (define already-defined? + (cond + [(and check-and-remove? (or (not shortcut-table) (hash-ref shortcut-table sym #f))) - (check-not-defined #:check-not-required? #t - r+p (datum->syntax s sym s) phase #:in orig-s - #:unless-matches - (lambda () - (provide-binding-to-require-binding binding/p - sym - #:self self - #:mpi mpi - #:provide-phase-level provide-phase-level - #:phase-shift phase-shift)) - #:remove-shadowed!? #t - #:accum-update-nominals accum-update-nominals - #:who who)) - (hash-set! sym-to-reqds sym (cons-ish br (hash-ref sym-to-reqds sym null)))))) + (check-not-defined #:check-not-required? #t + #:allow-defined? #t + r+p (datum->syntax s sym s) phase #:in orig-s + #:unless-matches + (lambda () + (provide-binding-to-require-binding binding/p + sym + #:self self + #:mpi mpi + #:provide-phase-level provide-phase-level + #:phase-shift phase-shift)) + #:remove-shadowed!? #t + #:accum-update-nominals accum-update-nominals + #:who who)] + [else #f])) + (unless already-defined? + (hash-set! sym-to-reqds sym (cons-ish br (hash-ref sym-to-reqds sym null)))) + already-defined?]))) ;; Convert a combination of a symbol and `bulk-required` to a ;; `required` on demand @@ -266,8 +279,10 @@ ;; Check whether an identifier has a binding that is from a non-shadowable ;; require; if something is found but it will be replaced, then record that -;; bindings are not simple. +;; bindings are not simple. Returns a boolean to dincate whether the binding +;; is defined already, since `allow-defined?` allows the result to be #t. (define (check-not-defined #:check-not-required? [check-not-required? #f] + #:allow-defined? [allow-defined? #f] r+p id phase #:in orig-s #:unless-matches [ok-binding/delayed #f] ; binding or (-> binding) #:remove-shadowed!? [remove-shadowed!? #f] @@ -275,7 +290,7 @@ #:who who) (define b (resolve+shift id phase #:exactly? #t)) (cond - [(not b) (void)] + [(not b) #f] [(not (module-binding? b)) (raise-syntax-error #f "identifier out of context" id)] [else @@ -285,7 +300,11 @@ [(and (not defined?) (not check-not-required?)) ;; Not defined, and we're shadowing all requires -- so, it's ok, ;; but binding is non-simple - (set-requires+provides-all-bindings-simple?! r+p #f)] + (set-requires+provides-all-bindings-simple?! r+p #f) + ;; Also, record the `require` binding, in case we see another + ;; `require` for the same identifier + (hash-set! (requires+provides-also-required r+p) (module-binding-sym b) b) + #f] [(and defined? ;; In case `#%module-begin` is expanded multiple times, check ;; that the definition has been seen this particular expansion @@ -295,19 +314,30 @@ (module-binding-sym b) #f))) ;; Doesn't count as previously defined - (void)] + #f] [else (define mpi (intern-mpi r+p (module-binding-nominal-module b))) (define at-mod (hash-ref (requires+provides-requires r+p) mpi #f)) (define ok-binding (if (procedure? ok-binding/delayed) (ok-binding/delayed) ok-binding/delayed)) + (define (raise-already-bound defined?) + (raise-syntax-error who + (string-append "identifier already " + (if defined? "defined" "required") + (cond + [(zero-phase? phase) ""] + [(label-phase? phase) " for label"] + [(= 1 phase) " for syntax"] + [else (format " for phase ~a" phase)])) + orig-s + id)) (cond [(not at-mod) ;; Binding is from an enclosing context; if it's from an ;; enclosing module, then we've already marked bindings ;; a non-simple --- otherwise, we don't care - (void)] + #f] [(and ok-binding (same-binding? b ok-binding)) ;; It's the same binding already, so overall binding hasn't ;; become non-simple @@ -327,7 +357,19 @@ ;; We can't reset now, because the caller is preparing for ;; a bulk bind. Record that we need to merge nominals. (set-box! accum-update-nominals (cons update! (unbox accum-update-nominals)))] - [else (update!)]))] + [else (update!)])) + defined?] + [(and defined? allow-defined?) + ;; A `require` doesn't conflict with a definition, even if we + ;; saw the definition earlier; but make sure there are not multiple + ;; `require`s (any one of which would be shadowed by the definition) + (define also-required (requires+provides-also-required r+p)) + (define prev-b (hash-ref also-required (module-binding-sym b) #f)) + (when (and prev-b (not (same-binding? ok-binding prev-b))) + (raise-already-bound #f)) + (hash-set! also-required (module-binding-sym b) ok-binding) + (set-requires+provides-all-bindings-simple?! r+p #f) + #t] [else (define nominal-phase (module-binding-nominal-require-phase b)) (define sym-to-reqds (hash-ref at-mod nominal-phase #hasheq())) @@ -339,21 +381,12 @@ (required-can-be-shadowed? r)) ;; Shadowing --- ok, but non-simple (set-requires+provides-all-bindings-simple?! r+p #f)] - [else - (raise-syntax-error who - (string-append "identifier already " - (if defined? "defined" "required") - (cond - [(zero-phase? phase) ""] - [(label-phase? phase) " for label"] - [(= 1 phase) " for syntax"] - [else (format " for phase ~a" phase)])) - orig-s - id)])) + [else (raise-already-bound defined?)])) (when (and remove-shadowed!? (not (null? reqds))) ;; Same work as in `remove-required-id!` (hash-set! sym-to-reqds (syntax-e id) - (remove-non-matching-requireds reqds id phase mpi nominal-phase (syntax-e id))))])])])) + (remove-non-matching-requireds reqds id phase mpi nominal-phase (syntax-e id)))) + #f])])])) (define (add-defined-syms! r+p syms phase) (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p)) diff --git a/racket/src/expander/expand/require.rkt b/racket/src/expander/expand/require.rkt index 9ff3728b2f..a1f583addd 100644 --- a/racket/src/expander/expand/require.rkt +++ b/racket/src/expander/expand/require.rkt @@ -258,6 +258,7 @@ m bind-in-stx phase-shift m-ns interned-mpi module-name #:in orig-s + #:defines-mpi (and requires+provides (requires+provides-self requires+provides)) #:only (cond [(adjust-only? adjust) (set->list (adjust-only-syms adjust))] [(adjust-rename? adjust) (list (adjust-rename-from-sym adjust))] @@ -271,6 +272,7 @@ requires+provides can-bulk-bind? (lambda (provides provide-phase-level) + ;; Returns #t if any binding is already shadowed by a definition: (add-bulk-required-ids! requires+provides bind-in-stx (module-self m) mpi phase-shift @@ -314,28 +316,37 @@ (and (eq? sym (adjust-rename-from-sym adjust)) (hash-set! done-syms sym #t) (adjust-rename-to-id adjust))])) - (when (and adjusted-sym requires+provides) - (define s (datum->syntax bind-in-stx adjusted-sym)) - (define bind-phase (phase+ phase-shift provide-phase)) - (unless initial-require? - (check-not-defined #:check-not-required? #t - requires+provides - s bind-phase - #:unless-matches binding - #:in orig-s - #:remove-shadowed!? #t - #:who who)) - (add-defined-or-required-id! requires+provides - s bind-phase binding - #:can-be-shadowed? can-be-shadowed? - #:as-transformer? as-transformer?)) + (define skip-bind? + (cond + [(and adjusted-sym requires+provides) + (define s (datum->syntax bind-in-stx adjusted-sym)) + (define bind-phase (phase+ phase-shift provide-phase)) + (define skip-bind? + (cond + [initial-require? #f] + [else + (check-not-defined #:check-not-required? #t + #:allow-defined? #t ; `define` shadows `require` + requires+provides + s bind-phase + #:unless-matches binding + #:in orig-s + #:remove-shadowed!? #t + #:who who)])) + (unless skip-bind? + (add-defined-or-required-id! requires+provides + s bind-phase binding + #:can-be-shadowed? can-be-shadowed? + #:as-transformer? as-transformer?)) + skip-bind?] + [else #f])) (when (and adjusted-sym copy-variable-phase-level (not as-transformer?) (equal? provide-phase copy-variable-phase-level)) (copy-namespace-value m-ns adjusted-sym binding copy-variable-phase-level phase-shift copy-variable-as-constant?)) - adjusted-sym))) + (and (not skip-bind?) adjusted-sym)))) ;; Now that a bulk binding is in place, update to merge nominals: (when update-nominals-box (for ([update! (in-list (unbox update-nominals-box))]) @@ -359,6 +370,7 @@ (define (bind-all-provides! m in-stx phase-shift ns mpi module-name #:in orig-s + #:defines-mpi defines-mpi #:only only-syms #:just-meta just-meta #:bind? bind? @@ -372,8 +384,9 @@ #:when (or (eq? just-meta 'all) (eqv? just-meta provide-phase-level))) (define phase (phase+ phase-shift provide-phase-level)) - (when bulk-callback - (bulk-callback provides provide-phase-level)) + (define need-except? + (and bulk-callback + (bulk-callback provides provide-phase-level))) (when bind? (when filter (for ([sym (in-list (or only-syms (hash-keys provides)))]) @@ -408,7 +421,8 @@ self mpi provide-phase-level phase-shift bulk-binding-registry) phase - #:in orig-s))))) + #:in orig-s + #:shadow-except (and need-except? defines-mpi)))))) ;; ---------------------------------------- diff --git a/racket/src/expander/syntax/binding-table.rkt b/racket/src/expander/syntax/binding-table.rkt index 681440d754..b54144af31 100644 --- a/racket/src/expander/syntax/binding-table.rkt +++ b/racket/src/expander/syntax/binding-table.rkt @@ -3,7 +3,8 @@ "../common/set.rkt" "../compile/serialize-property.rkt" "../compile/serialize-state.rkt" - "syntax.rkt") + "syntax.rkt" + "module-binding.rkt") ;; A binding table within a scope maps symbol plus scope set ;; combinations (where the scope binding the binding table is always @@ -105,7 +106,7 @@ just-for-nominal?)) ;; Keep `syms/serialize` in sync with `syms`, except for bindings ;; that are just to extend the set of nominal imports. We keep those - ;; separate --- and don't serialize them --- because they interfere + ;; separate --- and don't serialize them --- because they interfere ;; with bulk representations of binding and they're used only to ;; commuincate to `provide`. (define new-syms/serialize @@ -124,18 +125,21 @@ [syms/serialize new-syms/serialize])])) ;; Adding a binding for a computed-on-demand set of symbols -(define (binding-table-add-bulk bt scopes bulk) +(define (binding-table-add-bulk bt scopes bulk + #:shadow-except [shadow-except #f]) (cond [(table-with-bulk-bindings? bt) (define new-syms (remove-matching-bindings (table-with-bulk-bindings-syms bt) scopes - bulk)) + bulk + #:except shadow-except)) (define new-syms/serialize (if (eq? (table-with-bulk-bindings-syms bt) (table-with-bulk-bindings-syms/serialize bt)) new-syms (remove-matching-bindings (table-with-bulk-bindings-syms/serialize bt) scopes - bulk))) + bulk + #:except shadow-except))) (table-with-bulk-bindings new-syms new-syms/serialize (cons (bulk-binding-at scopes bulk) @@ -144,28 +148,36 @@ (binding-table-add-bulk (table-with-bulk-bindings bt bt null) scopes bulk)])) ;; The bindings of `bulk` at `scopes` should shadow any existing -;; mappings in `sym-bindings` -(define (remove-matching-bindings syms scopes bulk) +;; mappings in `sym-bindings`, except one for `except` +(define (remove-matching-bindings syms scopes bulk #:except except) (define bulk-symbols (bulk-binding-symbols bulk #f null)) (cond [((hash-count syms) . < . (hash-count bulk-symbols)) - ;; Faster to consider each sym in `sym-binding` + ;; Faster to consider each sym in `syms` (for/fold ([syms syms]) ([(sym sym-bindings) (in-immutable-hash syms)]) (if (hash-ref bulk-symbols sym #f) - (remove-matching-binding syms sym sym-bindings scopes) + (remove-matching-binding syms sym sym-bindings scopes #:except except) syms))] [else ;; Faster to consider each sym in `bulk-symbols` (for/fold ([syms syms]) ([sym (in-immutable-hash-keys bulk-symbols)]) (define sym-bindings (hash-ref syms sym #f)) (if sym-bindings - (remove-matching-binding syms sym sym-bindings scopes) + (remove-matching-binding syms sym sym-bindings scopes #:except except) syms))])) ;; Update an individual symbol's bindings to remove a mapping ;; for a given set of scopes -(define (remove-matching-binding syms sym sym-bindings scopes) - (hash-set syms sym (hash-remove sym-bindings scopes))) +(define (remove-matching-binding syms sym sym-bindings scopes #:except except) + (cond + [(and except + (let ([b (hash-ref sym-bindings scopes #f)]) + (and (module-binding? b) + (eq? except (module-binding-module b))))) + ;; Don't replace a shadowing definition + syms] + [else + (hash-set syms sym (hash-remove sym-bindings scopes))])) ;; ---------------------------------------- diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index 3462343d6a..5caa94a086 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -741,9 +741,11 @@ (set-scope-binding-table! max-sc bt) (clear-resolve-cache! sym)) -(define (add-bulk-binding-in-scopes! scopes bulk-binding) +(define (add-bulk-binding-in-scopes! scopes bulk-binding + #:shadow-except [shadow-except #f]) (define max-sc (find-max-scope scopes)) - (define bt (binding-table-add-bulk (scope-binding-table max-sc) scopes bulk-binding)) + (define bt (binding-table-add-bulk (scope-binding-table max-sc) scopes bulk-binding + #:shadow-except shadow-except)) (set-scope-binding-table! max-sc bt) (clear-resolve-cache!)) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index b8a516f5ba..b48cb5d02c 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -6139,6 +6139,415 @@ static const char *startup_source = "(begin" "(let-values(((s_65)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" "(datum->syntax$1 s_65 content_5 s_65 s_65)))))" +"(define-values" +"(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)" +"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values()" +"(let-values()" +"(make-struct-type" +" 'full-binding" +" #f" +" 2" +" 0" +" #f" +"(list" +"(cons prop:authentic #t)" +"(cons prop:binding-reach-scopes(lambda(b_21)(binding-free=id b_21))))" +"(current-inspector)" +" #f" +" '(0 1)" +" #f" +" 'full-binding)))))" +"(values" +" struct:_0" +" make-_0" +" ?_0" +"(make-struct-field-accessor -ref_0 0 'frame-id)" +"(make-struct-field-accessor -ref_0 1 'free=id))))" +"(define-values(binding-frame-id)(lambda(b_22)(begin(if(full-binding? b_22)(full-binding-frame-id b_22) #f))))" +"(define-values(binding-free=id)(lambda(b_11)(begin(if(full-binding? b_11)(full-binding-free=id b_11) #f))))" +"(define-values" +"(make-module-binding22.1)" +"(lambda(extra-inspector8_0" +" extra-inspector17_0" +" extra-nominal-bindings9_0" +" extra-nominal-bindings18_0" +" frame-id6_0" +" frame-id15_0" +" free=id7_0" +" free=id16_0" +" nominal-module2_0" +" nominal-module11_0" +" nominal-phase3_0" +" nominal-phase12_0" +" nominal-require-phase5_0" +" nominal-require-phase14_0" +" nominal-sym4_0" +" nominal-sym13_0" +" wrt1_0" +" wrt10_0" +" module19_0" +" phase20_0" +" sym21_0)" +"(begin" +" 'make-module-binding22" +"(let-values(((module_0) module19_0))" +"(let-values(((phase_0) phase20_0))" +"(let-values(((sym_0) sym21_0))" +"(let-values()" +"(let-values(((nominal-module_0)(if nominal-module11_0 nominal-module2_0 module_0)))" +"(let-values(((nominal-phase_0)(if nominal-phase12_0 nominal-phase3_0 phase_0)))" +"(let-values(((nominal-sym_0)(if nominal-sym13_0 nominal-sym4_0 sym_0)))" +"(let-values(((nominal-require-phase_0)(if nominal-require-phase14_0 nominal-require-phase5_0 0)))" +"(let-values(((frame-id_0)(if frame-id15_0 frame-id6_0 #f)))" +"(let-values(((free=id_0)(if free=id16_0 free=id7_0 #f)))" +"(let-values(((extra-inspector_0)(if extra-inspector17_0 extra-inspector8_0 #f)))" +"(let-values(((extra-nominal-bindings_0)" +"(if extra-nominal-bindings18_0 extra-nominal-bindings9_0 null)))" +"(let-values()" +"(if(let-values(((or-part_29) frame-id_0))" +"(if or-part_29" +" or-part_29" +"(let-values(((or-part_78) free=id_0))" +"(if or-part_78" +" or-part_78" +"(let-values(((or-part_79) extra-inspector_0))" +"(if or-part_79" +" or-part_79" +"(not" +"(if(eqv? nominal-phase_0 phase_0)" +"(if(eq? nominal-sym_0 sym_0)" +"(if(eqv? nominal-require-phase_0 0)" +"(null? extra-nominal-bindings_0)" +" #f)" +" #f)" +" #f))))))))" +"(let-values()" +"(full-module-binding51.1" +" frame-id_0" +" free=id_0" +" module_0" +" phase_0" +" sym_0" +" nominal-module_0" +" nominal-phase_0" +" nominal-sym_0" +" nominal-require-phase_0" +" extra-inspector_0" +" extra-nominal-bindings_0))" +"(let-values()" +"(simple-module-binding52.1" +" module_0" +" phase_0" +" sym_0" +" nominal-module_0)))))))))))))))))))" +"(define-values" +"(module-binding-update48.1)" +"(lambda(extra-inspector34_0" +" extra-inspector45_0" +" extra-nominal-bindings35_0" +" extra-nominal-bindings46_0" +" frame-id32_0" +" frame-id43_0" +" free=id33_0" +" free=id44_0" +" module25_0" +" module36_0" +" nominal-module28_0" +" nominal-module39_0" +" nominal-phase29_0" +" nominal-phase40_0" +" nominal-require-phase31_0" +" nominal-require-phase42_0" +" nominal-sym30_0" +" nominal-sym41_0" +" phase26_0" +" phase37_0" +" sym27_0" +" sym38_0" +" b47_0)" +"(begin" +" 'module-binding-update48" +"(let-values(((b_23) b47_0))" +"(let-values(((module_1)(if module36_0 module25_0(module-binding-module b_23))))" +"(let-values(((phase_1)(if phase37_0 phase26_0(module-binding-phase b_23))))" +"(let-values(((sym_1)(if sym38_0 sym27_0(module-binding-sym b_23))))" +"(let-values(((nominal-module_1)" +"(if nominal-module39_0 nominal-module28_0(module-binding-nominal-module b_23))))" +"(let-values(((nominal-phase_1)" +"(if nominal-phase40_0 nominal-phase29_0(module-binding-nominal-phase b_23))))" +"(let-values(((nominal-sym_1)(if nominal-sym41_0 nominal-sym30_0(module-binding-nominal-sym b_23))))" +"(let-values(((nominal-require-phase_1)" +"(if nominal-require-phase42_0" +" nominal-require-phase31_0" +"(module-binding-nominal-require-phase b_23))))" +"(let-values(((frame-id_1)(if frame-id43_0 frame-id32_0(binding-frame-id b_23))))" +"(let-values(((free=id_1)(if free=id44_0 free=id33_0(binding-free=id b_23))))" +"(let-values(((extra-inspector_1)" +"(if extra-inspector45_0" +" extra-inspector34_0" +"(module-binding-extra-inspector b_23))))" +"(let-values(((extra-nominal-bindings_1)" +"(if extra-nominal-bindings46_0" +" extra-nominal-bindings35_0" +"(module-binding-extra-nominal-bindings b_23))))" +"(let-values()" +"(let-values(((module53_0) module_1)" +"((phase54_0) phase_1)" +"((sym55_0) sym_1)" +"((nominal-module56_0) nominal-module_1)" +"((nominal-phase57_0) nominal-phase_1)" +"((nominal-sym58_0) nominal-sym_1)" +"((nominal-require-phase59_0) nominal-require-phase_1)" +"((frame-id60_0) frame-id_1)" +"((free=id61_0) free=id_1)" +"((extra-inspector62_0) extra-inspector_1)" +"((extra-nominal-bindings63_0) extra-nominal-bindings_1))" +"(make-module-binding22.1" +" extra-inspector62_0" +" #t" +" extra-nominal-bindings63_0" +" #t" +" frame-id60_0" +" #t" +" free=id61_0" +" #t" +" nominal-module56_0" +" #t" +" nominal-phase57_0" +" #t" +" nominal-require-phase59_0" +" #t" +" nominal-sym58_0" +" #t" +" #f" +" #f" +" module53_0" +" phase54_0" +" sym55_0))))))))))))))))))" +"(define-values" +"(module-binding?)" +"(lambda(b_24)" +"(begin" +"(let-values(((or-part_89)(simple-module-binding? b_24)))" +"(if or-part_89 or-part_89(full-module-binding? b_24))))))" +"(define-values" +"(struct:full-module-binding" +" full-module-binding51.1" +" full-module-binding?" +" full-module-binding-module" +" full-module-binding-phase" +" full-module-binding-sym" +" full-module-binding-nominal-module" +" full-module-binding-nominal-phase" +" full-module-binding-nominal-sym" +" full-module-binding-nominal-require-phase" +" full-module-binding-extra-inspector" +" full-module-binding-extra-nominal-bindings)" +"(let-values(((struct:_16 make-_16 ?_16 -ref_16 -set!_16)" +"(let-values()" +"(let-values()" +"(make-struct-type" +" 'full-module-binding" +" struct:full-binding" +" 9" +" 0" +" #f" +"(list" +"(cons prop:authentic #t)" +"(cons" +" prop:serialize" +"(lambda(b_25 ser-push!_2 state_10)" +"(let-values(((simplified-b_0)" +"(if(full-binding-frame-id b_25)" +"(let-values(((b65_0) b_25)((temp66_0) #f))" +"(module-binding-update48.1" +" #f" +" #f" +" #f" +" #f" +" temp66_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" b65_0))" +" b_25)))" +"(if(full-module-binding? simplified-b_0)" +"(let-values()" +"(begin" +"(ser-push!_2 'tag '#:module-binding)" +"(ser-push!_2(full-module-binding-module b_25))" +"(ser-push!_2(full-module-binding-sym b_25))" +"(ser-push!_2(full-module-binding-phase b_25))" +"(ser-push!_2(full-module-binding-nominal-module b_25))" +"(ser-push!_2(full-module-binding-nominal-phase b_25))" +"(ser-push!_2(full-module-binding-nominal-sym b_25))" +"(ser-push!_2(full-module-binding-nominal-require-phase b_25))" +"(ser-push!_2(full-binding-free=id b_25))" +"(if(full-module-binding-extra-inspector b_25)" +"(ser-push!_2 'tag '#:inspector)" +"(ser-push!_2 #f))" +"(ser-push!_2(full-module-binding-extra-nominal-bindings b_25))))" +"(let-values()(ser-push!_2 simplified-b_0)))))))" +" #f" +" #f" +" '(0 1 2 3 4 5 6 7 8)" +" #f" +" 'full-module-binding)))))" +"(values" +" struct:_16" +" make-_16" +" ?_16" +"(make-struct-field-accessor -ref_16 0 'module)" +"(make-struct-field-accessor -ref_16 1 'phase)" +"(make-struct-field-accessor -ref_16 2 'sym)" +"(make-struct-field-accessor -ref_16 3 'nominal-module)" +"(make-struct-field-accessor -ref_16 4 'nominal-phase)" +"(make-struct-field-accessor -ref_16 5 'nominal-sym)" +"(make-struct-field-accessor -ref_16 6 'nominal-require-phase)" +"(make-struct-field-accessor -ref_16 7 'extra-inspector)" +"(make-struct-field-accessor -ref_16 8 'extra-nominal-bindings))))" +"(define-values" +"(struct:simple-module-binding" +" simple-module-binding52.1" +" simple-module-binding?" +" simple-module-binding-module" +" simple-module-binding-phase" +" simple-module-binding-sym" +" simple-module-binding-nominal-module)" +"(let-values(((struct:_17 make-_17 ?_17 -ref_17 -set!_17)" +"(let-values()" +"(let-values()" +"(make-struct-type" +" 'simple-module-binding" +" #f" +" 4" +" 0" +" #f" +"(list" +"(cons prop:authentic #t)" +"(cons" +" prop:serialize" +"(lambda(b_26 ser-push!_3 state_11)" +"(begin" +"(ser-push!_3 'tag '#:simple-module-binding)" +"(ser-push!_3(simple-module-binding-module b_26))" +"(ser-push!_3(simple-module-binding-sym b_26))" +"(ser-push!_3(simple-module-binding-phase b_26))" +"(ser-push!_3(simple-module-binding-nominal-module b_26))))))" +" #f" +" #f" +" '(0 1 2 3)" +" #f" +" 'simple-module-binding)))))" +"(values" +" struct:_17" +" make-_17" +" ?_17" +"(make-struct-field-accessor -ref_17 0 'module)" +"(make-struct-field-accessor -ref_17 1 'phase)" +"(make-struct-field-accessor -ref_17 2 'sym)" +"(make-struct-field-accessor -ref_17 3 'nominal-module))))" +"(define-values" +"(deserialize-full-module-binding)" +"(lambda(module_2" +" sym_2" +" phase_2" +" nominal-module_2" +" nominal-phase_2" +" nominal-sym_2" +" nominal-require-phase_2" +" free=id_2" +" extra-inspector_2" +" extra-nominal-bindings_2)" +"(begin" +"(let-values(((module68_0) module_2)" +"((phase69_0) phase_2)" +"((sym70_0) sym_2)" +"((nominal-module71_0) nominal-module_2)" +"((nominal-phase72_0) nominal-phase_2)" +"((nominal-sym73_0) nominal-sym_2)" +"((nominal-require-phase74_0) nominal-require-phase_2)" +"((free=id75_0) free=id_2)" +"((extra-inspector76_0) extra-inspector_2)" +"((extra-nominal-bindings77_0) extra-nominal-bindings_2))" +"(make-module-binding22.1" +" extra-inspector76_0" +" #t" +" extra-nominal-bindings77_0" +" #t" +" #f" +" #f" +" free=id75_0" +" #t" +" nominal-module71_0" +" #t" +" nominal-phase72_0" +" #t" +" nominal-require-phase74_0" +" #t" +" nominal-sym73_0" +" #t" +" #f" +" #f" +" module68_0" +" phase69_0" +" sym70_0)))))" +"(define-values" +"(deserialize-simple-module-binding)" +"(lambda(module_3 sym_3 phase_3 nominal-module_3)" +"(begin(simple-module-binding52.1 module_3 phase_3 sym_3 nominal-module_3))))" +"(define-values" +"(module-binding-module)" +"(lambda(b_27)" +"(begin(if(simple-module-binding? b_27)(simple-module-binding-module b_27)(full-module-binding-module b_27)))))" +"(define-values" +"(module-binding-phase)" +"(lambda(b_28)" +"(begin(if(simple-module-binding? b_28)(simple-module-binding-phase b_28)(full-module-binding-phase b_28)))))" +"(define-values" +"(module-binding-sym)" +"(lambda(b_29)" +"(begin(if(simple-module-binding? b_29)(simple-module-binding-sym b_29)(full-module-binding-sym b_29)))))" +"(define-values" +"(module-binding-nominal-module)" +"(lambda(b_30)" +"(begin" +"(if(simple-module-binding? b_30)" +"(simple-module-binding-nominal-module b_30)" +"(full-module-binding-nominal-module b_30)))))" +"(define-values" +"(module-binding-nominal-phase)" +"(lambda(b_31)" +"(begin" +"(if(simple-module-binding? b_31)(simple-module-binding-phase b_31)(full-module-binding-nominal-phase b_31)))))" +"(define-values" +"(module-binding-nominal-sym)" +"(lambda(b_32)" +"(begin(if(simple-module-binding? b_32)(simple-module-binding-sym b_32)(full-module-binding-nominal-sym b_32)))))" +"(define-values" +"(module-binding-nominal-require-phase)" +"(lambda(b_33)(begin(if(simple-module-binding? b_33) 0(full-module-binding-nominal-require-phase b_33)))))" +"(define-values" +"(module-binding-extra-inspector)" +"(lambda(b_34)(begin(if(simple-module-binding? b_34) #f(full-module-binding-extra-inspector b_34)))))" +"(define-values" +"(module-binding-extra-nominal-bindings)" +"(lambda(b_35)(begin(if(simple-module-binding? b_35) null(full-module-binding-extra-nominal-bindings b_35)))))" "(define-values(empty-binding-table) '#hasheq())" "(define-values" "(struct:table-with-bulk-bindings" @@ -6147,7 +6556,7 @@ static const char *startup_source = " table-with-bulk-bindings-syms" " table-with-bulk-bindings-syms/serialize" " table-with-bulk-bindings-bulk-bindings)" -"(let-values(((struct:_16 make-_16 ?_16 -ref_16 -set!_16)" +"(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6159,29 +6568,29 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(twbb_0 ser-push!_2 state_10)" +"(lambda(twbb_0 ser-push!_4 state_12)" "(begin" -"(ser-push!_2 'tag '#:table-with-bulk-bindings)" -"(ser-push!_2(table-with-bulk-bindings-syms/serialize twbb_0))" -"(ser-push!_2(table-with-bulk-bindings-bulk-bindings twbb_0))))))" +"(ser-push!_4 'tag '#:table-with-bulk-bindings)" +"(ser-push!_4(table-with-bulk-bindings-syms/serialize twbb_0))" +"(ser-push!_4(table-with-bulk-bindings-bulk-bindings twbb_0))))))" "(current-inspector)" " #f" " '(0 1 2)" " #f" " 'table-with-bulk-bindings)))))" "(values" -" struct:_16" -" make-_16" -" ?_16" -"(make-struct-field-accessor -ref_16 0 'syms)" -"(make-struct-field-accessor -ref_16 1 'syms/serialize)" -"(make-struct-field-accessor -ref_16 2 'bulk-bindings))))" +" struct:_18" +" make-_18" +" ?_18" +"(make-struct-field-accessor -ref_18 0 'syms)" +"(make-struct-field-accessor -ref_18 1 'syms/serialize)" +"(make-struct-field-accessor -ref_18 2 'bulk-bindings))))" "(define-values" "(deserialize-table-with-bulk-bindings)" "(lambda(syms_1 bulk-bindings_0)(begin(table-with-bulk-bindings1.1 syms_1 syms_1 bulk-bindings_0))))" "(define-values" "(struct:bulk-binding-at bulk-binding-at2.1 bulk-binding-at? bulk-binding-at-scopes bulk-binding-at-bulk)" -"(let-values(((struct:_17 make-_17 ?_17 -ref_17 -set!_17)" +"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6194,22 +6603,22 @@ static const char *startup_source = " (cons prop:reach-scopes (lambda (sms_2 reach_1) (error \"shouldn't get here\")))" "(cons" " prop:serialize" -"(lambda(bba_0 ser-push!_3 state_11)" +"(lambda(bba_0 ser-push!_5 state_13)" "(begin" -"(ser-push!_3 'tag '#:bulk-binding-at)" -"(ser-push!_3(bulk-binding-at-scopes bba_0))" -"(ser-push!_3(bulk-binding-at-bulk bba_0))))))" +"(ser-push!_5 'tag '#:bulk-binding-at)" +"(ser-push!_5(bulk-binding-at-scopes bba_0))" +"(ser-push!_5(bulk-binding-at-bulk bba_0))))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'bulk-binding-at)))))" "(values" -" struct:_17" -" make-_17" -" ?_17" -"(make-struct-field-accessor -ref_17 0 'scopes)" -"(make-struct-field-accessor -ref_17 1 'bulk))))" +" struct:_19" +" make-_19" +" ?_19" +"(make-struct-field-accessor -ref_19 0 'scopes)" +"(make-struct-field-accessor -ref_19 1 'bulk))))" "(define-values(deserialize-bulk-binding-at)(lambda(scopes_0 bulk_0)(begin(bulk-binding-at2.1 scopes_0 bulk_0))))" "(define-values(prop:bulk-binding bulk-binding?$1 bulk-binding-ref)(make-struct-type-property 'bulk-binding))" "(define-values" @@ -6218,7 +6627,7 @@ static const char *startup_source = " bulk-binding-class?" " bulk-binding-class-get-symbols" " bulk-binding-class-create)" -"(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" +"(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6234,32 +6643,32 @@ static const char *startup_source = " #f" " 'bulk-binding-class)))))" "(values" -" struct:_18" -" make-_18" -" ?_18" -"(make-struct-field-accessor -ref_18 0 'get-symbols)" -"(make-struct-field-accessor -ref_18 1 'create))))" +" struct:_11" +" make-_11" +" ?_11" +"(make-struct-field-accessor -ref_11 0 'get-symbols)" +"(make-struct-field-accessor -ref_11 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_21 s_66 extra-shifts_0)" +"(lambda(b_12 s_66 extra-shifts_0)" "(begin" -"((bulk-binding-class-get-symbols(bulk-binding-ref b_21))" -" b_21" +"((bulk-binding-class-get-symbols(bulk-binding-ref b_12))" +" b_12" "(append extra-shifts_0(if s_66(syntax-mpi-shifts s_66) null))))))" -"(define-values(bulk-binding-create)(lambda(b_22)(begin(bulk-binding-class-create(bulk-binding-ref b_22)))))" +"(define-values(bulk-binding-create)(lambda(b_36)(begin(bulk-binding-class-create(bulk-binding-ref b_36)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" "(binding-table-add)" -"(lambda(bt_1 scopes_1 sym_0 binding_0 just-for-nominal?_0)" +"(lambda(bt_1 scopes_1 sym_4 binding_0 just-for-nominal?_0)" "(begin" "(if(hash? bt_1)" -"(let-values()(hash-set bt_1 sym_0(hash-set(hash-ref bt_1 sym_0 '#hash()) scopes_1 binding_0)))" +"(let-values()(hash-set bt_1 sym_4(hash-set(hash-ref bt_1 sym_4 '#hash()) scopes_1 binding_0)))" "(let-values()" "(let-values(((new-syms_0)" "(binding-table-add" "(table-with-bulk-bindings-syms bt_1)" " scopes_1" -" sym_0" +" sym_4" " binding_0" " just-for-nominal?_0)))" "(let-values(((new-syms/serialize_0)" @@ -6273,37 +6682,68 @@ static const char *startup_source = "(binding-table-add" "(table-with-bulk-bindings-syms/serialize bt_1)" " scopes_1" -" sym_0" +" sym_4" " binding_0" " #f))))))" "(let-values(((the-struct_1) bt_1))" "(if(table-with-bulk-bindings? the-struct_1)" -"(let-values(((syms7_0) new-syms_0)((syms/serialize8_0) new-syms/serialize_0))" +"(let-values(((syms32_0) new-syms_0)((syms/serialize33_0) new-syms/serialize_0))" "(table-with-bulk-bindings1.1" -" syms7_0" -" syms/serialize8_0" +" syms32_0" +" syms/serialize33_0" "(table-with-bulk-bindings-bulk-bindings the-struct_1)))" " (raise-argument-error 'struct-copy \"table-with-bulk-bindings?\" the-struct_1))))))))))" "(define-values" -"(binding-table-add-bulk)" -"(lambda(bt_2 scopes_2 bulk_1)" +"(binding-table-add-bulk9.1)" +"(lambda(shadow-except4_0 shadow-except5_0 bt6_0 scopes7_0 bulk8_0)" "(begin" +" 'binding-table-add-bulk9" +"(let-values(((bt_2) bt6_0))" +"(let-values(((scopes_2) scopes7_0))" +"(let-values(((bulk_1) bulk8_0))" +"(let-values(((shadow-except_0)(if shadow-except5_0 shadow-except4_0 #f)))" +"(let-values()" "(if(table-with-bulk-bindings? bt_2)" "(let-values()" -"(let-values(((new-syms_1)(remove-matching-bindings(table-with-bulk-bindings-syms bt_2) scopes_2 bulk_1)))" +"(let-values(((new-syms_1)" +"(let-values(((temp34_0)(table-with-bulk-bindings-syms bt_2))" +"((scopes35_0) scopes_2)" +"((bulk36_0) bulk_1)" +"((shadow-except37_0) shadow-except_0))" +"(remove-matching-bindings17.1 shadow-except37_0 temp34_0 scopes35_0 bulk36_0))))" "(let-values(((new-syms/serialize_1)" -"(if(eq?(table-with-bulk-bindings-syms bt_2)(table-with-bulk-bindings-syms/serialize bt_2))" +"(if(eq?" +"(table-with-bulk-bindings-syms bt_2)" +"(table-with-bulk-bindings-syms/serialize bt_2))" " new-syms_1" -"(remove-matching-bindings(table-with-bulk-bindings-syms/serialize bt_2) scopes_2 bulk_1))))" +"(let-values(((temp38_0)(table-with-bulk-bindings-syms/serialize bt_2))" +"((scopes39_0) scopes_2)" +"((bulk40_0) bulk_1)" +"((shadow-except41_0) shadow-except_0))" +"(remove-matching-bindings17.1" +" shadow-except41_0" +" temp38_0" +" scopes39_0" +" bulk40_0)))))" "(table-with-bulk-bindings1.1" " new-syms_1" " new-syms/serialize_1" "(cons(bulk-binding-at2.1 scopes_2 bulk_1)(table-with-bulk-bindings-bulk-bindings bt_2))))))" -"(let-values()(binding-table-add-bulk(table-with-bulk-bindings1.1 bt_2 bt_2 null) scopes_2 bulk_1))))))" +"(let-values()" +"(let-values(((temp42_0)(table-with-bulk-bindings1.1 bt_2 bt_2 null))" +"((scopes43_0) scopes_2)" +"((bulk44_0) bulk_1))" +"(binding-table-add-bulk9.1 #f #f temp42_0 scopes43_0 bulk44_0))))))))))))" "(define-values" -"(remove-matching-bindings)" -"(lambda(syms_2 scopes_3 bulk_2)" +"(remove-matching-bindings17.1)" +"(lambda(except12_0 syms14_0 scopes15_0 bulk16_0)" "(begin" +" 'remove-matching-bindings17" +"(let-values(((syms_2) syms14_0))" +"(let-values(((scopes_3) scopes15_0))" +"(let-values(((bulk_2) bulk16_0))" +"(let-values(((except_0) except12_0))" +"(let-values()" "(let-values(((bulk-symbols_0)(bulk-binding-symbols bulk_2 #f null)))" "(if(<(hash-count syms_2)(hash-count bulk-symbols_0))" "(let-values()" @@ -6313,26 +6753,40 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_34)))" "((letrec-values(((for-loop_33)" -"(lambda(syms_3 i_47)" +"(lambda(syms_3 i_31)" "(begin" " 'for-loop" -"(if i_47" -"(let-values(((sym_1 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_34 i_47)))" +"(if i_31" +"(let-values(((sym_5 sym-bindings_0)" +"(unsafe-immutable-hash-iterate-key+value ht_34 i_31)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" "(let-values()" -"(if(hash-ref bulk-symbols_0 sym_1 #f)" -"(remove-matching-binding" -" syms_5" -" sym_1" -" sym-bindings_0" +"(if(hash-ref" +" bulk-symbols_0" +" sym_5" +" #f)" +"(let-values(((syms45_0) syms_5)" +"((sym46_0) sym_5)" +"((sym-bindings47_0)" +" sym-bindings_0)" +"((scopes48_0)" " scopes_3)" +"((except49_0)" +" except_0))" +"(remove-matching-binding26.1" +" except49_0" +" syms45_0" +" sym46_0" +" sym-bindings47_0" +" scopes48_0))" " syms_5))))" "(values syms_6)))))" "(if(not #f)" -"(for-loop_33 syms_4(unsafe-immutable-hash-iterate-next ht_34 i_47))" +"(for-loop_33" +" syms_4" +"(unsafe-immutable-hash-iterate-next ht_34 i_31))" " syms_4)))" " syms_3)))))" " for-loop_33)" @@ -6344,40 +6798,67 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_35)))" -"((letrec-values(((for-loop_34)" -"(lambda(syms_7 i_48)" +"((letrec-values(((for-loop_23)" +"(lambda(syms_7 i_47)" "(begin" " 'for-loop" -"(if i_48" -"(let-values(((sym_2)(unsafe-immutable-hash-iterate-key ht_35 i_48)))" +"(if i_47" +"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_35 i_47)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" "(let-values()" "(let-values(((sym-bindings_1)" -"(hash-ref syms_9 sym_2 #f)))" -"(if sym-bindings_1" -"(remove-matching-binding" +"(hash-ref" " syms_9" -" sym_2" -" sym-bindings_1" +" sym_6" +" #f)))" +"(if sym-bindings_1" +"(let-values(((syms50_0) syms_9)" +"((sym51_0) sym_6)" +"((sym-bindings52_0)" +" sym-bindings_1)" +"((scopes53_0)" " scopes_3)" +"((except54_0)" +" except_0))" +"(remove-matching-binding26.1" +" except54_0" +" syms50_0" +" sym51_0" +" sym-bindings52_0" +" scopes53_0))" " syms_9)))))" "(values syms_10)))))" "(if(not #f)" -"(for-loop_34 syms_8(unsafe-immutable-hash-iterate-next ht_35 i_48))" +"(for-loop_23" +" syms_8" +"(unsafe-immutable-hash-iterate-next ht_35 i_47))" " syms_8)))" " syms_7)))))" -" for-loop_34)" +" for-loop_23)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_35))))))))))" +"(unsafe-immutable-hash-iterate-first ht_35)))))))))))))))" "(define-values" -"(remove-matching-binding)" -"(lambda(syms_11 sym_3 sym-bindings_2 scopes_4)" -"(begin(hash-set syms_11 sym_3(hash-remove sym-bindings_2 scopes_4)))))" +"(remove-matching-binding26.1)" +"(lambda(except20_0 syms22_0 sym23_0 sym-bindings24_0 scopes25_0)" +"(begin" +" 'remove-matching-binding26" +"(let-values(((syms_11) syms22_0))" +"(let-values(((sym_7) sym23_0))" +"(let-values(((sym-bindings_2) sym-bindings24_0))" +"(let-values(((scopes_4) scopes25_0))" +"(let-values(((except_1) except20_0))" +"(let-values()" +"(if(if except_1" +"(let-values(((b_37)(hash-ref sym-bindings_2 scopes_4 #f)))" +"(if(module-binding? b_37)(eq? except_1(module-binding-module b_37)) #f))" +" #f)" +"(let-values() syms_11)" +"(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_33 scs_2 s_67 extra-shifts_1)" +"(lambda(table_33 scs_2 s_39 extra-shifts_1)" "(begin" "(let-values(((ht_36 bulk-bindings_1)" "(if(hash? table_33)" @@ -6389,29 +6870,29 @@ static const char *startup_source = "(let-values(((ht_37) ht_36))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_37)))" -"((letrec-values(((for-loop_35)" -"(lambda(table_34 i_49)" +"((letrec-values(((for-loop_34)" +"(lambda(table_34 i_48)" "(begin" " 'for-loop" -"(if i_49" -"(let-values(((sym_4 at-sym_0)(hash-iterate-key+value ht_37 i_49)))" -"(let-values(((table_2)" -"(let-values(((table_3) table_34))" +"(if i_48" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_37 i_48)))" +"(let-values(((table_31)" +"(let-values(((table_32) table_34))" "(if(let-values(((ht_38) at-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_38)))" -"((letrec-values(((for-loop_36)" -"(lambda(result_29 i_50)" +"((letrec-values(((for-loop_35)" +"(lambda(result_29 i_49)" "(begin" " 'for-loop" -"(if i_50" +"(if i_49" "(let-values(((an-scs_0)" "(hash-iterate-key" " ht_38" -" i_50)))" +" i_49)))" "(let-values(((result_30)" "(let-values()" "(let-values(((result_31)" @@ -6428,122 +6909,122 @@ static const char *startup_source = " an-scs_0))" "(not #f)" " #f)" -"(for-loop_36" +"(for-loop_35" " result_30" "(hash-iterate-next" " ht_38" -" i_50))" +" i_49))" " result_30)))" " result_29)))))" -" for-loop_36)" +" for-loop_35)" " #f" "(hash-iterate-first ht_38))))" -"(let-values(((table_5) table_3))" -"(let-values(((table_6)" +"(let-values(((table_35) table_32))" +"(let-values(((table_36)" "(let-values()" "(let-values(((key_19 val_9)" "(let-values()" "(values" -"(let-values() sym_4)" +"(let-values() sym_8)" " #t))))" -"(hash-set table_5 key_19 val_9)))))" -"(values table_6)))" -" table_3))))" -"(if(not #f)(for-loop_35 table_2(hash-iterate-next ht_37 i_49)) table_2)))" +"(hash-set table_35 key_19 val_9)))))" +"(values table_36)))" +" table_32))))" +"(if(not #f)(for-loop_34 table_31(hash-iterate-next ht_37 i_48)) table_31)))" " table_34)))))" -" for-loop_35)" +" for-loop_34)" " '#hasheq()" "(hash-iterate-first ht_37))))" "(let-values(((lst_35) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" -"((letrec-values(((for-loop_37)" -"(lambda(table_35 lst_36)" +"((letrec-values(((for-loop_36)" +"(lambda(table_37 lst_36)" "(begin" " 'for-loop" "(if(pair? lst_36)" "(let-values(((bba_1)(unsafe-car lst_36))((rest_14)(unsafe-cdr lst_36)))" -"(let-values(((table_36)" -"(let-values(((table_37) table_35))" +"(let-values(((table_38)" +"(let-values(((table_39) table_37))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" "(let-values(((ht_39)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" -" s_67" +" s_39" " extra-shifts_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_39)))" -"((letrec-values(((for-loop_38)" -"(lambda(table_38 i_51)" +"((letrec-values(((for-loop_37)" +"(lambda(table_40 i_50)" "(begin" " 'for-loop" -"(if i_51" -"(let-values(((sym_5)" +"(if i_50" +"(let-values(((sym_9)" "(hash-iterate-key" " ht_39" -" i_51)))" -"(let-values(((table_39)" -"(let-values(((table_40)" -" table_38))" +" i_50)))" "(let-values(((table_41)" +"(let-values(((table_42)" +" table_40))" +"(let-values(((table_43)" "(let-values()" "(let-values(((key_20" " val_10)" "(let-values()" "(values" "(let-values()" -" sym_5)" +" sym_9)" " #t))))" "(hash-set" -" table_40" +" table_42" " key_20" " val_10)))))" "(values" -" table_41)))))" +" table_43)))))" "(if(not #f)" -"(for-loop_38" -" table_39" +"(for-loop_37" +" table_41" "(hash-iterate-next" " ht_39" -" i_51))" -" table_39)))" -" table_38)))))" -" for-loop_38)" -" table_37" -"(hash-iterate-first ht_39))))" -" table_37))))" -"(if(not #f)(for-loop_37 table_36 rest_14) table_36)))" -" table_35)))))" +" i_50))" +" table_41)))" +" table_40)))))" " for-loop_37)" +" table_39" +"(hash-iterate-first ht_39))))" +" table_39))))" +"(if(not #f)(for-loop_36 table_38 rest_14) table_38)))" +" table_37)))))" +" for-loop_36)" " '#hasheq()" " lst_35))))))))" "(define-values" "(binding-table-prune-to-reachable)" -"(lambda(bt_3 state_12)" +"(lambda(bt_3 state_14)" "(begin" -"(let-values(((or-part_92)(hash-ref(serialize-state-bindings-intern state_12) bt_3 #f)))" +"(let-values(((or-part_92)(hash-ref(serialize-state-bindings-intern state_14) bt_3 #f)))" "(if or-part_92" " or-part_92" -"(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_12)))" +"(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_14)))" "(let-values(((new-syms_2)" "(let-values(((ht_40)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_40)))" -"((letrec-values(((for-loop_39)" -"(lambda(table_42 i_52)" +"((letrec-values(((for-loop_38)" +"(lambda(table_44 i_51)" "(begin" " 'for-loop" -"(if i_52" -"(let-values(((sym_6 bindings-for-sym_0)" +"(if i_51" +"(let-values(((sym_2 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" " ht_40" -" i_52)))" -"(let-values(((table_43)" +" i_51)))" +"(let-values(((table_45)" "(let-values(((new-bindings-for-sym_0)" "(let-values(((ht_41)" " bindings-for-sym_0))" @@ -6554,26 +7035,26 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash" " ht_41)))" -"((letrec-values(((for-loop_40)" -"(lambda(table_44" -" i_53)" +"((letrec-values(((for-loop_39)" +"(lambda(table_46" +" i_52)" "(begin" " 'for-loop" -"(if i_53" +"(if i_52" "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" " ht_41" -" i_53)))" -"(let-values(((table_45)" -"(let-values(((table_46)" -" table_44))" +" i_52)))" +"(let-values(((table_47)" +"(let-values(((table_48)" +" table_46))" "(if(subset?" " scopes_5" " reachable-scopes_1)" -"(let-values(((table_47)" -" table_46))" -"(let-values(((table_48)" +"(let-values(((table_49)" +" table_48))" +"(let-values(((table_50)" "(let-values()" "(let-values(((key_21" " val_11)" @@ -6581,68 +7062,68 @@ static const char *startup_source = "(values" "(intern-scopes" " scopes_5" -" state_12)" +" state_14)" " binding_1))))" "(hash-set" -" table_47" +" table_49" " key_21" " val_11)))))" "(values" -" table_48)))" -" table_46))))" +" table_50)))" +" table_48))))" "(if(not" " #f)" -"(for-loop_40" -" table_45" +"(for-loop_39" +" table_47" "(unsafe-immutable-hash-iterate-next" " ht_41" -" i_53))" -" table_45)))" -" table_44)))))" -" for-loop_40)" +" i_52))" +" table_47)))" +" table_46)))))" +" for-loop_39)" " '#hash()" "(unsafe-immutable-hash-iterate-first" " ht_41))))))" "(begin" " #t" -"((letrec-values(((for-loop_41)" -"(lambda(table_49)" +"((letrec-values(((for-loop_40)" +"(lambda(table_51)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_50)" -"(let-values(((table_51)" -" table_49))" +"(let-values(((table_52)" +"(let-values(((table_53)" +" table_51))" "(if(positive?" "(hash-count" " new-bindings-for-sym_0))" -"(let-values(((table_52)" -" table_51))" -"(let-values(((table_53)" +"(let-values(((table_54)" +" table_53))" +"(let-values(((table_55)" "(let-values()" "(let-values(((key_22" " val_12)" "(let-values()" "(values" -" sym_6" +" sym_2" " new-bindings-for-sym_0))))" "(hash-set" -" table_52" +" table_54" " key_22" " val_12)))))" "(values" -" table_53)))" -" table_51))))" -" table_50))))))" -" for-loop_41)" -" table_42)))))" +" table_55)))" +" table_53))))" +" table_52))))))" +" for-loop_40)" +" table_44)))))" "(if(not #f)" -"(for-loop_39" -" table_43" -"(unsafe-immutable-hash-iterate-next ht_40 i_52))" -" table_43)))" -" table_42)))))" -" for-loop_39)" +"(for-loop_38" +" table_45" +"(unsafe-immutable-hash-iterate-next ht_40 i_51))" +" table_45)))" +" table_44)))))" +" for-loop_38)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_40))))))" "(let-values(((new-bulk-bindings_0)" @@ -6654,7 +7135,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_37)))" -"((letrec-values(((for-loop_42)" +"((letrec-values(((for-loop_41)" "(lambda(fold-var_21 lst_38)" "(begin" " 'for-loop" @@ -6675,13 +7156,13 @@ static const char *startup_source = " bba_2))" "(if(bulk-binding-at?" " the-struct_2)" -"(let-values(((scopes9_0)" +"(let-values(((scopes55_0)" "(intern-scopes" "(bulk-binding-at-scopes" " bba_2)" -" state_12)))" +" state_14)))" "(bulk-binding-at2.1" -" scopes9_0" +" scopes55_0" "(bulk-binding-at-bulk" " the-struct_2)))" "(raise-argument-error" @@ -6692,17 +7173,17 @@ static const char *startup_source = "(values fold-var_25)))" " fold-var_23))))" "(if(not #f)" -"(for-loop_42 fold-var_22 rest_15)" +"(for-loop_41 fold-var_22 rest_15)" " fold-var_22)))" " fold-var_21)))))" -" for-loop_42)" +" for-loop_41)" " null" " lst_37)))))))" "(let-values(((new-bt_0)" "(if(pair? new-bulk-bindings_0)" "(table-with-bulk-bindings1.1 new-syms_2 new-syms_2 new-bulk-bindings_0)" " new-syms_2)))" -"(begin(hash-set!(serialize-state-bulk-bindings-intern state_12) bt_3 new-bt_0) new-bt_0))))))))))" +"(begin(hash-set!(serialize-state-bulk-bindings-intern state_14) bt_3 new-bt_0) new-bt_0))))))))))" "(define-values" "(binding-table-register-reachable)" "(lambda(bt_4 reachable-scopes_2 reach_2 register-trigger_0)" @@ -6713,28 +7194,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_42)))" -"((letrec-values(((for-loop_43)" -"(lambda(i_54)" +"((letrec-values(((for-loop_42)" +"(lambda(i_53)" "(begin" " 'for-loop" -"(if i_54" -"(let-values(((sym_7 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_42 i_54)))" +"(if i_53" +"(let-values(((sym_10 bindings-for-sym_1)" +"(unsafe-immutable-hash-iterate-key+value ht_42 i_53)))" "(let-values((()" "(let-values(((ht_43) bindings-for-sym_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_43)))" -"((letrec-values(((for-loop_44)" -"(lambda(i_55)" +"((letrec-values(((for-loop_43)" +"(lambda(i_54)" "(begin" " 'for-loop" -"(if i_55" +"(if i_54" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" " ht_43" -" i_55)))" +" i_54)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -6750,19 +7231,19 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_44" +"(for-loop_43" "(unsafe-immutable-hash-iterate-next" " ht_43" -" i_55))" -"(values))))" -"(values))))))" -" for-loop_44)" -"(unsafe-immutable-hash-iterate-first ht_43))))))" -"(if(not #f)" -"(for-loop_43(unsafe-immutable-hash-iterate-next ht_42 i_54))" +" i_54))" "(values))))" "(values))))))" " for-loop_43)" +"(unsafe-immutable-hash-iterate-first ht_43))))))" +"(if(not #f)" +"(for-loop_42(unsafe-immutable-hash-iterate-next ht_42 i_53))" +"(values))))" +"(values))))))" +" for-loop_42)" "(unsafe-immutable-hash-iterate-first ht_42))))" "(void)))))" "(define-values" @@ -6781,12 +7262,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_44)))" -"((letrec-values(((for-loop_45)" -"(lambda(i_56)" +"((letrec-values(((for-loop_44)" +"(lambda(i_55)" "(begin" " 'for-loop" -"(if i_56" -"(let-values(((sc_0)(unsafe-immutable-hash-iterate-key ht_44 i_56)))" +"(if i_55" +"(let-values(((sc_0)(unsafe-immutable-hash-iterate-key ht_44 i_55)))" "(let-values((()" "(let-values()" "(if(set-member? reachable-scopes_3 sc_0)" @@ -6800,10 +7281,10 @@ static const char *startup_source = "(values)))))" "(values)))))))" "(if(not #f)" -"(for-loop_45(unsafe-immutable-hash-iterate-next ht_44 i_56))" +"(for-loop_44(unsafe-immutable-hash-iterate-next ht_44 i_55))" "(values))))" "(values))))))" -" for-loop_45)" +" for-loop_44)" "(unsafe-immutable-hash-iterate-first ht_44))))" "(void)))))" "(void))))))" @@ -6811,7 +7292,7 @@ static const char *startup_source = "(taint-content)" "(lambda(d_2)" "(begin" -"(let-values(((s_68) d_2)" +"(let-values(((s_67) d_2)" "((f_25)(lambda(tail?_15 x_28)(begin 'f x_28)))" "((s->_1)" "(lambda(sub-s_0)" @@ -6841,7 +7322,7 @@ static const char *startup_source = "(syntax-inspector the-struct_3)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_3)))))))))" "((seen_7) #f))" -"(let-values(((s_69) s_68)" +"(let-values(((s_68) s_67)" "((f_4)" "(lambda(tail?_16 v_75)" "(begin" @@ -6849,55 +7330,55 @@ static const char *startup_source = "(if(syntax?$1 v_75)(let-values()(s->_1 v_75))(let-values()(f_25 tail?_16 v_75))))))" "((seen_8) seen_7))" "((letrec-values(((loop_66)" -"(lambda(tail?_17 s_70 prev-depth_3)" +"(lambda(tail?_17 s_69 prev-depth_3)" "(begin" " 'loop" "(let-values(((depth_3)(add1 prev-depth_3)))" "(if(if seen_8(> depth_3 32) #f)" "(let-values()" -"(datum-map-slow tail?_17 s_70(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" -"(if(null? s_70)" -"(let-values()(f_4 tail?_17 s_70))" -"(if(pair? s_70)" +"(datum-map-slow tail?_17 s_69(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" +"(if(null? s_69)" +"(let-values()(f_4 tail?_17 s_69))" +"(if(pair? s_69)" "(let-values()" "(f_4" " tail?_17" -"(cons(loop_66 #f(car s_70) depth_3)(loop_66 #t(cdr s_70) depth_3))))" -"(if(let-values(((or-part_78)(symbol? s_70)))" +"(cons(loop_66 #f(car s_69) depth_3)(loop_66 #t(cdr s_69) depth_3))))" +"(if(let-values(((or-part_78)(symbol? s_69)))" "(if or-part_78" " or-part_78" -"(let-values(((or-part_79)(boolean? s_70)))" -"(if or-part_79 or-part_79(number? s_70)))))" -"(let-values()(f_4 #f s_70))" -"(if(let-values(((or-part_70)(vector? s_70)))" +"(let-values(((or-part_79)(boolean? s_69)))" +"(if or-part_79 or-part_79(number? s_69)))))" +"(let-values()(f_4 #f s_69))" +"(if(let-values(((or-part_70)(vector? s_69)))" "(if or-part_70" " or-part_70" -"(let-values(((or-part_71)(box? s_70)))" +"(let-values(((or-part_71)(box? s_69)))" "(if or-part_71" " or-part_71" -"(let-values(((or-part_80)(prefab-struct-key s_70)))" -"(if or-part_80 or-part_80(hash? s_70)))))))" +"(let-values(((or-part_80)(prefab-struct-key s_69)))" +"(if or-part_80 or-part_80(hash? s_69)))))))" "(let-values()" "(datum-map-slow" " tail?_17" -" s_70" -"(lambda(tail?_18 s_71)(f_4 tail?_18 s_71))" +" s_69" +"(lambda(tail?_18 s_70)(f_4 tail?_18 s_70))" " seen_8))" -"(let-values()(f_4 #f s_70))))))))))))" +"(let-values()(f_4 #f s_69))))))))))))" " loop_66)" " #f" -" s_69" +" s_68" " 0))))))" -"(define-values(syntax-tainted?$1)(lambda(s_72)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_72)))))" +"(define-values(syntax-tainted?$1)(lambda(s_71)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_71)))))" "(define-values(syntax-clean?)(lambda(s_6)(begin(tamper-clean?(syntax-tamper s_6)))))" "(define-values" "(syntax-arm$1)" -"(lambda(s_73 insp_0)" +"(lambda(s_72 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_17)(syntax-tamper s_73)))" +"(let-values(((t_17)(syntax-tamper s_72)))" "(if(tamper-tainted? t_17)" -"(let-values() s_73)" +"(let-values() s_72)" "(if(if t_17" "(let-values(((or-part_93)(set-member? t_17 insp_0)))" "(if or-part_93" @@ -6907,13 +7388,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_45)))" -"((letrec-values(((for-loop_46)" -"(lambda(result_32 i_57)" +"((letrec-values(((for-loop_45)" +"(lambda(result_32 i_56)" "(begin" " 'for-loop" -"(if i_57" +"(if i_56" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_45 i_57)))" +"(unsafe-immutable-hash-iterate-key ht_45 i_56)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -6924,18 +7405,18 @@ static const char *startup_source = " insp_0)))))" "(values result_34)))))" "(if(if(not((lambda x_29 result_33) already-insp_0))(not #f) #f)" -"(for-loop_46" +"(for-loop_45" " result_33" -"(unsafe-immutable-hash-iterate-next ht_45 i_57))" +"(unsafe-immutable-hash-iterate-next ht_45 i_56))" " result_33)))" " result_32)))))" -" for-loop_46)" +" for-loop_45)" " #f" "(unsafe-immutable-hash-iterate-first ht_45))))))" " #f)" -"(let-values() s_73)" +"(let-values() s_72)" "(let-values()" -"(let-values(((stx_1) s_73))" +"(let-values(((stx_1) s_72))" "(let-values(((the-struct_4) stx_1))" "(if(syntax?$1 the-struct_4)" "(let-values(((scope-propagations+tamper7_0)" @@ -6961,31 +7442,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_46)))" -"((letrec-values(((for-loop_47)" -"(lambda(table_54 i_58)" +"((letrec-values(((for-loop_46)" +"(lambda(table_56 i_57)" "(begin" " 'for-loop" -"(if i_58" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_58)))" +"(if i_57" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_57)))" "(let-values(((table_15)" -"(let-values(((table_55) table_54))" +"(let-values(((table_57) table_56))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" -" table_55" -"(let-values(((table_56) table_55))" -"(let-values(((table_57)" +" table_57" +"(let-values(((table_58) table_57))" +"(let-values(((table_59)" "(let-values()" "(let-values(((key_23 val_13)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_56 key_23 val_13)))))" -"(values table_57)))))))" +"(hash-set table_58 key_23 val_13)))))" +"(values table_59)))))))" "(if(not #f)" -"(for-loop_47 table_15(unsafe-immutable-hash-iterate-next ht_46 i_58))" +"(for-loop_46 table_15(unsafe-immutable-hash-iterate-next ht_46 i_57))" " table_15)))" -" table_54)))))" -" for-loop_47)" +" table_56)))))" +" for-loop_46)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_46)))))))" "(define-values" @@ -7044,7 +7525,7 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_6))))))))))))))))" "(case-lambda" "((s_21)(begin 'syntax-disarm(syntax-disarm4_0 s_21 #f #f)))" -"((s_74 insp1_1)(syntax-disarm4_0 s_74 insp1_1 #t)))))" +"((s_73 insp1_1)(syntax-disarm4_0 s_73 insp1_1 #t)))))" "(define-values" "(syntax-rearm$1)" "(lambda(s_23 from-s_0)" @@ -7106,15 +7587,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_47)))" -"((letrec-values(((for-loop_48)" -"(lambda(t_27 i_59)" +"((letrec-values(((for-loop_47)" +"(lambda(t_27 i_58)" "(begin" " 'for-loop" -"(if i_59" +"(if i_58" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" " ht_47" -" i_59)))" +" i_58)))" "(let-values(((t_28)" "(let-values(((t_29)" " t_27))" @@ -7139,14 +7620,14 @@ static const char *startup_source = "(values" " t_30)))))" "(if(not #f)" -"(for-loop_48" +"(for-loop_47" " t_28" "(unsafe-immutable-hash-iterate-next" " ht_47" -" i_59))" +" i_58))" " t_28)))" " t_27)))))" -" for-loop_48)" +" for-loop_47)" " t_23" "(unsafe-immutable-hash-iterate-first ht_47)))))" "((p_25)(syntax-scope-propagations+tamper stx_6)))" @@ -7163,16 +7644,16 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_9)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_75)" +"(lambda(s_74)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_75))" -" s_75" -"(let-values(((stx_7) s_75))" +"(if(tamper-tainted?(syntax-tamper s_74))" +" s_74" +"(let-values(((stx_7) s_74))" "(let-values(((the-struct_10) stx_7))" "(if(syntax?$1 the-struct_10)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_75)))" +"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_74)))" "((p_26)(syntax-scope-propagations+tamper stx_7)))" "(if(tamper? p_26) t_31((propagation-set-tamper-ref p_26) p_26 t_31)))))" "(syntax1.1" @@ -7194,31 +7675,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_48)))" -"((letrec-values(((for-loop_49)" -"(lambda(result_35 i_60)" +"((letrec-values(((for-loop_48)" +"(lambda(result_35 i_59)" "(begin" " 'for-loop" -"(if i_60" -"(let-values(((i_61)(unsafe-immutable-hash-iterate-key ht_48 i_60)))" +"(if i_59" +"(let-values(((i_60)(unsafe-immutable-hash-iterate-key ht_48 i_59)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" "(let-values()" "(let-values()" -"(inspector-superior-or-same? i_61 from-i_1)))))" +"(inspector-superior-or-same? i_60 from-i_1)))))" "(values result_37)))))" -"(if(if(not((lambda x_30 result_36) i_61))(not #f) #f)" -"(for-loop_49 result_36(unsafe-immutable-hash-iterate-next ht_48 i_60))" +"(if(if(not((lambda x_30 result_36) i_60))(not #f) #f)" +"(for-loop_48 result_36(unsafe-immutable-hash-iterate-next ht_48 i_59))" " result_36)))" " result_35)))))" -" for-loop_49)" +" for-loop_48)" " #f" "(unsafe-immutable-hash-iterate-first ht_48)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_62)" +"(lambda(sup-i_0 i_61)" "(begin" -"(let-values(((or-part_94)(eq? sup-i_0 i_62)))(if or-part_94 or-part_94(inspector-superior? sup-i_0 i_62))))))" +"(let-values(((or-part_94)(eq? sup-i_0 i_61)))(if or-part_94 or-part_94(inspector-superior? sup-i_0 i_61))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -7261,7 +7742,7 @@ static const char *startup_source = "(let-values(((lst_39)(fallback-search-list smss_4)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_50)" +"((letrec-values(((for-loop_49)" "(lambda(fold-var_26 lst_40)" "(begin" " 'for-loop" @@ -7275,9 +7756,9 @@ static const char *startup_source = "(let-values()(f_19 smss_5))" " fold-var_28))))" "(values fold-var_29)))))" -"(if(not #f)(for-loop_50 fold-var_27 rest_16) fold-var_27)))" +"(if(not #f)(for-loop_49 fold-var_27 rest_16) fold-var_27)))" " fold-var_26)))))" -" for-loop_50)" +" for-loop_49)" " null" " lst_39)))))" "(f_19 smss_4)))))" @@ -7288,14 +7769,14 @@ static const char *startup_source = "(define-values" "(clear-resolve-cache!)" "(case-lambda" -"((sym_8)" +"((sym_11)" "(begin" "(let-values(((c_13)(weak-box-value(unbox* cache))))" -"(if c_13(let-values()(hash-remove! c_13 sym_8))(void)))))" +"(if c_13(let-values()(hash-remove! c_13 sym_11))(void)))))" "(()(let-values(((c_14)(weak-box-value(unbox* cache))))(if c_14(let-values()(hash-clear! c_14))(void))))))" "(define-values" "(struct:entry entry1.1 entry? entry-scs entry-smss entry-phase entry-binding)" -"(let-values(((struct:_16 make-_16 ?_16 -ref_16 -set!_16)" +"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7311,29 +7792,29 @@ static const char *startup_source = " #f" " 'entry)))))" "(values" -" struct:_16" -" make-_16" -" ?_16" -"(make-struct-field-accessor -ref_16 0 'scs)" -"(make-struct-field-accessor -ref_16 1 'smss)" -"(make-struct-field-accessor -ref_16 2 'phase)" -"(make-struct-field-accessor -ref_16 3 'binding))))" +" struct:_20" +" make-_20" +" ?_20" +"(make-struct-field-accessor -ref_20 0 'scs)" +"(make-struct-field-accessor -ref_20 1 'smss)" +"(make-struct-field-accessor -ref_20 2 'phase)" +"(make-struct-field-accessor -ref_20 3 'binding))))" "(define-values" "(resolve-cache-get)" -"(lambda(sym_9 phase_0 scs_3 smss_7)" +"(lambda(sym_12 phase_4 scs_3 smss_7)" "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_76)(hash-ref c_15 sym_9 #f)))" +"(let-values(((v_76)(hash-ref c_15 sym_12 #f)))" "(if v_76" -"(if(eqv? phase_0(entry-phase v_76))" +"(if(eqv? phase_4(entry-phase v_76))" "(if(set=? scs_3(entry-scs v_76))(if(set=? smss_7(entry-smss v_76))(entry-binding v_76) #f) #f)" " #f)" " #f))" " #f)))))" "(define-values" "(resolve-cache-set!)" -"(lambda(sym_10 phase_1 scs_4 smss_8 b_23)" +"(lambda(sym_13 phase_5 scs_4 smss_8 b_38)" "(begin" "(let-values(((wb_0)(unbox* cache)))" "(let-values(((c_16)(weak-box-value wb_0)))" @@ -7341,8 +7822,8 @@ static const char *startup_source = "(let-values()" "(begin" "(box-cas! cache wb_0(make-weak-box(make-hasheq)))" -"(resolve-cache-set! sym_10 phase_1 scs_4 smss_8 b_23)))" -"(let-values()(hash-set! c_16 sym_10(entry1.1 scs_4 smss_8 phase_1 b_23)))))))))" +"(resolve-cache-set! sym_13 phase_5 scs_4 smss_8 b_38)))" +"(let-values()(hash-set! c_16 sym_13(entry1.1 scs_4 smss_8 phase_5 b_38)))))))))" "(define-values(NUM-CACHE-SLOTS) 8)" "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))" "(define-values(cached-sets-pos) 0)" @@ -7350,7 +7831,7 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_76)" +"(lambda(s_75)" "(begin" "(let-values(((vec_16)" "(let-values(((or-part_95)(weak-box-value cached-sets)))" @@ -7364,7 +7845,7 @@ static const char *startup_source = "(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" "(begin" " #f" -"((letrec-values(((for-loop_51)" +"((letrec-values(((for-loop_50)" "(lambda(result_38 pos_7)" "(begin" " 'for-loop" @@ -7376,25 +7857,25 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_5" -"(if(set=? s_76 s2_5) s2_5 #f)" +"(if(set=? s_75 s2_5) s2_5 #f)" " #f)))))" "(values result_40)))))" "(if(if(not((lambda x_31 result_39) s2_5))(not #f) #f)" -"(for-loop_51 result_39(unsafe-fx+ 1 pos_7))" +"(for-loop_50 result_39(unsafe-fx+ 1 pos_7))" " result_39)))" " result_38)))))" -" for-loop_51)" +" for-loop_50)" " #f" " 0)))))" "(if or-part_96" " or-part_96" "(begin" -"(vector-set! vec_16 cached-sets-pos s_76)" +"(vector-set! vec_16 cached-sets-pos s_75)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" -" s_76)))))))" +" s_75)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_77)" +"(lambda(s_76)" "(begin" "(let-values(((vec_20)" "(let-values(((or-part_97)(weak-box-value cached-hashes)))" @@ -7408,7 +7889,7 @@ static const char *startup_source = "(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23))))))" "(begin" " #f" -"((letrec-values(((for-loop_52)" +"((letrec-values(((for-loop_51)" "(lambda(result_41 pos_8)" "(begin" " 'for-loop" @@ -7420,25 +7901,25 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_6" -"(if(equal? s_77 s2_6) s2_6 #f)" +"(if(equal? s_76 s2_6) s2_6 #f)" " #f)))))" "(values result_43)))))" "(if(if(not((lambda x_32 result_42) s2_6))(not #f) #f)" -"(for-loop_52 result_42(unsafe-fx+ 1 pos_8))" +"(for-loop_51 result_42(unsafe-fx+ 1 pos_8))" " result_42)))" " result_41)))))" -" for-loop_52)" +" for-loop_51)" " #f" " 0)))))" "(if or-part_98" " or-part_98" "(begin" -"(vector-set! vec_20 cached-hashes-pos s_77)" +"(vector-set! vec_20 cached-hashes-pos s_76)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" -" s_77)))))))" +" s_76)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" -"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" +"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7451,33 +7932,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_73 reachable-scopes_4 reach_4 register-trigger_2)" +"(lambda(s_72 reachable-scopes_4 reach_4 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_73)" +"(scope-binding-table s_72)" " reachable-scopes_4" " reach_4" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_78 reach_5)(void)))" +"(cons prop:reach-scopes(lambda(s_77 reach_5)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_79 ser-push!_4 state_13)" -"(if(binding-table-empty?(scope-binding-table s_79))" -"(let-values()(ser-push!_4 'tag #f))" +"(lambda(s_78 ser-push!_6 state_15)" +"(if(binding-table-empty?(scope-binding-table s_78))" +"(let-values()(ser-push!_6 'tag #f))" "(let-values()" "(begin" -"(ser-push!_4 'tag '#:scope-fill!)" -"(ser-push!_4(binding-table-prune-to-reachable(scope-binding-table s_79) state_13)))))))" +"(ser-push!_6 'tag '#:scope-fill!)" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_78) state_15)))))))" "(cons" " prop:serialize" -"(lambda(s_80 ser-push!_5 state_14)" +"(lambda(s_79 ser-push!_7 state_16)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_14) s_80)" +"(if(set-member?(serialize-state-reachable-scopes state_16) s_79)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_80 top-level-common-scope)" -"(let-values()(ser-push!_5 'tag '#:scope))" +"(if(eq? s_79 top-level-common-scope)" +"(let-values()(ser-push!_7 'tag '#:scope))" "(let-values()" -"(begin(ser-push!_5 'tag '#:scope+kind)(ser-push!_5(scope-kind s_80))))))))" +"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_79))))))))" "(cons" " prop:custom-write" "(lambda(sc_1 port_6 mode_6)" @@ -7493,19 +7974,19 @@ static const char *startup_source = " #f" " 'scope)))))" "(values" -" struct:_19" -" make-_19" -" ?_19" -"(make-struct-field-accessor -ref_19 0 'id)" -"(make-struct-field-accessor -ref_19 1 'kind)" -"(make-struct-field-accessor -ref_19 2 'binding-table)" -"(make-struct-field-mutator -set!_19 2 'binding-table))))" +" struct:_21" +" make-_21" +" ?_21" +"(make-struct-field-accessor -ref_21 0 'id)" +"(make-struct-field-accessor -ref_21 1 'kind)" +"(make-struct-field-accessor -ref_21 2 'binding-table)" +"(make-struct-field-mutator -set!_21 2 'binding-table))))" "(define-values" "(deserialize-scope)" "(case-lambda" "(()(begin top-level-common-scope))" "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" -"(define-values(deserialize-scope-fill!)(lambda(s_81 bt_5)(begin(set-scope-binding-table! s_81 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_80 bt_5)(begin(set-scope-binding-table! s_80 bt_5))))" "(define-values" "(struct:multi-scope" " multi-scope2.1" @@ -7515,7 +7996,7 @@ static const char *startup_source = " multi-scope-scopes" " multi-scope-shifted" " multi-scope-label-shifted)" -"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" +"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7529,25 +8010,25 @@ static const char *startup_source = "(cons prop:reach-scopes(lambda(ms_0 reach_6)(reach_6(multi-scope-scopes ms_0))))" "(cons" " prop:serialize" -"(lambda(ms_1 ser-push!_6 state_6)" +"(lambda(ms_1 ser-push!_8 state_6)" "(begin" -"(ser-push!_6 'tag '#:multi-scope)" -"(ser-push!_6(multi-scope-name ms_1))" -"(ser-push!_6(multi-scope-scopes ms_1))))))" +"(ser-push!_8 'tag '#:multi-scope)" +"(ser-push!_8(multi-scope-name ms_1))" +"(ser-push!_8(multi-scope-scopes ms_1))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" " #f" " 'multi-scope)))))" "(values" -" struct:_20" -" make-_20" -" ?_20" -"(make-struct-field-accessor -ref_20 0 'id)" -"(make-struct-field-accessor -ref_20 1 'name)" -"(make-struct-field-accessor -ref_20 2 'scopes)" -"(make-struct-field-accessor -ref_20 3 'shifted)" -"(make-struct-field-accessor -ref_20 4 'label-shifted))))" +" struct:_22" +" make-_22" +" ?_22" +"(make-struct-field-accessor -ref_22 0 'id)" +"(make-struct-field-accessor -ref_22 1 'name)" +"(make-struct-field-accessor -ref_22 2 'scopes)" +"(make-struct-field-accessor -ref_22 3 'shifted)" +"(make-struct-field-accessor -ref_22 4 'label-shifted))))" "(define-values" "(deserialize-multi-scope)" "(lambda(name_15 scopes_8)" @@ -7560,7 +8041,7 @@ static const char *startup_source = " representative-scope-phase" " set-representative-scope-owner!" " set-representative-scope-phase!)" -"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7574,18 +8055,18 @@ static const char *startup_source = "(cons prop:reach-scopes(lambda(s_28 reach_7)(reach_7(representative-scope-owner s_28))))" "(cons" " prop:serialize-fill!" -"(lambda(s_30 ser-push!_7 state_15)" +"(lambda(s_30 ser-push!_9 state_17)" "(begin" -"(ser-push!_7 'tag '#:representative-scope-fill!)" -"(ser-push!_7(binding-table-prune-to-reachable(scope-binding-table s_30) state_15))" -"(ser-push!_7(representative-scope-owner s_30)))))" +"(ser-push!_9 'tag '#:representative-scope-fill!)" +"(ser-push!_9(binding-table-prune-to-reachable(scope-binding-table s_30) state_17))" +"(ser-push!_9(representative-scope-owner s_30)))))" "(cons" " prop:serialize" -"(lambda(s_82 ser-push!_8 state_16)" +"(lambda(s_81 ser-push!_10 state_18)" "(begin" -"(ser-push!_8 'tag '#:representative-scope)" -"(ser-push!_8(scope-kind s_82))" -"(ser-push!_8(representative-scope-phase s_82)))))" +"(ser-push!_10 'tag '#:representative-scope)" +"(ser-push!_10(scope-kind s_81))" +"(ser-push!_10(representative-scope-phase s_81)))))" "(cons" " prop:custom-write" "(lambda(sc_2 port_7 mode_7)" @@ -7607,28 +8088,28 @@ static const char *startup_source = " #f" " 'representative-scope)))))" "(values" -" struct:_21" -" make-_21" -" ?_21" -"(make-struct-field-accessor -ref_21 0 'owner)" -"(make-struct-field-accessor -ref_21 1 'phase)" -"(make-struct-field-mutator -set!_21 0 'owner)" -"(make-struct-field-mutator -set!_21 1 'phase))))" +" struct:_23" +" make-_23" +" ?_23" +"(make-struct-field-accessor -ref_23 0 'owner)" +"(make-struct-field-accessor -ref_23 1 'phase)" +"(make-struct-field-mutator -set!_23 0 'owner)" +"(make-struct-field-mutator -set!_23 1 'phase))))" "(define-values" "(deserialize-representative-scope)" -"(lambda(kind_1 phase_2)" -"(begin(let-values(((v_53)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_2))) v_53))))" +"(lambda(kind_1 phase_6)" +"(begin(let-values(((v_53)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_6))) v_53))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_83 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_83 bt_6)(set-representative-scope-owner! s_83 owner_0)))))" +"(lambda(s_82 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_82 bt_6)(set-representative-scope-owner! s_82 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" " shifted-multi-scope?" " shifted-multi-scope-phase" " shifted-multi-scope-multi-scope)" -"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" +"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7644,11 +8125,11 @@ static const char *startup_source = "(lambda(sms_3 reach_8)(reach_8(shifted-multi-scope-multi-scope sms_3))))" "(cons" " prop:serialize" -"(lambda(sms_4 ser-push!_9 state_17)" +"(lambda(sms_4 ser-push!_11 state_19)" "(begin" -"(ser-push!_9 'tag '#:shifted-multi-scope)" -"(ser-push!_9(shifted-multi-scope-phase sms_4))" -"(ser-push!_9(shifted-multi-scope-multi-scope sms_4)))))" +"(ser-push!_11 'tag '#:shifted-multi-scope)" +"(ser-push!_11(shifted-multi-scope-phase sms_4))" +"(ser-push!_11(shifted-multi-scope-multi-scope sms_4)))))" "(cons" " prop:custom-write" "(lambda(sms_5 port_8 mode_8)" @@ -7664,23 +8145,23 @@ static const char *startup_source = " #f" " 'shifted-multi-scope)))))" "(values" -" struct:_22" -" make-_22" -" ?_22" -"(make-struct-field-accessor -ref_22 0 'phase)" -"(make-struct-field-accessor -ref_22 1 'multi-scope))))" +" struct:_24" +" make-_24" +" ?_24" +"(make-struct-field-accessor -ref_24 0 'phase)" +"(make-struct-field-accessor -ref_24 1 'multi-scope))))" "(define-values" "(deserialize-shifted-multi-scope)" -"(lambda(phase_3 multi-scope_0)(begin(intern-shifted-multi-scope phase_3 multi-scope_0))))" +"(lambda(phase_7 multi-scope_0)(begin(intern-shifted-multi-scope phase_7 multi-scope_0))))" "(define-values" "(intern-shifted-multi-scope)" -"(lambda(phase_4 multi-scope_1)" +"(lambda(phase_8 multi-scope_1)" "(begin" "(letrec-values(((transaction-loop_0)" "(lambda(boxed-table_0 key_24 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_58)(hash-ref(unbox boxed-table_0) phase_4 #f)))" +"(let-values(((or-part_58)(hash-ref(unbox boxed-table_0) phase_8 #f)))" "(if or-part_58" " or-part_58" "(let-values(((val_14)(make_0)))" @@ -7689,26 +8170,26 @@ static const char *startup_source = "(if(box-cas! boxed-table_0 current_0 next_3)" " val_14" "(transaction-loop_0 boxed-table_0 key_24 make_0)))))))))))" -"(if(phase? phase_4)" +"(if(phase? phase_8)" "(let-values()" -"(let-values(((or-part_99)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_4 #f)))" +"(let-values(((or-part_99)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_8 #f)))" "(if or-part_99" " or-part_99" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" -" phase_4" -"(lambda()(shifted-multi-scope4.1 phase_4 multi-scope_1))))))" +" phase_8" +"(lambda()(shifted-multi-scope4.1 phase_8 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_4 #f)))" +"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_8 #f)))" "(if or-part_100" " or-part_100" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" -" phase_4" -"(lambda()(shifted-multi-scope4.1 phase_4 multi-scope_1)))))))))))" +" phase_8" +"(lambda()(shifted-multi-scope4.1 phase_8 multi-scope_1)))))))))))" "(define-values" "(struct:shifted-to-label-phase shifted-to-label-phase5.1 shifted-to-label-phase? shifted-to-label-phase-from)" -"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" +"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7723,7 +8204,7 @@ static const char *startup_source = " '(0)" " #f" " 'shifted-to-label-phase)))))" -"(values struct:_23 make-_23 ?_23(make-struct-field-accessor -ref_23 0 'from))))" +"(values struct:_25 make-_25 ?_25(make-struct-field-accessor -ref_25 0 'from))))" "(define-values(id-counter) 0)" "(define-values(new-scope-id!)(lambda()(begin(begin(set! id-counter(add1 id-counter)) id-counter))))" "(define-values(new-deserialize-scope-id!)(lambda()(begin(-(new-scope-id!)))))" @@ -7743,13 +8224,13 @@ static const char *startup_source = "(case-lambda(()(begin(new-multi-scope8_0 #f #f)))((name6_1)(new-multi-scope8_0 name6_1 #t)))))" "(define-values" "(multi-scope-to-scope-at-phase)" -"(lambda(ms_2 phase_5)" +"(lambda(ms_2 phase_9)" "(begin" -"(let-values(((or-part_88)(hash-ref(multi-scope-scopes ms_2) phase_5 #f)))" +"(let-values(((or-part_88)(hash-ref(multi-scope-scopes ms_2) phase_9 #f)))" "(if or-part_88" " or-part_88" -"(let-values(((s_84)(representative-scope3.1(new-scope-id!) 'module empty-binding-table ms_2 phase_5)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_5 s_84) s_84)))))))" +"(let-values(((s_83)(representative-scope3.1(new-scope-id!) 'module empty-binding-table ms_2 phase_9)))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_9 s_83) s_83)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" "(define-values(scope_2)" "(lambda(sub-s_1)" @@ -7784,23 +8265,23 @@ static const char *startup_source = "(if(propagation? prop_3)" "(let-values(((the-struct_11) sub-s_1))" "(if(syntax?$1 the-struct_11)" -"(let-values(((scopes41_0)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_85))" -"((shifted-multi-scopes42_0)" +"(let-values(((scopes48_1)" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_84))" +"((shifted-multi-scopes49_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_85))" -"((mpi-shifts43_0)" +" s_84))" +"((mpi-shifts50_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_85))" -"((inspector44_0)" +" s_84))" +"((inspector51_0)" "(propagation-apply-inspector" " prop_3" "(syntax-inspector sub-s_1)))" -"((scope-propagations+tamper45_0)" +"((scope-propagations+tamper52_0)" "(propagation-merge" "(syntax-content sub-s_1)" " prop_3" @@ -7810,30 +8291,30 @@ static const char *startup_source = "(syntax-mpi-shifts sub-s_1))))" "(syntax1.1" "(syntax-content the-struct_11)" -" scopes41_0" -" shifted-multi-scopes42_0" -" scope-propagations+tamper45_0" -" mpi-shifts43_0" +" scopes48_1" +" shifted-multi-scopes49_0" +" scope-propagations+tamper52_0" +" mpi-shifts50_0" "(syntax-srcloc the-struct_11)" "(syntax-props the-struct_11)" -" inspector44_0))" +" inspector51_0))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))" "(let-values(((the-struct_12) sub-s_1))" "(if(syntax?$1 the-struct_12)" -"(let-values(((scope-propagations+tamper46_0)" +"(let-values(((scope-propagations+tamper53_0)" "(tamper-tainted-for-content(syntax-content sub-s_1))))" "(syntax1.1" "(syntax-content the-struct_12)" "(syntax-scopes the-struct_12)" "(syntax-shifted-multi-scopes the-struct_12)" -" scope-propagations+tamper46_0" +" scope-propagations+tamper53_0" "(syntax-mpi-shifts the-struct_12)" "(syntax-srcloc the-struct_12)" "(syntax-props the-struct_12)" "(syntax-inspector the-struct_12)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))" "((seen_9) #f))" -"(let-values(((s_87) s_86)" +"(let-values(((s_86) s_85)" "((f_28)" "(lambda(tail?_20 v_77)" "(begin" @@ -7843,7 +8324,7 @@ static const char *startup_source = "(let-values()(f_27 tail?_20 v_77))))))" "((seen_10) seen_9))" "((letrec-values(((loop_67)" -"(lambda(tail?_21 s_88 prev-depth_4)" +"(lambda(tail?_21 s_87 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(add1 prev-depth_4)))" @@ -7851,58 +8332,58 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_21" -" s_88" -"(lambda(tail?_22 s_89)(f_28 tail?_22 s_89))" +" s_87" +"(lambda(tail?_22 s_88)(f_28 tail?_22 s_88))" " seen_10))" -"(if(null? s_88)" -"(let-values()(f_28 tail?_21 s_88))" -"(if(pair? s_88)" +"(if(null? s_87)" +"(let-values()(f_28 tail?_21 s_87))" +"(if(pair? s_87)" "(let-values()" "(f_28" " tail?_21" "(cons" -"(loop_67 #f(car s_88) depth_4)" -"(loop_67 #t(cdr s_88) depth_4))))" -"(if(let-values(((or-part_102)(symbol? s_88)))" +"(loop_67 #f(car s_87) depth_4)" +"(loop_67 #t(cdr s_87) depth_4))))" +"(if(let-values(((or-part_102)(symbol? s_87)))" "(if or-part_102" " or-part_102" -"(let-values(((or-part_103)(boolean? s_88)))" -"(if or-part_103 or-part_103(number? s_88)))))" -"(let-values()(f_28 #f s_88))" -"(if(let-values(((or-part_104)(vector? s_88)))" +"(let-values(((or-part_103)(boolean? s_87)))" +"(if or-part_103 or-part_103(number? s_87)))))" +"(let-values()(f_28 #f s_87))" +"(if(let-values(((or-part_104)(vector? s_87)))" "(if or-part_104" " or-part_104" -"(let-values(((or-part_105)(box? s_88)))" +"(let-values(((or-part_105)(box? s_87)))" "(if or-part_105" " or-part_105" "(let-values(((or-part_106)" -"(prefab-struct-key s_88)))" -"(if or-part_106 or-part_106(hash? s_88)))))))" +"(prefab-struct-key s_87)))" +"(if or-part_106 or-part_106(hash? s_87)))))))" "(let-values()" "(datum-map-slow" " tail?_21" -" s_88" -"(lambda(tail?_23 s_90)(f_28 tail?_23 s_90))" +" s_87" +"(lambda(tail?_23 s_89)(f_28 tail?_23 s_89))" " seen_10))" -"(let-values()(f_28 #f s_88))))))))))))" +"(let-values()(f_28 #f s_87))))))))))))" " loop_67)" " #f" -" s_87" +" s_86" " 0)))))" "(begin" -"(set-syntax-content! s_85 new-content_0)" +"(set-syntax-content! s_84 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_85" +" s_84" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_85))))))" +"(syntax-content s_84))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_91)" +"(lambda(s_90)" "(begin" " 'syntax-e" -"(let-values(((content_4)(syntax-e/no-taint s_91)))" -"(if(not(tamper-armed?(syntax-tamper s_91)))" +"(let-values(((content_4)(syntax-e/no-taint s_90)))" +"(if(not(tamper-armed?(syntax-tamper s_90)))" "(let-values() content_4)" "(if(datum-has-elements? content_4)(let-values()(taint-content content_4))(let-values() content_4)))))))" "(define-values" @@ -7914,52 +8395,52 @@ static const char *startup_source = " sc_3))))" "(define-values" "(add-scope)" -"(lambda(s_92 sc_4)" +"(lambda(s_91 sc_4)" "(begin" -"(let-values(((s_93) s_92)((sc_5)(generalize-scope sc_4))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_92) s_91)((sc_5)(generalize-scope sc_4))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_5)" -"(let-values(((the-struct_13) s_93))" +"(let-values(((the-struct_13) s_92))" "(if(syntax?$1 the-struct_13)" -"(let-values(((shifted-multi-scopes47_0)" +"(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_93)" +"(syntax-shifted-multi-scopes s_92)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_5))))" -"((scope-propagations+tamper48_0)" -"(if(datum-has-elements?(syntax-content s_93))" +"((scope-propagations+tamper55_0)" +"(if(datum-has-elements?(syntax-content s_92))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_93)" +"(syntax-scope-propagations+tamper s_92)" " sc_5" -"(syntax-scopes s_93)" -"(syntax-shifted-multi-scopes s_93)" -"(syntax-mpi-shifts s_93))" -"(syntax-scope-propagations+tamper s_93))))" +"(syntax-scopes s_92)" +"(syntax-shifted-multi-scopes s_92)" +"(syntax-mpi-shifts s_92))" +"(syntax-scope-propagations+tamper s_92))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" -" shifted-multi-scopes47_0" -" scope-propagations+tamper48_0" +" shifted-multi-scopes54_0" +" scope-propagations+tamper55_0" "(syntax-mpi-shifts the-struct_13)" "(syntax-srcloc the-struct_13)" "(syntax-props the-struct_13)" "(syntax-inspector the-struct_13)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_13)))" -"(let-values(((the-struct_14) s_93))" +"(let-values(((the-struct_14) s_92))" "(if(syntax?$1 the-struct_14)" -"(let-values(((scopes49_0)(op_0(syntax-scopes s_93) sc_5))" -"((scope-propagations+tamper50_0)" -"(if(datum-has-elements?(syntax-content s_93))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_92) sc_5))" +"((scope-propagations+tamper57_0)" +"(if(datum-has-elements?(syntax-content s_92))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_93)" +"(syntax-scope-propagations+tamper s_92)" " sc_5" -"(syntax-scopes s_93)" -"(syntax-shifted-multi-scopes s_93)" -"(syntax-mpi-shifts s_93))" -"(syntax-scope-propagations+tamper s_93))))" +"(syntax-scopes s_92)" +"(syntax-shifted-multi-scopes s_92)" +"(syntax-mpi-shifts s_92))" +"(syntax-scope-propagations+tamper s_92))))" "(syntax1.1" "(syntax-content the-struct_14)" -" scopes49_0" +" scopes56_0" "(syntax-shifted-multi-scopes the-struct_14)" -" scope-propagations+tamper50_0" +" scope-propagations+tamper57_0" "(syntax-mpi-shifts the-struct_14)" "(syntax-srcloc the-struct_14)" "(syntax-props the-struct_14)" @@ -7967,74 +8448,74 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_14))))))))" "(define-values" "(add-scopes)" -"(lambda(s_94 scs_5)" +"(lambda(s_93 scs_5)" "(begin" "(let-values(((lst_41) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_53)" -"(lambda(s_95 lst_42)" +"((letrec-values(((for-loop_52)" +"(lambda(s_94 lst_42)" "(begin" " 'for-loop" "(if(pair? lst_42)" "(let-values(((sc_6)(unsafe-car lst_42))((rest_17)(unsafe-cdr lst_42)))" -"(let-values(((s_96)" -"(let-values(((s_97) s_95))" -"(let-values(((s_98)(let-values()(add-scope s_97 sc_6))))" -"(values s_98)))))" -"(if(not #f)(for-loop_53 s_96 rest_17) s_96)))" -" s_95)))))" -" for-loop_53)" -" s_94" +"(let-values(((s_95)" +"(let-values(((s_96) s_94))" +"(let-values(((s_97)(let-values()(add-scope s_96 sc_6))))" +"(values s_97)))))" +"(if(not #f)(for-loop_52 s_95 rest_17) s_95)))" +" s_94)))))" +" for-loop_52)" +" s_93" " lst_41))))))" "(define-values" "(remove-scope)" -"(lambda(s_99 sc_7)" +"(lambda(s_98 sc_7)" "(begin" -"(let-values(((s_100) s_99)((sc_8)(generalize-scope sc_7))((op_1) set-remove)((prop-op_1) propagation-remove))" +"(let-values(((s_99) s_98)((sc_8)(generalize-scope sc_7))((op_1) set-remove)((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_8)" -"(let-values(((the-struct_15) s_100))" +"(let-values(((the-struct_15) s_99))" "(if(syntax?$1 the-struct_15)" -"(let-values(((shifted-multi-scopes51_0)" +"(let-values(((shifted-multi-scopes58_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_100)" +"(syntax-shifted-multi-scopes s_99)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_8))))" -"((scope-propagations+tamper52_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"((scope-propagations+tamper59_0)" +"(if(datum-has-elements?(syntax-content s_99))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_99)" " sc_8" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_99)" +"(syntax-shifted-multi-scopes s_99)" +"(syntax-mpi-shifts s_99))" +"(syntax-scope-propagations+tamper s_99))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" -" shifted-multi-scopes51_0" -" scope-propagations+tamper52_0" +" shifted-multi-scopes58_0" +" scope-propagations+tamper59_0" "(syntax-mpi-shifts the-struct_15)" "(syntax-srcloc the-struct_15)" "(syntax-props the-struct_15)" "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15)))" -"(let-values(((the-struct_16) s_100))" +"(let-values(((the-struct_16) s_99))" "(if(syntax?$1 the-struct_16)" -"(let-values(((scopes53_0)(op_1(syntax-scopes s_100) sc_8))" -"((scope-propagations+tamper54_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_99) sc_8))" +"((scope-propagations+tamper61_0)" +"(if(datum-has-elements?(syntax-content s_99))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_99)" " sc_8" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_99)" +"(syntax-shifted-multi-scopes s_99)" +"(syntax-mpi-shifts s_99))" +"(syntax-scope-propagations+tamper s_99))))" "(syntax1.1" "(syntax-content the-struct_16)" -" scopes53_0" +" scopes60_0" "(syntax-shifted-multi-scopes the-struct_16)" -" scope-propagations+tamper54_0" +" scope-propagations+tamper61_0" "(syntax-mpi-shifts the-struct_16)" "(syntax-srcloc the-struct_16)" "(syntax-props the-struct_16)" @@ -8042,77 +8523,77 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_101 scs_6)" +"(lambda(s_100 scs_6)" "(begin" "(let-values(((lst_43) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" -"((letrec-values(((for-loop_54)" -"(lambda(s_102 lst_44)" +"((letrec-values(((for-loop_53)" +"(lambda(s_101 lst_44)" "(begin" " 'for-loop" "(if(pair? lst_44)" "(let-values(((sc_9)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_103)" -"(let-values(((s_104) s_102))" -"(let-values(((s_105)(let-values()(remove-scope s_104 sc_9))))" -"(values s_105)))))" -"(if(not #f)(for-loop_54 s_103 rest_18) s_103)))" -" s_102)))))" -" for-loop_54)" -" s_101" +"(let-values(((s_102)" +"(let-values(((s_103) s_101))" +"(let-values(((s_104)(let-values()(remove-scope s_103 sc_9))))" +"(values s_104)))))" +"(if(not #f)(for-loop_53 s_102 rest_18) s_102)))" +" s_101)))))" +" for-loop_53)" +" s_100" " lst_43))))))" "(define-values" "(set-flip)" -"(lambda(s_106 e_15)(begin(if(set-member? s_106 e_15)(set-remove s_106 e_15)(set-add s_106 e_15)))))" +"(lambda(s_105 e_15)(begin(if(set-member? s_105 e_15)(set-remove s_105 e_15)(set-add s_105 e_15)))))" "(define-values" "(flip-scope)" -"(lambda(s_107 sc_10)" +"(lambda(s_106 sc_10)" "(begin" -"(let-values(((s_108) s_107)((sc_11)(generalize-scope sc_10))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_107) s_106)((sc_11)(generalize-scope sc_10))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_11)" -"(let-values(((the-struct_17) s_108))" +"(let-values(((the-struct_17) s_107))" "(if(syntax?$1 the-struct_17)" -"(let-values(((shifted-multi-scopes55_0)" +"(let-values(((shifted-multi-scopes62_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_108)" +"(syntax-shifted-multi-scopes s_107)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_11))))" -"((scope-propagations+tamper56_0)" -"(if(datum-has-elements?(syntax-content s_108))" +"((scope-propagations+tamper63_0)" +"(if(datum-has-elements?(syntax-content s_107))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_108)" +"(syntax-scope-propagations+tamper s_107)" " sc_11" -"(syntax-scopes s_108)" -"(syntax-shifted-multi-scopes s_108)" -"(syntax-mpi-shifts s_108))" -"(syntax-scope-propagations+tamper s_108))))" +"(syntax-scopes s_107)" +"(syntax-shifted-multi-scopes s_107)" +"(syntax-mpi-shifts s_107))" +"(syntax-scope-propagations+tamper s_107))))" "(syntax1.1" "(syntax-content the-struct_17)" "(syntax-scopes the-struct_17)" -" shifted-multi-scopes55_0" -" scope-propagations+tamper56_0" +" shifted-multi-scopes62_0" +" scope-propagations+tamper63_0" "(syntax-mpi-shifts the-struct_17)" "(syntax-srcloc the-struct_17)" "(syntax-props the-struct_17)" "(syntax-inspector the-struct_17)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17)))" -"(let-values(((the-struct_18) s_108))" +"(let-values(((the-struct_18) s_107))" "(if(syntax?$1 the-struct_18)" -"(let-values(((scopes57_0)(op_2(syntax-scopes s_108) sc_11))" -"((scope-propagations+tamper58_0)" -"(if(datum-has-elements?(syntax-content s_108))" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_107) sc_11))" +"((scope-propagations+tamper65_0)" +"(if(datum-has-elements?(syntax-content s_107))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_108)" +"(syntax-scope-propagations+tamper s_107)" " sc_11" -"(syntax-scopes s_108)" -"(syntax-shifted-multi-scopes s_108)" -"(syntax-mpi-shifts s_108))" -"(syntax-scope-propagations+tamper s_108))))" +"(syntax-scopes s_107)" +"(syntax-shifted-multi-scopes s_107)" +"(syntax-mpi-shifts s_107))" +"(syntax-scope-propagations+tamper s_107))))" "(syntax1.1" "(syntax-content the-struct_18)" -" scopes57_0" +" scopes64_0" "(syntax-shifted-multi-scopes the-struct_18)" -" scope-propagations+tamper58_0" +" scope-propagations+tamper65_0" "(syntax-mpi-shifts the-struct_18)" "(syntax-srcloc the-struct_18)" "(syntax-props the-struct_18)" @@ -8120,37 +8601,37 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_109 scs_7)" +"(lambda(s_108 scs_7)" "(begin" "(let-values(((lst_45) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" -"((letrec-values(((for-loop_55)" -"(lambda(s_110 lst_46)" +"((letrec-values(((for-loop_54)" +"(lambda(s_109 lst_46)" "(begin" " 'for-loop" "(if(pair? lst_46)" "(let-values(((sc_12)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_111)" -"(let-values(((s_112) s_110))" -"(let-values(((s_113)(let-values()(flip-scope s_112 sc_12))))" -"(values s_113)))))" -"(if(not #f)(for-loop_55 s_111 rest_19) s_111)))" -" s_110)))))" -" for-loop_55)" -" s_109" +"(let-values(((s_110)" +"(let-values(((s_111) s_109))" +"(let-values(((s_112)(let-values()(flip-scope s_111 sc_12))))" +"(values s_112)))))" +"(if(not #f)(for-loop_54 s_110 rest_19) s_110)))" +" s_109)))))" +" for-loop_54)" +" s_108" " lst_45))))))" "(define-values" "(push-scope)" -"(lambda(s_114 sms_6)" +"(lambda(s_113 sms_6)" "(begin" -"(let-values(((smss/maybe-fallbacks59_0) #f))" +"(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" "(let-values(((push_0)" "(lambda(smss/maybe-fallbacks_0)" "(begin" " 'push" -"(if(eq? smss/maybe-fallbacks59_0 smss/maybe-fallbacks_0)" +"(if(eq? smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(let-values() prev-result_0)" "(let-values()" "(let-values(((r_22)" @@ -8165,24 +8646,24 @@ static const char *startup_source = "(set-add smss_12 sms_6)" " smss/maybe-fallbacks_0))))))))" "(begin" -"(set! smss/maybe-fallbacks59_0 smss/maybe-fallbacks_0)" +"(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_115) s_114)" +"(let-values(((s_114) s_113)" "((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_116 d_3)" +"(lambda(s_115 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_19) s_116))" +"(let-values(((the-struct_19) s_115))" "(if(syntax?$1 the-struct_19)" -"(let-values(((content60_0) d_3)" -"((shifted-multi-scopes61_0)" -"(push_0(syntax-shifted-multi-scopes s_116))))" +"(let-values(((content67_0) d_3)" +"((shifted-multi-scopes68_0)" +"(push_0(syntax-shifted-multi-scopes s_115))))" "(syntax1.1" -" content60_0" +" content67_0" "(syntax-scopes the-struct_19)" -" shifted-multi-scopes61_0" +" shifted-multi-scopes68_0" "(syntax-scope-propagations+tamper the-struct_19)" "(syntax-mpi-shifts the-struct_19)" "(syntax-srcloc the-struct_19)" @@ -8192,10 +8673,10 @@ static const char *startup_source = "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_68)" -"(lambda(s_117)" +"(lambda(s_116)" "(begin" " 'loop" -"(let-values(((s_118) s_117)" +"(let-values(((s_117) s_116)" "((f_30)" "(lambda(tail?_25 v_78)" "(begin" @@ -8205,7 +8686,7 @@ static const char *startup_source = "(let-values()(f_29 tail?_25 v_78))))))" "((seen_12) seen_11))" "((letrec-values(((loop_69)" -"(lambda(tail?_26 s_119 prev-depth_5)" +"(lambda(tail?_26 s_118 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(add1 prev-depth_5)))" @@ -8213,53 +8694,53 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_26" -" s_119" -"(lambda(tail?_27 s_120)(f_30 tail?_27 s_120))" +" s_118" +"(lambda(tail?_27 s_119)(f_30 tail?_27 s_119))" " seen_12))" -"(if(null? s_119)" -"(let-values()(f_30 tail?_26 s_119))" -"(if(pair? s_119)" +"(if(null? s_118)" +"(let-values()(f_30 tail?_26 s_118))" +"(if(pair? s_118)" "(let-values()" "(f_30" " tail?_26" "(cons" -"(loop_69 #f(car s_119) depth_5)" -"(loop_69 #t(cdr s_119) depth_5))))" -"(if(let-values(((or-part_107)(symbol? s_119)))" +"(loop_69 #f(car s_118) depth_5)" +"(loop_69 #t(cdr s_118) depth_5))))" +"(if(let-values(((or-part_107)(symbol? s_118)))" "(if or-part_107" " or-part_107" "(let-values(((or-part_108)" -"(boolean? s_119)))" +"(boolean? s_118)))" "(if or-part_108" " or-part_108" -"(number? s_119)))))" -"(let-values()(f_30 #f s_119))" -"(if(let-values(((or-part_109)(vector? s_119)))" +"(number? s_118)))))" +"(let-values()(f_30 #f s_118))" +"(if(let-values(((or-part_109)(vector? s_118)))" "(if or-part_109" " or-part_109" -"(let-values(((or-part_110)(box? s_119)))" +"(let-values(((or-part_110)(box? s_118)))" "(if or-part_110" " or-part_110" "(let-values(((or-part_111)" "(prefab-struct-key" -" s_119)))" +" s_118)))" "(if or-part_111" " or-part_111" -"(hash? s_119)))))))" +"(hash? s_118)))))))" "(let-values()" "(datum-map-slow" " tail?_26" -" s_119" -"(lambda(tail?_28 s_121)" -"(f_30 tail?_28 s_121))" +" s_118" +"(lambda(tail?_28 s_120)" +"(f_30 tail?_28 s_120))" " seen_12))" -"(let-values()(f_30 #f s_119))))))))))))" +"(let-values()(f_30 #f s_118))))))))))))" " loop_69)" " #f" -" s_118" +" s_117" " 0))))))" " loop_68)" -" s_115))))))))" +" s_114))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -8271,7 +8752,7 @@ static const char *startup_source = " propagation-add-mpi-shifts" " propagation-inspector" " propagation-tamper)" -"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8291,16 +8772,16 @@ static const char *startup_source = " #f" " 'propagation)))))" "(values" -" struct:_24" -" make-_24" -" ?_24" -"(make-struct-field-accessor -ref_24 0 'prev-scs)" -"(make-struct-field-accessor -ref_24 1 'prev-smss)" -"(make-struct-field-accessor -ref_24 2 'scope-ops)" -"(make-struct-field-accessor -ref_24 3 'prev-mss)" -"(make-struct-field-accessor -ref_24 4 'add-mpi-shifts)" -"(make-struct-field-accessor -ref_24 5 'inspector)" -"(make-struct-field-accessor -ref_24 6 'tamper))))" +" struct:_26" +" make-_26" +" ?_26" +"(make-struct-field-accessor -ref_26 0 'prev-scs)" +"(make-struct-field-accessor -ref_26 1 'prev-smss)" +"(make-struct-field-accessor -ref_26 2 'scope-ops)" +"(make-struct-field-accessor -ref_26 3 'prev-mss)" +"(make-struct-field-accessor -ref_26 4 'add-mpi-shifts)" +"(make-struct-field-accessor -ref_26 5 'inspector)" +"(make-struct-field-accessor -ref_26 6 'tamper))))" "(define-values" "(propagation-add)" "(lambda(prop_4 sc_13 prev-scs_0 prev-smss_0 prev-mss_0)" @@ -8308,11 +8789,11 @@ static const char *startup_source = "(if(propagation? prop_4)" "(let-values(((the-struct_20) prop_4))" "(if(propagation? the-struct_20)" -"(let-values(((scope-ops63_0)(hash-set(propagation-scope-ops prop_4) sc_13 'add)))" +"(let-values(((scope-ops70_0)(hash-set(propagation-scope-ops prop_4) sc_13 'add)))" "(propagation14.1" "(propagation-prev-scs the-struct_20)" "(propagation-prev-smss the-struct_20)" -" scope-ops63_0" +" scope-ops70_0" "(propagation-prev-mss the-struct_20)" "(propagation-add-mpi-shifts the-struct_20)" "(propagation-inspector the-struct_20)" @@ -8326,11 +8807,11 @@ static const char *startup_source = "(if(propagation? prop_5)" "(let-values(((the-struct_21) prop_5))" "(if(propagation? the-struct_21)" -"(let-values(((scope-ops64_0)(hash-set(propagation-scope-ops prop_5) sc_14 'remove)))" +"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_5) sc_14 'remove)))" "(propagation14.1" "(propagation-prev-scs the-struct_21)" "(propagation-prev-smss the-struct_21)" -" scope-ops64_0" +" scope-ops71_0" "(propagation-prev-mss the-struct_21)" "(propagation-add-mpi-shifts the-struct_21)" "(propagation-inspector the-struct_21)" @@ -8353,7 +8834,7 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_22) prop_6))" "(if(propagation? the-struct_22)" -"(let-values(((scope-ops65_0)" +"(let-values(((scope-ops72_0)" "(if(eq? current-op_0 'flip)" "(hash-remove ops_0 sc_15)" "(hash-set" @@ -8366,7 +8847,7 @@ static const char *startup_source = "(propagation14.1" "(propagation-prev-scs the-struct_22)" "(propagation-prev-smss the-struct_22)" -" scope-ops65_0" +" scope-ops72_0" "(propagation-prev-mss the-struct_22)" "(propagation-add-mpi-shifts the-struct_22)" "(propagation-inspector the-struct_22)" @@ -8380,12 +8861,12 @@ static const char *startup_source = "(if(propagation? prop_7)" "(let-values(((the-struct_23) prop_7))" "(if(propagation? the-struct_23)" -"(let-values(((add-mpi-shifts66_0)" +"(let-values(((add-mpi-shifts73_0)" "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" "(if(if add_0 base-add_0 #f)" -"(lambda(mss_0)(begin 'add-mpi-shifts66(add_0(base-add_0 mss_0))))" +"(lambda(mss_0)(begin 'add-mpi-shifts73(add_0(base-add_0 mss_0))))" "(let-values(((or-part_112) add_0))(if or-part_112 or-part_112 base-add_0)))))" -"((inspector67_0)" +"((inspector74_0)" "(let-values(((or-part_113)(propagation-inspector prop_7)))" "(if or-part_113 or-part_113 inspector_2))))" "(propagation14.1" @@ -8393,8 +8874,8 @@ static const char *startup_source = "(propagation-prev-smss the-struct_23)" "(propagation-scope-ops the-struct_23)" "(propagation-prev-mss the-struct_23)" -" add-mpi-shifts66_0" -" inspector67_0" +" add-mpi-shifts73_0" +" inspector74_0" "(propagation-tamper the-struct_23)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_23)))" "(propagation14.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_7)))))" @@ -8411,13 +8892,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_49)))" -"((letrec-values(((for-loop_56)" -"(lambda(scs_9 i_63)" +"((letrec-values(((for-loop_55)" +"(lambda(scs_9 i_62)" "(begin" " 'for-loop" -"(if i_63" +"(if i_62" "(let-values(((sc_16 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_49 i_63)))" +"(unsafe-immutable-hash-iterate-key+value ht_49 i_62)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_16))" @@ -8442,12 +8923,12 @@ static const char *startup_source = "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_56" +"(for-loop_55" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_49 i_63))" +"(unsafe-immutable-hash-iterate-next ht_49 i_62))" " scs_10)))" " scs_9)))))" -" for-loop_56)" +" for-loop_55)" " scs_8" "(unsafe-immutable-hash-iterate-first ht_49))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" @@ -8466,13 +8947,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_50)))" -"((letrec-values(((for-loop_57)" -"(lambda(smss_14 i_64)" +"((letrec-values(((for-loop_56)" +"(lambda(smss_14 i_63)" "(begin" " 'for-loop" -"(if i_64" +"(if i_63" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_50 i_64)))" +"(unsafe-immutable-hash-iterate-key+value ht_50 i_63)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -8503,12 +8984,12 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_57" +"(for-loop_56" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_50 i_64))" +"(unsafe-immutable-hash-iterate-next ht_50 i_63))" " smss_15)))" " smss_14)))))" -" for-loop_57)" +" for-loop_56)" " smss_13" "(unsafe-immutable-hash-iterate-first ht_50))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" @@ -8524,8 +9005,8 @@ static const char *startup_source = "(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))" "(define-values" "(propagation-apply-inspector)" -"(lambda(prop_11 i_65)" -"(begin(let-values(((or-part_114) i_65))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" +"(lambda(prop_11 i_64)" +"(begin(let-values(((or-part_114) i_64))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_32)" @@ -8533,7 +9014,7 @@ static const char *startup_source = "(if(propagation? prop_12)" "(let-values(((the-struct_24) prop_12))" "(if(propagation? the-struct_24)" -"(let-values(((tamper68_0) t_32))" +"(let-values(((tamper75_0) t_32))" "(propagation14.1" "(propagation-prev-scs the-struct_24)" "(propagation-prev-smss the-struct_24)" @@ -8541,7 +9022,7 @@ static const char *startup_source = "(propagation-prev-mss the-struct_24)" "(propagation-add-mpi-shifts the-struct_24)" "(propagation-inspector the-struct_24)" -" tamper68_0))" +" tamper75_0))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))" " t_32))))" "(define-values" @@ -8576,15 +9057,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_51)))" -"((letrec-values(((for-loop_58)" -"(lambda(ops_1 i_66)" +"((letrec-values(((for-loop_57)" +"(lambda(ops_1 i_65)" "(begin" " 'for-loop" -"(if i_66" +"(if i_65" "(let-values(((sc_17 op_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_51" -" i_66)))" +" i_65)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" @@ -8640,12 +9121,12 @@ static const char *startup_source = " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_58" +"(for-loop_57" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_51 i_66))" +"(unsafe-immutable-hash-iterate-next ht_51 i_65))" " ops_2)))" " ops_1)))))" -" for-loop_58)" +" for-loop_57)" "(propagation-scope-ops base-prop_0)" "(unsafe-immutable-hash-iterate-first ht_51))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" @@ -8665,23 +9146,23 @@ static const char *startup_source = " new-tamper_0" "(let-values(((the-struct_25) base-prop_0))" "(if(propagation? the-struct_25)" -"(let-values(((scope-ops69_0) new-ops_0)" -"((add-mpi-shifts70_0)" +"(let-values(((scope-ops76_0) new-ops_0)" +"((add-mpi-shifts77_0)" "(if(if add_2 base-add_1 #f)" -"(lambda(mss_2)(begin 'add-mpi-shifts70(add_2(base-add_1 mss_2))))" +"(lambda(mss_2)(begin 'add-mpi-shifts77(add_2(base-add_1 mss_2))))" "(let-values(((or-part_116) add_2))(if or-part_116 or-part_116 base-add_1))))" -"((inspector71_0)" +"((inspector78_0)" "(let-values(((or-part_117)(propagation-inspector base-prop_0)))" "(if or-part_117 or-part_117(propagation-inspector prop_13))))" -"((tamper72_0) new-tamper_0))" +"((tamper79_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_25)" "(propagation-prev-smss the-struct_25)" -" scope-ops69_0" +" scope-ops76_0" "(propagation-prev-mss the-struct_25)" -" add-mpi-shifts70_0" -" inspector71_0" -" tamper72_0))" +" add-mpi-shifts77_0" +" inspector78_0" +" tamper79_0))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_25))))))))))))))" "(define-values" "(shift-multi-scope)" @@ -8705,19 +9186,19 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_122 phase_6)" +"(lambda(s_121 phase_10)" "(begin" " 'syntax-shift-phase-level" -"(if(eqv? phase_6 0)" -" s_122" +"(if(eqv? phase_10 0)" +" s_121" "(let-values()" -"(let-values(((smss73_0) #f))" +"(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" "(let-values(((shift-all_0)" "(lambda(smss_20)" "(begin" " 'shift-all" -"(if(eq? smss73_0 smss_20)" +"(if(eq? smss80_0 smss_20)" "(let-values() prev-result_1)" "(let-values()" "(let-values(((r_23)" @@ -8730,34 +9211,34 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_52)))" -"((letrec-values(((for-loop_59)" -"(lambda(table_58 i_67)" +"((letrec-values(((for-loop_58)" +"(lambda(table_60 i_66)" "(begin" " 'for-loop" -"(if i_67" +"(if i_66" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" " ht_52" -" i_67)))" -"(let-values(((table_59)" +" i_66)))" +"(let-values(((table_61)" "(let-values(((new-sms_0)" "(shift-multi-scope" " sms_9" -" phase_6)))" +" phase_10)))" "(begin" " #t" -"((letrec-values(((for-loop_60)" -"(lambda(table_60)" +"((letrec-values(((for-loop_59)" +"(lambda(table_62)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_61)" -"(let-values(((table_62)" -" table_60))" -"(if new-sms_0" "(let-values(((table_63)" -" table_62))" "(let-values(((table_64)" +" table_62))" +"(if new-sms_0" +"(let-values(((table_65)" +" table_64))" +"(let-values(((table_66)" "(let-values()" "(let-values(((key_25" " val_15)" @@ -8767,42 +9248,42 @@ static const char *startup_source = " new-sms_0)" " #t))))" "(hash-set" -" table_63" +" table_65" " key_25" " val_15)))))" "(values" -" table_64)))" -" table_62))))" -" table_61))))))" -" for-loop_60)" -" table_58)))))" +" table_66)))" +" table_64))))" +" table_63))))))" +" for-loop_59)" +" table_60)))))" "(if(not #f)" -"(for-loop_59" -" table_59" +"(for-loop_58" +" table_61" "(unsafe-immutable-hash-iterate-next" " ht_52" -" i_67))" -" table_59)))" -" table_58)))))" -" for-loop_59)" +" i_66))" +" table_61)))" +" table_60)))))" +" for-loop_58)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_52)))))))))" -"(begin(set! smss73_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_123) s_122)" +"(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" +"(let-values(((s_122) s_121)" "((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_124 d_5)" +"(lambda(s_123 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_26) s_124))" +"(let-values(((the-struct_26) s_123))" "(if(syntax?$1 the-struct_26)" -"(let-values(((content74_0) d_5)" -"((shifted-multi-scopes75_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_124))))" +"(let-values(((content81_0) d_5)" +"((shifted-multi-scopes82_0)" +"(shift-all_0(syntax-shifted-multi-scopes s_123))))" "(syntax1.1" -" content74_0" +" content81_0" "(syntax-scopes the-struct_26)" -" shifted-multi-scopes75_0" +" shifted-multi-scopes82_0" "(syntax-scope-propagations+tamper the-struct_26)" "(syntax-mpi-shifts the-struct_26)" "(syntax-srcloc the-struct_26)" @@ -8812,10 +9293,10 @@ static const char *startup_source = "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_70)" -"(lambda(s_125)" +"(lambda(s_124)" "(begin" " 'loop" -"(let-values(((s_126) s_125)" +"(let-values(((s_125) s_124)" "((f_32)" "(lambda(tail?_30 v_80)" "(begin" @@ -8825,7 +9306,7 @@ static const char *startup_source = "(let-values()(f_31 tail?_30 v_80))))))" "((seen_14) seen_13))" "((letrec-values(((loop_71)" -"(lambda(tail?_31 s_127 prev-depth_6)" +"(lambda(tail?_31 s_126 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(add1 prev-depth_6)))" @@ -8833,62 +9314,62 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_31" -" s_127" -"(lambda(tail?_32 s_128)(f_32 tail?_32 s_128))" +" s_126" +"(lambda(tail?_32 s_127)(f_32 tail?_32 s_127))" " seen_14))" -"(if(null? s_127)" -"(let-values()(f_32 tail?_31 s_127))" -"(if(pair? s_127)" +"(if(null? s_126)" +"(let-values()(f_32 tail?_31 s_126))" +"(if(pair? s_126)" "(let-values()" "(f_32" " tail?_31" "(cons" -"(loop_71 #f(car s_127) depth_6)" -"(loop_71 #t(cdr s_127) depth_6))))" +"(loop_71 #f(car s_126) depth_6)" +"(loop_71 #t(cdr s_126) depth_6))))" "(if(let-values(((or-part_118)" -"(symbol? s_127)))" +"(symbol? s_126)))" "(if or-part_118" " or-part_118" "(let-values(((or-part_119)" -"(boolean? s_127)))" +"(boolean? s_126)))" "(if or-part_119" " or-part_119" -"(number? s_127)))))" -"(let-values()(f_32 #f s_127))" +"(number? s_126)))))" +"(let-values()(f_32 #f s_126))" "(if(let-values(((or-part_120)" -"(vector? s_127)))" +"(vector? s_126)))" "(if or-part_120" " or-part_120" "(let-values(((or-part_121)" -"(box? s_127)))" +"(box? s_126)))" "(if or-part_121" " or-part_121" "(let-values(((or-part_122)" "(prefab-struct-key" -" s_127)))" +" s_126)))" "(if or-part_122" " or-part_122" -"(hash? s_127)))))))" +"(hash? s_126)))))))" "(let-values()" "(datum-map-slow" " tail?_31" -" s_127" -"(lambda(tail?_33 s_129)" -"(f_32 tail?_33 s_129))" +" s_126" +"(lambda(tail?_33 s_128)" +"(f_32 tail?_33 s_128))" " seen_14))" -"(let-values()(f_32 #f s_127))))))))))))" +"(let-values()(f_32 #f s_126))))))))))))" " loop_71)" " #f" -" s_126" +" s_125" " 0))))))" " loop_70)" -" s_123))))))))))" +" s_122))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_130 src-scopes_0 dest-scopes_0)" +"(lambda(s_129 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_130" +" s_129" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" "(let-values(((ht_53) src-scopes_0))" @@ -8896,16 +9377,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_53)))" -"((letrec-values(((for-loop_61)" -"(lambda(table_65 i_68)" +"((letrec-values(((for-loop_60)" +"(lambda(table_67 i_67)" "(begin" " 'for-loop" -"(if i_68" +"(if i_67" "(let-values(((sc_18)" -"(unsafe-immutable-hash-iterate-key ht_53 i_68)))" -"(let-values(((table_66)" -"(let-values(((table_67) table_65))" +"(unsafe-immutable-hash-iterate-key ht_53 i_67)))" "(let-values(((table_68)" +"(let-values(((table_69) table_67))" +"(let-values(((table_70)" "(let-values()" "(let-values(((key_26 val_16)" "(let-values()" @@ -8915,17 +9396,17 @@ static const char *startup_source = " sc_18))" " #t))))" "(hash-set" -" table_67" +" table_69" " key_26" " val_16)))))" -"(values table_68)))))" +"(values table_70)))))" "(if(not #f)" -"(for-loop_61" -" table_66" -"(unsafe-immutable-hash-iterate-next ht_53 i_68))" -" table_66)))" -" table_65)))))" -" for-loop_61)" +"(for-loop_60" +" table_68" +"(unsafe-immutable-hash-iterate-next ht_53 i_67))" +" table_68)))" +" table_67)))))" +" for-loop_60)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_53))))" " shifted-multi-scope?" @@ -8938,16 +9419,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_54)))" -"((letrec-values(((for-loop_62)" -"(lambda(table_69 i_69)" +"((letrec-values(((for-loop_61)" +"(lambda(table_71 i_68)" "(begin" " 'for-loop" -"(if i_69" +"(if i_68" "(let-values(((sc_19)" -"(unsafe-immutable-hash-iterate-key ht_54 i_69)))" -"(let-values(((table_70)" -"(let-values(((table_71) table_69))" +"(unsafe-immutable-hash-iterate-key ht_54 i_68)))" "(let-values(((table_72)" +"(let-values(((table_73) table_71))" +"(let-values(((table_74)" "(let-values()" "(let-values(((key_27 val_17)" "(let-values()" @@ -8957,29 +9438,29 @@ static const char *startup_source = " sc_19))" " #t))))" "(hash-set" -" table_71" +" table_73" " key_27" " val_17)))))" -"(values table_72)))))" +"(values table_74)))))" "(if(not #f)" -"(for-loop_62" -" table_70" -"(unsafe-immutable-hash-iterate-next ht_54 i_69))" -" table_70)))" -" table_69)))))" -" for-loop_62)" +"(for-loop_61" +" table_72" +"(unsafe-immutable-hash-iterate-next ht_54 i_68))" +" table_72)))" +" table_71)))))" +" for-loop_61)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_54))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" -"(let-values(((scs76_0) #f))" +"(let-values(((scs83_0) #f))" "(let-values(((prev-result_2) #f))" "(let-values(((swap-scs_0)" "(lambda(scs_14)" "(begin" " 'swap-scs" -"(if(eq? scs76_0 scs_14)" +"(if(eq? scs83_0 scs_14)" "(let-values() prev-result_2)" "(let-values()" "(let-values(((r_24)" @@ -8987,14 +9468,14 @@ static const char *startup_source = "(if(subset? src-scs_0 scs_14)" "(set-union(set-subtract scs_14 src-scs_0) dest-scs_0)" " scs_14))))" -"(begin(set! scs76_0 scs_14)(set! prev-result_2 r_24) r_24))))))))" -"(let-values(((smss77_0) #f))" +"(begin(set! scs83_0 scs_14)(set! prev-result_2 r_24) r_24))))))))" +"(let-values(((smss84_0) #f))" "(let-values(((prev-result_3) #f))" "(let-values(((swap-smss_0)" "(lambda(smss_22)" "(begin" " 'swap-smss" -"(if(eq? smss77_0 smss_22)" +"(if(eq? smss84_0 smss_22)" "(let-values() prev-result_3)" "(let-values()" "(let-values(((r_25)" @@ -9005,23 +9486,23 @@ static const char *startup_source = "(if(subset? src-smss_0 smss_23)" "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" -"(begin(set! smss77_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_131) s_130)" +"(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" +"(let-values(((s_130) s_129)" "((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_132 d_7)" +"(lambda(s_131 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_27) s_132))" +"(let-values(((the-struct_27) s_131))" "(if(syntax?$1 the-struct_27)" -"(let-values(((content78_0) d_7)" -"((scopes79_0)(swap-scs_0(syntax-scopes s_132)))" -"((shifted-multi-scopes80_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_132))))" +"(let-values(((content85_0) d_7)" +"((scopes86_0)(swap-scs_0(syntax-scopes s_131)))" +"((shifted-multi-scopes87_0)" +"(swap-smss_0(syntax-shifted-multi-scopes s_131))))" "(syntax1.1" -" content78_0" -" scopes79_0" -" shifted-multi-scopes80_0" +" content85_0" +" scopes86_0" +" shifted-multi-scopes87_0" "(syntax-scope-propagations+tamper the-struct_27)" "(syntax-mpi-shifts the-struct_27)" "(syntax-srcloc the-struct_27)" @@ -9031,10 +9512,10 @@ static const char *startup_source = "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_72)" -"(lambda(s_133)" +"(lambda(s_132)" "(begin" " 'loop" -"(let-values(((s_134) s_133)" +"(let-values(((s_133) s_132)" "((f_34)" "(lambda(tail?_35 v_81)" "(begin" @@ -9044,7 +9525,7 @@ static const char *startup_source = "(let-values()(f_33 tail?_35 v_81))))))" "((seen_16) seen_15))" "((letrec-values(((loop_32)" -"(lambda(tail?_36 s_135 prev-depth_7)" +"(lambda(tail?_36 s_134 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(add1 prev-depth_7)))" @@ -9052,80 +9533,80 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_36" -" s_135" -"(lambda(tail?_37 s_136)" -"(f_34 tail?_37 s_136))" +" s_134" +"(lambda(tail?_37 s_135)" +"(f_34 tail?_37 s_135))" " seen_16))" -"(if(null? s_135)" -"(let-values()(f_34 tail?_36 s_135))" -"(if(pair? s_135)" +"(if(null? s_134)" +"(let-values()(f_34 tail?_36 s_134))" +"(if(pair? s_134)" "(let-values()" "(f_34" " tail?_36" "(cons" -"(loop_32 #f(car s_135) depth_7)" -"(loop_32 #t(cdr s_135) depth_7))))" +"(loop_32 #f(car s_134) depth_7)" +"(loop_32 #t(cdr s_134) depth_7))))" "(if(let-values(((or-part_123)" -"(symbol? s_135)))" +"(symbol? s_134)))" "(if or-part_123" " or-part_123" "(let-values(((or-part_124)" -"(boolean? s_135)))" +"(boolean? s_134)))" "(if or-part_124" " or-part_124" -"(number? s_135)))))" -"(let-values()(f_34 #f s_135))" +"(number? s_134)))))" +"(let-values()(f_34 #f s_134))" "(if(let-values(((or-part_125)" -"(vector? s_135)))" +"(vector? s_134)))" "(if or-part_125" " or-part_125" "(let-values(((or-part_126)" -"(box? s_135)))" +"(box? s_134)))" "(if or-part_126" " or-part_126" "(let-values(((or-part_127)" "(prefab-struct-key" -" s_135)))" +" s_134)))" "(if or-part_127" " or-part_127" -"(hash? s_135)))))))" +"(hash? s_134)))))))" "(let-values()" "(datum-map-slow" " tail?_36" -" s_135" -"(lambda(tail?_38 s_137)" -"(f_34 tail?_38 s_137))" +" s_134" +"(lambda(tail?_38 s_136)" +"(f_34 tail?_38 s_136))" " seen_16))" "(let-values()" -"(f_34 #f s_135))))))))))))" +"(f_34 #f s_134))))))))))))" " loop_32)" " #f" -" s_134" +" s_133" " 0))))))" " loop_72)" -" s_131)))))))))))))" +" s_130)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_138 phase_7)" -"(begin(scope-set-at-fallback s_138(fallback-first(syntax-shifted-multi-scopes s_138)) phase_7))))" +"(lambda(s_137 phase_11)" +"(begin(scope-set-at-fallback s_137(fallback-first(syntax-shifted-multi-scopes s_137)) phase_11))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_139 smss_24 phase_8)" +"(lambda(s_138 smss_24 phase_12)" "(begin" "(let-values(((ht_55) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_63)" -"(lambda(scopes_9 i_70)" +"((letrec-values(((for-loop_62)" +"(lambda(scopes_9 i_69)" "(begin" " 'for-loop" -"(if i_70" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_70)))" +"(if i_69" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_69)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_128)(label-phase? phase_8)))" +"(if(let-values(((or-part_128)(label-phase? phase_12)))" "(if or-part_128" " or-part_128" "(not" @@ -9143,15 +9624,15 @@ static const char *startup_source = " sms_10)))" "(if(shifted-to-label-phase? ph_0)" "(shifted-to-label-phase-from ph_0)" -"(phase- ph_0 phase_8))))))))" +"(phase- ph_0 phase_12))))))))" "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_63 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_70))" +"(for-loop_62 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_69))" " scopes_10)))" " scopes_9)))))" -" for-loop_63)" -"(syntax-scopes s_139)" +" for-loop_62)" +"(syntax-scopes s_138)" "(unsafe-immutable-hash-iterate-first ht_55)))))))" "(define-values" "(find-max-scope)" @@ -9164,12 +9645,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_64)" -"(lambda(max-sc_0 i_71)" +"((letrec-values(((for-loop_63)" +"(lambda(max-sc_0 i_70)" "(begin" " 'for-loop" -"(if i_71" -"(let-values(((sc_20)(unsafe-immutable-hash-iterate-key ht_56 i_71)))" +"(if i_70" +"(let-values(((sc_20)(unsafe-immutable-hash-iterate-key ht_56 i_70)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -9177,10 +9658,10 @@ static const char *startup_source = "(if(scope>? sc_20 max-sc_2) sc_20 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_64 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_71))" +"(for-loop_63 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_70))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_64)" +" for-loop_63)" "(set-first scopes_14)" "(unsafe-immutable-hash-iterate-first ht_56))))))))" "(define-values" @@ -9189,7 +9670,7 @@ static const char *startup_source = "(begin" " 'add-binding-in-scopes!20" "(let-values(((scopes_15) scopes17_0))" -"(let-values(((sym_11) sym18_0))" +"(let-values(((sym_14) sym18_0))" "(let-values(((binding_4) binding19_0))" "(let-values(((just-for-nominal?_1)(if just-for-nominal?16_0 just-for-nominal?15_0 #f)))" "(let-values()" @@ -9198,32 +9679,42 @@ static const char *startup_source = "(binding-table-add" "(scope-binding-table max-sc_4)" " scopes_15" -" sym_11" +" sym_14" " binding_4" " just-for-nominal?_1)))" -"(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_11))))))))))))" +"(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_14))))))))))))" "(define-values" -"(add-bulk-binding-in-scopes!)" -"(lambda(scopes_16 bulk-binding_0)" +"(add-bulk-binding-in-scopes!27.1)" +"(lambda(shadow-except23_0 shadow-except24_0 scopes25_1 bulk-binding26_0)" "(begin" +" 'add-bulk-binding-in-scopes!27" +"(let-values(((scopes_16) scopes25_1))" +"(let-values(((bulk-binding_0) bulk-binding26_0))" +"(let-values(((shadow-except_1)(if shadow-except24_0 shadow-except23_0 #f)))" +"(let-values()" "(let-values(((max-sc_5)(find-max-scope scopes_16)))" -"(let-values(((bt_8)(binding-table-add-bulk(scope-binding-table max-sc_5) scopes_16 bulk-binding_0)))" -"(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))" +"(let-values(((bt_8)" +"(let-values(((temp88_0)(scope-binding-table max-sc_5))" +"((scopes89_0) scopes_16)" +"((bulk-binding90_0) bulk-binding_0)" +"((shadow-except91_0) shadow-except_1))" +"(binding-table-add-bulk9.1 shadow-except91_0 #t temp88_0 scopes89_0 bulk-binding90_0))))" +"(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_140)" +"(lambda(s_139)" "(begin" -"(let-values(((ht_57)(syntax-scopes s_140)))" +"(let-values(((ht_57)(syntax-scopes s_139)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_65)" -"(lambda(result_44 i_72)" +"((letrec-values(((for-loop_64)" +"(lambda(result_44 i_71)" "(begin" " 'for-loop" -"(if i_72" -"(let-values(((sc_21)(unsafe-immutable-hash-iterate-key ht_57 i_72)))" +"(if i_71" +"(let-values(((sc_21)(unsafe-immutable-hash-iterate-key ht_57 i_71)))" "(let-values(((result_45)" "(let-values()" "(let-values(((result_46)" @@ -9231,34 +9722,34 @@ static const char *startup_source = "(let-values()(eq?(scope-kind sc_21) 'macro)))))" "(values result_46)))))" "(if(if(not((lambda x_35 result_45) sc_21))(not #f) #f)" -"(for-loop_65 result_45(unsafe-immutable-hash-iterate-next ht_57 i_72))" +"(for-loop_64 result_45(unsafe-immutable-hash-iterate-next ht_57 i_71))" " result_45)))" " result_44)))))" -" for-loop_65)" +" for-loop_64)" " #f" "(unsafe-immutable-hash-iterate-first ht_57)))))))" "(define-values" -"(resolve33.1)" -"(lambda(ambiguous-value23_0" -" ambiguous-value27_0" -" exactly?24_0" -" exactly?28_0" -" extra-shifts26_0" -" extra-shifts30_0" -" get-scopes?25_0" -" get-scopes?29_0" -" s31_1" -" phase32_0)" +"(resolve40.1)" +"(lambda(ambiguous-value30_0" +" ambiguous-value34_0" +" exactly?31_0" +" exactly?35_0" +" extra-shifts33_0" +" extra-shifts37_0" +" get-scopes?32_0" +" get-scopes?36_0" +" s38_0" +" phase39_0)" "(begin" -" 'resolve33" -"(let-values(((s_141) s31_1))" -"(let-values(((phase_9) phase32_0))" -"(let-values(((ambiguous-value_0)(if ambiguous-value27_0 ambiguous-value23_0 #f)))" -"(let-values(((exactly?_0)(if exactly?28_0 exactly?24_0 #f)))" -"(let-values(((get-scopes?_0)(if get-scopes?29_0 get-scopes?25_0 #f)))" -"(let-values(((extra-shifts_2)(if extra-shifts30_0 extra-shifts26_0 null)))" +" 'resolve40" +"(let-values(((s_140) s38_0))" +"(let-values(((phase_13) phase39_0))" +"(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" +"(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" +"(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" +"(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_12)(syntax-content s_141)))" +"(let-values(((sym_15)(syntax-content s_140)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -9267,27 +9758,27 @@ static const char *startup_source = "(if(not exactly?_0)" "(if(not get-scopes?_0)" "(resolve-cache-get" -" sym_12" -" phase_9" -"(syntax-scopes s_141)" +" sym_15" +" phase_13" +"(syntax-scopes s_140)" "(fallback-first smss_25))" " #f)" " #f)))" "(if c1_21" -"((lambda(b_24)" -"(if(eq? b_24 '#:none)" +"((lambda(b_39)" +"(if(eq? b_39 '#:none)" "(let-values()" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))" -"(let-values() b_24)))" +"(let-values() b_39)))" " c1_21)" "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_141" +" s_140" "(fallback-first smss_25)" -" phase_9)))" +" phase_13)))" "(let-values(((best-scopes_0 best-binding_0)" "(let-values(((ht_58) scopes_17))" "(begin" @@ -9296,93 +9787,93 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_66)" +"((letrec-values(((for-loop_65)" "(lambda(best-scopes_1" " best-binding_1" -" i_73)" +" i_72)" "(begin" " 'for-loop" -"(if i_73" +"(if i_72" "(let-values(((sc_22)" "(unsafe-immutable-hash-iterate-key" " ht_58" -" i_73)))" +" i_72)))" "(let-values(((best-scopes_2" " best-binding_2)" "(let-values(((ht_59" " bulk-bindings_2)" -"(let-values(((table_73)" +"(let-values(((table_75)" "(scope-binding-table" " sc_22)))" "(if(hash?" -" table_73)" +" table_75)" "(values" "(hash-ref" -" table_73" -" sym_12" +" table_75" +" sym_15" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_73)" -" sym_12" +" table_75)" +" sym_15" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_73)))))" -"((s_142)" -" s_141)" +" table_75)))))" +"((s_141)" +" s_140)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_67)" +"((letrec-values(((for-loop_66)" "(lambda(best-scopes_3" " best-binding_3" -" i_74)" +" i_73)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_74))" +" i_73))" "(let-values(((b-scopes_0)" "(if(pair?" -" i_74)" +" i_73)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_74)))" +" i_73)))" "(let-values()" "(hash-iterate-key" " ht_59" -" i_74))))" +" i_73))))" "((binding_5)" "(if(pair?" -" i_74)" +" i_73)" "(let-values()" "(let-values(((bulk_3)" "(bulk-binding-at-bulk" "(car" -" i_74))))" +" i_73))))" "(let-values(((b-info_0)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_142" +" s_141" " extra-shifts_3)" -" sym_12" +" sym_15" " #f)))" "(if b-info_0" "((bulk-binding-create" " bulk_3)" " bulk_3" " b-info_0" -" sym_12)" +" sym_15)" " #f))))" "(let-values()" "(hash-iterate-value" " ht_59" -" i_74)))))" +" i_73)))))" "(let-values(((best-scopes_4" " best-binding_4)" "(let-values(((best-scopes_5)" @@ -9415,7 +9906,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_47)))" -"((letrec-values(((for-loop_68)" +"((letrec-values(((for-loop_67)" "(lambda(result_47" " lst_48)" "(begin" @@ -9446,12 +9937,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_68" +"(for-loop_67" " result_48" " rest_20)" " result_48)))" " result_47)))))" -" for-loop_68)" +" for-loop_67)" " #t" " lst_47)))" "(let-values()" @@ -9498,19 +9989,19 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_67" +"(for-loop_66" " best-scopes_4" " best-binding_4" "(if(pair?" -" i_74)" +" i_73)" "(let-values()" "(cdr" -" i_74))" +" i_73))" "(let-values()" "(let-values(((or-part_129)" "(hash-iterate-next" " ht_59" -" i_74)))" +" i_73)))" "(if or-part_129" " or-part_129" " bulk-bindings_2)))))" @@ -9520,7 +10011,7 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_67)" +" for-loop_66)" " best-scopes_1" " best-binding_1" "(let-values(((or-part_130)" @@ -9530,19 +10021,19 @@ static const char *startup_source = " or-part_130" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_66" +"(for-loop_65" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" " ht_58" -" i_73))" +" i_72))" "(values" " best-scopes_2" " best-binding_2))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_66)" +" for-loop_65)" " #f" " #f" "(unsafe-immutable-hash-iterate-first ht_58))))))" @@ -9555,9 +10046,9 @@ static const char *startup_source = "(let-values()" "(begin" "(resolve-cache-set!" -" sym_12" -" phase_9" -"(syntax-scopes s_141)" +" sym_15" +" phase_13" +"(syntax-scopes s_140)" "(fallback-first smss_25)" " best-binding_0)" "(if(let-values(((or-part_131)(not exactly?_0)))" @@ -9571,23 +10062,23 @@ static const char *startup_source = "(let-values()" "(begin" "(resolve-cache-set!" -" sym_12" -" phase_9" -"(syntax-scopes s_141)" +" sym_15" +" phase_13" +"(syntax-scopes s_140)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_141)))))))))))))" +"(syntax-shifted-multi-scopes s_140)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_32 b_25 phase_10)" +"(lambda(a_32 b_40 phase_14)" "(begin" " 'bound-identifier=?" -"(if(eq?(syntax-e$1 a_32)(syntax-e$1 b_25))" -"(equal?(syntax-scope-set a_32 phase_10)(syntax-scope-set b_25 phase_10))" +"(if(eq?(syntax-e$1 a_32)(syntax-e$1 b_40))" +"(equal?(syntax-scope-set a_32 phase_14)(syntax-scope-set b_40 phase_14))" " #f))))" "(define-values" "(syntax-property$1)" @@ -9619,12 +10110,12 @@ static const char *startup_source = " props1_0" "(syntax-inspector the-struct_28)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_28))))))" -"((s_143 key_28 val_18 preserved?_0)" +"((s_142 key_28 val_18 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_143)" +"(if(syntax?$1 s_142)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_143)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_142)))" "(values))))" "(let-values((()" "(begin" @@ -9643,9 +10134,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_18) val_18)))" -"(let-values(((the-struct_29) s_143))" +"(let-values(((the-struct_29) s_142))" "(if(syntax?$1 the-struct_29)" -"(let-values(((props2_0)(hash-set(syntax-props s_143) key_28 pval_1)))" +"(let-values(((props2_0)(hash-set(syntax-props s_142) key_28 pval_1)))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -9658,34 +10149,34 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29)))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_144 key_29)" +"(lambda(s_143 key_29)" "(begin" " 'syntax-property-preserved?" "(begin" -" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_144)))" +" (if (syntax?$1 s_143) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_143)))" "(if(if(symbol? key_29)(symbol-interned? key_29) #f)" "(void)" " (let-values () (raise-argument-error 'syntax-property \"(and/c symbol? symbol-interned?)\" key_29)))" -"(preserved-property-value?(hash-ref(syntax-props s_144) key_29 #f))))))" +"(preserved-property-value?(hash-ref(syntax-props s_143) key_29 #f))))))" "(define-values" "(1/syntax-property-symbol-keys)" -"(lambda(s_145)" +"(lambda(s_144)" "(begin" " 'syntax-property-symbol-keys" "(begin" -" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_145)))" +" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_144)))" "(reverse$1" -"(let-values(((ht_60)(syntax-props s_145)))" +"(let-values(((ht_60)(syntax-props s_144)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_60)))" -"((letrec-values(((for-loop_69)" -"(lambda(fold-var_30 i_75)" +"((letrec-values(((for-loop_68)" +"(lambda(fold-var_30 i_74)" "(begin" " 'for-loop" -"(if i_75" -"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_60 i_75)))" +"(if i_74" +"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_60 i_74)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -9696,20 +10187,20 @@ static const char *startup_source = "(values fold-var_34)))" " fold-var_32))))" "(if(not #f)" -"(for-loop_69 fold-var_31(unsafe-immutable-hash-iterate-next ht_60 i_75))" +"(for-loop_68 fold-var_31(unsafe-immutable-hash-iterate-next ht_60 i_74))" " fold-var_31)))" " fold-var_30)))))" -" for-loop_69)" +" for-loop_68)" " null" "(unsafe-immutable-hash-iterate-first ht_60)))))))))" "(define-values" "(syntax-property-remove)" -"(lambda(s_70 key_30)" +"(lambda(s_69 key_30)" "(begin" -"(if(hash-ref(syntax-props s_70) key_30 #f)" -"(let-values(((the-struct_30) s_70))" +"(if(hash-ref(syntax-props s_69) key_30 #f)" +"(let-values(((the-struct_30) s_69))" "(if(syntax?$1 the-struct_30)" -"(let-values(((props3_0)(hash-remove(syntax-props s_70) key_30)))" +"(let-values(((props3_0)(hash-remove(syntax-props s_69) key_30)))" "(syntax1.1" "(syntax-content the-struct_30)" "(syntax-scopes the-struct_30)" @@ -9720,416 +10211,7 @@ static const char *startup_source = " props3_0" "(syntax-inspector the-struct_30)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_30)))" -" s_70))))" -"(define-values" -"(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'full-binding" -" #f" -" 2" -" 0" -" #f" -"(list" -"(cons prop:authentic #t)" -"(cons prop:binding-reach-scopes(lambda(b_26)(binding-free=id b_26))))" -"(current-inspector)" -" #f" -" '(0 1)" -" #f" -" 'full-binding)))))" -"(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'frame-id)" -"(make-struct-field-accessor -ref_0 1 'free=id))))" -"(define-values(binding-frame-id)(lambda(b_27)(begin(if(full-binding? b_27)(full-binding-frame-id b_27) #f))))" -"(define-values(binding-free=id)(lambda(b_11)(begin(if(full-binding? b_11)(full-binding-free=id b_11) #f))))" -"(define-values" -"(make-module-binding22.1)" -"(lambda(extra-inspector8_0" -" extra-inspector17_0" -" extra-nominal-bindings9_0" -" extra-nominal-bindings18_0" -" frame-id6_0" -" frame-id15_0" -" free=id7_0" -" free=id16_0" -" nominal-module2_0" -" nominal-module11_0" -" nominal-phase3_0" -" nominal-phase12_0" -" nominal-require-phase5_0" -" nominal-require-phase14_0" -" nominal-sym4_0" -" nominal-sym13_0" -" wrt1_0" -" wrt10_0" -" module19_0" -" phase20_0" -" sym21_0)" -"(begin" -" 'make-module-binding22" -"(let-values(((module_0) module19_0))" -"(let-values(((phase_11) phase20_0))" -"(let-values(((sym_13) sym21_0))" -"(let-values()" -"(let-values(((nominal-module_0)(if nominal-module11_0 nominal-module2_0 module_0)))" -"(let-values(((nominal-phase_0)(if nominal-phase12_0 nominal-phase3_0 phase_11)))" -"(let-values(((nominal-sym_0)(if nominal-sym13_0 nominal-sym4_0 sym_13)))" -"(let-values(((nominal-require-phase_0)(if nominal-require-phase14_0 nominal-require-phase5_0 0)))" -"(let-values(((frame-id_0)(if frame-id15_0 frame-id6_0 #f)))" -"(let-values(((free=id_0)(if free=id16_0 free=id7_0 #f)))" -"(let-values(((extra-inspector_0)(if extra-inspector17_0 extra-inspector8_0 #f)))" -"(let-values(((extra-nominal-bindings_0)" -"(if extra-nominal-bindings18_0 extra-nominal-bindings9_0 null)))" -"(let-values()" -"(if(let-values(((or-part_29) frame-id_0))" -"(if or-part_29" -" or-part_29" -"(let-values(((or-part_78) free=id_0))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79) extra-inspector_0))" -"(if or-part_79" -" or-part_79" -"(not" -"(if(eqv? nominal-phase_0 phase_11)" -"(if(eq? nominal-sym_0 sym_13)" -"(if(eqv? nominal-require-phase_0 0)" -"(null? extra-nominal-bindings_0)" -" #f)" -" #f)" -" #f))))))))" -"(let-values()" -"(full-module-binding51.1" -" frame-id_0" -" free=id_0" -" module_0" -" phase_11" -" sym_13" -" nominal-module_0" -" nominal-phase_0" -" nominal-sym_0" -" nominal-require-phase_0" -" extra-inspector_0" -" extra-nominal-bindings_0))" -"(let-values()" -"(simple-module-binding52.1" -" module_0" -" phase_11" -" sym_13" -" nominal-module_0)))))))))))))))))))" -"(define-values" -"(module-binding-update48.1)" -"(lambda(extra-inspector34_0" -" extra-inspector45_0" -" extra-nominal-bindings35_0" -" extra-nominal-bindings46_0" -" frame-id32_0" -" frame-id43_0" -" free=id33_0" -" free=id44_0" -" module25_0" -" module36_0" -" nominal-module28_0" -" nominal-module39_0" -" nominal-phase29_0" -" nominal-phase40_0" -" nominal-require-phase31_0" -" nominal-require-phase42_0" -" nominal-sym30_0" -" nominal-sym41_0" -" phase26_0" -" phase37_0" -" sym27_0" -" sym38_0" -" b47_0)" -"(begin" -" 'module-binding-update48" -"(let-values(((b_28) b47_0))" -"(let-values(((module_1)(if module36_0 module25_0(module-binding-module b_28))))" -"(let-values(((phase_12)(if phase37_0 phase26_0(module-binding-phase b_28))))" -"(let-values(((sym_14)(if sym38_0 sym27_0(module-binding-sym b_28))))" -"(let-values(((nominal-module_1)" -"(if nominal-module39_0 nominal-module28_0(module-binding-nominal-module b_28))))" -"(let-values(((nominal-phase_1)" -"(if nominal-phase40_0 nominal-phase29_0(module-binding-nominal-phase b_28))))" -"(let-values(((nominal-sym_1)(if nominal-sym41_0 nominal-sym30_0(module-binding-nominal-sym b_28))))" -"(let-values(((nominal-require-phase_1)" -"(if nominal-require-phase42_0" -" nominal-require-phase31_0" -"(module-binding-nominal-require-phase b_28))))" -"(let-values(((frame-id_1)(if frame-id43_0 frame-id32_0(binding-frame-id b_28))))" -"(let-values(((free=id_1)(if free=id44_0 free=id33_0(binding-free=id b_28))))" -"(let-values(((extra-inspector_1)" -"(if extra-inspector45_0" -" extra-inspector34_0" -"(module-binding-extra-inspector b_28))))" -"(let-values(((extra-nominal-bindings_1)" -"(if extra-nominal-bindings46_0" -" extra-nominal-bindings35_0" -"(module-binding-extra-nominal-bindings b_28))))" -"(let-values()" -"(let-values(((module53_0) module_1)" -"((phase54_0) phase_12)" -"((sym55_0) sym_14)" -"((nominal-module56_0) nominal-module_1)" -"((nominal-phase57_0) nominal-phase_1)" -"((nominal-sym58_0) nominal-sym_1)" -"((nominal-require-phase59_0) nominal-require-phase_1)" -"((frame-id60_0) frame-id_1)" -"((free=id61_0) free=id_1)" -"((extra-inspector62_0) extra-inspector_1)" -"((extra-nominal-bindings63_0) extra-nominal-bindings_1))" -"(make-module-binding22.1" -" extra-inspector62_0" -" #t" -" extra-nominal-bindings63_0" -" #t" -" frame-id60_0" -" #t" -" free=id61_0" -" #t" -" nominal-module56_0" -" #t" -" nominal-phase57_0" -" #t" -" nominal-require-phase59_0" -" #t" -" nominal-sym58_0" -" #t" -" #f" -" #f" -" module53_0" -" phase54_0" -" sym55_0))))))))))))))))))" -"(define-values" -"(module-binding?)" -"(lambda(b_29)" -"(begin" -"(let-values(((or-part_89)(simple-module-binding? b_29)))" -"(if or-part_89 or-part_89(full-module-binding? b_29))))))" -"(define-values" -"(struct:full-module-binding" -" full-module-binding51.1" -" full-module-binding?" -" full-module-binding-module" -" full-module-binding-phase" -" full-module-binding-sym" -" full-module-binding-nominal-module" -" full-module-binding-nominal-phase" -" full-module-binding-nominal-sym" -" full-module-binding-nominal-require-phase" -" full-module-binding-extra-inspector" -" full-module-binding-extra-nominal-bindings)" -"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'full-module-binding" -" struct:full-binding" -" 9" -" 0" -" #f" -"(list" -"(cons prop:authentic #t)" -"(cons" -" prop:serialize" -"(lambda(b_30 ser-push!_10 state_18)" -"(let-values(((simplified-b_0)" -"(if(full-binding-frame-id b_30)" -"(let-values(((b65_0) b_30)((temp66_0) #f))" -"(module-binding-update48.1" -" #f" -" #f" -" #f" -" #f" -" temp66_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" b65_0))" -" b_30)))" -"(if(full-module-binding? simplified-b_0)" -"(let-values()" -"(begin" -"(ser-push!_10 'tag '#:module-binding)" -"(ser-push!_10(full-module-binding-module b_30))" -"(ser-push!_10(full-module-binding-sym b_30))" -"(ser-push!_10(full-module-binding-phase b_30))" -"(ser-push!_10(full-module-binding-nominal-module b_30))" -"(ser-push!_10(full-module-binding-nominal-phase b_30))" -"(ser-push!_10(full-module-binding-nominal-sym b_30))" -"(ser-push!_10(full-module-binding-nominal-require-phase b_30))" -"(ser-push!_10(full-binding-free=id b_30))" -"(if(full-module-binding-extra-inspector b_30)" -"(ser-push!_10 'tag '#:inspector)" -"(ser-push!_10 #f))" -"(ser-push!_10(full-module-binding-extra-nominal-bindings b_30))))" -"(let-values()(ser-push!_10 simplified-b_0)))))))" -" #f" -" #f" -" '(0 1 2 3 4 5 6 7 8)" -" #f" -" 'full-module-binding)))))" -"(values" -" struct:_25" -" make-_25" -" ?_25" -"(make-struct-field-accessor -ref_25 0 'module)" -"(make-struct-field-accessor -ref_25 1 'phase)" -"(make-struct-field-accessor -ref_25 2 'sym)" -"(make-struct-field-accessor -ref_25 3 'nominal-module)" -"(make-struct-field-accessor -ref_25 4 'nominal-phase)" -"(make-struct-field-accessor -ref_25 5 'nominal-sym)" -"(make-struct-field-accessor -ref_25 6 'nominal-require-phase)" -"(make-struct-field-accessor -ref_25 7 'extra-inspector)" -"(make-struct-field-accessor -ref_25 8 'extra-nominal-bindings))))" -"(define-values" -"(struct:simple-module-binding" -" simple-module-binding52.1" -" simple-module-binding?" -" simple-module-binding-module" -" simple-module-binding-phase" -" simple-module-binding-sym" -" simple-module-binding-nominal-module)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'simple-module-binding" -" #f" -" 4" -" 0" -" #f" -"(list" -"(cons prop:authentic #t)" -"(cons" -" prop:serialize" -"(lambda(b_31 ser-push!_11 state_19)" -"(begin" -"(ser-push!_11 'tag '#:simple-module-binding)" -"(ser-push!_11(simple-module-binding-module b_31))" -"(ser-push!_11(simple-module-binding-sym b_31))" -"(ser-push!_11(simple-module-binding-phase b_31))" -"(ser-push!_11(simple-module-binding-nominal-module b_31))))))" -" #f" -" #f" -" '(0 1 2 3)" -" #f" -" 'simple-module-binding)))))" -"(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'module)" -"(make-struct-field-accessor -ref_26 1 'phase)" -"(make-struct-field-accessor -ref_26 2 'sym)" -"(make-struct-field-accessor -ref_26 3 'nominal-module))))" -"(define-values" -"(deserialize-full-module-binding)" -"(lambda(module_2" -" sym_15" -" phase_13" -" nominal-module_2" -" nominal-phase_2" -" nominal-sym_2" -" nominal-require-phase_2" -" free=id_2" -" extra-inspector_2" -" extra-nominal-bindings_2)" -"(begin" -"(let-values(((module68_0) module_2)" -"((phase69_0) phase_13)" -"((sym70_0) sym_15)" -"((nominal-module71_0) nominal-module_2)" -"((nominal-phase72_0) nominal-phase_2)" -"((nominal-sym73_0) nominal-sym_2)" -"((nominal-require-phase74_0) nominal-require-phase_2)" -"((free=id75_0) free=id_2)" -"((extra-inspector76_0) extra-inspector_2)" -"((extra-nominal-bindings77_0) extra-nominal-bindings_2))" -"(make-module-binding22.1" -" extra-inspector76_0" -" #t" -" extra-nominal-bindings77_0" -" #t" -" #f" -" #f" -" free=id75_0" -" #t" -" nominal-module71_0" -" #t" -" nominal-phase72_0" -" #t" -" nominal-require-phase74_0" -" #t" -" nominal-sym73_0" -" #t" -" #f" -" #f" -" module68_0" -" phase69_0" -" sym70_0)))))" -"(define-values" -"(deserialize-simple-module-binding)" -"(lambda(module_3 sym_16 phase_14 nominal-module_3)" -"(begin(simple-module-binding52.1 module_3 phase_14 sym_16 nominal-module_3))))" -"(define-values" -"(module-binding-module)" -"(lambda(b_32)" -"(begin(if(simple-module-binding? b_32)(simple-module-binding-module b_32)(full-module-binding-module b_32)))))" -"(define-values" -"(module-binding-phase)" -"(lambda(b_33)" -"(begin(if(simple-module-binding? b_33)(simple-module-binding-phase b_33)(full-module-binding-phase b_33)))))" -"(define-values" -"(module-binding-sym)" -"(lambda(b_34)" -"(begin(if(simple-module-binding? b_34)(simple-module-binding-sym b_34)(full-module-binding-sym b_34)))))" -"(define-values" -"(module-binding-nominal-module)" -"(lambda(b_35)" -"(begin" -"(if(simple-module-binding? b_35)" -"(simple-module-binding-nominal-module b_35)" -"(full-module-binding-nominal-module b_35)))))" -"(define-values" -"(module-binding-nominal-phase)" -"(lambda(b_36)" -"(begin" -"(if(simple-module-binding? b_36)(simple-module-binding-phase b_36)(full-module-binding-nominal-phase b_36)))))" -"(define-values" -"(module-binding-nominal-sym)" -"(lambda(b_37)" -"(begin(if(simple-module-binding? b_37)(simple-module-binding-sym b_37)(full-module-binding-nominal-sym b_37)))))" -"(define-values" -"(module-binding-nominal-require-phase)" -"(lambda(b_38)(begin(if(simple-module-binding? b_38) 0(full-module-binding-nominal-require-phase b_38)))))" -"(define-values" -"(module-binding-extra-inspector)" -"(lambda(b_39)(begin(if(simple-module-binding? b_39) #f(full-module-binding-extra-inspector b_39)))))" -"(define-values" -"(module-binding-extra-nominal-bindings)" -"(lambda(b_40)(begin(if(simple-module-binding? b_40) null(full-module-binding-extra-nominal-bindings b_40)))))" +" s_69))))" "(define-values" "(local-binding?)" "(lambda(b_41)" @@ -10430,16 +10512,16 @@ static const char *startup_source = " (let-values () (error \"bad binding for free=id:\" b_49)))))))" "(define-values" "(struct:non-source-shift non-source-shift7.1 non-source-shift? non-source-shift-from non-source-shift-to)" -"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" +"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" "(let-values()" "(let-values()" "(make-struct-type 'non-source-shift #f 2 0 #f null 'prefab #f '(0 1) #f 'non-source-shift)))))" "(values" -" struct:_29" -" make-_29" -" ?_29" -"(make-struct-field-accessor -ref_29 0 'from)" -"(make-struct-field-accessor -ref_29 1 'to))))" +" struct:_19" +" make-_19" +" ?_19" +"(make-struct-field-accessor -ref_19 0 'from)" +"(make-struct-field-accessor -ref_19 1 'to))))" "(define-values(shift-from)(lambda(s_17)(begin(if(pair? s_17)(car s_17)(non-source-shift-from s_17)))))" "(define-values(shift-to)(lambda(s_18)(begin(if(pair? s_18)(cdr s_18)(non-source-shift-to s_18)))))" "(define-values" @@ -10463,14 +10545,14 @@ static const char *startup_source = "(let-values(((the-struct_31) s_24))" "(if(syntax?$1 the-struct_31)" "(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_24)))" -"((inspector71_1)" +"((inspector71_0)" "(let-values(((or-part_132)(syntax-inspector s_24)))" "(if or-part_132 or-part_132 inspector_3)))" "((scope-propagations+tamper72_0)" "(if(datum-has-elements?(syntax-content s_24))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_24)" -"(lambda(s_146)(cons shift_0 s_146))" +"(lambda(s_145)(cons shift_0 s_145))" " inspector_3" "(syntax-scopes s_24)" "(syntax-shifted-multi-scopes s_24)" @@ -10484,14 +10566,14 @@ static const char *startup_source = " mpi-shifts70_0" "(syntax-srcloc the-struct_31)" "(syntax-props the-struct_31)" -" inspector71_1))" +" inspector71_0))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_31)))))))))))))))" "(define-values" "(resolve+shift30.1)" "(lambda(ambiguous-value18_0" -" ambiguous-value23_1" +" ambiguous-value23_0" " exactly?19_0" -" exactly?24_1" +" exactly?24_0" " extra-shifts22_0" " extra-shifts27_0" " immediate?20_0" @@ -10502,21 +10584,21 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_147) s28_1))" +"(let-values(((s_146) s28_1))" "(let-values(((phase_20) phase29_0))" -"(let-values(((ambiguous-value_1)(if ambiguous-value23_1 ambiguous-value18_0 #f)))" -"(let-values(((exactly?_1)(if exactly?24_1 exactly?19_0 #f)))" +"(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" +"(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" "(let-values(((immediate?_0)(if immediate?25_0 immediate?20_0 exactly?_1)))" "(let-values(((unbound-sym?_0)(if unbound-sym?26_0 unbound-sym?21_0 #f)))" -"(let-values(((extra-shifts_1)(if extra-shifts27_0 extra-shifts22_0 null)))" +"(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_147)" +"(let-values(((s73_0) s_146)" "((phase74_0) phase_20)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" -"((extra-shifts77_0) extra-shifts_1))" -"(resolve33.1" +"((extra-shifts77_0) extra-shifts_4))" +"(resolve40.1" " ambiguous-value75_0" " #t" " exactly?76_0" @@ -10533,7 +10615,7 @@ static const char *startup_source = " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_20)" -"((temp80_0)(append extra-shifts_1(syntax-mpi-shifts s_147)))" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_146)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10553,7 +10635,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_147)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_146)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10578,10 +10660,10 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_147))" +"((s90_0) s_146))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" -"((temp88_0)" +"((temp88_1)" "(reverse$1" "(let-values(((lst_49)" "(module-binding-extra-nominal-bindings" @@ -10591,7 +10673,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_49)))" -"((letrec-values(((for-loop_70)" +"((letrec-values(((for-loop_69)" "(lambda(fold-var_35 lst_50)" "(begin" " 'for-loop" @@ -10616,18 +10698,18 @@ static const char *startup_source = "(values" " fold-var_38)))))" "(if(not #f)" -"(for-loop_70" +"(for-loop_69" " fold-var_36" " rest_21)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_70)" +" for-loop_69)" " null" " lst_49))))))" "(module-binding-update48.1" " #f" " #f" -" temp88_0" +" temp88_1" " #t" " #f" " #f" @@ -10649,7 +10731,7 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_147))" +"(let-values()(syntax-e$1 s_146))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" @@ -10687,12 +10769,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_51)))" -"((letrec-values(((for-loop_71)" +"((letrec-values(((for-loop_70)" "(lambda(fold-var_39 lst_52)" "(begin" " 'for-loop" "(if(pair? lst_52)" -"(let-values(((b_54)(unsafe-car lst_52))" +"(let-values(((b_37)(unsafe-car lst_52))" "((rest_22)(unsafe-cdr lst_52)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41) fold-var_39))" @@ -10701,14 +10783,14 @@ static const char *startup_source = "(cons" "(let-values()" "(binding-module-path-index-shift" -" b_54" +" b_37" " from-mpi_2" " to-mpi_2))" " fold-var_41))))" "(values fold-var_42)))))" -"(if(not #f)(for-loop_71 fold-var_40 rest_22) fold-var_40)))" +"(if(not #f)(for-loop_70 fold-var_40 rest_22) fold-var_40)))" " fold-var_39)))))" -" for-loop_71)" +" for-loop_70)" " null" " lst_51))))))" "(module-binding-update48.1" @@ -10758,25 +10840,25 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_72)" +"((letrec-values(((for-loop_71)" "(lambda(s_39 lst_54 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_54) #t #f)" "(let-values(((shift_3)(unsafe-car lst_54))" "((rest_23)(unsafe-cdr lst_54))" -"((i_76) pos_9))" -"(let-values(((s_148)" -"(let-values(((s_149) s_39))" -"(let-values(((s_150)" +"((i_75) pos_9))" +"(let-values(((s_147)" +"(let-values(((s_148) s_39))" +"(let-values(((s_149)" "(let-values()" -"(let-values(((s95_0) s_149)" +"(let-values(((s95_0) s_148)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_76)" +"(if(zero? i_75)" " inspector_4" " #f))" "((non-source?99_0)" @@ -10789,31 +10871,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_150)))))" -"(if(not #f)(for-loop_72 s_148 rest_23(+ pos_9 1)) s_148)))" +"(values s_149)))))" +"(if(not #f)(for-loop_71 s_147 rest_23(+ pos_9 1)) s_147)))" " s_39)))))" -" for-loop_72)" +" for-loop_71)" " to-s_0" " lst_53" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_151 insp_3)" +"(lambda(s_150 insp_3)" "(begin" -"(let-values(((the-struct_32) s_151))" +"(let-values(((the-struct_32) s_150))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_133)(syntax-inspector s_151)))(if or-part_133 or-part_133 insp_3)))" +"(let-values(((or-part_133)(syntax-inspector s_150)))(if or-part_133 or-part_133 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_151))" +"(if(datum-has-elements?(syntax-content s_150))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_151)" +"(syntax-scope-propagations+tamper s_150)" " #f" " insp_3" -"(syntax-scopes s_151)" -"(syntax-shifted-multi-scopes s_151)" -"(syntax-mpi-shifts s_151))" -"(syntax-scope-propagations+tamper s_151))))" +"(syntax-scopes s_150)" +"(syntax-shifted-multi-scopes s_150)" +"(syntax-mpi-shifts s_150))" +"(syntax-scope-propagations+tamper s_150))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -10830,19 +10912,19 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_152) s44_0))" +"(let-values(((s_151) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_152)" +"(if(syntax?$1 s_151)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" -"(let-values(((lst_55)(reverse$1(syntax-mpi-shifts s_152))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_151)))" +"(let-values(((lst_55)(reverse$1(syntax-mpi-shifts s_151))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_55)))" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_72)" "(lambda(result_50 lst_56)" "(begin" " 'for-loop" @@ -10871,7 +10953,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_152))))" +" s_151))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -10882,15 +10964,15 @@ static const char *startup_source = " #f)))))))" "(values result_53)))))))" "(if(if(not((lambda x_37 result_51) shift_4))(not #f) #f)" -"(for-loop_73 result_51 rest_24)" +"(for-loop_72 result_51 rest_24)" " result_51)))" " result_50)))))" -" for-loop_73)" +" for-loop_72)" " #f" " lst_55)))))))))))" "(case-lambda" -"((s_153)(begin 'syntax-source-module(syntax-source-module45_0 s_153 #f #f)))" -"((s_111 source?42_1)(syntax-source-module45_0 s_111 source?42_1 #t)))))" +"((s_152)(begin 'syntax-source-module(syntax-source-module45_0 s_152 #f #f)))" +"((s_110 source?42_1)(syntax-source-module45_0 s_110 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -10915,12 +10997,12 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_154)(begin(hash-ref built-in-symbols s_154 #f))))" +"(define-values(built-in-symbol?)(lambda(s_153)(begin(hash-ref built-in-symbols s_153 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_155)" +"(lambda(s_154)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_155))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_154))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -11018,7 +11100,7 @@ static const char *startup_source = "(begin" " 'provide-binding-to-require-binding11" "(let-values(((binding/p_0) binding/p9_0))" -"(let-values(((sym_17) sym10_0))" +"(let-values(((sym_16) sym10_0))" "(let-values(((self_1) self1_0))" "(let-values(((mpi_13) mpi2_0))" "(let-values(((provide-phase-level_0) provide-phase-level3_0))" @@ -11030,7 +11112,7 @@ static const char *startup_source = "((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_13))" "((mpi19_0) mpi_13)" "((provide-phase-level20_0) provide-phase-level_0)" -"((sym21_1) sym_17)" +"((sym21_1) sym_16)" "((phase-shift22_0) phase-shift_0)" "((temp23_1) #f)" "((temp24_2)" @@ -11076,7 +11158,7 @@ static const char *startup_source = " bulk-binding-bulk-binding-registry" " set-bulk-binding-provides!" " set-bulk-binding-self!)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11088,38 +11170,38 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(b_55 ser-push!_14 reachable-scopes_5)" +"(lambda(b_54 ser-push!_14 reachable-scopes_5)" "(begin" "(ser-push!_14 'tag '#:bulk-binding)" -"(ser-push!_14(bulk-binding-prefix b_55))" -"(ser-push!_14(bulk-binding-excepts b_55))" -"(ser-push!_14(bulk-binding-mpi b_55))" -"(ser-push!_14(bulk-binding-provide-phase-level b_55))" -"(ser-push!_14(bulk-binding-phase-shift b_55))" +"(ser-push!_14(bulk-binding-prefix b_54))" +"(ser-push!_14(bulk-binding-excepts b_54))" +"(ser-push!_14(bulk-binding-mpi b_54))" +"(ser-push!_14(bulk-binding-provide-phase-level b_54))" +"(ser-push!_14(bulk-binding-phase-shift b_54))" "(ser-push!_14 'tag '#:bulk-binding-registry))))" "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_56 mpi-shifts_3)" -"(let-values(((or-part_134)(bulk-binding-provides b_56)))" +"(lambda(b_55 mpi-shifts_3)" +"(let-values(((or-part_134)(bulk-binding-provides b_55)))" "(if or-part_134" " or-part_134" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" -"(apply-syntax-shifts(bulk-binding-mpi b_56) mpi-shifts_3))))" +"(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_56)" +"(if(bulk-binding-bulk-binding-registry b_55)" "(void)" "(let-values()" "(error" " \"namespace mismatch: no bulk-binding registry available:\"" " mod-name_1)))" "(values))))" -"(let-values(((table_74)" +"(let-values(((table_76)" "(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_56))))" -"(let-values(((bulk-provide_0)(hash-ref table_74 mod-name_1 #f)))" +"(bulk-binding-bulk-binding-registry b_55))))" +"(let-values(((bulk-provide_0)(hash-ref table_76 mod-name_1 #f)))" "(let-values((()" "(begin" "(if bulk-provide_0" @@ -11131,14 +11213,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(set-bulk-binding-self! b_56(bulk-provide-self bulk-provide_0))" +"(set-bulk-binding-self! b_55(bulk-provide-self bulk-provide_0))" "(values))))" "(let-values(((provides_0)" "(hash-ref" "(bulk-provide-provides bulk-provide_0)" -"(bulk-binding-provide-phase-level b_56))))" -"(let-values(((excepts_0)(bulk-binding-excepts b_56)))" -"(let-values(((prefix_0)(bulk-binding-prefix b_56)))" +"(bulk-binding-provide-phase-level b_55))))" +"(let-values(((excepts_0)(bulk-binding-excepts b_55)))" +"(let-values(((prefix_0)(bulk-binding-prefix b_55)))" "(let-values(((adjusted-provides_0)" "(if(let-values(((or-part_135) prefix_0))" "(if or-part_135" @@ -11151,21 +11233,21 @@ static const char *startup_source = " excepts_0))" "(let-values() provides_0))))" "(begin" -"(set-bulk-binding-provides! b_56 adjusted-provides_0)" +"(set-bulk-binding-provides! b_55 adjusted-provides_0)" " adjusted-provides_0))))))))))))))" -"(lambda(b_57 binding_8 sym_14)" +"(lambda(b_56 binding_8 sym_1)" "(let-values(((binding27_0) binding_8)" "((temp28_1)" -"(if(bulk-binding-prefix b_57)" +"(if(bulk-binding-prefix b_56)" "(string->symbol" "(substring" -"(symbol->string sym_14)" -"(string-length(symbol->string(bulk-binding-prefix b_57)))))" -" sym_14))" -"((temp29_0)(bulk-binding-self b_57))" -"((temp30_0)(bulk-binding-mpi b_57))" -"((temp31_0)(bulk-binding-provide-phase-level b_57))" -"((temp32_0)(bulk-binding-phase-shift b_57)))" +"(symbol->string sym_1)" +"(string-length(symbol->string(bulk-binding-prefix b_56)))))" +" sym_1))" +"((temp29_0)(bulk-binding-self b_56))" +"((temp30_0)(bulk-binding-mpi b_56))" +"((temp31_0)(bulk-binding-provide-phase-level b_56))" +"((temp32_0)(bulk-binding-phase-shift b_56)))" "(provide-binding-to-require-binding11.1" " temp30_0" " temp32_0" @@ -11179,19 +11261,19 @@ static const char *startup_source = " #f" " 'bulk-binding)))))" "(values" -" struct:_30" -" make-_30" -" ?_30" -"(make-struct-field-accessor -ref_30 0 'provides)" -"(make-struct-field-accessor -ref_30 1 'prefix)" -"(make-struct-field-accessor -ref_30 2 'excepts)" -"(make-struct-field-accessor -ref_30 3 'self)" -"(make-struct-field-accessor -ref_30 4 'mpi)" -"(make-struct-field-accessor -ref_30 5 'provide-phase-level)" -"(make-struct-field-accessor -ref_30 6 'phase-shift)" -"(make-struct-field-accessor -ref_30 7 'bulk-binding-registry)" -"(make-struct-field-mutator -set!_30 0 'provides)" -"(make-struct-field-mutator -set!_30 3 'self))))" +" struct:_29" +" make-_29" +" ?_29" +"(make-struct-field-accessor -ref_29 0 'provides)" +"(make-struct-field-accessor -ref_29 1 'prefix)" +"(make-struct-field-accessor -ref_29 2 'excepts)" +"(make-struct-field-accessor -ref_29 3 'self)" +"(make-struct-field-accessor -ref_29 4 'mpi)" +"(make-struct-field-accessor -ref_29 5 'provide-phase-level)" +"(make-struct-field-accessor -ref_29 6 'phase-shift)" +"(make-struct-field-accessor -ref_29 7 'bulk-binding-registry)" +"(make-struct-field-mutator -set!_29 0 'provides)" +"(make-struct-field-mutator -set!_29 3 'self))))" "(define-values" "(deserialize-bulk-binding)" "(lambda(prefix_1 excepts_1 mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" @@ -11204,18 +11286,18 @@ static const char *startup_source = "(let-values(((ht_61) provides_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" -"((letrec-values(((for-loop_74)" -"(lambda(table_75 i_77)" +"((letrec-values(((for-loop_73)" +"(lambda(table_77 i_76)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((sym_18 val_21)(hash-iterate-key+value ht_61 i_77)))" -"(let-values(((table_76)" -"(let-values(((table_77) table_75))" -"(if(hash-ref excepts_2 sym_18 #f)" -" table_77" -"(let-values(((table_78) table_77))" -"(let-values(((table_33)" +"(if i_76" +"(let-values(((sym_17 val_21)(hash-iterate-key+value ht_61 i_76)))" +"(let-values(((table_78)" +"(let-values(((table_79) table_77))" +"(if(hash-ref excepts_2 sym_17 #f)" +" table_79" +"(let-values(((table_80) table_79))" +"(let-values(((table_81)" "(let-values()" "(let-values(((key_34 val_22)" "(let-values()" @@ -11225,31 +11307,31 @@ static const char *startup_source = "(format" " \"~a~a\"" " prefix_2" -" sym_18))" -" sym_18)" +" sym_17))" +" sym_17)" " val_21))))" -"(hash-set table_78 key_34 val_22)))))" -"(values table_33)))))))" -"(if(not #f)(for-loop_74 table_76(hash-iterate-next ht_61 i_77)) table_76)))" -" table_75)))))" -" for-loop_74)" +"(hash-set table_80 key_34 val_22)))))" +"(values table_81)))))))" +"(if(not #f)(for-loop_73 table_78(hash-iterate-next ht_61 i_76)) table_78)))" +" table_77)))))" +" for-loop_73)" " '#hash()" "(hash-iterate-first ht_61)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" -"(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 'bulk-provide #f 2 0 #f null(current-inspector) #f '(0 1) #f 'bulk-provide)))))" "(values" -" struct:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'self)" -"(make-struct-field-accessor -ref_31 1 'provides))))" +" struct:_30" +" make-_30" +" ?_30" +"(make-struct-field-accessor -ref_30 0 'self)" +"(make-struct-field-accessor -ref_30 1 'provides))))" "(define-values" "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)" -"(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" @@ -11264,7 +11346,7 @@ static const char *startup_source = " '(0)" " #f" " 'bulk-binding-registry)))))" -"(values struct:_32 make-_32 ?_32(make-struct-field-accessor -ref_32 0 'table))))" +"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'table))))" "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))" "(define-values" "(register-bulk-provide!)" @@ -11287,7 +11369,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:_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" @@ -11303,13 +11385,13 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'inner)" -"(make-struct-field-accessor -ref_33 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_33 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_33 3 'frame-id))))" +" 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))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -11450,24 +11532,24 @@ static const char *startup_source = "(let-values(((ht_62)(root-expand-context-defined-syms ctx_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" -"((letrec-values(((for-loop_75)" -"(lambda(table_79 i_78)" +"((letrec-values(((for-loop_74)" +"(lambda(table_82 i_77)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((phase_21 ht_63)(hash-iterate-key+value ht_62 i_78)))" -"(let-values(((table_34)" -"(let-values(((table_80) table_79))" -"(let-values(((table_81)" +"(if i_77" +"(let-values(((phase_21 ht_63)(hash-iterate-key+value ht_62 i_77)))" +"(let-values(((table_83)" +"(let-values(((table_84) table_82))" +"(let-values(((table_85)" "(let-values()" "(let-values(((key_35 val_23)" "(let-values()" "(values phase_21 ht_63))))" -"(hash-set table_80 key_35 val_23)))))" -"(values table_81)))))" -"(if(not #f)(for-loop_75 table_34(hash-iterate-next ht_62 i_78)) table_34)))" -" table_79)))))" -" for-loop_75)" +"(hash-set table_84 key_35 val_23)))))" +"(values table_85)))))" +"(if(not #f)(for-loop_74 table_83(hash-iterate-next ht_62 i_77)) table_83)))" +" table_82)))))" +" for-loop_74)" " '#hasheqv()" "(hash-iterate-first ht_62))))" "(root-expand-context-frame-id ctx_0)" @@ -11516,15 +11598,15 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" "((letrec-values(((for-loop_8)" -"(lambda(result_30 i_79)" +"(lambda(result_54 i_78)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_64 i_79)))" -"(let-values(((result_54)" -"(let-values()" +"(if i_78" +"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_64 i_78)))" "(let-values(((result_55)" "(let-values()" +"(let-values(((result_56)" +"(let-values()" "(let-values()" "(if(phase? phase_22)" "(if(hash?(syntax-e$1 ht-s_0))" @@ -11534,53 +11616,53 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_76)" -"(lambda(result_56 i_80)" +"((letrec-values(((for-loop_75)" +"(lambda(result_57 i_79)" "(begin" " 'for-loop" -"(if i_80" -"(let-values(((sym_19" +"(if i_79" +"(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" " ht_65" -" i_80)))" -"(let-values(((result_57)" -"(let-values()" +" i_79)))" "(let-values(((result_58)" "(let-values()" +"(let-values(((result_59)" +"(let-values()" "(let-values()" "(if(symbol?" -" sym_19)" +" sym_18)" "(identifier?" " id_8)" " #f)))))" "(values" -" result_58)))))" +" result_59)))))" "(if(if(not" "((lambda x_38" "(not" -" result_57))" -" sym_19" +" result_58))" +" sym_18" " id_8))" "(not #f)" " #f)" -"(for-loop_76" -" result_57" +"(for-loop_75" +" result_58" "(hash-iterate-next" " ht_65" -" i_80))" -" result_57)))" -" result_56)))))" -" for-loop_76)" +" i_79))" +" result_58)))" +" result_57)))))" +" for-loop_75)" " #t" "(hash-iterate-first ht_65))))" " #f)" " #f)))))" -"(values result_55)))))" -"(if(if(not((lambda x_39(not result_54)) phase_22 ht-s_0))(not #f) #f)" -"(for-loop_8 result_54(hash-iterate-next ht_64 i_79))" -" result_54)))" -" result_30)))))" +"(values result_56)))))" +"(if(if(not((lambda x_39(not result_55)) phase_22 ht-s_0))(not #f) #f)" +"(for-loop_8 result_55(hash-iterate-next ht_64 i_78))" +" result_55)))" +" result_54)))))" " for-loop_8)" " #t" "(hash-iterate-first ht_64)))))))" @@ -11592,7 +11674,7 @@ static const char *startup_source = "(lambda(stx_9)(begin(if(syntax?$1 stx_9)(= 1(set-count(syntax-scope-set stx_9 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_10)(begin(let-values(((s_156)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_156))))))" +"(lambda(stx_10)(begin(let-values(((s_155)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_155))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_91)" @@ -11601,15 +11683,15 @@ static const char *startup_source = "(let-values(((ht_66)(syntax-e$1 v_91)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" -"((letrec-values(((for-loop_77)" -"(lambda(table_82 i_81)" +"((letrec-values(((for-loop_76)" +"(lambda(table_86 i_80)" "(begin" " 'for-loop" -"(if i_81" -"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_66 i_81)))" -"(let-values(((table_83)" -"(let-values(((table_84) table_82))" -"(let-values(((table_85)" +"(if i_80" +"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_66 i_80)))" +"(let-values(((table_87)" +"(let-values(((table_88) table_86))" +"(let-values(((table_89)" "(let-values()" "(let-values(((key_36 val_24)" "(let-values()" @@ -11626,51 +11708,51 @@ static const char *startup_source = "(let-values()" "(check-in-hash ht_67)))" "((letrec-values(((for-loop_13)" -"(lambda(table_86" -" i_82)" +"(lambda(table_90" +" i_81)" "(begin" " 'for-loop" -"(if i_82" -"(let-values(((sym_20" +"(if i_81" +"(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" " ht_67" -" i_82)))" -"(let-values(((table_87)" -"(let-values(((table_88)" -" table_86))" -"(let-values(((table_89)" +" i_81)))" +"(let-values(((table_91)" +"(let-values(((table_92)" +" table_90))" +"(let-values(((table_93)" "(let-values()" "(let-values(((key_37" " val_25)" "(let-values()" "(values" -" sym_20" +" sym_19" " id_9))))" "(hash-set" -" table_88" +" table_92" " key_37" " val_25)))))" "(values" -" table_89)))))" +" table_93)))))" "(if(not" " #f)" "(for-loop_13" -" table_87" +" table_91" "(hash-iterate-next" " ht_67" -" i_82))" -" table_87)))" -" table_86)))))" +" i_81))" +" table_91)))" +" table_90)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" " ht_67)))))))))" -"(hash-set table_84 key_36 val_24)))))" -"(values table_85)))))" -"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_66 i_81)) table_83)))" -" table_82)))))" -" for-loop_77)" +"(hash-set table_88 key_36 val_24)))))" +"(values table_89)))))" +"(if(not #f)(for-loop_76 table_87(hash-iterate-next ht_66 i_80)) table_87)))" +" table_86)))))" +" for-loop_76)" " '#hasheqv()" "(hash-iterate-first ht_66))))))))" "(define-values(1/primitive-table) primitive-table)" @@ -11836,16 +11918,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:_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 'definitions #f 2 0 #f null(current-inspector) #f '(0 1) #f 'definitions)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'variables)" -"(make-struct-field-accessor -ref_34 1 'transformers))))" +" struct:_33" +" make-_33" +" ?_33" +"(make-struct-field-accessor -ref_33 0 'variables)" +"(make-struct-field-accessor -ref_33 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace9.1 #f #f #f #f #f #f)))))" "(define-values" "(new-namespace9.1)" @@ -11949,14 +12031,14 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_157)" +"(let-values(((s_156)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" "(let-values(((r_15)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_15) (string-append \"(submod \" s_157 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_157)))))))" +" (if (pair? r_15) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_156)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12143,15 +12225,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_60)))" -"((letrec-values(((for-loop_69)" -"(lambda(new-props_1 i_75)" +"((letrec-values(((for-loop_68)" +"(lambda(new-props_1 i_74)" "(begin" " 'for-loop" -"(if i_75" +"(if i_74" "(let-values(((k_16 v_82)" "(unsafe-immutable-hash-iterate-key+value" " ht_60" -" i_75)))" +" i_74)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12175,14 +12257,14 @@ static const char *startup_source = "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_69" +"(for-loop_68" " new-props_2" "(unsafe-immutable-hash-iterate-next" " ht_60" -" i_75))" +" i_74))" " new-props_2)))" " new-props_1)))))" -" for-loop_69)" +" for-loop_68)" " new-props_0" "(unsafe-immutable-hash-iterate-first ht_60)))))" "(let-values()" @@ -12192,15 +12274,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_68)))" -"((letrec-values(((for-loop_78)" -"(lambda(old-props_1 i_83)" +"((letrec-values(((for-loop_77)" +"(lambda(old-props_1 i_82)" "(begin" " 'for-loop" -"(if i_83" +"(if i_82" "(let-values(((k_17 v_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_68" -" i_83)))" +" i_82)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12224,14 +12306,14 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_78" +"(for-loop_77" " old-props_2" "(unsafe-immutable-hash-iterate-next" " ht_68" -" i_83))" +" i_82))" " old-props_2)))" " old-props_1)))))" -" for-loop_78)" +" for-loop_77)" " old-props-with-origin_0" "(unsafe-immutable-hash-iterate-first ht_68))))))))" "(let-values(((the-struct_37) new-stx_0))" @@ -12255,12 +12337,12 @@ static const char *startup_source = "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" "(define-values" "(cons/preserve)" -"(lambda(a_34 b_58)" +"(lambda(a_34 b_57)" "(begin" "(if(let-values(((or-part_141)(preserved-property-value? a_34)))" -"(if or-part_141 or-part_141(preserved-property-value? b_58)))" -"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_58)))" -"(cons a_34 b_58)))))" +"(if or-part_141 or-part_141(preserved-property-value? b_57)))" +"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_57)))" +"(cons a_34 b_57)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" @@ -12268,7 +12350,7 @@ static const char *startup_source = "(let-values(((lst_57) old-stxes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_57)))" -"((letrec-values(((for-loop_79)" +"((letrec-values(((for-loop_78)" "(lambda(new-stx_4 lst_58)" "(begin" " 'for-loop" @@ -12280,9 +12362,9 @@ static const char *startup_source = "(let-values()" "(syntax-track-origin$1 new-stx_6 old-stx_3))))" "(values new-stx_7)))))" -"(if(not #f)(for-loop_79 new-stx_5 rest_25) new-stx_5)))" +"(if(not #f)(for-loop_78 new-stx_5 rest_25) new-stx_5)))" " new-stx_4)))))" -" for-loop_79)" +" for-loop_78)" " new-stx_3" " lst_57))))))" "(define-values" @@ -12313,7 +12395,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:_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" @@ -12328,7 +12410,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_35 make-_35 ?_35)))" +"(values struct:_34 make-_34 ?_34)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error11_0)" @@ -12495,11 +12577,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_158)" +"(lambda(s_157)" "(begin" -"(if(syntax?$1 s_158)" +"(if(syntax?$1 s_157)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_158)))" +"(let-values(((e_17)(syntax-e$1 s_157)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12508,11 +12590,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_82)" +"(lambda(s_81)" "(begin" -"(if(syntax?$1 s_82)" -"(if(syntax-srcloc s_82)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_82)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_81)" +"(if(syntax-srcloc s_81)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_81)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -12601,7 +12683,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(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" @@ -12617,15 +12699,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_36 1 'module-uses)" -"(make-struct-field-accessor -ref_36 2 'self)" -"(make-struct-field-accessor -ref_36 3 'inspector)" -"(make-struct-field-accessor -ref_36 4 'extra-inspector)" -"(make-struct-field-accessor -ref_36 5 'extra-inspectorsss))))" +" 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))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -12731,7 +12813,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(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" @@ -12747,19 +12829,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'namespace)" -"(make-struct-field-accessor -ref_37 1 'module)" -"(make-struct-field-accessor -ref_37 2 'shifted-requires)" -"(make-struct-field-accessor -ref_37 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_37 4 'made-available?)" -"(make-struct-field-accessor -ref_37 5 'attached?)" -"(make-struct-field-accessor -ref_37 6 'data-box)" -"(make-struct-field-mutator -set!_37 2 'shifted-requires)" -"(make-struct-field-mutator -set!_37 4 'made-available?)" -"(make-struct-field-mutator -set!_37 5 'attached?))))" +" 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?))))" "(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)))))" @@ -13368,7 +13450,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_80)" +"((letrec-values(((for-loop_79)" "(lambda(fold-var_43 lst_60)" "(begin" " 'for-loop" @@ -13398,7 +13480,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_61)))" -"((letrec-values(((for-loop_81)" +"((letrec-values(((for-loop_80)" "(lambda(fold-var_47" " lst_62)" "(begin" @@ -13428,21 +13510,21 @@ static const char *startup_source = " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_81" +"(for-loop_80" " fold-var_48" " rest_27)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_81)" +" for-loop_80)" " null" " lst_61))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" -"(for-loop_80 fold-var_44 rest_26)" +"(for-loop_79 fold-var_44 rest_26)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_80)" +" for-loop_79)" " null" " lst_59)))))))" "(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" @@ -13450,7 +13532,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_63)))" -"((letrec-values(((for-loop_82)" +"((letrec-values(((for-loop_81)" "(lambda(lst_64)" "(begin" " 'for-loop" @@ -13477,7 +13559,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_65)))" -"((letrec-values(((for-loop_83)" +"((letrec-values(((for-loop_82)" "(lambda(lst_66)" "(begin" " 'for-loop" @@ -13530,18 +13612,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_83" +"(for-loop_82" " rest_29)" "(values))))" "(values))))))" -" for-loop_83)" +" for-loop_82)" " lst_65)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_82 rest_28)(values))))" +"(if(not #f)(for-loop_81 rest_28)(values))))" "(values))))))" -" for-loop_82)" +" for-loop_81)" " lst_63)))" "(void)" "(if(label-phase? instance-phase_4)" @@ -13555,7 +13637,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_13 end_9 inc_3)))" -"((letrec-values(((for-loop_84)" +"((letrec-values(((for-loop_83)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -13666,10 +13748,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_84(+ pos_10 inc_3))" +"(for-loop_83(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_84)" +" for-loop_83)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -13732,7 +13814,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_85)" +"((letrec-values(((for-loop_84)" "(lambda(lst_68)" "(begin" " 'for-loop" @@ -13770,10 +13852,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_85 rest_30)" +"(for-loop_84 rest_30)" "(values))))" "(values))))))" -" for-loop_85)" +" for-loop_84)" " lst_67)))" "(void)" "(loop_75)))))))))" @@ -13845,7 +13927,7 @@ static const char *startup_source = "(let-values(((lst_69) requires_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_85)" "(lambda(fold-var_51 lst_70)" "(begin" " 'for-loop" @@ -13866,7 +13948,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_87)" +"((letrec-values(((for-loop_86)" "(lambda(fold-var_55" " lst_72)" "(begin" @@ -13891,19 +13973,19 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_87" +"(for-loop_86" " fold-var_56" " rest_32)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_87)" +" for-loop_86)" " null" " lst_71))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_86 fold-var_52 rest_31) fold-var_52)))" +"(if(not #f)(for-loop_85 fold-var_52 rest_31) fold-var_52)))" " fold-var_51)))))" -" for-loop_86)" +" for-loop_85)" " null" " lst_69)))))))" "(define-values" @@ -13916,16 +13998,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_69)))" -"((letrec-values(((for-loop_88)" -"(lambda(table_90 i_84)" +"((letrec-values(((for-loop_87)" +"(lambda(table_94 i_83)" "(begin" " 'for-loop" -"(if i_84" +"(if i_83" "(let-values(((phase_30 at-phase_6)" -"(hash-iterate-key+value ht_69 i_84)))" -"(let-values(((table_91)" -"(let-values(((table_92) table_90))" -"(let-values(((table_93)" +"(hash-iterate-key+value ht_69 i_83)))" +"(let-values(((table_95)" +"(let-values(((table_96) table_94))" +"(let-values(((table_97)" "(let-values()" "(let-values(((key_38 val_30)" "(let-values()" @@ -13940,21 +14022,21 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_70)))" -"((letrec-values(((for-loop_89)" -"(lambda(table_94" -" i_85)" +"((letrec-values(((for-loop_88)" +"(lambda(table_98" +" i_84)" "(begin" " 'for-loop" -"(if i_85" -"(let-values(((sym_21" +"(if i_84" +"(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" " ht_70" -" i_85)))" -"(let-values(((table_95)" -"(let-values(((table_96)" -" table_94))" -"(let-values(((table_97)" +" i_84)))" +"(let-values(((table_99)" +"(let-values(((table_100)" +" table_98))" +"(let-values(((table_101)" "(let-values()" "(let-values(((key_39" " val_31)" @@ -13968,34 +14050,34 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_96" +" table_100" " key_39" " val_31)))))" "(values" -" table_97)))))" +" table_101)))))" "(if(not" " #f)" -"(for-loop_89" -" table_95" +"(for-loop_88" +" table_99" "(hash-iterate-next" " ht_70" -" i_85))" -" table_95)))" -" table_94)))))" -" for-loop_89)" +" i_84))" +" table_99)))" +" table_98)))))" +" for-loop_88)" " '#hash()" "(hash-iterate-first" " ht_70))))))))" "(hash-set" -" table_92" +" table_96" " key_38" " val_30)))))" -"(values table_93)))))" +"(values table_97)))))" "(if(not #f)" -"(for-loop_88 table_91(hash-iterate-next ht_69 i_84))" -" table_91)))" -" table_90)))))" -" for-loop_88)" +"(for-loop_87 table_95(hash-iterate-next ht_69 i_83))" +" table_95)))" +" table_94)))))" +" for-loop_87)" " '#hasheqv()" "(hash-iterate-first ht_69))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" @@ -14236,7 +14318,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:_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" @@ -14251,7 +14333,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 0 'proc)))))" +"(values struct:_37 make-_37 ?_37(make-struct-field-accessor -ref_37 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14266,7 +14348,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_93)((set!-transformer-value t_36) t_36)))" -"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_159)(v_93 t_36 s_159)))))))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_158)(v_93 t_36 s_158)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_40 val_19)(begin(hash-set env_0 key_40 val_19))))" "(define-values(variable)(gensym 'variable))" @@ -14321,10 +14403,10 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_160) s_160))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_159) s_159))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" -"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" +"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14340,11 +14422,11 @@ static const char *startup_source = " #f" " 'core-form)))))" "(values" -" struct:_20" -" make-_20" -" ?_20" -"(make-struct-field-accessor -ref_20 0 'expander)" -"(make-struct-field-accessor -ref_20 1 'name))))" +" struct:_22" +" make-_22" +" ?_22" +"(make-struct-field-accessor -ref_22 0 'expander)" +"(make-struct-field-accessor -ref_22 1 'name))))" "(define-values" "(add-binding!17.1)" "(lambda(in10_0 in12_0 just-for-nominal?11_0 just-for-nominal?13_0 id14_0 binding15_0 phase16_0)" @@ -14358,49 +14440,53 @@ static const char *startup_source = "(let-values()" "(begin" "(check-id-taint id_14 in-s_2)" -"(let-values(((temp53_0)(syntax-scope-set id_14 phase_33))" -"((temp54_0)(syntax-e$1 id_14))" -"((binding55_0) binding_9)" -"((just-for-nominal?56_0) just-for-nominal?_2))" -"(add-binding-in-scopes!20.1 just-for-nominal?56_0 #t temp53_0 temp54_0 binding55_0))))))))))))" +"(let-values(((temp55_1)(syntax-scope-set id_14 phase_33))" +"((temp56_0)(syntax-e$1 id_14))" +"((binding57_0) binding_9)" +"((just-for-nominal?58_0) just-for-nominal?_2))" +"(add-binding-in-scopes!20.1 just-for-nominal?58_0 #t temp55_1 temp56_0 binding57_0))))))))))))" "(define-values" -"(add-bulk-binding!25.1)" -"(lambda(in20_0 in21_0 s22_0 binding23_0 phase24_0)" +"(add-bulk-binding!27.1)" +"(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" -" 'add-bulk-binding!25" -"(let-values(((s_29) s22_0))" -"(let-values(((binding_10) binding23_0))" -"(let-values(((phase_34) phase24_0))" -"(let-values(((in-s_3)(if in21_0 in20_0 #f)))" +" 'add-bulk-binding!27" +"(let-values(((s_157) s24_0))" +"(let-values(((binding_10) binding25_0))" +"(let-values(((phase_34) phase26_1))" +"(let-values(((in-s_3)(if in22_0 in20_0 #f)))" +"(let-values(((shadow-except_2)(if shadow-except23_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_29)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_29))" +"(if(syntax-tainted?$1 s_157)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_157))" "(void))" -"(add-bulk-binding-in-scopes!(syntax-scope-set s_29 phase_34) binding_10))))))))))" +"(let-values(((temp59_1)(syntax-scope-set s_157 phase_34))" +"((binding60_0) binding_10)" +"((shadow-except61_0) shadow-except_2))" +"(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" "(define-values" -"(add-local-binding!35.1)" -"(lambda(frame-id28_0 frame-id30_0 in29_0 in31_0 id32_0 phase33_0 counter34_0)" +"(add-local-binding!37.1)" +"(lambda(frame-id30_0 frame-id32_1 in31_0 in33_0 id34_0 phase35_0 counter36_0)" "(begin" -" 'add-local-binding!35" -"(let-values(((id_15) id32_0))" -"(let-values(((phase_35) phase33_0))" -"(let-values(((counter_1) counter34_0))" -"(let-values(((frame-id_5)(if frame-id30_0 frame-id28_0 #f)))" -"(let-values(((in-s_4)(if in31_0 in29_0 #f)))" +" 'add-local-binding!37" +"(let-values(((id_15) id34_0))" +"(let-values(((phase_35) phase35_0))" +"(let-values(((counter_1) counter36_0))" +"(let-values(((frame-id_5)(if frame-id32_1 frame-id30_0 #f)))" +"(let-values(((in-s_4)(if in33_0 in31_0 #f)))" "(let-values()" "(let-values((()(begin(check-id-taint id_15 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_8)" +"(let-values(((key_41)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_15) (unbox counter_1)))))" "(begin" -"(let-values(((temp57_0)(syntax-scope-set id_15 phase_35))" -"((temp58_1)(syntax-e$1 id_15))" -"((temp59_1)" -"(let-values(((key60_0) key_8)((frame-id61_0) frame-id_5))" -"(make-local-binding7.1 frame-id61_0 #t #f #f key60_0))))" -"(add-binding-in-scopes!20.1 #f #f temp57_0 temp58_1 temp59_1))" -" key_8)))))))))))))" +"(let-values(((temp62_0)(syntax-scope-set id_15 phase_35))" +"((temp63_1)(syntax-e$1 id_15))" +"((temp64_1)" +"(let-values(((key65_0) key_41)((frame-id66_0) frame-id_5))" +"(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))" +"(add-binding-in-scopes!20.1 #f #f temp62_0 temp63_1 temp64_1))" +" key_41)))))))))))))" "(define-values" "(check-id-taint)" "(lambda(id_16 in-s_5)" @@ -14409,53 +14495,53 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_16))" "(void)))))" "(define-values" -"(binding-lookup48.1)" -"(lambda(in38_0" -" in40_0" -" out-of-context-as-variable?39_0" +"(binding-lookup50.1)" +"(lambda(in40_0" +" in42_0" " out-of-context-as-variable?41_0" -" b42_0" -" env43_0" -" lift-envs44_0" -" ns45_0" -" phase46_0" -" id47_0)" +" out-of-context-as-variable?43_0" +" b44_0" +" env45_0" +" lift-envs46_0" +" ns47_0" +" phase48_0" +" id49_0)" "(begin" -" 'binding-lookup48" -"(let-values(((b_59) b42_0))" -"(let-values(((env_1) env43_0))" -"(let-values(((lift-envs_0) lift-envs44_0))" -"(let-values(((ns_15) ns45_0))" -"(let-values(((phase_36) phase46_0))" -"(let-values(((id_17) id47_0))" -"(let-values(((in-s_6)(if in40_0 in38_0 #f)))" +" 'binding-lookup50" +"(let-values(((b_58) b44_0))" +"(let-values(((env_1) env45_0))" +"(let-values(((lift-envs_0) lift-envs46_0))" +"(let-values(((ns_44) ns47_0))" +"(let-values(((phase_36) phase48_0))" +"(let-values(((id_17) id49_0))" +"(let-values(((in-s_6)(if in42_0 in40_0 #f)))" "(let-values(((out-of-context-as-variable?_0)" -"(if out-of-context-as-variable?41_0 out-of-context-as-variable?39_0 #f)))" +"(if out-of-context-as-variable?43_0 out-of-context-as-variable?41_0 #f)))" "(let-values()" -"(if(module-binding? b_59)" +"(if(module-binding? b_58)" "(let-values()" -"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_59))))" +"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_58))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_59 ns_15 phase_36 id_17)" +"(binding->module-instance b_58 ns_44 phase_36 id_17)" " #f)))" "(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))" "(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))" "(let-values(((m-ns_7)" "(if top-level?_0" -" ns_15" +" ns_44" "(if mi_15(module-instance-namespace mi_15) #f))))" "(let-values((()(begin(check-taint id_17)(values))))" "(let-values(((t_39)" "(namespace-get-transformer" " m-ns_7" -"(module-binding-phase b_59)" -"(module-binding-sym b_59)" +"(module-binding-phase b_58)" +"(module-binding-sym b_58)" " variable)))" "(let-values(((protected?_1)" "(if mi_15" "(check-access" -" b_59" +" b_58" " mi_15" " id_17" " in-s_6" @@ -14468,9 +14554,9 @@ static const char *startup_source = " #f)" " #f)))" "(values t_39 primitive?_1 insp_6 protected?_1)))))))))))" -"(if(local-binding? b_59)" +"(if(local-binding? b_58)" "(let-values()" -"(let-values(((t_40)(hash-ref env_1(local-binding-key b_59) missing)))" +"(let-values(((t_40)(hash-ref env_1(local-binding-key b_58) missing)))" "(if(eq? t_40 missing)" "(let-values()" "(values" @@ -14480,37 +14566,37 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_90)" -"(lambda(result_59 lst_37)" +"((letrec-values(((for-loop_89)" +"(lambda(result_60 lst_74)" "(begin" " 'for-loop" -"(if(pair? lst_37)" +"(if(pair? lst_74)" "(let-values(((lift-env_0)" -"(unsafe-car lst_37))" +"(unsafe-car lst_74))" "((rest_33)" -"(unsafe-cdr lst_37)))" -"(let-values(((result_60)" -"(let-values()" +"(unsafe-cdr lst_74)))" "(let-values(((result_61)" "(let-values()" +"(let-values(((result_62)" +"(let-values()" "(let-values()" "(hash-ref" "(unbox" " lift-env_0)" "(local-binding-key" -" b_59)" +" b_58)" " #f)))))" "(values" -" result_61)))))" +" result_62)))))" "(if(if(not" -"((lambda x_40 result_60)" +"((lambda x_40 result_61)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_90 result_60 rest_33)" -" result_60)))" -" result_59)))))" -" for-loop_90)" +"(for-loop_89 result_61 rest_33)" +" result_61)))" +" result_60)))))" +" for-loop_89)" " #f" " lst_73)))))" "(if or-part_159" @@ -14522,7 +14608,7 @@ static const char *startup_source = " #f" " #f))" "(let-values()(begin(check-taint id_17)(values t_40 #f #f #f))))))" -" (let-values () (error \"internal error: unknown binding for lookup:\" b_59))))))))))))))))" +" (let-values () (error \"internal error: unknown binding for lookup:\" b_58))))))))))))))))" "(define-values" "(check-taint)" "(lambda(id_18)" @@ -14530,40 +14616,40 @@ static const char *startup_source = "(if(syntax-tainted?$1 id_18)" " (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" "(void)))))" -"(define-values(cons-ish)(lambda(a_36 b_60)(begin(if(null? b_60) a_36(cons a_36 b_60)))))" +"(define-values(cons-ish)(lambda(a_36 b_59)(begin(if(null? b_59) a_36(cons a_36 b_59)))))" "(define-values" "(free-id-set)" "(lambda(phase_37 ids_0)" "(begin" -"(let-values(((lst_74) ids_0))" +"(let-values(((lst_75) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_74)))" -"((letrec-values(((for-loop_91)" -"(lambda(ht_71 lst_75)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" +"((letrec-values(((for-loop_90)" +"(lambda(ht_71 lst_76)" "(begin" " 'for-loop" -"(if(pair? lst_75)" -"(let-values(((id_19)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" +"(if(pair? lst_76)" +"(let-values(((id_19)(unsafe-car lst_76))((rest_34)(unsafe-cdr lst_76)))" "(let-values(((ht_72)" "(let-values(((ht_73) ht_71))" "(let-values(((ht_74)" "(let-values()" -"(let-values(((sym_22)" +"(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_19" " phase_37)))" "(hash-set" " ht_73" -" sym_22" +" sym_21" "(cons-ish" " id_19" -"(hash-ref ht_73 sym_22 null)))))))" +"(hash-ref ht_73 sym_21 null)))))))" "(values ht_74)))))" -"(if(not #f)(for-loop_91 ht_72 rest_34) ht_72)))" +"(if(not #f)(for-loop_90 ht_72 rest_34) ht_72)))" " ht_71)))))" -" for-loop_91)" +" for-loop_90)" " '#hasheq()" -" lst_74))))))" +" lst_75))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" @@ -14572,34 +14658,34 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_76)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_38) null)))" +"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_38) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_92)" -"(lambda(result_3 lst_77)" +"((letrec-values(((for-loop_91)" +"(lambda(result_3 lst_78)" "(begin" " 'for-loop" -"(if(not(null? lst_77))" -"(let-values(((id_20)(if(pair? lst_77)(car lst_77) lst_77))" -"((rest_35)(if(pair? lst_77)(cdr lst_77) null)))" -"(let-values(((result_62)" -"(let-values()" +"(if(not(null? lst_78))" +"(let-values(((id_20)(if(pair? lst_78)(car lst_78) lst_78))" +"((rest_35)(if(pair? lst_78)(cdr lst_78) null)))" "(let-values(((result_63)" "(let-values()" +"(let-values(((result_64)" +"(let-values()" "(let-values()" "(free-identifier=?$1" " id_20" " given-id_0" " phase_38" " phase_38)))))" -"(values result_63)))))" -"(if(if(not((lambda x_41 result_62) id_20))(not #f) #f)" -"(for-loop_92 result_62 rest_35)" -" result_62)))" +"(values result_64)))))" +"(if(if(not((lambda x_41 result_63) id_20))(not #f) #f)" +"(for-loop_91 result_63 rest_35)" +" result_63)))" " result_3)))))" -" for-loop_92)" +" for-loop_91)" " #f" -" lst_76)))))))" +" lst_77)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -14618,7 +14704,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:_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" @@ -14634,20 +14720,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'context)" -"(make-struct-field-accessor -ref_33 1 'env)" -"(make-struct-field-accessor -ref_33 2 'post-expansion-scope-action)" -"(make-struct-field-accessor -ref_33 3 'scopes)" -"(make-struct-field-accessor -ref_33 4 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_33 5 'binding-layer)" -"(make-struct-field-accessor -ref_33 6 'reference-records)" -"(make-struct-field-accessor -ref_33 7 'only-immediate?)" -"(make-struct-field-accessor -ref_33 8 'need-eventually-defined)" -"(make-struct-field-accessor -ref_33 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_33 10 'name))))" +" 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))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -14670,7 +14756,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:_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" @@ -14686,27 +14772,27 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'to-parsed?)" -"(make-struct-field-accessor -ref_39 1 'phase)" -"(make-struct-field-accessor -ref_39 2 'namespace)" -"(make-struct-field-accessor -ref_39 3 'just-once?)" -"(make-struct-field-accessor -ref_39 4 'module-begin-k)" -"(make-struct-field-accessor -ref_39 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_39 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_39 7 'stops)" -"(make-struct-field-accessor -ref_39 8 'declared-submodule-names)" -"(make-struct-field-accessor -ref_39 9 'lifts)" -"(make-struct-field-accessor -ref_39 10 'lift-envs)" -"(make-struct-field-accessor -ref_39 11 'module-lifts)" -"(make-struct-field-accessor -ref_39 12 'require-lifts)" -"(make-struct-field-accessor -ref_39 13 'to-module-lifts)" -"(make-struct-field-accessor -ref_39 14 'requires+provides)" -"(make-struct-field-accessor -ref_39 15 'observer)" -"(make-struct-field-accessor -ref_39 16 'for-serializable?)" -"(make-struct-field-accessor -ref_39 17 'should-not-encounter-macros?))))" +" 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?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" @@ -14868,12 +14954,12 @@ static const char *startup_source = "(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" "(begin" " 'make-expand-context10" -"(let-values(((ns_44) ns9_0))" +"(let-values(((ns_45) ns9_0))" "(let-values(((to-parsed?_1)(if to-parsed?6_0 to-parsed?3_0 #f)))" "(let-values(((for-serializable?_1)(if for-serializable?7_0 for-serializable?4_0 #f)))" "(let-values(((observer_1)(if observer8_0 observer5_0 #f)))" "(let-values()" -"(let-values(((root-ctx_1)(namespace-get-root-expand-ctx ns_44)))" +"(let-values(((root-ctx_1)(namespace-get-root-expand-ctx ns_45)))" "(expand-context/make" "(root-expand-context-self-mpi root-ctx_1)" "(root-expand-context-module-scopes root-ctx_1)" @@ -14887,8 +14973,8 @@ static const char *startup_source = "(root-expand-context-lift-key root-ctx_1)" " to-parsed?_1" " 'top-level" -"(namespace-phase ns_44)" -" ns_44" +"(namespace-phase ns_45)" +" ns_45" " empty-env" " push-scope" " null" @@ -15104,11 +15190,69 @@ static const char *startup_source = "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" "(let-values(((v_128) ctx_5))" -"(let-values(((the-struct_46) v_128))" -"(if(expand-context/outer? the-struct_46)" +"(let-values(((the-struct_2) v_128))" +"(if(expand-context/outer? the-struct_2)" "(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_128)))" "(expand-context/outer1.1" " inner49_0" +"(root-expand-context/outer-post-expansion-scope the-struct_2)" +"(root-expand-context/outer-use-site-scopes the-struct_2)" +"(root-expand-context/outer-frame-id the-struct_2)" +"(expand-context/outer-context the-struct_2)" +"(expand-context/outer-env the-struct_2)" +"(expand-context/outer-post-expansion-scope-action the-struct_2)" +"(expand-context/outer-scopes the-struct_2)" +"(expand-context/outer-def-ctx-scopes the-struct_2)" +"(expand-context/outer-binding-layer the-struct_2)" +"(expand-context/outer-reference-records the-struct_2)" +"(expand-context/outer-only-immediate? the-struct_2)" +"(expand-context/outer-need-eventually-defined the-struct_2)" +"(expand-context/outer-current-introduction-scopes the-struct_2)" +" name48_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_2)))))" +"(let-values() ctx_5)))))" +"(define-values" +"(as-to-parsed-context)" +"(lambda(ctx_6)" +"(begin" +"(let-values(((v_129) ctx_6))" +"(let-values(((the-struct_46) v_129))" +"(if(expand-context/outer? the-struct_46)" +"(let-values(((inner50_0)" +"(let-values(((the-struct_47)(root-expand-context/outer-inner v_129)))" +"(if(expand-context/inner? the-struct_47)" +"(let-values(((to-parsed?51_0) #t)" +"((observer52_0) #f)" +"((should-not-encounter-macros?53_0) #t))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi the-struct_47)" +"(root-expand-context/inner-module-scopes the-struct_47)" +"(root-expand-context/inner-top-level-bind-scope the-struct_47)" +"(root-expand-context/inner-all-scopes-stx the-struct_47)" +"(root-expand-context/inner-defined-syms the-struct_47)" +"(root-expand-context/inner-counter the-struct_47)" +"(root-expand-context/inner-lift-key the-struct_47)" +" to-parsed?51_0" +"(expand-context/inner-phase the-struct_47)" +"(expand-context/inner-namespace the-struct_47)" +"(expand-context/inner-just-once? the-struct_47)" +"(expand-context/inner-module-begin-k the-struct_47)" +"(expand-context/inner-allow-unbound? the-struct_47)" +"(expand-context/inner-in-local-expand? the-struct_47)" +"(expand-context/inner-stops the-struct_47)" +"(expand-context/inner-declared-submodule-names the-struct_47)" +"(expand-context/inner-lifts the-struct_47)" +"(expand-context/inner-lift-envs the-struct_47)" +"(expand-context/inner-module-lifts the-struct_47)" +"(expand-context/inner-require-lifts the-struct_47)" +"(expand-context/inner-to-module-lifts the-struct_47)" +"(expand-context/inner-requires+provides the-struct_47)" +" observer52_0" +"(expand-context/inner-for-serializable? the-struct_47)" +" should-not-encounter-macros?53_0))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_47)))))" +"(expand-context/outer1.1" +" inner50_0" "(root-expand-context/outer-post-expansion-scope the-struct_46)" "(root-expand-context/outer-use-site-scopes the-struct_46)" "(root-expand-context/outer-frame-id the-struct_46)" @@ -15122,76 +15266,18 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_46)" "(expand-context/outer-need-eventually-defined the-struct_46)" "(expand-context/outer-current-introduction-scopes the-struct_46)" -" name48_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))" -"(let-values() ctx_5)))))" -"(define-values" -"(as-to-parsed-context)" -"(lambda(ctx_6)" -"(begin" -"(let-values(((v_129) ctx_6))" -"(let-values(((the-struct_47) v_129))" -"(if(expand-context/outer? the-struct_47)" -"(let-values(((inner50_0)" -"(let-values(((the-struct_48)(root-expand-context/outer-inner v_129)))" -"(if(expand-context/inner? the-struct_48)" -"(let-values(((to-parsed?51_0) #t)" -"((observer52_0) #f)" -"((should-not-encounter-macros?53_0) #t))" -"(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_48)" -"(root-expand-context/inner-module-scopes the-struct_48)" -"(root-expand-context/inner-top-level-bind-scope the-struct_48)" -"(root-expand-context/inner-all-scopes-stx the-struct_48)" -"(root-expand-context/inner-defined-syms the-struct_48)" -"(root-expand-context/inner-counter the-struct_48)" -"(root-expand-context/inner-lift-key the-struct_48)" -" to-parsed?51_0" -"(expand-context/inner-phase the-struct_48)" -"(expand-context/inner-namespace the-struct_48)" -"(expand-context/inner-just-once? the-struct_48)" -"(expand-context/inner-module-begin-k the-struct_48)" -"(expand-context/inner-allow-unbound? the-struct_48)" -"(expand-context/inner-in-local-expand? the-struct_48)" -"(expand-context/inner-stops the-struct_48)" -"(expand-context/inner-declared-submodule-names the-struct_48)" -"(expand-context/inner-lifts the-struct_48)" -"(expand-context/inner-lift-envs the-struct_48)" -"(expand-context/inner-module-lifts the-struct_48)" -"(expand-context/inner-require-lifts the-struct_48)" -"(expand-context/inner-to-module-lifts the-struct_48)" -"(expand-context/inner-requires+provides the-struct_48)" -" observer52_0" -"(expand-context/inner-for-serializable? the-struct_48)" -" should-not-encounter-macros?53_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_48)))))" -"(expand-context/outer1.1" -" inner50_0" -"(root-expand-context/outer-post-expansion-scope the-struct_47)" -"(root-expand-context/outer-use-site-scopes the-struct_47)" -"(root-expand-context/outer-frame-id the-struct_47)" -"(expand-context/outer-context the-struct_47)" -"(expand-context/outer-env the-struct_47)" -"(expand-context/outer-post-expansion-scope-action the-struct_47)" -"(expand-context/outer-scopes the-struct_47)" -"(expand-context/outer-def-ctx-scopes the-struct_47)" -"(expand-context/outer-binding-layer the-struct_47)" -"(expand-context/outer-reference-records the-struct_47)" -"(expand-context/outer-only-immediate? the-struct_47)" -"(expand-context/outer-need-eventually-defined the-struct_47)" -"(expand-context/outer-current-introduction-scopes the-struct_47)" -"(expand-context/outer-name the-struct_47)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_47)))))))" +"(expand-context/outer-name the-struct_46)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_100)" +"(lambda(s_99)" "(begin" " 'to-syntax-list" -"(if(list? s_100)" -"(let-values() s_100)" -"(if(pair? s_100)" -"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_100))))(if r_27(cons(car s_100) r_27) #f)))" -"(if(syntax?$1 s_100)(let-values()(to-syntax-list.1(syntax-e$1 s_100)))(let-values() #f)))))))" +"(if(list? s_99)" +"(let-values() s_99)" +"(if(pair? s_99)" +"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_99))))(if r_27(cons(car s_99) r_27) #f)))" +"(if(syntax?$1 s_99)(let-values()(to-syntax-list.1(syntax-e$1 s_99)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -15200,40 +15286,40 @@ static const char *startup_source = "(define-values(id-cache-1)(make-hasheq))" "(define-values" "(core-id)" -"(lambda(sym_8 phase_32)" +"(lambda(sym_11 phase_32)" "(begin" "(if(eqv? phase_32 0)" "(let-values()" -"(let-values(((or-part_6)(hash-ref id-cache-0 sym_8 #f)))" +"(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_145)(datum->syntax$1 core-stx sym_8)))" -"(begin(hash-set! id-cache-0 sym_8 s_145) s_145)))))" +"(let-values(((s_144)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_144) s_144)))))" "(if(eq? phase_32 1)" "(let-values()" -"(let-values(((or-part_28)(hash-ref id-cache-1 sym_8 #f)))" +"(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" "(if or-part_28" " or-part_28" -"(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_8)))" -"(begin(hash-set! id-cache-1 sym_8 s_10) s_10)))))" -"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_32) sym_8)))))))" +"(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_11)))" +"(begin(hash-set! id-cache-1 sym_11 s_10) s_10)))))" +"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_32) sym_11)))))))" "(define-values(core-forms) '#hasheq())" "(define-values(core-primitives) '#hasheq())" "(define-values" "(add-core-form!*)" -"(lambda(sym_23 proc_4)" -"(begin(begin(add-core-binding! sym_23)(set! core-forms(hash-set core-forms sym_23 proc_4))))))" +"(lambda(sym_22 proc_4)" +"(begin(begin(add-core-binding! sym_22)(set! core-forms(hash-set core-forms sym_22 proc_4))))))" "(define-values" "(add-core-primitive!)" -"(lambda(sym_13 val_32)" -"(begin(begin(add-core-binding! sym_13)(set! core-primitives(hash-set core-primitives sym_13 val_32))))))" +"(lambda(sym_0 val_32)" +"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_32))))))" "(define-values" "(add-core-binding!)" -"(lambda(sym_24)" +"(lambda(sym_23)" "(begin" -"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_24))" +"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_23))" "((temp2_1)" -"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_24))" +"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_23))" "(make-module-binding22.1" " #f" " #f" @@ -15260,9 +15346,9 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f temp1_0 temp2_1 temp3_1)))))" "(define-values" "(declare-core-module!)" -"(lambda(ns_45)" +"(lambda(ns_46)" "(begin" -"(let-values(((ns7_0) ns_45)" +"(let-values(((ns7_0) ns_46)" "((temp8_0)" "(let-values(((temp10_0) #t)" "((temp11_0) #t)" @@ -15271,25 +15357,25 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_78)(list core-primitives core-forms))((lst_79) '(#f #t)))" +"(let-values(((lst_79)(list core-primitives core-forms))((lst_80) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_93)" -"(lambda(table_98 lst_80 lst_81)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_102 lst_81 lst_82)" "(begin" " 'for-loop" -"(if(if(pair? lst_80)(pair? lst_81) #f)" -"(let-values(((syms_12)(unsafe-car lst_80))" -"((rest_36)(unsafe-cdr lst_80))" -"((syntax?_2)(unsafe-car lst_81))" -"((rest_37)(unsafe-cdr lst_81)))" -"(let-values(((table_99)" -"(let-values(((table_100) table_98))" +"(if(if(pair? lst_81)(pair? lst_82) #f)" +"(let-values(((syms_12)(unsafe-car lst_81))" +"((rest_36)(unsafe-cdr lst_81))" +"((syntax?_2)(unsafe-car lst_82))" +"((rest_37)(unsafe-cdr lst_82)))" +"(let-values(((table_103)" +"(let-values(((table_104) table_102))" "(let-values(((ht_75) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" @@ -15297,31 +15383,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_75)))" -"((letrec-values(((for-loop_94)" -"(lambda(table_101" -" i_86)" +"((letrec-values(((for-loop_93)" +"(lambda(table_105" +" i_85)" "(begin" " 'for-loop" -"(if i_86" -"(let-values(((sym_25)" +"(if i_85" +"(let-values(((sym_24)" "(hash-iterate-key" " ht_75" -" i_86)))" -"(let-values(((table_102)" -"(let-values(((table_103)" -" table_101))" -"(let-values(((table_104)" +" i_85)))" +"(let-values(((table_106)" +"(let-values(((table_107)" +" table_105))" +"(let-values(((table_108)" "(let-values()" -"(let-values(((key_41" +"(let-values(((key_42" " val_33)" "(let-values()" -"(let-values(((b_61)" +"(let-values(((b_60)" "(let-values(((core-mpi17_0)" " core-mpi)" "((temp18_3)" " 0)" "((sym19_0)" -" sym_25))" +" sym_24))" "(make-module-binding22.1" " #f" " #f" @@ -15345,44 +15431,44 @@ static const char *startup_source = " temp18_3" " sym19_0))))" "(values" -" sym_25" +" sym_24" "(if syntax?_2" "(provided1.1" -" b_61" +" b_60" " #f" " #t)" -" b_61))))))" +" b_60))))))" "(hash-set" -" table_103" -" key_41" +" table_107" +" key_42" " val_33)))))" "(values" -" table_104)))))" +" table_108)))))" "(if(not" " #f)" -"(for-loop_94" -" table_102" +"(for-loop_93" +" table_106" "(hash-iterate-next" " ht_75" -" i_86))" -" table_102)))" -" table_101)))))" -" for-loop_94)" -" table_100" +" i_85))" +" table_106)))" +" table_105)))))" +" for-loop_93)" +" table_104" "(hash-iterate-first ht_75)))))))" "(if(not #f)" -"(for-loop_93 table_99 rest_36 rest_37)" -" table_99)))" -" table_98)))))" -" for-loop_93)" +"(for-loop_92 table_103 rest_36 rest_37)" +" table_103)))" +" table_102)))))" +" for-loop_92)" " '#hasheq()" -" lst_78" -" lst_79)))))" +" lst_79" +" lst_80)))))" "((temp15_1)" -"(lambda(phase-level_14 ns_46 insp_7)" +"(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" -"(let-values(((ns_47)" -"(let-values(((ns20_0) ns_46)" +"(let-values(((ns_48)" +"(let-values(((ns20_0) ns_47)" "((core-module-name21_0) core-module-name)" "((temp22_1) 0))" "(namespace->module-namespace82.1" @@ -15395,13 +15481,13 @@ static const char *startup_source = " ns20_0" " core-module-name21_0" " temp22_1))))" -"(if ns_47" -"(module-linklet-info2.1(namespace->instance ns_47 0) #f core-mpi #f #f #f)" +"(if ns_48" +"(module-linklet-info2.1(namespace->instance ns_48 0) #f core-mpi #f #f #f)" " #f))" " #f)))" "((temp16_1)" "(lambda(data-box_1" -" ns_48" +" ns_49" " phase_40" " phase-level_15" " self_5" @@ -15416,15 +15502,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_76)))" -"((letrec-values(((for-loop_95)" -"(lambda(i_87)" +"((letrec-values(((for-loop_94)" +"(lambda(i_86)" "(begin" " 'for-loop" -"(if i_87" -"(let-values(((sym_26 val_34)" +"(if i_86" +"(let-values(((sym_25 val_34)" "(hash-iterate-key+value" " ht_76" -" i_87)))" +" i_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15432,18 +15518,18 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-consistent!" -" ns_48" +" ns_49" " 0" -" sym_26" +" sym_25" " val_34))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_95" -"(hash-iterate-next ht_76 i_87))" +"(for-loop_94" +"(hash-iterate-next ht_76 i_86))" "(values))))" "(values))))))" -" for-loop_95)" +" for-loop_94)" "(hash-iterate-first ht_76))))" "(void)" "(let-values(((ht_77) core-forms))" @@ -15451,15 +15537,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_77)))" -"((letrec-values(((for-loop_96)" -"(lambda(i_88)" +"((letrec-values(((for-loop_95)" +"(lambda(i_87)" "(begin" " 'for-loop" -"(if i_88" -"(let-values(((sym_27 proc_5)" +"(if i_87" +"(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" " ht_77" -" i_88)))" +" i_87)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15467,24 +15553,24 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-transformer!" -" ns_48" +" ns_49" " 0" -" sym_27" +" sym_26" "(if(procedure-arity-includes?" " proc_5" " 2)" "(core-form9.1" " proc_5" -" sym_27)" +" sym_26)" " proc_5)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_96" -"(hash-iterate-next ht_77 i_88))" +"(for-loop_95" +"(hash-iterate-next ht_77 i_87))" "(values))))" "(values))))))" -" for-loop_96)" +" for-loop_95)" "(hash-iterate-first ht_77))))" "(void)))" "(let-values()(void)))))))" @@ -15529,30 +15615,30 @@ static const char *startup_source = "(lambda(s_23 phase_41)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_161) s_23))" -"(if(let-values(((s_66)(if(syntax?$1 s_161)(syntax-e$1 s_161) s_161)))" -"(if(pair? s_66)" -"(if(let-values(((s_162)(car s_66)))" +"(let-values(((s_160) s_23))" +"(if(let-values(((s_161)(if(syntax?$1 s_160)(syntax-e$1 s_160) s_160)))" +"(if(pair? s_161)" +"(if(let-values(((s_162)(car s_161)))" "(let-values(((or-part_162)(if(syntax?$1 s_162)(symbol?(syntax-e$1 s_162)) #f)))" "(if or-part_162 or-part_162(symbol? s_162))))" -"(let-values(((s_163)(cdr s_66))) #t)" +"(let-values(((s_163)(cdr s_161))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_164)(if(syntax?$1 s_161)(syntax-e$1 s_161) s_161)))" -"(let-values(((id25_0)(let-values(((s_165)(car s_164))) s_165))" -"((_26_0)(let-values(((s_75)(cdr s_164))) s_75)))" +"(let-values(((s_164)(if(syntax?$1 s_160)(syntax-e$1 s_160) s_160)))" +"(let-values(((id25_0)(let-values(((s_66)(car s_164))) s_66))" +"((_26_0)(let-values(((s_74)(cdr s_164))) s_74)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" "(if ok?_0" -"(let-values(((b_62)" +"(let-values(((b_36)" "(let-values(((temp27_1) id23_0)((phase28_0) phase_41))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f #f #f temp27_1 phase28_0))))" -"(if(module-binding? b_62)" -"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_62)))" -"(module-binding-sym b_62)" +"(if(module-binding? b_36)" +"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_36)))" +"(module-binding-sym b_36)" " #f)" " #f))" " #f)))))" @@ -15561,30 +15647,30 @@ static const char *startup_source = "(lambda(s_0 proc_6 phase_31)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_166 mode_10)" +"(lambda(s_165 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_166)" +"(let-values() s_165)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_166))" +"(let-values()(proc_6 s_165))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_167)" -"(let-values(((or-part_13)(syntax->list$1 s_166)))" -"(if or-part_13 or-part_13(syntax-e$1 s_166))))" +"(let-values(((s_166)" +"(let-values(((or-part_13)(syntax->list$1 s_165)))" +"(if or-part_13 or-part_13(syntax-e$1 s_165))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_168)" +"(lambda(s_167)" "(begin" " 's->" "(loop_33" -" s_168" -"(syntax-taint-mode-property s_168)))))" +" s_167" +"(syntax-taint-mode-property s_167)))))" "((seen_19) #f))" -"(let-values(((s_144) s_167)" +"(let-values(((s_143) s_166)" "((f_36)" "(lambda(tail?_40 v_61)" "(begin" @@ -15594,7 +15680,7 @@ static const char *startup_source = "(let-values()(f_35 tail?_40 v_61))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_169 prev-depth_8)" +"(lambda(tail?_41 s_168 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15603,78 +15689,78 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_169" -"(lambda(tail?_42 s_170)" -"(f_36 tail?_42 s_170))" +" s_168" +"(lambda(tail?_42 s_169)" +"(f_36 tail?_42 s_169))" " seen_20))" -"(if(null? s_169)" +"(if(null? s_168)" "(let-values()" -"(f_36 tail?_41 s_169))" -"(if(pair? s_169)" +"(f_36 tail?_41 s_168))" +"(if(pair? s_168)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_169)" +"(car s_168)" " depth_8)" "(loop_7" " #t" -"(cdr s_169)" +"(cdr s_168)" " depth_8))))" "(if(let-values(((or-part_163)" "(symbol?" -" s_169)))" +" s_168)))" "(if or-part_163" " or-part_163" "(let-values(((or-part_74)" "(boolean?" -" s_169)))" +" s_168)))" "(if or-part_74" " or-part_74" -"(number? s_169)))))" -"(let-values()(f_36 #f s_169))" +"(number? s_168)))))" +"(let-values()(f_36 #f s_168))" "(if(let-values(((or-part_75)" "(vector?" -" s_169)))" +" s_168)))" "(if or-part_75" " or-part_75" "(let-values(((or-part_76)" "(box?" -" s_169)))" +" s_168)))" "(if or-part_76" " or-part_76" "(let-values(((or-part_77)" "(prefab-struct-key" -" s_169)))" +" s_168)))" "(if or-part_77" " or-part_77" "(hash?" -" s_169)))))))" +" s_168)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_169" -"(lambda(tail?_43 s_171)" -"(f_36 tail?_43 s_171))" +" s_168" +"(lambda(tail?_43 s_170)" +"(f_36 tail?_43 s_170))" " seen_20))" "(let-values()" -"(f_36 #f s_169))))))))))))" +"(f_36 #f s_168))))))))))))" " loop_7)" " #f" -" s_144" +" s_143" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_166" -"(if(syntax-any-macro-scopes? s_166)" -"(syntax-property-remove s_166 original-property-sym)" -" s_166))))" +" s_165" +"(if(syntax-any-macro-scopes? s_165)" +"(syntax-property-remove s_165 original-property-sym)" +" s_165))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_166)))" +"(let-values(((c_19)(syntax-e$1 s_165)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" @@ -15690,20 +15776,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_172)" +"(let-values(((s_171)" "(let-values(((or-part_164)" "(syntax->list$1(cdr d_19))))" "(if or-part_164 or-part_164(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_173)" +"(lambda(s_172)" "(begin" " 's->" "(loop_33" -" s_173" -"(syntax-taint-mode-property s_173)))))" +" s_172" +"(syntax-taint-mode-property s_172)))))" "((seen_21) #f))" -"(let-values(((s_78) s_172)" +"(let-values(((s_77) s_171)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -15713,7 +15799,7 @@ static const char *startup_source = "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" "((letrec-values(((loop_77)" -"(lambda(tail?_46 s_174 prev-depth_9)" +"(lambda(tail?_46 s_173 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -15722,107 +15808,107 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_174" -"(lambda(tail?_47 s_175)" -"(f_8 tail?_47 s_175))" +" s_173" +"(lambda(tail?_47 s_174)" +"(f_8 tail?_47 s_174))" " seen_22))" -"(if(null? s_174)" +"(if(null? s_173)" "(let-values()" -"(f_8 tail?_46 s_174))" -"(if(pair? s_174)" +"(f_8 tail?_46 s_173))" +"(if(pair? s_173)" "(let-values()" "(f_8" " tail?_46" "(cons" "(loop_77" " #f" -"(car s_174)" +"(car s_173)" " depth_9)" "(loop_77" " #t" -"(cdr s_174)" +"(cdr s_173)" " depth_9))))" "(if(let-values(((or-part_165)" "(symbol?" -" s_174)))" +" s_173)))" "(if or-part_165" " or-part_165" "(let-values(((or-part_166)" "(boolean?" -" s_174)))" +" s_173)))" "(if or-part_166" " or-part_166" "(number?" -" s_174)))))" +" s_173)))))" "(let-values()" -"(f_8 #f s_174))" +"(f_8 #f s_173))" "(if(let-values(((or-part_167)" "(vector?" -" s_174)))" +" s_173)))" "(if or-part_167" " or-part_167" "(let-values(((or-part_168)" "(box?" -" s_174)))" +" s_173)))" "(if or-part_168" " or-part_168" "(let-values(((or-part_169)" "(prefab-struct-key" -" s_174)))" +" s_173)))" "(if or-part_169" " or-part_169" "(hash?" -" s_174)))))))" +" s_173)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_174" +" s_173" "(lambda(tail?_48" -" s_176)" +" s_175)" "(f_8" " tail?_48" -" s_176))" +" s_175))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_174))))))))))))" +" s_173))))))))))))" " loop_77)" " #f" -" s_78" +" s_77" " 0)))))" -" s_166" -"(if(syntax-any-macro-scopes? s_166)" -"(syntax-property-remove s_166 original-property-sym)" -" s_166))))" -"(let-values()(loop_33 s_166 'transparent)))))" -"(let-values()(loop_33 s_166 'transparent)))))" +" s_165" +"(if(syntax-any-macro-scopes? s_165)" +"(syntax-property-remove s_165 original-property-sym)" +" s_165))))" +"(let-values()(loop_33 s_165 'transparent)))))" +"(let-values()(loop_33 s_165 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_166)))" +"(let-values(((c_20)(syntax-e$1 s_165)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_31)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_166 'transparent))" +"(let-values()(loop_33 s_165 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_166 'transparent-binding))" -"(let-values()(loop_33 s_166 'opaque))))))))))))))))" +"(let-values()(loop_33 s_165 'transparent-binding))" +"(let-values()(loop_33 s_165 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_177)" +"(lambda(s_176)" "(begin" -"(let-values(((or-part_170)(syntax-property$1 s_177 'taint-mode)))" -"(if or-part_170 or-part_170(syntax-property$1 s_177 'certify-mode))))))" +"(let-values(((or-part_170)(syntax-property$1 s_176 'taint-mode)))" +"(if or-part_170 or-part_170(syntax-property$1 s_176 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_178)(begin(syntax-property-remove(syntax-property-remove s_178 'taint-mode) 'certify-mode))))" +"(lambda(s_177)(begin(syntax-property-remove(syntax-property-remove s_177 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -15831,18 +15917,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_75)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_76)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_97)" -"(lambda(fold-var_59 lst_82)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_59 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((smss_26)(unsafe-car lst_82))" -"((rest_38)(unsafe-cdr lst_82)))" +"(if(pair? lst_83)" +"(let-values(((smss_26)(unsafe-car lst_83))" +"((rest_38)(unsafe-cdr lst_83)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -15869,7 +15955,7 @@ static const char *startup_source = " init-ht_0" " 'context" " context_1)))" -"(let-values(((sym_17)" +"(let-values(((sym_16)" "(syntax-e$1" " s_0)))" "(let-values(((bindings_0)" @@ -15887,93 +15973,93 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_78)))" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_97)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_89)" +" i_88)" "(begin" " 'for-loop" -"(if i_89" +"(if i_88" "(let-values(((sc_23)" "(unsafe-immutable-hash-iterate-key" " ht_78" -" i_89)))" +" i_88)))" "(let-values(((bindings_3" " covered-scope-sets_1)" "(let-values(((ht_79" " bulk-bindings_3)" -"(let-values(((table_105)" +"(let-values(((table_109)" "(scope-binding-table" " sc_23)))" "(if(hash?" -" table_105)" +" table_109)" "(values" "(hash-ref" -" table_105" -" sym_17" +" table_109" +" sym_16" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_105)" -" sym_17" +" table_109)" +" sym_16" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_105)))))" -"((s_179)" +" table_109)))))" +"((s_178)" " s_0)" -"((extra-shifts_4)" +"((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_98)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_90)" +" i_89)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_90))" +" i_89))" "(let-values(((scs_15)" "(if(pair?" -" i_90)" +" i_89)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_90)))" +" i_89)))" "(let-values()" "(hash-iterate-key" " ht_79" -" i_90))))" -"((b_63)" +" i_89))))" +"((b_61)" "(if(pair?" -" i_90)" +" i_89)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_90))))" +" i_89))))" "(let-values(((b-info_1)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_179" -" extra-shifts_4)" -" sym_17" +" s_178" +" extra-shifts_5)" +" sym_16" " #f)))" "(if b-info_1" "((bulk-binding-create" " bulk_4)" " bulk_4" " b-info_1" -" sym_17)" +" sym_16)" " #f))))" "(let-values()" "(hash-iterate-value" " ht_79" -" i_90)))))" +" i_89)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -15981,7 +16067,7 @@ static const char *startup_source = "((covered-scope-sets_4)" " covered-scope-sets_2))" "(if(if scs_15" -"(if b_63" +"(if b_61" "(if(let-values(((or-part_171)" " all-bindings?_0))" "(if or-part_171" @@ -16017,20 +16103,20 @@ static const char *startup_source = " scs_15" " s-scs_0)" "(if(local-binding?" -" b_63)" +" b_61)" " 'local" " 'module)" "(if(local-binding?" -" b_63)" +" b_61)" "(local-binding-key" -" b_63)" +" b_61)" "(vector" "(module-binding-sym" -" b_63)" +" b_61)" "(module-binding-module" -" b_63)" +" b_61)" "(module-binding-phase" -" b_63))))" +" b_61))))" " bindings_7)" "(set-add" " covered-scope-sets_5" @@ -16043,19 +16129,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_99" +"(for-loop_98" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_90)" +" i_89)" "(let-values()" "(cdr" -" i_90))" +" i_89))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" " ht_79" -" i_90)))" +" i_89)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16065,7 +16151,7 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_99)" +" for-loop_98)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" @@ -16076,19 +16162,19 @@ static const char *startup_source = " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_98" +"(for-loop_97" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" " ht_78" -" i_89))" +" i_88))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_98)" +" for-loop_97)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" @@ -16104,11 +16190,11 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_97 fold-var_60 rest_38) fold-var_60)))" +"(if(not #f)(for-loop_96 fold-var_60 rest_38) fold-var_60)))" " fold-var_59)))))" -" for-loop_97)" +" for-loop_96)" " null" -" lst_75))))))" +" lst_76))))))" "(let-values(((ht_71)(car hts_0)))(if(null?(cdr hts_0)) ht_71(hash-set ht_71 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" @@ -16121,12 +16207,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_80)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_63 i_91)" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_63 i_90)" "(begin" " 'for-loop" -"(if i_91" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_80 i_91)))" +"(if i_90" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_80 i_90)))" "(let-values(((fold-var_19)" "(let-values(((fold-var_20) fold-var_63))" "(let-values(((fold-var_64)" @@ -16146,12 +16232,12 @@ static const char *startup_source = " fold-var_20))))" "(values fold-var_64)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_99" " fold-var_19" -"(unsafe-immutable-hash-iterate-next ht_80 i_91))" +"(unsafe-immutable-hash-iterate-next ht_80 i_90))" " fold-var_19)))" " fold-var_63)))))" -" for-loop_100)" +" for-loop_99)" " null" "(unsafe-immutable-hash-iterate-first ht_80))))))" "((<2_0) <)" @@ -16170,9 +16256,9 @@ static const char *startup_source = "(syntax-debug-info-string id_21 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_155 ctx_8)" +"(lambda(s_154 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_155(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_154(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16182,16 +16268,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_101)" -"(lambda(result_64 lst_83)" +"((letrec-values(((for-loop_100)" +"(lambda(result_65 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((fb-info_0)(unsafe-car lst_83))" -"((rest_39)(unsafe-cdr lst_83)))" +"(if(pair? lst_84)" +"(let-values(((fb-info_0)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values(((result_1)" "(let-values()" -"(let-values(((result_65)" +"(let-values(((result_66)" "(let-values()" "(let-values()" "(pair?" @@ -16199,12 +16285,12 @@ static const char *startup_source = " fb-info_0" " 'bindings" " null))))))" -"(values result_65)))))" +"(values result_66)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_101 result_1 rest_39)" +"(for-loop_100 result_1 rest_39)" " result_1)))" -" result_64)))))" -" for-loop_101)" +" result_65)))))" +" for-loop_100)" " #f" " lst_6))))))" " (let-values () \"\")" @@ -16219,19 +16305,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_84)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_85)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_65 lst_85)" +"(let-values()(check-list lst_85)))" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_65 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((b_26)(unsafe-car lst_85))" +"(if(pair? lst_86)" +"(let-values(((b_21)(unsafe-car lst_86))" "((rest_40)" -"(unsafe-cdr lst_85)))" +"(unsafe-cdr lst_86)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" " fold-var_65))" @@ -16240,37 +16326,37 @@ static const char *startup_source = "(cons" "(let-values()" "(hash-ref" -" b_26" +" b_21" " 'context))" " fold-var_34))))" "(values" " fold-var_66)))))" "(if(not #f)" -"(for-loop_102 fold-var_33 rest_40)" +"(for-loop_101 fold-var_33 rest_40)" " fold-var_33)))" " fold-var_65)))))" -" for-loop_102)" +" for-loop_101)" " null" -" lst_84)))))" +" lst_85)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_86) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_87) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" +"(let-values()(check-list lst_87)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_67 lst_87 pos_11)" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_67 lst_88 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_87) #t #f)" +"(if(if(pair? lst_88) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_87))" +"(unsafe-car lst_88))" "((rest_41)" -"(unsafe-cdr lst_87))" +"(unsafe-cdr lst_88))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_68)" @@ -16286,15 +16372,15 @@ static const char *startup_source = "(values" " fold-var_69)))))" "(if(not #f)" -"(for-loop_103" +"(for-loop_102" " fold-var_9" " rest_41" "(+ pos_11 1))" " fold-var_9)))" " fold-var_67)))))" -" for-loop_103)" +" for-loop_102)" " null" -" lst_86" +" lst_87" " start_14))))))))))" " loop_76)" " info_3" @@ -16302,31 +16388,31 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_88) relevant-scope-sets_0))" +"(let-values(((lst_89) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_104)" -"(lambda(s_180 lst_89)" +"(let-values()(check-list lst_89)))" +"((letrec-values(((for-loop_103)" +"(lambda(s_179 lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" -"(let-values(((l_48)(unsafe-car lst_89))" -"((rest_42)(unsafe-cdr lst_89)))" -"(let-values(((s_79)" -"(let-values(((s_181) s_180))" -"(let-values(((s_182)" +"(if(pair? lst_90)" +"(let-values(((l_48)(unsafe-car lst_90))" +"((rest_42)(unsafe-cdr lst_90)))" +"(let-values(((s_78)" +"(let-values(((s_180) s_179))" +"(let-values(((s_181)" "(let-values()" "(set-intersect" -" s_181" +" s_180" "(list->set l_48)))))" -"(values s_182)))))" -"(if(not #f)(for-loop_104 s_79 rest_42) s_79)))" -" s_180)))))" -" for-loop_104)" +"(values s_181)))))" +"(if(not #f)(for-loop_103 s_78 rest_42) s_78)))" +" s_179)))))" +" for-loop_103)" "(list->set(car relevant-scope-sets_0))" -" lst_88))))))" +" lst_89))))))" "(string-append" "((letrec-values(((loop_77)" "(lambda(info_5 layer_2)" @@ -16340,27 +16426,27 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_90)" +"(let-values(((lst_91)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_37 b_64)" +"(lambda(a_37 b_62)" "(begin" " 'temp2" "(if(hash-ref a_37 'match? #f)" -"(not(hash-ref b_64 'match? #f))" +"(not(hash-ref b_62 'match? #f))" " #f)))))" "(sort7.1 #f #f #f #f temp1_1 temp2_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_63 lst_91)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_63 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((b_23)(unsafe-car lst_91))" -"((rest_43)(unsafe-cdr lst_91)))" +"(if(pair? lst_92)" +"(let-values(((b_38)(unsafe-car lst_92))" +"((rest_43)(unsafe-cdr lst_92)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64)" " fold-var_63))" @@ -16371,7 +16457,7 @@ static const char *startup_source = "(string-append" " \"\\n \"" "(if(hash-ref" -" b_23" +" b_38" " 'match?" " #f)" " \"matching\"" @@ -16382,49 +16468,49 @@ static const char *startup_source = " \"...:\"" " \"\\n \"" "(if(hash-ref" -" b_23" +" b_38" " 'local" " #f)" " \"local\"" "(format" " \"~a\"" "(hash-ref" -" b_23" +" b_38" " 'module" " #f)))" "(describe-context" "(hash-ref" -" b_23" +" b_38" " 'context)" " common-scopes_0)))" " fold-var_64))))" "(values fold-var_70)))))" "(if(not #f)" -"(for-loop_100 fold-var_20 rest_43)" +"(for-loop_99 fold-var_20 rest_43)" " fold-var_20)))" " fold-var_63)))))" -" for-loop_100)" +" for-loop_99)" " null" -" lst_90)))))" +" lst_91)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_92) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_93) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_93)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_71 lst_93 pos_12)" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_71 lst_94 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_93) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_93))" -"((rest_0)(unsafe-cdr lst_93))" +"(if(if(pair? lst_94) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_94))" +"((rest_0)(unsafe-cdr lst_94))" "((layer_3) pos_12))" "(let-values(((fold-var_72)" "(let-values(((fold-var_73)" @@ -16439,15 +16525,15 @@ static const char *startup_source = " fold-var_73))))" "(values fold-var_74)))))" "(if(not #f)" -"(for-loop_105" +"(for-loop_104" " fold-var_72" " rest_0" "(+ pos_12 1))" " fold-var_72)))" " fold-var_71)))))" -" for-loop_105)" +" for-loop_104)" " null" -" lst_92" +" lst_93" " start_15)))))))))))" " loop_77)" " info_3" @@ -16468,16 +16554,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_183)(unsafe-car lst_10))" +"(let-values(((s_182)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_76)" "(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_183)" +"(if(set-member? common-scopes_0 s_182)" "(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_183)" +"(let-values() s_182)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_77))))" @@ -16513,34 +16599,34 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_94) scopes_19))" +"(let-values(((lst_95) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_94)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_78 lst_95)" +"(let-values()(check-list lst_95)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_78 lst_96)" "(begin" " 'for-loop" -"(if(pair? lst_95)" -"(let-values(((s_184)(unsafe-car lst_95))" -"((rest_44)(unsafe-cdr lst_95)))" +"(if(pair? lst_96)" +"(let-values(((s_183)(unsafe-car lst_96))" +"((rest_44)(unsafe-cdr lst_96)))" "(let-values(((fold-var_79)" "(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_184))" +"(if(not(set-member? common-scopes_1 s_183))" "(let-values(((fold-var_81) fold-var_80))" "(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_184)" +"(let-values() s_183)" " fold-var_81))))" "(values fold-var_82)))" " fold-var_80))))" -"(if(not #f)(for-loop_106 fold-var_79 rest_44) fold-var_79)))" +"(if(not #f)(for-loop_105 fold-var_79 rest_44) fold-var_79)))" " fold-var_78)))))" -" for-loop_106)" +" for-loop_105)" " null" -" lst_94))))" +" lst_95))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16548,17 +16634,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_96) strs_0))" +"(let-values(((lst_97) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_83 lst_97)" +"(let-values()(check-list lst_97)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_83 lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_97)" -"(let-values(((str_4)(unsafe-car lst_97))((rest_45)(unsafe-cdr lst_97)))" +"(if(pair? lst_98)" +"(let-values(((str_4)(unsafe-car lst_98))((rest_45)(unsafe-cdr lst_98)))" "(let-values(((fold-var_84)" "(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" @@ -16568,19 +16654,19 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_85))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_107 fold-var_84 rest_45) fold-var_84)))" +"(if(not #f)(for-loop_106 fold-var_84 rest_45) fold-var_84)))" " fold-var_83)))))" -" for-loop_107)" +" for-loop_106)" " null" -" lst_96)))))))))))" +" lst_97)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" -"(lambda(s_0 sym_28 trigger-id_0 ctx_8)" +"(lambda(s_0 sym_27 trigger-id_0 ctx_8)" "(begin" "(let-values(((phase_43)(expand-context-phase ctx_8)))" "(let-values(((what_1)" -"(let-values(((tmp_16) sym_28))" +"(let-values(((tmp_16) sym_27))" "(if(equal? tmp_16 '#%app)" " (let-values () \"function application\")" "(if(equal? tmp_16 '#%datum)" @@ -16595,7 +16681,7 @@ static const char *startup_source = "(if trigger-id_0" "(not" "(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_43))" -"(resolve33.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" +"(resolve40.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" " #f)))" "(raise-syntax-error$1" " #f" @@ -16603,7 +16689,7 @@ static const char *startup_source = "(if unbound?_0" " \"unbound identifier;\\n also, no ~a transformer is bound~a\"" " (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" -" sym_28" +" sym_27" "(let-values(((tmp_17) phase_43))" "(if(equal? tmp_17 0)" " (let-values () \"\")" @@ -16622,7 +16708,7 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_44) phase6_0))" -"(let-values(((s_143) s7_1))" +"(let-values(((s_142) s7_1))" "(let-values(((ht_74)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" @@ -16634,19 +16720,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_7)(hash-ref ht_81(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_76) l_7))" +"(let-values(((lst_77) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_92)" -"(lambda(lst_98)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_91)" +"(lambda(lst_99)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((id_2)(unsafe-car lst_98))" +"(if(pair? lst_99)" +"(let-values(((id_2)(unsafe-car lst_99))" "((rest_46)" -"(unsafe-cdr lst_98)))" +"(unsafe-cdr lst_99)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16663,17 +16749,17 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_143" +" s_142" " v_131))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_92 rest_46)" +"(for-loop_91 rest_46)" "(values))))" "(values))))))" -" for-loop_92)" -" lst_76)))" +" for-loop_91)" +" lst_77)))" "(void)" "(hash-set ht_81(syntax-e$1 v_131)(cons v_131 l_7)))))" "(if(pair? v_131)" @@ -16691,12 +16777,12 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_99) s_0))" +"(let-values(((lst_100) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_108)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" @@ -16711,11 +16797,11 @@ static const char *startup_source = "(remove-scopes id_10(unbox use-sites_0)))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_108 fold-var_87 rest_47) fold-var_87)))" +"(if(not #f)(for-loop_107 fold-var_87 rest_47) fold-var_87)))" " fold-var_86)))))" -" for-loop_108)" +" for-loop_107)" " null" -" lst_99)))))" +" lst_100)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -16841,18 +16927,18 @@ static const char *startup_source = "(let-values(((mpi_20)" "(if(eq? base_15 interned-base_0)" " mpi_19" -"(let-values(((the-struct_49) mpi_19))" -"(if(1/module-path-index? the-struct_49)" +"(let-values(((the-struct_48) mpi_19))" +"(if(1/module-path-index? the-struct_48)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_49)" +"(module-path-index-path the-struct_48)" " base3_0" -"(module-path-index-resolved the-struct_49)" -"(module-path-index-shift-cache the-struct_49)))" +"(module-path-index-resolved the-struct_48)" +"(module-path-index-shift-cache the-struct_48)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_49))))))" +" the-struct_48))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_20) mpi_20))))))" "(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 i-mpi_0) i-mpi_0))))))))))))" "(define-values" @@ -16922,31 +17008,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_82)))" -"((letrec-values(((for-loop_109)" -"(lambda(table_106 i_92)" +"((letrec-values(((for-loop_108)" +"(lambda(table_110 i_91)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((k_18 v_132)(hash-iterate-key+value ht_82 i_92)))" -"(let-values(((table_107)" -"(let-values(((table_98) table_106))" -"(let-values(((table_108)" +"(if i_91" +"(let-values(((k_18 v_132)(hash-iterate-key+value ht_82 i_91)))" +"(let-values(((table_111)" +"(let-values(((table_102) table_110))" +"(let-values(((table_112)" "(let-values()" -"(let-values(((key_42 val_35)" +"(let-values(((key_43 val_35)" "(let-values()" "(values" " v_132" " k_18))))" "(hash-set" -" table_98" -" key_42" +" table_102" +" key_43" " val_35)))))" -"(values table_108)))))" +"(values table_112)))))" "(if(not #f)" -"(for-loop_109 table_107(hash-iterate-next ht_82 i_92))" -" table_107)))" -" table_106)))))" -" for-loop_109)" +"(for-loop_108 table_111(hash-iterate-next ht_82 i_91))" +" table_111)))" +" table_110)))))" +" for-loop_108)" " '#hasheqv()" "(hash-iterate-first ht_82))))))" "(let-values((()" @@ -16961,7 +17047,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_93) pos_15))" +"(let-values(((i_92) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16971,7 +17057,7 @@ static const char *startup_source = "(let-values(((mpi_23)" "(hash-ref" " rev-positions_0" -" i_93)))" +" i_92)))" "((letrec-values(((loop_80)" "(lambda(mpi_24)" "(begin" @@ -17013,33 +17099,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_83)))" -"((letrec-values(((for-loop_110)" -"(lambda(table_109 i_94)" +"((letrec-values(((for-loop_109)" +"(lambda(table_113 i_93)" "(begin" " 'for-loop" -"(if i_94" +"(if i_93" "(let-values(((k_19 v_130)" -"(hash-iterate-key+value ht_83 i_94)))" +"(hash-iterate-key+value ht_83 i_93)))" "(let-values(((table_15)" -"(let-values(((table_55) table_109))" -"(let-values(((table_56)" +"(let-values(((table_57) table_113))" +"(let-values(((table_58)" "(let-values()" -"(let-values(((key_43" +"(let-values(((key_44" " val_36)" "(let-values()" "(values" " v_130" " k_19))))" "(hash-set" -" table_55" -" key_43" +" table_57" +" key_44" " val_36)))))" -"(values table_56)))))" +"(values table_58)))))" "(if(not #f)" -"(for-loop_110 table_15(hash-iterate-next ht_83 i_94))" +"(for-loop_109 table_15(hash-iterate-next ht_83 i_93))" " table_15)))" -" table_109)))))" -" for-loop_110)" +" table_113)))))" +" for-loop_109)" " '#hasheqv()" "(hash-iterate-first ht_83))))))" "(let-values(((gens_0)" @@ -17060,24 +17146,24 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_28)" -"(lambda(i_95 pos_16)" +"(lambda(i_94 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_96) pos_16))" -"(let-values(((i_97)" -"(let-values(((i_98) i_95))" -"(let-values(((i_99)" +"(let-values(((i_95) pos_16))" +"(let-values(((i_96)" +"(let-values(((i_97) i_94))" +"(let-values(((i_98)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_133" -" i_98" +" i_97" "(let-values()" "(let-values(((mpi_25)" "(hash-ref" " rev-gen-order_0" -" i_96)))" +" i_95)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17112,17 +17198,17 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_98)))))" -"(values i_99)))))" +" i_97)))))" +"(values i_98)))))" "(if(if(not" "((lambda x_42" -"(unsafe-fx= i_97 len_11))" -" i_96))" +"(unsafe-fx= i_96 len_11))" +" i_95))" "(not #f)" " #f)" -"(for-loop_28 i_97(+ pos_16 inc_5))" -" i_97)))" -" i_95)))))" +"(for-loop_28 i_96(+ pos_16 inc_5))" +" i_96)))" +" i_94)))))" " for-loop_28)" " 0" " start_17)))))" @@ -17138,16 +17224,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" -"((letrec-values(((for-loop_111)" -"(lambda(vec_13 i_100 pos_17)" +"((letrec-values(((for-loop_110)" +"(lambda(vec_13 i_99 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_27) pos_17))" -"(let-values(((vec_26 i_101)" +"(let-values(((vec_26 i_100)" "(let-values(((vec_27) vec_13)" -"((i_28) i_100))" -"(let-values(((vec_28 i_102)" +"((i_28) i_99))" +"(let-values(((vec_28 i_101)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17172,12 +17258,12 @@ static const char *startup_source = "(unsafe-fx+" " i_28" " 1)))))))" -"(values vec_28 i_102)))))" +"(values vec_28 i_101)))))" "(if(not #f)" -"(for-loop_111 vec_26 i_101(+ pos_17 inc_6))" -"(values vec_26 i_101))))" -"(values vec_13 i_100))))))" -" for-loop_111)" +"(for-loop_110 vec_26 i_100(+ pos_17 inc_6))" +"(values vec_26 i_100))))" +"(values vec_13 i_99))))))" +" for-loop_110)" "(make-vector 16)" " 0" " start_18)))))" @@ -17197,12 +17283,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_111)" "(lambda(pos_18 pos_19)" "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_12) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_29 pos_18))((i_103) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_29 pos_18))((i_102) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17211,7 +17297,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_103" +" i_102" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17229,9 +17315,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_112(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_111(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_112)" +" for-loop_111)" " 0" " start_19)))" "(void)" @@ -17250,31 +17336,31 @@ static const char *startup_source = "(begin(check-vector vec_32)(values vec_32(unsafe-vector-length vec_32))))))" "(begin" " #f" -"((letrec-values(((for-loop_113)" -"(lambda(i_104 pos_20)" +"((letrec-values(((for-loop_112)" +"(lambda(i_103 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" "(let-values(((p_26)(unsafe-vector-ref vec_31 pos_20)))" -"(let-values(((i_105)" -"(let-values(((i_106) i_104))" +"(let-values(((i_104)" +"(let-values(((i_105) i_103))" "(let-values(((i_23)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_134" -" i_106" +" i_105" "(let-values()" "(vector*-ref gen_0 p_26)))" -"(unsafe-fx+ 1 i_106)))))" +"(unsafe-fx+ 1 i_105)))))" "(values i_23)))))" -"(if(if(not((lambda x_43(unsafe-fx= i_105 len_13)) p_26))" +"(if(if(not((lambda x_43(unsafe-fx= i_104 len_13)) p_26))" "(not #f)" " #f)" -"(for-loop_113 i_105(unsafe-fx+ 1 pos_20))" -" i_105)))" -" i_104)))))" -" for-loop_113)" +"(for-loop_112 i_104(unsafe-fx+ 1 pos_20))" +" i_104)))" +" i_103)))))" +" for-loop_112)" " 0" " 0)))))" " v_134)))))))))" @@ -17290,12 +17376,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_84)))" -"((letrec-values(((for-loop_114)" -"(lambda(i_47)" +"((letrec-values(((for-loop_113)" +"(lambda(i_106)" "(begin" " 'for-loop" -"(if i_47" -"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_84 i_47)))" +"(if i_106" +"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_84 i_106)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17305,9 +17391,9 @@ static const char *startup_source = "(vector-set! vec_33 pos_21 mpi_2))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_114(hash-iterate-next ht_84 i_47))(values))))" +"(if(not #f)(for-loop_113(hash-iterate-next ht_84 i_106))(values))))" "(values))))))" -" for-loop_114)" +" for-loop_113)" "(hash-iterate-first ht_84))))" "(void)" " vec_33))))))" @@ -17316,15 +17402,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_100) mus_0))" +"(let-values(((lst_101) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_100)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_101)" +"(lambda(fold-var_0 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_101)" -"(let-values(((mu_1)(unsafe-car lst_101))((rest_48)(unsafe-cdr lst_101)))" +"(if(pair? lst_102)" +"(let-values(((mu_1)(unsafe-car lst_102))((rest_48)(unsafe-cdr lst_102)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3) fold-var_0))" "(let-values(((fold-var_89)" @@ -17343,7 +17429,7 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_100)))))))" +" lst_101)))))))" "(define-values" "(interned-literal?)" "(lambda(v_135)" @@ -17375,15 +17461,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_102) phases-in-order_0))" +"(let-values(((lst_103) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_115)" -"(lambda(fold-var_90 lst_103)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"((letrec-values(((for-loop_114)" +"(lambda(fold-var_90 lst_104)" "(begin" " 'for-loop" -"(if(pair? lst_103)" -"(let-values(((phase_46)(unsafe-car lst_103))((rest_49)(unsafe-cdr lst_103)))" +"(if(pair? lst_104)" +"(let-values(((phase_46)(unsafe-car lst_104))((rest_49)(unsafe-cdr lst_104)))" "(let-values(((fold-var_91)" "(let-values(((fold-var_92) fold-var_90))" "(let-values(((fold-var_93)" @@ -17401,11 +17487,11 @@ static const char *startup_source = " mpis_5))))" " fold-var_92))))" "(values fold-var_93)))))" -"(if(not #f)(for-loop_115 fold-var_91 rest_49) fold-var_91)))" +"(if(not #f)(for-loop_114 fold-var_91 rest_49) fold-var_91)))" " fold-var_90)))))" -" for-loop_115)" +" for-loop_114)" " null" -" lst_102))))))))))" +" lst_103))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -17525,7 +17611,7 @@ static const char *startup_source = " vec_35))))))" "(begin" " #f" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_115)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -17548,13 +17634,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_116" +"(for-loop_115" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_116)" +" for-loop_115)" " 0)))" "(void))" "(begin" @@ -17577,7 +17663,7 @@ static const char *startup_source = " vec_37))))))" "(begin" " #f" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_116)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -17600,13 +17686,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_117" +"(for-loop_116" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_117)" +" for-loop_116)" " 0)))" "(void)))))" "(if(box?" @@ -17643,17 +17729,17 @@ static const char *startup_source = "(check-list" " lst_33)))" "((letrec-values(((for-loop_25)" -"(lambda(lst_104)" +"(lambda(lst_105)" "(begin" " 'for-loop" "(if(pair?" -" lst_104)" +" lst_105)" "(let-values(((k_20)" "(unsafe-car" -" lst_104))" +" lst_105))" "((rest_50)" "(unsafe-cdr" -" lst_104)))" +" lst_105)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17685,7 +17771,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_105)" +"(let-values(((lst_106)" "(sorted-hash-keys" " v_94)))" "(begin" @@ -17694,19 +17780,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_105)))" -"((letrec-values(((for-loop_118)" -"(lambda(lst_106)" +" lst_106)))" +"((letrec-values(((for-loop_117)" +"(lambda(lst_107)" "(begin" " 'for-loop" "(if(pair?" -" lst_106)" +" lst_107)" "(let-values(((k_21)" "(unsafe-car" -" lst_106))" +" lst_107))" "((rest_51)" "(unsafe-cdr" -" lst_106)))" +" lst_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17724,12 +17810,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_117" " rest_51)" "(values))))" "(values))))))" -" for-loop_118)" -" lst_105)))" +" for-loop_117)" +" lst_106)))" "(void)))))" "(if(prefab-struct-key" " v_94)" @@ -17755,7 +17841,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_118)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -17778,13 +17864,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_118" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_118)" " start*_1)))" "(void)))" "(if(srcloc?" @@ -17811,7 +17897,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_120)" +"((letrec-values(((for-loop_119)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -17834,13 +17920,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_119" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_120)" +" for-loop_119)" " start*_2)))" "(void)))" "(let-values()" @@ -17860,25 +17946,25 @@ static const char *startup_source = "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_107) l_49))" +"(let-values(((lst_108) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_107)))" -"((letrec-values(((for-loop_121)" -"(lambda(lst_108)" +"(check-list lst_108)))" +"((letrec-values(((for-loop_120)" +"(lambda(lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_109)" "(let-values(((v_139)" "(unsafe-car" -" lst_108))" +" lst_109))" "((rest_52)" "(unsafe-cdr" -" lst_108)))" +" lst_109)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17891,12 +17977,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_120" " rest_52)" "(values))))" "(values))))))" -" for-loop_121)" -" lst_107)))" +" for-loop_120)" +" lst_108)))" "(void))))))))))" " frontier-loop_0)" " v_136)" @@ -17911,7 +17997,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_85)))" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_121)" "(lambda(fold-var_94 i_107)" "(begin" " 'for-loop" @@ -17934,17 +18020,17 @@ static const char *startup_source = "(values" " fold-var_97)))))" "(if(not #f)" -"(for-loop_122" +"(for-loop_121" " fold-var_95" "(hash-iterate-next" " ht_85" " i_107))" " fold-var_95)))" " fold-var_94)))))" -" for-loop_122)" +" for-loop_121)" " null" "(hash-iterate-first ht_85)))))))" -"(let-values(((lst_109)" +"(let-values(((lst_110)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -17952,46 +18038,46 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_109)))" +"(let-values()(check-list lst_110)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_123)" -"(lambda(table_110 lst_110 pos_24)" +"((letrec-values(((for-loop_122)" +"(lambda(table_114 lst_111 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_110) #t #f)" +"(if(if(pair? lst_111) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_110))" +"(unsafe-car lst_111))" "((rest_53)" -"(unsafe-cdr lst_110))" +"(unsafe-cdr lst_111))" "((pos_25) pos_24))" -"(let-values(((table_111)" -"(let-values(((table_112)" -" table_110))" -"(let-values(((table_113)" +"(let-values(((table_115)" +"(let-values(((table_116)" +" table_114))" +"(let-values(((table_117)" "(let-values()" -"(let-values(((key_44" +"(let-values(((key_45" " val_37)" "(let-values()" "(values" " step_3" " pos_25))))" "(hash-set" -" table_112" -" key_44" +" table_116" +" key_45" " val_37)))))" -"(values table_113)))))" +"(values table_117)))))" "(if(not #f)" -"(for-loop_123" -" table_111" +"(for-loop_122" +" table_115" " rest_53" "(+ pos_24 1))" -" table_111)))" -" table_110)))))" -" for-loop_123)" +" table_115)))" +" table_114)))))" +" for-loop_122)" " '#hasheqv()" -" lst_109" +" lst_110" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18124,7 +18210,7 @@ static const char *startup_source = "(length v_143))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_111)" +"(let-values(((lst_112)" " v_143))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18132,8 +18218,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_111)))" -"((letrec-values(((for-loop_124)" +" lst_112)))" +"((letrec-values(((for-loop_123)" "(lambda(all-quoted?_1" " lst_43)" "(begin" @@ -18164,14 +18250,14 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_123" " all-quoted?_2" " rest_54)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_124)" +" for-loop_123)" " #t" -" lst_111)))))" +" lst_112)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18269,7 +18355,7 @@ static const char *startup_source = " vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_72)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18299,14 +18385,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_73" +"(for-loop_72" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_73)" +" for-loop_72)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18333,8 +18419,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-values" " ht_86)))" -"((letrec-values(((for-loop_125)" -"(lambda(result_66" +"((letrec-values(((for-loop_124)" +"(lambda(result_67" " i_110)" "(begin" " 'for-loop" @@ -18343,32 +18429,32 @@ static const char *startup_source = "(hash-iterate-value" " ht_86" " i_110)))" -"(let-values(((result_67)" -"(let-values()" "(let-values(((result_68)" "(let-values()" +"(let-values(((result_69)" +"(let-values()" "(let-values()" "(eq?" " val_38" " #t)))))" "(values" -" result_68)))))" +" result_69)))))" "(if(if(not" "((lambda x_48" "(not" -" result_67))" +" result_68))" " val_38))" "(not" " #f)" " #f)" -"(for-loop_125" -" result_67" +"(for-loop_124" +" result_68" "(hash-iterate-next" " ht_86" " i_110))" -" result_67)))" -" result_66)))))" -" for-loop_125)" +" result_68)))" +" result_67)))))" +" for-loop_124)" " #t" "(hash-iterate-first" " ht_86))))))" @@ -18409,7 +18495,7 @@ static const char *startup_source = "(sorted-hash-keys" " v_143)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_112)" +"(let-values(((lst_113)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18417,20 +18503,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_112)))" -"((letrec-values(((for-loop_126)" +" lst_113)))" +"((letrec-values(((for-loop_125)" "(lambda(all-quoted?_11" -" lst_113)" +" lst_114)" "(begin" " 'for-loop" "(if(pair?" -" lst_113)" +" lst_114)" "(let-values(((k_22)" "(unsafe-car" -" lst_113))" +" lst_114))" "((rest_55)" "(unsafe-cdr" -" lst_113)))" +" lst_114)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18468,14 +18554,14 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_125" " all-quoted?_12" " rest_55)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_126)" +" for-loop_125)" " #t" -" lst_112)))))" +" lst_113)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -18536,7 +18622,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_126)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -18566,14 +18652,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_126" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_127)" +" for-loop_126)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -18677,7 +18763,7 @@ static const char *startup_source = " vec_42))))))" "(begin" " #f" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_127)" "(lambda(pos_29)" "(begin" " 'for-loop" @@ -18700,13 +18786,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_127" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_128)" +" for-loop_127)" " 0)))" "(void)))" "(if(hash? v_145)" @@ -18727,25 +18813,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_145)))" "(begin" -"(let-values(((lst_114) ks_1))" +"(let-values(((lst_115) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_114)))" -"((letrec-values(((for-loop_129)" -"(lambda(lst_115)" +"(check-list lst_115)))" +"((letrec-values(((for-loop_128)" +"(lambda(lst_116)" "(begin" " 'for-loop" "(if(pair?" -" lst_115)" +" lst_116)" "(let-values(((k_24)" "(unsafe-car" -" lst_115))" +" lst_116))" "((rest_56)" "(unsafe-cdr" -" lst_115)))" +" lst_116)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18763,12 +18849,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_128" " rest_56)" "(values))))" "(values))))))" -" for-loop_129)" -" lst_114)))" +" for-loop_128)" +" lst_115)))" "(void))))))" "(let-values()" "(error" @@ -18782,8 +18868,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_87)))" -"((letrec-values(((for-loop_130)" -"(lambda(table_114 i_112)" +"((letrec-values(((for-loop_129)" +"(lambda(table_118 i_112)" "(begin" " 'for-loop" "(if i_112" @@ -18792,32 +18878,32 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_87" " i_112)))" -"(let-values(((table_115)" -"(let-values(((table_116)" -" table_114))" -"(let-values(((table_117)" +"(let-values(((table_119)" +"(let-values(((table_120)" +" table_118))" +"(let-values(((table_121)" "(let-values()" -"(let-values(((key_45" +"(let-values(((key_46" " val_39)" "(let-values()" "(values" " v_147" " k_25))))" "(hash-set" -" table_116" -" key_45" +" table_120" +" key_46" " val_39)))))" "(values" -" table_117)))))" +" table_121)))))" "(if(not #f)" -"(for-loop_130" -" table_115" +"(for-loop_129" +" table_119" "(hash-iterate-next" " ht_87" " i_112))" -" table_115)))" -" table_114)))))" -" for-loop_130)" +" table_119)))" +" table_118)))))" +" for-loop_129)" " '#hasheqv()" "(hash-iterate-first ht_87))))))" "(let-values(((mutable-shell-bindings_0)" @@ -18833,7 +18919,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_130)" "(lambda(pos_30)" "(begin" " 'for-loop" @@ -18855,13 +18941,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_131" +"(for-loop_130" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_131)" +" for-loop_130)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -18873,8 +18959,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_132)" -"(lambda(table_118 i_113)" +"((letrec-values(((for-loop_131)" +"(lambda(table_122 i_113)" "(begin" " 'for-loop" "(if i_113" @@ -18882,12 +18968,12 @@ static const char *startup_source = "(hash-iterate-key" " ht_88" " i_113)))" -"(let-values(((table_119)" -"(let-values(((table_120)" -" table_118))" -"(let-values(((table_121)" +"(let-values(((table_123)" +"(let-values(((table_124)" +" table_122))" +"(let-values(((table_125)" "(let-values()" -"(let-values(((key_46" +"(let-values(((key_47" " val_40)" "(let-values()" "(values" @@ -18898,20 +18984,20 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_120" -" key_46" +" table_124" +" key_47" " val_40)))))" "(values" -" table_121)))))" +" table_125)))))" "(if(not #f)" -"(for-loop_132" -" table_119" +"(for-loop_131" +" table_123" "(hash-iterate-next" " ht_88" " i_113))" -" table_119)))" -" table_118)))))" -" for-loop_132)" +" table_123)))" +" table_122)))))" +" for-loop_131)" " '#hasheqv()" "(hash-iterate-first ht_88))))))" "(let-values(((shared-bindings_0)" @@ -18932,7 +19018,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_132)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -18955,13 +19041,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_132" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_133)" +" for-loop_132)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -18981,7 +19067,7 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_133)" "(lambda(pos_32)" "(begin" " 'for-loop" @@ -19004,13 +19090,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_133" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_134)" +" for-loop_133)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19071,7 +19157,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_24 end_16 inc_10)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_134)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" @@ -19096,9 +19182,9 @@ static const char *startup_source = " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_135 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_134 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_135)" +" for-loop_134)" " 0" " start_24)))" "(values))))" @@ -19111,7 +19197,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_25 end_17 inc_11)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_135)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" @@ -19136,9 +19222,9 @@ static const char *startup_source = " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_136 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_135 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_136)" +" for-loop_135)" " 0" " start_25)))" "(values))))" @@ -19157,7 +19243,7 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_136)" "(lambda(pos_43 pos_44 pos_45)" "(begin" " 'for-loop" @@ -19177,20 +19263,20 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_137" +"(for-loop_136" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_137)" +" for-loop_136)" " 0" " start_26" " 0)))" "(values))))" -"(let-values(((result_69 done-pos_0)" +"(let-values(((result_70 done-pos_0)" "(decode result-vec_0 0 mpis_7 inspector_5 bulk-binding-registry_5 shared_0)))" -" result_69))))))))" +" result_70))))))))" "(define-values" "(decode-shell)" "(lambda(vec_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" @@ -19461,7 +19547,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_137)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" @@ -19493,10 +19579,10 @@ static const char *startup_source = " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_138 pos_53(+ pos_52 inc_13))" +"(for-loop_137 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_138)" +" for-loop_137)" "(+ pos_50 2)" " start_27)))))" "(values" @@ -19523,7 +19609,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_138)" "(lambda(ht_91 pos_56 pos_57)" "(begin" " 'for-loop" @@ -19555,16 +19641,16 @@ static const char *startup_source = " next-pos_25))))))" "(values ht_94 pos_60)))))" "(if(not #f)" -"(for-loop_139 ht_92 pos_58(+ pos_57 inc_14))" +"(for-loop_138 ht_92 pos_58(+ pos_57 inc_14))" "(values ht_92 pos_58))))" "(values ht_91 pos_56))))))" -" for-loop_139)" +" for-loop_138)" " ht_90" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_135)" +"(let-values(((s_134)" "(let-values(((tmp_22)(vector*-ref vec_45 pos_50)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" @@ -19579,15 +19665,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" -"((letrec-values(((for-loop_140)" -"(lambda(s_185 pos_61 pos_62)" +"((letrec-values(((for-loop_139)" +"(lambda(s_184 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_137 pos_63)" -"(let-values(((s_186) s_185)((pos_64) pos_61))" -"(let-values(((s_187 pos_65)" +"(let-values(((s_136 pos_63)" +"(let-values(((s_185) s_184)((pos_64) pos_61))" +"(let-values(((s_186 pos_65)" "(let-values()" "(let-values(((k_27" " next-pos_26)" @@ -19599,19 +19685,19 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_186 k_27)" +"(set-add s_185 k_27)" " next-pos_26)))))" -"(values s_187 pos_65)))))" +"(values s_186 pos_65)))))" "(if(not #f)" -"(for-loop_140 s_137 pos_63(+ pos_62 inc_15))" -"(values s_137 pos_63))))" -"(values s_185 pos_61))))))" -" for-loop_140)" -" s_135" +"(for-loop_139 s_136 pos_63(+ pos_62 inc_15))" +"(values s_136 pos_63))))" +"(values s_184 pos_61))))))" +" for-loop_139)" +" s_134" "(+ pos_50 2)" " start_29))))))" "(let-values()" -"(let-values(((key_47 next-pos_27)" +"(let-values(((key_48 next-pos_27)" "(let-values(((k_28 next-pos_28)" "(decode" " vec_45" @@ -19628,7 +19714,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_140)" "(lambda(r_30 pos_66 pos_67)" "(begin" " 'for-loop" @@ -19655,14 +19741,14 @@ static const char *startup_source = " next-pos_29)))))" "(values r_33 pos_70)))))" "(if(not #f)" -"(for-loop_141 r_31 pos_68(+ pos_67 inc_16))" +"(for-loop_140 r_31 pos_68(+ pos_67 inc_16))" "(values r_31 pos_68))))" "(values r_30 pos_66))))))" -" for-loop_141)" +" for-loop_140)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_47(reverse$1 r_29)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_48(reverse$1 r_29)) done-pos_1)))))))" "(if(unsafe-fx< index_0 17)" "(let-values()(values(deserialize-scope)(add1 pos_50)))" "(if(unsafe-fx< index_0 18)" @@ -19769,7 +19855,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((sym_29 next-pos_42)" +"(let-values(((sym_28 next-pos_42)" "(decode" " vec_45" " next-pos_41" @@ -19844,7 +19930,7 @@ static const char *startup_source = "(values" "(deserialize-full-module-binding" " module_4" -" sym_29" +" sym_28" " phase_49" " nominal-module_4" " nominal-phase_3" @@ -19863,7 +19949,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((sym_30 next-pos_52)" +"(let-values(((sym_29 next-pos_52)" "(decode" " vec_45" " next-pos_51" @@ -19888,11 +19974,11 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_30 phase_50 nominal-module_5)" +"(deserialize-simple-module-binding module_5 sym_29 phase_50 nominal-module_5)" " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" -"(let-values(((key_48 next-pos_55)" +"(let-values(((key_49 next-pos_55)" "(decode" " vec_45" "(add1 pos_50)" @@ -19908,7 +19994,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-full-local-binding key_48 free=id_9) next-pos_56))))" +"(values(deserialize-full-local-binding key_49 free=id_9) next-pos_56))))" "(if(unsafe-fx< index_0 27)" "(let-values()" "(let-values(((prefix_3 next-pos_57)" @@ -20016,7 +20102,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_31 end_23 inc_17)))" -"((letrec-values(((for-loop_142)" +"((letrec-values(((for-loop_141)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" @@ -20038,9 +20124,9 @@ static const char *startup_source = "(vector-set! v_154 i_125 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_142 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_141 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_142)" +" for-loop_141)" "(+ pos_71 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" @@ -20051,7 +20137,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_32 end_24 inc_18)))" -"((letrec-values(((for-loop_143)" +"((letrec-values(((for-loop_142)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20061,7 +20147,7 @@ static const char *startup_source = "(let-values(((pos_80) pos_77))" "(let-values(((pos_81)" "(let-values()" -"(let-values(((key_49 next-pos_68)" +"(let-values(((key_50 next-pos_68)" "(decode" " vec_46" " pos_80" @@ -20078,12 +20164,12 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_154 key_49 val_41)" +"(hash-set! v_154 key_50 val_41)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_143 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_142 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_143)" +" for-loop_142)" "(+ pos_71 2)" " start_32)))))" "(if(equal? tmp_23 '#:scope-fill!)" @@ -20131,20 +20217,20 @@ static const char *startup_source = "(values))))" "(let-values(((l_50)(hash-ref scope-triggers_0 v_156 null)))" "(begin" -"(let-values(((lst_116) l_50))" +"(let-values(((lst_117) l_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_116)))" -"((letrec-values(((for-loop_144)" -"(lambda(lst_117)" +"(let-values()(check-list lst_117)))" +"((letrec-values(((for-loop_143)" +"(lambda(lst_118)" "(begin" " 'for-loop" -"(if(pair? lst_117)" +"(if(pair? lst_118)" "(let-values(((v_157)" -"(unsafe-car lst_117))" +"(unsafe-car lst_118))" "((rest_57)" -"(unsafe-cdr lst_117)))" +"(unsafe-cdr lst_118)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20156,21 +20242,21 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_144 rest_57)" +"(for-loop_143 rest_57)" "(values))))" "(values))))))" -" for-loop_144)" -" lst_116)))" +" for-loop_143)" +" lst_117)))" "(void)" "((scope-with-bindings-ref v_156)" " v_156" " reachable-scopes_7" " loop_82" -"(lambda(sc-unreachable_0 b_65)" +"(lambda(sc-unreachable_0 b_63)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" -"(lambda(l_47)(cons b_65 l_47))" +"(lambda(l_47)(cons b_63 l_47))" " null))))))))" "(if(reach-scopes? v_156)" "(let-values()((reach-scopes-ref v_156) v_156 loop_82))" @@ -20188,7 +20274,7 @@ static const char *startup_source = "(unsafe-vector-length vec_48))))))" "(begin" " #f" -"((letrec-values(((for-loop_145)" +"((letrec-values(((for-loop_144)" "(lambda(pos_82)" "(begin" " 'for-loop" @@ -20208,11 +20294,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_145" +"(for-loop_144" "(unsafe-fx+ 1 pos_82))" "(values))))" "(values))))))" -" for-loop_145)" +" for-loop_144)" " 0)))" "(void)))" "(if(box? v_156)" @@ -20226,7 +20312,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_95)))" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_145)" "(lambda(i_126)" "(begin" " 'for-loop" @@ -20249,13 +20335,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_146" +"(for-loop_145" "(hash-iterate-next" " ht_95" " i_126))" "(values))))" "(values))))))" -" for-loop_146)" +" for-loop_145)" "(hash-iterate-first ht_95))))" "(void)))" "(if(prefab-struct-key v_156)" @@ -20273,7 +20359,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_147)" +"((letrec-values(((for-loop_146)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -20293,11 +20379,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_147" +"(for-loop_146" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_147)" +" for-loop_146)" " start*_4)))" "(void)))" "(if(srcloc? v_156)" @@ -20313,15 +20399,15 @@ static const char *startup_source = "(syntax-module-path-index-shift/no-keywords)" "(let-values(((syntax-module-path-index-shift_0)" "(let-values(((core27_0)" -"(lambda(s24_0 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" +"(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_188) s24_0))" +"(let-values(((s_187) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_0) s_188)" +"(let-values(((s29_0) s_187)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20334,9 +20420,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_189 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_189 from-mpi_5 to-mpi_4 #f #f)))" -"((s_190 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_190 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_188 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_188 from-mpi_5 to-mpi_4 #f #f)))" +"((s_189 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_189 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -20386,7 +20472,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:_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" @@ -20401,7 +20487,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_40 make-_40 ?_40)))" +"(values struct:_39 make-_39 ?_39)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -20422,7 +20508,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:_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" @@ -20438,14 +20524,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'keys)" -"(make-struct-field-accessor -ref_39 1 'body))))" +" struct:_38" +" make-_38" +" ?_38" +"(make-struct-field-accessor -ref_38 0 'keys)" +"(make-struct-field-accessor -ref_38 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(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" @@ -20460,10 +20546,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'clauses))))" +"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(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" @@ -20479,11 +20565,11 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'rator)" -"(make-struct-field-accessor -ref_42 1 'rands))))" +" struct:_41" +" make-_41" +" ?_41" +"(make-struct-field-accessor -ref_41 0 'rator)" +"(make-struct-field-accessor -ref_41 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)" @@ -20510,7 +20596,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:_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" @@ -20526,11 +20612,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'id)" -"(make-struct-field-accessor -ref_43 1 'rhs))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'id)" +"(make-struct-field-accessor -ref_42 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -20538,7 +20624,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(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" @@ -20554,18 +20640,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_44" -" make-_44" -" ?_44" -"(make-struct-field-accessor -ref_44 0 'key)" -"(make-struct-field-accessor -ref_44 1 'val)" -"(make-struct-field-accessor -ref_44 2 'body))))" +" 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))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(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" @@ -20580,10 +20666,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'id))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-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" @@ -20598,10 +20684,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(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-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(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" @@ -20616,10 +20702,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'body))))" +"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-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" @@ -20634,10 +20720,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(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-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(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" @@ -20652,7 +20738,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'datum))))" +"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -20660,7 +20746,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(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" @@ -20676,15 +20762,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_50" -" make-_50" -" ?_50" -"(make-struct-field-accessor -ref_50 0 'idss)" -"(make-struct-field-accessor -ref_50 1 'clauses)" -"(make-struct-field-accessor -ref_50 2 'body))))" +" 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))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-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" @@ -20699,10 +20785,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_51 make-_51 ?_51)))" +"(values struct:_50 make-_50 ?_50)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(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" @@ -20717,7 +20803,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_52 make-_52 ?_52)))" +"(values struct:_51 make-_51 ?_51)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -20725,7 +20811,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-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" @@ -20741,12 +20827,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(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-define-syntaxes" " parsed-define-syntaxes20.1" @@ -20754,7 +20840,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(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" @@ -20770,15 +20856,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_54" -" make-_54" -" ?_54" -"(make-struct-field-accessor -ref_54 0 'ids)" -"(make-struct-field-accessor -ref_54 1 'syms)" -"(make-struct-field-accessor -ref_54 2 'rhs))))" +" 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))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(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" @@ -20793,10 +20879,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_55 make-_55 ?_55(make-struct-field-accessor -ref_55 0 'body))))" +"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(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" @@ -20811,10 +20897,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_56 make-_56 ?_56)))" +"(values struct:_55 make-_55 ?_55)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(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" @@ -20829,10 +20915,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_57 make-_57 ?_57)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(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" @@ -20847,7 +20933,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_58 make-_58 ?_58(make-struct-field-accessor -ref_58 0 'body))))" +"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -20862,7 +20948,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(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" @@ -20878,19 +20964,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_59" -" make-_59" -" ?_59" -"(make-struct-field-accessor -ref_59 0 'star?)" -"(make-struct-field-accessor -ref_59 1 'name-id)" -"(make-struct-field-accessor -ref_59 2 'self)" -"(make-struct-field-accessor -ref_59 3 'requires)" -"(make-struct-field-accessor -ref_59 4 'provides)" -"(make-struct-field-accessor -ref_59 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_59 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_59 7 'body)" -"(make-struct-field-accessor -ref_59 8 'compiled-module)" -"(make-struct-field-accessor -ref_59 9 'compiled-submodules))))" +" 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))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 declared-submodule-names2_0 mod-path3_0 self4_2)" @@ -20944,7 +21030,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_96)))" -"((letrec-values(((for-loop_108)" +"((letrec-values(((for-loop_107)" "(lambda(syms_14 i_127)" "(begin" " 'for-loop" @@ -20963,10 +21049,10 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_108 syms_15(unsafe-immutable-hash-iterate-next ht_96 i_127))" +"(for-loop_107 syms_15(unsafe-immutable-hash-iterate-next ht_96 i_127))" " syms_15)))" " syms_14)))))" -" for-loop_108)" +" for-loop_107)" "(seteq)" "(unsafe-immutable-hash-iterate-first ht_96))))))))" "(define-values" @@ -20979,56 +21065,58 @@ static const char *startup_source = " requires+provides-requires" " requires+provides-provides" " requires+provides-phase-to-defined-syms" +" requires+provides-also-required" " requires+provides-can-cross-phase-persistent?" " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(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" " 'requires+provides" " #f" -" 8" +" 9" " 0" " #f" "(list(cons prop:authentic #t))" "(current-inspector)" " #f" -" '(0 1 2 3 4 5)" +" '(0 1 2 3 4 5 6)" " #f" " 'requires+provides)))))" "(values" -" struct:_60" -" make-_60" -" ?_60" -"(make-struct-field-accessor -ref_60 0 'self)" -"(make-struct-field-accessor -ref_60 1 'require-mpis)" -"(make-struct-field-accessor -ref_60 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_60 3 'requires)" -"(make-struct-field-accessor -ref_60 4 'provides)" -"(make-struct-field-accessor -ref_60 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_60 6 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_60 7 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_60 6 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_60 7 'all-bindings-simple?))))" +" 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?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" "(let-values()" "(let-values()" "(make-struct-type 'required #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'required)))))" "(values" -" struct:_61" -" make-_61" -" ?_61" -"(make-struct-field-accessor -ref_61 0 'id)" -"(make-struct-field-accessor -ref_61 1 'phase)" -"(make-struct-field-accessor -ref_61 2 'can-be-shadowed?)" -"(make-struct-field-accessor -ref_61 3 'as-transformer?))))" +" struct:_11" +" make-_11" +" ?_11" +"(make-struct-field-accessor -ref_11 0 'id)" +"(make-struct-field-accessor -ref_11 1 'phase)" +"(make-struct-field-accessor -ref_11 2 'can-be-shadowed?)" +"(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:_3 make-_3 ?_3 -ref_3 -set!_3)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21044,13 +21132,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_3" -" make-_3" -" ?_3" -"(make-struct-field-accessor -ref_3 0 'module)" -"(make-struct-field-accessor -ref_3 1 'provide-phase)" -"(make-struct-field-accessor -ref_3 2 'require-phase)" -"(make-struct-field-accessor -ref_3 3 'sym))))" +" 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))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21060,7 +21148,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21076,14 +21164,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_5" -" make-_5" -" ?_5" -"(make-struct-field-accessor -ref_5 0 'provides)" -"(make-struct-field-accessor -ref_5 1 'prefix-len)" -"(make-struct-field-accessor -ref_5 2 's)" -"(make-struct-field-accessor -ref_5 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_5 4 'can-be-shadowed?))))" +" 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?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 copy-requires6_0 self7_0)" @@ -21099,6 +21187,7 @@ static const char *startup_source = "(make-hasheq)" "(make-hasheqv)" "(make-hasheqv)" +"(make-hasheq)" " #t" " #t)))))))" "(define-values" @@ -21108,7 +21197,8 @@ static const char *startup_source = "(begin" "(hash-clear!(requires+provides-requires r+p_0))" "(hash-clear!(requires+provides-provides r+p_0))" -"(hash-clear!(requires+provides-phase-to-defined-syms r+p_0))))))" +"(hash-clear!(requires+provides-phase-to-defined-syms r+p_0))" +"(hash-clear!(requires+provides-also-required r+p_0))))))" "(define-values" "(intern-mpi)" "(lambda(r+p_1 mpi_27)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_27))))" @@ -21155,21 +21245,21 @@ static const char *startup_source = "(module-binding-nominal-require-phase binding_12)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" -"(let-values(((r+p114_0) r+p_3)" -"((id115_0) id_22)" -"((phase116_0) phase_51)" -"((temp117_0)(module-binding-nominal-module binding_12))" -"((temp118_0)(module-binding-nominal-require-phase binding_12))" -"((can-be-shadowed?119_0) can-be-shadowed?_0)" -"((as-transformer?120_0) as-transformer?_0))" +"(let-values(((r+p116_0) r+p_3)" +"((id117_0) id_22)" +"((phase118_0) phase_51)" +"((temp119_0)(module-binding-nominal-module binding_12))" +"((temp120_0)(module-binding-nominal-require-phase binding_12))" +"((can-be-shadowed?121_0) can-be-shadowed?_0)" +"((as-transformer?122_0) as-transformer?_0))" "(add-defined-or-required-id-at-nominal!33.1" -" as-transformer?120_0" -" can-be-shadowed?119_0" -" temp117_0" -" temp118_0" -" r+p114_0" -" id115_0" -" phase116_0)))))))))))))" +" as-transformer?122_0" +" can-be-shadowed?121_0" +" temp119_0" +" temp120_0" +" r+p116_0" +" id117_0" +" phase118_0)))))))))))))" "(define-values" "(add-defined-or-required-id-at-nominal!33.1)" "(lambda(as-transformer?25_0" @@ -21178,12 +21268,12 @@ static const char *startup_source = " nominal-require-phase23_0" " r+p30_0" " id31_0" -" phase32_1)" +" phase32_0)" "(begin" " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" "(let-values(((id_23) id31_0))" -"(let-values(((phase_52) phase32_1))" +"(let-values(((phase_52) phase32_0))" "(let-values(((nominal-module_6) nominal-module22_0))" "(let-values(((nominal-require-phase_4) nominal-require-phase23_0))" "(let-values(((can-be-shadowed?_1) can-be-shadowed?24_0))" @@ -21195,13 +21285,13 @@ static const char *startup_source = "(intern-mpi r+p_4 nominal-module_6)" " make-hasheqv)))" "(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))" -"(let-values(((sym_31)(syntax-e$1 id_23)))" +"(let-values(((sym_30)(syntax-e$1 id_23)))" "(hash-set!" " sym-to-reqds_0" -" sym_31" +" sym_30" "(cons-ish" "(required2.1 id_23 phase_52 can-be-shadowed?_1 as-transformer?_1)" -"(hash-ref sym-to-reqds_0 sym_31 null)))))))))))))))))" +"(hash-ref sym-to-reqds_0 sym_30 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" "(lambda(accum-update-nominals42_0" @@ -21222,7 +21312,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_191) s53_0))" +"(let-values(((s_190) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21241,7 +21331,7 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_191 phase_53)" +"(syntax-mapped-names s_190 phase_53)" " #f)" " #f)))" "(let-values(((mpi_29)(intern-mpi r+p_5 nominal-module_7)))" @@ -21260,17 +21350,16 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_191" +" s_190" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(begin" "(let-values(((ht_97) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_148)" -"(lambda(i_128)" +"((letrec-values(((for-loop_147)" +"(lambda(result_71 i_128)" "(begin" " 'for-loop" "(if i_128" @@ -21278,11 +21367,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_97" " i_128)))" -"(let-values((()" +"(let-values(((result_72)" "(let-values()" -"(let-values((()" +"(let-values(((result_73)" "(let-values()" -"(begin" "(let-values()" "(begin" "(if symbols-accum_0" @@ -21296,9 +21384,10 @@ static const char *startup_source = " bulk-excepts_0" " out-sym_0" " #f)" -"(void)" "(let-values()" -"(let-values(((sym_32)" +" #f)" +"(let-values()" +"(let-values(((sym_31)" "(if(not" " bulk-prefix_0)" "(let-values()" @@ -21306,117 +21395,131 @@ static const char *startup_source = "(let-values()" "(string->symbol" "(format" -" \"~a~a\"" +" \"~a~a\"" " bulk-prefix_0" " out-sym_0))))))" -"(begin" +"(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_109)" +"(let-values(((or-part_181)" "(not" " shortcut-table_0)))" -"(if or-part_109" -" or-part_109" +"(if or-part_181" +" or-part_181" "(hash-ref" " shortcut-table_0" -" sym_32" +" sym_31" " #f)))" " #f)" "(let-values()" -"(let-values(((temp121_0)" +"(let-values(((temp123_0)" " #t)" -"((r+p122_0)" +"((temp124_0)" +" #t)" +"((r+p125_0)" " r+p_5)" -"((temp123_0)" -"(datum->syntax$1" -" s_191" -" sym_32" -" s_191))" -"((phase124_0)" -" phase_53)" -"((orig-s125_0)" -" orig-s_0)" "((temp126_0)" +"(datum->syntax$1" +" s_190" +" sym_31" +" s_190))" +"((phase127_0)" +" phase_53)" +"((orig-s128_0)" +" orig-s_0)" +"((temp129_0)" "(lambda()" -"(let-values(((binding/p130_0)" +"(let-values(((binding/p133_0)" " binding/p_2)" -"((sym131_0)" -" sym_32)" -"((self132_0)" +"((sym134_0)" +" sym_31)" +"((self135_0)" " self_9)" -"((mpi133_0)" +"((mpi136_0)" " mpi_29)" -"((provide-phase-level134_0)" +"((provide-phase-level137_0)" " provide-phase-level_3)" -"((phase-shift135_0)" +"((phase-shift138_0)" " phase-shift_7))" "(provide-binding-to-require-binding11.1" -" mpi133_0" -" phase-shift135_0" -" provide-phase-level134_0" -" self132_0" -" binding/p130_0" -" sym131_0))))" -"((temp127_0)" +" mpi136_0" +" phase-shift138_0" +" provide-phase-level137_0" +" self135_0" +" binding/p133_0" +" sym134_0))))" +"((temp130_0)" " #t)" -"((accum-update-nominals128_0)" +"((accum-update-nominals131_0)" " accum-update-nominals_0)" -"((who129_0)" +"((who132_0)" " who_10))" -"(check-not-defined93.1" -" accum-update-nominals128_0" +"(check-not-defined95.1" +" accum-update-nominals131_0" " #t" -" temp121_0" +" temp124_0" " #t" -" orig-s125_0" -" temp127_0" -" #t" -" temp126_0" -" #t" -" who129_0" -" r+p122_0" " temp123_0" -" phase124_0)))" -"(void))" +" #t" +" orig-s128_0" +" temp130_0" +" #t" +" temp129_0" +" #t" +" who132_0" +" r+p125_0" +" temp126_0" +" phase127_0)))" +"(let-values()" +" #f))))" +"(begin" +"(if already-defined?_0" +"(void)" +"(let-values()" "(hash-set!" " sym-to-reqds_1" -" sym_32" +" sym_31" "(cons-ish" " br_0" "(hash-ref" " sym-to-reqds_1" -" sym_32" -" null)))))))))" -"(values)))))" -"(values)))))" -"(if(not #f)" -"(for-loop_148" -"(hash-iterate-next" -" ht_97" -" i_128))" -"(values))))" -"(values))))))" -" for-loop_148)" -"(hash-iterate-first ht_97))))" -"(void))))))))))))))))))))))))))))" +" sym_31" +" null)))))" +" already-defined?_0))))))))))" +"(values" +" result_73)))))" +"(if(if(not" +"((lambda x_53 result_72)" +" out-sym_0" +" binding/p_2))" +"(not #f)" +" #f)" +"(for-loop_147" +" result_72" +"(hash-iterate-next ht_97 i_128))" +" result_72)))" +" result_71)))))" +" for-loop_147)" +" #f" +"(hash-iterate-first ht_97))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_54 sym_33)" +"(lambda(br_1 nominal-module_8 phase_54 sym_32)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" "(if(zero? prefix-len_1)" -" sym_33" -"(string->symbol(substring(symbol->string sym_33) prefix-len_1)))))" +" sym_32" +"(string->symbol(substring(symbol->string sym_32) prefix-len_1)))))" "(let-values(((binding/p_3)(hash-ref(bulk-required-provides br_1) out-sym_1)))" "(required2.1" -"(datum->syntax$1(bulk-required-s br_1) sym_33)" +"(datum->syntax$1(bulk-required-s br_1) sym_32)" "(phase+ phase_54(bulk-required-provide-phase-level br_1))" "(bulk-required-can-be-shadowed? br_1)" "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_34 mod-name_9 phase_55 sym_34)" -"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_55 sym_34) r_34))))" +"(lambda(r_34 mod-name_9 phase_55 sym_33)" +"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_55 sym_33) r_34))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -21429,17 +21532,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_5)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_98)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_5)))" -"((letrec-values(((for-loop_149)" +"(let-values()(check-in-hash ht_98)))" +"((letrec-values(((for-loop_148)" "(lambda(i_129)" "(begin" " 'for-loop" "(if i_129" -"(let-values(((mod-name_10 at-mod_2)(hash-iterate-key+value ht_5 i_129)))" +"(let-values(((mod-name_10 at-mod_2)" +"(hash-iterate-key+value ht_98 i_129)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21447,25 +21551,25 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_98) at-mod_2))" +"(let-values(((ht_99) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_98)))" -"((letrec-values(((for-loop_150)" -"(lambda(i_63)" +"(check-in-hash ht_99)))" +"((letrec-values(((for-loop_149)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_63" +"(if i_130" "(let-values(((phase_56" " at-phase_8)" "(hash-iterate-key+value" -" ht_98" -" i_63)))" +" ht_99" +" i_130)))" "(let-values((()" -"(let-values(((ht_99)" +"(let-values(((ht_100)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -21473,40 +21577,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_99)))" -"((letrec-values(((for-loop_151)" -"(lambda(i_130)" +" ht_100)))" +"((letrec-values(((for-loop_150)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_130" -"(let-values(((sym_35" +"(if i_131" +"(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" -" ht_99" -" i_130)))" +" ht_100" +" i_131)))" "(let-values((()" -"(let-values(((lst_118)" +"(let-values(((lst_119)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_152)" -"(lambda(lst_119)" +"((letrec-values(((for-loop_151)" +"(lambda(lst_120)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_119))" +" lst_120))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_119)" +" lst_120)" "(car" -" lst_119)" -" lst_119))" +" lst_120)" +" lst_120))" "((rest_58)" "(if(pair?" -" lst_119)" +" lst_120)" "(cdr" -" lst_119)" +" lst_120)" " null)))" "(let-values((()" "(let-values()" @@ -21519,88 +21623,90 @@ static const char *startup_source = " reqd/maybe-bulk_0" " mod-name_10" " phase_56" -" sym_35)))" -"(let-values(((r+p136_0)" +" sym_34)))" +"(let-values(((r+p139_0)" " r+p_6)" -"((temp137_0)" +"((temp140_0)" "(syntax-shift-phase-level$1" -"(let-values(((temp143_0)" +"(let-values(((temp146_0)" "(required-id" " reqd_0))" -"((temp144_0)" +"((temp147_0)" "(requires+provides-self" " enclosing-r+p_0))" -"((enclosing-mod145_0)" +"((enclosing-mod148_0)" " enclosing-mod_0))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" temp143_0" -" temp144_0" -" enclosing-mod145_0" +" temp146_0" +" temp147_0" +" enclosing-mod148_0" " #f" " #f))" " phase-shift_8))" -"((temp138_0)" +"((temp141_0)" "(phase+" "(required-phase" " reqd_0)" " phase-shift_8))" -"((enclosing-mod139_0)" +"((enclosing-mod142_0)" " enclosing-mod_0)" -"((phase-shift140_1)" +"((phase-shift143_0)" " phase-shift_8)" -"((temp141_0)" +"((temp144_0)" " #t)" -"((temp142_0)" +"((temp145_0)" "(required-as-transformer?" " reqd_0)))" "(add-defined-or-required-id-at-nominal!33.1" -" temp142_0" -" temp141_0" -" enclosing-mod139_0" -" phase-shift140_1" -" r+p136_0" -" temp137_0" -" temp138_0))))" +" temp145_0" +" temp144_0" +" enclosing-mod142_0" +" phase-shift143_0" +" r+p139_0" +" temp140_0" +" temp141_0))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_152" -" rest_58)" -"(values))))" -"(values))))))" -" for-loop_152)" -" lst_118)))))" -"(if(not" -" #f)" "(for-loop_151" +" rest_58)" +"(values))))" +"(values))))))" +" for-loop_151)" +" lst_119)))))" +"(if(not" +" #f)" +"(for-loop_150" +"(hash-iterate-next" +" ht_100" +" i_131))" +"(values))))" +"(values))))))" +" for-loop_150)" +"(hash-iterate-first" +" ht_100))))))" +"(if(not" +" #f)" +"(for-loop_149" "(hash-iterate-next" " ht_99" " i_130))" "(values))))" "(values))))))" -" for-loop_151)" -"(hash-iterate-first" -" ht_99))))))" -"(if(not" -" #f)" -"(for-loop_150" -"(hash-iterate-next" -" ht_98" -" i_63))" -"(values))))" -"(values))))))" -" for-loop_150)" -"(hash-iterate-first ht_98))))" +" for-loop_149)" +"(hash-iterate-first ht_99))))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_149(hash-iterate-next ht_5 i_129))(values))))" +"(if(not #f)" +"(for-loop_148(hash-iterate-next ht_98 i_129))" +"(values))))" "(values))))))" -" for-loop_149)" -"(hash-iterate-first ht_5))))" +" for-loop_148)" +"(hash-iterate-first ht_98))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -21612,65 +21718,65 @@ static const char *startup_source = "(let-values(((phase_57) phase74_1))" "(let-values(((binding_13) unless-matches70_0))" "(let-values()" -"(let-values(((b_66)" -"(let-values(((id146_0) id_24)((phase147_0) phase_57)((temp148_0) #t))" -"(resolve+shift30.1 #f #f temp148_0 #t #f #f #f #f #f #f id146_0 phase147_0))))" -"(if b_66" +"(let-values(((b_64)" +"(let-values(((id149_0) id_24)((phase150_0) phase_57)((temp151_0) #t))" +"(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" +"(if b_64" "(let-values()" -"(let-values(((mpi_30)(intern-mpi r+p_7(module-binding-nominal-module b_66))))" +"(let-values(((mpi_30)(intern-mpi r+p_7(module-binding-nominal-module b_64))))" "(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_30 #f)))" "(if at-mod_3" "(let-values()" -"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_66)))" +"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_64)))" "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" -"(let-values(((sym_36)(syntax-e$1 id_24)))" -"(let-values(((l_52)(hash-ref sym-to-reqds_2 sym_36 null)))" +"(let-values(((sym_35)(syntax-e$1 id_24)))" +"(let-values(((l_52)(hash-ref sym-to-reqds_2 sym_35 null)))" "(if(null? l_52)" "(void)" "(let-values()" -"(if(same-binding? b_66 binding_13)" +"(if(same-binding? b_64 binding_13)" "(void)" "(let-values()" "(hash-set!" " sym-to-reqds_2" -" sym_36" +" sym_35" "(remove-non-matching-requireds" " l_52" " id_24" " phase_57" " mpi_30" " nominal-phase_4" -" sym_36)))))))))" +" sym_35)))))))))" "(void)))))" "(void)))))" "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_25 phase_58 mpi_31 nominal-phase_5 sym_37)" +"(lambda(reqds_1 id_25 phase_58 mpi_31 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_120) reqds_1))" +"(let-values(((lst_121) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_153)" -"(lambda(fold-var_98 lst_121)" +"((letrec-values(((for-loop_152)" +"(lambda(fold-var_98 lst_122)" "(begin" " 'for-loop" -"(if(not(null? lst_121))" -"(let-values(((r_35)(if(pair? lst_121)(car lst_121) lst_121))" -"((rest_59)(if(pair? lst_121)(cdr lst_121) null)))" +"(if(not(null? lst_122))" +"(let-values(((r_35)(if(pair? lst_122)(car lst_122) lst_122))" +"((rest_59)(if(pair? lst_122)(cdr lst_122) null)))" "(let-values(((fold-var_99)" "(let-values(((r_36)" "(normalize-required" " r_35" " mpi_31" " nominal-phase_5" -" sym_37)))" +" sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_154)" +"((letrec-values(((for-loop_153)" "(lambda(fold-var_100)" "(begin" " 'for-loop" @@ -21700,55 +21806,77 @@ static const char *startup_source = "(values" " fold-var_104)))))))" " fold-var_101))))))" -" for-loop_154)" -" fold-var_98)))))" -"(if(not #f)(for-loop_153 fold-var_99 rest_59) fold-var_99)))" -" fold-var_98)))))" " for-loop_153)" +" fold-var_98)))))" +"(if(not #f)(for-loop_152 fold-var_99 rest_59) fold-var_99)))" +" fold-var_98)))))" +" for-loop_152)" " null" -" lst_120)))))))" +" lst_121)))))))" "(define-values" -"(check-not-defined93.1)" -"(lambda(accum-update-nominals82_0" -" accum-update-nominals88_0" +"(check-not-defined95.1)" +"(lambda(accum-update-nominals83_0" +" accum-update-nominals90_0" +" allow-defined?79_0" +" allow-defined?86_0" " check-not-required?78_0" -" check-not-required?84_0" -" in79_0" -" remove-shadowed!?81_0" -" remove-shadowed!?87_0" -" unless-matches80_0" -" unless-matches86_0" -" who83_0" -" r+p90_0" -" id91_0" -" phase92_0)" +" check-not-required?85_0" +" in80_0" +" remove-shadowed!?82_0" +" remove-shadowed!?89_0" +" unless-matches81_0" +" unless-matches88_0" +" who84_0" +" r+p92_0" +" id93_0" +" phase94_0)" "(begin" -" 'check-not-defined93" -"(let-values(((check-not-required?_0)(if check-not-required?84_0 check-not-required?78_0 #f)))" -"(let-values(((r+p_8) r+p90_0))" -"(let-values(((id_26) id91_0))" -"(let-values(((phase_59) phase92_0))" -"(let-values(((orig-s_1) in79_0))" -"(let-values(((ok-binding/delayed_0)(if unless-matches86_0 unless-matches80_0 #f)))" -"(let-values(((remove-shadowed!?_0)(if remove-shadowed!?87_0 remove-shadowed!?81_0 #f)))" +" 'check-not-defined95" +"(let-values(((check-not-required?_0)(if check-not-required?85_0 check-not-required?78_0 #f)))" +"(let-values(((allow-defined?_0)(if allow-defined?86_0 allow-defined?79_0 #f)))" +"(let-values(((r+p_8) r+p92_0))" +"(let-values(((id_26) id93_0))" +"(let-values(((phase_59) phase94_0))" +"(let-values(((orig-s_1) in80_0))" +"(let-values(((ok-binding/delayed_0)(if unless-matches88_0 unless-matches81_0 #f)))" +"(let-values(((remove-shadowed!?_0)(if remove-shadowed!?89_0 remove-shadowed!?82_0 #f)))" "(let-values(((accum-update-nominals_1)" -"(if accum-update-nominals88_0 accum-update-nominals82_0 #f)))" -"(let-values(((who_11) who83_0))" +"(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))" +"(let-values(((who_11) who84_0))" "(let-values()" -"(let-values(((b_67)" -"(let-values(((id149_0) id_26)((phase150_0) phase_59)((temp151_0) #t))" -"(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" -"(if(not b_67)" -"(let-values()(void))" -"(if(not(module-binding? b_67))" -" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_26))" +"(let-values(((b_65)" +"(let-values(((id152_0) id_26)((phase153_0) phase_59)((temp154_0) #t))" +"(resolve+shift30.1" +" #f" +" #f" +" temp154_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" id152_0" +" phase153_0))))" +"(if(not b_65)" +"(let-values() #f)" +"(if(not(module-binding? b_65))" +" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_26))" "(let-values()" "(let-values(((defined?_0)" -"(if b_67" -"(eq?(requires+provides-self r+p_8)(module-binding-module b_67))" +"(if b_65" +"(eq?(requires+provides-self r+p_8)(module-binding-module b_65))" " #f)))" "(if(if(not defined?_0)(not check-not-required?_0) #f)" -"(let-values()(set-requires+provides-all-bindings-simple?! r+p_8 #f))" +"(let-values()" +"(begin" +"(set-requires+provides-all-bindings-simple?! r+p_8 #f)" +"(hash-set!" +"(requires+provides-also-required r+p_8)" +"(module-binding-sym b_65)" +" b_65)" +" #f))" "(if(if defined?_0" "(not" "(hash-ref" @@ -21756,43 +21884,64 @@ static const char *startup_source = "(requires+provides-phase-to-defined-syms r+p_8)" " phase_59" " '#hasheq())" -"(module-binding-sym b_67)" +"(module-binding-sym b_65)" " #f))" " #f)" -"(let-values()(void))" +"(let-values() #f)" "(let-values()" "(let-values(((mpi_32)" -"(intern-mpi r+p_8(module-binding-nominal-module b_67))))" +"(intern-mpi r+p_8(module-binding-nominal-module b_65))))" "(let-values(((at-mod_4)" "(hash-ref(requires+provides-requires r+p_8) mpi_32 #f)))" "(let-values(((ok-binding_0)" "(if(procedure? ok-binding/delayed_0)" "(ok-binding/delayed_0)" " ok-binding/delayed_0)))" -"(if(not at-mod_4)" -"(let-values()(void))" -"(if(if ok-binding_0(same-binding? b_67 ok-binding_0) #f)" +"(let-values(((raise-already-bound_0)" +"(lambda(defined?_1)" +"(begin" +" 'raise-already-bound" +"(raise-syntax-error$1" +" who_11" +"(string-append" +" \"identifier already \"" +" (if defined?_1 \"defined\" \"required\")" +"(if(zero-phase? phase_59)" +" (let-values () \"\")" +"(if(label-phase? phase_59)" +" (let-values () \" for label\")" +"(if(= 1 phase_59)" +" (let-values () \" for syntax\")" "(let-values()" -"(if(same-binding-nominals? b_67 ok-binding_0)" +" (format \" for phase ~a\" phase_59))))))" +" orig-s_1" +" id_26)))))" +"(if(not at-mod_4)" +"(let-values() #f)" +"(if(if ok-binding_0(same-binding? b_65 ok-binding_0) #f)" +"(let-values()" +"(begin" +"(if(same-binding-nominals? b_65 ok-binding_0)" "(void)" "(let-values()" "(let-values(((update!_0)" "(lambda()" "(begin" " 'update!" -"(let-values(((temp152_0) #t)" -"((id153_0) id_26)" -"((temp154_0)" -"(let-values(((b156_0) b_67)" +"(let-values(((temp155_0) #t)" +"((id156_0) id_26)" "((temp157_0)" +"(let-values(((b159_0)" +" b_65)" +"((temp160_0)" "(cons" " ok-binding_0" "(module-binding-extra-nominal-bindings" -" b_67))))" +" b_65))))" "(module-binding-update48.1" " #f" " #f" -" temp157_0" +" temp160_0" " #t" " #f" " #f" @@ -21812,50 +21961,79 @@ static const char *startup_source = " #f" " #f" " #f" -" b156_0)))" -"((phase155_0) phase_59))" +" b159_0)))" +"((phase158_0) phase_59))" "(add-binding!17.1" " #f" " #f" -" temp152_0" +" temp155_0" " #t" -" id153_0" -" temp154_0" -" phase155_0))))))" +" id156_0" +" temp157_0" +" phase158_0))))))" "(if accum-update-nominals_1" "(let-values()" "(set-box!" " accum-update-nominals_1" -"(cons update!_0(unbox accum-update-nominals_1))))" -"(let-values()(update!_0)))))))" +"(cons" +" update!_0" +"(unbox accum-update-nominals_1))))" +"(let-values()(update!_0))))))" +" defined?_0))" +"(if(if defined?_0 allow-defined?_0 #f)" +"(let-values()" +"(let-values(((also-required_0)" +"(requires+provides-also-required r+p_8)))" +"(let-values(((prev-b_0)" +"(hash-ref" +" also-required_0" +"(module-binding-sym b_65)" +" #f)))" +"(begin" +"(if(if prev-b_0" +"(not(same-binding? ok-binding_0 prev-b_0))" +" #f)" +"(let-values()(raise-already-bound_0 #f))" +"(void))" +"(hash-set!" +" also-required_0" +"(module-binding-sym b_65)" +" ok-binding_0)" +"(set-requires+provides-all-bindings-simple?! r+p_8 #f)" +" #t))))" "(let-values()" "(let-values(((nominal-phase_6)" -"(module-binding-nominal-require-phase b_67)))" +"(module-binding-nominal-require-phase b_65)))" "(let-values(((sym-to-reqds_3)" -"(hash-ref at-mod_4 nominal-phase_6 '#hasheq())))" +"(hash-ref" +" at-mod_4" +" nominal-phase_6" +" '#hasheq())))" "(let-values(((reqds_2)" "(hash-ref" " sym-to-reqds_3" "(syntax-e$1 id_26)" " null)))" "(begin" -"(let-values(((lst_122) reqds_2))" +"(let-values(((lst_123) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_155)" -"(lambda(lst_123)" +"((letrec-values(((for-loop_154)" +"(lambda(lst_124)" "(begin" " 'for-loop" -"(if(not(null? lst_123))" +"(if(not(null? lst_124))" "(let-values(((r_37)" "(if(pair?" -" lst_123)" -"(car lst_123)" -" lst_123))" +" lst_124)" +"(car" +" lst_124)" +" lst_124))" "((rest_60)" "(if(pair?" -" lst_123)" -"(cdr lst_123)" +" lst_124)" +"(cdr" +" lst_124)" " null)))" "(let-values((()" "(let-values()" @@ -21874,42 +22052,21 @@ static const char *startup_source = " r+p_8" " #f))" "(let-values()" -"(raise-syntax-error$1" -" who_11" -"(string-append" -" \"identifier already \"" -"(if defined?_0" -" \"defined\"" -" \"required\")" -"(if(zero-phase?" -" phase_59)" -"(let-values()" -" \"\")" -"(if(label-phase?" -" phase_59)" -"(let-values()" -" \" for label\")" -"(if(=" -" 1" -" phase_59)" -"(let-values()" -" \" for syntax\")" -"(let-values()" -"(format" -" \" for phase ~a\"" -" phase_59))))))" -" orig-s_1" -" id_26))))" +"(raise-already-bound_0" +" defined?_0))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_155 rest_60)" +"(for-loop_154" +" rest_60)" "(values))))" "(values))))))" -" for-loop_155)" -" lst_122)))" +" for-loop_154)" +" lst_123)))" "(void)" -"(if(if remove-shadowed!?_0(not(null? reqds_2)) #f)" +"(if(if remove-shadowed!?_0" +"(not(null? reqds_2))" +" #f)" "(let-values()" "(hash-set!" " sym-to-reqds_3" @@ -21921,7 +22078,8 @@ static const char *startup_source = " mpi_32" " nominal-phase_6" "(syntax-e$1 id_26))))" -"(void)))))))))))))))))))))))))))))))))" +"(void))" +" #f))))))))))))))))))))))))))))))))))" "(define-values" "(add-defined-syms!)" "(lambda(r+p_9 syms_18 phase_60)" @@ -21929,34 +22087,34 @@ static const char *startup_source = "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_60 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_124) syms_18))" +"(let-values(((lst_125) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_124)))" -"((letrec-values(((for-loop_156)" -"(lambda(defined-syms_3 lst_125)" +"(let-values()(check-list lst_125)))" +"((letrec-values(((for-loop_155)" +"(lambda(defined-syms_3 lst_126)" "(begin" " 'for-loop" -"(if(pair? lst_125)" -"(let-values(((sym_38)(unsafe-car lst_125))" -"((rest_61)(unsafe-cdr lst_125)))" +"(if(pair? lst_126)" +"(let-values(((sym_37)(unsafe-car lst_126))" +"((rest_61)(unsafe-cdr lst_126)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" "(let-values()" "(hash-set" " defined-syms_5" -" sym_38" +" sym_37" " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_156 defined-syms_4 rest_61)" +"(for-loop_155 defined-syms_4 rest_61)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_156)" +" for-loop_155)" " defined-syms_2" -" lst_124)))))" +" lst_125)))))" "(hash-set! phase-to-defined-syms_0 phase_60 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" @@ -21966,33 +22124,33 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_33 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_100)(hash-ref at-mod_5 phase_61 '#hasheq())))" +"(let-values(((ht_101)(hash-ref at-mod_5 phase_61 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_157)" -"(lambda(fold-var_105 i_131)" +"(let-values()(check-in-hash ht_101)))" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_105 i_132)" "(begin" " 'for-loop" -"(if i_131" -"(let-values(((sym_39 reqds_3)(hash-iterate-key+value ht_100 i_131)))" +"(if i_132" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_101 i_132)))" "(let-values(((fold-var_106)" -"(let-values(((lst_126) reqds_3))" +"(let-values(((lst_127) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_107 lst_127)" +"((letrec-values(((for-loop_157)" +"(lambda(fold-var_107 lst_128)" "(begin" " 'for-loop" -"(if(not(null? lst_127))" +"(if(not(null? lst_128))" "(let-values(((reqd_1)" -"(if(pair? lst_127)" -"(car lst_127)" -" lst_127))" +"(if(pair? lst_128)" +"(car lst_128)" +" lst_128))" "((rest_62)" -"(if(pair? lst_127)" -"(cdr lst_127)" +"(if(pair? lst_128)" +"(cdr lst_128)" " null)))" "(let-values(((fold-var_108)" "(let-values(((fold-var_109)" @@ -22005,33 +22163,33 @@ static const char *startup_source = " reqd_1" " mpi_33" " phase_61" -" sym_39))" +" sym_38))" " fold-var_109))))" "(values" " fold-var_110)))))" "(if(not #f)" -"(for-loop_158" +"(for-loop_157" " fold-var_108" " rest_62)" " fold-var_108)))" " fold-var_107)))))" -" for-loop_158)" +" for-loop_157)" " fold-var_105" -" lst_126)))))" +" lst_127)))))" "(if(not #f)" -"(for-loop_157 fold-var_106(hash-iterate-next ht_100 i_131))" +"(for-loop_156 fold-var_106(hash-iterate-next ht_101 i_132))" " fold-var_106)))" " fold-var_105)))))" -" for-loop_157)" +" for-loop_156)" " null" -"(hash-iterate-first ht_100)))))" +"(hash-iterate-first ht_101)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_181)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_181 or-part_181 null)))))" +"(let-values(((or-part_182)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_182 or-part_182 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_62)" @@ -22041,18 +22199,18 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_128)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_129)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_128)))" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_111 lst_129)" +"(let-values()(check-list lst_129)))" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_111 lst_130)" "(begin" " 'for-loop" -"(if(pair? lst_129)" -"(let-values(((mod-name_13)(unsafe-car lst_129))" -"((rest_63)(unsafe-cdr lst_129)))" +"(if(pair? lst_130)" +"(let-values(((mod-name_13)(unsafe-car lst_130))" +"((rest_63)(unsafe-cdr lst_130)))" "(let-values(((fold-var_112)" "(let-values(((fold-var_113) fold-var_111))" "(if(eq? mod-name_13 self_10)" @@ -22064,13 +22222,13 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_159)" "(lambda(fold-var_114)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_115)" -"(let-values(((lst_130)" +"(let-values(((lst_131)" "(if(eq?" " phase_62" " 'all)" @@ -22084,22 +22242,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_130)))" -"((letrec-values(((for-loop_161)" +" lst_131)))" +"((letrec-values(((for-loop_160)" "(lambda(fold-var_116" -" lst_131)" +" lst_132)" "(begin" " 'for-loop" "(if(pair?" -" lst_131)" +" lst_132)" "(let-values(((phase_63)" "(unsafe-car" -" lst_131))" +" lst_132))" "((rest_64)" "(unsafe-cdr" -" lst_131)))" +" lst_132)))" "(let-values(((fold-var_117)" -"(let-values(((ht_101)" +"(let-values(((ht_102)" "(hash-ref" " phase-to-requireds_0" " phase_63" @@ -22112,42 +22270,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_101)))" -"((letrec-values(((for-loop_162)" +" ht_102)))" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_118" -" i_132)" +" i_133)" "(begin" " 'for-loop" -"(if i_132" -"(let-values(((sym_40" +"(if i_133" +"(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_101" -" i_132)))" +" ht_102" +" i_133)))" "(let-values(((fold-var_119)" -"(let-values(((lst_132)" +"(let-values(((lst_133)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_163)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_120" -" lst_133)" +" lst_134)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_133))" +" lst_134))" "(let-values(((reqd_2)" "(if(pair?" -" lst_133)" +" lst_134)" "(car" -" lst_133)" -" lst_133))" +" lst_134)" +" lst_134))" "((rest_65)" "(if(pair?" -" lst_133)" +" lst_134)" "(cdr" -" lst_133)" +" lst_134)" " null)))" "(let-values(((fold-var_121)" "(let-values(((fold-var_122)" @@ -22160,92 +22318,92 @@ static const char *startup_source = " reqd_2" " mod-name_13" " phase_63" -" sym_40))" +" sym_39))" " fold-var_122))))" "(values" " fold-var_123)))))" "(if(not" " #f)" -"(for-loop_163" +"(for-loop_162" " fold-var_121" " rest_65)" " fold-var_121)))" " fold-var_120)))))" -" for-loop_163)" -" fold-var_118" -" lst_132)))))" -"(if(not" -" #f)" -"(for-loop_162" -" fold-var_119" -"(hash-iterate-next" -" ht_101" -" i_132))" -" fold-var_119)))" -" fold-var_118)))))" " for-loop_162)" -" fold-var_116" -"(hash-iterate-first" -" ht_101))))))" +" fold-var_118" +" lst_133)))))" "(if(not" " #f)" "(for-loop_161" +" fold-var_119" +"(hash-iterate-next" +" ht_102" +" i_133))" +" fold-var_119)))" +" fold-var_118)))))" +" for-loop_161)" +" fold-var_116" +"(hash-iterate-first" +" ht_102))))))" +"(if(not" +" #f)" +"(for-loop_160" " fold-var_117" " rest_64)" " fold-var_117)))" " fold-var_116)))))" -" for-loop_161)" -" fold-var_114" -" lst_130)))))" -" fold-var_115))))))" " for-loop_160)" -" fold-var_113)))))))" -"(if(not #f)(for-loop_159 fold-var_112 rest_63) fold-var_112)))" -" fold-var_111)))))" +" fold-var_114" +" lst_131)))))" +" fold-var_115))))))" " for-loop_159)" +" fold-var_113)))))))" +"(if(not #f)(for-loop_158 fold-var_112 rest_63) fold-var_112)))" +" fold-var_111)))))" +" for-loop_158)" " null" -" lst_128)))))))))))" +" lst_129)))))))))))" "(define-values" -"(add-provide!107.1)" -"(lambda(as-protected?96_0" -" as-transformer?97_0" -" r+p100_0" -" sym101_0" -" phase102_0" -" binding103_0" -" immed-binding104_0" -" id105_0" -" orig-s106_0)" +"(add-provide!109.1)" +"(lambda(as-protected?98_0" +" as-transformer?99_0" +" r+p102_0" +" sym103_0" +" phase104_0" +" binding105_0" +" immed-binding106_0" +" id107_0" +" orig-s108_0)" "(begin" -" 'add-provide!107" -"(let-values(((r+p_13) r+p100_0))" -"(let-values(((sym_41) sym101_0))" -"(let-values(((phase_64) phase102_0))" -"(let-values(((binding_14) binding103_0))" -"(let-values(((immed-binding_0) immed-binding104_0))" -"(let-values(((id_27) id105_0))" -"(let-values(((orig-s_2) orig-s106_0))" -"(let-values(((as-protected?_0) as-protected?96_0))" -"(let-values(((as-transformer?_2) as-transformer?97_0))" +" 'add-provide!109" +"(let-values(((r+p_13) r+p102_0))" +"(let-values(((sym_40) sym103_0))" +"(let-values(((phase_64) phase104_0))" +"(let-values(((binding_14) binding105_0))" +"(let-values(((immed-binding_0) immed-binding106_0))" +"(let-values(((id_27) id107_0))" +"(let-values(((orig-s_2) orig-s108_0))" +"(let-values(((as-protected?_0) as-protected?98_0))" +"(let-values(((as-transformer?_2) as-transformer?99_0))" "(let-values()" "(begin" "(if(if as-protected?_0" "(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_13)))" " #f)" "(let-values()" -" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_41))" +" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_40))" "(void))" "(hash-update!" "(requires+provides-provides r+p_13)" " phase_64" "(lambda(at-phase_9)" -"(let-values(((b/p_0)(hash-ref at-phase_9 sym_41 #f)))" -"(let-values(((b_68)(provided-as-binding b/p_0)))" -"(if(not b_68)" +"(let-values(((b/p_0)(hash-ref at-phase_9 sym_40 #f)))" +"(let-values(((b_66)(provided-as-binding b/p_0)))" +"(if(not b_66)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_14)" -"(let-values(((binding158_0) binding_14)((temp159_0) #f))" +"(let-values(((binding161_0) binding_14)((temp162_1) #f))" "(module-binding-update48.1" " #f" " #f" @@ -22253,7 +22411,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp159_0" +" temp162_1" " #t" " #f" " #f" @@ -22269,16 +22427,16 @@ static const char *startup_source = " #f" " #f" " #f" -" binding158_0))" +" binding161_0))" " binding_14)))" "(hash-set" " at-phase_9" -" sym_41" -"(if(let-values(((or-part_182) as-protected?_0))" -"(if or-part_182 or-part_182 as-transformer?_2))" +" sym_40" +"(if(let-values(((or-part_183) as-protected?_0))" +"(if or-part_183 or-part_183 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" -"(if(same-binding? b_68 binding_14)" +"(if(same-binding? b_66 binding_14)" "(let-values() at-phase_9)" "(let-values()" "(raise-syntax-error$1" @@ -22297,22 +22455,22 @@ static const char *startup_source = " 'extract-requires" "(let-values(((phase-to-mpis-in-order_0)(requires+provides-require-mpis-in-order r+p_14)))" "(let-values(((phases-in-order_1)" -"(let-values(((temp160_0)(hash-keys phase-to-mpis-in-order_0))" -"((phasesym-set" -" id147_0))" +" id149_1))" " #f" " #f" " 'path))))" @@ -23359,136 +23517,136 @@ static const char *startup_source = " 'phaseless)" "(values))))" "(let-values(((ok?_8" -" prefix154_0" -" id:prefix155_0" -" spec156_0)" -"(let-values(((s_222)" +" prefix156_0" +" id:prefix157_0" +" spec158_0)" +"(let-values(((s_221)" " req_0))" "(let-values(((orig-s_10)" -" s_222))" -"(let-values(((prefix154_1" -" id:prefix155_1" -" spec156_1)" +" s_221))" +"(let-values(((prefix156_1" +" id:prefix157_1" +" spec158_1)" +"(let-values(((s_222)" +"(if(syntax?$1" +" s_221)" +"(syntax-e$1" +" s_221)" +" s_221)))" +"(if(pair?" +" s_222)" +"(let-values(((prefix159_0)" "(let-values(((s_223)" -"(if(syntax?$1" -" s_222)" -"(syntax-e$1" -" s_222)" +"(car" " s_222)))" -"(if(pair?" -" s_223)" -"(let-values(((prefix157_0)" +" s_223))" +"((id:prefix160_0" +" spec161_0)" "(let-values(((s_224)" -"(car" -" s_223)))" -" s_224))" -"((id:prefix158_0" -" spec159_0)" -"(let-values(((s_225)" "(cdr" -" s_223)))" -"(let-values(((s_226)" +" s_222)))" +"(let-values(((s_225)" "(if(syntax?$1" -" s_225)" +" s_224)" "(syntax-e$1" -" s_225)" -" s_225)))" +" s_224)" +" s_224)))" "(if(pair?" -" s_226)" -"(let-values(((id:prefix160_0)" -"(let-values(((s_227)" +" s_225)" +"(let-values(((id:prefix162_0)" +"(let-values(((s_226)" "(car" -" s_226)))" -"(if(let-values(((or-part_189)" +" s_225)))" +"(if(let-values(((or-part_190)" "(if(syntax?$1" -" s_227)" +" s_226)" "(symbol?" "(syntax-e$1" -" s_227))" +" s_226))" " #f)))" -"(if or-part_189" -" or-part_189" +"(if or-part_190" +" or-part_190" "(symbol?" -" s_227)))" -" s_227" +" s_226)))" +" s_226" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_10" -" s_227))))" -"((spec161_0)" +" s_226))))" +"((spec163_0)" +"(let-values(((s_227)" +"(cdr" +" s_225)))" "(let-values(((s_228)" -"(cdr" -" s_226)))" -"(let-values(((s_229)" "(if(syntax?$1" -" s_228)" +" s_227)" "(syntax-e$1" -" s_228)" -" s_228)))" +" s_227)" +" s_227)))" "(if(pair?" -" s_229)" -"(let-values(((spec162_0)" -"(let-values(((s_230)" +" s_228)" +"(let-values(((spec164_0)" +"(let-values(((s_229)" "(car" -" s_229)))" -" s_230))" +" s_228)))" +" s_229))" "(()" -"(let-values(((s_231)" +"(let-values(((s_230)" "(cdr" -" s_229)))" -"(let-values(((s_232)" +" s_228)))" +"(let-values(((s_231)" "(if(syntax?$1" -" s_231)" +" s_230)" "(syntax-e$1" -" s_231)" -" s_231)))" +" s_230)" +" s_230)))" "(if(null?" -" s_232)" +" s_231)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_10))))))" "(values" -" spec162_0))" +" spec164_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_10))))))" "(values" -" id:prefix160_0" -" spec161_0))" +" id:prefix162_0" +" spec163_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_10))))))" "(values" -" prefix157_0" -" id:prefix158_0" -" spec159_0))" +" prefix159_0" +" id:prefix160_0" +" spec161_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_10)))))" "(values" " #t" -" prefix154_1" -" id:prefix155_1" -" spec156_1))))))" +" prefix156_1" +" id:prefix157_1" +" spec158_1))))))" "(loop_84" "(list" -" spec156_0)" -"(let-values(((or-part_190)" +" spec158_0)" +"(let-values(((or-part_191)" " top-req_0))" -"(if or-part_190" -" or-part_190" +"(if or-part_191" +" or-part_191" " req_0))" " phase-shift_10" " just-meta_0" "(adjust-prefix2.1" "(syntax-e$1" -" id:prefix155_0))" +" id:prefix157_0))" " #f" " #f" " 'path))))" @@ -23502,60 +23660,60 @@ static const char *startup_source = " 'phaseless)" "(values))))" "(let-values(((ok?_9" -" all-except163_0" -" spec164_0" -" id165_0)" -"(let-values(((s_233)" +" all-except165_0" +" spec166_0" +" id167_0)" +"(let-values(((s_232)" " req_0))" "(let-values(((orig-s_11)" -" s_233))" -"(let-values(((all-except163_1" -" spec164_1" -" id165_1)" +" s_232))" +"(let-values(((all-except165_1" +" spec166_1" +" id167_1)" +"(let-values(((s_233)" +"(if(syntax?$1" +" s_232)" +"(syntax-e$1" +" s_232)" +" s_232)))" +"(if(pair?" +" s_233)" +"(let-values(((all-except168_0)" "(let-values(((s_234)" -"(if(syntax?$1" -" s_233)" -"(syntax-e$1" -" s_233)" +"(car" " s_233)))" -"(if(pair?" -" s_234)" -"(let-values(((all-except166_0)" +" s_234))" +"((spec169_0" +" id170_0)" "(let-values(((s_235)" -"(car" -" s_234)))" -" s_235))" -"((spec167_0" -" id168_0)" +"(cdr" +" s_233)))" "(let-values(((s_236)" -"(cdr" -" s_234)))" -"(let-values(((s_237)" "(if(syntax?$1" -" s_236)" +" s_235)" "(syntax-e$1" -" s_236)" -" s_236)))" +" s_235)" +" s_235)))" "(if(pair?" -" s_237)" -"(let-values(((spec169_0)" -"(let-values(((s_238)" +" s_236)" +"(let-values(((spec171_0)" +"(let-values(((s_237)" "(car" -" s_237)))" -" s_238))" -"((id170_0)" -"(let-values(((s_239)" +" s_236)))" +" s_237))" +"((id172_0)" +"(let-values(((s_238)" "(cdr" -" s_237)))" -"(let-values(((s_240)" +" s_236)))" +"(let-values(((s_239)" "(if(syntax?$1" -" s_239)" +" s_238)" "(syntax-e$1" -" s_239)" -" s_239)))" +" s_238)" +" s_238)))" "(let-values(((flat-s_6)" "(to-syntax-list.1" -" s_240)))" +" s_239)))" "(if(not" " flat-s_6)" "(let-values()" @@ -23565,7 +23723,7 @@ static const char *startup_source = " orig-s_11))" "(let-values()" "(let-values(((id_33)" -"(let-values(((lst_140)" +"(let-values(((lst_141)" " flat-s_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -23573,95 +23731,95 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_140)))" -"((letrec-values(((for-loop_169)" +" lst_141)))" +"((letrec-values(((for-loop_168)" "(lambda(id_34" -" lst_141)" +" lst_142)" "(begin" " 'for-loop" "(if(pair?" -" lst_141)" -"(let-values(((s_241)" +" lst_142)" +"(let-values(((s_240)" "(unsafe-car" -" lst_141))" +" lst_142))" "((rest_70)" "(unsafe-cdr" -" lst_141)))" +" lst_142)))" "(let-values(((id_35)" "(let-values(((id_36)" " id_34))" "(let-values(((id_37)" "(let-values()" -"(let-values(((id171_0)" +"(let-values(((id173_0)" "(let-values()" -"(if(let-values(((or-part_191)" +"(if(let-values(((or-part_192)" "(if(syntax?$1" -" s_241)" +" s_240)" "(symbol?" "(syntax-e$1" -" s_241))" +" s_240))" " #f)))" -"(if or-part_191" -" or-part_191" +"(if or-part_192" +" or-part_192" "(symbol?" -" s_241)))" -" s_241" +" s_240)))" +" s_240" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_11" -" s_241)))))" +" s_240)))))" "(cons" -" id171_0" +" id173_0" " id_36)))))" "(values" " id_37)))))" "(if(not" " #f)" -"(for-loop_169" +"(for-loop_168" " id_35" " rest_70)" " id_35)))" " id_34)))))" -" for-loop_169)" +" for-loop_168)" " null" -" lst_140)))))" +" lst_141)))))" "(reverse$1" " id_33)))))))))" "(values" -" spec169_0" -" id170_0))" +" spec171_0" +" id172_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_11))))))" "(values" -" all-except166_0" -" spec167_0" -" id168_0))" +" all-except168_0" +" spec169_0" +" id170_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_11)))))" "(values" " #t" -" all-except163_1" -" spec164_1" -" id165_1))))))" +" all-except165_1" +" spec166_1" +" id167_1))))))" "(loop_84" "(list" -" spec164_0)" -"(let-values(((or-part_192)" +" spec166_0)" +"(let-values(((or-part_193)" " top-req_0))" -"(if or-part_192" -" or-part_192" +"(if or-part_193" +" or-part_193" " req_0))" " phase-shift_10" " just-meta_0" "(adjust-all-except3.1" " '||" "(ids->sym-set" -" id165_0))" +" id167_0))" " #f" " #f" " 'path))))" @@ -23675,97 +23833,97 @@ static const char *startup_source = " 'phaseless)" "(values))))" "(let-values(((ok?_10" -" prefix-all-except172_0" -" id:prefix173_0" -" spec174_0" -" id175_0)" -"(let-values(((s_242)" +" prefix-all-except174_0" +" id:prefix175_0" +" spec176_0" +" id177_0)" +"(let-values(((s_241)" " req_0))" "(let-values(((orig-s_12)" -" s_242))" -"(let-values(((prefix-all-except172_1" -" id:prefix173_1" -" spec174_1" -" id175_1)" +" s_241))" +"(let-values(((prefix-all-except174_1" +" id:prefix175_1" +" spec176_1" +" id177_1)" +"(let-values(((s_242)" +"(if(syntax?$1" +" s_241)" +"(syntax-e$1" +" s_241)" +" s_241)))" +"(if(pair?" +" s_242)" +"(let-values(((prefix-all-except178_0)" "(let-values(((s_243)" -"(if(syntax?$1" -" s_242)" -"(syntax-e$1" -" s_242)" +"(car" " s_242)))" -"(if(pair?" -" s_243)" -"(let-values(((prefix-all-except176_0)" +" s_243))" +"((id:prefix179_0" +" spec180_0" +" id181_0)" "(let-values(((s_244)" -"(car" -" s_243)))" -" s_244))" -"((id:prefix177_0" -" spec178_0" -" id179_0)" -"(let-values(((s_245)" "(cdr" -" s_243)))" -"(let-values(((s_246)" +" s_242)))" +"(let-values(((s_245)" "(if(syntax?$1" -" s_245)" +" s_244)" "(syntax-e$1" -" s_245)" -" s_245)))" +" s_244)" +" s_244)))" "(if(pair?" -" s_246)" -"(let-values(((id:prefix180_0)" -"(let-values(((s_247)" +" s_245)" +"(let-values(((id:prefix182_0)" +"(let-values(((s_246)" "(car" -" s_246)))" -"(if(let-values(((or-part_193)" +" s_245)))" +"(if(let-values(((or-part_194)" "(if(syntax?$1" -" s_247)" +" s_246)" "(symbol?" "(syntax-e$1" -" s_247))" +" s_246))" " #f)))" -"(if or-part_193" -" or-part_193" +"(if or-part_194" +" or-part_194" "(symbol?" -" s_247)))" -" s_247" +" s_246)))" +" s_246" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_247))))" -"((spec181_0" -" id182_0)" +" s_246))))" +"((spec183_0" +" id184_0)" +"(let-values(((s_247)" +"(cdr" +" s_245)))" "(let-values(((s_248)" -"(cdr" -" s_246)))" -"(let-values(((s_249)" "(if(syntax?$1" -" s_248)" +" s_247)" "(syntax-e$1" -" s_248)" -" s_248)))" +" s_247)" +" s_247)))" "(if(pair?" -" s_249)" -"(let-values(((spec183_0)" -"(let-values(((s_250)" +" s_248)" +"(let-values(((spec185_0)" +"(let-values(((s_249)" "(car" -" s_249)))" -" s_250))" -"((id184_0)" -"(let-values(((s_251)" +" s_248)))" +" s_249))" +"((id186_0)" +"(let-values(((s_250)" "(cdr" -" s_249)))" -"(let-values(((s_252)" +" s_248)))" +"(let-values(((s_251)" "(if(syntax?$1" -" s_251)" +" s_250)" "(syntax-e$1" -" s_251)" -" s_251)))" +" s_250)" +" s_250)))" "(let-values(((flat-s_7)" "(to-syntax-list.1" -" s_252)))" +" s_251)))" "(if(not" " flat-s_7)" "(let-values()" @@ -23775,7 +23933,7 @@ static const char *startup_source = " orig-s_12))" "(let-values()" "(let-values(((id_38)" -"(let-values(((lst_142)" +"(let-values(((lst_143)" " flat-s_7))" "(begin" "(if(variable-reference-from-unsafe?" @@ -23783,106 +23941,106 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_142)))" -"((letrec-values(((for-loop_170)" +" lst_143)))" +"((letrec-values(((for-loop_169)" "(lambda(id_39" -" lst_143)" +" lst_144)" "(begin" " 'for-loop" "(if(pair?" -" lst_143)" -"(let-values(((s_253)" +" lst_144)" +"(let-values(((s_252)" "(unsafe-car" -" lst_143))" +" lst_144))" "((rest_71)" "(unsafe-cdr" -" lst_143)))" +" lst_144)))" "(let-values(((id_40)" "(let-values(((id_41)" " id_39))" "(let-values(((id_42)" "(let-values()" -"(let-values(((id185_0)" +"(let-values(((id187_0)" "(let-values()" -"(if(let-values(((or-part_194)" +"(if(let-values(((or-part_195)" "(if(syntax?$1" -" s_253)" +" s_252)" "(symbol?" "(syntax-e$1" -" s_253))" +" s_252))" " #f)))" -"(if or-part_194" -" or-part_194" +"(if or-part_195" +" or-part_195" "(symbol?" -" s_253)))" -" s_253" +" s_252)))" +" s_252" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_253)))))" +" s_252)))))" "(cons" -" id185_0" +" id187_0" " id_41)))))" "(values" " id_42)))))" "(if(not" " #f)" -"(for-loop_170" +"(for-loop_169" " id_40" " rest_71)" " id_40)))" " id_39)))))" -" for-loop_170)" +" for-loop_169)" " null" -" lst_142)))))" +" lst_143)))))" "(reverse$1" " id_38)))))))))" "(values" -" spec183_0" -" id184_0))" +" spec185_0" +" id186_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_12))))))" "(values" -" id:prefix180_0" -" spec181_0" -" id182_0))" +" id:prefix182_0" +" spec183_0" +" id184_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_12))))))" "(values" -" prefix-all-except176_0" -" id:prefix177_0" -" spec178_0" -" id179_0))" +" prefix-all-except178_0" +" id:prefix179_0" +" spec180_0" +" id181_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_12)))))" "(values" " #t" -" prefix-all-except172_1" -" id:prefix173_1" -" spec174_1" -" id175_1))))))" +" prefix-all-except174_1" +" id:prefix175_1" +" spec176_1" +" id177_1))))))" "(loop_84" "(list" -" spec174_0)" -"(let-values(((or-part_195)" +" spec176_0)" +"(let-values(((or-part_196)" " top-req_0))" -"(if or-part_195" -" or-part_195" +"(if or-part_196" +" or-part_196" " req_0))" " phase-shift_10" " just-meta_0" "(adjust-all-except3.1" "(syntax-e$1" -" id:prefix173_0)" +" id:prefix175_0)" "(ids->sym-set" -" id175_0))" +" id177_0))" " #f" " #f" " 'path))))" @@ -23896,184 +24054,184 @@ static const char *startup_source = " 'phaseless)" "(values))))" "(let-values(((ok?_11" -" rename186_0" -" spec187_0" -" id:to188_0" -" id:from189_0)" -"(let-values(((s_254)" +" rename188_0" +" spec189_0" +" id:to190_0" +" id:from191_0)" +"(let-values(((s_253)" " req_0))" "(let-values(((orig-s_13)" -" s_254))" -"(let-values(((rename186_1" -" spec187_1" -" id:to188_1" -" id:from189_1)" +" s_253))" +"(let-values(((rename188_1" +" spec189_1" +" id:to190_1" +" id:from191_1)" +"(let-values(((s_254)" +"(if(syntax?$1" +" s_253)" +"(syntax-e$1" +" s_253)" +" s_253)))" +"(if(pair?" +" s_254)" +"(let-values(((rename192_0)" "(let-values(((s_255)" -"(if(syntax?$1" -" s_254)" -"(syntax-e$1" -" s_254)" +"(car" " s_254)))" -"(if(pair?" -" s_255)" -"(let-values(((rename190_0)" +" s_255))" +"((spec193_0" +" id:to194_0" +" id:from195_0)" "(let-values(((s_256)" -"(car" -" s_255)))" -" s_256))" -"((spec191_0" -" id:to192_0" -" id:from193_0)" +"(cdr" +" s_254)))" "(let-values(((s_257)" -"(cdr" -" s_255)))" +"(if(syntax?$1" +" s_256)" +"(syntax-e$1" +" s_256)" +" s_256)))" +"(if(pair?" +" s_257)" +"(let-values(((spec196_0)" "(let-values(((s_258)" -"(if(syntax?$1" -" s_257)" -"(syntax-e$1" -" s_257)" +"(car" " s_257)))" -"(if(pair?" -" s_258)" -"(let-values(((spec194_0)" +" s_258))" +"((id:to197_0" +" id:from198_0)" "(let-values(((s_259)" -"(car" -" s_258)))" -" s_259))" -"((id:to195_0" -" id:from196_0)" +"(cdr" +" s_257)))" "(let-values(((s_260)" -"(cdr" -" s_258)))" +"(if(syntax?$1" +" s_259)" +"(syntax-e$1" +" s_259)" +" s_259)))" +"(if(pair?" +" s_260)" +"(let-values(((id:to199_0)" "(let-values(((s_261)" -"(if(syntax?$1" -" s_260)" -"(syntax-e$1" -" s_260)" +"(car" " s_260)))" -"(if(pair?" -" s_261)" -"(let-values(((id:to197_0)" -"(let-values(((s_262)" -"(car" -" s_261)))" -"(if(let-values(((or-part_196)" -"(if(syntax?$1" -" s_262)" -"(symbol?" -"(syntax-e$1" -" s_262))" -" #f)))" -"(if or-part_196" -" or-part_196" -"(symbol?" -" s_262)))" -" s_262" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_13" -" s_262))))" -"((id:from198_0)" -"(let-values(((s_263)" -"(cdr" -" s_261)))" -"(let-values(((s_264)" -"(if(syntax?$1" -" s_263)" -"(syntax-e$1" -" s_263)" -" s_263)))" -"(if(pair?" -" s_264)" -"(let-values(((id:from199_0)" -"(let-values(((s_265)" -"(car" -" s_264)))" "(if(let-values(((or-part_197)" "(if(syntax?$1" -" s_265)" +" s_261)" "(symbol?" "(syntax-e$1" -" s_265))" +" s_261))" " #f)))" "(if or-part_197" " or-part_197" "(symbol?" -" s_265)))" -" s_265" +" s_261)))" +" s_261" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_13" +" s_261))))" +"((id:from200_0)" +"(let-values(((s_262)" +"(cdr" +" s_260)))" +"(let-values(((s_263)" +"(if(syntax?$1" +" s_262)" +"(syntax-e$1" +" s_262)" +" s_262)))" +"(if(pair?" +" s_263)" +"(let-values(((id:from201_0)" +"(let-values(((s_264)" +"(car" +" s_263)))" +"(if(let-values(((or-part_198)" +"(if(syntax?$1" +" s_264)" +"(symbol?" +"(syntax-e$1" +" s_264))" +" #f)))" +"(if or-part_198" +" or-part_198" +"(symbol?" +" s_264)))" +" s_264" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_265))))" +" s_264))))" "(()" -"(let-values(((s_266)" +"(let-values(((s_265)" "(cdr" -" s_264)))" -"(let-values(((s_267)" +" s_263)))" +"(let-values(((s_266)" "(if(syntax?$1" -" s_266)" +" s_265)" "(syntax-e$1" -" s_266)" -" s_266)))" +" s_265)" +" s_265)))" "(if(null?" -" s_267)" +" s_266)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_13))))))" "(values" -" id:from199_0))" +" id:from201_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_13))))))" "(values" -" id:to197_0" -" id:from198_0))" +" id:to199_0" +" id:from200_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_13))))))" "(values" -" spec194_0" -" id:to195_0" -" id:from196_0))" +" spec196_0" +" id:to197_0" +" id:from198_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_13))))))" "(values" -" rename190_0" -" spec191_0" -" id:to192_0" -" id:from193_0))" +" rename192_0" +" spec193_0" +" id:to194_0" +" id:from195_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_13)))))" "(values" " #t" -" rename186_1" -" spec187_1" -" id:to188_1" -" id:from189_1))))))" +" rename188_1" +" spec189_1" +" id:to190_1" +" id:from191_1))))))" "(loop_84" "(list" -" spec187_0)" -"(let-values(((or-part_198)" +" spec189_0)" +"(let-values(((or-part_199)" " top-req_0))" -"(if or-part_198" -" or-part_198" +"(if or-part_199" +" or-part_199" " req_0))" " phase-shift_10" " just-meta_0" "(adjust-rename4.1" -" id:to188_0" +" id:to190_0" "(syntax-e$1" -" id:from189_0))" +" id:from191_0))" " #f" " #f" " 'path))))" @@ -24083,11 +24241,11 @@ static const char *startup_source = " req_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_199)" +"(if(let-values(((or-part_200)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_199" -" or-part_199" +"(if or-part_200" +" or-part_200" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -24100,10 +24258,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_200)" +"(if(let-values(((or-part_201)" " adjust_0))" -"(if or-part_200" -" or-part_200" +"(if or-part_201" +" or-part_201" "(not" "(eq?" " just-meta_0" @@ -24121,105 +24279,105 @@ static const char *startup_source = " maybe-mp_0)" " maybe-mp_0)))" "(let-values(((mpi_35)" -"(let-values(((mp217_0)" +"(let-values(((mp219_0)" " mp_0)" -"((self218_0)" +"((self220_0)" " self_11)" -"((declared-submodule-names219_0)" +"((declared-submodule-names221_0)" " declared-submodule-names_2))" "(module-path->mpi5.1" -" declared-submodule-names219_0" +" declared-submodule-names221_0" " #t" -" mp217_0" -" self218_0))))" +" mp219_0" +" self220_0))))" "(begin" -"(let-values(((mpi200_0)" +"(let-values(((mpi202_0)" " mpi_35)" -"((req201_0)" +"((req203_0)" " req_0)" -"((self202_0)" +"((self204_0)" " self_11)" -"((temp203_0)" +"((temp205_0)" "(let-values(((or-part_118)" " req_0))" "(if or-part_118" " or-part_118" " top-req_0)))" -"((m-ns204_0)" +"((m-ns206_0)" " m-ns_8)" -"((phase-shift205_0)" +"((phase-shift207_0)" " phase-shift_10)" -"((run-phase206_0)" +"((run-phase208_0)" " run-phase_5)" -"((just-meta207_0)" +"((just-meta209_0)" " just-meta_0)" -"((adjust208_0)" +"((adjust210_0)" " adjust_0)" -"((requires+provides209_0)" +"((requires+provides211_0)" " requires+provides_1)" -"((run?210_0)" +"((run?212_0)" " run?_1)" -"((visit?211_0)" +"((visit?213_0)" " visit?_1)" -"((copy-variable-phase-level212_0)" +"((copy-variable-phase-level214_0)" " copy-variable-phase-level_0)" -"((copy-variable-as-constant?213_0)" +"((copy-variable-as-constant?215_0)" " copy-variable-as-constant?_0)" -"((skip-variable-phase-level214_0)" +"((skip-variable-phase-level216_0)" " skip-variable-phase-level_0)" -"((initial-require?215_0)" +"((initial-require?217_0)" " initial-require?_0)" -"((who216_0)" +"((who218_0)" " who_12))" "(perform-require!78.1" -" adjust208_0" +" adjust210_0" " #t" " #f" " #f" " #f" " #f" -" copy-variable-as-constant?213_0" +" copy-variable-as-constant?215_0" " #t" -" copy-variable-phase-level212_0" +" copy-variable-phase-level214_0" " #t" -" initial-require?215_0" +" initial-require?217_0" " #t" -" just-meta207_0" +" just-meta209_0" " #t" -" phase-shift205_0" -" requires+provides209_0" +" phase-shift207_0" +" requires+provides211_0" " #t" -" run-phase206_0" -" run?210_0" +" run-phase208_0" +" run?212_0" " #t" -" skip-variable-phase-level214_0" +" skip-variable-phase-level216_0" " #t" -" visit?211_0" +" visit?213_0" " #t" -" who216_0" -" mpi200_0" -" req201_0" -" self202_0" -" temp203_0" -" m-ns204_0))" +" who218_0" +" mpi202_0" +" req203_0" +" self204_0" +" temp205_0" +" m-ns206_0))" "(set! initial-require?_0" " #f)))))))))))))))))))))))))" "(values" -" result_71)))))" +" result_76)))))" "(if(if(not" -"((lambda x_53" -"(not result_70))" +"((lambda x_54" +"(not result_75))" " req_0))" "(not #f)" " #f)" -"(for-loop_36" -" result_70" +"(for-loop_167" +" result_75" " rest_68)" -" result_70)))" -" result_29)))))" -" for-loop_36)" +" result_75)))" +" result_74)))))" +" for-loop_167)" " #t" -" lst_138)))))))" +" lst_139)))))))" " loop_84)" " reqs_0" " #f" @@ -24233,31 +24391,31 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_144) ids_3))" +"(let-values(((lst_145) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_144)))" -"((letrec-values(((for-loop_171)" -"(lambda(table_131 lst_145)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_170)" +"(lambda(table_135 lst_146)" "(begin" " 'for-loop" -"(if(pair? lst_145)" -"(let-values(((id_43)(unsafe-car lst_145))((rest_72)(unsafe-cdr lst_145)))" -"(let-values(((table_132)" -"(let-values(((table_133) table_131))" -"(let-values(((table_134)" +"(if(pair? lst_146)" +"(let-values(((id_43)(unsafe-car lst_146))((rest_72)(unsafe-cdr lst_146)))" +"(let-values(((table_136)" +"(let-values(((table_137) table_135))" +"(let-values(((table_138)" "(let-values()" -"(let-values(((key_52 val_44)" +"(let-values(((key_53 val_44)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_43))" " #t))))" -"(hash-set table_133 key_52 val_44)))))" -"(values table_134)))))" -"(if(not #f)(for-loop_171 table_132 rest_72) table_132)))" -" table_131)))))" -" for-loop_171)" +"(hash-set table_137 key_53 val_44)))))" +"(values table_138)))))" +"(if(not #f)(for-loop_170 table_136 rest_72) table_136)))" +" table_135)))))" +" for-loop_170)" " '#hash()" -" lst_144))))))" +" lst_145))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -24271,51 +24429,51 @@ static const char *startup_source = "(let-values(((bind?_0) bind?33_0))" "(let-values(((who_13) who34_0))" "(let-values()" -"(let-values(((temp220_0)" -"(let-values(((mod-path232_0) mod-path_7)((self233_0) self_12))" -"(module-path->mpi5.1 #f #f mod-path232_0 self233_0)))" -"((temp221_0) #f)" -"((self222_0) self_12)" -"((in-stx223_0) in-stx_0)" -"((m-ns224_0) m-ns_9)" -"((temp225_0) 0)" -"((temp226_0) 0)" -"((requires+provides227_0) requires+provides_2)" -"((temp228_1) #t)" -"((temp229_0) #t)" -"((bind?230_0) bind?_0)" -"((who231_0) who_13))" +"(let-values(((temp222_0)" +"(let-values(((mod-path234_0) mod-path_7)((self235_0) self_12))" +"(module-path->mpi5.1 #f #f mod-path234_0 self235_0)))" +"((temp223_1) #f)" +"((self224_0) self_12)" +"((in-stx225_0) in-stx_0)" +"((m-ns226_0) m-ns_9)" +"((temp227_1) 0)" +"((temp228_1) 0)" +"((requires+provides229_0) requires+provides_2)" +"((temp230_0) #t)" +"((temp231_1) #t)" +"((bind?232_0) bind?_0)" +"((who233_0) who_13))" "(perform-require!78.1" " #f" " #f" -" bind?230_0" +" bind?232_0" +" #t" +" temp230_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp231_1" +" #t" +" #f" +" #f" +" temp227_1" +" requires+provides229_0" " #t" " temp228_1" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp229_0" -" #t" -" #f" -" #f" -" temp225_0" -" requires+provides227_0" -" #t" -" temp226_0" " #f" " #f" " #f" " #f" " #f" " #f" -" who231_0" -" temp220_0" -" temp221_0" -" self222_0" -" in-stx223_0" -" m-ns224_0)))))))))))))" +" who233_0" +" temp222_0" +" temp223_1" +" self224_0" +" in-stx225_0" +" m-ns226_0)))))))))))))" "(define-values" "(perform-require!78.1)" "(lambda(adjust48_0" @@ -24406,80 +24564,80 @@ static const char *startup_source = "(begin" "(if visit?_2" "(let-values()" -"(let-values(((m-ns249_0) m-ns_10)" -"((interned-mpi250_0)" +"(let-values(((m-ns252_0) m-ns_10)" +"((interned-mpi253_0)" " interned-mpi_0)" -"((phase-shift251_0)" +"((phase-shift254_0)" " phase-shift_11)" -"((run-phase252_0)" +"((run-phase255_0)" " run-phase_6))" "(namespace-module-visit!104.1" -" run-phase252_0" +" run-phase255_0" " #t" -" m-ns249_0" -" interned-mpi250_0" -" phase-shift251_0)))" +" m-ns252_0" +" interned-mpi253_0" +" phase-shift254_0)))" "(void))" "(values))))" "(let-values((()" "(begin" "(if run?_2" "(let-values()" -"(let-values(((m-ns253_0) m-ns_10)" -"((interned-mpi254_0)" +"(let-values(((m-ns256_0) m-ns_10)" +"((interned-mpi257_0)" " interned-mpi_0)" -"((phase-shift255_0)" +"((phase-shift258_0)" " phase-shift_11)" -"((run-phase256_0)" +"((run-phase259_0)" " run-phase_6))" "(namespace-module-instantiate!96.1" " #f" " #f" -" run-phase256_0" +" run-phase259_0" " #t" " #f" " #f" " #f" " #f" -" m-ns253_0" -" interned-mpi254_0" -" phase-shift255_0)))" +" m-ns256_0" +" interned-mpi257_0" +" phase-shift258_0)))" "(void))" "(values))))" "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_201)" +"(let-values(((or-part_202)" " visit?_2))" -"(if or-part_201" -" or-part_201" +"(if or-part_202" +" or-part_202" " run?_2)))" "(let-values()" -"(let-values(((m-ns257_0) m-ns_10)" -"((interned-mpi258_0)" +"(let-values(((m-ns260_0) m-ns_10)" +"((interned-mpi261_0)" " interned-mpi_0)" -"((phase-shift259_0)" +"((phase-shift262_0)" " phase-shift_11)" -"((run-phase260_0)" +"((run-phase263_0)" " run-phase_6))" "(namespace-module-make-available!112.1" -" run-phase260_0" +" run-phase263_0" " #t" -" m-ns257_0" -" interned-mpi258_0" -" phase-shift259_0)))" +" m-ns260_0" +" interned-mpi261_0" +" phase-shift262_0)))" "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_202)" +"(if(let-values(((or-part_203)" "(not adjust_1)))" -"(if or-part_202" -" or-part_202" -"(let-values(((or-part_203)" -"(adjust-prefix?" -" adjust_1)))" "(if or-part_203" " or-part_203" +"(let-values(((or-part_204)" +"(adjust-prefix?" +" adjust_1)))" +"(if or-part_204" +" or-part_204" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -24505,20 +24663,25 @@ static const char *startup_source = " #f)))" "(let-values((()" "(begin" -"(let-values(((m234_0) m_13)" -"((bind-in-stx235_0)" +"(let-values(((m236_0) m_13)" +"((bind-in-stx237_0)" " bind-in-stx_0)" -"((phase-shift236_1)" +"((phase-shift238_0)" " phase-shift_11)" -"((m-ns237_0)" +"((m-ns239_0)" " m-ns_10)" -"((interned-mpi238_0)" +"((interned-mpi240_0)" " interned-mpi_0)" -"((module-name239_0)" +"((module-name241_0)" " module-name_0)" -"((orig-s240_0)" +"((orig-s242_0)" " orig-s_14)" -"((temp241_0)" +"((temp243_0)" +"(if requires+provides_3" +"(requires+provides-self" +" requires+provides_3)" +" #f))" +"((temp244_0)" "(if(adjust-only?" " adjust_1)" "(let-values()" @@ -24533,89 +24696,89 @@ static const char *startup_source = " adjust_1)))" "(let-values()" " #f))))" -"((just-meta242_0)" +"((just-meta245_0)" " just-meta_1)" -"((bind?243_0)" +"((bind?246_0)" " bind?_1)" -"((can-bulk-bind?244_0)" +"((can-bulk-bind?247_0)" " can-bulk-bind?_0)" -"((bulk-prefix245_0)" +"((bulk-prefix248_0)" " bulk-prefix_1)" -"((bulk-excepts246_0)" +"((bulk-excepts249_0)" " bulk-excepts_1)" -"((temp247_0)" +"((temp250_0)" "(if requires+provides_3" "(if can-bulk-bind?_0" "(lambda(provides_6" " provide-phase-level_4)" "(begin" -" 'temp247" -"(let-values(((requires+provides261_0)" +" 'temp250" +"(let-values(((requires+provides264_0)" " requires+provides_3)" -"((bind-in-stx262_0)" +"((bind-in-stx265_0)" " bind-in-stx_0)" -"((temp263_0)" +"((temp266_0)" "(module-self" " m_13))" -"((mpi264_0)" +"((mpi267_0)" " mpi_36)" -"((phase-shift265_0)" +"((phase-shift268_0)" " phase-shift_11)" -"((provides266_0)" +"((provides269_0)" " provides_6)" -"((provide-phase-level267_0)" +"((provide-phase-level270_0)" " provide-phase-level_4)" -"((bulk-prefix268_0)" +"((bulk-prefix271_0)" " bulk-prefix_1)" -"((bulk-excepts269_0)" +"((bulk-excepts272_0)" " bulk-excepts_1)" -"((temp270_0)" +"((temp273_0)" "(if(positive?" "(hash-count" " bulk-excepts_1))" " done-syms_0" " #f))" -"((can-be-shadowed?271_0)" +"((can-be-shadowed?274_0)" " can-be-shadowed?_3)" -"((temp272_0)" +"((temp275_0)" "(not" " initial-require?_1))" -"((orig-s273_0)" +"((orig-s276_0)" " orig-s_14)" -"((update-nominals-box274_0)" +"((update-nominals-box277_0)" " update-nominals-box_0)" -"((who275_0)" +"((who278_0)" " who_14))" "(add-bulk-required-ids!59.1" -" update-nominals-box274_0" -" can-be-shadowed?271_0" -" temp272_0" -" bulk-excepts269_0" -" orig-s273_0" -" bulk-prefix268_0" -" temp270_0" -" who275_0" -" requires+provides261_0" -" bind-in-stx262_0" -" temp263_0" -" mpi264_0" -" phase-shift265_0" -" provides266_0" -" provide-phase-level267_0))))" +" update-nominals-box277_0" +" can-be-shadowed?274_0" +" temp275_0" +" bulk-excepts272_0" +" orig-s276_0" +" bulk-prefix271_0" +" temp273_0" +" who278_0" +" requires+provides264_0" +" bind-in-stx265_0" +" temp266_0" +" mpi267_0" +" phase-shift268_0" +" provides269_0" +" provide-phase-level270_0))))" " #f)" " #f))" -"((temp248_0)" -"(if(let-values(((or-part_204)" +"((temp251_0)" +"(if(let-values(((or-part_205)" "(not" " can-bulk-bind?_0)))" -"(if or-part_204" -" or-part_204" +"(if or-part_205" +" or-part_205" " copy-variable-phase-level_1))" "(lambda(binding_17" " as-transformer?_3)" "(begin" -" 'temp248" -"(let-values(((sym_43)" +" 'temp251" +"(let-values(((sym_42)" "(module-binding-nominal-sym" " binding_17)))" "(let-values(((provide-phase_0)" @@ -24635,19 +24798,19 @@ static const char *startup_source = "(if(not" " adjust_1)" "(let-values()" -" sym_43)" +" sym_42)" "(if(adjust-only?" " adjust_1)" "(let-values()" "(if(set-member?" "(adjust-only-syms" " adjust_1)" -" sym_43)" +" sym_42)" "(if(hash-set!" " done-syms_0" -" sym_43" +" sym_42" " #t)" -" sym_43" +" sym_42" " #f)" " #f))" "(if(adjust-prefix?" @@ -24658,7 +24821,7 @@ static const char *startup_source = " \"~a~a\"" "(adjust-prefix-sym" " adjust_1)" -" sym_43)))" +" sym_42)))" "(if(adjust-all-except?" " adjust_1)" "(let-values()" @@ -24666,10 +24829,10 @@ static const char *startup_source = "(if(set-member?" "(adjust-all-except-syms" " adjust_1)" -" sym_43)" +" sym_42)" "(hash-set!" " done-syms_0" -" sym_43" +" sym_42" " #t)" " #f))" "(string->symbol" @@ -24677,30 +24840,30 @@ static const char *startup_source = " \"~a~a\"" "(adjust-all-except-prefix-sym" " adjust_1)" -" sym_43))" +" sym_42))" " #f))" "(if(adjust-rename?" " adjust_1)" "(let-values()" "(if(eq?" -" sym_43" +" sym_42" "(adjust-rename-from-sym" " adjust_1))" "(if(hash-set!" " done-syms_0" -" sym_43" +" sym_42" " #t)" "(adjust-rename-to-id" " adjust_1)" " #f)" " #f))" "(void)))))))))" -"(begin" +"(let-values(((skip-bind?_0)" "(if(if adjusted-sym_0" " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_268)" +"(let-values(((s_267)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -24708,61 +24871,73 @@ static const char *startup_source = "(phase+" " phase-shift_11" " provide-phase_0)))" -"(begin" +"(let-values(((skip-bind?_1)" "(if initial-require?_1" +"(let-values()" +" #f)" +"(let-values()" +"(let-values(((temp279_0)" +" #t)" +"((temp280_0)" +" #t)" +"((requires+provides281_0)" +" requires+provides_3)" +"((s282_0)" +" s_267)" +"((bind-phase283_0)" +" bind-phase_0)" +"((binding284_0)" +" binding_17)" +"((orig-s285_0)" +" orig-s_14)" +"((temp286_0)" +" #t)" +"((who287_0)" +" who_14))" +"(check-not-defined95.1" +" #f" +" #f" +" temp280_0" +" #t" +" temp279_0" +" #t" +" orig-s285_0" +" temp286_0" +" #t" +" binding284_0" +" #t" +" who287_0" +" requires+provides281_0" +" s282_0" +" bind-phase283_0))))))" +"(begin" +"(if skip-bind?_1" "(void)" "(let-values()" -"(let-values(((temp282_0)" -" #t)" -"((requires+provides283_0)" +"(let-values(((requires+provides288_0)" " requires+provides_3)" -"((s284_0)" -" s_268)" -"((bind-phase285_0)" +"((s289_0)" +" s_267)" +"((bind-phase290_0)" " bind-phase_0)" -"((binding286_0)" +"((binding291_0)" " binding_17)" -"((orig-s287_0)" -" orig-s_14)" -"((temp288_0)" -" #t)" -"((who289_0)" -" who_14))" -"(check-not-defined93.1" -" #f" -" #f" -" temp282_0" -" #t" -" orig-s287_0" -" temp288_0" -" #t" -" binding286_0" -" #t" -" who289_0" -" requires+provides283_0" -" s284_0" -" bind-phase285_0))))" -"(let-values(((requires+provides276_0)" -" requires+provides_3)" -"((s277_0)" -" s_268)" -"((bind-phase278_0)" -" bind-phase_0)" -"((binding279_0)" -" binding_17)" -"((can-be-shadowed?280_0)" +"((can-be-shadowed?292_0)" " can-be-shadowed?_3)" -"((as-transformer?281_0)" +"((as-transformer?293_0)" " as-transformer?_3))" "(add-defined-or-required-id!19.1" -" as-transformer?281_0" -" can-be-shadowed?280_0" +" as-transformer?293_0" +" can-be-shadowed?292_0" " #t" -" requires+provides276_0" -" s277_0" -" bind-phase278_0" -" binding279_0))))))" -"(void))" +" requires+provides288_0" +" s289_0" +" bind-phase290_0" +" binding291_0))))" +" skip-bind?_1)))))" +"(let-values()" +" #f))))" +"(begin" "(if(if adjusted-sym_0" "(if copy-variable-phase-level_1" "(if(not" @@ -24782,31 +24957,35 @@ static const char *startup_source = " phase-shift_11" " copy-variable-as-constant?_1))" "(void))" -" adjusted-sym_0))))))" +"(if(not" +" skip-bind?_0)" +" adjusted-sym_0" +" #f))))))))" " #f)))" -"(bind-all-provides!105.1" -" bind?243_0" -" temp247_0" -" bulk-excepts246_0" -" bulk-prefix245_0" -" can-bulk-bind?244_0" -" temp248_0" -" orig-s240_0" -" just-meta242_0" -" temp241_0" -" m234_0" -" bind-in-stx235_0" -" phase-shift236_1" -" m-ns237_0" -" interned-mpi238_0" -" module-name239_0))" +"(bind-all-provides!107.1" +" bind?246_0" +" temp250_0" +" bulk-excepts249_0" +" bulk-prefix248_0" +" can-bulk-bind?247_0" +" temp243_0" +" temp251_0" +" orig-s242_0" +" just-meta245_0" +" temp244_0" +" m236_0" +" bind-in-stx237_0" +" phase-shift238_0" +" m-ns239_0" +" interned-mpi240_0" +" module-name241_0))" "(values))))" "(let-values((()" "(begin" "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_146)" +"(let-values(((lst_147)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -24815,19 +24994,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_146)))" -"((letrec-values(((for-loop_172)" -"(lambda(lst_147)" +" lst_147)))" +"((letrec-values(((for-loop_171)" +"(lambda(lst_148)" "(begin" " 'for-loop" "(if(pair?" -" lst_147)" +" lst_148)" "(let-values(((update!_1)" "(unsafe-car" -" lst_147))" +" lst_148))" "((rest_73)" "(unsafe-cdr" -" lst_147)))" +" lst_148)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -24839,12 +25018,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_171" " rest_73)" "(values))))" "(values))))))" -" for-loop_172)" -" lst_146)))" +" for-loop_171)" +" lst_147)))" "(void)))" "(void))" "(values))))" @@ -24874,7 +25053,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_103)" +"(let-values(((ht_105)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24882,16 +25061,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_103)))" -"((letrec-values(((for-loop_167)" -"(lambda(i_135)" +" ht_105)))" +"((letrec-values(((for-loop_172)" +"(lambda(i_136)" "(begin" " 'for-loop" -"(if i_135" -"(let-values(((sym_44)" +"(if i_136" +"(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_103" -" i_135)))" +" ht_105" +" i_136)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -24900,7 +25079,7 @@ static const char *startup_source = "(let-values()" "(if(hash-ref" " done-syms_0" -" sym_44" +" sym_43" " #f)" "(void)" "(let-values()" @@ -24908,81 +25087,83 @@ static const char *startup_source = " who_14" " \"not in nested spec\"" " orig-s_14" -" sym_44))))" +" sym_43))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_167" +"(for-loop_172" "(unsafe-immutable-hash-iterate-next" -" ht_103" -" i_135))" +" ht_105" +" i_136))" "(values))))" "(values))))))" -" for-loop_167)" +" for-loop_172)" "(unsafe-immutable-hash-iterate-first" -" ht_103))))" +" ht_105))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" -"(bind-all-provides!105.1)" -"(lambda(bind?84_0" -" bulk-callback89_0" -" bulk-excepts87_0" -" bulk-prefix86_0" -" can-bulk?85_0" -" filter88_0" +"(bind-all-provides!107.1)" +"(lambda(bind?85_0" +" bulk-callback90_0" +" bulk-excepts88_0" +" bulk-prefix87_0" +" can-bulk?86_0" +" defines-mpi82_0" +" filter89_0" " in81_0" -" just-meta83_0" -" only82_0" -" m99_0" -" in-stx100_0" -" phase-shift101_0" -" ns102_0" -" mpi103_0" -" module-name104_0)" +" just-meta84_0" +" only83_0" +" m101_0" +" in-stx102_0" +" phase-shift103_0" +" ns104_0" +" mpi105_0" +" module-name106_0)" "(begin" -" 'bind-all-provides!105" -"(let-values(((m_14) m99_0))" -"(let-values(((in-stx_2) in-stx100_0))" -"(let-values(((phase-shift_12) phase-shift101_0))" -"(let-values(((ns_49) ns102_0))" -"(let-values(((mpi_37) mpi103_0))" -"(let-values(((module-name_1) module-name104_0))" +" 'bind-all-provides!107" +"(let-values(((m_14) m101_0))" +"(let-values(((in-stx_2) in-stx102_0))" +"(let-values(((phase-shift_12) phase-shift103_0))" +"(let-values(((ns_50) ns104_0))" +"(let-values(((mpi_37) mpi105_0))" +"(let-values(((module-name_1) module-name106_0))" "(let-values(((orig-s_15) in81_0))" -"(let-values(((only-syms_0) only82_0))" -"(let-values(((just-meta_2) just-meta83_0))" -"(let-values(((bind?_2) bind?84_0))" -"(let-values(((can-bulk?_0) can-bulk?85_0))" -"(let-values(((bulk-prefix_2) bulk-prefix86_0))" -"(let-values(((bulk-excepts_2) bulk-excepts87_0))" -"(let-values(((filter_0) filter88_0))" -"(let-values(((bulk-callback_0) bulk-callback89_0))" +"(let-values(((defines-mpi_0) defines-mpi82_0))" +"(let-values(((only-syms_0) only83_0))" +"(let-values(((just-meta_2) just-meta84_0))" +"(let-values(((bind?_2) bind?85_0))" +"(let-values(((can-bulk?_0) can-bulk?86_0))" +"(let-values(((bulk-prefix_2) bulk-prefix87_0))" +"(let-values(((bulk-excepts_2) bulk-excepts88_0))" +"(let-values(((filter_0) filter89_0))" +"(let-values(((bulk-callback_0) bulk-callback90_0))" "(let-values()" "(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_104)(module-provides m_14)))" +"(let-values(((ht_106)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_104)))" +"(let-values()(check-in-hash ht_106)))" "((letrec-values(((for-loop_173)" -"(lambda(i_136)" +"(lambda(i_137)" "(begin" " 'for-loop" -"(if i_136" +"(if i_137" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_104" -" i_136)))" +" ht_106" +" i_137)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_206)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_205" -" or-part_205" +"(if or-part_206" +" or-part_206" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -24995,24 +25176,23 @@ static const char *startup_source = "(phase+" " phase-shift_12" " provide-phase-level_5)))" -"(begin" +"(let-values(((need-except?_0)" "(if bulk-callback_0" -"(let-values()" "(bulk-callback_0" " provides_7" -" provide-phase-level_5))" -"(void))" +" provide-phase-level_5)" +" #f)))" "(if bind?_2" "(let-values()" "(begin" "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_148)" -"(let-values(((or-part_206)" +"(let-values(((lst_149)" +"(let-values(((or-part_207)" " only-syms_0))" -"(if or-part_206" -" or-part_206" +"(if or-part_207" +" or-part_207" "(hash-keys" " provides_7)))))" "(begin" @@ -25021,19 +25201,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_148)))" +" lst_149)))" "((letrec-values(((for-loop_174)" -"(lambda(lst_149)" +"(lambda(lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_149)" -"(let-values(((sym_45)" +" lst_150)" +"(let-values(((sym_44)" "(unsafe-car" -" lst_149))" +" lst_150))" "((rest_74)" "(unsafe-cdr" -" lst_149)))" +" lst_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25043,56 +25223,56 @@ static const char *startup_source = "(let-values(((binding/p_4)" "(hash-ref" " provides_7" -" sym_45" +" sym_44" " #f)))" "(if binding/p_4" "(let-values()" -"(let-values(((b_69)" -"(let-values(((binding/p290_0)" +"(let-values(((b_67)" +"(let-values(((binding/p294_0)" " binding/p_4)" -"((sym291_0)" -" sym_45)" -"((self292_0)" +"((sym295_0)" +" sym_44)" +"((self296_0)" " self_13)" -"((mpi293_0)" +"((mpi297_0)" " mpi_37)" -"((provide-phase-level294_0)" +"((provide-phase-level298_0)" " provide-phase-level_5)" -"((phase-shift295_0)" +"((phase-shift299_0)" " phase-shift_12))" "(provide-binding-to-require-binding11.1" -" mpi293_0" -" phase-shift295_0" -" provide-phase-level294_0" -" self292_0" -" binding/p290_0" -" sym291_0))))" -"(let-values(((sym_46)" +" mpi297_0" +" phase-shift299_0" +" provide-phase-level298_0" +" self296_0" +" binding/p294_0" +" sym295_0))))" +"(let-values(((sym_45)" "(filter_0" -" b_69" +" b_67" "(provided-as-transformer?" " binding/p_4))))" -"(if(if sym_46" +"(if(if sym_45" "(not" " can-bulk?_0)" " #f)" "(let-values()" -"(let-values(((temp296_0)" +"(let-values(((temp300_0)" "(datum->syntax$1" " in-stx_2" -" sym_46))" -"((b297_0)" -" b_69)" -"((phase298_0)" +" sym_45))" +"((b301_0)" +" b_67)" +"((phase302_0)" " phase_67))" "(add-binding!17.1" " #f" " #f" " #f" " #f" -" temp296_0" -" b297_0" -" phase298_0)))" +" temp300_0" +" b301_0" +" phase302_0)))" "(void)))))" "(void))))" "(values)))))" @@ -25104,19 +25284,19 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_174)" -" lst_148)))" +" lst_149)))" "(void)))" "(void))" "(if can-bulk?_0" "(let-values()" "(let-values(((bulk-binding-registry_10)" "(namespace-bulk-binding-registry" -" ns_49)))" -"(let-values(((in-stx299_0)" +" ns_50)))" +"(let-values(((in-stx303_0)" " in-stx_2)" -"((temp300_0)" +"((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_207)" +"(let-values(((or-part_208)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25125,8 +25305,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_207" -" or-part_207" +"(if or-part_208" +" or-part_208" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25143,16 +25323,22 @@ static const char *startup_source = " provide-phase-level_5" " phase-shift_12" " bulk-binding-registry_10))" -"((phase301_0)" +"((phase305_0)" " phase_67)" -"((orig-s302_0)" -" orig-s_15))" -"(add-bulk-binding!25.1" -" orig-s302_0" +"((orig-s306_0)" +" orig-s_15)" +"((temp307_0)" +"(if need-except?_0" +" defines-mpi_0" +" #f)))" +"(add-bulk-binding!27.1" +" orig-s306_0" " #t" -" in-stx299_0" -" temp300_0" -" phase301_0))))" +" temp307_0" +" #t" +" in-stx303_0" +" temp304_0" +" phase305_0))))" "(void))))" "(void)))))" "(values)))))" @@ -25160,12 +25346,12 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_173" -"(hash-iterate-next ht_104 i_136))" +"(hash-iterate-next ht_106 i_137))" "(values))))" "(values))))))" " for-loop_173)" -"(hash-iterate-first ht_104))))" -"(void))))))))))))))))))))))" +"(hash-iterate-first ht_106))))" +"(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" "(lambda(req_1)" @@ -25186,47 +25372,47 @@ static const char *startup_source = "(let-values(((tmp_25) fm_1))" "(if(equal? tmp_25 'for-meta)" "(let-values()" -"(let-values(((ok?_12 for-meta303_0 phase-level304_0 spec305_0)" -"(let-values(((s_269) req_3))" -"(let-values(((orig-s_16) s_269))" -"(let-values(((for-meta303_1 phase-level304_1 spec305_1)" +"(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" +"(let-values(((s_268) req_3))" +"(let-values(((orig-s_16) s_268))" +"(let-values(((for-meta308_1 phase-level309_1 spec310_1)" +"(let-values(((s_269)" +"(if(syntax?$1 s_268)" +"(syntax-e$1 s_268)" +" s_268)))" +"(if(pair? s_269)" +"(let-values(((for-meta311_0)" "(let-values(((s_270)" -"(if(syntax?$1 s_269)" -"(syntax-e$1 s_269)" -" s_269)))" -"(if(pair? s_270)" -"(let-values(((for-meta306_0)" +"(car s_269)))" +" s_270))" +"((phase-level312_0 spec313_0)" "(let-values(((s_271)" -"(car s_270)))" -" s_271))" -"((phase-level307_0 spec308_0)" +"(cdr s_269)))" "(let-values(((s_272)" -"(cdr s_270)))" +"(if(syntax?$1" +" s_271)" +"(syntax-e$1" +" s_271)" +" s_271)))" +"(if(pair? s_272)" +"(let-values(((phase-level314_0)" "(let-values(((s_273)" -"(if(syntax?$1" -" s_272)" -"(syntax-e$1" -" s_272)" -" s_272)))" -"(if(pair? s_273)" -"(let-values(((phase-level309_0)" -"(let-values(((s_274)" "(car" -" s_273)))" -" s_274))" -"((spec310_0)" -"(let-values(((s_275)" +" s_272)))" +" s_273))" +"((spec315_0)" +"(let-values(((s_274)" "(cdr" -" s_273)))" -"(let-values(((s_276)" +" s_272)))" +"(let-values(((s_275)" "(if(syntax?$1" -" s_275)" +" s_274)" "(syntax-e$1" -" s_275)" -" s_275)))" +" s_274)" +" s_274)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_276)))" +" s_275)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25237,56 +25423,56 @@ static const char *startup_source = "(let-values()" " flat-s_8)))))))" "(values" -" phase-level309_0" -" spec310_0))" +" phase-level314_0" +" spec315_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_16))))))" "(values" -" for-meta306_0" -" phase-level307_0" -" spec308_0))" +" for-meta311_0" +" phase-level312_0" +" spec313_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_16)))))" -"(values #t for-meta303_1 phase-level304_1 spec305_1))))))" -"(let-values(((p_33)(syntax-e$1 phase-level304_0)))" +"(values #t for-meta308_1 phase-level309_1 spec310_1))))))" +"(let-values(((p_33)(syntax-e$1 phase-level309_0)))" "(begin" "(if(phase? p_33)" "(void)" " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta303_0(phase+ p_33 1)(map2(loop_85 #t) spec305_0)))))))" +"(list* for-meta308_0(phase+ p_33 1)(map2(loop_85 #t) spec310_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" -"(let-values(((ok?_13 for-syntax311_0 spec312_0)" -"(let-values(((s_277) req_3))" -"(let-values(((orig-s_17) s_277))" -"(let-values(((for-syntax311_1 spec312_1)" +"(let-values(((ok?_13 for-syntax316_0 spec317_0)" +"(let-values(((s_276) req_3))" +"(let-values(((orig-s_17) s_276))" +"(let-values(((for-syntax316_1 spec317_1)" +"(let-values(((s_277)" +"(if(syntax?$1 s_276)" +"(syntax-e$1 s_276)" +" s_276)))" +"(if(pair? s_277)" +"(let-values(((for-syntax318_0)" "(let-values(((s_278)" -"(if(syntax?$1 s_277)" -"(syntax-e$1 s_277)" -" s_277)))" -"(if(pair? s_278)" -"(let-values(((for-syntax313_0)" +"(car s_277)))" +" s_278))" +"((spec319_0)" "(let-values(((s_279)" -"(car s_278)))" -" s_279))" -"((spec314_0)" +"(cdr s_277)))" "(let-values(((s_280)" -"(cdr s_278)))" -"(let-values(((s_281)" "(if(syntax?$1" -" s_280)" +" s_279)" "(syntax-e$1" -" s_280)" -" s_280)))" +" s_279)" +" s_279)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_281)))" +" s_280)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25295,40 +25481,40 @@ static const char *startup_source = " orig-s_17))" "(let-values()" " flat-s_9)))))))" -"(values for-syntax313_0 spec314_0))" +"(values for-syntax318_0 spec319_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_17)))))" -"(values #t for-syntax311_1 spec312_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_85 #t) spec312_0)))))" +"(values #t for-syntax316_1 spec317_1))))))" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_85 #t) spec317_0)))))" "(if(equal? tmp_25 'for-template)" "(let-values()" -"(let-values(((ok?_14 for-template315_0 spec316_0)" -"(let-values(((s_282) req_3))" -"(let-values(((orig-s_18) s_282))" -"(let-values(((for-template315_1 spec316_1)" +"(let-values(((ok?_14 for-template320_0 spec321_0)" +"(let-values(((s_281) req_3))" +"(let-values(((orig-s_18) s_281))" +"(let-values(((for-template320_1 spec321_1)" +"(let-values(((s_282)" +"(if(syntax?$1 s_281)" +"(syntax-e$1 s_281)" +" s_281)))" +"(if(pair? s_282)" +"(let-values(((for-template322_0)" "(let-values(((s_283)" -"(if(syntax?$1 s_282)" -"(syntax-e$1 s_282)" -" s_282)))" -"(if(pair? s_283)" -"(let-values(((for-template317_0)" +"(car s_282)))" +" s_283))" +"((spec323_0)" "(let-values(((s_284)" -"(car s_283)))" -" s_284))" -"((spec318_0)" +"(cdr s_282)))" "(let-values(((s_285)" -"(cdr s_283)))" -"(let-values(((s_286)" "(if(syntax?$1" -" s_285)" +" s_284)" "(syntax-e$1" -" s_285)" -" s_285)))" +" s_284)" +" s_284)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_286)))" +" s_285)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25337,42 +25523,42 @@ static const char *startup_source = " orig-s_18))" "(let-values()" " flat-s_10)))))))" -"(values for-template317_0 spec318_0))" +"(values for-template322_0 spec323_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_18)))))" -"(values #t for-template315_1 spec316_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_85 #t) spec316_0)))))" +"(values #t for-template320_1 spec321_1))))))" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_85 #t) spec321_0)))))" "(if(equal? tmp_25 'for-label)" "(let-values()" -"(let-values(((ok?_15 for-label319_0 spec320_0)" -"(let-values(((s_287) req_3))" -"(let-values(((orig-s_19) s_287))" -"(let-values(((for-label319_1 spec320_1)" +"(let-values(((ok?_15 for-label324_0 spec325_0)" +"(let-values(((s_286) req_3))" +"(let-values(((orig-s_19) s_286))" +"(let-values(((for-label324_1 spec325_1)" +"(let-values(((s_287)" +"(if(syntax?$1 s_286)" +"(syntax-e$1 s_286)" +" s_286)))" +"(if(pair? s_287)" +"(let-values(((for-label326_0)" "(let-values(((s_288)" -"(if(syntax?$1 s_287)" -"(syntax-e$1 s_287)" -" s_287)))" -"(if(pair? s_288)" -"(let-values(((for-label321_0)" -"(let-values(((s_289)" "(car" -" s_288)))" -" s_289))" -"((spec322_0)" -"(let-values(((s_290)" +" s_287)))" +" s_288))" +"((spec327_0)" +"(let-values(((s_289)" "(cdr" -" s_288)))" -"(let-values(((s_291)" +" s_287)))" +"(let-values(((s_290)" "(if(syntax?$1" -" s_290)" +" s_289)" "(syntax-e$1" -" s_290)" -" s_290)))" +" s_289)" +" s_289)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_291)))" +" s_290)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25381,63 +25567,63 @@ static const char *startup_source = " orig-s_19))" "(let-values()" " flat-s_11)))))))" -"(values for-label321_0 spec322_0))" +"(values for-label326_0 spec327_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_19)))))" -"(values #t for-label319_1 spec320_1))))))" +"(values #t for-label324_1 spec325_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label319_0(map2(loop_85 #t) spec320_0)))))" +"(list* for-label324_0(map2(loop_85 #t) spec325_0)))))" "(if(equal? tmp_25 'just-meta)" "(let-values()" -"(let-values(((ok?_16 just-meta323_0 phase-level324_0 spec325_0)" -"(let-values(((s_292) req_3))" -"(let-values(((orig-s_20) s_292))" -"(let-values(((just-meta323_1" -" phase-level324_1" -" spec325_1)" +"(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" +"(let-values(((s_291) req_3))" +"(let-values(((orig-s_20) s_291))" +"(let-values(((just-meta328_1" +" phase-level329_1" +" spec330_1)" +"(let-values(((s_292)" +"(if(syntax?$1 s_291)" +"(syntax-e$1 s_291)" +" s_291)))" +"(if(pair? s_292)" +"(let-values(((just-meta331_0)" "(let-values(((s_293)" -"(if(syntax?$1 s_292)" -"(syntax-e$1 s_292)" +"(car" " s_292)))" -"(if(pair? s_293)" -"(let-values(((just-meta326_0)" +" s_293))" +"((phase-level332_0" +" spec333_0)" "(let-values(((s_294)" -"(car" -" s_293)))" -" s_294))" -"((phase-level327_0" -" spec328_0)" +"(cdr" +" s_292)))" "(let-values(((s_295)" -"(cdr" -" s_293)))" +"(if(syntax?$1" +" s_294)" +"(syntax-e$1" +" s_294)" +" s_294)))" +"(if(pair? s_295)" +"(let-values(((phase-level334_0)" "(let-values(((s_296)" -"(if(syntax?$1" -" s_295)" -"(syntax-e$1" -" s_295)" -" s_295)))" -"(if(pair? s_296)" -"(let-values(((phase-level329_0)" -"(let-values(((s_297)" "(car" -" s_296)))" -" s_297))" -"((spec330_0)" -"(let-values(((s_298)" +" s_295)))" +" s_296))" +"((spec335_0)" +"(let-values(((s_297)" "(cdr" -" s_296)))" -"(let-values(((s_299)" +" s_295)))" +"(let-values(((s_298)" "(if(syntax?$1" -" s_298)" +" s_297)" "(syntax-e$1" -" s_298)" -" s_298)))" +" s_297)" +" s_297)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_299)))" +" s_298)))" "(if(not" " flat-s_12)" "(let-values()" @@ -25448,31 +25634,31 @@ static const char *startup_source = "(let-values()" " flat-s_12)))))))" "(values" -" phase-level329_0" -" spec330_0))" +" phase-level334_0" +" spec335_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_20))))))" "(values" -" just-meta326_0" -" phase-level327_0" -" spec328_0))" +" just-meta331_0" +" phase-level332_0" +" spec333_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_20)))))" "(values" " #t" -" just-meta323_1" -" phase-level324_1" -" spec325_1))))))" +" just-meta328_1" +" phase-level329_1" +" spec330_1))))))" "(rebuild-req_0" " req_3" "(list*" -" just-meta323_0" -" phase-level324_0" -"(map2(loop_85 #f) spec325_0)))))" +" just-meta328_0" +" phase-level329_0" +"(map2(loop_85 #f) spec330_0)))))" "(let-values()" "(if shifted?_0" " req_3" @@ -25483,11 +25669,11 @@ static const char *startup_source = "(lambda(m-ns_11 adjusted-sym_1 binding_18 phase-level_16 phase-shift_13 as-constant?_1)" "(begin" "(let-values(((i-ns_0)" -"(let-values(((m-ns331_0) m-ns_11)" -"((temp332_0)(1/module-path-index-resolve(module-binding-module binding_18)))" -"((temp333_0)(phase-(module-binding-phase binding_18) phase-level_16))" -"((temp334_0) #t))" -"(namespace->module-namespace82.1 #f #f temp334_0 #t #f #f m-ns331_0 temp332_0 temp333_0))))" +"(let-values(((m-ns336_0) m-ns_11)" +"((temp337_0)(1/module-path-index-resolve(module-binding-module binding_18)))" +"((temp338_0)(phase-(module-binding-phase binding_18) phase-level_16))" +"((temp339_0) #t))" +"(namespace->module-namespace82.1 #f #f temp339_0 #t #f #f m-ns336_0 temp337_0 temp338_0))))" "(let-values(((val_45)" "(namespace-get-variable" " i-ns_0" @@ -25519,13 +25705,13 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_21 mpi_38 orig-phase_0 phase-shift_14 ns_50 sym_47 trans?_0 trans-val_0)" +"(lambda(id_21 mpi_38 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_44)(phase+ orig-phase_0 phase-shift_14)))" -"(let-values(((b_70)" +"(let-values(((b_68)" "(let-values(((mpi4_0) mpi_38)" "((phase5_0) phase_44)" -"((sym6_1) sym_47)" -"((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_50))))" +"((sym6_1) sym_46)" +"((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" " #f" " #f" @@ -25549,20 +25735,20 @@ static const char *startup_source = " phase5_0" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_21)((b2_4) b_70)((phase3_1) phase_44))" +"(let-values(((id1_3) id_21)((b2_4) b_68)((phase3_1) phase_44))" "(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_44))(void)))" -"(let-values()(namespace-unset-transformer! ns_50 phase_44 sym_47)))))))" +"(let-values()(namespace-unset-transformer! ns_51 phase_44 sym_46)))))))" " top-level-require!-id" -"(lambda(stx_11 ns_51)" +"(lambda(stx_11 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_11))))" "(let-values(((temp8_1) #t)" "((temp9_1) #f)" "((reqs10_0) reqs_2)" "((temp11_1) #f)" -"((ns12_0) ns_51)" -"((temp13_0)(namespace-phase ns_51))" +"((ns12_0) ns_52)" +"((temp13_0)(namespace-phase ns_52))" "((temp14_2)(let-values(((temp17_1) #f))(make-requires+provides8.1 #f #f temp17_1)))" "((temp15_2) 'require)" "((temp16_2) #t))" @@ -25657,7 +25843,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_300 original-scopes-s_0 new-ns_0)" +"(lambda(s_299 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -25665,29 +25851,29 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_300 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_299 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" "(extract-namespace-scopes/values)" -"(lambda(ns_45)" +"(lambda(ns_46)" "(begin" -"(let-values(((root-ctx_3)(namespace-get-root-expand-ctx ns_45)))" +"(let-values(((root-ctx_3)(namespace-get-root-expand-ctx ns_46)))" "(let-values(((post-expansion-sc_0)(root-expand-context-post-expansion-scope root-ctx_3)))" "(values" "(seteq post-expansion-sc_0)" "(set-remove(list->seteq(root-expand-context-module-scopes root-ctx_3)) post-expansion-sc_0)))))))" "(define-values" "(extract-namespace-scopes)" -"(lambda(ns_52)" +"(lambda(ns_53)" "(begin" -"(let-values(((scs-post_0 scs-other_0)(extract-namespace-scopes/values ns_52)))" +"(let-values(((scs-post_0 scs-other_0)(extract-namespace-scopes/values ns_53)))" "(namespace-scopes1.1 scs-post_0 scs-other_0)))))" "(define-values" "(encode-namespace-scopes)" -"(lambda(ns_53)" +"(lambda(ns_54)" "(begin" -"(let-values(((post-expansion-scs_0 other-scs_0)(extract-namespace-scopes/values ns_53)))" +"(let-values(((post-expansion-scs_0 other-scs_0)(extract-namespace-scopes/values ns_54)))" "(let-values(((post-expansion-s_0)(add-scopes(datum->syntax$1 #f 'post)(set->list post-expansion-scs_0))))" "(let-values(((other-s_0)(add-scopes(datum->syntax$1 #f 'other)(set->list other-scs_0))))" "(datum->syntax$1 #f(vector post-expansion-s_0 other-s_0))))))))" @@ -25749,35 +25935,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(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:_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:_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:_63" " make-_63" " ?_63" -"(make-struct-field-accessor -ref_63 0 'module-use)" -"(make-struct-field-accessor -ref_63 1 'sym))))" +"(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))))" +"(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()" +"(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))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -25958,24 +26144,24 @@ static const char *startup_source = "(lambda(sl_6)(begin(list->vector(reverse$1(syntax-literals-stxes sl_6))))))" "(define-values" "(select-fresh)" -"(lambda(sym_4 header_0)" +"(lambda(sym_47 header_0)" "(begin" -"(if(symbol-conflicts? sym_4 header_0)" +"(if(symbol-conflicts? sym_47 header_0)" "((letrec-values(((loop_86)" "(lambda(pos_88)" "(begin" " 'loop" -" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_4))))" +" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_47))))" "(if(symbol-conflicts? new-sym_0 header_0)(loop_86(add1 pos_88)) new-sym_0))))))" " loop_86)" " 1)" -" sym_4))))" +" sym_47))))" "(define-values" "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_208)(built-in-symbol? sym_48)))" -"(if or-part_208 or-part_208(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_209)(built-in-symbol? sym_48)))" +"(if or-part_209 or-part_209(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" @@ -25983,28 +26169,28 @@ static const char *startup_source = " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" "(let-values(((mpi_39) mpi15_0))" -"(let-values(((phase_3) phase16_1))" +"(let-values(((phase_7) phase16_1))" "(let-values(((sym_49) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" -"(let-values(((defined?_1)(if defined?13_0 defined?12_0 #f)))" +"(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_53)(variable-use3.1(module-use1.1 mpi_39 phase_3) sym_49)))" +"(let-values(((key_54)(variable-use3.1(module-use1.1 mpi_39 phase_7) sym_49)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" -"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_53 #f)))" +"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_54 #f)))" "(let-values(((var-sym_0)" "(let-values(((or-part_58) prev-var-sym_0))" "(if or-part_58" " or-part_58" -"(let-values(((sym_50)(select-fresh(variable-use-sym key_53) header_2)))" +"(let-values(((sym_50)(select-fresh(variable-use-sym key_54) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_53 sym_50)" +"(hash-set! variable-uses_0 key_54 sym_50)" "(set-header-require-vars-in-order!" " header_2" -"(cons key_53(header-require-vars-in-order header_2)))" +"(cons key_54(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" " sym_50" -"(if defined?_1 'defined 'required))" +"(if defined?_2 'defined 'required))" " sym_50))))))" "(begin" "(if(if extra-inspector_4(not prev-var-sym_0) #f)" @@ -26013,7 +26199,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_301)(set-add s_301 extra-inspector_4))" +"(lambda(s_300)(set-add s_300 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26029,69 +26215,69 @@ static const char *startup_source = "(lambda(header_5 phase_68 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0)" -"(let-values(((lst_150)(header-require-vars-in-order header_5)))" +"(let-values(((lst_151)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_150)))" +"(let-values()(check-list lst_151)))" "((letrec-values(((for-loop_176)" -"(lambda(ht_105 lst_151)" +"(lambda(ht_107 lst_152)" "(begin" " 'for-loop" -"(if(pair? lst_151)" -"(let-values(((vu_0)(unsafe-car lst_151))" -"((rest_75)(unsafe-cdr lst_151)))" -"(let-values(((ht_106)" -"(let-values(((ht_107) ht_105))" +"(if(pair? lst_152)" +"(let-values(((vu_0)(unsafe-car lst_152))" +"((rest_75)(unsafe-cdr lst_152)))" "(let-values(((ht_108)" +"(let-values(((ht_109) ht_107))" +"(let-values(((ht_110)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_209)" +"(if(let-values(((or-part_210)" "(hash-ref" -" ht_107" +" ht_109" " mu_2" " #f)))" -"(if or-part_209" -" or-part_209" -"(let-values(((or-part_210)" +"(if or-part_210" +" or-part_210" +"(let-values(((or-part_211)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_210" -" or-part_210" +"(if or-part_211" +" or-part_211" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -" ht_107" -"(hash-set ht_107 mu_2 #t))))))" -"(values ht_108)))))" -"(if(not #f)(for-loop_176 ht_106 rest_75) ht_106)))" -" ht_105)))))" +" ht_109" +"(hash-set ht_109 mu_2 #t))))))" +"(values ht_110)))))" +"(if(not #f)(for-loop_176 ht_108 rest_75) ht_108)))" +" ht_107)))))" " for-loop_176)" " '#hash()" -" lst_150)))))" +" lst_151)))))" "(let-values(((link-mod-uses_0)(hash-keys mod-use-ht_0)))" "(values" " link-mod-uses_0" "(reverse$1" -"(let-values(((lst_105) link-mod-uses_0))" +"(let-values(((lst_106) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_118)" -"(lambda(fold-var_25 lst_152)" +"(let-values()(check-list lst_106)))" +"((letrec-values(((for-loop_117)" +"(lambda(fold-var_133 lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_152)" -"(let-values(((mu_3)(unsafe-car lst_152))((rest_76)(unsafe-cdr lst_152)))" -"(let-values(((fold-var_133)" -"(let-values(((fold-var_134) fold-var_25))" -"(let-values(((fold-var_135)" +"(if(pair? lst_73)" +"(let-values(((mu_3)(unsafe-car lst_73))((rest_76)(unsafe-cdr lst_73)))" +"(let-values(((fold-var_134)" +"(let-values(((fold-var_135) fold-var_133))" +"(let-values(((fold-var_136)" "(let-values()" "(cons" "(let-values()" @@ -26105,8 +26291,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_153)))" -"((letrec-values(((for-loop_43)" -"(lambda(fold-var_136" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_137" " lst_154)" "(begin" " 'for-loop" @@ -26119,15 +26305,15 @@ static const char *startup_source = "(unsafe-cdr" " lst_154)))" "(let-values(((fold-var_39)" -"(let-values(((fold-var_137)" -" fold-var_136))" +"(let-values(((fold-var_138)" +" fold-var_137))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" -"(let-values(((fold-var_138)" -" fold-var_137))" "(let-values(((fold-var_139)" +" fold-var_138))" +"(let-values(((fold-var_140)" "(let-values()" "(cons" "(let-values()" @@ -26146,42 +26332,42 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_138))))" +" fold-var_139))))" "(values" -" fold-var_139)))" -" fold-var_137))))" +" fold-var_140)))" +" fold-var_138))))" "(if(not" " #f)" -"(for-loop_43" +"(for-loop_177" " fold-var_39" " rest_77)" " fold-var_39)))" -" fold-var_136)))))" -" for-loop_43)" +" fold-var_137)))))" +" for-loop_177)" " null" " lst_153)))))" -" fold-var_134))))" -"(values fold-var_135)))))" -"(if(not #f)(for-loop_118 fold-var_133 rest_76) fold-var_133)))" -" fold-var_25)))))" -" for-loop_118)" +" fold-var_135))))" +"(values fold-var_136)))))" +"(if(not #f)(for-loop_117 fold-var_134 rest_76) fold-var_134)))" +" fold-var_133)))))" +" for-loop_117)" " null" -" lst_105))))" +" lst_106))))" "(reverse$1" "(let-values(((lst_155) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_177)" -"(lambda(fold-var_140 lst_107)" +"((letrec-values(((for-loop_178)" +"(lambda(fold-var_141 lst_108)" "(begin" " 'for-loop" -"(if(pair? lst_107)" -"(let-values(((mu_4)(unsafe-car lst_107))((rest_78)(unsafe-cdr lst_107)))" -"(let-values(((fold-var_141)" -"(let-values(((fold-var_142) fold-var_140))" -"(let-values(((fold-var_143)" +"(if(pair? lst_108)" +"(let-values(((mu_4)(unsafe-car lst_108))((rest_78)(unsafe-cdr lst_108)))" +"(let-values(((fold-var_142)" +"(let-values(((fold-var_143) fold-var_141))" +"(let-values(((fold-var_144)" "(let-values()" "(cons" "(let-values()" @@ -26196,8 +26382,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_156)))" -"((letrec-values(((for-loop_178)" -"(lambda(table_135" +"((letrec-values(((for-loop_179)" +"(lambda(table_139" " lst_157)" "(begin" " 'for-loop" @@ -26209,9 +26395,9 @@ static const char *startup_source = "((rest_79)" "(unsafe-cdr" " lst_157)))" -"(let-values(((table_136)" -"(let-values(((table_137)" -" table_135))" +"(let-values(((table_140)" +"(let-values(((table_141)" +" table_139))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -26228,7 +26414,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_138)" +"(let-values(((table_34)" "(let-values(((extra-inspectors_1)" "(hash-ref" "(header-import-sym-to-extra-inspectors" @@ -26237,7 +26423,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_180)" "(lambda(table_30)" "(begin" " 'for-loop" @@ -26245,79 +26431,79 @@ static const char *startup_source = "(let-values(((table_31)" "(let-values(((table_32)" " table_30))" -"(if(let-values(((or-part_211)" +"(if(let-values(((or-part_212)" " extra-inspectors_1))" -"(if or-part_211" -" or-part_211" +"(if or-part_212" +" or-part_212" " cross-linklet-inlining?_0))" -"(let-values(((table_111)" +"(let-values(((table_115)" " table_32))" -"(let-values(((table_112)" +"(let-values(((table_116)" "(let-values()" -"(let-values(((key_54" +"(let-values(((key_55" " val_46)" "(let-values()" "(values" " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_111" -" key_54" +" table_115" +" key_55" " val_46)))))" "(values" -" table_112)))" +" table_116)))" " table_32))))" " table_31))))))" -" for-loop_179)" +" for-loop_180)" " table_29)))))" -" table_138))))))" +" table_34))))))" " for-loop_32)" -" table_137)))" -" table_137))))" +" table_141)))" +" table_141))))" "(if(not" " #f)" -"(for-loop_178" -" table_136" +"(for-loop_179" +" table_140" " rest_79)" -" table_136)))" -" table_135)))))" -" for-loop_178)" +" table_140)))" +" table_139)))))" +" for-loop_179)" " '#hash()" " lst_156)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_142))))" -"(values fold-var_143)))))" -"(if(not #f)(for-loop_177 fold-var_141 rest_78) fold-var_141)))" -" fold-var_140)))))" -" for-loop_177)" +" fold-var_143))))" +"(values fold-var_144)))))" +"(if(not #f)(for-loop_178 fold-var_142 rest_78) fold-var_142)))" +" fold-var_141)))))" +" for-loop_178)" " null" " lst_155))))" "(reverse$1" "(let-values(((lst_42)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_144 lst_158)" +"((letrec-values(((for-loop_181)" +"(lambda(fold-var_145 lst_158)" "(begin" " 'for-loop" "(if(pair? lst_158)" "(let-values(((vu_3)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" -"(let-values(((fold-var_145)" -"(let-values(((fold-var_146) fold-var_144))" +"(let-values(((fold-var_146)" +"(let-values(((fold-var_147) fold-var_145))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_212)" +"(let-values(((or-part_213)" "(eq?" " mod_2" "(compile-context-self cctx_0))))" -"(if or-part_212" -" or-part_212" +"(if or-part_213" +" or-part_213" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_147) fold-var_146))" -"(let-values(((fold-var_148)" +"(let-values(((fold-var_148) fold-var_147))" +"(let-values(((fold-var_149)" "(let-values()" "(cons" "(let-values()" @@ -26332,12 +26518,12 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" +" fold-var_148))))" +"(values fold-var_149)))" " fold-var_147))))" -"(values fold-var_148)))" -" fold-var_146))))" -"(if(not #f)(for-loop_180 fold-var_145 rest_80) fold-var_145)))" -" fold-var_144)))))" -" for-loop_180)" +"(if(not #f)(for-loop_181 fold-var_146 rest_80) fold-var_146)))" +" fold-var_145)))))" +" for-loop_181)" " null" " lst_42))))))))))" "(define-values" @@ -26348,7 +26534,7 @@ static const char *startup_source = "(lambda(bulk-binding-registry5_0 inspector4_0 namespace1_0 phase-shift2_0 self3_0 set-transformer!6_0)" "(begin" " 'make-instance-instance13" -"(let-values(((ns_54) namespace1_0))" +"(let-values(((ns_55) namespace1_0))" "(let-values(((phase-shift_15) phase-shift2_0))" "(let-values(((self_16) self3_0))" "(let-values(((inspector_10) inspector4_0))" @@ -26360,7 +26546,7 @@ static const char *startup_source = " #f" " 'constant" " ns-id" -" ns_54" +" ns_55" " phase-shift-id" " phase-shift_15" " self-id" @@ -26402,7 +26588,7 @@ static const char *startup_source = "(lambda(bulk-binding-registry4_0 dest-phase2_0 inspector5_0 namespace1_1 self3_1)" "(begin" " 'make-eager-instance-instance11" -"(let-values(((ns_55) namespace1_1))" +"(let-values(((ns_56) namespace1_1))" "(let-values(((dest-phase_0) dest-phase2_0))" "(let-values(((self_17) self3_1))" "(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" @@ -26413,7 +26599,7 @@ static const char *startup_source = " #f" " 'constant" " ns-id" -" ns_55" +" ns_56" " dest-phase-id" " dest-phase_0" " self-id" @@ -26487,14 +26673,14 @@ static const char *startup_source = "((e_31 k_31 v_127)(syntax-property$2 e_31 k_31 v_127))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_113)" +"(lambda(s_112)" "(begin" " 'to-syntax-list" -"(if(list? s_113)" -"(let-values() s_113)" -"(if(pair? s_113)" -"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_113))))(if r_38(cons(car s_113) r_38) #f)))" -"(if(1/syntax? s_113)(let-values()(to-syntax-list.1$1(syntax-e$2 s_113)))(let-values() #f)))))))" +"(if(list? s_112)" +"(let-values() s_112)" +"(if(pair? s_112)" +"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_112))))(if r_38(cons(car s_112) r_38) #f)))" +"(if(1/syntax? s_112)(let-values()(to-syntax-list.1$1(syntax-e$2 s_112)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -26562,7 +26748,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_182)" "(lambda(fold-var_31 lst_160)" "(begin" " 'for-loop" @@ -26572,9 +26758,9 @@ static const char *startup_source = "((rest_81)" "(unsafe-cdr lst_160)))" "(let-values(((fold-var_66)" -"(let-values(((fold-var_149)" -" fold-var_31))" "(let-values(((fold-var_150)" +" fold-var_31))" +"(let-values(((fold-var_151)" "(let-values()" "(cons" "(let-values()" @@ -26584,14 +26770,14 @@ static const char *startup_source = "(cadr" " clause_0)" " cctx_1))" -" fold-var_149))))" +" fold-var_150))))" "(values" -" fold-var_150)))))" +" fold-var_151)))))" "(if(not #f)" -"(for-loop_181 fold-var_66 rest_81)" +"(for-loop_182 fold-var_66 rest_81)" " fold-var_66)))" " fold-var_31)))))" -" for-loop_181)" +" for-loop_182)" " null" " lst_159))))))" " name_40" @@ -26610,17 +26796,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_40)))" -"((letrec-values(((for-loop_182)" -"(lambda(fold-var_151 lst_161)" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_152 lst_161)" "(begin" " 'for-loop" "(if(pair? lst_161)" "(let-values(((r_39)(unsafe-car lst_161))" "((rest_41)" "(unsafe-cdr lst_161)))" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_153)" "(let-values(((fold-var_9)" -" fold-var_151))" +" fold-var_152))" "(let-values(((fold-var_68)" "(let-values()" "(cons" @@ -26633,10 +26819,10 @@ static const char *startup_source = "(values" " fold-var_68)))))" "(if(not #f)" -"(for-loop_182 fold-var_152 rest_41)" -" fold-var_152)))" -" fold-var_151)))))" -" for-loop_182)" +"(for-loop_183 fold-var_153 rest_41)" +" fold-var_153)))" +" fold-var_152)))))" +" for-loop_183)" " null" " lst_40))))))))" "(if(parsed-if? p_34)" @@ -26676,24 +26862,24 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_34)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_88)(cdr(parsed-begin0-body p_34))))" +"(let-values(((lst_89)(cdr(parsed-begin0-body p_34))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_11 lst_89)" +"(let-values()(check-list lst_89)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_11 lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" +"(if(pair? lst_90)" "(let-values(((e_32)" -"(unsafe-car lst_89))" +"(unsafe-car lst_90))" "((rest_42)" -"(unsafe-cdr lst_89)))" -"(let-values(((fold-var_153)" +"(unsafe-cdr lst_90)))" "(let-values(((fold-var_154)" -" fold-var_11))" "(let-values(((fold-var_155)" +" fold-var_11))" +"(let-values(((fold-var_156)" "(let-values()" "(cons" "(let-values()" @@ -26701,18 +26887,18 @@ static const char *startup_source = " e_32" " #f" " #f))" -" fold-var_154))))" +" fold-var_155))))" "(values" -" fold-var_155)))))" +" fold-var_156)))))" "(if(not #f)" -"(for-loop_104" -" fold-var_153" +"(for-loop_103" +" fold-var_154" " rest_42)" -" fold-var_153)))" +" fold-var_154)))" " fold-var_11)))))" -" for-loop_104)" +" for-loop_103)" " null" -" lst_88)))))))" +" lst_89)))))))" "(if(parsed-begin? p_34)" "(let-values()" "(correlate~" @@ -26831,22 +27017,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_156 lst_94 pos_90)" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_157 lst_95 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_94) #t #f)" -"(let-values(((e_33)(unsafe-car lst_94))" -"((rest_82)(unsafe-cdr lst_94))" -"((i_137) pos_90))" -"(let-values(((fold-var_157)" -"(let-values(((fold-var_79) fold-var_156))" +"(if(if(pair? lst_95) #t #f)" +"(let-values(((e_33)(unsafe-car lst_95))" +"((rest_82)(unsafe-cdr lst_95))" +"((i_138) pos_90))" +"(let-values(((fold-var_158)" +"(let-values(((fold-var_79) fold-var_157))" "(let-values(((fold-var_80)" "(let-values()" "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_137 used-pos_0)))" +"(= i_138 used-pos_0)))" "(compile$2" " e_33" " cctx_7" @@ -26854,15 +27040,15 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_79))))" "(values fold-var_80)))))" -"(if(not #f)(for-loop_183 fold-var_157 rest_82(+ pos_90 1)) fold-var_157)))" -" fold-var_156)))))" -" for-loop_183)" +"(if(not #f)(for-loop_184 fold-var_158 rest_82(+ pos_90 1)) fold-var_158)))" +" fold-var_157)))))" +" for-loop_184)" " null" " lst_162" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_302 inferred-name_0 orig-s_21)" +"(lambda(s_301 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" "(lambda(v_159)" @@ -26874,24 +27060,24 @@ static const char *startup_source = "(let-values(((n2_0)(simplify-name_0(cdr v_159))))(if(eq? n1_0 n2_0) n1_0 v_159))))" "(let-values() v_159))))))" "(let-values(((name_45)" -"(let-values(((or-part_213)" +"(let-values(((or-part_214)" "(let-values(((v_160)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" "(if(let-values(((or-part_134)(symbol? v_160)))" "(if or-part_134" " or-part_134" -"(let-values(((or-part_214)(syntax?$1 v_160)))" -"(if or-part_214 or-part_214(void? v_160)))))" +"(let-values(((or-part_215)(syntax?$1 v_160)))" +"(if or-part_215 or-part_215(void? v_160)))))" " v_160" " #f))))" -"(if or-part_213 or-part_213 inferred-name_0))))" +"(if or-part_214 or-part_214 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_302)" +"(->correlated s_301)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_302)))" +" s_301)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -26922,8 +27108,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_34)" -"(lambda(fold-var_158 lst_165 lst_166)" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_159 lst_165 lst_166)" "(begin" " 'for-loop" "(if(if(pair? lst_165)(pair? lst_166) #f)" @@ -26931,8 +27117,8 @@ static const char *startup_source = "((rest_83)(unsafe-cdr lst_165))" "((ids_4)(unsafe-car lst_166))" "((rest_84)(unsafe-cdr lst_166)))" -"(let-values(((fold-var_159)" -"(let-values(((fold-var_160) fold-var_158))" +"(let-values(((fold-var_160)" +"(let-values(((fold-var_161) fold-var_159))" "(let-values(((fold-var_0)" "(let-values()" "(cons" @@ -26940,7 +27126,7 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_101)" +"(let-values(((lst_102)" "(car" " clause_1))" "((lst_167)" @@ -26951,14 +27137,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_101)))" +" lst_102)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_167)))" -"((letrec-values(((for-loop_184)" +"((letrec-values(((for-loop_186)" "(lambda(fold-var_2" " lst_168" " lst_169)" @@ -26981,30 +27167,30 @@ static const char *startup_source = "((rest_86)" "(unsafe-cdr" " lst_169)))" -"(let-values(((fold-var_161)" "(let-values(((fold-var_162)" -" fold-var_2))" "(let-values(((fold-var_163)" +" fold-var_2))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_51" " id_45))" -" fold-var_162))))" +" fold-var_163))))" "(values" -" fold-var_163)))))" +" fold-var_164)))))" "(if(not" " #f)" -"(for-loop_184" -" fold-var_161" +"(for-loop_186" +" fold-var_162" " rest_85" " rest_86)" -" fold-var_161)))" +" fold-var_162)))" " fold-var_2)))))" -" for-loop_184)" +" for-loop_186)" " null" -" lst_101" +" lst_102" " lst_167))))" "(car clause_1))" "(compile$2" @@ -27013,13 +27199,13 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_160))))" +" fold-var_161))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_34 fold-var_159 rest_83 rest_84)" -" fold-var_159)))" -" fold-var_158)))))" -" for-loop_34)" +"(for-loop_185 fold-var_160 rest_83 rest_84)" +" fold-var_160)))" +" fold-var_159)))))" +" for-loop_185)" " null" " lst_163" " lst_164))))" @@ -27045,10 +27231,10 @@ 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_40)))" -"(let-values(((b_71)" -"(let-values(((or-part_215) normal-b_0))" -"(if or-part_215" -" or-part_215" +"(let-values(((b_69)" +"(let-values(((or-part_216) normal-b_0))" +"(if or-part_216" +" or-part_216" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" "((temp47_0)(syntax-e$1(parsed-s p_40))))" @@ -27074,19 +27260,19 @@ static const char *startup_source = " temp45_0" " temp46_0" " temp47_0))))))" -"(let-values(((sym_52)" -"(if(local-binding? b_71)" -"(let-values()(local-binding-key b_71))" -"(if(module-binding? b_71)" +"(let-values(((sym_5)" +"(if(local-binding? b_69)" +"(let-values()(local-binding-key b_69))" +"(if(module-binding? b_69)" "(let-values()" "(let-values(((mpi_40)" "(if(parsed-top-id? p_40)" "(compile-context-self cctx_9)" -"(module-binding-module b_71))))" +"(module-binding-module b_69))))" "(if(parsed-primitive-id? p_40)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_71))" +"(if(zero?(module-binding-phase b_69))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" @@ -27094,29 +27280,29 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: cannot assign to a primitive:\"" -"(module-binding-sym b_71)))" +"(module-binding-sym b_69)))" "(void))" -"(module-binding-sym b_71)))" +"(module-binding-sym b_69)))" "(if(eq? mpi_40(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_71))))" +"(module-binding-sym b_69))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" "((mpi49_0) mpi_40)" -"((temp50_0)(module-binding-phase b_71))" -"((temp51_0)(module-binding-sym b_71))" +"((temp50_0)(module-binding-phase b_69))" +"((temp51_0)(module-binding-sym b_69))" "((temp52_1)" -"(let-values(((or-part_216)" -"(module-binding-extra-inspector b_71)))" -"(if or-part_216" -" or-part_216" "(let-values(((or-part_217)" -"(parsed-id-inspector p_40)))" +"(module-binding-extra-inspector b_69)))" "(if or-part_217" " or-part_217" +"(let-values(((or-part_218)" +"(parsed-id-inspector p_40)))" +"(if or-part_218" +" or-part_218" "(if(parsed-s p_40)" "(syntax-inspector(parsed-s p_40))" " #f)))))))" @@ -27131,9 +27317,9 @@ static const char *startup_source = "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_71" +" b_69" "(parsed-s p_40)))))))" -"(correlate~(parsed-s p_40)(if set-to?_0(list 'set! sym_52 rhs_0) sym_52)))))))))))))" +"(correlate~(parsed-s p_40)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27150,33 +27336,33 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_109) extra-inspectors_2))" +"(let-values(((ht_111) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_109)))" -"((letrec-values(((for-loop_91)" -"(lambda(result_72 i_138)" +"(let-values()(check-in-immutable-hash-keys ht_111)))" +"((letrec-values(((for-loop_90)" +"(lambda(result_77 i_139)" "(begin" " 'for-loop" -"(if i_138" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_109 i_138)))" -"(let-values(((result_73)" +"(if i_139" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_139)))" +"(let-values(((result_78)" "(let-values()" -"(let-values(((result_74)" +"(let-values(((result_79)" "(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_74)))))" -"(if(if(not((lambda x_54(not result_73)) extra-insp_0))(not #f) #f)" -"(for-loop_91 result_73(unsafe-immutable-hash-iterate-next ht_109 i_138))" -" result_73)))" -" result_72)))))" -" for-loop_91)" +"(values result_79)))))" +"(if(if(not((lambda x_55(not result_78)) extra-insp_0))(not #f) #f)" +"(for-loop_90 result_78(unsafe-immutable-hash-iterate-next ht_111 i_139))" +" result_78)))" +" result_77)))))" +" for-loop_90)" " #t" -"(unsafe-immutable-hash-iterate-first ht_109)))))" +"(unsafe-immutable-hash-iterate-first ht_111)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27188,8 +27374,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_218)(not extra-inspectors-1_0)))" -"(if or-part_218 or-part_218(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_219)(not extra-inspectors-1_0)))" +"(if or-part_219 or-part_219(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -27206,7 +27392,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -27222,13 +27408,13 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" 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))))" +" 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))))" "(define-values" "(module-uses-add-extra-inspectorsss)" "(lambda(mus_1 extra-inspectorsss_0)" @@ -27236,22 +27422,22 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_170) mus_1)((lst_88) extra-inspectorsss_0))" +"(let-values(((lst_170) mus_1)((lst_89) extra-inspectorsss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_170)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_11 lst_89 lst_171)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_89)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_11 lst_90 lst_171)" "(begin" " 'for-loop" -"(if(if(pair? lst_89)(pair? lst_171) #f)" -"(let-values(((mu_5)(unsafe-car lst_89))" -"((rest_87)(unsafe-cdr lst_89))" +"(if(if(pair? lst_90)(pair? lst_171) #f)" +"(let-values(((mu_5)(unsafe-car lst_90))" +"((rest_87)(unsafe-cdr lst_90))" "((extra-inspectorss_1)(unsafe-car lst_171))" "((rest_36)(unsafe-cdr lst_171)))" -"(let-values(((fold-var_164)" -"(let-values(((fold-var_165) fold-var_11))" -"(let-values(((fold-var_166)" +"(let-values(((fold-var_165)" +"(let-values(((fold-var_166) fold-var_11))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -27260,27 +27446,27 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_165))))" -"(values fold-var_166)))))" -"(if(not #f)(for-loop_104 fold-var_164 rest_87 rest_36) fold-var_164)))" +" fold-var_166))))" +"(values fold-var_167)))))" +"(if(not #f)(for-loop_103 fold-var_165 rest_87 rest_36) fold-var_165)))" " fold-var_11)))))" -" for-loop_104)" +" for-loop_103)" " null" " lst_170" -" lst_88)))))" +" lst_89)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_90) mus_1))" +"(let-values(((lst_91) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_167 lst_17)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_168 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_88)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_168) fold-var_167))" +"(let-values(((fold-var_169) fold-var_168))" "(let-values(((fold-var_18)" "(let-values()" "(cons" @@ -27290,13 +27476,13 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_168))))" +" fold-var_169))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_185 fold-var_63 rest_88) fold-var_63)))" -" fold-var_167)))))" -" for-loop_185)" +"(if(not #f)(for-loop_187 fold-var_63 rest_88) fold-var_63)))" +" fold-var_168)))))" +" for-loop_187)" " null" -" lst_90)))))))))" +" lst_91)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" @@ -27305,15 +27491,15 @@ static const char *startup_source = "(let-values(((lst_172) mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" -"((letrec-values(((for-loop_186)" +"((letrec-values(((for-loop_188)" "(lambda(fold-var_70 lst_173)" "(begin" " 'for-loop" "(if(pair? lst_173)" "(let-values(((mu*_0)(unsafe-car lst_173))((rest_89)(unsafe-cdr lst_173)))" -"(let-values(((fold-var_169)" -"(let-values(((fold-var_71) fold-var_70))" "(let-values(((fold-var_170)" +"(let-values(((fold-var_71) fold-var_70))" +"(let-values(((fold-var_171)" "(let-values()" "(cons" "(let-values()" @@ -27321,10 +27507,10 @@ static const char *startup_source = "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" " fold-var_71))))" -"(values fold-var_170)))))" -"(if(not #f)(for-loop_186 fold-var_169 rest_89) fold-var_169)))" +"(values fold-var_171)))))" +"(if(not #f)(for-loop_188 fold-var_170 rest_89) fold-var_170)))" " fold-var_70)))))" -" for-loop_186)" +" for-loop_188)" " null" " lst_172)))))))" "(define-values" @@ -27337,24 +27523,24 @@ static const char *startup_source = "(let-values(((lst_174) mu*s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_187)" +"((letrec-values(((for-loop_189)" "(lambda(fold-var_74 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_90)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_171)" -"(let-values(((fold-var_4) fold-var_74))" "(let-values(((fold-var_172)" +"(let-values(((fold-var_4) fold-var_74))" +"(let-values(((fold-var_173)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_172)))))" -"(if(not #f)(for-loop_187 fold-var_171 rest_90) fold-var_171)))" +"(values fold-var_173)))))" +"(if(not #f)(for-loop_189 fold-var_172 rest_90) fold-var_172)))" " fold-var_74)))))" -" for-loop_187)" +" for-loop_189)" " null" " lst_174)))))" "(let-values()" @@ -27372,21 +27558,21 @@ static const char *startup_source = "((rest_91)(unsafe-cdr lst_177))" "((imports_0)(unsafe-car lst_178))" "((rest_92)(unsafe-cdr lst_178)))" -"(let-values(((fold-var_156)" -"(let-values(((fold-var_173) fold-var_6))" -"(let-values(((fold-var_174)" +"(let-values(((fold-var_157)" +"(let-values(((fold-var_174) fold-var_6))" +"(let-values(((fold-var_175)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_95) imports_0))" +"(let-values(((lst_96) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" +"(let-values()(check-list lst_96)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" " lst_179)" @@ -27431,10 +27617,10 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_95)))))" -" fold-var_173))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_29 fold-var_156 rest_91 rest_92) fold-var_156)))" +" lst_96)))))" +" fold-var_174))))" +"(values fold-var_175)))))" +"(if(not #f)(for-loop_29 fold-var_157 rest_91 rest_92) fold-var_157)))" " fold-var_6)))))" " for-loop_29)" " null" @@ -27452,25 +27638,25 @@ static const char *startup_source = "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_219) add-insp?_0))(if or-part_219 or-part_219 add-extra-insp?_0))" +"(if(let-values(((or-part_220) add-insp?_0))(if or-part_220 or-part_220 add-extra-insp?_0))" "(let-values()" "(let-values(((lst_180) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_180)))" -"((letrec-values(((for-loop_113)" -"(lambda(table_139 lst_181)" +"((letrec-values(((for-loop_112)" +"(lambda(table_142 lst_181)" "(begin" " 'for-loop" "(if(pair? lst_181)" "(let-values(((import_1)(unsafe-car lst_181))" "((rest_94)(unsafe-cdr lst_181)))" -"(let-values(((table_140)" -"(let-values(((table_141) table_139))" -"(let-values(((table_142)" +"(let-values(((table_143)" +"(let-values(((table_144) table_142))" +"(let-values(((table_145)" "(let-values()" -"(let-values(((key_55" +"(let-values(((key_56" " val_48)" "(let-values()" "(values" @@ -27483,33 +27669,33 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_220)" +"(let-values(((or-part_221)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_220" -" or-part_220" -"(let-values(((or-part_221)" +"(if or-part_221" +" or-part_221" +"(let-values(((or-part_222)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_221" -" or-part_221" +"(if or-part_222" +" or-part_222" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_141" -" key_55" +" table_144" +" key_56" " val_48)))))" -"(values table_142)))))" -"(if(not #f)(for-loop_113 table_140 rest_94) table_140)))" -" table_139)))))" -" for-loop_113)" +"(values table_145)))))" +"(if(not #f)(for-loop_112 table_143 rest_94) table_143)))" +" table_142)))))" +" for-loop_112)" " '#hash()" " lst_180))))" "(let-values()" @@ -27518,7 +27704,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_190)" "(lambda(extra-inspectorss_8 lst_183)" "(begin" " 'for-loop" @@ -27541,12 +27727,12 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_188 extra-inspectorss_9 rest_95)" +"(for-loop_190 extra-inspectorss_9 rest_95)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_188)" -"(let-values(((or-part_222) extra-inspectorss_7))" -"(if or-part_222 or-part_222(seteq)))" +" for-loop_190)" +"(let-values(((or-part_223) extra-inspectorss_7))" +"(if or-part_223 or-part_223(seteq)))" " lst_182)))))))" "(module-use*1.1 mpi_41 phase_69 new-extra-inspectorss_0 #f))))))))" "(define-values" @@ -27556,18 +27742,18 @@ static const char *startup_source = "(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))" "(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))" "(let-values(((new-extra-inspectorss_1)" -"(let-values(((ht_110) extra-inspectorss_12))" +"(let-values(((ht_112) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_110)))" -"((letrec-values(((for-loop_189)" -"(lambda(new-extra-inspectorss_2 i_139)" +"(let-values()(check-in-hash ht_112)))" +"((letrec-values(((for-loop_191)" +"(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" -"(if i_139" -"(let-values(((sym_53 extra-inspectors_4)" -"(hash-iterate-key+value ht_110 i_139)))" +"(if i_140" +"(let-values(((sym_52 extra-inspectors_4)" +"(hash-iterate-key+value ht_112 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -27575,23 +27761,23 @@ static const char *startup_source = "(let-values()" "(hash-set" " new-extra-inspectorss_4" -" sym_53" +" sym_52" "(extra-inspectors-merge" " extra-inspectors_4" "(hash-ref" " new-extra-inspectorss_4" -" sym_53" +" sym_52" "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_189" +"(for-loop_191" " new-extra-inspectorss_3" -"(hash-iterate-next ht_110 i_139))" +"(hash-iterate-next ht_112 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_189)" +" for-loop_191)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_110))))))" +"(hash-iterate-first ht_112))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -27601,18 +27787,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(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 'link-info #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'link-info)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'link-module-uses)" -"(make-struct-field-accessor -ref_33 1 'imports)" -"(make-struct-field-accessor -ref_33 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_33 3 'def-decls))))" +" 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))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -27688,13 +27874,13 @@ static const char *startup_source = "(lambda(phase_71)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_213)" +"(let-values(((or-part_214)" "(hash-ref" " phase-to-header_0" " phase_71" " #f)))" -"(if or-part_213" -" or-part_213" +"(if or-part_214" +" or-part_214" "(let-values(((header_7)" "(make-header" " mpis_14" @@ -27713,7 +27899,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_192)" "(lambda(lst_185)" "(begin" " 'for-loop" @@ -27739,11 +27925,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_190" +"(for-loop_192" " rest_96)" "(values))))" "(values))))))" -" for-loop_190)" +" for-loop_192)" " lst_184)))" "(values))))" "(let-values()" @@ -27768,7 +27954,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_186)))" -"((letrec-values(((for-loop_191)" +"((letrec-values(((for-loop_193)" "(lambda(lst_187)" "(begin" " 'for-loop" @@ -27800,13 +27986,13 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_188)))" -"((letrec-values(((for-loop_192)" +"((letrec-values(((for-loop_194)" "(lambda(lst_189)" "(begin" " 'for-loop" "(if(pair?" " lst_189)" -"(let-values(((sym_54)" +"(let-values(((sym_53)" "(unsafe-car" " lst_189))" "((rest_98)" @@ -27820,18 +28006,18 @@ static const char *startup_source = "(let-values()" "(let-values(((def-sym_1)" "(select-fresh" -" sym_54" +" sym_53" " header_8)))" "(begin" "(hash-set!" "(header-binding-sym-to-define-sym" " header_8)" -" sym_54" +" sym_53" " def-sym_1)" "(set-header-binding-syms-in-order!" " header_8" "(cons" -" sym_54" +" sym_53" "(header-binding-syms-in-order" " header_8)))" "(register-as-defined!" @@ -27841,11 +28027,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_192" +"(for-loop_194" " rest_98)" "(values))))" "(values))))))" -" for-loop_192)" +" for-loop_194)" " lst_188)))" "(void)))" "(if(parsed-begin-for-syntax?" @@ -27864,11 +28050,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_191" +"(for-loop_193" " rest_97)" "(values))))" "(values))))))" -" for-loop_191)" +" for-loop_193)" " lst_186)))" "(void))))))" " loop!_0)" @@ -27881,10 +28067,10 @@ static const char *startup_source = "(lambda(header_9)" "(begin" " 'as-required?" -"(lambda(sym_55)" +"(lambda(sym_54)" "(registered-as-required?" " header_9" -" sym_55))))))" +" sym_54))))))" "(let-values(((last-i_0)(sub1(length bodys_2))))" "(let-values((()" "(begin" @@ -27912,7 +28098,7 @@ static const char *startup_source = "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_193)" +"((letrec-values(((for-loop_195)" "(lambda(lst_191" " pos_92)" "(begin" @@ -27927,7 +28113,7 @@ static const char *startup_source = "((rest_84)" "(unsafe-cdr" " lst_191))" -"((i_140)" +"((i_141)" " pos_92))" "(let-values((()" "(let-values()" @@ -27958,7 +28144,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_192)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_196)" "(lambda(fold-var_3" " lst_169)" "(begin" @@ -27971,10 +28157,10 @@ static const char *startup_source = "((rest_85)" "(unsafe-cdr" " lst_169)))" -"(let-values(((fold-var_175)" "(let-values(((fold-var_176)" +"(let-values(((fold-var_177)" " fold-var_3))" -"(let-values(((fold-var_161)" +"(let-values(((fold-var_162)" "(let-values()" "(cons" "(let-values()" @@ -27982,17 +28168,17 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_176))))" +" fold-var_177))))" "(values" -" fold-var_161)))))" +" fold-var_162)))))" "(if(not" " #f)" -"(for-loop_194" -" fold-var_175" +"(for-loop_196" +" fold-var_176" " rest_85)" -" fold-var_175)))" +" fold-var_176)))" " fold-var_3)))))" -" for-loop_194)" +" for-loop_196)" " null" " lst_192)))))" "(let-values()" @@ -28006,8 +28192,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_193)))" -"((letrec-values(((for-loop_195)" -"(lambda(fold-var_177" +"((letrec-values(((for-loop_197)" +"(lambda(fold-var_178" " lst_194)" "(begin" " 'for-loop" @@ -28019,9 +28205,9 @@ static const char *startup_source = "((rest_99)" "(unsafe-cdr" " lst_194)))" -"(let-values(((fold-var_178)" "(let-values(((fold-var_179)" -" fold-var_177))" +"(let-values(((fold-var_180)" +" fold-var_178))" "(let-values(((fold-var_90)" "(let-values()" "(cons" @@ -28047,48 +28233,48 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_179))))" +" fold-var_180))))" "(values" " fold-var_90)))))" "(if(not" " #f)" -"(for-loop_195" -" fold-var_178" +"(for-loop_197" +" fold-var_179" " rest_99)" -" fold-var_178)))" -" fold-var_177)))))" -" for-loop_195)" +" fold-var_179)))" +" fold-var_178)))))" +" for-loop_197)" " null" " lst_193))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_3)" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_3))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase41_0)" " phase_74)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_49)" " phase41_0" "(compile-context-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_49)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50)))" +" the-struct_49)))" "(if(=" "(length" " ids_5)" @@ -28135,7 +28321,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_36)" +"(let-values(((lst_195)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28143,23 +28329,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_36)))" -"((letrec-values(((for-loop_196)" -"(lambda(fold-var_180" -" lst_195)" +" lst_195)))" +"((letrec-values(((for-loop_198)" +"(lambda(fold-var_181" +" lst_196)" "(begin" " 'for-loop" "(if(pair?" -" lst_195)" +" lst_196)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_195))" +" lst_196))" "((rest_100)" "(unsafe-cdr" -" lst_195)))" -"(let-values(((fold-var_181)" +" lst_196)))" "(let-values(((fold-var_182)" -" fold-var_180))" +"(let-values(((fold-var_183)" +" fold-var_181))" "(let-values(((fold-var_36)" "(let-values()" "(cons" @@ -28168,50 +28354,50 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_182))))" +" fold-var_183))))" "(values" " fold-var_36)))))" "(if(not" " #f)" -"(for-loop_196" -" fold-var_181" +"(for-loop_198" +" fold-var_182" " rest_100)" -" fold-var_181)))" -" fold-var_180)))))" -" for-loop_196)" +" fold-var_182)))" +" fold-var_181)))))" +" for-loop_198)" " null" -" lst_36)))))" +" lst_195)))))" " '((void))))" "(add-body!_0" " phase_74" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_3))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase43_0)" " phase_74)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_50)" " phase43_0" "(compile-context-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_50)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51)))" +" the-struct_50)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_3)" @@ -28228,7 +28414,7 @@ static const char *startup_source = " phase_74))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_196)" +"(let-values(((lst_197)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28236,24 +28422,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_196)))" -"((letrec-values(((for-loop_197)" -"(lambda(fold-var_183" -" lst_197)" +" lst_197)))" +"((letrec-values(((for-loop_199)" +"(lambda(fold-var_184" +" lst_198)" "(begin" " 'for-loop" "(if(pair?" -" lst_197)" +" lst_198)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_197))" +" lst_198))" "((rest_101)" "(unsafe-cdr" -" lst_197)))" -"(let-values(((fold-var_184)" +" lst_198)))" "(let-values(((fold-var_185)" -" fold-var_183))" "(let-values(((fold-var_186)" +" fold-var_184))" +"(let-values(((fold-var_187)" "(let-values()" "(cons" "(let-values()" @@ -28266,27 +28452,27 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_185))))" +" fold-var_186))))" "(values" -" fold-var_186)))))" +" fold-var_187)))))" "(if(not" " #f)" -"(for-loop_197" -" fold-var_184" +"(for-loop_199" +" fold-var_185" " rest_101)" -" fold-var_184)))" -" fold-var_183)))))" -" for-loop_197)" +" fold-var_185)))" +" fold-var_184)))))" +" for-loop_199)" " null" -" lst_196))))))" +" lst_197))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_3)" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_51)" " cctx_3))" "(if(compile-context?" -" the-struct_52)" +" the-struct_51)" "(let-values(((phase45_0)" "(add1" " phase_74))" @@ -28294,21 +28480,21 @@ static const char *startup_source = " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_51)" " phase45_0" "(compile-context-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_51)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52))))))" +" the-struct_51))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -28326,9 +28512,9 @@ static const char *startup_source = "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_198)" +"(let-values(((lst_199)" " binding-syms_1)" -"((lst_199)" +"((lst_200)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28336,40 +28522,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" +" lst_199)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_199)))" -"((letrec-values(((for-loop_198)" -"(lambda(fold-var_187" -" lst_200" -" lst_201)" +" lst_200)))" +"((letrec-values(((for-loop_200)" +"(lambda(fold-var_188" +" lst_201" +" lst_202)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_200)" -"(pair?" " lst_201)" +"(pair?" +" lst_202)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_200))" +" lst_201))" "((rest_102)" "(unsafe-cdr" -" lst_200))" +" lst_201))" "((gen-sym_1)" "(unsafe-car" -" lst_201))" +" lst_202))" "((rest_103)" "(unsafe-cdr" -" lst_201)))" -"(let-values(((fold-var_188)" +" lst_202)))" "(let-values(((fold-var_189)" -" fold-var_187))" "(let-values(((fold-var_190)" +" fold-var_188))" +"(let-values(((fold-var_191)" "(let-values()" "(cons" "(let-values()" @@ -28379,21 +28565,21 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_189))))" +" fold-var_190))))" "(values" -" fold-var_190)))))" +" fold-var_191)))))" "(if(not" " #f)" -"(for-loop_198" -" fold-var_188" +"(for-loop_200" +" fold-var_189" " rest_102" " rest_103)" -" fold-var_188)))" -" fold-var_187)))))" -" for-loop_198)" +" fold-var_189)))" +" fold-var_188)))))" +" for-loop_200)" " null" -" lst_198" -" lst_199))))))" +" lst_199" +" lst_200))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" @@ -28423,31 +28609,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_52)" " cctx_3))" "(if(compile-context?" -" the-struct_53)" +" the-struct_52)" "(let-values(((phase47_0)" " phase_74)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" +" the-struct_52)" " phase47_0" "(compile-context-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_52)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" +" the-struct_52)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53)))" +" the-struct_52)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -28462,47 +28648,47 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_74))))" -"(if(let-values(((or-part_223)" +"(if(let-values(((or-part_224)" "(parsed-#%declare?" " body_3)))" -"(if or-part_223" -" or-part_223" -"(let-values(((or-part_224)" -"(parsed-module?" -" body_3)))" "(if or-part_224" " or-part_224" +"(let-values(((or-part_225)" +"(parsed-module?" +" body_3)))" +"(if or-part_225" +" or-part_225" "(parsed-require?" " body_3)))))" "(let-values()" "(let-values(((e_34)" "(other-form-callback_0" " body_3" -"(let-values(((the-struct_54)" +"(let-values(((the-struct_53)" " cctx_3))" "(if(compile-context?" -" the-struct_54)" +" the-struct_53)" "(let-values(((phase49_0)" " phase_74)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_54)" +" the-struct_53)" " phase49_0" "(compile-context-self" -" the-struct_54)" +" the-struct_53)" "(compile-context-module-self" -" the-struct_54)" +" the-struct_53)" "(compile-context-full-module-name" -" the-struct_54)" +" the-struct_53)" "(compile-context-lazy-syntax-literals?" -" the-struct_54)" +" the-struct_53)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_54))))))" +" the-struct_53))))))" "(if e_34" "(let-values()" "(begin" @@ -28520,34 +28706,34 @@ static const char *startup_source = "(let-values(((e_35)" "(compile$2" " body_3" -"(let-values(((the-struct_55)" +"(let-values(((the-struct_54)" " cctx_3))" "(if(compile-context?" -" the-struct_55)" +" the-struct_54)" "(let-values(((phase51_0)" " phase_74)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_55)" +" the-struct_54)" " phase51_0" "(compile-context-self" -" the-struct_55)" +" the-struct_54)" "(compile-context-module-self" -" the-struct_55)" +" the-struct_54)" "(compile-context-full-module-name" -" the-struct_55)" +" the-struct_54)" "(compile-context-lazy-syntax-literals?" -" the-struct_55)" +" the-struct_54)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_55)))" +" the-struct_54)))" " #f" "(=" -" i_140" +" i_141" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -28563,14 +28749,14 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_193" +"(for-loop_195" " rest_84" "(+" " pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_193)" +" for-loop_195)" " lst_190" " start_34)))" "(void))))))" @@ -28599,7 +28785,7 @@ static const char *startup_source = " #f)" " #f)))" "(let-values(((phases-in-order_2)" -"(let-values(((temp53_1)" +"(let-values(((temp53_0)" "(hash-keys" " phase-to-body_0))" "((<54_0) <))" @@ -28608,7 +28794,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp53_1" +" temp53_0" " <54_0))))" "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" @@ -28621,33 +28807,33 @@ static const char *startup_source = " phases-in-order_2))" " phase_70)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_106)" +"(let-values(((lst_107)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_106)))" -"((letrec-values(((for-loop_199)" -"(lambda(table_143" -" lst_202)" +"(check-list lst_107)))" +"((letrec-values(((for-loop_201)" +"(lambda(table_146" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_202)" +" lst_203)" "(let-values(((phase_75)" "(unsafe-car" -" lst_202))" +" lst_203))" "((rest_104)" "(unsafe-cdr" -" lst_202)))" -"(let-values(((table_144)" -"(let-values(((table_145)" -" table_143))" -"(let-values(((table_146)" +" lst_203)))" +"(let-values(((table_147)" +"(let-values(((table_148)" +" table_146))" +"(let-values(((table_149)" "(let-values()" -"(let-values(((key_56" +"(let-values(((key_57" " val_49)" "(let-values()" "(let-values(((header_11)" @@ -28672,23 +28858,23 @@ static const char *startup_source = " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_145" -" key_56" +" table_148" +" key_57" " val_49)))))" "(values" -" table_146)))))" +" table_149)))))" "(if(not" " #f)" -"(for-loop_199" -" table_144" +"(for-loop_201" +" table_147" " rest_104)" -" table_144)))" -" table_143)))))" -" for-loop_199)" +" table_147)))" +" table_146)))))" +" for-loop_201)" " '#hash()" -" lst_106)))))" +" lst_107)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_203)" +"(let-values(((lst_204)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28696,9 +28882,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_203)))" -"((letrec-values(((for-loop_200)" -"(lambda(table_147" +" lst_204)))" +"((letrec-values(((for-loop_202)" +"(lambda(table_150" " lst_155)" "(begin" " 'for-loop" @@ -28710,12 +28896,12 @@ static const char *startup_source = "((rest_105)" "(unsafe-cdr" " lst_155)))" -"(let-values(((table_148)" -"(let-values(((table_149)" -" table_147))" -"(let-values(((table_150)" +"(let-values(((table_151)" +"(let-values(((table_152)" +" table_150))" +"(let-values(((table_153)" "(let-values()" -"(let-values(((key_57" +"(let-values(((key_58" " val_50)" "(let-values()" "(let-values(((bodys_5)" @@ -28768,7 +28954,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_204)" +"(let-values(((lst_205)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -28779,24 +28965,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" -"((letrec-values(((for-loop_179)" -"(lambda(fold-var_191" -" lst_205)" +" lst_205)))" +"((letrec-values(((for-loop_180)" +"(lambda(fold-var_192" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_205)" +" lst_206)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_205))" +" lst_206))" "((rest_106)" "(unsafe-cdr" -" lst_205)))" -"(let-values(((fold-var_192)" +" lst_206)))" "(let-values(((fold-var_193)" -" fold-var_191))" "(let-values(((fold-var_194)" +" fold-var_192))" +"(let-values(((fold-var_195)" "(let-values()" "(cons" "(let-values()" @@ -28811,19 +28997,19 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_193))))" +" fold-var_194))))" "(values" -" fold-var_194)))))" +" fold-var_195)))))" "(if(not" " #f)" -"(for-loop_179" -" fold-var_192" +"(for-loop_180" +" fold-var_193" " rest_106)" -" fold-var_192)))" -" fold-var_191)))))" -" for-loop_179)" +" fold-var_193)))" +" fold-var_192)))))" +" for-loop_180)" " null" -" lst_204)))))" +" lst_205)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -28849,131 +29035,22 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_149" -" key_57" +" table_152" +" key_58" " val_50)))))" "(values" -" table_150)))))" +" table_153)))))" "(if(not" " #f)" -"(for-loop_200" -" table_148" +"(for-loop_202" +" table_151" " rest_105)" -" table_148)))" -" table_147)))))" -" for-loop_200)" +" table_151)))" +" table_150)))))" +" for-loop_202)" " '#hasheq()" -" lst_203)))))" +" lst_204)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_111)" -" body-linklets+module-use*s_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-in-hash" -" ht_111)))" -"((letrec-values(((for-loop_180)" -"(lambda(table_151" -" i_141)" -"(begin" -" 'for-loop" -"(if i_141" -"(let-values(((phase_77" -" l+mu*s_0)" -"(hash-iterate-key+value" -" ht_111" -" i_141)))" -"(let-values(((table_152)" -"(let-values(((table_153)" -" table_151))" -"(let-values(((table_154)" -"(let-values()" -"(let-values(((key_58" -" val_51)" -"(let-values()" -"(values" -" phase_77" -"(car" -" l+mu*s_0)))))" -"(hash-set" -" table_153" -" key_58" -" val_51)))))" -"(values" -" table_154)))))" -"(if(not" -" #f)" -"(for-loop_180" -" table_152" -"(hash-iterate-next" -" ht_111" -" i_141))" -" table_152)))" -" table_151)))))" -" for-loop_180)" -" '#hasheq()" -"(hash-iterate-first" -" ht_111))))))" -"(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_112)" -" body-linklets+module-use*s_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-in-hash" -" ht_112)))" -"((letrec-values(((for-loop_201)" -"(lambda(table_155" -" i_142)" -"(begin" -" 'for-loop" -"(if i_142" -"(let-values(((phase_78" -" l+mu*s_1)" -"(hash-iterate-key+value" -" ht_112" -" i_142)))" -"(let-values(((table_156)" -"(let-values(((table_157)" -" table_155))" -"(let-values(((table_158)" -"(let-values()" -"(let-values(((key_59" -" val_52)" -"(let-values()" -"(values" -" phase_78" -"(module-uses-strip-extra-inspectorsss" -"(cdr" -" l+mu*s_1))))))" -"(hash-set" -" table_157" -" key_59" -" val_52)))))" -"(values" -" table_158)))))" -"(if(not" -" #f)" -"(for-loop_201" -" table_156" -"(hash-iterate-next" -" ht_112" -" i_142))" -" table_156)))" -" table_155)))))" -" for-loop_201)" -" '#hasheq()" -"(hash-iterate-first" -" ht_112))))))" -"(let-values(((phase-to-link-module-uses-expr_0)" -"(serialize-phase-to-link-module-uses" -" phase-to-link-module-uses_1" -" mpis_14)))" -"(let-values(((phase-to-link-extra-inspectorsss_0)" "(let-values(((ht_113)" " body-linklets+module-use*s_0))" "(begin" @@ -28983,18 +29060,127 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_113)))" -"((letrec-values(((for-loop_202)" -"(lambda(table_159" +"((letrec-values(((for-loop_181)" +"(lambda(table_154" +" i_142)" +"(begin" +" 'for-loop" +"(if i_142" +"(let-values(((phase_52" +" l+mu*s_0)" +"(hash-iterate-key+value" +" ht_113" +" i_142)))" +"(let-values(((table_155)" +"(let-values(((table_156)" +" table_154))" +"(let-values(((table_157)" +"(let-values()" +"(let-values(((key_59" +" val_51)" +"(let-values()" +"(values" +" phase_52" +"(car" +" l+mu*s_0)))))" +"(hash-set" +" table_156" +" key_59" +" val_51)))))" +"(values" +" table_157)))))" +"(if(not" +" #f)" +"(for-loop_181" +" table_155" +"(hash-iterate-next" +" ht_113" +" i_142))" +" table_155)))" +" table_154)))))" +" for-loop_181)" +" '#hasheq()" +"(hash-iterate-first" +" ht_113))))))" +"(let-values(((phase-to-link-module-uses_1)" +"(let-values(((ht_114)" +" body-linklets+module-use*s_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-hash" +" ht_114)))" +"((letrec-values(((for-loop_203)" +"(lambda(table_158" " i_143)" "(begin" " 'for-loop" "(if i_143" -"(let-values(((phase_79" +"(let-values(((phase_77" +" l+mu*s_1)" +"(hash-iterate-key+value" +" ht_114" +" i_143)))" +"(let-values(((table_159)" +"(let-values(((table_40)" +" table_158))" +"(let-values(((table_160)" +"(let-values()" +"(let-values(((key_60" +" val_52)" +"(let-values()" +"(values" +" phase_77" +"(module-uses-strip-extra-inspectorsss" +"(cdr" +" l+mu*s_1))))))" +"(hash-set" +" table_40" +" key_60" +" val_52)))))" +"(values" +" table_160)))))" +"(if(not" +" #f)" +"(for-loop_203" +" table_159" +"(hash-iterate-next" +" ht_114" +" i_143))" +" table_159)))" +" table_158)))))" +" for-loop_203)" +" '#hasheq()" +"(hash-iterate-first" +" ht_114))))))" +"(let-values(((phase-to-link-module-uses-expr_0)" +"(serialize-phase-to-link-module-uses" +" phase-to-link-module-uses_1" +" mpis_14)))" +"(let-values(((phase-to-link-extra-inspectorsss_0)" +"(let-values(((ht_115)" +" body-linklets+module-use*s_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-hash" +" ht_115)))" +"((letrec-values(((for-loop_204)" +"(lambda(table_161" +" i_144)" +"(begin" +" 'for-loop" +"(if i_144" +"(let-values(((phase_78" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_113" -" i_143)))" -"(let-values(((table_160)" +" ht_115" +" i_144)))" +"(let-values(((table_162)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29006,48 +29192,48 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_203)" -"(lambda(table_161)" +"((letrec-values(((for-loop_205)" +"(lambda(table_163)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_162)" -"(let-values(((table_163)" -" table_161))" -"(if extra-inspectorsss_2" "(let-values(((table_164)" -" table_163))" "(let-values(((table_165)" +" table_163))" +"(if extra-inspectorsss_2" +"(let-values(((table_166)" +" table_165))" +"(let-values(((table_44)" "(let-values()" -"(let-values(((key_60" +"(let-values(((key_61" " val_53)" "(let-values()" "(values" -" phase_79" +" phase_78" " extra-inspectorsss_2))))" "(hash-set" -" table_164" -" key_60" +" table_166" +" key_61" " val_53)))))" "(values" -" table_165)))" -" table_163))))" -" table_162))))))" -" for-loop_203)" -" table_159)))))" +" table_44)))" +" table_165))))" +" table_164))))))" +" for-loop_205)" +" table_161)))))" "(if(not" " #f)" -"(for-loop_202" -" table_160" +"(for-loop_204" +" table_162" "(hash-iterate-next" -" ht_113" -" i_143))" -" table_160)))" -" table_159)))))" -" for-loop_202)" +" ht_115" +" i_144))" +" table_162)))" +" table_161)))))" +" for-loop_204)" " '#hash()" "(hash-iterate-first" -" ht_113))))))" +" ht_115))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29061,7 +29247,7 @@ static const char *startup_source = "(compile-top-level-bind)" "(lambda(ids_7 binding-syms_2 cctx_11 trans-exprs_0)" "(begin" -"(let-values(((phase_80)(compile-context-phase cctx_11)))" +"(let-values(((phase_79)(compile-context-phase cctx_11)))" "(let-values(((self_19)(compile-context-self cctx_11)))" "(let-values(((header_12)(compile-context-header cctx_11)))" "(let-values(((mpis_15)(header-module-path-indexes header_12)))" @@ -29072,66 +29258,66 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_206) ids_7)" -"((lst_207) binding-syms_2)" -"((lst_208)" -"(let-values(((or-part_225) trans-exprs_0))" -"(if or-part_225" -" or-part_225" +"(let-values(((lst_207) ids_7)" +"((lst_208) binding-syms_2)" +"((lst_209)" +"(let-values(((or-part_226) trans-exprs_0))" +"(if or-part_226" +" or-part_226" "(reverse$1" -"(let-values(((lst_209) ids_7))" +"(let-values(((lst_210) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_204)" -"(lambda(fold-var_195 lst_210)" +"(let-values()(check-list lst_210)))" +"((letrec-values(((for-loop_206)" +"(lambda(fold-var_196 lst_211)" "(begin" " 'for-loop" -"(if(pair? lst_210)" -"(let-values(((id_47)(unsafe-car lst_210))" -"((rest_107)(unsafe-cdr lst_210)))" -"(let-values(((fold-var_196)" +"(if(pair? lst_211)" +"(let-values(((id_47)(unsafe-car lst_211))" +"((rest_107)(unsafe-cdr lst_211)))" "(let-values(((fold-var_197)" -" fold-var_195))" "(let-values(((fold-var_198)" +" fold-var_196))" +"(let-values(((fold-var_199)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_197))))" -"(values fold-var_198)))))" +" fold-var_198))))" +"(values fold-var_199)))))" "(if(not #f)" -"(for-loop_204 fold-var_196 rest_107)" -" fold-var_196)))" -" fold-var_195)))))" -" for-loop_204)" +"(for-loop_206 fold-var_197 rest_107)" +" fold-var_197)))" +" fold-var_196)))))" +" for-loop_206)" " null" -" lst_209))))))))" +" lst_210))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_206)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_207)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_208)))" -"((letrec-values(((for-loop_205)" -"(lambda(fold-var_199 lst_211 lst_3 lst_212)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_209)))" +"((letrec-values(((for-loop_207)" +"(lambda(fold-var_200 lst_212 lst_3 lst_213)" "(begin" " 'for-loop" -"(if(if(pair? lst_211)(if(pair? lst_3)(pair? lst_212) #f) #f)" -"(let-values(((id_48)(unsafe-car lst_211))" -"((rest_108)(unsafe-cdr lst_211))" +"(if(if(pair? lst_212)(if(pair? lst_3)(pair? lst_213) #f) #f)" +"(let-values(((id_48)(unsafe-car lst_212))" +"((rest_108)(unsafe-cdr lst_212))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_109)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_212))" -"((rest_110)(unsafe-cdr lst_212)))" -"(let-values(((fold-var_200)" -"(let-values(((fold-var_201) fold-var_199))" -"(let-values(((fold-var_202)" +"((trans-expr_0)(unsafe-car lst_213))" +"((rest_110)(unsafe-cdr lst_213)))" +"(let-values(((fold-var_201)" +"(let-values(((fold-var_202) fold-var_200))" +"(let-values(((fold-var_203)" "(let-values()" "(cons" "(let-values()" @@ -29145,23 +29331,23 @@ static const char *startup_source = " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_80" +" phase_79" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" "(if trans-exprs_0 #t #f)" " trans-expr_0)))" -" fold-var_201))))" -"(values fold-var_202)))))" +" fold-var_202))))" +"(values fold-var_203)))))" "(if(not #f)" -"(for-loop_205 fold-var_200 rest_108 rest_109 rest_110)" -" fold-var_200)))" -" fold-var_199)))))" -" for-loop_205)" +"(for-loop_207 fold-var_201 rest_108 rest_109 rest_110)" +" fold-var_201)))" +" fold-var_200)))))" +" for-loop_207)" " null" -" lst_206" " lst_207" -" lst_208))))))))))))))" +" lst_208" +" lst_209))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29182,28 +29368,28 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_213) gen-syms_1))" +"(let-values(((lst_214) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_203 lst_214)" +"(let-values()(check-list lst_214)))" +"((letrec-values(((for-loop_208)" +"(lambda(fold-var_204 lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_214)" -"(let-values(((s_303)(unsafe-car lst_214))((rest_111)(unsafe-cdr lst_214)))" -"(let-values(((fold-var_204)" -"(let-values(((fold-var_205) fold-var_203))" -"(let-values(((fold-var_206)" +"(if(pair? lst_215)" +"(let-values(((s_302)(unsafe-car lst_215))((rest_111)(unsafe-cdr lst_215)))" +"(let-values(((fold-var_205)" +"(let-values(((fold-var_206) fold-var_204))" +"(let-values(((fold-var_207)" "(let-values()" -"(cons(let-values() ''#f) fold-var_205))))" -"(values fold-var_206)))))" -"(if(not #f)(for-loop_206 fold-var_204 rest_111) fold-var_204)))" -" fold-var_203)))))" -" for-loop_206)" +"(cons(let-values() ''#f) fold-var_206))))" +"(values fold-var_207)))))" +"(if(not #f)(for-loop_208 fold-var_205 rest_111) fold-var_205)))" +" fold-var_204)))))" +" for-loop_208)" " null" -" lst_213)))))))" +" lst_214)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" @@ -29214,7 +29400,7 @@ static const char *startup_source = "(if v_161(correlated-property e_36 'compiler-hint:cross-module-inline v_161) e_36)))))" "(define-values" "(make-module-use-to-linklet)" -"(lambda(cross-linklet-inlining?_2 ns_56 get-module-linklet-info_1 init-mu*s_0)" +"(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" "(begin" "(let-values(((mu*-intern-table_0)(make-hash)))" "(let-values(((intern-module-use*_0)" @@ -29232,17 +29418,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_140) init-mu*s_0))" +"(let-values(((lst_141) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_140)))" -"((letrec-values(((for-loop_169)" -"(lambda(lst_215)" +"(let-values()(check-list lst_141)))" +"((letrec-values(((for-loop_168)" +"(lambda(lst_216)" "(begin" " 'for-loop" -"(if(pair? lst_215)" -"(let-values(((mu*_6)(unsafe-car lst_215))((rest_112)(unsafe-cdr lst_215)))" +"(if(pair? lst_216)" +"(let-values(((mu*_6)(unsafe-car lst_216))((rest_112)(unsafe-cdr lst_216)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29251,10 +29437,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_169 rest_112)(values))))" +"(if(not #f)(for-loop_168 rest_112)(values))))" "(values))))))" -" for-loop_169)" -" lst_140)))" +" for-loop_168)" +" lst_141)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29266,12 +29452,12 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_226)" +"(let-values(((or-part_227)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_226" -" or-part_226" +"(if or-part_227" +" or-part_227" "(namespace->module-linklet-info" -" ns_56" +" ns_57" " mod-name_16" "(module-use-phase mu*_7))))))" "(begin" @@ -29290,41 +29476,41 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_216) mus_2)" -"((lst_217)" +"(let-values(((lst_217) mus_2)" +"((lst_218)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_218)" -"(let-values(((or-part_227) extra-inspectorsss_3))" -"(if or-part_227 or-part_227 mus_2))))" +"((lst_219)" +"(let-values(((or-part_228) extra-inspectorsss_3))" +"(if or-part_228 or-part_228 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_216)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_217)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_207 lst_219 lst_220 lst_221)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_219)))" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_208 lst_220 lst_221 lst_222)" "(begin" " 'for-loop" -"(if(if(pair? lst_219)" -"(if(pair? lst_220)(pair? lst_221) #f)" +"(if(if(pair? lst_220)" +"(if(pair? lst_221)(pair? lst_222) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_219))" -"((rest_113)(unsafe-cdr lst_219))" -"((imports_3)(unsafe-car lst_220))" -"((rest_114)(unsafe-cdr lst_220))" +"(let-values(((sub-mu_0)(unsafe-car lst_220))" +"((rest_113)(unsafe-cdr lst_220))" +"((imports_3)(unsafe-car lst_221))" +"((rest_114)(unsafe-cdr lst_221))" "((extra-inspectorss_13)" -"(unsafe-car lst_221))" -"((rest_115)(unsafe-cdr lst_221)))" -"(let-values(((fold-var_208)" +"(unsafe-car lst_222))" +"((rest_115)(unsafe-cdr lst_222)))" "(let-values(((fold-var_209)" -" fold-var_207))" "(let-values(((fold-var_210)" +" fold-var_208))" +"(let-values(((fold-var_211)" "(let-values()" "(cons" "(let-values()" @@ -29347,21 +29533,21 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_209))))" -"(values fold-var_210)))))" +" fold-var_210))))" +"(values fold-var_211)))))" "(if(not #f)" -"(for-loop_207" -" fold-var_208" +"(for-loop_209" +" fold-var_209" " rest_113" " rest_114" " rest_115)" -" fold-var_208)))" -" fold-var_207)))))" -" for-loop_207)" +" fold-var_209)))" +" fold-var_208)))))" +" for-loop_209)" " null" -" lst_216" " lst_217" -" lst_218)))))))" +" lst_218" +" lst_219)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29374,7 +29560,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_53 i_144)" +"(let-values(((vec_53 i_145)" "(let-values(((vec_54 len_28)" "(let-values(((vec_55)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29382,21 +29568,21 @@ static const char *startup_source = "(values vec_55(unsafe-vector-length vec_55))))))" "(begin" " #f" -"((letrec-values(((for-loop_92)" -"(lambda(vec_56 i_145 pos_93)" +"((letrec-values(((for-loop_91)" +"(lambda(vec_56 i_146 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" "(let-values(((mpi_42)" "(unsafe-vector-ref vec_54 pos_93)))" -"(let-values(((vec_57 i_146)" +"(let-values(((vec_57 i_147)" "(let-values(((vec_58) vec_56)" -"((i_147) i_145))" -"(let-values(((vec_59 i_148)" +"((i_148) i_146))" +"(let-values(((vec_59 i_149)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_147" +" i_148" "(unsafe-vector*-length" " vec_58))" "(grow-vector" @@ -29405,7 +29591,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_16" @@ -29413,21 +29599,21 @@ static const char *startup_source = "(values" " new-vec_3" "(unsafe-fx+" -" i_147" +" i_148" " 1)))))))" -"(values vec_59 i_148)))))" +"(values vec_59 i_149)))))" "(if(not #f)" -"(for-loop_92" +"(for-loop_91" " vec_57" -" i_146" +" i_147" "(unsafe-fx+ 1 pos_93))" -"(values vec_57 i_146))))" -"(values vec_56 i_145))))))" -" for-loop_92)" +"(values vec_57 i_147))))" +"(values vec_56 i_146))))))" +" for-loop_91)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_53 i_144))))))" +"(shrink-vector vec_53 i_145))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -29454,21 +29640,21 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_222)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_223)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_67 lst_87)" +"(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_67 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" +"(if(pair? lst_88)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_87))" -"((rest_116)(unsafe-cdr lst_87)))" +"(unsafe-car lst_88))" +"((rest_116)(unsafe-cdr lst_88)))" "(let-values(((fold-var_29)" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_153)" " fold-var_67))" "(let-values(((fold-var_9)" "(let-values()" @@ -29477,15 +29663,15 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_16))" -" fold-var_152))))" +" fold-var_153))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_103 fold-var_29 rest_116)" +"(for-loop_102 fold-var_29 rest_116)" " fold-var_29)))" " fold-var_67)))))" -" for-loop_103)" +" for-loop_102)" " null" -" lst_222)))))))" +" lst_223)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -29518,21 +29704,21 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_79) cims_2))" +"(let-values(((lst_80) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_93)" -"(lambda(fold-var_211 lst_80)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_92)" +"(lambda(fold-var_212 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((cim_4)(unsafe-car lst_80))" -"((rest_117)(unsafe-cdr lst_80)))" -"(let-values(((fold-var_155)" -"(let-values(((fold-var_164) fold-var_211))" -"(let-values(((fold-var_165)" +"(if(pair? lst_81)" +"(let-values(((cim_4)(unsafe-car lst_81))" +"((rest_117)(unsafe-cdr lst_81)))" +"(let-values(((fold-var_156)" +"(let-values(((fold-var_165) fold-var_212))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -29544,15 +29730,15 @@ static const char *startup_source = "(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_164))))" -"(values fold-var_165)))))" +" fold-var_165))))" +"(values fold-var_166)))))" "(if(not #f)" -"(for-loop_93 fold-var_155 rest_117)" -" fold-var_155)))" -" fold-var_211)))))" -" for-loop_93)" +"(for-loop_92 fold-var_156 rest_117)" +" fold-var_156)))" +" fold-var_212)))))" +" for-loop_92)" " null" -" lst_79))))))))" +" lst_80))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -29569,58 +29755,58 @@ static const char *startup_source = "(let-values(((all-cims_0) all-cims7_0))" "(let-values(((to-source?_1)(if to-source?4_0 to-source?1_0 #f)))" "(let-values(((merge-serialization?_0)(if merge-serialization?5_0 merge-serialization?2_0 #f)))" -"(let-values(((ns_57)(if namespace6_0 namespace3_0 #f)))" +"(let-values(((ns_58)(if namespace6_0 namespace3_0 #f)))" "(let-values()" "(let-values(((cims_3)(remove-nontail-purely-functional all-cims_0)))" "(if(= 1(length cims_3))" "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_223) cims_3)((start_35) 0))" +"(let-values(((lst_224) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" +"(let-values()(check-list lst_224)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_208)" -"(lambda(table_166 lst_98 pos_95)" +"((letrec-values(((for-loop_210)" +"(lambda(table_167 lst_99 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_98) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_98))" -"((rest_35)(unsafe-cdr lst_98))" -"((i_75) pos_95))" -"(let-values(((table_167)" -"(let-values(((table_168) table_166))" -"(let-values(((table_169)" +"(if(if(pair? lst_99) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_99))" +"((rest_35)(unsafe-cdr lst_99))" +"((i_74) pos_95))" +"(let-values(((table_168)" +"(let-values(((table_169) table_167))" +"(let-values(((table_170)" "(let-values()" -"(let-values(((key_61" +"(let-values(((key_62" " val_54)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_75))" +" i_74))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_168" -" key_61" +" table_169" +" key_62" " val_54)))))" -"(values table_169)))))" +"(values table_170)))))" "(if(not #f)" -"(for-loop_208 table_167 rest_35(+ pos_95 1))" -" table_167)))" -" table_166)))))" -" for-loop_208)" +"(for-loop_210 table_168 rest_35(+ pos_95 1))" +" table_168)))" +" table_167)))))" +" for-loop_210)" " '#hasheq()" -" lst_223" +" lst_224" " start_35)))))" -"(let-values(((ht_114)" +"(let-values(((ht_116)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -29629,13 +29815,13 @@ static const char *startup_source = "(hasheq" " #f" "(1/hash->linklet-bundle" -"(hasheq 0(build-shared-data-linklet cims_3 ns_57))))))" +"(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_114)" +"(let-values() ht_116)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_114)" +"(1/hash->linklet-directory ht_116)" " #f" " #f" " #f" @@ -29652,9 +29838,9 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_115)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_115))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29664,37 +29850,37 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_96 end_25)" -"(let-values(((i_91) pos_96))" +"(let-values(((i_90) pos_96))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" -" ht_115" -"(string->symbol(number->string i_91))" +" ht_117" +"(string->symbol(number->string i_90))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_211)" "(lambda(fold-var_64)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_70)" -"(let-values(((fold-var_212)" +"(let-values(((fold-var_213)" " fold-var_64))" "(if top_0" -"(let-values(((fold-var_213)" -" fold-var_212))" "(let-values(((fold-var_214)" +" fold-var_213))" +"(let-values(((fold-var_215)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_213))))" +" fold-var_214))))" "(values" -" fold-var_214)))" -" fold-var_212))))" +" fold-var_215)))" +" fold-var_213))))" " fold-var_70))))))" -" for-loop_209)" +" for-loop_211)" " fold-var_17)))))" "(if(not #f)(for-loop_10 fold-var_18(+ pos_96 inc_19)) fold-var_18)))" " fold-var_17)))))" @@ -29722,35 +29908,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:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_64 make-_64 ?_64(make-struct-field-accessor -ref_64 0 'thunk))))" +"(values struct:_65 make-_65 ?_65(make-struct-field-accessor -ref_65 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(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 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_60 make-_60 ?_60)))" +"(values struct:_59 make-_59 ?_59)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'arity)" -"(make-struct-field-accessor -ref_65 1 'pure?))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'arity)" +"(make-struct-field-accessor -ref_66 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:_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" @@ -29765,7 +29951,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 0 'arg-predicate-keys))))" +"(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 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)" @@ -29775,23 +29961,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:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" "(let-values()" "(let-values()" "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_66 make-_66 ?_66(make-struct-field-accessor -ref_66 0 'predicate-key))))" +"(values struct:_67 make-_67 ?_67(make-struct-field-accessor -ref_67 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:_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 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'type)" -"(make-struct-field-accessor -ref_36 1 'field-count))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'type)" +"(make-struct-field-accessor -ref_35 1 'field-count))))" "(define-values" "(lookup-defn)" "(lambda(defns_0 sym_51)" @@ -29903,37 +30089,37 @@ static const char *startup_source = "(if c1_24" "((lambda(d_30)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_80) e_39))" +"(let-values(((s_79) e_39))" "(let-values(((orig-s_23)" -" s_80))" +" s_79))" "(let-values(((_17_1" " e18_1)" +"(let-values(((s_303)" +"(if(1/syntax?" +" s_79)" +"(syntax-e$2" +" s_79)" +" s_79)))" +"(if(pair?" +" s_303)" +"(let-values(((_19_0)" +"(let-values(((s_80)" +"(car" +" s_303)))" +" s_80))" +"((e20_0)" +"(let-values(((s_159)" +"(cdr" +" s_303)))" "(let-values(((s_304)" "(if(1/syntax?" -" s_80)" +" s_159)" "(syntax-e$2" -" s_80)" -" s_80)))" -"(if(pair?" -" s_304)" -"(let-values(((_19_0)" -"(let-values(((s_81)" -"(car" -" s_304)))" -" s_81))" -"((e20_0)" -"(let-values(((s_160)" -"(cdr" -" s_304)))" -"(let-values(((s_305)" -"(if(1/syntax?" -" s_160)" -"(syntax-e$2" -" s_160)" -" s_160)))" +" s_159)" +" s_159)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_305)))" +" s_304)))" "(if(not" " flat-s_13)" "(let-values()" @@ -29964,7 +30150,7 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_228)" +"(if(let-values(((or-part_229)" "(if(let-values(((or-part_63)" "(if(known-struct-op?" " d_30)" @@ -29999,22 +30185,22 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_8)))" -"((letrec-values(((for-loop_210)" -"(lambda(result_75" -" lst_224)" +"((letrec-values(((for-loop_212)" +"(lambda(result_80" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_224)" +" lst_225)" "(let-values(((e_42)" "(unsafe-car" -" lst_224))" +" lst_225))" "((rest_118)" "(unsafe-cdr" -" lst_224)))" +" lst_225)))" "(let-values(((result_40)" "(let-values()" -"(let-values(((result_76)" +"(let-values(((result_81)" "(let-values()" "(let-values()" "(not" @@ -30023,26 +30209,26 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_76)))))" +" result_81)))))" "(if(if(not" -"((lambda x_55" +"((lambda x_56" "(not" " result_40))" " e_42))" "(not" " #f)" " #f)" -"(for-loop_210" +"(for-loop_212" " result_40" " rest_118)" " result_40)))" -" result_75)))))" -" for-loop_210)" +" result_80)))))" +" for-loop_212)" " #t" " lst_8)))" " #f)))" -"(if or-part_228" -" or-part_228" +"(if or-part_229" +" or-part_229" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30052,7 +30238,7 @@ static const char *startup_source = " d_30)))" "(let-values(((lst_10)" " e18_0)" -"((lst_225)" +"((lst_226)" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" "(begin" @@ -30067,17 +30253,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_225)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_77" +" lst_226)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_82" " lst_176" -" lst_226)" +" lst_227)" "(begin" " 'for-loop" "(if(if(pair?" " lst_176)" "(pair?" -" lst_226)" +" lst_227)" " #f)" "(let-values(((e_43)" "(unsafe-car" @@ -30085,12 +30271,12 @@ static const char *startup_source = "((rest_119)" "(unsafe-cdr" " lst_176))" -"((key_62)" +"((key_63)" "(unsafe-car" -" lst_226))" +" lst_227))" "((rest_120)" "(unsafe-cdr" -" lst_226)))" +" lst_227)))" "(let-values(((result_42)" "(let-values()" "(let-values(((result_43)" @@ -30103,7 +30289,7 @@ static const char *startup_source = " locals_2))" "(satisfies?" " e_43" -" key_62" +" key_63" " defns_1" " locals_2)" " #f)))))" @@ -30115,35 +30301,35 @@ static const char *startup_source = " result_42))" " e_43))" "(if(not" -"((lambda x_56" +"((lambda x_57" "(not" " result_42))" -" key_62))" +" key_63))" "(not" " #f)" " #f)" " #f)" -"(for-loop_95" +"(for-loop_94" " result_42" " rest_119" " rest_120)" " result_42)))" -" result_77)))))" -" for-loop_95)" +" result_82)))))" +" for-loop_94)" " #t" " lst_10" -" lst_225)))" +" lst_226)))" " #f)" " #f)))" " 1" " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_229)" +"(if(let-values(((or-part_230)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_229" -" or-part_229" +"(if or-part_230" +" or-part_230" "(if(symbol? v_4)" "(let-values(((or-part_35)" "(hash-ref" @@ -30176,30 +30362,30 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_75) e_39))" -"(let-values(((orig-s_24) s_75))" +"(let-values(((s_74) e_39))" +"(let-values(((orig-s_24) s_74))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_306)" +"(let-values(((s_305)" "(if(1/syntax?" -" s_75)" +" s_74)" "(syntax-e$2" -" s_75)" -" s_75)))" -"(if(pair? s_306)" +" s_74)" +" s_74)))" +"(if(pair? s_305)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_306)))" +" s_305)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_306)))" +" s_305)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30210,18 +30396,18 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_307)" +"(let-values(((s_306)" "(car" " s_30)))" -"(let-values(((s_308)" +"(let-values(((s_307)" "(if(1/syntax?" -" s_307)" +" s_306)" "(syntax-e$2" -" s_307)" -" s_307)))" +" s_306)" +" s_306)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_308)))" +" s_307)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30236,7 +30422,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_227)" +"(let-values(((lst_228)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30244,21 +30430,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_227)))" -"((letrec-values(((for-loop_211)" +" lst_228)))" +"((letrec-values(((for-loop_213)" "(lambda(ids_9" " rhs_5" -" lst_228)" +" lst_229)" "(begin" " 'for-loop" "(if(pair?" -" lst_228)" -"(let-values(((s_309)" +" lst_229)" +"(let-values(((s_308)" "(unsafe-car" -" lst_228))" +" lst_229))" "((rest_121)" "(unsafe-cdr" -" lst_228)))" +" lst_229)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30271,48 +30457,48 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_310)" +"(let-values(((s_309)" "(if(1/syntax?" -" s_309)" +" s_308)" "(syntax-e$2" -" s_309)" -" s_309)))" +" s_308)" +" s_308)))" "(if(pair?" -" s_310)" +" s_309)" "(let-values(((ids32_0)" "(let-values(((s_50)" "(car" -" s_310)))" +" s_309)))" " s_50))" "((rhs33_0)" -"(let-values(((s_311)" +"(let-values(((s_310)" "(cdr" -" s_310)))" -"(let-values(((s_312)" +" s_309)))" +"(let-values(((s_311)" "(if(1/syntax?" -" s_311)" +" s_310)" "(syntax-e$2" -" s_311)" -" s_311)))" +" s_310)" +" s_310)))" "(if(pair?" -" s_312)" +" s_311)" "(let-values(((rhs34_0)" "(let-values(((s_52)" "(car" -" s_312)))" +" s_311)))" " s_52))" "(()" -"(let-values(((s_313)" +"(let-values(((s_312)" "(cdr" -" s_312)))" -"(let-values(((s_157)" +" s_311)))" +"(let-values(((s_156)" "(if(1/syntax?" -" s_313)" +" s_312)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_312)" +" s_312)))" "(if(null?" -" s_157)" +" s_156)" "(values)" "((lambda(false_3" " str_8" @@ -30355,7 +30541,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_211" +"(for-loop_213" " ids_10" " rhs_6" " rest_121)" @@ -30365,44 +30551,44 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_211)" +" for-loop_213)" " null" " null" -" lst_227)))))" +" lst_228)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_314)" +"(let-values(((s_313)" "(cdr" " s_30)))" -"(let-values(((s_315)" +"(let-values(((s_314)" "(if(1/syntax?" -" s_314)" +" s_313)" "(syntax-e$2" -" s_314)" -" s_314)))" +" s_313)" +" s_313)))" "(if(pair?" -" s_315)" +" s_314)" "(let-values(((body35_0)" -"(let-values(((s_316)" +"(let-values(((s_315)" "(car" -" s_315)))" -" s_316))" +" s_314)))" +" s_315))" "(()" -"(let-values(((s_317)" +"(let-values(((s_316)" "(cdr" -" s_315)))" -"(let-values(((s_318)" +" s_314)))" +"(let-values(((s_317)" "(if(1/syntax?" -" s_317)" +" s_316)" "(syntax-e$2" -" s_317)" -" s_317)))" +" s_316)" +" s_316)))" "(if(null?" -" s_318)" +" s_317)" "(values)" "((lambda(false_6" " str_11" @@ -30454,41 +30640,41 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_229) ids22_0)" -"((lst_230) rhs23_0))" +"(let-values(((lst_230) ids22_0)" +"((lst_231) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_229)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_230)))" -"((letrec-values(((for-loop_212)" -"(lambda(result_78" -" lst_231" -" lst_197)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_231)))" +"((letrec-values(((for-loop_214)" +"(lambda(result_83" +" lst_232" +" lst_198)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_231)" +" lst_232)" "(pair?" -" lst_197)" +" lst_198)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_231))" +" lst_232))" "((rest_101)" "(unsafe-cdr" -" lst_231))" +" lst_232))" "((rhs_9)" "(unsafe-car" -" lst_197))" +" lst_198))" "((rest_122)" "(unsafe-cdr" -" lst_197)))" -"(let-values(((result_79)" +" lst_198)))" +"(let-values(((result_84)" "(let-values()" "(let-values(((result_14)" "(let-values()" @@ -30501,27 +30687,27 @@ static const char *startup_source = "(values" " result_14)))))" "(if(if(not" -"((lambda x_57" -" result_79)" +"((lambda x_58" +" result_84)" " ids_13))" "(if(not" -"((lambda x_58" -" result_79)" +"((lambda x_59" +" result_84)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_212" -" result_79" +"(for-loop_214" +" result_84" " rest_101" " rest_122)" -" result_79)))" -" result_78)))))" -" for-loop_212)" +" result_84)))" +" result_83)))))" +" for-loop_214)" " #f" -" lst_229" -" lst_230))))" +" lst_230" +" lst_231))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -30540,23 +30726,23 @@ static const char *startup_source = " s_61)))" "(if(pair? s_62)" "(let-values(((_40_0)" -"(let-values(((s_85)" +"(let-values(((s_84)" "(car" " s_62)))" -" s_85))" +" s_84))" "((e41_0)" -"(let-values(((s_319)" +"(let-values(((s_318)" "(cdr" " s_62)))" -"(let-values(((s_320)" +"(let-values(((s_319)" "(if(1/syntax?" -" s_319)" +" s_318)" "(syntax-e$2" -" s_319)" -" s_319)))" +" s_318)" +" s_318)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_320)))" +" s_319)))" "(if(not" " flat-s_15)" "(let-values()" @@ -30582,28 +30768,28 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_232) e39_0))" +"(if(let-values(((lst_233) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_232)))" -"((letrec-values(((for-loop_213)" -"(lambda(result_80" -" lst_233)" +"(let-values()(check-list lst_233)))" +"((letrec-values(((for-loop_215)" +"(lambda(result_61" +" lst_234)" "(begin" " 'for-loop" "(if(pair?" -" lst_233)" +" lst_234)" "(let-values(((e_53)" "(unsafe-car" -" lst_233))" +" lst_234))" "((rest_123)" "(unsafe-cdr" -" lst_233)))" -"(let-values(((result_81)" +" lst_234)))" +"(let-values(((result_85)" "(let-values()" -"(let-values(((result_82)" +"(let-values(((result_86)" "(let-values()" "(let-values()" "(not" @@ -30612,56 +30798,56 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_82)))))" +" result_86)))))" "(if(if(not" -"((lambda x_59" +"((lambda x_60" "(not" -" result_81))" +" result_85))" " e_53))" "(not" " #f)" " #f)" -"(for-loop_213" -" result_81" +"(for-loop_215" +" result_85" " rest_123)" -" result_81)))" -" result_80)))))" -" for-loop_213)" +" result_85)))" +" result_61)))))" +" for-loop_215)" " #t" -" lst_232)))" +" lst_233)))" "(length e39_0)" " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_205) e_39))" -"(let-values(((orig-s_26) s_205))" +"(let-values(((s_204) e_39))" +"(let-values(((orig-s_26) s_204))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_321)" +"(let-values(((s_320)" "(if(1/syntax?" -" s_205)" +" s_204)" "(syntax-e$2" -" s_205)" -" s_205)))" +" s_204)" +" s_204)))" "(if(pair?" -" s_321)" +" s_320)" "(let-values(((_44_0)" -"(let-values(((s_93)" +"(let-values(((s_92)" "(car" -" s_321)))" -" s_93))" +" s_320)))" +" s_92))" "((e45_0)" -"(let-values(((s_322)" +"(let-values(((s_321)" "(cdr" -" s_321)))" -"(let-values(((s_323)" +" s_320)))" +"(let-values(((s_322)" "(if(1/syntax?" -" s_322)" +" s_321)" "(syntax-e$2" -" s_322)" -" s_322)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_323)))" +" s_322)))" "(if(not" " flat-s_16)" "(let-values()" @@ -30693,8 +30879,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_53)" -"(lambda(result_83" +"((letrec-values(((for-loop_52)" +"(lambda(result_87" " lst_42)" "(begin" " 'for-loop" @@ -30705,9 +30891,9 @@ static const char *startup_source = "((rest_17)" "(unsafe-cdr" " lst_42)))" -"(let-values(((result_84)" +"(let-values(((result_88)" "(let-values()" -"(let-values(((result_85)" +"(let-values(((result_89)" "(let-values()" "(let-values()" "(not" @@ -30716,21 +30902,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_85)))))" +" result_89)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_61" "(not" -" result_84))" +" result_88))" " e_56))" "(not" " #f)" " #f)" -"(for-loop_53" -" result_84" +"(for-loop_52" +" result_88" " rest_17)" -" result_84)))" -" result_83)))))" -" for-loop_53)" +" result_88)))" +" result_87)))))" +" for-loop_52)" " #t" " lst_41)))" " 1" @@ -30739,34 +30925,34 @@ static const char *startup_source = "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_324) e_39))" -"(let-values(((orig-s_27) s_324))" +"(let-values(((s_323) e_39))" +"(let-values(((orig-s_27) s_323))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_325)" +"(let-values(((s_324)" "(if(1/syntax?" -" s_324)" +" s_323)" "(syntax-e$2" -" s_324)" -" s_324)))" -"(if(pair? s_325)" +" s_323)" +" s_323)))" +"(if(pair? s_324)" "(let-values(((_48_0)" -"(let-values(((s_103)" +"(let-values(((s_102)" "(car" -" s_325)))" -" s_103))" +" s_324)))" +" s_102))" "((e49_0)" -"(let-values(((s_104)" +"(let-values(((s_103)" "(cdr" -" s_325)))" -"(let-values(((s_105)" +" s_324)))" +"(let-values(((s_104)" "(if(1/syntax?" -" s_104)" +" s_103)" "(syntax-e$2" -" s_104)" -" s_104)))" +" s_103)" +" s_103)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_105)))" +" s_104)))" "(if(not" " flat-s_17)" "(let-values()" @@ -30816,55 +31002,55 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_213) e_39))" -"(let-values(((orig-s_9) s_213))" +"(let-values(((s_212) e_39))" +"(let-values(((orig-s_9) s_212))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_214)" +"(let-values(((s_213)" "(if(1/syntax?" -" s_213)" +" s_212)" "(syntax-e$2" -" s_213)" -" s_213)))" +" s_212)" +" s_212)))" "(if(pair?" -" s_214)" +" s_213)" "(let-values(((_53_0)" -"(let-values(((s_215)" +"(let-values(((s_214)" "(car" -" s_214)))" -" s_215))" +" s_213)))" +" s_214))" "((e054_0" " e55_0)" +"(let-values(((s_215)" +"(cdr" +" s_213)))" "(let-values(((s_216)" -"(cdr" -" s_214)))" -"(let-values(((s_217)" "(if(1/syntax?" -" s_216)" +" s_215)" "(syntax-e$2" -" s_216)" -" s_216)))" +" s_215)" +" s_215)))" "(if(pair?" -" s_217)" +" s_216)" "(let-values(((e056_0)" -"(let-values(((s_218)" +"(let-values(((s_217)" "(car" -" s_217)))" -" s_218))" +" s_216)))" +" s_217))" "((e57_0)" -"(let-values(((s_219)" +"(let-values(((s_218)" "(cdr" -" s_217)))" -"(let-values(((s_220)" +" s_216)))" +"(let-values(((s_219)" "(if(1/syntax?" -" s_219)" +" s_218)" "(syntax-e$2" -" s_219)" -" s_219)))" +" s_218)" +" s_218)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_220)))" +" s_219)))" "(if(not" " flat-s_5)" "(let-values()" @@ -30906,28 +31092,28 @@ static const char *startup_source = " _50_1" " e051_1" " e52_1))))))" -"(if(let-values(((lst_234) e52_0))" +"(if(let-values(((lst_235) e52_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_234)))" -"((letrec-values(((for-loop_214)" -"(lambda(result_86" -" lst_235)" +"(let-values()(check-list lst_235)))" +"((letrec-values(((for-loop_216)" +"(lambda(result_90" +" lst_236)" "(begin" " 'for-loop" "(if(pair?" -" lst_235)" +" lst_236)" "(let-values(((e_62)" "(unsafe-car" -" lst_235))" +" lst_236))" "((rest_124)" "(unsafe-cdr" -" lst_235)))" -"(let-values(((result_87)" +" lst_236)))" +"(let-values(((result_91)" "(let-values()" -"(let-values(((result_88)" +"(let-values(((result_92)" "(let-values()" "(let-values()" "(not" @@ -30936,23 +31122,23 @@ static const char *startup_source = " #f" " locals_2))))))" "(values" -" result_88)))))" +" result_92)))))" "(if(if(not" -"((lambda x_61" +"((lambda x_62" "(not" -" result_87))" +" result_91))" " e_62))" "(not" " #f)" " #f)" -"(for-loop_214" -" result_87" +"(for-loop_216" +" result_91" " rest_124)" -" result_87)))" -" result_86)))))" -" for-loop_214)" +" result_91)))" +" result_90)))))" +" for-loop_216)" " #t" -" lst_234)))" +" lst_235)))" "(loop_2 e051_0 locals_2)" " #f)))" "(let-values()" @@ -30992,134 +31178,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_326) e_39))" +"(let-values(((s_325) e_39))" +"(if(let-values(((s_227)" +"(if(1/syntax?" +" s_325)" +"(syntax-e$2" +" s_325)" +" s_325)))" +"(if(pair? s_227)" "(if(let-values(((s_228)" +"(car" +" s_227)))" +" #t)" +"(let-values(((s_326)" +"(cdr" +" s_227)))" +"(let-values(((s_229)" "(if(1/syntax?" " s_326)" "(syntax-e$2" " s_326)" " s_326)))" -"(if(pair? s_228)" -"(if(let-values(((s_229)" +"(if(pair? s_229)" +"(if(let-values(((s_230)" "(car" -" s_228)))" -" #t)" -"(let-values(((s_327)" -"(cdr" -" s_228)))" -"(let-values(((s_230)" +" s_229)))" +"(let-values(((s_231)" "(if(1/syntax?" -" s_327)" +" s_230)" "(syntax-e$2" -" s_327)" -" s_327)))" -"(if(pair? s_230)" -"(if(let-values(((s_231)" -"(car" +" s_230)" " s_230)))" -"(let-values(((s_232)" -"(if(1/syntax?" -" s_231)" -"(syntax-e$2" +"(if(pair?" " s_231)" +"(if(let-values(((s_327)" +"(car" " s_231)))" -"(if(pair?" -" s_232)" -"(if(let-values(((s_328)" -"(car" -" s_232)))" -"(let-values(((or-part_230)" -"(if(1/syntax?" -" s_328)" -"(symbol?" -"(syntax-e$2" -" s_328))" -" #f)))" -"(if or-part_230" -" or-part_230" -"(symbol?" -" s_328))))" -"(let-values(((s_329)" -"(cdr" -" s_232)))" -"(let-values(((s_330)" -"(if(1/syntax?" -" s_329)" -"(syntax-e$2" -" s_329)" -" s_329)))" -"(if(pair?" -" s_330)" -"(if(let-values(((s_331)" -"(car" -" s_330)))" "(let-values(((or-part_231)" "(if(1/syntax?" -" s_331)" +" s_327)" "(symbol?" "(syntax-e$2" -" s_331))" +" s_327))" " #f)))" "(if or-part_231" " or-part_231" "(symbol?" -" s_331))))" +" s_327))))" +"(let-values(((s_328)" +"(cdr" +" s_231)))" +"(let-values(((s_329)" +"(if(1/syntax?" +" s_328)" +"(syntax-e$2" +" s_328)" +" s_328)))" +"(if(pair?" +" s_329)" +"(if(let-values(((s_330)" +"(car" +" s_329)))" +"(let-values(((or-part_232)" +"(if(1/syntax?" +" s_330)" +"(symbol?" +"(syntax-e$2" +" s_330))" +" #f)))" +"(if or-part_232" +" or-part_232" +"(symbol?" +" s_330))))" +"(let-values(((s_331)" +"(cdr" +" s_329)))" "(let-values(((s_332)" -"(cdr" -" s_330)))" -"(let-values(((s_333)" "(if(1/syntax?" -" s_332)" +" s_331)" "(syntax-e$2" -" s_332)" +" s_331)" +" s_331)))" +"(null?" " s_332)))" -"(null?" -" s_333)))" " #f)" " #f)))" " #f)" " #f)))" +"(let-values(((s_333)" +"(cdr" +" s_229)))" "(let-values(((s_334)" -"(cdr" -" s_230)))" -"(let-values(((s_335)" "(if(1/syntax?" -" s_334)" +" s_333)" "(syntax-e$2" +" s_333)" +" s_333)))" +"(if(pair?" " s_334)" +"(if(let-values(((s_335)" +"(car" " s_334)))" -"(if(pair?" -" s_335)" -"(if(let-values(((s_336)" -"(car" -" s_335)))" " #t)" +"(let-values(((s_336)" +"(cdr" +" s_334)))" "(let-values(((s_337)" -"(cdr" -" s_335)))" -"(let-values(((s_338)" "(if(1/syntax?" -" s_337)" +" s_336)" "(syntax-e$2" -" s_337)" -" s_337)))" +" s_336)" +" s_336)))" "(if(pair?" -" s_338)" -"(if(let-values(((s_339)" +" s_337)" +"(if(let-values(((s_338)" "(car" -" s_338)))" +" s_337)))" " #t)" -"(let-values(((s_340)" +"(let-values(((s_339)" "(cdr" -" s_338)))" -"(let-values(((s_341)" +" s_337)))" +"(let-values(((s_340)" "(if(1/syntax?" -" s_340)" +" s_339)" "(syntax-e$2" -" s_340)" -" s_340)))" +" s_339)" +" s_339)))" "(null?" -" s_341)))" +" s_340)))" " #f)" " #f)))" " #f)" @@ -31134,71 +31320,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_234)" +"(let-values(((s_233)" "(if(1/syntax?" -" s_326)" +" s_325)" "(syntax-e$2" -" s_326)" -" s_326)))" +" s_325)" +" s_325)))" "(let-values(((_63_0)" -"(let-values(((s_237)" +"(let-values(((s_236)" "(car" -" s_234)))" -" s_237))" +" s_233)))" +" s_236))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_342)" +"(let-values(((s_341)" "(cdr" -" s_234)))" -"(let-values(((s_343)" +" s_233)))" +"(let-values(((s_342)" "(if(1/syntax?" -" s_342)" +" s_341)" "(syntax-e$2" -" s_342)" -" s_342)))" +" s_341)" +" s_341)))" "(let-values(((id:rator68_0" " id:arg69_0)" +"(let-values(((s_343)" +"(car" +" s_342)))" "(let-values(((s_344)" -"(car" +"(if(1/syntax?" +" s_343)" +"(syntax-e$2" +" s_343)" " s_343)))" -"(let-values(((s_345)" -"(if(1/syntax?" -" s_344)" -"(syntax-e$2" -" s_344)" -" s_344)))" "(let-values(((id:rator72_0)" -"(let-values(((s_346)" +"(let-values(((s_345)" "(car" -" s_345)))" -" s_346))" +" s_344)))" +" s_345))" "((id:arg73_0)" -"(let-values(((s_241)" +"(let-values(((s_240)" "(cdr" -" s_345)))" -"(let-values(((s_347)" +" s_344)))" +"(let-values(((s_346)" "(if(1/syntax?" -" s_241)" +" s_240)" "(syntax-e$2" -" s_241)" -" s_241)))" +" s_240)" +" s_240)))" "(let-values(((id:arg74_0)" -"(let-values(((s_348)" +"(let-values(((s_347)" "(car" -" s_347)))" -" s_348))" +" s_346)))" +" s_347))" "(()" -"(let-values(((s_349)" +"(let-values(((s_348)" "(cdr" -" s_347)))" -"(let-values(((s_350)" +" s_346)))" +"(let-values(((s_349)" "(if(1/syntax?" -" s_349)" +" s_348)" "(syntax-e$2" -" s_349)" -" s_349)))" +" s_348)" +" s_348)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31207,45 +31393,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" +"(let-values(((s_350)" +"(cdr" +" s_342)))" "(let-values(((s_351)" -"(cdr" -" s_343)))" -"(let-values(((s_352)" "(if(1/syntax?" -" s_351)" +" s_350)" "(syntax-e$2" -" s_351)" -" s_351)))" +" s_350)" +" s_350)))" "(let-values(((thn75_0)" -"(let-values(((s_353)" +"(let-values(((s_352)" "(car" -" s_352)))" -" s_353))" +" s_351)))" +" s_352))" "((els76_0)" +"(let-values(((s_353)" +"(cdr" +" s_351)))" "(let-values(((s_354)" -"(cdr" -" s_352)))" -"(let-values(((s_355)" "(if(1/syntax?" -" s_354)" +" s_353)" "(syntax-e$2" -" s_354)" -" s_354)))" +" s_353)" +" s_353)))" "(let-values(((els77_0)" -"(let-values(((s_356)" +"(let-values(((s_355)" "(car" -" s_355)))" -" s_356))" +" s_354)))" +" s_355))" "(()" -"(let-values(((s_357)" +"(let-values(((s_356)" "(cdr" -" s_355)))" -"(let-values(((s_358)" +" s_354)))" +"(let-values(((s_357)" "(if(1/syntax?" -" s_357)" +" s_356)" "(syntax-e$2" -" s_357)" -" s_357)))" +" s_356)" +" s_356)))" "(values)))))" "(values" " els77_0))))))" @@ -31274,13 +31460,13 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_232)" +"(let-values(((or-part_233)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_232" -" or-part_232" +"(if or-part_233" +" or-part_233" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -31308,74 +31494,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_359) e_39))" -"(if(let-values(((s_360)" +"(let-values(((s_358) e_39))" +"(if(let-values(((s_359)" "(if(1/syntax?" -" s_359)" +" s_358)" "(syntax-e$2" -" s_359)" +" s_358)" +" s_358)))" +"(if(pair? s_359)" +"(if(let-values(((s_252)" +"(car" " s_359)))" -"(if(pair? s_360)" -"(if(let-values(((s_253)" -"(car" -" s_360)))" " #t)" +"(let-values(((s_360)" +"(cdr" +" s_359)))" "(let-values(((s_361)" -"(cdr" +"(if(1/syntax?" +" s_360)" +"(syntax-e$2" +" s_360)" " s_360)))" -"(let-values(((s_362)" -"(if(1/syntax?" -" s_361)" -"(syntax-e$2" +"(if(pair?" " s_361)" +"(if(let-values(((s_362)" +"(car" " s_361)))" -"(if(pair?" -" s_362)" -"(if(let-values(((s_363)" -"(car" -" s_362)))" " #t)" +"(let-values(((s_363)" +"(cdr" +" s_361)))" "(let-values(((s_364)" -"(cdr" -" s_362)))" -"(let-values(((s_365)" "(if(1/syntax?" -" s_364)" +" s_363)" "(syntax-e$2" +" s_363)" +" s_363)))" +"(if(pair?" " s_364)" +"(if(let-values(((s_365)" +"(car" " s_364)))" -"(if(pair?" -" s_365)" -"(if(let-values(((s_366)" -"(car" -" s_365)))" " #t)" +"(let-values(((s_366)" +"(cdr" +" s_364)))" "(let-values(((s_367)" -"(cdr" -" s_365)))" -"(let-values(((s_368)" "(if(1/syntax?" -" s_367)" +" s_366)" "(syntax-e$2" -" s_367)" -" s_367)))" +" s_366)" +" s_366)))" "(if(pair?" -" s_368)" -"(if(let-values(((s_369)" +" s_367)" +"(if(let-values(((s_368)" "(car" -" s_368)))" +" s_367)))" " #t)" -"(let-values(((s_370)" +"(let-values(((s_369)" "(cdr" -" s_368)))" -"(let-values(((s_371)" +" s_367)))" +"(let-values(((s_370)" "(if(1/syntax?" -" s_370)" +" s_369)" "(syntax-e$2" -" s_370)" -" s_370)))" +" s_369)" +" s_369)))" "(null?" -" s_371)))" +" s_370)))" " #f)" " #f)))" " #f)" @@ -31389,75 +31575,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_372)" +"(let-values(((s_371)" "(if(1/syntax?" -" s_359)" +" s_358)" "(syntax-e$2" -" s_359)" -" s_359)))" +" s_358)" +" s_358)))" "(let-values(((_82_0)" -"(let-values(((s_373)" +"(let-values(((s_372)" "(car" -" s_372)))" -" s_373))" +" s_371)))" +" s_372))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_374)" +"(let-values(((s_373)" "(cdr" -" s_372)))" -"(let-values(((s_375)" +" s_371)))" +"(let-values(((s_374)" "(if(1/syntax?" -" s_374)" +" s_373)" "(syntax-e$2" -" s_374)" -" s_374)))" +" s_373)" +" s_373)))" "(let-values(((tst86_0)" -"(let-values(((s_376)" +"(let-values(((s_375)" "(car" -" s_375)))" -" s_376))" +" s_374)))" +" s_375))" "((thn87_0" " els88_0)" +"(let-values(((s_376)" +"(cdr" +" s_374)))" "(let-values(((s_377)" -"(cdr" -" s_375)))" -"(let-values(((s_378)" "(if(1/syntax?" -" s_377)" +" s_376)" "(syntax-e$2" -" s_377)" -" s_377)))" +" s_376)" +" s_376)))" "(let-values(((thn89_0)" -"(let-values(((s_255)" +"(let-values(((s_254)" "(car" -" s_378)))" -" s_255))" +" s_377)))" +" s_254))" "((els90_0)" +"(let-values(((s_378)" +"(cdr" +" s_377)))" "(let-values(((s_379)" -"(cdr" +"(if(1/syntax?" +" s_378)" +"(syntax-e$2" +" s_378)" " s_378)))" -"(let-values(((s_380)" -"(if(1/syntax?" -" s_379)" -"(syntax-e$2" -" s_379)" -" s_379)))" "(let-values(((els91_0)" -"(let-values(((s_122)" +"(let-values(((s_121)" "(car" -" s_380)))" -" s_122))" +" s_379)))" +" s_121))" "(()" -"(let-values(((s_256)" +"(let-values(((s_255)" "(cdr" -" s_380)))" -"(let-values(((s_257)" +" s_379)))" +"(let-values(((s_256)" "(if(1/syntax?" -" s_256)" +" s_255)" "(syntax-e$2" -" s_256)" -" s_256)))" +" s_255)" +" s_255)))" "(values)))))" "(values" " els91_0))))))" @@ -31502,34 +31688,34 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_233)(not expected-results_0)))" -"(if or-part_233 or-part_233(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_234)(not expected-results_0)))" +"(if or-part_234 or-part_234(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_63 key_63 defns_2 locals_3)" +"(lambda(e_63 key_64 defns_2 locals_3)" "(begin" "(let-values(((d_31)" "(let-values(((or-part_119)(hash-ref locals_3 e_63 #f)))" "(if or-part_119 or-part_119(lookup-defn defns_2 e_63)))))" -"(if d_31(if(known-satisfies? d_31)(eq? key_63(known-satisfies-predicate-key d_31)) #f) #f)))))" +"(if d_31(if(known-satisfies? d_31)(eq? key_64(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_236) idss_0)((lst_237) rhss_0))" +"(let-values(((lst_237) idss_0)((lst_238) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" -"((letrec-values(((for-loop_215)" -"(lambda(locals_5 lst_238 lst_239)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_238)))" +"((letrec-values(((for-loop_217)" +"(lambda(locals_5 lst_239 lst_240)" "(begin" " 'for-loop" -"(if(if(pair? lst_238)(pair? lst_239) #f)" -"(let-values(((ids_14)(unsafe-car lst_238))" -"((rest_125)(unsafe-cdr lst_238))" -"((rhs_10)(unsafe-car lst_239))" -"((rest_126)(unsafe-cdr lst_239)))" +"(if(if(pair? lst_239)(pair? lst_240) #f)" +"(let-values(((ids_14)(unsafe-car lst_239))" +"((rest_125)(unsafe-cdr lst_239))" +"((rhs_10)(unsafe-car lst_240))" +"((rest_126)(unsafe-cdr lst_240)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -31554,10 +31740,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_240)" +"(let-values(((lst_241)" "(correlated->list" " ids_14))" -"((lst_241)" +"((lst_242)" " '(struct-type" " constructor" " predicate" @@ -31569,36 +31755,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_240)))" +" lst_241)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_241)))" -"((letrec-values(((for-loop_216)" +" lst_242)))" +"((letrec-values(((for-loop_218)" "(lambda(locals_9" -" lst_242" -" lst_243)" +" lst_243" +" lst_244)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_242)" -"(pair?" " lst_243)" +"(pair?" +" lst_244)" " #f)" "(let-values(((id_50)" "(unsafe-car" -" lst_242))" +" lst_243))" "((rest_127)" "(unsafe-cdr" -" lst_242))" +" lst_243))" "((type_0)" "(unsafe-car" -" lst_243))" +" lst_244))" "((rest_128)" "(unsafe-cdr" -" lst_243)))" +" lst_244)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -31615,16 +31801,16 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_216" +"(for-loop_218" " locals_10" " rest_127" " rest_128)" " locals_10)))" " locals_9)))))" -" for-loop_216)" +" for-loop_218)" " locals_7" -" lst_240" -" lst_241)))))" +" lst_241" +" lst_242)))))" "(if(equal?" " tmp_27" " 'let-values)" @@ -31639,7 +31825,7 @@ static const char *startup_source = " rhs_11)))" "(loop_89 #f)))" "(let-values()" -"(let-values(((lst_123)" +"(let-values(((lst_245)" "(correlated->list" " ids_14)))" "(begin" @@ -31648,20 +31834,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_123)))" -"((letrec-values(((for-loop_217)" +" lst_245)))" +"((letrec-values(((for-loop_219)" "(lambda(locals_13" -" lst_244)" +" lst_246)" "(begin" " 'for-loop" "(if(pair?" -" lst_244)" +" lst_246)" "(let-values(((id_51)" "(unsafe-car" -" lst_244))" +" lst_246))" "((rest_129)" "(unsafe-cdr" -" lst_244)))" +" lst_246)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -31676,31 +31862,31 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_217" +"(for-loop_219" " locals_14" " rest_129)" " locals_14)))" " locals_13)))))" -" for-loop_217)" +" for-loop_219)" " locals_7" -" lst_123)))))))))))" +" lst_245)))))))))))" " loop_89)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_215 locals_6 rest_125 rest_126) locals_6)))" +"(if(not #f)(for-loop_217 locals_6 rest_125 rest_126) locals_6)))" " locals_5)))))" -" for-loop_215)" +" for-loop_217)" " locals_4" -" lst_236" -" lst_237))))))" +" lst_237" +" lst_238))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_64 defns_3)" "(begin" "(let-values(((l_57)(correlated->list e_64)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_245)(cdr l_57))" -"((lst_246)" +"(let-values(((lst_247)(cdr l_57))" +"((lst_248)" "(list" "(lambda(v_162)(quoted? symbol? v_162))" "(lambda(v_163)(is-lambda? v_163 2 defns_3))" @@ -31709,32 +31895,32 @@ static const char *startup_source = "(let-values(((v92_0) v_165)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" -"((letrec-values(((for-loop_171)" -"(lambda(result_89 lst_145 lst_247)" +"(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_170)" +"(lambda(result_93 lst_146 lst_249)" "(begin" " 'for-loop" -"(if(if(pair? lst_145)(pair? lst_247) #f)" -"(let-values(((arg_0)(unsafe-car lst_145))" -"((rest_130)(unsafe-cdr lst_145))" -"((pred_1)(unsafe-car lst_247))" -"((rest_131)(unsafe-cdr lst_247)))" -"(let-values(((result_90)" +"(if(if(pair? lst_146)(pair? lst_249) #f)" +"(let-values(((arg_0)(unsafe-car lst_146))" +"((rest_130)(unsafe-cdr lst_146))" +"((pred_1)(unsafe-car lst_249))" +"((rest_131)(unsafe-cdr lst_249)))" +"(let-values(((result_94)" "(let-values()" -"(let-values(((result_91)" +"(let-values(((result_95)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_91)))))" -"(if(if(not((lambda x_62(not result_90)) arg_0))" -"(if(not((lambda x_63(not result_90)) pred_1))(not #f) #f)" +"(values result_95)))))" +"(if(if(not((lambda x_63(not result_94)) arg_0))" +"(if(not((lambda x_64(not result_94)) pred_1))(not #f) #f)" " #f)" -"(for-loop_171 result_90 rest_130 rest_131)" -" result_90)))" -" result_89)))))" -" for-loop_171)" +"(for-loop_170 result_94 rest_130 rest_131)" +" result_94)))" +" result_93)))))" +" for-loop_170)" " #t" -" lst_245" -" lst_246)))" +" lst_247" +" lst_248)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" @@ -31748,21 +31934,21 @@ static const char *startup_source = " or-part_124" "(if(pair?(correlated-e v_166))" "(if(eq?(correlated-e(car(correlated-e v_166))) 'list)" -"(if(let-values(((lst_248)(cdr(correlated->list v_166))))" +"(if(let-values(((lst_250)(cdr(correlated->list v_166))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_218)" -"(lambda(result_92 lst_249)" +"(let-values()(check-list lst_250)))" +"((letrec-values(((for-loop_220)" +"(lambda(result_96 lst_251)" "(begin" " 'for-loop" -"(if(pair? lst_249)" -"(let-values(((prop+val_0)(unsafe-car lst_249))" -"((rest_132)(unsafe-cdr lst_249)))" -"(let-values(((result_93)" +"(if(pair? lst_251)" +"(let-values(((prop+val_0)(unsafe-car lst_251))" +"((rest_132)(unsafe-cdr lst_251)))" +"(let-values(((result_97)" "(let-values()" -"(let-values(((result_94)" +"(let-values(((result_98)" "(let-values()" "(let-values()" "(if(=" @@ -31776,7 +31962,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_234)" +"(if(let-values(((or-part_235)" "(memq" "(correlated-e" "(list-ref" @@ -31785,8 +31971,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_234" -" or-part_234" +"(if or-part_235" +" or-part_235" "(known-property?" "(lookup-defn" " defns_4" @@ -31815,36 +32001,36 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_94)))))" -"(if(if(not((lambda x_64(not result_93)) prop+val_0))" +"(values result_98)))))" +"(if(if(not((lambda x_65(not result_97)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_218 result_93 rest_132)" -" result_93)))" -" result_92)))))" -" for-loop_218)" +"(for-loop_220 result_97 rest_132)" +" result_97)))" +" result_96)))))" +" for-loop_220)" " #t" -" lst_248)))" +" lst_250)))" "(=" "(sub1(correlated-length v_166))" "(set-count" -"(let-values(((lst_250)(cdr(correlated->list v_166))))" +"(let-values(((lst_252)(cdr(correlated->list v_166))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_157)" -"(lambda(table_170 lst_251)" +"(let-values()(check-list lst_252)))" +"((letrec-values(((for-loop_221)" +"(lambda(table_171 lst_253)" "(begin" " 'for-loop" -"(if(pair? lst_251)" -"(let-values(((prop+val_2)(unsafe-car lst_251))" -"((rest_133)(unsafe-cdr lst_251)))" -"(let-values(((table_171)" -"(let-values(((table_172) table_170))" -"(let-values(((table_173)" +"(if(pair? lst_253)" +"(let-values(((prop+val_2)(unsafe-car lst_253))" +"((rest_133)(unsafe-cdr lst_253)))" +"(let-values(((table_172)" +"(let-values(((table_173) table_171))" +"(let-values(((table_174)" "(let-values()" -"(let-values(((key_64 val_55)" +"(let-values(((key_65 val_55)" "(let-values()" "(values" "(let-values()" @@ -31855,15 +32041,15 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_172" -" key_64" +" table_173" +" key_65" " val_55)))))" -"(values table_173)))))" -"(if(not #f)(for-loop_157 table_171 rest_133) table_171)))" -" table_170)))))" -" for-loop_157)" +"(values table_174)))))" +"(if(not #f)(for-loop_221 table_172 rest_133) table_172)))" +" table_171)))))" +" for-loop_221)" " '#hash()" -" lst_250)))))" +" lst_252)))))" " #f)" " #f)" " #f))))))))" @@ -31879,13 +32065,13 @@ static const char *startup_source = "(field-count-expr-to-field-count init-field-count-expr_0)" "(field-count-expr-to-field-count auto-field-count-expr_0))))" "(let-values(((immutables-expr_0)" -"(let-values(((or-part_235)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_235 or-part_235 'null))))" +"(let-values(((or-part_236)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_236 or-part_236 'null))))" "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" -"(let-values(((lst_252)(cdr l_58))" -"((lst_253)" +"(let-values(((lst_254)(cdr l_58))" +"((lst_255)" "(list" "(lambda(v_167)(quoted? symbol? v_167))" "(lambda(v_168)(super-ok? v_168 defns_5))" @@ -31914,46 +32100,46 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_252)))" +"(let-values()(check-list lst_254)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_161)" -"(lambda(result_95 lst_131 lst_254)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_222)" +"(lambda(result_99 lst_256 lst_257)" "(begin" " 'for-loop" -"(if(if(pair? lst_131)(pair? lst_254) #f)" -"(let-values(((arg_1)(unsafe-car lst_131))" -"((rest_134)(unsafe-cdr lst_131))" -"((pred_2)(unsafe-car lst_254))" -"((rest_135)(unsafe-cdr lst_254)))" -"(let-values(((result_96)" +"(if(if(pair? lst_256)(pair? lst_257) #f)" +"(let-values(((arg_1)(unsafe-car lst_256))" +"((rest_134)(unsafe-cdr lst_256))" +"((pred_2)(unsafe-car lst_257))" +"((rest_135)(unsafe-cdr lst_257)))" +"(let-values(((result_100)" "(let-values()" -"(let-values(((result_97)" +"(let-values(((result_101)" "(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_97)))))" -"(if(if(not((lambda x_65(not result_96)) arg_1))" -"(if(not((lambda x_66(not result_96)) pred_2))" +"(values result_101)))))" +"(if(if(not((lambda x_66(not result_100)) arg_1))" +"(if(not((lambda x_67(not result_100)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_161 result_96 rest_134 rest_135)" -" result_96)))" -" result_95)))))" -" for-loop_161)" +"(for-loop_222 result_100 rest_134 rest_135)" +" result_100)))" +" result_99)))))" +" for-loop_222)" " #t" -" lst_252" -" lst_253)))" +" lst_254" +" lst_255)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" "(lambda(e_66 defns_6)" "(begin" -"(let-values(((or-part_236)(quoted? false? e_66)))" -"(if or-part_236" -" or-part_236" +"(let-values(((or-part_237)(quoted? false? e_66)))" +"(if or-part_237" +" or-part_237" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_66))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -31966,13 +32152,13 @@ static const char *startup_source = "(quoted?)" "(lambda(val?_0 v_176)" "(begin" -"(let-values(((or-part_237)" +"(let-values(((or-part_238)" "(if(pair?(correlated-e v_176))" "(if(eq?(correlated-e(car(correlated-e v_176))) 'quote)" "(val?_0(correlated-e(correlated-cadr v_176)))" " #f)" " #f)))" -"(if or-part_237 or-part_237(val?_0(correlated-e v_176)))))))" +"(if or-part_238 or-part_238(val?_0(correlated-e v_176)))))))" "(define-values" "(quoted-value)" "(lambda(v_177)" @@ -31985,12 +32171,12 @@ static const char *startup_source = "(inspector-or-false?)" "(lambda(v_180)" "(begin" -"(let-values(((or-part_238)(quoted? false? v_180)))" -"(if or-part_238" -" or-part_238" -"(let-values(((or-part_239)(if(quoted? symbol? v_180)(eq? 'prefab(quoted-value v_180)) #f)))" +"(let-values(((or-part_239)(quoted? false? v_180)))" "(if or-part_239" " or-part_239" +"(let-values(((or-part_240)(if(quoted? symbol? v_180)(eq? 'prefab(quoted-value v_180)) #f)))" +"(if or-part_240" +" or-part_240" "(if(= 1(correlated-length v_180))" "(eq? 'current-inspector(correlated-e(car(correlated-e v_180))))" " #f))))))))" @@ -31998,29 +32184,29 @@ static const char *startup_source = "(known-good-struct-properties?)" "(lambda(v_181 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_240)(quoted? null? v_181)))" -"(if or-part_240" -" or-part_240" -"(let-values(((or-part_241)(eq? 'null(correlated-e v_181))))" +"(let-values(((or-part_241)(quoted? null? v_181)))" "(if or-part_241" " or-part_241" +"(let-values(((or-part_242)(eq? 'null(correlated-e v_181))))" +"(if or-part_242" +" or-part_242" "(if(pair?(correlated-e v_181))" "(if(eq?(correlated-e(car(correlated-e v_181))) 'list)" -"(if(let-values(((lst_255)(cdr(correlated->list v_181))))" +"(if(let-values(((lst_258)(cdr(correlated->list v_181))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_219)" -"(lambda(result_98 lst_256)" +"(let-values()(check-list lst_258)))" +"((letrec-values(((for-loop_223)" +"(lambda(result_102 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_256)" -"(let-values(((prop+val_3)(unsafe-car lst_256))" -"((rest_136)(unsafe-cdr lst_256)))" -"(let-values(((result_99)" +"(if(pair? lst_259)" +"(let-values(((prop+val_3)(unsafe-car lst_259))" +"((rest_136)(unsafe-cdr lst_259)))" +"(let-values(((result_103)" "(let-values()" -"(let-values(((result_100)" +"(let-values(((result_104)" "(let-values()" "(let-values()" "(if(=" @@ -32042,36 +32228,36 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_100)))))" -"(if(if(not((lambda x_67(not result_99)) prop+val_3))" +"(values result_104)))))" +"(if(if(not((lambda x_68(not result_103)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_219 result_99 rest_136)" -" result_99)))" -" result_98)))))" -" for-loop_219)" +"(for-loop_223 result_103 rest_136)" +" result_103)))" +" result_102)))))" +" for-loop_223)" " #t" -" lst_255)))" +" lst_258)))" "(=" "(sub1(correlated-length v_181))" "(set-count" -"(let-values(((lst_257)(cdr(correlated->list v_181))))" +"(let-values(((lst_260)(cdr(correlated->list v_181))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_220)" -"(lambda(table_174 lst_258)" +"(let-values()(check-list lst_260)))" +"((letrec-values(((for-loop_224)" +"(lambda(table_175 lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((prop+val_5)(unsafe-car lst_258))" -"((rest_137)(unsafe-cdr lst_258)))" -"(let-values(((table_175)" -"(let-values(((table_176) table_174))" -"(let-values(((table_177)" +"(if(pair? lst_261)" +"(let-values(((prop+val_5)(unsafe-car lst_261))" +"((rest_137)(unsafe-cdr lst_261)))" +"(let-values(((table_176)" +"(let-values(((table_177) table_175))" +"(let-values(((table_178)" "(let-values()" -"(let-values(((key_65 val_56)" +"(let-values(((key_66 val_56)" "(let-values()" "(values" "(let-values()" @@ -32082,15 +32268,15 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_176" -" key_65" +" table_177" +" key_66" " val_56)))))" -"(values table_177)))))" -"(if(not #f)(for-loop_220 table_175 rest_137) table_175)))" -" table_174)))))" -" for-loop_220)" +"(values table_178)))))" +"(if(not #f)(for-loop_224 table_176 rest_137) table_176)))" +" table_175)))))" +" for-loop_224)" " '#hash()" -" lst_257)))))" +" lst_260)))))" " #f)" " #f)" " #f))))))))" @@ -32102,12 +32288,12 @@ static const char *startup_source = "(let-values(((tmp_28) prop-name_0))" "(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_182)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_182 or-part_182(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_243)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_243 or-part_243(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_242)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_242 or-part_242(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_244)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_244 or-part_244(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_28 'prop:equal+hash)" @@ -32143,26 +32329,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_243)" +"(let-values(((or-part_245)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_244)(not arity_0)))" -"(if or-part_244 or-part_244(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_246)(not arity_0)))" +"(if or-part_246 or-part_246(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_243" -" or-part_243" -"(let-values(((or-part_245)" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" -" #f)))" "(if or-part_245" " or-part_245" +"(let-values(((or-part_247)" +"(if(pair?(correlated-e expr_9))" +"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" +" #f)))" +"(if or-part_247" +" or-part_247" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_246)(not arity_0)))" -"(if or-part_246" -" or-part_246" +"(let-values(((or-part_248)(not arity_0)))" +"(if or-part_248" +" or-part_248" "((letrec-values(((loop_90)" "(lambda(args_4 arity_1)" "(begin" @@ -32183,30 +32369,30 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_131)(equal? a_40 n_25)))" -"(if or-part_131" -" or-part_131" +"(let-values(((or-part_249)(equal? a_40 n_25)))" +"(if or-part_249" +" or-part_249" "(if(list? a_40)" "(let-values(((lst_66) a_40))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_66)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_101 lst_259)" +"((letrec-values(((for-loop_225)" +"(lambda(result_105 lst_262)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((a_41)(unsafe-car lst_259))((rest_138)(unsafe-cdr lst_259)))" -"(let-values(((result_102)" +"(if(pair? lst_262)" +"(let-values(((a_41)(unsafe-car lst_262))((rest_138)(unsafe-cdr lst_262)))" +"(let-values(((result_106)" "(let-values()" -"(let-values(((result_103)" +"(let-values(((result_107)" "(let-values()" "(let-values()(equal? a_41 n_25)))))" -"(values result_103)))))" -"(if(if(not((lambda x_68 result_102) a_41))(not #f) #f)" -"(for-loop_221 result_102 rest_138)" -" result_102)))" -" result_101)))))" -" for-loop_221)" +"(values result_107)))))" +"(if(if(not((lambda x_69 result_106) a_41))(not #f) #f)" +"(for-loop_225 result_106 rest_138)" +" result_106)))" +" result_105)))))" +" for-loop_225)" " #f" " lst_66)))" " #f))))))" @@ -32225,27 +32411,27 @@ static const char *startup_source = "(if(equal? tmp_29 'quote)" "(let-values()" "(let-values(((v_182)(correlated-cadr e_68)))" -"(let-values(((or-part_247)" +"(let-values(((or-part_250)" "(if(correlated-length v_182)" "(let-values(((l_61)(map2 correlated-e(correlated->list v_182))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_247 or-part_247 fail-v_0))))" +"(if or-part_250 or-part_250 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_69 field-count_1)" "(begin" -"(let-values(((or-part_248)(quoted? false? e_69)))" -"(if or-part_248" -" or-part_248" -"(let-values(((or-part_249)" +"(let-values(((or-part_251)(quoted? false? e_69)))" +"(if or-part_251" +" or-part_251" +"(let-values(((or-part_252)" "(if(quoted? exact-nonnegative-integer? e_69)" "(if field-count_1(<(quoted-value e_69) field-count_1) #f)" " #f)))" -"(if or-part_249 or-part_249(is-lambda? e_69 #f '#hasheq()))))))))" +"(if or-part_252 or-part_252(is-lambda? e_69 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_70 init-field-count-expr_1)" @@ -32253,29 +32439,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_260) l_62))" +"(let-values(((lst_263) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_145)" -"(lambda(result_104 lst_261)" +"(let-values()(check-list lst_263)))" +"((letrec-values(((for-loop_144)" +"(lambda(result_108 lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((n_26)(unsafe-car lst_261))((rest_139)(unsafe-cdr lst_261)))" -"(let-values(((result_105)" +"(if(pair? lst_264)" +"(let-values(((n_26)(unsafe-car lst_264))((rest_139)(unsafe-cdr lst_264)))" +"(let-values(((result_109)" "(let-values()" -"(let-values(((result_106)" +"(let-values(((result_110)" "(let-values()(let-values()(< n_26 c_24)))))" -"(values result_106)))))" -"(if(if(not((lambda x_69(not result_105)) n_26))(not #f) #f)" -"(for-loop_145 result_105 rest_139)" -" result_105)))" -" result_104)))))" -" for-loop_145)" +"(values result_110)))))" +"(if(if(not((lambda x_70(not result_109)) n_26))(not #f) #f)" +"(for-loop_144 result_109 rest_139)" +" result_109)))" +" result_108)))))" +" for-loop_144)" " #t" -" lst_260)))" +" lst_263)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -32283,20 +32469,20 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_71)))" "(let-values(((a_42)" -"(if(let-values(((or-part_250)(=(length l_63) 3)))" -"(if or-part_250 or-part_250(=(length l_63) 4)))" -"(let-values(((or-part_251)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_251 or-part_251(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_253)(=(length l_63) 3)))" +"(if or-part_253 or-part_253(=(length l_63) 4)))" +"(let-values(((or-part_254)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_254 or-part_254(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_42)" "(if(eq?(known-struct-op-type a_42) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_252)(=(length l_63) 3)))" -"(if or-part_252 or-part_252(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_255)(=(length l_63) 3)))" +"(if or-part_255 or-part_255(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #f) #f))))" "(define-values" "(compile-single)" "(lambda(p_42 cctx_12)" @@ -32352,7 +32538,7 @@ static const char *startup_source = "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" "((temp24_4)" -"(lambda(e_72 expected-results_2 phase_81 required-reference?_0)" +"(lambda(e_72 expected-results_2 phase_80 required-reference?_0)" "(if(if purely-functional?_0" "(let-values(((e27_0) e_72)" "((expected-results28_0) expected-results_2)" @@ -32371,10 +32557,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_381 cctx_14)" +"(lambda(s_380 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_381 cctx_14))))" +"(compile-top-level-require s_380 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32405,12 +32591,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_115)" +"(lambda(ht_117)" "(begin" " 'add-metadata" -"(let-values(((ht_75)(hash-set ht_115 'original-phase phase_15)))" -"(let-values(((ht_116)(hash-set ht_75 'max-phase max-phase_1)))" -" ht_116))))))" +"(let-values(((ht_75)(hash-set ht_117 'original-phase phase_15)))" +"(let-values(((ht_118)(hash-set ht_75 'max-phase max-phase_1)))" +" ht_118))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -32427,11 +32613,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_160)" +"(lambda(s_159)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_160" +" s_159" " #f" "(vector" " deserialize-instance" @@ -32513,7 +32699,7 @@ static const char *startup_source = "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_7) defined-syms12_0))" "(let-values(((self_20) self13_0))" -"(let-values(((phase_82) phase14_0))" +"(let-values(((phase_81) phase14_0))" "(let-values(((all-scopes-stx_3) all-scopes-stx15_0))" "(let-values(((frame-id_7) frame-id1_0))" "(let-values(((top-level-bind-scope_3)(if top-level-bind-scope7_0 top-level-bind-scope2_0 #f)))" @@ -32522,31 +32708,31 @@ static const char *startup_source = "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_253)(hash-ref defined-syms_7 phase_82 #f)))" -"(if or-part_253" -" or-part_253" -"(let-values(((ht_117)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_82 ht_117) ht_117))))))" +"(let-values(((or-part_256)(hash-ref defined-syms_7 phase_81 #f)))" +"(if or-part_256" +" or-part_256" +"(let-values(((ht_119)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_81 ht_119) ht_119))))))" "(reverse$1" -"(let-values(((lst_78) ids_15))" +"(let-values(((lst_79) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_222)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_226)" "(lambda(fold-var_12 lst_171)" "(begin" " 'for-loop" "(if(pair? lst_171)" "(let-values(((id_52)(unsafe-car lst_171))" "((rest_87)(unsafe-cdr lst_171)))" -"(let-values(((fold-var_154)" -"(let-values(((fold-var_155) fold-var_12))" -"(let-values(((fold-var_164)" +"(let-values(((fold-var_155)" +"(let-values(((fold-var_156) fold-var_12))" +"(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" -"(let-values(((sym_9)" +"(let-values(((sym_12)" "(syntax-e$1" " id_52)))" "(let-values(((defined-sym_0)" @@ -32554,43 +32740,43 @@ static const char *startup_source = "(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" sym_9" +" sym_12" " #f)" " id_52" -" phase_82" +" phase_81" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_52" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_82)" +" phase_81)" "(symbol-interned?" -" sym_9)" +" sym_12)" " #f)" " #f)" -" sym_9" +" sym_12" "((letrec-values(((loop_91)" "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_175)" +"(let-values(((s_174)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" -" sym_9" +" sym_12" " pos_97))))" "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_175" +" s_174" " #f)" " id_52" -" phase_82" +" phase_81" " top-level-bind-scope_3)" "(loop_91" "(add1" " pos_97))" -" s_175))))))" +" s_174))))))" " loop_91)" " 1))))" "(let-values((()" @@ -32603,14 +32789,14 @@ static const char *startup_source = "(let-values(((b_49)" "(let-values(((self23_0)" " self_20)" -"((phase24_1)" -" phase_82)" +"((phase24_0)" +" phase_81)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" " frame-id_7)" "((sym27_1)" -" sym_9))" +" sym_12))" "(make-module-binding22.1" " #f" " #f" @@ -32631,7 +32817,7 @@ static const char *startup_source = " #f" " #f" " self23_0" -" phase24_1" +" phase24_0" " defined-sym25_0))))" "(begin" "(if requires+provides_4" @@ -32641,7 +32827,7 @@ static const char *startup_source = "((id29_0)" " id_52)" "((phase30_0)" -" phase_82)" +" phase_81)" "((b31_0)" " b_49))" "(remove-required-id!75.1" @@ -32655,7 +32841,7 @@ static const char *startup_source = "((b20_0)" " b_49)" "((phase21_0)" -" phase_82)" +" phase_81)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -32673,7 +32859,7 @@ static const char *startup_source = "((id33_0)" " id_52)" "((phase34_0)" -" phase_82)" +" phase_81)" "((b35_0)" " b_49)" "((as-transformer?36_0)" @@ -32688,25 +32874,25 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_155))))" -"(values fold-var_164)))))" +" fold-var_156))))" +"(values fold-var_165)))))" "(if(not #f)" -"(for-loop_222 fold-var_154 rest_87)" -" fold-var_154)))" +"(for-loop_226 fold-var_155 rest_87)" +" fold-var_155)))" " fold-var_12)))))" -" for-loop_222)" +" for-loop_226)" " null" -" lst_78)))))))))))))))))))" +" lst_79)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" +"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_82)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_53))))" -"(let-values(((or-part_134)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" +"(let-values(((or-part_134)(bound-identifier=?$1 id_53 m-id_0 phase_82)))" "(if or-part_134" " or-part_134" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_83)" +"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_82)" " #f)))))))" "(define-values" "(defined-as-other?)" @@ -32714,9 +32900,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_72))" -"(let-values(((or-part_254)(not top-level-bind-scope_5)))" -"(if or-part_254" -" or-part_254" +"(let-values(((or-part_257)(not top-level-bind-scope_5)))" +"(if or-part_257" +" or-part_257" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -32729,16 +32915,16 @@ static const char *startup_source = "(lambda(tl-ids_0 ctx_10)" "(begin" "(let-values(((tl-ids37_0) tl-ids_0)" -"((temp38_0)(root-expand-context-defined-syms ctx_10))" +"((temp38_1)(root-expand-context-defined-syms ctx_10))" "((temp39_1)(root-expand-context-self-mpi ctx_10))" "((temp40_1)(expand-context-phase ctx_10))" "((temp41_1)(root-expand-context-all-scopes-stx ctx_10))" -"((temp42_0)(root-expand-context-frame-id ctx_10))" +"((temp42_1)(root-expand-context-frame-id ctx_10))" "((temp43_0)(root-expand-context-top-level-bind-scope ctx_10)))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" temp42_0" +" temp42_1" " #f" " #f" " #f" @@ -32746,38 +32932,38 @@ static const char *startup_source = " temp43_0" " #t" " tl-ids37_0" -" temp38_0" +" temp38_1" " temp39_1" " temp40_1" " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_34 sym_56 id_55)" +"(lambda(defined-syms_8 phase_83 sym_55 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_255)(hash-ref defined-syms_8 phase_34 #f)))" -"(if or-part_255" -" or-part_255" -"(let-values(((ht_118)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_34 ht_118) ht_118))))))" -"(hash-set! defined-syms-at-phase_1 sym_56 id_55)))))" +"(let-values(((or-part_258)(hash-ref defined-syms_8 phase_83 #f)))" +"(if or-part_258" +" or-part_258" +"(let-values(((ht_120)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_83 ht_120) ht_120))))))" +"(hash-set! defined-syms-at-phase_1 sym_55 id_55)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" "(begin" -"(lambda(ns_58 phase-shift_14 original-self_0 self_7)" +"(lambda(ns_59 phase-shift_14 original-self_0 self_7)" "(let-values(((root-ctx_4)" -"(let-values(((temp1_2)(namespace-mpi ns_58)))" +"(let-values(((temp1_2)(namespace-mpi ns_59)))" "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp1_2))))" "(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_265) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_223)" +"(let-values()(check-list lst_265)))" +"((letrec-values(((for-loop_227)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -32794,7 +32980,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_266)" "(cdr" " phase+reqs_0)))" "(begin" @@ -32803,19 +32989,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_263)))" -"((letrec-values(((for-loop_224)" -"(lambda(lst_77)" +" lst_266)))" +"((letrec-values(((for-loop_228)" +"(lambda(lst_78)" "(begin" " 'for-loop" "(if(pair?" -" lst_77)" +" lst_78)" "(let-values(((req_4)" "(unsafe-car" -" lst_77))" +" lst_78))" "((rest_35)" "(unsafe-cdr" -" lst_77)))" +" lst_78)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -32836,7 +33022,7 @@ static const char *startup_source = "((s5_0)" " s_3)" "((ns6_0)" -" ns_58)" +" ns_59)" "((temp7_1)" "(phase+" " phase_32" @@ -32880,35 +33066,35 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_224" +"(for-loop_228" " rest_35)" "(values))))" "(values))))))" -" for-loop_224)" -" lst_263)))" +" for-loop_228)" +" lst_266)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_223 rest_4)(values))))" +"(if(not #f)(for-loop_227 rest_4)(values))))" "(values))))))" -" for-loop_223)" -" lst_262)))" +" for-loop_227)" +" lst_265)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_119) evaled-ld-h_0))" +"(let-values(((ht_121) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_119)))" -"((letrec-values(((for-loop_103)" -"(lambda(i_149)" +"(let-values()(check-in-hash ht_121)))" +"((letrec-values(((for-loop_102)" +"(lambda(i_150)" "(begin" " 'for-loop" -"(if i_149" +"(if i_150" "(let-values(((phase_84 linklet_3)" -"(hash-iterate-key+value ht_119 i_149)))" +"(hash-iterate-key+value ht_121 i_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -32916,7 +33102,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_267)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -32924,19 +33110,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_264)))" -"((letrec-values(((for-loop_225)" -"(lambda(lst_265)" +"(check-list lst_267)))" +"((letrec-values(((for-loop_229)" +"(lambda(lst_268)" "(begin" " 'for-loop" "(if(pair?" -" lst_265)" -"(let-values(((sym_57)" +" lst_268)" +"(let-values(((sym_56)" "(unsafe-car" -" lst_265))" +" lst_268))" "((rest_140)" "(unsafe-cdr" -" lst_265)))" +" lst_268)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -32946,7 +33132,7 @@ static const char *startup_source = "(let-values(((id_56)" "(datum->syntax$1" " s_3" -" sym_57)))" +" sym_56)))" "(begin" "(let-values(((id10_0)" " id_56)" @@ -32956,7 +33142,7 @@ static const char *startup_source = "((phase14_1)" " phase_84)" "((sym15_0)" -" sym_57))" +" sym_56))" "(make-module-binding22.1" " #f" " #f" @@ -32992,27 +33178,27 @@ static const char *startup_source = "(add-defined-sym!" " defined-syms_9" " phase_84" -" sym_57" +" sym_56" " id_56))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_225" +"(for-loop_229" " rest_140)" "(values))))" "(values))))))" -" for-loop_225)" -" lst_264)))" +" for-loop_229)" +" lst_267)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_103(hash-iterate-next ht_119 i_149))" +"(for-loop_102(hash-iterate-next ht_121 i_150))" "(values))))" "(values))))))" -" for-loop_103)" -"(hash-iterate-first ht_119))))" +" for-loop_102)" +"(hash-iterate-first ht_121))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33022,11 +33208,11 @@ static const char *startup_source = "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" "(let-values(((v_183) root-context_0))" -"(let-values(((the-struct_56) v_183))" -"(if(root-expand-context/outer? the-struct_56)" +"(let-values(((the-struct_55) v_183))" +"(if(root-expand-context/outer? the-struct_55)" "(let-values(((inner16_0)" -"(let-values(((the-struct_57)(root-expand-context/outer-inner v_183)))" -"(if(root-expand-context/inner? the-struct_57)" +"(let-values(((the-struct_56)(root-expand-context/outer-inner v_183)))" +"(if(root-expand-context/inner? the-struct_56)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_1)" @@ -33043,19 +33229,19 @@ static const char *startup_source = " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_57)" -"(root-expand-context/inner-top-level-bind-scope the-struct_57)" +"(root-expand-context/inner-module-scopes the-struct_56)" +"(root-expand-context/inner-top-level-bind-scope the-struct_56)" " all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_57)" -"(root-expand-context/inner-counter the-struct_57)" -"(root-expand-context/inner-lift-key the-struct_57)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_57)))))" +"(root-expand-context/inner-defined-syms the-struct_56)" +"(root-expand-context/inner-counter the-struct_56)" +"(root-expand-context/inner-lift-key the-struct_56)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_56)))))" "(root-expand-context/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_56)" -"(root-expand-context/outer-use-site-scopes the-struct_56)" -"(root-expand-context/outer-frame-id the-struct_56)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_56)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_55)" +"(root-expand-context/outer-use-site-scopes the-struct_55)" +"(root-expand-context/outer-frame-id the-struct_55)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_55)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -33077,8 +33263,8 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_40)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_266) import-module-uses_0)" -"((lst_87) import-module-instances_0)" +"((lst_269) import-module-uses_0)" +"((lst_88) import-module-instances_0)" "((lst_161)" "(let-values(((or-part_71) extra-inspectorsss_4))" "(if or-part_71 or-part_71 import-module-uses_0))))" @@ -33088,24 +33274,24 @@ static const char *startup_source = "(let-values()(check-list lst_40)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_269)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_161)))" -"((letrec-values(((for-loop_225)" -"(lambda(lst_265 lst_267 lst_24 lst_170)" +"((letrec-values(((for-loop_229)" +"(lambda(lst_268 lst_270 lst_24 lst_170)" "(begin" " 'for-loop" -"(if(if(pair? lst_265)" -"(if(pair? lst_267)(if(pair? lst_24)(pair? lst_170) #f) #f)" +"(if(if(pair? lst_268)" +"(if(pair? lst_270)(if(pair? lst_24)(pair? lst_170) #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_268))" +"((rest_141)(unsafe-cdr lst_268))" +"((mu_7)(unsafe-car lst_270))" +"((rest_142)(unsafe-cdr lst_270))" "((mi_16)(unsafe-car lst_24))" "((rest_42)(unsafe-cdr lst_24))" "((extra-inspectorss_14)(unsafe-car lst_170))" @@ -33141,7 +33327,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_58)))" -"((letrec-values(((for-loop_226)" +"((letrec-values(((for-loop_230)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -33225,28 +33411,28 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_226" +"(for-loop_230" " rest_9)" "(values))))" "(values))))))" -" for-loop_226)" +" for-loop_230)" " lst_58)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_225 rest_141 rest_142 rest_42 rest_117)" +"(for-loop_229 rest_141 rest_142 rest_42 rest_117)" "(values))))" "(values))))))" -" for-loop_225)" +" for-loop_229)" " lst_40" -" lst_266" -" lst_87" +" lst_269" +" lst_88" " lst_161)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_85 sym_58 insp_11)" +"(lambda(mi_17 phase_85 sym_57 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" @@ -33255,13 +33441,13 @@ static const char *startup_source = "(let-values(((access_3)" "(let-values(((or-part_67)(module-access m_16)))" "(if or-part_67 or-part_67(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_85 '#hasheq()) sym_58 'unexported)))" -"(if(let-values(((or-part_256)(eq? a_44 'unexported)))" -"(if or-part_256 or-part_256(eq? a_44 'protected)))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_85 '#hasheq()) sym_57 'unexported)))" +"(if(let-values(((or-part_259)(eq? a_44 'unexported)))" +"(if or-part_259 or-part_259(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_257)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_257 or-part_257(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_260)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_260 or-part_260(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33272,8 +33458,8 @@ static const char *startup_source = "(lambda(key_11 proc_8)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_8)))))" "(define-values" "(module-cache-ref)" -"(lambda(key_66)" -"(begin(let-values(((e_73)(hash-ref module-cache key_66 #f)))(if e_73(ephemeron-value e_73) #f)))))" +"(lambda(key_67)" +"(begin(let-values(((e_73)(hash-ref module-cache key_67 #f)))(if e_73(ephemeron-value e_73) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -33287,7 +33473,7 @@ static const char *startup_source = "(begin" " 'eval-module8" "(let-values(((c_18) c7_0))" -"(let-values(((ns_59)(if namespace4_0 namespace1_2(1/current-namespace))))" +"(let-values(((ns_60)(if namespace4_0 namespace1_2(1/current-namespace))))" "(let-values(((with-submodules?_1)(if with-submodules?5_0 with-submodules?2_0 #t)))" "(let-values(((supermodule-name_1)(if supermodule-name6_0 supermodule-name3_0 #f)))" "(let-values()" @@ -33307,8 +33493,8 @@ static const char *startup_source = "(let-values() empty-syntax-literals-instance/empty-namespace)" "(let-values() empty-syntax-literals-data-instance)))))))" "(let-values(((decl_0)" -"(lambda(key_67)" -"(begin 'decl(1/instance-variable-value declaration-instance_0 key_67)))))" +"(lambda(key_68)" +"(begin 'decl(1/instance-variable-value declaration-instance_0 key_68)))))" "(let-values(((pre-submodule-names_0)(hash-ref h_1 'pre null)))" "(let-values(((post-submodule-names_0)(hash-ref h_1 'post null)))" "(let-values(((default-name_1)(hash-ref h_1 'name 'module)))" @@ -33329,14 +33515,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_109)" -"(lambda(table_106 pos_98)" +"((letrec-values(((for-loop_108)" +"(lambda(table_110 pos_98)" "(begin" " 'for-loop" "(if(< pos_98 end_26)" "(let-values(((phase-level_17)" " pos_98))" -"(let-values(((table_178)" +"(let-values(((table_179)" "(let-values(((v_184)" "(hash-ref" " h_1" @@ -33344,20 +33530,20 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_227)" -"(lambda(table_108)" +"((letrec-values(((for-loop_231)" +"(lambda(table_112)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_179)" "(let-values(((table_180)" -" table_108))" -"(if v_184" "(let-values(((table_181)" -" table_180))" +" table_112))" +"(if v_184" "(let-values(((table_182)" +" table_181))" +"(let-values(((table_183)" "(let-values()" -"(let-values(((key_68" +"(let-values(((key_69" " val_57)" "(let-values()" "(values" @@ -33365,22 +33551,22 @@ static const char *startup_source = "(1/eval-linklet" " v_184)))))" "(hash-set" -" table_181" -" key_68" +" table_182" +" key_69" " val_57)))))" "(values" -" table_182)))" -" table_180))))" -" table_179))))))" -" for-loop_227)" -" table_106)))))" +" table_183)))" +" table_181))))" +" table_180))))))" +" for-loop_231)" +" table_110)))))" "(if(not #f)" -"(for-loop_109" -" table_178" +"(for-loop_108" +" table_179" "(+ pos_98 inc_20))" -" table_178)))" -" table_106)))))" -" for-loop_109)" +" table_179)))" +" table_110)))))" +" for-loop_108)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -33405,7 +33591,7 @@ static const char *startup_source = " phases-h_0)))" "(let-values(((declare-submodules_0)" "(if dh_0" -"(lambda(ns_60 names_0 declare-name_0 pre?_0)" +"(lambda(ns_61 names_0 declare-name_0 pre?_0)" "(begin" " 'declare-submodules" "(if(compiled-in-memory? c_18)" @@ -33422,18 +33608,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_228)" -"(lambda(lst_91)" +"((letrec-values(((for-loop_232)" +"(lambda(lst_92)" "(begin" " 'for-loop" "(if(pair?" -" lst_91)" +" lst_92)" "(let-values(((c_25)" "(unsafe-car" -" lst_91))" +" lst_92))" "((rest_43)" "(unsafe-cdr" -" lst_91)))" +" lst_92)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33443,7 +33629,7 @@ static const char *startup_source = "(let-values(((c12_0)" " c_25)" "((ns13_0)" -" ns_60)" +" ns_61)" "((declare-name14_0)" " declare-name_0))" "(eval-module8.1" @@ -33458,22 +33644,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_228" +"(for-loop_232" " rest_43)" "(values))))" "(values))))))" -" for-loop_228)" +" for-loop_232)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_92) names_0))" +"(let-values(((lst_93) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_92)))" -"((letrec-values(((for-loop_229)" +"(check-list lst_93)))" +"((letrec-values(((for-loop_233)" "(lambda(lst_7)" "(begin" " 'for-loop" @@ -33506,7 +33692,7 @@ static const char *startup_source = "(let-values(((sm-cd15_0)" " sm-cd_0)" "((ns16_0)" -" ns_60)" +" ns_61)" "((declare-name17_0)" " declare-name_0))" "(eval-module8.1" @@ -33521,16 +33707,16 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_233" " rest_143)" "(values))))" "(values))))))" -" for-loop_229)" -" lst_92)))" +" for-loop_233)" +" lst_93)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" -"(lambda(ns_61)" +"(lambda(ns_62)" "(begin" " 'declare-this-module" "(let-values(((m_17)" @@ -33562,9 +33748,9 @@ static const char *startup_source = "(lambda()" "(get-all-variables" " phases-h_0)))" -"((temp34_0)" +"((temp34_1)" "(lambda(phase-level_18" -" ns_62" +" ns_63" " insp_12)" "(module-linklet-info2.1" "(hash-ref" @@ -33589,7 +33775,7 @@ static const char *startup_source = " bulk-binding-registry_13)))" "((temp36_2)" "(lambda(data-box_2" -" ns_63" +" ns_64" " phase-shift_16" " self_21" " bulk-binding-registry_14" @@ -33601,7 +33787,7 @@ static const char *startup_source = "(init-instance-data!" " data-box_2" " cache-key_0" -" ns_63" +" ns_64" " syntax-literals-linklet_0" " data-instance_0" " syntax-literals-data-instance_0" @@ -33613,7 +33799,7 @@ static const char *startup_source = " create-root-expand-context-from-module_0)))))" "((temp37_0)" "(lambda(data-box_3" -" ns_64" +" ns_65" " phase-shift_17" " phase-level_19" " self_22" @@ -33639,7 +33825,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_268)" +"(let-values(((lst_271)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33647,21 +33833,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_268)))" -"((letrec-values(((for-loop_230)" +" lst_271)))" +"((letrec-values(((for-loop_234)" "(lambda(mis_2" " is_1" -" lst_269)" +" lst_272)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" +" lst_272)" "(let-values(((mu_8)" "(unsafe-car" -" lst_269))" +" lst_272))" "((rest_144)" "(unsafe-cdr" -" lst_269)))" +" lst_272)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -33674,8 +33860,8 @@ static const char *startup_source = "(let-values(((mis45_0" " is46_0)" "(let-values()" -"(let-values(((ns47_0)" -" ns_64)" +"(let-values(((ns47_1)" +" ns_65)" "((mu48_0)" " mu_8)" "((original-self49_0)" @@ -33695,7 +33881,7 @@ static const char *startup_source = " #t" " self50_0" " #t" -" ns47_0" +" ns47_1" " mu48_0)))))" "(values" "(cons" @@ -33709,7 +33895,7 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_230" +"(for-loop_234" " mis_3" " is_2" " rest_144)" @@ -33719,10 +33905,10 @@ static const char *startup_source = "(values" " mis_2" " is_1))))))" -" for-loop_230)" +" for-loop_234)" " null" " null" -" lst_268)))))" +" lst_271)))))" "(values" "(reverse$1" " mis_1)" @@ -33761,7 +33947,7 @@ static const char *startup_source = "(lambda(name_50" " val_58)" "(namespace-set-transformer!" -" ns_64" +" ns_65" "(sub1" " phase-level_19)" " name_50" @@ -33779,7 +33965,7 @@ static const char *startup_source = " module-body-instance-instance_0" " import-instances_0)" "(namespace->instance" -" ns_64" +" ns_65" " phase-level_19))))))" "(if(zero-phase?" " phase-level_19)" @@ -33796,13 +33982,13 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" ns_64)" +" ns_65)" "(let-values()" "(instantiate-body_0))))))" "(let-values()" "(let-values(((ns-1_0)" "(namespace->namespace-at-phase" -" ns_64" +" ns_65" "(phase+" " phase-shift_17" "(sub1" @@ -33829,7 +34015,7 @@ static const char *startup_source = " #f" " ns-153_0)))))" " 1/current-namespace" -" ns_64" +" ns_65" " current-module-code-inspector" " insp_14)" "(let-values()" @@ -33851,7 +34037,7 @@ static const char *startup_source = " #t" " #f" " #f" -" temp34_0" +" temp34_1" " #t" " temp30_1" " #t" @@ -33876,12 +34062,12 @@ static const char *startup_source = "(if with-submodules?_1" "(let-values()" "(declare-submodules_0" -" ns_61" +" ns_62" " pre-submodule-names_0" " declare-name_1" " #t))" "(void))" -"(let-values(((ns18_0) ns_61)" +"(let-values(((ns18_0) ns_62)" "((m19_0) m_17)" "((declare-name20_0)" " declare-name_1)" @@ -33896,7 +34082,7 @@ static const char *startup_source = "(if with-submodules?_1" "(let-values()" "(declare-submodules_0" -" ns_61" +" ns_62" " post-submodule-names_0" " declare-name_1" " #f))" @@ -33909,19 +34095,19 @@ static const char *startup_source = " declare-this-module_0))" "(void))" "(declare-this-module_0" -" ns_59)))))))))))))))))))))))))))))))))" +" ns_60)))))))))))))))))))))))))))))))))" "(define-values" "(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_67 1 'cache-key))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_68 1 'cache-key))))" "(define-values" "(init-instance-data!)" "(lambda(data-box_4" @@ -34104,34 +34290,34 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_120) phases-h_1))" +"(let-values(((ht_122) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_120)))" -"((letrec-values(((for-loop_231)" -"(lambda(table_183 i_150)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_122)))" +"((letrec-values(((for-loop_235)" +"(lambda(table_184 i_151)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_86 linklet_5)(hash-iterate-key+value ht_120 i_150)))" -"(let-values(((table_184)" -"(let-values(((table_185) table_183))" -"(let-values(((table_136)" +"(if i_151" +"(let-values(((phase_86 linklet_5)(hash-iterate-key+value ht_122 i_151)))" +"(let-values(((table_185)" +"(let-values(((table_186) table_184))" +"(let-values(((table_140)" "(let-values()" -"(let-values(((key_69 val_60)" +"(let-values(((key_70 val_60)" "(let-values()" "(values" " phase_86" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_185 key_69 val_60)))))" -"(values table_136)))))" +"(hash-set table_186 key_70 val_60)))))" +"(values table_140)))))" "(if(not #f)" -"(for-loop_231 table_184(hash-iterate-next ht_120 i_150))" -" table_184)))" -" table_183)))))" -" for-loop_231)" +"(for-loop_235 table_185(hash-iterate-next ht_122 i_151))" +" table_185)))" +" table_184)))))" +" for-loop_235)" " '#hash()" -"(hash-iterate-first ht_120)))))))" +"(hash-iterate-first ht_122)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34142,22 +34328,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_121) provides_9))" +"(let-values(((ht_123) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_97)" -"(lambda(fold-var_59 i_151)" +"(let-values()(check-in-hash ht_123)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_59 i_152)" "(begin" " 'for-loop" -"(if i_151" +"(if i_152" "(let-values(((phase_87 at-phase_11)" -"(hash-iterate-key+value ht_121 i_151)))" +"(hash-iterate-key+value ht_123 i_152)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" "(reverse$1" -"(let-values(((ht_114)" +"(let-values(((ht_116)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34165,69 +34351,69 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_114)))" -"((letrec-values(((for-loop_232)" -"(lambda(fold-var_215" -" i_152)" +" ht_116)))" +"((letrec-values(((for-loop_236)" +"(lambda(fold-var_216" +" i_153)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((sym_59" +"(if i_153" +"(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" -" ht_114" -" i_152)))" -"(let-values(((fold-var_216)" +" ht_116" +" i_153)))" "(let-values(((fold-var_217)" -" fold-var_215))" +"(let-values(((fold-var_218)" +" fold-var_216))" "(if(ok?_24" " b/p_1)" "(let-values(((fold-var_30)" -" fold-var_217))" -"(let-values(((fold-var_218)" +" fold-var_218))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" -"(let-values(((b_72)" +"(let-values(((b_70)" "(provided-as-binding" " b/p_1)))" "(list" -" sym_59" +" sym_58" "(if(eq?" " self_24" "(module-binding-module" -" b_72))" +" b_70))" "(let-values()" " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_85)" +"(let-values(((lst_86)" "(cons" -" b_72" +" b_70" "(module-binding-extra-nominal-bindings" -" b_72))))" +" b_70))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_85)))" -"((letrec-values(((for-loop_233)" +" lst_86)))" +"((letrec-values(((for-loop_237)" "(lambda(fold-var_32" -" lst_270)" +" lst_273)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" -"(let-values(((b_73)" +" lst_273)" +"(let-values(((b_71)" "(unsafe-car" -" lst_270))" +" lst_273))" "((rest_145)" "(unsafe-cdr" -" lst_270)))" -"(let-values(((fold-var_149)" +" lst_273)))" "(let-values(((fold-var_150)" +"(let-values(((fold-var_151)" " fold-var_32))" "(let-values(((fold-var_26)" "(let-values()" @@ -34235,64 +34421,64 @@ static const char *startup_source = "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_73)" +" b_71)" " phase_87)" "(eq?" "(module-binding-nominal-sym" -" b_73)" -" sym_59)" +" b_71)" +" sym_58)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_73))" +" b_71))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_73)" +" b_71)" "(module-binding-phase" -" b_73)" +" b_71)" "(module-binding-nominal-sym" -" b_73)" +" b_71)" "(module-binding-nominal-phase" -" b_73)))))" -" fold-var_150))))" +" b_71)))))" +" fold-var_151))))" "(values" " fold-var_26)))))" "(if(not" " #f)" -"(for-loop_233" -" fold-var_149" +"(for-loop_237" +" fold-var_150" " rest_145)" -" fold-var_149)))" +" fold-var_150)))" " fold-var_32)))))" -" for-loop_233)" +" for-loop_237)" " null" -" lst_85)))))))))" +" lst_86)))))))))" " fold-var_30))))" "(values" -" fold-var_218)))" -" fold-var_217))))" +" fold-var_219)))" +" fold-var_218))))" "(if(not" " #f)" -"(for-loop_232" -" fold-var_216" +"(for-loop_236" +" fold-var_217" "(hash-iterate-next" -" ht_114" -" i_152))" -" fold-var_216)))" -" fold-var_215)))))" -" for-loop_232)" +" ht_116" +" i_153))" +" fold-var_217)))" +" fold-var_216)))))" +" for-loop_236)" " null" "(hash-iterate-first" -" ht_114)))))))" +" ht_116)))))))" "(begin" " #t" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_102)" "(lambda(fold-var_67)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_151)" +"(let-values(((fold-var_152)" "(let-values(((fold-var_27)" " fold-var_67))" "(if(null?" @@ -34322,18 +34508,18 @@ static const char *startup_source = " fold-var_28))))" "(values" " fold-var_29)))))))" -" fold-var_151))))))" -" for-loop_103)" +" fold-var_152))))))" +" for-loop_102)" " fold-var_59)))))" "(if(not #f)" -"(for-loop_97" +"(for-loop_96" " fold-var_60" -"(hash-iterate-next ht_121 i_151))" +"(hash-iterate-next ht_123 i_152))" " fold-var_60)))" " fold-var_59)))))" -" for-loop_97)" +" for-loop_96)" " null" -"(hash-iterate-first ht_121)))))))" +"(hash-iterate-first ht_123)))))))" "(let-values(((result-l1_0) result-l_0)((phaselinklet-directory" -"(let-values(((ht_123)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_125)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_235)" -"(lambda(table_186 i_154)" +"(let-values()(check-in-hash ht_125)))" +"((letrec-values(((for-loop_239)" +"(lambda(table_187 i_155)" "(begin" " 'for-loop" -"(if i_154" -"(let-values(((key_70 val_61)(hash-iterate-key+value ht_123 i_154)))" -"(let-values(((table_187)" -"(let-values(((table_105) table_186))" +"(if i_155" +"(let-values(((key_71 val_61)(hash-iterate-key+value ht_125 i_155)))" "(let-values(((table_188)" +"(let-values(((table_109) table_187))" +"(let-values(((table_189)" "(let-values()" -"(let-values(((key_71 val_62)" +"(let-values(((key_72 val_62)" "(let-values()" "(values" -" key_70" -"(if(not key_70)" +" key_71" +"(if(not key_71)" "(update-one-name" " val_61" " full-name_0)" "(recur_0" " val_61" -" key_70))))))" +" key_71))))))" "(hash-set" -" table_105" -" key_71" +" table_109" +" key_72" " val_62)))))" -"(values table_188)))))" +"(values table_189)))))" "(if(not #f)" -"(for-loop_235 table_187(hash-iterate-next ht_123 i_154))" -" table_187)))" -" table_186)))))" -" for-loop_235)" +"(for-loop_239 table_188(hash-iterate-next ht_125 i_155))" +" table_188)))" +" table_187)))))" +" for-loop_239)" " '#hasheq()" -"(hash-iterate-first ht_123))))))" +"(hash-iterate-first ht_125))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -34593,21 +34779,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_171)))" -"((letrec-values(((for-loop_46)" -"(lambda(ht_124 lst_272)" +"((letrec-values(((for-loop_45)" +"(lambda(ht_126 lst_275)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((submod_1)(unsafe-car lst_272))" -"((rest_147)(unsafe-cdr lst_272)))" -"(let-values(((ht_125)" -"(let-values(((ht_126) ht_124))" -"(let-values(((ht_115)" +"(if(pair? lst_275)" +"(let-values(((submod_1)(unsafe-car lst_275))" +"((rest_147)(unsafe-cdr lst_275)))" +"(let-values(((ht_127)" +"(let-values(((ht_128) ht_126))" +"(let-values(((ht_117)" "(let-values()" "(let-values(((name_54)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_126 name_54 #f)" +"(if(hash-ref ht_128 name_54 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -34616,14 +34802,14 @@ static const char *startup_source = " name_54))" "(let-values()" "(hash-set" -" ht_126" +" ht_128" " name_54" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_115)))))" -"(if(not #f)(for-loop_46 ht_125 rest_147) ht_125)))" -" ht_124)))))" -" for-loop_46)" +"(values ht_117)))))" +"(if(not #f)(for-loop_45 ht_127 rest_147) ht_127)))" +" ht_126)))))" +" for-loop_45)" " '#hasheq()" " lst_171)))" " #f" @@ -34646,8 +34832,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_74)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_74(hash-ref(1/linklet-bundle->hash b_74) 'decl #f) #f))" +"(if(let-values(((b_72)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_72(hash-ref(1/linklet-bundle->hash b_72) 'decl #f) #f))" " #t" " #f)" " #f)))" @@ -34708,36 +34894,36 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_37)" "(let-values()" -"(let-values(((ht_127)(1/linklet-directory->hash c_37)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_127 #f))))" +"(let-values(((ht_129)(1/linklet-directory->hash c_37)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_129 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_77) names_1))" +"(let-values(((lst_78) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_69)" -"(lambda(fold-var_30 lst_273)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_68)" +"(lambda(fold-var_30 lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((name_56)(unsafe-car lst_273))" -"((rest_148)(unsafe-cdr lst_273)))" +"(if(pair? lst_276)" +"(let-values(((name_56)(unsafe-car lst_276))" +"((rest_148)(unsafe-cdr lst_276)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(let-values(((fold-var_33)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_127 name_56))" +"(hash-ref ht_129 name_56))" " fold-var_32))))" "(values fold-var_33)))))" -"(if(not #f)(for-loop_69 fold-var_31 rest_148) fold-var_31)))" +"(if(not #f)(for-loop_68 fold-var_31 rest_148) fold-var_31)))" " fold-var_30)))))" -" for-loop_69)" +" for-loop_68)" " null" -" lst_77))))))))" +" lst_78))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -34768,8 +34954,8 @@ static const char *startup_source = "(if non-star?_1(compiled-in-memory-post-compiled-in-memorys c_38) submods_1)))" "(let-values(((n-c_0)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" -"(let-values(((the-struct_58) n-c_0))" -"(if(compiled-in-memory? the-struct_58)" +"(let-values(((the-struct_57) n-c_0))" +"(if(compiled-in-memory? the-struct_57)" "(let-values(((pre-compiled-in-memorys1_0) pre-compiled-in-memorys_1)" "((post-compiled-in-memorys2_0) post-compiled-in-memorys_1)" "((linklet-directory3_0)" @@ -34787,19 +34973,19 @@ static const char *startup_source = "(rebuild-linklet-directory5.1 temp5_3 #t temp4_1 temp6_0))))" "(compiled-in-memory1.1" " linklet-directory3_0" -"(compiled-in-memory-original-self the-struct_58)" -"(compiled-in-memory-requires the-struct_58)" -"(compiled-in-memory-provides the-struct_58)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_58)" -"(compiled-in-memory-compile-time-inspector the-struct_58)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_58)" -"(compiled-in-memory-mpis the-struct_58)" -"(compiled-in-memory-syntax-literals the-struct_58)" +"(compiled-in-memory-original-self the-struct_57)" +"(compiled-in-memory-requires the-struct_57)" +"(compiled-in-memory-provides the-struct_57)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_57)" +"(compiled-in-memory-compile-time-inspector the-struct_57)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_57)" +"(compiled-in-memory-mpis the-struct_57)" +"(compiled-in-memory-syntax-literals the-struct_57)" " pre-compiled-in-memorys1_0" " post-compiled-in-memorys2_0" -"(compiled-in-memory-namespace-scopes the-struct_58)" -"(compiled-in-memory-purely-functional? the-struct_58)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_58))))))))" +"(compiled-in-memory-namespace-scopes the-struct_57)" +"(compiled-in-memory-purely-functional? the-struct_57)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_57))))))))" "(let-values()" "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" @@ -34880,17 +35066,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_100)" -"(lambda(table_102 pos_100)" +"((letrec-values(((for-loop_99)" +"(lambda(table_106 pos_100)" "(begin" " 'for-loop" "(if(< pos_100 end_27)" "(let-values(((phase-level_20) pos_100))" -"(let-values(((table_109)" -"(let-values(((table_54) table_102))" -"(let-values(((table_189)" +"(let-values(((table_113)" +"(let-values(((table_56) table_106))" +"(let-values(((table_190)" "(let-values()" -"(let-values(((key_72 val_47)" +"(let-values(((key_73 val_47)" "(let-values()" "(let-values(((linklet_6)" "(hash-ref" @@ -34903,11 +35089,11 @@ static const char *startup_source = "(1/linklet-export-variables" " linklet_6)" " null))))))" -"(hash-set table_54 key_72 val_47)))))" -"(values table_189)))))" -"(if(not #f)(for-loop_100 table_109(+ pos_100 inc_21)) table_109)))" -" table_102)))))" -" for-loop_100)" +"(hash-set table_56 key_73 val_47)))))" +"(values table_190)))))" +"(if(not #f)(for-loop_99 table_113(+ pos_100 inc_21)) table_113)))" +" table_106)))))" +" for-loop_99)" " '#hash()" " start_38)))))))))))" "(define-values" @@ -34935,35 +35121,35 @@ static const char *startup_source = "(if(1/linklet-bundle? c_44)" "(let-values()(1/hash->linklet-directory(hasheq #f c_44)))" "(let-values()" -"(let-values(((the-struct_59) c_44))" -"(if(compiled-in-memory? the-struct_59)" +"(let-values(((the-struct_58) c_44))" +"(if(compiled-in-memory? the-struct_58)" "(let-values(((linklet-directory9_0)" "(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_44))))" "(compiled-in-memory1.1" " linklet-directory9_0" -"(compiled-in-memory-original-self the-struct_59)" -"(compiled-in-memory-requires the-struct_59)" -"(compiled-in-memory-provides the-struct_59)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_59)" -"(compiled-in-memory-compile-time-inspector the-struct_59)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_59)" -"(compiled-in-memory-mpis the-struct_59)" -"(compiled-in-memory-syntax-literals the-struct_59)" -"(compiled-in-memory-pre-compiled-in-memorys the-struct_59)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_59)" -"(compiled-in-memory-namespace-scopes the-struct_59)" -"(compiled-in-memory-purely-functional? the-struct_59)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_59)))))))))" +"(compiled-in-memory-original-self the-struct_58)" +"(compiled-in-memory-requires the-struct_58)" +"(compiled-in-memory-provides the-struct_58)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_58)" +"(compiled-in-memory-compile-time-inspector the-struct_58)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_58)" +"(compiled-in-memory-mpis the-struct_58)" +"(compiled-in-memory-syntax-literals the-struct_58)" +"(compiled-in-memory-pre-compiled-in-memorys the-struct_58)" +"(compiled-in-memory-post-compiled-in-memorys the-struct_58)" +"(compiled-in-memory-namespace-scopes the-struct_58)" +"(compiled-in-memory-purely-functional? the-struct_58)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_58)))))))))" "(define-values" "(fixup-submodule-names)" "(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_75 pre?_1 submods_2)" +"(lambda(b_73 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_75)" +"(1/linklet-bundle->hash b_73)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35006,28 +35192,28 @@ static const char *startup_source = "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_119) compiled-submodules_0))" +"(let-values(((ht_121) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_119)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_67 i_155)" +"(let-values()(check-in-hash ht_121)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_67 i_156)" "(begin" " 'for-loop" -"(if i_155" +"(if i_156" "(let-values(((name_58 star?+compiled_0)" "(hash-iterate-key+value" -" ht_119" -" i_155)))" +" ht_121" +" i_156)))" "(let-values(((fold-var_29)" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_153)" " fold-var_67))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_152))" +" fold-var_153))" "(let-values(((fold-var_68)" "(let-values()" "(cons" @@ -35048,16 +35234,16 @@ static const char *startup_source = " star?+compiled_0))))" " fold-var_9))))" "(values fold-var_68)))" -" fold-var_152))))" +" fold-var_153))))" "(if(not #f)" -"(for-loop_103" +"(for-loop_102" " fold-var_29" -"(hash-iterate-next ht_119 i_155))" +"(hash-iterate-next ht_121 i_156))" " fold-var_29)))" " fold-var_67)))))" -" for-loop_103)" +" for-loop_102)" " null" -"(hash-iterate-first ht_119)))))))))" +"(hash-iterate-first ht_121)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" "(let-values(((c1_25)(parsed-module-compiled-module p_35)))" @@ -35137,8 +35323,8 @@ static const char *startup_source = "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_60) cctx_17))" -"(if(compile-context? the-struct_60)" +"(let-values(((the-struct_59) cctx_17))" +"(if(compile-context? the-struct_59)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -35146,17 +35332,17 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_60)" +"(compile-context-namespace the-struct_59)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_60)))" +"(compile-context-header the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_60)))))" +" the-struct_59)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" @@ -35222,7 +35408,7 @@ static const char *startup_source = "(list" "(list get-syntax-literal!-id)" "(list set-transformer!-id)))" -"((temp59_1)" +"((temp59_2)" "(list" " empty-syntax-literals-instance" " empty-module-body-instance))" @@ -35241,39 +35427,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_382)" +"(let-values(((s_381)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_382))" +" s_381))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_383)" +"(let-values(((s_382)" "(if(syntax?$1" -" s_382)" +" s_381)" "(syntax-e$1" -" s_382)" -" s_382)))" +" s_381)" +" s_381)))" "(if(pair?" -" s_383)" +" s_382)" "(let-values(((_71_0)" "(let-values(((s_56)" "(car" -" s_383)))" +" s_382)))" " s_56))" "((kw72_0)" -"(let-values(((s_384)" +"(let-values(((s_383)" "(cdr" -" s_383)))" -"(let-values(((s_385)" +" s_382)))" +"(let-values(((s_384)" "(if(syntax?$1" -" s_384)" +" s_383)" "(syntax-e$1" -" s_384)" -" s_384)))" +" s_383)" +" s_383)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_385)))" +" s_384)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35295,7 +35481,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_274)" +"(let-values(((lst_277)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35303,7 +35489,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_274)))" +" lst_277)))" "((letrec-values(((for-loop_13)" "(lambda(lst_29)" "(begin" @@ -35352,22 +35538,22 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_13)" -" lst_274)))" +" lst_277)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" "(lambda(mod-name_17 phase_89)" -"(let-values(((ht_41)" +"(let-values(((ht_130)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_41" +"(if ht_130" "(hash-ref" -" ht_41" +" ht_130" " phase_89" " #f)" " #f))))" @@ -35375,7 +35561,7 @@ static const char *startup_source = "((serializable?68_0)" " serializable?_3))" "(compile-forms31.1" -" temp59_1" +" temp59_2" " temp58_1" " temp60_2" " #t" @@ -35409,32 +35595,32 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_128)" +"(let-values(((ht_131)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_128)))" -"((letrec-values(((for-loop_236)" -"(lambda(table_190" -" i_156)" +"(check-in-hash ht_131)))" +"((letrec-values(((for-loop_240)" +"(lambda(table_191" +" i_157)" "(begin" " 'for-loop" -"(if i_156" +"(if i_157" "(let-values(((phase_90" " linklet_7)" "(hash-iterate-key+value" -" ht_128" -" i_156)))" -"(let-values(((table_46)" -"(let-values(((table_47)" -" table_190))" -"(let-values(((table_48)" +" ht_131" +" i_157)))" +"(let-values(((table_192)" +"(let-values(((table_193)" +" table_191))" +"(let-values(((table_194)" "(let-values()" -"(let-values(((key_21" -" val_11)" +"(let-values(((key_74" +" val_63)" "(let-values()" "(values" " phase_90" @@ -35454,23 +35640,23 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_47" -" key_21" -" val_11)))))" +" table_193" +" key_74" +" val_63)))))" "(values" -" table_48)))))" +" table_194)))))" "(if(not" " #f)" -"(for-loop_236" -" table_46" +"(for-loop_240" +" table_192" "(hash-iterate-next" -" ht_128" -" i_156))" -" table_46)))" -" table_190)))))" -" for-loop_236)" +" ht_131" +" i_157))" +" table_192)))" +" table_191)))))" +" for-loop_240)" " '#hasheq()" -"(hash-iterate-first ht_128))))))" +"(hash-iterate-first ht_131))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -35530,12 +35716,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_85)" +"(lambda(s_84)" "(let-values()" "(let-values(((linklet_8" " new-keys_1)" "(1/compile-linklet" -" s_85" +" s_84" " 'syntax-literals" "(vector" " deserialize-instance" @@ -35598,10 +35784,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_386)" +"(lambda(s_385)" "(let-values()" "(1/compile-linklet" -" s_386" +" s_385" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -35630,10 +35816,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_199)" +"(lambda(s_198)" "(let-values()" "(1/compile-linklet" -" s_199" +" s_198" " 'data))))" "(list" " 'linklet" @@ -35659,10 +35845,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_258)" +"(let-values(((or-part_261)" " declaration-linklet_0))" -"(if or-part_258" -" or-part_258" +"(if or-part_261" +" or-part_261" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -35787,26 +35973,26 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_155)))" -"((letrec-values(((for-loop_177)" -"(lambda(ht_129" -" lst_107)" +"((letrec-values(((for-loop_178)" +"(lambda(ht_132" +" lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_107)" +" lst_108)" "(let-values(((sm_0)" "(unsafe-car" -" lst_107))" +" lst_108))" "((rest_78)" "(unsafe-cdr" -" lst_107)))" -"(let-values(((ht_130)" -"(let-values(((ht_131)" -" ht_129))" -"(let-values(((ht_120)" +" lst_108)))" +"(let-values(((ht_133)" +"(let-values(((ht_134)" +" ht_132))" +"(let-values(((ht_122)" "(let-values()" "(hash-set" -" ht_131" +" ht_134" "(car" " sm_0)" "((if to-source?_4" @@ -35815,15 +36001,15 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_120)))))" +" ht_122)))))" "(if(not" " #f)" -"(for-loop_177" -" ht_130" +"(for-loop_178" +" ht_133" " rest_78)" -" ht_130)))" -" ht_129)))))" -" for-loop_177)" +" ht_133)))" +" ht_132)))))" +" for-loop_178)" "(hasheq #f bundle_1)" " lst_155))))))))" "(if to-source?_4" @@ -35857,23 +36043,23 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_275) pre-submodules_2))" +"(let-values(((lst_278) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" -"((letrec-values(((for-loop_237)" -"(lambda(lst_276)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_241)" +"(lambda(lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((s_387)(unsafe-car lst_276))((rest_150)(unsafe-cdr lst_276)))" +"(if(pair? lst_279)" +"(let-values(((s_386)(unsafe-car lst_279))((rest_150)(unsafe-cdr lst_279)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_61)(car s_387)))" -"(let-values(((cim_10)(cdr s_387)))" +"(let-values(((name_61)(car s_386)))" +"(let-values(((cim_10)(cdr s_386)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -35894,7 +36080,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_132)" +"(let-values(((ht_135)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -35908,37 +36094,37 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_132)))" -"((letrec-values(((for-loop_238)" -"(lambda(table_191" +"(check-in-hash ht_135)))" +"((letrec-values(((for-loop_242)" +"(lambda(table_195" " i_5)" "(begin" " 'for-loop" "(if i_5" -"(let-values(((phase_13" +"(let-values(((phase_2" " linklet_9)" "(hash-iterate-key+value" -" ht_132" +" ht_135" " i_5)))" -"(let-values(((table_192)" -"(let-values(((table_193)" -" table_191))" +"(let-values(((table_196)" +"(let-values(((table_197)" +" table_195))" "(if(number?" -" phase_13)" -"(let-values(((table_194)" -" table_193))" -"(let-values(((table_195)" +" phase_2)" +"(let-values(((table_198)" +" table_197))" +"(let-values(((table_46)" "(let-values()" -"(let-values(((key_73" -" val_63)" +"(let-values(((key_75" +" val_64)" "(let-values()" "(values" -" phase_13" +" phase_2" "(module-linklet-info2.1" " linklet_9" "(hash-ref" " phase-to-link-module-uses_5" -" phase_13" +" phase_2" " #f)" "(compiled-in-memory-original-self" " cim_10)" @@ -35948,35 +36134,35 @@ static const char *startup_source = "(if phase-to-extra-inspectorsss_0" "(hash-ref" " phase-to-extra-inspectorsss_0" -" phase_13" +" phase_2" " #f)" " #f))))))" "(hash-set" -" table_194" -" key_73" -" val_63)))))" +" table_198" +" key_75" +" val_64)))))" "(values" -" table_195)))" -" table_193))))" +" table_46)))" +" table_197))))" "(if(not" " #f)" -"(for-loop_238" -" table_192" +"(for-loop_242" +" table_196" "(hash-iterate-next" -" ht_132" +" ht_135" " i_5))" -" table_192)))" -" table_191)))))" -" for-loop_238)" +" table_196)))" +" table_195)))))" +" for-loop_242)" " '#hasheq()" "(hash-iterate-first" -" ht_132))))))))))))" +" ht_135))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_237 rest_150)(values))))" +"(if(not #f)(for-loop_241 rest_150)(values))))" "(values))))))" -" for-loop_237)" -" lst_275)))" +" for-loop_241)" +" lst_278)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -35999,20 +36185,20 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_133)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_136)(1/linklet-bundle->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_133)))" -"((letrec-values(((for-loop_239)" -"(lambda(table_196 i_157)" +"(let-values()(check-in-hash ht_136)))" +"((letrec-values(((for-loop_243)" +"(lambda(table_199 i_158)" "(begin" " 'for-loop" -"(if i_157" -"(let-values(((k_32 v_67)(hash-iterate-key+value ht_133 i_157)))" -"(let-values(((table_197)" -"(let-values(((table_198) table_196))" -"(let-values(((table_199)" +"(if i_158" +"(let-values(((k_32 v_67)(hash-iterate-key+value ht_136 i_158)))" +"(let-values(((table_200)" +"(let-values(((table_201) table_199))" +"(let-values(((table_202)" "(let-values()" "(let-values(((key_28 val_18)" "(let-values()" @@ -36024,34 +36210,34 @@ static const char *startup_source = " v_67)))" "(let-values()" "(values k_32 v_67))))))" -"(hash-set table_198 key_28 val_18)))))" -"(values table_199)))))" +"(hash-set table_201 key_28 val_18)))))" +"(values table_202)))))" "(if(not #f)" -"(for-loop_239 table_197(hash-iterate-next ht_133 i_157))" -" table_197)))" -" table_196)))))" -" for-loop_239)" +"(for-loop_243 table_200(hash-iterate-next ht_136 i_158))" +" table_200)))" +" table_199)))))" +" for-loop_243)" " '#hasheq()" -"(hash-iterate-first ht_133))))))" +"(hash-iterate-first ht_136))))))" "(if(1/linklet-directory? c_31)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_134)(1/linklet-directory->hash c_31)))" +"(let-values(((ht_137)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_134)))" -"((letrec-values(((for-loop_240)" -"(lambda(table_200 i_158)" +"(let-values()(check-in-hash ht_137)))" +"((letrec-values(((for-loop_244)" +"(lambda(table_203 i_159)" "(begin" " 'for-loop" -"(if i_158" -"(let-values(((k_33 v_1)(hash-iterate-key+value ht_134 i_158)))" -"(let-values(((table_201)" -"(let-values(((table_202) table_200))" -"(let-values(((table_203)" +"(if i_159" +"(let-values(((k_33 v_1)(hash-iterate-key+value ht_137 i_159)))" +"(let-values(((table_204)" +"(let-values(((table_205) table_203))" +"(let-values(((table_206)" "(let-values()" -"(let-values(((key_74 val_64)" +"(let-values(((key_76 val_65)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -36062,39 +36248,39 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_33 v_1))))))" -"(hash-set table_202 key_74 val_64)))))" -"(values table_203)))))" +"(hash-set table_205 key_76 val_65)))))" +"(values table_206)))))" "(if(not #f)" -"(for-loop_240 table_201(hash-iterate-next ht_134 i_158))" -" table_201)))" -" table_200)))))" -" for-loop_240)" +"(for-loop_244 table_204(hash-iterate-next ht_137 i_159))" +" table_204)))" +" table_203)))))" +" for-loop_244)" " '#hasheq()" -"(hash-iterate-first ht_134))))))" +"(hash-iterate-first ht_137))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" -"(lambda(tops_0 data-linklet_1 ns_58)" +"(lambda(tops_0 data-linklet_1 ns_59)" "(begin" "(let-values(((data-instance_5)" "(1/instantiate-linklet" " data-linklet_1" "(list" " deserialize-instance" -"(let-values(((ns1_1) ns_58)" -"((temp2_3)(namespace-phase ns_58))" -"((temp3_3)(namespace-mpi ns_58))" -"((temp4_2)(namespace-bulk-binding-registry ns_58))" +"(let-values(((ns1_1) ns_59)" +"((temp2_3)(namespace-phase ns_59))" +"((temp3_3)(namespace-mpi ns_59))" +"((temp4_2)(namespace-bulk-binding-registry ns_59))" "((temp5_4)(current-code-inspector)))" "(make-eager-instance-instance11.1 temp4_2 temp2_3 temp5_4 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_75)(begin 'data(1/instance-variable-value data-instance_5 key_75)))))" +"(let-values(((data_0)(lambda(key_77)(begin 'data(1/instance-variable-value data-instance_5 key_77)))))" "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" "(let-values(((phase-to-link-modules-vector_0)(data_0 'phase-to-link-modules-vector)))" "(let-values(((phase-to-link-modules-trees_0)(data_0 'phase-to-link-modules-trees)))" "(let-values(((syntax-literals_5)(data_0 'syntax-literals)))" "(let-values(((syntax-literals-trees_1)(data_0 'syntax-literals-trees)))" -"(let-values(((namespace-scopes_0)(extract-namespace-scopes ns_58)))" +"(let-values(((namespace-scopes_0)(extract-namespace-scopes ns_59)))" "(letrec-values(((construct-compiled-in-memory_0)" "(lambda(ld_6" " mpi-vector-tree_0" @@ -36106,13 +36292,13 @@ static const char *startup_source = "(let-values(((or-part_75)(1/linklet-bundle? ld_6)))" "(if or-part_75" " or-part_75" -"(let-values(((b_76)" +"(let-values(((b_74)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_76" -"(hash-ref(1/linklet-bundle->hash b_76) 'decl #f)" +"(if b_74" +"(hash-ref(1/linklet-bundle->hash b_74) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36130,8 +36316,8 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_266) l_10)" -"((lst_87)" +"(let-values(((lst_269) l_10)" +"((lst_88)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" @@ -36139,7 +36325,7 @@ static const char *startup_source = "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_264)" +"((lst_267)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36147,11 +36333,11 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_269)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36159,32 +36345,32 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_225)" -"(lambda(fold-var_152" -" lst_267" +"(let-values()(check-list lst_267)))" +"((letrec-values(((for-loop_229)" +"(lambda(fold-var_153" +" lst_270" " lst_24" " lst_170" -" lst_88)" +" lst_89)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_267)" +" lst_270)" "(if(pair?" " lst_24)" "(if(pair?" " lst_170)" "(pair?" -" lst_88)" +" lst_89)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_267))" +" lst_270))" "((rest_151)" "(unsafe-cdr" -" lst_267))" +" lst_270))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36199,14 +36385,14 @@ static const char *startup_source = " lst_170))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_88))" +" lst_89))" "((rest_36)" "(unsafe-cdr" -" lst_88)))" -"(let-values(((fold-var_164)" +" lst_89)))" "(let-values(((fold-var_165)" -" fold-var_152))" "(let-values(((fold-var_166)" +" fold-var_153))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -36215,24 +36401,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_165))))" +" fold-var_166))))" "(values" -" fold-var_166)))))" +" fold-var_167)))))" "(if(not #f)" -"(for-loop_225" -" fold-var_164" +"(for-loop_229" +" fold-var_165" " rest_151" " rest_152" " rest_87" " rest_36)" -" fold-var_164)))" -" fold-var_152)))))" -" for-loop_225)" +" fold-var_165)))" +" fold-var_153)))))" +" for-loop_229)" " null" -" lst_266" -" lst_87" +" lst_269" +" lst_88" " lst_161" -" lst_264))))))))" +" lst_267))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36268,8 +36454,8 @@ static const char *startup_source = " vec_61))))))" "(begin" " #f" -"((letrec-values(((for-loop_100)" -"(lambda(i_159 pos_100)" +"((letrec-values(((for-loop_99)" +"(lambda(i_160 pos_100)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36279,40 +36465,40 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_60" " pos_100)))" -"(let-values(((i_160)" -"(let-values(((i_94)" -" i_159))" -"(let-values(((i_58)" +"(let-values(((i_161)" +"(let-values(((i_93)" +" i_160))" +"(let-values(((i_57)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_63" -" i_94" +" i_93" "(let-values()" "(vector-ref" " mpi-vector_0" " pos_101)))" "(unsafe-fx+" " 1" -" i_94)))))" +" i_93)))))" "(values" -" i_58)))))" +" i_57)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_160" +" i_161" " len_29))" " pos_101))" "(not #f)" " #f)" -"(for-loop_100" -" i_160" +"(for-loop_99" +" i_161" "(unsafe-fx+" " 1" " pos_100))" -" i_160)))" -" i_159)))))" -" for-loop_100)" +" i_161)))" +" i_160)))))" +" for-loop_99)" " 0" " 0)))))" " v_63))))" @@ -36340,17 +36526,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_241)" -"(lambda(i_161 pos_102)" +"((letrec-values(((for-loop_245)" +"(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_163)" "(let-values(((i_34)" -" i_161))" -"(let-values(((i_95)" +" i_162))" +"(let-values(((i_94)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36369,23 +36555,23 @@ static const char *startup_source = " 1" " i_34)))))" "(values" -" i_95)))))" +" i_94)))))" "(if(if(not" -"((lambda x_71" +"((lambda x_72" "(unsafe-fx=" -" i_162" +" i_163" " len_31))" " i_20))" "(not #f)" " #f)" -"(for-loop_241" -" i_162" +"(for-loop_245" +" i_163" "(+" " pos_102" " inc_22))" -" i_162)))" -" i_161)))))" -" for-loop_241)" +" i_163)))" +" i_162)))))" +" for-loop_245)" " 0" " start_15)))))" " v_34))))" @@ -36417,16 +36603,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_242)" -"(lambda(fold-var_5 lst_277)" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_5 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((name_44)(unsafe-car lst_277))" -"((rest_153)(unsafe-cdr lst_277)))" -"(let-values(((fold-var_223)" -"(let-values(((fold-var_224) fold-var_5))" -"(let-values(((fold-var_225)" +"(if(pair? lst_280)" +"(let-values(((name_44)(unsafe-car lst_280))" +"((rest_153)(unsafe-cdr lst_280)))" +"(let-values(((fold-var_224)" +"(let-values(((fold-var_225) fold-var_5))" +"(let-values(((fold-var_226)" "(let-values()" "(cons" "(let-values()" @@ -36437,11 +36623,11 @@ static const char *startup_source = "(error" " \"missing submodule declaration:\"" " name_44))))" -" fold-var_224))))" -"(values fold-var_225)))))" -"(if(not #f)(for-loop_242 fold-var_223 rest_153) fold-var_223)))" +" fold-var_225))))" +"(values fold-var_226)))))" +"(if(not #f)(for-loop_246 fold-var_224 rest_153) fold-var_224)))" " fold-var_5)))))" -" for-loop_242)" +" for-loop_246)" " null" " lst_175))))))))))))))" "(define-values" @@ -36463,21 +36649,21 @@ static const char *startup_source = "(begin" " 'eval-top7" "(let-values(((c_47) c5_0))" -"(let-values(((ns_65) ns6_1))" +"(let-values(((ns_66) ns6_1))" "(let-values(((eval-compiled_0)(if eval-compiled3_0 eval-compiled1_0 eval-top)))" "(let-values(((as-tail?_0)(if as-tail?4_0 as-tail?2_0 #t)))" "(let-values()" "(if(compiled-multiple-top? c_47)" -"(eval-multiple-tops c_47 ns_65 eval-compiled_0 as-tail?_0)" -"(let-values(((c21_0) c_47)((ns22_0) ns_65)((as-tail?23_0) as-tail?_0))" +"(eval-multiple-tops c_47 ns_66 eval-compiled_0 as-tail?_0)" +"(let-values(((c21_0) c_47)((ns22_0) ns_66)((as-tail?23_0) as-tail?_0))" "(eval-one-top15.1 #f #f c21_0 ns22_0 as-tail?23_0 #t))))))))))))" "(case-lambda" -"((c_48 ns_66)(begin(eval-top7_0 c_48 ns_66 #f #f #f #f)))" -"((c_49 ns_67 eval-compiled_1 as-tail?2_1)(eval-top7_0 c_49 ns_67 eval-compiled_1 as-tail?2_1 #t #t))" -"((c_38 ns_68 eval-compiled1_1)(eval-top7_0 c_38 ns_68 eval-compiled1_1 #f #t #f)))))" +"((c_48 ns_67)(begin(eval-top7_0 c_48 ns_67 #f #f #f #f)))" +"((c_49 ns_68 eval-compiled_1 as-tail?2_1)(eval-top7_0 c_49 ns_68 eval-compiled_1 as-tail?2_1 #t #t))" +"((c_38 ns_69 eval-compiled1_1)(eval-top7_0 c_38 ns_69 eval-compiled1_1 #f #t #f)))))" "(define-values" "(eval-multiple-tops)" -"(lambda(c_50 ns_45 eval-compiled_2 as-tail?_1)" +"(lambda(c_50 ns_46 eval-compiled_2 as-tail?_1)" "(begin" "(let-values(((eval-compiled-parts_0)" "(lambda(l_11)" @@ -36490,10 +36676,10 @@ static const char *startup_source = "(if(null? l_12)" "(let-values() void)" "(if(null?(cdr l_12))" -"(let-values()(eval-compiled_2(car l_12) ns_45 as-tail?_1))" +"(let-values()(eval-compiled_2(car l_12) ns_46 as-tail?_1))" "(let-values()" "(begin" -"(eval-compiled_2(car l_12) ns_45 #f)" +"(eval-compiled_2(car l_12) ns_46 #f)" "(loop_37(cdr l_12))))))))))" " loop_37)" " l_11)))))" @@ -36506,7 +36692,7 @@ static const char *startup_source = "(create-compiled-in-memorys-using-shared-data" "(compiled-top->compiled-tops c_50)" "(hash-ref(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash data-ld_0) #f)) 0)" -" ns_45)))" +" ns_46)))" " c1_26)" "(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_50))))))))))" "(define-values" @@ -36515,7 +36701,7 @@ static const char *startup_source = "(begin" " 'eval-one-top15" "(let-values(((c_51) c13_0))" -"(let-values(((ns_69) ns14_1))" +"(let-values(((ns_70) ns14_1))" "(let-values(((as-tail?_2)(if as-tail?12_0 as-tail?11_0 #t)))" "(let-values(((single-expression?_1)(if single-expression?10_0 single-expression?9_0 #f)))" "(let-values()" @@ -36527,15 +36713,15 @@ static const char *startup_source = "(if(compiled-in-memory? c_51)" "(link-instance-from-compiled-in-memory" " c_51" -"(if(not single-expression?_1) ns_69 #f))" +"(if(not single-expression?_1) ns_70 #f))" "(1/instantiate-linklet" "(hash-ref h_11 'link)" "(list" " deserialize-instance" -"(let-values(((ns24_0) ns_69)" -"((temp25_4)(namespace-phase ns_69))" -"((temp26_2)(namespace-mpi ns_69))" -"((temp27_4)(namespace-bulk-binding-registry ns_69))" +"(let-values(((ns24_0) ns_70)" +"((temp25_4)(namespace-phase ns_70))" +"((temp26_2)(namespace-mpi ns_70))" +"((temp27_4)(namespace-bulk-binding-registry ns_70))" "((temp28_2)(current-code-inspector)))" "(make-eager-instance-instance11.1" " temp27_4" @@ -36545,7 +36731,7 @@ static const char *startup_source = " temp26_2)))))))" "(let-values(((orig-phase_1)(hash-ref h_11 'original-phase)))" "(let-values(((max-phase_5)(hash-ref h_11 'max-phase)))" -"(let-values(((phase-shift_19)(phase-(namespace-phase ns_69) orig-phase_1)))" +"(let-values(((phase-shift_19)(phase-(namespace-phase ns_70) orig-phase_1)))" "(let-values(((extra-inspector_7)" "(if(compiled-in-memory? c_51)" "(compiled-in-memory-compile-time-inspector c_51)" @@ -36566,7 +36752,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_229)" +"((letrec-values(((for-loop_233)" "(lambda(prev-thunk_0 pos_103)" "(begin" " 'for-loop" @@ -36591,7 +36777,7 @@ static const char *startup_source = " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_225)" +"(let-values(((lst_226)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -36599,21 +36785,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_225)))" -"((letrec-values(((for-loop_95)" +" lst_226)))" +"((letrec-values(((for-loop_94)" "(lambda(mis_7" " is_6" -" lst_226)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_227)" "(let-values(((mu_9)" "(unsafe-car" -" lst_226))" +" lst_227))" "((rest_119)" "(unsafe-cdr" -" lst_226)))" +" lst_227)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -36627,7 +36813,7 @@ static const char *startup_source = " is30_0)" "(let-values()" "(let-values(((ns31_0)" -" ns_69)" +" ns_70)" "((mu32_0)" " mu_9)" "((temp33_1)" @@ -36657,7 +36843,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_95" +"(for-loop_94" " mis_8" " is_7" " rest_119)" @@ -36667,10 +36853,10 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_95)" +" for-loop_94)" " null" " null" -" lst_225)))))" +" lst_226)))))" "(values" "(reverse$1" " mis_6)" @@ -36678,7 +36864,7 @@ static const char *startup_source = " is_5)))))" "(let-values(((phase-ns_0)" "(namespace->namespace-at-phase" -" ns_69" +" ns_70" "(phase+" " phase_91" " phase-shift_19))))" @@ -36691,26 +36877,26 @@ static const char *startup_source = " phase-shift_19)" "((temp36_3)" "(namespace-mpi" -" ns_69))" +" ns_70))" "((temp37_1)" "(namespace-inspector" -" ns_69))" -"((temp38_1)" +" ns_70))" +"((temp38_2)" "(namespace-bulk-binding-registry" -" ns_69))" +" ns_70))" "((temp39_3)" "(lambda(name_45" -" val_65)" +" val_66)" "(namespace-set-transformer!" -" ns_69" +" ns_70" "(phase+" "(sub1" " phase_91)" " phase-shift_19)" " name_45" -" val_65))))" +" val_66))))" "(make-instance-instance13.1" -" temp38_1" +" temp38_2" " temp37_1" " phase-ns34_0" " phase-shift35_0" @@ -36763,13 +36949,13 @@ static const char *startup_source = " inst_6" " import-instances_1)" "(namespace->instance" -" ns_69" +" ns_70" "(phase-" "(phase+" " phase_91" " phase-shift_19)" "(namespace-0-phase" -" ns_69)))" +" ns_70)))" "(not" " tail?_49))))))" "(if(zero-phase?" @@ -36828,12 +37014,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_229" +"(for-loop_233" " prev-thunk_1" "(+ pos_103 inc_23))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_229)" +" for-loop_233)" " void" " start_39)))))" "(thunk_3 as-tail?_2))))))))))))))))))))" @@ -36868,41 +37054,41 @@ static const char *startup_source = "(values vec_63(unsafe-vector-length vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_35)" -"(lambda(i_163 pos_104)" +"((letrec-values(((for-loop_247)" +"(lambda(i_164 pos_104)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_104 len_33)" -"(let-values(((s_388)" +"(let-values(((s_387)" "(unsafe-vector-ref vec_62 pos_104)))" -"(let-values(((i_164)" -"(let-values(((i_165) i_163))" -"(let-values(((i_166)" +"(let-values(((i_165)" +"(let-values(((i_166) i_164))" +"(let-values(((i_167)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_185" -" i_165" +" i_166" "(let-values()" "(swap-top-level-scopes" -" s_388" +" s_387" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" "(unsafe-fx+" " 1" -" i_165)))))" -"(values i_166)))))" +" i_166)))))" +"(values i_167)))))" "(if(if(not" -"((lambda x_72" -"(unsafe-fx= i_164 len_32))" -" s_388))" +"((lambda x_73" +"(unsafe-fx= i_165 len_32))" +" s_387))" "(not #f)" " #f)" -"(for-loop_35 i_164(unsafe-fx+ 1 pos_104))" -" i_164)))" -" i_163)))))" -" for-loop_35)" +"(for-loop_247 i_165(unsafe-fx+ 1 pos_104))" +" i_165)))" +" i_164)))))" +" for-loop_247)" " 0" " 0)))))" " v_185)))))))))" @@ -36923,29 +37109,31 @@ static const char *startup_source = "(if(parsed-app? p_42)" "(let-values()" "(if(can-direct-eval?(parsed-app-rator p_42) ns_42 self-mpi_3)" -"(let-values(((lst_99)(parsed-app-rands p_42)))" +"(let-values(((lst_100)(parsed-app-rands p_42)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_108)" -"(lambda(result_107 lst_6)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_107)" +"(lambda(result_111 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" "(let-values(((r_41)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" -"(let-values(((result_74)" +"(let-values(((result_79)" "(let-values()" -"(let-values(((result_108)" +"(let-values(((result_112)" "(let-values()" "(let-values()" "(can-direct-eval? r_41 ns_42 self-mpi_3)))))" -"(values result_108)))))" -"(if(if(not((lambda x_73(not result_74)) r_41))(not #f) #f)" -"(for-loop_108 result_74 rest_47)" -" result_74)))" -" result_107)))))" -" for-loop_108)" +"(values result_112)))))" +"(if(if(not((lambda x_74(not result_79)) r_41))(not #f) #f)" +"(for-loop_107 result_79 rest_47)" +" result_79)))" +" result_111)))))" +" for-loop_107)" " #t" -" lst_99)))" +" lst_100)))" " #f))" "(if(parsed-id? p_42)" "(let-values()(not(eq?(get-id-value p_42 ns_42 self-mpi_3) not-available)))" @@ -36954,77 +37142,77 @@ static const char *startup_source = "(if(parsed-quote-syntax? p_42)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_46 ns_70 self-mpi_4)" +"(lambda(p_46 ns_71 self-mpi_4)" "(begin" "(if(parsed-app? p_46)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_46) ns_70 self-mpi_4)" +"(direct-eval(parsed-app-rator p_46) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_76)(parsed-app-rands p_46)))" +"(let-values(((lst_77)(parsed-app-rands p_46)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_92)" -"(lambda(fold-var_226 lst_77)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_91)" +"(lambda(fold-var_227 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((r_8)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" -"(let-values(((fold-var_218)" -"(let-values(((fold-var_65) fold-var_226))" -"(let-values(((fold-var_227)" +"(if(pair? lst_78)" +"(let-values(((r_8)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(let-values(((fold-var_219)" +"(let-values(((fold-var_65) fold-var_227))" +"(let-values(((fold-var_228)" "(let-values()" "(cons" "(let-values()" -"(direct-eval r_8 ns_70 self-mpi_4))" +"(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_65))))" -"(values fold-var_227)))))" -"(if(not #f)(for-loop_92 fold-var_218 rest_35) fold-var_218)))" -" fold-var_226)))))" -" for-loop_92)" +"(values fold-var_228)))))" +"(if(not #f)(for-loop_91 fold-var_219 rest_35) fold-var_219)))" +" fold-var_227)))))" +" for-loop_91)" " null" -" lst_76))))))" +" lst_77))))))" "(if(parsed-id? p_46)" -"(let-values()(get-id-value p_46 ns_70 self-mpi_4))" +"(let-values()(get-id-value p_46 ns_71 self-mpi_4))" "(if(parsed-quote? p_46)" "(let-values()(parsed-quote-datum p_46))" "(if(parsed-quote-syntax? p_46)(let-values()(parsed-quote-syntax-datum p_46))(let-values() #f))))))))" "(define-values" "(get-id-value)" -"(lambda(p_1 ns_71 self-mpi_5)" +"(lambda(p_1 ns_72 self-mpi_5)" "(begin" -"(let-values(((b_73)(parsed-id-binding p_1)))" +"(let-values(((b_71)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_73) get-not-available))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_71) get-not-available))" "(if(let-values(((or-part_74)(parsed-top-id? p_1)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(not b_73)))" -"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_73))))))" +"(let-values(((or-part_75)(not b_71)))" +"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_71))))))" "(let-values()" "(namespace-get-variable" -" ns_71" -"(if b_73(module-binding-phase b_73)(namespace-phase ns_71))" -"(if b_73(module-binding-sym b_73)(syntax-e$1(parsed-s p_1)))" +" ns_72" +"(if b_71(module-binding-phase b_71)(namespace-phase ns_72))" +"(if b_71(module-binding-sym b_71)(syntax-e$1(parsed-s p_1)))" " get-not-available))" "(let-values()" "(let-values(((mi_18)" -"(let-values(((ns1_2) ns_71)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_73)))" -"((temp3_4)(phase-(namespace-phase ns_71)(module-binding-phase b_73))))" +"(let-values(((ns1_2) ns_72)" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_71)))" +"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_71))))" "(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_73)" -"(module-binding-sym b_73)" -"(module-binding-extra-inspector b_73))" +"(module-binding-phase b_71)" +"(module-binding-sym b_71)" +"(module-binding-extra-inspector b_71))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_73)" -"(module-binding-sym b_73)" +"(module-binding-phase b_71)" +"(module-binding-sym b_71)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37033,12 +37221,12 @@ static const char *startup_source = "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))" "(define-values" "(add-runtime-primitive!)" -"(lambda(sym_60)" +"(lambda(sym_59)" "(begin" "(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_60)" +"((sym2_0) sym_59)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_2) sym_60))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_2) sym_59))" "(make-module-binding22.1" " #f" " #f" @@ -37078,30 +37266,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:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(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:_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?))))" +" 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?))))" "(define-values" "(struct:lifted-bind lifted-bind2.1 lifted-bind? lifted-bind-ids lifted-bind-keys lifted-bind-rhs)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" "(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:_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))))" +" 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))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 module*-ok?4_0 convert5_0)" @@ -37124,54 +37312,54 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_93)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_278) ids_17))" +"(let-values(((lst_281) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_243)" -"(lambda(fold-var_228 lst_279)" +"(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_229 lst_282)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((id_57)(unsafe-car lst_279))" -"((rest_154)(unsafe-cdr lst_279)))" +"(if(pair? lst_282)" +"(let-values(((id_57)(unsafe-car lst_282))" +"((rest_154)(unsafe-cdr lst_282)))" "(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_228))" -"(let-values(((fold-var_229)" +"(let-values(((fold-var_82) fold-var_229))" +"(let-values(((fold-var_230)" "(let-values()" "(cons" "(let-values()" -"(let-values(((key_76)" -"(let-values(((id32_1)" +"(let-values(((key_78)" +"(let-values(((id32_0)" " id_57)" -"((phase33_1)" +"((phase33_0)" " phase_93)" -"((counter34_1)" +"((counter34_0)" " counter_3))" -"(add-local-binding!35.1" +"(add-local-binding!37.1" " #f" " #f" " #f" " #f" -" id32_1" -" phase33_1" -" counter34_1))))" +" id32_0" +" phase33_0" +" counter34_0))))" "(begin" "(set-box!" " lift-env_1" "(hash-set" "(unbox lift-env_1)" -" key_76" +" key_78" " variable))" -" key_76)))" +" key_78)))" " fold-var_82))))" -"(values fold-var_229)))))" -"(if(not #f)(for-loop_243 fold-var_81 rest_154) fold-var_81)))" -" fold-var_228)))))" -" for-loop_243)" +"(values fold-var_230)))))" +"(if(not #f)(for-loop_248 fold-var_81 rest_154) fold-var_81)))" +" fold-var_229)))))" +" for-loop_248)" " null" -" lst_278))))))" +" lst_281))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37183,36 +37371,36 @@ 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_280) ids_18))" +"(let-values(((lst_283) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_244)" -"(lambda(fold-var_230 lst_180)" +"(let-values()(check-list lst_283)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_231 lst_180)" "(begin" " 'for-loop" "(if(pair? lst_180)" "(let-values(((id_58)(unsafe-car lst_180))" "((rest_155)(unsafe-cdr lst_180)))" -"(let-values(((fold-var_231)" -"(let-values(((fold-var_232) fold-var_230))" -"(let-values(((fold-var_233)" +"(let-values(((fold-var_232)" +"(let-values(((fold-var_233) fold-var_231))" +"(let-values(((fold-var_234)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_58" " post-scope_0))" -" fold-var_232))))" -"(values fold-var_233)))))" +" fold-var_233))))" +"(values fold-var_234)))))" "(if(not #f)" -"(for-loop_244 fold-var_231 rest_155)" -" fold-var_231)))" -" fold-var_230)))))" -" for-loop_244)" +"(for-loop_249 fold-var_232 rest_155)" +" fold-var_232)))" +" fold-var_231)))))" +" for-loop_249)" " null" -" lst_280))))))" +" lst_283))))))" "(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" @@ -37221,10 +37409,10 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_281)(reverse$1 lifts_3)))" +"(let-values(((lst_284)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_245)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_250)" "(lambda(body_6 lst_189)" "(begin" " 'for-loop" @@ -37249,11 +37437,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_245 body_7 rest_98) body_7)))" +"(if(not #f)(for-loop_250 body_7 rest_98) body_7)))" " body_6)))))" -" for-loop_245)" +" for-loop_250)" " body_5" -" lst_281)))))))" +" lst_284)))))))" "(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)" @@ -37271,21 +37459,21 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_95) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_282) lifts_4))" +"(let-values(((lst_285) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_189)" -"(lambda(fold-var_234 lst_167)" +"(let-values()(check-list lst_285)))" +"((letrec-values(((for-loop_191)" +"(lambda(fold-var_235 lst_167)" "(begin" " 'for-loop" "(if(pair? lst_167)" "(let-values(((lift_1)(unsafe-car lst_167))" "((rest_156)(unsafe-cdr lst_167)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_89) fold-var_234))" -"(let-values(((fold-var_235)" +"(let-values(((fold-var_89) fold-var_235))" +"(let-values(((fold-var_236)" "(let-values()" "(cons" "(let-values()" @@ -37305,30 +37493,30 @@ static const char *startup_source = " lift_1))))" "(let-values() lift_1))))" " fold-var_89))))" -"(values fold-var_235)))))" -"(if(not #f)(for-loop_189 fold-var_3 rest_156) fold-var_3)))" -" fold-var_234)))))" -" for-loop_189)" +"(values fold-var_236)))))" +"(if(not #f)(for-loop_191 fold-var_3 rest_156) fold-var_3)))" +" fold-var_235)))))" +" for-loop_191)" " null" -" lst_282))))" +" lst_285))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_195) lifts_5))" +"(let-values(((lst_196) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_236 lst_283)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_196)))" +"((letrec-values(((for-loop_251)" +"(lambda(fold-var_237 lst_286)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((lift_2)(unsafe-car lst_283))((rest_157)(unsafe-cdr lst_283)))" +"(if(pair? lst_286)" +"(let-values(((lift_2)(unsafe-car lst_286))((rest_157)(unsafe-cdr lst_286)))" "(let-values(((fold-var_37)" -"(let-values(((fold-var_38) fold-var_236))" -"(let-values(((fold-var_237)" +"(let-values(((fold-var_38) fold-var_237))" +"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" @@ -37337,12 +37525,12 @@ static const char *startup_source = "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" " fold-var_38))))" -"(values fold-var_237)))))" -"(if(not #f)(for-loop_246 fold-var_37 rest_157) fold-var_37)))" -" fold-var_236)))))" -" for-loop_246)" +"(values fold-var_238)))))" +"(if(not #f)(for-loop_251 fold-var_37 rest_157) fold-var_37)))" +" fold-var_237)))))" +" for-loop_251)" " null" -" lst_195)))))))" +" lst_196)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37350,7 +37538,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37366,12 +37554,12 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" 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?))))" +" 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?))))" "(define-values" "(make-module-lift-context)" "(lambda(phase_96 module*-ok?_1)(begin(module-lift-context19.1 phase_96(box null) module*-ok?_1))))" @@ -37380,19 +37568,19 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_389 phase_97)" +"(lambda(module-lifts_2 s_388 phase_97)" "(begin" "(begin" -"(if(let-values(((or-part_224)" +"(if(let-values(((or-part_225)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_224" -" or-part_224" +"(if or-part_225" +" or-part_225" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_30)(core-form-sym s_389 phase_97)))" +"(let-values(((tmp_30)(core-form-sym s_388 phase_97)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -37401,13 +37589,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_389))" +" s_388))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_389)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_388)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_389))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_388))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_389))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_388))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -37416,7 +37604,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" +"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37432,12 +37620,12 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" 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))))" +" 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))))" "(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)))))" @@ -37446,11 +37634,11 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_390 phase_98)" +"(lambda(require-lifts_2 s_389 phase_98)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_390 phase_98)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_390)))))" +"((require-lift-context-do-require require-lifts_2) s_389 phase_98)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_389)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -37459,7 +37647,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:_72 make-_72 ?_72 -ref_72 -set!_72)" +"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37475,19 +37663,19 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" 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))))" +" 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))))" "(define-values" "(make-to-module-lift-context27.1)" -"(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_1)" +"(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_99) phase26_1))" +"(let-values(((phase_99) phase26_2))" "(let-values(((ends_0) shared-module-ends22_0))" "(let-values(((end-as-expressions?_0) end-as-expressions?23_0))" "(let-values()(to-module-lift-context21.1 phase_99(box null) end-as-expressions?_0 ends_0))))))))" @@ -37500,12 +37688,12 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_211 phase_100)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_211))))" +"(lambda(to-module-lifts_3 s_210 phase_100)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_210))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_391 phase_101)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_391))))" +"(lambda(to-module-lifts_4 s_390 phase_101)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_390))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -37557,20 +37745,20 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_74) v_26))" +"(let-values(((lst_75) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" -"((letrec-values(((for-loop_91)" -"(lambda(result_72 lst_75)" +"(let-values()(check-list lst_75)))" +"((letrec-values(((for-loop_90)" +"(lambda(result_77 lst_76)" "(begin" " 'for-loop" -"(if(pair? lst_75)" -"(let-values(((s_2)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" -"(let-values(((result_64)" +"(if(pair? lst_76)" +"(let-values(((s_2)(unsafe-car lst_76))((rest_34)(unsafe-cdr lst_76)))" +"(let-values(((result_65)" "(let-values()" -"(let-values(((result_109)" +"(let-values(((result_113)" "(let-values()" "(let-values()" "(memq" @@ -37580,14 +37768,14 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_109)))))" -"(if(if(not((lambda x_74(not result_64)) s_2))(not #f) #f)" -"(for-loop_91 result_64 rest_34)" -" result_64)))" -" result_72)))))" -" for-loop_91)" +"(values result_113)))))" +"(if(if(not((lambda x_75(not result_65)) s_2))(not #f) #f)" +"(for-loop_90 result_65 rest_34)" +" result_65)))" +" result_77)))))" +" for-loop_90)" " #t" -" lst_74)))" +" lst_75)))" " #f)" "(void)" "(let-values()" @@ -37606,17 +37794,17 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_168 t_43 ctx_13)" +"(lambda(s_167 t_43 ctx_13)" "(begin" "(let-values(((wrap_1)" -"(lambda(sym_61)" +"(lambda(sym_60)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_61)(expand-context-phase ctx_13))" -" s_168))))))" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" +" s_167))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -37626,7 +37814,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_168)))))" +" s_167)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -37659,14 +37847,14 @@ static const char *startup_source = "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_70)" +"(lambda(rr_0 key_71)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_70)" +"(if(set-member?(reference-record-already-bound rr_0) key_71)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_70)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_71)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" @@ -37675,12 +37863,12 @@ static const char *startup_source = "(let-values(((lst_40) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_40)))" -"((letrec-values(((for-loop_182)" -"(lambda(lst_87)" +"((letrec-values(((for-loop_183)" +"(lambda(lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((rr_1)(unsafe-car lst_87))((rest_116)(unsafe-cdr lst_87)))" +"(if(pair? lst_88)" +"(let-values(((rr_1)(unsafe-car lst_88))((rest_116)(unsafe-cdr lst_88)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -37692,9 +37880,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_182 rest_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_183 rest_116)(values))))))))" "(values))))))" -" for-loop_182)" +" for-loop_183)" " lst_40)))" "(void)))))" "(define-values" @@ -37707,41 +37895,41 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_247)" -"(lambda(ab_3 lst_78)" +"((letrec-values(((for-loop_252)" +"(lambda(ab_3 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((key_77)(unsafe-car lst_78))((rest_142)(unsafe-cdr lst_78)))" +"(if(pair? lst_79)" +"(let-values(((key_79)(unsafe-car lst_79))((rest_142)(unsafe-cdr lst_79)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_77))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_79))))" "(values ab_6)))))" -"(if(not #f)(for-loop_247 ab_4 rest_142) ab_4)))" +"(if(not #f)(for-loop_252 ab_4 rest_142) ab_4)))" " ab_3)))))" -" for-loop_247)" +" for-loop_252)" "(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_275) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" -"((letrec-values(((for-loop_248)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" +"((letrec-values(((for-loop_253)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_78)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" +"(let-values(((key_80)(unsafe-car lst_25))((rest_158)(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_78))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_80))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_248 rbb_1 rest_158) rbb_1)))" +"(if(not #f)(for-loop_253 rbb_1 rest_158) rbb_1)))" " rbb_0)))))" -" for-loop_248)" +" for-loop_253)" "(reference-record-reference-before-bound rr_2)" -" lst_272))))))))" +" lst_275))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" @@ -37755,19 +37943,19 @@ static const char *startup_source = "(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))" "(define-values" "(call-expand-observe)" -"(lambda(obs_0 key_79 . args_5)" +"(lambda(obs_0 key_81 . args_5)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_79 #f)))" +"(let-values(((c1_27)(hash-ref key->arity key_81 #f)))" "(if c1_27" "((lambda(arity_2)" "(if(let-values(((or-part_173)(eq? arity_2 'any)))" "(if or-part_173 or-part_173(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_79 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_81 args_5))))" " c1_27)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_79))))" -"(obs_0 key_79(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_81))))" +"(obs_0 key_81(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -37893,7 +38081,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37909,13 +38097,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" 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))))" +" 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))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -37943,7 +38131,7 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_183)(begin(if(expanded+parsed? s_183)(expanded+parsed-s s_183) s_183))))" +"(define-values(extract-syntax)(lambda(s_182)(begin(if(expanded+parsed? s_182)(expanded+parsed-s s_182) s_182))))" "(define-values" "(parsed-only)" "(lambda(l_66)" @@ -37952,14 +38140,14 @@ static const char *startup_source = "(let-values(((lst_175) l_66))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_242)" -"(lambda(fold-var_5 lst_277)" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_5 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((i_26)(unsafe-car lst_277))((rest_153)(unsafe-cdr lst_277)))" -"(let-values(((fold-var_223)" -"(let-values(((fold-var_224) fold-var_5))" +"(if(pair? lst_280)" +"(let-values(((i_26)(unsafe-car lst_280))((rest_153)(unsafe-cdr lst_280)))" +"(let-values(((fold-var_224)" +"(let-values(((fold-var_225) fold-var_5))" "(if(let-values(((or-part_69)(parsed? i_26)))" "(if or-part_69" " or-part_69" @@ -37967,8 +38155,8 @@ static const char *startup_source = "(if or-part_33" " or-part_33" "(semi-parsed-begin-for-syntax? i_26)))))" -"(let-values(((fold-var_156) fold-var_224))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_157) fold-var_225))" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" @@ -37983,12 +38171,12 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_26))))" "(let-values() i_26))))" -" fold-var_156))))" -"(values fold-var_173)))" -" fold-var_224))))" -"(if(not #f)(for-loop_242 fold-var_223 rest_153) fold-var_223)))" +" fold-var_157))))" +"(values fold-var_174)))" +" fold-var_225))))" +"(if(not #f)(for-loop_246 fold-var_224 rest_153) fold-var_224)))" " fold-var_5)))))" -" for-loop_242)" +" for-loop_246)" " null" " lst_175)))))))" "(define-values" @@ -37996,26 +38184,26 @@ static const char *startup_source = "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_278) l_67))" +"(let-values(((lst_281) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_243)" -"(lambda(fold-var_228 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_229 lst_282)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_35)(unsafe-car lst_279))((rest_154)(unsafe-cdr lst_279)))" +"(if(pair? lst_282)" +"(let-values(((i_35)(unsafe-car lst_282))((rest_154)(unsafe-cdr lst_282)))" "(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_228))" -"(if(let-values(((or-part_259)(syntax?$1 i_35)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_260)(expanded+parsed? i_35)))" -"(if or-part_260" -" or-part_260" +"(let-values(((fold-var_82) fold-var_229))" +"(if(let-values(((or-part_262)(syntax?$1 i_35)))" +"(if or-part_262" +" or-part_262" +"(let-values(((or-part_263)(expanded+parsed? i_35)))" +"(if or-part_263" +" or-part_263" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_83) fold-var_82))" -"(let-values(((fold-var_238)" +"(let-values(((fold-var_239)" "(let-values()" "(cons" "(let-values()" @@ -38035,18 +38223,18 @@ static const char *startup_source = "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_306)" +"(let-values(((s_305)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_306))" +" s_305))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_306)" +" s_305)" "(syntax-e$1" -" s_306)" -" s_306)))" +" s_305)" +" s_305)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38055,18 +38243,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_158)" +"(let-values(((s_157)" "(cdr" " s_27)))" -"(let-values(((s_392)" +"(let-values(((s_391)" "(if(syntax?$1" -" s_158)" +" s_157)" "(syntax-e$1" -" s_158)" -" s_158)))" +" s_157)" +" s_157)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_392)))" +" s_391)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38100,19 +38288,19 @@ static const char *startup_source = " temp12_2)))))))" "(let-values() i_35))))" " fold-var_83))))" -"(values fold-var_238)))" +"(values fold-var_239)))" " fold-var_82))))" -"(if(not #f)(for-loop_243 fold-var_81 rest_154) fold-var_81)))" -" fold-var_228)))))" -" for-loop_243)" +"(if(not #f)(for-loop_248 fold-var_81 rest_154) fold-var_81)))" +" fold-var_229)))))" +" for-loop_248)" " null" -" lst_278)))))))" +" lst_281)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_393) s5_1))" +"(let-values(((s_392) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38126,19 +38314,19 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_393))" +" s_392))" "(void)))" "(void)))" -"(if(identifier? s_393)" -"(let-values()(expand-identifier s_393 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_393))(identifier?(car(syntax-content s_393))) #f)" -"(let-values()(expand-id-application-form s_393 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_76)(pair?(syntax-content s_393))))" -"(if or-part_76 or-part_76(null?(syntax-content s_393))))" -"(let-values()(expand-implicit '#%app s_393 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_393))" -"(let-values()(expand-already-expanded s_393 ctx_14))" -"(let-values()(expand-implicit '#%datum s_393 ctx_14 #f)))))))))))))))" +"(if(identifier? s_392)" +"(let-values()(expand-identifier s_392 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_392))(identifier?(car(syntax-content s_392))) #f)" +"(let-values()(expand-id-application-form s_392 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_76)(pair?(syntax-content s_392))))" +"(if or-part_76 or-part_76(null?(syntax-content s_392))))" +"(let-values()(expand-implicit '#%app s_392 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_392))" +"(let-values()(expand-already-expanded s_392 ctx_14))" +"(let-values()(expand-implicit '#%datum s_392 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" @@ -38194,8 +38382,8 @@ static const char *startup_source = "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_60)" -"(let-values(((or-part_261) alternate-id_2))" -"(if or-part_261 or-part_261(car(syntax-e/no-taint s_13))))))" +"(let-values(((or-part_264) alternate-id_2))" +"(if or-part_264 or-part_264(car(syntax-e/no-taint s_13))))))" "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_60)" "(let-values()" "(begin" @@ -38217,9 +38405,9 @@ static const char *startup_source = "(let-values(((binding_20)" "(let-values(((id86_0) id_60)" "((temp87_1)(expand-context-phase ctx_16))" -"((temp88_1) 'ambiguous)" +"((temp88_2) 'ambiguous)" "((temp89_1) #t))" -"(resolve+shift30.1 temp88_1 #t #f #f #f #f temp89_1 #t #f #f id86_0 temp87_1))))" +"(resolve+shift30.1 temp88_2 #t #f #f #f #f temp89_1 #t #f #f id86_0 temp87_1))))" "(begin" "(let-values(((obs_4)(expand-context-observer ctx_16)))" "(if obs_4" @@ -38255,17 +38443,17 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_62 s_184 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_183 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_184)))(void)))" -" s_184))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_183)))(void)))" +" s_183))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_184)))" -"(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_62)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_183)))" +"(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" "(let-values()" "(begin" @@ -38276,13 +38464,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_61)" -"(call-expand-observe obs_6 'enter-prim s_184)" +"(call-expand-observe obs_6 'enter-prim s_183)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_184)" -"(call-expand-observe obs_6 'return s_184)))" +"(call-expand-observe obs_6 'exit-prim s_183)" +"(call-expand-observe obs_6 'return s_183)))" "(void)))" "(void)))" -" s_184))" +" s_183))" "(let-values()" "(let-values((()" "(begin" @@ -38310,35 +38498,35 @@ static const char *startup_source = "(dispatch-transformer" " t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_62 s_184 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" " id_61" " ctx_17" " b_19))" "(if(core-form? t_27)" "(let-values()" -"(if(if(eq? sym_62 '#%top)" +"(if(if(eq? sym_61 '#%top)" "(if(eq?(core-form-name t_27) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_184 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_183 ctx_17))" "(let-values()" "(dispatch-core-form" " t_27" -"(make-explicit ctx_17 sym_62 s_184 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_62 '#%top)" +"(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_184(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_183(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" "(if tl-id_0" "(let-values(((tl-id102_0) tl-id_0)" "((temp103_1)(expand-context-phase ctx_17)))" -"(resolve33.1 #f #f #f #f #f #f #f #f tl-id102_0 temp103_1))" +"(resolve40.1 #f #f #f #f #f #f #f #f tl-id102_0 temp103_1))" " #f)))" "(if tl-b_0" "(let-values()" @@ -38349,8 +38537,8 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_184" -" sym_62" +" s_183" +" sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" @@ -38397,25 +38585,25 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_1 s_307 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_306 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_1 disarmed-s_2) s_307 s_307) s_307)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_306 s_306) s_306)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_46 insp-of-t_3 s_394 id_62 ctx_20 binding_21 primitive?_5 protected?_6)" +"(lambda(t_46 insp-of-t_3 s_393 id_62 ctx_20 binding_21 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_46)" -"(let-values()(dispatch-core-form t_46 s_394 ctx_20))" +"(let-values()(dispatch-core-form t_46 s_393 ctx_20))" "(if(transformer? t_46)" -"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_394 id_62 ctx_20 binding_21))" +"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_393 id_62 ctx_20 binding_21))" "(if(variable? t_46)" -"(let-values()(dispatch-variable t_46 s_394 id_62 ctx_20 binding_21 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_394))))))))" +"(let-values()(dispatch-variable t_46 s_393 id_62 ctx_20 binding_21 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_393))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_47 s_46 ctx_21)" @@ -38471,7 +38659,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_49 insp-of-t_4 s_388 id_63 ctx_23 binding_22)" +"(lambda(t_49 insp-of-t_4 s_387 id_63 ctx_23 binding_22)" "(begin" "(if(not-in-this-expand-context? t_49 ctx_23)" "(let-values()" @@ -38479,18 +38667,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_388)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_387)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_388 id_63) t_49 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_387 id_63) t_49 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_388)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_387)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_388))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_387))" "(let-values()" "(let-values((()" "(begin" @@ -38500,15 +38688,15 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_388)" +"(call-expand-observe obs_17 'visit s_387)" "(call-expand-observe obs_17 'resolve id_63)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_49)" -"(values s_388 ctx_23)" -"(apply-transformer t_49 insp-of-t_4 s_388 id_63 ctx_23 binding_22))))" +"(values s_387 ctx_23)" +"(apply-transformer t_49 insp-of-t_4 s_387 id_63 ctx_23 binding_22))))" "(begin" "(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" @@ -38535,20 +38723,20 @@ static const char *startup_source = "(expand7.1 temp110_0 #t temp111_0 #t exp-s108_0 re-ctx109_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_395 id_8 ctx_24 binding_23 primitive?_6 protected?_7)" +"(lambda(t_50 s_394 id_8 ctx_24 binding_23 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_395)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_394)))(void)))" " id_8))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_395 id_8)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_394 id_8)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" @@ -38632,9 +38820,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_262)(expand-context-only-immediate? ctx_26)))" -"(if or-part_262" -" or-part_262" +"(let-values(((or-part_265)(expand-context-only-immediate? ctx_26)))" +"(if or-part_265" +" or-part_265" "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" @@ -38646,8 +38834,8 @@ static const char *startup_source = " ctx_26)))" "(let-values(((m-ctx_0)" "(let-values(((v_112) accum-ctx_0))" -"(let-values(((the-struct_61) v_112))" -"(if(expand-context/outer? the-struct_61)" +"(let-values(((the-struct_60) v_112))" +"(if(expand-context/outer? the-struct_60)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" @@ -38656,21 +38844,21 @@ static const char *startup_source = "((inner117_0)(root-expand-context/outer-inner v_112)))" "(expand-context/outer1.1" " inner117_0" -"(root-expand-context/outer-post-expansion-scope the-struct_61)" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" -"(expand-context/outer-context the-struct_61)" -"(expand-context/outer-env the-struct_61)" -"(expand-context/outer-post-expansion-scope-action the-struct_61)" -"(expand-context/outer-scopes the-struct_61)" +"(root-expand-context/outer-post-expansion-scope the-struct_60)" +"(root-expand-context/outer-use-site-scopes the-struct_60)" +"(root-expand-context/outer-frame-id the-struct_60)" +"(expand-context/outer-context the-struct_60)" +"(expand-context/outer-env the-struct_60)" +"(expand-context/outer-post-expansion-scope-action the-struct_60)" +"(expand-context/outer-scopes the-struct_60)" " def-ctx-scopes116_0" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" -"(expand-context/outer-only-immediate? the-struct_61)" -"(expand-context/outer-need-eventually-defined the-struct_61)" +"(expand-context/outer-binding-layer the-struct_60)" +"(expand-context/outer-reference-records the-struct_60)" +"(expand-context/outer-only-immediate? the-struct_60)" +"(expand-context/outer-need-eventually-defined the-struct_60)" " current-introduction-scopes115_0" -"(expand-context/outer-name the-struct_61)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))" +"(expand-context/outer-name the-struct_60)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -38683,8 +38871,8 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_263) insp-of-t_6))" -"(if or-part_263 or-part_263(current-module-code-inspector))))" +"(let-values(((or-part_266) insp-of-t_6))" +"(if or-part_266 or-part_266(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_52) cleaned-s_1)))))))" @@ -38705,32 +38893,32 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_396 ctx_27 binding_25)" +"(lambda(s_395 ctx_27 binding_25)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_25))" " #f)" "(let-values()" "(let-values(((sc_26)(new-scope 'use-site)))" -"(let-values(((b_77)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_77(cons sc_26(unbox b_77)))(values(add-scope s_396 sc_26)(list sc_26))))))" -"(let-values()(values s_396 null))))))" +"(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_75(cons sc_26(unbox b_75)))(values(add-scope s_395 sc_26)(list sc_26))))))" +"(let-values()(values s_395 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_264)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_264 or-part_264(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_267)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_267 or-part_267(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_397 ctx_28)" +"(lambda(s_396 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_397(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_397)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_396(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_396)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" @@ -38738,73 +38926,73 @@ static const char *startup_source = "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" "(let-values(((v_186) ctx_29))" -"(let-values(((the-struct_62) v_186))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((the-struct_61) v_186))" +"(if(expand-context/outer? the-struct_61)" "(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" "((inner119_0)(root-expand-context/outer-inner v_186)))" "(expand-context/outer1.1" " inner119_0" -"(root-expand-context/outer-post-expansion-scope the-struct_62)" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" -"(expand-context/outer-context the-struct_62)" -"(expand-context/outer-env the-struct_62)" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" +"(root-expand-context/outer-post-expansion-scope the-struct_61)" +"(root-expand-context/outer-use-site-scopes the-struct_61)" +"(root-expand-context/outer-frame-id the-struct_61)" +"(expand-context/outer-context the-struct_61)" +"(expand-context/outer-env the-struct_61)" +"(expand-context/outer-post-expansion-scope-action the-struct_61)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_62)" -"(expand-context/outer-binding-layer the-struct_62)" -"(expand-context/outer-reference-records the-struct_62)" -"(expand-context/outer-only-immediate? the-struct_62)" -"(expand-context/outer-need-eventually-defined the-struct_62)" -"(expand-context/outer-current-introduction-scopes the-struct_62)" -"(expand-context/outer-name the-struct_62)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_61)" +"(expand-context/outer-binding-layer the-struct_61)" +"(expand-context/outer-reference-records the-struct_61)" +"(expand-context/outer-only-immediate? the-struct_61)" +"(expand-context/outer-need-eventually-defined the-struct_61)" +"(expand-context/outer-current-introduction-scopes the-struct_61)" +"(expand-context/outer-name the-struct_61)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))" "(define-values" "(lookup17.1)" "(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_78) 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_78)" -"((temp121_1)(expand-context-env ctx_30))" +"(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))" -"((temp124_0)(expand-context-phase ctx_30))" +"((temp124_1)(expand-context-phase ctx_30))" "((id125_0) id_66)" "((in-s126_0) in-s_7)" "((out-of-context-as-variable?127_0) out-of-context-as-variable?_1))" -"(binding-lookup48.1" +"(binding-lookup50.1" " in-s126_0" " #t" " out-of-context-as-variable?127_0" " #t" " b120_0" -" temp121_1" +" temp121_0" " temp122_0" " temp123_1" -" temp124_0" +" temp124_1" " id125_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_398 alternate-id_3)" +"(lambda(s_397 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_398)" -"(if(identifier? s_398)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_398) s_398))" +"(let-values() s_397)" +"(if(identifier? s_397)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_397) s_397))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_398)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_397)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_398)" -" s_398)" -" s_398))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_397)" +" s_397)" +" s_397))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_26)" @@ -38826,7 +39014,7 @@ static const char *startup_source = " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_387) s28_2))" +"(let-values(((s_386) s28_2))" "(let-values(((ctx_31) ctx29_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?24_0 expand-lifts?20_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?25_0 begin-form?21_0 #f)))" @@ -38837,7 +39025,7 @@ static const char *startup_source = "(let-values(((phase_102)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_92)" -"(lambda(s_399 always-wrap?_1 ctx_32)" +"(lambda(s_398 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -38848,21 +39036,21 @@ static const char *startup_source = " lift-env_2" "(root-expand-context-counter ctx_32))" "(make-top-level-lift ctx_32)))" -"((temp129_0)" +"((temp129_1)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp129_0 #t temp128_0))))" +"(make-lift-context6.1 temp129_1 #t temp128_0))))" "(let-values(((capture-ctx_0)" "(let-values(((v_187) ctx_32))" -"(let-values(((the-struct_63) v_187))" -"(if(expand-context/outer? the-struct_63)" +"(let-values(((the-struct_62) v_187))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((inner130_0)" -"(let-values(((the-struct_64)" +"(let-values(((the-struct_63)" "(root-expand-context/outer-inner" " v_187)))" "(if(expand-context/inner?" -" the-struct_64)" +" the-struct_63)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -38876,10 +39064,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts134_0)" -"(if(let-values(((or-part_265)" +"(if(let-values(((or-part_268)" " local?_0))" -"(if or-part_265" -" or-part_265" +"(if or-part_268" +" or-part_268" "(not" "(memq" " context_6" @@ -38890,88 +39078,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-module-scopes" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-defined-syms" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-counter" -" the-struct_64)" +" the-struct_63)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-phase" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-namespace" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-just-once?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-module-begin-k" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-allow-unbound?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-in-local-expand?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-stops" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-declared-submodule-names" -" the-struct_64)" +" the-struct_63)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-to-module-lifts" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-requires+provides" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-observer" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-for-serializable?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_64)))" +" the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_64)))))" +" the-struct_63)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/outer-use-site-scopes" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/outer-frame-id" -" the-struct_63)" -"(expand-context/outer-context the-struct_63)" -"(expand-context/outer-env the-struct_63)" +" the-struct_62)" +"(expand-context/outer-context the-struct_62)" +"(expand-context/outer-env the-struct_62)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_63)" -"(expand-context/outer-scopes the-struct_63)" +" the-struct_62)" +"(expand-context/outer-scopes the-struct_62)" "(expand-context/outer-def-ctx-scopes" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-binding-layer" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-reference-records" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-only-immediate?" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-need-eventually-defined" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-current-introduction-scopes" -" the-struct_63)" -"(expand-context/outer-name the-struct_63)))" +" the-struct_62)" +"(expand-context/outer-name the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_399)))" +" the-struct_62))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_398)))" "(let-values(((exp-s_2)" -"(let-values(((s135_0) s_399)" +"(let-values(((s135_0) s_398)" "((capture-ctx136_0) capture-ctx_0))" "(expand7.1" " #f" @@ -38984,10 +39172,10 @@ static const char *startup_source = "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_266)" +"(if(let-values(((or-part_269)" "(pair? lifts_6)))" -"(if or-part_266" -" or-part_266" +"(if or-part_269" +" or-part_269" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39024,12 +39212,12 @@ static const char *startup_source = " exp-s_2" " phase_102)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_267)(not expand-lifts?_0)))" -"(if or-part_267" -" or-part_267" -"(let-values(((or-part_268)(null? lifts_6)))" -"(if or-part_268" -" or-part_268" +"(if(let-values(((or-part_270)(not expand-lifts?_0)))" +"(if or-part_270" +" or-part_270" +"(let-values(((or-part_271)(null? lifts_6)))" +"(if or-part_271" +" or-part_271" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -39046,7 +39234,7 @@ static const char *startup_source = "(void)))" "(loop_92 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_92)" -" s_387" +" s_386" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39067,7 +39255,7 @@ static const char *startup_source = " ctx46_0)" "(begin" " 'expand-transformer47" -"(let-values(((s_400) s45_0))" +"(let-values(((s_399) s45_0))" "(let-values(((ctx_33) ctx46_0))" "(let-values(((context_7)(if context39_0 context33_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?40_0 begin-form?34_0 #f)))" @@ -39087,7 +39275,7 @@ static const char *startup_source = " ctx146_0" " context147_0" " #t))))" -"(let-values(((s140_0) s_400)" +"(let-values(((s140_0) s_399)" "((trans-ctx141_0) trans-ctx_0)" "((expand-lifts?142_0) expand-lifts?_1)" "((begin-form?143_0) begin-form?_1)" @@ -39114,12 +39302,12 @@ static const char *startup_source = "(let-values(((keep-stops?_1)(if keep-stops?51_0 keep-stops?50_0 #f)))" "(let-values()" "(let-values(((phase_103)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_72)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" "(begin" -"(namespace-visit-available-modules! ns_72 phase_103)" +"(namespace-visit-available-modules! ns_73 phase_103)" "(let-values(((v_188) ctx_34))" -"(let-values(((the-struct_65) v_188))" -"(if(expand-context/outer? the-struct_65)" +"(let-values(((the-struct_64) v_188))" +"(if(expand-context/outer? the-struct_64)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" @@ -39128,61 +39316,61 @@ static const char *startup_source = "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_66)(root-expand-context/outer-inner v_188)))" -"(if(expand-context/inner? the-struct_66)" +"(let-values(((the-struct_65)(root-expand-context/outer-inner v_188)))" +"(if(expand-context/inner? the-struct_65)" "(let-values(((phase156_0) phase_103)" -"((namespace157_0) ns_72)" +"((namespace157_0) ns_73)" "((stops158_0)" "(if keep-stops?_1" "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_66)" -"(root-expand-context/inner-module-scopes the-struct_66)" -"(root-expand-context/inner-top-level-bind-scope the-struct_66)" -"(root-expand-context/inner-all-scopes-stx the-struct_66)" -"(root-expand-context/inner-defined-syms the-struct_66)" -"(root-expand-context/inner-counter the-struct_66)" -"(root-expand-context/inner-lift-key the-struct_66)" -"(expand-context/inner-to-parsed? the-struct_66)" +"(root-expand-context/inner-self-mpi the-struct_65)" +"(root-expand-context/inner-module-scopes the-struct_65)" +"(root-expand-context/inner-top-level-bind-scope the-struct_65)" +"(root-expand-context/inner-all-scopes-stx the-struct_65)" +"(root-expand-context/inner-defined-syms the-struct_65)" +"(root-expand-context/inner-counter the-struct_65)" +"(root-expand-context/inner-lift-key the-struct_65)" +"(expand-context/inner-to-parsed? the-struct_65)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_66)" -"(expand-context/inner-module-begin-k the-struct_66)" -"(expand-context/inner-allow-unbound? the-struct_66)" -"(expand-context/inner-in-local-expand? the-struct_66)" +"(expand-context/inner-just-once? the-struct_65)" +"(expand-context/inner-module-begin-k the-struct_65)" +"(expand-context/inner-allow-unbound? the-struct_65)" +"(expand-context/inner-in-local-expand? the-struct_65)" " stops158_0" -"(expand-context/inner-declared-submodule-names the-struct_66)" -"(expand-context/inner-lifts the-struct_66)" -"(expand-context/inner-lift-envs the-struct_66)" -"(expand-context/inner-module-lifts the-struct_66)" -"(expand-context/inner-require-lifts the-struct_66)" -"(expand-context/inner-to-module-lifts the-struct_66)" -"(expand-context/inner-requires+provides the-struct_66)" -"(expand-context/inner-observer the-struct_66)" -"(expand-context/inner-for-serializable? the-struct_66)" -"(expand-context/inner-should-not-encounter-macros? the-struct_66)))" +"(expand-context/inner-declared-submodule-names the-struct_65)" +"(expand-context/inner-lifts the-struct_65)" +"(expand-context/inner-lift-envs the-struct_65)" +"(expand-context/inner-module-lifts the-struct_65)" +"(expand-context/inner-require-lifts the-struct_65)" +"(expand-context/inner-to-module-lifts the-struct_65)" +"(expand-context/inner-requires+provides the-struct_65)" +"(expand-context/inner-observer the-struct_65)" +"(expand-context/inner-for-serializable? the-struct_65)" +"(expand-context/inner-should-not-encounter-macros? the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_66)))))" +" the-struct_65)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_65)" -"(root-expand-context/outer-frame-id the-struct_65)" +"(root-expand-context/outer-use-site-scopes the-struct_64)" +"(root-expand-context/outer-frame-id the-struct_64)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_65)" +"(expand-context/outer-post-expansion-scope-action the-struct_64)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_65)" -"(expand-context/outer-reference-records the-struct_65)" +"(expand-context/outer-binding-layer the-struct_64)" +"(expand-context/outer-reference-records the-struct_64)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_65)" -"(expand-context/outer-current-introduction-scopes the-struct_65)" -"(expand-context/outer-name the-struct_65)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_65))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_64)" +"(expand-context/outer-current-introduction-scopes the-struct_64)" +"(expand-context/outer-name the-struct_64)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_64))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -39201,10 +39389,10 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" "(let-values(((exp-rhs161_0) exp-rhs_0)" -"((temp162_1)" -"(let-values(((temp163_0)(as-to-parsed-context ctx_35)))" -"(context->transformer-context55.1 #f #f temp163_0 #f #f))))" -"(expand7.1 #f #f #f #f exp-rhs161_0 temp162_1)))))" +"((temp162_2)" +"(let-values(((temp163_1)(as-to-parsed-context ctx_35)))" +"(context->transformer-context55.1 #f #f temp163_1 #f #f))))" +"(expand7.1 #f #f #f #f exp-rhs161_0 temp162_2)))))" "(begin" "(if log-next?_0" "(let-values()" @@ -39230,14 +39418,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_47 phase_105 ns_73 ctx_37)" +"(lambda(ids_21 p_47 phase_105 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_47 ns_73(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_47 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_47" -"(let-values(((ns167_0) ns_73)((phase168_1) phase_105))" +"(let-values(((ns167_0) ns_74)((phase168_1) phase_105))" "(make-compile-context14.1 #f #f #f #f #f #f ns167_0 #t phase168_1 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" @@ -39249,21 +39437,21 @@ static const char *startup_source = " current-expand-context" " ctx_37" " 1/current-namespace" -" ns_73" +" ns_74" " eval-jit-enabled" " #f)" "(let-values()" "(if compiled_0" -"(eval-single-top compiled_0 ns_73)" -"(direct-eval p_47 ns_73(root-expand-context-self-mpi ctx_37))))))" +"(eval-single-top compiled_0 ns_74)" +"(direct-eval p_47 ns_74(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" "(void)" " (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_47)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_401)(begin(datum->syntax$1 #f 'props s_401 s_401))))" -"(define-values(keep-properties-only~)(lambda(s_402)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_400)(begin(datum->syntax$1 #f 'props s_400 s_400))))" +"(define-values(keep-properties-only~)(lambda(s_401)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -39277,12 +39465,12 @@ static const char *startup_source = "(begin" " 'keep-as-needed74" "(let-values(((ctx_38) ctx72_0))" -"(let-values(((s_403) s73_1))" +"(let-values(((s_402) s73_1))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?70_0 keep-for-parsed?67_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?71_0 keep-for-error?68_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_403)))" +"(let-values(((d_32)(syntax-e$1 s_402)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" @@ -39291,28 +39479,28 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_269) keep-for-parsed?_0))" -"(if or-part_269 or-part_269 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_403 s_403)" +"(if(let-values(((or-part_272) keep-for-parsed?_0))" +"(if or-part_272 or-part_272 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_402 s_402)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_403) keep-e_0 s_403 s_403)" -" s_403))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_402) keep-e_0 s_402 s_402)" +" s_402))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_404 trans-idss_0)" +"(lambda(s_403 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_404)" +"(let-values() s_403)" "(let-values()" "(syntax-property$1" -" s_404" +" s_403" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_270)(syntax-property$1 s_404 'disappeared-binding)))" -"(if or-part_270 or-part_270 null)))))))))" +"(let-values(((or-part_273)(syntax-property$1 s_403 'disappeared-binding)))" +"(if or-part_273 or-part_273 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -39321,12 +39509,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_271)(identifier? ids_23)))" -"(if or-part_271" -" or-part_271" +"(let-values(((or-part_274)(identifier? ids_23)))" +"(if or-part_274" +" or-part_274" "(if(pair? ids_23)" -"(let-values(((or-part_272)(loop_93(car ids_23))))" -"(if or-part_272 or-part_272(loop_93(cdr ids_23))))" +"(let-values(((or-part_275)(loop_93(car ids_23))))" +"(if or-part_275 or-part_275(loop_93(cdr ids_23))))" " #f)))))))" " loop_93)" " ids_22)" @@ -39356,38 +39544,38 @@ static const char *startup_source = "(lets-loop_0" "(cdr idss+keyss+rhss_1)" "(let-values(((v_189) rhs-ctx_1))" -"(let-values(((the-struct_67) v_189))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((the-struct_66) v_189))" +"(if(expand-context/outer? the-struct_66)" "(let-values(((env169_0)" -"(let-values(((lst_284) ids_24)((lst_285) keys_4))" +"(let-values(((lst_287) ids_24)((lst_288) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" +"(let-values()(check-list lst_287)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" -"((letrec-values(((for-loop_249)" -"(lambda(env_3 lst_286 lst_287)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_254)" +"(lambda(env_3 lst_289 lst_124)" "(begin" " 'for-loop" -"(if(if(pair? lst_286)" -"(pair? lst_287)" +"(if(if(pair? lst_289)" +"(pair? lst_124)" " #f)" "(let-values(((id_67)" "(unsafe-car" -" lst_286))" +" lst_289))" +"((rest_60)" +"(unsafe-cdr" +" lst_289))" +"((key_82)" +"(unsafe-car" +" lst_124))" "((rest_159)" "(unsafe-cdr" -" lst_286))" -"((key_80)" -"(unsafe-car" -" lst_287))" -"((rest_160)" -"(unsafe-cdr" -" lst_287)))" +" lst_124)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -39395,43 +39583,43 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_80" +" key_82" "(local-variable1.1" " id_67)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_249" +"(for-loop_254" " env_4" -" rest_159" -" rest_160)" +" rest_60" +" rest_159)" " env_4)))" " env_3)))))" -" for-loop_249)" +" for-loop_254)" "(expand-context-env rhs-ctx_1)" -" lst_284" -" lst_285))))" +" lst_287" +" lst_288))))" "((inner170_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_67)" -"(root-expand-context/outer-use-site-scopes the-struct_67)" -"(root-expand-context/outer-frame-id the-struct_67)" -"(expand-context/outer-context the-struct_67)" +"(root-expand-context/outer-post-expansion-scope the-struct_66)" +"(root-expand-context/outer-use-site-scopes the-struct_66)" +"(root-expand-context/outer-frame-id the-struct_66)" +"(expand-context/outer-context the-struct_66)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_67)" -"(expand-context/outer-scopes the-struct_67)" -"(expand-context/outer-def-ctx-scopes the-struct_67)" -"(expand-context/outer-binding-layer the-struct_67)" -"(expand-context/outer-reference-records the-struct_67)" -"(expand-context/outer-only-immediate? the-struct_67)" -"(expand-context/outer-need-eventually-defined the-struct_67)" -"(expand-context/outer-current-introduction-scopes the-struct_67)" -"(expand-context/outer-name the-struct_67)))" +"(expand-context/outer-post-expansion-scope-action the-struct_66)" +"(expand-context/outer-scopes the-struct_66)" +"(expand-context/outer-def-ctx-scopes the-struct_66)" +"(expand-context/outer-binding-layer the-struct_66)" +"(expand-context/outer-reference-records the-struct_66)" +"(expand-context/outer-only-immediate? the-struct_66)" +"(expand-context/outer-need-eventually-defined the-struct_66)" +"(expand-context/outer-current-introduction-scopes the-struct_66)" +"(expand-context/outer-name the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67)))))))))))))))))" +" the-struct_66)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -39445,14 +39633,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_53))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_66 id_68 phase_106 ctx_42)" +"(lambda(val_67 id_68 phase_106 ctx_42)" "(begin" -"(if(1/rename-transformer? val_66)" +"(if(1/rename-transformer? val_67)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_66 id_68 phase_106))))" +"(let-values()(maybe-install-free=id! val_67 id_68 phase_106))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -39460,19 +39648,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_68) new-s_1))" -"(if(syntax?$1 the-struct_68)" +"(let-values(((the-struct_67) new-s_1))" +"(if(syntax?$1 the-struct_67)" "(let-values(((srcloc171_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_68)" -"(syntax-scopes the-struct_68)" -"(syntax-shifted-multi-scopes the-struct_68)" -"(syntax-scope-propagations+tamper the-struct_68)" -"(syntax-mpi-shifts the-struct_68)" +"(syntax-content the-struct_67)" +"(syntax-scopes the-struct_67)" +"(syntax-shifted-multi-scopes the-struct_67)" +"(syntax-scope-propagations+tamper the-struct_67)" +"(syntax-mpi-shifts the-struct_67)" " srcloc171_0" -"(syntax-props the-struct_68)" -"(syntax-inspector the-struct_68)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68)))" +"(syntax-props the-struct_67)" +"(syntax-inspector the-struct_67)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -39490,12 +39678,12 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_99) auto-stop-syms))" +"(let-values(((lst_100) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_108)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" @@ -39512,11 +39700,11 @@ static const char *startup_source = " sym_63))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_108 fold-var_87 rest_47) fold-var_87)))" +"(if(not #f)(for-loop_107 fold-var_87 rest_47) fold-var_87)))" " fold-var_86)))))" -" for-loop_108)" +" for-loop_107)" " null" -" lst_99)))))))))))))" +" lst_100)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -39540,29 +39728,29 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_107)))" "(reverse$1" -"(let-values(((lst_223) module-stop-syms))" +"(let-values(((lst_224) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_239 lst_263)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_240 lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_263)" -"(let-values(((sym_17)(unsafe-car lst_263))((rest_161)(unsafe-cdr lst_263)))" -"(let-values(((fold-var_217)" -"(let-values(((fold-var_30) fold-var_239))" +"(if(pair? lst_266)" +"(let-values(((sym_16)(unsafe-car lst_266))((rest_160)(unsafe-cdr lst_266)))" "(let-values(((fold-var_218)" +"(let-values(((fold-var_30) fold-var_240))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" -"(datum->syntax$1 p-core-stx_1 sym_17))" +"(datum->syntax$1 p-core-stx_1 sym_16))" " fold-var_30))))" -"(values fold-var_218)))))" -"(if(not #f)(for-loop_250 fold-var_217 rest_161) fold-var_217)))" -" fold-var_239)))))" -" for-loop_250)" +"(values fold-var_219)))))" +"(if(not #f)(for-loop_255 fold-var_218 rest_160) fold-var_218)))" +" fold-var_240)))))" +" for-loop_255)" " null" -" lst_223))))))))" +" lst_224))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -39576,7 +39764,7 @@ static const char *startup_source = " internal-definition-context-scope" " internal-definition-context-add-scope?" " internal-definition-context-env-mixins)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -39592,27 +39780,27 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" 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))))" +" 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))))" "(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:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(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:_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))))" +" 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))))" "(define-values" "(1/syntax-local-make-definition-context)" "(let-values(((syntax-local-make-definition-context7_0)" @@ -39636,17 +39824,17 @@ static const char *startup_source = " parent-ctx_0)))" "(values))))" "(let-values(((ctx_43)" -"(let-values(((temp42_1) 'syntax-local-make-definition-context))" -"(get-current-expand-context17.1 #f #f temp42_1 #t))))" +"(let-values(((temp42_2) 'syntax-local-make-definition-context))" +"(get-current-expand-context17.1 #f #f temp42_2 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_273)(root-expand-context-frame-id ctx_43)))" -"(if or-part_273" -" or-part_273" -"(let-values(((or-part_229)" +"(let-values(((or-part_276)(root-expand-context-frame-id ctx_43)))" +"(if or-part_276" +" or-part_276" +"(let-values(((or-part_230)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_229 or-part_229(gensym)))))))" +"(if or-part_230 or-part_230(gensym)))))))" "(let-values(((sc_27)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -39666,7 +39854,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_405 intdef_0)" +"(lambda(ids_25 s_404 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -39678,9 +39866,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_162)(not s_405)))(if or-part_162 or-part_162(syntax?$1 s_405)))" +"(if(let-values(((or-part_162)(not s_404)))(if or-part_162 or-part_162(syntax?$1 s_404)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_405)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_404)))" "(values))))" "(let-values((()" "(begin" @@ -39705,22 +39893,22 @@ 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)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_175)" "(lambda(fold-var_16 lst_184)" "(begin" " 'for-loop" "(if(pair? lst_184)" "(let-values(((id_69)(unsafe-car lst_184))" -"((rest_162)(unsafe-cdr lst_184)))" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_240)" -" fold-var_16))" +"((rest_161)(unsafe-cdr lst_184)))" +"(let-values(((fold-var_231)" "(let-values(((fold-var_241)" +" fold-var_16))" +"(let-values(((fold-var_242)" "(let-values()" "(cons" "(let-values()" @@ -39743,15 +39931,15 @@ static const char *startup_source = " #t" " pre-id44_0" " intdef45_0))))" -" fold-var_240))))" -"(values fold-var_241)))))" +" fold-var_241))))" +"(values fold-var_242)))))" "(if(not #f)" -"(for-loop_175 fold-var_230 rest_162)" -" fold-var_230)))" +"(for-loop_175 fold-var_231 rest_161)" +" fold-var_231)))" " fold-var_16)))))" " for-loop_175)" " null" -" lst_288))))))" +" lst_290))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -39762,28 +39950,28 @@ 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)))" -"((letrec-values(((for-loop_251)" -"(lambda(fold-var_242 lst_290)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_256)" +"(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)))" -"(let-values(((fold-var_243)" +"(if(pair? lst_292)" +"(let-values(((intdef-id_0)(unsafe-car lst_292))" +"((rest_162)(unsafe-cdr lst_292)))" "(let-values(((fold-var_244)" -" fold-var_242))" "(let-values(((fold-var_245)" +" fold-var_243))" +"(let-values(((fold-var_246)" "(let-values()" "(cons" "(let-values()" "(let-values(((intdef-id47_0)" " intdef-id_0)" -"((phase48_0)" +"((phase48_1)" " phase_108)" "((temp49_1)" "(root-expand-context-counter" @@ -39791,51 +39979,51 @@ static const char *startup_source = "((temp50_1)" "(internal-definition-context-frame-id" " intdef_0)))" -"(add-local-binding!35.1" +"(add-local-binding!37.1" " temp50_1" " #t" " #f" " #f" " intdef-id47_0" -" phase48_0" +" phase48_1" " temp49_1)))" -" fold-var_244))))" -"(values fold-var_245)))))" +" fold-var_245))))" +"(values fold-var_246)))))" "(if(not #f)" -"(for-loop_251 fold-var_243 rest_163)" -" fold-var_243)))" -" fold-var_242)))))" -" for-loop_251)" +"(for-loop_256 fold-var_244 rest_162)" +" fold-var_244)))" +" fold-var_243)))))" +" for-loop_256)" " null" -" lst_289))))))" +" lst_291))))))" "(let-values(((vals_5)" -"(if s_405" +"(if s_404" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_405)" +"(let-values(((s51_0) s_404)" "((intdef52_0) intdef_0)" -"((temp53_2) #t))" -"(add-intdef-scopes21.1 #f #f temp53_2 #t s51_0 intdef52_0))" +"((temp53_1) #t))" +"(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_100) syms_21))" +"(let-values(((lst_101) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_101)" +"(lambda(env_7 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_101)" +"(if(pair? lst_102)" "(let-values(((sym_64)" "(unsafe-car" -" lst_101))" +" lst_102))" "((rest_48)" "(unsafe-cdr" -" lst_101)))" +" lst_102)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -39853,7 +40041,7 @@ static const char *startup_source = " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_100)))))" +" lst_101)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -39868,11 +40056,11 @@ static const char *startup_source = "(eval-for-syntaxes-binding" " input-s_0" " ids_25" -"(let-values(((temp54_1)" +"(let-values(((temp54_0)" "(let-values(((v_190) ctx_44))" -"(let-values(((the-struct_69) v_190))" +"(let-values(((the-struct_68) v_190))" "(if(expand-context/outer?" -" the-struct_69)" +" the-struct_68)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" @@ -39880,40 +40068,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/outer-use-site-scopes" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/outer-frame-id" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-context" -" the-struct_69)" +" the-struct_68)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-scopes" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-def-ctx-scopes" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-binding-layer" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-reference-records" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-only-immediate?" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-need-eventually-defined" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-current-introduction-scopes" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-name" -" the-struct_69)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_69)))))" -"((temp55_1) 'expression)" +" the-struct_68)))))" +"((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" -" temp55_1" +" temp55_2" " intdef56_0" " #f" " #f" @@ -39923,7 +40111,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp54_1)))))" +" temp54_0)))))" "(begin" "(let-values(((obs_31)(expand-context-observer ctx_44)))" "(if obs_31" @@ -39933,21 +40121,21 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_291) ids_25))" +"(let-values(((lst_293) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_252)" -"(lambda(fold-var_179 lst_292)" +"(let-values()(check-list lst_293)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_180 lst_294)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((id_70)(unsafe-car lst_292))" -"((rest_164)(unsafe-cdr lst_292)))" -"(let-values(((fold-var_246)" +"(if(pair? lst_294)" +"(let-values(((id_70)(unsafe-car lst_294))" +"((rest_163)(unsafe-cdr lst_294)))" +"(let-values(((fold-var_247)" "(let-values(((fold-var_91)" -" fold-var_179))" +" fold-var_180))" "(let-values(((fold-var_92)" "(let-values()" "(cons" @@ -39956,45 +40144,45 @@ static const char *startup_source = " fold-var_91))))" "(values fold-var_92)))))" "(if(not #f)" -"(for-loop_252 fold-var_246 rest_164)" -" fold-var_246)))" -" fold-var_179)))))" -" for-loop_252)" +"(for-loop_257 fold-var_247 rest_163)" +" fold-var_247)))" +" fold-var_180)))))" +" for-loop_257)" " null" -" lst_291))))))))" +" lst_293))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" +"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_21)((lst_297) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"(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)))" -"((letrec-values(((for-loop_76)" -"(lambda(fold-var_247 lst_296 lst_36 lst_297)" +"(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)))" +"((letrec-values(((for-loop_75)" +"(lambda(fold-var_248 lst_298 lst_195 lst_299)" "(begin" " 'for-loop" -"(if(if(pair? lst_296)" -"(if(pair? lst_36)(pair? lst_297) #f)" +"(if(if(pair? lst_298)" +"(if(pair? lst_195)(pair? lst_299) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_296))" -"((rest_165)(unsafe-cdr lst_296))" -"((sym_65)(unsafe-car lst_36))" -"((rest_100)(unsafe-cdr lst_36))" -"((val_14)(unsafe-car lst_297))" -"((rest_21)(unsafe-cdr lst_297)))" +"(let-values(((intdef-id_1)(unsafe-car lst_298))" +"((rest_164)(unsafe-cdr lst_298))" +"((sym_65)(unsafe-car lst_195))" +"((rest_100)(unsafe-cdr lst_195))" +"((val_14)(unsafe-car lst_299))" +"((rest_21)(unsafe-cdr lst_299)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" -" fold-var_247))" +" fold-var_248))" "(let-values(((fold-var_38)" "(let-values()" "(cons" @@ -40013,14 +40201,14 @@ static const char *startup_source = " fold-var_37))))" "(values fold-var_38)))))" "(if(not #f)" -"(for-loop_76 fold-var_36 rest_165 rest_100 rest_21)" +"(for-loop_75 fold-var_36 rest_164 rest_100 rest_21)" " fold-var_36)))" -" fold-var_247)))))" -" for-loop_76)" +" fold-var_248)))))" +" for-loop_75)" " null" -" lst_293" -" lst_294" -" lst_295))))" +" lst_295" +" lst_296" +" lst_297))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40040,29 +40228,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_300)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_248 lst_229)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_249 lst_230)" "(begin" " 'for-loop" -"(if(pair? lst_229)" -"(let-values(((env-mixin_0)(unsafe-car lst_229))" -"((rest_166)(unsafe-cdr lst_229)))" -"(let-values(((fold-var_249)" -"(let-values(((fold-var_183) fold-var_248))" +"(if(pair? lst_230)" +"(let-values(((env-mixin_0)(unsafe-car lst_230))" +"((rest_165)(unsafe-cdr lst_230)))" "(let-values(((fold-var_250)" +"(let-values(((fold-var_184) fold-var_249))" +"(let-values(((fold-var_251)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_183))))" -"(values fold-var_250)))))" -"(if(not #f)(for-loop_253 fold-var_249 rest_166) fold-var_249)))" -" fold-var_248)))))" -" for-loop_253)" +" fold-var_184))))" +"(values fold-var_251)))))" +"(if(not #f)(for-loop_258 fold-var_250 rest_165) fold-var_250)))" +" fold-var_249)))))" +" for-loop_258)" " null" -" lst_298))))))))" +" lst_300))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40070,7 +40258,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_406) s12_1))" +"(let-values(((s_405) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40081,11 +40269,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_406)" +"(if(syntax?$1 s_405)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_406)))" -"(let-values(((s59_0) s_406)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_405)))" +"(let-values(((s59_0) s_405)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_32) mode_12))" @@ -40102,9 +40290,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_196)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_196 #f #f)))" -"((intdef_4 s_197 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_197 mode9_1 #t)))))" +"((intdef_3 s_195)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_195 #f #f)))" +"((intdef_4 s_196 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_196 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40125,15 +40313,15 @@ static const char *startup_source = "(if(identifier? id_71)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_274)(1/internal-definition-context? intdef_6)))" -"(if or-part_274 or-part_274(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_277)(1/internal-definition-context? intdef_6)))" +"(if or-part_277 or-part_277(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_6)))" -"(let-values(((x_75)" +"(let-values(((x_76)" "(let-values(((a_45) intdef_6))" "(if(list? a_45)" "(let-values()(reverse$1 a_45))" @@ -40141,37 +40329,37 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_176)" -"(lambda(id_72 a_46)" +"(lambda(id_17 a_46)" "(begin" " 'for-loop" "(if(pair? a_46)" "(let-values(((intdef_7)(car a_46)))" -"(let-values(((id_73)" -"(let-values(((id_74) id_72))" -"(let-values(((id_75)" +"(let-values(((id_72)" +"(let-values(((id_73) id_17))" +"(let-values(((id_74)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_7" -" id_74" +" id_73" " 'remove))))" -"(values id_75)))))" -"(if(not #f)(for-loop_176 id_73(cdr a_46)) id_73)))" -" id_72)))))" +"(values id_74)))))" +"(if(not #f)(for-loop_176 id_72(cdr a_46)) id_72)))" +" id_17)))))" " for-loop_176)" " id_71" -" x_75)))))))" +" x_76)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_76)" +"(let-values(((x_77)" "(let-values(((a_47) intdefs_0))" "(if(list? a_47)" "(let-values()(reverse$1 a_47))" "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_259)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40195,14 +40383,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_275)" +"(let-values(((or-part_278)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_275" -" or-part_275" +"(if or-part_278" +" or-part_278" "(let-values(((new-env_0)" "(env-extend" "(loop_94" @@ -40224,55 +40412,55 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_254 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_259 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_254)" +" for-loop_259)" " env_11" -" x_76))))))" +" x_77))))))" "(define-values" "(add-intdef-scopes21.1)" "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_88) s19_0))" +"(let-values(((s_87) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" "(let-values()" -"(let-values(((x_77)" +"(let-values(((x_78)" "(let-values(((a_49) intdefs_1))" "(if(list? a_49)" "(let-values()(reverse$1 a_49))" "(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" "(begin" " #t" -"((letrec-values(((for-loop_45)" -"(lambda(s_390 a_50)" +"((letrec-values(((for-loop_260)" +"(lambda(s_389 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_205)" -"(let-values(((s_90) s_390))" -"(if(let-values(((or-part_276) always?_0))" -"(if or-part_276" -" or-part_276" +"(let-values(((s_204)" +"(let-values(((s_89) s_389))" +"(if(let-values(((or-part_279) always?_0))" +"(if or-part_279" +" or-part_279" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_407) s_90))" -"(let-values(((s_321)" +"(let-values(((s_406) s_89))" +"(let-values(((s_320)" "(let-values()" "(action_0" -" s_407" +" s_406" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_321)))" -" s_90))))" -"(if(not #f)(for-loop_45 s_205(cdr a_50)) s_205)))" -" s_390)))))" -" for-loop_45)" -" s_88" -" x_77)))))))))))" +"(values s_320)))" +" s_89))))" +"(if(not #f)(for-loop_260 s_204(cdr a_50)) s_204)))" +" s_389)))))" +" for-loop_260)" +" s_87" +" x_78)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -40308,22 +40496,22 @@ static const char *startup_source = "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" "(let-values(((v_191) ctx_45))" -"(let-values(((the-struct_70) v_191))" -"(if(expand-context/outer? the-struct_70)" +"(let-values(((the-struct_69) v_191))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_277)(eq? context_9 'module)))" -"(if or-part_277" -" or-part_277" -"(let-values(((or-part_278)(eq? context_9 'module-begin)))" -"(if or-part_278 or-part_278(list? context_9)))))" -"(let-values(((or-part_279)" +"(if(let-values(((or-part_280)(eq? context_9 'module)))" +"(if or-part_280" +" or-part_280" +"(let-values(((or-part_281)(eq? context_9 'module-begin)))" +"(if or-part_281 or-part_281(list? context_9)))))" +"(let-values(((or-part_282)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_279 or-part_279(box null)))" +"(if or-part_282 or-part_282(box null)))" " #f))" "((frame-id65_0)" -"(let-values(((x_78)" +"(let-values(((x_79)" "(let-values(((a_51) intdefs_2))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -40332,7 +40520,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_255)" +"((letrec-values(((for-loop_261)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -40357,19 +40545,19 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_265)" +"(let-values(((or-part_268)" " frame-id_11))" -"(if or-part_265" -" or-part_265" +"(if or-part_268" +" or-part_268" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_255 frame-id_10(cdr a_52))" +"(for-loop_261 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_255)" +" for-loop_261)" "(root-expand-context-frame-id ctx_45)" -" x_78))))" +" x_79))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" @@ -40380,23 +40568,23 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_213 placeholder-sc_0)" +"(lambda(s_212 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_2) s_213)((intdefs74_0) intdefs_2))" +"(let-values(((s73_2) s_212)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_2 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" "((only-immediate?69_0)(not stop-ids_1))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_135)(expand-context-need-eventually-defined ctx_45)))" +"(let-values(((ht_138)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_135)" -"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_138)" +"(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_191)))" -"(if(expand-context/inner? the-struct_71)" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_191)))" +"(if(expand-context/inner? the-struct_70)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -40406,39 +40594,39 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_109" -"(let-values(((or-part_280) all-stop-ids_0))" -"(if or-part_280 or-part_280 null)))))" +"(let-values(((or-part_283) all-stop-ids_0))" +"(if or-part_283 or-part_283 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_71)" -"(root-expand-context/inner-module-scopes the-struct_71)" -"(root-expand-context/inner-top-level-bind-scope the-struct_71)" -"(root-expand-context/inner-all-scopes-stx the-struct_71)" -"(root-expand-context/inner-defined-syms the-struct_71)" -"(root-expand-context/inner-counter the-struct_71)" -"(root-expand-context/inner-lift-key the-struct_71)" +"(root-expand-context/inner-self-mpi the-struct_70)" +"(root-expand-context/inner-module-scopes the-struct_70)" +"(root-expand-context/inner-top-level-bind-scope the-struct_70)" +"(root-expand-context/inner-all-scopes-stx the-struct_70)" +"(root-expand-context/inner-defined-syms the-struct_70)" +"(root-expand-context/inner-counter the-struct_70)" +"(root-expand-context/inner-lift-key the-struct_70)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_71)" -"(expand-context/inner-namespace the-struct_71)" +"(expand-context/inner-phase the-struct_70)" +"(expand-context/inner-namespace the-struct_70)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_71)" -"(expand-context/inner-allow-unbound? the-struct_71)" +"(expand-context/inner-module-begin-k the-struct_70)" +"(expand-context/inner-allow-unbound? the-struct_70)" " in-local-expand?77_0" " stops78_0" -"(expand-context/inner-declared-submodule-names the-struct_71)" -"(expand-context/inner-lifts the-struct_71)" -"(expand-context/inner-lift-envs the-struct_71)" -"(expand-context/inner-module-lifts the-struct_71)" -"(expand-context/inner-require-lifts the-struct_71)" -"(expand-context/inner-to-module-lifts the-struct_71)" -"(expand-context/inner-requires+provides the-struct_71)" -"(expand-context/inner-observer the-struct_71)" -"(expand-context/inner-for-serializable? the-struct_71)" +"(expand-context/inner-declared-submodule-names the-struct_70)" +"(expand-context/inner-lifts the-struct_70)" +"(expand-context/inner-lift-envs the-struct_70)" +"(expand-context/inner-module-lifts the-struct_70)" +"(expand-context/inner-require-lifts the-struct_70)" +"(expand-context/inner-to-module-lifts the-struct_70)" +"(expand-context/inner-requires+provides the-struct_70)" +"(expand-context/inner-observer the-struct_70)" +"(expand-context/inner-for-serializable? the-struct_70)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_71)))" +" the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_70)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40448,39 +40636,39 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(expand-context/outer-def-ctx-scopes the-struct_70)" -"(expand-context/outer-binding-layer the-struct_70)" -"(expand-context/outer-reference-records the-struct_70)" +"(expand-context/outer-def-ctx-scopes the-struct_69)" +"(expand-context/outer-binding-layer the-struct_69)" +"(expand-context/outer-reference-records the-struct_69)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_70)))" +"(expand-context/outer-name the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_70))))))))))))))))))" +" the-struct_69))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_408 ctx_46)(begin(flip-scopes s_408(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_407 ctx_46)(begin(flip-scopes s_407(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" "(begin" " 'syntax-transforming?" -"(if(let-values(((temp62_0) #t))(get-current-expand-context17.1 temp62_0 #t #f #f)) #t #f))))" +"(if(let-values(((temp62_1) #t))(get-current-expand-context17.1 temp62_1 #t #f #f)) #t #f))))" "(define-values" "(1/syntax-transforming-with-lifts?)" "(lambda()" "(begin" " 'syntax-transforming-with-lifts?" -"(let-values(((ctx_47)(let-values(((temp63_1) #t))(get-current-expand-context17.1 temp63_1 #t #f #f))))" +"(let-values(((ctx_47)(let-values(((temp63_2) #t))(get-current-expand-context17.1 temp63_2 #t #f #f))))" "(if ctx_47(if(expand-context-lifts ctx_47) #t #f) #f)))))" "(define-values" "(1/syntax-transforming-module-expression?)" "(lambda()" "(begin" " 'syntax-transforming-module-expression?" -"(let-values(((ctx_48)(let-values(((temp64_1) #t))(get-current-expand-context17.1 temp64_1 #t #f #f))))" +"(let-values(((ctx_48)(let-values(((temp64_2) #t))(get-current-expand-context17.1 temp64_2 #t #f #f))))" "(if ctx_48(if(expand-context-to-module-lifts ctx_48) #t #f) #f)))))" "(define-values" "(1/syntax-local-transforming-module-provides?)" @@ -40500,34 +40688,34 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_169)" +"(lambda(s_168)" "(begin" " 'syntax-local-introduce" "(let-values((()" "(begin" -"(if(syntax?$1 s_169)" +"(if(syntax?$1 s_168)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_169)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_168)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp67_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_169 ctx_51))))))" +"(flip-introduction-scopes s_168 ctx_51))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_76)" +"(lambda(id_75)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values((()" "(begin" -"(if(identifier? id_76)" +"(if(identifier? id_75)" "(void)" -" (let-values () (raise-argument-error 1/syntax-local-identifier-as-binding \"identifier?\" id_76)))" +" (let-values () (raise-argument-error 1/syntax-local-identifier-as-binding \"identifier?\" id_75)))" "(values))))" "(let-values(((ctx_14)" "(let-values(((temp68_0) 'syntax-local-identifier-as-binding))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(remove-use-site-scopes id_76 ctx_14))))))" +"(remove-use-site-scopes id_75 ctx_14))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" @@ -40542,8 +40730,8 @@ static const char *startup_source = " 'syntax-local-name" "(let-values(((ctx_53)" "(let-values(((temp70_0) 'syntax-local-name))(get-current-expand-context17.1 #f #f temp70_0 #t))))" -"(let-values(((id_77)(expand-context-name ctx_53)))" -"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))" +"(let-values(((id_76)(expand-context-name ctx_53)))" +"(if id_76(datum->syntax$1 #f(syntax-e$1 id_76) id_76) #f))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer3_0)" @@ -40578,7 +40766,7 @@ static const char *startup_source = " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))))))))" "(case-lambda" -"((s_78)(core74_0 s_78 #f #f))" +"((s_77)(core74_0 s_77 #f #f))" "((s_42 mode71_1)(core74_0 s_42 mode71_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" @@ -40602,8 +40790,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_281)(syntax?$1 base-s_0)))" -"(if or-part_281 or-part_281(not base-s_0)))" +"(if(let-values(((or-part_284)(syntax?$1 base-s_0)))" +"(if or-part_284 or-part_284(not base-s_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40624,8 +40812,8 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_110)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_282) base-s_0))" -"(if or-part_282 or-part_282 empty-syntax))" +"(let-values(((or-part_285) base-s_0))" +"(if or-part_285 or-part_285 empty-syntax))" " phase_110)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" @@ -40635,7 +40823,7 @@ static const char *startup_source = "(let-values(((base-s76_0) base-s_0)" "((phase77_0) phase_110)" "((temp78_3) #t))" -"(resolve33.1" +"(resolve40.1" " #f" " #f" " #f" @@ -40656,19 +40844,19 @@ static const char *startup_source = "(lambda(s81_0 mode79_0 mode80_0)" "(begin" " 'core82" -"(let-values(((s_409) s81_0))" +"(let-values(((s_408) s81_0))" "(let-values(((mode_14)(if mode80_0 mode79_0 'add)))" "(let-values()" "(maybe-taint_0" "(let-values(((tmp_34) mode_14))" "(if(equal? tmp_34 'add)" -"(let-values()(add-scopes s_409 delta-scs_0))" +"(let-values()(add-scopes s_408 delta-scs_0))" "(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_409 delta-scs_0))" +"(remove-scopes s_408 delta-scs_0))" "(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_409 delta-scs_0))" +"(flip-scopes s_408 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -40699,22 +40887,22 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value17" "(let-values(((who_15) who13_0))" -"(let-values(((id_78) id14_1))" +"(let-values(((id_77) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" "(let-values(((immediate?_1) immediate?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_77)" "(void)" -" (let-values () (raise-argument-error who_15 \"identifier?\" id_78)))" +" (let-values () (raise-argument-error who_15 \"identifier?\" id_77)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_283)(not failure-thunk_0)))" -"(if or-part_283" -" or-part_283" +"(if(let-values(((or-part_286)(not failure-thunk_0)))" +"(if or-part_286" +" or-part_286" "(if(procedure? failure-thunk_0)" "(procedure-arity-includes? failure-thunk_0 0)" " #f)))" @@ -40727,8 +40915,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_284)(not intdef_11)))" -"(if or-part_284 or-part_284(1/internal-definition-context? intdef_11)))" +"(if(let-values(((or-part_287)(not intdef_11)))" +"(if or-part_287 or-part_287(1/internal-definition-context? intdef_11)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40737,13 +40925,13 @@ static const char *startup_source = " failure-thunk_0)))" "(values))))" "(let-values(((current-ctx_0)" -"(let-values(((who84_0) who_15))" -"(get-current-expand-context17.1 #f #f who84_0 #t))))" +"(let-values(((who84_1) who_15))" +"(get-current-expand-context17.1 #f #f who84_1 #t))))" "(let-values(((ctx_54)" "(if intdef_11" "(let-values(((v_48) current-ctx_0))" -"(let-values(((the-struct_72) v_48))" -"(if(expand-context/outer? the-struct_72)" +"(let-values(((the-struct_71) v_48))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((env85_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" @@ -40751,41 +40939,41 @@ static const char *startup_source = "((inner86_0)(root-expand-context/outer-inner v_48)))" "(expand-context/outer1.1" " inner86_0" -"(root-expand-context/outer-post-expansion-scope the-struct_72)" -"(root-expand-context/outer-use-site-scopes the-struct_72)" -"(root-expand-context/outer-frame-id the-struct_72)" -"(expand-context/outer-context the-struct_72)" +"(root-expand-context/outer-post-expansion-scope the-struct_71)" +"(root-expand-context/outer-use-site-scopes the-struct_71)" +"(root-expand-context/outer-frame-id the-struct_71)" +"(expand-context/outer-context the-struct_71)" " env85_0" -"(expand-context/outer-post-expansion-scope-action the-struct_72)" -"(expand-context/outer-scopes the-struct_72)" -"(expand-context/outer-def-ctx-scopes the-struct_72)" -"(expand-context/outer-binding-layer the-struct_72)" -"(expand-context/outer-reference-records the-struct_72)" -"(expand-context/outer-only-immediate? the-struct_72)" -"(expand-context/outer-need-eventually-defined the-struct_72)" -"(expand-context/outer-current-introduction-scopes the-struct_72)" -"(expand-context/outer-name the-struct_72)))" +"(expand-context/outer-post-expansion-scope-action the-struct_71)" +"(expand-context/outer-scopes the-struct_71)" +"(expand-context/outer-def-ctx-scopes the-struct_71)" +"(expand-context/outer-binding-layer the-struct_71)" +"(expand-context/outer-reference-records the-struct_71)" +"(expand-context/outer-only-immediate? the-struct_71)" +"(expand-context/outer-need-eventually-defined the-struct_71)" +"(expand-context/outer-current-introduction-scopes the-struct_71)" +"(expand-context/outer-name the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72))))" +" the-struct_71))))" " current-ctx_0)))" "(let-values((()" "(begin" "(let-values(((obs_33)(expand-context-observer ctx_54)))" "(if obs_33" "(let-values()" -"(let-values()(call-expand-observe obs_33 'local-value id_78)))" +"(let-values()(call-expand-observe obs_33 'local-value id_77)))" "(void)))" "(values))))" "(let-values(((phase_111)(expand-context-phase ctx_54)))" "((letrec-values(((loop_95)" -"(lambda(id_79)" +"(lambda(id_78)" "(begin" " 'loop" "(let-values(((b_12)" "(if immediate?_1" -"(let-values(((id87_0) id_79)" +"(let-values(((id87_0) id_78)" "((phase88_0) phase_111)" "((temp89_2) #t))" "(resolve+shift30.1" @@ -40802,7 +40990,7 @@ static const char *startup_source = " id87_0" " phase88_0))" "(resolve+shift/extra-inspector" -" id_79" +" id_78" " phase_111" "(expand-context-namespace ctx_54)))))" "(begin" @@ -40810,7 +40998,7 @@ static const char *startup_source = "(if obs_34" "(let-values()" "(let-values()" -"(call-expand-observe obs_34 'resolve id_79)))" +"(call-expand-observe obs_34 'resolve id_78)))" "(void)))" "(if(not b_12)" "(let-values()" @@ -40830,12 +41018,12 @@ static const char *startup_source = "(error" " 'syntax-local-value" " \"unbound identifier: ~v\"" -" id_79))))" +" id_78))))" "(let-values()" "(let-values(((v_192 primitive?_7 insp_17 protected?_8)" "(let-values(((b90_0) b_12)" "((ctx91_1) ctx_54)" -"((id92_1) id_79)" +"((id92_1) id_78)" "((temp93_3) #t))" "(lookup17.1" " #f" @@ -40845,8 +41033,8 @@ static const char *startup_source = " b90_0" " ctx91_1" " id92_1))))" -"(if(let-values(((or-part_220)(variable? v_192)))" -"(if or-part_220 or-part_220(core-form? v_192)))" +"(if(let-values(((or-part_221)(variable? v_192)))" +"(if or-part_221 or-part_221(core-form? v_192)))" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -40864,7 +41052,7 @@ static const char *startup_source = "(error" " 'syntax-local-value" " \"identifier is not bound to syntax: ~v\"" -" id_79))))" +" id_78))))" "(let-values()" "(begin" "(let-values(((obs_37)" @@ -40894,40 +41082,40 @@ static const char *startup_source = "(let-values()(values v_192 #f))" "(let-values() v_192)))))))))))))))" " loop_95)" -"(flip-introduction-scopes id_78 ctx_54))))))))))))))))))" +"(flip-introduction-scopes id_77 ctx_54))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_80) id24_0))" +"(let-values(((id_79) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_12)(if intdef23_0 intdef21_0 #f)))" "(let-values()" "(let-values(((temp94_2) 'syntax-local-value)" "((temp95_1) #f)" -"((id96_0) id_80)" +"((id96_0) id_79)" "((intdef97_0) intdef_12)" "((failure-thunk98_0) failure-thunk_1))" "(do-syntax-local-value17.1 temp95_1 temp94_2 id96_0 intdef97_0 failure-thunk98_0))))))))))" "(case-lambda" -"((id_81)(begin 'syntax-local-value(syntax-local-value25_0 id_81 #f #f #f #f)))" -"((id_82 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_82 failure-thunk_2 intdef21_1 #t #t))" -"((id_83 failure-thunk20_1)(syntax-local-value25_0 id_83 failure-thunk20_1 #f #t #f)))))" +"((id_80)(begin 'syntax-local-value(syntax-local-value25_0 id_80 #f #f #f #f)))" +"((id_81 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_81 failure-thunk_2 intdef21_1 #t #t))" +"((id_82 failure-thunk20_1)(syntax-local-value25_0 id_82 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_84) id31_1))" +"(let-values(((id_83) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_13)(if intdef30_0 intdef28_0 #f)))" "(let-values()" "(let-values(((temp99_1) 'syntax-local-value/immediate)" "((temp100_0) #t)" -"((id101_1) id_84)" +"((id101_1) id_83)" "((intdef102_0) intdef_13)" "((failure-thunk103_0) failure-thunk_3))" "(do-syntax-local-value17.1" @@ -40937,9 +41125,9 @@ static const char *startup_source = " intdef102_0" " failure-thunk103_0))))))))))" "(case-lambda" -"((id_85)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_85 #f #f #f #f)))" -"((id_86 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_86 failure-thunk_4 intdef28_1 #t #t))" -"((id_87 failure-thunk27_1)(syntax-local-value/immediate32_0 id_87 failure-thunk27_1 #f #t #f)))))" +"((id_84)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_84 #f #f #f #f)))" +"((id_85 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_85 failure-thunk_4 intdef28_1 #t #t))" +"((id_86 failure-thunk27_1)(syntax-local-value/immediate32_0 id_86 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" "(lambda(who_16 n_28 s_55)" @@ -40968,15 +41156,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_9 end_6 inc_24)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_251 pos_105)" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_252 pos_105)" "(begin" " 'for-loop" "(if(< pos_105 end_6)" "(let-values()" -"(let-values(((fold-var_186)" -"(let-values(((fold-var_252) fold-var_251))" -"(let-values(((fold-var_253)" +"(let-values(((fold-var_187)" +"(let-values(((fold-var_253) fold-var_252))" +"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" @@ -41000,13 +41188,13 @@ static const char *startup_source = " name_23)" "(new-scope" " 'macro)))))" -" fold-var_252))))" -"(values fold-var_253)))))" +" fold-var_253))))" +"(values fold-var_254)))))" "(if(not #f)" -"(for-loop_256 fold-var_186(+ pos_105 inc_24))" -" fold-var_186)))" -" fold-var_251)))))" -" for-loop_256)" +"(for-loop_262 fold-var_187(+ pos_105 inc_24))" +" fold-var_187)))" +" fold-var_252)))))" +" for-loop_262)" " null" " start_9))))))" "(begin" @@ -41015,7 +41203,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_26 s_55)))" "(void)))" "(map2" -"(lambda(id_88)(flip-introduction-scopes id_88 ctx_55))" +"(lambda(id_87)(flip-introduction-scopes id_87 ctx_55))" "(add-lifted!" " lifts_8" " ids_26" @@ -41023,14 +41211,14 @@ static const char *startup_source = "(expand-context-phase ctx_55))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_195)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_195)))))" +"(lambda(s_194)" +"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_194)))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_410)" +"(lambda(n_29 s_409)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_410))))" +"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_409))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -41097,7 +41285,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_17) who52_0))" -"(let-values(((s_397) s53_1))" +"(let-values(((s_396) s53_1))" "(let-values(((no-target-msg_0) no-target-msg34_0))" "(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))" "(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))" @@ -41107,21 +41295,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_411 phase_113 lift-ctx_1)(begin 'pre-wrap s_411)))))" +"(lambda(s_410 phase_113 lift-ctx_1)(begin 'pre-wrap s_410)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_202 phase_114 lift-ctx_2)(begin 'shift-wrap s_202)))))" +"(lambda(s_201 phase_114 lift-ctx_2)(begin 'shift-wrap s_201)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_203 phase_115 lift-ctx_3)(begin 'post-wrap s_203)))))" +"(lambda(s_202 phase_115 lift-ctx_3)(begin 'post-wrap s_202)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_397)" +"(if(syntax?$1 s_396)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_397)))" +" (let-values () (raise-argument-error who_17 \"syntax?\" s_396)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_58)" @@ -41137,12 +41325,12 @@ static const char *startup_source = " who_17" " no-target-msg_0" " \"form to lift\"" -" s_397)))" +" s_396)))" "(values))))" "(let-values(((phase_116)(expand-context-phase ctx_58)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_397 ctx_58) s_397)))" +"(if intro?_0(flip-introduction-scopes s_396 ctx_58) s_396)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_116 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_40) phase_116)" @@ -41154,32 +41342,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_40 end_30 inc_25)))" -"((letrec-values(((for-loop_257)" -"(lambda(s_148 pos_106)" +"((letrec-values(((for-loop_34)" +"(lambda(s_147 pos_106)" "(begin" " 'for-loop" "(if(> pos_106 end_30)" "(let-values(((phase_117)" " pos_106))" +"(let-values(((s_411)" "(let-values(((s_412)" -"(let-values(((s_413)" -" s_148))" -"(let-values(((s_206)" +" s_147))" +"(let-values(((s_205)" "(let-values()" "(shift-wrap_0" -" s_413" +" s_412" "(sub1" " phase_117)" " lift-ctx_4))))" "(values" -" s_206)))))" +" s_205)))))" "(if(not #f)" -"(for-loop_257" -" s_412" +"(for-loop_34" +" s_411" "(+ pos_106 inc_25))" -" s_412)))" -" s_148)))))" -" for-loop_257)" +" s_411)))" +" s_147)))))" +" for-loop_34)" " pre-s_0" " start_40)))))" "(let-values(((post-s_1)" @@ -41189,13 +41377,13 @@ static const char *startup_source = "(values ctx_58 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_152 use-s_1)" +"(lambda(s_151 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values(((sc_29)(new-scope 'macro)))" "(let-values(((ctx_32 added-s_1)" "(let-values(((temp108_0) 'syntax-local-lift-require)" -"((temp109_0)(datum->syntax$1 #f s_152))" +"((temp109_0)(datum->syntax$1 #f s_151))" " ((temp110_1) \"could not find target context\")" "((temp111_1) #f)" "((temp112_0)" @@ -41208,10 +41396,10 @@ static const char *startup_source = "((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)" "((add-lifted-require!115_0) add-lifted-require!)" "((temp116_0)" -"(lambda(s_153 phase_118 require-lift-ctx_0)(require-spec-shift-for-syntax s_153)))" -"((temp117_1)" -"(lambda(s_113 phase_119 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_113 sc_29) phase_119))))" +"(lambda(s_152 phase_118 require-lift-ctx_0)(require-spec-shift-for-syntax s_152)))" +"((temp117_0)" +"(lambda(s_112 phase_119 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_112 sc_29) phase_119))))" "(do-local-lift-to-module54.1" " add-lifted-require!115_0" " expand-context-require-lifts113_0" @@ -41221,7 +41409,7 @@ static const char *startup_source = " temp112_0" " #t" " temp110_1" -" temp117_1" +" temp117_0" " #t" " #f" " #f" @@ -41245,21 +41433,21 @@ static const char *startup_source = " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_414)" +"(lambda(s_413)" "(begin" " 'syntax-local-lift-provide" "(let-values(((ctx_59 result-s_7)" -"(let-values(((temp118_1) 'syntax-local-lift-provide)" -"((s119_0) s_414)" -" ((temp120_0) \"not expanding in a module run-time body\")" +"(let-values(((temp118_0) 'syntax-local-lift-provide)" +"((s119_0) s_413)" +" ((temp120_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)" -"((temp124_1)" -"(lambda(s_116 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_116 #f)))" +"((temp124_2)" +"(lambda(s_115 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_115 #f)))" "((temp125_0)" -"(lambda(s_220 phase_121 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_220 phase_121))))" +"(lambda(s_219 phase_121 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_219 phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!123_0" " expand-context-to-module-lifts121_0" @@ -41268,28 +41456,28 @@ static const char *startup_source = " #f" " #f" " #f" -" temp120_0" +" temp120_1" " temp125_0" " #t" " #f" " #f" -" temp124_1" +" temp124_2" " #t" -" temp118_1" +" temp118_0" " s119_0))))" "(let-values(((obs_41)(expand-context-observer ctx_59)))" "(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_118)" +"(lambda(s_117)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values(((ctx_60 also-s_0)" "(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)" -"((s127_0) s_118)" +"((s127_0) s_117)" " ((temp128_1) \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)" -"((temp130_0)(lambda(lift-ctx_5) 0))" +"((temp130_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!131_0) add-lifted-to-module-end!)" "((temp132_0)" "(lambda(orig-s_32 phase_122 to-module-lift-ctx_2)" @@ -41297,12 +41485,12 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_122)" " orig-s_32)))" "((temp133_0)" -"(lambda(s_415 phase_123 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_415 phase_123))))" +"(lambda(s_414 phase_123 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_414 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!131_0" " expand-context-to-module-lifts129_0" -" temp130_0" +" temp130_1" " #f" " #f" " #f" @@ -41317,14 +41505,14 @@ static const char *startup_source = " temp126_1" " s127_0))))" "(let-values(((obs_42)(expand-context-observer ctx_60)))" -"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_118)))(void)))))))" +"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_117)))(void)))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_416 phase_124)" +"(lambda(sym_66 s_415 phase_124)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_416)))))" +"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_415)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -41361,8 +41549,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_285)(eq? phase-level_21 #t)))" -"(if or-part_285 or-part_285(phase? phase-level_21)))" +"(if(let-values(((or-part_288)(eq? phase-level_21 #t)))" +"(if or-part_288 or-part_288(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41391,63 +41579,63 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_139)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_204)" -"(lambda(fold-var_195 i_6)" +"(let-values()(check-in-hash ht_139)))" +"((letrec-values(((for-loop_206)" +"(lambda(fold-var_196 i_6)" "(begin" " 'for-loop" "(if i_6" "(let-values(((phase_125 ids_27)" -"(hash-iterate-key+value ht_136 i_6)))" -"(let-values(((fold-var_196)" -"(let-values(((fold-var_197) fold-var_195))" -"(let-values(((fold-var_198)" +"(hash-iterate-key+value ht_139 i_6)))" +"(let-values(((fold-var_197)" +"(let-values(((fold-var_198) fold-var_196))" +"(let-values(((fold-var_199)" "(let-values()" "(cons" "(let-values()" "(cons phase_125 ids_27))" -" fold-var_197))))" -"(values fold-var_198)))))" +" fold-var_198))))" +"(values fold-var_199)))))" "(if(not #f)" -"(for-loop_204 fold-var_196(hash-iterate-next ht_136 i_6))" -" fold-var_196)))" -" fold-var_195)))))" -" for-loop_204)" +"(for-loop_206 fold-var_197(hash-iterate-next ht_139 i_6))" +" fold-var_197)))" +" fold-var_196)))))" +" for-loop_206)" " null" -"(hash-iterate-first ht_136)))))" +"(hash-iterate-first ht_139)))))" " #f)))))))))))" "(define-values" "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_299) requireds_1))" +"(let-values(((lst_301) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" -"((letrec-values(((for-loop_258)" -"(lambda(ht_137 lst_212)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" +"((letrec-values(((for-loop_263)" +"(lambda(ht_140 lst_213)" "(begin" " 'for-loop" -"(if(pair? lst_212)" -"(let-values(((r_42)(unsafe-car lst_212))((rest_108)(unsafe-cdr lst_212)))" -"(let-values(((ht_138)" -"(let-values(((ht_139) ht_137))" -"(let-values(((ht_140)" +"(if(pair? lst_213)" +"(let-values(((r_42)(unsafe-car lst_213))((rest_108)(unsafe-cdr lst_213)))" +"(let-values(((ht_141)" +"(let-values(((ht_142) ht_140))" +"(let-values(((ht_143)" "(let-values()" "(hash-update" -" ht_139" +" ht_142" "(required-phase r_42)" "(lambda(l_68)(cons(required-id r_42) l_68))" " null))))" -"(values ht_140)))))" -"(if(not #f)(for-loop_258 ht_138 rest_108) ht_138)))" -" ht_137)))))" -" for-loop_258)" +"(values ht_143)))))" +"(if(not #f)(for-loop_263 ht_141 rest_108) ht_141)))" +" ht_140)))))" +" for-loop_263)" "(hasheqv)" -" lst_299))))))" +" lst_301))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -41455,9 +41643,9 @@ static const char *startup_source = " 'syntax-local-module-exports" "(let-values((()" "(begin" -"(if(let-values(((or-part_286)(1/module-path? mod-path_9)))" -"(if or-part_286" -" or-part_286" +"(if(let-values(((or-part_289)(1/module-path? mod-path_9)))" +"(if or-part_289" +" or-part_289" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -41473,161 +41661,161 @@ static const char *startup_source = "(let-values(((ctx_63)" "(let-values(((temp136_0) 'syntax-local-module-exports))" "(get-current-expand-context17.1 #f #f temp136_0 #t))))" -"(let-values(((ns_74)(expand-context-namespace ctx_63)))" +"(let-values(((ns_75)(expand-context-namespace ctx_63)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" "(module-path->mpi/context" "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" " ctx_63)" " #t)))" -"(let-values(((m_19)(namespace->module ns_74 mod-name_18)))" +"(let-values(((m_19)(namespace->module ns_75 mod-name_18)))" "(begin" "(if m_19(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_141)(module-provides m_19)))" +"(let-values(((ht_144)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_134)" -"(lambda(fold-var_254 i_115)" +"(let-values()(check-in-hash ht_144)))" +"((letrec-values(((for-loop_133)" +"(lambda(fold-var_255 i_115)" "(begin" " 'for-loop" "(if i_115" -"(let-values(((phase_126 syms_22)(hash-iterate-key+value ht_141 i_115)))" -"(let-values(((fold-var_255)" -"(let-values(((fold-var_256) fold-var_254))" -"(let-values(((fold-var_257)" +"(let-values(((phase_126 syms_22)(hash-iterate-key+value ht_144 i_115)))" +"(let-values(((fold-var_256)" +"(let-values(((fold-var_257) fold-var_255))" +"(let-values(((fold-var_258)" "(let-values()" "(cons" "(let-values()" "(cons" " phase_126" "(reverse$1" -"(let-values(((ht_142) syms_22))" +"(let-values(((ht_145) syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_142)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_206" +" ht_145)))" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_207" " i_11)" "(begin" " 'for-loop" "(if i_11" "(let-values(((sym_67)" "(hash-iterate-key" -" ht_142" +" ht_145" " i_11)))" -"(let-values(((fold-var_258)" "(let-values(((fold-var_259)" -" fold-var_206))" "(let-values(((fold-var_260)" +" fold-var_207))" +"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" " sym_67)" -" fold-var_259))))" +" fold-var_260))))" "(values" -" fold-var_260)))))" +" fold-var_261)))))" "(if(not" " #f)" -"(for-loop_259" -" fold-var_258" +"(for-loop_264" +" fold-var_259" "(hash-iterate-next" -" ht_142" +" ht_145" " i_11))" -" fold-var_258)))" -" fold-var_206)))))" -" for-loop_259)" +" fold-var_259)))" +" fold-var_207)))))" +" for-loop_264)" " null" "(hash-iterate-first" -" ht_142)))))))" -" fold-var_256))))" -"(values fold-var_257)))))" +" ht_145)))))))" +" fold-var_257))))" +"(values fold-var_258)))))" "(if(not #f)" -"(for-loop_134 fold-var_255(hash-iterate-next ht_141 i_115))" -" fold-var_255)))" -" fold-var_254)))))" -" for-loop_134)" +"(for-loop_133 fold-var_256(hash-iterate-next ht_144 i_115))" +" fold-var_256)))" +" fold-var_255)))))" +" for-loop_133)" " null" -"(hash-iterate-first ht_141))))))))))))))" +"(hash-iterate-first ht_144))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" "(begin" " 'syntax-local-submodules" "(let-values(((ctx_64)" -"(let-values(((temp137_1) 'syntax-local-submodules))" -"(get-current-expand-context17.1 #f #f temp137_1 #t))))" +"(let-values(((temp137_0) 'syntax-local-submodules))" +"(get-current-expand-context17.1 #f #f temp137_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" "(reverse$1" -"(let-values(((ht_143) submods_3))" +"(let-values(((ht_146) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_261 i_167)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_262 i_168)" "(begin" " 'for-loop" -"(if i_167" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_167)))" -"(let-values(((fold-var_262)" -"(let-values(((fold-var_263) fold-var_261))" +"(if i_168" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_146 i_168)))" +"(let-values(((fold-var_263)" +"(let-values(((fold-var_264) fold-var_262))" "(if(eq? kind_8 'module)" -"(let-values(((fold-var_264) fold-var_263))" -"(let-values(((fold-var_265)" +"(let-values(((fold-var_265) fold-var_264))" +"(let-values(((fold-var_266)" "(let-values()" "(cons" "(let-values() name_62)" +" fold-var_265))))" +"(values fold-var_266)))" " fold-var_264))))" -"(values fold-var_265)))" -" fold-var_263))))" "(if(not #f)" -"(for-loop_260 fold-var_262(hash-iterate-next ht_143 i_167))" -" fold-var_262)))" -" fold-var_261)))))" -" for-loop_260)" +"(for-loop_265 fold-var_263(hash-iterate-next ht_146 i_168))" +" fold-var_263)))" +" fold-var_262)))))" +" for-loop_265)" " null" -"(hash-iterate-first ht_143))))))))))" +"(hash-iterate-first ht_146))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" "(lambda(id59_0 only-generated?57_0 only-generated?58_0)" "(begin" " 'syntax-local-get-shadower60" -"(let-values(((id_89) id59_0))" +"(let-values(((id_88) id59_0))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_89)" +"(if(identifier? id_88)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_89)))" +" (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_88)))" "(values))))" "(let-values(((ctx_65)" -"(let-values(((temp138_1) 'syntax-local-get-shadower))" -"(get-current-expand-context17.1 #f #f temp138_1 #t))))" -"(let-values(((new-id_0)(add-scopes id_89(expand-context-scopes ctx_65))))" -"(if(syntax-clean? id_89) new-id_0(syntax-taint$1 new-id_0))))))))))))" +"(let-values(((temp138_0) 'syntax-local-get-shadower))" +"(get-current-expand-context17.1 #f #f temp138_0 #t))))" +"(let-values(((new-id_0)(add-scopes id_88(expand-context-scopes ctx_65))))" +"(if(syntax-clean? id_88) new-id_0(syntax-taint$1 new-id_0))))))))))))" "(case-lambda" -"((id_90)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_90 #f #f)))" -"((id_91 only-generated?57_1)(syntax-local-get-shadower60_0 id_91 only-generated?57_1 #t)))))" +"((id_89)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_89 #f #f)))" +"((id_90 only-generated?57_1)(syntax-local-get-shadower60_0 id_90 only-generated?57_1 #t)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_155)" +"(lambda(s_154)" "(let-values((()" "(begin" -" (if (syntax?$1 s_155) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_155)))" +" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_154)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_155)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_154)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -41643,8 +41831,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_67)" "(begin" -"(if(let-values(((or-part_287)(not(vector-ref v_67 1))))" -"(if or-part_287 or-part_287(exact-positive-integer?(vector-ref v_67 1))))" +"(if(let-values(((or-part_290)(not(vector-ref v_67 1))))" +"(if or-part_290 or-part_290(exact-positive-integer?(vector-ref v_67 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_67 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_67 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_67 3))))" @@ -41660,19 +41848,19 @@ static const char *startup_source = "(begin" "(if(srcloc? v_193)" "(let-values()" -"(let-values(((the-struct_73) empty-syntax))" -"(if(syntax?$1 the-struct_73)" +"(let-values(((the-struct_72) empty-syntax))" +"(if(syntax?$1 the-struct_72)" "(let-values(((srcloc1_2) v_193))" "(syntax1.1" -"(syntax-content the-struct_73)" -"(syntax-scopes the-struct_73)" -"(syntax-shifted-multi-scopes the-struct_73)" -"(syntax-scope-propagations+tamper the-struct_73)" -"(syntax-mpi-shifts the-struct_73)" +"(syntax-content the-struct_72)" +"(syntax-scopes the-struct_72)" +"(syntax-shifted-multi-scopes the-struct_72)" +"(syntax-scope-propagations+tamper the-struct_72)" +"(syntax-mpi-shifts the-struct_72)" " srcloc1_2" -"(syntax-props the-struct_73)" -"(syntax-inspector the-struct_73)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_73))))" +"(syntax-props the-struct_72)" +"(syntax-inspector the-struct_72)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_72))))" "(if(pair? v_193)" "(let-values()(to-srcloc-stx(list->vector v_193)))" "(if(vector? v_193)" @@ -41707,13 +41895,13 @@ static const char *startup_source = "(syntax-e$1 s_0)))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_154)" +"(lambda(s_153)" "(begin" " 'syntax->datum" "(begin" -" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_154)))" -"(syntax->datum$1 s_154)))))" -"(define-values(maybe-syntax->datum)(lambda(s_155)(begin(if(syntax?$1 s_155)(syntax->datum$1 s_155) s_155))))" +" (if (syntax?$1 s_153) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_153)))" +"(syntax->datum$1 s_153)))))" +"(define-values(maybe-syntax->datum)(lambda(s_154)(begin(if(syntax?$1 s_154)(syntax->datum$1 s_154) s_154))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -41721,7 +41909,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_417) s8_0))" +"(let-values(((s_416) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -41731,9 +41919,9 @@ static const char *startup_source = "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_288)(not stx-l_2)))" -"(if or-part_288" -" or-part_288" +"(if(let-values(((or-part_291)(not stx-l_2)))" +"(if or-part_291" +" or-part_291" "(let-values(((or-part_28)(syntax?$1 stx-l_2)))" "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" @@ -41753,32 +41941,32 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_289)(not stx-p_1)))" -"(if or-part_289 or-part_289(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_292)(not stx-p_1)))" +"(if or-part_292 or-part_292(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_417(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +"(datum->syntax$1 stx-c_4 s_416(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" "(case-lambda" -"((stx-c_5 s_69)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_69 #f #f #f #f #f #f)))" +"((stx-c_5 s_68)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_68 #f #f #f #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" -"((stx-c_7 s_70 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_70 stx-l_4 stx-p2_1 #f #t #t #f))" +"((stx-c_7 s_69 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_69 stx-l_4 stx-p2_1 #f #t #t #f))" "((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_418)" +"(lambda(s_417)" "(begin" " 'syntax->list" "(begin" -" (if (syntax?$1 s_418) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_418)))" -"(syntax->list$1 s_418)))))" +" (if (syntax?$1 s_417) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_417)))" +"(syntax->list$1 s_417)))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_419)" +"(lambda(s_418)" "(begin" " 'syntax-original?" "(begin" -" (if (syntax?$1 s_419) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_419)))" -"(if(syntax-property$1 s_419 original-property-sym)(not(syntax-any-macro-scopes? s_419)) #f)))))" +" (if (syntax?$1 s_418) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_418)))" +"(if(syntax-property$1 s_418 original-property-sym)(not(syntax-any-macro-scopes? s_418)) #f)))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -41786,23 +41974,23 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_79) b14_1))" +"(let-values(((b_77) b14_1))" "(let-values(((phase_19)(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_79)" +"(if(identifier? b_77)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_79)))" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_77)))" "(if(phase? phase_19)" "(void)" "(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_19)))" -"(bound-identifier=?$1 a_53 b_79 phase_19))))))))))" +"(bound-identifier=?$1 a_53 b_77 phase_19))))))))))" "(case-lambda" "((a_54 b_48)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_48 #f #f)))" -"((a_55 b_80 phase11_1)(bound-identifier=?15_0 a_55 b_80 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)" @@ -41810,7 +41998,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_81) 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()" @@ -41818,23 +42006,23 @@ static const char *startup_source = "(if(identifier? a_56)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_81)" +"(if(identifier? b_79)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_81)))" +" (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_81 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_82 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_82 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_83 a-phase17_1)(free-identifier=?23_0 a_59 b_83 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_84)" +"(lambda(a_60 b_82)" "(begin" " 'free-transformer-identifier=?" "(let-values((()" @@ -41845,15 +42033,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_84)" +"(if(identifier? b_82)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_84)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_82)))" "(values))))" "(let-values(((phase_127)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_84 phase_127 phase_127)))))))" +"(free-identifier=?$1 a_60 b_82 phase_127 phase_127)))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_85)" +"(lambda(a_61 b_83)" "(begin" " 'free-template-identifier=?" "(let-values((()" @@ -41864,126 +42052,126 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_85)" +"(if(identifier? b_83)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_85)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_83)))" "(values))))" "(let-values(((phase_128)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_85 phase_128 phase_128)))))))" +"(free-identifier=?$1 a_61 b_83 phase_128 phase_128)))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_62 b_86)" +"(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_86)" +"(if(identifier? b_84)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_86)))" -"(free-identifier=?$1 a_62 b_86 #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)" "(lambda(id29_1 phase25_1 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" "(begin" " 'identifier-binding30" -"(let-values(((id_92) id29_1))" +"(let-values(((id_91) id29_1))" "(let-values(((phase_85)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))" "(let-values()" "(begin" -"(if(identifier? id_92)" +"(if(identifier? id_91)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_92)))" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))" "(if(phase? phase_85)" "(void)" "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_85)))" -"(identifier-binding$1 id_92 phase_85 top-level-symbol?_1))))))))))" +"(identifier-binding$1 id_91 phase_85 top-level-symbol?_1))))))))))" "(case-lambda" -"((id_93)(begin 'identifier-binding(identifier-binding30_0 id_93 #f #f #f #f)))" -"((id_94 phase_129 top-level-symbol?26_1)(identifier-binding30_0 id_94 phase_129 top-level-symbol?26_1 #t #t))" -"((id_95 phase25_2)(identifier-binding30_0 id_95 phase25_2 #f #t #f)))))" +"((id_92)(begin 'identifier-binding(identifier-binding30_0 id_92 #f #f #f #f)))" +"((id_93 phase_129 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_129 top-level-symbol?26_1 #t #t))" +"((id_94 phase25_2)(identifier-binding30_0 id_94 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding35_0)" -"(lambda(id34_0 phase32_2 phase33_2)" +"(lambda(id34_1 phase32_1 phase33_1)" "(begin" " 'identifier-transformer-binding35" -"(let-values(((id_96) id34_0))" -"(let-values(((phase_93)(if phase33_2 phase32_2(1/syntax-local-phase-level))))" +"(let-values(((id_95) id34_1))" +"(let-values(((phase_93)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" "(let-values()" "(begin" -"(if(identifier? id_96)" +"(if(identifier? id_95)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_96)))" -"(identifier-binding$1 id_96(if phase_93(add1 phase_93) #f))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_95)))" +"(identifier-binding$1 id_95(if phase_93(add1 phase_93) #f))))))))))" "(case-lambda" -"((id_97)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_97 #f #f)))" -"((id_98 phase32_3)(identifier-transformer-binding35_0 id_98 phase32_3 #t)))))" +"((id_96)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_96 #f #f)))" +"((id_97 phase32_2)(identifier-transformer-binding35_0 id_97 phase32_2 #t)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_99)" +"(lambda(id_98)" "(begin" " 'identifier-template-binding" "(begin" -"(if(identifier? id_99)" +"(if(identifier? id_98)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_99)))" -"(identifier-binding$1 id_99(sub1(1/syntax-local-phase-level)))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_98)))" +"(identifier-binding$1 id_98(sub1(1/syntax-local-phase-level)))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_78)" +"(lambda(id_77)" "(begin" " 'identifier-label-binding" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_77)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_78)))" -"(identifier-binding$1 id_78 #f)))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_77)))" +"(identifier-binding$1 id_77 #f)))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" "(lambda(id39_0 phase37_2 phase38_0)" "(begin" " 'identifier-binding-symbol40" -"(let-values(((id_100) id39_0))" +"(let-values(((id_99) id39_0))" "(let-values(((phase_111)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(begin" -"(if(identifier? id_100)" +"(if(identifier? id_99)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_100)))" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_99)))" "(if(phase? phase_111)" "(void)" "(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_111)))" -"(identifier-binding-symbol$1 id_100 phase_111)))))))))" +"(identifier-binding-symbol$1 id_99 phase_111)))))))))" "(case-lambda" -"((id_101)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_101 #f #f)))" -"((id_102 phase37_3)(identifier-binding-symbol40_0 id_102 phase37_3 #t)))))" +"((id_100)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_100 #f #f)))" +"((id_101 phase37_3)(identifier-binding-symbol40_0 id_101 phase37_3 #t)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context45_0)" "(lambda(id44_0 syms42_0 syms43_0)" "(begin" " 'identifier-prune-lexical-context45" -"(let-values(((id_103) id44_0))" +"(let-values(((id_102) id44_0))" "(let-values(((syms_23)(if syms43_0 syms42_0 null)))" "(let-values()" "(begin" -"(if(identifier? id_103)" +"(if(identifier? id_102)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_103)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_102)))" "(if(if(list? syms_23)(andmap2 symbol? syms_23) #f)" "(void)" "(let-values()" " (raise-argument-error 'identifier-prune-lexical-context \"(listof symbol?)\" syms_23)))" -" id_103))))))))" +" id_102))))))))" "(case-lambda" -"((id_79)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_79 #f #f)))" +"((id_78)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_78 #f #f)))" "((id_69 syms42_1)(identifier-prune-lexical-context45_0 id_69 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" @@ -41991,36 +42179,36 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_306) s51_1))" -"(let-values(((phase_12)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((s_305) s51_1))" +"(let-values(((phase_1)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_306)" +"(if(syntax?$1 s_305)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_306)))" -"(if(phase? phase_12)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_305)))" +"(if(phase? phase_1)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_12)))" -"(syntax-debug-info$1 s_306 phase_12 all-bindings?_1))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_1)))" +"(syntax-debug-info$1 s_305 phase_1 all-bindings?_1))))))))))" "(case-lambda" -"((s_420)(begin 'syntax-debug-info(syntax-debug-info52_0 s_420 #f #f #f #f)))" +"((s_419)(begin 'syntax-debug-info(syntax-debug-info52_0 s_419 #f #f #f #f)))" "((s_27 phase_130 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_130 all-bindings?48_1 #t #t))" "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_392 phase_131)" +"(lambda(s_391 phase_34)" "(begin" " 'syntax-shift-phase-level" "(begin" -" (if (syntax?$1 s_392) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_392)))" -"(if(phase? phase_131)" +" (if (syntax?$1 s_391) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_391)))" +"(if(phase? phase_34)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_131)))" -"(syntax-shift-phase-level$1 s_392 phase_131)))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_34)))" +"(syntax-shift-phase-level$1 s_391 phase_34)))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_104)" +"(lambda(new-stx_8 old-stx_4 id_103)" "(begin" " 'syntax-track-origin" "(let-values((()" @@ -42037,21 +42225,21 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_104)" +"(if(identifier? id_103)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_104)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_103)))" "(values))))" -"(let-values(((s_421)(syntax-track-origin$1 new-stx_8 old-stx_4 id_104)))" -"(let-values(((ctx_66)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))" +"(let-values(((s_420)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" +"(let-values(((ctx_66)(let-values(((temp54_1) #t))(get-current-expand-context17.1 temp54_1 #t #f #f))))" "(begin" "(if ctx_66" "(let-values()" "(let-values(((obs_43)(expand-context-observer ctx_66)))" "(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_421)))" +"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_420)))" "(void))))" "(void))" -" s_421)))))))))" +" s_420)))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -42144,17 +42332,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_18 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_132)(namespace-phase src-namespace_6)))" +"(let-values(((phase_131)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_132(namespace-phase dest-namespace_2))" +"(if(eqv? phase_131(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_18" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_132" +" phase_131" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -42164,7 +42352,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_39)" "(lambda(mpi_45" -" phase_133" +" phase_132" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -42183,7 +42371,7 @@ static const char *startup_source = " mpi_45)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_133 attach-phase_0)" +"(eqv? phase_132 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -42191,7 +42379,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_133" +" phase_132" " missing_0)))" "(if(let-values(((or-part_168)" "(eq? missing_0 m-ns_12)))" @@ -42217,9 +42405,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_133))" +"(label-phase? phase_132))" "(not" -"(zero-phase? phase_133))" +"(zero-phase? phase_132))" " #f)" " #f)" "(let-values()" @@ -42251,10 +42439,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_290)" +"(if(let-values(((or-part_293)" " attach-this-instance?_0))" -"(if or-part_290" -" or-part_290" +"(if or-part_293" +" or-part_293" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -42264,7 +42452,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_133))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42293,7 +42481,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_133))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42332,14 +42520,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_133)" +" phase_132)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_133))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42366,7 +42554,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_45)" "((phase43_1)" -" phase_133))" +" phase_132))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -42392,7 +42580,7 @@ static const char *startup_source = "(lambda(ht_25)" "(hash-set" " ht_25" -" phase_133" +" phase_132" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -42410,17 +42598,17 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_225)" +"(lambda(lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_226)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_225))" -"((rest_167)" +" lst_226))" +"((rest_166)" "(unsafe-cdr" -" lst_225)))" +" lst_226)))" "(let-values((()" "(let-values(((lst_176)" "(cdr" @@ -42433,17 +42621,17 @@ static const char *startup_source = "(check-list" " lst_176)))" "((letrec-values(((for-loop_29)" -"(lambda(lst_277)" +"(lambda(lst_280)" "(begin" " 'for-loop" "(if(pair?" -" lst_277)" +" lst_280)" "(let-values(((req_5)" "(unsafe-car" -" lst_277))" +" lst_280))" "((rest_153)" "(unsafe-cdr" -" lst_277)))" +" lst_280)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42457,7 +42645,7 @@ static const char *startup_source = " m_20)" " mpi_45)" "(phase+" -" phase_133" +" phase_132" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -42475,13 +42663,13 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_17" -" rest_167)" +" rest_166)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_300)" +"(let-values(((lst_302)" "(module-submodule-names" " m_20)))" "(begin" @@ -42490,19 +42678,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_300)))" -"((letrec-values(((for-loop_261)" -"(lambda(lst_301)" +" lst_302)))" +"((letrec-values(((for-loop_266)" +"(lambda(lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_301)" +" lst_303)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_301))" -"((rest_168)" +" lst_303))" +"((rest_167)" "(unsafe-cdr" -" lst_301)))" +" lst_303)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42523,12 +42711,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_261" -" rest_168)" +"(for-loop_266" +" rest_167)" "(values))))" "(values))))))" -" for-loop_261)" -" lst_300)))" +" for-loop_266)" +" lst_302)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -42549,28 +42737,28 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_132" +" phase_131" " attach-instances?_0" -" phase_132)" +" phase_131)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_144) todo_0))" +"(let-values(((ht_147) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_106)" -"(lambda(i_168)" +"(let-values()(check-in-hash ht_147)))" +"((letrec-values(((for-loop_105)" +"(lambda(i_169)" "(begin" " 'for-loop" -"(if i_168" +"(if i_169" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_144" -" i_168)))" +" ht_147" +" i_169)))" "(let-values((()" -"(let-values(((ht_145)" +"(let-values(((ht_148)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42578,17 +42766,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_145)))" -"((letrec-values(((for-loop_262)" -"(lambda(i_102)" +" ht_148)))" +"((letrec-values(((for-loop_267)" +"(lambda(i_101)" "(begin" " 'for-loop" -"(if i_102" -"(let-values(((phase_134" +"(if i_101" +"(let-values(((phase_133" " m-ns_15)" "(hash-iterate-key+value" -" ht_145" -" i_102)))" +" ht_148" +" i_101)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42630,14 +42818,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_134)" -"(let-values(((or-part_291)" +" phase_133)" +"(let-values(((or-part_294)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_134))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42648,12 +42836,12 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_291" -" or-part_291" +"(if or-part_294" +" or-part_294" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_134" +" phase_133" " m_21" " m-ns_15)))))" "(void)))))" @@ -42661,22 +42849,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_267" "(hash-iterate-next" -" ht_145" -" i_102))" +" ht_148" +" i_101))" "(values))))" "(values))))))" -" for-loop_262)" +" for-loop_267)" "(hash-iterate-first" -" ht_145))))))" +" ht_148))))))" "(if(not #f)" -"(for-loop_106" -"(hash-iterate-next ht_144 i_168))" +"(for-loop_105" +"(hash-iterate-next ht_147 i_169))" "(values))))" "(values))))))" -" for-loop_106)" -"(hash-iterate-first ht_144))))" +" for-loop_105)" +"(hash-iterate-first ht_147))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -42688,18 +42876,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_146) todo_0))" +"(let-values(((ht_149) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_146)))" +"(let-values()(check-in-hash-keys ht_149)))" "((letrec-values(((for-loop_175)" -"(lambda(i_103)" +"(lambda(i_102)" "(begin" " 'for-loop" -"(if i_103" +"(if i_102" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_146 i_103)))" +"(hash-iterate-key ht_149 i_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42713,11 +42901,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_175" -"(hash-iterate-next ht_146 i_103))" +"(hash-iterate-next ht_149 i_102))" "(values))))" "(values))))))" " for-loop_175)" -"(hash-iterate-first ht_146))))" +"(hash-iterate-first ht_149))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -42726,11 +42914,11 @@ static const char *startup_source = " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" "(let-values(((phase_42)(namespace-phase current-ns_0)))" -"(let-values(((ns_58)(namespace->namespace-at-phase(make-namespace) phase_42)))" +"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_42)))" "(begin" -"(1/namespace-attach-module current-ns_0 ''#%kernel ns_58)" -"(namespace-primitive-module-visit! ns_58 '#%kernel)" -" ns_58)))))))" +"(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)" +"(namespace-primitive-module-visit! ns_59 '#%kernel)" +" ns_59)))))))" "(define-values" "(1/namespace-syntax-introduce)" "(let-values(((namespace-syntax-introduce4_0)" @@ -42738,7 +42926,7 @@ static const char *startup_source = "(begin" " 'namespace-syntax-introduce4" "(let-values(((s_3) s3_2))" -"(let-values(((ns_59)(if ns2_0 ns1_3(1/current-namespace))))" +"(let-values(((ns_60)(if ns2_0 ns1_3(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -42749,74 +42937,74 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_59)" +"(if(1/namespace? ns_60)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-syntax-introduce \"namespace?\" ns_59)))" +" (raise-argument-error 'namespace-syntax-introduce \"namespace?\" ns_60)))" "(values))))" -"(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_59)))" +"(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_60)))" "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" "(let-values(((ht_81)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" -"(namespace-phase ns_59))))" +"(namespace-phase ns_60))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_81)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_239 i_169)" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_240 i_170)" "(begin" " 'for-loop" -"(if i_169" +"(if i_170" "(let-values(((sc_30)" "(unsafe-immutable-hash-iterate-key" " ht_81" -" i_169)))" -"(let-values(((fold-var_216)" +" i_170)))" "(let-values(((fold-var_217)" -" fold-var_239))" +"(let-values(((fold-var_218)" +" fold-var_240))" "(if(equal?" " sc_30" " post-scope_1)" -" fold-var_217" +" fold-var_218" "(let-values(((fold-var_30)" -" fold-var_217))" -"(let-values(((fold-var_218)" +" fold-var_218))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" " sc_30)" " fold-var_30))))" "(values" -" fold-var_218)))))))" +" fold-var_219)))))))" "(if(not #f)" -"(for-loop_250" -" fold-var_216" +"(for-loop_255" +" fold-var_217" "(unsafe-immutable-hash-iterate-next" " ht_81" -" i_169))" -" fold-var_216)))" -" fold-var_239)))))" -" for-loop_250)" +" i_170))" +" fold-var_217)))" +" fold-var_240)))))" +" for-loop_255)" " null" "(unsafe-immutable-hash-iterate-first ht_81)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_169)" +"(lambda(s_168)" "(begin" " 'add-ns-scopes" "(let-values(((temp78_4)" "(add-scopes" -"(push-scope s_169 post-scope_1)" +"(push-scope s_168 post-scope_1)" " other-namespace-scopes_0))" "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp80_2)" "(let-values(((or-part_74)" "(namespace-declaration-inspector" -" ns_59)))" +" ns_60)))" "(if or-part_74" " or-part_74" "(current-code-inspector))))" @@ -42837,8 +43025,8 @@ static const char *startup_source = "(if(if maybe-module-id_0" "(1/free-identifier=?" " maybe-module-id_0" -"(1/namespace-module-identifier ns_59)" -"(namespace-phase ns_59))" +"(1/namespace-module-identifier ns_60)" +"(namespace-phase ns_60))" " #f)" "(let-values()" "(1/datum->syntax" @@ -42848,8 +43036,8 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" "(case-lambda" -"((s_422)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_422 #f #f)))" -"((s_423 ns1_2)(namespace-syntax-introduce4_0 s_423 ns1_2 #t)))))" +"((s_421)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_421 #f #f)))" +"((s_422 ns1_2)(namespace-syntax-introduce4_0 s_422 ns1_2 #t)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -42906,7 +43094,7 @@ static const char *startup_source = "(let-values(((visit?_3)(if visit?16_0 visit?11_0 #f)))" "(let-values(((who_19) who20_0))" "(let-values(((req_6) req21_0))" -"(let-values(((ns_75) ns22_1))" +"(let-values(((ns_76) ns22_1))" "(let-values(((copy-variable-phase-level_2)" "(if copy-variable-phase-level17_0 copy-variable-phase-level12_0 #f)))" "(let-values(((copy-variable-as-constant?_2)" @@ -42916,14 +43104,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(1/namespace? ns_75)" +"(if(1/namespace? ns_76)" "(void)" -" (let-values () (raise-argument-error who_19 \"namespace?\" ns_75)))" +" (let-values () (raise-argument-error who_19 \"namespace?\" ns_76)))" "(values))))" "(let-values(((ctx-stx_0)" "(add-scopes" " empty-syntax" -"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_75)))))" +"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" "(if(let-values(((or-part_168)(1/module-path-index? req_6)))" "(if or-part_168 or-part_168(1/module-path? req_6)))" "(let-values()" @@ -42934,11 +43122,11 @@ static const char *startup_source = "((temp83_1) #f)" "((temp84_1) #f)" "((ctx-stx85_0) ctx-stx_0)" -"((ns86_0) ns_75)" +"((ns86_0) ns_76)" "((run?87_0) run?_3)" "((visit?88_0) visit?_3)" -"((temp89_3)(namespace-phase ns_75))" -"((temp90_0)(namespace-phase ns_75))" +"((temp89_3)(namespace-phase ns_76))" +"((temp90_0)(namespace-phase ns_76))" "((copy-variable-phase-level91_0) copy-variable-phase-level_2)" "((copy-variable-as-constant?92_0) copy-variable-as-constant?_2)" "((skip-variable-phase-level93_0) skip-variable-phase-level_2)" @@ -42979,8 +43167,8 @@ static const char *startup_source = "((visit?96_0) visit?_3)" "((temp97_2)(list(1/datum->syntax ctx-stx_0 req_6)))" "((temp98_2) #f)" -"((ns99_0) ns_75)" -"((temp100_1)(namespace-phase ns_75))" +"((ns99_0) ns_76)" +"((temp100_1)(namespace-phase ns_76))" "((temp101_0)" "(let-values(((temp104_0) #f))" "(make-requires+provides8.1 #f #f temp104_0)))" @@ -43018,9 +43206,9 @@ static const char *startup_source = "(begin" " 'namespace-require29" "(let-values(((req_7) req28_0))" -"(let-values(((ns_76)(if ns27_0 ns26_0(1/current-namespace))))" +"(let-values(((ns_77)(if ns27_0 ns26_0(1/current-namespace))))" "(let-values()" -"(let-values(((temp105_1) 'namespace-require)((req106_0) req_7)((ns107_0) ns_76))" +"(let-values(((temp105_1) 'namespace-require)((req106_0) req_7)((ns107_0) ns_77))" "(do-namespace-require23.1 #f #f #f #f #f #f #f #f #f #f temp105_1 req106_0 ns107_0)))))))))" "(case-lambda" "((req_8)(begin 'namespace-require(namespace-require29_0 req_8 #f #f)))" @@ -43032,13 +43220,13 @@ static const char *startup_source = "(begin" " 'namespace-require/expansion-time34" "(let-values(((req_10) req33_0))" -"(let-values(((ns_77)(if ns32_0 ns31_1(1/current-namespace))))" +"(let-values(((ns_78)(if ns32_0 ns31_1(1/current-namespace))))" "(let-values()" "(let-values(((temp108_1) #f)" "((temp109_1) #t)" "((temp110_2) 'namespace-require/expansion-time)" "((req111_0) req_10)" -"((ns112_0) ns_77))" +"((ns112_0) ns_78))" "(do-namespace-require23.1" " #f" " #f" @@ -43063,15 +43251,15 @@ static const char *startup_source = "(begin" " 'namespace-require/constant39" "(let-values(((req_13) req38_0))" -"(let-values(((ns_78)(if ns37_0 ns36_0(1/current-namespace))))" +"(let-values(((ns_79)(if ns37_0 ns36_0(1/current-namespace))))" "(let-values()" "(let-values(((temp113_0) 'namespace-require/constant)" "((req114_0) req_13)" -"((ns115_0) ns_78)" +"((ns115_0) ns_79)" "((temp116_1) 0)" -"((temp117_2) #t))" +"((temp117_1) #t))" "(do-namespace-require23.1" -" temp117_2" +" temp117_1" " #t" " temp116_1" " #t" @@ -43094,17 +43282,17 @@ static const char *startup_source = "(begin" " 'namespace-require/copy44" "(let-values(((req_16) req43_0))" -"(let-values(((ns_79)(if ns42_0 ns41_0(1/current-namespace))))" +"(let-values(((ns_80)(if ns42_0 ns41_0(1/current-namespace))))" "(let-values()" -"(let-values(((temp118_2) 'namespace-require/copy)" +"(let-values(((temp118_1) 'namespace-require/copy)" "((req119_0) req_16)" -"((ns120_0) ns_79)" -"((temp121_2) 0)" +"((ns120_0) ns_80)" +"((temp121_1) 0)" "((temp122_1) 0))" "(do-namespace-require23.1" " #f" " #f" -" temp121_2" +" temp121_1" " #t" " #f" " #f" @@ -43112,7 +43300,7 @@ static const char *startup_source = " #t" " #f" " #f" -" temp118_2" +" temp118_1" " req119_0" " ns120_0)))))))))" "(case-lambda" @@ -43127,15 +43315,15 @@ static const char *startup_source = "(let-values(((sym_69) sym52_0))" "(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" -"(let-values(((ns_80)(if ns51_0 ns48_0(1/current-namespace))))" +"(let-values(((ns_81)(if ns51_0 ns48_0(1/current-namespace))))" "(let-values()" "(begin" "(if(symbol? sym_69)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" -"(if(let-values(((or-part_215)(not failure-thunk_5)))" -"(if or-part_215" -" or-part_215" +"(if(let-values(((or-part_216)(not failure-thunk_5)))" +"(if or-part_216" +" or-part_216" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -43145,41 +43333,41 @@ static const char *startup_source = " 'namespace-variable-value" " \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_5)))" -"(if(1/namespace? ns_80)" +"(if(1/namespace? ns_81)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_80)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" "((call/ec" "(lambda(escape_0)" "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_105)(1/datum->syntax #f sym_69)))" -"(let-values(((b_87)" +"(let-values(((id_104)(1/datum->syntax #f sym_69)))" +"(let-values(((b_85)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_105 ns_80)" -"(namespace-phase ns_80)" -" ns_80)))" +"(1/namespace-syntax-introduce id_104 ns_81)" +"(namespace-phase ns_81)" +" ns_81)))" "(let-values((()" "(begin" -"(if b_87" +"(if b_85" "(let-values()" "(namespace-visit-available-modules!" -" ns_80))" +" ns_81))" "(void))" "(values))))" "(let-values(((v_194" " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_87" -"(let-values(((b123_0) b_87)" +"(if b_85" +"(let-values(((b123_0) b_85)" "((empty-env124_0) empty-env)" "((null125_0) null)" -"((ns126_0) ns_80)" -"((temp127_1)" -"(namespace-phase ns_80))" -"((id128_0) id_105))" -"(binding-lookup48.1" +"((ns126_0) ns_81)" +"((temp127_0)" +"(namespace-phase ns_81))" +"((id128_0) id_104))" +"(binding-lookup50.1" " #f" " #f" " #f" @@ -43188,7 +43376,7 @@ static const char *startup_source = " empty-env124_0" " null125_0" " ns126_0" -" temp127_1" +" temp127_0" " id128_0))" "(values variable #f #f #f))))" "(begin" @@ -43196,9 +43384,9 @@ static const char *startup_source = "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_292) failure-thunk_5))" -"(if or-part_292" -" or-part_292" +"(let-values(((or-part_295) failure-thunk_5))" +"(if or-part_295" +" or-part_295" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -43209,31 +43397,31 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_87)" +"(if(module-binding? b_85)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_87))" -" ns_80" +"(module-binding-module b_85))" +" ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_87" -" ns_80" -"(namespace-phase ns_80)" -" id_105)))" -"(module-binding-phase b_87)" -"(module-binding-sym b_87))" -"(values ns_80(namespace-phase ns_80) sym_69))))))))" -"(let-values()(values ns_80(namespace-phase ns_80) sym_69)))))" -"(let-values(((val_67)" +" b_85" +" ns_81" +"(namespace-phase ns_81)" +" id_104)))" +"(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_68)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_293) failure-thunk_5))" -"(if or-part_293" -" or-part_293" +"(let-values(((or-part_296) failure-thunk_5))" +"(if or-part_296" +" or-part_296" "(raise" "(exn:fail:contract:variable" "(format" @@ -43243,7 +43431,7 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " sym_69)))))))))" -"(lambda() val_67))))))))))))))))" +"(lambda() val_68))))))))))))))))" "(case-lambda" "((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" "((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" @@ -43258,34 +43446,34 @@ static const char *startup_source = "(begin" " 'namespace-set-variable-value!63" "(let-values(((sym_74) sym61_0))" -"(let-values(((val_68) val62_0))" +"(let-values(((val_69) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" -"(let-values(((ns_81)(if ns59_0 ns56_0(1/current-namespace))))" +"(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" "(let-values()" "(begin" "(if(symbol? sym_74)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))" -"(if(1/namespace? ns_81)" +"(if(1/namespace? ns_82)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" -"(namespace-set-variable! ns_81(namespace-phase ns_81) sym_74 val_68 as-constant?_2)" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_82)))" +"(namespace-set-variable! ns_82(namespace-phase ns_82) sym_74 val_69 as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" "(begin" "(namespace-unset-transformer!" -" ns_81" -"(namespace-phase ns_81)" +" ns_82" +"(namespace-phase ns_82)" " sym_74)" "(values))))" -"(let-values(((id_106)(1/datum->syntax #f sym_74)))" -"(let-values(((temp129_1)(1/namespace-syntax-introduce id_106 ns_81))" -"((temp130_1)" -"(let-values(((temp132_1)(namespace-mpi ns_81))" -"((temp133_1)(namespace-phase ns_81))" -"((sym134_0) sym_74))" +"(let-values(((id_105)(1/datum->syntax #f sym_74)))" +"(let-values(((temp129_2)(1/namespace-syntax-introduce id_105 ns_82))" +"((temp130_2)" +"(let-values(((temp132_1)(namespace-mpi ns_82))" +"((temp133_1)(namespace-phase ns_82))" +"((sym134_1) sym_74))" "(make-module-binding22.1" " #f" " #f" @@ -43307,17 +43495,17 @@ static const char *startup_source = " #f" " temp132_1" " temp133_1" -" sym134_0)))" -"((temp131_0)(namespace-phase ns_81)))" -"(add-binding!17.1 #f #f #f #f temp129_1 temp130_1 temp131_0)))))" +" sym134_1)))" +"((temp131_0)(namespace-phase ns_82)))" +"(add-binding!17.1 #f #f #f #f temp129_2 temp130_2 temp131_0)))))" "(void)))))))))))))" "(case-lambda" -"((sym_75 val_69)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_69 #f #f #f #f #f #f)))" -"((sym_76 val_49 map?_1 ns_82 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_76 val_49 map?_1 ns_82 as-constant?57_1 #t #t #t))" -"((sym_77 val_70 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_70 map?_2 ns56_1 #f #t #t #f))" -"((sym_78 val_71 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_71 map?55_1 #f #f #t #f #f)))))" +"((sym_75 val_70)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_70 #f #f #f #f #f #f)))" +"((sym_76 val_49 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_76 val_49 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_77 val_71 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_71 map?_2 ns56_1 #f #t #t #f))" +"((sym_78 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_72 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" @@ -43325,16 +43513,16 @@ static const char *startup_source = "(begin" " 'namespace-undefine-variable!68" "(let-values(((sym_79) sym67_0))" -"(let-values(((ns_83)(if ns66_0 ns65_0(1/current-namespace))))" +"(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(begin" "(if(symbol? sym_79)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_79)))" -"(if(1/namespace? ns_83)" +"(if(1/namespace? ns_84)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_83)))" -"(namespace-unset-variable! ns_83(namespace-phase ns_83) sym_79)))))))))" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_84)))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_79)))))))))" "(case-lambda" "((sym_80)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_80 #f #f)))" "((sym_81 ns65_1)(namespace-undefine-variable!68_0 sym_81 ns65_1 #t)))))" @@ -43344,18 +43532,18 @@ static const char *startup_source = "(lambda(ns70_0 ns71_0)" "(begin" " 'namespace-mapped-symbols72" -"(let-values(((ns_84)(if ns71_0 ns70_0(1/current-namespace))))" +"(let-values(((ns_85)(if ns71_0 ns70_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(1/namespace? ns_84)" +"(if(1/namespace? ns_85)" "(void)" -" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_84)))" +" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_85)))" "(set->list" "(set-union" "(syntax-mapped-names" -"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_84))" -"(namespace-phase ns_84))" -"(list->set(1/instance-variable-names(namespace->instance ns_84 0))))))))))))" +"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_85))" +"(namespace-phase ns_85))" +"(list->set(1/instance-variable-names(namespace->instance ns_85 0))))))))))))" "(case-lambda" "(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols72_0 #f #f)))" "((ns70_1)(namespace-mapped-symbols72_0 ns70_1 #t)))))" @@ -43365,13 +43553,13 @@ static const char *startup_source = "(lambda(ns74_0 ns75_0)" "(begin" " 'namespace-base-phase76" -"(let-values(((ns_85)(if ns75_0 ns74_0(1/current-namespace))))" +"(let-values(((ns_86)(if ns75_0 ns74_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(1/namespace? ns_85)" +"(if(1/namespace? ns_86)" "(void)" -" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_85)))" -"(namespace-phase ns_85))))))))" +" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_86)))" +"(namespace-phase ns_86))))))))" "(case-lambda" "(()(begin 'namespace-base-phase(namespace-base-phase76_0 #f #f)))" "((ns74_1)(namespace-base-phase76_0 ns74_1 #t)))))" @@ -43381,33 +43569,33 @@ static const char *startup_source = "(lambda(s5_2 ns1_4 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_144) s5_2))" +"(let-values(((s_143) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_4(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_424 ns_86)(begin 'compile(1/compile s_424 ns_86 #f))))))" +"(lambda(s_423 ns_87)(begin 'compile(1/compile s_423 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_294)(compiled-in-memory? s_144)))" -"(if or-part_294" -" or-part_294" -"(let-values(((or-part_295)(1/linklet-directory? s_144)))" -"(if or-part_295 or-part_295(1/linklet-bundle? s_144)))))" -"(let-values()(eval-compiled s_144 ns_43))" -"(if(if(syntax?$1 s_144)" -"(let-values(((or-part_296)(compiled-in-memory?(1/syntax-e s_144))))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_297)(1/linklet-directory?(1/syntax-e s_144))))" -"(if or-part_297 or-part_297(1/linklet-bundle?(1/syntax-e s_144))))))" +"(if(let-values(((or-part_297)(compiled-in-memory? s_143)))" +"(if or-part_297" +" or-part_297" +"(let-values(((or-part_298)(1/linklet-directory? s_143)))" +"(if or-part_298 or-part_298(1/linklet-bundle? s_143)))))" +"(let-values()(eval-compiled s_143 ns_43))" +"(if(if(syntax?$1 s_143)" +"(let-values(((or-part_299)(compiled-in-memory?(1/syntax-e s_143))))" +"(if or-part_299" +" or-part_299" +"(let-values(((or-part_300)(1/linklet-directory?(1/syntax-e s_143))))" +"(if or-part_300 or-part_300(1/linklet-bundle?(1/syntax-e s_143))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_144) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_143) ns_43))" "(let-values()" -"(let-values(((s80_0) s_144)" +"(let-values(((s80_0) s_143)" "((ns81_0) ns_43)" "((temp82_2)" -"(lambda(s_422 ns_87 tail?_1)" -"(eval-compiled(compile_1 s_422 ns_87) ns_87 tail?_1)))" +"(lambda(s_421 ns_88 tail?_1)" +"(eval-compiled(compile_1 s_421 ns_88) ns_88 tail?_1)))" "((temp83_2) #f))" "(per-top-level68.1" " #f" @@ -43426,8 +43614,8 @@ static const char *startup_source = " ns81_0)))))))))))))" "(case-lambda" "((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_171 ns_52 compile2_1)(eval6_0 s_171 ns_52 compile2_1 #t #t))" -"((s_159 ns1_5)(eval6_0 s_159 ns1_5 #f #t #f)))))" +"((s_170 ns_53 compile2_1)(eval6_0 s_170 ns_53 compile2_1 #t #t))" +"((s_158 ns1_5)(eval6_0 s_158 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -43435,21 +43623,21 @@ static const char *startup_source = "(begin" " 'eval-compiled12" "(let-values(((c_52) c10_0))" -"(let-values(((ns_88) ns11_0))" +"(let-values(((ns_89) ns11_0))" "(let-values(((as-tail?_3)(if as-tail?9_0 as-tail?8_0 #t)))" "(let-values()" "(if(1/compiled-module-expression? c_52)" "(let-values()" -"(let-values(((c84_0) c_52)((ns85_0) ns_88))" +"(let-values(((c84_0) c_52)((ns85_0) ns_89))" "(eval-module8.1 ns85_0 #t #f #f #f #f c84_0)))" -"(let-values()(eval-top c_52 ns_88 eval-compiled as-tail?_3)))))))))))" +"(let-values()(eval-top c_52 ns_89 eval-compiled as-tail?_3)))))))))))" "(case-lambda" -"((c_41 ns_89)(begin(eval-compiled12_0 c_41 ns_89 #f #f)))" -"((c_42 ns_90 as-tail?8_1)(eval-compiled12_0 c_42 ns_90 as-tail?8_1 #t)))))" +"((c_41 ns_90)(begin(eval-compiled12_0 c_41 ns_90 #f #f)))" +"((c_42 ns_91 as-tail?8_1)(eval-compiled12_0 c_42 ns_91 as-tail?8_1 #t)))))" "(define-values" "(1/compile)" "(let-values(((compile23_0)" -"(lambda(s22_1" +"(lambda(s22_0" " ns14_2" " serializable?15_0" " expand16_0" @@ -43460,28 +43648,28 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_176) s22_1))" -"(let-values(((ns_91)(if ns18_1 ns14_2(1/current-namespace))))" +"(let-values(((s_175) s22_0))" +"(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_176)" -"(let-values()(list s_176))" -"(if(if(syntax?$1 s_176)" -"(1/compiled-expression?(1/syntax-e s_176))" +"(if(1/compiled-expression? s_175)" +"(let-values()(list s_175))" +"(if(if(syntax?$1 s_175)" +"(1/compiled-expression?(1/syntax-e s_175))" " #f)" -"(let-values()(list(1/syntax-e s_176)))" +"(let-values()(list(1/syntax-e s_175)))" "(let-values()" -"(let-values(((s86_0) s_176)" -"((ns87_0) ns_91)" -"((temp88_2)" -"(lambda(s_12 ns_48 as-tail?_4)" +"(let-values(((s86_0) s_175)" +"((ns87_0) ns_92)" +"((temp88_3)" +"(lambda(s_12 ns_49 as-tail?_4)" "(list" "(compile-single$1" " s_12" -" ns_48" +" ns_49" " expand_0" " serializable?_4" " to-source?_5))))" @@ -43497,7 +43685,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp88_2" +" temp88_3" " #f" " #f" " s86_0" @@ -43507,7 +43695,7 @@ static const char *startup_source = "(let-values(((cs91_0) cs_0)" "((to-source?92_0) to-source?_5)" "((serializable?93_0) serializable?_4)" -"((ns94_0) ns_91))" +"((ns94_0) ns_92))" "(compiled-tops->compiled-top8.1" " serializable?93_0" " #t" @@ -43517,31 +43705,31 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_183)(begin 'compile(compile23_0 s_183 #f #f #f #f #f #f #f #f)))" -"((s_425 ns_92 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_425 ns_92 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" -"((s_20 ns_93 serializable?_6 expand16_1)(compile23_0 s_20 ns_93 serializable?_6 expand16_1 #f #t #t #t #f))" -"((s_23 ns_94 serializable?15_1)(compile23_0 s_23 ns_94 serializable?15_1 #f #f #t #t #f #f))" -"((s_426 ns14_3)(compile23_0 s_426 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_182)(begin 'compile(compile23_0 s_182 #f #f #f #f #f #f #f #f)))" +"((s_424 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_424 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" +"((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" +"((s_425 ns14_3)(compile23_0 s_425 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_405) s27_0))" -"(let-values(((ns_95)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_405 ns_95 #t expand$1 #t))))))))" +"(let-values(((s_404) s27_0))" +"(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" +"(let-values()(1/compile s_404 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_427)(begin(compile-to-linklets28_0 s_427 #f #f)))" -"((s_302 ns25_1)(compile-to-linklets28_0 s_302 ns25_1 #t)))))" +"((s_426)(begin(compile-to-linklets28_0 s_426 #f #f)))" +"((s_301 ns25_1)(compile-to-linklets28_0 s_301 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" +"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" "(let-values()" "(let-values()" "(make-struct-type" @@ -43557,17 +43745,17 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'seq)" -"(make-struct-field-accessor -ref_73 1 'last))))" +" struct:_74" +" make-_74" +" ?_74" +"(make-struct-field-accessor -ref_74 0 'seq)" +"(make-struct-field-accessor -ref_74 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_29 ns_96 expand_2 serializable?_7 to-source?_6)" +"(lambda(s_29 ns_97 expand_2 serializable?_7 to-source?_6)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_29 ns_96 #f #t serializable?_7)))" +"(let-values(((exp-s_4)(expand_2 s_29 ns_97 #f #t serializable?_7)))" "((letrec-values(((loop_96)" "(lambda(exp-s_5)" "(begin" @@ -43576,7 +43764,7 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-s96_0) exp-s_5)" "((temp97_3)" -"(let-values(((ns100_0) ns_96))" +"(let-values(((ns100_0) ns_97))" "(make-compile-context14.1 #f #f #f #f #f #f ns100_0 #t #f #f #f #f)))" "((serializable?98_0) serializable?_7)" "((to-source?99_0) to-source?_6))" @@ -43597,23 +43785,23 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_100)" +"(let-values(((lst_101)" "(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_100)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_101)" +"(lambda(fold-var_0 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_101)" +"(if(pair? lst_102)" "(let-values(((e_75)" -"(unsafe-car lst_101))" +"(unsafe-car lst_102))" "((rest_48)" -"(unsafe-cdr lst_101)))" +"(unsafe-cdr lst_102)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" @@ -43632,13 +43820,13 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_100)))))" +" lst_101)))))" "((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()" "(let-values(((exp-s103_0) exp-s_5)" "((temp104_1)" -"(let-values(((ns107_1) ns_96))" +"(let-values(((ns107_1) ns_97))" "(make-compile-context14.1" " #f" " #f" @@ -43679,8 +43867,8 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_428) s39_0))" -"(let-values(((ns_79)(if ns35_0 ns31_3(1/current-namespace))))" +"(let-values(((s_427) s39_0))" +"(let-values(((ns_80)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" "(let-values(((serializable?_8)(if serializable?38_0 serializable?34_0 #f)))" @@ -43695,13 +43883,13 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_428)" -"((ns109_1) ns_79)" +"(let-values(((s108_0) s_427)" +"((ns109_1) ns_80)" "((temp110_3)" -"(lambda(s_429 ns_97 as-tail?_5)" +"(lambda(s_428 ns_98 as-tail?_5)" "(expand-single" -" s_429" -" ns_97" +" s_428" +" ns_98" " observer_2" " to-parsed?_2" " serializable?_8)))" @@ -43724,24 +43912,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_301)(begin 'expand(expand40_0 s_301 #f #f #f #f #f #f #f #f)))" -"((s_430 ns_98 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_430 ns_98 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_431 ns_99 observable?_2 to-parsed?33_1)(expand40_0 s_431 ns_99 observable?_2 to-parsed?33_1 #f #t #t #t #f))" -"((s_34 ns_100 observable?32_1)(expand40_0 s_34 ns_100 observable?32_1 #f #f #t #t #f #f))" -"((s_385 ns31_4)(expand40_0 s_385 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_300)(begin 'expand(expand40_0 s_300 #f #f #f #f #f #f #f #f)))" +"((s_429 ns_99 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_429 ns_99 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_430 ns_100 observable?_2 to-parsed?33_1)(expand40_0 s_430 ns_100 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_34 ns_101 observable?32_1)(expand40_0 s_34 ns_101 observable?32_1 #f #f #t #t #f #f))" +"((s_384 ns31_4)(expand40_0 s_384 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_432 ns_101 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_431 ns_102 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_432)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_431)))" "(let-values(((ctx_67)" -"(let-values(((ns114_0) ns_101)" +"(let-values(((ns114_0) ns_102)" "((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" "(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_432 ctx_67)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_431 ctx_67)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -43752,7 +43940,7 @@ static const char *startup_source = "((rebuild-s121_0) rebuild-s_2)" "((temp122_2)" "(lambda(form_0)" -"(expand-single form_0 ns_101 observer_3 to-parsed?_4 serializable?_9))))" +"(expand-single form_0 ns_102 observer_3 to-parsed?_4 serializable?_9))))" "(wrap-lifts-as-lifted-parsed-begin77.1" " temp122_2" " require-lifts118_0" @@ -43762,11 +43950,11 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_6 ns_101)" +"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_6 ns_102)" "(values))))" "(let-values(((new-s_2)" "(let-values(((temp123_2)(append require-lifts_3 lifts_10))" -"((temp124_2)" +"((temp124_3)" "(lambda(form_1)" "(begin" "(let-values(((obs_44)(expand-context-observer ctx_67)))" @@ -43776,7 +43964,7 @@ static const char *startup_source = "(void)))" "(expand-single" " form_1" -" ns_101" +" ns_102" " observer_3" " to-parsed?_4" " serializable?_9))))" @@ -43793,20 +43981,20 @@ static const char *startup_source = "(void)))" "(expand-single" " form_2" -" ns_101" +" ns_102" " observer_3" " to-parsed?_4" " serializable?_9))))))" "((exp-s126_0) exp-s_6)" -"((temp127_2)(namespace-phase ns_101)))" +"((temp127_1)(namespace-phase ns_102)))" "(wrap-lifts-as-begin16.1" " temp125_1" " #t" -" temp124_2" +" temp124_3" " #t" " temp123_2" " exp-s126_0" -" temp127_2))))" +" temp127_1))))" "(begin(log-top-begin-after ctx_67 new-s_2) new-s_2))))))))))))" "(define-values" "(expand-once$1)" @@ -43814,12 +44002,12 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_386) s44_1))" -"(let-values(((ns_102)(if ns43_0 ns42_1(1/current-namespace))))" +"(let-values(((s_385) s44_1))" +"(let-values(((ns_103)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_386)" -"((ns129_0) ns_102)" -"((temp130_2)(lambda(s_87 ns_82 as-tail?_6)(expand-single-once s_87 ns_82)))" +"(let-values(((s128_0) s_385)" +"((ns129_0) ns_103)" +"((temp130_3)(lambda(s_86 ns_83 as-tail?_6)(expand-single-once s_86 ns_83)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -43834,92 +44022,92 @@ static const char *startup_source = " #f" " #f" " #f" -" temp130_2" +" temp130_3" " re-pair132_0" " #t" " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_433)(begin 'expand-once(expand-once45_0 s_433 #f #f)))" -"((s_434 ns42_2)(expand-once45_0 s_434 ns42_2 #t)))))" +"((s_432)(begin 'expand-once(expand-once45_0 s_432 #f #f)))" +"((s_433 ns42_2)(expand-once45_0 s_433 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_435 ns_103)" +"(lambda(s_434 ns_104)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_435" -"(let-values(((v_74)" -"(let-values(((ns135_1) ns_103))" +" s_434" +"(let-values(((v_195)" +"(let-values(((ns135_1) ns_104))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_74) v_74))" -"(if(expand-context/outer? the-struct_74)" +"(let-values(((the-struct_73) v_195))" +"(if(expand-context/outer? the-struct_73)" "(let-values(((inner136_0)" -"(let-values(((the-struct_75)(root-expand-context/outer-inner v_74)))" -"(if(expand-context/inner? the-struct_75)" +"(let-values(((the-struct_74)(root-expand-context/outer-inner v_195)))" +"(if(expand-context/inner? the-struct_74)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_75)" -"(root-expand-context/inner-module-scopes the-struct_75)" -"(root-expand-context/inner-top-level-bind-scope the-struct_75)" -"(root-expand-context/inner-all-scopes-stx the-struct_75)" -"(root-expand-context/inner-defined-syms the-struct_75)" -"(root-expand-context/inner-counter the-struct_75)" -"(root-expand-context/inner-lift-key the-struct_75)" -"(expand-context/inner-to-parsed? the-struct_75)" -"(expand-context/inner-phase the-struct_75)" -"(expand-context/inner-namespace the-struct_75)" +"(root-expand-context/inner-self-mpi the-struct_74)" +"(root-expand-context/inner-module-scopes the-struct_74)" +"(root-expand-context/inner-top-level-bind-scope the-struct_74)" +"(root-expand-context/inner-all-scopes-stx the-struct_74)" +"(root-expand-context/inner-defined-syms the-struct_74)" +"(root-expand-context/inner-counter the-struct_74)" +"(root-expand-context/inner-lift-key the-struct_74)" +"(expand-context/inner-to-parsed? the-struct_74)" +"(expand-context/inner-phase the-struct_74)" +"(expand-context/inner-namespace the-struct_74)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_75)" -"(expand-context/inner-allow-unbound? the-struct_75)" -"(expand-context/inner-in-local-expand? the-struct_75)" -"(expand-context/inner-stops the-struct_75)" -"(expand-context/inner-declared-submodule-names the-struct_75)" -"(expand-context/inner-lifts the-struct_75)" -"(expand-context/inner-lift-envs the-struct_75)" -"(expand-context/inner-module-lifts the-struct_75)" -"(expand-context/inner-require-lifts the-struct_75)" -"(expand-context/inner-to-module-lifts the-struct_75)" -"(expand-context/inner-requires+provides the-struct_75)" -"(expand-context/inner-observer the-struct_75)" -"(expand-context/inner-for-serializable? the-struct_75)" -"(expand-context/inner-should-not-encounter-macros? the-struct_75)))" +"(expand-context/inner-module-begin-k the-struct_74)" +"(expand-context/inner-allow-unbound? the-struct_74)" +"(expand-context/inner-in-local-expand? the-struct_74)" +"(expand-context/inner-stops the-struct_74)" +"(expand-context/inner-declared-submodule-names the-struct_74)" +"(expand-context/inner-lifts the-struct_74)" +"(expand-context/inner-lift-envs the-struct_74)" +"(expand-context/inner-module-lifts the-struct_74)" +"(expand-context/inner-require-lifts the-struct_74)" +"(expand-context/inner-to-module-lifts the-struct_74)" +"(expand-context/inner-requires+provides the-struct_74)" +"(expand-context/inner-observer the-struct_74)" +"(expand-context/inner-for-serializable? the-struct_74)" +"(expand-context/inner-should-not-encounter-macros? the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_75)))))" +" the-struct_74)))))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_74)" -"(root-expand-context/outer-use-site-scopes the-struct_74)" -"(root-expand-context/outer-frame-id the-struct_74)" -"(expand-context/outer-context the-struct_74)" -"(expand-context/outer-env the-struct_74)" -"(expand-context/outer-post-expansion-scope-action the-struct_74)" -"(expand-context/outer-scopes the-struct_74)" -"(expand-context/outer-def-ctx-scopes the-struct_74)" -"(expand-context/outer-binding-layer the-struct_74)" -"(expand-context/outer-reference-records the-struct_74)" -"(expand-context/outer-only-immediate? the-struct_74)" -"(expand-context/outer-need-eventually-defined the-struct_74)" -"(expand-context/outer-current-introduction-scopes the-struct_74)" -"(expand-context/outer-name the-struct_74)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_74)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_73)" +"(root-expand-context/outer-use-site-scopes the-struct_73)" +"(root-expand-context/outer-frame-id the-struct_73)" +"(expand-context/outer-context the-struct_73)" +"(expand-context/outer-env the-struct_73)" +"(expand-context/outer-post-expansion-scope-action the-struct_73)" +"(expand-context/outer-scopes the-struct_73)" +"(expand-context/outer-def-ctx-scopes the-struct_73)" +"(expand-context/outer-binding-layer the-struct_73)" +"(expand-context/outer-reference-records the-struct_73)" +"(expand-context/outer-only-immediate? the-struct_73)" +"(expand-context/outer-need-eventually-defined the-struct_73)" +"(expand-context/outer-current-introduction-scopes the-struct_73)" +"(expand-context/outer-name the-struct_73)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_73)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp138_2)(append require-lifts_4 lifts_11))" +"(let-values(((temp138_1)(append require-lifts_4 lifts_11))" "((exp-s139_0) exp-s_7)" -"((temp140_0)(namespace-phase ns_103)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_0))))))))" +"((temp140_1)(namespace-phase ns_104)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_1 exp-s139_0 temp140_1))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" -"(lambda(s49_0 ns47_1 ns48_2)" +"(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_93) s49_0))" -"(let-values(((ns_104)(if ns48_2 ns47_1(1/current-namespace))))" +"(let-values(((s_92) s49_0))" +"(let-values(((ns_105)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" "(begin" @@ -43931,9 +44119,9 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_93)" -"((ns142_0) ns_104)" -"((temp143_1) #f)" +"(let-values(((s141_0) s_92)" +"((ns142_0) ns_105)" +"((temp143_0) #f)" "((temp144_1) #f)" "((observer145_0) observer_4))" "(per-top-level68.1" @@ -43946,14 +44134,14 @@ static const char *startup_source = " #t" " #f" " #f" -" temp143_1" +" temp143_0" " #f" " #f" " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_413)(begin 'expand-to-top-form(expand-to-top-form50_0 s_413 #f #f)))" -"((s_206 ns47_2)(expand-to-top-form50_0 s_206 ns47_2 #t)))))" +"((s_412)(begin 'expand-to-top-form(expand-to-top-form50_0 s_412 #f #f)))" +"((s_205 ns47_3)(expand-to-top-form50_0 s_205 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -43973,7 +44161,7 @@ static const char *startup_source = "(begin" " 'per-top-level68" "(let-values(((given-s_0) given-s66_0))" -"(let-values(((ns_105) ns67_1))" +"(let-values(((ns_106) ns67_1))" "(let-values(((single_0) single52_0))" "(let-values(((combine_0)(if combine60_0 combine53_0 #f)))" "(let-values(((wrap_2)(if wrap61_0 wrap54_0 #f)))" @@ -43982,13 +44170,13 @@ static const char *startup_source = "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" "(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_151)(maybe-intro given-s_0 ns_105)))" +"(let-values(((s_150)(maybe-intro given-s_0 ns_106)))" "(let-values(((ctx_68)" -"(let-values(((ns146_0) ns_105)((observer147_0) observer_5))" +"(let-values(((ns146_0) ns_106)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_135)(namespace-phase ns_105)))" +"(let-values(((phase_134)(namespace-phase ns_106)))" "((letrec-values(((loop_97)" -"(lambda(s_107 phase_102 ns_106 as-tail?_7)" +"(lambda(s_106 phase_102 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -43996,70 +44184,70 @@ static const char *startup_source = "(let-values(((the-struct_44) v_126))" "(if(expand-context/outer? the-struct_44)" "(let-values(((inner148_0)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_75)" "(root-expand-context/outer-inner" " v_126)))" "(if(expand-context/inner?" -" the-struct_76)" +" the-struct_75)" "(let-values(((phase149_0)" " phase_102)" "((namespace150_0)" -" ns_106)" +" ns_107)" "((just-once?151_0)" " just-once?_1)" "((for-serializable?152_0)" " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-counter" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-lift-key" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-to-parsed?" -" the-struct_76)" +" the-struct_75)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-stops" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-lift-envs" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-module-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-require-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-requires+provides" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-observer" -" the-struct_76)" +" the-struct_75)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" @@ -44091,7 +44279,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_44))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_107 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_106 #f)))" "(let-values((()" "(begin" "(let-values(((obs_46)" @@ -44103,15 +44291,15 @@ static const char *startup_source = "(call-expand-observe" " obs_46" " 'visit" -" s_107)))" +" s_106)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" -" s_107" -"(let-values(((v_195) tl-ctx_0))" -"(let-values(((the-struct_64) v_195))" -"(if(expand-context/outer? the-struct_64)" +" s_106" +"(let-values(((v_196) tl-ctx_0))" +"(let-values(((the-struct_63) v_196))" +"(if(expand-context/outer? the-struct_63)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" @@ -44119,13 +44307,13 @@ static const char *startup_source = "((inner155_1)" "(let-values(((the-struct_33)" "(root-expand-context/outer-inner" -" v_195)))" +" v_196)))" "(if(expand-context/inner?" " the-struct_33)" "(let-values(((phase156_1)" " phase_102)" "((namespace157_1)" -" ns_106))" +" ns_107))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_33)" @@ -44182,40 +44370,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/outer-use-site-scopes" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/outer-frame-id" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-context" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-env" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-scopes" -" the-struct_64)" +" the-struct_63)" " def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-reference-records" -" the-struct_64)" +" the-struct_63)" " only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-current-introduction-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-name" -" the-struct_64)))" +" the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64)))))))" +" the-struct_63)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_298)" +"(if(let-values(((or-part_301)" "(pair? require-lifts_5)))" -"(if or-part_298 or-part_298(pair? lifts_12)))" +"(if or-part_301 or-part_301(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -44249,7 +44437,7 @@ static const char *startup_source = "(loop_97" " new-s_3" " phase_102" -" ns_106" +" ns_107" " as-tail?_7)))))" "(if(not single_0)" "(let-values()" @@ -44289,38 +44477,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_436)" +"(let-values(((s_435)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_436))" +" s_435))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_437)" +"(let-values(((s_436)" "(if(syntax?$1" -" s_436)" +" s_435)" "(syntax-e$1" -" s_436)" -" s_436)))" +" s_435)" +" s_435)))" "(if(pair?" -" s_437)" +" s_436)" "(let-values(((begin163_0)" -"(let-values(((s_120)" +"(let-values(((s_119)" "(car" -" s_437)))" -" s_120))" +" s_436)))" +" s_119))" "((e164_0)" -"(let-values(((s_438)" +"(let-values(((s_437)" "(cdr" -" s_437)))" -"(let-values(((s_439)" +" s_436)))" +"(let-values(((s_438)" "(if(syntax?$1" -" s_438)" +" s_437)" "(syntax-e$1" -" s_438)" -" s_438)))" +" s_437)" +" s_437)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_439)))" +" s_438)))" "(if(not" " flat-s_20)" "(let-values()" @@ -44360,7 +44548,7 @@ static const char *startup_source = "(loop_97" "(car es_2)" " phase_102" -" ns_106" +" ns_107" " as-tail?_7))" "(let-values()" "(let-values((()" @@ -44382,14 +44570,14 @@ static const char *startup_source = "(car" " es_2)" " phase_102" -" ns_106" +" ns_107" " #f)" "(begin" "(loop_97" "(car" " es_2)" " phase_102" -" ns_106" +" ns_107" " #f)" "(void)))))" "(if combine_0" @@ -44442,38 +44630,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_225)" +"(let-values(((s_224)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_225))" +" s_224))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_227)" +"(let-values(((s_226)" "(if(syntax?$1" -" s_225)" +" s_224)" "(syntax-e$1" -" s_225)" -" s_225)))" +" s_224)" +" s_224)))" "(if(pair?" -" s_227)" +" s_226)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_229)" +"(let-values(((s_228)" "(car" -" s_227)))" -" s_229))" +" s_226)))" +" s_228))" "((e168_0)" -"(let-values(((s_327)" +"(let-values(((s_326)" "(cdr" -" s_227)))" -"(let-values(((s_230)" +" s_226)))" +"(let-values(((s_229)" "(if(syntax?$1" -" s_327)" +" s_326)" "(syntax-e$1" -" s_327)" -" s_327)))" +" s_326)" +" s_326)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_230)))" +" s_229)))" "(if(not" " flat-s_21)" "(let-values()" @@ -44498,7 +44686,7 @@ static const char *startup_source = "(add1 phase_102)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" -" ns_106" +" ns_107" " next-phase_0)))" "(let-values((()" "(begin" @@ -44518,7 +44706,7 @@ static const char *startup_source = "(if quick-immediate?_0" "(let-values()" "(namespace-visit-available-modules!" -" ns_106))" +" ns_107))" "(void))" "(values))))" "(let-values((()" @@ -44528,7 +44716,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_302)" +"(let-values(((lst_304)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -44536,24 +44724,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_302)))" -"((letrec-values(((for-loop_263)" -"(lambda(fold-var_266" -" lst_303)" +" lst_304)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_267" +" lst_305)" "(begin" " 'for-loop" "(if(pair?" -" lst_303)" -"(let-values(((s_331)" +" lst_305)" +"(let-values(((s_330)" "(unsafe-car" -" lst_303))" -"((rest_169)" +" lst_305))" +"((rest_168)" "(unsafe-cdr" -" lst_303)))" -"(let-values(((fold-var_201)" +" lst_305)))" "(let-values(((fold-var_202)" -" fold-var_266))" -"(let-values(((fold-var_267)" +"(let-values(((fold-var_203)" +" fold-var_267))" +"(let-values(((fold-var_268)" "(let-values()" "(cons" "(let-values()" @@ -44569,23 +44757,23 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_97" -" s_331" +" s_330" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_202))))" +" fold-var_203))))" "(values" -" fold-var_267)))))" +" fold-var_268)))))" "(if(not" " #f)" -"(for-loop_263" -" fold-var_201" -" rest_169)" -" fold-var_201)))" -" fold-var_266)))))" -" for-loop_263)" +"(for-loop_268" +" fold-var_202" +" rest_168)" +" fold-var_202)))" +" fold-var_267)))))" +" for-loop_268)" " null" -" lst_302))))))" +" lst_304))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -44616,113 +44804,113 @@ static const char *startup_source = "(let-values()" "(single_0" " exp-s_8" -" ns_106" +" ns_107" " as-tail?_7))))))))))))))))))" " loop_97)" -" s_151" -" phase_135" -" ns_105" +" s_150" +" phase_134" +" ns_106" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_440 ns_107)" -"(begin(if(syntax?$1 s_440) s_440(1/namespace-syntax-introduce(1/datum->syntax #f s_440) ns_107)))))" +"(lambda(s_439 ns_108)" +"(begin(if(syntax?$1 s_439) s_439(1/namespace-syntax-introduce(1/datum->syntax #f s_439) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_441 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_441)(cons form-id_0 r_43) s_441 s_441) s_441))))" +"(lambda(form-id_0 s_440 r_43)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_440)(cons form-id_0 r_43) s_440 s_440) s_440))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_442 ctx_69)" +"(lambda(s_441 ctx_69)" "(begin" "(let-values()" -"(let-values(((ns_108)(expand-context-namespace ctx_69)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_108)(values))))" +"(let-values(((ns_109)(expand-context-namespace ctx_69)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" "(let-values(((temp169_0)(make-top-level-lift ctx_69)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" -"(namespace-phase ns_108)" -"(make-parse-top-lifted-require ns_108))))" +"(namespace-phase ns_109)" +"(make-parse-top-lifted-require ns_109))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_442)" +"(let-values(((s170_0) s_441)" "((temp171_0)" -"(let-values(((v_196) ctx_69))" -"(let-values(((the-struct_77) v_196))" -"(if(expand-context/outer? the-struct_77)" +"(let-values(((v_197) ctx_69))" +"(let-values(((the-struct_76) v_197))" +"(if(expand-context/outer? the-struct_76)" "(let-values(((inner172_0)" -"(let-values(((the-struct_78)" -"(root-expand-context/outer-inner v_196)))" -"(if(expand-context/inner? the-struct_78)" +"(let-values(((the-struct_77)" +"(root-expand-context/outer-inner v_197)))" +"(if(expand-context/inner? the-struct_77)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" "((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_78)" +" the-struct_77)" "(root-expand-context/inner-module-scopes" -" the-struct_78)" +" the-struct_77)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_78)" +" the-struct_77)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_78)" +" the-struct_77)" "(root-expand-context/inner-defined-syms" -" the-struct_78)" -"(root-expand-context/inner-counter the-struct_78)" +" the-struct_77)" +"(root-expand-context/inner-counter the-struct_77)" "(root-expand-context/inner-lift-key" -" the-struct_78)" -"(expand-context/inner-to-parsed? the-struct_78)" -"(expand-context/inner-phase the-struct_78)" -"(expand-context/inner-namespace the-struct_78)" -"(expand-context/inner-just-once? the-struct_78)" +" the-struct_77)" +"(expand-context/inner-to-parsed? the-struct_77)" +"(expand-context/inner-phase the-struct_77)" +"(expand-context/inner-namespace the-struct_77)" +"(expand-context/inner-just-once? the-struct_77)" "(expand-context/inner-module-begin-k" -" the-struct_78)" +" the-struct_77)" "(expand-context/inner-allow-unbound?" -" the-struct_78)" +" the-struct_77)" "(expand-context/inner-in-local-expand?" -" the-struct_78)" -"(expand-context/inner-stops the-struct_78)" +" the-struct_77)" +"(expand-context/inner-stops the-struct_77)" "(expand-context/inner-declared-submodule-names" -" the-struct_78)" +" the-struct_77)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_78)" +"(expand-context/inner-lift-envs the-struct_77)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_78)" +" the-struct_77)" "(expand-context/inner-requires+provides" -" the-struct_78)" -"(expand-context/inner-observer the-struct_78)" +" the-struct_77)" +"(expand-context/inner-observer the-struct_77)" "(expand-context/inner-for-serializable?" -" the-struct_78)" +" the-struct_77)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_78)))" +" the-struct_77)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_78)))))" +" the-struct_77)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_77)" -"(root-expand-context/outer-use-site-scopes the-struct_77)" -"(root-expand-context/outer-frame-id the-struct_77)" -"(expand-context/outer-context the-struct_77)" -"(expand-context/outer-env the-struct_77)" -"(expand-context/outer-post-expansion-scope-action the-struct_77)" -"(expand-context/outer-scopes the-struct_77)" -"(expand-context/outer-def-ctx-scopes the-struct_77)" -"(expand-context/outer-binding-layer the-struct_77)" -"(expand-context/outer-reference-records the-struct_77)" -"(expand-context/outer-only-immediate? the-struct_77)" -"(expand-context/outer-need-eventually-defined the-struct_77)" -"(expand-context/outer-current-introduction-scopes the-struct_77)" -"(expand-context/outer-name the-struct_77)))" +"(root-expand-context/outer-post-expansion-scope the-struct_76)" +"(root-expand-context/outer-use-site-scopes the-struct_76)" +"(root-expand-context/outer-frame-id the-struct_76)" +"(expand-context/outer-context the-struct_76)" +"(expand-context/outer-env the-struct_76)" +"(expand-context/outer-post-expansion-scope-action the-struct_76)" +"(expand-context/outer-scopes the-struct_76)" +"(expand-context/outer-def-ctx-scopes the-struct_76)" +"(expand-context/outer-binding-layer the-struct_76)" +"(expand-context/outer-reference-records the-struct_76)" +"(expand-context/outer-only-immediate? the-struct_76)" +"(expand-context/outer-need-eventually-defined the-struct_76)" +"(expand-context/outer-current-introduction-scopes the-struct_76)" +"(expand-context/outer-name the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_77))))))" +" the-struct_76))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -44730,33 +44918,33 @@ static const char *startup_source = " exp-s_9))))))))))" "(define-values" "(make-parse-top-lifted-require)" -"(lambda(ns_72)" +"(lambda(ns_73)" "(begin" -"(lambda(s_443 phase_136)" +"(lambda(s_442 phase_135)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_444)(syntax-disarm$1 s_443)))" -"(let-values(((orig-s_35) s_444))" +"(let-values(((s_443)(syntax-disarm$1 s_442)))" +"(let-values(((orig-s_35) s_443))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_249)(if(syntax?$1 s_444)(syntax-e$1 s_444) s_444)))" -"(if(pair? s_249)" -"(let-values(((#%require178_0)(let-values(((s_250)(car s_249))) s_250))" +"(let-values(((s_248)(if(syntax?$1 s_443)(syntax-e$1 s_443) s_443)))" +"(if(pair? s_248)" +"(let-values(((#%require178_0)(let-values(((s_249)(car s_248))) s_249))" "((req179_0)" -"(let-values(((s_251)(cdr s_249)))" -"(let-values(((s_252)" -"(if(syntax?$1 s_251)" -"(syntax-e$1 s_251)" -" s_251)))" -"(if(pair? s_252)" +"(let-values(((s_250)(cdr s_248)))" +"(let-values(((s_251)" +"(if(syntax?$1 s_250)" +"(syntax-e$1 s_250)" +" s_250)))" +"(if(pair? s_251)" "(let-values(((req180_0)" -"(let-values(((s_445)(car s_252)))" -" s_445))" +"(let-values(((s_444)(car s_251)))" +" s_444))" "(()" -"(let-values(((s_446)(cdr s_252)))" -"(let-values(((s_447)" -"(if(syntax?$1 s_446)" -"(syntax-e$1 s_446)" -" s_446)))" -"(if(null? s_447)" +"(let-values(((s_445)(cdr s_251)))" +"(let-values(((s_446)" +"(if(syntax?$1 s_445)" +"(syntax-e$1 s_445)" +" s_445)))" +"(if(null? s_446)" "(values)" "(raise-syntax-error$1" " #f" @@ -44768,10 +44956,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_443)" -"((ns183_0) ns_72)" -"((phase184_1) phase_136)" -"((phase185_0) phase_136)" +"((s182_0) s_442)" +"((ns183_0) ns_73)" +"((phase184_1) phase_135)" +"((phase185_0) phase_135)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -44813,48 +45001,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_304) require-lifts_6))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_304)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_268 lst_305)" -"(begin" -" 'for-loop" -"(if(pair? lst_305)" -"(let-values(((req_19)(unsafe-car lst_305))" -"((rest_170)(unsafe-cdr lst_305)))" -"(let-values(((fold-var_269)" -"(let-values(((fold-var_270) fold-var_268))" -"(let-values(((fold-var_271)" -"(let-values()" -"(cons" -"(let-values()" -"(parsed-require23.1 req_19))" -" fold-var_270))))" -"(values fold-var_271)))))" -"(if(not #f)(for-loop_264 fold-var_269 rest_170) fold-var_269)))" -" fold-var_268)))))" -" for-loop_264)" -" null" -" lst_304))))" -"(reverse$1" -"(let-values(((lst_306)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_306) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_306)))" -"((letrec-values(((for-loop_265)" -"(lambda(fold-var_272 lst_307)" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_269 lst_307)" "(begin" " 'for-loop" "(if(pair? lst_307)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_307))" -"((rest_171)(unsafe-cdr lst_307)))" -"(let-values(((fold-var_273)" -"(let-values(((fold-var_274) fold-var_272))" -"(let-values(((fold-var_275)" +"(let-values(((req_19)(unsafe-car lst_307))" +"((rest_169)(unsafe-cdr lst_307)))" +"(let-values(((fold-var_270)" +"(let-values(((fold-var_271) fold-var_269))" +"(let-values(((fold-var_272)" +"(let-values()" +"(cons" +"(let-values()" +"(parsed-require23.1 req_19))" +" fold-var_271))))" +"(values fold-var_272)))))" +"(if(not #f)(for-loop_269 fold-var_270 rest_169) fold-var_270)))" +" fold-var_269)))))" +" for-loop_269)" +" null" +" lst_306))))" +"(reverse$1" +"(let-values(((lst_308)(get-lifts-as-lists lifts_13)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_308)))" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_273 lst_309)" +"(begin" +" 'for-loop" +"(if(pair? lst_309)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_309))" +"((rest_170)(unsafe-cdr lst_309)))" +"(let-values(((fold-var_274)" +"(let-values(((fold-var_275) fold-var_273))" +"(let-values(((fold-var_276)" "(let-values()" "(cons" "(let-values()" @@ -44878,32 +45066,32 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_1)" -"(let-values(((the-struct_79)" +"(let-values(((the-struct_78)" " exp-rhs_1))" "(if(lifted-parsed-begin?" -" the-struct_79)" +" the-struct_78)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_79)" +" the-struct_78)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_79)))" +" the-struct_78)))" " dv_0)))))" -" fold-var_274))))" -"(values fold-var_275)))))" -"(if(not #f)(for-loop_265 fold-var_273 rest_171) fold-var_273)))" -" fold-var_272)))))" -" for-loop_265)" +" fold-var_275))))" +"(values fold-var_276)))))" +"(if(not #f)(for-loop_270 fold-var_274 rest_170) fold-var_274)))" +" fold-var_273)))))" +" for-loop_270)" " null" -" lst_306)))))" +" lst_308)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_109)" +"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_110)" "(begin" "(let-values(((obs_55)(expand-context-observer ctx_70)))" "(if obs_55" @@ -44911,7 +45099,7 @@ static const char *startup_source = "(let-values(((new-s_6)" "(let-values(((temp190_0)(append require-lifts_7 lifts_14))" "((exp-s191_0) exp-s_11)" -"((temp192_0)(namespace-phase ns_109)))" +"((temp192_0)(namespace-phase ns_110)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" "(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" "(void))))))" @@ -44923,25 +45111,28 @@ static const char *startup_source = "(if obs_56" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_129) new-s_7))" -"(let-values(((orig-s_1) s_129))" +"(let-values(((s_128) new-s_7))" +"(let-values(((orig-s_36) s_128))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_448)(if(syntax?$1 s_129)(syntax-e$1 s_129) s_129)))" -"(if(pair? s_448)" -"(let-values(((begin195_0)(let-values(((s_449)(car s_448))) s_449))" +"(let-values(((s_447)(if(syntax?$1 s_128)(syntax-e$1 s_128) s_128)))" +"(if(pair? s_447)" +"(let-values(((begin195_0)(let-values(((s_448)(car s_447))) s_448))" "((e196_0)" -"(let-values(((s_450)(cdr s_448)))" -"(let-values(((s_451)" -"(if(syntax?$1 s_450)" -"(syntax-e$1 s_450)" -" s_450)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_451)))" +"(let-values(((s_449)(cdr s_447)))" +"(let-values(((s_450)" +"(if(syntax?$1 s_449)" +"(syntax-e$1 s_449)" +" s_449)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_450)))" "(if(not flat-s_22)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_36))" "(let-values() flat-s_22)))))))" "(values begin195_0 e196_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" "(values #t begin193_1 e194_1))))))" "(begin" "(call-expand-observe obs_56 'visit new-s_7)" @@ -44958,28 +45149,28 @@ static const char *startup_source = "(if obs_57" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_452) new-s_8))" -"(let-values(((orig-s_36) s_452))" +"(let-values(((s_451) new-s_8))" +"(let-values(((orig-s_37) s_451))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_453)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" -"(if(pair? s_453)" -"(let-values(((begin199_0)(let-values(((s_454)(car s_453))) s_454))" +"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" +"(if(pair? s_452)" +"(let-values(((begin199_0)(let-values(((s_453)(car s_452))) s_453))" "((e200_0)" -"(let-values(((s_455)(cdr s_453)))" -"(let-values(((s_456)" -"(if(syntax?$1 s_455)" -"(syntax-e$1 s_455)" -" s_455)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_456)))" +"(let-values(((s_454)(cdr s_452)))" +"(let-values(((s_455)" +"(if(syntax?$1 s_454)" +"(syntax-e$1 s_454)" +" s_454)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_455)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_36))" +" orig-s_37))" "(let-values() flat-s_23)))))))" "(values begin199_0 e200_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin197_1 e198_1))))))" "(let-values(((obs_58)(expand-context-observer ctx_72)))" "(if obs_58" @@ -45024,8 +45215,8 @@ static const char *startup_source = "(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_288)(equal? sym_82 0)))" -"(if or-part_288 or-part_288(void? sym_82)))))))" +"(let-values(((or-part_291)(equal? sym_82 0)))" +"(if or-part_291 or-part_291(void? sym_82)))))))" "(void)" "(let-values()" " (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_82)))" @@ -45038,7 +45229,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_20 \"(-> any)\" fail-k_2)))" "(values))))" -"(let-values(((ns_57)(1/current-namespace)))" +"(let-values(((ns_58)(1/current-namespace)))" "(let-values(((mpi_46)" "(if(1/module-path? mod-path_5)" "(let-values()(1/module-path-index-join mod-path_5 #f))" @@ -45049,13 +45240,13 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_137)(namespace-phase ns_57)))" +"(let-values(((phase_136)(namespace-phase ns_58)))" "(if(not sym_82)" "(let-values()" -"(let-values(((ns20_1) ns_57)" +"(let-values(((ns20_1) ns_58)" "((mpi21_0) mpi_46)" -"((phase22_0) phase_137)" -"((phase23_1) phase_137)" +"((phase22_0) phase_136)" +"((phase23_1) phase_136)" "((temp24_5) #f))" "(namespace-module-instantiate!96.1" " temp24_5" @@ -45071,10 +45262,10 @@ static const char *startup_source = " phase22_0)))" "(if(equal? sym_82 0)" "(let-values()" -"(let-values(((ns25_2) ns_57)" +"(let-values(((ns25_2) ns_58)" "((mpi26_0) mpi_46)" -"((phase27_1) phase_137)" -"((phase28_1) phase_137))" +"((phase27_1) phase_136)" +"((phase28_1) phase_136))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45089,18 +45280,18 @@ static const char *startup_source = " phase27_1)))" "(if(void? sym_82)" "(let-values()" -"(let-values(((ns29_0) ns_57)" +"(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_46)" -"((phase31_1) phase_137)" -"((phase32_4) phase_137))" +"((phase31_1) phase_136)" +"((phase32_3) phase_136))" "(namespace-module-visit!104.1" -" phase32_4" +" phase32_3" " #t" " ns29_0" " mpi30_0" " phase31_1)))" "(let-values()" -"(let-values(((m_22)(namespace->module ns_57 mod-name_22)))" +"(let-values(((m_22)(namespace->module ns_58 mod-name_22)))" "(let-values((()" "(begin" "(if m_22" @@ -45135,11 +45326,11 @@ static const char *startup_source = "(module-binding-phase binding_27)))" "(let-values((()" "(begin" -"(let-values(((ns33_0) ns_57)" +"(let-values(((ns33_0) ns_58)" "((mpi34_0) mpi_46)" -"((phase35_0) phase_137)" +"((phase35_1) phase_136)" "((phase36_0)" -" phase_137))" +" phase_136))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45151,7 +45342,7 @@ static const char *startup_source = " #f" " ns33_0" " mpi34_0" -" phase35_0))" +" phase35_1))" "(values))))" "(let-values(((ex-mod-name_0)" "(1/module-path-index-resolve" @@ -45160,12 +45351,12 @@ static const char *startup_source = "(module-self m_22)" " mpi_46))))" "(let-values(((m-ns_16)" -"(let-values(((ns37_1) ns_57)" +"(let-values(((ns37_1) ns_58)" "((ex-mod-name38_0)" " ex-mod-name_0)" "((temp39_4)" "(phase-" -" phase_137" +" phase_136" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -45180,7 +45371,7 @@ static const char *startup_source = " temp39_4))))" "(let-values(((ex-m_0)" "(namespace->module" -" ns_57" +" ns_58" " ex-mod-name_0)))" "(let-values(((access_4)" "(let-values(((or-part_30)" @@ -45258,13 +45449,13 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ns41_2)" -" ns_57)" +" ns_58)" "((mpi42_1)" " mpi_46)" "((phase43_2)" -" phase_137)" +" phase_136)" "((phase44_0)" -" phase_137))" +" phase_136))" "(namespace-module-visit!104.1" " phase44_0" " #t" @@ -45282,14 +45473,14 @@ static const char *startup_source = "(let-values()(fail_1))" "(let-values()" "(let-values(((tmp-ns_0)" -"(let-values(((ns45_1)" -" ns_57))" +"(let-values(((ns45_0)" +" ns_58))" "(new-namespace9.1" " #f" " #f" " #f" " #f" -" ns45_1" +" ns45_0" " #t))))" "(let-values(((mod-path_16)" "(resolved-module-path->module-path" @@ -45342,8 +45533,8 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_110)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_110(add1(namespace-phase ns_110)))))" +"(let-values(((ns_111)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_111(add1(namespace-phase ns_111)))))" "(let-values()" "(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_88 fail-k_4)))))))))))" "(case-lambda" @@ -45427,28 +45618,28 @@ static const char *startup_source = "(if(list? l_8)" "(andmap2" "(lambda(p_53)" -"(let-values(((or-part_294)(not p_53)))" -"(if or-part_294" -" or-part_294" -"(let-values(((or-part_295)(complete-path-string? p_53)))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_297)(not p_53)))" +"(if or-part_297" +" or-part_297" +"(let-values(((or-part_298)(complete-path-string? p_53)))" +"(if or-part_298" +" or-part_298" "(if(hash? p_53)" -"(let-values(((ht_147) p_53))" +"(let-values(((ht_150) p_53))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_147)))" -"((letrec-values(((for-loop_181)" -"(lambda(result_110 i_89)" +"(let-values()(check-in-hash ht_150)))" +"((letrec-values(((for-loop_182)" +"(lambda(result_114 i_88)" "(begin" " 'for-loop" -"(if i_89" +"(if i_88" "(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_147 i_89)))" -"(let-values(((result_111)" +"(hash-iterate-key+value ht_150 i_88)))" +"(let-values(((result_115)" "(let-values()" -"(let-values(((result_112)" +"(let-values(((result_116)" "(let-values()" "(let-values()" "(if(let-values(((or-part_77)" @@ -45467,18 +45658,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_112)))))" -"(if(if(not((lambda x_79(not result_111)) k_34 v_3))" +"(values result_116)))))" +"(if(if(not((lambda x_80(not result_115)) k_34 v_3))" "(not #f)" " #f)" -"(for-loop_181" -" result_111" -"(hash-iterate-next ht_147 i_89))" -" result_111)))" -" result_110)))))" -" for-loop_181)" +"(for-loop_182" +" result_115" +"(hash-iterate-next ht_150 i_88))" +" result_115)))" +" result_114)))))" +" for-loop_182)" " #t" -"(hash-iterate-first ht_147))))" +"(hash-iterate-first ht_150))))" " #f))))))" " l_8)" " #f))" @@ -45502,38 +45693,38 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_148) p_3))" +"(let-values(((ht_151) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_266)" -"(lambda(table_204 i_90)" +"(let-values()(check-in-hash ht_151)))" +"((letrec-values(((for-loop_271)" +"(lambda(table_207 i_89)" "(begin" " 'for-loop" -"(if i_90" -"(let-values(((k_35 v_197)(hash-iterate-key+value ht_148 i_90)))" -"(let-values(((table_205)" -"(let-values(((table_106) table_204))" -"(let-values(((table_206)" +"(if i_89" +"(let-values(((k_35 v_198)(hash-iterate-key+value ht_151 i_89)))" +"(let-values(((table_208)" +"(let-values(((table_110) table_207))" +"(let-values(((table_209)" "(let-values()" -"(let-values(((key_81 val_72)" +"(let-values(((key_83 val_73)" "(let-values()" "(values" " k_35" -"(to-path v_197)))))" +"(to-path v_198)))))" "(hash-set" -" table_106" -" key_81" -" val_72)))))" -"(values table_206)))))" +" table_110" +" key_83" +" val_73)))))" +"(values table_209)))))" "(if(not #f)" -"(for-loop_266 table_205(hash-iterate-next ht_148 i_90))" -" table_205)))" -" table_204)))))" -" for-loop_266)" +"(for-loop_271 table_208(hash-iterate-next ht_151 i_89))" +" table_208)))" +" table_207)))))" +" for-loop_271)" " '#hash()" -"(hash-iterate-first ht_148)))))))))" +"(hash-iterate-first ht_151)))))))))" " l_71)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -45574,17 +45765,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_198)" +"(lambda(v_199)" "(begin" "(if((lambda(v_63)" "(let-values(((or-part_21)(eq? v_63 'modify-seconds)))" "(if or-part_21 or-part_21(eq? v_63 'exists))))" -" v_198)" +" v_199)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_198)))" -" v_198))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_199)))" +" v_199))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_199)(if v_199 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_200)(if v_200 #t #f))))" "(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" @@ -45648,17 +45839,17 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_41 end_31 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_145)" +"(let-values(((s_144)" "(if str_24" " str_24" "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_42)" -"(let-values(((or-part_295)(1/string->number start_41)))" -"(if or-part_295 or-part_295 0))))" +"(let-values(((or-part_298)(1/string->number start_41)))" +"(if or-part_298 or-part_298 0))))" "(let-values(((end_32)" -"(let-values(((or-part_297)(1/string->number end_31)))" -"(if or-part_297 or-part_297 0))))" +"(let-values(((or-part_300)(1/string->number end_31)))" +"(if or-part_300 or-part_300 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" @@ -45668,7 +45859,7 @@ static const char *startup_source = "(file-position(current-input-port) start_42)" "(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_59)(open-input-bytes s_145)))" +"(let-values(((p_59)(open-input-bytes s_144)))" "((letrec-values(((loop_73)" "(lambda()" "(begin" @@ -45700,7 +45891,7 @@ static const char *startup_source = "(let-values()((1/current-eval) e_76)))" "(loop_73)))))))))" " loop_73)))))))" -"(define-values(->path)(lambda(s_422)(begin(if(string? s_422)(string->path s_422) s_422))))" +"(define-values(->path)(lambda(s_421)(begin(if(string? s_421)(string->path s_421) s_421))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -45729,12 +45920,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_23 s_155 l_4)" +"(lambda(who_23 s_154 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_155)" +"(if(relative-path-string? s_154)" "(void)" -" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_155)))" +" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_154)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_23 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -45776,7 +45967,7 @@ static const char *startup_source = "(lambda(d_33)" "(begin" " (let-values (((p_60) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_289)" +"(let-values(((or-part_292)" "(if p_60" "(if(file-exists? p_60)" "(let-values(((p9_0) p_60)" @@ -45789,7 +45980,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_3))" " #f)" " #f)))" -"(if or-part_289 or-part_289 '#hash()))))))" +"(if or-part_292 or-part_292 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -45814,9 +46005,9 @@ static const char *startup_source = "(let-values(((or-part_172)(find-main-collects)))(if or-part_172 or-part_172(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_149 key_82 orig-l_9)" +"(lambda(ht_152 key_84 orig-l_9)" "(begin" -"(let-values(((l_75)(hash-ref ht_149 key_82 #f)))" +"(let-values(((l_75)(hash-ref ht_152 key_84 #f)))" "(if l_75" "((letrec-values(((loop_98)" "(lambda(l_76)" @@ -45835,22 +46026,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_150)(get-config-table(find-main-config))))" +"(let-values(((ht_153)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_70)(hash-ref ht_150 'links-file #f)))" +"(let-values(((or-part_70)(hash-ref ht_153 'links-file #f)))" "(if or-part_70" " or-part_70" "(build-path" -"(let-values(((or-part_71)(hash-ref ht_150 'share-dir #f)))" +"(let-values(((or-part_71)(hash-ref ht_153 'share-dir #f)))" " (if or-part_71 or-part_71 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)" -" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_150) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_153) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_150 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_153 'links-search-files(list lf_0)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" @@ -45965,7 +46156,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_200)" +"(let-values(((v_201)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" @@ -45982,19 +46173,19 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_200)" +"(if(if(list? v_201)" "(andmap2" "(lambda(p_64)" "(if(list? p_64)" "(if(let-values(((or-part_63)(= 2(length p_64))))" "(if or-part_63 or-part_63(= 3(length p_64))))" -"(if(let-values(((or-part_299)(string?(car p_64))))" -"(if or-part_299" -" or-part_299" -"(let-values(((or-part_300)" +"(if(let-values(((or-part_302)(string?(car p_64))))" +"(if or-part_302" +" or-part_302" +"(let-values(((or-part_303)" "(eq? 'root(car p_64))))" -"(if or-part_300" -" or-part_300" +"(if or-part_303" +" or-part_303" "(eq? 'static-root(car p_64))))))" "(if(path-string?(cadr p_64))" "(let-values(((or-part_64)(null?(cddr p_64))))" @@ -46003,12 +46194,12 @@ static const char *startup_source = " #f)" " #f)" " #f))" -" v_200)" +" v_201)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_151)(make-hasheq)))" +"(let-values(((ht_154)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" " base_21)))" @@ -46028,34 +46219,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_36)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_151" +" ht_154" " k_36" -"(cons dir_1(hash-ref ht_151 k_36 null)))))" +"(cons dir_1(hash-ref ht_154 k_36 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_65) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_151 #f #f)" +"(if(hash-ref ht_154 #f #f)" "(void)" -"(let-values()(hash-set! ht_151 #f null)))" +"(let-values()(hash-set! ht_154 #f null)))" "(hash-for-each" -" ht_151" -"(lambda(k_37 v_201)" -"(hash-set! ht_151 k_37(cons dir_1 v_201))))))" +" ht_154" +"(lambda(k_37 v_202)" +"(hash-set! ht_154 k_37(cons dir_1 v_202))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_65))))" "(hash-set!" -" ht_151" +" ht_154" " s_16" -"(cons(box dir_1)(hash-ref ht_151 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_154 s_16 null)))))))))" "(void)))" -" v_200)" +" v_201)" "(hash-for-each" -" ht_151" -"(lambda(k_38 v_202)(hash-set! ht_151 k_38(reverse$1 v_202))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_151))" -" ht_151))))))))))))))))))))))" +" ht_154" +"(lambda(k_38 v_203)(hash-set! ht_154 k_38(reverse$1 v_203))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_154))" +" ht_154))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -46102,10 +46293,10 @@ static const char *startup_source = "(hash-ref(car l_78) #f null)" "(loop_100(cdr l_78))))" "(let-values()" -"(let-values(((ht_152)(get-linked-collections(car l_78))))" +"(let-values(((ht_155)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_152 sym_91 null)" -"(hash-ref ht_152 #f null)" +"(hash-ref ht_155 sym_91 null)" +"(hash-ref ht_155 #f null)" "(loop_100(cdr l_78))))))))))))" " loop_100)" "(1/current-library-collection-links)))))" @@ -46224,8 +46415,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_221) found-col_0))" -"(if or-part_221 or-part_221 cpath_0))))" +"(let-values(((or-part_222) found-col_0))" +"(if or-part_222 or-part_222 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -46295,13 +46486,13 @@ static const char *startup_source = "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_203)" +"(let-values(((v_204)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_203" +"(if v_204" "(cons" "(simplify-path" -"(path->complete-path v_203(current-directory)))" +"(path->complete-path v_204(current-directory)))" "(loop_84(cdr l_79)))" "(loop_84(cdr l_79))))))))))" " loop_84)" @@ -46336,7 +46527,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(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" @@ -46352,16 +46543,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'inner)" -"(make-struct-field-accessor -ref_33 1 'wrap)" -"(make-struct-field-accessor -ref_33 2 'line)" -"(make-struct-field-accessor -ref_33 3 'col)" -"(make-struct-field-accessor -ref_33 4 'pos)" -"(make-struct-field-accessor -ref_33 5 'indentations)" -"(make-struct-field-accessor -ref_33 6 'keep-comment?))))" +" 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?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -46378,7 +46569,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" +"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" "(let-values()" "(let-values()" "(make-struct-type" @@ -46394,21 +46585,21 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" 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))))" +" 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))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" @@ -46450,43 +46641,43 @@ static const char *startup_source = " pos_107" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_204)(begin(read-config/outer-wrap v_204))))" -"(define-values(read-config-line)(lambda(v_205)(begin(read-config/outer-line v_205))))" -"(define-values(read-config-col)(lambda(v_206)(begin(read-config/outer-col v_206))))" -"(define-values(read-config-pos)(lambda(v_207)(begin(read-config/outer-pos v_207))))" -"(define-values(read-config-indentations)(lambda(v_208)(begin(read-config/outer-indentations v_208))))" -"(define-values(read-config-keep-comment?)(lambda(v_209)(begin(read-config/outer-keep-comment? v_209))))" +"(define-values(read-config-wrap)(lambda(v_205)(begin(read-config/outer-wrap v_205))))" +"(define-values(read-config-line)(lambda(v_206)(begin(read-config/outer-line v_206))))" +"(define-values(read-config-col)(lambda(v_207)(begin(read-config/outer-col v_207))))" +"(define-values(read-config-pos)(lambda(v_208)(begin(read-config/outer-pos v_208))))" +"(define-values(read-config-indentations)(lambda(v_209)(begin(read-config/outer-indentations v_209))))" +"(define-values(read-config-keep-comment?)(lambda(v_210)(begin(read-config/outer-keep-comment? v_210))))" "(define-values" "(read-config-readtable)" -"(lambda(v_210)(begin(read-config/inner-readtable(read-config/outer-inner v_210)))))" +"(lambda(v_211)(begin(read-config/inner-readtable(read-config/outer-inner v_211)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_211)(begin(read-config/inner-next-readtable(read-config/outer-inner v_211)))))" +"(lambda(v_212)(begin(read-config/inner-next-readtable(read-config/outer-inner v_212)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_212)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_212)))))" +"(lambda(v_213)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_213)))))" "(define-values(read-config-source)(lambda(v_70)(begin(read-config/inner-source(read-config/outer-inner v_70)))))" "(define-values" "(read-config-read-compiled)" "(lambda(v_185)(begin(read-config/inner-read-compiled(read-config/outer-inner v_185)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_213)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_213)))))" +"(lambda(v_214)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_214)))))" "(define-values" "(read-config-module-declared?)" "(lambda(v_135)(begin(read-config/inner-module-declared?(read-config/outer-inner v_135)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_214)(begin(read-config/inner-coerce(read-config/outer-inner v_214)))))" +"(lambda(v_215)(begin(read-config/inner-coerce(read-config/outer-inner v_215)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_215)(begin(read-config/inner-coerce-key(read-config/outer-inner v_215)))))" +"(lambda(v_216)(begin(read-config/inner-coerce-key(read-config/outer-inner v_216)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_203)(begin(read-config/inner-parameter-override(read-config/outer-inner v_203)))))" +"(lambda(v_204)(begin(read-config/inner-parameter-override(read-config/outer-inner v_204)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_216)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_216)))))" +"(lambda(v_217)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_217)))))" "(define-values(read-config-st)(lambda(v_190)(begin(read-config/inner-st(read-config/outer-inner v_190)))))" "(define-values" "(struct:read-config-state" @@ -46496,7 +46687,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" +"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" "(let-values()" "(let-values()" "(make-struct-type" @@ -46512,13 +46703,13 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" 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))))" +" 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))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" @@ -46571,14 +46762,14 @@ static const char *startup_source = " or-part_90" "(lambda(mod-path_25 sym_73 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_301) module-declared?_1))" -"(if or-part_301" -" or-part_301" +"(let-values(((or-part_304) module-declared?_1))" +"(if or-part_304" +" or-part_304" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_223) coerce_1))" -"(if or-part_223 or-part_223(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" -"(let-values(((or-part_262) coerce-key_1))" -"(if or-part_262 or-part_262(lambda(for-syntax?_3 v_113) v_113)))" +"(let-values(((or-part_224) coerce_1))" +"(if or-part_224 or-part_224(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" +"(let-values(((or-part_265) coerce-key_1))" +"(if or-part_265 or-part_265(lambda(for-syntax?_3 v_113) v_113)))" " #f" " #f" " #f" @@ -46608,14 +46799,14 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_217) config_0))" -"(let-values(((the-struct_80) v_217))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((v_218) config_0))" +"(let-values(((the-struct_79) v_218))" +"(if(read-config/outer? the-struct_79)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_1)" -"(let-values(((the-struct_81)(read-config/outer-inner v_217)))" -"(if(read-config/inner? the-struct_81)" +"(let-values(((the-struct_80)(read-config/outer-inner v_218)))" +"(if(read-config/inner? the-struct_80)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -46627,35 +46818,35 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(read-config/inner-source the-struct_81)" -"(read-config/inner-read-compiled the-struct_81)" -"(read-config/inner-dynamic-require the-struct_81)" -"(read-config/inner-module-declared? the-struct_81)" -"(read-config/inner-coerce the-struct_81)" -"(read-config/inner-coerce-key the-struct_81)" -"(read-config/inner-parameter-override the-struct_81)" -"(read-config/inner-parameter-cache the-struct_81)" +"(read-config/inner-source the-struct_80)" +"(read-config/inner-read-compiled the-struct_80)" +"(read-config/inner-dynamic-require the-struct_80)" +"(read-config/inner-module-declared? the-struct_80)" +"(read-config/inner-coerce the-struct_80)" +"(read-config/inner-coerce-key the-struct_80)" +"(read-config/inner-parameter-override the-struct_80)" +"(read-config/inner-parameter-cache the-struct_80)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" "(read-config/outer1.1" " inner50_1" " wrap48_0" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" " keep-comment?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" "(begin" "(let-values(((end-line_0 end-col_0 end-pos_0)(port-next-location in_1)))" "(srcloc" -"(let-values(((or-part_302)(read-config-source config_1)))" -"(if or-part_302" -" or-part_302" -" (let-values (((or-part_303) (object-name in_1))) (if or-part_303 or-part_303 \"UNKNOWN\"))))" +"(let-values(((or-part_305)(read-config-source config_1)))" +"(if or-part_305" +" or-part_305" +" (let-values (((or-part_306) (object-name in_1))) (if or-part_306 or-part_306 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -46664,13 +46855,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_218) config_2))" -"(let-values(((the-struct_38) v_218))" +"(let-values(((v_219) config_2))" +"(let-values(((the-struct_38) v_219))" "(if(read-config/outer? the-struct_38)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_108)" -"((inner58_1)(read-config/outer-inner v_218)))" +"((inner58_1)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner58_1" "(read-config/outer-wrap the-struct_38)" @@ -46684,36 +46875,36 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_219) config_3))" -"(let-values(((the-struct_82) v_219))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_219)))" +"(let-values(((v_220) config_3))" +"(let-values(((the-struct_81) v_220))" +"(if(read-config/outer? the-struct_81)" +"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_220)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" -"(read-config/outer-keep-comment? the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_220) config_4))" -"(let-values(((the-struct_83) v_220))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_220)))" +"(let-values(((v_74) config_4))" +"(let-values(((the-struct_82) v_74))" +"(if(read-config/outer? the-struct_82)" +"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_74)))" "(read-config/outer1.1" " inner62_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" " keep-comment?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -46722,18 +46913,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_146) config_5))" -"(let-values(((the-struct_84) v_146))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((the-struct_83) v_146))" +"(if(read-config/outer? the-struct_83)" "(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_146)))" "(read-config/outer1.1" " inner64_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" " keep-comment?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -46742,43 +46933,43 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_221) config_6))" -"(let-values(((the-struct_85) v_221))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((the-struct_84) v_221))" +"(if(read-config/outer? the-struct_84)" "(let-values(((inner65_0)" -"(let-values(((the-struct_86)(read-config/outer-inner v_221)))" -"(if(read-config/inner? the-struct_86)" +"(let-values(((the-struct_85)(read-config/outer-inner v_221)))" +"(if(read-config/inner? the-struct_85)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable66_0" -"(read-config/inner-next-readtable the-struct_86)" -"(read-config/inner-for-syntax? the-struct_86)" -"(read-config/inner-source the-struct_86)" -"(read-config/inner-read-compiled the-struct_86)" -"(read-config/inner-dynamic-require the-struct_86)" -"(read-config/inner-module-declared? the-struct_86)" -"(read-config/inner-coerce the-struct_86)" -"(read-config/inner-coerce-key the-struct_86)" -"(read-config/inner-parameter-override the-struct_86)" -"(read-config/inner-parameter-cache the-struct_86)" -"(read-config/inner-st the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" +"(read-config/inner-next-readtable the-struct_85)" +"(read-config/inner-for-syntax? the-struct_85)" +"(read-config/inner-source the-struct_85)" +"(read-config/inner-read-compiled the-struct_85)" +"(read-config/inner-dynamic-require the-struct_85)" +"(read-config/inner-module-declared? the-struct_85)" +"(read-config/inner-coerce the-struct_85)" +"(read-config/inner-coerce-key the-struct_85)" +"(read-config/inner-parameter-override the-struct_85)" +"(read-config/inner-parameter-cache the-struct_85)" +"(read-config/inner-st the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" -"(read-config/outer-indentations the-struct_85)" -"(read-config/outer-keep-comment? the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))" +"(read-config/outer-wrap the-struct_84)" +"(read-config/outer-line the-struct_84)" +"(read-config/outer-col the-struct_84)" +"(read-config/outer-pos the-struct_84)" +"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-keep-comment? the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" "(define-values" "(coerce)" -"(lambda(val_73 in_2 config_7)" +"(lambda(val_74 in_2 config_7)" "(begin" "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" "((read-config-coerce config_7)" " for-syntax?_5" -" val_73" +" val_74" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" "(define-values(default-reader-guard$1)(lambda(v_222)(begin 'default-reader-guard v_222)))" "(define-values" @@ -46821,36 +47012,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_92) config_9))" -"(let-values(((the-struct_87) v_92))" -"(if(read-config/outer? the-struct_87)" +"(let-values(((the-struct_86) v_92))" +"(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_88)(read-config/outer-inner v_92)))" -"(if(read-config/inner? the-struct_88)" +"(let-values(((the-struct_87)(read-config/outer-inner v_92)))" +"(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_88)" -"(read-config/inner-next-readtable the-struct_88)" -"(read-config/inner-for-syntax? the-struct_88)" -"(read-config/inner-source the-struct_88)" -"(read-config/inner-read-compiled the-struct_88)" -"(read-config/inner-dynamic-require the-struct_88)" -"(read-config/inner-module-declared? the-struct_88)" -"(read-config/inner-coerce the-struct_88)" -"(read-config/inner-coerce-key the-struct_88)" +"(read-config/inner-readtable the-struct_87)" +"(read-config/inner-next-readtable the-struct_87)" +"(read-config/inner-for-syntax? the-struct_87)" +"(read-config/inner-source the-struct_87)" +"(read-config/inner-read-compiled the-struct_87)" +"(read-config/inner-dynamic-require the-struct_87)" +"(read-config/inner-module-declared? the-struct_87)" +"(read-config/inner-coerce the-struct_87)" +"(read-config/inner-coerce-key the-struct_87)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_88)" -"(read-config/inner-st the-struct_88)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_88)))))" +"(read-config/inner-parameter-cache the-struct_87)" +"(read-config/inner-st the-struct_87)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_87)" -"(read-config/outer-line the-struct_87)" -"(read-config/outer-col the-struct_87)" -"(read-config/outer-pos the-struct_87)" -"(read-config/outer-indentations the-struct_87)" -"(read-config/outer-keep-comment? the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_87)))))))" +"(read-config/outer-wrap the-struct_86)" +"(read-config/outer-line the-struct_86)" +"(read-config/outer-col the-struct_86)" +"(read-config/outer-pos the-struct_86)" +"(read-config/outer-indentations the-struct_86)" +"(read-config/outer-keep-comment? the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -46903,7 +47094,7 @@ static const char *startup_source = " readtable-char-ht" " readtable-dispatch-ht" " readtable-delimiter-ht)" -"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" +"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" "(let-values()" "(let-values()" "(make-struct-type" @@ -46919,13 +47110,13 @@ static const char *startup_source = " #f" " 'readtable)))))" "(values" -" struct:_19" -" make-_19" -" ?_19" -"(make-struct-field-accessor -ref_19 0 'symbol-parser)" -"(make-struct-field-accessor -ref_19 1 'char-ht)" -"(make-struct-field-accessor -ref_19 2 'dispatch-ht)" -"(make-struct-field-accessor -ref_19 3 'delimiter-ht))))" +" struct:_21" +" make-_21" +" ?_21" +"(make-struct-field-accessor -ref_21 0 'symbol-parser)" +"(make-struct-field-accessor -ref_21 1 'char-ht)" +"(make-struct-field-accessor -ref_21 2 'dispatch-ht)" +"(make-struct-field-accessor -ref_21 3 'delimiter-ht))))" "(define-values" "(1/make-readtable)" "(lambda(rt_0 . args_7)" @@ -46942,23 +47133,23 @@ static const char *startup_source = "(if(null? args_8)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_83)(car args_8)))" +"(let-values(((key_85)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not key_83)))" -"(if or-part_167 or-part_167(char? key_83)))" +"(if(let-values(((or-part_167)(not key_85)))" +"(if or-part_167 or-part_167(char? key_85)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_83)))" +" key_85)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_83" +"(if key_85" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -46966,7 +47157,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_83))" +" key_85))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -46976,7 +47167,7 @@ static const char *startup_source = "(let-values(((mode_16)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_83" +"(if key_85" "(let-values()" "(if(let-values(((or-part_168)" "(eq? mode_16 'terminating-macro)))" @@ -46988,10 +47179,10 @@ static const char *startup_source = " 'non-terminating-macro)))" "(if or-part_169" " or-part_169" -"(let-values(((or-part_281)" +"(let-values(((or-part_284)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_281" -" or-part_281" +"(if or-part_284" +" or-part_284" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47013,7 +47204,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_83" +"(if key_85" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -47022,7 +47213,7 @@ static const char *startup_source = "(values))))" "(let-values(((target_0)(caddr args_8)))" "(let-values(((rest-args_0)(cdddr args_8)))" -"(if(not key_83)" +"(if(not key_85)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -47056,7 +47247,7 @@ static const char *startup_source = " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_83 target_0)" +"(hash-set dispatch-ht_0 key_85 target_0)" " delimiter-ht_0)))" "(if(char? mode_16)" "(let-values()" @@ -47087,13 +47278,13 @@ static const char *startup_source = "(if actual-target_0" "(hash-set" " char-ht_0" -" key_83" +" key_85" " actual-target_0)" -"(hash-remove char-ht_0 key_83))))" +"(hash-remove char-ht_0 key_85))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_83" +" key_85" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" @@ -47120,11 +47311,11 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_83 target_0)))" +"(hash-set char-ht_0 key_85 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_83" +" key_85" "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" @@ -47215,7 +47406,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_60 #f)))" "(values" -"(let-values(((or-part_229)" +"(let-values(((or-part_230)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -47223,50 +47414,50 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_229 or-part_229 c_60))" +"(if or-part_230 or-part_230 c_60))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_60 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_61)" "(begin" -"(let-values(((ht_153)(readtable-char-ht rt_6)))" +"(let-values(((ht_156)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_153 c_61 #f) null(list c_61))" +"(if(hash-ref ht_156 c_61 #f) null(list c_61))" "(reverse$1" -"(let-values(((ht_145) ht_153))" +"(let-values(((ht_148) ht_156))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_80 i_170)" +"(let-values()(check-in-hash ht_148)))" +"((letrec-values(((for-loop_267)" +"(lambda(fold-var_80 i_171)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((k_39 v_88)(hash-iterate-key+value ht_145 i_170)))" -"(let-values(((fold-var_276)" +"(if i_171" +"(let-values(((k_39 v_88)(hash-iterate-key+value ht_148 i_171)))" +"(let-values(((fold-var_277)" "(let-values(((fold-var_83) fold-var_80))" "(if(eqv? v_88 c_61)" -"(let-values(((fold-var_238) fold-var_83))" +"(let-values(((fold-var_239) fold-var_83))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_39) fold-var_238))))" +"(cons(let-values() k_39) fold-var_239))))" "(values fold-var_13)))" " fold-var_83))))" "(if(not #f)" -"(for-loop_262 fold-var_276(hash-iterate-next ht_145 i_170))" -" fold-var_276)))" +"(for-loop_267 fold-var_277(hash-iterate-next ht_148 i_171))" +" fold-var_277)))" " fold-var_80)))))" -" for-loop_262)" +" for-loop_267)" " null" -"(hash-iterate-first ht_145))))))))))" +"(hash-iterate-first ht_148))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" +"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" "(let-values()" "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_76 make-_76 ?_76(make-struct-field-accessor -ref_76 0 'value))))" +"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'value))))" "(define-values" "(wrap)" "(lambda(s-exp_3 in_2 config_7 rep_0)" @@ -47308,11 +47499,11 @@ static const char *startup_source = "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_159)" +"(let-values(((s_158)" "(if(error-print-source-location)" "(if srcloc_10(srcloc->string srcloc_10) #f)" " #f)))" -" (if s_159 (string-append s_159 \": \" msg_0) msg_0))" +" (if s_158 (string-append s_158 \": \" msg_0) msg_0))" " continuation-marks_0" "(if srcloc_10(list srcloc_10) null)))))))))))))))" "(define-values" @@ -47325,12 +47516,12 @@ static const char *startup_source = "(let-values(((str_26) str17_0))" "(let-values(((due-to_1)(if due-to14_0 due-to13_0 '#\\x)))" "(let-values()" -"(let-values(((in21_1) in_7)" +"(let-values(((in21_0) in_7)" "((config22_0) config_17)" "((due-to23_0) due-to_1)" " ((temp24_6) \"bad syntax `~a`\")" "((str25_0) str_26))" -"(reader-error10.1 #f #f due-to23_0 #t #f #f in21_1 config22_0 temp24_6(list str25_0)))))))))))" +"(reader-error10.1 #f #f due-to23_0 #t #f #f in21_0 config22_0 temp24_6(list str25_0)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" "(lambda(in_8 config_18 thunk_5)" @@ -47344,8 +47535,8 @@ static const char *startup_source = "((config29_0) config_18)" " ((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_457)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_457 \"\")))" +"(let-values(((s_456)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_456 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in28_0 config29_0 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" @@ -47411,10 +47602,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_296)" +"(if(let-values(((or-part_299)" "(eof-object? c_62)))" -"(if or-part_296" -" or-part_296" +"(if or-part_299" +" or-part_299" "(eqv?" " '#\\newline" "(effective-char c_62 config_15))))" @@ -47595,12 +47786,12 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_304)(char=? dc_0 '#\\()))" -"(if or-part_304" -" or-part_304" -"(let-values(((or-part_287)(char=? dc_0 '#\\))))" -"(if or-part_287" -" or-part_287" +"(let-values(((or-part_307)(char=? dc_0 '#\\()))" +"(if or-part_307" +" or-part_307" +"(let-values(((or-part_290)(char=? dc_0 '#\\))))" +"(if or-part_290" +" or-part_290" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -47616,9 +47807,9 @@ static const char *startup_source = "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_218)(char=? dc_0 '#\\`)))" -"(if or-part_218" -" or-part_218" +"(let-values(((or-part_219)(char=? dc_0 '#\\`)))" +"(if or-part_219" +" or-part_219" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -47696,9 +47887,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_67 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_60 s_10 c_67))" -"(if(let-values(((or-part_295) s_10))(if or-part_295 or-part_295 c_67))" +"(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_67))" "(let-values()" -" (format \"~a or ~a\" p_60 (let-values (((or-part_296) s_10)) (if or-part_296 or-part_296 c_67))))" +" (format \"~a or ~a\" p_60 (let-values (((or-part_299) s_10)) (if or-part_299 or-part_299 c_67))))" "(let-values() p_60)))))))))" "(define-values" "(struct:accum-string" @@ -47749,15 +47940,15 @@ static const char *startup_source = "(lambda(a_69 convert_1 start-pos_6)" "(begin" "(let-values(((str_28)(accum-string-str a_69)))" -"(let-values(((s_72)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))" -"(let-values(((len_36)(string-length s_72)))" +"(let-values(((s_71)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))" +"(let-values(((len_36)(string-length s_71)))" "(begin" "(if(<(+ len_36 start-pos_6)(string-length str_28))" "(void)" "(let-values()" "(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))" "(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_69 str2_2)))))" -"(string-copy!(accum-string-str a_69) start-pos_6 s_72)" +"(string-copy!(accum-string-str a_69) start-pos_6 s_71)" "(set-accum-string-pos! a_69(+ start-pos_6 len_36)))))))))" "(define-values" "(accum-string-get!6.1)" @@ -47768,8 +47959,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_182)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_182)))))))))" +"(let-values(((s_181)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_181)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -47880,23 +48071,23 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_69))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_300)" -"(let-values(((lst_308)(cdr indts_1)))" +"(let-values(((or-part_303)" +"(let-values(((lst_310)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_308)))" -"((letrec-values(((for-loop_267)" -"(lambda(result_39 lst_309)" +"(let-values()(check-list lst_310)))" +"((letrec-values(((for-loop_272)" +"(lambda(result_39 lst_311)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((indt_3)(unsafe-car lst_309))" -"((rest_172)" -"(unsafe-cdr lst_309)))" -"(let-values(((result_76)" +"(if(pair? lst_311)" +"(let-values(((indt_3)(unsafe-car lst_311))" +"((rest_171)" +"(unsafe-cdr lst_311)))" +"(let-values(((result_81)" "(let-values()" -"(let-values(((result_113)" +"(let-values(((result_117)" "(let-values()" "(let-values()" "(if(char=?" @@ -47905,19 +48096,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_113)))))" +"(values result_117)))))" "(if(if(not" -"((lambda x_80 result_76)" +"((lambda x_81 result_81)" " indt_3))" "(not #f)" " #f)" -"(for-loop_267 result_76 rest_172)" -" result_76)))" +"(for-loop_272 result_81 rest_171)" +" result_81)))" " result_39)))))" -" for-loop_267)" +" for-loop_272)" " #f" -" lst_308)))))" -" (if or-part_300 or-part_300 \"expected\"))))" +" lst_310)))))" +" (if or-part_303 or-part_303 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -47965,8 +48156,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_16)" "(let-values(((v_5) elem-config_0))" -"(let-values(((the-struct_58) v_5))" -"(if(read-config/outer? the-struct_58)" +"(let-values(((the-struct_57) v_5))" +"(if(read-config/outer? the-struct_57)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -47974,16 +48165,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_5)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_58)" -"(read-config/outer-line the-struct_58)" -"(read-config/outer-col the-struct_58)" -"(read-config/outer-pos the-struct_58)" +"(read-config/outer-wrap the-struct_57)" +"(read-config/outer-line the-struct_57)" +"(read-config/outer-col the-struct_57)" +"(read-config/outer-pos the-struct_57)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_58)))" +"(read-config/outer-keep-comment? the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_58))))))" +" the-struct_57))))))" "(let-values(((config/keep-comment_0)(keep-comment config_16)))" "(let-values(((read-one/not-eof_0)" "(lambda(init-c_4 read-one_2 config_34)" @@ -47993,7 +48184,7 @@ static const char *startup_source = "(begin" "(if(eof-object? e_78)" "(let-values()" -"(let-values(((in22_0) in_10)" +"(let-values(((in22_1) in_10)" "((config23_0) config_34)" "((e24_0) e_78)" "((temp25_5)" @@ -48010,7 +48201,7 @@ static const char *startup_source = " #t" " #f" " #f" -" in22_0" +" in22_1" " config23_0" " temp25_5" "(list temp26_4 opener-c27_0 temp28_3))))" @@ -48088,7 +48279,7 @@ static const char *startup_source = " #f)" "(void)" "(let-values()" -"(let-values(((in29_1)" +"(let-values(((in29_0)" " in_10)" "((temp30_3)" "(reading-at" @@ -48105,12 +48296,12 @@ static const char *startup_source = " #f" " #f" " #f" -" in29_1" +" in29_0" " temp30_3" " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_200)" +"(let-values(((v_201)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -48131,11 +48322,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_200" +" v_201" "(append" "(reverse$1" " accum_0)" -" v_200)))" +" v_201)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -48174,7 +48365,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_200))" +" v_201))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48199,11 +48390,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_261)" +"(if(let-values(((or-part_264)" "(eof-object?" " post-ec_0)))" -"(if or-part_261" -" or-part_261" +"(if or-part_264" +" or-part_264" "(eqv?" " post-ec_0" " closer_1)))" @@ -48407,9 +48598,9 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_77)" "(begin" -"(let-values(((or-part_305)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_308)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" +"(if or-part_308" +" or-part_308" "(let-values(((or-part_98)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" "(if or-part_98 or-part_98(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" @@ -48428,7 +48619,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_180) s7_2))" +"(let-values(((s_179) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -48439,9 +48630,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_180)" +"(if(string? s_179)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_180)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_179)))" "(if((lambda(p_69)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -48466,9 +48657,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_180)" +"(let-values(((s69_0) s_179)" "((temp70_1) 0)" -"((temp71_0)(string-length s_180))" +"((temp71_0)(string-length s_179))" "((radix72_0) radix_0)" "((temp73_0) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -48484,11 +48675,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_458)(begin 'string->number(string->number8_0 s_458 #f #f #f #f #f #f)))" -"((s_459 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_459 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_177 radix_2 convert-mode2_1)(string->number8_0 s_177 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_460 radix1_1)(string->number8_0 s_460 radix1_1 #f #f #t #f #f)))))" +"((s_457)(begin 'string->number(string->number8_0 s_457 #f #f #f #f #f #f)))" +"((s_458 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_458 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_176 radix_2 convert-mode2_1)(string->number8_0 s_176 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_459 radix1_1)(string->number8_0 s_459 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -48502,7 +48693,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_461) s14_0))" +"(let-values(((s_460) s14_0))" "(let-values(((start_43) start15_0))" "(let-values(((end_33) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -48517,18 +48708,18 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_461 start_43)))" +"(let-values(((c_79)(string-ref s_460 start_43)))" "(if(char=? '#\\# c_79)" "(let-values()" "(let-values(((next_4)(add1 start_43)))" "(if(= next_4 end_33)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_461))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_460))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_170)(string-ref s_461 next_4)))" -"(let-values(((tmp_39) i_170))" +"(let-values(((i_171)(string-ref s_460 next_4)))" +"(let-values(((tmp_39) i_171))" "(let-values(((index_2)" "(if(char? tmp_39)" "(let-values(((codepoint_0)(char->integer tmp_39)))" @@ -48602,32 +48793,32 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_170" -"(substring s_461 start_43 end_33)))" +" i_171" +"(substring s_460 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_284)(exactness-set? exactness_0)))" -"(if or-part_284 or-part_284 in-complex_0))" +"(if(let-values(((or-part_287)(exactness-set? exactness_0)))" +"(if or-part_287 or-part_287 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_461 start_43 end_33)))" +"(substring s_460 start_43 end_33)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_0) s_461)" +"(let-values(((s76_0) s_460)" "((temp77_0)(add1 next_4))" "((end78_0) end_33)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_214)" -"(char=? i_170 '#\\e)))" -"(if or-part_214" -" or-part_214" -"(char=? i_170 '#\\E)))" +"(if(let-values(((or-part_215)" +"(char=? i_171 '#\\e)))" +"(if or-part_215" +" or-part_215" +"(char=? i_171 '#\\E)))" " 'exact" " 'inexact))" "((temp82_3)" @@ -48645,18 +48836,18 @@ static const char *startup_source = " temp81_1" " temp82_3)))))" "(let-values()" -"(if(let-values(((or-part_306) radix-set?_0))" -"(if or-part_306 or-part_306 in-complex_0))" +"(if(let-values(((or-part_309) radix-set?_0))" +"(if or-part_309 or-part_309 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_461 start_43 end_33)))" +"(substring s_460 start_43 end_33)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_40) i_170))" +"(let-values(((tmp_40) i_171))" "(if(if(equal? tmp_40 '#\\b)" " #t" "(equal? tmp_40 '#\\B))" @@ -48670,7 +48861,7 @@ static const char *startup_source = "(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_461)" +"(let-values(((s83_0) s_460)" "((temp84_2)(add1 next_4))" "((end85_0) end_33)" "((radix86_0) radix_4)" @@ -48692,7 +48883,7 @@ static const char *startup_source = " temp89_4)))))))))))))))" "(let-values(((c1_28)" "(if(char-sign? c_79)" -"(read-special-number s_461 start_43 end_33 convert-mode_2)" +"(read-special-number s_460 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_28" "((lambda(v_230)" @@ -48707,10 +48898,10 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_461(sub1 end_33)))" -"(if(char-sign?(string-ref s_461 6))" +"(if(char=? '#\\i(string-ref s_460(sub1 end_33)))" +"(if(char-sign?(string-ref s_460 6))" "(read-special-number" -" s_461" +" s_460" " start_43" "(+ start_43 6)" " convert-mode_2)" @@ -48721,7 +48912,7 @@ static const char *startup_source = " #f)))" "(if c2_3" "((lambda(v_231)" -"(let-values(((s90_1) s_461)" +"(let-values(((s90_1) s_460)" "((temp91_0)(+ start_43 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" @@ -48748,10 +48939,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_461(sub1 end_33)))" -"(if(char-sign?(string-ref s_461(- end_33 7)))" +"(if(char=? '#\\i(string-ref s_460(sub1 end_33)))" +"(if(char-sign?(string-ref s_460(- end_33 7)))" "(read-special-number" -" s_461" +" s_460" "(- end_33 7)" "(sub1 end_33)" " convert-mode_2)" @@ -48764,7 +48955,7 @@ static const char *startup_source = "(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_461)" +"(let-values(((s99_0) s_460)" "((start100_0) start_43)" "((temp101_2)(- end_33 7))" "((radix102_0) radix_3)" @@ -48774,8 +48965,8 @@ static const char *startup_source = "((temp106_2) #t)" "((v2107_0) v2_1)" "((temp108_2)" -"(lambda(v2_2 v_214)" -"(begin 'temp108(make-rectangular v_214 v2_2)))))" +"(lambda(v2_2 v_215)" +"(begin 'temp108(make-rectangular v_215 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_2" @@ -48793,9 +48984,9 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_461(+ start_43 6)))" +"(if(char=? '#\\@(string-ref s_460(+ start_43 6)))" "(read-special-number" -" s_461" +" s_460" " start_43" "(+ start_43 6)" " convert-mode_2)" @@ -48804,16 +48995,16 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_203)" -"(let-values(((s109_0) s_461)" +"((lambda(v_204)" +"(let-values(((s109_0) s_460)" "((temp110_4)(+ start_43 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_203)" -"((temp117_3)" +"((v116_0) v_204)" +"((temp117_2)" "(lambda(v_232 v2_3)" "(begin 'temp117(make-polar v_232 v2_3)))))" "(read-for-special-compound65.1" @@ -48827,14 +49018,14 @@ static const char *startup_source = " exactness113_0" " convert-mode114_0" " v116_0" -" temp117_3)))" +" temp117_2)))" " c4_0)" "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_461(- end_33 7)))" +"(if(char=? '#\\@(string-ref s_460(- end_33 7)))" "(read-special-number" -" s_461" +" s_460" "(- end_33 6)" " end_33" " convert-mode_2)" @@ -48843,33 +49034,33 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_461)" +"(let-values(((s118_0) s_460)" "((start119_0) start_43)" -"((temp120_1)(- end_33 7))" +"((temp120_2)(- end_33 7))" "((radix121_0) radix_3)" "((exactness122_0) exactness_0)" "((convert-mode123_0) convert-mode_2)" -"((temp124_3) '@)" +"((temp124_4) '@)" "((temp125_2) #t)" "((v2126_0) v2_4)" -"((temp127_3)" +"((temp127_2)" "(lambda(v2_5 v_233)" "(begin 'temp127(make-polar v_233 v2_5)))))" "(read-for-special-compound65.1" -" temp124_3" +" temp124_4" " temp125_2" " #t" " s118_0" " start119_0" -" temp120_1" +" temp120_2" " radix121_0" " exactness122_0" " convert-mode123_0" " v2126_0" -" temp127_3)))" +" temp127_2)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_461)" +"(let-values(((s128_1) s_460)" "((start129_0) start_43)" "((end130_0) end_33)" "((radix131_0) radix_3)" @@ -48900,7 +49091,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_199) s27_1))" +"(let-values(((s_198) s27_1))" "(let-values(((start_44) start28_0))" "(let-values(((end_34) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -48910,7 +49101,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_106)" -"(lambda(i_171" +"(lambda(i_172" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -48922,7 +49113,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_171 end_34)" +"(if(= i_172 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -48930,7 +49121,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -48938,13 +49129,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_307)" +"(let-values(((or-part_310)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_307" -" or-part_307" +"(if or-part_310" +" or-part_310" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -48952,30 +49143,30 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_199)" +"(let-values(((s136_0) s_198)" "((start137_0) start_44)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" -"((temp140_1)(sub1 end_34))" +"((temp140_2)(sub1 end_34))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" "((radix-set?144_0) radix-set?_1)" "((exactness145_0) exactness_1)" -"((temp146_0) 'i)" +"((temp146_1) 'i)" "((convert-mode147_0) convert-mode_3))" "(string->complex-number50.1" -" temp146_0" +" temp146_1" " radix-set?144_0" " s136_0" " start137_0" " sign-pos138_0" " sign-pos139_0" -" temp140_1" +" temp140_2" " i-pos141_0" " sign-pos142_0" " radix143_0" @@ -48983,7 +49174,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_199)" +"(let-values(((s148_0) s_198)" "((start149_0) start_44)" "((@-pos150_0) @-pos_0)" "((temp151_1)(add1 @-pos_0))" @@ -49010,7 +49201,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_199" +" s_198" " start_44" " end_34" " dot-pos_1" @@ -49021,11 +49212,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_199 i_171)))" +"(let-values(((c_80)(string-ref s_198 i_172)))" "(if(digit? c_80 radix_5)" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " #t" " any-hashes?_0" " i-pos_3" @@ -49038,7 +49229,7 @@ static const char *startup_source = "(if(char=? c_80 '#\\#)" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " #t" " #t" " i-pos_3" @@ -49056,41 +49247,41 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_171" +" i_172" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_171 start_44)" -"(let-values(((or-part_308)(not @-pos_0)))" -"(if or-part_308" -" or-part_308" -"(> i_171(add1 @-pos_0))))" +"(if(> i_172 start_44)" +"(let-values(((or-part_311)(not @-pos_0)))" +"(if or-part_311" +" or-part_311" +"(> i_172(add1 @-pos_0))))" " #f)))))" "(if(char=? c_80 '#\\.)" "(let-values()" -"(if(let-values(((or-part_309)" +"(if(let-values(((or-part_312)" "(if exp-pos_0" -"(let-values(((or-part_310)" +"(let-values(((or-part_313)" "(not sign-pos_0)))" -"(if or-part_310" -" or-part_310" +"(if or-part_313" +" or-part_313" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_309" -" or-part_309" +"(if or-part_312" +" or-part_312" "(if dot-pos_1" -"(let-values(((or-part_311)(not sign-pos_0)))" -"(if or-part_311" -" or-part_311" +"(let-values(((or-part_314)(not sign-pos_0)))" +"(if or-part_314" +" or-part_314" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49098,12 +49289,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_312)(not sign-pos_0)))" -"(if or-part_312" -" or-part_312" +"(let-values(((or-part_315)(not sign-pos_0)))" +"(if or-part_315" +" or-part_315" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49111,17 +49302,17 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_171" +" i_172" " #f" " #f" " must-i?_0)))))" @@ -49138,23 +49329,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_313)" +"(if(let-values(((or-part_316)" "(if exp-pos_0" -"(let-values(((or-part_185)" +"(let-values(((or-part_186)" "(not sign-pos_0)))" -"(if or-part_185" -" or-part_185" +"(if or-part_186" +" or-part_186" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_313" -" or-part_313" +"(if or-part_316" +" or-part_316" "(if slash-pos_0" -"(let-values(((or-part_314)" +"(let-values(((or-part_317)" "(not sign-pos_0)))" -"(if or-part_314" -" or-part_314" +"(if or-part_317" +" or-part_317" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -49162,72 +49353,72 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_171" +" i_172" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_315)(char=? c_80 '#\\e)))" -"(if or-part_315" -" or-part_315" -"(let-values(((or-part_316)(char=? c_80 '#\\E)))" -"(if or-part_316" -" or-part_316" -"(let-values(((or-part_212)" -"(char=? c_80 '#\\f)))" -"(if or-part_212" -" or-part_212" -"(let-values(((or-part_317)" -"(char=? c_80 '#\\F)))" -"(if or-part_317" -" or-part_317" -"(let-values(((or-part_318)" -"(char=? c_80 '#\\d)))" +"(if(let-values(((or-part_318)(char=? c_80 '#\\e)))" "(if or-part_318" " or-part_318" -"(let-values(((or-part_319)" -"(char=? c_80 '#\\D)))" +"(let-values(((or-part_319)(char=? c_80 '#\\E)))" "(if or-part_319" " or-part_319" +"(let-values(((or-part_213)" +"(char=? c_80 '#\\f)))" +"(if or-part_213" +" or-part_213" "(let-values(((or-part_320)" +"(char=? c_80 '#\\F)))" +"(if or-part_320" +" or-part_320" +"(let-values(((or-part_321)" +"(char=? c_80 '#\\d)))" +"(if or-part_321" +" or-part_321" +"(let-values(((or-part_322)" +"(char=? c_80 '#\\D)))" +"(if or-part_322" +" or-part_322" +"(let-values(((or-part_323)" "(char=?" " c_80" " '#\\s)))" -"(if or-part_320" -" or-part_320" +"(if or-part_323" +" or-part_323" "(let-values(((or-part_160)" "(char=?" " c_80" " '#\\S)))" "(if or-part_160" " or-part_160" -"(let-values(((or-part_321)" +"(let-values(((or-part_324)" "(char=?" " c_80" " '#\\l)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)" +"(if or-part_324" +" or-part_324" +"(let-values(((or-part_325)" "(char=?" " c_80" " '#\\L)))" -"(if or-part_322" -" or-part_322" -"(let-values(((or-part_323)" +"(if or-part_325" +" or-part_325" +"(let-values(((or-part_326)" "(char=?" " c_80" " '#\\t)))" -"(if or-part_323" -" or-part_323" +"(if or-part_326" +" or-part_326" "(char=?" " c_80" " '#\\T)))))))))))))))))))))))" @@ -49239,14 +49430,14 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_80" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_171) end_34)" -"(char-sign?(string-ref s_199(add1 i_171)))" +"(if(if(<(add1 i_172) end_34)" +"(char-sign?(string-ref s_198(add1 i_172)))" " #f)" "(let-values()" "(loop_106" -"(+ i_171 2)" +"(+ i_172 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49254,12 +49445,12 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_324) exp-pos_0))" -"(if or-part_324 or-part_324 i_171))" +"(let-values(((or-part_327) exp-pos_0))" +"(if or-part_327 or-part_327 i_172))" " must-i?_0))" "(let-values()" "(loop_106" -"(+ i_171 1)" +"(+ i_172 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49267,8 +49458,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_325) exp-pos_0))" -"(if or-part_325 or-part_325 i_171))" +"(let-values(((or-part_328) exp-pos_0))" +"(if or-part_328 or-part_328 i_172))" " must-i?_0)))))" "(if(char=? c_80 '#\\@)" "(let-values()" @@ -49278,26 +49469,26 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_326) @-pos_0))" -"(if or-part_326" -" or-part_326" +"(if(let-values(((or-part_329) @-pos_0))" +"(if or-part_329" +" or-part_329" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_171 start_44)" +"(if(= i_172 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -49305,57 +49496,57 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_171" +" i_172" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_327)" +"(if(if(let-values(((or-part_330)" "(char=? c_80 '#\\i)))" -"(if or-part_327" -" or-part_327" +"(if or-part_330" +" or-part_330" "(char=? c_80 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_328) @-pos_0))" -"(if or-part_328" -" or-part_328" +"(if(let-values(((or-part_331) @-pos_0))" +"(if or-part_331" +" or-part_331" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_329)" -"(<(add1 i_171) end_34)))" -"(if or-part_329" -" or-part_329" +"(if(let-values(((or-part_332)" +"(<(add1 i_172) end_34)))" +"(if or-part_332" +" or-part_332" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`i' must be at the end in `~.a`\"" -"(substring s_199 start_44 end_34)))" +"(substring s_198 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_171)" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" -" i_171" +" i_172" " @-pos_0" " sign-pos_0" " #f" @@ -49367,7 +49558,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_199))" +" (format \"nul character in `~.a`\" s_198))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49401,7 +49592,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_221) s40_0))" +"(let-values(((s_220) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -49418,7 +49609,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_221)" +"(let-values(((s160_0) s_220)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -49439,12 +49630,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_221 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_220 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_221)" +"(let-values(((s168_0) s_220)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -49462,11 +49653,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_330)(not v1_0)))" -"(if or-part_330 or-part_330(not v2_6)))" +"(if(let-values(((or-part_333)(not v1_0)))" +"(if or-part_333 or-part_333(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_331)(extflonum? v1_0)))" -"(if or-part_331 or-part_331(extflonum? v2_6)))" +"(if(if(let-values(((or-part_334)(extflonum? v1_0)))" +"(if or-part_334 or-part_334(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49487,33 +49678,33 @@ static const char *startup_source = " p_71))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_234 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_233 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_234 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_233 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_332)(eq? exactness_3 'inexact)))" -"(if or-part_332" -" or-part_332" -"(let-values(((or-part_333)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_333 or-part_333(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_334)(not exp-pos_1)))" -"(if or-part_334" -" or-part_334" -"(let-values(((or-part_335)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_335 or-part_335(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_234 start_45 end_35) #f))" +"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" +"(if or-part_335" +" or-part_335" +"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_337)(not exp-pos_1)))" +"(if or-part_337" +" or-part_337" +"(let-values(((or-part_338)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_338 or-part_338(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_233 start_45 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_234 start_45)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_233 start_45)) #f)))" "(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 start_45)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_234 start_45 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_233 start_45 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -49525,37 +49716,37 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_234 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_233 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_336)(= exp-pos_1(sub1 end_35))))" -"(if or-part_336" -" or-part_336" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_234(sub1 end_35))) #f)))" +"(let-values(((or-part_339)(= exp-pos_1(sub1 end_35))))" +"(if or-part_339" +" or-part_339" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_233(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_234 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_233 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_234 start_45 end_35)" +"(maybe-substring s_233 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_337)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_337" -" or-part_337" -"(let-values(((or-part_338)(not exp-pos_1)))" -"(if or-part_338 or-part_338(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_340" +" or-part_340" +"(let-values(((or-part_341)(not exp-pos_1)))" +"(if or-part_341 or-part_341(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_339)(not n_30)))(if or-part_339 or-part_339(string? n_30)))" +"(if(let-values(((or-part_342)(not n_30)))(if or-part_342 or-part_342(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_234 start_45 end_35)))" +"(substring s_233 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -49564,9 +49755,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_234 start_45 end_35)))" +"(substring s_233 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_234 start_45) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_233 start_45) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -49574,7 +49765,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_234" +" s_233" " start_45" " exp-pos_1" " dot-pos_2" @@ -49585,12 +49776,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_234(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_233(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_45)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_234 exp-pos_1)))" +"(let-values(((tmp_41)(string-ref s_233 exp-pos_1)))" "(if(if(equal? tmp_41 '#\\s)" " #t" "(if(equal? tmp_41 '#\\S)" @@ -49602,12 +49793,12 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_45)" "(string->number$1" -"(replace-hashes s_234 start_45 end_35)" +"(replace-hashes s_233 start_45 end_35)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_340)(not m-v_0)))(if or-part_340 or-part_340(not e-v_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)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -49615,14 +49806,14 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_227)(eq? exactness_3 'inexact)))" -"(if or-part_227 or-part_227(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_228)(eq? exactness_3 'inexact)))" +"(if or-part_228 or-part_228(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_234 start_45) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_233 start_45) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -49632,24 +49823,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_234 start_45 end_35)" +"(substring s_233 start_45 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_341)(eq? exactness_3 'exact)))" -"(if or-part_341 or-part_341(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_344)(eq? exactness_3 'exact)))" +"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_234 start_45) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_233 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_234" +" s_233" " start_45" " slash-pos_1" " #f" @@ -49661,7 +49852,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_234" +" s_233" "(add1 slash-pos_1)" " end_35" " #f" @@ -49679,7 +49870,7 @@ static const char *startup_source = "(if or-part_112" " or-part_112" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_234 from-pos_0 end_35)" +"(hashes? s_233 from-pos_0 end_35)" " #f)))))))" "(if(let-values(((or-part_113)(not n-v_0)))(if or-part_113 or-part_113(not d-v_0)))" "(let-values() #f)" @@ -49694,14 +49885,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_234 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_233 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_234" +" s_233" " start_45" " end_35" " dot-pos_2" @@ -49710,149 +49901,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_357 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_356 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_342)(eq? exactness_4 'exact)))" -"(if or-part_342 or-part_342(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_345)(eq? exactness_4 'exact)))" +"(if or-part_345 or-part_345(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_107)" -"(lambda(i_130 j_3 hashes-pos_0)" +"(lambda(i_173 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_130 start_46)" +"(if(< i_173 start_46)" "(let-values()" "(if(= hashes-pos_0 start_46)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_357 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_356 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" "(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_357 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_356 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_357 start_46) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_356 start_46) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_357 i_130)))" +"(let-values(((c_81)(string-ref s_356 i_173)))" "(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_107" -"(sub1 i_130)" +"(sub1 i_173)" " j_3" -"(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" "(loop_107" -"(sub1 i_130)" +"(sub1 i_173)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0))))))" -"(if(let-values(((or-part_343)(char=? c_81 '#\\-)))" -"(if or-part_343 or-part_343(char=? c_81 '#\\+)))" +"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))" +"(if(let-values(((or-part_346)(char=? c_81 '#\\-)))" +"(if or-part_346 or-part_346(char=? c_81 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" "(loop_107" -"(sub1 i_130)" +"(sub1 i_173)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))" "(if(char=? c_81 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_130))" +"(if(= hashes-pos_0(add1 i_173))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_107(sub1 i_130)(sub1 j_3) i_130)))" +"(loop_107(sub1 i_173)(sub1 j_3) i_173)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_357 start_46 end_36)))" +"(substring s_356 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" -"(loop_107(sub1 i_130)(sub1 j_3) hashes-pos_0)))))))))))))" +"(loop_107(sub1 i_173)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_107)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_244 start_26 end_18 radix_9 convert-mode_7)" +"(lambda(s_243 start_26 end_18 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_244 start_26 end_18)" +"(if(hashes? s_243 start_26 end_18)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_244 start_26 end_18)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_243 start_26 end_18)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_244 start_26 end_18) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_243 start_26 end_18) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_244 start_26 end_18)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_243 start_26 end_18)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_247 start_47 end_37 convert-mode_8)" +"(lambda(s_246 start_47 end_37 convert-mode_8)" "(begin" "(if(=(- end_37 start_47) 6)" -"(if(let-values(((or-part_344)(char=?(string-ref s_247 start_47) '#\\+)))" -"(if or-part_344 or-part_344(char=?(string-ref s_247 start_47) '#\\-)))" -"(let-values(((or-part_345)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 4))) '#\\.)" -"(let-values(((or-part_346)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\0)" -"(if(char=?(string-ref s_247 start_47) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_347)(char=?(string-ref s_246 start_47) '#\\+)))" +"(if or-part_347 or-part_347(char=?(string-ref s_246 start_47) '#\\-)))" +"(let-values(((or-part_348)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 4))) '#\\.)" +"(let-values(((or-part_349)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\0)" +"(if(char=?(string-ref s_246 start_47) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_346" -" or-part_346" -"(let-values(((or-part_347)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\f)" -"(if(char=?(string-ref s_247 start_47) '#\\+) +inf.f -inf.f)" +"(if or-part_349" +" or-part_349" +"(let-values(((or-part_350)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\f)" +"(if(char=?(string-ref s_246 start_47) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_347" -" or-part_347" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\t)" +"(if or-part_350" +" or-part_350" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_247 start_47) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_246 start_47) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_345" -" or-part_345" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 4))) '#\\.)" -"(let-values(((or-part_348)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\0) +nan.0 #f)))" "(if or-part_348" " or-part_348" -"(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\f) +nan.f #f)))" -"(if or-part_349" -" or-part_349" -"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 4))) '#\\.)" +"(let-values(((or-part_351)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\0) +nan.0 #f)))" +"(if or-part_351" +" or-part_351" +"(let-values(((or-part_352)" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\f) +nan.f #f)))" +"(if or-part_352" +" or-part_352" +"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -49883,7 +50074,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_462) s57_0))" +"(let-values(((s_461) s57_0))" "(let-values(((start_48) start58_0))" "(let-values(((end_38) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -49900,13 +50091,13 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_235))" "(let-values() #f)))" "(if(if(extflonum? v_235)" -"(let-values(((or-part_350)(not reading-first?_0)))" -"(if or-part_350 or-part_350(not(eq? convert-mode_10 'must-read))))" +"(let-values(((or-part_353)(not reading-first?_0)))" +"(if or-part_353 or-part_353(not(eq? convert-mode_10 'must-read))))" " #f)" "(let-values()(fail-extflonum convert-mode_10 v_235))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_462)" +"(let-values(((s176_0) s_461)" "((start177_0) start_48)" "((end178_0) end_38)" "((radix179_0) radix_10)" @@ -49933,41 +50124,41 @@ static const char *startup_source = "(let-values()(combine_1 v_235 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_126 start_49 end_39)" +"(lambda(s_125 start_49 end_39)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_81)(string? x_81))" -"(lambda(x_82)(unsafe-string-length x_82))" -" s_126" +"(lambda(x_82)(string? x_82))" +"(lambda(x_83)(unsafe-string-length x_83))" +" s_125" " start_49" " end_39" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_268)" -"(lambda(result_114 idx_5)" +"((letrec-values(((for-loop_273)" +"(lambda(result_118 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_115)" +"(let-values(((result_119)" "(let-values()" -"(let-values(((result_116)" +"(let-values(((result_120)" "(let-values()(let-values()(char=? c_82 '#\\#)))))" -"(values result_116)))))" -"(if(if(not((lambda x_83 result_115) c_82))(not #f) #f)" -"(for-loop_268 result_115(unsafe-fx+ idx_5 1))" -" result_115)))" -" result_114)))))" -" for-loop_268)" +"(values result_120)))))" +"(if(if(not((lambda x_84 result_119) c_82))(not #f) #f)" +"(for-loop_273 result_119(unsafe-fx+ idx_5 1))" +" result_119)))" +" result_118)))))" +" for-loop_273)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_463 start_50 end_40)" +"(lambda(s_462 start_50 end_40)" "(begin" "(let-values(((new-s_9)(make-string(- end_40 start_50))))" "(begin" @@ -49975,9 +50166,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_84)(string? x_84))" -"(lambda(x_85)(unsafe-string-length x_85))" -" s_463" +"(lambda(x_85)(string? x_85))" +"(lambda(x_86)(unsafe-string-length x_86))" +" s_462" " start_50" " end_40" " 1))" @@ -49987,12 +50178,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_51)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_274)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_83)(string-ref v*_7 idx_6))((i_172) pos_114))" +"(let-values(((c_83)(string-ref v*_7 idx_6))((i_174) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50000,52 +50191,52 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_83 '#\\#)" -"(string-set! new-s_9 i_172 '#\\0)" -"(string-set! new-s_9 i_172 c_83)))" +"(string-set! new-s_9 i_174 '#\\0)" +"(string-set! new-s_9 i_174 c_83)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_269(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_269)" +" for-loop_274)" " start*_6" " start_51)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_464 start_52 end_41)" -"(begin(if(if(= 0 start_52)(= end_41(string-length s_464)) #f) s_464(substring s_464 start_52 end_41)))))" +"(lambda(s_463 start_52 end_41)" +"(begin(if(if(= 0 start_52)(= end_41(string-length s_463)) #f) s_463(substring s_463 start_52 end_41)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_351)(eq? exactness_6 'exact)))(if or-part_351 or-part_351(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_84)" -"(begin(let-values(((or-part_352)(char=? c_84 '#\\-)))(if or-part_352 or-part_352(char=? c_84 '#\\+))))))" +"(begin(let-values(((or-part_355)(char=? c_84 '#\\-)))(if or-part_355 or-part_355(char=? c_84 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_85 radix_11)" "(begin" "(let-values(((v_236)(char->integer c_85)))" -"(let-values(((or-part_272)" +"(let-values(((or-part_275)" "(if(>= v_236(char->integer '#\\0))(<(- v_236(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_272" -" or-part_272" +"(if or-part_275" +" or-part_275" "(if(> radix_11 10)" -"(let-values(((or-part_353)" +"(let-values(((or-part_356)" "(if(>= v_236(char->integer '#\\a))(<(- v_236(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_353" -" or-part_353" +"(if or-part_356" +" or-part_356" "(if(>= v_236(char->integer '#\\A))(<(- v_236(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_465 start_53 end_42)" +"(lambda(convert-mode_11 s_464 start_53 end_42)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_465 start_53 end_42)))" +" (let-values () (format \"bad number `~.a`\" (substring s_464 start_53 end_42)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50392,9 +50583,9 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_290) num_0))" -"(if or-part_290" -" or-part_290" +"(let-values(((or-part_293) num_0))" +"(if or-part_293" +" or-part_293" "(let-values(((or-part_95)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" @@ -50521,7 +50712,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_7)))" "(let-values(((fill_0) 0))" -"(let-values(((v_197)(make-fxvector len_7 fill_0)))" +"(let-values(((v_198)(make-fxvector len_7 fill_0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -50532,20 +50723,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_247)" -"(lambda(i_92 lst_78)" +"((letrec-values(((for-loop_252)" +"(lambda(i_91 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_78)" +"(if(pair? lst_79)" "(let-values(((e_72)" "(unsafe-car" -" lst_78))" +" lst_79))" "((rest_142)" "(unsafe-cdr" -" lst_78)))" +" lst_79)))" "(let-values(((i_39)" "(let-values(((i_40)" -" i_92))" +" i_91))" "(let-values(((i_41)" "(let-values()" "(begin" @@ -50555,7 +50746,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_197" +" v_198" " i_40" " elem_0)" "(not-an-fX.1" @@ -50567,22 +50758,22 @@ static const char *startup_source = "(values" " i_41)))))" "(if(if(not" -"((lambda x_86" +"((lambda x_87" "(unsafe-fx=" " i_39" " len_7))" " e_72))" "(not #f)" " #f)" -"(for-loop_247" +"(for-loop_252" " i_39" " rest_142)" " i_39)))" -" i_92)))))" -" for-loop_247)" +" i_91)))))" +" for-loop_252)" " 0" " lst_24)))))" -" v_197))))))" +" v_198))))))" "(if(equal? tmp_42 'flonum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" @@ -50600,14 +50791,14 @@ static const char *startup_source = "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_90) seq_2))" +"(let-values(((lst_91) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_185)" -"(lambda(i_173 lst_17)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_187)" +"(lambda(i_175 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" @@ -50617,10 +50808,10 @@ static const char *startup_source = "((rest_88)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_159)" -"(let-values(((i_91)" -" i_173))" -"(let-values(((i_174)" +"(let-values(((i_160)" +"(let-values(((i_90)" +" i_175))" +"(let-values(((i_176)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -50630,32 +50821,32 @@ static const char *startup_source = " elem_1)" "(unsafe-flvector-set!" " v_237" -" i_91" +" i_90" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_91)))))" +" i_90)))))" "(values" -" i_174)))))" +" i_176)))))" "(if(if(not" -"((lambda x_87" +"((lambda x_88" "(unsafe-fx=" -" i_159" +" i_160" " len_37))" " e_79))" "(not #f)" " #f)" -"(for-loop_185" -" i_159" +"(for-loop_187" +" i_160" " rest_88)" -" i_159)))" -" i_173)))))" -" for-loop_185)" +" i_160)))" +" i_175)))))" +" for-loop_187)" " 0" -" lst_90)))))" +" lst_91)))))" " v_237))))))" "(let-values()(void)))))))" "(let-values()" @@ -50664,7 +50855,7 @@ static const char *startup_source = "(let-values()(list->vector seq_2))" "(if(< expected-len_0 len_38)" "(let-values()" -"(let-values(((in22_1) in_29)" +"(let-values(((in22_2) in_29)" "((config23_1) config_39)" "((temp24_7)" " \"~avector length ~a is too small, ~a values provided\")" @@ -50686,7 +50877,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in22_1" +" in22_2" " config23_1" " temp24_7" "(list temp25_7 expected-len26_0 len27_0))))" @@ -50750,7 +50941,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_275)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" @@ -50760,10 +50951,10 @@ static const char *startup_source = "(let-values(((e_80)" "(unsafe-car" " lst_10))" -"((rest_167)" +"((rest_166)" "(unsafe-cdr" " lst_10))" -"((i_175)" +"((i_177)" " pos_116))" "(let-values((()" "(let-values()" @@ -50773,34 +50964,34 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_65" -" i_175" +" i_177" " e_80))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_270" -" rest_167" +"(for-loop_275" +" rest_166" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_270)" +" for-loop_275)" " lst_9" " start_54)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_226) seq_2)((start_55) 0))" +"(let-values(((lst_227) seq_2)((start_55) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_226)))" +"(let-values()(check-list lst_227)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_55)))" -"((letrec-values(((for-loop_96)" +"((letrec-values(((for-loop_95)" "(lambda(lst_178 pos_109)" "(begin" " 'for-loop" @@ -50811,10 +51002,10 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_178))" -"((rest_173)" +"((rest_172)" "(unsafe-cdr" " lst_178))" -"((i_176)" +"((i_178)" " pos_109))" "(let-values((()" "(let-values()" @@ -50824,51 +51015,51 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_65" -" i_176" +" i_178" " e_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_96" -" rest_173" +"(for-loop_95" +" rest_172" "(+" " pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_96)" -" lst_226" +" for-loop_95)" +" lst_227" " start_55)))" "(void)))" "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_310) seq_2)((start_56) 0))" +"(let-values(((lst_312) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_310)))" +"(let-values()(check-list lst_312)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_106)" -"(lambda(lst_278" +"((letrec-values(((for-loop_105)" +"(lambda(lst_281" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_278)" +" lst_281)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_278))" +" lst_281))" "((rest_44)" "(unsafe-cdr" -" lst_278))" +" lst_281))" "((i_35)" " pos_117))" "(let-values((()" @@ -50884,15 +51075,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_105" " rest_44" "(+" " pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_106)" -" lst_310" +" for-loop_105)" +" lst_312" " start_56)))" "(void)))" "(let-values()(void))))))" @@ -50927,7 +51118,7 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one32_0) read-one_6)" "((temp33_3) '#\\()" -"((temp34_1) '#\\()" +"((temp34_2) '#\\()" "((temp35_2) '#\\))" "((in36_1) in_32)" "((config37_0) config_42)" @@ -50940,7 +51131,7 @@ static const char *startup_source = " #t" " read-one32_0" " temp33_3" -" temp34_1" +" temp34_2" " temp35_2" " in36_1" " config37_0)))" @@ -50950,7 +51141,7 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one40_0) read-one_6)" "((temp41_3) '#\\[)" -"((temp42_2) '#\\[)" +"((temp42_3) '#\\[)" "((temp43_2) '#\\])" "((in44_0) in_32)" "((config45_0) config_42)" @@ -50963,7 +51154,7 @@ static const char *startup_source = " #t" " read-one40_0" " temp41_3" -" temp42_2" +" temp42_3" " temp43_2" " in44_0" " config45_0)))" @@ -50978,8 +51169,8 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one51_0) read-one_6)" "((temp52_3) '#\\{)" -"((temp53_3) '#\\{)" -"((temp54_3) '#\\})" +"((temp53_2) '#\\{)" +"((temp54_2) '#\\})" "((in55_0) in_32)" "((config56_0) config_42)" "((vector-mode57_0) vector-mode_1)" @@ -50991,8 +51182,8 @@ static const char *startup_source = " #t" " read-one51_0" " temp52_3" -" temp53_3" -" temp54_3" +" temp53_2" +" temp54_2" " in55_0" " config56_0)))" "(let-values()" @@ -51157,14 +51348,14 @@ static const char *startup_source = "(if st_2" "(void)" "(let-values()" -"(let-values(((in22_2) in_5)" +"(let-values(((in22_3) in_5)" "((config23_2) config_15)" "((temp24_8)" "(string-append" " \"mismatch between structure description\"" " \" and number of provided field values in `~as' form\"))" "((dispatch-c25_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in22_2 config23_2 temp24_8(list dispatch-c25_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in22_3 config23_2 temp24_8(list dispatch-c25_0)))))" "(if(read-config-for-syntax? config_15)" "(let-values()" "(if(all-fields-immutable?(car seq_4))" @@ -51280,7 +51471,7 @@ static const char *startup_source = "((c18_1) c_91)" "((temp19_1) '#\\[)" "((temp20_2) '#\\])" -"((in21_2) in_38)" +"((in21_1) in_38)" "((config22_1) config_46)" "((v23_0) v_28))" "(read-vector11.1" @@ -51292,7 +51483,7 @@ static const char *startup_source = " c18_1" " temp19_1" " temp20_2" -" in21_2" +" in21_1" " config22_1)))" "(let-values()" "(let-values(((in24_0) in_38)" @@ -51333,9 +51524,9 @@ static const char *startup_source = "(if(if(equal? tmp_34 '#\\=) #t(equal? tmp_34 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_354)(read-config-for-syntax? config_46)))" -"(if or-part_354" -" or-part_354" +"(if(let-values(((or-part_357)(read-config-for-syntax? config_46)))" +"(if or-part_357" +" or-part_357" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_0) in_38)" @@ -51361,7 +51552,7 @@ static const char *startup_source = "(if(<=(accum-string-count accum-str_3) 8)" "(void)" "(let-values()" -"(let-values(((in42_0) in_38)" +"(let-values(((in42_1) in_38)" "((config43_0) config_46)" " ((temp44_2) \"graph ID too long in `~a~a~a`\")" "((dispatch-c45_0) dispatch-c_1)" @@ -51377,7 +51568,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in42_0" +" in42_1" " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" @@ -51394,7 +51585,7 @@ static const char *startup_source = "((config51_0) config_46)" " ((temp52_4) \"multiple `~a~a~a` tags\")" "((dispatch-c53_0) dispatch-c_1)" -"((temp54_0)" +"((temp54_3)" "(let-values(((accum-str56_0)" " accum-str_3)" "((config57_0)" @@ -51415,7 +51606,7 @@ static const char *startup_source = " in50_0" " config51_0" " temp52_4" -"(list dispatch-c53_0 temp54_0 c55_0))))" +"(list dispatch-c53_0 temp54_3 c55_0))))" "(void))" "(values))))" "(let-values((()(begin(hash-set! ht_27 v_28 ph_1)(values))))" @@ -51430,7 +51621,7 @@ static const char *startup_source = "((temp61_3)" " \"expected an element for graph after `~a~a~a`, found end-of-file\")" "((dispatch-c62_0) dispatch-c_1)" -"((temp63_2)" +"((temp63_3)" "(let-values(((accum-str65_0) accum-str_3)" "((config66_0) config_46))" "(accum-string-get!6.1" @@ -51449,7 +51640,7 @@ static const char *startup_source = " in58_0" " config59_0" " temp61_3" -"(list dispatch-c62_0 temp63_2 c64_0))))" +"(list dispatch-c62_0 temp63_3 c64_0))))" "(void))" "(accum-string-abandon! accum-str_3 config_46)" "(placeholder-set! ph_1 result-v_0)" @@ -51458,9 +51649,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_355)" +"(let-values(((or-part_358)" "(read-config-state-graph(read-config-st config_46))))" -"(if or-part_355 or-part_355 '#hash()))" +"(if or-part_358 or-part_358 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_38)" @@ -51516,13 +51707,13 @@ static const char *startup_source = "(let-values(((or-part_146)(read-config-state-graph st_3)))" "(if or-part_146" " or-part_146" -"(let-values(((ht_34)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_34) ht_34))))))))" +"(let-values(((ht_157)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_157) ht_157))))))))" "(define-values" "(coerce-key)" -"(lambda(key_84 config_8)" +"(lambda(key_86 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_84)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_86)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" @@ -51633,7 +51824,7 @@ static const char *startup_source = "((c18_2) c_68)" "((temp19_2) '#\\[)" "((temp20_3) '#\\])" -"((in21_3) in_38)" +"((in21_2) in_38)" "((config22_2) config_46)" "((config23_3) config_46)" "((temp24_9) #f))" @@ -51652,7 +51843,7 @@ static const char *startup_source = " c18_2" " temp19_2" " temp20_3" -" in21_3" +" in21_2" " config22_2))" " ec_7" " mode_20)))" @@ -51689,7 +51880,7 @@ static const char *startup_source = "((c30_0) c_68)" "((temp31_6) '#\\{)" "((temp32_3) '#\\})" -"((in33_0) in_38)" +"((in33_1) in_38)" "((config34_0) config_46)" "((config35_2) config_46)" "((temp36_6) #f))" @@ -51708,7 +51899,7 @@ static const char *startup_source = " c30_0" " temp31_6" " temp32_3" -" in33_0" +" in33_1" " config34_0))" " ec_7" " mode_20)))" @@ -51846,9 +52037,9 @@ static const char *startup_source = "(if(eof-object? c_93)" "(let-values()" "(let-values(((in54_0) in_41)" -"((temp55_2)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" +"((temp55_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" "((c56_0) c_93)" -" ((temp57_1) \"expected ~a to close `~a`\")" +" ((temp57_0) \"expected ~a to close `~a`\")" "((temp58_2)(closer-name overall-closer-ec_0 config_48))" "((overall-opener-c59_0) overall-opener-c_0))" "(reader-error10.1" @@ -51859,16 +52050,16 @@ static const char *startup_source = " #f" " #f" " in54_0" -" temp55_2" -" temp57_1" +" temp55_3" +" temp57_0" "(list temp58_2 overall-opener-c59_0))))" "(if(char-closer? ec_8 config_48)" "(let-values()" "(let-values(((in60_0) in_41)" "((temp61_4)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" -" ((temp62_1) \"~a\")" -"((temp63_3)(indentation-unexpected-closer-message ec_8 c_93 config_48)))" -"(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_1(list temp63_3))))" +" ((temp62_2) \"~a\")" +"((temp63_4)(indentation-unexpected-closer-message ec_8 c_93 config_48)))" +"(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_2(list temp63_4))))" "(let-values()" "(let-values(((v_48)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" "(if(1/special-comment? v_48)" @@ -52331,7 +52522,7 @@ static const char *startup_source = " \"escape sequence `~a~a` is out of range in ~a\")" "((escaping-c33_0)" " escaping-c_0)" -"((temp34_2)" +"((temp34_3)" "(let-values(((accum-str36_0)" " accum-str_4)" "((config37_1)" @@ -52357,7 +52548,7 @@ static const char *startup_source = " temp32_4" "(list" " escaping-c33_0" -" temp34_2" +" temp34_3" " mode35_0)))))" "(set-accum-string-count!" " accum-str_4" @@ -52378,12 +52569,12 @@ static const char *startup_source = " config_22)" "((accum-str41_0)" " accum-str_4)" -"((temp42_3)" +"((temp42_4)" " 16)" "((temp43_4)" " 2))" "(read-digits13.1" -" temp42_3" +" temp42_4" " #f" " #f" " temp43_4" @@ -52456,12 +52647,12 @@ static const char *startup_source = " v_241" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_356)" +"(if(let-values(((or-part_359)" "(<" " v_241" " 55296)))" -"(if or-part_356" -" or-part_356" +"(if or-part_359" +" or-part_359" "(>" " v_241" " 57343)))" @@ -52519,13 +52710,13 @@ static const char *startup_source = " accum-str_4)" "((temp52_5)" " 16)" -"((temp53_4)" +"((temp53_3)" " 4))" "(read-digits13.1" " temp52_5" " #f" " #f" -" temp53_4" +" temp53_3" " #f" " #f" " in49_0" @@ -52572,7 +52763,7 @@ static const char *startup_source = " in_43)" "((config55_0)" " config_22)" -"((temp56_0)" +"((temp56_1)" " \"escape sequence `~au~a` is out of range in string\")" "((escaping-c57_0)" " escaping-c_0)" @@ -52597,7 +52788,7 @@ static const char *startup_source = " #f" " in54_1" " config55_0" -" temp56_0" +" temp56_1" "(list" " escaping-c57_0" " temp58_3))))" @@ -52906,24 +53097,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_231)" +"(let-values(((lst_232)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_231)))" -"((letrec-values(((for-loop_271)" -"(lambda(lst_311)" +"(let-values()(check-list lst_232)))" +"((letrec-values(((for-loop_276)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_311)" +"(if(pair? lst_313)" "(let-values(((c_99)" "(unsafe-car" -" lst_311))" -"((rest_174)" +" lst_313))" +"((rest_173)" "(unsafe-cdr" -" lst_311)))" +" lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52936,12 +53127,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_271" -" rest_174)" +"(for-loop_276" +" rest_173)" "(values))))" "(values))))))" -" for-loop_271)" -" lst_231)))" +" for-loop_276)" +" lst_232)))" "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" @@ -53068,14 +53259,14 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_357)(< v_33 55296)))" -"(if or-part_357 or-part_357(> v_33 57343)))" +"(if(if(let-values(((or-part_360)(< v_33 55296)))" +"(if or-part_360 or-part_360(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" "(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_33)))" "(let-values()" -"(let-values(((in21_4) in_4)" +"(let-values(((in21_3) in_4)" "((config22_3) config_8)" " ((temp23_4) \"bad character constant `#\\\\u~a`\")" "((temp24_10)" @@ -53089,7 +53280,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in21_4" +" in21_3" " config22_3" " temp23_4" "(list temp24_10))))))" @@ -53186,7 +53377,7 @@ static const char *startup_source = " (if (equal? tmp_53 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" -"(let-values(((in29_2) in_4)" +"(let-values(((in29_1) in_4)" "((config30_0) config_8)" "((temp31_7)" " \"bad character constant `#\\\\~a`\")" @@ -53198,7 +53389,7 @@ static const char *startup_source = " #f" " #f" " #f" -" in29_2" +" in29_1" " config30_0" " temp31_7" "(list name32_0)))))))))))))))))))))" @@ -53207,9 +53398,9 @@ static const char *startup_source = "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" -"(lambda(read-one_3 sym_28 desc_0 c_35 in_43 config_22)" +"(lambda(read-one_3 sym_27 desc_0 c_35 in_43 config_22)" "(begin" -"(let-values(((wrapped-sym_0)(wrap sym_28 in_43 config_22 c_35)))" +"(let-values(((wrapped-sym_0)(wrap sym_27 in_43 config_22 c_35)))" "(let-values(((e_84)(read-one_3 #f in_43 config_22)))" "(begin" "(if(eof-object? e_84)" @@ -53224,7 +53415,7 @@ static const char *startup_source = "(wrap(list wrapped-sym_0 e_84) in_43 config_22 #f)))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_74 in_43 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_75 in_43 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" @@ -53321,7 +53512,7 @@ static const char *startup_source = " loop_113)" " chars_0)" "(wrap" -" val_74" +" val_75" " in_43" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -53459,7 +53650,7 @@ static const char *startup_source = "(let-values(((in56_0) in_24)" "((config57_1) config_24)" "((mod-path-wrapped58_0) mod-path-wrapped_0)" -" ((temp59_2) \"expected a datum after `~a`, found end-of-file\")" +" ((temp59_3) \"expected a datum after `~a`, found end-of-file\")" "((extend-str60_0) extend-str_0))" "(reader-error10.1" " #f" @@ -53470,7 +53661,7 @@ static const char *startup_source = " #f" " in56_0" " config57_1" -" temp59_2" +" temp59_3" "(list extend-str60_0))))" "(void))" "(let-values(((temp47_2)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))" @@ -53663,10 +53854,10 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_361)" "(char-lang-nonsep? c_9)))" -"(if or-part_358" -" or-part_358" +"(if or-part_361" +" or-part_361" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" @@ -53800,17 +53991,17 @@ static const char *startup_source = "(lambda(c_105)" "(begin" "(if(<(char->integer c_105) 128)" -"(let-values(((or-part_274)(char-alphabetic? c_105)))" -"(if or-part_274" -" or-part_274" -"(let-values(((or-part_359)(char-numeric? c_105)))" -"(if or-part_359" -" or-part_359" -"(let-values(((or-part_301)(char=? '#\\- c_105)))" -"(if or-part_301" -" or-part_301" -"(let-values(((or-part_159)(char=? '#\\+ c_105)))" -"(if or-part_159 or-part_159(char=? '#\\_ c_105)))))))))" +"(let-values(((or-part_277)(char-alphabetic? c_105)))" +"(if or-part_277" +" or-part_277" +"(let-values(((or-part_362)(char-numeric? c_105)))" +"(if or-part_362" +" or-part_362" +"(let-values(((or-part_304)(char=? '#\\- c_105)))" +"(if or-part_304" +" or-part_304" +"(let-values(((or-part_363)(char=? '#\\+ c_105)))" +"(if or-part_363 or-part_363(char=? '#\\_ c_105)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -53822,11 +54013,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_104)" +"(lambda(lst_105)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((c_106)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" +"(if(pair? lst_105)" +"(let-values(((c_106)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53859,12 +54050,12 @@ static const char *startup_source = "(let-values()" "(let-values(((in118_0) in_60)" "((config119_0) config_53)" -"((temp120_2)" +"((temp120_3)" "(let-values(((accum-str122_0) accum-str_11)" "((config123_0) config_53))" "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" "((c121_0) c_26))" -"(bad-syntax-error18.1 c121_0 #t in118_0 config119_0 temp120_2))))" +"(bad-syntax-error18.1 c121_0 #t in118_0 config119_0 temp120_3))))" "(loop_12(cdr wanted_1))))))))))" " loop_12)" " wanted_0)" @@ -53882,14 +54073,14 @@ static const char *startup_source = " who39_0" " mod-path-datum40_0" " read-recur41_0" -" in42_1" +" in42_2" " config43_1)" "(begin" " 'read-extension44" "(let-values(((try-first-mod-path_0)(if try-first-mod-path36_0 try-first-mod-path32_0 #f)))" "(let-values(((mod-path-datum_0) mod-path-datum40_0))" "(let-values(((read-recur_4) read-recur41_0))" -"(let-values(((in_62) in42_1))" +"(let-values(((in_62) in42_2))" "(let-values(((config_54) config43_1))" "(let-values(((mod-path-wrapped_1)" "(if mod-path-wrapped37_0" @@ -53904,7 +54095,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_54)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_360)" +"(let-values(((or-part_364)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_54)" @@ -53912,7 +54103,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_360 or-part_360(guard_0 mod-path-datum_0)))))" +"(if or-part_364 or-part_364(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" "(let-values(((no-value_0)(gensym)))" @@ -54057,10 +54248,10 @@ static const char *startup_source = "(lambda(in_44 config_55 prefix_7 c_38)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_422)" +"(lambda(s_421)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_422) s_422)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_421) s_421)))))" "(let-values(((in11_2) in_44)" "((config12_4) config_55)" "((c13_3) c_38)" @@ -54106,10 +54297,10 @@ static const char *startup_source = " source21_0" " wrap1_0" " wrap15_0" -" in29_3)" +" in29_2)" "(begin" " 'read30" -"(let-values(((in_12) in29_3))" +"(let-values(((in_12) in29_2))" "(let-values(((wrap_7)(if wrap15_0 wrap1_0 #f)))" "(let-values(((init-c_14)(if init-c16_0 init-c2_0 #f)))" "(let-values(((next-readtable_3)(if next-readtable17_0 next-readtable3_0(1/current-readtable))))" @@ -54416,12 +54607,12 @@ static const char *startup_source = "(let-values()" "(let-values(((v_142)" "(let-values(((c79_1) c_109)" -"((in80_0) in_62)" +"((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_4)" -"(if(let-values(((or-part_322)(eq? c_109 ec_10)))" -"(if or-part_322" -" or-part_322" +"(if(let-values(((or-part_325)(eq? c_109 ec_10)))" +"(if or-part_325" +" or-part_325" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -54433,7 +54624,7 @@ static const char *startup_source = " temp82_4" " #t" " c79_1" -" in80_0" +" in80_1" " r-config81_0))))" "(retry-special-comment v_142 in_62 config_54)))" "(let-values()(read-dispatch c_109 in_62 r-config_0 config_54)))" @@ -54554,10 +54745,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_365)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_361" -" or-part_361" +"(if or-part_365" +" or-part_365" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(wrap" @@ -54605,10 +54796,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_366)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_362" -" or-part_362" +"(if or-part_366" +" or-part_366" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(let-values(((in113_0) in_62)" @@ -54633,7 +54824,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in117_0) in_62)" "((r-config118_0) r-config_0)" -" ((temp119_0) \"illegal use of `~a`\")" +" ((temp119_1) \"illegal use of `~a`\")" "((c120_0) c_109))" "(reader-error10.1" " #f" @@ -54644,24 +54835,24 @@ static const char *startup_source = " #f" " in117_0" " r-config118_0" -" temp119_0" +" temp119_1" "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_363)" +"(if(let-values(((or-part_367)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_363" -" or-part_363" +"(if or-part_367" +" or-part_367" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(wrap" "(let-values(((read-one121_0) read-one)" "((ec122_0) ec_10)" "((temp123_3) '#\\{)" -"((temp124_4) '#\\})" +"((temp124_5) '#\\})" "((in125_0) in_62)" "((r-config126_0) r-config_0)" -"((temp127_4) #t))" +"((temp127_3) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -54669,14 +54860,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp127_4" +" temp127_3" " #t" " #f" " #f" " read-one121_0" " ec122_0" " temp123_3" -" temp124_4" +" temp124_5" " in125_0" " r-config126_0))" " in_62" @@ -54685,7 +54876,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in128_0) in_62)" "((r-config129_0) r-config_0)" -" ((temp130_3) \"illegal use of `~a`\")" +" ((temp130_4) \"illegal use of `~a`\")" "((c131_0) c_109))" "(reader-error10.1" " #f" @@ -54696,14 +54887,14 @@ static const char *startup_source = " #f" " in128_0" " r-config129_0" -" temp130_3" +" temp130_4" "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_368)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_364" -" or-part_364" +"(if or-part_368" +" or-part_368" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -54728,7 +54919,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in136_0) in_62)" "((r-config137_0) r-config_0)" -" ((temp138_3) \"illegal use of `~a`\")" +" ((temp138_2) \"illegal use of `~a`\")" "((c139_0) c_109))" "(reader-error10.1" " #f" @@ -54739,7 +54930,7 @@ static const char *startup_source = " #f" " in136_0" " r-config137_0" -" temp138_3" +" temp138_2" "(list c139_0))))))" "(if(unsafe-fx< index_4 12)" "(let-values()" @@ -54749,11 +54940,11 @@ static const char *startup_source = "(let-values(((c142_0) c_109)" "((in143_0) in_62)" "((r-config144_0) r-config_0)" -"((temp145_0) 'symbol))" +"((temp145_1) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" -" temp145_0" +" temp145_1" " #t" " c142_0" " in143_0" @@ -54920,8 +55111,8 @@ static const char *startup_source = "(let-values()(read-vector-or-graph read-one dispatch-c_5 c_111 in_67 config_5))" "(let-values()" "(let-values(((read-one161_0) read-one)" -"((temp162_2) '#\\()" -"((temp163_1) '#\\()" +"((temp162_3) '#\\()" +"((temp163_2) '#\\()" "((temp164_0) '#\\))" "((in165_0) in_67)" "((config166_0) config_5))" @@ -54931,8 +55122,8 @@ static const char *startup_source = " #f" " #f" " read-one161_0" -" temp162_2" -" temp163_1" +" temp162_3" +" temp163_2" " temp164_0" " in165_0" " config166_0)))))" @@ -55114,8 +55305,8 @@ static const char *startup_source = "(if(eq? c_115 'special)(special1.1 'special) c_115)))))" "(if(char-delimiter? c2_13 config_5)" "(let-values()(wrap #f in_67 config_5 c_111))" -"(if(let-values(((or-part_345)(char=? c2_13 '#\\x)))" -"(if or-part_345 or-part_345(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_348)(char=? c2_13 '#\\x)))" +"(if or-part_348 or-part_348(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -55139,8 +55330,8 @@ static const char *startup_source = "(let-values(((temp202_0) #f)" "((in203_0) in_67)" "((config204_0) config_5)" -" ((temp205_0) \"#e\"))" -"(read-symbol-or-number8.1 #f #f temp205_0 #t temp202_0 in203_0 config204_0)))" +" ((temp205_1) \"#e\"))" +"(read-symbol-or-number8.1 #f #f temp205_1 #t temp202_0 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" "(let-values(((temp206_0) #f)" @@ -55167,28 +55358,28 @@ static const char *startup_source = "(let-values(((temp218_0) #f)" "((in219_0) in_67)" "((config220_0) config_5)" -" ((temp221_1) \"#d\"))" -"(read-symbol-or-number8.1 #f #f temp221_1 #t temp218_0 in219_0 config220_0)))" +" ((temp221_0) \"#d\"))" +"(read-symbol-or-number8.1 #f #f temp221_0 #t temp218_0 in219_0 config220_0)))" "(let-values()" -"(let-values(((temp222_0) #f)" +"(let-values(((temp222_1) #f)" "((in223_0) in_67)" "((config224_0) config_5)" -" ((temp225_1) \"#B\"))" -"(read-symbol-or-number8.1 #f #f temp225_1 #t temp222_0 in223_0 config224_0))))" +" ((temp225_0) \"#B\"))" +"(read-symbol-or-number8.1 #f #f temp225_0 #t temp222_1 in223_0 config224_0))))" "(if(unsafe-fx< index_5 24)" "(let-values()" -"(let-values(((temp226_1) #f)" +"(let-values(((temp226_0) #f)" "((in227_0) in_67)" "((config228_0) config_5)" -" ((temp229_1) \"#o\"))" -"(read-symbol-or-number8.1 #f #f temp229_1 #t temp226_1 in227_0 config228_0)))" +" ((temp229_0) \"#o\"))" +"(read-symbol-or-number8.1 #f #f temp229_0 #t temp226_0 in227_0 config228_0)))" "(if(unsafe-fx< index_5 25)" "(let-values()" -"(let-values(((temp230_0) #f)" +"(let-values(((temp230_1) #f)" "((in231_0) in_67)" "((config232_0) config_5)" " ((temp233_1) \"#O\"))" -"(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_0 in231_0 config232_0)))" +"(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_1 in231_0 config232_0)))" "(let-values()" "(let-values(((temp234_0) #f)" "((in235_0) in_67)" @@ -55208,8 +55399,8 @@ static const char *startup_source = "(let-values(((temp238_0) #f)" "((in239_0) in_67)" "((config240_0) config_5)" -" ((temp241_1) \"#b\"))" -"(read-symbol-or-number8.1 #f #f temp241_1 #t temp238_0 in239_0 config240_0)))" +" ((temp241_0) \"#b\"))" +"(read-symbol-or-number8.1 #f #f temp241_0 #t temp238_0 in239_0 config240_0)))" "(if(unsafe-fx< index_5 28)" "(let-values()" "(let-values(((temp242_0) #f)" @@ -55404,11 +55595,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_111)(1/current-namespace)))" +"(let-values(((ns_112)(1/current-namespace)))" "(let-values(((name_68)" "(let-values(((mod35_0) mod_4)((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod35_0))))" -"(if(namespace->module ns_111 name_68) #t #f)))))))))))" +"(if(namespace->module ns_112 name_68) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -55423,11 +55614,11 @@ static const char *startup_source = "(void)" "(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))" "(values))))" -"(let-values(((ns_86)(1/current-namespace)))" +"(let-values(((ns_87)(1/current-namespace)))" "(let-values(((name_1)" -"(let-values(((mod37_0) mod_7)((temp38_2) #f))" -"(reference->resolved-module-path32.1 temp38_2 mod37_0))))" -"(let-values(((m_24)(namespace->module ns_86 name_1)))(if m_24(module-is-predefined? m_24) #f))))))))" +"(let-values(((mod37_0) mod_7)((temp38_3) #f))" +"(reference->resolved-module-path32.1 temp38_3 mod37_0))))" +"(let-values(((m_24)(namespace->module ns_87 name_1)))(if m_24(module-is-predefined? m_24) #f))))))))" "(define-values" "(module->)" "(let-values(((module->11_0)" @@ -55499,7 +55690,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_92 #f)))" -"(let-values(((or-part_290)(not b/p_3)))(if or-part_290 or-part_290(provided-as-protected? b/p_3)))))" +"(let-values(((or-part_293)(not b/p_3)))(if or-part_293 or-part_293(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -55509,7 +55700,7 @@ static const char *startup_source = "(begin" " 'module->namespace21" "(let-values(((mod_18) mod20_0))" -"(let-values(((ns_47)(if ns19_1 ns18_2(1/current-namespace))))" +"(let-values(((ns_48)(if ns19_1 ns18_2(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -55520,19 +55711,19 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_47)" +"(if(1/namespace? ns_48)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_47)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_48)))" "(values))))" "(let-values(((name_69)" "(let-values(((mod44_0) mod_18)((temp45_1) #t))" "(reference->resolved-module-path32.1 temp45_1 mod44_0))))" -"(let-values(((phase_128)(namespace-phase ns_47)))" +"(let-values(((phase_128)(namespace-phase ns_48)))" "(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_47)" +"(let-values(((ns46_0) ns_48)" "((name47_0) name_69)" -"((phase48_1) phase_128))" +"((phase48_2) phase_128))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55542,13 +55733,13 @@ static const char *startup_source = " #f" " ns46_0" " name47_0" -" phase48_1))))" +" phase48_2))))" "(begin" "(if m-ns_17" "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_47 name_69)" +"(namespace->module/complain 'module->namespace ns_48 name_69)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" @@ -55569,10 +55760,10 @@ static const char *startup_source = " m-ns_17" "(let-values(((temp49_2)(namespace-mpi m-ns_17)))" "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp49_2)))))" -"(let-values(((ns41_3) ns_47)" -"((temp42_4)(namespace-mpi m-ns_17))" +"(let-values(((ns41_3) ns_48)" +"((temp42_5)(namespace-mpi m-ns_17))" "((phase43_3) phase_128))" -"(namespace-module-make-available!112.1 #f #f ns41_3 temp42_4 phase43_3))" +"(namespace-module-make-available!112.1 #f #f ns41_3 temp42_5 phase43_3))" " m-ns_17)))))))))))))" "(case-lambda" "((mod_19)(begin 'module->namespace(module->namespace21_0 mod_19 #f #f)))" @@ -55585,7 +55776,7 @@ static const char *startup_source = " 'namespace-unprotect-module27" "(let-values(((insp_18) insp25_0))" "(let-values(((mod_21) mod26_0))" -"(let-values(((ns_112)(if ns24_1 ns23_0(1/current-namespace))))" +"(let-values(((ns_113)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -55609,22 +55800,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_112)" +"(if(1/namespace? ns_113)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_112)))" +" ns_113)))" "(values))))" "(let-values(((name_70)" "(let-values(((mod50_0) mod_21)((temp51_3) #f))" "(reference->resolved-module-path32.1 temp51_3 mod50_0))))" -"(let-values(((phase_138)(namespace-phase ns_112)))" +"(let-values(((phase_137)(namespace-phase ns_113)))" "(let-values(((m-ns_18)" -"(let-values(((ns52_0) ns_112)" +"(let-values(((ns52_0) ns_113)" "((name53_0) name_70)" -"((phase54_2) phase_138))" +"((phase54_2) phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55655,19 +55846,19 @@ static const char *startup_source = "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_31 ns_113 name_71)" +"(lambda(who_31 ns_114 name_71)" "(begin" -"(let-values(((or-part_365)(namespace->module ns_113 name_71)))" -"(if or-part_365" -" or-part_365" +"(let-values(((or-part_369)(namespace->module ns_114 name_71)))" +"(if or-part_369" +" or-part_369" " (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_366)(1/module-path? mod_24)))" -"(if or-part_366" -" or-part_366" +"(let-values(((or-part_370)(1/module-path? mod_24)))" +"(if or-part_370" +" or-part_370" "(let-values(((or-part_134)(1/module-path-index? mod_24)))" "(if or-part_134 or-part_134(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" @@ -55718,7 +55909,7 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-flush-stdout in_11)" -"(let-values(((in33_1) in_11)((temp34_3) #f))(read*14.1 temp34_3 #f #f #f #f #f #f #f #f #f #f in33_1))))" +"(let-values(((in33_2) in_11)((temp34_4) #f))(read*14.1 temp34_4 #f #f #f #f #f #f #f #f #f #f in33_2))))" "(let-values()(values((port-read-handler in_11) in_11)))))))" "(define-values" "(read/recursive$1)" @@ -55807,7 +55998,7 @@ static const char *startup_source = " 'read-language" "(let-values(((in54_2) in_80)" "((fail-thunk55_0) fail-thunk_0)" -"((temp56_1) #t)" +"((temp56_2) #t)" "((read-to-syntax57_0) read-to-syntax)" "((read-compiled-linklet58_0) 1/read-compiled-linklet)" "((dynamic-require-reader59_0) dynamic-require-reader)" @@ -55821,7 +56012,7 @@ static const char *startup_source = " #t" " dynamic-require-reader59_0" " #t" -" temp56_1" +" temp56_2" " #t" " read-module-declared?60_0" " #t" @@ -55835,8 +56026,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_89) empty-syntax))" -"(if(syntax?$1 the-struct_89)" +"(let-values(((the-struct_88) empty-syntax))" +"(if(syntax?$1 the-struct_88)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -55848,14 +56039,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_89)" -"(syntax-shifted-multi-scopes the-struct_89)" -"(syntax-scope-propagations+tamper the-struct_89)" -"(syntax-mpi-shifts the-struct_89)" +"(syntax-scopes the-struct_88)" +"(syntax-shifted-multi-scopes the-struct_88)" +"(syntax-scope-propagations+tamper the-struct_88)" +"(syntax-mpi-shifts the-struct_88)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_89)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))" +"(syntax-inspector the-struct_88)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -55960,8 +56151,8 @@ static const char *startup_source = "(if(input-port? in_83)" "(void)" " (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_367)(char? start_59)))" -"(if or-part_367 or-part_367(not start_59)))" +"(if(let-values(((or-part_371)(char? start_59)))" +"(if or-part_371 or-part_371(not start_59)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" @@ -56028,10 +56219,10 @@ static const char *startup_source = "(define-values" "(1/read-language)" "(let-values(((read-language37_0)" -"(lambda(in33_2 fail-thunk34_0 in35_1 fail-thunk36_0)" +"(lambda(in33_3 fail-thunk34_0 in35_1 fail-thunk36_0)" "(begin" " 'read-language37" -"(let-values(((in_7)(if in35_1 in33_2(current-input-port))))" +"(let-values(((in_7)(if in35_1 in33_3(current-input-port))))" "(let-values(((fail-thunk_2)(if fail-thunk36_0 fail-thunk34_0 read-language-fail-thunk)))" "(let-values()" "(begin" @@ -56048,19 +56239,19 @@ static const char *startup_source = "(case-lambda" "(()(begin 'read-language(read-language37_0 #f #f #f #f)))" "((in_89 fail-thunk34_1)(read-language37_0 in_89 fail-thunk34_1 #t #t))" -"((in33_3)(read-language37_0 in33_3 #f #t #f)))))" +"((in33_4)(read-language37_0 in33_4 #f #t #f)))))" " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" "(eval$1)" "(case-lambda" "((s_0)(begin 'eval((1/current-eval)(intro s_0))))" -"((s_154 ns_58)" +"((s_153 ns_59)" "(begin" -" (if (1/namespace? ns_58) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_58)))" +" (if (1/namespace? ns_59) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_59)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)" -"(let-values()((1/current-eval)(intro s_154 ns_58))))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_59)" +"(let-values()((1/current-eval)(intro s_153 ns_59))))))))" "(define-values" "(1/eval-syntax)" "(case-lambda" @@ -56070,14 +56261,14 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_166 ns_114)" +"((s_165 ns_115)" "(begin" -" (if (syntax?$1 s_166) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_166)))" -" (if (1/namespace? ns_114) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_114)))" +" (if (syntax?$1 s_165) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_165)))" +" (if (1/namespace? ns_115) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_115)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_114)" -"(let-values()((1/current-eval) s_166)))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_115)" +"(let-values()((1/current-eval) s_165)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" "(1/compile-syntax)" @@ -56087,16 +56278,16 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_3) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_3)))" "((1/current-compile) s_3 #f)))))" -"(define-values(1/expand)(lambda(s_167)(begin 'expand(expand$1(intro s_167)(1/current-namespace) #t))))" +"(define-values(1/expand)(lambda(s_166)(begin 'expand(expand$1(intro s_166)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_143)" +"(lambda(s_142)" "(begin" " 'expand-syntax" "(begin" -" (if (syntax?$1 s_143) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_143)))" -"(expand$1 s_143(1/current-namespace) #t)))))" -"(define-values(1/expand-once)(lambda(s_68)(begin 'expand-once(expand-once$1(intro s_68)))))" +" (if (syntax?$1 s_142) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_142)))" +"(expand$1 s_142(1/current-namespace) #t)))))" +"(define-values(1/expand-once)(lambda(s_67)(begin 'expand-once(expand-once$1(intro s_67)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_9)" @@ -56107,15 +56298,15 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_466)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_466)))))" +"(lambda(s_465)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_465)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_417)" +"(lambda(s_416)" "(begin" " 'expand-syntax-to-top-form" "(begin" -" (if (syntax?$1 s_417) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_417)))" -"(expand-to-top-form$1 s_417)))))" +" (if (syntax?$1 s_416) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_416)))" +"(expand-to-top-form$1 s_416)))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -56123,10 +56314,10 @@ static const char *startup_source = "(begin" " 'intro4" "(let-values(((given-s_1) given-s3_0))" -"(let-values(((ns_51)(if ns2_1 ns1_6(1/current-namespace))))" +"(let-values(((ns_52)(if ns2_1 ns1_6(1/current-namespace))))" "(let-values()" "(let-values(((s_10)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_10 ns_51)))))))))" +"(1/namespace-syntax-introduce s_10 ns_52)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" "(define-values" "(declare-primitive-module!)" @@ -56142,24 +56333,24 @@ static const char *startup_source = "((temp8_5)" "(hasheqv" " 0" -"(let-values(((lst_76)(1/instance-variable-names inst_7)))" +"(let-values(((lst_77)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_92)" -"(lambda(table_201 lst_77)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_91)" +"(lambda(table_204 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((sym_61)(unsafe-car lst_77))" -"((rest_35)(unsafe-cdr lst_77)))" -"(let-values(((table_207)" -"(let-values(((table_167) table_201))" -"(let-values(((table_168)" +"(if(pair? lst_78)" +"(let-values(((sym_60)(unsafe-car lst_78))" +"((rest_35)(unsafe-cdr lst_78)))" +"(let-values(((table_210)" +"(let-values(((table_168) table_204))" +"(let-values(((table_169)" "(let-values()" "(let-values(((key_31" -" val_75)" +" val_76)" "(let-values()" "(let-values(((binding_28)" "(let-values(((mpi10_0)" @@ -56167,7 +56358,7 @@ static const char *startup_source = "((temp11_7)" " 0)" "((sym12_0)" -" sym_61))" +" sym_60))" "(make-module-binding22.1" " #f" " #f" @@ -56191,10 +56382,10 @@ static const char *startup_source = " temp11_7" " sym12_0))))" "(values" -" sym_61" +" sym_60" "(if(hash-ref" " protected_0" -" sym_61" +" sym_60" " #f)" "(provided1.1" " binding_28" @@ -56202,20 +56393,20 @@ static const char *startup_source = " #f)" " binding_28))))))" "(hash-set" -" table_167" +" table_168" " key_31" -" val_75)))))" -"(values table_168)))))" +" val_76)))))" +"(values table_169)))))" "(if(not #f)" -"(for-loop_92 table_207 rest_35)" -" table_207)))" -" table_201)))))" -" for-loop_92)" +"(for-loop_91 table_210 rest_35)" +" table_210)))" +" table_204)))))" +" for-loop_91)" " '#hash()" -" lst_76)))))" +" lst_77)))))" "((temp9_6)" "(lambda(data-box_5" -" ns_45" +" ns_46" " phase-shift_20" " phase-level_22" " self_28" @@ -56230,31 +56421,31 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_267)" +"(lambda(lst_270)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((sym_96)(unsafe-car lst_267))" -"((rest_175)(unsafe-cdr lst_267)))" +"(if(pair? lst_270)" +"(let-values(((sym_96)(unsafe-car lst_270))" +"((rest_174)(unsafe-cdr lst_270)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_76)" +"(let-values(((val_77)" "(1/instance-variable-value" " inst_7" " sym_96)))" "(namespace-set-variable!" -" ns_45" +" ns_46" " 0" " sym_96" -" val_76)))" +" val_77)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_175)" +"(for-loop_20 rest_174)" "(values))))" "(values))))))" " for-loop_20)" @@ -56312,7 +56503,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:_77 make-_77 ?_77 -ref_77 -set!_77)" +"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)" "(let-values()" "(let-values()" "(make-struct-type" @@ -56328,13 +56519,13 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'path))))" +"(values struct:_78 make-_78 ?_78(make-struct-field-accessor -ref_78 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:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -56349,7 +56540,7 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'path))))" +"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" @@ -56429,7 +56620,7 @@ static const char *startup_source = "(let-values(((stop-ids_2) stop-ids5_0))" "(let-values(((intdefs_3)(if intdefs2_0 intdefs1_0 #f)))" "(let-values()" -"(let-values(((temp59_3) 'local-expand)" +"(let-values(((temp59_4) 'local-expand)" "((s60_0) s_2)" "((context61_0) context_10)" "((stop-ids62_0) stop-ids_2)" @@ -56447,29 +56638,29 @@ static const char *startup_source = " #f" " #f" " #f" -" temp59_3" +" temp59_4" " s60_0" " context61_0" " stop-ids62_0" " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_168 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_168 context_1 stop-ids_3 #f #f)))" -"((s_145 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_145 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_167 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_167 context_1 stop-ids_3 #f #f)))" +"((s_144 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_144 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_422) s12_2))" +"(let-values(((s_421) s12_2))" "(let-values(((context_12) context13_0))" "(let-values(((stop-ids_5) stop-ids14_0))" "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" -"(let-values(((temp64_2) 'local-expand)" -"((s65_0) s_422)" +"(let-values(((temp64_3) 'local-expand)" +"((s65_0) s_421)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -56488,32 +56679,32 @@ static const char *startup_source = " #f" " #f" " #f" -" temp64_2" +" temp64_3" " s65_0" " context66_0" " stop-ids67_0" " intdefs68_0" " #t))))))))))))" "(case-lambda" -"((s_73 context_13 stop-ids_6)" -"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_73 context_13 stop-ids_6 #f #f #f #f)))" -"((s_173 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_173 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_182 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_182 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_72 context_13 stop-ids_6)" +"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_72 context_13 stop-ids_6 #f #f #f #f)))" +"((s_172 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_172 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_181 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_181 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_305) s19_1))" +"(let-values(((s_304) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_305)" +"((s72_0) s_304)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -56538,10 +56729,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_467 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_467 context_17 stop-ids_10 #f #f)))" -"((s_409 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_409 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_466 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_466 context_17 stop-ids_10 #f #f)))" +"((s_408 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_408 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -56582,26 +56773,26 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_468 context_20 stop-ids_13)" +"((s_467 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_468 context_20 stop-ids_13 #f #f #f #f)))" -"((s_405 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_405 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_469 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_469 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_467 context_20 stop-ids_13 #f #f #f #f)))" +"((s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_468 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_468 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression36_0)" "(lambda(s35_0 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_470) s35_0))" +"(let-values(((s_469) s35_0))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_470)" +"((s86_1) s_469)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -56693,12 +56884,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_388)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_387)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_208)(list? context_23)))" -"(if or-part_208" -" or-part_208" +"(if(let-values(((or-part_209)(list? context_23)))" +"(if or-part_209" +" or-part_209" "(memq" " context_23" "(if as-transformer?_5" @@ -56715,9 +56906,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_368)(not stop-ids_16)))" -"(if or-part_368" -" or-part_368" +"(if(let-values(((or-part_372)(not stop-ids_16)))" +"(if or-part_372" +" or-part_372" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -56730,9 +56921,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_369)(not intdefs_9)))" -"(if or-part_369" -" or-part_369" +"(if(let-values(((or-part_373)(not intdefs_9)))" +"(if or-part_373" +" or-part_373" "(let-values(((or-part_57)" "(1/internal-definition-context? intdefs_9)))" "(if or-part_57" @@ -56750,14 +56941,14 @@ static const char *startup_source = "(let-values(((ctx_74)" "(let-values(((who93_0) who_32))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_139)" +"(let-values(((phase_138)" "(if as-transformer?_5" "(add1(expand-context-phase ctx_74))" "(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" "(let-values(((ctx94_0) ctx_74)" "((context95_0) context_23)" -"((phase96_0) phase_139)" +"((phase96_0) phase_138)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -56779,7 +56970,7 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_74)" -" phase_139)" +" phase_138)" "(values))))" "(let-values((()" "(begin" @@ -56791,12 +56982,12 @@ static const char *startup_source = "(call-expand-observe" " obs_61" " 'enter-local" -" s_388)))" +" s_387)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_388 ctx_74))" +"(flip-introduction-scopes s_387 ctx_74))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -56885,7 +57076,7 @@ static const char *startup_source = "((temp115_2)" "(eq? 'top-level context_23))" "((lift-key116_0) lift-key_6)" -"((temp117_4) #t))" +"((temp117_3) #t))" "(expand-transformer47.1" " #f" " #f" @@ -56895,7 +57086,7 @@ static const char *startup_source = " #t" " temp114_3" " #t" -" temp117_4" +" temp117_3" " #t" " lift-key116_0" " #t" @@ -56906,14 +57097,14 @@ static const char *startup_source = "(let-values(((input-s118_0) input-s_1)" "((local-ctx119_0)" " local-ctx_0)" -"((temp120_3) #t)" +"((temp120_4) #t)" "((lift-key121_0)" " lift-key_6)" "((temp122_3) #t))" "(expand/capture-lifts30.1" " temp122_3" " #t" -" temp120_3" +" temp120_4" " #t" " #f" " #f" @@ -57008,32 +57199,32 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_466)(syntax-arm$1 s_466 insp_21))" +"(lambda(s_465)(syntax-arm$1 s_465 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" "(case-lambda" -"((s_417)(begin 'syntax-arm(syntax-arm6_0 s_417 #f #f #f #f)))" -"((s_471 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_471 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_472 maybe-insp1_1)(syntax-arm6_0 s_472 maybe-insp1_1 #f #t #f)))))" +"((s_416)(begin 'syntax-arm(syntax-arm6_0 s_416 #f #f #f #f)))" +"((s_470 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_470 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_471 maybe-insp1_1)(syntax-arm6_0 s_471 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_424 maybe-insp_2)" +"(lambda(s_423 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values((()" "(begin" -"(if(syntax?$1 s_424)" +"(if(syntax?$1 s_423)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_424)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_423)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_295)(not maybe-insp_2)))" -"(if or-part_295 or-part_295(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_298)(not maybe-insp_2)))" +"(if or-part_298 or-part_298(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_424 insp_22)))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_423 insp_22)))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -57055,20 +57246,20 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_40" -"(lambda(s_423)(syntax-rearm$1 s_423 from-s_2))" +"(lambda(s_422)(syntax-rearm$1 s_422 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" -"((s_179 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_179 from-s_3 #f #f)))" -"((s_171 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_171 from-s_4 use-mode?8_1 #t)))))" +"((s_178 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_178 from-s_3 #f #f)))" +"((s_170 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_170 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_159)" +"(lambda(s_158)" "(begin" " 'syntax-taint" "(begin" -" (if (syntax?$1 s_159) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_159)))" -"(syntax-taint$1 s_159)))))" +" (if (syntax?$1 s_158) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_158)))" +"(syntax-taint$1 s_158)))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" @@ -57147,7 +57338,7 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_115)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_115))))))" +"(let-values(((ns_116)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_116))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" @@ -57186,9 +57377,9 @@ static const char *startup_source = " \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_218)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_218" -" or-part_218" +"(let-values(((or-part_219)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_219" +" or-part_219" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))" @@ -57472,16 +57663,16 @@ static const char *startup_source = "(lambda(eval1_0 main-ids2_0 read-ids3_0 ns7_1)" "(begin" " 'declare-kernel-module!8" -"(let-values(((ns_116) ns7_1))" +"(let-values(((ns_117) ns7_1))" "(let-values()" "(let-values(((main-ids_0) main-ids2_0))" "(let-values(((read-ids_0) read-ids3_0))" "(let-values()" "(begin" -"(let-values(((temp53_5) '#%kernel)" +"(let-values(((temp53_4) '#%kernel)" "((temp54_5) '#%runtime)" -"((temp55_3)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" -"((temp56_2)" +"((temp55_4)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" +"((temp56_3)" "(hasheq" " 'variable-reference?" " 1/variable-reference?" @@ -57489,10 +57680,10 @@ static const char *startup_source = " 1/variable-reference-constant?" " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" -"((ns57_0) ns_116))" -"(copy-runtime-module!26.1 #f #f temp56_2 #t ns57_0 #f #f #f #f temp55_3 #t temp54_5 #t temp53_5))" -"(let-values(((temp58_4) '#%kernel)((temp59_4) '(#%core #%runtime #%main #%read))((ns60_0) ns_116))" -"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_4 temp59_4)))))))))))" +"((ns57_0) ns_117))" +"(copy-runtime-module!26.1 #f #f temp56_3 #t ns57_0 #f #f #f #f temp55_4 #t temp54_5 #t temp53_4))" +"(let-values(((temp58_4) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_117))" +"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_4 temp59_5)))))))))))" "(define-values" "(copy-runtime-module!26.1)" "(lambda(alts14_0" @@ -57513,7 +57704,7 @@ static const char *startup_source = " 'copy-runtime-module!26" "(let-values(((name_65) name25_0))" "(let-values(((to-name_0)(if to18_0 to11_0 name_65)))" -"(let-values(((ns_117) namespace12_0))" +"(let-values(((ns_118) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" "(let-values(((extras_0)(if extras22_0 extras15_0 '#hasheq())))" @@ -57523,18 +57714,18 @@ static const char *startup_source = "(let-values(((prims_0)(1/primitive-table name_65)))" "(let-values((()" "(begin" -"(let-values(((ht_154) prims_0))" +"(let-values(((ht_158) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_154)))" -"((letrec-values(((for-loop_52)" +"(let-values()(check-in-hash-keys ht_158)))" +"((letrec-values(((for-loop_51)" "(lambda(i_26)" "(begin" " 'for-loop" "(if i_26" "(let-values(((sym_88)" -"(hash-iterate-key ht_154 i_26)))" +"(hash-iterate-key ht_158 i_26)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57546,42 +57737,42 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_52" -"(hash-iterate-next ht_154 i_26))" +"(for-loop_51" +"(hash-iterate-next ht_158 i_26))" "(values))))" "(values))))))" -" for-loop_52)" -"(hash-iterate-first ht_154))))" +" for-loop_51)" +"(hash-iterate-first ht_158))))" "(values))))" "(let-values()" -"(let-values(((ht_155)" -"(let-values(((ht_156) prims_0))" +"(let-values(((ht_159)" +"(let-values(((ht_160) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_156)))" -"((letrec-values(((for-loop_261)" -"(lambda(table_11 i_176)" +"(let-values()(check-in-hash ht_160)))" +"((letrec-values(((for-loop_266)" +"(lambda(table_11 i_178)" "(begin" " 'for-loop" -"(if i_176" +"(if i_178" "(let-values(((sym_97 val_6)" "(hash-iterate-key+value" -" ht_156" -" i_176)))" -"(let-values(((table_208)" -"(let-values(((table_209)" +" ht_160" +" i_178)))" +"(let-values(((table_211)" +"(let-values(((table_212)" " table_11))" "(if(set-member?" " skip-syms_0" " sym_97)" -" table_209" -"(let-values(((table_210)" -" table_209))" -"(let-values(((table_211)" +" table_212" +"(let-values(((table_213)" +" table_212))" +"(let-values(((table_214)" "(let-values()" -"(let-values(((key_85" -" val_77)" +"(let-values(((key_87" +" val_78)" "(let-values()" "(values" " sym_97" @@ -57594,56 +57785,56 @@ static const char *startup_source = " or-part_24" " val_6))))))" "(hash-set" -" table_210" -" key_85" -" val_77)))))" -"(values table_211)))))))" +" table_213" +" key_87" +" val_78)))))" +"(values table_214)))))))" "(if(not #f)" -"(for-loop_261" -" table_208" -"(hash-iterate-next ht_156 i_176))" -" table_208)))" +"(for-loop_266" +" table_211" +"(hash-iterate-next ht_160 i_178))" +" table_211)))" " table_11)))))" -" for-loop_261)" +" for-loop_266)" " '#hasheq()" -"(hash-iterate-first ht_156))))))" +"(hash-iterate-first ht_160))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_157) extras_0))" +"(let-values(((ht_161) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_272)" -"(lambda(ht_158 i_177)" +"(let-values()(check-in-hash ht_161)))" +"((letrec-values(((for-loop_277)" +"(lambda(ht_162 i_179)" "(begin" " 'for-loop" -"(if i_177" +"(if i_179" "(let-values(((k_42 v_50)" "(hash-iterate-key+value" -" ht_157" -" i_177)))" -"(let-values(((ht_159)" -"(let-values(((ht_160)" -" ht_158))" +" ht_161" +" i_179)))" +"(let-values(((ht_163)" +"(let-values(((ht_164)" +" ht_162))" "(let-values(((ht_47)" "(let-values()" "(hash-set" -" ht_160" +" ht_164" " k_42" " v_50))))" "(values ht_47)))))" "(if(not #f)" -"(for-loop_272" +"(for-loop_277" +" ht_163" +"(hash-iterate-next ht_161 i_179))" +" ht_163)))" +" ht_162)))))" +" for-loop_277)" " ht_159" -"(hash-iterate-next ht_157 i_177))" -" ht_159)))" -" ht_158)))))" -" for-loop_272)" -" ht_155" -"(hash-iterate-first ht_157))))))" +"(hash-iterate-first ht_161))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" -"((ns63_0) ns_117)" +"((ns63_0) ns_118)" "((primitive?64_0) primitive?_9)" "((protected?65_0) protected?_10))" "(declare-hash-based-module!41.1" @@ -57674,15 +57865,15 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_161) ht40_0))" -"(let-values(((ns_118) namespace29_0))" +"(let-values(((ht_165) ht40_0))" +"(let-values(((ns_119) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" "(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_1) ns_118)" +"(let-values(((ns66_1) ns_119)" "((temp67_3)" "(let-values(((temp69_5) #t)" "((primitive?70_0) primitive?_10)" @@ -57692,27 +57883,27 @@ static const char *startup_source = "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_162) ht_161))" +"(let-values(((ht_166) ht_165))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_162)))" -"((letrec-values(((for-loop_273)" -"(lambda(table_212 i_178)" +"(let-values()(check-in-hash-keys ht_166)))" +"((letrec-values(((for-loop_278)" +"(lambda(table_215 i_180)" "(begin" " 'for-loop" -"(if i_178" +"(if i_180" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_162" -" i_178)))" -"(let-values(((table_213)" -"(let-values(((table_39)" -" table_212))" -"(let-values(((table_40)" +" ht_166" +" i_180)))" +"(let-values(((table_216)" +"(let-values(((table_217)" +" table_215))" +"(let-values(((table_218)" "(let-values()" -"(let-values(((key_86" -" val_78)" +"(let-values(((key_88" +" val_79)" "(let-values()" "(let-values((()" "(begin" @@ -57753,10 +57944,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_370)" +"(if(let-values(((or-part_374)" " protected?_11))" -"(if or-part_370" -" or-part_370" +"(if or-part_374" +" or-part_374" "(member" " sym_98" " protected-syms_0)))" @@ -57766,25 +57957,25 @@ static const char *startup_source = " #f)" " binding_29)))))))" "(hash-set" -" table_39" -" key_86" -" val_78)))))" +" table_217" +" key_88" +" val_79)))))" "(values" -" table_40)))))" +" table_218)))))" "(if(not #f)" -"(for-loop_273" -" table_213" +"(for-loop_278" +" table_216" "(hash-iterate-next" -" ht_162" -" i_178))" -" table_213)))" -" table_212)))))" -" for-loop_273)" +" ht_166" +" i_180))" +" table_216)))" +" table_215)))))" +" for-loop_278)" " '#hash()" -"(hash-iterate-first ht_162))))))" +"(hash-iterate-first ht_166))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_119" +" ns_120" " phase-shift_21" " phase-level_23" " self_29" @@ -57793,21 +57984,21 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_163) ht_161))" +"(let-values(((ht_167) ht_165))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_163)))" -"((letrec-values(((for-loop_274)" -"(lambda(i_179)" +"(let-values()(check-in-hash ht_167)))" +"((letrec-values(((for-loop_279)" +"(lambda(i_47)" "(begin" " 'for-loop" -"(if i_179" -"(let-values(((sym_99 val_29)" +"(if i_47" +"(let-values(((sym_6 val_29)" "(hash-iterate-key+value" -" ht_163" -" i_179)))" +" ht_167" +" i_47)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57815,21 +58006,21 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_119" +" ns_120" " 0" -" sym_99" +" sym_6" " val_29))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_274" +"(for-loop_279" "(hash-iterate-next" -" ht_163" -" i_179))" +" ht_167" +" i_47))" "(values))))" "(values))))))" -" for-loop_274)" -"(hash-iterate-first ht_163))))" +" for-loop_279)" +"(hash-iterate-first ht_167))))" "(void)))" "(void)))))" "(make-module39.1" @@ -57876,26 +58067,26 @@ static const char *startup_source = "(let-values(((name_13) name48_1))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" -"(let-values(((ns_120) namespace45_0))" +"(let-values(((ns_121) namespace45_0))" "(let-values()" "(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_13) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_203) require-names_0))" +"(let-values(((lst_204) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_203)))" -"((letrec-values(((for-loop_200)" +"(let-values()(check-list lst_204)))" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_41 lst_155)" "(begin" " 'for-loop" "(if(pair? lst_155)" "(let-values(((require-name_0)(unsafe-car lst_155))" "((rest_105)(unsafe-cdr lst_155)))" -"(let-values(((fold-var_277)" -"(let-values(((fold-var_278) fold-var_41))" -"(let-values(((fold-var_279)" +"(let-values(((fold-var_278)" +"(let-values(((fold-var_279) fold-var_41))" +"(let-values(((fold-var_280)" "(let-values()" "(cons" "(let-values()" @@ -57904,16 +58095,16 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_278))))" -"(values fold-var_279)))))" +" fold-var_279))))" +"(values fold-var_280)))))" "(if(not #f)" -"(for-loop_200 fold-var_277 rest_105)" -" fold-var_277)))" +"(for-loop_202 fold-var_278 rest_105)" +" fold-var_278)))" " fold-var_41)))))" -" for-loop_200)" +" for-loop_202)" " null" -" lst_203))))))" -"(let-values(((ns79_1) ns_120)" +" lst_204))))))" +"(let-values(((ns79_1) ns_121)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" @@ -57928,30 +58119,30 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_54)))" -"((letrec-values(((for-loop_275)" -"(lambda(table_214 lst_312)" +"((letrec-values(((for-loop_280)" +"(lambda(table_219 lst_314)" "(begin" " 'for-loop" -"(if(pair? lst_312)" +"(if(pair? lst_314)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_312))" -"((rest_176)" -"(unsafe-cdr lst_312)))" -"(let-values(((table_110)" +"(unsafe-car lst_314))" +"((rest_175)" +"(unsafe-cdr lst_314)))" +"(let-values(((table_114)" "(let-values(((m_29)" "(namespace->module" -" ns_120" +" ns_121" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_281)" "(lambda(table_31)" "(begin" " 'for-loop" "(let-values()" "(let-values(((table_32)" -"(let-values(((ht_164)" +"(let-values(((ht_38)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -57966,56 +58157,56 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_164)))" -"((letrec-values(((for-loop_277)" -"(lambda(table_112" -" i_180)" +" ht_38)))" +"((letrec-values(((for-loop_35)" +"(lambda(table_116" +" i_49)" "(begin" " 'for-loop" -"(if i_180" -"(let-values(((sym_100" +"(if i_49" +"(let-values(((sym_99" " binding_30)" "(hash-iterate-key+value" -" ht_164" -" i_180)))" -"(let-values(((table_215)" -"(let-values(((table_151)" -" table_112))" -"(let-values(((table_216)" +" ht_38" +" i_49)))" +"(let-values(((table_220)" +"(let-values(((table_154)" +" table_116))" +"(let-values(((table_221)" "(let-values()" -"(let-values(((key_87" -" val_79)" +"(let-values(((key_89" +" val_80)" "(let-values()" "(values" -" sym_100" +" sym_99" " binding_30))))" "(hash-set" -" table_151" -" key_87" -" val_79)))))" +" table_154" +" key_89" +" val_80)))))" "(values" -" table_216)))))" +" table_221)))))" "(if(not" " #f)" -"(for-loop_277" -" table_215" +"(for-loop_35" +" table_220" "(hash-iterate-next" -" ht_164" -" i_180))" -" table_215)))" -" table_112)))))" -" for-loop_277)" +" ht_38" +" i_49))" +" table_220)))" +" table_116)))))" +" for-loop_35)" " table_31" "(hash-iterate-first" -" ht_164))))))" +" ht_38))))))" " table_32))))))" -" for-loop_276)" -" table_214)))))" +" for-loop_281)" +" table_219)))))" "(if(not #f)" -"(for-loop_275 table_110 rest_176)" -" table_110)))" -" table_214)))))" -" for-loop_275)" +"(for-loop_280 table_114 rest_175)" +" table_114)))" +" table_219)))))" +" for-loop_280)" " '#hash()" " lst_54))))" " '#hasheqv()))" @@ -58278,10 +58469,10 @@ static const char *startup_source = "(define-values(expobs-primitives)(hasheq 'current-expand-observe current-expand-observe))" "(define-values" "(struct:TH-place-channel TH-place-channel TH-place-channel? TH-place-channel-ref TH-place-channel-set!)" -"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_88)(TH-place-channel-ref x_88 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_89)(TH-place-channel-ref x_89 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_89)(TH-place-channel-ref x_89 0))(lambda(x_90)(TH-place-channel-ref x_90 1))))" +"(values(lambda(x_90)(TH-place-channel-ref x_90 0))(lambda(x_91)(TH-place-channel-ref x_91 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -58405,8 +58596,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_304)(eof-object? exp_0)))" -"(if or-part_304 or-part_304(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_307)(eof-object? exp_0)))" +"(if or-part_307 or-part_307(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -58521,10 +58712,10 @@ static const char *startup_source = "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_168)(1/read-syntax(object-name i_181) i_181)))" +"(let-values(((s_167)(1/read-syntax(object-name i_181) i_181)))" "(let-values((()" "(begin" -"(if(eof-object? s_168)" +"(if(eof-object? s_167)" "(let-values()" "(error" " 'default-load-handler" @@ -58535,7 +58726,7 @@ static const char *startup_source = "(object-name i_181)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_168 path_12)))" +"(let-values(((m-s_0)(check-module-form s_167 path_12)))" "(let-values(((s2_7)(1/read-syntax(object-name i_181) i_181)))" "(begin" "(if(eof-object? s2_7)" @@ -58553,23 +58744,23 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_424)" +"(lambda(s_423)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax s_424(cons '#%top-interaction s_424)))))))" +"(1/datum->syntax s_423(cons '#%top-interaction s_423)))))))" "(let-values(((path1_0) path_12)" "((temp2_7)" -"(lambda(i_75)" +"(lambda(i_74)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_75)" +"(maybe-count-lines!_0 i_74)" "((letrec-values(((loop_110)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_300)" +"(let-values(((s_299)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -58594,19 +58785,19 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_75)" -" i_75)))" +"(object-name i_74)" +" i_74)))" "(1/read-syntax" -"(object-name i_75)" -" i_75))))))" -"(if(eof-object? s_300)" +"(object-name i_74)" +" i_74))))))" +"(if(eof-object? s_299)" "(apply values vals_7)" "(loop_110" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_300)))" +"((1/current-eval)(add-top-interaction_0 s_299)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -58619,28 +58810,28 @@ 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_154)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_154 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_155)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_155 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_83)" +"(lambda(i_82)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_83 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_83) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_82 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_82) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_66 len_39)" @@ -58648,23 +58839,23 @@ static const char *startup_source = "(begin(check-bytes vec_67)(values vec_67(unsafe-bytes-length vec_67))))))" "(begin" " #f" -"((letrec-values(((for-loop_225)" -"(lambda(result_117 pos_127)" +"((letrec-values(((for-loop_229)" +"(lambda(result_121 pos_127)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_127 len_39)" "(let-values(((c_73)(unsafe-bytes-ref vec_66 pos_127)))" -"(let-values(((result_118)" +"(let-values(((result_122)" "(let-values()" -"(let-values(((result_119)" +"(let-values(((result_123)" "(let-values()" "(let-values()(not(eq? c_73 0))))))" -"(values result_119)))))" -"(if(if(not((lambda x_91 result_118) c_73))(not #f) #f)" -"(for-loop_225 result_118(unsafe-fx+ 1 pos_127))" -" result_118)))" -" result_117)))))" -" for-loop_225)" +"(values result_123)))))" +"(if(if(not((lambda x_92 result_122) c_73))(not #f) #f)" +"(for-loop_229 result_122(unsafe-fx+ 1 pos_127))" +" result_122)))" +" result_121)))))" +" for-loop_229)" " #f" " 0)))" " hash-code_5" @@ -58743,17 +58934,17 @@ static const char *startup_source = "(apply" " bytes-append" "(reverse$1" -"(let-values(((lst_313)(cdr expected-mod_1)))" +"(let-values(((lst_315)(cdr expected-mod_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_313)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_63 lst_91)" +"(let-values()(check-list lst_315)))" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_63 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((s_458)(unsafe-car lst_91))((rest_43)(unsafe-cdr lst_91)))" +"(if(pair? lst_92)" +"(let-values(((s_457)(unsafe-car lst_92))((rest_43)(unsafe-cdr lst_92)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64) fold-var_63))" "(let-values(((fold-var_70)" @@ -58762,7 +58953,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bstr_6)" "(string->bytes/utf-8" -"(symbol->string s_458))))" +"(symbol->string s_457))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -58781,11 +58972,11 @@ static const char *startup_source = " bstr_6))))))" " fold-var_64))))" "(values fold-var_70)))))" -"(if(not #f)(for-loop_100 fold-var_20 rest_43) fold-var_20)))" +"(if(not #f)(for-loop_99 fold-var_20 rest_43) fold-var_20)))" " fold-var_63)))))" -" for-loop_100)" +" for-loop_99)" " null" -" lst_313))))))))))" +" lst_315))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -58803,23 +58994,23 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_9)" "(begin" -"(let-values(((i_161) #f))" +"(let-values(((i_162) #f))" "(dynamic-wind" "(lambda()" -"(set! i_161(let-values(((path3_0) path_14)((temp4_9) #t))(open-input-file6.1 temp4_9 #t #f #f path3_0))))" -"(lambda()(proc_9 i_161))" -"(lambda()(close-input-port i_161)))))))" +"(set! i_162(let-values(((path3_0) path_14)((temp4_9) #t))(open-input-file6.1 temp4_9 #t #f #f path3_0))))" +"(lambda()(proc_9 i_162))" +"(lambda()(close-input-port i_162)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_154)" +"(lambda(s_153)" "(begin" " 'resolve" -"(if(complete-path? s_154)" -" s_154" +"(if(complete-path? s_153)" +" s_153" "(let-values(((d_35)(current-load-relative-directory)))" -"(if d_35(path->complete-path s_154 d_35) s_154)))))))" +"(if d_35(path->complete-path s_153 d_35) s_153)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -58911,16 +59102,16 @@ static const char *startup_source = "(let-values(((base_23 orig-file_0 dir?_7)(split-path path_15)))" "(let-values(((file_1 alt-file_0)" "(if expect-module_0" -"(let-values(((b_88)(path->bytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_88)))" +"(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_88 (- len_7 4)))" +" (bytes=? #\".rkt\" (subbytes b_86 (- len_7 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_88 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)" @@ -58983,16 +59174,16 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_282) main-path-d_0))" -"(if or-part_282" -" or-part_282" +"(let-values(((or-part_285) main-path-d_0))" +"(if or-part_285" +" or-part_285" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_290)" +"(let-values(((or-part_293)" " alt-path-d_0))" -"(if or-part_290" -" or-part_290" +"(if or-part_293" +" or-part_293" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -59114,12 +59305,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_357)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_354" -" or-part_354" +"(if or-part_357" +" or-part_357" "(car expect-module_0)))" "(let-values()" "(let-values(((p_38)" @@ -59164,7 +59355,7 @@ static const char *startup_source = "(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_202)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_202)))))" +"(lambda(reg_1 v_203)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_203)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -59179,12 +59370,12 @@ static const char *startup_source = "(path-cache-set!)" "(lambda(p_74 v_249)" "(begin" -"(let-values(((i_100)(modulo(abs(equal-hash-code p_74)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_100)))" +"(let-values(((i_99)(modulo(abs(equal-hash-code p_74)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_99)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_100" +" i_99" "(make-weak-box" "(cons(cons p_74 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" "(define-values(-loading-filename)(gensym))" @@ -59193,30 +59384,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_468 coll-mode?_0)" +"(lambda(s_467 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_116)" -"(lambda(s_473)" +"(lambda(s_472)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_473)))" +"(let-values(((len_41)(string-length s_472)))" "((letrec-values(((iloop_2)" "(lambda(i_185)" "(begin" " 'iloop" "(if(= i_185 len_41)" -"(let-values()(list s_473))" -"(if(char=? '#\\/(string-ref s_473 i_185))" +"(let-values()(list s_472))" +"(if(char=? '#\\/(string-ref s_472 i_185))" "(let-values()" "(cons" -"(substring s_473 0 i_185)" -"(loop_116(substring s_473(add1 i_185)))))" +"(substring s_472 0 i_185)" +"(loop_116(substring s_472(add1 i_185)))))" "(let-values()(iloop_2(add1 i_185)))))))))" " iloop_2)" " 0))))))" " loop_116)" -" s_468)))" +" s_467)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_100)" @@ -59259,14 +59450,14 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_470 from-namespace_1)" +"((s_469 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_470)" +"(if(1/resolved-module-path? s_469)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_470)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_469)))" "(if(let-values(((or-part_134)(not from-namespace_1)))" "(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" "(void)" @@ -59275,13 +59466,13 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_470))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_469))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_306)" +"(let-values(((or-part_309)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_306" -" or-part_306" +"(if or-part_309" +" or-part_309" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -59289,14 +59480,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_470 'declared)" +"(hash-set!(car hts_1) s_469 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_470))" +"(if(pair?(1/resolved-module-path-name s_469))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_470)))" -" s_470))" +"(car(1/resolved-module-path-name s_469)))" +" s_469))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -59308,14 +59499,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_474 relto_0 stx_17)" +"((s_473 relto_0 stx_17)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_474 relto_0 stx_17 #t)))" +"(standard-module-name-resolver_0 s_473 relto_0 stx_17 #t)))" "((s_26 relto_1 stx_18 load?_7)" "(let-values((()" "(begin" @@ -59405,9 +59596,9 @@ static const char *startup_source = " (if or-part_94 or-part_94 (equal? (cadr s_26) \"..\")))" "(if relto_1" "(let-values(((p_75)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_371)(symbol? p_75)))" -"(if or-part_371" -" or-part_371" +"(let-values(((or-part_375)(symbol? p_75)))" +"(if or-part_375" +" or-part_375" "(if(pair? p_75)(symbol?(car p_75)) #f))))" " #f)" " #f)" @@ -59517,27 +59708,27 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_475)" +"(lambda(s_474)" "(begin" " 'ss->rkt" -"(let-values(((len_42)(string-length s_475)))" +"(let-values(((len_42)(string-length s_474)))" "(if(if(>= len_42 3)" "(if(equal?" " '#\\." -"(string-ref s_475(- len_42 3)))" +"(string-ref s_474(- len_42 3)))" "(if(equal?" " '#\\s" -"(string-ref s_475(- len_42 2)))" +"(string-ref s_474(- len_42 2)))" "(equal?" " '#\\s" -"(string-ref s_475(- len_42 1)))" +"(string-ref s_474(- len_42 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_475 0(- len_42 3))" +"(substring s_474 0(- len_42 3))" " \".rkt\")" -" s_475)))))" +" s_474)))))" "((path-ss->rkt_0)" "(lambda(p_78)" "(begin" @@ -59550,8 +59741,8 @@ static const char *startup_source = "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_372) (equal? v_38 \".\")))" -" (if or-part_372 or-part_372 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_376) (equal? v_38 \".\")))" +" (if or-part_376 or-part_376 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_79)" "(1/resolved-module-path-name" @@ -59566,12 +59757,12 @@ static const char *startup_source = "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((p_80)" -"(if(if(let-values(((or-part_208)" +"(if(if(let-values(((or-part_209)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_208" -" or-part_208" +"(if or-part_209" +" or-part_209" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" @@ -59599,11 +59790,11 @@ static const char *startup_source = "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_358)" +"(let-values(((or-part_361)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_358" -" or-part_358" +"(if or-part_361" +" or-part_361" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -59623,11 +59814,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_373)" +"(let-values(((or-part_377)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_373" -" or-part_373" +"(if or-part_377" +" or-part_377" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -59639,12 +59830,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_315)" -" (if (string=? s_315 \".\")" +"(lambda(s_314)" +" (if (string=? s_314 \".\")" "(let-values() 'same)" -" (if (string=? s_315 \"..\")" +" (if (string=? s_314 \"..\")" "(let-values() 'up)" -"(let-values() s_315))))" +"(let-values() s_314))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -59718,8 +59909,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_374)(path? s-parsed_0)))" -"(if or-part_374 or-part_374(vector? s-parsed_0)))" +"(if(let-values(((or-part_378)(path? s-parsed_0)))" +"(if or-part_378 or-part_378(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_18" @@ -59757,11 +59948,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_375)" +"(let-values(((or-part_379)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_375" -" or-part_375" +"(if or-part_379" +" or-part_379" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -59804,11 +59995,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_432)" +"(lambda(s_431)" "(if(if(equal?" -"(cdr s_432)" +"(cdr s_431)" " normal-filename_0)" -"(eq?(car s_432) nsr_0)" +"(eq?(car s_431) nsr_0)" " #f)" "(let-values()" "(error" @@ -59886,7 +60077,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_101)" +"(let-values(((sym_100)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -59897,16 +60088,16 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_101" +" sym_100" " subm-path_0))" -" sym_101))))))))))))))" +" sym_100))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_376)" +"(let-values(((or-part_380)" "(string? s_31)))" -"(if or-part_376" -" or-part_376" +"(if or-part_380" +" or-part_380" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -59990,8 +60181,8 @@ static const char *startup_source = "(lambda(ctx_75)" "(begin" "(let-values(((phase_42)(add1(expand-context-phase ctx_75))))" -"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_42)))" -"(namespace-visit-available-modules! ns_58 phase_42))))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_42)))" +"(namespace-visit-available-modules! ns_59 phase_42))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_0)" @@ -60014,12 +60205,12 @@ 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_268) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_278)" +"(let-values()(check-list lst_268)))" +"((letrec-values(((for-loop_282)" "(lambda(fold-var_68 lst_170)" "(begin" " 'for-loop" @@ -60028,7 +60219,7 @@ static const char *startup_source = "((rest_141)(unsafe-cdr lst_170)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" -"(let-values(((fold-var_211)" +"(let-values(((fold-var_212)" "(let-values()" "(cons" "(let-values()" @@ -60036,14 +60227,14 @@ static const char *startup_source = " body_11" " inside-sc_0))" " fold-var_12))))" -"(values fold-var_211)))))" +"(values fold-var_212)))))" "(if(not #f)" -"(for-loop_278 fold-var_11 rest_141)" +"(for-loop_282 fold-var_11 rest_141)" " fold-var_11)))" " fold-var_68)))))" -" for-loop_278)" +" for-loop_282)" " null" -" lst_265))))))" +" lst_268))))))" "(let-values((()" "(begin" "(let-values(((obs_68)(expand-context-observer ctx_14)))" @@ -60062,15 +60253,15 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" "(let-values(((v_250) ctx_14))" -"(let-values(((the-struct_90) v_250))" -"(if(expand-context/outer? the-struct_90)" +"(let-values(((the-struct_89) v_250))" +"(if(expand-context/outer? the-struct_89)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" "((def-ctx-scopes54_0) def-ctx-scopes_6)" "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" -"((scopes57_1)" +"((scopes57_0)" "(cons inside-sc_0(expand-context-scopes ctx_14)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_2)" @@ -60085,20 +60276,20 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_90)" +"(expand-context/outer-env the-struct_89)" " post-expansion-scope-action56_0" -" scopes57_1" +" scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_90)" +"(expand-context/outer-binding-layer the-struct_89)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_90)" -"(expand-context/outer-current-introduction-scopes the-struct_90)" +"(expand-context/outer-need-eventually-defined the-struct_89)" +"(expand-context/outer-current-introduction-scopes the-struct_89)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))))" +" the-struct_89))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -60175,10 +60366,10 @@ static const char *startup_source = " #f)" "(let-values(((v_227)" " body-ctx_2))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_90)" " v_227))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_90)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" @@ -60187,36 +60378,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-env" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-binding-layer" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_90)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_90))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -60247,45 +60438,45 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_476)" +"(let-values(((s_475)" " disarmed-exp-body_0))" -"(let-values(((orig-s_37)" -" s_476))" +"(let-values(((orig-s_38)" +" s_475))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_457)" +"(let-values(((s_456)" "(if(syntax?$1" -" s_476)" +" s_475)" "(syntax-e$1" -" s_476)" -" s_476)))" +" s_475)" +" s_475)))" "(if(pair?" -" s_457)" +" s_456)" "(let-values(((begin81_0)" -"(let-values(((s_477)" +"(let-values(((s_476)" "(car" -" s_457)))" -" s_477))" +" s_456)))" +" s_476))" "((e82_0)" -"(let-values(((s_478)" +"(let-values(((s_477)" "(cdr" -" s_457)))" -"(let-values(((s_479)" +" s_456)))" +"(let-values(((s_478)" "(if(syntax?$1" -" s_478)" +" s_477)" "(syntax-e$1" -" s_478)" -" s_478)))" +" s_477)" +" s_477)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_479)))" +" s_478)))" "(if(not" " flat-s_24)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_37))" +" orig-s_38))" "(let-values()" " flat-s_24)))))))" "(values" @@ -60294,7 +60485,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_37)))))" +" orig-s_38)))))" "(values" " #t" " begin79_1" @@ -60354,59 +60545,59 @@ static const char *startup_source = " rhs85_0)" "(let-values(((s_31)" " disarmed-exp-body_0))" -"(let-values(((orig-s_38)" +"(let-values(((orig-s_39)" " s_31))" "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_480)" +"(let-values(((s_479)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_480)" +" s_479)" "(let-values(((define-values86_0)" "(let-values(((s_49)" "(car" -" s_480)))" +" s_479)))" " s_49))" "((id87_1" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_480)))" -"(let-values(((s_481)" +" s_479)))" +"(let-values(((s_480)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_481)" +" s_480)" "(let-values(((id89_0)" -"(let-values(((s_310)" +"(let-values(((s_309)" "(car" -" s_481)))" -"(let-values(((s_388)" +" s_480)))" +"(let-values(((s_387)" "(if(syntax?$1" -" s_310)" +" s_309)" "(syntax-e$1" -" s_310)" -" s_310)))" +" s_309)" +" s_309)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_388)))" +" s_387)))" "(if(not" " flat-s_25)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))" +" orig-s_39))" "(let-values()" -"(let-values(((id_107)" +"(let-values(((id_106)" "(let-values(((lst_194)" " flat-s_25))" "(begin" @@ -60416,107 +60607,107 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_194)))" -"((letrec-values(((for-loop_279)" -"(lambda(id_82" -" lst_102)" +"((letrec-values(((for-loop_283)" +"(lambda(id_81" +" lst_103)" "(begin" " 'for-loop" "(if(pair?" -" lst_102)" -"(let-values(((s_313)" +" lst_103)" +"(let-values(((s_312)" "(unsafe-car" -" lst_102))" -"((rest_177)" +" lst_103))" +"((rest_176)" "(unsafe-cdr" -" lst_102)))" +" lst_103)))" "(let-values(((id_70)" +"(let-values(((id_107)" +" id_81))" "(let-values(((id_108)" -" id_82))" -"(let-values(((id_109)" "(let-values()" "(let-values(((id92_2)" "(let-values()" "(if(let-values(((or-part_140)" "(if(syntax?$1" -" s_313)" +" s_312)" "(symbol?" "(syntax-e$1" -" s_313))" +" s_312))" " #f)))" "(if or-part_140" " or-part_140" "(symbol?" -" s_313)))" -" s_313" +" s_312)))" +" s_312" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_38" -" s_313)))))" +" orig-s_39" +" s_312)))))" "(cons" " id92_2" -" id_108)))))" +" id_107)))))" "(values" -" id_109)))))" +" id_108)))))" "(if(not" " #f)" -"(for-loop_279" +"(for-loop_283" " id_70" -" rest_177)" +" rest_176)" " id_70)))" -" id_82)))))" -" for-loop_279)" +" id_81)))))" +" for-loop_283)" " null" " lst_194)))))" "(reverse$1" -" id_107))))))))" +" id_106))))))))" "((rhs90_0)" -"(let-values(((s_482)" +"(let-values(((s_481)" "(cdr" -" s_481)))" -"(let-values(((s_483)" +" s_480)))" +"(let-values(((s_482)" "(if(syntax?$1" -" s_482)" +" s_481)" "(syntax-e$1" -" s_482)" -" s_482)))" +" s_481)" +" s_481)))" "(if(pair?" -" s_483)" +" s_482)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_483)))" +" s_482)))" " s_54))" "(()" -"(let-values(((s_314)" +"(let-values(((s_313)" "(cdr" -" s_483)))" -"(let-values(((s_315)" +" s_482)))" +"(let-values(((s_314)" "(if(syntax?$1" -" s_314)" +" s_313)" "(syntax-e$1" -" s_314)" -" s_314)))" +" s_313)" +" s_313)))" "(if(null?" -" s_315)" +" s_314)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))))))" +" orig-s_39))))))" "(values" " rhs91_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))))))" +" orig-s_39))))))" "(values" " id89_0" " rhs90_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))))))" +" orig-s_39))))))" "(values" " define-values86_0" " id87_1" @@ -60524,7 +60715,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38)))))" +" orig-s_39)))))" "(values" " #t" " define-values83_1" @@ -60555,7 +60746,7 @@ static const char *startup_source = "(let-values(((new-dups_0)" "(let-values(((ids93_0)" " ids_29)" -"((phase94_0)" +"((phase94_1)" " phase_16)" "((exp-body95_0)" " exp-body_0)" @@ -60565,7 +60756,7 @@ static const char *startup_source = " #f" " #f" " ids93_0" -" phase94_0" +" phase94_1" " exp-body95_0" " dups96_0" " #t))))" @@ -60583,28 +60774,28 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_50)))" -"((letrec-values(((for-loop_38)" -"(lambda(fold-var_182" -" lst_314)" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_183" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_314)" -"(let-values(((id_87)" +" lst_316)" +"(let-values(((id_86)" "(unsafe-car" -" lst_314))" -"((rest_178)" +" lst_316))" +"((rest_177)" "(unsafe-cdr" -" lst_314)))" -"(let-values(((fold-var_237)" -"(let-values(((fold-var_280)" -" fold-var_182))" +" lst_316)))" +"(let-values(((fold-var_238)" "(let-values(((fold-var_281)" +" fold-var_183))" +"(let-values(((fold-var_282)" "(let-values()" "(cons" "(let-values()" "(let-values(((id97_0)" -" id_87)" +" id_86)" "((phase98_0)" " phase_16)" "((counter99_0)" @@ -60613,7 +60804,7 @@ static const char *startup_source = " frame-id_2)" "((exp-body101_0)" " exp-body_0))" -"(add-local-binding!35.1" +"(add-local-binding!37.1" " frame-id100_0" " #t" " exp-body101_0" @@ -60621,23 +60812,23 @@ static const char *startup_source = " id97_0" " phase98_0" " counter99_0)))" -" fold-var_280))))" +" fold-var_281))))" "(values" -" fold-var_281)))))" +" fold-var_282)))))" "(if(not" " #f)" -"(for-loop_38" -" fold-var_237" -" rest_178)" -" fold-var_237)))" -" fold-var_182)))))" -" for-loop_38)" +"(for-loop_284" +" fold-var_238" +" rest_177)" +" fold-var_238)))" +" fold-var_183)))))" +" for-loop_284)" " null" " lst_50))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_231)" +"(let-values(((lst_232)" " keys_5)" -"((lst_197)" +"((lst_198)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60645,68 +60836,68 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_231)))" +" lst_232)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_197)))" -"((letrec-values(((for-loop_256)" +" lst_198)))" +"((letrec-values(((for-loop_262)" "(lambda(env_17" -" lst_315" +" lst_317" " lst_29)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_315)" +" lst_317)" "(pair?" " lst_29)" " #f)" -"(let-values(((key_88)" +"(let-values(((key_90)" "(unsafe-car" -" lst_315))" +" lst_317))" "((rest_149)" "(unsafe-cdr" -" lst_315))" +" lst_317))" "((id_9)" "(unsafe-car" " lst_29))" -"((rest_179)" +"((rest_178)" "(unsafe-cdr" " lst_29)))" -"(let-values(((env_1)" "(let-values(((env_18)" -" env_17))" "(let-values(((env_19)" +" env_17))" +"(let-values(((env_20)" "(let-values()" "(env-extend" -" env_18" -" key_88" +" env_19" +" key_90" "(local-variable1.1" " id_9)))))" "(values" -" env_19)))))" +" env_20)))))" "(if(not" " #f)" -"(for-loop_256" -" env_1" +"(for-loop_262" +" env_18" " rest_149" -" rest_179)" -" env_1)))" +" rest_178)" +" env_18)))" " env_17)))))" -" for-loop_256)" +" for-loop_262)" "(expand-context-env" " body-ctx_2)" -" lst_231" -" lst_197)))))" +" lst_232" +" lst_198)))))" "(loop_119" "(let-values(((v_251)" " body-ctx_2))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_91)" " v_251))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_91)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -60719,35 +60910,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_91)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_91)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_91))))" " rest-bodys_0" " null" "(cons" @@ -60764,7 +60955,7 @@ static const char *startup_source = "(check-list" " lst_31)))" "((letrec-values(((for-loop_24)" -"(lambda(fold-var_282" +"(lambda(fold-var_283" " lst_32)" "(begin" " 'for-loop" @@ -60776,24 +60967,24 @@ static const char *startup_source = "((rest_12)" "(unsafe-cdr" " lst_32)))" -"(let-values(((fold-var_283)" "(let-values(((fold-var_284)" -" fold-var_282))" "(let-values(((fold-var_285)" +" fold-var_283))" +"(let-values(((fold-var_286)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_284))))" +" fold-var_285))))" "(values" -" fold-var_285)))))" +" fold-var_286)))))" "(if(not" " #f)" "(for-loop_24" -" fold-var_283" +" fold-var_284" " rest_12)" -" fold-var_283)))" -" fold-var_282)))))" +" fold-var_284)))" +" fold-var_283)))))" " for-loop_24)" " null" " lst_31))))" @@ -60802,7 +60993,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_73)" +"(let-values(((lst_318)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60810,47 +61001,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_73)))" -"((letrec-values(((for-loop_90)" -"(lambda(fold-var_286" -" lst_37)" +" lst_318)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_287" +" lst_319)" "(begin" " 'for-loop" "(if(pair?" -" lst_37)" +" lst_319)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_37))" -"((rest_33)" +" lst_319))" +"((rest_179)" "(unsafe-cdr" -" lst_37)))" -"(let-values(((fold-var_287)" +" lst_319)))" "(let-values(((fold-var_288)" -" fold-var_286))" "(let-values(((fold-var_289)" +" fold-var_287))" +"(let-values(((fold-var_290)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_288))))" +" fold-var_289))))" "(values" -" fold-var_289)))))" +" fold-var_290)))))" "(if(not" " #f)" -"(for-loop_90" -" fold-var_287" -" rest_33)" -" fold-var_287)))" -" fold-var_286)))))" -" for-loop_90)" +"(for-loop_285" +" fold-var_288" +" rest_179)" +" fold-var_288)))" +" fold-var_287)))))" +" for-loop_285)" " null" -" lst_73))))" +" lst_318))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_316)" +"(let-values(((lst_320)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60858,24 +61049,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_316)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_24" -" lst_106)" +" lst_320)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_291" +" lst_107)" "(begin" " 'for-loop" "(if(pair?" -" lst_106)" +" lst_107)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_106))" +" lst_107))" "((rest_51)" "(unsafe-cdr" -" lst_106)))" -"(let-values(((fold-var_290)" -"(let-values(((fold-var_133)" -" fold-var_24))" +" lst_107)))" +"(let-values(((fold-var_292)" "(let-values(((fold-var_134)" +" fold-var_291))" +"(let-values(((fold-var_135)" "(let-values()" "(cons" "(let-values()" @@ -60883,25 +61074,25 @@ static const char *startup_source = " done-body_2" " s_40" " phase_16))" -" fold-var_133))))" +" fold-var_134))))" "(values" -" fold-var_134)))))" +" fold-var_135)))))" "(if(not" " #f)" -"(for-loop_254" -" fold-var_290" +"(for-loop_259" +" fold-var_292" " rest_51)" -" fold-var_290)))" -" fold-var_24)))))" -" for-loop_254)" +" fold-var_292)))" +" fold-var_291)))))" +" for-loop_259)" " null" -" lst_316))))" +" lst_320))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_317)" +"(let-values(((lst_321)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60909,41 +61100,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" -"((letrec-values(((for-loop_280)" -"(lambda(fold-var_291" -" lst_318)" +" lst_321)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_293" +" lst_322)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" +" lst_322)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_318))" +" lst_322))" "((rest_180)" "(unsafe-cdr" -" lst_318)))" -"(let-values(((fold-var_292)" +" lst_322)))" +"(let-values(((fold-var_294)" "(let-values(((fold-var_39)" -" fold-var_291))" -"(let-values(((fold-var_137)" +" fold-var_293))" +"(let-values(((fold-var_138)" "(let-values()" "(cons" "(let-values()" " #f)" " fold-var_39))))" "(values" -" fold-var_137)))))" +" fold-var_138)))))" "(if(not" " #f)" -"(for-loop_280" -" fold-var_292" +"(for-loop_286" +" fold-var_294" " rest_180)" -" fold-var_292)))" -" fold-var_291)))))" -" for-loop_280)" +" fold-var_294)))" +" fold-var_293)))))" +" for-loop_286)" " null" -" lst_317))))" +" lst_321))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -60967,44 +61158,44 @@ static const char *startup_source = " define-syntaxes105_0" " id106_0" " rhs107_0)" -"(let-values(((s_484)" +"(let-values(((s_483)" " disarmed-exp-body_0))" -"(let-values(((orig-s_39)" -" s_484))" +"(let-values(((orig-s_40)" +" s_483))" "(let-values(((define-syntaxes105_1" " id106_1" " rhs107_1)" -"(let-values(((s_412)" +"(let-values(((s_411)" "(if(syntax?$1" -" s_484)" +" s_483)" "(syntax-e$1" -" s_484)" -" s_484)))" +" s_483)" +" s_483)))" "(if(pair?" -" s_412)" +" s_411)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_485)" +"(let-values(((s_484)" "(car" -" s_412)))" -" s_485))" +" s_411)))" +" s_484))" "((id109_0" " rhs110_0)" -"(let-values(((s_486)" +"(let-values(((s_485)" "(cdr" -" s_412)))" -"(let-values(((s_207)" +" s_411)))" +"(let-values(((s_206)" "(if(syntax?$1" -" s_486)" +" s_485)" "(syntax-e$1" -" s_486)" -" s_486)))" +" s_485)" +" s_485)))" "(if(pair?" -" s_207)" +" s_206)" "(let-values(((id111_0)" "(let-values(((s_65)" "(car" -" s_207)))" -"(let-values(((s_208)" +" s_206)))" +"(let-values(((s_207)" "(if(syntax?$1" " s_65)" "(syntax-e$1" @@ -61012,17 +61203,17 @@ static const char *startup_source = " s_65)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_208)))" +" s_207)))" "(if(not" " flat-s_26)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))" +" orig-s_40))" "(let-values()" -"(let-values(((id_110)" -"(let-values(((lst_319)" +"(let-values(((id_109)" +"(let-values(((lst_323)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61030,108 +61221,108 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_319)))" -"((letrec-values(((for-loop_281)" -"(lambda(id_111" -" lst_320)" +" lst_323)))" +"((letrec-values(((for-loop_287)" +"(lambda(id_110" +" lst_35)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" -"(let-values(((s_487)" +" lst_35)" +"(let-values(((s_486)" "(unsafe-car" -" lst_320))" +" lst_35))" "((rest_181)" "(unsafe-cdr" -" lst_320)))" +" lst_35)))" +"(let-values(((id_111)" "(let-values(((id_112)" +" id_110))" "(let-values(((id_113)" -" id_111))" -"(let-values(((id_114)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_321)" +"(if(let-values(((or-part_324)" "(if(syntax?$1" -" s_487)" +" s_486)" "(symbol?" "(syntax-e$1" -" s_487))" +" s_486))" " #f)))" -"(if or-part_321" -" or-part_321" +"(if or-part_324" +" or-part_324" "(symbol?" -" s_487)))" -" s_487" +" s_486)))" +" s_486" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_39" -" s_487)))))" +" orig-s_40" +" s_486)))))" "(cons" " id114_0" -" id_113)))))" +" id_112)))))" "(values" -" id_114)))))" +" id_113)))))" "(if(not" " #f)" -"(for-loop_281" -" id_112" +"(for-loop_287" +" id_111" " rest_181)" -" id_112)))" -" id_111)))))" -" for-loop_281)" +" id_111)))" +" id_110)))))" +" for-loop_287)" " null" -" lst_319)))))" +" lst_323)))))" "(reverse$1" -" id_110))))))))" +" id_109))))))))" "((rhs112_0)" -"(let-values(((s_488)" +"(let-values(((s_487)" "(cdr" -" s_207)))" +" s_206)))" +"(let-values(((s_488)" +"(if(syntax?$1" +" s_487)" +"(syntax-e$1" +" s_487)" +" s_487)))" +"(if(pair?" +" s_488)" +"(let-values(((rhs113_0)" +"(let-values(((s_100)" +"(car" +" s_488)))" +" s_100))" +"(()" +"(let-values(((s_323)" +"(cdr" +" s_488)))" "(let-values(((s_489)" "(if(syntax?$1" -" s_488)" +" s_323)" "(syntax-e$1" -" s_488)" -" s_488)))" -"(if(pair?" -" s_489)" -"(let-values(((rhs113_0)" -"(let-values(((s_101)" -"(car" -" s_489)))" -" s_101))" -"(()" -"(let-values(((s_324)" -"(cdr" -" s_489)))" -"(let-values(((s_490)" -"(if(syntax?$1" -" s_324)" -"(syntax-e$1" -" s_324)" -" s_324)))" +" s_323)" +" s_323)))" "(if(null?" -" s_490)" +" s_489)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_40))))))" "(values" " rhs113_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_40))))))" "(values" " id111_0" " rhs112_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_40))))))" "(values" " define-syntaxes108_0" " id109_0" @@ -61139,7 +61330,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39)))))" +" orig-s_40)))))" "(values" " #t" " define-syntaxes105_1" @@ -61170,7 +61361,7 @@ static const char *startup_source = "(let-values(((new-dups_1)" "(let-values(((ids115_0)" " ids_30)" -"((phase116_1)" +"((phase116_0)" " phase_16)" "((exp-body117_0)" " exp-body_0)" @@ -61180,7 +61371,7 @@ static const char *startup_source = " #f" " #f" " ids115_0" -" phase116_1" +" phase116_0" " exp-body117_0" " dups118_0" " #t))))" @@ -61189,7 +61380,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_321)" +"(let-values(((lst_324)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61197,29 +61388,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_293" -" lst_322)" +" lst_324)))" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_295" +" lst_325)" "(begin" " 'for-loop" "(if(pair?" -" lst_322)" -"(let-values(((id_115)" +" lst_325)" +"(let-values(((id_114)" "(unsafe-car" -" lst_322))" +" lst_325))" "((rest_182)" "(unsafe-cdr" -" lst_322)))" -"(let-values(((fold-var_294)" -"(let-values(((fold-var_295)" -" fold-var_293))" +" lst_325)))" "(let-values(((fold-var_296)" +"(let-values(((fold-var_297)" +" fold-var_295))" +"(let-values(((fold-var_298)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" -" id_115)" +" id_114)" "((phase120_0)" " phase_16)" "((counter121_0)" @@ -61228,7 +61419,7 @@ static const char *startup_source = " frame-id_2)" "((exp-body123_0)" " exp-body_0))" -"(add-local-binding!35.1" +"(add-local-binding!37.1" " frame-id122_0" " #t" " exp-body123_0" @@ -61236,19 +61427,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_295))))" +" fold-var_297))))" "(values" -" fold-var_296)))))" +" fold-var_298)))))" "(if(not" " #f)" -"(for-loop_282" -" fold-var_294" +"(for-loop_288" +" fold-var_296" " rest_182)" -" fold-var_294)))" -" fold-var_293)))))" -" for-loop_282)" +" fold-var_296)))" +" fold-var_295)))))" +" for-loop_288)" " null" -" lst_321))))))" +" lst_324))))))" "(let-values((()" "(begin" "(let-values(((obs_74)" @@ -61286,11 +61477,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_323)" +"(let-values(((lst_326)" " keys_6)" -"((lst_324)" +"((lst_327)" " vals_8)" -"((lst_325)" +"((lst_328)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61298,84 +61489,84 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_323)))" +" lst_326)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_324)))" +" lst_327)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_325)))" -"((letrec-values(((for-loop_283)" -"(lambda(env_20" -" lst_326" +" lst_328)))" +"((letrec-values(((for-loop_289)" +"(lambda(env_21" +" lst_329" " lst_46" -" lst_327)" +" lst_330)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_326)" +" lst_329)" "(if(pair?" " lst_46)" "(pair?" -" lst_327)" +" lst_330)" " #f)" " #f)" -"(let-values(((key_89)" +"(let-values(((key_91)" "(unsafe-car" -" lst_326))" +" lst_329))" "((rest_183)" "(unsafe-cdr" -" lst_326))" +" lst_329))" "((val_38)" "(unsafe-car" " lst_46))" "((rest_184)" "(unsafe-cdr" " lst_46))" -"((id_116)" +"((id_115)" "(unsafe-car" -" lst_327))" +" lst_330))" "((rest_185)" "(unsafe-cdr" -" lst_327)))" -"(let-values(((env_21)" +" lst_330)))" "(let-values(((env_22)" -" env_20))" "(let-values(((env_23)" +" env_21))" +"(let-values(((env_24)" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" " val_38" -" id_116" +" id_115" " phase_16" " body-ctx_2)" "(env-extend" -" env_22" -" key_89" +" env_23" +" key_91" " val_38)))))" "(values" -" env_23)))))" +" env_24)))))" "(if(not" " #f)" -"(for-loop_283" -" env_21" +"(for-loop_289" +" env_22" " rest_183" " rest_184" " rest_185)" -" env_21)))" -" env_20)))))" -" for-loop_283)" +" env_22)))" +" env_21)))))" +" for-loop_289)" "(expand-context-env" " body-ctx_2)" -" lst_323" -" lst_324" -" lst_325)))))" +" lst_326" +" lst_327" +" lst_328)))))" "(begin" "(let-values(((obs_76)" "(expand-context-observer" @@ -61390,10 +61581,10 @@ static const char *startup_source = "(loop_119" "(let-values(((v_252)" " body-ctx_2))" -"(let-values(((the-struct_71)" +"(let-values(((the-struct_70)" " v_252))" "(if(expand-context/outer?" -" the-struct_71)" +" the-struct_70)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -61406,35 +61597,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/outer-use-site-scopes" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/outer-frame-id" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-context" -" the-struct_71)" +" the-struct_70)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-scopes" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-def-ctx-scopes" -" the-struct_71)" +" the-struct_70)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-only-immediate?" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-need-eventually-defined" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-current-introduction-scopes" -" the-struct_71)" +" the-struct_70)" "(expand-context/outer-name" -" the-struct_71)))" +" the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_71))))" +" the-struct_70))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -61538,7 +61729,7 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_230) source10_0))" +"(let-values(((s_229) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -61550,7 +61741,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_230))" +" s_229))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" @@ -61558,8 +61749,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_93) v_253))" -"(if(expand-context/outer? the-struct_93)" +"(let-values(((the-struct_92) v_253))" +"(if(expand-context/outer? the-struct_92)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -61577,24 +61768,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_93)" +"(root-expand-context/outer-frame-id the-struct_92)" " context127_0" -"(expand-context/outer-env the-struct_93)" +"(expand-context/outer-env the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_92)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_93)" -"(expand-context/outer-reference-records the-struct_93)" +"(expand-context/outer-binding-layer the-struct_92)" +"(expand-context/outer-reference-records the-struct_92)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_93)" +"(expand-context/outer-need-eventually-defined the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" -"(expand-context/outer-name the-struct_93)))" +" the-struct_92)" +"(expand-context/outer-name the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_92))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -61635,41 +61826,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_328) done-bodys_1)" +"(let-values(((lst_331) done-bodys_1)" "((start_65) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_328)))" +"(check-list lst_331)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_65)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_257" -" lst_329" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_258" +" lst_332" " pos_129)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_329)" +" lst_332)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_329))" +" lst_332))" "((rest_186)" "(unsafe-cdr" -" lst_329))" +" lst_332))" "((i_186)" " pos_129))" -"(let-values(((fold-var_258)" "(let-values(((fold-var_259)" -" fold-var_257))" "(let-values(((fold-var_260)" +" fold-var_258))" +"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" @@ -61694,10 +61885,10 @@ static const char *startup_source = " #f)" "(let-values(((v_254)" " finish-ctx_0))" -"(let-values(((the-struct_94)" +"(let-values(((the-struct_93)" " v_254))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_93)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" @@ -61706,36 +61897,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-binding-layer" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-reference-records" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_93)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))" +" the-struct_93))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -61744,22 +61935,22 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_2))))" -" fold-var_259))))" +" fold-var_260))))" "(values" -" fold-var_260)))))" +" fold-var_261)))))" "(if(not" " #f)" -"(for-loop_284" -" fold-var_258" +"(for-loop_290" +" fold-var_259" " rest_186" "(+" " pos_129" " 1))" -" fold-var_258)))" -" fold-var_257)))))" -" for-loop_284)" +" fold-var_259)))" +" fold-var_258)))))" +" for-loop_290)" " null" -" lst_328" +" lst_331" " start_65))))))" "(begin" "(let-values(((obs_80)" @@ -61784,7 +61975,7 @@ static const char *startup_source = "(call-expand-observe" " obs_81" " 'block->list" -"(datum->syntax$1 s_230 done-bodys_1))))" +"(datum->syntax$1 s_229 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -61797,7 +61988,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_82" " finish-ctx_0" -" s_230" +" s_229" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -61810,21 +62001,21 @@ static const char *startup_source = "((val-keyss139_0) val-keyss_1)" "((val-rhss140_0) val-rhss_1)" "((track-stxs141_0) track-stxs_1)" -"((temp142_1)(not stratified?_1))" +"((temp142_0)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_230)" -"((temp146_1)(pair? stx-clauses_1))" +"((s145_0) s_229)" +"((temp146_2)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" -"((temp148_1) #f))" +"((temp148_0) #f))" "(expand-and-split-bindings-by-reference48.1" " finish-ctx144_0" " frame-id143_0" " finish-bodys147_0" -" temp146_1" +" temp146_2" " s145_0" -" temp142_1" -" temp148_1" +" temp142_0" +" temp148_0" " val-idss138_0" " val-keyss139_0" " val-rhss140_0" @@ -61866,12 +62057,12 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_76) ctx32_0))" -"(let-values(((s_491) source33_0))" +"(let-values(((s_490) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_140)(expand-context-phase ctx_76)))" +"(let-values(((phase_139)(expand-context-phase ctx_76)))" "((letrec-values(((loop_120)" "(lambda(idss_2" " keyss_1" @@ -61896,12 +62087,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_76)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_491)" +"(keep-properties-only s_490)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_491)" +"(keep-properties-only s_490)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -61910,16 +62101,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_491)" +"((s150_0) s_490)" "((temp151_2)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_140)" +" phase_139)" "(core-id" " 'letrec-values" -" phase_140))" +" phase_139))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -61960,7 +62151,7 @@ static const char *startup_source = "(values))))" "(let-values(((ids_31)(car idss_2)))" "(let-values(((expanded-rhs_0)" -"(let-values(((temp152_1)(car rhss_2))" +"(let-values(((temp152_0)(car rhss_2))" "((temp153_0)" "(as-named-context" " ctx_76" @@ -61970,7 +62161,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp152_1" +" temp152_0" " temp153_0))))" "(let-values(((track-stx_0)(car track-stxs_3)))" "(let-values(((local-or-forward-references?_0)" @@ -62015,7 +62206,7 @@ static const char *startup_source = " ctx_76)" "(parsed-let-values17.1" "(keep-properties-only" -" s_491)" +" s_490)" "(list ids_31)" "(list" "(list" @@ -62025,12 +62216,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_491)" +" s_490)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_140)" +" phase_139)" "(list" "(build-clause" " ids_31" @@ -62064,9 +62255,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_377) split?_0))" -"(if or-part_377" -" or-part_377" +"(let-values(((or-part_381) split?_0))" +"(if or-part_381" +" or-part_381" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -62088,7 +62279,7 @@ static const char *startup_source = " ctx_76)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_491)" +" s_490)" "(reverse$1" "(cons" " ids_31" @@ -62106,12 +62297,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_491)" -"((temp159_1)" +" s_490)" +"((temp159_0)" "(list*" "(core-id" " 'letrec-values" -" phase_140)" +" phase_139)" "(build-clauses" "(cons" " ids_31" @@ -62127,7 +62318,7 @@ static const char *startup_source = " track?157_0" " #t" " s158_0" -" temp159_1)))))" +" temp159_0)))))" "(begin" "(let-values(((obs_87)" "(expand-context-observer" @@ -62186,49 +62377,49 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_492 phase_141)" +"(lambda(expr_10 s_491 phase_140)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_141)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_140)))" "(datum->syntax$1" -"(core-id '#%app phase_141)" -"(list(core-id 'begin phase_141) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_492)))))" +"(core-id '#%app phase_140)" +"(list(core-id 'begin phase_140) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_491)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_88 ctx_40 s_493 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_88 ctx_40 s_492 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_142)(expand-context-phase ctx_40)))" +"(let-values(((phase_141)(expand-context-phase ctx_40)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_284) track-stxs_4))" +"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_287) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_245)))" +"(let-values()(check-list lst_247)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_246)))" +"(let-values()(check-list lst_248)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_297 lst_330 lst_286 lst_287)" +"(let-values()(check-list lst_287)))" +"((letrec-values(((for-loop_291)" +"(lambda(fold-var_299 lst_123 lst_289 lst_124)" "(begin" " 'for-loop" -"(if(if(pair? lst_330)(if(pair? lst_286)(pair? lst_287) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_330))" -"((rest_159)(unsafe-cdr lst_330))" -"((val-rhs_0)(unsafe-car lst_286))" -"((rest_160)(unsafe-cdr lst_286))" -"((track-stx_2)(unsafe-car lst_287))" -"((rest_187)(unsafe-cdr lst_287)))" -"(let-values(((fold-var_298)" -"(let-values(((fold-var_299) fold-var_297))" +"(if(if(pair? lst_123)(if(pair? lst_289)(pair? lst_124) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_123))" +"((rest_60)(unsafe-cdr lst_123))" +"((val-rhs_0)(unsafe-car lst_289))" +"((rest_159)(unsafe-cdr lst_289))" +"((track-stx_2)(unsafe-car lst_124))" +"((rest_187)(unsafe-cdr lst_124)))" "(let-values(((fold-var_300)" +"(let-values(((fold-var_301) fold-var_299))" +"(let-values(((fold-var_302)" "(let-values()" "(cons" "(let-values()" @@ -62236,26 +62427,26 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_299))))" -"(values fold-var_300)))))" +" fold-var_301))))" +"(values fold-var_302)))))" "(if(not #f)" -"(for-loop_285 fold-var_298 rest_159 rest_160 rest_187)" -" fold-var_298)))" -" fold-var_297)))))" -" for-loop_285)" +"(for-loop_291 fold-var_300 rest_60 rest_159 rest_187)" +" fold-var_300)))" +" fold-var_299)))))" +" for-loop_291)" " null" -" lst_245" -" lst_246" -" lst_284))))))" +" lst_247" +" lst_248" +" lst_287))))))" "(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-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_141)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_493)))" +" s_492)))" "(begin" "(call-expand-observe obs_88 'block->letrec(list lv-s_0))" "(call-expand-observe obs_88 'visit lv-s_0)" @@ -62270,7 +62461,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_493))" +"(datum->syntax$1 #f done-bodys_2 s_492))" "(call-expand-observe obs_88 'prepare-env)" "(call-expand-observe obs_88 'next-group)" "(if(null? val-idss_2)" @@ -62282,7 +62473,7 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_493)))))))" +"(datum->syntax$1 #f done-bodys_2 s_492)))))))" "(let-values()" "(begin" "(call-expand-observe obs_88 'prim-letrec-values)" @@ -62290,104 +62481,104 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_493))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_492))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_68 disarmed-s_5 formals_1 bodys_9 ctx_78 log-renames-tag_0)" +"(lambda(s_67 disarmed-s_5 formals_1 bodys_9 ctx_78 log-renames-tag_0)" "(begin" "(let-values(((sc_31)(new-scope 'local)))" -"(let-values(((phase_143)(expand-context-phase ctx_78)))" +"(let-values(((phase_142)(expand-context-phase ctx_78)))" "(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_33)" -"((phase35_1) phase_143)" -"((s36_0) s_68)" +"((phase35_2) phase_142)" +"((s36_0) s_67)" " ((temp37_4) \"argument name\"))" -"(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_1 s36_0 #f #f))" +"(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" "(let-values(((counter_7)(root-expand-context-counter ctx_78)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_86) ids_33))" +"(let-values(((lst_87) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_301 lst_266)" +"(let-values()(check-list lst_87)))" +"((letrec-values(((for-loop_292)" +"(lambda(fold-var_303 lst_269)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((id_117)(unsafe-car lst_266))" -"((rest_188)(unsafe-cdr lst_266)))" +"(if(pair? lst_269)" +"(let-values(((id_116)(unsafe-car lst_269))" +"((rest_188)(unsafe-cdr lst_269)))" "(let-values(((fold-var_28)" -"(let-values(((fold-var_29) fold-var_301))" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_29) fold-var_303))" +"(let-values(((fold-var_153)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_0)" -" id_117)" -"((phase39_0)" -" phase_143)" +" id_116)" +"((phase39_1)" +" phase_142)" "((counter40_0)" " counter_7)" "((s41_0)" -" s_68))" -"(add-local-binding!35.1" +" s_67))" +"(add-local-binding!37.1" " #f" " #f" " s41_0" " #t" " id38_0" -" phase39_0" +" phase39_1" " counter40_0)))" " fold-var_29))))" -"(values fold-var_152)))))" +"(values fold-var_153)))))" "(if(not #f)" -"(for-loop_286 fold-var_28 rest_188)" +"(for-loop_292 fold-var_28 rest_188)" " fold-var_28)))" -" fold-var_301)))))" -" for-loop_286)" +" fold-var_303)))))" +" for-loop_292)" " null" -" lst_86))))))" +" lst_87))))))" "(let-values(((body-env_0)" -"(let-values(((lst_79) keys_7)((lst_89) ids_33))" +"(let-values(((lst_80) keys_7)((lst_90) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_80)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_227)" -"(lambda(env_24 lst_81 lst_272)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_231)" +"(lambda(env_25 lst_82 lst_275)" "(begin" " 'for-loop" -"(if(if(pair? lst_81)(pair? lst_272) #f)" -"(let-values(((key_90)(unsafe-car lst_81))" -"((rest_147)(unsafe-cdr lst_81))" -"((id_118)(unsafe-car lst_272))" -"((rest_189)(unsafe-cdr lst_272)))" -"(let-values(((env_25)" -"(let-values(((env_26) env_24))" -"(let-values(((env_27)" +"(if(if(pair? lst_82)(pair? lst_275) #f)" +"(let-values(((key_92)(unsafe-car lst_82))" +"((rest_147)(unsafe-cdr lst_82))" +"((id_117)(unsafe-car lst_275))" +"((rest_189)(unsafe-cdr lst_275)))" +"(let-values(((env_26)" +"(let-values(((env_27) env_25))" +"(let-values(((env_28)" "(let-values()" "(env-extend" -" env_26" -" key_90" +" env_27" +" key_92" "(local-variable1.1" -" id_118)))))" -"(values env_27)))))" +" id_117)))))" +"(values env_28)))))" "(if(not #f)" -"(for-loop_227 env_25 rest_147 rest_189)" -" env_25)))" -" env_24)))))" -" for-loop_227)" +"(for-loop_231 env_26 rest_147 rest_189)" +" env_26)))" +" env_25)))))" +" for-loop_231)" "(expand-context-env ctx_78)" -" lst_79" -" lst_89)))))" +" lst_80" +" lst_90)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -62437,39 +62628,39 @@ static const char *startup_source = "(values))))" "(let-values(((body-ctx_4)" "(let-values(((v_255) ctx_78))" -"(let-values(((the-struct_95) v_255))" -"(if(expand-context/outer? the-struct_95)" +"(let-values(((the-struct_94) v_255))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((env42_0) body-env_0)" -"((scopes43_0)(cons sc_31(expand-context-scopes ctx_78)))" +"((scopes43_1)(cons sc_31(expand-context-scopes ctx_78)))" "((binding-layer44_0)" "(increment-binding-layer ids_33 ctx_78 sc_31))" "((frame-id45_0) #f)" "((inner46_0)(root-expand-context/outer-inner v_255)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_95)" -"(root-expand-context/outer-use-site-scopes the-struct_95)" +"(root-expand-context/outer-post-expansion-scope the-struct_94)" +"(root-expand-context/outer-use-site-scopes the-struct_94)" " frame-id45_0" -"(expand-context/outer-context the-struct_95)" +"(expand-context/outer-context the-struct_94)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_95)" -" scopes43_0" -"(expand-context/outer-def-ctx-scopes the-struct_95)" +"(expand-context/outer-post-expansion-scope-action the-struct_94)" +" scopes43_1" +"(expand-context/outer-def-ctx-scopes the-struct_94)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_95)" -"(expand-context/outer-only-immediate? the-struct_95)" -"(expand-context/outer-need-eventually-defined the-struct_95)" -"(expand-context/outer-current-introduction-scopes the-struct_95)" -"(expand-context/outer-name the-struct_95)))" +"(expand-context/outer-reference-records the-struct_94)" +"(expand-context/outer-only-immediate? the-struct_94)" +"(expand-context/outer-need-eventually-defined the-struct_94)" +"(expand-context/outer-current-introduction-scopes the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_94))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" "((temp49_3)" -"(let-values(((ctx50_0) ctx_78)((s51_2) s_68)((temp52_6) #t))" +"(let-values(((ctx50_0) ctx_78)((s51_2) s_67)((temp52_6) #t))" "(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx50_0 s51_2))))" "(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" @@ -62488,53 +62679,53 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_427) disarmed-s_6))" -"(let-values(((orig-s_40) s_427))" +"(let-values(((s_426) disarmed-s_6))" +"(let-values(((orig-s_41) s_426))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_66)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))" -"(if(pair? s_66)" -"(let-values(((lambda56_0)(let-values(((s_494)(car s_66))) s_494))" +"(let-values(((s_161)(if(syntax?$1 s_426)(syntax-e$1 s_426) s_426)))" +"(if(pair? s_161)" +"(let-values(((lambda56_0)(let-values(((s_493)(car s_161))) s_493))" "((formals57_0 body58_0)" -"(let-values(((s_476)(cdr s_66)))" -"(let-values(((s_470)" -"(if(syntax?$1 s_476)" -"(syntax-e$1 s_476)" -" s_476)))" -"(if(pair? s_470)" +"(let-values(((s_475)(cdr s_161)))" +"(let-values(((s_469)" +"(if(syntax?$1 s_475)" +"(syntax-e$1 s_475)" +" s_475)))" +"(if(pair? s_469)" "(let-values(((formals59_0)" -"(let-values(((s_457)(car s_470)))" -" s_457))" +"(let-values(((s_456)(car s_469)))" +" s_456))" "((body60_0)" -"(let-values(((s_165)(cdr s_470)))" -"(let-values(((s_75)" -"(if(syntax?$1 s_165)" -"(syntax-e$1 s_165)" -" s_165)))" +"(let-values(((s_66)(cdr s_469)))" +"(let-values(((s_74)" +"(if(syntax?$1 s_66)" +"(syntax-e$1 s_66)" +" s_66)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_75)))" +" s_74)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" +" orig-s_41))" "(if(null? flat-s_27)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" +" orig-s_41))" "(let-values()" " flat-s_27))))))))" "(values formals59_0 body60_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_40))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))))))" "(values lambda56_0 formals57_0 body58_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx61_0) ctx_79)((s62_0) s_15)((temp63_4) #t))" -"(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx61_0 s62_0))))" +"(let-values(((ctx61_0) ctx_79)((s62_0) s_15)((temp63_5) #t))" +"(keep-as-needed74.1 #f #f #f #f temp63_5 #t ctx61_0 s62_0))))" "(let-values(((formals_2 body_13)" "(lambda-clause-expander s_15 disarmed-s_6 formals54_0 body55_0 ctx_79 'lambda-renames)))" "(if(expand-context-to-parsed? ctx_79)" @@ -62544,64 +62735,64 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_495)" +"(lambda(s_494)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_496) s_495))" -"(let-values(((orig-s_41) s_496))" +"(let-values(((s_495) s_494))" +"(let-values(((orig-s_42) s_495))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_309)(if(syntax?$1 s_496)(syntax-e$1 s_496) s_496)))" -"(if(pair? s_309)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_309))) s_48))" +"(let-values(((s_308)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" +"(if(pair? s_308)" +"(let-values(((lam-id69_0)(let-values(((s_48)(car s_308))) s_48))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_309)))" +"(let-values(((s_49)(cdr s_308)))" "(let-values(((s_32)" "(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_497)(car s_32))) s_497))" +"(let-values(((s_496)(car s_32))) s_496))" "((_73_0)" -"(let-values(((s_310)(cdr s_32)))" -"(let-values(((s_388)" -"(if(syntax?$1 s_310)" -"(syntax-e$1 s_310)" -" s_310)))" +"(let-values(((s_309)(cdr s_32)))" +"(let-values(((s_387)" +"(if(syntax?$1 s_309)" +"(syntax-e$1 s_309)" +" s_309)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_388)))" +"(to-syntax-list.1 s_387)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))" +" orig-s_42))" "(if(null? flat-s_25)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))" +" orig-s_42))" "(let-values() flat-s_25))))))))" "(values formals72_0 _73_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))))))" "(values lam-id69_0 formals70_0 _71_1))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_495)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_494)))" "(let-values(((ctx_80)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" -"(let-values(((phase_144)(if ctx_80(expand-context-phase ctx_80) 0)))" +"(let-values(((phase_143)(if ctx_80(expand-context-phase ctx_80) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_144) ((s76_1) s_495) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_143) ((s76_1) s_494) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_1 #f #f))" "(datum->syntax$1" -" s_495" +" s_494" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_144) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_495)))" -" s_495" -" s_495)))))))))" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_143) 'lambda lam-id66_0 lam-id66_0)" +"(cdr(syntax-e$1 s_494)))" +" s_494" +" s_494)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_498 ctx_81)" +"(lambda(s_497 ctx_81)" "(let-values((()" "(begin" "(let-values(((obs_89)(expand-context-observer ctx_81)))" @@ -62609,47 +62800,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_498)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_497)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_499) disarmed-s_7))" -"(let-values(((orig-s_42) s_499))" +"(let-values(((s_498) disarmed-s_7))" +"(let-values(((orig-s_43) s_498))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_36)(if(syntax?$1 s_499)(syntax-e$1 s_499) s_499)))" +"(let-values(((s_36)(if(syntax?$1 s_498)(syntax-e$1 s_498) s_498)))" "(if(pair? s_36)" "(let-values(((case-lambda82_0)(let-values(((s_59)(car s_36))) s_59))" "((formals83_0 body84_0)" -"(let-values(((s_410)(cdr s_36)))" -"(let-values(((s_500)" -"(if(syntax?$1 s_410)" -"(syntax-e$1 s_410)" -" s_410)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_500)))" +"(let-values(((s_409)(cdr s_36)))" +"(let-values(((s_499)" +"(if(syntax?$1 s_409)" +"(syntax-e$1 s_409)" +" s_409)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_499)))" "(if(not flat-s_28)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_331) flat-s_28))" +"(let-values(((lst_333) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_331)))" -"((letrec-values(((for-loop_287)" +"(check-list lst_333)))" +"((letrec-values(((for-loop_293)" "(lambda(formals_4" " body_15" -" lst_332)" +" lst_334)" "(begin" " 'for-loop" "(if(pair?" -" lst_332)" +" lst_334)" "(let-values(((s_61)" "(unsafe-car" -" lst_332))" +" lst_334))" "((rest_190)" "(unsafe-cdr" -" lst_332)))" +" lst_334)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -62671,37 +62862,37 @@ static const char *startup_source = "(if(pair?" " s_64)" "(let-values(((formals85_0)" -"(let-values(((s_501)" +"(let-values(((s_500)" "(car" " s_64)))" -" s_501))" +" s_500))" "((body86_0)" -"(let-values(((s_198)" +"(let-values(((s_197)" "(cdr" " s_64)))" -"(let-values(((s_396)" +"(let-values(((s_395)" "(if(syntax?$1" -" s_198)" +" s_197)" "(syntax-e$1" -" s_198)" -" s_198)))" +" s_197)" +" s_197)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_396)))" +" s_395)))" "(if(not" " flat-s_29)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_43))" "(if(null?" " flat-s_29)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_43))" "(let-values()" " flat-s_29))))))))" "(values" @@ -62710,7 +62901,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))))))" +" orig-s_43))))))" "(values" "(cons" " formals91_0" @@ -62723,7 +62914,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_293" " formals_5" " body_16" " rest_190)" @@ -62733,69 +62924,69 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_287)" +" for-loop_293)" " null" " null" -" lst_331)))))" +" lst_333)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" "(values case-lambda82_0 formals83_0 body84_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_199) disarmed-s_7))" -"(let-values(((orig-s_43) s_199))" +"(let-values(((s_198) disarmed-s_7))" +"(let-values(((orig-s_44) s_198))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_502)(if(syntax?$1 s_199)(syntax-e$1 s_199) s_199)))" -"(if(pair? s_502)" +"(let-values(((s_501)(if(syntax?$1 s_198)(syntax-e$1 s_198) s_198)))" +"(if(pair? s_501)" "(let-values(((case-lambda89_0)" -"(let-values(((s_503)(car s_502))) s_503))" +"(let-values(((s_502)(car s_501))) s_502))" "((clause90_0)" -"(let-values(((s_504)(cdr s_502)))" -"(let-values(((s_87)" -"(if(syntax?$1 s_504)" -"(syntax-e$1 s_504)" -" s_504)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_87)))" +"(let-values(((s_503)(cdr s_501)))" +"(let-values(((s_86)" +"(if(syntax?$1 s_503)" +"(syntax-e$1 s_503)" +" s_503)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_86)))" "(if(not flat-s_30)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" "(let-values() flat-s_30)))))))" "(values case-lambda89_0 clause90_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_81)((s94_0) s_498)((temp95_4) #t))" +"(let-values(((ctx93_0) ctx_81)((s94_0) s_497)((temp95_4) #t))" "(keep-as-needed74.1 #f #f #f #f temp95_4 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_333) formals80_0)((lst_334) body81_0)((lst_155) clause88_0))" +"(let-values(((lst_335) formals80_0)((lst_336) body81_0)((lst_155) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_333)))" +"(let-values()(check-list lst_335)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_334)))" +"(let-values()(check-list lst_336)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_177)" -"(lambda(fold-var_140 lst_107 lst_335 lst_108)" +"((letrec-values(((for-loop_178)" +"(lambda(fold-var_141 lst_108 lst_337 lst_109)" "(begin" " 'for-loop" -"(if(if(pair? lst_107)" -"(if(pair? lst_335)(pair? lst_108) #f)" +"(if(if(pair? lst_108)" +"(if(pair? lst_337)(pair? lst_109) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_107))" -"((rest_52)(unsafe-cdr lst_107))" -"((body_19)(unsafe-car lst_335))" -"((rest_191)(unsafe-cdr lst_335))" -"((clause_3)(unsafe-car lst_108))" -"((rest_192)(unsafe-cdr lst_108)))" -"(let-values(((fold-var_302)" -"(let-values(((fold-var_303) fold-var_140))" +"(let-values(((formals_8)(unsafe-car lst_108))" +"((rest_52)(unsafe-cdr lst_108))" +"((body_19)(unsafe-car lst_337))" +"((rest_191)(unsafe-cdr lst_337))" +"((clause_3)(unsafe-car lst_109))" +"((rest_192)(unsafe-cdr lst_109)))" +"(let-values(((fold-var_304)" +"(let-values(((fold-var_305) fold-var_141))" "(let-values(((fold-var_95)" "(let-values()" "(cons" @@ -62830,7 +63021,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_498" +" s_497" " disarmed-s_7" " formals_8" " body_19" @@ -62852,16 +63043,16 @@ static const char *startup_source = " #f" " rebuild-clause98_0" " temp99_4)))))))" -" fold-var_303))))" +" fold-var_305))))" "(values fold-var_95)))))" "(if(not #f)" -"(for-loop_177 fold-var_302 rest_52 rest_191 rest_192)" -" fold-var_302)))" -" fold-var_140)))))" -" for-loop_177)" +"(for-loop_178 fold-var_304 rest_52 rest_191 rest_192)" +" fold-var_304)))" +" fold-var_141)))))" +" for-loop_178)" " null" -" lst_333" -" lst_334" +" lst_335" +" lst_336" " lst_155))))))" "(if(expand-context-to-parsed? ctx_81)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" @@ -62869,7 +63060,7 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_32 s_94)" +"(lambda(all-formals_0 sc_32 s_93)" "(begin" "((letrec-values(((loop_121)" "(lambda(formals_9)" @@ -62884,21 +63075,21 @@ static const char *startup_source = "(let-values()(loop_121 p_84))" "(if(null? p_84)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_94 p_84))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_93 p_84))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_94 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_93 (car formals_9))))" "(cons" "(if sc_32(add-scope(car formals_9) sc_32)(car formals_9))" "(loop_121(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_94 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_93 all-formals_0))))))))))" " loop_121)" " all-formals_0))))" "(define-values" @@ -62938,7 +63129,7 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_324 ctx_82)" +"(lambda(s_323 ctx_82)" "(let-values((()" "(begin" "(let-values(((obs_90)(expand-context-observer ctx_82)))" @@ -62946,7 +63137,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_90 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_324)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_323)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -62954,58 +63145,58 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_120) disarmed-s_8))" +"(let-values(((s_119) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_44) s_120))" +"(let-values(((orig-s_45) s_119))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_408)" -"(if(syntax?$1 s_120)" -"(syntax-e$1 s_120)" -" s_120)))" -"(if(pair? s_408)" +"(let-values(((s_407)" +"(if(syntax?$1 s_119)" +"(syntax-e$1 s_119)" +" s_119)))" +"(if(pair? s_407)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_505)(car s_408))) s_505))" +"(let-values(((s_504)(car s_407))) s_504))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_222)(cdr s_408)))" -"(let-values(((s_506)" -"(if(syntax?$1 s_222)" -"(syntax-e$1 s_222)" -" s_222)))" -"(if(pair? s_506)" +"(let-values(((s_221)(cdr s_407)))" +"(let-values(((s_505)" +"(if(syntax?$1 s_221)" +"(syntax-e$1 s_221)" +" s_221)))" +"(if(pair? s_505)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(car" -" s_506)))" -"(let-values(((s_508)" +" s_505)))" +"(let-values(((s_507)" "(if(syntax?$1" -" s_507)" +" s_506)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_506)" +" s_506)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_508)))" +" s_507)))" "(if(not" " flat-s_31)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_336)" +"(let-values(((lst_338)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63013,8 +63204,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_336)))" -"((letrec-values(((for-loop_131)" +" lst_338)))" +"((letrec-values(((for-loop_130)" "(lambda(id:trans_1" " trans-rhs_1" " lst_2)" @@ -63022,7 +63213,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_2)" -"(let-values(((s_229)" +"(let-values(((s_228)" "(unsafe-car" " lst_2))" "((rest_193)" @@ -63040,37 +63231,37 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_509)" +"(let-values(((s_508)" "(if(syntax?$1" -" s_229)" +" s_228)" "(syntax-e$1" -" s_229)" -" s_229)))" +" s_228)" +" s_228)))" "(if(pair?" -" s_509)" +" s_508)" "(let-values(((id:trans119_0)" -"(let-values(((s_334)" +"(let-values(((s_333)" "(car" -" s_509)))" -"(let-values(((s_335)" +" s_508)))" +"(let-values(((s_334)" "(if(syntax?$1" -" s_334)" +" s_333)" "(syntax-e$1" -" s_334)" -" s_334)))" +" s_333)" +" s_333)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_335)))" +" s_334)))" "(if(not" " flat-s_32)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_337)" +"(let-values(((lst_339)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63078,20 +63269,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_337)))" -"((letrec-values(((for-loop_134)" +" lst_339)))" +"((letrec-values(((for-loop_133)" "(lambda(id:trans_6" -" lst_213)" +" lst_214)" "(begin" " 'for-loop" "(if(pair?" -" lst_213)" -"(let-values(((s_510)" +" lst_214)" +"(let-values(((s_509)" "(unsafe-car" -" lst_213))" +" lst_214))" "((rest_194)" "(unsafe-cdr" -" lst_213)))" +" lst_214)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -63099,23 +63290,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_378)" +"(if(let-values(((or-part_382)" "(if(syntax?$1" -" s_510)" +" s_509)" "(symbol?" "(syntax-e$1" -" s_510))" +" s_509))" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_382" +" or-part_382" "(symbol?" -" s_510)))" -" s_510" +" s_509)))" +" s_509" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_44" -" s_510)))))" +" orig-s_45" +" s_509)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -63123,63 +63314,63 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_133" " id:trans_7" " rest_194)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_134)" +" for-loop_133)" " null" -" lst_337)))))" +" lst_339)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" +"(let-values(((s_510)" +"(cdr" +" s_508)))" "(let-values(((s_511)" -"(cdr" -" s_509)))" -"(let-values(((s_512)" "(if(syntax?$1" -" s_511)" +" s_510)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_510)" +" s_510)))" "(if(pair?" -" s_512)" +" s_511)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_235)" +"(let-values(((s_234)" "(car" -" s_512)))" -" s_235))" +" s_511)))" +" s_234))" "(()" -"(let-values(((s_236)" +"(let-values(((s_235)" "(cdr" -" s_512)))" -"(let-values(((s_237)" +" s_511)))" +"(let-values(((s_236)" "(if(syntax?$1" -" s_236)" +" s_235)" "(syntax-e$1" -" s_236)" -" s_236)))" +" s_235)" +" s_235)))" "(if(null?" -" s_237)" +" s_236)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " trans-rhs121_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " id:trans119_0" " trans-rhs120_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" "(cons" " id:trans145_0" @@ -63192,7 +63383,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_130" " id:trans_2" " trans-rhs_2" " rest_193)" @@ -63202,10 +63393,10 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_131)" +" for-loop_130)" " null" " null" -" lst_336)))))" +" lst_338)))))" "(values" "(reverse$1" " id:trans_0)" @@ -63214,41 +63405,41 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_342)" +"(let-values(((s_341)" "(cdr" -" s_506)))" -"(let-values(((s_343)" +" s_505)))" +"(let-values(((s_342)" "(if(syntax?$1" -" s_342)" +" s_341)" "(syntax-e$1" -" s_342)" -" s_342)))" -"(if(pair? s_343)" +" s_341)" +" s_341)))" +"(if(pair? s_342)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_513)" +"(let-values(((s_512)" "(car" -" s_343)))" -"(let-values(((s_344)" +" s_342)))" +"(let-values(((s_343)" "(if(syntax?$1" -" s_513)" +" s_512)" "(syntax-e$1" -" s_513)" -" s_513)))" +" s_512)" +" s_512)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_344)))" +" s_343)))" "(if(not" " flat-s_33)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_141)" +"(let-values(((lst_142)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63256,21 +63447,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_141)))" -"((letrec-values(((for-loop_288)" +" lst_142)))" +"((letrec-values(((for-loop_294)" "(lambda(id:val_1" " val-rhs_2" -" lst_338)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_338)" -"(let-values(((s_349)" +" lst_340)" +"(let-values(((s_348)" "(unsafe-car" -" lst_338))" +" lst_340))" "((rest_195)" "(unsafe-cdr" -" lst_338)))" +" lst_340)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -63283,37 +63474,37 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_514)" +"(let-values(((s_513)" "(if(syntax?$1" -" s_349)" +" s_348)" "(syntax-e$1" -" s_349)" -" s_349)))" +" s_348)" +" s_348)))" "(if(pair?" -" s_514)" +" s_513)" "(let-values(((id:val125_0)" -"(let-values(((s_354)" +"(let-values(((s_353)" "(car" -" s_514)))" -"(let-values(((s_355)" +" s_513)))" +"(let-values(((s_354)" "(if(syntax?$1" -" s_354)" +" s_353)" "(syntax-e$1" -" s_354)" -" s_354)))" +" s_353)" +" s_353)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_355)))" +" s_354)))" "(if(not" " flat-s_34)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_339)" +"(let-values(((lst_341)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63321,20 +63512,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_289)" +" lst_341)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_6" -" lst_340)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" -"(let-values(((s_515)" +" lst_342)" +"(let-values(((s_514)" "(unsafe-car" -" lst_340))" +" lst_342))" "((rest_196)" "(unsafe-cdr" -" lst_340)))" +" lst_342)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63342,23 +63533,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_379)" +"(if(let-values(((or-part_383)" "(if(syntax?$1" -" s_515)" +" s_514)" "(symbol?" "(syntax-e$1" -" s_515))" +" s_514))" " #f)))" -"(if or-part_379" -" or-part_379" +"(if or-part_383" +" or-part_383" "(symbol?" -" s_515)))" -" s_515" +" s_514)))" +" s_514" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_44" -" s_515)))))" +" orig-s_45" +" s_514)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -63366,63 +63557,63 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_295" " id:val_7" " rest_196)" " id:val_7)))" " id:val_6)))))" -" for-loop_289)" +" for-loop_295)" " null" -" lst_339)))))" +" lst_341)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_516)" +"(let-values(((s_515)" "(cdr" -" s_514)))" -"(let-values(((s_243)" +" s_513)))" +"(let-values(((s_242)" "(if(syntax?$1" -" s_516)" +" s_515)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_515)" +" s_515)))" "(if(pair?" -" s_243)" +" s_242)" "(let-values(((val-rhs127_0)" -"(let-values(((s_517)" +"(let-values(((s_516)" "(car" -" s_243)))" -" s_517))" +" s_242)))" +" s_516))" "(()" -"(let-values(((s_518)" +"(let-values(((s_517)" "(cdr" -" s_243)))" -"(let-values(((s_519)" +" s_242)))" +"(let-values(((s_518)" "(if(syntax?$1" -" s_518)" +" s_517)" "(syntax-e$1" -" s_518)" -" s_518)))" +" s_517)" +" s_517)))" "(if(null?" -" s_519)" +" s_518)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " val-rhs127_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " id:val125_0" " val-rhs126_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" "(cons" " id:val148_0" @@ -63435,7 +63626,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_294" " id:val_2" " val-rhs_3" " rest_195)" @@ -63445,42 +63636,42 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_288)" +" for-loop_294)" " null" " null" -" lst_141)))))" +" lst_142)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_244)" +"(let-values(((s_243)" "(cdr" -" s_343)))" -"(let-values(((s_245)" +" s_342)))" +"(let-values(((s_244)" "(if(syntax?$1" -" s_244)" +" s_243)" "(syntax-e$1" -" s_244)" -" s_244)))" +" s_243)" +" s_243)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_245)))" +" s_244)))" "(if(not" " flat-s_35)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(if(null?" " flat-s_35)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" " flat-s_35))))))))" "(values" @@ -63490,7 +63681,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " id:trans114_0" " trans-rhs115_0" @@ -63500,7 +63691,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " letrec-syntaxes+values108_0" " id:trans109_0" @@ -63508,7 +63699,7 @@ static const char *startup_source = " id:val111_0" " val-rhs112_0" " body113_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" "(values" " #t" " letrec-syntaxes+values102_1" @@ -63519,50 +63710,50 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_520) disarmed-s_8))" +"(let-values(((s_519) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_520))" +"(let-values(((orig-s_46) s_519))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_249)" +"(let-values(((s_248)" +"(if(syntax?$1 s_519)" +"(syntax-e$1 s_519)" +" s_519)))" +"(if(pair? s_248)" +"(let-values(((let-values132_0)" +"(let-values(((s_251)(car s_248)))" +" s_251))" +"((id:val133_0 val-rhs134_0 body135_0)" +"(let-values(((s_520)(cdr s_248)))" +"(let-values(((s_444)" "(if(syntax?$1 s_520)" "(syntax-e$1 s_520)" " s_520)))" -"(if(pair? s_249)" -"(let-values(((let-values132_0)" -"(let-values(((s_252)(car s_249)))" -" s_252))" -"((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_521)(cdr s_249)))" -"(let-values(((s_445)" -"(if(syntax?$1 s_521)" -"(syntax-e$1 s_521)" -" s_521)))" -"(if(pair? s_445)" +"(if(pair? s_444)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_360)" +"(let-values(((s_359)" "(car" -" s_445)))" -"(let-values(((s_253)" +" s_444)))" +"(let-values(((s_252)" "(if(syntax?$1" -" s_360)" +" s_359)" "(syntax-e$1" -" s_360)" -" s_360)))" +" s_359)" +" s_359)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_253)))" +" s_252)))" "(if(not" " flat-s_36)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_341)" +"(let-values(((lst_343)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63570,21 +63761,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_290)" +" lst_343)))" +"((letrec-values(((for-loop_296)" "(lambda(id:val_11" " val-rhs_7" -" lst_342)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((s_369)" +" lst_344)" +"(let-values(((s_368)" "(unsafe-car" -" lst_342))" +" lst_344))" "((rest_197)" "(unsafe-cdr" -" lst_342)))" +" lst_344)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -63597,37 +63788,37 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_522)" +"(let-values(((s_521)" "(if(syntax?$1" -" s_369)" +" s_368)" "(syntax-e$1" -" s_369)" -" s_369)))" +" s_368)" +" s_368)))" "(if(pair?" -" s_522)" +" s_521)" "(let-values(((id:val139_0)" -"(let-values(((s_373)" +"(let-values(((s_372)" "(car" -" s_522)))" -"(let-values(((s_374)" +" s_521)))" +"(let-values(((s_373)" "(if(syntax?$1" -" s_373)" +" s_372)" "(syntax-e$1" -" s_373)" -" s_373)))" +" s_372)" +" s_372)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_374)))" +" s_373)))" "(if(not" " flat-s_37)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_343)" +"(let-values(((lst_345)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63635,20 +63826,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_291)" +" lst_345)))" +"((letrec-values(((for-loop_297)" "(lambda(id:val_16" -" lst_344)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" -"(let-values(((s_378)" +" lst_346)" +"(let-values(((s_377)" "(unsafe-car" -" lst_344))" +" lst_346))" "((rest_198)" "(unsafe-cdr" -" lst_344)))" +" lst_346)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -63656,23 +63847,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_350)" +"(if(let-values(((or-part_353)" "(if(syntax?$1" -" s_378)" +" s_377)" "(symbol?" "(syntax-e$1" -" s_378))" +" s_377))" " #f)))" -"(if or-part_350" -" or-part_350" +"(if or-part_353" +" or-part_353" "(symbol?" -" s_378)))" -" s_378" +" s_377)))" +" s_377" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_45" -" s_378)))))" +" orig-s_46" +" s_377)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -63680,63 +63871,63 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_297" " id:val_17" " rest_198)" " id:val_17)))" " id:val_16)))))" -" for-loop_291)" +" for-loop_297)" " null" -" lst_343)))))" +" lst_345)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_122)" +"(let-values(((s_121)" "(cdr" -" s_522)))" -"(let-values(((s_256)" +" s_521)))" +"(let-values(((s_255)" "(if(syntax?$1" -" s_122)" +" s_121)" "(syntax-e$1" -" s_122)" -" s_122)))" +" s_121)" +" s_121)))" "(if(pair?" -" s_256)" +" s_255)" "(let-values(((val-rhs141_0)" -"(let-values(((s_258)" +"(let-values(((s_257)" "(car" -" s_256)))" -" s_258))" +" s_255)))" +" s_257))" "(()" -"(let-values(((s_523)" +"(let-values(((s_522)" "(cdr" -" s_256)))" -"(let-values(((s_524)" +" s_255)))" +"(let-values(((s_523)" "(if(syntax?$1" -" s_523)" +" s_522)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_522)" +" s_522)))" "(if(null?" -" s_524)" +" s_523)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" " val-rhs141_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" " id:val139_0" " val-rhs140_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" "(cons" " id:val151_0" @@ -63749,7 +63940,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_296" " id:val_12" " val-rhs_8" " rest_197)" @@ -63759,42 +63950,42 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_290)" +" for-loop_296)" " null" " null" -" lst_341)))))" +" lst_343)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_525)" +"(let-values(((s_524)" "(cdr" -" s_445)))" -"(let-values(((s_259)" +" s_444)))" +"(let-values(((s_258)" "(if(syntax?$1" -" s_525)" +" s_524)" "(syntax-e$1" -" s_525)" -" s_525)))" +" s_524)" +" s_524)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_259)))" +" s_258)))" "(if(not" " flat-s_38)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(if(null?" " flat-s_38)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(let-values()" " flat-s_38))))))))" "(values" @@ -63804,43 +63995,43 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" " let-values132_0" " id:val133_0" " val-rhs134_0" " body135_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_33)(new-scope 'local)))" -"(let-values(((phase_145)(expand-context-phase ctx_82)))" +"(let-values(((phase_144)(expand-context-phase ctx_82)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_345)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_347)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_345)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_304 lst_346)" +"(let-values()(check-list lst_347)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_306 lst_348)" "(begin" " 'for-loop" -"(if(pair? lst_346)" +"(if(pair? lst_348)" "(let-values(((ids_35)" -"(unsafe-car lst_346))" +"(unsafe-car lst_348))" "((rest_199)" -"(unsafe-cdr lst_346)))" -"(let-values(((fold-var_305)" -"(let-values(((fold-var_306)" -" fold-var_304))" +"(unsafe-cdr lst_348)))" "(let-values(((fold-var_307)" +"(let-values(((fold-var_308)" +" fold-var_306))" +"(let-values(((fold-var_309)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_347)" +"(let-values(((lst_349)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63848,78 +64039,78 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_293)" -"(lambda(fold-var_308" -" lst_348)" +" lst_349)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_310" +" lst_350)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" -"(let-values(((id_119)" +" lst_350)" +"(let-values(((id_118)" "(unsafe-car" -" lst_348))" +" lst_350))" "((rest_200)" "(unsafe-cdr" -" lst_348)))" -"(let-values(((fold-var_309)" -"(let-values(((fold-var_310)" -" fold-var_308))" -"(let-values(((fold-var_100)" -"(let-values()" -"(cons" -"(let-values()" -"(add-scope" -" id_119" -" sc_33))" -" fold-var_310))))" -"(values" -" fold-var_100)))))" -"(if(not" -" #f)" -"(for-loop_293" -" fold-var_309" -" rest_200)" -" fold-var_309)))" -" fold-var_308)))))" -" for-loop_293)" -" null" -" lst_347)))))" -" fold-var_306))))" -"(values" -" fold-var_307)))))" -"(if(not #f)" -"(for-loop_292 fold-var_305 rest_199)" -" fold-var_305)))" -" fold-var_304)))))" -" for-loop_292)" -" null" -" lst_345))))))" -"(let-values(((val-idss_3)" -"(reverse$1" -"(let-values(((lst_349)(if syntaxes?_0 id:val105_0 id:val129_0)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_349)))" -"((letrec-values(((for-loop_294)" -"(lambda(fold-var_103 lst_350)" -"(begin" -" 'for-loop" -"(if(pair? lst_350)" -"(let-values(((ids_36)" -"(unsafe-car lst_350))" -"((rest_201)" -"(unsafe-cdr lst_350)))" +" lst_350)))" "(let-values(((fold-var_311)" "(let-values(((fold-var_312)" -" fold-var_103))" +" fold-var_310))" "(let-values(((fold-var_313)" "(let-values()" "(cons" "(let-values()" +"(add-scope" +" id_118" +" sc_33))" +" fold-var_312))))" +"(values" +" fold-var_313)))))" +"(if(not" +" #f)" +"(for-loop_299" +" fold-var_311" +" rest_200)" +" fold-var_311)))" +" fold-var_310)))))" +" for-loop_299)" +" null" +" lst_349)))))" +" fold-var_308))))" +"(values" +" fold-var_309)))))" +"(if(not #f)" +"(for-loop_298 fold-var_307 rest_199)" +" fold-var_307)))" +" fold-var_306)))))" +" for-loop_298)" +" null" +" lst_347))))))" +"(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_351)" +"(let-values(((lst_351)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_351)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_314 lst_352)" +"(begin" +" 'for-loop" +"(if(pair? lst_352)" +"(let-values(((ids_36)" +"(unsafe-car lst_352))" +"((rest_201)" +"(unsafe-cdr lst_352)))" +"(let-values(((fold-var_315)" +"(let-values(((fold-var_316)" +" fold-var_314))" +"(let-values(((fold-var_99)" +"(let-values()" +"(cons" +"(let-values()" +"(reverse$1" +"(let-values(((lst_353)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63927,105 +64118,105 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_351)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_314" -" lst_352)" +" lst_353)))" +"((letrec-values(((for-loop_153)" +"(lambda(fold-var_100" +" lst_354)" "(begin" " 'for-loop" "(if(pair?" -" lst_352)" -"(let-values(((id_120)" +" lst_354)" +"(let-values(((id_119)" "(unsafe-car" -" lst_352))" +" lst_354))" "((rest_202)" "(unsafe-cdr" -" lst_352)))" -"(let-values(((fold-var_315)" -"(let-values(((fold-var_316)" -" fold-var_314))" +" lst_354)))" +"(let-values(((fold-var_104)" "(let-values(((fold-var_317)" +" fold-var_100))" +"(let-values(((fold-var_318)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_120" +" id_119" " sc_33))" -" fold-var_316))))" +" fold-var_317))))" "(values" -" fold-var_317)))))" +" fold-var_318)))))" "(if(not" " #f)" -"(for-loop_295" -" fold-var_315" +"(for-loop_153" +" fold-var_104" " rest_202)" +" fold-var_104)))" +" fold-var_100)))))" +" for-loop_153)" +" null" +" lst_353)))))" +" fold-var_316))))" +"(values" +" fold-var_99)))))" +"(if(not #f)" +"(for-loop_300" +" fold-var_315" +" rest_201)" " fold-var_315)))" " fold-var_314)))))" -" for-loop_295)" +" for-loop_300)" " null" -" lst_351)))))" -" fold-var_312))))" -"(values" -" fold-var_313)))))" -"(if(not #f)" -"(for-loop_294" -" fold-var_311" -" rest_201)" -" fold-var_311)))" -" fold-var_103)))))" -" for-loop_294)" -" null" -" lst_349))))))" +" lst_351))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_353)" +"(let-values(((lst_355)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_318 lst_354)" +"(let-values()(check-list lst_355)))" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_319 lst_356)" "(begin" " 'for-loop" -"(if(pair? lst_354)" +"(if(pair? lst_356)" "(let-values(((rhs_20)" -"(unsafe-car lst_354))" +"(unsafe-car lst_356))" "((rest_203)" -"(unsafe-cdr lst_354)))" -"(let-values(((fold-var_319)" +"(unsafe-cdr lst_356)))" "(let-values(((fold-var_320)" -" fold-var_318))" "(let-values(((fold-var_321)" +" fold-var_319))" +"(let-values(((fold-var_322)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_33))" -" fold-var_320))))" +" fold-var_321))))" "(values" -" fold-var_321)))))" +" fold-var_322)))))" "(if(not #f)" -"(for-loop_268" -" fold-var_319" +"(for-loop_273" +" fold-var_320" " rest_203)" -" fold-var_319)))" -" fold-var_318)))))" -" for-loop_268)" +" fold-var_320)))" +" fold-var_319)))))" +" for-loop_273)" " null" -" lst_353))))" +" lst_355))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values((()" "(begin" -"(let-values(((temp142_2)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_145)" -"((s144_0) s_324))" +"(let-values(((temp142_1)(list trans-idss_2 val-idss_3))" +"((phase143_0) phase_144)" +"((s144_0) s_323))" "(check-no-duplicate-ids8.1" " #f" " #f" -" temp142_2" +" temp142_1" " phase143_0" " s144_0" " #f" @@ -64034,32 +64225,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_355) trans-idss_2))" +"(let-values(((lst_357) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_322 lst_356)" +"(let-values()(check-list lst_357)))" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_323 lst_358)" "(begin" " 'for-loop" -"(if(pair? lst_356)" +"(if(pair? lst_358)" "(let-values(((ids_37)" "(unsafe-car" -" lst_356))" +" lst_358))" "((rest_204)" "(unsafe-cdr" -" lst_356)))" -"(let-values(((fold-var_323)" +" lst_358)))" "(let-values(((fold-var_324)" -" fold-var_322))" "(let-values(((fold-var_325)" +" fold-var_323))" +"(let-values(((fold-var_326)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_357)" +"(let-values(((lst_359)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64067,98 +64258,98 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_357)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_326" -" lst_358)" +" lst_359)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_327" +" lst_360)" "(begin" " 'for-loop" "(if(pair?" -" lst_358)" -"(let-values(((id_121)" +" lst_360)" +"(let-values(((id_120)" "(unsafe-car" -" lst_358))" +" lst_360))" "((rest_205)" "(unsafe-cdr" -" lst_358)))" -"(let-values(((fold-var_327)" +" lst_360)))" "(let-values(((fold-var_328)" -" fold-var_326))" "(let-values(((fold-var_329)" +" fold-var_327))" +"(let-values(((fold-var_330)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id154_0)" -" id_121)" -"((phase155_1)" -" phase_145)" +"(let-values(((id154_1)" +" id_120)" +"((phase155_0)" +" phase_144)" "((counter156_0)" " counter_8)" "((frame-id157_0)" " frame-id_15)" "((s158_1)" -" s_324))" -"(add-local-binding!35.1" +" s_323))" +"(add-local-binding!37.1" " frame-id157_0" " #t" " s158_1" " #t" -" id154_0" -" phase155_1" +" id154_1" +" phase155_0" " counter156_0)))" -" fold-var_328))))" +" fold-var_329))))" "(values" -" fold-var_329)))))" +" fold-var_330)))))" "(if(not" " #f)" -"(for-loop_297" -" fold-var_327" +"(for-loop_302" +" fold-var_328" " rest_205)" -" fold-var_327)))" -" fold-var_326)))))" -" for-loop_297)" +" fold-var_328)))" +" fold-var_327)))))" +" for-loop_302)" " null" -" lst_357)))))" -" fold-var_324))))" +" lst_359)))))" +" fold-var_325))))" "(values" -" fold-var_325)))))" +" fold-var_326)))))" "(if(not #f)" -"(for-loop_296" -" fold-var_323" +"(for-loop_301" +" fold-var_324" " rest_204)" -" fold-var_323)))" -" fold-var_322)))))" -" for-loop_296)" +" fold-var_324)))" +" fold-var_323)))))" +" for-loop_301)" " null" -" lst_355))))))" +" lst_357))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_359) val-idss_3))" +"(let-values(((lst_361) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_359)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_330 lst_123)" +"(let-values()(check-list lst_361)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_331 lst_245)" "(begin" " 'for-loop" -"(if(pair? lst_123)" +"(if(pair? lst_245)" "(let-values(((ids_38)" "(unsafe-car" -" lst_123))" -"((rest_60)" +" lst_245))" +"((rest_206)" "(unsafe-cdr" -" lst_123)))" -"(let-values(((fold-var_331)" +" lst_245)))" "(let-values(((fold-var_332)" -" fold-var_330))" "(let-values(((fold-var_333)" +" fold-var_331))" +"(let-values(((fold-var_334)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_362)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64166,38 +64357,38 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_360)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_334" -" lst_361)" +" lst_362)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_335" +" lst_363)" "(begin" " 'for-loop" "(if(pair?" -" lst_361)" -"(let-values(((id_122)" +" lst_363)" +"(let-values(((id_121)" "(unsafe-car" -" lst_361))" -"((rest_206)" +" lst_363))" +"((rest_207)" "(unsafe-cdr" -" lst_361)))" -"(let-values(((fold-var_335)" +" lst_363)))" "(let-values(((fold-var_336)" -" fold-var_334))" "(let-values(((fold-var_337)" +" fold-var_335))" +"(let-values(((fold-var_338)" "(let-values()" "(cons" "(let-values()" "(let-values(((id159_0)" -" id_122)" +" id_121)" "((phase160_1)" -" phase_145)" +" phase_144)" "((counter161_0)" " counter_8)" "((frame-id162_0)" " frame-id_15)" "((s163_0)" -" s_324))" -"(add-local-binding!35.1" +" s_323))" +"(add-local-binding!37.1" " frame-id162_0" " #t" " s163_0" @@ -64205,73 +64396,73 @@ static const char *startup_source = " id159_0" " phase160_1" " counter161_0)))" -" fold-var_336))))" +" fold-var_337))))" "(values" -" fold-var_337)))))" +" fold-var_338)))))" "(if(not" " #f)" -"(for-loop_299" -" fold-var_335" -" rest_206)" -" fold-var_335)))" -" fold-var_334)))))" -" for-loop_299)" +"(for-loop_304" +" fold-var_336" +" rest_207)" +" fold-var_336)))" +" fold-var_335)))))" +" for-loop_304)" " null" -" lst_360)))))" -" fold-var_332))))" +" lst_362)))))" +" fold-var_333))))" "(values" -" fold-var_333)))))" +" fold-var_334)))))" "(if(not #f)" -"(for-loop_298" -" fold-var_331" -" rest_60)" -" fold-var_331)))" -" fold-var_330)))))" -" for-loop_298)" +"(for-loop_303" +" fold-var_332" +" rest_206)" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_303)" " null" -" lst_359))))))" +" lst_361))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_144)" +"(let-values(((lst_145)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_144)))" -"((letrec-values(((for-loop_171)" -"(lambda(fold-var_338 lst_145)" +"(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_170)" +"(lambda(fold-var_339 lst_146)" "(begin" " 'for-loop" -"(if(pair? lst_145)" +"(if(pair? lst_146)" "(let-values(((body_20)" "(unsafe-car" -" lst_145))" +" lst_146))" "((rest_72)" "(unsafe-cdr" -" lst_145)))" -"(let-values(((fold-var_299)" -"(let-values(((fold-var_300)" -" fold-var_338))" -"(let-values(((fold-var_339)" +" lst_146)))" +"(let-values(((fold-var_301)" +"(let-values(((fold-var_302)" +" fold-var_339))" +"(let-values(((fold-var_340)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_33))" -" fold-var_300))))" +" fold-var_302))))" "(values" -" fold-var_339)))))" +" fold-var_340)))))" "(if(not #f)" -"(for-loop_171" -" fold-var_299" +"(for-loop_170" +" fold-var_301" " rest_72)" -" fold-var_299)))" -" fold-var_338)))))" -" for-loop_171)" +" fold-var_301)))" +" fold-var_339)))))" +" for-loop_170)" " null" -" lst_144))))))" +" lst_145))))))" "(let-values((()" "(begin" "(let-values(((obs_91)" @@ -64309,43 +64500,43 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_362)" +"(let-values(((lst_364)" "(if syntaxes?_0 trans-rhs104_0 '()))" -"((lst_363) trans-idss_2))" +"((lst_365) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" +"(let-values()(check-list lst_364)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_340" -" lst_364" -" lst_365)" +"(let-values()(check-list lst_365)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_341" +" lst_366" +" lst_367)" "(begin" " 'for-loop" -"(if(if(pair? lst_364)" -"(pair? lst_365)" +"(if(if(pair? lst_366)" +"(pair? lst_367)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_364))" -"((rest_207)" -"(unsafe-cdr" -" lst_364))" -"((ids_39)" -"(unsafe-car" -" lst_365))" +" lst_366))" "((rest_208)" "(unsafe-cdr" -" lst_365)))" -"(let-values(((fold-var_341)" +" lst_366))" +"((ids_39)" +"(unsafe-car" +" lst_367))" +"((rest_209)" +"(unsafe-cdr" +" lst_367)))" "(let-values(((fold-var_342)" -" fold-var_340))" "(let-values(((fold-var_343)" +" fold-var_341))" +"(let-values(((fold-var_344)" "(let-values()" "(cons" "(let-values()" @@ -64385,59 +64576,59 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_342))))" +" fold-var_343))))" "(values" -" fold-var_343)))))" +" fold-var_344)))))" "(if(not #f)" -"(for-loop_300" -" fold-var_341" -" rest_207" -" rest_208)" -" fold-var_341)))" -" fold-var_340)))))" -" for-loop_300)" +"(for-loop_305" +" fold-var_342" +" rest_208" +" rest_209)" +" fold-var_342)))" +" fold-var_341)))))" +" for-loop_305)" " null" -" lst_362" -" lst_363))))))" +" lst_364" +" lst_365))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_366) val-keyss_2)" -"((lst_367) val-idss_3))" +"(let-values(((lst_368) val-keyss_2)" +"((lst_369) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" +"(let-values()(check-list lst_368)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_367)))" -"((letrec-values(((for-loop_63)" -"(lambda(env_28" -" lst_368" -" lst_369)" +"(let-values()(check-list lst_369)))" +"((letrec-values(((for-loop_62)" +"(lambda(env_29" +" lst_370" +" lst_371)" "(begin" " 'for-loop" -"(if(if(pair? lst_368)" -"(pair? lst_369)" +"(if(if(pair? lst_370)" +"(pair? lst_371)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_368))" -"((rest_209)" -"(unsafe-cdr" -" lst_368))" -"((ids_40)" -"(unsafe-car" -" lst_369))" +" lst_370))" "((rest_210)" "(unsafe-cdr" -" lst_369)))" -"(let-values(((env_29)" +" lst_370))" +"((ids_40)" +"(unsafe-car" +" lst_371))" +"((rest_211)" +"(unsafe-cdr" +" lst_371)))" "(let-values(((env_30)" -" env_28))" -"(let-values(((lst_370)" +"(let-values(((env_31)" +" env_29))" +"(let-values(((lst_372)" " keys_10)" -"((lst_371)" +"((lst_373)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64445,131 +64636,131 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_370)))" +" lst_372)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_371)))" -"((letrec-values(((for-loop_64)" -"(lambda(env_31" -" lst_372" -" lst_127)" +" lst_373)))" +"((letrec-values(((for-loop_63)" +"(lambda(env_32" +" lst_125" +" lst_374)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_372)" +" lst_125)" "(pair?" -" lst_127)" +" lst_374)" " #f)" -"(let-values(((key_91)" +"(let-values(((key_93)" "(unsafe-car" -" lst_372))" -"((rest_62)" +" lst_125))" +"((rest_212)" "(unsafe-cdr" -" lst_372))" -"((id_123)" +" lst_125))" +"((id_122)" "(unsafe-car" -" lst_127))" -"((rest_211)" +" lst_374))" +"((rest_61)" "(unsafe-cdr" -" lst_127)))" -"(let-values(((env_32)" +" lst_374)))" "(let-values(((env_33)" -" env_31))" "(let-values(((env_34)" +" env_32))" +"(let-values(((env_35)" "(let-values()" "(env-extend" -" env_33" -" key_91" +" env_34" +" key_93" "(local-variable1.1" -" id_123)))))" +" id_122)))))" "(values" -" env_34)))))" +" env_35)))))" "(if(not" " #f)" -"(for-loop_64" -" env_32" -" rest_62" -" rest_211)" -" env_32)))" -" env_31)))))" -" for-loop_64)" -" env_30" -" lst_370" -" lst_371))))))" -"(if(not #f)" "(for-loop_63" -" env_29" -" rest_209" -" rest_210)" -" env_29)))" -" env_28)))))" +" env_33" +" rest_212" +" rest_61)" +" env_33)))" +" env_32)))))" " for-loop_63)" +" env_31" +" lst_372" +" lst_373))))))" +"(if(not #f)" +"(for-loop_62" +" env_30" +" rest_210" +" rest_211)" +" env_30)))" +" env_29)))))" +" for-loop_62)" "(expand-context-env ctx_82)" -" lst_366" -" lst_367)))))" +" lst_368" +" lst_369)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_373) trans-keyss_0)" -"((lst_374) trans-valss_0)" -"((lst_375) trans-idss_2))" +"(let-values(((lst_375) trans-keyss_0)" +"((lst_376) trans-valss_0)" +"((lst_377) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_373)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_374)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_375)))" -"((letrec-values(((for-loop_301)" -"(lambda(env_35" -" lst_376" -" lst_128" -" lst_377)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_376)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_377)))" +"((letrec-values(((for-loop_306)" +"(lambda(env_36" +" lst_378" +" lst_379" +" lst_380)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_376)" +" lst_378)" "(if(pair?" -" lst_128)" +" lst_379)" "(pair?" -" lst_377)" +" lst_380)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_376))" -"((rest_212)" -"(unsafe-cdr" -" lst_376))" -"((vals_9)" -"(unsafe-car" -" lst_128))" -"((rest_63)" -"(unsafe-cdr" -" lst_128))" -"((ids_41)" -"(unsafe-car" -" lst_377))" +" lst_378))" "((rest_213)" "(unsafe-cdr" -" lst_377)))" -"(let-values(((env_36)" +" lst_378))" +"((vals_9)" +"(unsafe-car" +" lst_379))" +"((rest_214)" +"(unsafe-cdr" +" lst_379))" +"((ids_41)" +"(unsafe-car" +" lst_380))" +"((rest_215)" +"(unsafe-cdr" +" lst_380)))" "(let-values(((env_37)" -" env_35))" "(let-values(((env_38)" +" env_36))" +"(let-values(((env_39)" "(let-values()" -"(let-values(((lst_378)" +"(let-values(((lst_381)" " keys_11)" -"((lst_130)" +"((lst_382)" " vals_9)" -"((lst_379)" +"((lst_383)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64577,107 +64768,107 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_378)))" +" lst_381)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_130)))" +" lst_382)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_379)))" -"((letrec-values(((for-loop_302)" -"(lambda(env_39" -" lst_254" -" lst_380" -" lst_381)" +" lst_383)))" +"((letrec-values(((for-loop_307)" +"(lambda(env_40" +" lst_257" +" lst_384" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_254)" +" lst_257)" "(if(pair?" -" lst_380)" +" lst_384)" "(pair?" -" lst_381)" +" lst_385)" " #f)" " #f)" -"(let-values(((key_92)" +"(let-values(((key_94)" "(unsafe-car" -" lst_254))" +" lst_257))" "((rest_135)" "(unsafe-cdr" -" lst_254))" -"((val_80)" +" lst_257))" +"((val_81)" "(unsafe-car" -" lst_380))" -"((rest_214)" +" lst_384))" +"((rest_216)" "(unsafe-cdr" -" lst_380))" -"((id_124)" +" lst_384))" +"((id_123)" "(unsafe-car" -" lst_381))" -"((rest_215)" +" lst_385))" +"((rest_217)" "(unsafe-cdr" -" lst_381)))" -"(let-values(((env_40)" +" lst_385)))" "(let-values(((env_41)" -" env_39))" "(let-values(((env_42)" +" env_40))" +"(let-values(((env_43)" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_80" -" id_124" -" phase_145" +" val_81" +" id_123" +" phase_144" " ctx_82)" "(env-extend" -" env_41" -" key_92" -" val_80)))))" +" env_42" +" key_94" +" val_81)))))" "(values" -" env_42)))))" +" env_43)))))" "(if(not" " #f)" -"(for-loop_302" -" env_40" +"(for-loop_307" +" env_41" " rest_135" +" rest_216" +" rest_217)" +" env_41)))" +" env_40)))))" +" for-loop_307)" +" env_38" +" lst_381" +" lst_382" +" lst_383))))))" +"(values" +" env_39)))))" +"(if(not #f)" +"(for-loop_306" +" env_37" +" rest_213" " rest_214" " rest_215)" -" env_40)))" -" env_39)))))" -" for-loop_302)" -" env_37" -" lst_378" -" lst_130" -" lst_379))))))" -"(values" -" env_38)))))" -"(if(not #f)" -"(for-loop_301" -" env_36" -" rest_212" -" rest_63" -" rest_213)" -" env_36)))" -" env_35)))))" -" for-loop_301)" +" env_37)))" +" env_36)))))" +" for-loop_306)" " rec-val-env_0" -" lst_373" -" lst_374" -" lst_375)))))" +" lst_375" +" lst_376" +" lst_377)))))" "(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_256) expr-ctx_0))" -"(let-values(((the-struct_96) v_256))" +"(let-values(((the-struct_95) v_256))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_95)" "(let-values(((env164_0) rec-env_0)" "((scopes165_0)" "(cons" @@ -64703,43 +64894,43 @@ static const char *startup_source = "(expand-context/outer1.1" " inner168_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_95)" " env164_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_95)" " scopes165_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_95)" " binding-layer167_0" " reference-records166_0" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_95))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed? ctx_82))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_145)" +"(core-id 'letrec-values phase_144)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx169_0) ctx_82)" -"((s170_1) s_324)" +"((s170_1) s_323)" "((temp171_1) #t))" "(keep-as-needed74.1" " #f" @@ -64754,36 +64945,36 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_82)" "(reverse$1" -"(let-values(((lst_382)" +"(let-values(((lst_386)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_382)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_344" -" lst_383)" +"(check-list lst_386)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_117" +" lst_387)" "(begin" " 'for-loop" "(if(pair?" -" lst_383)" +" lst_387)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_383))" -"((rest_216)" +" lst_387))" +"((rest_218)" "(unsafe-cdr" -" lst_383)))" +" lst_387)))" "(let-values(((fold-var_345)" "(let-values(((fold-var_346)" -" fold-var_344))" +" fold-var_117))" "(let-values(((fold-var_347)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_384)" +"(let-values(((lst_388)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64791,24 +64982,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_384)))" -"((letrec-values(((for-loop_304)" +" lst_388)))" +"((letrec-values(((for-loop_309)" "(lambda(fold-var_348" -" lst_385)" +" lst_389)" "(begin" " 'for-loop" "(if(pair?" -" lst_385)" +" lst_389)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_385))" -"((rest_217)" +" lst_389))" +"((rest_219)" "(unsafe-cdr" -" lst_385)))" +" lst_389)))" "(let-values(((fold-var_349)" -"(let-values(((fold-var_350)" +"(let-values(((fold-var_121)" " fold-var_348))" -"(let-values(((fold-var_351)" +"(let-values(((fold-var_122)" "(let-values()" "(cons" "(let-values()" @@ -64818,32 +65009,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_350))))" +" fold-var_121))))" "(values" -" fold-var_351)))))" +" fold-var_122)))))" "(if(not" " #f)" -"(for-loop_304" +"(for-loop_309" " fold-var_349" -" rest_217)" +" rest_219)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_304)" +" for-loop_309)" " null" -" lst_384)))))" +" lst_388)))))" " fold-var_346))))" "(values" " fold-var_347)))))" "(if(not" " #f)" -"(for-loop_303" +"(for-loop_308" " fold-var_345" -" rest_216)" +" rest_218)" " fold-var_345)))" -" fold-var_344)))))" -" for-loop_303)" +" fold-var_117)))))" +" for-loop_308)" " null" -" lst_382))))" +" lst_386))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -64888,10 +65079,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_257)" " rec-ctx_0))" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_96)" " v_257))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_96)" "(let-values(((reference-records175_0)" " orig-rrs_0)" "((inner176_0)" @@ -64900,36 +65091,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner176_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-env" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_96)" " reference-records175_0" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_96))))))" "(let-values(((bodys172_0)" " bodys_10)" "((temp173_0)" @@ -64954,11 +65145,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_386)" +"(let-values(((lst_390)" " val-name-idss_0)" -"((lst_387)" +"((lst_391)" " val-keyss_2)" -"((lst_388)" +"((lst_392)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64966,56 +65157,56 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_386)))" +" lst_390)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_387)))" +" lst_391)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_388)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_352" -" lst_389" +" lst_392)))" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_350" +" lst_393" " lst_60" -" lst_390)" +" lst_394)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_389)" +" lst_393)" "(if(pair?" " lst_60)" "(pair?" -" lst_390)" +" lst_394)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_389))" -"((rest_218)" +" lst_393))" +"((rest_220)" "(unsafe-cdr" -" lst_389))" +" lst_393))" "((keys_12)" "(unsafe-car" " lst_60))" -"((rest_219)" +"((rest_221)" "(unsafe-cdr" " lst_60))" "((rhs_22)" "(unsafe-car" -" lst_390))" -"((rest_220)" +" lst_394))" +"((rest_222)" "(unsafe-cdr" -" lst_390)))" +" lst_394)))" "(let-values(((fold-var_47)" -"(let-values(((fold-var_353)" -" fold-var_352))" -"(let-values(((fold-var_354)" +"(let-values(((fold-var_351)" +" fold-var_350))" +"(let-values(((fold-var_352)" "(let-values()" "(cons" "(let-values()" @@ -65058,23 +65249,23 @@ static const char *startup_source = "(list" " ids_42" " exp-rhs_3)))))" -" fold-var_353))))" +" fold-var_351))))" "(values" -" fold-var_354)))))" +" fold-var_352)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_310" " fold-var_47" -" rest_218" -" rest_219" -" rest_220)" +" rest_220" +" rest_221" +" rest_222)" " fold-var_47)))" -" fold-var_352)))))" -" for-loop_305)" +" fold-var_350)))))" +" for-loop_310)" " null" -" lst_386" -" lst_387" -" lst_388))))))" +" lst_390" +" lst_391" +" lst_392))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -65117,7 +65308,7 @@ static const char *startup_source = " val-rhss_3)" "((temp186_1)" "(reverse$1" -"(let-values(((lst_391)" +"(let-values(((lst_395)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65125,41 +65316,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_391)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_355" -" lst_392)" +" lst_395)))" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_353" +" lst_396)" "(begin" " 'for-loop" "(if(pair?" -" lst_392)" +" lst_396)" "(let-values(((rhs_23)" "(unsafe-car" -" lst_392))" -"((rest_221)" +" lst_396))" +"((rest_223)" "(unsafe-cdr" -" lst_392)))" -"(let-values(((fold-var_124)" +" lst_396)))" +"(let-values(((fold-var_354)" +"(let-values(((fold-var_355)" +" fold-var_353))" "(let-values(((fold-var_356)" -" fold-var_355))" -"(let-values(((fold-var_357)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_356))))" +" fold-var_355))))" "(values" -" fold-var_357)))))" +" fold-var_356)))))" "(if(not" " #f)" -"(for-loop_306" -" fold-var_124" -" rest_221)" -" fold-var_124)))" -" fold-var_355)))))" -" for-loop_306)" +"(for-loop_311" +" fold-var_354" +" rest_223)" +" fold-var_354)))" +" fold-var_353)))))" +" for-loop_311)" " null" -" lst_391)))))" +" lst_395)))))" "((temp187_2)" " #t)" "((frame-id188_0)" @@ -65198,42 +65389,42 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_393) val-idss_4)((lst_394) 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_393)))" +"(let-values()(check-list lst_397)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_394)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_358 lst_395 lst_396)" +"(let-values()(check-list lst_398)))" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_131 lst_399 lst_400)" "(begin" " 'for-loop" -"(if(if(pair? lst_395)(pair? lst_396) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_395))" -"((rest_222)(unsafe-cdr lst_395))" -"((val-rhs_11)(unsafe-car lst_396))" -"((rest_223)(unsafe-cdr lst_396)))" +"(if(if(pair? lst_399)(pair? lst_400) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_399))" +"((rest_224)(unsafe-cdr lst_399))" +"((val-rhs_11)(unsafe-car lst_400))" +"((rest_225)(unsafe-cdr lst_400)))" +"(let-values(((fold-var_357)" +"(let-values(((fold-var_358) fold-var_131))" "(let-values(((fold-var_359)" -"(let-values(((fold-var_360) fold-var_358))" -"(let-values(((fold-var_361)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_360))))" -"(values fold-var_361)))))" +" fold-var_358))))" +"(values fold-var_359)))))" "(if(not #f)" -"(for-loop_307 fold-var_359 rest_222 rest_223)" -" fold-var_359)))" -" fold-var_358)))))" -" for-loop_307)" +"(for-loop_312 fold-var_357 rest_224 rest_225)" +" fold-var_357)))" +" fold-var_131)))))" +" for-loop_312)" " null" -" lst_393" -" lst_394))))" +" lst_397" +" lst_398))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_98" @@ -65242,26 +65433,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_397) trans-idss_3)((lst_146) trans-rhss_0))" +"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" +"(let-values()(check-list lst_401)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_172)" -"(lambda(fold-var_362 lst_68 lst_398)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_313)" +"(lambda(fold-var_360 lst_68 lst_147)" "(begin" " 'for-loop" -"(if(if(pair? lst_68)(pair? lst_398) #f)" +"(if(if(pair? lst_68)(pair? lst_147) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_68))" -"((rest_224)(unsafe-cdr lst_68))" -"((trans-rhs_5)(unsafe-car lst_398))" -"((rest_225)(unsafe-cdr lst_398)))" +"((rest_226)(unsafe-cdr lst_68))" +"((trans-rhs_5)(unsafe-car lst_147))" +"((rest_73)(unsafe-cdr lst_147)))" +"(let-values(((fold-var_361)" +"(let-values(((fold-var_362) fold-var_360))" "(let-values(((fold-var_363)" -"(let-values(((fold-var_364) fold-var_362))" -"(let-values(((fold-var_365)" "(let-values()" "(cons" "(let-values()" @@ -65270,14 +65461,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_34))))" -" fold-var_364))))" -"(values fold-var_365)))))" -"(if(not #f)(for-loop_172 fold-var_363 rest_224 rest_225) fold-var_363)))" -" fold-var_362)))))" -" for-loop_172)" +" fold-var_362))))" +"(values fold-var_363)))))" +"(if(not #f)(for-loop_313 fold-var_361 rest_226 rest_73) fold-var_361)))" +" fold-var_360)))))" +" for-loop_313)" " null" -" lst_397" -" lst_146))))" +" lst_401" +" lst_402))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -65312,7 +65503,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_526 ctx_83)" +"(lambda(s_525 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_100)(expand-context-observer ctx_83)))" @@ -65320,34 +65511,34 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_100 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_526)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_525)))" "(let-values(((ok?_39 #%stratified-body202_0 body203_0)" -"(let-values(((s_527) disarmed-s_9))" -"(let-values(((orig-s_46) s_527))" +"(let-values(((s_526) disarmed-s_9))" +"(let-values(((orig-s_47) s_526))" "(let-values(((#%stratified-body202_1 body203_1)" -"(let-values(((s_528)(if(syntax?$1 s_527)(syntax-e$1 s_527) s_527)))" -"(if(pair? s_528)" +"(let-values(((s_527)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" +"(if(pair? s_527)" "(let-values(((#%stratified-body204_0)" -"(let-values(((s_529)(car s_528))) s_529))" +"(let-values(((s_528)(car s_527))) s_528))" "((body205_0)" -"(let-values(((s_530)(cdr s_528)))" -"(let-values(((s_531)" -"(if(syntax?$1 s_530)" -"(syntax-e$1 s_530)" -" s_530)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_531)))" +"(let-values(((s_529)(cdr s_527)))" +"(let-values(((s_530)" +"(if(syntax?$1 s_529)" +"(syntax-e$1 s_529)" +" s_529)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_530)))" "(if(not flat-s_39)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" "(if(null? flat-s_39)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" "(let-values() flat-s_39))))))))" "(values #%stratified-body204_0 body205_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%stratified-body202_1 body203_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx206_0) ctx_83)((s207_0) s_526)((temp208_0) #t))" +"(let-values(((ctx206_0) ctx_83)((s207_0) s_525)((temp208_0) #t))" "(keep-as-needed74.1 #f #f temp208_0 #t #f #f ctx206_0 s207_0))))" "(let-values(((exp-body_5)" "(let-values(((temp209_1) body203_0)" @@ -65366,23 +65557,23 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_532 ctx_84)" +"(lambda(s_531 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_101)(expand-context-observer ctx_84)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_532)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_531)))" "(let-values(((ok?_40 #%datum215_0 datum216_0)" -"(let-values(((s_533) disarmed-s_10))" -"(let-values(((orig-s_47) s_533))" +"(let-values(((s_532) disarmed-s_10))" +"(let-values(((orig-s_48) s_532))" "(let-values(((#%datum215_1 datum216_1)" -"(let-values(((s_534)(if(syntax?$1 s_533)(syntax-e$1 s_533) s_533)))" -"(if(pair? s_534)" -"(let-values(((#%datum217_0)(let-values(((s_535)(car s_534))) s_535))" -"((datum218_0)(let-values(((s_536)(cdr s_534))) s_536)))" +"(let-values(((s_533)(if(syntax?$1 s_532)(syntax-e$1 s_532) s_532)))" +"(if(pair? s_533)" +"(let-values(((#%datum217_0)(let-values(((s_534)(car s_533))) s_534))" +"((datum218_0)(let-values(((s_535)(cdr s_533))) s_535)))" "(values #%datum217_0 datum218_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%datum215_1 datum216_1))))))" "(let-values(((datum_2) datum216_0))" "(let-values((()" @@ -65392,55 +65583,55 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_146)(expand-context-phase ctx_84)))" +"(let-values(((phase_145)(expand-context-phase ctx_84)))" "(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_532)(syntax->datum$1 datum_2))" -"(let-values(((s219_0) s_532)((temp220_1)(list(core-id 'quote phase_146) datum_2)))" -"(rebuild5.1 #f #f s219_0 temp220_1))))))))))))" +"(parsed-quote14.1(keep-properties-only~ s_531)(syntax->datum$1 datum_2))" +"(let-values(((s219_0) s_531)((temp220_0)(list(core-id 'quote phase_145) datum_2)))" +"(rebuild5.1 #f #f s219_0 temp220_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_537 ctx_85)" +"(lambda(s_536 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer ctx_85)))" "(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_537)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_536)))" "(let-values(((ok?_41 #%app221_0 e222_0)" -"(let-values(((s_538) disarmed-s_11))" -"(let-values(((orig-s_48) s_538))" +"(let-values(((s_537) disarmed-s_11))" +"(let-values(((orig-s_49) s_537))" "(let-values(((#%app221_1 e222_1)" -"(let-values(((s_539)(if(syntax?$1 s_538)(syntax-e$1 s_538) s_538)))" -"(if(pair? s_539)" -"(let-values(((#%app223_0)(let-values(((s_540)(car s_539))) s_540))" +"(let-values(((s_538)(if(syntax?$1 s_537)(syntax-e$1 s_537) s_537)))" +"(if(pair? s_538)" +"(let-values(((#%app223_0)(let-values(((s_539)(car s_538))) s_539))" "((e224_0)" -"(let-values(((s_541)(cdr s_539)))" -"(let-values(((s_542)" -"(if(syntax?$1 s_541)" -"(syntax-e$1 s_541)" -" s_541)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_542)))" +"(let-values(((s_540)(cdr s_538)))" +"(let-values(((s_541)" +"(if(syntax?$1 s_540)" +"(syntax-e$1 s_540)" +" s_540)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_541)))" "(if(not flat-s_40)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" "(let-values() flat-s_40)))))))" "(values #%app223_0 e224_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%app221_1 e222_1))))))" "(let-values(((es_3) e222_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_67)(expand-context-phase ctx_85)))" +"(let-values(((phase_146)(expand-context-phase ctx_85)))" "(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_537) null)" -"(let-values(((s225_0) s_537)((temp226_2)(list(core-id 'quote phase_67) null)))" -"(rebuild5.1 #f #f s225_0 temp226_2)))))" +"(parsed-quote14.1(keep-properties-only~ s_536) null)" +"(let-values(((s225_0) s_536)((temp226_1)(list(core-id 'quote phase_146) null)))" +"(rebuild5.1 #f #f s225_0 temp226_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx227_0) ctx_85)" -"((s228_0) s_537)" +"((s228_0) s_536)" "((keep-for-parsed?229_0) keep-for-parsed?_1))" "(keep-as-needed74.1 #f #f #f #f keep-for-parsed?229_0 #t ctx227_0 s228_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -65470,7 +65661,7 @@ static const char *startup_source = "(call-expand-observe" " obs_103" " 'enter-list" -"(datum->syntax$1 #f es_3 s_537))" +"(datum->syntax$1 #f es_3 s_536))" "(call-expand-observe obs_103 'next))))" "(void)))" "(values))))" @@ -65480,23 +65671,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_399) rest-es_0))" +"(let-values(((lst_403) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_399)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_366 lst_400)" +"(let-values()(check-list lst_403)))" +"((letrec-values(((for-loop_314)" +"(lambda(fold-var_364 lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_400)" -"(let-values(((e_89)(unsafe-car lst_400))" -"((rest_226)" -"(unsafe-cdr lst_400)))" +"(if(pair? lst_404)" +"(let-values(((e_89)(unsafe-car lst_404))" +"((rest_227)" +"(unsafe-cdr lst_404)))" +"(let-values(((fold-var_365)" +"(let-values(((fold-var_366)" +" fold-var_364))" "(let-values(((fold-var_367)" -"(let-values(((fold-var_368)" -" fold-var_366))" -"(let-values(((fold-var_369)" "(let-values()" "(cons" "(let-values()" @@ -65522,21 +65713,21 @@ static const char *startup_source = " #f" " e235_0" " expr-ctx236_0))))" -" fold-var_368))))" +" fold-var_366))))" "(values" -" fold-var_369)))))" +" fold-var_367)))))" "(if(not #f)" -"(for-loop_308 fold-var_367 rest_226)" -" fold-var_367)))" -" fold-var_366)))))" -" for-loop_308)" +"(for-loop_314 fold-var_365 rest_227)" +" fold-var_365)))" +" fold-var_364)))))" +" for-loop_314)" " null" -" lst_399))))))" +" lst_403))))))" "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_380) rebuild-prefixless_0))" -"(if or-part_380 or-part_380 rebuild-s_8))" +"(let-values(((or-part_208) rebuild-prefixless_0))" +"(if or-part_208 or-part_208 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -65563,52 +65754,52 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_543 ctx_86)" +"(lambda(s_542 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_106)(expand-context-observer ctx_86)))" "(if obs_106(let-values()(let-values()(call-expand-observe obs_106 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote241_0 datum242_0)" -"(let-values(((s_544)(syntax-disarm$1 s_543)))" -"(let-values(((orig-s_49) s_544))" +"(let-values(((s_543)(syntax-disarm$1 s_542)))" +"(let-values(((orig-s_50) s_543))" "(let-values(((quote241_1 datum242_1)" -"(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))" -"(if(pair? s_545)" -"(let-values(((quote243_0)(let-values(((s_546)(car s_545))) s_546))" +"(let-values(((s_544)(if(syntax?$1 s_543)(syntax-e$1 s_543) s_543)))" +"(if(pair? s_544)" +"(let-values(((quote243_0)(let-values(((s_545)(car s_544))) s_545))" "((datum244_0)" -"(let-values(((s_547)(cdr s_545)))" -"(let-values(((s_548)" -"(if(syntax?$1 s_547)" -"(syntax-e$1 s_547)" -" s_547)))" -"(if(pair? s_548)" +"(let-values(((s_546)(cdr s_544)))" +"(let-values(((s_547)" +"(if(syntax?$1 s_546)" +"(syntax-e$1 s_546)" +" s_546)))" +"(if(pair? s_547)" "(let-values(((datum245_0)" -"(let-values(((s_549)(car s_548))) s_549))" +"(let-values(((s_548)(car s_547))) s_548))" "(()" -"(let-values(((s_550)(cdr s_548)))" -"(let-values(((s_551)" -"(if(syntax?$1 s_550)" -"(syntax-e$1 s_550)" -" s_550)))" -"(if(null? s_551)" +"(let-values(((s_549)(cdr s_547)))" +"(let-values(((s_550)" +"(if(syntax?$1 s_549)" +"(syntax-e$1 s_549)" +" s_549)))" +"(if(null? s_550)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_49))))))" +" orig-s_50))))))" "(values datum245_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))))))" "(values quote243_0 datum244_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t quote241_1 datum242_1))))))" "(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_543)(syntax->datum$1 datum242_0))" -" s_543))))))" +"(parsed-quote14.1(keep-properties-only~ s_542)(syntax->datum$1 datum242_0))" +" s_542))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_552 ctx_87)" +"(lambda(s_551 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_107)(expand-context-observer ctx_87)))" @@ -65616,27 +65807,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_107 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_552)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_551)))" "(let-values(((ok?_43 quote-syntax246_0 datum247_0)" -"(let-values(((s_553) disarmed-s_12))" -"(if(let-values(((s_554)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" -"(if(pair? s_554)" -"(if(let-values(((s_555)(car s_554))) #t)" -"(let-values(((s_269)(cdr s_554)))" -"(let-values(((s_556)(if(syntax?$1 s_269)(syntax-e$1 s_269) s_269)))" +"(let-values(((s_552) disarmed-s_12))" +"(if(let-values(((s_553)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" +"(if(pair? s_553)" +"(if(let-values(((s_554)(car s_553))) #t)" +"(let-values(((s_555)(cdr s_553)))" +"(let-values(((s_556)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" "(if(pair? s_556)" "(if(let-values(((s_557)(car s_556))) #t)" "(let-values(((s_558)(cdr s_556)))" "(let-values(((s_559)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" "(if(pair? s_559)" -"(if(let-values(((s_270)(car s_559)))" -"(let-values(((s_560)" -"(if(syntax?$1 s_270)(syntax-e$1 s_270) s_270)))" -"(eq? '#:local s_560)))" -"(let-values(((s_561)(cdr s_559)))" -"(let-values(((s_562)" -"(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))" -"(null? s_562)))" +"(if(let-values(((s_560)(car s_559)))" +"(let-values(((s_561)" +"(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" +"(eq? '#:local s_561)))" +"(let-values(((s_562)(cdr s_559)))" +"(let-values(((s_563)" +"(if(syntax?$1 s_562)(syntax-e$1 s_562) s_562)))" +"(null? s_563)))" " #f)" " #f)))" " #f)" @@ -65645,88 +65836,88 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax246_1 datum247_1)" -"(let-values(((s_563)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" +"(let-values(((s_268)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" "(let-values(((quote-syntax248_0)" -"(let-values(((s_275)(car s_563))) s_275))" +"(let-values(((s_564)(car s_268))) s_564))" "((datum249_0)" -"(let-values(((s_276)(cdr s_563)))" -"(let-values(((s_564)" -"(if(syntax?$1 s_276)" -"(syntax-e$1 s_276)" -" s_276)))" +"(let-values(((s_565)(cdr s_268)))" +"(let-values(((s_269)" +"(if(syntax?$1 s_565)" +"(syntax-e$1 s_565)" +" s_565)))" "(let-values(((datum250_0)" -"(let-values(((s_565)(car s_564))) s_565))" +"(let-values(((s_566)(car s_269))) s_566))" "(()" -"(let-values(((s_566)(cdr s_564)))" -"(let-values(((s_567)" -"(if(syntax?$1 s_566)" -"(syntax-e$1 s_566)" -" s_566)))" -"(let-values((()" -"(let-values(((s_568)" -"(car" +"(let-values(((s_567)(cdr s_269)))" +"(let-values(((s_270)" +"(if(syntax?$1 s_567)" +"(syntax-e$1 s_567)" " s_567)))" +"(let-values((()" +"(let-values(((s_271)" +"(car" +" s_270)))" +"(let-values(((s_272)" +"(if(syntax?$1" +" s_271)" +"(syntax-e$1" +" s_271)" +" s_271)))" +"(values))))" +"(()" +"(let-values(((s_568)" +"(cdr" +" s_270)))" "(let-values(((s_569)" "(if(syntax?$1" " s_568)" "(syntax-e$1" " s_568)" " s_568)))" -"(values))))" -"(()" -"(let-values(((s_570)" -"(cdr" -" s_567)))" -"(let-values(((s_571)" -"(if(syntax?$1" -" s_570)" -"(syntax-e$1" -" s_570)" -" s_570)))" "(values)))))" "(values))))))" "(values datum250_0))))))" "(values quote-syntax248_0 datum249_0)))))" "(values #t quote-syntax246_1 datum247_1)))" "(values #f #f #f)))))" -"(let-values(((ok?_12 quote-syntax251_0 datum252_0)" -"(let-values(((s_572) disarmed-s_12))" +"(let-values(((ok?_44 quote-syntax251_0 datum252_0)" +"(let-values(((s_273) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_50) s_572))" +"(let-values(((orig-s_51) s_273))" "(let-values(((quote-syntax251_1 datum252_1)" -"(let-values(((s_573)(if(syntax?$1 s_572)(syntax-e$1 s_572) s_572)))" -"(if(pair? s_573)" +"(let-values(((s_570)(if(syntax?$1 s_273)(syntax-e$1 s_273) s_273)))" +"(if(pair? s_570)" "(let-values(((quote-syntax253_0)" -"(let-values(((s_574)(car s_573))) s_574))" +"(let-values(((s_571)(car s_570))) s_571))" "((datum254_0)" +"(let-values(((s_572)(cdr s_570)))" +"(let-values(((s_573)" +"(if(syntax?$1 s_572)" +"(syntax-e$1 s_572)" +" s_572)))" +"(if(pair? s_573)" +"(let-values(((datum255_0)" +"(let-values(((s_574)(car s_573)))" +" s_574))" +"(()" "(let-values(((s_575)(cdr s_573)))" -"(let-values(((s_278)" +"(let-values(((s_576)" "(if(syntax?$1 s_575)" "(syntax-e$1 s_575)" " s_575)))" -"(if(pair? s_278)" -"(let-values(((datum255_0)" -"(let-values(((s_576)(car s_278)))" -" s_576))" -"(()" -"(let-values(((s_279)(cdr s_278)))" -"(let-values(((s_280)" -"(if(syntax?$1 s_279)" -"(syntax-e$1 s_279)" -" s_279)))" -"(if(null? s_280)" +"(if(null? s_576)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_50))))))" +" orig-s_51))))))" "(values datum255_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_50))))))" +" orig-s_51))))))" "(values quote-syntax253_0 datum254_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote-syntax251_1 datum252_1)))" "(values #f #f #f)))))" "(if ok?_43" @@ -65735,9 +65926,9 @@ static const char *startup_source = "(begin" "(reference-records-all-used!(expand-context-reference-records ctx_87))" "(values))))" -"(let-values(((ok?_44 _256_0 _257_0 kw258_0)" +"(let-values(((ok?_45 _256_0 _257_0 kw258_0)" "(let-values(((s_577) disarmed-s_12))" -"(let-values(((orig-s_51) s_577))" +"(let-values(((orig-s_52) s_577))" "(let-values(((_256_1 _257_1 kw258_1)" "(let-values(((s_578)" "(if(syntax?$1 s_577)(syntax-e$1 s_577) s_577)))" @@ -65746,97 +65937,97 @@ static const char *startup_source = "(let-values(((s_579)(car s_578))) s_579))" "((_260_0 kw261_0)" "(let-values(((s_580)(cdr s_578)))" -"(let-values(((s_581)" +"(let-values(((s_281)" "(if(syntax?$1 s_580)" "(syntax-e$1 s_580)" " s_580)))" -"(if(pair? s_581)" +"(if(pair? s_281)" "(let-values(((_262_0)" -"(let-values(((s_582)" -"(car s_581)))" -" s_582))" +"(let-values(((s_581)" +"(car s_281)))" +" s_581))" "((kw263_0)" -"(let-values(((s_583)" -"(cdr s_581)))" -"(let-values(((s_584)" +"(let-values(((s_282)" +"(cdr s_281)))" +"(let-values(((s_582)" "(if(syntax?$1" -" s_583)" +" s_282)" "(syntax-e$1" -" s_583)" -" s_583)))" -"(if(pair? s_584)" +" s_282)" +" s_282)))" +"(if(pair? s_582)" "(let-values(((kw264_0)" -"(let-values(((s_585)" +"(let-values(((s_283)" "(car" -" s_584)))" -" s_585))" +" s_582)))" +" s_283))" "(()" -"(let-values(((s_586)" +"(let-values(((s_284)" "(cdr" -" s_584)))" -"(let-values(((s_587)" +" s_582)))" +"(let-values(((s_285)" "(if(syntax?$1" -" s_586)" +" s_284)" "(syntax-e$1" -" s_586)" -" s_586)))" +" s_284)" +" s_284)))" "(if(null?" -" s_587)" +" s_285)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_52))))))" "(values kw264_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_52))))))" "(values _262_0 kw263_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_52))))))" "(values _259_0 _260_0 kw261_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t _256_1 _257_1 kw258_1))))))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum247_0)" -"(let-values(((s265_0) s_552)((temp266_0)(list quote-syntax246_0 datum247_0 kw258_0)))" -"(rebuild5.1 #f #f s265_0 temp266_0))))))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_551) datum247_0)" +"(let-values(((s265_0) s_551)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" +"(rebuild5.1 #f #f s265_0 temp266_1))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_87))))" "(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum-s_0)" -"(let-values(((s267_0) s_552)((temp268_0)(list quote-syntax251_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_551) datum-s_0)" +"(let-values(((s267_0) s_551)((temp268_0)(list quote-syntax251_0 datum-s_0)))" "(rebuild5.1 #f #f s267_0 temp268_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_588 ctx_88)" +"(lambda(s_583 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_88)))" "(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_588)))" -"(let-values(((ok?_45 _269_0 _270_0 _271_0)" -"(let-values(((s_589) disarmed-s_13))" -"(if(let-values(((s_590)(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))" -"(if(pair? s_590)" -"(if(let-values(((s_591)(car s_590))) #t)" -"(let-values(((s_592)(cdr s_590)))" -"(let-values(((s_593)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" -"(if(pair? s_593)" -"(if(let-values(((s_594)(car s_593))) #t)" -"(let-values(((s_595)(cdr s_593)))" -"(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" -"(if(pair? s_596)" -"(if(let-values(((s_597)(car s_596))) #t)" -"(let-values(((s_598)(cdr s_596)))" -"(let-values(((s_599)" -"(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" -"(null? s_599)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_583)))" +"(let-values(((ok?_46 _269_0 _270_0 _271_0)" +"(let-values(((s_293) disarmed-s_13))" +"(if(let-values(((s_294)(if(syntax?$1 s_293)(syntax-e$1 s_293) s_293)))" +"(if(pair? s_294)" +"(if(let-values(((s_295)(car s_294))) #t)" +"(let-values(((s_584)(cdr s_294)))" +"(let-values(((s_585)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))" +"(if(pair? s_585)" +"(if(let-values(((s_296)(car s_585))) #t)" +"(let-values(((s_297)(cdr s_585)))" +"(let-values(((s_298)(if(syntax?$1 s_297)(syntax-e$1 s_297) s_297)))" +"(if(pair? s_298)" +"(if(let-values(((s_586)(car s_298))) #t)" +"(let-values(((s_587)(cdr s_298)))" +"(let-values(((s_588)" +"(if(syntax?$1 s_587)(syntax-e$1 s_587) s_587)))" +"(null? s_588)))" " #f)" " #f)))" " #f)" @@ -65845,28 +66036,79 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_269_1 _270_1 _271_1)" -"(let-values(((s_600)(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))" -"(let-values(((_272_0)(let-values(((s_601)(car s_600))) s_601))" +"(let-values(((s_589)(if(syntax?$1 s_293)(syntax-e$1 s_293) s_293)))" +"(let-values(((_272_0)(let-values(((s_590)(car s_589))) s_590))" "((_273_0 _274_0)" +"(let-values(((s_591)(cdr s_589)))" +"(let-values(((s_592)" +"(if(syntax?$1 s_591)" +"(syntax-e$1 s_591)" +" s_591)))" +"(let-values(((_275_0)" +"(let-values(((s_593)(car s_592))) s_593))" +"((_276_0)" +"(let-values(((s_594)(cdr s_592)))" +"(let-values(((s_595)" +"(if(syntax?$1 s_594)" +"(syntax-e$1 s_594)" +" s_594)))" +"(let-values(((_277_0)" +"(let-values(((s_596)" +"(car" +" s_595)))" +" s_596))" +"(()" +"(let-values(((s_597)" +"(cdr" +" s_595)))" +"(let-values(((s_598)" +"(if(syntax?$1" +" s_597)" +"(syntax-e$1" +" s_597)" +" s_597)))" +"(values)))))" +"(values _277_0))))))" +"(values _275_0 _276_0))))))" +"(values _272_0 _273_0 _274_0)))))" +"(values #t _269_1 _270_1 _271_1)))" +"(values #f #f #f #f)))))" +"(let-values((()" +"(begin" +"(if ok?_46" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_583))" +"(void))" +"(values))))" +"(let-values(((ok?_47 if278_0 tst279_0 thn280_0 els281_0)" +"(let-values(((s_599) disarmed-s_13))" +"(let-values(((orig-s_53) s_599))" +"(let-values(((if278_1 tst279_1 thn280_1 els281_1)" +"(let-values(((s_600)(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" +"(if(pair? s_600)" +"(let-values(((if282_0)(let-values(((s_601)(car s_600))) s_601))" +"((tst283_0 thn284_0 els285_0)" "(let-values(((s_602)(cdr s_600)))" "(let-values(((s_603)" "(if(syntax?$1 s_602)" "(syntax-e$1 s_602)" " s_602)))" -"(let-values(((_275_0)" -"(let-values(((s_604)(car s_603))) s_604))" -"((_276_0)" +"(if(pair? s_603)" +"(let-values(((tst286_0)" +"(let-values(((s_604)(car s_603)))" +" s_604))" +"((thn287_0 els288_0)" "(let-values(((s_605)(cdr s_603)))" "(let-values(((s_606)" "(if(syntax?$1 s_605)" "(syntax-e$1 s_605)" " s_605)))" -"(let-values(((_277_0)" +"(if(pair? s_606)" +"(let-values(((thn289_0)" "(let-values(((s_607)" "(car" " s_606)))" " s_607))" -"(()" +"((els290_0)" "(let-values(((s_608)" "(cdr" " s_606)))" @@ -65876,110 +66118,59 @@ static const char *startup_source = "(syntax-e$1" " s_608)" " s_608)))" -"(values)))))" -"(values _277_0))))))" -"(values _275_0 _276_0))))))" -"(values _272_0 _273_0 _274_0)))))" -"(values #t _269_1 _270_1 _271_1)))" -"(values #f #f #f #f)))))" -"(let-values((()" -"(begin" -"(if ok?_45" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_588))" -"(void))" -"(values))))" -"(let-values(((ok?_46 if278_0 tst279_0 thn280_0 els281_0)" -"(let-values(((s_610) disarmed-s_13))" -"(let-values(((orig-s_52) s_610))" -"(let-values(((if278_1 tst279_1 thn280_1 els281_1)" -"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))" -"(if(pair? s_611)" -"(let-values(((if282_0)(let-values(((s_612)(car s_611))) s_612))" -"((tst283_0 thn284_0 els285_0)" -"(let-values(((s_613)(cdr s_611)))" -"(let-values(((s_614)" -"(if(syntax?$1 s_613)" -"(syntax-e$1 s_613)" -" s_613)))" -"(if(pair? s_614)" -"(let-values(((tst286_0)" -"(let-values(((s_615)(car s_614)))" -" s_615))" -"((thn287_0 els288_0)" -"(let-values(((s_616)(cdr s_614)))" -"(let-values(((s_617)" -"(if(syntax?$1 s_616)" -"(syntax-e$1 s_616)" -" s_616)))" -"(if(pair? s_617)" -"(let-values(((thn289_0)" -"(let-values(((s_618)" -"(car" -" s_617)))" -" s_618))" -"((els290_0)" -"(let-values(((s_619)" -"(cdr" -" s_617)))" -"(let-values(((s_620)" -"(if(syntax?$1" -" s_619)" -"(syntax-e$1" -" s_619)" -" s_619)))" "(if(pair?" -" s_620)" +" s_609)" "(let-values(((els291_0)" -"(let-values(((s_621)" +"(let-values(((s_610)" "(car" -" s_620)))" -" s_621))" +" s_609)))" +" s_610))" "(()" -"(let-values(((s_622)" +"(let-values(((s_611)" "(cdr" -" s_620)))" -"(let-values(((s_623)" +" s_609)))" +"(let-values(((s_612)" "(if(syntax?$1" -" s_622)" +" s_611)" "(syntax-e$1" -" s_622)" -" s_622)))" +" s_611)" +" s_611)))" "(if(null?" -" s_623)" +" s_612)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values" " els291_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values thn289_0 els290_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values tst286_0 thn287_0 els288_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values if282_0 tst283_0 thn284_0 els285_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t if278_1 tst279_1 thn280_1 els281_1))))))" "(let-values(((expr-ctx_2)(as-expression-context ctx_88)))" "(let-values(((tail-ctx_0)" "(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_88))" "(as-tail-context23.1 ctx293_0 expr-ctx292_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx294_0) ctx_88)((s295_0) s_588))" +"(let-values(((ctx294_0) ctx_88)((s295_0) s_583))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx294_0 s295_0))))" "(let-values(((exp-tst_0)" -"(let-values(((temp296_1) tst279_0)((expr-ctx297_0) expr-ctx_2))" -"(expand7.1 #f #f #f #f temp296_1 expr-ctx297_0))))" +"(let-values(((temp296_0) tst279_0)((expr-ctx297_0) expr-ctx_2))" +"(expand7.1 #f #f #f #f temp296_0 expr-ctx297_0))))" "(let-values((()" "(begin" "(let-values(((obs_109)(expand-context-observer ctx_88)))" @@ -66008,7 +66199,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_624 ctx_89)" +"(lambda(s_613 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_89)))" @@ -66016,89 +66207,89 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_624)))" -"(let-values(((ok?_47 with-continuation-mark304_0 key305_0 val306_0 body307_0)" -"(let-values(((s_625) disarmed-s_14))" -"(let-values(((orig-s_53) s_625))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_613)))" +"(let-values(((ok?_48 with-continuation-mark304_0 key305_0 val306_0 body307_0)" +"(let-values(((s_614) disarmed-s_14))" +"(let-values(((orig-s_54) s_614))" "(let-values(((with-continuation-mark304_1 key305_1 val306_1 body307_1)" -"(let-values(((s_626)(if(syntax?$1 s_625)(syntax-e$1 s_625) s_625)))" -"(if(pair? s_626)" +"(let-values(((s_615)(if(syntax?$1 s_614)(syntax-e$1 s_614) s_614)))" +"(if(pair? s_615)" "(let-values(((with-continuation-mark308_0)" -"(let-values(((s_627)(car s_626))) s_627))" +"(let-values(((s_616)(car s_615))) s_616))" "((key309_0 val310_0 body311_0)" -"(let-values(((s_628)(cdr s_626)))" -"(let-values(((s_629)" -"(if(syntax?$1 s_628)" -"(syntax-e$1 s_628)" -" s_628)))" -"(if(pair? s_629)" +"(let-values(((s_617)(cdr s_615)))" +"(let-values(((s_618)" +"(if(syntax?$1 s_617)" +"(syntax-e$1 s_617)" +" s_617)))" +"(if(pair? s_618)" "(let-values(((key312_0)" -"(let-values(((s_630)(car s_629)))" -" s_630))" +"(let-values(((s_619)(car s_618)))" +" s_619))" "((val313_0 body314_0)" -"(let-values(((s_631)(cdr s_629)))" -"(let-values(((s_632)" -"(if(syntax?$1 s_631)" -"(syntax-e$1 s_631)" -" s_631)))" -"(if(pair? s_632)" +"(let-values(((s_620)(cdr s_618)))" +"(let-values(((s_621)" +"(if(syntax?$1 s_620)" +"(syntax-e$1 s_620)" +" s_620)))" +"(if(pair? s_621)" "(let-values(((val315_0)" -"(let-values(((s_633)" +"(let-values(((s_622)" "(car" -" s_632)))" -" s_633))" +" s_621)))" +" s_622))" "((body316_0)" -"(let-values(((s_634)" +"(let-values(((s_623)" "(cdr" -" s_632)))" -"(let-values(((s_635)" +" s_621)))" +"(let-values(((s_624)" "(if(syntax?$1" -" s_634)" +" s_623)" "(syntax-e$1" -" s_634)" -" s_634)))" -"(if(pair? s_635)" +" s_623)" +" s_623)))" +"(if(pair? s_624)" "(let-values(((body317_0)" -"(let-values(((s_636)" +"(let-values(((s_625)" "(car" -" s_635)))" -" s_636))" +" s_624)))" +" s_625))" "(()" -"(let-values(((s_637)" +"(let-values(((s_626)" "(cdr" -" s_635)))" -"(let-values(((s_638)" +" s_624)))" +"(let-values(((s_627)" "(if(syntax?$1" -" s_637)" +" s_626)" "(syntax-e$1" -" s_637)" -" s_637)))" +" s_626)" +" s_626)))" "(if(null?" -" s_638)" +" s_627)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_54))))))" "(values" " body317_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_54))))))" "(values val315_0 body316_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_54))))))" "(values key312_0 val313_0 body314_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54))))))" "(values with-continuation-mark308_0 key309_0 val310_0 body311_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t with-continuation-mark304_1 key305_1 val306_1 body307_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx318_0) ctx_89)((s319_0) s_624))" +"(let-values(((ctx318_0) ctx_89)((s319_0) s_613))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx318_0 s319_0))))" "(let-values(((exp-key_0)" "(let-values(((temp320_0) key305_0)((expr-ctx321_0) expr-ctx_3))" @@ -66141,7 +66332,7 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_639 ctx_90)" +"(lambda(s_628 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_114)(expand-context-observer ctx_90)))" @@ -66149,46 +66340,46 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_114 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_639)))" -"(let-values(((ok?_48 begin330_0 e331_0)" -"(let-values(((s_640) disarmed-s_15))" -"(let-values(((orig-s_54) s_640))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_628)))" +"(let-values(((ok?_49 begin330_0 e331_0)" +"(let-values(((s_629) disarmed-s_15))" +"(let-values(((orig-s_55) s_629))" "(let-values(((begin330_1 e331_1)" -"(let-values(((s_641)" -"(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))" -"(if(pair? s_641)" +"(let-values(((s_630)" +"(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" +"(if(pair? s_630)" "(let-values(((begin332_0)" -"(let-values(((s_642)(car s_641))) s_642))" +"(let-values(((s_631)(car s_630))) s_631))" "((e333_0)" -"(let-values(((s_643)(cdr s_641)))" -"(let-values(((s_644)" -"(if(syntax?$1 s_643)" -"(syntax-e$1 s_643)" -" s_643)))" +"(let-values(((s_632)(cdr s_630)))" +"(let-values(((s_633)" +"(if(syntax?$1 s_632)" +"(syntax-e$1 s_632)" +" s_632)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_644)))" +"(to-syntax-list.1 s_633)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))" +" orig-s_55))" "(if(null? flat-s_41)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))" +" orig-s_55))" "(let-values() flat-s_41))))))))" "(values begin332_0 e333_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t begin330_1 e331_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" "(as-begin-expression-context ctx_90)" "(as-expression-context ctx_90))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx334_0) ctx_90)((s335_0) s_639))" +"(let-values(((ctx334_0) ctx_90)((s335_0) s_628))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx334_0 s335_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_123)" @@ -66228,7 +66419,7 @@ static const char *startup_source = "(void)))" "(cons" "(let-values(((temp336_0)(car es_5))" -"((temp337_0)" +"((temp337_1)" "(if(if last-is-tail?_0" "(null? rest-es_1)" " #f)" @@ -66246,7 +66437,7 @@ static const char *startup_source = " #f" " #f" " temp336_0" -" temp337_0))" +" temp337_1))" "(loop_123 rest-es_1(sub1 index_6))))))))))))" " loop_123)" " e331_0" @@ -66274,39 +66465,39 @@ static const char *startup_source = "((temp344_0) 0)" "((temp345_0) #t))" "(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))" -"(lambda(s_645 ctx_91)" +"(lambda(s_634 ctx_91)" "(let-values(((context_24)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_381)(eq? context_24 'top-level)))" -"(if or-part_381 or-part_381(eq? context_24 'module)))" +"(if(let-values(((or-part_384)(eq? context_24 'top-level)))" +"(if or-part_384 or-part_384(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_645)))" -"(let-values(((ok?_49 begin346_0)" -"(let-values(((s_646) disarmed-s_16))" -"(if(let-values(((s_647)(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))" -"(if(pair? s_647)" -"(if(let-values(((s_648)(car s_647))) #t)" -"(let-values(((s_649)(cdr s_647)))" -"(let-values(((s_650)(if(syntax?$1 s_649)(syntax-e$1 s_649) s_649)))" -"(null? s_650)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_634)))" +"(let-values(((ok?_50 begin346_0)" +"(let-values(((s_635) disarmed-s_16))" +"(if(let-values(((s_636)(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" +"(if(pair? s_636)" +"(if(let-values(((s_637)(car s_636))) #t)" +"(let-values(((s_638)(cdr s_636)))" +"(let-values(((s_639)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(null? s_639)))" " #f)" " #f))" "(let-values()" "(let-values(((begin346_1)" -"(let-values(((s_651)(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))" +"(let-values(((s_640)(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" "(let-values(((begin347_0)" -"(let-values(((s_652)(car s_651))) s_652))" +"(let-values(((s_641)(car s_640))) s_641))" "(()" -"(let-values(((s_653)(cdr s_651)))" -"(let-values(((s_654)" -"(if(syntax?$1 s_653)" -"(syntax-e$1 s_653)" -" s_653)))" +"(let-values(((s_642)(cdr s_640)))" +"(let-values(((s_643)" +"(if(syntax?$1 s_642)" +"(syntax-e$1 s_642)" +" s_642)))" "(values)))))" "(values begin347_0)))))" "(values #t begin346_1)))" "(values #f #f)))))" -"(if ok?_49 s_645(nonempty-begin_0 s_645 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_645 ctx_91))))))))" +"(if ok?_50 s_634(nonempty-begin_0 s_634 ctx_91)))))" +"(let-values()(nonempty-begin_0 s_634 ctx_91))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -66314,7 +66505,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_125 ctx_92)" +"(lambda(id_124 ctx_92)" "(begin" "(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" "(let-values()" @@ -66322,7 +66513,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_125 l_82))" +"(lambda(l_82)(cons id_124 l_82))" " null)" " #t))" "(let-values() #f)))))" @@ -66333,7 +66524,7 @@ static const char *startup_source = "(lambda(s354_0 ctx355_0 implicit-omitted?352_0 implicit-omitted?353_0)" "(begin" " 'core356" -"(let-values(((s_655) s354_0))" +"(let-values(((s_644) s354_0))" "(let-values(((ctx_93) ctx355_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?353_0 implicit-omitted?352_0 #f)))" "(let-values()" @@ -66345,55 +66536,55 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_118 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_655)))" -"(let-values(((id_126)" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_644)))" +"(let-values(((id_125)" "(if implicit-omitted?_0" -"(let-values() s_655)" +"(let-values() s_644)" "(let-values()" -"(let-values(((ok?_50 #%top358_0 id359_0)" -"(let-values(((s_656) disarmed-s_17))" -"(let-values(((orig-s_55) s_656))" +"(let-values(((ok?_51 #%top358_0 id359_0)" +"(let-values(((s_645) disarmed-s_17))" +"(let-values(((orig-s_56) s_645))" "(let-values(((#%top358_1 id359_1)" -"(let-values(((s_657)" -"(if(syntax?$1 s_656)" -"(syntax-e$1 s_656)" -" s_656)))" -"(if(pair? s_657)" +"(let-values(((s_646)" +"(if(syntax?$1 s_645)" +"(syntax-e$1 s_645)" +" s_645)))" +"(if(pair? s_646)" "(let-values(((#%top360_0)" -"(let-values(((s_658)" +"(let-values(((s_647)" "(car" -" s_657)))" -" s_658))" +" s_646)))" +" s_647))" "((id361_0)" -"(let-values(((s_659)" +"(let-values(((s_648)" "(cdr" -" s_657)))" -"(if(let-values(((or-part_382)" +" s_646)))" +"(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_659)" +" s_648)" "(symbol?" "(syntax-e$1" -" s_659))" +" s_648))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_659)))" -" s_659" +" s_648)))" +" s_648" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_55" -" s_659)))))" +" orig-s_56" +" s_648)))))" "(values #%top360_0 id361_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55)))))" +" orig-s_56)))))" "(values #t #%top358_1 id359_1))))))" " id359_0)))))" -"(let-values(((b_89)" -"(let-values(((id362_0) id_126)" +"(let-values(((b_87)" +"(let-values(((id362_0) id_125)" "((temp363_0)(expand-context-phase ctx_93))" "((temp364_0) 'ambiguous))" "(resolve+shift30.1" @@ -66409,44 +66600,44 @@ static const char *startup_source = " #f" " id362_0" " temp363_0))))" -"(if(eq? b_89 'ambiguous)" -"(let-values()(raise-ambiguous-error id_126 ctx_93))" -"(if(if b_89" -"(if(module-binding? b_89)" -"(eq?(module-binding-module b_89)(root-expand-context-self-mpi ctx_93))" +"(if(eq? b_87 'ambiguous)" +"(let-values()(raise-ambiguous-error id_125 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_126 b_89 #f)" -"(if(top-level-module-path-index?(module-binding-module b_89))" -"(let-values() s_655)" -"(let-values() id_126))))" -"(if(register-eventual-variable!? id_126 ctx_93)" +"(parsed-id2.1 id_125 b_87 #f)" +"(if(top-level-module-path-index?(module-binding-module b_87))" +"(let-values() s_644)" +"(let-values() id_125))))" +"(if(register-eventual-variable!? id_125 ctx_93)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_126 b_89 #f)" -" id_126))" +"(parsed-id2.1 id_125 b_87 #f)" +" id_125))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_93))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_126" +" id_125" " #f" " null" -"(syntax-debug-info-string id_126 ctx_93)))" +"(syntax-debug-info-string id_125 ctx_93)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_126" +" id_125" "(root-expand-context-top-level-bind-scope ctx_93))))" "(let-values(((tl-b_1)" "(let-values(((tl-id365_0) tl-id_1)" "((temp366_0)" "(expand-context-phase ctx_93)))" -"(resolve33.1" +"(resolve40.1" " #f" " #f" " #f" @@ -66462,149 +66653,149 @@ 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_126)" +"(let-values() id_125)" "(let-values()" -"(let-values(((ok?_51 #%top367_0 id368_0)" -"(let-values(((s_660) disarmed-s_17))" -"(let-values(((orig-s_56) s_660))" +"(let-values(((ok?_52 #%top367_0 id368_0)" +"(let-values(((s_649) disarmed-s_17))" +"(let-values(((orig-s_57) s_649))" "(let-values(((#%top367_1 id368_1)" -"(let-values(((s_661)" +"(let-values(((s_650)" "(if(syntax?$1" -" s_660)" +" s_649)" "(syntax-e$1" -" s_660)" -" s_660)))" -"(if(pair? s_661)" +" s_649)" +" s_649)))" +"(if(pair? s_650)" "(let-values(((#%top369_0)" -"(let-values(((s_662)" +"(let-values(((s_651)" "(car" -" s_661)))" -" s_662))" +" s_650)))" +" s_651))" "((id370_0)" -"(let-values(((s_663)" +"(let-values(((s_652)" "(cdr" -" s_661)))" -"(if(let-values(((or-part_383)" +" s_650)))" +"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_663)" +" s_652)" "(symbol?" "(syntax-e$1" -" s_663))" +" s_652))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_386" +" or-part_386" "(symbol?" -" s_663)))" -" s_663" +" s_652)))" +" s_652" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_56" -" s_663)))))" +" orig-s_57" +" s_652)))))" "(values" " #%top369_0" " id370_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_56)))))" +" orig-s_57)))))" "(values #t #%top367_1 id368_1))))))" -"(let-values(((s371_0) s_655)" -"((temp372_0)(cons #%top367_0 id_126)))" +"(let-values(((s371_0) s_644)" +"((temp372_0)(cons #%top367_0 id_125)))" "(rebuild5.1 #f #f s371_0 temp372_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-top-id4.1 id_126 b_89 #f)" -" s_655)))))))))))))))))))))))" +"(parsed-top-id4.1 id_125 b_87 #f)" +" s_644)))))))))))))))))))))))" "(case-lambda" -"((s_664 ctx_94)(core356_0 s_664 ctx_94 #f #f))" -"((s_665 ctx_95 implicit-omitted?352_1)(core356_0 s_665 ctx_95 implicit-omitted?352_1 #t))))))" +"((s_653 ctx_94)(core356_0 s_653 ctx_94 #f #f))" +"((s_654 ctx_95 implicit-omitted?352_1)(core356_0 s_654 ctx_95 implicit-omitted?352_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_666 ctx_96)" +"(lambda(s_655 ctx_96)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_96)))" "(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_666)))" -"(let-values(((ok?_52 set!373_0 id374_0 rhs375_0)" -"(let-values(((s_667) disarmed-s_18))" -"(let-values(((orig-s_57) s_667))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_655)))" +"(let-values(((ok?_53 set!373_0 id374_0 rhs375_0)" +"(let-values(((s_656) disarmed-s_18))" +"(let-values(((orig-s_58) s_656))" "(let-values(((set!373_1 id374_1 rhs375_1)" -"(let-values(((s_668)(if(syntax?$1 s_667)(syntax-e$1 s_667) s_667)))" -"(if(pair? s_668)" -"(let-values(((set!376_0)(let-values(((s_669)(car s_668))) s_669))" +"(let-values(((s_657)(if(syntax?$1 s_656)(syntax-e$1 s_656) s_656)))" +"(if(pair? s_657)" +"(let-values(((set!376_0)(let-values(((s_658)(car s_657))) s_658))" "((id377_0 rhs378_0)" -"(let-values(((s_670)(cdr s_668)))" -"(let-values(((s_671)" -"(if(syntax?$1 s_670)" -"(syntax-e$1 s_670)" -" s_670)))" -"(if(pair? s_671)" +"(let-values(((s_659)(cdr s_657)))" +"(let-values(((s_660)" +"(if(syntax?$1 s_659)" +"(syntax-e$1 s_659)" +" s_659)))" +"(if(pair? s_660)" "(let-values(((id379_0)" -"(let-values(((s_672)(car s_671)))" -"(if(let-values(((or-part_384)" -"(if(syntax?$1 s_672)" +"(let-values(((s_661)(car s_660)))" +"(if(let-values(((or-part_387)" +"(if(syntax?$1 s_661)" "(symbol?" "(syntax-e$1" -" s_672))" +" s_661))" " #f)))" -"(if or-part_384" -" or-part_384" -"(symbol? s_672)))" -" s_672" +"(if or-part_387" +" or-part_387" +"(symbol? s_661)))" +" s_661" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_57" -" s_672))))" +" orig-s_58" +" s_661))))" "((rhs380_0)" -"(let-values(((s_673)(cdr s_671)))" -"(let-values(((s_674)" -"(if(syntax?$1 s_673)" -"(syntax-e$1 s_673)" -" s_673)))" -"(if(pair? s_674)" +"(let-values(((s_662)(cdr s_660)))" +"(let-values(((s_663)" +"(if(syntax?$1 s_662)" +"(syntax-e$1 s_662)" +" s_662)))" +"(if(pair? s_663)" "(let-values(((rhs381_0)" -"(let-values(((s_675)" +"(let-values(((s_664)" "(car" -" s_674)))" -" s_675))" +" s_663)))" +" s_664))" "(()" -"(let-values(((s_676)" +"(let-values(((s_665)" "(cdr" -" s_674)))" -"(let-values(((s_677)" +" s_663)))" +"(let-values(((s_666)" "(if(syntax?$1" -" s_676)" +" s_665)" "(syntax-e$1" -" s_676)" -" s_676)))" -"(if(null? s_677)" +" s_665)" +" s_665)))" +"(if(null? s_666)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_57))))))" +" orig-s_58))))))" "(values rhs381_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_57))))))" +" orig-s_58))))))" "(values id379_0 rhs380_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_57))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))" "(values set!376_0 id377_0 rhs378_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_57)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" "(values #t set!373_1 id374_1 rhs375_1))))))" -"(let-values(((id_127) id374_0))" +"(let-values(((id_126) id374_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_128 from-rename?_0)" +"(lambda(id_127 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_31)" -"(let-values(((id382_0) id_128)" +"(let-values(((id382_0) id_127)" "((temp383_0)(expand-context-phase ctx_96))" "((temp384_0) 'ambiguous)" "((temp385_0) #t))" @@ -66624,30 +66815,30 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_31 'ambiguous)" -"(let-values()(raise-ambiguous-error id_128 ctx_96))" +"(let-values()(raise-ambiguous-error id_127 ctx_96))" "(void))" "(values))))" "(let-values(((t_57 primitive?_11 insp_24 protected?_12)" "(if binding_31" "(let-values(((binding386_0) binding_31)" "((ctx387_0) ctx_96)" -"((s388_0) s_666))" +"((s388_0) s_655))" "(lookup17.1 #f #f #f #f binding386_0 ctx387_0 s388_0))" "(values #f #f #f #f))))" "(begin" "(let-values(((obs_120)(expand-context-observer ctx_96)))" "(if obs_120" "(let-values()" -"(let-values()(call-expand-observe obs_120 'resolve id_128)))" +"(let-values()(call-expand-observe obs_120 'resolve id_127)))" "(void)))" -"(if(let-values(((or-part_385)(variable? t_57)))" -"(if or-part_385" -" or-part_385" +"(if(let-values(((or-part_388)(variable? t_57)))" +"(if or-part_388" +" or-part_388" "(if(not binding_31)" -"(let-values(((or-part_386)" -"(register-eventual-variable!? id_128 ctx_96)))" -"(if or-part_386" -" or-part_386" +"(let-values(((or-part_389)" +"(register-eventual-variable!? id_127 ctx_96)))" +"(if or-part_389" +" or-part_389" "(expand-context-allow-unbound? ctx_96)))" " #f)))" "(let-values()" @@ -66663,8 +66854,8 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_666" -" id_128))" +" s_655" +" id_127))" "(void))" "(values))))" "(let-values((()" @@ -66682,7 +66873,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_31)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx389_0) ctx_96)((s390_0) s_666))" +"(let-values(((ctx389_0) ctx_96)((s390_0) s_655))" "(keep-as-needed74.1" " #f" " #f" @@ -66700,13 +66891,13 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_96)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_128 binding_31 #f)" +"(parsed-id2.1 id_127 binding_31 #f)" " exp-rhs_4)" "(let-values(((rebuild-s393_0) rebuild-s_12)" "((temp394_0)" "(list" " set!373_0" -"(let-values(((id395_0) id_128)" +"(let-values(((id395_0) id_127)" "((t396_0) t_57)" "((temp397_0)" "(free-id-set-empty-or-just-module*?" @@ -66723,10 +66914,10 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_666" -" id_128" +" s_655" +" id_127" " null" -"(syntax-debug-info-string id_128 ctx_96)))" +"(syntax-debug-info-string id_127 ctx_96)))" "(if(1/set!-transformer? t_57)" "(let-values()" "(if(not-in-this-expand-context? t_57 ctx_96)" @@ -66734,11 +66925,11 @@ static const char *startup_source = "(let-values(((temp398_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_666" +" s_655" " disarmed-s_18" " set!373_0" " rhs375_0" -" id_128" +" id_127" " from-rename?_0" " ctx_96)" " t_57" @@ -66750,8 +66941,8 @@ static const char *startup_source = "(apply-transformer" " t_57" " insp_24" -" s_666" -" id_128" +" s_655" +" id_127" " ctx_96" " binding_31)))" "(if(expand-context-just-once? ctx_96)" @@ -66767,11 +66958,11 @@ static const char *startup_source = "(let-values(((temp402_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_666" +" s_655" " disarmed-s_18" " set!373_0" " rhs375_0" -" id_128" +" id_127" " from-rename?_0" " ctx_96" " t_57)" @@ -66787,10 +66978,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_666" -" id_128))))))))))))))" +" s_655" +" id_127))))))))))))))" " rename-loop_0)" -" id_127" +" id_126" " #f))))))))" "(define-values" "(substitute-set!-rename)" @@ -66798,39 +66989,39 @@ static const char *startup_source = "(lambda(s25_1 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_678) s25_1))" +"(let-values(((s_667) s25_1))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_129) id28_0))" +"(let-values(((id_128) 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))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_387) t_58))" -"(if or-part_387 or-part_387 from-rename?_1))" +"(if(let-values(((or-part_390) t_58))" +"(if or-part_390 or-part_390 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_58" "(rename-transformer-target-in-context t_58 ctx_97)" -" id_129)))" +" id_128)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_678)))" -"(let-values() s_678)))))))))))))))" +" s_667)))" +"(let-values() s_667)))))))))))))))" "(case-lambda" -"((s_679 disarmed-s_20 set!-id_1 id_130 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename32_0 s_679 disarmed-s_20 set!-id_1 id_130 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" -"((s_680 disarmed-s_21 set!-id_2 id_131 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename32_0 s_680 disarmed-s_21 set!-id_2 id_131 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" +"((s_668 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98)" +"(begin(substitute-set!-rename32_0 s_668 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" +"((s_669 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1)" +"(substitute-set!-rename32_0 s_669 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_681 ctx_100)" +"(lambda(s_670 ctx_100)" "(let-values((()" "(begin" "(let-values(((obs_122)(expand-context-observer ctx_100)))" @@ -66838,75 +67029,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_681)))" -"(let-values(((ok?_53 #%variable-reference404_0 id405_0)" -"(let-values(((s_682) disarmed-s_22))" -"(if(let-values(((s_683)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))" -"(if(pair? s_683)" -"(if(let-values(((s_684)(car s_683))) #t)" -"(let-values(((s_685)(cdr s_683)))" -"(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" -"(if(pair? s_686)" -"(if(let-values(((s_687)(car s_686)))" -"(let-values(((or-part_388)" -"(if(syntax?$1 s_687)(symbol?(syntax-e$1 s_687)) #f)))" -"(if or-part_388 or-part_388(symbol? s_687))))" -"(let-values(((s_688)(cdr s_686)))" -"(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" -"(null? s_689)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_670)))" +"(let-values(((ok?_54 #%variable-reference404_0 id405_0)" +"(let-values(((s_671) disarmed-s_22))" +"(if(let-values(((s_672)(if(syntax?$1 s_671)(syntax-e$1 s_671) s_671)))" +"(if(pair? s_672)" +"(if(let-values(((s_673)(car s_672))) #t)" +"(let-values(((s_674)(cdr s_672)))" +"(let-values(((s_675)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" +"(if(pair? s_675)" +"(if(let-values(((s_676)(car s_675)))" +"(let-values(((or-part_391)" +"(if(syntax?$1 s_676)(symbol?(syntax-e$1 s_676)) #f)))" +"(if or-part_391 or-part_391(symbol? s_676))))" +"(let-values(((s_677)(cdr s_675)))" +"(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" +"(null? s_678)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference404_1 id405_1)" -"(let-values(((s_690)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))" +"(let-values(((s_679)(if(syntax?$1 s_671)(syntax-e$1 s_671) s_671)))" "(let-values(((#%variable-reference406_0)" -"(let-values(((s_691)(car s_690))) s_691))" +"(let-values(((s_680)(car s_679))) s_680))" "((id407_0)" -"(let-values(((s_692)(cdr s_690)))" -"(let-values(((s_693)" -"(if(syntax?$1 s_692)" -"(syntax-e$1 s_692)" -" s_692)))" +"(let-values(((s_681)(cdr s_679)))" +"(let-values(((s_682)" +"(if(syntax?$1 s_681)" +"(syntax-e$1 s_681)" +" s_681)))" "(let-values(((id408_0)" -"(let-values(((s_694)(car s_693))) s_694))" +"(let-values(((s_683)(car s_682))) s_683))" "(()" -"(let-values(((s_695)(cdr s_693)))" -"(let-values(((s_696)" -"(if(syntax?$1 s_695)" -"(syntax-e$1 s_695)" -" s_695)))" +"(let-values(((s_684)(cdr s_682)))" +"(let-values(((s_685)" +"(if(syntax?$1 s_684)" +"(syntax-e$1 s_684)" +" s_684)))" "(values)))))" "(values id408_0))))))" "(values #%variable-reference406_0 id407_0)))))" "(values #t #%variable-reference404_1 id405_1)))" "(values #f #f #f)))))" -"(let-values(((ok?_54 #%variable-reference409_0 #%top410_0 id411_0)" -"(let-values(((s_697) disarmed-s_22))" -"(if(if(not ok?_53)" -"(let-values(((s_698)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" -"(if(pair? s_698)" -"(if(let-values(((s_699)(car s_698))) #t)" -"(let-values(((s_700)(cdr s_698)))" -"(let-values(((s_701)(if(syntax?$1 s_700)(syntax-e$1 s_700) s_700)))" -"(if(pair? s_701)" -"(if(let-values(((s_702)(car s_701)))" -"(let-values(((s_703)" -"(if(syntax?$1 s_702)(syntax-e$1 s_702) s_702)))" -"(if(pair? s_703)" -"(if(let-values(((s_704)(car s_703))) #t)" -"(let-values(((s_705)(cdr s_703)))" -"(let-values(((or-part_389)" -"(if(syntax?$1 s_705)" -"(symbol?(syntax-e$1 s_705))" +"(let-values(((ok?_55 #%variable-reference409_0 #%top410_0 id411_0)" +"(let-values(((s_686) disarmed-s_22))" +"(if(if(not ok?_54)" +"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" +"(if(pair? s_687)" +"(if(let-values(((s_688)(car s_687))) #t)" +"(let-values(((s_689)(cdr s_687)))" +"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" +"(if(pair? s_690)" +"(if(let-values(((s_691)(car s_690)))" +"(let-values(((s_692)" +"(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" +"(if(pair? s_692)" +"(if(let-values(((s_693)(car s_692))) #t)" +"(let-values(((s_694)(cdr s_692)))" +"(let-values(((or-part_392)" +"(if(syntax?$1 s_694)" +"(symbol?(syntax-e$1 s_694))" " #f)))" -"(if or-part_389 or-part_389(symbol? s_705))))" +"(if or-part_392 or-part_392(symbol? s_694))))" " #f)" " #f)))" -"(let-values(((s_706)(cdr s_701)))" -"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" -"(null? s_707)))" +"(let-values(((s_695)(cdr s_690)))" +"(let-values(((s_696)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" +"(null? s_696)))" " #f)" " #f)))" " #f)" @@ -66914,73 +67105,73 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference409_1 #%top410_1 id411_1)" -"(let-values(((s_708)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" +"(let-values(((s_697)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" "(let-values(((#%variable-reference412_0)" -"(let-values(((s_709)(car s_708))) s_709))" +"(let-values(((s_698)(car s_697))) s_698))" "((#%top413_0 id414_0)" -"(let-values(((s_710)(cdr s_708)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" +"(let-values(((s_699)(cdr s_697)))" +"(let-values(((s_700)" +"(if(syntax?$1 s_699)" +"(syntax-e$1 s_699)" +" s_699)))" "(let-values(((#%top415_0 id416_0)" -"(let-values(((s_712)(car s_711)))" -"(let-values(((s_713)" -"(if(syntax?$1 s_712)" -"(syntax-e$1 s_712)" -" s_712)))" +"(let-values(((s_701)(car s_700)))" +"(let-values(((s_702)" +"(if(syntax?$1 s_701)" +"(syntax-e$1 s_701)" +" s_701)))" "(let-values(((#%top417_0)" -"(let-values(((s_714)" +"(let-values(((s_703)" "(car" -" s_713)))" -" s_714))" +" s_702)))" +" s_703))" "((id418_0)" -"(let-values(((s_715)" +"(let-values(((s_704)" "(cdr" -" s_713)))" -" s_715)))" +" s_702)))" +" s_704)))" "(values #%top417_0 id418_0)))))" "(()" -"(let-values(((s_716)(cdr s_711)))" -"(let-values(((s_717)" -"(if(syntax?$1 s_716)" -"(syntax-e$1 s_716)" -" s_716)))" +"(let-values(((s_705)(cdr s_700)))" +"(let-values(((s_706)" +"(if(syntax?$1 s_705)" +"(syntax-e$1 s_705)" +" s_705)))" "(values)))))" "(values #%top415_0 id416_0))))))" "(values #%variable-reference412_0 #%top413_0 id414_0)))))" "(values #t #%variable-reference409_1 #%top410_1 id411_1)))" "(values #f #f #f #f)))))" -"(let-values(((ok?_55 #%variable-reference419_0)" -"(let-values(((s_718) disarmed-s_22))" -"(if(if(not(let-values(((or-part_390) ok?_53))(if or-part_390 or-part_390 ok?_54)))" +"(let-values(((ok?_56 #%variable-reference419_0)" +"(let-values(((s_707) disarmed-s_22))" +"(if(if(not(let-values(((or-part_393) ok?_54))(if or-part_393 or-part_393 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_58) s_718))" +"(let-values(((orig-s_59) s_707))" "(let-values(((#%variable-reference419_1)" -"(let-values(((s_719)(if(syntax?$1 s_718)(syntax-e$1 s_718) s_718)))" -"(if(pair? s_719)" +"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" +"(if(pair? s_708)" "(let-values(((#%variable-reference420_0)" -"(let-values(((s_720)(car s_719))) s_720))" +"(let-values(((s_709)(car s_708))) s_709))" "(()" -"(let-values(((s_721)(cdr s_719)))" -"(let-values(((s_722)" -"(if(syntax?$1 s_721)" -"(syntax-e$1 s_721)" -" s_721)))" -"(if(null? s_722)" +"(let-values(((s_710)(cdr s_708)))" +"(let-values(((s_711)" +"(if(syntax?$1 s_710)" +"(syntax-e$1 s_710)" +" s_710)))" +"(if(null? s_711)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_58))))))" +" orig-s_59))))))" "(values #%variable-reference420_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference419_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_391) ok?_53))(if or-part_391 or-part_391 ok?_54))" +"(if(let-values(((or-part_394) ok?_54))(if or-part_394 or-part_394 ok?_55))" "(let-values()" -"(let-values(((var-id_0)(if ok?_53 id405_0 id411_0)))" +"(let-values(((var-id_0)(if ok?_54 id405_0 id411_0)))" "(let-values(((binding_32)" "(let-values(((var-id421_0) var-id_0)" "((temp422_0)(expand-context-phase ctx_100))" @@ -66994,14 +67185,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_392) binding_32))" -"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_395) binding_32))" +"(if or-part_395 or-part_395(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_681" +" s_670" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_100))))" @@ -67011,30 +67202,30 @@ static const char *startup_source = "(let-values(((binding424_0) binding_32)" "((ctx425_0) ctx_100)" "((var-id426_0) var-id_0)" -"((s427_0) s_681)" +"((s427_0) s_670)" "((temp428_0)(expand-context-in-local-expand? ctx_100)))" "(lookup17.1 s427_0 #t temp428_0 #t binding424_0 ctx425_0 var-id426_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_59(not(variable? t_59)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_681))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_670))" "(void))" "(if(expand-context-to-parsed? ctx_100)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_681)" -"(if ok?_54" +"(keep-properties-only~ s_670)" +"(if ok?_55" "(let-values()(parsed-top-id4.1 var-id_0 binding_32 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_32 #f))))" -" s_681))))))))" +" s_670))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_681) #f)" -" s_681)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_670) #f)" +" s_670)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_723 ctx_101)" +"(lambda(s_712 ctx_101)" "(let-values((()" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_101)))" @@ -67042,44 +67233,44 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_123 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_723)))" -"(let-values(((ok?_56 #%expression429_0 e430_0)" -"(let-values(((s_724) disarmed-s_23))" -"(let-values(((orig-s_59) s_724))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_712)))" +"(let-values(((ok?_57 #%expression429_0 e430_0)" +"(let-values(((s_713) disarmed-s_23))" +"(let-values(((orig-s_60) s_713))" "(let-values(((#%expression429_1 e430_1)" -"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))" -"(if(pair? s_725)" +"(let-values(((s_714)(if(syntax?$1 s_713)(syntax-e$1 s_713) s_713)))" +"(if(pair? s_714)" "(let-values(((#%expression431_0)" -"(let-values(((s_726)(car s_725))) s_726))" +"(let-values(((s_715)(car s_714))) s_715))" "((e432_0)" -"(let-values(((s_727)(cdr s_725)))" -"(let-values(((s_728)" -"(if(syntax?$1 s_727)" -"(syntax-e$1 s_727)" -" s_727)))" -"(if(pair? s_728)" +"(let-values(((s_716)(cdr s_714)))" +"(let-values(((s_717)" +"(if(syntax?$1 s_716)" +"(syntax-e$1 s_716)" +" s_716)))" +"(if(pair? s_717)" "(let-values(((e433_0)" -"(let-values(((s_729)(car s_728)))" -" s_729))" +"(let-values(((s_718)(car s_717)))" +" s_718))" "(()" -"(let-values(((s_730)(cdr s_728)))" -"(let-values(((s_731)" -"(if(syntax?$1 s_730)" -"(syntax-e$1 s_730)" -" s_730)))" -"(if(null? s_731)" +"(let-values(((s_719)(cdr s_717)))" +"(let-values(((s_720)" +"(if(syntax?$1 s_719)" +"(syntax-e$1 s_719)" +" s_719)))" +"(if(null? s_720)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_59))))))" +" orig-s_60))))))" "(values e433_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60))))))" "(values #%expression431_0 e432_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%expression429_1 e430_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx434_0) ctx_101)((s435_0) s_723)((temp436_0) #t))" +"(let-values(((ctx434_0) ctx_101)((s435_0) s_712)((temp436_0) #t))" "(keep-as-needed74.1 temp436_0 #t #f #f #f #f ctx434_0 s435_0))))" "(let-values(((exp-e_0)" "(let-values(((temp437_0) e430_0)" @@ -67106,16 +67297,16 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s441_0) rebuild-s_13)((temp442_0)(list #%expression429_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s441_0 temp442_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_732 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_732))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_733 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_733))))" +" (void (add-core-form!* 'unquote (lambda (s_721 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_721))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_722 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_722))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_132 at-phase_12 ns_121)" +"(lambda(b_41 id_131 at-phase_12 ns_122)" "(begin" "(if(not at-phase_12)" "(let-values()" "(let-values(((m_30)" -"(namespace->module ns_121(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(namespace->module ns_122(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" "(let-values(((b/p_4)" "(hash-ref" "(hash-ref(module-provides m_30)(module-binding-nominal-phase b_41) '#hasheq())" @@ -67123,47 +67314,47 @@ static const char *startup_source = " #f)))" "(provided-as-transformer? b/p_4))))" "(let-values()" -"(let-values(((val_81 primitive?_13 insp_25 protected?_14)" +"(let-values(((val_82 primitive?_13 insp_25 protected?_14)" "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_121)" +"((ns4_0) ns_122)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_132))" -"(binding-lookup48.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" -"(not(variable? val_81))))))))" +"((id6_0) id_131))" +"(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" +"(not(variable? val_82))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_60 rp_1 self_30 phase_43 ctx_104)" +"(lambda(specs_0 orig-s_61 rp_1 self_30 phase_43 ctx_104)" "(begin" -"(let-values(((ns_122)(expand-context-namespace ctx_104)))" +"(let-values(((ns_123)(expand-context-namespace ctx_104)))" "((letrec-values(((loop_113)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_76) specs_1))" +"(let-values(((lst_77) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_92)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_91)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_401)" +" lst_405)" "(begin" " 'for-loop" -"(if(pair? lst_401)" +"(if(pair? lst_405)" "(let-values(((spec_0)" "(unsafe-car" -" lst_401))" -"((rest_227)" +" lst_405))" +"((rest_228)" "(unsafe-cdr" -" lst_401)))" +" lst_405)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -67209,7 +67400,7 @@ static const char *startup_source = "(format" " \"nested `~a' not allowed\"" " fm_2)" -" orig-s_60" +" orig-s_61" " spec_0)))))))" "(let-values(((tmp_63)" " fm_2))" @@ -67275,11 +67466,11 @@ static const char *startup_source = "(begin" "(parse-identifier!" " spec_0" -" orig-s_60" +" orig-s_61" "(syntax-e$1" " spec_0)" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -67290,7 +67481,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"bad syntax\"" -" orig-s_60" +" orig-s_61" " spec_0))))" "(let-values()" "(let-values((()" @@ -67298,68 +67489,68 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_57" +"(let-values(((ok?_58" " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_304)" +"(let-values(((s_303)" " disarmed-spec_0))" -"(let-values(((orig-s_61)" -" s_304))" +"(let-values(((orig-s_62)" +" s_303))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_305)" +"(let-values(((s_304)" "(if(syntax?$1" -" s_304)" +" s_303)" "(syntax-e$1" -" s_304)" -" s_304)))" +" s_303)" +" s_303)))" "(if(pair?" -" s_305)" +" s_304)" "(let-values(((for-meta6_0)" -"(let-values(((s_176)" +"(let-values(((s_175)" "(car" -" s_305)))" -" s_176))" +" s_304)))" +" s_175))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_76)" +"(let-values(((s_75)" "(cdr" -" s_305)))" -"(let-values(((s_734)" +" s_304)))" +"(let-values(((s_723)" "(if(syntax?$1" -" s_76)" +" s_75)" "(syntax-e$1" -" s_76)" -" s_76)))" +" s_75)" +" s_75)))" "(if(pair?" -" s_734)" +" s_723)" "(let-values(((phase-level9_0)" -"(let-values(((s_178)" +"(let-values(((s_177)" "(car" -" s_734)))" -" s_178))" +" s_723)))" +" s_177))" "((spec10_0)" -"(let-values(((s_460)" +"(let-values(((s_459)" "(cdr" -" s_734)))" -"(let-values(((s_467)" +" s_723)))" +"(let-values(((s_466)" "(if(syntax?$1" -" s_460)" +" s_459)" "(syntax-e$1" -" s_460)" -" s_460)))" +" s_459)" +" s_459)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_467)))" +" s_466)))" "(if(not" " flat-s_42)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61))" +" orig-s_62))" "(let-values()" " flat-s_42)))))))" "(values" @@ -67368,7 +67559,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61))))))" +" orig-s_62))))))" "(values" " for-meta6_0" " phase-level7_0" @@ -67376,7 +67567,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61)))))" +" orig-s_62)))))" "(values" " #t" " for-meta3_1" @@ -67394,7 +67585,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"bad `for-meta' phase\"" -" orig-s_60" +" orig-s_61" " spec_0)))" "(values))))" "(let-values(((track-stxes_5" @@ -67432,12 +67623,12 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_58" +"(let-values(((ok?_59" " for-syntax13_0" " spec14_0)" "(let-values(((s_20)" " disarmed-spec_0))" -"(let-values(((orig-s_62)" +"(let-values(((orig-s_63)" " s_20))" "(let-values(((for-syntax13_1" " spec14_1)" @@ -67450,15 +67641,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_426)" +"(let-values(((s_425)" "(car" " s_23)))" -" s_426))" +" s_425))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_735)" +"(let-values(((s_724)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -67466,14 +67657,14 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_735)))" +" s_724)))" "(if(not" " flat-s_43)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62))" +" orig-s_63))" "(let-values()" " flat-s_43)))))))" "(values" @@ -67482,7 +67673,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62)))))" +" orig-s_63)))))" "(values" " #t" " for-syntax13_1" @@ -67521,33 +67712,33 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_59" +"(let-values(((ok?_60" " for-label19_0" " spec20_0)" "(let-values(((s_44)" " disarmed-spec_0))" -"(let-values(((orig-s_63)" +"(let-values(((orig-s_64)" " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_477)" +"(let-values(((s_476)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_477)" +" s_476)" "(let-values(((for-label21_0)" -"(let-values(((s_474)" +"(let-values(((s_473)" "(car" -" s_477)))" -" s_474))" +" s_476)))" +" s_473))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_477)))" -"(let-values(((s_306)" +" s_476)))" +"(let-values(((s_305)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -67555,14 +67746,14 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_306)))" +" s_305)))" "(if(not" " flat-s_44)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))" +" orig-s_64))" "(let-values()" " flat-s_44)))))))" "(values" @@ -67571,7 +67762,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63)))))" +" orig-s_64)))))" "(values" " #t" " for-label19_1" @@ -67615,52 +67806,52 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"nested `protect' not allowed\"" -" orig-s_60" +" orig-s_61" " spec_0))" "(void))" "(values))))" -"(let-values(((ok?_60" +"(let-values(((ok?_61" " protect25_0" " p-spec26_0)" -"(let-values(((s_83)" +"(let-values(((s_82)" " disarmed-spec_0))" -"(let-values(((orig-s_64)" -" s_83))" +"(let-values(((orig-s_65)" +" s_82))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_83)" +" s_82)" "(syntax-e$1" -" s_83)" -" s_83)))" +" s_82)" +" s_82)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_736)" +"(let-values(((s_725)" "(car" " s_31)))" -" s_736))" +" s_725))" "((p-spec28_0)" -"(let-values(((s_309)" +"(let-values(((s_308)" "(cdr" " s_31)))" -"(let-values(((s_480)" +"(let-values(((s_479)" "(if(syntax?$1" -" s_309)" +" s_308)" "(syntax-e$1" -" s_309)" -" s_309)))" +" s_308)" +" s_308)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_480)))" +" s_479)))" "(if(not" " flat-s_45)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64))" +" orig-s_65))" "(let-values()" " flat-s_45)))))))" "(values" @@ -67669,7 +67860,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64)))))" +" orig-s_65)))))" "(values" " #t" " protect25_1" @@ -67703,47 +67894,47 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_61" +"(let-values(((ok?_62" " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_737)" +"(let-values(((s_726)" " disarmed-spec_0))" -"(let-values(((orig-s_65)" -" s_737))" +"(let-values(((orig-s_66)" +" s_726))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_483)" +"(let-values(((s_482)" "(if(syntax?$1" -" s_737)" +" s_726)" "(syntax-e$1" -" s_737)" -" s_737)))" +" s_726)" +" s_726)))" "(if(pair?" -" s_483)" +" s_482)" "(let-values(((rename34_0)" -"(let-values(((s_315)" +"(let-values(((s_314)" "(car" -" s_483)))" -" s_315))" +" s_482)))" +" s_314))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_395)" +"(let-values(((s_394)" "(cdr" -" s_483)))" -"(let-values(((s_316)" +" s_482)))" +"(let-values(((s_315)" "(if(syntax?$1" -" s_395)" +" s_394)" "(syntax-e$1" -" s_395)" -" s_395)))" +" s_394)" +" s_394)))" "(if(pair?" -" s_316)" +" s_315)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_316)))" +" s_315)))" "(if(let-values(((or-part_58)" "(if(syntax?$1" " s_33)" @@ -67759,71 +67950,71 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_65" +" orig-s_66" " s_33))))" "((id:to38_0)" -"(let-values(((s_738)" +"(let-values(((s_727)" "(cdr" -" s_316)))" -"(let-values(((s_739)" +" s_315)))" +"(let-values(((s_728)" "(if(syntax?$1" -" s_738)" +" s_727)" "(syntax-e$1" -" s_738)" -" s_738)))" +" s_727)" +" s_727)))" "(if(pair?" -" s_739)" +" s_728)" "(let-values(((id:to39_0)" -"(let-values(((s_430)" +"(let-values(((s_429)" "(car" -" s_739)))" +" s_728)))" "(if(let-values(((or-part_100)" "(if(syntax?$1" -" s_430)" +" s_429)" "(symbol?" "(syntax-e$1" -" s_430))" +" s_429))" " #f)))" "(if or-part_100" " or-part_100" "(symbol?" -" s_430)))" -" s_430" +" s_429)))" +" s_429" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_65" -" s_430))))" +" orig-s_66" +" s_429))))" "(()" -"(let-values(((s_740)" +"(let-values(((s_729)" "(cdr" -" s_739)))" -"(let-values(((s_382)" +" s_728)))" +"(let-values(((s_381)" "(if(syntax?$1" -" s_740)" +" s_729)" "(syntax-e$1" -" s_740)" -" s_740)))" +" s_729)" +" s_729)))" "(if(null?" -" s_382)" +" s_381)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65))))))" +" orig-s_66))))))" "(values" " id:to39_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65))))))" +" orig-s_66))))))" "(values" " id:from37_0" " id:to38_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65))))))" +" orig-s_66))))))" "(values" " rename34_0" " id:from35_0" @@ -67831,7 +68022,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65)))))" +" orig-s_66)))))" "(values" " #t" " rename31_1" @@ -67840,11 +68031,11 @@ static const char *startup_source = "(begin" "(parse-identifier!" " id:from32_0" -" orig-s_60" +" orig-s_61" "(syntax-e$1" " id:to33_0)" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -67863,81 +68054,81 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_62" +"(let-values(((ok?_63" " struct40_0" " id:struct41_0" " id:field42_0)" "(let-values(((s_36)" " disarmed-spec_0))" -"(let-values(((orig-s_66)" +"(let-values(((orig-s_67)" " s_36))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_410)" +"(let-values(((s_409)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_410)" +" s_409)" "(let-values(((struct43_0)" -"(let-values(((s_197)" +"(let-values(((s_196)" "(car" -" s_410)))" -" s_197))" +" s_409)))" +" s_196))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_741)" +"(let-values(((s_730)" "(cdr" -" s_410)))" -"(let-values(((s_84)" +" s_409)))" +"(let-values(((s_83)" "(if(syntax?$1" -" s_741)" +" s_730)" "(syntax-e$1" -" s_741)" -" s_741)))" +" s_730)" +" s_730)))" "(if(pair?" -" s_84)" +" s_83)" "(let-values(((id:struct46_0)" -"(let-values(((s_742)" +"(let-values(((s_731)" "(car" -" s_84)))" -"(if(let-values(((or-part_359)" +" s_83)))" +"(if(let-values(((or-part_362)" "(if(syntax?$1" -" s_742)" +" s_731)" "(symbol?" "(syntax-e$1" -" s_742))" +" s_731))" " #f)))" -"(if or-part_359" -" or-part_359" +"(if or-part_362" +" or-part_362" "(symbol?" -" s_742)))" -" s_742" +" s_731)))" +" s_731" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_66" -" s_742))))" +" orig-s_67" +" s_731))))" "((id:field47_0)" -"(let-values(((s_743)" +"(let-values(((s_732)" "(cdr" -" s_84)))" -"(let-values(((s_389)" +" s_83)))" +"(let-values(((s_388)" "(if(syntax?$1" -" s_743)" +" s_732)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_732)" +" s_732)))" "(if(pair?" -" s_389)" +" s_388)" "(let-values(((id:field48_0)" "(let-values(((s_62)" "(car" -" s_389)))" -"(let-values(((s_744)" +" s_388)))" +"(let-values(((s_733)" "(if(syntax?$1" " s_62)" "(syntax-e$1" @@ -67945,14 +68136,14 @@ static const char *startup_source = " s_62)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_744)))" +" s_733)))" "(if(not" " flat-s_46)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))" +" orig-s_67))" "(let-values()" "(let-values(((id:field_0)" "(let-values(((lst_33)" @@ -67984,22 +68175,22 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" " s_38)" "(symbol?" "(syntax-e$1" " s_38))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_396" +" or-part_396" "(symbol?" " s_38)))" " s_38" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_66" +" orig-s_67" " s_38)))))" "(cons" " id:field49_0" @@ -68019,35 +68210,35 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_201)" +"(let-values(((s_200)" "(cdr" -" s_389)))" -"(let-values(((s_745)" +" s_388)))" +"(let-values(((s_734)" "(if(syntax?$1" -" s_201)" +" s_200)" "(syntax-e$1" -" s_201)" -" s_201)))" +" s_200)" +" s_200)))" "(if(null?" -" s_745)" +" s_734)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))))))" +" orig-s_67))))))" "(values" " id:field48_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))))))" +" orig-s_67))))))" "(values" " id:struct46_0" " id:field47_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))))))" +" orig-s_67))))))" "(values" " struct43_0" " id:struct44_0" @@ -68055,7 +68246,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66)))))" +" orig-s_67)))))" "(values" " #t" " struct40_1" @@ -68064,10 +68255,10 @@ static const char *startup_source = "(begin" "(parse-struct!" " id:struct41_0" -" orig-s_60" +" orig-s_61" " id:field42_0" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -68083,75 +68274,75 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_63" +"(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_746)" +"(let-values(((s_735)" " disarmed-spec_0))" -"(let-values(((orig-s_67)" -" s_746))" +"(let-values(((orig-s_68)" +" s_735))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_747)" +"(let-values(((s_736)" "(if(syntax?$1" -" s_746)" +" s_735)" "(syntax-e$1" -" s_746)" -" s_746)))" +" s_735)" +" s_735)))" "(if(pair?" -" s_747)" +" s_736)" "(let-values(((all-from52_0)" -"(let-values(((s_748)" +"(let-values(((s_737)" "(car" -" s_747)))" -" s_748))" +" s_736)))" +" s_737))" "((mod-path53_0)" +"(let-values(((s_203)" +"(cdr" +" s_736)))" "(let-values(((s_204)" -"(cdr" -" s_747)))" -"(let-values(((s_205)" "(if(syntax?$1" -" s_204)" +" s_203)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_203)" +" s_203)))" "(if(pair?" -" s_205)" +" s_204)" "(let-values(((mod-path54_0)" -"(let-values(((s_91)" +"(let-values(((s_90)" "(car" -" s_205)))" -" s_91))" +" s_204)))" +" s_90))" "(()" -"(let-values(((s_407)" +"(let-values(((s_406)" "(cdr" -" s_205)))" -"(let-values(((s_321)" +" s_204)))" +"(let-values(((s_320)" "(if(syntax?$1" -" s_407)" +" s_406)" "(syntax-e$1" -" s_407)" -" s_407)))" +" s_406)" +" s_406)))" "(if(null?" -" s_321)" +" s_320)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_67))))))" +" orig-s_68))))))" "(values" " mod-path54_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_67))))))" +" orig-s_68))))))" "(values" " all-from52_0" " mod-path53_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_67)))))" +" orig-s_68)))))" "(values" " #t" " all-from50_1" @@ -68159,11 +68350,11 @@ static const char *startup_source = "(begin" "(parse-all-from" " mod-path51_0" -" orig-s_60" +" orig-s_61" " self_30" " null" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15" " ctx_104)" @@ -68177,71 +68368,71 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_64" +"(let-values(((ok?_65" " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_207)" +"(let-values(((s_206)" " disarmed-spec_0))" -"(let-values(((orig-s_68)" -" s_207))" +"(let-values(((orig-s_69)" +" s_206))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_96)" +"(let-values(((s_95)" "(if(syntax?$1" -" s_207)" +" s_206)" "(syntax-e$1" -" s_207)" -" s_207)))" +" s_206)" +" s_206)))" "(if(pair?" -" s_96)" +" s_95)" "(let-values(((all-from-except58_0)" -"(let-values(((s_749)" +"(let-values(((s_738)" "(car" -" s_96)))" -" s_749))" +" s_95)))" +" s_738))" "((mod-path59_0" " id60_0)" -"(let-values(((s_100)" +"(let-values(((s_99)" "(cdr" -" s_96)))" -"(let-values(((s_487)" +" s_95)))" +"(let-values(((s_486)" "(if(syntax?$1" -" s_100)" +" s_99)" "(syntax-e$1" -" s_100)" -" s_100)))" +" s_99)" +" s_99)))" "(if(pair?" -" s_487)" +" s_486)" "(let-values(((mod-path61_0)" -"(let-values(((s_398)" +"(let-values(((s_397)" "(car" -" s_487)))" -" s_398))" +" s_486)))" +" s_397))" "((id62_0)" -"(let-values(((s_750)" +"(let-values(((s_739)" "(cdr" -" s_487)))" -"(let-values(((s_751)" +" s_486)))" +"(let-values(((s_740)" "(if(syntax?$1" -" s_750)" +" s_739)" "(syntax-e$1" -" s_750)" -" s_750)))" +" s_739)" +" s_739)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_751)))" +" s_740)))" "(if(not" " flat-s_47)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_68))" +" orig-s_69))" "(let-values()" -"(let-values(((id_133)" -"(let-values(((lst_402)" +"(let-values(((id_132)" +"(let-values(((lst_406)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68249,68 +68440,68 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_402)))" -"((letrec-values(((for-loop_309)" -"(lambda(id_134" -" lst_403)" +" lst_406)))" +"((letrec-values(((for-loop_315)" +"(lambda(id_133" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_403)" -"(let-values(((s_490)" +" lst_407)" +"(let-values(((s_489)" "(unsafe-car" -" lst_403))" -"((rest_228)" +" lst_407))" +"((rest_229)" "(unsafe-cdr" -" lst_403)))" +" lst_407)))" +"(let-values(((id_134)" "(let-values(((id_135)" +" id_133))" "(let-values(((id_136)" -" id_134))" -"(let-values(((id_137)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_490)" +" s_489)" "(symbol?" "(syntax-e$1" -" s_490))" +" s_489))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_397" +" or-part_397" "(symbol?" -" s_490)))" -" s_490" +" s_489)))" +" s_489" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_68" -" s_490)))))" +" orig-s_69" +" s_489)))))" "(cons" " id63_0" -" id_136)))))" +" id_135)))))" "(values" -" id_137)))))" +" id_136)))))" "(if(not" " #f)" -"(for-loop_309" -" id_135" -" rest_228)" -" id_135)))" -" id_134)))))" -" for-loop_309)" +"(for-loop_315" +" id_134" +" rest_229)" +" id_134)))" +" id_133)))))" +" for-loop_315)" " null" -" lst_402)))))" +" lst_406)))))" "(reverse$1" -" id_133)))))))))" +" id_132)))))))))" "(values" " mod-path61_0" " id62_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_68))))))" +" orig-s_69))))))" "(values" " all-from-except58_0" " mod-path59_0" @@ -68318,7 +68509,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_68)))))" +" orig-s_69)))))" "(values" " #t" " all-from-except55_1" @@ -68327,11 +68518,11 @@ static const char *startup_source = "(begin" "(parse-all-from" " mod-path56_0" -" orig-s_60" +" orig-s_61" " self_30" " id57_0" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15" " ctx_104)" @@ -68351,49 +68542,49 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_65" +"(let-values(((ok?_66" " all-defined64_0)" -"(let-values(((s_211)" +"(let-values(((s_210)" " disarmed-spec_0))" -"(let-values(((orig-s_69)" -" s_211))" +"(let-values(((orig-s_70)" +" s_210))" "(let-values(((all-defined64_1)" -"(let-values(((s_391)" +"(let-values(((s_390)" "(if(syntax?$1" -" s_211)" +" s_210)" "(syntax-e$1" -" s_211)" -" s_211)))" +" s_210)" +" s_210)))" "(if(pair?" -" s_391)" +" s_390)" "(let-values(((all-defined65_0)" -"(let-values(((s_752)" +"(let-values(((s_741)" "(car" -" s_391)))" -" s_752))" +" s_390)))" +" s_741))" "(()" -"(let-values(((s_753)" +"(let-values(((s_742)" "(cdr" -" s_391)))" -"(let-values(((s_109)" +" s_390)))" +"(let-values(((s_108)" "(if(syntax?$1" -" s_753)" +" s_742)" "(syntax-e$1" -" s_753)" -" s_753)))" +" s_742)" +" s_742)))" "(if(null?" -" s_109)" +" s_108)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69))))))" +" orig-s_70))))))" "(values" " all-defined65_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69)))))" +" orig-s_70)))))" "(values" " #t" " all-defined64_1))))))" @@ -68401,11 +68592,11 @@ static const char *startup_source = "(parse-all-from-module" " self_30" " spec_0" -" orig-s_60" +" orig-s_61" " null" " #f" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -68418,51 +68609,51 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_66" +"(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_414)" +"(let-values(((s_413)" " disarmed-spec_0))" -"(let-values(((orig-s_70)" -" s_414))" +"(let-values(((orig-s_71)" +" s_413))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_214)" +"(let-values(((s_213)" "(if(syntax?$1" -" s_414)" +" s_413)" "(syntax-e$1" -" s_414)" -" s_414)))" +" s_413)" +" s_413)))" "(if(pair?" -" s_214)" +" s_213)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_754)" +"(let-values(((s_743)" "(car" -" s_214)))" -" s_754))" +" s_213)))" +" s_743))" "((id69_0)" -"(let-values(((s_215)" +"(let-values(((s_214)" "(cdr" -" s_214)))" -"(let-values(((s_216)" +" s_213)))" +"(let-values(((s_215)" "(if(syntax?$1" -" s_215)" +" s_214)" "(syntax-e$1" -" s_215)" -" s_215)))" +" s_214)" +" s_214)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_216)))" +" s_215)))" "(if(not" " flat-s_48)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70))" +" orig-s_71))" "(let-values()" -"(let-values(((id_138)" -"(let-values(((lst_404)" +"(let-values(((id_137)" +"(let-values(((lst_408)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68470,68 +68661,68 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_404)))" -"((letrec-values(((for-loop_310)" -"(lambda(id_139" -" lst_405)" +" lst_408)))" +"((letrec-values(((for-loop_316)" +"(lambda(id_138" +" lst_409)" "(begin" " 'for-loop" "(if(pair?" -" lst_405)" -"(let-values(((s_755)" +" lst_409)" +"(let-values(((s_744)" "(unsafe-car" -" lst_405))" -"((rest_229)" +" lst_409))" +"((rest_230)" "(unsafe-cdr" -" lst_405)))" +" lst_409)))" +"(let-values(((id_139)" "(let-values(((id_140)" -"(let-values(((id_141)" -" id_139))" +" id_138))" "(let-values(((id_29)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_755)" +" s_744)" "(symbol?" "(syntax-e$1" -" s_755))" +" s_744))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_755)))" -" s_755" +" s_744)))" +" s_744" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_70" -" s_755)))))" +" orig-s_71" +" s_744)))))" "(cons" " id70_0" -" id_141)))))" +" id_140)))))" "(values" " id_29)))))" "(if(not" " #f)" -"(for-loop_310" -" id_140" -" rest_229)" -" id_140)))" -" id_139)))))" -" for-loop_310)" +"(for-loop_316" +" id_139" +" rest_230)" +" id_139)))" +" id_138)))))" +" for-loop_316)" " null" -" lst_404)))))" +" lst_408)))))" "(reverse$1" -" id_138)))))))))" +" id_137)))))))))" "(values" " all-defined-except68_0" " id69_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70)))))" +" orig-s_71)))))" "(values" " #t" " all-defined-except66_1" @@ -68540,11 +68731,11 @@ static const char *startup_source = "(parse-all-from-module" " self_30" " spec_0" -" orig-s_60" +" orig-s_61" " id67_0" " #f" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -68560,91 +68751,91 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_67" +"(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_756)" +"(let-values(((s_745)" " disarmed-spec_0))" -"(let-values(((orig-s_71)" -" s_756))" +"(let-values(((orig-s_72)" +" s_745))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_416)" +"(let-values(((s_415)" "(if(syntax?$1" -" s_756)" +" s_745)" "(syntax-e$1" -" s_756)" -" s_756)))" +" s_745)" +" s_745)))" "(if(pair?" -" s_416)" +" s_415)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_757)" +"(let-values(((s_746)" "(car" -" s_416)))" -" s_757))" +" s_415)))" +" s_746))" "((id:prefix74_0)" -"(let-values(((s_758)" +"(let-values(((s_747)" "(cdr" -" s_416)))" -"(let-values(((s_505)" +" s_415)))" +"(let-values(((s_504)" "(if(syntax?$1" -" s_758)" +" s_747)" "(syntax-e$1" -" s_758)" -" s_758)))" +" s_747)" +" s_747)))" "(if(pair?" -" s_505)" +" s_504)" "(let-values(((id:prefix75_0)" -"(let-values(((s_506)" +"(let-values(((s_505)" "(car" -" s_505)))" -"(if(let-values(((or-part_396)" +" s_504)))" +"(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_506)" +" s_505)" "(symbol?" "(syntax-e$1" -" s_506))" +" s_505))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_399" +" or-part_399" "(symbol?" -" s_506)))" -" s_506" +" s_505)))" +" s_505" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_71" -" s_506))))" +" orig-s_72" +" s_505))))" "(()" -"(let-values(((s_759)" +"(let-values(((s_748)" "(cdr" -" s_505)))" -"(let-values(((s_760)" +" s_504)))" +"(let-values(((s_749)" "(if(syntax?$1" -" s_759)" +" s_748)" "(syntax-e$1" -" s_759)" -" s_759)))" +" s_748)" +" s_748)))" "(if(null?" -" s_760)" +" s_749)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71))))))" +" orig-s_72))))))" "(values" " id:prefix75_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71))))))" +" orig-s_72))))))" "(values" " prefix-all-defined73_0" " id:prefix74_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71)))))" +" orig-s_72)))))" "(values" " #t" " prefix-all-defined71_1" @@ -68653,12 +68844,12 @@ static const char *startup_source = "(parse-all-from-module" " self_30" " spec_0" -" orig-s_60" +" orig-s_61" " null" "(syntax-e$1" " id:prefix72_0)" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -68674,86 +68865,86 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_68" +"(let-values(((ok?_69" " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_232)" +"(let-values(((s_231)" " disarmed-spec_0))" -"(let-values(((orig-s_72)" -" s_232))" +"(let-values(((orig-s_73)" +" s_231))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_331)" +"(let-values(((s_330)" "(if(syntax?$1" -" s_232)" +" s_231)" "(syntax-e$1" -" s_232)" -" s_232)))" +" s_231)" +" s_231)))" "(if(pair?" -" s_331)" +" s_330)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_334)" +"(let-values(((s_333)" "(car" -" s_331)))" -" s_334))" +" s_330)))" +" s_333))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_335)" +"(let-values(((s_334)" "(cdr" -" s_331)))" -"(let-values(((s_336)" +" s_330)))" +"(let-values(((s_335)" "(if(syntax?$1" -" s_335)" +" s_334)" "(syntax-e$1" -" s_335)" -" s_335)))" +" s_334)" +" s_334)))" "(if(pair?" -" s_336)" +" s_335)" "(let-values(((id:prefix82_0)" -"(let-values(((s_339)" +"(let-values(((s_338)" "(car" -" s_336)))" -"(if(let-values(((or-part_397)" +" s_335)))" +"(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_339)" +" s_338)" "(symbol?" "(syntax-e$1" -" s_339))" +" s_338))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_400" +" or-part_400" "(symbol?" -" s_339)))" -" s_339" +" s_338)))" +" s_338" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_72" -" s_339))))" +" orig-s_73" +" s_338))))" "((id83_1)" -"(let-values(((s_341)" +"(let-values(((s_340)" "(cdr" -" s_336)))" -"(let-values(((s_510)" +" s_335)))" +"(let-values(((s_509)" "(if(syntax?$1" -" s_341)" +" s_340)" "(syntax-e$1" -" s_341)" -" s_341)))" +" s_340)" +" s_340)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_510)))" +" s_509)))" "(if(not" " flat-s_49)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72))" +" orig-s_73))" "(let-values()" -"(let-values(((id_142)" +"(let-values(((id_141)" "(let-values(((lst_4)" " flat-s_49))" "(begin" @@ -68763,67 +68954,67 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_311)" -"(lambda(id_143" -" lst_406)" +"((letrec-values(((for-loop_317)" +"(lambda(id_142" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" -"(let-values(((s_511)" +" lst_410)" +"(let-values(((s_510)" "(unsafe-car" -" lst_406))" +" lst_410))" "((rest_186)" "(unsafe-cdr" -" lst_406)))" +" lst_410)))" +"(let-values(((id_143)" "(let-values(((id_144)" +" id_142))" "(let-values(((id_145)" -" id_143))" -"(let-values(((id_146)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_511)" +" s_510)" "(symbol?" "(syntax-e$1" -" s_511))" +" s_510))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_511)))" -" s_511" +" s_510)))" +" s_510" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_72" -" s_511)))))" +" orig-s_73" +" s_510)))))" "(cons" " id84_2" -" id_145)))))" +" id_144)))))" "(values" -" id_146)))))" +" id_145)))))" "(if(not" " #f)" -"(for-loop_311" -" id_144" +"(for-loop_317" +" id_143" " rest_186)" -" id_144)))" -" id_143)))))" -" for-loop_311)" +" id_143)))" +" id_142)))))" +" for-loop_317)" " null" " lst_4)))))" "(reverse$1" -" id_142)))))))))" +" id_141)))))))))" "(values" " id:prefix82_0" " id83_1))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72))))))" +" orig-s_73))))))" "(values" " prefix-all-defined-except79_0" " id:prefix80_0" @@ -68831,7 +69022,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72)))))" +" orig-s_73)))))" "(values" " #t" " prefix-all-defined-except76_1" @@ -68841,12 +69032,12 @@ static const char *startup_source = "(parse-all-from-module" " self_30" " spec_0" -" orig-s_60" +" orig-s_61" " id78_0" "(syntax-e$1" " id:prefix77_0)" " at-phase_13" -" ns_122" +" ns_123" " rp_1" " protected?_15)" "(values" @@ -68854,113 +69045,113 @@ static const char *startup_source = "(list" " spec_0))))))" "(let-values()" -"(let-values(((ok?_69" +"(let-values(((ok?_70" " expand85_0" " id86_1" " datum87_0)" -"(let-values(((s_517)" +"(let-values(((s_516)" " disarmed-spec_0))" -"(let-values(((orig-s_73)" -" s_517))" +"(let-values(((orig-s_74)" +" s_516))" "(let-values(((expand85_1" " id86_2" " datum87_1)" -"(let-values(((s_246)" +"(let-values(((s_245)" "(if(syntax?$1" -" s_517)" +" s_516)" "(syntax-e$1" -" s_517)" -" s_517)))" +" s_516)" +" s_516)))" "(if(pair?" -" s_246)" +" s_245)" "(let-values(((expand88_0)" -"(let-values(((s_247)" +"(let-values(((s_246)" "(car" -" s_246)))" -" s_247))" +" s_245)))" +" s_246))" "((id89_1" " datum90_0)" -"(let-values(((s_761)" +"(let-values(((s_750)" "(cdr" -" s_246)))" -"(let-values(((s_248)" +" s_245)))" +"(let-values(((s_247)" "(if(syntax?$1" -" s_761)" +" s_750)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_750)" +" s_750)))" "(if(pair?" -" s_248)" -"(let-values(((id91_1" +" s_247)" +"(let-values(((id91_0" " datum92_0)" -"(let-values(((s_762)" +"(let-values(((s_751)" "(car" -" s_248)))" -"(let-values(((s_250)" +" s_247)))" +"(let-values(((s_249)" "(if(syntax?$1" -" s_762)" +" s_751)" "(syntax-e$1" -" s_762)" -" s_762)))" +" s_751)" +" s_751)))" "(if(pair?" -" s_250)" -"(let-values(((id93_0)" -"(let-values(((s_521)" +" s_249)" +"(let-values(((id93_1)" +"(let-values(((s_520)" "(car" -" s_250)))" -"(if(let-values(((or-part_399)" +" s_249)))" +"(if(let-values(((or-part_402)" "(if(syntax?$1" -" s_521)" +" s_520)" "(symbol?" "(syntax-e$1" -" s_521))" +" s_520))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_402" +" or-part_402" "(symbol?" -" s_521)))" -" s_521" +" s_520)))" +" s_520" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_73" -" s_521))))" +" orig-s_74" +" s_520))))" "((datum94_0)" -"(let-values(((s_446)" +"(let-values(((s_445)" "(cdr" -" s_250)))" -" s_446)))" +" s_249)))" +" s_445)))" "(values" -" id93_0" +" id93_1" " datum94_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73)))))" +" orig-s_74)))))" "(()" -"(let-values(((s_447)" +"(let-values(((s_446)" "(cdr" -" s_248)))" -"(let-values(((s_359)" +" s_247)))" +"(let-values(((s_358)" "(if(syntax?$1" -" s_447)" +" s_446)" "(syntax-e$1" -" s_447)" -" s_447)))" +" s_446)" +" s_446)))" "(if(null?" -" s_359)" +" s_358)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73))))))" +" orig-s_74))))))" "(values" -" id91_1" +" id91_0" " datum92_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73))))))" +" orig-s_74))))))" "(values" " expand88_0" " id89_1" @@ -68968,81 +69159,81 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73)))))" +" orig-s_74)))))" "(values" " #t" " expand85_1" " id86_2" " datum87_1))))))" -"(let-values(((ok?_70" +"(let-values(((ok?_71" " expand95_0" " form96_0)" -"(let-values(((s_360)" +"(let-values(((s_359)" " disarmed-spec_0))" -"(let-values(((orig-s_74)" -" s_360))" +"(let-values(((orig-s_75)" +" s_359))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_363)" +"(let-values(((s_362)" "(if(syntax?$1" -" s_360)" +" s_359)" "(syntax-e$1" -" s_360)" -" s_360)))" +" s_359)" +" s_359)))" "(if(pair?" -" s_363)" +" s_362)" "(let-values(((expand97_0)" -"(let-values(((s_366)" +"(let-values(((s_365)" "(car" -" s_363)))" -" s_366))" +" s_362)))" +" s_365))" "((form98_0)" +"(let-values(((s_366)" +"(cdr" +" s_362)))" "(let-values(((s_367)" -"(cdr" -" s_363)))" -"(let-values(((s_368)" "(if(syntax?$1" -" s_367)" +" s_366)" "(syntax-e$1" -" s_367)" -" s_367)))" +" s_366)" +" s_366)))" "(if(pair?" -" s_368)" +" s_367)" "(let-values(((form99_0)" -"(let-values(((s_370)" +"(let-values(((s_369)" "(car" -" s_368)))" -" s_370))" +" s_367)))" +" s_369))" "(()" -"(let-values(((s_371)" +"(let-values(((s_370)" "(cdr" -" s_368)))" -"(let-values(((s_763)" +" s_367)))" +"(let-values(((s_752)" "(if(syntax?$1" -" s_371)" +" s_370)" "(syntax-e$1" -" s_371)" -" s_371)))" +" s_370)" +" s_370)))" "(if(null?" -" s_763)" +" s_752)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_74))))))" +" orig-s_75))))))" "(values" " form99_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_74))))))" +" orig-s_75))))))" "(values" " expand97_0" " form98_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_74)))))" +" orig-s_75)))))" "(values" " #t" " expand95_1" @@ -69053,19 +69244,19 @@ static const char *startup_source = "((temp105_4)" "(let-values(((v_258)" " ctx_104))" -"(let-values(((the-struct_98)" +"(let-values(((the-struct_97)" " v_258))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_97)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_99)" +"(let-values(((the-struct_98)" "(root-expand-context/outer-inner" " v_258)))" "(if(expand-context/inner?" -" the-struct_99)" +" the-struct_98)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -69075,91 +69266,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-module-scopes" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-defined-syms" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-counter" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-lift-key" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-to-parsed?" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-phase" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-namespace" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-just-once?" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-module-begin-k" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-allow-unbound?" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-in-local-expand?" -" the-struct_99)" +" the-struct_98)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-lift-envs" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-module-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-require-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-to-module-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-requires+provides" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-observer" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-for-serializable?" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_99)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_99)))))" -"(expand-context/outer1.1" -" inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_98)" -"(root-expand-context/outer-frame-id" -" the-struct_98)" -"(expand-context/outer-context" -" the-struct_98)" -"(expand-context/outer-env" -" the-struct_98)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" -"(expand-context/outer-scopes" -" the-struct_98)" -" def-ctx-scopes106_0" -"(expand-context/outer-binding-layer" -" the-struct_98)" -"(expand-context/outer-reference-records" -" the-struct_98)" -"(expand-context/outer-only-immediate?" -" the-struct_98)" -"(expand-context/outer-need-eventually-defined" -" the-struct_98)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_98)" -"(expand-context/outer-name" " the-struct_98)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_98)))))" +"(expand-context/outer1.1" +" inner107_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_97)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_97)" +"(root-expand-context/outer-frame-id" +" the-struct_97)" +"(expand-context/outer-context" +" the-struct_97)" +"(expand-context/outer-env" +" the-struct_97)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_97)" +"(expand-context/outer-scopes" +" the-struct_97)" +" def-ctx-scopes106_0" +"(expand-context/outer-binding-layer" +" the-struct_97)" +"(expand-context/outer-reference-records" +" the-struct_97)" +"(expand-context/outer-only-immediate?" +" the-struct_97)" +"(expand-context/outer-need-eventually-defined" +" the-struct_97)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_97)" +"(expand-context/outer-name" +" the-struct_97)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_97))))))" "(expand7.1" " #f" " #f" @@ -69188,51 +69379,51 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"expansion was not a `begin' sequence\"" -" orig-s_60" +" orig-s_61" " spec_0)))" "(values))))" -"(let-values(((ok?_71" +"(let-values(((ok?_72" " begin100_0" " spec101_0)" -"(let-values(((s_764)" +"(let-values(((s_753)" " exp-spec_0))" -"(let-values(((orig-s_75)" -" s_764))" +"(let-values(((orig-s_76)" +" s_753))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_765)" +"(let-values(((s_754)" "(if(syntax?$1" -" s_764)" +" s_753)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_753)" +" s_753)))" "(if(pair?" -" s_765)" +" s_754)" "(let-values(((begin102_0)" -"(let-values(((s_376)" +"(let-values(((s_375)" "(car" -" s_765)))" -" s_376))" +" s_754)))" +" s_375))" "((spec103_0)" -"(let-values(((s_377)" +"(let-values(((s_376)" "(cdr" -" s_765)))" -"(let-values(((s_378)" +" s_754)))" +"(let-values(((s_377)" "(if(syntax?$1" -" s_377)" +" s_376)" "(syntax-e$1" -" s_377)" -" s_377)))" +" s_376)" +" s_376)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_378)))" +" s_377)))" "(if(not" " flat-s_50)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_75))" +" orig-s_76))" "(let-values()" " flat-s_50)))))))" "(values" @@ -69241,7 +69432,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_75)))))" +" orig-s_76)))))" "(values" " #t" " begin100_1" @@ -69270,20 +69461,20 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_92" +"(for-loop_91" " track-stxes_2" " exp-specs_2" -" rest_227)" +" rest_228)" "(values" " track-stxes_2" " exp-specs_2))))" "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_92)" +" for-loop_91)" " null" " null" -" lst_76)))))" +" lst_77)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_113)" @@ -69293,34 +69484,34 @@ static const char *startup_source = " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_76 sym_102 at-phase_5 ns_123 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_77 sym_101 at-phase_5 ns_124 rp_2 protected?_16)" "(begin" -"(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_123)))" +"(let-values(((b_88)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" "(let-values((()" "(begin" -"(if b_90" +"(if b_88" "(void)" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"provided identifier is not defined or required\"" -" orig-s_76" +" orig-s_77" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_123)))" +"(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_4) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec118_0 at-phase119_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_102)" +"((sym110_0) sym_101)" "((at-phase111_0) at-phase_5)" -"((b112_0) b_90)" +"((b112_0) b_88)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" -"((orig-s115_0) orig-s_76)" +"((orig-s115_0) orig-s_77)" "((protected?116_0) protected?_16)" "((as-transformer?117_0) as-transformer?_6))" -"(add-provide!107.1" +"(add-provide!109.1" " protected?116_0" " as-transformer?117_0" " rp109_0" @@ -69332,67 +69523,67 @@ static const char *startup_source = " orig-s115_0)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_77 fields_0 at-phase_14 ns_124 rp_3 protected?_17)" +"(lambda(id:struct_0 orig-s_78 fields_0 at-phase_14 ns_125 rp_3 protected?_17)" "(begin" "(let-values(((mk_0)" "(lambda(fmt_1)" "(begin" " 'mk" -"(let-values(((sym_103)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" +"(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(((mk2_0)" "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_104)" +"(let-values(((sym_103)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_104 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" "(begin" -" (let-values (((lst_407) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_411) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_407)))" -"((letrec-values(((for-loop_312)" -"(lambda(lst_408)" +"(let-values()(check-list lst_411)))" +"((letrec-values(((for-loop_318)" +"(lambda(lst_412)" "(begin" " 'for-loop" -"(if(pair? lst_408)" -"(let-values(((fmt_3)(unsafe-car lst_408))((rest_230)(unsafe-cdr lst_408)))" +"(if(pair? lst_412)" +"(let-values(((fmt_3)(unsafe-car lst_412))((rest_231)(unsafe-cdr lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_147)(mk_0 fmt_3)))" +"(let-values(((id_146)(mk_0 fmt_3)))" "(parse-identifier!" -" id_147" -" orig-s_77" -"(syntax-e$1 id_147)" +" id_146" +" orig-s_78" +"(syntax-e$1 id_146)" " at-phase_14" -" ns_124" +" ns_125" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_312 rest_230)(values))))" +"(if(not #f)(for-loop_318 rest_231)(values))))" "(values))))))" -" for-loop_312)" -" lst_407)))" +" for-loop_318)" +" lst_411)))" "(void)" -"(let-values(((lst_352) fields_0))" +"(let-values(((lst_354) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_352)))" -"((letrec-values(((for-loop_313)" -"(lambda(lst_409)" +"(let-values()(check-list lst_354)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_413)" "(begin" " 'for-loop" -"(if(pair? lst_409)" -"(let-values(((field_0)(unsafe-car lst_409))((rest_231)(unsafe-cdr lst_409)))" +"(if(pair? lst_413)" +"(let-values(((field_0)(unsafe-car lst_413))((rest_232)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69408,30 +69599,30 @@ static const char *startup_source = "(begin" "(parse-identifier!" " get-id_0" -" orig-s_77" +" orig-s_78" "(syntax-e$1 get-id_0)" " at-phase_14" -" ns_124" +" ns_125" " rp_3" " protected?_17)" "(parse-identifier!" " set-id_0" -" orig-s_77" +" orig-s_78" "(syntax-e$1 set-id_0)" " at-phase_14" -" ns_124" +" ns_125" " rp_3" " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_313 rest_231)(values))))" +"(if(not #f)(for-loop_319 rest_232)(values))))" "(values))))))" -" for-loop_313)" -" lst_352)))" +" for-loop_319)" +" lst_354)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_78 self_31 except-ids_0 at-phase_15 ns_125 rp_4 protected?_18 ctx_105)" +"(lambda(mod-path-stx_0 orig-s_79 self_31 except-ids_0 at-phase_15 ns_126 rp_4 protected?_18 ctx_105)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -69439,13 +69630,13 @@ static const char *startup_source = "(if(1/module-path? mod-path_33)" "(void)" "(let-values()" -" (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_78 mod-path-stx_0)))" +" (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_79 mod-path-stx_0)))" "(values))))" "(let-values(((mpi_51)(module-path->mpi/context mod-path_33 ctx_105)))" -"(parse-all-from-module mpi_51 #f orig-s_78 except-ids_0 #f at-phase_15 ns_125 rp_4 protected?_18)))))))" +"(parse-all-from-module mpi_51 #f orig-s_79 except-ids_0 #f at-phase_15 ns_126 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_52 matching-stx_0 orig-s_79 except-ids_1 prefix-sym_0 at-phase_16 ns_126 rp_5 protected?_19)" +"(lambda(mpi_52 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_127 rp_5 protected?_19)" "(begin" "(let-values(((requireds_2)(extract-module-requires rp_5 mpi_52 at-phase_16)))" "(let-values(((phase-desc_0)" @@ -69465,58 +69656,58 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " (format \"cannot provide from a module without a matching require~a\" (phase-desc_0))" -" orig-s_79" +" orig-s_80" " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_105)" +"(lambda(sym_104)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_105)) sym_105)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_240) requireds_2))" +"(let-values(((lst_241) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_240)))" -"((letrec-values(((for-loop_314)" -"(lambda(lst_410)" +"(let-values()(check-list lst_241)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_414)" "(begin" " 'for-loop" -"(if(pair? lst_410)" -"(let-values(((i_187)(unsafe-car lst_410))" -"((rest_232)(unsafe-cdr lst_410)))" +"(if(pair? lst_414)" +"(let-values(((i_187)(unsafe-car lst_414))" +"((rest_233)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_148)" +"(let-values(((id_147)" "(required-id i_187)))" "(let-values(((phase_147)" "(required-phase" " i_187)))" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_403)" "(if matching-stx_0" "(not" "(if(eqv?" " phase_147" " at-phase_16)" "(free-identifier=?$1" -" id_148" +" id_147" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_148))" +" id_147))" " phase_147" " phase_147)" " #f))" " #f)))" -"(if or-part_400" -" or-part_400" -"(let-values(((lst_411)" +"(if or-part_403" +" or-part_403" +"(let-values(((lst_415)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69524,27 +69715,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_411)))" -"((letrec-values(((for-loop_315)" -"(lambda(result_120" -" lst_122)" +" lst_415)))" +"((letrec-values(((for-loop_321)" +"(lambda(result_124" +" lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_122)" +" lst_416)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_122))" -"((rest_233)" +" lst_416))" +"((rest_234)" "(unsafe-cdr" -" lst_122)))" -"(let-values(((result_121)" +" lst_416)))" +"(let-values(((result_125)" "(let-values()" -"(let-values(((result_122)" +"(let-values(((result_126)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_148" +" id_147" " except-id_0" " phase_147" " phase_147)" @@ -69554,32 +69745,32 @@ static const char *startup_source = " #t)" " #f)))))" "(values" -" result_122)))))" +" result_126)))))" "(if(if(not" -"((lambda x_92" -" result_121)" +"((lambda x_93" +" result_125)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_315" -" result_121" -" rest_233)" -" result_121)))" -" result_120)))))" -" for-loop_315)" +"(for-loop_321" +" result_125" +" rest_234)" +" result_125)))" +" result_124)))))" +" for-loop_321)" " #f" -" lst_411)))))" +" lst_415)))))" "(void)" "(let-values()" -"(let-values(((b_91)" +"(let-values(((b_89)" "(resolve+shift/extra-inspector" -" id_148" +" id_147" " phase_147" -" ns_126)))" +" ns_127)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_148)" +" id_147)" "((phase131_0)" " phase_147)" "((temp132_2)" @@ -69602,25 +69793,25 @@ static const char *startup_source = "((temp122_4)" "(add-prefix_1" "(syntax-e$1" -" id_148)))" +" id_147)))" "((phase123_0)" " phase_147)" "((b124_0)" -" b_91)" +" b_89)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_148)" +" id_147)" "((orig-s127_0)" -" orig-s_79)" +" orig-s_80)" "((protected?128_0)" " protected?_19)" -"((temp129_2)" +"((temp129_3)" "(required-as-transformer?" " i_187)))" -"(add-provide!107.1" +"(add-provide!109.1" " protected?128_0" -" temp129_2" +" temp129_3" " rp121_0" " temp122_4" " phase123_0" @@ -69630,41 +69821,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_314 rest_232)(values))))" +"(if(not #f)(for-loop_320 rest_233)(values))))" "(values))))))" -" for-loop_314)" -" lst_240)))" +" for-loop_320)" +" lst_241)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_144) except-ids_1))" +"(let-values(((lst_145) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_144)))" -"((letrec-values(((for-loop_171)" -"(lambda(lst_412)" +"(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_170)" +"(lambda(lst_417)" "(begin" " 'for-loop" -"(if(pair? lst_412)" -"(let-values(((except-id_1)(unsafe-car lst_412))" -"((rest_187)(unsafe-cdr lst_412)))" +"(if(pair? lst_417)" +"(let-values(((except-id_1)(unsafe-car lst_417))" +"((rest_187)(unsafe-cdr lst_417)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_404)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_401" -" or-part_401" -"(let-values(((lst_413)" +"(if or-part_404" +" or-part_404" +"(let-values(((lst_418)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69672,53 +69863,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_413)))" -"((letrec-values(((for-loop_316)" -"(lambda(result_123" -" lst_414)" +" lst_418)))" +"((letrec-values(((for-loop_322)" +"(lambda(result_127" +" lst_419)" "(begin" " 'for-loop" "(if(pair?" -" lst_414)" +" lst_419)" "(let-values(((i_188)" "(unsafe-car" -" lst_414))" -"((rest_234)" +" lst_419))" +"((rest_235)" "(unsafe-cdr" -" lst_414)))" -"(let-values(((result_124)" +" lst_419)))" +"(let-values(((result_128)" "(let-values()" -"(let-values(((result_125)" +"(let-values(((result_129)" "(let-values()" "(let-values()" -"(let-values(((id_149)" +"(let-values(((id_148)" "(required-id" " i_188)))" -"(let-values(((phase_60)" +"(let-values(((phase_148)" "(required-phase" " i_188)))" "(free-identifier=?$1" -" id_149" +" id_148" " except-id_1" -" phase_60" -" phase_60)))))))" +" phase_148" +" phase_148)))))))" "(values" -" result_125)))))" +" result_129)))))" "(if(if(not" -"((lambda x_93" -" result_124)" +"((lambda x_94" +" result_128)" " i_188))" "(not" " #f)" " #f)" -"(for-loop_316" -" result_124" -" rest_234)" -" result_124)))" -" result_123)))))" -" for-loop_316)" +"(for-loop_322" +" result_128" +" rest_235)" +" result_128)))" +" result_127)))))" +" for-loop_322)" " #f" -" lst_413)))))" +" lst_418)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69728,14 +69919,14 @@ static const char *startup_source = " \"excluded identifier was not defined or required in the module~a\"" " \"excluded identifier was not required from the specified module~a\")" "(phase-desc_0))" -" orig-s_79" +" orig-s_80" " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171 rest_187)(values))))" +"(if(not #f)(for-loop_170 rest_187)(values))))" "(values))))))" -" for-loop_171)" -" lst_144)))" +" for-loop_170)" +" lst_145)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -69746,18 +69937,18 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_415) bodys_14))" +"(let-values(((lst_420) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_317)" -"(lambda(lst_83)" +"(let-values()(check-list lst_420)))" +"((letrec-values(((for-loop_323)" +"(lambda(lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((body_21)(unsafe-car lst_83))" -"((rest_39)(unsafe-cdr lst_83)))" +"(if(pair? lst_84)" +"(let-values(((body_21)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69780,11 +69971,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_34))" " p_34))" -"(if(let-values(((or-part_218)" +"(if(let-values(((or-part_219)" "(parsed-#%declare?" " p_34)))" -"(if or-part_218" -" or-part_218" +"(if or-part_219" +" or-part_219" "(let-values(((or-part_3)" "(parsed-module?" " p_34)))" @@ -69799,10 +69990,10 @@ static const char *startup_source = " p_34))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_317 rest_39)(values))))" +"(if(not #f)(for-loop_323 rest_39)(values))))" "(values))))))" -" for-loop_317)" -" lst_415)))" +" for-loop_323)" +" lst_420)))" "(void)))))" "((check-expr_0)" "(lambda(e_90 num-results_0 enclosing_15)" @@ -69823,18 +70014,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_90)))" "(begin" -"(let-values(((lst_77) rands_1))" +"(let-values(((lst_78) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_69)" -"(lambda(lst_84)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_68)" +"(lambda(lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((rand_0)(unsafe-car lst_84))" -"((rest_235)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((rand_0)(unsafe-car lst_85))" +"((rest_236)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69847,10 +70038,10 @@ static const char *startup_source = " e_90))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_69 rest_235)(values))))" +"(if(not #f)(for-loop_68 rest_236)(values))))" "(values))))))" -" for-loop_69)" -" lst_77)))" +" for-loop_68)" +" lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_90))))" "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" @@ -69861,9 +70052,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_64 'gensym)" "(let-values()" -"(if(let-values(((or-part_402)(= 0(length rands_1))))" -"(if or-part_402" -" or-part_402" +"(if(let-values(((or-part_405)(= 0(length rands_1))))" +"(if or-part_405" +" or-part_405" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -69885,18 +70076,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_273)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_270)))" -"((letrec-values(((for-loop_235)" -"(lambda(lst_416)" +"(let-values()(check-list lst_273)))" +"((letrec-values(((for-loop_239)" +"(lambda(lst_421)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((clause_4)(unsafe-car lst_416))" -"((rest_236)(unsafe-cdr lst_416)))" +"(if(pair? lst_421)" +"(let-values(((clause_4)(unsafe-car lst_421))" +"((rest_237)(unsafe-cdr lst_421)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69907,27 +70098,27 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_235 rest_236)(values))))" +"(if(not #f)(for-loop_239 rest_237)(values))))" "(values))))))" -" for-loop_235)" -" lst_270)))" +" for-loop_239)" +" lst_273)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_39))" -"(let-values(((lst_222)(parsed-app-rands e_39)))" +"(let-values(((lst_223)(parsed-app-rands e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_103)" -"(lambda(lst_266)" +"(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_102)" +"(lambda(lst_269)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((e_91)(unsafe-car lst_266))" -"((rest_188)(unsafe-cdr lst_266)))" +"(if(pair? lst_269)" +"(let-values(((e_91)(unsafe-car lst_269))" +"((rest_188)(unsafe-cdr lst_269)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69938,10 +70129,10 @@ static const char *startup_source = " e_91))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_103 rest_188)(values))))" +"(if(not #f)(for-loop_102 rest_188)(values))))" "(values))))))" -" for-loop_103)" -" lst_222)))" +" for-loop_102)" +" lst_223)))" "(void)))" "(if(parsed-if? e_39)" "(let-values()" @@ -69984,15 +70175,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_247)" -"(lambda(lst_88)" +"((letrec-values(((for-loop_252)" +"(lambda(lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_88)" +"(if(pair? lst_89)" "(let-values(((clause_5)" -"(unsafe-car lst_88))" +"(unsafe-car lst_89))" "((rest_151)" -"(unsafe-cdr lst_88)))" +"(unsafe-cdr lst_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70005,10 +70196,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_247 rest_151)" +"(for-loop_252 rest_151)" "(values))))" "(values))))))" -" for-loop_247)" +" for-loop_252)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" @@ -70021,18 +70212,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_80) l_48))" +"(let-values(((lst_81) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_318)" -"(lambda(lst_272)" +"(let-values()(check-list lst_81)))" +"((letrec-values(((for-loop_324)" +"(lambda(lst_275)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((e_92)(unsafe-car lst_272))" -"((rest_147)(unsafe-cdr lst_272)))" +"(if(pair? lst_275)" +"(let-values(((e_92)(unsafe-car lst_275))" +"((rest_147)(unsafe-cdr lst_275)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70043,10 +70234,10 @@ static const char *startup_source = " e_92))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_318 rest_147)(values))))" +"(if(not #f)(for-loop_324 rest_147)(values))))" "(values))))))" -" for-loop_318)" -" lst_80)))" +" for-loop_324)" +" lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -70077,14 +70268,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_150)" +"(lambda(id_149)" "(begin" -"(if(parsed-id? id_150)" +"(if(parsed-id? id_149)" "(let-values()" -"(let-values(((b_92)(parsed-id-binding id_150)))" -"(if(module-binding? b_92)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_92)))" -"(module-binding-sym b_92)" +"(let-values(((b_90)(parsed-id-binding id_149)))" +"(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)))))" @@ -70099,7 +70290,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_181 ctx_106)" +"(lambda(s_180 ctx_106)" "(begin" "(if(eq?(expand-context-context ctx_106) 'top-level)" "(void)" @@ -70107,92 +70298,92 @@ static const char *startup_source = "(begin" "(let-values(((obs_125)(expand-context-observer ctx_106)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_181))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_180))))" "(let-values()" -"(let-values(((s223_0) s_181)((ctx224_0) ctx_106)((temp225_2) #f))" -"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_2)))))))" +"(let-values(((s223_0) s_180)((ctx224_0) ctx_106)((temp225_1) #f))" +"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_304 ctx_107)" +"(lambda(s_303 ctx_107)" "(begin" "(let-values(((obs_126)(expand-context-observer ctx_107)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_304)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_303)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_81 ctx_108)" +"(lambda(s_80 ctx_108)" "(begin" "(let-values(((obs_127)(expand-context-observer ctx_108)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module-begin)))(void)))" "(if(eq?(expand-context-context ctx_108) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_81)))" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_80)))" "(if(expand-context-module-begin-k ctx_108)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_81)))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_80)))" "((expand-context-module-begin-k ctx_108)" -" s_81" +" s_80" "(let-values(((v_259) ctx_108))" -"(let-values(((the-struct_100) v_259))" -"(if(expand-context/outer? the-struct_100)" +"(let-values(((the-struct_99) v_259))" +"(if(expand-context/outer? the-struct_99)" "(let-values(((inner226_0)" -"(let-values(((the-struct_101)(root-expand-context/outer-inner v_259)))" -"(if(expand-context/inner? the-struct_101)" +"(let-values(((the-struct_100)(root-expand-context/outer-inner v_259)))" +"(if(expand-context/inner? the-struct_100)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_101)" -"(root-expand-context/inner-module-scopes the-struct_101)" -"(root-expand-context/inner-top-level-bind-scope the-struct_101)" -"(root-expand-context/inner-all-scopes-stx the-struct_101)" -"(root-expand-context/inner-defined-syms the-struct_101)" -"(root-expand-context/inner-counter the-struct_101)" -"(root-expand-context/inner-lift-key the-struct_101)" -"(expand-context/inner-to-parsed? the-struct_101)" -"(expand-context/inner-phase the-struct_101)" -"(expand-context/inner-namespace the-struct_101)" -"(expand-context/inner-just-once? the-struct_101)" +"(root-expand-context/inner-self-mpi the-struct_100)" +"(root-expand-context/inner-module-scopes the-struct_100)" +"(root-expand-context/inner-top-level-bind-scope the-struct_100)" +"(root-expand-context/inner-all-scopes-stx the-struct_100)" +"(root-expand-context/inner-defined-syms the-struct_100)" +"(root-expand-context/inner-counter the-struct_100)" +"(root-expand-context/inner-lift-key the-struct_100)" +"(expand-context/inner-to-parsed? the-struct_100)" +"(expand-context/inner-phase the-struct_100)" +"(expand-context/inner-namespace the-struct_100)" +"(expand-context/inner-just-once? the-struct_100)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_101)" -"(expand-context/inner-in-local-expand? the-struct_101)" -"(expand-context/inner-stops the-struct_101)" -"(expand-context/inner-declared-submodule-names the-struct_101)" -"(expand-context/inner-lifts the-struct_101)" -"(expand-context/inner-lift-envs the-struct_101)" -"(expand-context/inner-module-lifts the-struct_101)" -"(expand-context/inner-require-lifts the-struct_101)" -"(expand-context/inner-to-module-lifts the-struct_101)" -"(expand-context/inner-requires+provides the-struct_101)" -"(expand-context/inner-observer the-struct_101)" -"(expand-context/inner-for-serializable? the-struct_101)" -"(expand-context/inner-should-not-encounter-macros? the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))" +"(expand-context/inner-allow-unbound? the-struct_100)" +"(expand-context/inner-in-local-expand? the-struct_100)" +"(expand-context/inner-stops the-struct_100)" +"(expand-context/inner-declared-submodule-names the-struct_100)" +"(expand-context/inner-lifts the-struct_100)" +"(expand-context/inner-lift-envs the-struct_100)" +"(expand-context/inner-module-lifts the-struct_100)" +"(expand-context/inner-require-lifts the-struct_100)" +"(expand-context/inner-to-module-lifts the-struct_100)" +"(expand-context/inner-requires+provides the-struct_100)" +"(expand-context/inner-observer the-struct_100)" +"(expand-context/inner-for-serializable? the-struct_100)" +"(expand-context/inner-should-not-encounter-macros? the-struct_100)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_100)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_100)" -"(root-expand-context/outer-use-site-scopes the-struct_100)" -"(root-expand-context/outer-frame-id the-struct_100)" -"(expand-context/outer-context the-struct_100)" -"(expand-context/outer-env the-struct_100)" -"(expand-context/outer-post-expansion-scope-action the-struct_100)" -"(expand-context/outer-scopes the-struct_100)" -"(expand-context/outer-def-ctx-scopes the-struct_100)" -"(expand-context/outer-binding-layer the-struct_100)" -"(expand-context/outer-reference-records the-struct_100)" -"(expand-context/outer-only-immediate? the-struct_100)" -"(expand-context/outer-need-eventually-defined the-struct_100)" -"(expand-context/outer-current-introduction-scopes the-struct_100)" -"(expand-context/outer-name the-struct_100)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_99)" +"(root-expand-context/outer-use-site-scopes the-struct_99)" +"(root-expand-context/outer-frame-id the-struct_99)" +"(expand-context/outer-context the-struct_99)" +"(expand-context/outer-env the-struct_99)" +"(expand-context/outer-post-expansion-scope-action the-struct_99)" +"(expand-context/outer-scopes the-struct_99)" +"(expand-context/outer-def-ctx-scopes the-struct_99)" +"(expand-context/outer-binding-layer the-struct_99)" +"(expand-context/outer-reference-records the-struct_99)" +"(expand-context/outer-only-immediate? the-struct_99)" +"(expand-context/outer-need-eventually-defined the-struct_99)" +"(expand-context/outer-current-introduction-scopes the-struct_99)" +"(expand-context/outer-name the-struct_99)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_99)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_734 ctx_109)" +"(lambda(s_723 ctx_109)" "(begin" "(let-values(((obs_128)(expand-context-observer ctx_109)))" "(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_734)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_723)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -70242,89 +70433,89 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" -"(let-values(((ok?_72 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_497) disarmed-s_24))" -"(let-values(((orig-s_80) s_497))" +"(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" +"(let-values(((s_496) disarmed-s_24))" +"(let-values(((orig-s_81) s_496))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_312)" -"(if(syntax?$1 s_497)" -"(syntax-e$1 s_497)" -" s_497)))" -"(if(pair? s_312)" +"(let-values(((s_311)" +"(if(syntax?$1 s_496)" +"(syntax-e$1 s_496)" +" s_496)))" +"(if(pair? s_311)" "(let-values(((module232_0)" -"(let-values(((s_498)(car s_312)))" -" s_498))" +"(let-values(((s_497)(car s_311)))" +" s_497))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_737)(cdr s_312)))" -"(let-values(((s_766)" -"(if(syntax?$1 s_737)" -"(syntax-e$1 s_737)" -" s_737)))" -"(if(pair? s_766)" +"(let-values(((s_726)(cdr s_311)))" +"(let-values(((s_755)" +"(if(syntax?$1 s_726)" +"(syntax-e$1 s_726)" +" s_726)))" +"(if(pair? s_755)" "(let-values(((id:module-name236_0)" -"(let-values(((s_483)" +"(let-values(((s_482)" "(car" -" s_766)))" -"(if(let-values(((or-part_373)" +" s_755)))" +"(if(let-values(((or-part_377)" "(if(syntax?$1" -" s_483)" +" s_482)" "(symbol?" "(syntax-e$1" -" s_483))" +" s_482))" " #f)))" -"(if or-part_373" -" or-part_373" +"(if or-part_377" +" or-part_377" "(symbol?" -" s_483)))" -" s_483" +" s_482)))" +" s_482" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_80" -" s_483))))" +" orig-s_81" +" s_482))))" "((initial-require237_0" " body238_0)" "(let-values(((s_54)" "(cdr" -" s_766)))" -"(let-values(((s_314)" +" s_755)))" +"(let-values(((s_313)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_314)" +" s_313)" "(let-values(((initial-require239_0)" -"(let-values(((s_316)" +"(let-values(((s_315)" "(car" -" s_314)))" -" s_316))" +" s_313)))" +" s_315))" "((body240_0)" -"(let-values(((s_317)" +"(let-values(((s_316)" "(cdr" -" s_314)))" -"(let-values(((s_318)" +" s_313)))" +"(let-values(((s_317)" "(if(syntax?$1" -" s_317)" +" s_316)" "(syntax-e$1" -" s_317)" -" s_317)))" +" s_316)" +" s_316)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_318)))" +" s_317)))" "(if(not" " flat-s_51)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_80))" +" orig-s_81))" "(let-values()" " flat-s_51)))))))" "(values" @@ -70333,7 +70524,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_80))))))" +" orig-s_81))))))" "(values" " id:module-name236_0" " initial-require237_0" @@ -70341,13 +70532,13 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_80))))))" +" orig-s_81))))))" "(values" " module232_0" " id:module-name233_0" " initial-require234_0" " body235_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_80)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_81)))))" "(values" " #t" " module228_1" @@ -70383,7 +70574,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_148) 0))" +"(let-values(((phase_149) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -70464,7 +70655,7 @@ static const char *startup_source = " ns243_0)" "(begin" " 'make-m-ns244" -"(let-values(((ns_119) ns243_0))" +"(let-values(((ns_120) ns243_0))" "(let-values(((for-submodule?_1)" "(if for-submodule?242_0" " for-submodule?241_0" @@ -70473,7 +70664,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(let-values(((ns262_0)" -" ns_119)" +" ns_120)" "((self263_0)" " self_32)" "((root-ctx264_0)" @@ -70488,209 +70679,209 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((m-ns_19)" -"(let-values(((temp266_1)" +"(let-values(((temp266_2)" "(expand-context-namespace" " init-ctx_0)))" "(make-m-ns244_0" " #f" " #f" -" temp266_1))))" +" temp266_2))))" "(let-values(((ctx_110)" "(let-values(((v_102)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_101)" " v_102))" "(if(expand-context/outer?" -" the-struct_102)" +" the-struct_101)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" " v_102)))" "(if(expand-context/inner?" -" the-struct_103)" +" the-struct_102)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_148)" +" phase_149)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-to-parsed?" -" the-struct_103)" +" the-struct_102)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_103)" +" the-struct_102)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_103)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_103)))))" -"(expand-context/outer1.1" -" inner268_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_102)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_102)" -"(root-expand-context/outer-frame-id" -" the-struct_102)" -"(expand-context/outer-context" -" the-struct_102)" -"(expand-context/outer-env" -" the-struct_102)" -" post-expansion-scope-action267_0" -"(expand-context/outer-scopes" -" the-struct_102)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_102)" -"(expand-context/outer-binding-layer" -" the-struct_102)" -"(expand-context/outer-reference-records" -" the-struct_102)" -"(expand-context/outer-only-immediate?" -" the-struct_102)" -"(expand-context/outer-need-eventually-defined" -" the-struct_102)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_102)" -"(expand-context/outer-name" " the-struct_102)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_102)))))" +"(expand-context/outer1.1" +" inner268_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_101)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_101)" +"(root-expand-context/outer-frame-id" +" the-struct_101)" +"(expand-context/outer-context" +" the-struct_101)" +"(expand-context/outer-env" +" the-struct_101)" +" post-expansion-scope-action267_0" +"(expand-context/outer-scopes" +" the-struct_101)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_101)" +"(expand-context/outer-binding-layer" +" the-struct_101)" +"(expand-context/outer-reference-records" +" the-struct_101)" +"(expand-context/outer-only-immediate?" +" the-struct_101)" +"(expand-context/outer-need-eventually-defined" +" the-struct_101)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_101)" +"(expand-context/outer-name" +" the-struct_101)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_102))))))" +" the-struct_101))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" " disarmed-s_24)))" -"(let-values(((ok?_73" +"(let-values(((ok?_74" " _273_1" " _274_1" " _275_1" " body276_0)" -"(let-values(((s_767)" +"(let-values(((s_756)" " scoped-s_0))" -"(let-values(((orig-s_81)" -" s_767))" +"(let-values(((orig-s_82)" +" s_756))" "(let-values(((_273_2" " _274_2" " _275_2" " body276_1)" -"(let-values(((s_88)" +"(let-values(((s_87)" "(if(syntax?$1" -" s_767)" +" s_756)" "(syntax-e$1" -" s_767)" -" s_767)))" +" s_756)" +" s_756)))" "(if(pair?" -" s_88)" +" s_87)" "(let-values(((_277_1)" -"(let-values(((s_747)" +"(let-values(((s_736)" "(car" -" s_88)))" -" s_747))" +" s_87)))" +" s_736))" "((_278_0" " _279_0" " body280_0)" -"(let-values(((s_203)" +"(let-values(((s_202)" "(cdr" -" s_88)))" -"(let-values(((s_390)" +" s_87)))" +"(let-values(((s_389)" "(if(syntax?$1" -" s_203)" +" s_202)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_202)" +" s_202)))" "(if(pair?" -" s_390)" +" s_389)" "(let-values(((_281_0)" -"(let-values(((s_90)" +"(let-values(((s_89)" "(car" -" s_390)))" -" s_90))" +" s_389)))" +" s_89))" "((_282_0" " body283_0)" -"(let-values(((s_91)" +"(let-values(((s_90)" "(cdr" -" s_390)))" -"(let-values(((s_407)" +" s_389)))" +"(let-values(((s_406)" "(if(syntax?$1" -" s_91)" +" s_90)" "(syntax-e$1" -" s_91)" -" s_91)))" +" s_90)" +" s_90)))" "(if(pair?" -" s_407)" +" s_406)" "(let-values(((_284_0)" "(let-values(((s_39)" "(car" -" s_407)))" +" s_406)))" " s_39))" "((body285_0)" -"(let-values(((s_93)" +"(let-values(((s_92)" "(cdr" -" s_407)))" -"(let-values(((s_322)" +" s_406)))" +"(let-values(((s_321)" "(if(syntax?$1" -" s_93)" +" s_92)" "(syntax-e$1" -" s_93)" -" s_93)))" +" s_92)" +" s_92)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_322)))" +" s_321)))" "(if(not" " flat-s_52)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_81))" +" orig-s_82))" "(let-values()" " flat-s_52)))))))" "(values" @@ -70699,7 +70890,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_81))))))" +" orig-s_82))))))" "(values" " _281_0" " _282_0" @@ -70707,7 +70898,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_81))))))" +" orig-s_82))))))" "(values" " _277_1" " _278_0" @@ -70716,7 +70907,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_81)))))" +" orig-s_82)))))" "(values" " #t" " _273_2" @@ -70859,18 +71050,18 @@ static const char *startup_source = "(let-values(((ctx_111)" "(let-values(((v_260)" " mb-init-ctx_0))" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_103)" " v_260))" "(if(expand-context/outer?" -" the-struct_104)" +" the-struct_103)" "(let-values(((inner306_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" " v_260)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_104)" "(let-values(((module-begin-k307_0)" -"(lambda(s_113" +"(lambda(s_112" " ctx_112)" "(begin" " 'module-begin-k307" @@ -70907,7 +71098,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_113" +" s_112" " ctx_112))" "(lambda()" "(begin" @@ -70919,92 +71110,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_104)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_105)))))" -"(expand-context/outer1.1" -" inner306_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_104)" -"(root-expand-context/outer-frame-id" -" the-struct_104)" -"(expand-context/outer-context" -" the-struct_104)" -"(expand-context/outer-env" -" the-struct_104)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" -"(expand-context/outer-scopes" -" the-struct_104)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_104)" -"(expand-context/outer-binding-layer" -" the-struct_104)" -"(expand-context/outer-reference-records" -" the-struct_104)" -"(expand-context/outer-only-immediate?" -" the-struct_104)" -"(expand-context/outer-need-eventually-defined" -" the-struct_104)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_104)" -"(expand-context/outer-name" " the-struct_104)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_104)))))" +"(expand-context/outer1.1" +" inner306_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_103)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_103)" +"(root-expand-context/outer-frame-id" +" the-struct_103)" +"(expand-context/outer-context" +" the-struct_103)" +"(expand-context/outer-env" +" the-struct_103)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_103)" +"(expand-context/outer-scopes" +" the-struct_103)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_103)" +"(expand-context/outer-binding-layer" +" the-struct_103)" +"(expand-context/outer-reference-records" +" the-struct_103)" +"(expand-context/outer-only-immediate?" +" the-struct_103)" +"(expand-context/outer-need-eventually-defined" +" the-struct_103)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_103)" +"(expand-context/outer-name" +" the-struct_103)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_103))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -71026,48 +71217,48 @@ static const char *startup_source = "(let-values(((disarmed-mb-s_0)" "(syntax-disarm$1" " added-s_2)))" -"(let-values(((ok?_74" +"(let-values(((ok?_75" " #%module-begin301_0" " body302_0)" -"(let-values(((s_216)" +"(let-values(((s_215)" " disarmed-mb-s_0))" -"(let-values(((orig-s_82)" -" s_216))" +"(let-values(((orig-s_83)" +" s_215))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_218)" +"(let-values(((s_217)" "(if(syntax?$1" -" s_216)" +" s_215)" "(syntax-e$1" -" s_216)" -" s_216)))" +" s_215)" +" s_215)))" "(if(pair?" -" s_218)" +" s_217)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_755)" +"(let-values(((s_744)" "(car" -" s_218)))" -" s_755))" +" s_217)))" +" s_744))" "((body304_0)" -"(let-values(((s_768)" +"(let-values(((s_757)" "(cdr" -" s_218)))" -"(let-values(((s_117)" +" s_217)))" +"(let-values(((s_116)" "(if(syntax?$1" -" s_768)" +" s_757)" "(syntax-e$1" -" s_768)" -" s_768)))" +" s_757)" +" s_757)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_117)))" +" s_116)))" "(if(not" " flat-s_53)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_82))" +" orig-s_83))" "(let-values()" " flat-s_53)))))))" "(values" @@ -71076,7 +71267,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_82)))))" +" orig-s_83)))))" "(values" " #t" " #%module-begin301_1" @@ -71108,7 +71299,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_149)" +" phase_150)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -71120,10 +71311,10 @@ static const char *startup_source = "(let-values(((partial-body-ctx_0)" "(let-values(((v_261)" " ctx_111))" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_105)" " v_261))" "(if(expand-context/outer?" -" the-struct_106)" +" the-struct_105)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -71131,28 +71322,28 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" -" the-struct_107)" +" the-struct_106)" "(let-values(((phase330_0)" -" phase_149)" +" phase_150)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_149))" +" phase_150))" "((stops332_0)" "(free-id-set" -" phase_149" +" phase_150" "(module-expand-stop-ids" -" phase_149)))" +" phase_150)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" "(generate-lift-key))" "((lifts335_0)" -"(let-values(((temp339_0)" +"(let-values(((temp339_1)" "(make-wrap-as-definition" " self_32" " frame-id_16" @@ -71163,14 +71354,14 @@ static const char *startup_source = "(make-lift-context6.1" " #f" " #f" -" temp339_0)))" +" temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_149" +" phase_150" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_149" +" phase_150" "(let-values(((m-ns340_0)" " m-ns_19)" "((self341_0)" @@ -71186,7 +71377,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_149)" +" phase_150)" "((module-ends345_0)" " module-ends_0)" "((temp346_0)" @@ -71197,86 +71388,86 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_107)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_107)" +" the-struct_106)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_107)" +" the-struct_106)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_107)" +" the-struct_106)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_107)" +" the-struct_106)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_107)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_107)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_107)))))" -"(expand-context/outer1.1" -" inner329_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_106)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_106)" -"(root-expand-context/outer-frame-id" -" the-struct_106)" -" context326_0" -"(expand-context/outer-env" -" the-struct_106)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_106)" -"(expand-context/outer-scopes" -" the-struct_106)" -" def-ctx-scopes327_0" -"(expand-context/outer-binding-layer" -" the-struct_106)" -"(expand-context/outer-reference-records" -" the-struct_106)" -"(expand-context/outer-only-immediate?" -" the-struct_106)" -" need-eventually-defined328_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_106)" -"(expand-context/outer-name" " the-struct_106)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_106)))))" +"(expand-context/outer1.1" +" inner329_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_105)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_105)" +"(root-expand-context/outer-frame-id" +" the-struct_105)" +" context326_0" +"(expand-context/outer-env" +" the-struct_105)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_105)" +"(expand-context/outer-scopes" +" the-struct_105)" +" def-ctx-scopes327_0" +"(expand-context/outer-binding-layer" +" the-struct_105)" +"(expand-context/outer-reference-records" +" the-struct_105)" +"(expand-context/outer-only-immediate?" +" the-struct_105)" +" need-eventually-defined328_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_105)" +"(expand-context/outer-name" +" the-struct_105)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_106))))))" +" the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" "((phase348_0)" -" phase_149)" +" phase_150)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -71340,25 +71531,25 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_107)" " v_262))" "(if(expand-context/outer?" -" the-struct_108)" +" the-struct_107)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" " v_262)))" "(if(expand-context/inner?" -" the-struct_109)" +" the-struct_108)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_149)" +" phase_150)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -71369,93 +71560,93 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-namespace" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-just-once?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_109)" +" the-struct_108)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_109)" +" the-struct_108)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-context" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_108)" +" the-struct_107)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_108)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_108)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_108))))))" +" the-struct_107))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_149)" +" phase_150)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -71479,7 +71670,7 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_148)))" +" phase_149)))" "(let-values((()" "(begin" "(check-defined-by-now" @@ -71510,7 +71701,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_19)" "((phase375_0)" -" phase_148)" +" phase_149)" "((self376_0)" " self_32)" "((ctx377_0)" @@ -71574,108 +71765,108 @@ static const char *startup_source = "(let-values(((submod-ctx_0)" "(let-values(((v_263)" " ctx_111))" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_109)" " v_263))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_109)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" " v_263)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_110)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_110)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-module-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-to-module-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_110)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_109)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-def-ctx-scopes" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-need-eventually-defined" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_109)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110))))))" +" the-struct_109))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -71726,7 +71917,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_148)" +" phase_149)" "((self398_0)" " self_32)" "((requires+provides399_0)" @@ -71794,108 +71985,108 @@ static const char *startup_source = "(let-values(((mb-ctx_0)" "(let-values(((v_264)" " ctx_110))" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_111)" " v_264))" "(if(expand-context/outer?" -" the-struct_112)" +" the-struct_111)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_112)" "(root-expand-context/outer-inner" " v_264)))" "(if(expand-context/inner?" -" the-struct_113)" +" the-struct_112)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_112)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_112)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-lifts" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-module-lifts" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-require-lifts" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-to-module-lifts" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_113)))))" -"(expand-context/outer1.1" -" inner410_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_112)" -"(root-expand-context/outer-frame-id" -" the-struct_112)" -" context409_0" -"(expand-context/outer-env" -" the-struct_112)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" -"(expand-context/outer-scopes" -" the-struct_112)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_112)" -"(expand-context/outer-binding-layer" -" the-struct_112)" -"(expand-context/outer-reference-records" -" the-struct_112)" -"(expand-context/outer-only-immediate?" -" the-struct_112)" -"(expand-context/outer-need-eventually-defined" -" the-struct_112)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_112)" -"(expand-context/outer-name" " the-struct_112)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_112)))))" +"(expand-context/outer1.1" +" inner410_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_111)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_111)" +"(root-expand-context/outer-frame-id" +" the-struct_111)" +" context409_0" +"(expand-context/outer-env" +" the-struct_111)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_111)" +"(expand-context/outer-scopes" +" the-struct_111)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_111)" +"(expand-context/outer-binding-layer" +" the-struct_111)" +"(expand-context/outer-reference-records" +" the-struct_111)" +"(expand-context/outer-only-immediate?" +" the-struct_111)" +"(expand-context/outer-need-eventually-defined" +" the-struct_111)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_111)" +"(expand-context/outer-name" +" the-struct_111)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112))))))" +" the-struct_111))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" " disarmed-s_24" @@ -71917,7 +72108,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_148)" +" phase_149)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -71951,11 +72142,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_349)" +"(if(let-values(((or-part_352)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_349" -" or-part_349" +"(if or-part_352" +" or-part_352" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -71991,7 +72182,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_142)" +"(let-values(((lst_143)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -72000,19 +72191,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_142)))" -"((letrec-values(((for-loop_170)" -"(lambda(lst_417)" +" lst_143)))" +"((letrec-values(((for-loop_169)" +"(lambda(lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_417)" +" lst_422)" "(let-values(((mpi_53)" "(unsafe-car" -" lst_417))" -"((rest_237)" +" lst_422))" +"((rest_238)" "(unsafe-cdr" -" lst_417)))" +" lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72025,12 +72216,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_170" -" rest_237)" +"(for-loop_169" +" rest_238)" "(values))))" "(values))))))" -" for-loop_170)" -" lst_142)))" +" for-loop_169)" +" lst_143)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -72103,7 +72294,7 @@ static const char *startup_source = " result-s_14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(ensure-module-begin36.1)" -"(lambda(ctx24_0 def-ctx-scopes25_0 m-ns23_0 module-name-sym21_0 phase26_2 s27_2 scopes-s22_0 bodys35_0)" +"(lambda(ctx24_0 def-ctx-scopes25_0 m-ns23_0 module-name-sym21_0 phase26_3 s27_2 scopes-s22_0 bodys35_0)" "(begin" " 'ensure-module-begin36" "(let-values(((bodys_18) bodys35_0))" @@ -72112,40 +72303,40 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_113) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_150) phase26_2))" -"(let-values(((s_769) s27_2))" +"(let-values(((phase_151) phase26_3))" +"(let-values(((s_758) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" "(let-values(((v_265) ctx_113))" -"(let-values(((the-struct_114) v_265))" -"(if(expand-context/outer? the-struct_114)" +"(let-values(((the-struct_113) v_265))" +"(if(expand-context/outer? the-struct_113)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" "((inner431_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_114)" -"(root-expand-context/outer-use-site-scopes the-struct_114)" -"(root-expand-context/outer-frame-id the-struct_114)" +"(root-expand-context/outer-post-expansion-scope the-struct_113)" +"(root-expand-context/outer-use-site-scopes the-struct_113)" +"(root-expand-context/outer-frame-id the-struct_113)" " context428_0" -"(expand-context/outer-env the-struct_114)" -"(expand-context/outer-post-expansion-scope-action the-struct_114)" -"(expand-context/outer-scopes the-struct_114)" +"(expand-context/outer-env the-struct_113)" +"(expand-context/outer-post-expansion-scope-action the-struct_113)" +"(expand-context/outer-scopes the-struct_113)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_114)" -"(expand-context/outer-reference-records the-struct_114)" +"(expand-context/outer-binding-layer the-struct_113)" +"(expand-context/outer-reference-records the-struct_113)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_114)" -"(expand-context/outer-current-introduction-scopes the-struct_114)" -"(expand-context/outer-name the-struct_114)))" +"(expand-context/outer-need-eventually-defined the-struct_113)" +"(expand-context/outer-current-introduction-scopes the-struct_113)" +"(expand-context/outer-name the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_114))))))))" +" the-struct_113))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -72158,7 +72349,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_150))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_151))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -72173,13 +72364,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_150))" +" phase_151))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_1) s_769)" +"((s435_1) s_758)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_150)" +"((phase437_0) phase_151)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_1)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -72194,9 +72385,9 @@ static const char *startup_source = " temp439_1)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_769)" +"((s442_0) s_758)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_150)" +"((phase444_0) phase_151)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -72222,9 +72413,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_770) s42_0))" +"(let-values(((s_759) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_151) phase44_1))" +"(let-values(((phase_152) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -72233,17 +72424,17 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_151))" -"(resolve33.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_152))" +"(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_770)))" +" s_759)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_770 s_770)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_759 s_759)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -72273,13 +72464,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_151))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_152))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_770" +" s_759" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -72295,13 +72486,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_771)" +"(lambda(s_760)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_771" +" s_760" "(remove-use-site-scopes" -"(remove-scopes s_771(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_760(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -72353,7 +72544,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_152) phase50_0))" +"(let-values(((phase_153) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -72370,14 +72561,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_152)" +"(namespace-visit-available-modules! m-ns_20 phase_153)" "((letrec-values(((loop_124)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_52(not(zero? phase_152)) #f)" +"(if(if tail?_52(not(zero? phase_153)) #f)" "(let-values()" "(begin" "(let-values(((obs_137)" @@ -72484,53 +72675,53 @@ static const char *startup_source = "(let-values(((tmp_23)" "(core-form-sym" " disarmed-exp-body_1" -" phase_152)))" +" phase_153)))" "(if(equal?" " tmp_23" " 'begin)" "(let-values()" -"(let-values(((ok?_75" +"(let-values(((ok?_76" " begin460_0" " e461_0)" -"(let-values(((s_772)" +"(let-values(((s_761)" " disarmed-exp-body_1))" -"(let-values(((orig-s_83)" -" s_772))" +"(let-values(((orig-s_84)" +" s_761))" "(let-values(((begin460_1" " e461_1)" -"(let-values(((s_773)" +"(let-values(((s_762)" "(if(syntax?$1" -" s_772)" +" s_761)" "(syntax-e$1" -" s_772)" -" s_772)))" +" s_761)" +" s_761)))" "(if(pair?" -" s_773)" +" s_762)" "(let-values(((begin462_0)" -"(let-values(((s_774)" +"(let-values(((s_141)" "(car" -" s_773)))" -" s_774))" +" s_762)))" +" s_141))" "((e463_0)" -"(let-values(((s_775)" +"(let-values(((s_763)" "(cdr" -" s_773)))" -"(let-values(((s_776)" +" s_762)))" +"(let-values(((s_764)" "(if(syntax?$1" -" s_775)" +" s_763)" "(syntax-e$1" -" s_775)" -" s_775)))" +" s_763)" +" s_763)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_776)))" +" s_764)))" "(if(not" " flat-s_54)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83))" +" orig-s_84))" "(let-values()" " flat-s_54)))))))" "(values" @@ -72539,7 +72730,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83)))))" +" orig-s_84)))))" "(values" " #t" " begin460_1" @@ -72601,7 +72792,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_152))))" +" phase_153))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -72620,48 +72811,48 @@ static const char *startup_source = " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_76" +"(let-values(((ok?_77" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_777)" +"(let-values(((s_765)" " disarmed-exp-body_1))" -"(let-values(((orig-s_84)" -" s_777))" +"(let-values(((orig-s_85)" +" s_765))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_778)" +"(let-values(((s_766)" "(if(syntax?$1" -" s_777)" +" s_765)" "(syntax-e$1" -" s_777)" -" s_777)))" +" s_765)" +" s_765)))" "(if(pair?" -" s_778)" +" s_766)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_779)" +"(let-values(((s_767)" "(car" -" s_778)))" -" s_779))" +" s_766)))" +" s_767))" "((e467_0)" -"(let-values(((s_780)" +"(let-values(((s_768)" "(cdr" -" s_778)))" -"(let-values(((s_781)" +" s_766)))" +"(let-values(((s_769)" "(if(syntax?$1" -" s_780)" +" s_768)" "(syntax-e$1" -" s_780)" -" s_780)))" +" s_768)" +" s_768)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_781)))" +" s_769)))" "(if(not" " flat-s_55)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84))" +" orig-s_85))" "(let-values()" " flat-s_55)))))))" "(values" @@ -72670,7 +72861,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84)))))" +" orig-s_85)))))" "(values" " #t" " begin-for-syntax464_1" @@ -72679,7 +72870,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_152))))" +" phase_153))))" "(begin" "(let-values(((obs_144)" "(expand-context-observer" @@ -72694,17 +72885,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_152))" +" phase_153))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_152)" +" phase_153)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_152)" +" phase_153)" "(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -72716,7 +72907,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_418)" +"(let-values(((lst_423)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72724,42 +72915,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_418)))" -"((letrec-values(((for-loop_319)" -"(lambda(fold-var_370" -" lst_419)" +" lst_423)))" +"((letrec-values(((for-loop_325)" +"(lambda(fold-var_368" +" lst_424)" "(begin" " 'for-loop" "(if(pair?" -" lst_419)" +" lst_424)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_419))" -"((rest_238)" +" lst_424))" +"((rest_239)" "(unsafe-cdr" -" lst_419)))" -"(let-values(((fold-var_371)" -"(let-values(((fold-var_372)" -" fold-var_370))" -"(let-values(((fold-var_373)" +" lst_424)))" +"(let-values(((fold-var_369)" +"(let-values(((fold-var_125)" +" fold-var_368))" +"(let-values(((fold-var_126)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_372))))" +" fold-var_125))))" "(values" -" fold-var_373)))))" +" fold-var_126)))))" "(if(not" " #f)" -"(for-loop_319" -" fold-var_371" -" rest_238)" -" fold-var_371)))" -" fold-var_370)))))" -" for-loop_319)" +"(for-loop_325" +" fold-var_369" +" rest_239)" +" fold-var_369)))" +" fold-var_368)))))" +" for-loop_325)" " null" -" lst_418))))))" +" lst_423))))))" "(datum->syntax$1" " #f" "(cons" @@ -72796,66 +72987,66 @@ static const char *startup_source = " 'prim-define-values))))" "(void)))" "(values))))" -"(let-values(((ok?_77" +"(let-values(((ok?_78" " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_782)" +"(let-values(((s_770)" " disarmed-exp-body_1))" -"(let-values(((orig-s_85)" -" s_782))" +"(let-values(((orig-s_86)" +" s_770))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_783)" +"(let-values(((s_771)" "(if(syntax?$1" -" s_782)" +" s_770)" "(syntax-e$1" -" s_782)" -" s_782)))" +" s_770)" +" s_770)))" "(if(pair?" -" s_783)" +" s_771)" "(let-values(((define-values471_0)" -"(let-values(((s_784)" +"(let-values(((s_772)" "(car" -" s_783)))" -" s_784))" +" s_771)))" +" s_772))" "((id472_0" " rhs473_0)" -"(let-values(((s_785)" +"(let-values(((s_773)" "(cdr" -" s_783)))" -"(let-values(((s_786)" +" s_771)))" +"(let-values(((s_774)" "(if(syntax?$1" -" s_785)" +" s_773)" "(syntax-e$1" -" s_785)" -" s_785)))" +" s_773)" +" s_773)))" "(if(pair?" -" s_786)" +" s_774)" "(let-values(((id474_0)" -"(let-values(((s_787)" +"(let-values(((s_775)" "(car" -" s_786)))" -"(let-values(((s_788)" +" s_774)))" +"(let-values(((s_776)" "(if(syntax?$1" -" s_787)" +" s_775)" "(syntax-e$1" -" s_787)" -" s_787)))" +" s_775)" +" s_775)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_788)))" +" s_776)))" "(if(not" " flat-s_56)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))" +" orig-s_86))" "(let-values()" -"(let-values(((id_151)" -"(let-values(((lst_420)" +"(let-values(((id_150)" +"(let-values(((lst_425)" " flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72863,108 +73054,108 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_420)))" -"((letrec-values(((for-loop_320)" -"(lambda(id_152" -" lst_421)" +" lst_425)))" +"((letrec-values(((for-loop_165)" +"(lambda(id_151" +" lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_421)" -"(let-values(((s_789)" +" lst_426)" +"(let-values(((s_777)" "(unsafe-car" -" lst_421))" -"((rest_239)" +" lst_426))" +"((rest_240)" "(unsafe-cdr" -" lst_421)))" +" lst_426)))" +"(let-values(((id_152)" "(let-values(((id_153)" +" id_151))" "(let-values(((id_154)" -" id_152))" -"(let-values(((id_155)" "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_406)" "(if(syntax?$1" -" s_789)" +" s_777)" "(symbol?" "(syntax-e$1" -" s_789))" +" s_777))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_406" +" or-part_406" "(symbol?" -" s_789)))" -" s_789" +" s_777)))" +" s_777" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_85" -" s_789)))))" +" orig-s_86" +" s_777)))))" "(cons" " id484_0" -" id_154)))))" +" id_153)))))" "(values" -" id_155)))))" +" id_154)))))" "(if(not" " #f)" -"(for-loop_320" -" id_153" -" rest_239)" -" id_153)))" -" id_152)))))" -" for-loop_320)" +"(for-loop_165" +" id_152" +" rest_240)" +" id_152)))" +" id_151)))))" +" for-loop_165)" " null" -" lst_420)))))" +" lst_425)))))" "(reverse$1" -" id_151))))))))" +" id_150))))))))" "((rhs475_0)" -"(let-values(((s_790)" +"(let-values(((s_778)" "(cdr" -" s_786)))" -"(let-values(((s_791)" +" s_774)))" +"(let-values(((s_779)" "(if(syntax?$1" -" s_790)" +" s_778)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_778)" +" s_778)))" "(if(pair?" -" s_791)" +" s_779)" "(let-values(((rhs476_0)" -"(let-values(((s_792)" +"(let-values(((s_780)" "(car" -" s_791)))" -" s_792))" +" s_779)))" +" s_780))" "(()" -"(let-values(((s_793)" +"(let-values(((s_781)" "(cdr" -" s_791)))" -"(let-values(((s_794)" +" s_779)))" +"(let-values(((s_782)" "(if(syntax?$1" -" s_793)" +" s_781)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_781)" +" s_781)))" "(if(null?" -" s_794)" +" s_782)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))))))" +" orig-s_86))))))" "(values" " rhs476_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))))))" +" orig-s_86))))))" "(values" " id474_0" " rhs475_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))))))" +" orig-s_86))))))" "(values" " define-values471_0" " id472_0" @@ -72972,7 +73163,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85)))))" +" orig-s_86)))))" "(values" " #t" " define-values468_1" @@ -72987,7 +73178,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_43)" "((phase478_0)" -" phase_152)" +" phase_153)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -73004,7 +73195,7 @@ static const char *startup_source = "(let-values(((ids480_0)" " ids_43)" "((phase481_0)" -" phase_152)" +" phase_153)" "((requires+provides482_0)" " requires+provides_7)" "((exp-body483_0)" @@ -73023,7 +73214,7 @@ static const char *startup_source = "((self487_0)" " self_34)" "((phase488_0)" -" phase_152)" +" phase_153)" "((all-scopes-stx489_0)" " all-scopes-stx_5)" "((frame-id490_0)" @@ -73051,7 +73242,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_152)" +" phase_153)" "(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73121,66 +73312,66 @@ static const char *startup_source = " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_78" +"(let-values(((ok?_79" " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_795)" +"(let-values(((s_783)" " disarmed-exp-body_1))" -"(let-values(((orig-s_86)" -" s_795))" +"(let-values(((orig-s_87)" +" s_783))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_796)" +"(let-values(((s_784)" "(if(syntax?$1" -" s_795)" +" s_783)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_783)" +" s_783)))" "(if(pair?" -" s_796)" +" s_784)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_797)" +"(let-values(((s_785)" "(car" -" s_796)))" -" s_797))" +" s_784)))" +" s_785))" "((id497_0" " rhs498_0)" -"(let-values(((s_798)" +"(let-values(((s_786)" "(cdr" -" s_796)))" +" s_784)))" +"(let-values(((s_532)" +"(if(syntax?$1" +" s_786)" +"(syntax-e$1" +" s_786)" +" s_786)))" +"(if(pair?" +" s_532)" +"(let-values(((id499_0)" +"(let-values(((s_787)" +"(car" +" s_532)))" "(let-values(((s_533)" "(if(syntax?$1" -" s_798)" +" s_787)" "(syntax-e$1" -" s_798)" -" s_798)))" -"(if(pair?" -" s_533)" -"(let-values(((id499_0)" -"(let-values(((s_799)" -"(car" -" s_533)))" -"(let-values(((s_534)" -"(if(syntax?$1" -" s_799)" -"(syntax-e$1" -" s_799)" -" s_799)))" +" s_787)" +" s_787)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_534)))" +" s_533)))" "(if(not" " flat-s_57)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))" +" orig-s_87))" "(let-values()" -"(let-values(((id_156)" -"(let-values(((lst_422)" +"(let-values(((id_155)" +"(let-values(((lst_427)" " flat-s_57))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73188,108 +73379,108 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_422)))" -"((letrec-values(((for-loop_321)" -"(lambda(id_157" -" lst_423)" +" lst_427)))" +"((letrec-values(((for-loop_326)" +"(lambda(id_156" +" lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" -"(let-values(((s_537)" +" lst_428)" +"(let-values(((s_536)" "(unsafe-car" -" lst_423))" -"((rest_240)" +" lst_428))" +"((rest_241)" "(unsafe-cdr" -" lst_423)))" +" lst_428)))" +"(let-values(((id_157)" "(let-values(((id_158)" +" id_156))" "(let-values(((id_159)" -" id_157))" -"(let-values(((id_160)" "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_407)" "(if(syntax?$1" -" s_537)" +" s_536)" "(symbol?" "(syntax-e$1" -" s_537))" +" s_536))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_407" +" or-part_407" "(symbol?" -" s_537)))" -" s_537" +" s_536)))" +" s_536" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_86" -" s_537)))))" +" orig-s_87" +" s_536)))))" "(cons" " id509_0" -" id_159)))))" +" id_158)))))" "(values" -" id_160)))))" +" id_159)))))" "(if(not" " #f)" -"(for-loop_321" -" id_158" -" rest_240)" -" id_158)))" -" id_157)))))" -" for-loop_321)" +"(for-loop_326" +" id_157" +" rest_241)" +" id_157)))" +" id_156)))))" +" for-loop_326)" " null" -" lst_422)))))" +" lst_427)))))" "(reverse$1" -" id_156))))))))" +" id_155))))))))" "((rhs500_0)" -"(let-values(((s_800)" +"(let-values(((s_788)" "(cdr" -" s_533)))" -"(let-values(((s_801)" +" s_532)))" +"(let-values(((s_789)" "(if(syntax?$1" -" s_800)" +" s_788)" "(syntax-e$1" -" s_800)" -" s_800)))" +" s_788)" +" s_788)))" "(if(pair?" -" s_801)" +" s_789)" "(let-values(((rhs501_0)" -"(let-values(((s_802)" +"(let-values(((s_790)" "(car" -" s_801)))" -" s_802))" +" s_789)))" +" s_790))" "(()" -"(let-values(((s_803)" +"(let-values(((s_791)" "(cdr" -" s_801)))" -"(let-values(((s_804)" +" s_789)))" +"(let-values(((s_792)" "(if(syntax?$1" -" s_803)" +" s_791)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_791)" +" s_791)))" "(if(null?" -" s_804)" +" s_792)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))))))" +" orig-s_87))))))" "(values" " rhs501_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))))))" +" orig-s_87))))))" "(values" " id499_0" " rhs500_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))))))" +" orig-s_87))))))" "(values" " define-syntaxes496_0" " id497_0" @@ -73297,7 +73488,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86)))))" +" orig-s_87)))))" "(values" " #t" " define-syntaxes493_1" @@ -73312,7 +73503,7 @@ static const char *startup_source = "(let-values(((ids502_0)" " ids_44)" "((phase503_0)" -" phase_152)" +" phase_153)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -73329,7 +73520,7 @@ static const char *startup_source = "(let-values(((ids505_0)" " ids_44)" "((phase506_0)" -" phase_152)" +" phase_153)" "((requires+provides507_0)" " requires+provides_7)" "((exp-body508_0)" @@ -73348,7 +73539,7 @@ static const char *startup_source = "((self512_0)" " self_34)" "((phase513_0)" -" phase_152)" +" phase_153)" "((all-scopes-stx514_0)" " all-scopes-stx_5)" "((frame-id515_0)" @@ -73379,7 +73570,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_152)" +" phase_153)" "(values))))" "(let-values(((exp-rhs_5" " parsed-rhs_2" @@ -73391,18 +73582,18 @@ static const char *startup_source = "((temp521_0)" "(let-values(((v_266)" " partial-body-ctx_1))" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_114)" " v_266))" "(if(expand-context/outer?" -" the-struct_115)" +" the-struct_114)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_115)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_116)" +" the-struct_115)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -73411,89 +73602,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-to-parsed?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-phase" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-namespace" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-stops" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-declared-submodule-names" -" the-struct_116)" +" the-struct_115)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_115)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_115)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_116)))))" -"(expand-context/outer1.1" -" inner524_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_115)" -"(root-expand-context/outer-frame-id" -" the-struct_115)" -"(expand-context/outer-context" -" the-struct_115)" -"(expand-context/outer-env" -" the-struct_115)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" -"(expand-context/outer-scopes" -" the-struct_115)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_115)" -"(expand-context/outer-binding-layer" -" the-struct_115)" -"(expand-context/outer-reference-records" -" the-struct_115)" -"(expand-context/outer-only-immediate?" -" the-struct_115)" -" need-eventually-defined523_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_115)" -"(expand-context/outer-name" " the-struct_115)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_115)))))" +"(expand-context/outer1.1" +" inner524_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_114)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_114)" +"(root-expand-context/outer-frame-id" +" the-struct_114)" +"(expand-context/outer-context" +" the-struct_114)" +"(expand-context/outer-env" +" the-struct_114)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_114)" +"(expand-context/outer-scopes" +" the-struct_114)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_114)" +"(expand-context/outer-binding-layer" +" the-struct_114)" +"(expand-context/outer-reference-records" +" the-struct_114)" +"(expand-context/outer-only-immediate?" +" the-struct_114)" +" need-eventually-defined523_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_114)" +"(expand-context/outer-name" +" the-struct_114)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_114)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -73504,11 +73695,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_424)" +"(let-values(((lst_429)" " syms_25)" -"((lst_425)" +"((lst_430)" " vals_10)" -"((lst_426)" +"((lst_431)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73516,51 +73707,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_424)))" +" lst_429)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_425)))" +" lst_430)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_426)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_427" -" lst_428" -" lst_429)" +" lst_431)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_432" +" lst_433" +" lst_434)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_427)" +" lst_432)" "(if(pair?" -" lst_428)" +" lst_433)" "(pair?" -" lst_429)" +" lst_434)" " #f)" " #f)" -"(let-values(((sym_106)" +"(let-values(((sym_105)" "(unsafe-car" -" lst_427))" -"((rest_241)" -"(unsafe-cdr" -" lst_427))" -"((val_82)" -"(unsafe-car" -" lst_428))" +" lst_432))" "((rest_242)" "(unsafe-cdr" -" lst_428))" -"((id_161)" +" lst_432))" +"((val_83)" "(unsafe-car" -" lst_429))" -"((rest_226)" +" lst_433))" +"((rest_243)" "(unsafe-cdr" -" lst_429)))" +" lst_433))" +"((id_160)" +"(unsafe-car" +" lst_434))" +"((rest_227)" +"(unsafe-cdr" +" lst_434)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73569,29 +73760,29 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_82" -" id_161" -" phase_152" +" val_83" +" id_160" +" phase_153" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_152" -" sym_106" -" val_82)))" +" phase_153" +" sym_105" +" val_83)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_322" -" rest_241" +"(for-loop_327" " rest_242" -" rest_226)" +" rest_243" +" rest_227)" "(values))))" "(values))))))" -" for-loop_322)" -" lst_424" -" lst_425" -" lst_426)))" +" for-loop_327)" +" lst_429" +" lst_430" +" lst_431)))" "(values))))" "(let-values()" "(let-values((()" @@ -73667,48 +73858,48 @@ static const char *startup_source = "(remove-use-site-scopes" " disarmed-exp-body_1" " partial-body-ctx_1)))" -"(let-values(((ok?_79" +"(let-values(((ok?_80" " #%require530_0" " req531_0)" -"(let-values(((s_805)" +"(let-values(((s_793)" " ready-body_0))" -"(let-values(((orig-s_87)" -" s_805))" +"(let-values(((orig-s_88)" +" s_793))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_806)" +"(let-values(((s_794)" "(if(syntax?$1" -" s_805)" +" s_793)" "(syntax-e$1" -" s_805)" -" s_805)))" +" s_793)" +" s_793)))" "(if(pair?" -" s_806)" +" s_794)" "(let-values(((#%require532_0)" -"(let-values(((s_807)" +"(let-values(((s_795)" "(car" -" s_806)))" -" s_807))" +" s_794)))" +" s_795))" "((req533_0)" -"(let-values(((s_808)" +"(let-values(((s_796)" "(cdr" -" s_806)))" -"(let-values(((s_809)" +" s_794)))" +"(let-values(((s_797)" "(if(syntax?$1" -" s_808)" +" s_796)" "(syntax-e$1" -" s_808)" -" s_808)))" +" s_796)" +" s_796)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_809)))" +" s_797)))" "(if(not" " flat-s_58)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87))" +" orig-s_88))" "(let-values()" " flat-s_58)))))))" "(values" @@ -73717,7 +73908,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87)))))" +" orig-s_88)))))" "(values" " #t" " #%require530_1" @@ -73732,9 +73923,9 @@ static const char *startup_source = "((m-ns537_0)" " m-ns_20)" "((phase538_0)" -" phase_152)" +" phase_153)" "((phase539_0)" -" phase_152)" +" phase_153)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -73871,48 +74062,48 @@ static const char *startup_source = " tmp_23" " '#%declare)" "(let-values()" -"(let-values(((ok?_80" +"(let-values(((ok?_81" " #%declare551_0" " kw552_0)" -"(let-values(((s_810)" +"(let-values(((s_798)" " disarmed-exp-body_1))" -"(let-values(((orig-s_88)" -" s_810))" +"(let-values(((orig-s_89)" +" s_798))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_811)" +"(let-values(((s_799)" "(if(syntax?$1" -" s_810)" +" s_798)" "(syntax-e$1" -" s_810)" -" s_810)))" +" s_798)" +" s_798)))" "(if(pair?" -" s_811)" +" s_799)" "(let-values(((#%declare553_0)" -"(let-values(((s_812)" +"(let-values(((s_800)" "(car" -" s_811)))" -" s_812))" +" s_799)))" +" s_800))" "((kw554_0)" -"(let-values(((s_553)" +"(let-values(((s_552)" "(cdr" -" s_811)))" -"(let-values(((s_554)" +" s_799)))" +"(let-values(((s_553)" "(if(syntax?$1" -" s_553)" +" s_552)" "(syntax-e$1" -" s_553)" -" s_553)))" +" s_552)" +" s_552)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_554)))" +" s_553)))" "(if(not" " flat-s_59)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))" +" orig-s_89))" "(let-values()" " flat-s_59)))))))" "(values" @@ -73921,14 +74112,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88)))))" +" orig-s_89)))))" "(values" " #t" " #%declare551_1" " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_430)" +"(let-values(((lst_435)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73936,19 +74127,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_430)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_431)" +" lst_435)))" +"((letrec-values(((for-loop_328)" +"(lambda(lst_436)" "(begin" " 'for-loop" "(if(pair?" -" lst_431)" +" lst_436)" "(let-values(((kw_1)" "(unsafe-car" -" lst_431))" -"((rest_243)" +" lst_436))" +"((rest_244)" "(unsafe-cdr" -" lst_431)))" +" lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73999,12 +74190,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_323" -" rest_243)" +"(for-loop_328" +" rest_244)" "(values))))" "(values))))))" -" for-loop_323)" -" lst_430)))" +" for-loop_328)" +" lst_435)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74051,42 +74242,42 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_45 rhs_24 phase_153)" +"(lambda(ids_45 rhs_24 phase_154)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_432) ids_45))" +"(let-values(((lst_437) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_432)))" -"((letrec-values(((for-loop_324)" -"(lambda(fold-var_374 lst_433)" +"(let-values()(check-list lst_437)))" +"((letrec-values(((for-loop_329)" +"(lambda(fold-var_370 lst_438)" "(begin" " 'for-loop" -"(if(pair? lst_433)" -"(let-values(((id_162)(unsafe-car lst_433))" -"((rest_244)(unsafe-cdr lst_433)))" -"(let-values(((fold-var_375)" -"(let-values(((fold-var_376) fold-var_374))" -"(let-values(((fold-var_377)" +"(if(pair? lst_438)" +"(let-values(((id_161)(unsafe-car lst_438))" +"((rest_245)(unsafe-cdr lst_438)))" +"(let-values(((fold-var_371)" +"(let-values(((fold-var_372) fold-var_370))" +"(let-values(((fold-var_373)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_162" +" id_161" " inside-scope_2))" -" fold-var_376))))" -"(values fold-var_377)))))" -"(if(not #f)(for-loop_324 fold-var_375 rest_244) fold-var_375)))" -" fold-var_374)))))" -" for-loop_324)" +" fold-var_372))))" +"(values fold-var_373)))))" +"(if(not #f)(for-loop_329 fold-var_371 rest_245) fold-var_371)))" +" fold-var_370)))))" +" for-loop_329)" " null" -" lst_432))))))" +" lst_437))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" "((self557_0) self_35)" -"((phase558_0) phase_153)" +"((phase558_0) phase_154)" "((all-scopes-stx559_0) all-scopes-stx_6)" "((frame-id560_0) frame-id_18)" "((requires+provides561_0) requires+provides_8))" @@ -74105,16 +74296,16 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_288)" +"(let-values(((s_801)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_153) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_154) 'define-values)" " scoped-ids_0" " rhs_24))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_288 syms_26 scoped-ids_0 rhs_24)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_801 syms_26 scoped-ids_0 rhs_24)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_114)" @@ -74122,28 +74313,28 @@ static const char *startup_source = "(let-values(((sc_35)(root-expand-context-post-expansion-scope ctx_114)))" "(if sc_35" "(reverse$1" -"(let-values(((lst_434) bodys_23))" +"(let-values(((lst_439) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_434)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_378 lst_435)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))" +"((letrec-values(((for-loop_330)" +"(lambda(fold-var_374 lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_435)" -"(let-values(((body_23)(unsafe-car lst_435))((rest_245)(unsafe-cdr lst_435)))" -"(let-values(((fold-var_379)" -"(let-values(((fold-var_380) fold-var_378))" -"(let-values(((fold-var_381)" +"(if(pair? lst_440)" +"(let-values(((body_23)(unsafe-car lst_440))((rest_246)(unsafe-cdr lst_440)))" +"(let-values(((fold-var_375)" +"(let-values(((fold-var_376) fold-var_374))" +"(let-values(((fold-var_377)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_35))" -" fold-var_380))))" -"(values fold-var_381)))))" -"(if(not #f)(for-loop_325 fold-var_379 rest_245) fold-var_379)))" -" fold-var_378)))))" -" for-loop_325)" +" fold-var_376))))" +"(values fold-var_377)))))" +"(if(not #f)(for-loop_330 fold-var_375 rest_246) fold-var_375)))" +" fold-var_374)))))" +" for-loop_330)" " null" -" lst_434))))" +" lst_439))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -74158,7 +74349,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_154) phase84_0))" +"(let-values(((phase_155) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -74172,7 +74363,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_53(not(zero? phase_154)) #f)" +"(if(if tail?_53(not(zero? phase_155)) #f)" "(let-values()" "(begin" "(let-values(((obs_154)(expand-context-observer body-ctx_7)))" @@ -74226,14 +74417,14 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_408)" "(parsed? body_24)))" -"(if or-part_405" -" or-part_405" -"(let-values(((or-part_406)" +"(if or-part_408" +" or-part_408" +"(let-values(((or-part_409)" "(expanded+parsed? body_24)))" -"(if or-part_406" -" or-part_406" +"(if or-part_409" +" or-part_409" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -74250,104 +74441,104 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_813)" +"(let-values(((s_802)" "(semi-parsed-define-values-s" " body_24)))" -"(let-values(((ok?_81" +"(let-values(((ok?_82" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_814)" +"(let-values(((s_803)" "(syntax-disarm$1" -" s_813)))" +" s_802)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" -"(let-values(((orig-s_89)" -" s_814))" +"(let-values(((orig-s_90)" +" s_803))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_815)" +"(let-values(((s_804)" "(if(syntax?$1" -" s_814)" +" s_803)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_803)" +" s_803)))" "(if(pair?" -" s_815)" +" s_804)" "(let-values(((define-values565_0)" -"(let-values(((s_816)" +"(let-values(((s_805)" "(car" -" s_815)))" -" s_816))" +" s_804)))" +" s_805))" "((_566_0" " _567_0)" -"(let-values(((s_621)" +"(let-values(((s_610)" "(cdr" -" s_815)))" -"(let-values(((s_622)" +" s_804)))" +"(let-values(((s_611)" "(if(syntax?$1" -" s_621)" +" s_610)" "(syntax-e$1" -" s_621)" -" s_621)))" +" s_610)" +" s_610)))" "(if(pair?" -" s_622)" +" s_611)" "(let-values(((_568_0)" -"(let-values(((s_817)" +"(let-values(((s_806)" "(car" -" s_622)))" -" s_817))" +" s_611)))" +" s_806))" "((_569_0)" -"(let-values(((s_818)" +"(let-values(((s_807)" "(cdr" -" s_622)))" -"(let-values(((s_819)" +" s_611)))" +"(let-values(((s_808)" "(if(syntax?$1" -" s_818)" +" s_807)" "(syntax-e$1" -" s_818)" -" s_818)))" +" s_807)" +" s_807)))" "(if(pair?" -" s_819)" +" s_808)" "(let-values(((_570_0)" -"(let-values(((s_820)" +"(let-values(((s_809)" "(car" -" s_819)))" -" s_820))" +" s_808)))" +" s_809))" "(()" -"(let-values(((s_821)" +"(let-values(((s_810)" "(cdr" -" s_819)))" -"(let-values(((s_822)" +" s_808)))" +"(let-values(((s_811)" "(if(syntax?$1" -" s_821)" +" s_810)" "(syntax-e$1" -" s_821)" -" s_821)))" +" s_810)" +" s_810)))" "(if(null?" -" s_822)" +" s_811)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))))))" +" orig-s_90))))))" "(values" " _570_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))))))" +" orig-s_90))))))" "(values" " _568_0" " _569_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))))))" +" orig-s_90))))))" "(values" " define-values565_0" " _566_0" @@ -74355,7 +74546,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89)))))" +" orig-s_90)))))" "(values" " #t" " define-values562_1" @@ -74370,7 +74561,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_813)" +" s_802)" "((temp573_0)" " #t))" "(keep-as-needed74.1" @@ -74452,7 +74643,7 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" -" phase_154)))" +" phase_155)))" "(if(if(equal? tmp_65 '#%require)" " #t" "(if(equal? tmp_65 '#%provide)" @@ -74532,7 +74723,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules584_0)" " lifted-modules_0)" -"((phase585_0) phase_154)" +"((phase585_0) phase_155)" "((self586_0) self_36)" "((body-ctx587_0)" " body-ctx_7)" @@ -74586,15 +74777,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_115)" "(begin" "(begin" -"(let-values(((ht_165) need-eventually-defined_3))" +"(let-values(((ht_168) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" -"((letrec-values(((for-loop_326)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_168)))" +"((letrec-values(((for-loop_331)" "(lambda(i_189)" "(begin" " 'for-loop" "(if i_189" -"(let-values(((phase_155 l_84)(hash-iterate-key+value ht_165 i_189)))" +"(let-values(((phase_156 l_84)(hash-iterate-key+value ht_168 i_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74602,35 +74793,35 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_436) l_84))" +"(let-values(((lst_441) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_436)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_437)" +"(let-values()(check-list lst_441)))" +"((letrec-values(((for-loop_332)" +"(lambda(lst_442)" "(begin" " 'for-loop" "(if(pair?" -" lst_437)" -"(let-values(((id_163)" +" lst_442)" +"(let-values(((id_162)" "(unsafe-car" -" lst_437))" -"((rest_246)" +" lst_442))" +"((rest_247)" "(unsafe-cdr" -" lst_437)))" +" lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_93)" +"(let-values(((b_91)" "(let-values(((id592_0)" -" id_163)" +" id_162)" "((phase593_0)" -" phase_155))" +" phase_156))" "(resolve+shift30.1" " #f" " #f" @@ -74644,17 +74835,17 @@ static const char *startup_source = " #f" " id592_0" " phase593_0))))" -"(if(if b_93" +"(if(if b_91" "(if(module-binding?" -" b_93)" +" b_91)" "(if(eq?" "(module-binding-sym" -" b_93)" +" b_91)" "(syntax-e$1" -" id_163))" +" id_162))" "(eq?" "(module-binding-module" -" b_93)" +" b_91)" " self_37)" " #f)" " #f)" @@ -74664,28 +74855,28 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"reference to an unbound identifier\"" -" id_163" +" id_162" " #f" " null" "(syntax-debug-info-string" -" id_163" +" id_162" " ctx_115))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_327" -" rest_246)" +"(for-loop_332" +" rest_247)" "(values))))" "(values))))))" -" for-loop_327)" -" lst_436)))" +" for-loop_332)" +" lst_441)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326(hash-iterate-next ht_165 i_189))(values))))" +"(if(not #f)(for-loop_331(hash-iterate-next ht_168 i_189))(values))))" "(values))))))" -" for-loop_326)" -"(hash-iterate-first ht_165))))" +" for-loop_331)" +"(hash-iterate-first ht_168))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -74702,43 +74893,43 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_156) phase105_0))" +"(let-values(((phase_157) phase105_0))" "(let-values(((self_38) self106_0))" "(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_126)" -"(lambda(bodys_26 phase_157)" +"(lambda(bodys_26 phase_158)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_407)(parsed?(car bodys_26))))" -"(if or-part_407 or-part_407(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_410)(parsed?(car bodys_26))))" +"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_157)))" +"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_158)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_126" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_157))))" +"(add1 phase_158))))" "(cons" -"(let-values(((the-struct_117)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_117)" +"(let-values(((the-struct_116)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_116)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_117)" +"(semi-parsed-begin-for-syntax-s the-struct_116)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_117)))" -"(loop_126(cdr bodys_26) phase_157))))" +" the-struct_116)))" +"(loop_126(cdr bodys_26) phase_158))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_66)" -"(core-form-sym disarmed-body_1 phase_157)))" +"(core-form-sym disarmed-body_1 phase_158)))" "(if(equal? tmp_66 '#%provide)" "(let-values()" "(let-values((()" @@ -74759,43 +74950,43 @@ static const char *startup_source = " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_82 #%provide595_0 spec596_0)" -"(let-values(((s_643) disarmed-body_1))" -"(let-values(((orig-s_90) s_643))" +"(let-values(((ok?_83 #%provide595_0 spec596_0)" +"(let-values(((s_632) disarmed-body_1))" +"(let-values(((orig-s_91) s_632))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_823)" +"(let-values(((s_812)" "(if(syntax?$1" -" s_643)" +" s_632)" "(syntax-e$1" -" s_643)" -" s_643)))" -"(if(pair? s_823)" +" s_632)" +" s_632)))" +"(if(pair? s_812)" "(let-values(((#%provide597_0)" -"(let-values(((s_824)" +"(let-values(((s_813)" "(car" -" s_823)))" -" s_824))" +" s_812)))" +" s_813))" "((spec598_0)" -"(let-values(((s_825)" +"(let-values(((s_814)" "(cdr" -" s_823)))" -"(let-values(((s_826)" +" s_812)))" +"(let-values(((s_815)" "(if(syntax?$1" -" s_825)" +" s_814)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_814)" +" s_814)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_826)))" +" s_815)))" "(if(not" " flat-s_60)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90))" +" orig-s_91))" "(let-values()" " flat-s_60)))))))" "(values" @@ -74804,7 +74995,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90)))))" +" orig-s_91)))))" "(values" " #t" " #%provide595_1" @@ -74815,117 +75006,117 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_38" -" phase_157" +" phase_158" "(let-values(((v_267) ctx_116))" -"(let-values(((the-struct_118)" +"(let-values(((the-struct_117)" " v_267))" "(if(expand-context/outer?" -" the-struct_118)" +" the-struct_117)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_118)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_119)" +" the-struct_118)" "(let-values(((phase601_0)" -" phase_157)" +" phase_158)" "((namespace602_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_157))" +" phase_158))" "((requires+provides603_0)" " requires+provides_9)" "((declared-submodule-names604_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_118)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-stops" -" the-struct_119)" +" the-struct_118)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_118)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_119)))))" -"(expand-context/outer1.1" -" inner600_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_118)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_118)" -"(root-expand-context/outer-frame-id" -" the-struct_118)" -" context599_0" -"(expand-context/outer-env" -" the-struct_118)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" -"(expand-context/outer-scopes" -" the-struct_118)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_118)" -"(expand-context/outer-binding-layer" -" the-struct_118)" -"(expand-context/outer-reference-records" -" the-struct_118)" -"(expand-context/outer-only-immediate?" -" the-struct_118)" -"(expand-context/outer-need-eventually-defined" -" the-struct_118)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_118)" -"(expand-context/outer-name" " the-struct_118)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_118)))))" +"(expand-context/outer1.1" +" inner600_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_117)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_117)" +"(root-expand-context/outer-frame-id" +" the-struct_117)" +" context599_0" +"(expand-context/outer-env" +" the-struct_117)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_117)" +"(expand-context/outer-scopes" +" the-struct_117)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_117)" +"(expand-context/outer-binding-layer" +" the-struct_117)" +"(expand-context/outer-reference-records" +" the-struct_117)" +"(expand-context/outer-only-immediate?" +" the-struct_117)" +"(expand-context/outer-need-eventually-defined" +" the-struct_117)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_117)" +"(expand-context/outer-name" +" the-struct_117)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))))" +" the-struct_117)))))))" "(if(expand-context-to-parsed? ctx_116)" "(let-values()" -"(loop_126(cdr bodys_26) phase_157))" +"(loop_126(cdr bodys_26) phase_158))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -74957,14 +75148,14 @@ static const char *startup_source = " new-s_10" "(loop_126" "(cdr bodys_26)" -" phase_157))))))))))" +" phase_158))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_157))))))))))))))" +"(loop_126(cdr bodys_26) phase_158))))))))))))))" " loop_126)" " expression-expanded-bodys_1" -" phase_156)))))))))))))" +" phase_157)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -75009,8 +75200,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_408) enclosing-self_3))" -"(if or-part_408 or-part_408 self_39)))))" +"(let-values(((or-part_411) enclosing-self_3))" +"(if or-part_411 or-part_411 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -75076,16 +75267,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_665 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_654 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_827)" -"(syntax-property$1 s_665 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_828)" +"(let-values(((s_816)" +"(syntax-property$1 s_654 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_817)" "(syntax-property$1" -" s_827" +" s_816" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_828)))))" +" s_817)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -75104,7 +75295,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_158) phase143_1))" +"(let-values(((phase_159) phase143_1))" "(let-values(((self_40) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -75116,7 +75307,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_27 phase_159)" +"(lambda(bodys_27 phase_160)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -75129,45 +75320,45 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_25)))" -"(let-values(((ok?_83 begin-for-syntax617_0 _618_0)" -"(let-values(((s_829)" +"(let-values(((ok?_84 begin-for-syntax617_0 _618_0)" +"(let-values(((s_818)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_91) s_829))" +"(let-values(((orig-s_92) s_818))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_830)" +"(let-values(((s_819)" "(if(syntax?$1" -" s_829)" +" s_818)" "(syntax-e$1" -" s_829)" -" s_829)))" -"(if(pair? s_830)" +" s_818)" +" s_818)))" +"(if(pair? s_819)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_831)" +"(let-values(((s_820)" "(car" -" s_830)))" -" s_831))" +" s_819)))" +" s_820))" "((_620_0)" -"(let-values(((s_832)" +"(let-values(((s_821)" "(cdr" -" s_830)))" -"(let-values(((s_833)" +" s_819)))" +"(let-values(((s_822)" "(if(syntax?$1" -" s_832)" +" s_821)" "(syntax-e$1" -" s_832)" -" s_832)))" +" s_821)" +" s_821)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_833)))" +" s_822)))" "(if(not" " flat-s_61)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))" +" orig-s_92))" "(let-values()" " flat-s_61)))))))" "(values" @@ -75176,7 +75367,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91)))))" +" orig-s_92)))))" "(values" " #t" " begin-for-syntax617_1" @@ -75199,7 +75390,7 @@ static const char *startup_source = "(loop_127" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_159))))" +"(add1 phase_160))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -75222,20 +75413,20 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_159))))))))" -"(if(let-values(((or-part_409)(parsed? body_25)))" -"(if or-part_409" -" or-part_409" +"(loop_127 rest-bodys_3 phase_160))))))))" +"(if(let-values(((or-part_412)(parsed? body_25)))" +"(if or-part_412" +" or-part_412" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_127 rest-bodys_3 phase_159)))" +"(cons body_25(loop_127 rest-bodys_3 phase_160)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_2" -" phase_159)))" +" phase_160)))" "(if(equal? tmp_67 'module*)" "(let-values()" "(let-values((()" @@ -75247,64 +75438,64 @@ static const char *startup_source = "(remove-use-site-scopes" " body_25" " submod-ctx_1)))" -"(let-values(((ok?_84" +"(let-values(((ok?_85" " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_834)" +"(let-values(((s_823)" " disarmed-body_2))" -"(if(let-values(((s_835)" +"(if(let-values(((s_824)" "(if(syntax?$1" -" s_834)" +" s_823)" "(syntax-e$1" -" s_834)" -" s_834)))" -"(if(pair? s_835)" -"(if(let-values(((s_836)" +" s_823)" +" s_823)))" +"(if(pair? s_824)" +"(if(let-values(((s_825)" "(car" -" s_835)))" +" s_824)))" " #t)" -"(let-values(((s_837)" +"(let-values(((s_826)" "(cdr" -" s_835)))" -"(let-values(((s_678)" +" s_824)))" +"(let-values(((s_667)" "(if(syntax?$1" -" s_837)" +" s_826)" "(syntax-e$1" -" s_837)" -" s_837)))" +" s_826)" +" s_826)))" "(if(pair?" -" s_678)" -"(if(let-values(((s_838)" +" s_667)" +"(if(let-values(((s_827)" "(car" -" s_678)))" +" s_667)))" " #t)" -"(let-values(((s_839)" +"(let-values(((s_828)" "(cdr" -" s_678)))" -"(let-values(((s_840)" +" s_667)))" +"(let-values(((s_829)" "(if(syntax?$1" -" s_839)" +" s_828)" "(syntax-e$1" -" s_839)" -" s_839)))" +" s_828)" +" s_828)))" "(if(pair?" -" s_840)" -"(if(let-values(((s_841)" +" s_829)" +"(if(let-values(((s_830)" "(car" -" s_840)))" -"(let-values(((s_842)" +" s_829)))" +"(let-values(((s_831)" "(if(syntax?$1" -" s_841)" +" s_830)" "(syntax-e$1" -" s_841)" -" s_841)))" +" s_830)" +" s_830)))" "(eq?" " #f" -" s_842)))" -"(let-values(((s_843)" +" s_831)))" +"(let-values(((s_832)" "(cdr" -" s_840)))" +" s_829)))" " #t)" " #f)" " #f)))" @@ -75316,59 +75507,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_844)" +"(let-values(((s_833)" "(if(syntax?$1" -" s_834)" +" s_823)" "(syntax-e$1" -" s_834)" -" s_834)))" +" s_823)" +" s_823)))" "(let-values(((module*628_0)" -"(let-values(((s_845)" +"(let-values(((s_834)" "(car" -" s_844)))" -" s_845))" +" s_833)))" +" s_834))" "((name629_0" " _630_0)" -"(let-values(((s_846)" +"(let-values(((s_835)" "(cdr" -" s_844)))" -"(let-values(((s_680)" +" s_833)))" +"(let-values(((s_669)" "(if(syntax?$1" -" s_846)" +" s_835)" "(syntax-e$1" -" s_846)" -" s_846)))" +" s_835)" +" s_835)))" "(let-values(((name631_0)" -"(let-values(((s_847)" +"(let-values(((s_836)" "(car" -" s_680)))" -" s_847))" +" s_669)))" +" s_836))" "((_632_0)" -"(let-values(((s_848)" +"(let-values(((s_837)" "(cdr" -" s_680)))" -"(let-values(((s_849)" +" s_669)))" +"(let-values(((s_838)" "(if(syntax?$1" -" s_848)" +" s_837)" "(syntax-e$1" -" s_848)" -" s_848)))" +" s_837)" +" s_837)))" "(let-values((()" -"(let-values(((s_850)" +"(let-values(((s_839)" "(car" -" s_849)))" -"(let-values(((s_681)" +" s_838)))" +"(let-values(((s_670)" "(if(syntax?$1" -" s_850)" +" s_839)" "(syntax-e$1" -" s_850)" -" s_850)))" +" s_839)" +" s_839)))" "(values))))" "((_633_0)" -"(let-values(((s_851)" +"(let-values(((s_840)" "(cdr" -" s_849)))" -" s_851)))" +" s_838)))" +" s_840)))" "(values" " _633_0))))))" "(values" @@ -75389,12 +75580,12 @@ static const char *startup_source = " #f" " #f)))))" "(let-values(((submod_3)" -"(if ok?_84" +"(if ok?_85" "(let-values()" "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_159)))" +" phase_160)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -75448,27 +75639,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_120)" +"(let-values(((the-struct_119)" " submod_4))" "(if(expanded+parsed?" -" the-struct_120)" +" the-struct_119)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_159)))" +" phase_160)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_120)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_120))))" +" the-struct_119))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_159))))))))" +" phase_160))))))))" "(let-values()" "(let-values(((ready-body647_0)" " ready-body_2)" @@ -75507,16 +75698,16 @@ static const char *startup_source = " submod_3" "(loop_127" " rest-bodys_3" -" phase_159)))))))" +" phase_160)))))))" "(let-values()" "(cons" " body_25" "(loop_127" " rest-bodys_3" -" phase_159)))))))))))))))))" +" phase_160)))))))))))))))))" " loop_127)" " fully-expanded-bodys-except-post-submodules_2" -" phase_158)))))))))))))))))" +" phase_159)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_118)" @@ -75531,23 +75722,23 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_160) phase171_1))" +"(let-values(((phase_161) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_715) in168_0))" +"(let-values(((s_704) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_438) ids_47))" +"(let-values(((lst_443) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_439)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_333)" +"(lambda(lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_439)" -"(let-values(((id_164)(unsafe-car lst_439))" -"((rest_247)(unsafe-cdr lst_439)))" +"(if(pair? lst_444)" +"(let-values(((id_163)(unsafe-car lst_444))" +"((rest_248)(unsafe-cdr lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75556,12 +75747,14 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides655_0)" " requires+provides_12)" -"((id656_0) id_164)" +"((id656_0) id_163)" "((phase657_0)" -" phase_160)" -"((s658_0) s_715)" +" phase_161)" +"((s658_0) s_704)" "((temp659_0) 'module))" -"(check-not-defined93.1" +"(check-not-defined95.1" +" #f" +" #f" " #f" " #f" " #f" @@ -75577,25 +75770,25 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_247)(values))))" +"(if(not #f)(for-loop_333 rest_248)(values))))" "(values))))))" -" for-loop_328)" -" lst_438)))" +" for-loop_333)" +" lst_443)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_161 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_162 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_440) bodys_28))" +"(let-values(((lst_445) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_441)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((body_26)(unsafe-car lst_441))((rest_248)(unsafe-cdr lst_441)))" +"(if(pair? lst_446)" +"(let-values(((body_26)(unsafe-car lst_446))((rest_249)(unsafe-cdr lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75617,63 +75810,63 @@ static const char *startup_source = " ids_48" "(parsed-define-values-rhs" " p_85)" -" phase_161" +" phase_162" " m-ns_23" " ctx_119)))" "(begin" -"(let-values(((lst_442) ids_48)" -"((lst_443)" +"(let-values(((lst_447) ids_48)" +"((lst_448)" "(parsed-define-values-syms" " p_85))" -"((lst_444) vals_11))" +"((lst_449) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_442)))" +"(check-list lst_447)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_443)))" +"(check-list lst_448)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_444)))" -"((letrec-values(((for-loop_330)" -"(lambda(lst_445" -" lst_446" -" lst_447)" +"(check-list lst_449)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_450" +" lst_451" +" lst_452)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_445)" +" lst_450)" "(if(pair?" -" lst_446)" +" lst_451)" "(pair?" -" lst_447)" +" lst_452)" " #f)" " #f)" -"(let-values(((id_165)" +"(let-values(((id_164)" "(unsafe-car" -" lst_445))" -"((rest_249)" -"(unsafe-cdr" -" lst_445))" -"((sym_107)" -"(unsafe-car" -" lst_446))" +" lst_450))" "((rest_250)" "(unsafe-cdr" -" lst_446))" -"((val_83)" +" lst_450))" +"((sym_106)" "(unsafe-car" -" lst_447))" +" lst_451))" "((rest_251)" "(unsafe-cdr" -" lst_447)))" +" lst_451))" +"((val_84)" +"(unsafe-car" +" lst_452))" +"((rest_252)" +"(unsafe-cdr" +" lst_452)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75682,37 +75875,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_161" -" sym_107" -" val_83))" +" phase_162" +" sym_106" +" val_84))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_330" -" rest_249" +"(for-loop_335" " rest_250" -" rest_251)" +" rest_251" +" rest_252)" "(values))))" "(values))))))" -" for-loop_330)" -" lst_442" -" lst_443" -" lst_444)))" +" for-loop_335)" +" lst_447" +" lst_448" +" lst_449)))" "(void)))))" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_413)" "(parsed-define-syntaxes?" " p_85)))" -"(if or-part_410" -" or-part_410" +"(if or-part_413" +" or-part_413" "(semi-parsed-begin-for-syntax?" " p_85)))" "(let-values()(void))" -"(if(let-values(((or-part_411)" +"(if(let-values(((or-part_414)" "(parsed-#%declare?" " p_85)))" -"(if or-part_411" -" or-part_411" +"(if or-part_414" +" or-part_414" "(syntax?$1 p_85)))" "(let-values()(void))" "(let-values()" @@ -75733,7 +75926,7 @@ static const char *startup_source = "(let-values(((m-ns660_0)" " m-ns_23)" "((phase661_0)" -" phase_161))" +" phase_162))" "(make-compile-context14.1" " #f" " #f" @@ -75750,10 +75943,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_248)(values))))" +"(if(not #f)(for-loop_334 rest_249)(values))))" "(values))))))" -" for-loop_329)" -" lst_440)))" +" for-loop_334)" +" lst_445)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -75775,7 +75968,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_852) s194_0))" +"(let-values(((s_841) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_120) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -75804,52 +75997,52 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_852)" +"(call-expand-observe obs_161 'enter-prim s_841)" "(call-expand-observe" " obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_85 module662_0 name663_0 _664_0)" -"(let-values(((s_853) s_852))" -"(let-values(((orig-s_92) s_853))" +"(let-values(((ok?_86 module662_0 name663_0 _664_0)" +"(let-values(((s_842) s_841))" +"(let-values(((orig-s_93) s_842))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_854)" -"(if(syntax?$1 s_853)" -"(syntax-e$1 s_853)" -" s_853)))" -"(if(pair? s_854)" +"(let-values(((s_843)" +"(if(syntax?$1 s_842)" +"(syntax-e$1 s_842)" +" s_842)))" +"(if(pair? s_843)" "(let-values(((module665_0)" -"(let-values(((s_855)(car s_854)))" -" s_855))" +"(let-values(((s_844)(car s_843)))" +" s_844))" "((name666_0 _667_0)" -"(let-values(((s_856)(cdr s_854)))" -"(let-values(((s_857)" +"(let-values(((s_845)(cdr s_843)))" +"(let-values(((s_846)" "(if(syntax?$1" -" s_856)" -"(syntax-e$1 s_856)" -" s_856)))" -"(if(pair? s_857)" +" s_845)" +"(syntax-e$1 s_845)" +" s_845)))" +"(if(pair? s_846)" "(let-values(((name668_0)" -"(let-values(((s_858)" +"(let-values(((s_847)" "(car" -" s_857)))" -" s_858))" +" s_846)))" +" s_847))" "((_669_0)" -"(let-values(((s_859)" +"(let-values(((s_848)" "(cdr" -" s_857)))" -" s_859)))" +" s_846)))" +" s_848)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92))))))" +" orig-s_93))))))" "(values module665_0 name666_0 _667_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92)))))" +" orig-s_93)))))" "(values #t module662_1 name663_1 _664_1))))))" "(let-values(((name_80)(syntax-e$1 name663_0)))" "(let-values((()" @@ -75859,7 +76052,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_852" +" s_841" " name_80))" "(void))" "(values))))" @@ -75876,112 +76069,112 @@ static const char *startup_source = "(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_852)))" +"(call-expand-observe obs_162 'enter-prim s_841)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_852)" +"(let-values(((s670_0) s_841)" "((temp671_0)" "(let-values(((v_268) ctx_120))" -"(let-values(((the-struct_121) v_268))" -"(if(expand-context/outer? the-struct_121)" +"(let-values(((the-struct_120) v_268))" +"(if(expand-context/outer? the-struct_120)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_121)" "(root-expand-context/outer-inner" " v_268)))" "(if(expand-context/inner?" -" the-struct_122)" +" the-struct_121)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-module-scopes" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-defined-syms" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-counter" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-lift-key" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-to-parsed?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-phase" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-namespace" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-just-once?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-module-begin-k" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-allow-unbound?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-in-local-expand?" -" the-struct_122)" +" the-struct_121)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-lift-envs" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-module-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-require-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-to-module-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-requires+provides" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-observer" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-for-serializable?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_122)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_122)))))" +" the-struct_121)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_121)" +" the-struct_120)" "(root-expand-context/outer-frame-id" -" the-struct_121)" +" the-struct_120)" " context680_0" "(expand-context/outer-env" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-scopes" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-def-ctx-scopes" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-binding-layer" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-reference-records" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-only-immediate?" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-need-eventually-defined" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-current-introduction-scopes" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-name" -" the-struct_121)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_121)))))" +" the-struct_120)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -76025,7 +76218,7 @@ static const char *startup_source = "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_127)(expand-context-namespace ctx_120)))" +"(let-values(((ns_128)(expand-context-namespace ctx_120)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -76035,7 +76228,7 @@ static const char *startup_source = "(expanded+parsed-parsed submod_5)" " submod_5))" "((temp685_0)" -"(let-values(((ns690_0) ns_127)" +"(let-values(((ns690_0) ns_128)" "((self691_0) self_42)" "((temp692_0)" "(1/resolved-module-path-name" @@ -76083,7 +76276,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_127" +" ns_128" " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" @@ -76115,67 +76308,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_123) submod_5))" -"(if(expanded+parsed? the-struct_123)" +"(let-values(((the-struct_122) submod_5))" +"(if(expanded+parsed? the-struct_122)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_124)" +"(let-values(((the-struct_123)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_124)" +"(if(parsed-module? the-struct_123)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_124)" +"(parsed-s the-struct_123)" " star?696_0" "(parsed-module-name-id" -" the-struct_124)" +" the-struct_123)" "(parsed-module-self" -" the-struct_124)" +" the-struct_123)" "(parsed-module-requires" -" the-struct_124)" +" the-struct_123)" "(parsed-module-provides" -" the-struct_124)" +" the-struct_123)" "(parsed-module-root-ctx-simple?" -" the-struct_124)" +" the-struct_123)" "(parsed-module-encoded-root-ctx" -" the-struct_124)" +" the-struct_123)" "(parsed-module-body" -" the-struct_124)" +" the-struct_123)" "(parsed-module-compiled-module" -" the-struct_124)" +" the-struct_123)" "(parsed-module-compiled-submodules" -" the-struct_124)))" +" the-struct_123)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_124)))))" +" the-struct_123)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_123)" +"(expanded+parsed-s the-struct_122)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_123))))" +" the-struct_122))))" "(let-values()" -"(let-values(((the-struct_125) submod_5))" -"(if(parsed-module? the-struct_125)" +"(let-values(((the-struct_124) submod_5))" +"(if(parsed-module? the-struct_124)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_125)" +"(parsed-s the-struct_124)" " star?697_0" -"(parsed-module-name-id the-struct_125)" -"(parsed-module-self the-struct_125)" -"(parsed-module-requires the-struct_125)" -"(parsed-module-provides the-struct_125)" -"(parsed-module-root-ctx-simple? the-struct_125)" -"(parsed-module-encoded-root-ctx the-struct_125)" -"(parsed-module-body the-struct_125)" -"(parsed-module-compiled-module the-struct_125)" +"(parsed-module-name-id the-struct_124)" +"(parsed-module-self the-struct_124)" +"(parsed-module-requires the-struct_124)" +"(parsed-module-provides the-struct_124)" +"(parsed-module-root-ctx-simple? the-struct_124)" +"(parsed-module-encoded-root-ctx the-struct_124)" +"(parsed-module-body the-struct_124)" +"(parsed-module-compiled-module the-struct_124)" "(parsed-module-compiled-submodules" -" the-struct_125)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_125)))))))))))))))))))))))))))))))))))" +" the-struct_124)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -76189,7 +76382,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_162) phase209_0))" +"(let-values(((phase_163) phase209_0))" "(let-values(((self_43) self210_0))" "(let-values(((ctx_121) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -76198,21 +76391,21 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_448) bodys_29))" +"(let-values(((lst_453) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_448)))" -"((letrec-values(((for-loop_331)" -"(lambda(fold-var_382 lst_449)" +"(let-values()(check-list lst_453)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_378 lst_454)" "(begin" " 'for-loop" -"(if(pair? lst_449)" -"(let-values(((body_27)(unsafe-car lst_449))" -"((rest_252)(unsafe-cdr lst_449)))" -"(let-values(((fold-var_383)" -"(let-values(((fold-var_384) fold-var_382))" -"(let-values(((fold-var_385)" +"(if(pair? lst_454)" +"(let-values(((body_27)(unsafe-car lst_454))" +"((rest_253)(unsafe-cdr lst_454)))" +"(let-values(((fold-var_379)" +"(let-values(((fold-var_380) fold-var_378))" +"(let-values(((fold-var_381)" "(let-values()" "(cons" "(let-values()" @@ -76220,7 +76413,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_162)))" +" phase_163)))" "(if(equal? tmp_68 'module)" "(let-values()" "(let-values(((body698_0)" @@ -76257,75 +76450,75 @@ static const char *startup_source = " self699_0" " ctx700_0)))" "(let-values() body_27))))" -" fold-var_384))))" -"(values fold-var_385)))))" +" fold-var_380))))" +"(values fold-var_381)))))" "(if(not #f)" -"(for-loop_331 fold-var_383 rest_252)" -" fold-var_383)))" -" fold-var_382)))))" -" for-loop_331)" +"(for-loop_336 fold-var_379 rest_253)" +" fold-var_379)))" +" fold-var_378)))))" +" for-loop_336)" " null" -" lst_448))))))))))))))))" +" lst_453))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" -"(lambda(declared-submodule-names215_0 m-ns217_0 self218_1 requires+provides219_0)" +"(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" "(begin" " 'make-parse-lifted-require220" "(let-values(((m-ns_24) m-ns217_0))" -"(let-values(((self_44) self218_1))" +"(let-values(((self_44) self218_0))" "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_860 phase_163)" -"(let-values(((ok?_86 #%require706_0 req707_0)" -"(let-values(((s_861)(syntax-disarm$1 s_860)))" -"(let-values(((orig-s_93) s_861))" +"(lambda(s_849 phase_164)" +"(let-values(((ok?_87 #%require706_0 req707_0)" +"(let-values(((s_850)(syntax-disarm$1 s_849)))" +"(let-values(((orig-s_94) s_850))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_862)" -"(if(syntax?$1 s_861)(syntax-e$1 s_861) s_861)))" -"(if(pair? s_862)" +"(let-values(((s_851)" +"(if(syntax?$1 s_850)(syntax-e$1 s_850) s_850)))" +"(if(pair? s_851)" "(let-values(((#%require708_0)" -"(let-values(((s_863)(car s_862))) s_863))" +"(let-values(((s_852)(car s_851))) s_852))" "((req709_0)" -"(let-values(((s_864)(cdr s_862)))" -"(let-values(((s_865)" -"(if(syntax?$1 s_864)" -"(syntax-e$1 s_864)" -" s_864)))" -"(if(pair? s_865)" +"(let-values(((s_853)(cdr s_851)))" +"(let-values(((s_854)" +"(if(syntax?$1 s_853)" +"(syntax-e$1 s_853)" +" s_853)))" +"(if(pair? s_854)" "(let-values(((req710_0)" -"(let-values(((s_866)" -"(car s_865)))" -" s_866))" +"(let-values(((s_855)" +"(car s_854)))" +" s_855))" "(()" -"(let-values(((s_867)" -"(cdr s_865)))" -"(let-values(((s_868)" +"(let-values(((s_856)" +"(cdr s_854)))" +"(let-values(((s_857)" "(if(syntax?$1" -" s_867)" +" s_856)" "(syntax-e$1" -" s_867)" -" s_867)))" -"(if(null? s_868)" +" s_856)" +" s_856)))" +"(if(null? s_857)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93))))))" +" orig-s_94))))))" "(values req710_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93))))))" +" orig-s_94))))))" "(values #%require708_0 req709_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_860)" +"((s712_0) s_849)" "((self713_0) self_44)" "((m-ns714_0) m-ns_24)" -"((phase715_0) phase_163)" -"((phase716_0) phase_163)" +"((phase715_0) phase_164)" +"((phase716_0) phase_164)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -76367,30 +76560,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_450) lifted-defns_2))" +"(let-values(((lst_455) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_450)))" -"((letrec-values(((for-loop_332)" -"(lambda(fold-var_386 lst_451)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_455)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_382 lst_456)" "(begin" " 'for-loop" -"(if(pair? lst_451)" -"(let-values(((lifted-defn_0)(unsafe-car lst_451))" -"((rest_253)(unsafe-cdr lst_451)))" -"(let-values(((fold-var_387)" -"(let-values(((fold-var_388) fold-var_386))" -"(let-values(((fold-var_389)" +"(if(pair? lst_456)" +"(let-values(((lifted-defn_0)(unsafe-car lst_456))" +"((rest_254)(unsafe-cdr lst_456)))" +"(let-values(((fold-var_383)" +"(let-values(((fold-var_384) fold-var_382))" +"(let-values(((fold-var_385)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_388))))" -"(values fold-var_389)))))" -"(if(not #f)(for-loop_332 fold-var_387 rest_253) fold-var_387)))" -" fold-var_386)))))" -" for-loop_332)" +" fold-var_384))))" +"(values fold-var_385)))))" +"(if(not #f)(for-loop_337 fold-var_383 rest_254) fold-var_383)))" +" fold-var_382)))))" +" for-loop_337)" " null" -" lst_450)))))))" +" lst_455)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -76406,66 +76599,66 @@ 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_452) s-lifted-defns_0))" +"(let-values(((lst_457) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_452)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_453)" +"(let-values()(check-list lst_457)))" +"((letrec-values(((for-loop_338)" +"(lambda(lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_453)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_453))" -"((rest_254)(unsafe-cdr lst_453)))" +"(if(pair? lst_458)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_458))" +"((rest_255)(unsafe-cdr lst_458)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ok?_87" +"(let-values(((ok?_88" " define-values724_0" " _725_0)" -"(let-values(((s_869)" +"(let-values(((s_858)" " s-lifted-defn_0))" -"(let-values(((orig-s_94)" -" s_869))" +"(let-values(((orig-s_95)" +" s_858))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_870)" +"(let-values(((s_859)" "(if(syntax?$1" -" s_869)" +" s_858)" "(syntax-e$1" -" s_869)" -" s_869)))" +" s_858)" +" s_858)))" "(if(pair?" -" s_870)" +" s_859)" "(let-values(((define-values726_0)" -"(let-values(((s_871)" +"(let-values(((s_860)" "(car" -" s_870)))" -" s_871))" +" s_859)))" +" s_860))" "((_727_0)" -"(let-values(((s_872)" +"(let-values(((s_861)" "(cdr" -" s_870)))" -"(let-values(((s_873)" +" s_859)))" +"(let-values(((s_862)" "(if(syntax?$1" -" s_872)" +" s_861)" "(syntax-e$1" -" s_872)" -" s_872)))" +" s_861)" +" s_861)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_873)))" +" s_862)))" "(if(not" " flat-s_62)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_94))" +" orig-s_95))" "(let-values()" " flat-s_62)))))))" "(values" @@ -76474,7 +76667,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_94)))))" +" orig-s_95)))))" "(values" " #t" " define-values724_1" @@ -76523,25 +76716,25 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_254)(values))))" +"(if(not #f)(for-loop_338 rest_255)(values))))" "(values))))))" -" for-loop_333)" -" lst_452)))" +" for-loop_338)" +" lst_457)))" "(values))))" "(let-values()" -"(let-values(((ok?_88 form-id720_0 _721_0)" -"(let-values(((s_874) exp-body_10))" -"(let-values(((orig-s_95) s_874))" +"(let-values(((ok?_89 form-id720_0 _721_0)" +"(let-values(((s_863) exp-body_10))" +"(let-values(((orig-s_96) s_863))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_875)" -"(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" -"(if(pair? s_875)" +"(let-values(((s_864)" +"(if(syntax?$1 s_863)(syntax-e$1 s_863) s_863)))" +"(if(pair? s_864)" "(let-values(((form-id722_0)" -"(let-values(((s_876)(car s_875))) s_876))" +"(let-values(((s_865)(car s_864))) s_865))" "((_723_0)" -"(let-values(((s_877)(cdr s_875))) s_877)))" +"(let-values(((s_866)(cdr s_864))) s_866)))" "(values form-id722_0 _723_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t form-id720_1 _721_1))))))" "(begin" "(call-expand-observe obs_165 'next)" @@ -76560,30 +76753,30 @@ static const char *startup_source = "(if obs_166" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_89 define-values728_0 _729_0)" -"(let-values(((s_878) s-defn_0))" -"(let-values(((orig-s_96) s_878))" +"(let-values(((ok?_90 define-values728_0 _729_0)" +"(let-values(((s_867) s-defn_0))" +"(let-values(((orig-s_97) s_867))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_879)(if(syntax?$1 s_878)(syntax-e$1 s_878) s_878)))" -"(if(pair? s_879)" +"(let-values(((s_868)(if(syntax?$1 s_867)(syntax-e$1 s_867) s_867)))" +"(if(pair? s_868)" "(let-values(((define-values730_0)" -"(let-values(((s_880)(car s_879))) s_880))" +"(let-values(((s_869)(car s_868))) s_869))" "((_731_0)" -"(let-values(((s_881)(cdr s_879)))" -"(let-values(((s_882)" -"(if(syntax?$1 s_881)" -"(syntax-e$1 s_881)" -" s_881)))" -"(let-values(((flat-s_63)(to-syntax-list.1 s_882)))" +"(let-values(((s_870)(cdr s_868)))" +"(let-values(((s_871)" +"(if(syntax?$1 s_870)" +"(syntax-e$1 s_870)" +" s_870)))" +"(let-values(((flat-s_63)(to-syntax-list.1 s_871)))" "(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))" +" orig-s_97))" "(let-values() flat-s_63)))))))" "(values define-values730_0 _731_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t define-values728_1 _729_1))))))" "(begin" "(call-expand-observe obs_166 'visit s-defn_0)" @@ -76607,7 +76800,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_154 ctx_124)" +"(lambda(ids_49 s_153 ctx_124)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" "(let-values(((tl-ids_2)" @@ -76617,66 +76810,66 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_390 lst_83)" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_386 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((id_166)(unsafe-car lst_83))" -"((rest_39)(unsafe-cdr lst_83)))" +"(if(pair? lst_84)" +"(let-values(((id_165)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_390))" -"(let-values(((fold-var_391)" +"(let-values(((fold-var_62) fold-var_386))" +"(let-values(((fold-var_387)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_166" +" id_165" " ctx_124))" " fold-var_62))))" -"(values fold-var_391)))))" -"(if(not #f)(for-loop_101 fold-var_61 rest_39) fold-var_61)))" -" fold-var_390)))))" -" for-loop_101)" +"(values fold-var_387)))))" +"(if(not #f)(for-loop_100 fold-var_61 rest_39) fold-var_61)))" +" fold-var_386)))))" +" for-loop_100)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_154))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_153))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_98) tl-ids_2))" +"(let-values(((lst_99) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_334)" -"(lambda(fold-var_217 lst_84)" +"(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_339)" +"(lambda(fold-var_218 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((id_167)(unsafe-car lst_84))" -"((rest_235)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_227)" -"(let-values(((fold-var_31) fold-var_217))" +"(if(pair? lst_85)" +"(let-values(((id_166)(unsafe-car lst_85))" +"((rest_236)(unsafe-cdr lst_85)))" +"(let-values(((fold-var_228)" +"(let-values(((fold-var_31) fold-var_218))" "(let-values(((fold-var_32)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_167" +" id_166" " top-level-bind-scope_6))" " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_334 fold-var_227 rest_235)" -" fold-var_227)))" -" fold-var_217)))))" -" for-loop_334)" +"(for-loop_339 fold-var_228 rest_236)" +" fold-var_228)))" +" fold-var_218)))))" +" for-loop_339)" " null" -" lst_98))))))" +" lst_99))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" @@ -76697,26 +76890,26 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_169) s_0))" -"(let-values(((orig-s_97) s_169))" +"(let-values(((s_168) s_0))" +"(let-values(((orig-s_98) s_168))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_169)(syntax-e$1 s_169) s_169)))" +"(let-values(((s_40)(if(syntax?$1 s_168)(syntax-e$1 s_168) s_168)))" "(if(pair? s_40)" "(let-values(((define-values4_0)" -"(let-values(((s_179)(car s_40))) s_179))" +"(let-values(((s_178)(car s_40))) s_178))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_171)" +"(let-values(((s_170)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_171)" +"(if(pair? s_170)" "(let-values(((id7_0)" -"(let-values(((s_159)(car s_171)))" +"(let-values(((s_158)(car s_170)))" "(let-values(((s_5)" -"(if(syntax?$1 s_159)" -"(syntax-e$1 s_159)" -" s_159)))" +"(if(syntax?$1 s_158)" +"(syntax-e$1 s_158)" +" s_158)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" " s_5)))" @@ -76725,9 +76918,9 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))" +" orig-s_98))" "(let-values()" -"(let-values(((id_168)" +"(let-values(((id_167)" "(let-values(((lst_24)" " flat-s_64))" "(begin" @@ -76737,97 +76930,97 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_252)" "(lambda(id_6" -" lst_78)" +" lst_79)" "(begin" " 'for-loop" "(if(pair?" -" lst_78)" -"(let-values(((s_180)" +" lst_79)" +"(let-values(((s_179)" "(unsafe-car" -" lst_78))" +" lst_79))" "((rest_142)" "(unsafe-cdr" -" lst_78)))" -"(let-values(((id_169)" +" lst_79)))" +"(let-values(((id_168)" "(let-values(((id_52)" " id_6))" -"(let-values(((id_170)" +"(let-values(((id_169)" "(let-values()" "(let-values(((id10_1)" "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_180)" +" s_179)" "(symbol?" "(syntax-e$1" -" s_180))" +" s_179))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_180)))" -" s_180" +" s_179)))" +" s_179" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_97" -" s_180)))))" +" orig-s_98" +" s_179)))))" "(cons" " id10_1" " id_52)))))" "(values" -" id_170)))))" +" id_169)))))" "(if(not" " #f)" -"(for-loop_247" -" id_169" +"(for-loop_252" +" id_168" " rest_142)" -" id_169)))" +" id_168)))" " id_6)))))" -" for-loop_247)" +" for-loop_252)" " null" " lst_24)))))" -"(reverse$1 id_168))))))))" +"(reverse$1 id_167))))))))" "((rhs8_0)" -"(let-values(((s_80)(cdr s_171)))" -"(let-values(((s_381)" -"(if(syntax?$1 s_80)" -"(syntax-e$1 s_80)" -" s_80)))" -"(if(pair? s_381)" +"(let-values(((s_79)(cdr s_170)))" +"(let-values(((s_380)" +"(if(syntax?$1 s_79)" +"(syntax-e$1 s_79)" +" s_79)))" +"(if(pair? s_380)" "(let-values(((rhs9_0)" "(let-values(((s_43)" "(car" -" s_381)))" +" s_380)))" " s_43))" "(()" -"(let-values(((s_304)" +"(let-values(((s_303)" "(cdr" -" s_381)))" +" s_380)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_304)" +" s_303)" "(syntax-e$1" -" s_304)" -" s_304)))" +" s_303)" +" s_303)))" "(if(null?" " s_35)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" +" orig-s_98))))))" "(values rhs9_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" +" orig-s_98))))))" "(values id7_0 rhs8_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98))))))" "(values define-values4_0 id5_0 rhs6_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t define-values1_1 id2_2 rhs3_1))))))" "(let-values(((ids_50 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_8)" @@ -76840,7 +77033,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_883 ctx_125)" +"(lambda(s_872 ctx_125)" "(let-values((()" "(begin" "(let-values(((obs_169)(expand-context-observer ctx_125)))" @@ -76857,41 +77050,41 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_125) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_883)))" +" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_872)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_883)))" -"(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_425) disarmed-s_26))" -"(let-values(((orig-s_98) s_425))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_872)))" +"(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" +"(let-values(((s_424) disarmed-s_26))" +"(let-values(((orig-s_99) s_424))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_425)(syntax-e$1 s_425) s_425)))" +"(let-values(((s_20)(if(syntax?$1 s_424)(syntax-e$1 s_424) s_424)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_461)(cdr s_20)))" +"(let-values(((s_460)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_461)" -"(syntax-e$1 s_461)" -" s_461)))" +"(if(syntax?$1 s_460)" +"(syntax-e$1 s_460)" +" s_460)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_735)(car s_24)))" -"(let-values(((s_468)" -"(if(syntax?$1 s_735)" -"(syntax-e$1 s_735)" -" s_735)))" +"(let-values(((s_724)(car s_24)))" +"(let-values(((s_467)" +"(if(syntax?$1 s_724)" +"(syntax-e$1 s_724)" +" s_724)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_468)))" +" s_467)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))" +" orig-s_99))" "(let-values()" -"(let-values(((id_78)" +"(let-values(((id_77)" "(let-values(((lst_179)" " flat-s_65))" "(begin" @@ -76901,113 +77094,113 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_179)))" -"((letrec-values(((for-loop_335)" -"(lambda(id_171" -" lst_454)" +"((letrec-values(((for-loop_340)" +"(lambda(id_170" +" lst_459)" "(begin" " 'for-loop" "(if(pair?" -" lst_454)" -"(let-values(((s_146)" +" lst_459)" +"(let-values(((s_145)" "(unsafe-car" -" lst_454))" -"((rest_255)" +" lst_459))" +"((rest_256)" "(unsafe-cdr" -" lst_454)))" +" lst_459)))" +"(let-values(((id_100)" "(let-values(((id_101)" -"(let-values(((id_102)" -" id_171))" -"(let-values(((id_172)" +" id_170))" +"(let-values(((id_171)" "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_358)" "(if(syntax?$1" -" s_146)" +" s_145)" "(symbol?" "(syntax-e$1" -" s_146))" +" s_145))" " #f)))" -"(if or-part_355" -" or-part_355" +"(if or-part_358" +" or-part_358" "(symbol?" -" s_146)))" -" s_146" +" s_145)))" +" s_145" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_98" -" s_146)))))" +" orig-s_99" +" s_145)))))" "(cons" " id24_1" -" id_102)))))" +" id_101)))))" "(values" -" id_172)))))" +" id_171)))))" "(if(not" " #f)" -"(for-loop_335" -" id_101" -" rest_255)" -" id_101)))" -" id_171)))))" -" for-loop_335)" +"(for-loop_340" +" id_100" +" rest_256)" +" id_100)))" +" id_170)))))" +" for-loop_340)" " null" " lst_179)))))" -"(reverse$1 id_78))))))))" +"(reverse$1 id_77))))))))" "((rhs22_0)" -"(let-values(((s_494)(cdr s_24)))" -"(let-values(((s_476)" -"(if(syntax?$1 s_494)" -"(syntax-e$1 s_494)" -" s_494)))" -"(if(pair? s_476)" +"(let-values(((s_493)(cdr s_24)))" +"(let-values(((s_475)" +"(if(syntax?$1 s_493)" +"(syntax-e$1 s_493)" +" s_493)))" +"(if(pair? s_475)" "(let-values(((rhs23_2)" "(let-values(((s_164)" "(car" -" s_476)))" +" s_475)))" " s_164))" "(()" "(let-values(((s_44)" "(cdr" -" s_476)))" -"(let-values(((s_457)" +" s_475)))" +"(let-values(((s_456)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_457)" +" s_456)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))))))" +" orig-s_99))))))" "(values rhs23_2))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))))))" +" orig-s_99))))))" "(values id21_0 rhs22_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))))))" +" orig-s_99))))))" "(values define-syntaxes18_0 id19_1 rhs20_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_2 s_883 ctx_125)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_2 s_872 ctx_125)))" "(let-values(((exp-rhs_9)" "(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_51)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))" "(if(expand-context-to-parsed? ctx_125)" -"(parsed-define-syntaxes20.1 s_883 ids_51 syms_29 exp-rhs_9)" -"(let-values(((s27_3) s_883)((temp28_6)(list define-syntaxes15_0 ids_51 exp-rhs_9)))" +"(parsed-define-syntaxes20.1 s_872 ids_51 syms_29 exp-rhs_9)" +"(let-values(((s27_3) s_872)((temp28_6)(list define-syntaxes15_0 ids_51 exp-rhs_9)))" "(rebuild5.1 #f #f s27_3 temp28_6)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_479 ctx_10) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_479))))" +" (lambda (s_478 ctx_10) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_478))))" "(void" "(add-core-form!*" " '#%require" @@ -77024,66 +77217,69 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" -"(let-values(((ok?_91 #%require29_0 req30_0)" -"(let-values(((s_394) disarmed-s_27))" -"(let-values(((orig-s_99) s_394))" +"(let-values(((ok?_92 #%require29_0 req30_0)" +"(let-values(((s_393) disarmed-s_27))" +"(let-values(((orig-s_100) s_393))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_884)(if(syntax?$1 s_394)(syntax-e$1 s_394) s_394)))" -"(if(pair? s_884)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_884))) s_46))" +"(let-values(((s_873)(if(syntax?$1 s_393)(syntax-e$1 s_393) s_393)))" +"(if(pair? s_873)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_873))) s_46))" "((req32_0)" -"(let-values(((s_147)(cdr s_884)))" -"(let-values(((s_736)" -"(if(syntax?$1 s_147)" -"(syntax-e$1 s_147)" -" s_147)))" -"(let-values(((flat-s_66)(to-syntax-list.1 s_736)))" +"(let-values(((s_146)(cdr s_873)))" +"(let-values(((s_725)" +"(if(syntax?$1 s_146)" +"(syntax-e$1 s_146)" +" s_146)))" +"(let-values(((flat-s_66)(to-syntax-list.1 s_725)))" "(if(not flat-s_66)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_100))" "(let-values() flat-s_66)))))))" "(values #%require31_0 req32_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t #%require29_1 req30_1))))))" "(let-values(((sc_36)(new-scope 'macro)))" "(begin" "(let-values(((temp33_4)" "(reverse$1" -"(let-values(((lst_455) req30_0))" +"(let-values(((lst_460) req30_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_455)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_163 lst_456)" +"(let-values()(check-list lst_460)))" +"((letrec-values(((for-loop_341)" +"(lambda(fold-var_164 lst_461)" "(begin" " 'for-loop" -"(if(pair? lst_456)" -"(let-values(((req_20)(unsafe-car lst_456))" -"((rest_256)(unsafe-cdr lst_456)))" -"(let-values(((fold-var_392)" -"(let-values(((fold-var_178) fold-var_163))" -"(let-values(((fold-var_179)" +"(if(pair? lst_461)" +"(let-values(((req_20)(unsafe-car lst_461))" +"((rest_257)(unsafe-cdr lst_461)))" +"(let-values(((fold-var_388)" +"(let-values(((fold-var_179) fold-var_164))" +"(let-values(((fold-var_180)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" " sc_36))" -" fold-var_178))))" -"(values fold-var_179)))))" +" fold-var_179))))" +"(values fold-var_180)))))" "(if(not #f)" -"(for-loop_336 fold-var_392 rest_256)" -" fold-var_392)))" -" fold-var_163)))))" -" for-loop_336)" +"(for-loop_341 fold-var_388 rest_257)" +" fold-var_388)))" +" fold-var_164)))))" +" for-loop_341)" " null" -" lst_455)))))" +" lst_460)))))" "((s34_0) s_45)" "((temp35_3) #f)" "((temp36_8)(expand-context-namespace ctx_18))" "((temp37_5)(expand-context-phase ctx_18))" -"((temp38_3)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))" +"((temp38_4)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))" "((temp39_8) 'require)" "((temp40_4) #t))" "(parse-and-perform-requires!30.1" @@ -77110,16 +77306,16 @@ static const char *startup_source = " s34_0" " temp36_8" " temp37_5" -" temp38_3))" +" temp38_4))" "(if(expand-context-to-parsed? ctx_18)(parsed-require23.1 s_45) s_45))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_498 ctx_81)" +"(lambda(s_497 ctx_81)" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_81)))" "(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_498)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_497)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -77150,65 +77346,65 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_7)" -"(let-values(((ht_166) main-primitives))" +"(let-values(((ht_169) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_166)))" +"(let-values()(check-in-hash-keys ht_169)))" "((letrec-values(((for-loop_20)" -"(lambda(table_217 i_3)" +"(lambda(table_222 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_166 i_3)))" -"(let-values(((table_206)" -"(let-values(((table_218) table_217))" -"(let-values(((table_178)" +"(let-values(((name_81)(hash-iterate-key ht_169 i_3)))" +"(let-values(((table_209)" +"(let-values(((table_223) table_222))" +"(let-values(((table_179)" "(let-values()" -"(let-values(((key_93 val_84)" +"(let-values(((key_95 val_85)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_218 key_93 val_84)))))" -"(values table_178)))))" +"(hash-set table_223 key_95 val_85)))))" +"(values table_179)))))" "(if(not #f)" -"(for-loop_20 table_206(hash-iterate-next ht_166 i_3))" -" table_206)))" -" table_217)))))" +"(for-loop_20 table_209(hash-iterate-next ht_169 i_3))" +" table_209)))" +" table_222)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_166)))))" +"(hash-iterate-first ht_169)))))" "((temp29_4)" -"(let-values(((ht_167) read-primitives))" +"(let-values(((ht_170) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_167)))" -"((letrec-values(((for-loop_318)" -"(lambda(table_180 i_183)" +"(let-values()(check-in-hash-keys ht_170)))" +"((letrec-values(((for-loop_324)" +"(lambda(table_181 i_183)" "(begin" " 'for-loop" "(if i_183" -"(let-values(((name_82)(hash-iterate-key ht_167 i_183)))" -"(let-values(((table_219)" -"(let-values(((table_99) table_180))" -"(let-values(((table_100)" +"(let-values(((name_82)(hash-iterate-key ht_170 i_183)))" +"(let-values(((table_224)" +"(let-values(((table_103) table_181))" +"(let-values(((table_104)" "(let-values()" -"(let-values(((key_94 val_85)" +"(let-values(((key_96 val_86)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_99 key_94 val_85)))))" -"(values table_100)))))" +"(hash-set table_103 key_96 val_86)))))" +"(values table_104)))))" "(if(not #f)" -"(for-loop_318 table_219(hash-iterate-next ht_167 i_183))" -" table_219)))" -" table_180)))))" -" for-loop_318)" +"(for-loop_324 table_224(hash-iterate-next ht_170 i_183))" +" table_224)))" +" table_181)))))" +" for-loop_324)" " '#hash()" -"(hash-iterate-first ht_167))))))" +"(hash-iterate-first ht_170))))))" "(declare-kernel-module!8.1 eval27_0 temp28_7 temp29_4 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" @@ -77232,12 +77428,12 @@ static const char *startup_source = "(let-values(((name30_0) name_83)" "((ns31_5) ns)" "((temp32_6)" -"(let-values(((or-part_290)" +"(let-values(((or-part_293)" "(eq?" " name_83" " '#%foreign)))" -"(if or-part_290" -" or-part_290" +"(if or-part_293" +" or-part_293" "(let-values(((or-part_95)" "(eq?" " name_83" @@ -77270,11 +77466,11 @@ static const char *startup_source = " lst_17)))" "(void))" "(let-values(((temp33_5) '#%builtin)" -"((temp34_4)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" +"((temp34_5)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" "((ns35_1) ns)" "((temp36_9) #f))" -"(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_5 temp34_4))" +"(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_5 temp34_5))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_885)(begin(1/datum->syntax core-stx s_885)))))" +"(define-values(datum->kernel-syntax)(lambda(s_874)(begin(1/datum->syntax core-stx s_874)))))" ;